; Library:	ZSLIB
; Version:	1.0
; Module:	ZSPAFHC
; Version:	1.0
; Author:	Carson Wilson
; Date:		August 9, 1988
; Purpose:	Print A as up to 2 hex characters.
;

	PUBLIC	PAFHC

	EXTRN	COUT,@B2HH,@B2HL		; SYSLIB4  

;
; PAFHC - Print A as up to 2 hex characters
;
;	Entry:	<A> - Contains number to be printed
;	Exit:	Number printed
;	Uses:	- None
;
PAFHC:
	push	af
	push	af
	call	@B2HH		; High of A to hex char. in A
	cp	'0'
	call	nz,COUT		; Print digit if not zero
	pop	af
	call	@B2HL		; Low of A to hex char. in A
	call	COUT		; Print & return
	pop	af
	ret

	end

; End ZSPAFHC.Z80