Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-bb
-
qsripc.c12
There is 1 other file named qsripc.c12 in the archive. Click here to see a list.
REP 23/6 ;12C1
;**;[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.
WIT
CAXN S1,ERNSP$ ;DID WE FAIL FOR NO SUCH PID ???
JRST [$COUNT (IPCU) ;COUNT UNRECOVERABLE ERRORS
MOVE S1,RS.SAB+SAB.PD(P1) ;[1236] 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
SUM 119800