; Library:	ZSLIB
; Version:	2.1
; Module:	ZSMTIMM2
; Version:	1.1
; Author:	Carson Wilson
; Date:		February 2, 1990
; Changes:	Shortened code.

; Version:	1.0
; Author:	Carson Wilson
; Date:		January 6, 1990
; Purpose:	Store military time with padded hours.
;

	PUBLIC	MTIMM2

	EXTRN	MA2HC				; SYSLIB
	EXTRN	MOUT, MHL4DC, MAHC		; ZSLIB

;
; MTIMM2 - Store military time as "hh:mm" or " h:mm"
;	   Store relative time as "+nnnn".
;
;	Entry:	<HL> - points to date as BCD yy mm dd hh mm
;		<DE> - points to memory (5 bytes).
;	Exit:	<DE> - points to byte after output.
;	Uses:	<DE>
;
MTIMM2:
	push	hl
	push	af

	inc	hl
	inc	hl
	inc	hl		; Point to time
	bit	7,(hl)		; Test relative
	jr	z,REALTM

	ld	a,'+'		; Show relative time
	call	MOUT
;push	de
;ld	d,(hl)
;inc	hl
;ld	e,(hl)
;ex	de,hl
;pop	de

	ld	a,(hl)
	inc	hl
	ld	l,(hl)
	ld	h,a

	res	7,h		; Remove flag
	call	MHL4DC		; Store relative time
	jr	EXIT
REALTM:
	ld	a,(hl)
	call	MAHC		; Store padded hours

	ld	a,':'
	call	MOUT
	inc	hl
	ld	a,(hl)
	call	MA2HC		; Store minutes
EXIT:	pop	af
	pop	hl
	ret

	end

; End ZSMTIMM2.Z80