.TITLE ELICHA .IDENT /M201/ .PSECT TCHAR,OVR,RW,D ; ; This module defines the terminal characteristics for ; LSI ADM-3A 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 ; Clear to end of line $EEO: .WORD EEO ; Clear to end of screen $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+2 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 1,LF CLT: .BYTE 1,BS CDN: .BYTE 1,LF CUP: .BYTE 1,37 CRT: .BYTE 1,34 ELIN: .BYTE 2,CR,35 ZAP: .BYTE 1,14 DIR: .BYTE 3,36,0,0 CLN: .BYTE 1,35 EEO: .BYTE 1,13 ; .END