Trailing-Edge
-
PDP-10 Archives
-
bb-jr93d-bb
-
7,6/ap017/router.c17
There is 1 other file named router.c17 in the archive. Click here to see a list.
REP 40/73 ;17C1
RTRCC1: MOVE T1,RC ; Return circuit block address as callback ID
WIT
RTRCC1: LOAD T1,LIDEV,+RC.LID(RC) ; Get circuit/line type
CAIE T1,LD.DDP ; Is it a DDP?
JRST RTRCC2 ; No, treat normally
CALL R2KINI ; Yes, default DDPs to STATE ON
JFCL ; Ho hum
RTRCC2: MOVE T1,RC ; Return circuit block address as callback ID
REP 18/81 ;17C2
CALLRET RTELDS] ;REPORT THE CIRCUIT DOWN - SOFTWARE FAULT EVENT
WIT
CALL RTELDS ;REPORT THE CIRCUIT DOWN - SOFTWARE FAULT EVENT
CALLRET CIRFAI] ;HIT THE LINE WITH A BIGGER SLEDGEHAMMER
SUM 214650