Индивидуалка / MY_CALC

masm
;----------------------------------------------------------------------
;-----‘…ѓЊ…Ќ’ „ЂЌЌ›•------
;----------------------------------------------------------------------
data_seg segment
x dw ? ;Є®®а¤Ё­ вл ¬лиЄЁ
y dw ?
x_bl1 dw ? ;Є®®а¤Ё­ вл ¤«п аЁб®ў ­Ёп Ў«®Є®ў
y_bl1 dw ?
x_bl2 dw ?
y_bl2 dw ?
x_bl3 dw ?
y_bl3 dw ?
x_bl4 dw ?
y_bl4 dw ?
x_bl5 dw ?
y_bl5 dw ?
x_r1 equ 20 ;Є®®а¤Ё­ вл ¤«п Ја ­Ёж нЄа ­ 
y_r1 equ 20
x_r2 equ 620
y_r2 equ 20
y_r3 equ 330
x_r3 equ 620
x_r4 equ 20
y_r4 equ 330
color db ? ;梥⠡«®Є®ў
color_f db ? ;梥в д®­ 
stroka db " Enter - ­ з «® Їа®Ја ¬¬л, Esc - ўл室 Ё§ Їа®Ја ¬¬л $"
stroka1 db " ‚ўҐ¤ЁвҐ ЇҐаў®Ґ зЁб«® $"
stroka2 db " ‚ўҐ¤ЁвҐ ўв®а®Ґ зЁб«® $"
stroka_op db " ‚ўҐ¤ЁвҐ ®ЇҐа жЁо $"
stroka_r db " Ќ ¦¬ЁвҐ ­  Є­®ЇЄг = ¤«п Ї®«г祭Ёп १г«мв в  $"
data_seg ends

;----------------------------------------------------------------------
;-----‘…ѓЊ…Ќ’ ‘’…ЉЂ--------
;----------------------------------------------------------------------
stack_seg segment para stack 'stack'
dw 100 dup (?)
stack_seg ends

;----------------------------------------------------------------------
;-----‘…ѓЊ…Ќ’ ЉЋ„Ђ---------
;----------------------------------------------------------------------
cod_seg segment
ASSUME cs:cod_seg, dss:data_seg, ss:stack_seg
start:
mov ax,data_seg
mov ds,ax
lea dx,stroka
mov ah,9
int 21h
mov ah,8
int 21h
cmp al,13
je @@1
@@1:
;гбв ­®ўЄ  Ја дЁзҐбЄ®Ј® ०Ё¬  640-350 16 梥⮢
mov ah,00
mov al,10h ;­®¬Ґа Ја дЁзҐбЄ®Ј® ०Ё¬ 
int 10h
;гбв ­ ў«Ёў Ґ¬ ­ з «м­лҐ 梥в 
mov color,00
mov color_f,02

cod_seg ends
end start