деление упакованных двоично-десятичных чисел

[DIGOREC]

Есть программа для неупакованных.
Надо сделать для упакованных.

.model small
.stack 256
.data
b db 6,1
c db 3,1
subs db 6 dup(0),'$'
.code
main:
mov ax, @data
mov ds, ax
len equ 2
xor ax, ax
xor dx,dx
xor si, si
mov bx,3
mov cx, len
m1:
xor al, al
mov al, b[si]
div c[si]
mov dl, ah
add al, '0'
mov subs[bx],al
inc si
dec bx
loop m1
mov ah,9
mov dx,offset subs
int 21h
exit:
mov ax, 4c00h
int 21h
end main