; ; Terminal xxxx ; The Amstrad CPC & PCW uses the DEC VT52 emulation with a few added functions ; to extend it's usefulness.. [Although, debatable!] esc equ 27 anztcap:db 'Amstrad_CPM+ ' ; Name of terminal (13 bytes) a13: db agoeld-anztcap ; Offset to GOELD a14: db 10000000b ; Extended TCAP ; A15 b0 Standout 0 = Half-Intensity, 1 = Reverse Video ; A15 b1 Power Up Delay 0 = None, 1 = 10-second delay ; A15 b2 No Wrap 0 = Line Wrap, 1 = No Wrap ; A15 b3 No Scroll 0 = Scroll, 1 = No Scroll ; A15 b4 ANSI 0 = ASCII, 1 = ANSI a15: db 00000001b db 'E'-'@' ; Cursor up db 'X'-'@' ; Cursor down db 'D'-'@' ; Cursor right db 'S'-'@' ; Cursor left db 0 ; Cl delay db 0 ; Cm delay db 0 ; Ce delay ; Strings start here. acl: db esc,'H',esc,'J',0 ; Cl string 0 db esc,'Y%+ %+ ',0 ; Cm string 1 db esc,'K',0 ; Ce string 2 db esc,'p',0 ; So string 3 db esc,'q',0 ; Se string 4 db esc,'q',0 ; Ti string 5 db esc,'q',0 ; Te string 6 ; ; Extensions to Standard Z3TCAP ald: db esc,'M',0 ; Line Delete 7 ali: db esc,'L',0 ; Line Insert 8 acd: db esc,'J',0 ; Clear to end of screen 9 ; Set Attribute strings once again included. asa: db 0 ; Set Attributes 10 aat: db 0 ; Attributes 11 ; These two allow reading the Terminal's screen. arc: db 0 ; Read current cursor position 12 arl: db 0 ; Read line until cursor 13 ; Graphics start here. Amstrad CPC goes graphic with bit 7 set. agoeld: db 0 ; On/Off Delay 0 ; Graphics strings offset from Delay value. db 0 ; Graphics On 1 db 0 ; Graphics Off 2 db esc,'f',0 ; Cursor Off 3 db esc,'e',0 ; Cursor On 4 db 96h ; GULC - Upper Left Corner [*] db 9ch ; GURC - Upper Right Corner [*] db 93h ; GLLC - Lower Left Corner [*] db 99h ; GLRC - Lower Right Corner [*] db 9ah ; GHL - Horizontal Line [-] db 95h ; GVL - Vertical Line [|] db 90h ; GFB - Full Block String [*] db 80h ; GHB - Hashed Block String [#] db 9bh ; GUI - Upper Intersection [+] db 9eh ; GLI - Lower Intersection [+] db 9fh ; GIS - Intersection [+] db 97h ; GRTI - Right Intersection [+] db 9dh ; GLTI - Left Intersection [+] end