Trailing-Edge
-
PDP-10 Archives
-
bb-kl11c-bm_tops20_v6_1_atpch1_16
-
autopatch/server.c12
There are 2 other files named server.c12 in the archive. Click here to see a list.
REP 1/1 ;12C1
; UPD ID= 152, SNARK:<6.1.UTILITIES>SERVER.MAC.25, 10-Sep-85 15:44:44 by PALMIERI
;Fix bug at INPREC, commented out instruction causes undesireable skip
WIT
; *** Edit 8 to SERVER.MAC by MELOHN on 15-Nov-85 (TCO 6.1.1557)
; Add code to PSIINI to check for ^C capability and exit if we dont have it.
; Also, add code to INPMVP to strip out CRLFs in TEXTI ^R buffers.
; *** Edit 7 to SERVER.MAC by MELOHN on 15-Nov-85 (TCO 838319)
; Fix SET TER /NOECHO on VMS - replace STPAR with SFMOD in CHWECH
; *** Edit 6 to SERVER.MAC by MELOHN on 15-Nov-85 (TCO 6.1.1555)
; Make CTERM response to ^O faster
REP 3/4 ;12C2
VEDIT==^D5
WIT
VEDIT==^D8
REP 8/46 ;12C3
MOVX T2,OBSPC
WIT
;**;[6] Change 1 line at CTMDEF+2 WCM 15-NOV-85
MOVX T2,<OBSPC!OBDSC> ;[6] By default, special and discard OOB
REP 21/64 ;12C4
STPAR% ;(T1,T2) it
WIT
;**;[7] Change 1 line at CHWECH+4 WCM 15-NOV-85
SFMOD% ;[7] (T1,T2) it
REP 49/68 ;12C5
CALL OUPSTP ;Yes. Set the output state to "discard".
MOVEI T4,1 ; set "discard" in the out of band message.
WIT
;**[6] Change 8 lines at PREOB1+30 WCM 18-NOV-85
SKIPN OUPDS1 ;[6]Is the host discarding output now?
IFSKP.
CALL OUPSTP ;[6] No. Set the output state to "discard".
MOVEI T4,1 ;[6] set "discard" in the out of band message.
ELSE.
CALL OUPGO ;[6] Yes, stop doing it.
SETZ T4, ;[6] Clear "discard" in out of band message.
ENDIF.
REP 13/77 ;12C6
MOVEM T1,OUPDS1 ;Set requested state to do not discard
WIT
;**;[6] Remove 1 line at OUPENT+8 WCM 18-NOV-85
INS 16/82 ;12C7
;**;[6] Add 2 lines at OUPTOG+12 WCM 18-NOV-85
MOVEI T1,.PRIIN ;[6] clear current output buffer
CFOBF% ;[6]
INS 31/82 ;12C8
;**;[6] Add 2 lines at OUPSTP+5 WCM 15-NOV-85
MOVEI T1,.PRIIN ;[6] clear current output buffer
CFOBF% ;[6]
INS 14/87 ;12C9
;**;[8] Add 3 lines at INPMVP+8 WCM 15-NOV-85
CAIE Q1,.CHCRT ;[8] How about CR?
CAIN Q1,.CHLFD ;[8] Or LF?
AOSA T4 ;[8] Yes, dont add to buffer, adjust count
REP 3/95 ;12C10
; CAIN INPSTA,.INORD ;If input state = ordinary, TEXTI% will restart
WIT
CAIN INPSTA,.INORD ;If input state = ordinary, TEXTI% will restart
INS 7/116 ;12C11
;**;[8] Add 9 lines at PSIINI+2 WCM 15-NOV-85
RPCAP% ;[8] Read process's capabilities
TXNE T3,SC%CTC ;[8] do we have control-C capability?
IFSKP.
TMSG <
SET HOST (CTERM-SERVER) requires Control-C capability>
RESET% ;[8] Reset the world
HALTF% ;[8] Stop, and don't allow reeentry
JRST .-1
ENDIF.
SUM 92666