F676 TXTTAB EQU 0F676H
F55E BUF EQU 0F55EH
F7F6 DAC EQU 0F7F6H

F55E ORG BUF

F55E 2A76F6 LD HL,(TXTTAB)
F561 2B DEC HL
F562 ED5BF8F7 LD DE,(DAC+2)
F566 D5 PUSH DE ;NOP(00)

F567 HBYTE:
F567 7E LD A,(HL)
F568 FE58 CP 'X'
F56A 2826 JR Z,EXIT

F56C B7 OR A
F56D 2006 JR NZ,OK
F56F 010800 LD BC,8
F572 09 ADD HL,BC
F573 18F2 JR HBYTE
F575 OK:
F575 FE3A CP '9'+1
F577 3802 JR C,HNUM
F579 D607 SUB 7
F57B HNUM:
F57B D630 SUB '0'
F57D 07 RLCA
F57E 07 RLCA
F57F 07 RLCA
F580 07 RLCA
F581 47 LD B,A
F582 23 INC HL