Лабораторная работа 4 по ОЭВМ / 5 вариант / FUCK

program LABAR4;
uses crt;
var a,b,i,k,F2,F3:word;
f1:integer;
label
hag1,hag2,hag3,hag4,hag5,hag6,hag7,exit,funk2,funk3;
begin
writeln ('‚ўҐ¤ЁвҐ зЁб«®  :');
readln(a);
writeln ('‚ўҐ¤ЁвҐ зЁб«® b:');
readln(b);
writeln ('‚ўҐ¤ЁвҐ зЁб«® i:');
readln(i);
writeln ('‚ўҐ¤ЁвҐ зЁб«® k:');
readln(k);
asm
MOV AX,A ;
SUB AX,B;
cmp ax,0;
JG HAG1;
MOV AX,I;
SHL AX,1 ;
ADD AX,6 ;
MOV F1,AX;
NEG F1 ;
cmp f1,ax;
jne funk2;
HAG1: ;
mov AX,I;
SHL AX,1 ;
SHL AX,1 ;
SUB AX,7 ;
MOV F1,AX ;
funk2:
MOV AX,a ;
SUB AX,b ;
CMP AX,0 ;
JG HAG2 ;
MOV AX,I ;
ADD AX,1 ;
SHL AX,1 ;
mov f2,ax;
cmp ax,f2;
je funk3;
HAG2:
mov ax,i ;
SHL AX,1 ;
ADD AX,I ;
SUB AX,4 ;
MOV F2,AX ;
funk3:
MOV AX,K ;
CMP AX,0 ;
JNE HAG3 ;
mov AX,F1 ;
CMP AX,0 ;
JG HAG4 ;
SUB AX,AX ;
SUB AX,F1 ;
HAG4: ;
MOV BX,6 ;
SUB BX,AX ;
CMP BX,0 ;
JG HAG5 ;
MOV F3,6 ;
cmp f3,6 ;
je exit;
HAG5: ;
MOV F3,ax ;
cmp f3,ax ;
je exit ;
HAG3: ;
MOV AX,F1 ;
CMP AX,0 ;
JG HAG6 ;
SUB AX,AX ;
SUB AX,F1 ;
HAG6: ;
MOV BX,F2 ;
CMP BX,0 ;
JG HAG7 ;
SUB BX,BX ;
SUB BX,F2 ;
HAG7: ;
ADD AX,BX ;
MOV F3,AX ;
exit:

end;
writeln('‡­ зҐ­ЁҐ дг­ЄжЁЁ i1=',F1);
writeln('‡­ зҐ­ЁҐ дг­ЄжЁЁ i2=',F2);
writeln('‡­ зҐ­ЁҐ дг­ЄжЁЁ res=',F3);
readln;
end.