PREFIX OCTA2ASCII:
data        IS $0
i           IS $1
cursor      IS $2
test        IS $3
digit       IS $4
char        IS $5
:OCTA2ASCII SET i,16
            LDA cursor,:MSG:DEBUG:VAL
            ADD cursor,cursor,7
1H          DIV $0,$0,#10
            GET digit,:rR
            CMP test,digit,9
            BP  test,2F
            ADD char,digit,#30
            JMP 3F
2H          ADD char,digit,#37
3H          STB char,cursor,i
            SUB i,i,1
            BP  i,1B
            POP 0,0
            PREFIX :