; Library:	ZSLIB
; Version:	1.0
; Module:	ZSPTIMM2
; Version:	1.0
; Author:	Carson Wilson
; Date:		August 9, 1988
; Purpose:	Print military time with padded hours.
;

	PUBLIC	PTIMM2

	EXTRN	COUT,PA2HC			; SYSLIB
	EXTRN	PHL4DC,PAHC			; ZSLIB

;
; PTIMM2 - Print military time as "hh:mm" or " h:mm"
;	   Print relative time as "+nnnn".
;
;	Entry:	<HL> - points to date as BCD yy mm dd hh mm
;	Exit:	Time printed
;	Uses:	- None
;
PTIMM2:
	push	hl
	push	de
	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	COUT
	ld	d,(hl)
	inc	hl
	ld	e,(hl)
	ex	de,hl
	res	7,h		; Remove flag
	call	PHL4DC		; Print relative time
	jr	EXIT
REALTM:
	ld	a,(hl)
	call	PAHC		; Print padded hours

	ld	a,':'
	call	COUT
	inc	hl
	ld	a,(hl)
	call	PA2HC		; Print minutes
EXIT:
	pop	af
	pop	de
	pop	hl
	ret

	end

; End ZSPTIMM2.Z80