5…`¸`¸C128-XGRFOR!d`¸`¸C128-XGRZ3T)ù`¸`¸C128-XGRZ80L6`¸`¸ C128-XGR.LBR contains a new Z3 Termcap for the Commodore 128 with C128 line graphics. Programs like ZDT12+ will print line graphic boxes. Underline, blink and reverse attributes are also available. The 50 ms CL delay was removed, since the 128 doesn't seem to need it. Randy Winchester, 9/22/92. C128-GRAPHICSC€ =%+ %+ T)(REYG%+00243G1G0pnm}CBbfrq[sk; Z3TCAP file: C128.Z80 ; Author : Randy Winchester ; Date : 9/20/92 ; ; Z3 Termcap implementing C128 line graphics, underline, blink, ; and reverse video. Labels CM:, RC:, and GE: changed to XCM:, ; XRC:, and XGE: to work with RMAC assembler. ; ESC EQU 27 ; Escape character ; ; The first character in the terminal name must not be a space. For ; Z3TCAP.TCP library purposes only, the name terminates with a space ; and must be unique in the first eight characters. ; TNAME: DB 'C128-GRAPHICS' ; Name of terminal (13 chars) ; GOFF: DB GOELD-TNAME ; Graphics offset from Z3TCAP start ; ; Terminal configuration bytes B14 and B15 are defined and bits assigned ; as follows. The remaining bits are not currently assigned. Set these ; bits according to your terminal configuration. ; ; B14 b7: Z3TCAP Type.... 0 = Standard TCAP 1 = Extended TCAP ; ; bit: 76543210 B14: DB 10000000B ; Configuration byte B14 ; ; B15 b0: Standout....... 0 = Half-Intensity 1 = Reverse Video ; B15 b1: Power Up Delay. 0 = None 1 = Ten-second delay ; B15 b2: No Auto Wrap... 0 = Auto Wrap 1 = No Auto Wrap ; B15 b3: No Auto Scroll. 0 = Auto Scroll 1 = No Auto Scroll ; B15 b4: ANSI........... 0 = ASCII 1 = ANSI ; ; bit: 76543210 B15: DB 00000000B ; Configuration byte B15 ; ; Single character arrow keys or WordStar diamond ; DB 'K'-40H ; Cursor up DB 'J'-40H ; Cursor down DB 'L'-40H ; Cursor right DB 'H'-40H ; Cursor left ; ; Delays (in ms) after sending terminal control strings ; DB 0 ; CL delay DB 0 ; CM delay DB 0 ; CE delay ; ; Strings start here ; CL: DB 'Z'-40H,0 ; Home cursor and clear screen XCM: DB ESC,'=%+ %+ ',0 ; Cursor motion macro CE: DB ESC,'T',0 ; Erase from cursor to end-of-line SO: DB ESC,')',0 ; Start standout mode SE: DB ESC,'(',0 ; End standout mode TI: DB 0 ; Terminal initialization TE: DB 0 ; Terminal deinitialization ; ; Extensions to standard Z3TCAP ; LD: DB ESC,'R',0 ; Delete line at cursor position LI: DB ESC,'E',0 ; Insert line at cursor position CD: DB ESC,'Y',0 ; Erase from cursor to end-of-screen ; ; The attribute string contains the four command characters to set ; the following four attributes for this terminal in the following ; order: Normal, Blink, Reverse, Underscore ; SA: DB ESC,'G%+0',0 ; Set screen attributes macro AT: DB '0243',0 ; Attribute string XRC: DB 0 ; Read current cursor position RL: DB 0 ; Read line until cursor ; ; Graphics TCAP area ; GOELD: DB 0 ; Graphics On/Off delay in ms ; ; Graphics strings ; GO: DB ESC,'G1',0 ; Graphics mode On XGE: DB ESC,'G0',0 ; Graphics mode Off CDO: DB 0 ; Cursor Off CDE: DB 0 ; Cursor On ; ; Graphics characters ; GULC: DB 'p' ; Upper left corner GURC: DB 'n' ; Upper right corner GLLC: DB 'm' ; Lower left corner GLRC: DB '}' ; Lower right corner GHL: DB 'C' ; Horizontal line GVL: DB 'B' ; Vertical line GFB: DB 'b' ; Full block GHB: DB 'f' ; Hashed block GUI: DB 'r' ; Upper intersect GLI: DB 'q' ; Lower intersect GIS: DB '[' ; Mid intersect GRTI: DB 's' ; Right intersect GLTI: DB 'k' ; Left intersect ; ; Fill remaining space with zeros ; REPT 128-($-TNAME) DB 0 ENDM END ; ; End of Z3TCAP ;