; Library: ZSLIB ; Version: 1.0 ; Module: ZSPAHC ; Version: 1.0 ; Author: Carson Wilson ; Date: August 9, 1988 ; Purpose: Print A as up to 2 hex characters with leading spaces. ; PUBLIC PAHC EXTRN COUT,@B2HH,@B2HL ; SYSLIB4 ; ; PAHC - Print A as up to 2 hex characters with leading spaces. ; PAHC: push af push af call @B2HH ; High of A to hex char. in A cp '0' jr nz,PAHC1 ; Print digit if not zero ld a,' ' ; ..else print space PAHC1: call COUT ; Digit or space pop af call @B2HL ; Low of A to hex char. in A call COUT ; Print & return pop af ret end ; End ZSPAHC.Z80