Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - qsripc.c08
There is 1 other file named qsripc.c08 in the archive. Click here to see a list.
 REP 23/6	;08C1
		CAXN	S1,ERNSP$		;DID WE FAIL FOR NO SUCH PID ???
		JRST	[$COUNT (IPCU)		;COUNT UNRECOVERABLE ERRORS
			 MOVE	S1,G$SAB##+SAB.PD ;GET RECIEVERS PID
			 PUSHJ	P,G$SFAL##	;TELL WORLD USER WENT AWAY...
			 JRST	RSND.5 ]	;AND GO DELETE THE CURRENT ENTRY

		;Here to skip all messages for the same reciever

		MOVE	P1,RS.SAB+SAB.PD(P1)	;NO,,GET THE RECIEVERS PID
 WIT
	;**;[1205] Change at RSND.3+8L. /LWS
		MOVE	P1,RS.SAB+SAB.PD(P1)	;[1205] GET RECIEVER'S PID
		CAXE	S1,ERNSP$		;[1205] DID WE FAIL FOR NO SUCH PID ???
		JRST	RSND.4			;[1205] NO,,CONTINUE
		$COUNT (IPCU)			;YES,,COUNT UNRECOVERABLE ERRORS
		MOVE	S1,P1			;[1205] GET RECIEVER'S PID
		PUSHJ	P,G$SFAL##		;TELL WORLD USER WENT AWAY...
		JRST	RSND.5			;AND GO DELETE THE CURRENT ENTRY

		;Here to skip all messages for the same reciever. PID in P1.

 SUM 73398