; 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
;