умножение неупокованных BCD чисел

[andresan]

<2>	masm
<3>	model	small
<4>	stack	256
<5>	.data
<6>	b	db	6,4,4	;неупакованное число 76
<7>	c	db	2,1,5	;неупакованное число 4
<8>	proizv	db	4 dup (0)
<9>	.code
<10>main:	;точка входа в программу
<11>		mov	ax,@data
<12>		mov	ds,ax
<13>		xor	ax,ax
<14>	len	equ	2	;размерность сомножителя 1
<15>		xor	bx,bx
<16>		xor	si,si
<17>		xor	di,di
<18>		mov	cx,len;в cx длина наибольшего сомножителя 1
<19>	m1:
<20>		mov	al,b[si]
<21>		mul	c
<22>		aam			;коррекция умножения
<23>		adc	al,dl		;учли предыдущий перенос
<24>	aaa	;скорректировали результат сложения с переносом
<25>		mov	dl,ah		; запомнили перенос
<26>		mov	proizv[bx],al
<27>		inc	si
<28>		inc	bx
<29>		loop m1
<30>		mov	proizv[bx],dl	;учли последний перенос
<31>		exit:
<32>		mov	ax,4c00h
<33>		int	21h
<34>	end	main

Помогите осущиствить с помощью этого кода умножение 3 значных чисел.. "методом столбика"

[airyashov]

разве неупакованное 4 не так
c db 0,0,4