Trailing-Edge
-
PDP-10 Archives
-
bb-jr93e-bb
-
7,6/ap018/router.c18
There is 1 other file named router.c18 in the archive. Click here to see a list.
REP 40/73 ;18C1
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
WIT
RTRCC1: MOVE T1,RC ; Return circuit block address as callback ID
REP 18/81 ;18C2
CALL RTELDS ;REPORT THE CIRCUIT DOWN - SOFTWARE FAULT EVENT
CALLRET CIRFAI] ;HIT THE LINE WITH A BIGGER SLEDGEHAMMER
WIT
CALLRET RTELDS] ;REPORT THE CIRCUIT DOWN - SOFTWARE FAULT EVENT
INS 58/89 ;18C3
CALL DNG2BY ; Skip priority and area
JSP T1,RTEMFE ; None, bad message
CALL DNG2BY ; Get the Hello Timer
JSP T1,RTEMFE ; None, bad message
IMULI T1,%RTB3M*^D1000 ; Calculate the Listen Timer
STOR T1,AJNHT,(AJ) ;
SUM 116874