; NZTCAP:  NZWYS60.Z80
; Author:  Joe Wright
; Date:    12 October 87
; Version: 1.0

; VERSION: 2.2   3 February 90
;
; Moved the CD (clear to end of screen) string back after LI string.
; Define B13 as offset from NZTCAP to GOELD.

; VERSION: 2.1  19 January 90

; Added Read Cursor and Read Line functions.
; Graphics characters now in a table instead of individual strings.

; VERSION: 2.0	12 December 89

; Modified for new VLIB4 graphics and for new SETATT and SETATR routines.
; The SA: macro string is modified for the routines and a new string,
; AT: is added to contain the four main attributes for this terminal:
;	Normal, Blink, Reverse, Underscore

; Extended Termcap Data for NZ

; This is the proposed TermCap Data for the New Z-System.
; It more fully describes the terminal and its capabilities.

ESC	EQU	27		; ASCII escape character

; I have adopted the convention that a terminal name is terminated
; with a space character, therefore no spaces within the name.
; Also that the terminal name is unique in the first eight characters.
;
NZTCAP:	DB	'WYSE-60D     ' ; Name of terminal (13 bytes)
;
; The Graphics section is no longer fixed so we must provide an
; offset to it.  One byte is sufficient for a two-record TCAP.
;
B13:	DB	GOELD-NZTCAP	; Offset to GOELD
;
; Bit 7 of B14 indicates the new Extended TCAP.  Bits 6-0 are undefined.
;
B14:	DB	10000000B	; Extended TCAP
;
; It is often desirable to differentiate terminals with other than
; their commands.  For example TeleVideo 955 has the same command
; set as Wyse 60 but takes less time to initialize (reset).
;
; 16 bits are now reserved for indicating terminal charactistics
; which cannot be known from the strings.  I have defined five
; of these bits for my own purposes.  
;
; B15 b0	Standout	0 = Half-Intensity, 1 = Reverse Video
; B15 b1	Power Up Delay	0 = None, 1 = 10-second delay
; B15 b2	No Wrap		0 = Line Wrap, 1 = No Wrap
; B15 b3	No Scroll	0 = Scroll, 1 = No Scroll
; B15 b4	ANSI		0 = ASCII, 1 = ANSI
;
B15:	DB	00000010B	; Power Up Delay
;
	DB	'K'-'@'		; Cursor up
	DB	'J'-'@'		; Cursor down
	DB	'L'-'@'		; Cursor right
	DB	'H'-'@'		; Cursor left
	DB	00		; Cl delay
	DB	00		; Cm delay
	DB	00		; Ce delay

; Strings start here.

CL:	DB	ESC,'+',0	; Cl string			0
	DB	ESC,'=%+ %+ ',0	; Cm string			1
	DB	ESC,'T',0	; Ce string			2
	DB	ESC,')',0	; So string			3
	DB	ESC,'(',0	; Se string			4
	DB	0		; Ti string			5
	DB	ESC,'(',0	; Te string			6
;
; Extensions to Standard Z3TCAP 
;
LD:	DB	ESC,'R',0	; Line Delete			7
LI:	DB	ESC,'E',0	; Line Insert			8
CD:	DB	ESC,'Y',0	; Clear to end of screen	9
;
; Set Attribute strings once again included.
;
SA:	DB	ESC,'G%+0',0	; Set Attributes		10
AT:	DB	'0248',0	; Attributes			11
;
; These two allow reading the Terminal's screen.
;
RC:	DB	ESC,'?',0	; Read current cursor position	12
RL:	DB	ESC,'6',0	; Read line until cursor	13
;
; Graphics start here.	Wyse-60 goes graphic with bit 7 set.
;
GOELD:	DB	0		; On/Off Delay			0
;
; Graphics strings offset from Delay value.
;
	DB	0		; Graphics On			1
	DB	0		; Graphics Off			2
	DB	ESC,'`0',0	; Cursor Off			3
	DB	ESC,'`1',0	; Cursor On			4

; Graphics Characters

	DB	'Z'+80H		; Upper Left Corner		5
	DB	'?'+80H		; Upper Right Corner		6
	DB	'@'+80H		; Lower Left Corner		7
	DB	'Y'+80H		; Lower Right Corner		8
	DB	'D'+80H		; Horizontal Line		9
	DB	'3'+80H		; Vertical Line			10
	DB	'['+80H		; Full Block			11
	DB	'2'+80H		; Hashed Block			12
	DB	'B'+80H		; Upper Intersect		13
	DB	'A'+80H		; Lower Intersect		14
	DB	'E'+80H		; Mid Intersect			15
	DB	'4'+80H		; Right Intersect		16
	DB	'C'+80H		; Left Intersect		17
;
;  Fill unused space with nulls
;
	REPT	128-($-NZTCAP)
	DB	0
	 ENDM
;
	END
;
;  End of NZTCAPD