;	TITLE	"SSA2HC - Syslib 4.0"
	NAME	('SA2HC')
;=================================================================
;   The Libraries, Version 4, (C) 1989 by Alpha Systems Corp.
;-----------------------------------------------------------------
; Author  : Harold F. Bower
;		Derived from SSA2HC.Z80 Ver 1.1 by Richarc Conn
; Date    : 28 Oct 89
; Version : 1.3
; Module  : SSA2HC
; Abstract: This module contains the routine SA2HC which prints
;	the contents of the A register as two hexidecimal digits.
; Revision:
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; Module Entry Points

	PUBLIC		SA2HC

; External References

	EXT		SOUT, @B2HH, @B2HL

	.Z80
	CSEG
;===============================================================
; NAME - SA2HC
; Entry:  A - Contains a byte to be printed
; Exit : - Nothing returned, the byte is printed
; Uses : - None
; Special Requirements: - None
;===============================================================

SA2HC:	PUSH	AF		; Save A
	CALL	@B2HH		; Convert High Nybble to Hex
	CALL	SOUT		; ..and print
	POP	AF		; Restore A
	PUSH	AF		; Save A
	CALL	@B2HL		; Convert Low nybble to Hex
	CALL	SOUT		; ..and Print
	POP	AF		; Restore A
	RET

	END