Ввести два числа, одно в двоичной форме, другое в шестнадцатеричной, сравнить их и вывести результат

use16
org 0x100
 
mov dx, privet
mov ah, 9 ; BuBog CTpoKu
int 21h   ; next geucTBue
 
mov dx, first
mov ah, 9
int 21h
 
mov cx,8 ; nogroToBka nepemeHHux
    mov dx,0 ; resultat
 
m1:
    push dx ; np94em B cTek
 
    mov ah,1 ; BBOg
    int 21h
 
    pop dx ; gocTaem
    shl dx,1 ; cgBuraeM Ha 1 bit 
 
    cmp al,'1'
        jnz m2
    or dx,1 ; if BBegeH cymbol 1 - ycTaHoBuM MJlagwuu bit
 
m2:
    loop m1 ; koHec
    
mov dl, al
int 21h
 
 
mov dx, second
mov ah, 9
int 21h
 
mov ah,1 ; BBog 1 cymbola
        int 21h
 
        cmp al, 'a' ; a - small
        jb m3
        
        cmp al, 'f'
        ja input_error
 
        sub al,'a' + 0ah
        jmp input_rezult
    
        ; 3arJlaBHa9
m3:
        cmp al, 'A' ; A - 6oJlwa9
        jb m4
        
        cmp al, 'F'
        ja input_error
 
        sub al,'A' + 0ah
        jmp input_rezult
 
m4:
        ; 4ucjla
 
        cmp al, '0' ; 0 - null
        jb input_rezult
        
        cmp al, '9'
        ja input_error
 
        sub al,'0' + 0
        jmp input_rezult
 
input_error: 
        mov al,0
input_rezult:
 
 
mov bl, al  ; noMewaeM B bl 4ucJlo 
int 21h
 
 
 
mov dx, result
mov ah, 9
int 21h
 
 
cmp bl,dl     ; cpaBHuBaem 4ucJla
jg a_bolshe_b
jl a_menshe_b
jz a_ravno_b
 
a_bolshe_b:
mov ah,09
mov dx,bolshe
int 21h
jmp exit
 
a_menshe_b:
mov ah,09
mov dx,menshe
int 21h
jmp exit
 
a_ravno_b:
mov ah,09
mov dx,ravno
int 21h
 
exit:
mov ah,08h
int 21h
 
mov ax,4c00h
int 21h
 
 
 
 
 
 
 
 
 
privet db 13,10, "Rabotu vipolnil Valdemar Zigritovich$"
bolshe  db 13,10, "a>b$"
menshe db 13,10, "a<b$"
ravno db 13,10, "a=b$"
first db 13,10, "Vvedite chislo a v dvoichnoy forme:$"
second db 13,10, "Vvedite chislo b v 16richnoi forme:$" 
result db 13,10, "Vash resulatat:$"

mov cx,8 ; подготовка переменных 
    mov dx,0 ; dx - результат
m1:
    push dx ; "спрячем" на время в стеке 
 
    mov ah,1 ; введем с клавиатуры 1 символ
    int 21h
 
    pop dx ; вернем из стека
    shl dx,1 ; сдвинем на 1 бит 
 
    cmp al,'1'
        jnz m2
    or dx,1 ; если был введен символ '1' - установим младший бит
      m2:
    loop m1 ; конец цикла

mov ah,1 ; введем 1 символ
        int 21h
 
        cmp al, 'a' ; a - маленькая английская
        jb m1
        
        cmp al, 'f'
        ja input_error
 
        sub al,'a' + 0ah
        jmp input_rezult
    
        ; аналогично для заглавной буквы
m1:
        cmp al, 'A' ; A - большая английская
        jb m2
        
        cmp al, 'F'
        ja input_error
 
        sub al,'A' + 0ah
        jmp input_rezult
 
    m2:
        ; аналогично для цифр
 
        cmp al, '0' ; 0 - ноль
        jb input_rezult
        
        cmp al, '9'
        ja input_error
 
        sub al,'0' + 0
        jmp input_rezult
 
input_error: 
        mov al,0
input_rezult:

mov dx,0 ; dx - результат

sub_10143       proc near
arg_0           = word ptr  4
arg_2           = word ptr  6
;есть входные параметры, организовывается стековый кадр
    push    bp
    mov     bp, sp
;директива uses    bx,cx,dx
    push    bx
    push    cx
    push    dx
    mov     ah, 9
    mov     dx, [bp+arg_2];читается аргумент из стека
    int     21h 
. . . 
loc_10186:
    mov     ax, bx
;директива uses    bx,cx,dx
    pop     dx
    pop     cx
    pop     bx
;удаляется стековый кадр
    pop     bp
    retn    4;п/п-ма чистит за собой стек - аргумент pascal в директиве model заставляет компилятор так написать код
sub_10143       endp

model   tiny,pascal
.code
org 100h
begin:  lea ax,db1st
    call    InpNum,ax,2
    jc  begin
    mov dw1,ax
@@00:   lea ax,db2nd
    call    InpNum,ax,16
    jc  @@00
    lea dx,dbEqu
    cmp ax,dw1
    jz  @@01
    lea dx,dbBig
    ja  @@01
    lea dx,dbLow
@@01:   mov ah,9
    int 21h
    xor ax,ax
    int 16h
    ret
InpNum  proc    a:word,b:word
uses    bx,cx,dx
    mov ah,9
    mov dx,a
    int 21h
    xor bx,bx
IN1:    xor ax,ax
    int 16h
    cmp al,13
    jz  IN3
    mov ah,al
    sub ah,'0'
    cmp ah,10
    jb  IN2
    and al,11011111b
    mov ah,al
    sub ah,'7'
IN2:    mov dx,b
    cmp ah,dl
    jae IN1
    push    ax
    int 29h
    pop ax
    mov al,ah
    and ax,0Fh
    xchg    ax,bx
    mul b
    add bx,ax
    or  dx,dx
    jz  IN1
    stc
IN3:    mov ax,bx
    ret
InpNum  endp
db1st   db  10,13,'Enter bin number:$'
db2nd   db  10,13,'Enter hex number:$'
dbEqu   db  10,13,'Bin = Hex$'
dbLow   db  10,13,'Bin > Hex$'
dbBig   db  10,13,'Bin < Hex$'
dw1 dw  ?
dw2 dw  ?
end begin

.model medium
 
.stack 200h
 
.data
        a               db      ?
        b               db      ?
        CrLf            db      0Dh, 0Ah, '$'
        msgPressAnyKey  db      0Dh, 0Ah, 'Press any key to exit...', '$'
        msgPromptA      db      'Get A (bin): ', '$'
        msgPromptB      db      0Dh, 0Ah, 'Get B (hex): ', '$'
        msgEqual        db      0Dh, 0Ah, 'a==b', '$'
        msgBelow        db      0Dh, 0Ah, 'a<b', '$'
        msgAbove        db      0Dh, 0Ah, 'a>b', '$'
.code
 
GetBin  proc
        mov     bl,     0
        mov     cx,     8
        @@gb_for:
                mov     ah,     8
                int     21h
 
                mov     dl,     al
                sub     al,     '0'
                jb      @@gb_for
                cmp     al,     1
                ja      @@gb_for
 
                shl     bl,     1
                or      bl,     al
 
                mov     ah,     2
                int     21h
        loop    @@gb_for
        mov     al,     bl
        ret
GetBin  endp
 
GetHex  proc
        mov     bl,     0
        mov     cx,     2
        @@gh_for:
                mov     ah,     8
                int     21h
 
                mov     dl,     al
                sub     al,     '0'
                jb      @@gh_for
                cmp     al,     9
                jbe     @@show
                sub     al,     'A'-'0'-10
                jb      @@gh_for
                cmp     al,     0Fh
                jbe     @@show
                sub     al,     'a'-'A'
                jb      @@gh_for
                cmp     al,     0Fh
                ja      @@gh_for
 
        @@show:
                shl     bl,     1
                shl     bl,     1
                shl     bl,     1
                shl     bl,     1
                or      bl,     al
 
                mov     ah,     2
                int     21h
        loop    @@gh_for
        mov     al,     bl
        ret
GetHex  endp
 
main    proc
        ;инициализация сегментного регистра ds адресом сегмента данных
        mov     ax,     @data
        mov     ds,     ax
 
        mov     ah,     09h
        lea     dx,     [msgPromptA]
        int     21h
        call    GetBin
        mov     [a],    al
 
        mov     ah,     09h
        lea     dx,     [msgPromptB]
        int     21h
        call    GetHex
        mov     [b],    al
 
        mov     al,     [a]
        cmp     al,     [b]
        jb      @@below
        ja      @@above
 
        ;вывод сообщения о равенстве
        mov     ah,     09h
        lea     dx,     [msgEqual]
        int     21h
        jmp     @@exit
 
@@below:
        ;вывод сообщения "меньше"
        mov     ah,     09h
        lea     dx,     [msgBelow]
        int     21h
        jmp     @@exit
 
@@above:
        ;вывод сообщения "больше"
        mov     ah,     09h
        lea     dx,     [msgAbove]
        int     21h
        jmp     @@exit
 
@@exit:
        mov     ah,     08h
        int     21h
 
        mov     ax,     4C00h
        int     21h
 
        ;вывод результата
        mov     ah,     09h
        lea     dx,     [msgResult]
        int     21h
        ;ожидание нажатия любой клавиши
        mov     ah,     09h
        lea     dx,     [msgPressAnyKey]
        int     21h
 
        mov     ah,     00h
        int     16h
 
        ;завершение программы
        mov     ax,     4C00h
        int     21h
main    endp
 
end     main