Google
 

Trailing-Edge - PDP-10 Archives - BB-W661A-BM_1983 - tools/idle.mac
There is 1 other file named idle.mac in the archive. Click here to see a list.
T1=	1
AP=	16
SP=	17

	SEARCH	MONSYM

IDLE::	PUSH	SP,T1			;Save temporary register
	MOVE	T1,0(AP)		;Get FORTRAN parameter entry
	MOVE	T1,0(T1)		;Get the idle interval
	IMULI	T1,^D1000		;Calculate the interval in milliseconds
	DISMS				;Dismiss process
	POP	SP,T1			;Restore register
	POPJ	SP,0			;Return
	END