;Copyright (C) widzo 1997-2000
;All right reserved
;[e-mail]
;PODPROGRAM ZAMIENIA DWA KODY HEX NA DWA ZNAKI ASCII
;np.: W B=34H '4', ACC=37H '7' TO PO ZAMIANIE ACC=47
;W ACC=04H LUB ACC=07H
;ZAMIENIA KOD HEX ZNAKU ASCII NA DOK�ADNIE TEN ZNAK ACC=0X
;X=0...9,A...F



ORG 0A25H


H_ASCII:
PUSH ACC
ANL A,#11110000B
SWAP A
CJNE A,#03H,LITERA
POP ACC
ANL A,#00001111B
MOV DPTR,#TAB_C
MOVC A,@A+DPTR
RET
LITERA:
POP ACC
ANL A,#00001111B
MOV DPTR,#TAB_L
MOVC A,@A+DPTR
RET

TAB_C DB 00H,01H,02H,03H,04H
DB 05H,06H,07H,08H,09H
DB 0AH
TAB_L DB 00H,0AH,0BH,0CH,0DH
DB 0EH,0FH


END