Организация Разветвления

...
mov ax,c
cmp ax,5
jl m1
cmp ax,10
jl m2
cmp ax,10
jl m3
mov ax,b
imul ax
jmp exit
m1:
mov ax,a
imul ax
sub ax,b
jmp exit
m2:
mov ax,a
add b
jmp exit
m3:
sub ax,b
exit:
mov y,ax
...

add b

title op
sgstek    segment para    stack    'stack'
    dw    64 dup(?)
sgstek    ends
sgcode    segment para    'code'
begin    proc
    assume cs:sgcode,ds:sgdata,ss:sgstek,es:noth
 
;--display--;
    mov ah,00
    mov al,03
    int 10h
    
;zadanie
 
    mov dh,02
        mov dl,05
    call setcur
    mov ah,09
    lea dx,in_zad1
    int 21h
    
    mov dh,03
        mov dl,05
    call setcur
    mov ah,09
    lea dx,in_zad2
    int 21h
    
    mov dh,04
        mov dl,05
    call setcur
    mov ah,09
    lea dx,in_zad3
    int 21h
 
    mov dh,05
        mov dl,05
    call setcur
    mov ah,09
    lea dx,in_zad4
    int 21h
    
;input a
    mov dh,06
        mov dl,05
    call setcur
    mov ah,09
    lea dx,inp_a
    int 21h
    
        mov dh,06
    mov dl,17
    call setcur
    call cl_r
    call inp
        call v_bin
    mov ax,binv
    mov a,ax
    
;input b
    mov dh,08
        mov dl,05
    call setcur
    mov ah,09
    lea dx,inp_b
    int 21h
    
       mov dh,08
    mov dl,17
    call setcur
    call cl_r
    call inp
        call v_bin
    mov ax,binv
    mov b,ax
 
;input c
    mov dh,10
        mov dl,05
    call setcur
    mov ah,09
    lea dx,inp_c
    int 21h
    
        mov dh,10
    mov dl,17
    call setcur
    call cl_r
    call inp
    call v_bin
    mov ax,binv
    mov c,ax
 
;reshenie
 
    mov ax,c
    cmp ax,5
    jl m1
    cmp ax,10
    jl m2
    cmp ax,10
    jl m3
    mov ax,b
    imul ax
    jmp exit
m1:    mov ax,a
    imul ax
    sub ax,b
    jmp exit
m2:    mov ax,a
    add b
    jmp exit
m3:    sub ax,b
exit:    mov y,ax
;otv    
    
m6:    mov ax,y
    mov binv,ax
    mov dh,14
    mov dl,5
    call setcur
    mov ah,09
    lea dx,otv_k1
    int 21h
    
    mov dh,14
    mov dl,9
    call setcur
    call v_ascii
    mov ah,09
    lea dx,ascii
    int 21h
    
 
    
;readln
    mov ah,00
    int 16h
    int 20h
    ret
begin    endp
    
;setcur proc
    setcur    proc
    mov ah,02
    mov bh,00
    int 10h
    ret
    setcur    endp
 
cl_r proc
    xor ax,ax
    xor bx,bx
    xor cx,cx
    xor dx,dx
    ret
cl_r endp
 
simvol    proc
    mov ah,09
    mov bh,00
    mov bl,02
    mov cx,01
    int 10h
    ret
simvol    endp
 
inp    proc
    mov ah,0ah
    lea dx,perem
    int 21h
    ret
inp    endp
 
v_ascii proc
    mov ascii,' '
    mov ascii+1,' '
    mov ascii+2,' '
    xor bx,bx
    mov cx,0010
    lea si,ascii-1
    mov bl,3
    mov ax,binv
c20:    cmp ax,0010
    jb c30
        xor dx,dx
    div cx
    or dl,30h
    mov [si+bx],dl
    dec bx
    jmp c20
c30:    or al,30h
    mov [si+bx],al
    ret
v_ascii endp
 
v_bin    proc
    mov binv,00
    mov mul10,1
    mov cx,0010
    lea si,numb-1
    xor bx,bx
    mov bl,read
b20:    mov al,[si+bx]
    and ax,000Fh
    mul mul10
    add binv,ax
    mov ax,mul10
    mul cx
    mov mul10,ax
    dec bx
    jnz b20
    ret
v_bin    endp
 
mul10    dw    1
binv    dw    0
a    dw    ?
b    dw    ?
c    dw    ?
e    dw    ?
y    dw    ?
x    dw    ?
 
 
in_zad1    db    'Y=a^2-b    ifc<5$'
in_zad2    db    'Y=a+b         if 5<=c<10$'
in_zad3    db    'Y=c-b        if 10<=c<15$'
in_zad4    db    'Y=b^2        if c>15$'
inp_a    db    'Vvedite A:$'
inp_b    db    'Vvedite B:$'
inp_c    db    'Vvedite C:$'
otv_k1    db    'Y =$'
 
ascii    db    3 dup(' '),'$'
 
perem    label    byte
maxln    db    3
read    db    ?
numb    db    3 dup('$')
 
sgcode    ends
    end begin

cmp ax,10
jl m3