Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-05 - decus/20-0152/sleep.mac
There are 5 other files named sleep.mac in the archive. Click here to see a list.
	TITLE SLEEP

	FT10==1
	FT20==0

IFN FT10<
	SEARCH UUOSYM
>
IFN FT20<
	SEARCH MONSYM
>
	ENTRY SLEEP

SLEEP:	MOVE	1,@(16)		;GET TIME TO SLEEP
IFN FT10<
	SLEEP	1,		;SLEEP
>
IFN FT20<
	THIBR
	JFCL
>
	POPJ	17,0
	END