Лабораторная работа 4 по ОЭВМ / L4

program LAB4;
uses crt;
var a,b,i,k,F1,F2,F3:integer;
label
    Metka1,Metka2,Metka3,Metka4,Metka5,exit,fun2,fun3 ;
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 Metka1      ;
          MOV AX,I       ;
          SHL AX,1       ;
          SHL AX,1       ;
          Mov Bx,3       ;
          ADD AX,Bx      ;
          MOV F1,AX      ;
          cmp F1,Ax      ;
          je fun2       ;
   Metka1:               ;
          MOV AX,I       ;
          SHL AX,1       ;
          MOV BX,15      ;
          SUB BX,AX      ;
          MOV F1,BX      ;

          fun2:         ;

          JG Metka2      ;
          MOV AX,I       ;
          SHL AX,1       ;
          SHL AX,1       ;
          Mov Bx,10      ;
          Sub Ax,Bx      ;
          MOV F2,AX      ;
          cmp F2,Ax      ;
          je fun3       ;
   Metka2:               ;
          MOV AX,I       ;
          SHL AX,1       ;
          add Ax,i       ;
          MOV BX,5       ;
          Add AX,BX      ;
          MOV F2,AX      ;

          fun3:       ;

          MOV AX,K    ;
          CMP AX,0    ;
          JNE Metka3  ;
          mov AX,F1   ;
          mov BX,F2   ;
          SUB BX,AX   ;
          CMP BX,0    ;
          JG Metka4   ;
          Mov Bx,F2   ;
          MOV F3,Bx   ;
          cmp F3,Bx
          Je exit     ;
   Metka4:            ;
          MOV F3,Ax   ;
          cmp F3,Ax   ;
          Je exit     ;
   Metka3:            ;
          MOV AX,F1   ;
          MOV BX,F2   ;
          SUB BX,AX   ;
          CMP BX,0    ;
          JG Metka5   ;
          MOV F3,AX   ;
          cmp F3,Ax   ;
          Je exit     ;
   Metka5:            ;
          Mov Bx,F2   ;
          MOV F3,BX   ;

Exit:                 ;

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