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