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