There is 1 other file named runtim.mac in the archive. Click here to see a list.
TITLE RUNTIM - Returns the runtime in seconds for the job %1(4)
IF1,< OPDEF RUNTIM [RUNTIM] > ;This allows RUNTIM as label and opcode
;This funtion may be called from FORTRAN-10 by
; RTIME = RUNTIM(JOB)
; RTIME = RUNTIM(0)
;The result is the runtime in seconds for the specified job, with zero meaning
ENTRY RUNTIM ;For library searches
SIXBIT /RUNTIM/ ;For subroutine TRACE.
RUNTIM: MOVE 0,@0(16) ;Get the job number (0 for this one)
RUNTIM 0, ;Get runtime in thousandths of a second
FSC 0,233 ;Convert the runtime to floating point
FDVRI 0,(1000.0) ;Convert milliseconds to seconds
POPJ 17, ;Return with the result in AC 0