преобразование строкового значения в числовое (assembler)

[MISHA13]

Мне нужно преобразовать строковое значение в числовое, на Assembler для i8086, вместо числа выводит букву ы, вот мой код:

include macro.lib
Data Segment
A DB 100,?,100 dup ('$')
B DB 0
p DB 1
g db 10
aM DB 'Введите строку А$'
Data ends

SSTEK Segment stack
DB 128 dup (?)
SSTEK ends

Code Segment
Assume DS:Data,SS:SSTEK,CS:code

Begin:
Mov AX,Data
Mov DS,AX
Mov ES,AX

crlf
Message aM
crlf
Mov AH,0Ah
Lea DX,A
int 21h
crlf

Mov Cl,A+1

STD
Lea SI,A+2
Met1:
LodsB
CMP CX,0
jge Met2
jmp kon
Met2:
CMP AL,48
jge Met3
jmp Met5
Met3:
CMP AL,57
jle Met4
jmp Met5
Met4:
Sub AL,48
mul p
Add B,AL
Mov AX,0
Mov AL,p
mul g
Mov p,AL
Met5:
Sub CX,1
jmp Met1

kon:
Mov Al,B
Print_number

key_$2bin
Mov AX,4c00h
int 21h
Code ends
End Begin

[Min]

ну вот простенькая процедура. на входе в al должно быть нужное число... она запихнет его в строку number.
number db 3 dup (' '),'$'

Convert proc
mov bh,10
mov si,2
loop1:
div bh
add ah,'0'
mov number[si],ah
dec si
xor ah,ah
test ax,ax
jnz loop1
ret
endp

[MISHA13]

Спасибо большое