home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
ZSYS
/
SIMTEL20
/
SYSLIB
/
SLIB3.LBR
/
SPA2HC.Z80
< prev
next >
Wrap
Text File
|
2000-06-30
|
768b
|
36 lines
;
; SYSLIB Module Name: SPA2HC
; Author: Richard Conn
; SYSLIB Version Number: 3.6
; Module Version Number: 1.2
public pa2hc
;
; PA2HC --
; PRINT REG A AS 2 HEXADECIMAL CHARACTERS ON CON:
;
EXT COUT
PA2HC:
PUSH AF ; SAVE A
PUSH AF
RRCA ; EXCHANGE NYBBLES
RRCA
RRCA
RRCA
CALL PAHC ; PRINT LOW-ORDER NYBBLE AS HEX
POP AF ; GET A
CALL PAHC ; PRINT LOW-ORDER NYBBLE AS HEX
POP AF ; RESTORE A
RET
PAHC: AND 0FH ; MASK FOR LOW NYBBLE
CP 10 ; LETTER OR DIGIT?
JP C,PADIG ; DIGIT IF CARRY
ADD 'A'-10 ; CONVERT TO 'A'-'F'
JP COUT ; PRINT
PADIG: ADD '0' ; CONVERT TO '0'-'9'
JP COUT ; PRINT
END