perm filename CPTIME.MAC[SIM,SYS] blob sn#460016 filedate 1979-07-20 generic text, type T, neo UTF8
COMMENT * SIMULA specification;
OPTIONS(/E:QUICK,cptime);
REAL PROCEDURE cptime;
COMMENT Gives accumulated cpu time (run time) since program start.
;

!*;! MACRO-10 code !*;!

	TITLE	cptime
	ENTRY	cptime
	SUBTTL	SIMULA utility, Lars Enderin Dec 1975

;! Copyright 1975 by the Swedish Defence Research Institute.
;! Copying is allowed.

	sall
	search	simmac,simmcr,simrpa
	macinit

cptime:	PROC
	LOWADR
	SETZ
	RUNTIM
	SUB	YRUNTM(XLOW)
	FLTR
	FDVRI	(1.0E3)
	ST	(XTAC)
	RETURN
	EPROC
	LIT
	END;