Google
 

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