Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-05 - 43,50337/23/clockt.mac
There is 1 other file named clockt.mac in the archive. Click here to see a list.
COMMENT * SIMULA specification;
OPTIONS(/E:QUICK,clocktime);
REAL PROCEDURE clocktime;
COMMENT Gives time of day since midnight in seconds;

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

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

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

	sall
	search	simmac,simmcr,simrpa
	macinit

clocktime:
	PROC
	MSTIME
	FLTR
	FDVRI	(1.0E3)
	ST	(XTAC)
	RETURN
	EPROC
	LIT
	END;