;
; SYSLIB Module Name:  SMHL4H
; Author:  Richard Conn
; SYSLIB Version Number:  2.3
; Module Version Number:  1.0
; Module Entry Points:
;       MHL4HC
; Module External References:
;       MA2HC
;
;
;       MHL4HC -- Store HL as 4 Hex Characters in memory; on input, DE pts
; to 4-byte buffer and HL=value; on return, DE pts to byte after buffer
;       No Registers are to be affected.
;

       EXT     MA2HC   ; STORE A AS 2 HEX CHARACTERS

MHL4HC::
       PUSH    PSW     ; SAVE A
       MOV     A,H     ; PRINT H
       CALL    MA2HC
       MOV     A,L     ; PRINT L
       CALL    MA2HC
       POP     PSW     ; RESTORE A
       RET

       END