Умножение двух больших (~6 разрядов) десятичных чисел. TASM

.model small ; Модель памяти
.stack 256 ; Установка размера стека
 
 .data ; Начало сегмента данных программы
mes0   db  13,10,'Chislo(1):  $'
mes1   db  13,10,'Chislo(2):  $'
mes2   db  13,10,'   Rezult:  $'
buff   db  12 dup('0')       
dig2   db  0      
 
 .code ; Начало сегмента кода
start:
      mov ax,@data   ; Пересылаем адрес сегмента данных в регистр AX
      mov ds,ax      ; Установка регистра DS на сегмент данных
      mov es,ax   ; Установка регистра ES на сегмент данных
      lea   dx,mes0   ; После этого в регистре dx окажется адрес, по которому хранится строка mes0
      call  message      ;Код который вызывается командой call называется процедурой. Процедура написания строки  
      xor   bx,bx   ;в этом регистре будет накапливаться число    устанавливает бит результата в 1, если бит источника отличается от бита приемника.    
      mov   cx,10   ; cx=10        
@@1:  xor   ax,ax   ;вводим без эхо   
      int   16h               ;ожидание клавиши
      cmp   al,13    ;если ENTER -@@2
      je    @@2               
      cmp   al,'0'          ;все что не цифры игнорируем
      jb    @@1             ;все что не цифры игнорируем
      cmp   al,'9'            ;все что не цифры игнорируем
      ja    @@1               ;все что не цифры игнорируем
      int   29h               ;выводим цифру
      push  ax      ;ПОМЕЩАЕТ В СТЕК значение регистра AX         
      inc   bx   ;bx=+1            
      loop  @@1        ;цикл     
 
@@2:  mov   cx,bx      ; cx=накопленное число 
      lea   di,buff+11        
      std      ; Флаг DF=1              
save: pop   ax ; берем из стека ax       
      stosb ;Команда STOS пересылает содержимое регистра AX в  слово в памяти, адресуемое индексным регистром (E)DI в сегменте ES. В качестве индексного регистра при адресации операнда-назначения используется либо регистр DI            
      loop  save ;цикл             
;-------------------------------------------------------------
 
      lea   dx,mes1     ; После этого в регистре dx окажется адрес, по которому хранится строка mes1         
      call  message      ;Код который вызывается командой call называется процедурой. Процедура написания строки       
  xor   bx,bx   ;в этом регистре будет накапливаться число    устанавливает бит результата в 1, если бит источника отличается от бита приемника.    
      mov   cx,10   ; cx=10  
      @@3:  xor   ax,ax   ;вводим без эхо   
      int   16h               ;ожидание клавиши
      cmp   al,13    ;если ENTER -@@2        
      je    @@5       
      cmp   al,'0'    ;все что не цифры игнорируем        
      jb    @@3          ;все что не цифры игнорируем    
      cmp   al,'9'          ;все что не цифры игнорируем 
      ja    @@3               ;все что не цифры игнорируем
      int   29h             ;выводим цифру   
      push  ax      ;ПОМЕЩАЕТ В СТЕК значение регистра AX        
     ; and   al,0fh    ;преобразовываем в число       
      ;mov   [dig2],al    ; dig2=второму числу     
      inc   bx   ;bx=+1            
      loop  @@3        ;цикл 
       
@@5:  mov   cx,bx      ; cx=накопленное число 
      lea   di,buff+11        
      std      ; Флаг DF=1 
      savee: pop   ax ; берем из стека ax   
    
      
      
      
    !!!! ; stosb ;Команда STOS пересылает содержимое регистра AX в  слово в памяти, адресуемое индексным регистром (E)DI в сегменте ES. В качестве индексного регистра при адресации операнда-назначения используется либо регистр DI            
     loop  savee ;цикл  
       
and   al,0fh    ;преобразовываем в число       
      mov   [dig2],al    ; dig2=второму числу    
 ;-------------------------------------------------------------
 
      lea   dx,mes2           ; После этого в регистре dx окажется адрес, по которому хранится строка mes2      
      call  message           ;Код который вызывается командой call называется процедурой. Процедура написания строки  
      std        ; Флаг DF=1                
      mov   cx,12     ;cx=12       
      lea   si,buff+11       
      xor   bx,bx    ;в этом регистре будет накапливаться число          
      add  bl,[dig2]    ; bl = второе число   
      
mix:  lodsb  ;  команда lodsb загружает байт адресованный регистром SI из сегмента данных, и уменьшает SI на 1, если была использована команда STD (установить флаг направления).                
 
      and   ax,0fh    ;преобразовываем в число        
      xor   dx,dx         ;умножаем ax и bl   
      mul   bl            ;   
      aam   ;Команда AAM делит содержимое регистра AL на 10 (шест.0A) и записывает частное в регистр AH,  а остаток в AL. 
      add   al,bh     ; al=al+bh        
      cmp   al,9   ;если код символа больше, чем "9",         
      jbe   @@4           ; то  @@4    
      sub   al,0Ah   ;вычесть без переноса.   Функция DOS 0Ah — Считать строку символов из STDIN в буфер      
      inc   ah  ;ah=+1                  
@@4:  push  ax     ;ПОМЕЩАЕТ В СТЕК значение регистра AX                
      mov   bh,ah       
       
      loop  mix  ; цикл             
;-------------------------------------------------------------
 
      mov   cx,12     ;cx=12        
prn:  pop   ax ; берем из стека ax                 
      or    al,30h    ; Команда выполняет поразрядно логическую операцию ИЛИ (дизъюнкцию) над битами операндов операнд_1 и операнд_2. Результат записывается на место операнд_1.  код чисел начинается с 30h, то есть 30h - 0, значит 35h - 5, то есть надо добавить 30h      
      int   29h         ;выводим цифру          
      loop  prn      
      
;-------------------------------------------------------------
mov ax,4C00h; DOS функция выхода из программы
    int 21h; Выход из программы                      
;-------------------------------------------------------------
 
message:                      
      mov   ah,9   ;      Процедура написания строки      
      int   21h               
    ret
   
 mov ax, 4ch
  int 21h 
end start

; Считаем Var_A := Var_A * Var_B :
mov ax, Var_A       ; A_lo
mov bx, Var_A+2 ; A_me
mov cx, Var_B       ; B_lo
mov si, Var_B+2 ; B_me
push    ax
mul cx          ; A_lo * B_lo
mov Var_A, ax
mov di, dx
pop ax
mul si          ; A_lo * B_me
xor bp, bp
add di, ax
adc bp, dx
mov ax, bx
mul cx          ; A_me * B_lo
add ax, di
adc bp, dx
mov Var_A+2, ax
mov ax, bx
mul si          ; A_me * B_me
add ax, bp
mov Var_A+4, ax

; Сосчитается 561234h * BC789Ah:
Var_A       dw  1234h, 56h , 0  ;Порядок слов :
Var_B       dw  789Ah, 0BCh, 0  ;младшее, среднее, старшее