Google
 

Trailing-Edge - PDP-10 Archives - red405a2 - uetp/lib/chklbp.mac
There is 1 other file named chklbp.mac in the archive. Click here to see a list.
	SEARCH MONSYM
	SEARCH MACSYM
	T1=1
	T2=2
	T3=3
START:	MOVEI T1,^D10000
	DISMS
	MOVEI T1,6
	MOVEI T2,ARG
	NODE
	MOVE T3,ARG
	SKIPN T3
	JRST [TMSG <?NO LOOPBACK PORT
>
		HALTF]
	TLNE T3,400000
	HALTF
	TMSG <?LOOPBACK PORT NOT RUNNING
>
	HALTF
ARG:	BLOCK 1
	END START