Google
 

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