2591
.pdfcall clrscr call cursor
mov ah,09h lea dx,soobl_1 int 21h
call cursor
;b1
mov ah,09h lea dx,soob_b1 int 21h
mov ah,0ah
lea dx,namepar_b int 21h
call cursor
call ascii_binb
mov ax,binval_b mov b1,al
;b2
mov ah,09h lea dx,soob_b2 int 21h
mov ah,0ah
lea dx,namepar_b int 21h
call cursor
call ascii_binb
mov ax,binval_b mov b2,al
mov al,b1 or al,b2
mov word ptr rezult,ax mov word ptr rezult[2],0
121
call bin_bin
mov ah,09h lea dx,ascval int 21h
call cursor
mov ah,09h lea dx,soobe_1 int 21h
call cursor
mov ah,09h lea dx,soob0_3 int 21h
call cursor
vvod_f1: mov ah,0ah lea dx,namepar int 21h
xor ax,ax lea si,namefld mov al,[si] and al,00fh mov binval,ax
cmp binval,1 je jmp_ret1 cmp binval,2 je jmp_bg1 mov ah,09h lea dx,soobl_err int 21h
call cursor jmp vvod_f1
jmp_ret1: jmp rt jmp_bg1: jmp bg
;===============================================================
f2: |
;b1 xor b2 |
122
call clrscr call cursor
mov ah,09h lea dx,soobl_2 int 21h
call cursor
;b1
mov ah,09h lea dx,soob_b1 int 21h
mov ah,0ah
lea dx,namepar_b int 21h
call cursor
call ascii_binb
mov ax,binval_b mov b1,al
;b2
mov ah,09h lea dx,soob_b2 int 21h
mov ah,0ah
lea dx,namepar_b int 21h
call cursor
call ascii_binb
mov ax,binval_b mov b2,al
mov al,b1 xor al,b2
mov word ptr rezult,ax mov word ptr rezult[2],0
123
call bin_bin
mov ah,09h lea dx,ascval int 21h
call cursor
mov ah,09h lea dx,soobe_1 int 21h
call cursor
mov ah,09h lea dx,soob0_3 int 21h
call cursor
vvod_f2: mov ah,0ah lea dx,namepar int 21h
xor ax,ax lea si,namefld mov al,[si] and al,00fh mov binval,ax
cmp binval,1 je jmp_ret2 cmp binval,2 je jmp_bg2 mov ah,09h lea dx,soobl_err int 21h
call cursor jmp vvod_f2
jmp_ret2: jmp rt jmp_bg2: jmp bg
;===============================================================
f3: |
;b1 and b2 |
124
call clrscr call cursor
mov ah,09h lea dx,soobl_3 int 21h
call cursor
;b1
mov ah,09h lea dx,soob_b1 int 21h
mov ah,0ah
lea dx,namepar_b int 21h
call cursor
call ascii_binb
mov ax,binval_b mov b1,al
;b2
mov ah,09h lea dx,soob_b2 int 21h
mov ah,0ah
lea dx,namepar_b int 21h
call cursor
call ascii_binb
mov ax,binval_b mov b2,al
mov al,b1 and al,b2
mov word ptr rezult,ax mov word ptr rezult[2],0
125
call bin_bin
mov ah,09h lea dx,ascval int 21h
call cursor
mov ah,09h lea dx,soobe_1 int 21h
call cursor
mov ah,09h lea dx,soob0_3 int 21h
call cursor
vvod_f3: mov ah,0ah lea dx,namepar int 21h
xor ax,ax lea si,namefld mov al,[si] and al,00fh mov binval,ax
cmp binval,1 je jmp_ret3 cmp binval,2 je jmp_bg3 mov ah,09h lea dx,soobl_err int 21h
call cursor jmp vvod_f3
jmp_ret3: jmp rt jmp_bg3: jmp bg
;===============================================================
f4: |
;b1 and not(b2) |
126
call clrscr call cursor
mov ah,09h lea dx,soobl_4 int 21h
call cursor
;b1
mov ah,09h lea dx,soob_b1 int 21h
mov ah,0ah
lea dx,namepar_b int 21h
call cursor
call ascii_binb
mov ax,binval_b mov b1,al
;b2
mov ah,09h lea dx,soob_b2 int 21h
mov ah,0ah
lea dx,namepar_b int 21h
call cursor
call ascii_binb
mov ax,binval_b mov b2,al
mov al,b1 not b2 and al,b2
mov word ptr rezult,ax
127
mov word ptr rezult[2],0
call bin_bin
mov ah,09h lea dx,ascval int 21h
call cursor
mov ah,09h lea dx,soobe_1 int 21h
call cursor
mov ah,09h lea dx,soob0_3 int 21h
call cursor
vvod_f4: mov ah,0ah lea dx,namepar int 21h
xor ax,ax lea si,namefld mov al,[si] and al,00fh mov binval,ax
cmp binval,1 je jmp_ret4 cmp binval,2 je jmp_bg4 mov ah,09h lea dx,soobl_err int 21h
call cursor jmp vvod_f4
jmp_ret4: jmp rt jmp_bg4: jmp bg
;================================================================
f5: |
;d1 and neg(d2) |
128
call clrscr call cursor
mov ah,09h lea dx,soobl_5 int 21h
call cursor
;d1
mov ah,09h lea dx,soob_d1 int 21h
mov ah,0ah
lea dx,namepar_d int 21h
call cursor
call ascii_bind
mov ax,word ptr binval_d mov dx,word ptr binval_d+2 mov word ptr d1,ax
mov word ptr d1[2],dx
;d2
mov ah,09h lea dx,soob_d2 int 21h
mov ah,0ah
lea dx,namepar_d int 21h
call cursor
call ascii_bind
mov ax,word ptr binval_d mov dx,word ptr binval_d+2
not ax
129
not dx add ax,1 adc dx,0
and ax,word ptr d1 and dx,word ptr d1+2 mov word ptr rezult,ax
mov word ptr rezult[2],dx
call bin_bin
mov ah,09h lea dx,ascval int 21h
call cursor
mov ah,09h lea dx,soobe_1 int 21h
call cursor
mov ah,09h lea dx,soob0_3 int 21h
call cursor
vvod_f5: mov ah,0ah lea dx,namepar int 21h
xor ax,ax lea si,namefld mov al,[si] and al,00fh mov binval,ax
cmp binval,1 je jmp_ret5 cmp binval,2 je jmp_bg5 mov ah,09h lea dx,soobl_err int 21h
call cursor
130