Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - filio.c13
There are no other files named filio.c13 in the archive.
 REP 7/99	;13C1
	IFN FTKI10,<
		CONI	PAG,INTODS##	;TELL THE WORLD WE OWN IT
	>
	IFN FTKL10,<
		APRID	INTODS##
	>>
 WIT
	IFN FTKI10,<CONI  PAG,INTODS##>
	IFN FTKL10,<APRID INTODS##>
	> ;END IFN FTMP
 REP 16/99	;13C2
	REPEAT NLSTAL,<
		IMULI	P,1		;ALLOW OTHER PROCESSORS AT THE MEMORY
	>
 WIT
		SKIPL	INTRDS##	;DON'T TRY IF NOT POSSIBLE TO GET IT
		JRST	.-1		; SINCE IT SUCKS UP RMW MEMORY CYCLES
 SUM 171629