Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - ipcser.c11
There is 1 other file named ipcser.c11 in the archive. Click here to see a list.
 INS 39/18	;11C1
		AOS	.PDIPC##(W)	;INC COUNT
 DEL 45/18	;11C2

		AOS	.PDIPC##(W)	;INC COUNT
 REP 16/21	;11C3
		SUBI	M,2
 WIT
		TLNN	P1,IP.IAR	;IS RECEIVER'S PID INDIRECTED?
		JRST	IPCFQ0		;NO
		MOVE	T3,M		;PRESERVE M
		HRR	M,T1		;PUT PID ADDRESS IN M
		PUSHJ	P,GETWRD##	;GET THE PID
		  JRST	ERRAC		;ADDRESS CHECK
		MOVE	M,T3		;RESTORE M
	IPCFQ0:	SUBI	M,2
 REP 10/49	;11C4
	SNDFIN::MOVEI	T2,LEN.DE	;ASSUME UNINTERESTING DEVICE
 WIT
	SNDFIN::TDZA	T1,T1		;NO FLAG FOR DEASSIGN
	SNDVSS::MOVSI	T1,400000	;GET FLAG INDICATING VOL SWITCH
		MOVEI	T2,LEN.DE	;ASSUME UNINTERESTING DEVICE
 INS 28/49	;11C5
		HLL	T4,T1		;GET FLAG SO MDA KNOWS WHAT TO DO WITH STATS
 SUM 37565