Написать программу перевода числа из десятичного представления в шестнадцатеричное

;
.model tiny
.code
.286 ; 
org 100h ; 
start:
mov dx,offset message1
mov ah,9
int 21h ; 
mov dx,offset buffer
mov ah,0Ah
int 21h ; 
mov dx,offset crlf
mov ah,9
int 21h ; 
 
xor di,di ; 
xor ах,ах ; 
mov cl,blength
xor ch,ch
xor bx,bx
mov si,cx ; 
mov cl,10 ; 
asc2hex:
mov bl,byte ptr bcontents[di]
sub bl,'0' ;
jb asc_error ; 
cmp bl,9 ; 
ja asc_error ;
mul cx ; 
add ax,bx ; 
inc di ; 
cmp di,si ; 
jb asc2hex ;
push ax ; 
mov ah,9
mov dx,offset message2
int 21h
pop ax
;
push ax
xchg ah,al ; 
call print_al ; 
pop ax ; 
call print_al ; 
ret ; 
asc_error:
mov dx,offset err_msg
mov ah,9
int 21h ; 
ret ;
; 
 
print_al:
mov dh,al
and dh,0Fh ;
shr al,4 ; 
call print_nibble ; 
mov al,dh ; 
print_nibble: ; 
cmp al,10 ; 
sbb al,69h ;
das ; 
mov dl,al ; 
mov ah,2 ; 
int 21h ; 
ret ; 
messagel db "Десятичное число: $"
message2 db "Шестнадцатеричное число: $"
err_msg db "Ошибка ввода"
crlf db 0Dh,0Ah,'$'
buffer db 6 ; 
blength db ? ; 
bcontents: ; 
end start

.model tiny
.code
.286
org 100h
start:
mov dx,offset message1
mov ah,9
int 21h
mov dx,offset buffer
mov ah,0Ah
int 21h
mov dx,offset crlf
mov ah,9
int 21h
 
xor di,di 
xor ax,ax
mov cl,blength
xor ch,ch
xor bx,bx
mov si,cx 
mov cl,10 
asc2hex:
mov bl,byte ptr bcontents[di]
sub bl,'0' 
jb asc_error 
cmp bl,9 
ja asc_error 
mul cx 
add ax,bx 
inc di 
cmp di,si 
jb asc2hex 
push ax 
mov ah,9
mov dx,offset message2
int 21h
pop ax
 
push ax
xchg ah,al 
call print_al 
pop ax 
call print_al 
ret 
asc_error:
mov dx,offset err_msg
mov ah,9
int 21h 
ret 
 
print_al:
mov dh,al
and dh,0Fh 
shr al,4 
call print_nibble 
mov al,dh 
print_nibble: 
cmp al,10 
sbb al,69h 
das 
mov dl,al 
mov ah,2 
int 21h 
ret
message1 db "Десятичное число: $"
message2 db "Шестнадцатеричное число: $"
err_msg db "Ошибка ввода"
crlf db 0Dh,0Ah,'$'
buffer db 6
blength db ?
bcontents:
end start

ideal
model tiny
codeseg
org 100h
start:
mov ax,0b800h-0a000h
xor bx,bx
call pech_big
call dec_hex
call pech_normal
ret         
;РАСПЕЧАТКА ЧИСЛА НА ЭКРАНЕ ****************************************************
;ВСПОМОГАТЕЛЬНАЯ ПРОЦЕДУРА РАСПЕЧАТКИ ОДНОБАЙТОВОГО ЧИСЛА, В AX - ЧИСЛО
proc pech_small             
label1p:       ;метка, начало цикла
div [div_simb_s]   ;делим с остатком на основание системы счисления (DB), пока частное не 0
add ah,48          ;остаток должен распечатываться, как символ, поэтому добавляем код нуля
mov [result+bx],ah ;помещаем в массив, начиная с последнего символа
inc bx         ;увеличиваем на 1 указатель текущей пустой ячейки массива
xor ah,ah      ;обнуляем остаток, т.к. он уже в массиве
test al,al         ;продолжаем циклическое деление, пока рез-тат не равен 0 
jnz label1p
ret        ;выход из процедуры
endp pech_small
;ПРОЦЕДУРА РАСПЕЧАТКИ НА ЭКРАНЕ
proc pech_normal
label2p:           ;метка, к которой возвращаемся в цикле
dec bx         ;т.к. указатель массива на 1 больше, чем нужно (см. предыдущую процедуру), то
           ;перед распечаткой его уменьшаем
mov al,[result+bx] ;в AL - символы, начиная с последнего в массиве (первого в числе)
int 29h        ;воспользуемся 29h-тым прерыванием (недокументировано)
test bx,bx     ;пока указатель не на 0, продолжаем цикл
jnz label2p
ret        ;выход в основную программу 
endp pech_normal
;ПРОЦЕДУРА РАСПЕЧАТКИ ДВУБАЙТОВОГО ЧИСЛА В ЛЮБОЙ СИСТЕМЕ ОТСЧрТА (ДО 10), В AX - ЧИСЛО
proc pech_big
xor dx,dx      ;в DX - остаток, поэтому обнуляем его вначале
label3p:       ;метка-начало цикла
div [div_simb_b]   ;поделим на основание системы счисления (DW, чтобы остаток был в DX)
push ax        ;сохраним AX, т.к. он используется вспомогательной процедурой
mov ax,dx      ;в AX - остаток, распечатаем сначала его
call pech_small    ;вызов вспомогательной процедуры
pop ax         ;восстановим AX
xor dx,dx      ;обнулим остаток (как в первой процедуре)
test ax,ax     ;если рез-тат не 0, то продолжить цикл
jnz label3p
ret            ;выход в основную программу
endp pech_big
;ПРОЦЕДУРА ПРЕОБРАЗОВАНИЯ МАССИВА В СЛУЧАЕ С ШЕСТНАДЦАТИРИЧНОЙ СИСТЕМОЙ СЧИСЛЕНИЯ
proc dec_hex
xor bp,bp      ;BP - новый указатель на массив, а BX - старый указатель 
label1d:           ;начало цикла
cmp [result+bp],58 ;сравниваем цифру рез-тата с числом большим 10
jnc label2d    ;если больше, то переходим на новую метку
inc bp             ;иначе оставляем без изменения, но увеличиваем указатель
cmp bp,6       
jnz label1d    ;если указатель всс ещс указывает на массив, то продолжаем
ret        ;выход в том случае, когда старшая цифра меньше 10
label2d:       ;сюда переходим, если цифра оказалась больше 10
add [result+bp],7  ;преобразоввываем ес в букву
inc bp         ;аналогично предыдущему случаю
cmp bp,6
jnz label1d        ;если указатель всс ещс в пределах массива, то продолжаем
ret        ;выход в том случае, когда старшая цифра больше 10
endp dec_hex    
;данные       
result db 5 dup (?);результат - число в символах, начиная с конца 
;основания должны быть одинаковыми!!!
div_simb_s db 10   ;основание системы счисления для pech_small
div_simb_b dw 16   ;то же самое для pech_big
end start