Материал: 775

mov word ptr rez4,ax

;b1 and b2 xor (w1 xor b3) or (d1 or d2) xor ax,ax

mov ax,word ptr rez4 or ax,word ptr rez3 mov word ptr rezult,ax ret

formula2 endp

csg_mod ends

end formula2

==================================================================

; l_2_1kln.asm КАЛИНИН МИХАИЛ, СибАДИ, гр. БИ11, октябрь 2004г.

STACKSG SEGMENT PARA STACK 'STACK' ;\

public soobe_1,soobe_2,soob0_err,soob_b1,soob_b2,soob_d1,soob_d2,b1,b2,d1,d2,num_ln,mult 10,rezult,ten,ascval,binval_d,binval_w,binval_b,binval

public cursor,ascii_binw,ascii_bind,ascii_binb,clrascval public

soob0_3,soobl_err,soobl,soobl_1,soobl_2,soobl_3,soobl_4,soobl_5,soobl_n1,soobl_n2,soo bl_n3,soobl_n4,soobl_n5

public namepar_b,maxlen_b,faktlen_b,namefld_b,namepar_w,maxlen_w,faktlen_w,namefld_w ,namepar_d,maxlen_d,faktlen_d,namefld_d,namepar,maxlen,faktlen,namefld

public clrscr,bin_bin extrn main:proc

DATASG SEGMENT PARA 'DATA' ;начало сегмента данных

SOOB1 db 'Здравствуйте, уважаемый пользователь!','$' SOOB0 db 'w1*w2+d1/b1-(w3+b2+b3)','$'

soob0_1 db 'Выберите номер действия:','$'

soob0_2 db '[1] вычисления по формуле w1*w2+d1/b1-(w3+b2+b3)','$' soob0_3 db '[2] логические операции','$'

soob0_4 db '[3] покинуть программу','$' soobe_1 db '[1] главное меню','$' soobe_2 db '[2] покинуть программу','$'

soob0_err db 'Ошибка выбора номера операции, выберите снова','$' soobl_err db 'Ошибка выбора номера формулы, выберите снова','$' soobl db 'Выберите номер формулы:','$'

soobl_1 db 'b1 or b2','$'

101

soobl_2 db 'b1 xor b2','$' soobl_3 db 'b1 and b2','$' soobl_4 db 'b1 and not(b2)','$' soobl_5 db 'd1 and neg(d2)','$' soobl_n1 db '[1] b1 or b2','$' soobl_n2 db '[2] b1 xor b2','$' soobl_n3 db '[3] b1 and b2','$'

soobl_n4 db '[4] b1 and not(b2)','$' soobl_n5 db '[5] d1 and neg(d2)','$'

soob_w1 db 'w1=','$' soob_w2 db 'w2=','$' soob_d1 db 'd1=','$' soob_b1 db 'b1=','$' soob_w3 db 'w3=','$' soob_b2 db 'b2=','$' soob_b3 db 'b3=','$' soob_d2 db 'd2=','$'

soob_error db 'Ошибка ввода, введите заново','$'

soob_error_b db 'Введено число больше 127, повторите ввод','$' soob_error_w db 'Введено число больше 32767, повторите ввод','$' soob_error_d db 'Введено число больше 2147483648, повторите ввод','$'

soob_error_b1 db 'В данной формуле b1 не может быть равно нулю, повторите ввод','$'

NAMEPAR_b LABEL BYTE

MAXLEN_b db 4

FAKTLEN_b db ?

NAMEFLD_b db "0000"

NAMEPAR_w LABEL BYTE

MAXLEN_w db 6

FAKTLEN_w db ?

NAMEFLD_w db "000000"

NAMEPAR_d LABEL BYTE

MAXLEN_d db 12

FAKTLEN_d db ?

NAMEFLD_d db "000000000000"

NAMEPAR LABEL BYTE

MAXLEN db 2

FAKTLEN db ?

NAMEFLD db "00"

binval_b dw 0 binval_w dw 0 binval_d dd 0

102

binval dw 0

b1 db 0

b2 db 0

b3 db 0

w1 dw 0

w2 dw 0

w3 dw 0

d1 dd 0

d2 dd 0

rez_1 dd 0 rez_2 dw 0 rez_3 dw 0

num_ln db 00 mult10 dw 1 err db 1 rezult dd 0 ten db 0

ascval db "00000000000000000000000000000000","$"

;======================= перевод из ASCII в bin числа w1 =================