Google
 

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