Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0013/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
; Modified to PUSHJ/POPJ calling convention 11 Oct 1980
; by Paul T. Robinson, Wesleyan Univ. for DECUS conversion to DEC-20

SEC:	PUSH P,1
	push	p,2
	push	p,3
	push	p,4
;	CALL [SIXBIT/TIMER/]	;TICKS IN 0
;	IDIVI ^D60	;60 TICKS PER SEC
	seto	2,	;current time
	setz	4,	;defaults
	odcnv		;current date/time
	hrrz	0,4	;get seconds in ac0
	FSC 233	;FLOAT
	pop	p,4
	pop	p,3
	pop	p,2
	POP P,1
	popj	p,
	END