Trailing-Edge
-
PDP-10 Archives
-
decuslib10-04
-
43,50340/sec20.mac
There are no other files named sec20.mac in the archive.
TITLE SECOND - FORTRAN SUBR TO RETURN FLOATING CPUTIME
SEARCH MONSYM
; Returns the CPU time of the current process in
; floating-point seconds.
ENTRY SECOND
SIXBIT /SECOND/
SECOND::MOVEI 1,.HPRNT ;RUNTIME FOR THIS PROCESS
HPTIM
ERJMP [MOVE 1,[-1.0] ;ON ERROR, INSERT A FLOATING-
JRST EXIT] ; POINT -1 AND EXIT.
FLTR 1,1
FDV 1,[100000.0] ;CONVERT TO SECONDS.
EXIT: MOVEM 1,@0(16)
POPJ 17,
END