Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-12 - 43,50547/pltlib/cmisc1/runtim.mac
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)
;		or
;	RTIME = RUNTIM(0)
;
;The result is the runtime in seconds for the specified job, with zero meaning
;this job

	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
	END