; ; Terminal xxxx ; esc equ 27 nztcap: db 'Freedom_200 ' ; Name of terminal (13 bytes) b13: db goeld-nztcap ; Offset to GOELD b14: db 10000000b ; Extended TCAP ; 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 00000000b db 'E'-'@' ; Cursor up db 'X'-'@' ; Cursor down db 'D'-'@' ; Cursor right db 'S'-'@' ; 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,'G0',0 ; So string 3 db esc,'G@',0 ; Se string 4 db esc,'G@',0 ; Ti string 5 db esc,'G@',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 '@24H',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 esc,'$',0 ; Graphics On 1 db esc,'%',0 ; Graphics Off 2 db esc,'.0',0 ; Cursor Off 3 db esc,'.3',0 ; Cursor On 4 db 'F' ; GULC - Upper Left Corner [*] db 'G' ; GURC - Upper Right Corner [*] db 'E' ; GLLC - Lower Left Corner [*] db 'H' ; GLRC - Lower Right Corner [*] db 'K' ; GHL - Horizontal Line [-] db 'J' ; GVL - Vertical Line [|] db '@' ; GFB - Full Block String [*] db '#' ; GHB - Hashed Block String [#] db 'N' ; GUI - Upper Intersection [+] db 'O' ; GLI - Lower Intersection [+] db 'I' ; GIS - Intersection [+] db 'L' ; GRTI - Right Intersection [+] db 'M' ; GLTI - Left Intersection [+] end