;********************
;* WY50 *
;********************
;Terminal driver communications area
WY350: WORD TD$NEW!TD$TCH ; terminal attributes
BR JMPINP ; input routine
RTN ; output routine
BR ECHO ; echo routine
BR JMPCRT ; crt control
BR JMPINI ; INIT routine
WORD 4. ; impure area
ROWCNT:
BYTE 24. ; number of rows
COLCNT:
BYTE 80. ; number of columns
LWORD TDVFLG ; terminal flags
BR JMPTCH
JMPINP: JMP INP ; go handle input characters
JMPCRT: JMP CRT ; go handle TCRT codes
JMPINI: JMP INI ; go init terminal
JMPTCH: JMP TCH ; go handle TRMCHR call
PAGE
;********************
;* ECHO *
;********************
;Special echo processing is performed here
;Rubouts will backspace and erase the previous character
;Control-U will erase the entire line by backspacing and erasing
ECHO: CMPB D1,#25 ; control-U
BEQ CTRLU
CMPB D1,#177 ; rubout
BNE ECHX
;Rubouts are handled by the old backspace-and-erase game
;Special handling must be performed if we are rubbing out a tab
;D6 contains the character being rubbed out
RUBOUT: CMPB D6,#11 ; was it a tab?
BEQ RBTB ; yes -
CMPB D6,#40 ; no, is it a control char. ? [109]
BLO RBX ; yes - [109][110]
;Rubout was of a printable character - queue up the backspace sequence
KRTG: MOV #3,D3 ; set character count
LEA A6,ERUB ; set buffer address
MOV A6,D1 ; into D1
TRMBFQ ; queue the backspace sequence
RBX: RTN ; [109]
ERUB: BYTE 10,40,10,0
;Rubout was of a tab - we must calculate how big the tab was and backup over it
RBTB: CLR D3 ; preclear D3
MOVW T.POB(A5),D3 ; set beginning position count
MOV T.ICC(A5),D2 ; set input character count
MOV T.IBF(A5),A6 ; set input buffer base
KRTS: DEC D2 ; done with scan?
BMI KRTQ ; yes -
MOVB (A6)+,D1 ; scan forward calculating position
CMPB D1,#11 ; tab -
BEQ KRTT
CMPB D1,#15 ; carriage return -
BEQ KRTC
CMPB D1,#33 ; escape -
BEQ KRTI
CMPB D1,#40 ; control-char -
BLO KRTS
CMPB D1,#172
BHI KRTS
KRTI: INC D3 ; increment position for one character
BR KRTS
KRTT: ADD #10,D3 ; adjust position for tab
AND #^C7,D3
BR KRTS
KRTC: CLR D3 ; clear position for cr
BR KRTS
KRTQ: COM D3 ; calculate necessary backspaces
AND #7,D3
INC D3
MOV #10,D1 ; set immediate backspace character
TRMBFQ ; queue the backspaces
ECHX: RTN
;Echo a control-U by erasing the entire line
CTRLU: TST D6 ; no action if nothing to erase
BEQ CTUX
CLR D3 ; preclear D3
MOVW T.POO(A5),D3 ; calculate backspace number to erase line
SUBW T.POB(A5),D3
BEQ ECHX
CMP D3,T.ILS(A5) ; insure not greater than terminal width
BLOS CLUA
MOV T.ILS(A5),D3
CLUA: MOV #10,D1 ; queue up backspaces
TRMBFQ
ASL D1,#2 ; queue up spaces
TRMBFQ
MOV #10,D1 ; queue up backspaces
TRMBFQ
CTUX: RTN
PAGE
;********************
;* INP *
;********************
;Input character processing subroutine
;Return a negative flag to indicate possible multi-byte key codes
;Detect a negative flag which indicates the multi-byte processing return
INP: BMI INMLT ; skip if multi-byte processing
CMPB D1,#1 ; function code?
BEQ INPM ; yes - could be multi-byte sequence
CMPB D1,#33 ; escape?
BEQ INPM ; yes - could be multi-byte sequence
LCC #0 ; no - normal processing
RTN
INPM: LCC #PS.N ; possible multi-byte - return N flag
RTN
;Multi-byte processing is done here
;This occurs when TRMSER has accumulated all bytes of a multi-byte keystroke
;D0 contains the character count and A0 indexes the data string
;A5 indexes the terminal definition block and must be preserved
;The translated character must be returned in D1 for storage
;This routine may destroy only A0,A3,A6,D0,D6,D7
INMLT: MOVB (A0)+,D1 ; get the first character
DECB D0 ; no translation if single character
BEQ INMX
CMPB D1,#1 ; function sequences start with SOH
BEQ INMF ; function sequence -
;Escape sequences are translated directly by setting bit 7 on
;This will cause them to map to 240-377
MOVB (A0)+,D1 ; get the second character
INMG: ORB #200,D1 ; set bit 7 on
BIT #T$XLT,@A5 ; are we doing translation?
BEQ INMNOT ; no - check for another translation
INMX: LCC #0 ; reset the flags
INMX2: RTN
;Function codes require additional translation so that they become 200-237
INMF: MOVB (A0)+,D1 ; get the second character
SUBB #'@,D1 ; offset so that F1 becomes 0
BR INMG ; and go finish up
;Come here if program is not doing translation and we must do our own
INMNOT: LEA A6,XLTTBL ; index the translation table
10$: MOVB (A6)+,D7 ; get character
BEQ INMX2 ; end of table - ignore the character
CMPB D1,D7 ; is it in the table?
BEQ 20$ ; yes -
INC A6 ; no - bypass translation
BR 10$ ; loop for more -
;Come here to translate the character
20$: MOVB @A6,D1 ; translate the character
BR INMX
page
;********************
;* INI *
;********************
;Handle initialization of the terminal
INI: MOV T.IDV(A5),A6 ; index the interface driver [106]
CMP -(A6),#<[PSE]_16.>+[UDO]; is it the pseudo interface driver? [106]
BEQ 5$ ; yes - no initialization wanted [106]
CMP QFREE,#12. ; are there at least 12 queue blocks? [106]
BLO 5$ ; no - skip the initialization [106]
SAVE D1,D2 ; save registers
MOV #MSG80E-MSG80,D3 ; set to 80 columns
LEA A6,MSG80
MOV A6,D1
TRMBFQ
SLEEP #2500. ; adjust time
MOV #MSGNE-MSGNOR,D3 ; set to normal screen
LEA A6,MSGNOR
MOV A6,D1
TRMBFQ
SLEEP #2500. ; adjust time
MOV #MSG1E-MSG1B,D3 ;LENGTH OF STRING
LEA A6,MSG1B ;ADDRESS OF STRING
MOV A6,D1
TRMBFQ ;OUTPUT STRING
REST D1,D2 ; restore registers
5$: MOV T.IMP(A5),A6 ; Get impure area
MOVW #80.,@A6 ; Initialize to 80 columns
RTN ; return to caller [106]
MSG80:
BYTE ESC,'`,':,0 ; 80 column mode
MSG80E:
MSGNOR:
BYTE ESC,'x,'0,0 ; normal screen
MSGNE:
MSG1B:
BYTE ESC,'* ; clear screen
BYTE ESC,'A,'2,'8 ; top line left
BYTE ESC,'A,'3,'4 ; top line right
BYTE ESC,'F,'W,'Y,'5,'0,'I,CTRL$M
BYTE ESC,'A,'1,'p ; bottom message line
BYTE ESC,'z,'(,CTRL$M ; clear unshifted message line
BYTE ESC,'z,'),CTRL$M ; clear shifted message line
MSG1E:
EVEN
page
;********************
;* TCH *
;********************
;Handle TRMCHR call
;A1 points to argument block, A2 indexes this TDV, D2 contains flags
;Can only use A1,A2,A6,D1,D2,D6,D7
TCH: MOV TD.FLG(A2),TC.FLG(A1) ; transfer flags
CLR D6 ; preclear register
MOVB ROWCNT(A2),D6 ; Get row count
MOVW D6,TC.ROW(A1) ; transfer row count
MOV JOBCUR,A6 ; index job
MOV JOBTRM(A6),A6 ; index terminal control area
MOV T.IMP(A6),A6 ; index impure area
MOVW @A6,D6 ; get column count
TSTW D6 ; if zero, assume 80
BNE 30$
MOVW #80.,D6
30$: MOVW D6,TC.COL(A1) ; transfer column count
CMPW D6,#132. ; 132 or 80 columns?
BEQ 40$
MOVW #45.,TC.TSL(A1) ; set length of top status line [108]
MOVW #77.,TC.SSL(A1) ; set length of shifted status line [108]
MOVW #77.,TC.USL(A1) ; set length of unshifted status line [108]
BR 50$
40$:
MOVW #99.,TC.TSL(A1) ; set length of top status line [108]
MOVW #129.,TC.SSL(A1) ; set length of shifted status line [108]
MOVW #129.,TC.USL(A1) ; set length of unshifted status line [108]
50$:
CLRW TC.CLR(A1) ; no colors
MOV D2,D7 ; get TRMCHR argument flags [108]
AND #TC$BMP,D7 ; does user want bitmap [108]
BEQ 20$ ; no - skip transfer code [108]
; user has requested bitmap -- return to him
PUSH A1 ; save argument block index [108]
ADDW #TC.BMP,A1 ; index bitmap return area [108]
LEA A6,TCHBMP ; index our bitmap [108]
MOV #<256./16.>-1,D7 ; get amount to transfer [108]
10$: MOVW (A6)+,(A1)+ ; transfer to user
DBF D7,10$ ; loop until done
POP A1 ; restore register
20$: RTN ; return to TRMCHR monitor routine
PAGE
;********************
;* CRT *
;********************
;Special CRT control processing
;D1 contains the control code for x,y positioning or special commands
;If D1 is positive we have screen positioning (row in hi byte, col in lo byte)
;If D1 is negative we have the special command in the low byte
CRT: TSTW D1 ; is it cursor position?
JMI CRTS ; no -
CMPB D1,#94. ; Greater than column 94?
BHI POS132 ; Yes, use the expanded positioner.
TTYI ; send position command
BYTE ^O233,^O75,0,0
ADDW #^O17437,D1 ; add position offsets
RORW D1,#8. ; send row first
CMPB D1,#'7 ; test against row 24 code
BLOS 1$
MOVB #'7,D1 ; if larger than row 24 make it 24
1$:
TTY
ROLW D1,#8. ; send column second
TTY
RTN
;
; 132 column cursor positioning
; Cursor positioning - D1 contains x,y coordinates
;
POS132:
PUSH D2
TTYI ; output sequence ESC a rr R ccc C
BYTE ^O233,'a,0,0 ; send ESC a & force even
MOV D1,D2 ; save row and col
CLR D1 ; clear D1
RORW D2,#8. ; get row to low byte
MOVB D2,D1 ; get byte to D1
CMPB D1,#24. ; test against row 24
BLOS 1$
MOVB #24.,D1 ; if larger than row 24 make it 24
1$:
DCVT 0,OT$TRM ; output ASCII to terminal
TYPE R
CLR D1 ; clear D1
ROLW D2,#8. ; get row to low byte
MOVB D2,D1 ; get byte to D1
DCVT 0,OT$TRM ; output ASCII to terminal
TYPE C
POP D2 ; restore D2
RTN
;Special commands - D1 contains the command code in the low byte
CRTS: CMPW D1,#177400 ; make sure it's -1
JLO CRTCOL
CMPB D1,#80. ; set to wide format?
BEQ CRTWID ; yes - special handling
CMPB D1,#81. ; set to normal format?
BEQ CRTNOR ; yes - special handling
;[103]
; Special handling of the printer port calls...
;
CMPB D1,#82. ; Turn on the printer port ?
BEQ PRTON ; Yes.
CMPB D1,#83. ; No. Turn port off ?
BEQ PRTOFF ; Yes.
;
;
AND #377,D1 ; strip the high byte
BNE CRTU ; and branch unless clear screen
TTYI ; special case for clear screen
BYTE 33,'*,0
EVEN
CRTZ: RTN
;Set terminal to wide format
CRTWID: TTYI
BYTE 33,'`,';,0
EVEN
MOV #132.,D1 ; get new width
WIDSET: MOV T.IMP(A5),A6 ; index impure area
MOVW D1,@A6 ; store the new width
SLEEP #2500. ; Give the terminal a while to adjust
RTN
;Set terminal to normal format
CRTNOR: TTYI
BYTE 33,'`,':,0
EVEN
MOV #80.,D1 ; get the new width
BR WIDSET ; go store it
;[103]
;
; Code to handle the printer port on/off feature.
; We must sleep after we either turn it on or off.
;
PRTON: TTYI
BYTE ^H12,0 ; Printer port on command. [103]
EVEN
PRTDUN: SLEEP #5000. ; pause while command completes. [103]
RTN
; Turn printer port off and wait the same as when turning it on.
;
PRTOFF:
SLEEP #10000.
TTYI
BYTE ^H14,0 ; Printer port off command. [103]
EVEN ;
SLEEP #10000.
RTN
;Command processing per director tables
CRTU: PUSH A2
ASL D1 ; times 2 (word offset)
CMP D1,#CRCB-CRCA ; check for valid code
BHI CRTX ; and bypass if bad
LEA A2,CRCA-2 ; index the table
ADD D1,A2 ; add command code
MOVW @A2,D1 ; pick up data field offset
ADD D1,A2 ; make absolute data address
TTYL @A2 ; print the data field
CRTX: POP A2 ; restore A2
RTN
CRTCOL: RTN ; don't handle this
DEFINE OFFTAB A1,A2,A3,A4,A5,A6,A7,A8,A9,A10
IF NB, A1, WORD A1-.
IF NB, A2, WORD A2-.
IF NB, A3, WORD A3-.
IF NB, A4, WORD A4-.
IF NB, A5, WORD A5-.
IF NB, A6, WORD A6-.
IF NB, A7, WORD A7-.
IF NB, A8, WORD A8-.
IF NB, A9, WORD A9-.
IF NB, A10, WORD A10-.
ENDM
