LXI H,0840
MVI A, 06
MOV M, A
LXI D,0850
MVI A, 06
STAX D
MOV C, A
MOV M, A
MOV B, M

CALL ProcSub

ProcSub:
INX H
INX D
LDAX D
CALL ProcConvert
SUB M
MOV M,A
DCR B
JNZ ProcSub
HLT

ProcConvert:

ANI F0

RRC
RRC
RRC
RRC
MOV C, A
RLC
RLC
RLC

ADD C
ADD C

MOV C, A
LDAX D
ANI 0F
ADD C
OUT 05

;////////
MVI A, 00
ADD M

ANI F0

RRC
RRC
RRC
RRC
MOV C, A
RLC
RLC
RLC

ADD C
ADD C

MOV C, A
MVI A, 00
ADD M
ANI 0F
ADD C
OUT 05


CALL ProcSub

HLT