Программа перевода из 14-й в 6-ю СС

.model small
.stack 100h
.data
 
txt db '‚ведиве зисло в 14ой сисвеме сзисленип',0dh,0ah,'$'     ; 0dh-символ возврава каретки 0ah-перееод на след строку
txt2 db 0dh,0ah,'‚веденное зисло в 6-й сисвеме:',0dh,0ah,'$'
res dw 0
 
.code
start:
mov ax,@data
mov ds,ax
xor ax,ax
 
mov dx, offset txt ;передаем в dx сврокг txt
mov ah,9   ;передаем в AH дгнкжио влвода на нкран из DX 
int 21h
 
call read   ;сзивлваем зисло
sub al,30h   ;влзиваем  непосредсввенное зназение из пампви регисвра
mov bl,36; заносим в регисвр BL зназение 
mul bl    ;ax=ax*bl
add res,ax
 
call read   ;сзивлваем зисло
sub al,30h   ;влзиваем непосредсввенное зназение из пампви регисвра
mov bl,6; заносим в регисвр bl основание сисвемл сзисленип
mul bl    ;ax=ax*bl
add res,ax
 
call read   ;сзивлваем зисло
sub al,30h   ;влзиваем непосредсввенное зназение из пампви регисвра
mov ah,0h
add res,ax
 
mov dx, offset txt2 ;передаем в dx сврокг txt2
mov ah,9   ;передаем в AH дгнкжио влвода на нкран из DX 
int 21h
 
mov bx,res   ;деспвизное зисло в bx
 
mov ax,bx
mov bx,0h
mov dl,0eh   ;деливелм
mov cx,0h  ;колизесвво помейений в свек
 
del:       ;делим зисло на 14 , помейап освавок в свек
div dl;
mov bl,ah  ; (в al - засвное ah - освавок)
push bx    ;освавок ов деленип в свек
mov ah,0;
inc cx;
cmp ax,0;
jne del    ;следгйап жидра
 
mov ah,2   ;влвод зисла
outp:
pop dx;
cmp dl,10d;
jna next;
add dl,7h;
 
next:
cmp dl,10;
jne next1;
mov dx, 41h;
jmp print
next1:
cmp dl,11;
jne next2;
mov dx, 42h;
jmp print
next2:
cmp dl,12;
jne next3;
mov dx, 43h;
jmp print
next3:
cmp dl,13;
jne skip;
mov dx, 44h;
jmp print
skip:
add dl,30h;
print:
int 21h;
 
loop outp; колизесвво жиклов сооввевсввгев зназенио в регисвре cx
jmp exit;
 
read:
mov ah,8 ;сзивлваем сврокг в AL 
int 21h
sub al,30h ;влзиваем из введенного символа код 0 длп полгзенип зисла
cmp al,5 ;
ja read ;если болмие 5 во снова сзивлваем зисло
 
add al,30h ;снова добвлпем символ 0 длп преврайенип в сврокг
mov dl,al;
mov ah,2;
int 21h;
ret;
 
exit:
mov ax,4c00h;
int 21h;
end start

.model  small; выбираем модель памяти
.stack  100h; определяем размер стека / 256 байт
.data
text_1 db 'Введите число в 14-ой системе счисления:',0dh,0ah,'$';
text_2 db 0dh,0ah,'Введенное число в 6-ой системе:',0dh,0ah,'$'
result dw 0
.code
start:
mov ax,@data; инициализируем сегмент данных
mov ds, ax; в DS заносим адрес начала сегмента данных
;__________ Вывод строки  ________________________________________________/
mov dx, offset text_1; передаем в dx адрес начала строки text_1
mov ah, 9; функция вывода на экран записи dx  
int 21h
 
;__________ Выполняем вычисления и переводим числа в 10-ую сист. исч. ______/
mov ah, 01h; ввод с клавиатуры
int 21h
sub al, 30h; вычитаем 0; 
mov bl, 196; возводим число 14 в квадрат
mul bl; 
add result, ax
        
mov ah, 01h; ввод с клавиатуры
int 21h
sub al, 30h     
mov bl, 14         
mul bl      
add result, ax
        
mov ah, 01h; ввод с клавиатуры
int 21h
sub al, 30h     
mov bl, 1          
mul bl       
add result, ax
;__________ Вывод строки  ________________________________________________/
mov dx, offset text_2; передаем в dx адрес начала строки text_2
mov ah, 9; функция вывода на экран записи dx      
int 21h
 
mov bx, result; заносим десятичное число в регистр bx
 
mov ax, bx
    mov bx, 0000
    mov dl, 6h; общий делитель [6] / основание сист. исч.
    mov cx, 0000; количество помещений в стек [?]
    
;__________ Переводим наше число из 10-ой в 6-ую сист. исч.  ________________/
delenie:            
div dl; деление без учёта знака
mov bl, ah
push bx; остаток от деления помещаем в стек
mov ah, 0
inc cx
cmp ax, 0
jne delenie; следущая цифра / переход если не равно
 
mov ah, 02h; вывод числа на экран
ou:
pop dx
cmp dl, 9d
jbe next; переход если ниже или равно
add dl, 7h
next:
add dl, 30h
int 21h
loop ou; переход по счётчику
 
 
mov ax, 4c00h; пауза и выход
int 21h
end start