Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-01 - 43,50053/sec.mac
There are 2 other files named sec.mac in the archive. Click here to see a list.
	TITLE SEC   REAL RESULT OF NUMBER OF SECONDS SINCE MIDNIGHT
	SUBTTL V.001 J. BURCHFIEL MAY 18, 1969
	ENTRY SEC
	INTERN SEC
	P=17

SEC:	Z
	PUSH P,1
	CALL [SIXBIT/TIMER/]	;TICKS IN 0
	IDIVI ^D60	;60 TICKS PER SEC
	FSC 233	;FLOAT
	POP P,1
	JRA 16,1(16)
	END