ALP to convert acii to decimal

ALP to convert acii to decimal
org 00h
mov r0,#30h
mov a,@r0  ;note:input only decimal ascii equivalent
subb a,#30h  ;operation: input ascii @ 30h, u'll get result @ 31h
inc r0
mov @r0,a
sjmp $
end