home *** CD-ROM | disk | FTP | other *** search
- ; 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
- ;