; Library:	ZSLIB
; Version:	2.1
; Module:	ZSMDAT3
; Version:	1.1
; Author:	Carson Wilson
; Date:		February 2, 1990
; Changes:	No longer tests for invalid date/time.

; Version:	1.0
; Author:	Carson Wilson
; Date:		January 6, 1990
; Purpose:	Store date in short form.
;

	PUBLIC	MDAT3

	EXTRN	MOUT			; ZSLIB
	EXTRN	MA2HC			; SYSLIB

;
; MDAT3 - Store short form of date, e.g., "03/02/88" to memory at DE.
;
;	Entry:	<HL> - points to date as BCD yy mm dd.
;		<DE> - points to memory (8 bytes).
;	Exit:	- <DE> points to byte after output.
;	Uses:	- <DE>
;
MDAT3:
	push	hl
	push	af

	inc	hl	

; Store month

	call	MM2HC
	call	SLASH

; Store day

	inc	hl		; Day
	call	MM2HC
	call	SLASH

; Store year

	dec	hl
	dec	hl		; Year
	call	MM2HC

	pop	af
	pop	hl
	ret
	
; ------------------------------------
;
; Subroutines
;
SLASH
	ld	a,'/'
	jp	MOUT


; MM2HC - Store value at (HL) as 2 hex chars.

MM2HC:
	ld	a,(hl)
	jp	MA2HC		; Display & return

	end

; End ZSMDAT3.Z80