Trailing-Edge
-
PDP-10 Archives
-
bb-kl11i-bm_tops20_v7_0_atpch_1-22
-
autopatch/server.c18
There are 2 other files named server.c18 in the archive. Click here to see a list.
INS 1/1 ;14C1
; *** Edit 10 to SERVER.MAC by MELOHN on 3-Mar-86 (TCO 6.1.1576)
; Implement terminal pause on space
REP 3/4 ;14C2
VEDIT==^D8
WIT
VEDIT==^D10
REP 14/12 ;14C3
OOBCHA: BLOCK ^D32
WIT
OOBCHA: BLOCK ^D33
DEL 19/12 ;14C4
INS 53/12 ;14C5
OOB32
INS 56/12 ;14C6
REP 88/12 ;14C7
BLOCK .CHDEL-^D31-1
WIT
POINT 7,[ASCIZ/Space /]
BLOCK .CHDEL-^D32-1
INS 3/20 ;14C8
RDTIW: BLOCK 1 ;Terminal interrupt immediate mask
DEL 13/21 ;14C9
INPCHR: BLOCK 1 ;First input char from input count message
REP 4/34 ;14C10
BLT T1,OOBCHA+^D31
MOVEI T1,OOBDEL
MOVEM T1,DELTAB
MOVSI T1,-^D32
WIT
BLT T1,OOBCHA+^D32
MOVEI T1,OOBDEL
MOVEM T1,DELTAB
MOVSI T1,-^D33
REP 34/46 ;14C11
MOVEI Q1,^D31 ;Loop index
WIT
MOVEI Q1,^D32 ;Loop index
INS 33/49 ;14C12
MOVX T4,<1B<.TICSP>> ;Interrupt code for space
MOVEI T1,-5 ;Job wide terminal interrupt mask
RTIW% ;Read it
MOVEM T2,RDTIW ;Save it for later
ANDCAM T4,T2 ;Clear the interrupt on space if set
STIW% ;set it.
REP 7/63 ;14C13
CAIL T1,^D32 ;Is it a control character ?
WIT
CAILE T1,^D32 ;Is it a control character ?
REP 24/65 ;14C14
MOVEM T2,INPCHR ;store it away for use in the READ TEXTI%
WIT
; BKJFN% ;backup the pointer
REP 28/65 ;14C15
SFMOD% ;Restore mode.
WIT
SFMOD% ;Restore mode.
INS 34/67 ;14C16
OOB32: MOVEI OOBAC1,^D32
JRST PREOOB
REP 11/71 ;14C17
CAIG T1,^D31 ; and so are control characters
WIT
CAIG T1,^D32 ; and so are control characters
REP 9/72 ;14C18
CAILE T1,.CHESC ;Legal out of band character ?
CAIN T1,.CHDEL
TRNA
RET ;No. Leave now.
WIT
CAIG T1,.CHESC ;Legal out of band character ?
IFSKP.
CAIE T1,.CHSPC
CAIN T1,.CHDEL
TRNA
RET ;No. Leave now.
ENDIF.
INS 29/72 ;14C19
CAIN T1,.CHSPC ;Is the character SPACE
MOVX T4,1B<.TICSP> ;Yes. Get its terminal interrupt mask
INS 30/73 ;14C20
CAIN T1,.CHSPC ;Is the character space?
MOVEI T1,.TICSP ;Yes. Get its terminal code.
INS 18/74 ;14C21
CAIN T1,.CHSPC ;Is the character space?
MOVEI T1,.TICSP ; get its terminal code.
DEL 17/86 ;14C22
; SKIPN T2,INPCHR ;Was a character read for input-count message?
; IFSKP. ;Yes,
; DPB T2,T1 ;put this character into the data storage area
; SETZM INPCHR ;and zero its old location.
; ENDIF.
INS 41/109 ;14C23
MOVEI T1,-5 ;Set job-wide terminal interrupt word
MOVE T2,RDTIW ;Restore it from before the read
STIW%
SUM 218638