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