RADIX 16
; special output routine to compensate for 925 bug
OUTPUT:
CMPB D1,#0A ; linefeed?
BNE OUTX
MOVW @A5,D7
AND #IMI,D7
BEQ OUTX
LEA A0,OMSG
MOV A0,D1
LEA A0,T.OQX(A5)
QINS A0
CLR (A0)+
MOV #2,(A0)+
MOV D1,(A0)
MOV #12.+80,D1 ; ^l first
OUTX:
LCC #8
RTN
OMSG: BYTE 8.+80,8A ; ^h, linefeed + bit 7
; end of special telvideo 950 routine
PAGE
; CRT function table
RADIX 10
XTAB 0,ESC,'* ; clear all to nulls
XTAB 1,'^-'@ ; home
XTAB 2,^H8D ; carriage return
XTAB 3,11. ; cursor up
XTAB 4,10. ; cursor down
XTAB 5,8. ; cursor left
XTAB 6,12. ; move cursor right
XTAB 7,ESC,'# ; lock keyboard
XTAB 8,ESC,'" ; unlock keyboard
XTAB 9,ESC,'T ; erase to end of line
XTAB 10,ESC,'Y ; erase to end of screen
XTAB 11,ESC,') ; reduced intensity
XTAB 12,ESC,'( ; normal intensity
XTAB 13,ESC,'& ; enable protected fields
XTAB 14,ESC,'' ; disable protected fields
XTAB 15,ESC,'R ; delete line
XTAB 16,ESC,'E ; insert line
XTAB 17,ESC,'W ; delete character
XTAB 18,ESC,'Q ; insert character
XTAB 21,ESC,'G,'2 ; blinking field
XTAB 22,ESC,'G,'0 ; stop blinking field
; line drawing
XTAB 23,ESC,'$ ; graphics on
XTAB 24,ESC,'% ; graphics off
; micro concepts extended TCRT calls (now moved to AMOS standard locations)
XTAB 28,ESC,'.,'2 ; cursor on (solid block)
XTAB 29,ESC,'.,'0 ; cursor off
XTAB 30,ESC,'G,'8 ; underline
XTAB 31,ESC,'G,'0 ; underline off
XTAB 32,ESC,'G,'4 ; reverse video
XTAB 33,ESC,'G,'0 ; reverse video off
XTAB 36,ESC,'O ; turn off screen display
XTAB 37,ESC,'N ; turn on screen display
XTAB 38,'` ; top left corner
XTAB 39,'b ; top right corner
XTAB 40,'c ; bottom left corner
XTAB 41,'a ; bottom right corner
XTAB 42,'h ; top intersect
XTAB 43,'f ; right intersect
XTAB 44,'e ; left intersect
XTAB 45,'g ; bottom intersect
XTAB 46,'| ; horizontal line
XTAB 47,'~ ; vertical line
XTAB 48,'d ; intersection
XTAB 49,'u ; solid block (use monitor mode)
XTAB 50,'v ; slant block
XTAB 51,ESC,31 ; cross-hatch block
XTAB 52,'| ; double line horizontal
XTAB 53,'~ ; double line vertical
; micro concepts extended TCRT calls
XTAB 128,ESC,'f ; start 25th line message
XTAB 129,^H8D ; end 25th line message
XTAB 130,ESC,'!,'1 ; line lock line
XTAB 131,ESC,'!,'2 ; remove linelock entire screen
XTAB 132,ESC,'f,^H8D ; turn off 25th line message
; Collison Data Center SPECIAL functions for Remote Printer Control
XTAB 201,ESC,'c ; Begin Monitored Remote Printing
XTAB 202,ESC,'e ; End Monitored Romote Printing
XTAB 203,ESC,'` ; Begin Non-Monitored Remote Printing
XTAB 204,ESC,'a ; End Non-Monitored Remote Printing
XTAB 205,ESC,'P ; Print remote Screen
