Вывод на экран

data segment para public 'data'; сегмент данных
message db  '‚Write number,$'
tabl    db  48 dup (0),0,1,2,3,4,5,6,7,8,9, 8 dup (0), 
        db  0ah,0bh,0ch,0dh,0eh,0fh,27 dup (0)
        db  0ah,0bh,0ch,0dh,0eh,0fh, 153 dup (0)
data ends
stk segment stack
       db 256 dup('?');сегмент стека*
stk ends
code segment para public 'code';начало сегмента кода
main proc   ;начало процедуры main
    mov ax,data ;физический адрес сегмента данных в регистр ax
    mov ds,ax   ;ax записываем в ds
    lea bx,tabl ;загрузка адреса строки байт в регистр bx
    mov ah,9
    mov dx,offset message
    int 21h ;вывести приглашение к вводу
    xor ax,ax   ;очистить регистр ax
    mov ah,1h   ;значение 1h в регистр ah
    int 21h ;вводим первую цифру в al
    xlat        ;перекодировка первого введенного символа в al
    mov dl,al
    shl dl,4    ;сдвиг dl влево для освобождения места для младшей цифры
    int 21h ;ввод второго символа в al
    xlat    ;перекодировка второго введеного символа в al
    add al,dl   ;складываем для получения результата*
        mov ah,02h      
        mov dl,26       
        int 21h         
        mov cx,8        
        mov ah,02h      
    int 21h         
    mov ax,4c00h    ;пересылка 4c00h в регистр ax
    int 21h ;завершение программы
endp  main      ;конец процедуры main
ends  code  ;Є®*Ґж ᥣ¬Ґ*в* Є®¤*
end   main      ;конец программы с точкой входа main

       add al,dl   ;результат в AL, а что с ним будут делать дальше?
       mov ah,02h; выводим символ с кодом 26=1A hex соответствует символу "стрелка вправо"             
       mov dl,26               
       int 21h                 
       mov cx,8  ; а это зачем?              
       mov ah,02h; снова выводим на экран "стрелочку"              
       int 21h                 
       mov ax,4c00h        ;пересылка 4c00h в регистр ax
       int 21h     ;завершение программы

data segment para public 'data';сегмент данных
 tabl db 48 dup('I'),0,1,2,3,4,5,6,7,8,9, 7 dup ('I')
      db 0ah,0bh,0ch,0dh,0eh,0fh, 26 dup ('I')
      db 0ah,0bh,0ch,0dh,0eh,0fh, 152 dup ('I') 
mes db 10,"Write 2 (16) numbers ",10,"$"
data ends
stk segment stack
       db 256 dup('?');сегмент стека
stk ends
code segment para public 'code';начало сегмента кода
main proc           ;начало процедуры main
b1:       assume cs:code,ds:data,ss:stk
    mov ax,data     ;инициализация регистра ds
    mov ds,ax       ;через регистр ax
    lea bx,tabl     ;загрузить относительный адрес псевдо-таблицы кодов
    mov ah,09h      ;пересылаем в ah номер функции - вывод строки на экран
    lea dx,mes      ;загрузить относительный адрес строки
    int 21h         ;вызов прерывания с номером 21h(возврат управления операционной системе)
    xor ax,ax       ;очищаем регистр ах
    mov ah,1h       ;пересылаем в ah номер функции - ввод символа в консоли
    int 21h         ;вызов прерывания с номером 21h(возврат управления операционной системе)
    xlat            ;трансляция байта номер ах из псевдо-таблицы кодов в регистр ах
    cmp al,49h      ;сравнить (al) с 49h (проверить, что код символа РАВЕН?? 49h) 
    je b1           ;перейти на метку b1 если al=49 наверное
    mov dl,al       ;сохраняем в dl промежуточный результат
    shl dl,4        ;сдвигом на четыре бита влево освобождаем место в dl для следующей цифры
    int 21h         ;вызов прерывания с номером 21h(возврат управления операционной системе)
    xlat            ;трансляция байта номер ах из псевдо-таблицы кодов в регистр ах
    cmp al,49h      ;сравнить (al) с 49h (проверить, что код символа РАВЕН?? 49h)   
    je b1           ;перейти на метку b1 если al=49h наверное
    mov cx,8        ; 
    add dl,al       ;сложение: (dl)=(dl)+(al)
    
a2:     ;определение метки а2
    shr dl,1        ;сдвигом на один бит вправо ....незнаю зачем((
    jc a1           ;
    push 30h        ;заносит в стек 
    jmp a3          ;безусловный переход...
a1:     ;определение метки а1
    push 31h        ;заносит в стек
a3:     ;определение метки а3
    loop a2         ;
    mov ah,02h      ;функция DOS вывода на экран
    mov dl,26       ;код символа "->"
    int 21h         ;вызов прерывания с номером 21h(возврат управления операционной системе)
    mov cx,8        ;заносит в сх значение 8, счетчик цикла
    mov ah,02h      ;функция DOS вывода на экран
a4:     ;определение метки а4  
    pop dx          ;извлечение значения регистра из стека
    int 21h         ;вызов прерывания с номером 21h(возврат управления операционной системе)
    loop a4         ;
    mov ah,4ch      ;
    int 21h         ;функция DOS завершения программы 
endp main           ;конец процедуры main
ends code           ;конец сегмента кода
end main            ;конец программы с точкой входа main

shr dl,1                ;сдвигом на один бит вправо ....незнаю зачем((
        jc a1                   ;

        mov ax,data     ;физический адрес сегмента данных в регистр ax
        mov     ds,ax   ;ax записываем в ds
        lea     bx,tabl ;загрузка адреса строки байт в регистр bx
        mov     ah,9
        mov     dx,offset message
        int     21h     ;вывести приглашение к вводу
        mov     ah,1h   ;значение 1h в регистр ah
        int     21h     ;вводим первую цифру в al
        xlat            ;перекодировка первого введенного символа в al
        mov     dl,al
        shl     dl,4    ;сдвиг dl влево для освобождения места для младшей цифры
        int     21h     ;ввод второго символа в al
        xlat    ;перекодировка второго введеного символа в al
        add     dl,al   ;складываем для получения результата*
        mov cx,8; наше число содержит 8 нулей или единиц        
a0:   shl dl,1; сдвигаем по одному биту
        mov al,'0'; в AL символ нуля
        adc al,0; если был перенос во время сдвига из DL, тогда в AL символ единицы
        int 27h; выводим содержимое AL на экран
        loop a0; повторяем 8 раз
        mov ah,0
        int 16h;ждем нажатия на любую клавишу
        mov ah,4ch              ;
        int 21h                 ;функция DOS завершения программы