Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - once.c08
There is 1 other file named once.c08 in the archive. Click here to see a list.
 REP 16/11	;08C1
		APRID	T1
		ANDI	T1,17777	;GET ONLY SERIAL NUMBER
		CAIL	T1,10000	;SKIP IF NOT KS10
 WIT
		MOVEI	P1,1
		SETZ	P2,		;BIG BINARY INTEGER
		MOVEI	P4,1		;ONE DIGIT BYTE
		EXTEND	P1,[CVTBDO]	;CONVERT WILL ABORT
		TLNN	P4,200000	;TEST EFFECT ON N
 SUM 112423