Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11f-bm_tops20_v7_0_atpch1_19 - 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