.TITLE IVTCHA .IDENT /M201/ .PSECT TCHAR,OVR,RW,D ; ; This module defines the terminal characteristics for ; InterTube Video terminals. ; $DEC: .WORD 0 ;BINARY CURSOR ADDRESSING $EOB: .WORD EOB ;END OF BUFFER $CUR: .WORD CUR ;EOL OVERWRITE $OVR: .WORD OVR ;WRAP AROUND SEQUENCE $CLN: .WORD CLN ;Erase to EOL $EEO: .WORD 0 ;Erase to EOP $LFSEQ: .WORD LFS ;SCROLL $REV: .WORD 0 $CLT: .WORD CLT ;CURSOR LEFT,DOWN,UP,RIGHT $CDN: .WORD CDN $CUP: .WORD CUP $CRT: .WORD CRT $ZAP: .WORD ZAP ;ERASE ALL $ELIN: .WORD ELIN $DIR: .WORD DIR ;CURSOR ADDRESSING ; X$SIZE: .WORD 80. Y$SIZE: .WORD 24. ; X$POS: .WORD DIR+4 Y$POS: .WORD DIR+3 ; $XBIAS: .WORD 40 $YBIAS: .WORD 40 ; ; Now comes the screen work area. These are values used ; by the screen module to do its thing. ; OUTCHR:.BLKW 1 ;OUTPUT A CHARACTER OUTBLN:.BLKW 1 ;END OF LINE OR BUFFER CLEANER RTMOST:.BLKW 1 ;INITED TO ZERO AS END OF LIST BUSTRT:.BLKW 1 ;LINE COUNTER, INITED TO ZERO LINPTR:.BLKW 1 ;CHAR COUNTER (P) OF LINE STARTS SVSTRT:.BLKW 1 ;SAVED LINE COUNTER INITFL:.BLKW 1 ;>=0 IMPLIES UNKNOWN SCREEN STATE BUINDX:.BLKW 1 ;CONTAINS LINE INDEX INTO SCREEN MAP CURLIN:.BLKW 1 ;CONTAINS LINE NUMBER OF CURSOR CURCHR:.BLKW 1 ;CONTAINS COLUMN NUMBER OF CURSOR CURABS:.BLKW 1 ;CONTAINS ABSOLUTE MAP POSITION OF CURSOR UNDERC:.BLKW 1 ;CHARACTER POS OF UNDER SCORE PRELIN:.BLKW 1 ;LAST SET LINE TO SCREEN PRECOL:.BLKW 1 ;LAST SET COLUMN TO SCREEN CHCKBL:.BLKW 1 ;FLAG WORD .BLKB 80. ;ROOM FOR CHARS MAPST: .BLKB 80.*24. ;LAST KNOWN SCREEN MAPND: ;END OF SCREEN MAP ; ; Strings... ; EOB: .BYTE 1,'~ CUR: .BYTE 2,'^,BS OVR: .BYTE 1,'# LFS: .BYTE 3,LF,LF,'Z&37 CLT: .BYTE 1,'H&37 CDN: .BYTE 1,LF CUP: .BYTE 1,'Z&37 CRT: .BYTE 1,'F&37 CLN: .BYTE 2,ESC,'K ELIN: .BYTE 3,CR,ESC,'K ZAP: .BYTE 1,'L&37 DIR: .BYTE 4,ESC,'=,0,0 ; .END