device SX28L, turbo, STACKX_OPTIONX
mov NextChar, #$47
:loop
mov temp, NextChar
clc
mov w, #'F'
mov w, temp - w
jc :Bad
mov w, #'0'-1
mov w, temp - w
jnc :Bad
mov w, #'@'+1
sub temp, w
mov w, #('@' - ':') + 1
add temp, w
jc :BadRestore
mov w, #(':' - '0')
sb temp.7
mov w, #('A' - '@')+1
add temp, w
jmp :Good
:BadRestore
mov w, #':'-1
add temp, w
:Bad
nop
jmp :Next
:Good
nop
:Next
break
djnz NextChar, :Loop