F583 LBYTE:
F583 7E LD A,(HL)
F584 FE3A CP '9'+1
F586 3802 JR C,LNUM
F588 D607 SUB 7
F58A LNUM:
F58A D630 SUB '0'
F58C 80 ADD A,B

F58D 12 LD (DE),A
F58E 23 INC HL
F58F 13 INC DE

F590 18D5 JR HBYTE

F592 EXIT:
F592 C9 RET

F593 END