;
; ASCII TO HEXADECIMAL
; IN : ACC = ASCII
; EXIT : ACC = HEXADECIMAL
; CY = 1 ERROR
;
HEXJ:
03E5 FE 30 CP 30H
03E7 D8 RET C
03E8 FE 3A CP 3AH
03EA 38 06 JR C,HEX1
03EC D6 07 SUB 7
03EE FE 40 CP 40H
03F0 30 03 JR NC,HEX2
03F2 E6 0F HEX1: AND 0FH
03F4 C9 RET
03F5 37 HEX2: SCF
03F6 C9 RET
|
HEXJ:
03E5 FE 30 CP 30H
03E7 D8 RET C
03E8 FE 3A CP 3AH
03EA 38 0A JR C,HEX1
03EC D6 07 SUB 7
03EE FE 40 CP 40H
03F0 30 1A JR NC,HEX2
03F2 FE 39 CP 39H
03F4 38 16 JR C,HEX2
03F6 E6 0F HEX1: AND 0FH
03F8 C9 RET
040C HEX2: SCF
040D RET
|