	.title	gdate
;
; returns current system date
;

	.dsabl	gbl
	.globl	dmyida

	.mcall	gtim$s

timbuf:	.blkw	8.
int:	.word	0
r5arg:	.word	4,timbuf+4,timbuf+2,timbuf,int

; put response in timbuf+6

	.psect	user$i
gdate::
	tst	(r5)+
	gtim$s	#timbuf
;	sub	#72.,timbuf		; make it years since 1972, not 1900
	mov	r5,-(sp)
	mov	#r5arg,r5
	call	dmyida			; get RT-11 style date
	mov	(sp)+,r5
	mov	int,@(r5)+		; and copy date
	return
	.end
