.title	dmyida
; convert day, month, year in into internal date
; call dmyida( id, im, iyear, date )
;
	.dsabl	gbl

	.psect	user$i
dmyida::
	tst	(r5)+

	clr	r0			; clear summing register

	mov	@(r5)+,r1		; copy day
	swab	r1
	asr	r1
	asr	r1
	asr	r1
	add	r1,r0			; set into r0

	mov	@(r5)+,r1		; copy month
	swab	r1			; put into high byte
	asl	r1
	asl	r1
	add	r1,r0			; set into r0

	mov	@(r5)+,r1		; copy year
	sub	#72.,r1			; make it rt-11 year
	add	r1,r0			; and form date

	mov	r0,@(r5)+		; copy internal date

	return

	.end