Trailing-Edge
-
PDP-10 Archives
-
decuslib20-01
-
decus/20-0013/dte.mac
There are 2 other files named dte.mac in the archive. Click here to see a list.
TITLE DTE REAL RESULT OF DATE IN FORM MMDDYY.
ENTRY DTE
INTERN DTE
P=17
; Modified to PUSHJ/POPJ calling convention 11 Oct 1980
; by Paul T. Robinson, Wesleyan Univ. for DECUS conversion to DEC-20
; Also changed UUO to JSYS
DTE: PUSH P,0
PUSH P,1
PUSH P,2
PUSH P,3
PUSH P,4
; CALL [SIXBIT/DATE/]
; IDIVI ^D372 ;YEAR-1964 IN 0
; IDIVI 1,^D31 ;MONTH-1 IN 1,DAY-1 IN 2
seto 2, ;want current date/time
setz 4, ;all defaults
odcnv% ;get time
hrlz 0,2 ;put year in 0
idivi 0,^d100 ;get two-digit year
move 0,1 ; in 0
hrrz 1,2 ;month-1 in 1
hlrz 2,3 ;day-1 in 2
IMULI 1,^D10000
IMULI 2,^D100
ADD 0,1
ADD 0,2
; ADDI 0,^D10164 ;RAPACK AS MMDDYY
addi 0,^d10100 ;add one to month, day
FSC 0,233 ;FLOAT
POP P,4
POP P,3
POP P,2
POP P,1
POP P,0
popj p,
END