; Library: ZSLIB ; Version: 2.0 ; Module: ZSMAFHC ; Version: 1.0 ; Author: Carson Wilson ; Date: January 6, 1990 ; Purpose: Store A as up to 2 hex characters to memory at DE. ; PUBLIC MAFHC EXTRN MOUT ; ZSLIB EXTRN @B2HH,@B2HL ; SYSLIB4 ; ; MAFHC - Store A as up to 2 hex characters to memory at DE. ; ; Entry: - Contains number to be stored ; - points to memory area (2 bytes max.) ; Exit: - points to byte after output. ; Uses: . ; MAFHC: push af push af call @B2HH ; High of A to hex char. in A cp '0' call nz,MOUT ; Store digit if not zero pop af call @B2HL ; Low of A to hex char. in A call MOUT ; Store & return pop af ret end ; End ZSMAFHC.Z80