Перевод ASCII строки в число

[Айтишнег]

Не могу сделать перевод 10-чного числа введённого с клавиатуры из ASCII строки в число.

Код:

ASCIIDecToBin proc
	push ebp
	mov ebp,esp
	push esi
	push ecx
	mov esi,[ebp+8]
	xor eax,eax
	xor ecx,ecx
m2:  
	mov cl, byte ptr [esi]
	cmp cl, 0Dh
	je exit
	cmp cl, 39h
	jbe m1
	invoke StdOut,$CTA0("First number must be in range 1...255")
	invoke ExitProcess,0
m1:			
	sub cl,30h
	or al,cl
	shl eax,4
	inc esi
	jmp m2
exit:
	shr eax,4
	pop ecx
	pop esi
	pop ebp
ex:	
	ret 4
	ASCIIDecToBin EndP

Входящие параметры : буфер со строкой
Каждый байт с кодом символа перевожу в число. Далее перемещаю его в первые 4 бита ЕАХ.
Сдвигаю ЕАХ на 4 бита влево для ноговго разряда.
Убираю лишний сдвиг после последнего розряда.
Только потом понял что полученное распазнаётся в 16-ричной системе.
Дайте совет.

[Вад]

Вместо сдвига влево делать умножение на 10. Ну, и делать это сначала, а не в конце: проще умножить 0 на 10, чем потом делить результат на 10, избавляясь от лишнего "сдвига".

[Basurman]

Сдвиг влево - умножение на степень числа 2.
Сдвиг влево на 4 - умножение на 16 (2^4), т.е основание системы 16.

[RXL]

Offtopic:

Извиняюсь - немного поворчу: ну и когда очередной новичок будет поиском пользоваться - каждый раз надо рассказывать заново...

Поставлю в угол.

[Алексей++]

это всё потому, что он "айтишнег"

[alliance]

Код:

format pe
entry start
section '.data' data readable writeable

bufer db '12345678',0;
section '.code' code readable executable
convert_char:
	sub al,'0';
	cmp al,10;
	jb .done;
	add al,'0';
	and al,0x5f;
	sub al,'A'-10;
	and al,0x0f;
	.done:
	ret;
ASCIToNum:
	push esi;
	xor eax,eax;
	xor ebx,ebx;
	cmp byte [esi],'-';
	jnz next;
	inc esi;
next:
	lodsb;
	or al,al;
	jz .done;
	call convert_char;

	imul ebx,ecx;
	add ebx,eax;
	jmp short next;
.done:
	xchg ebx,eax;
	pop esi;
	cmp byte [esi],'-';
	jz negative;
	ret;
negative:
	neg eax;
	ret;
start:
	mov esi,bufer;
	mov ecx,10;
	call ASCIToNum;