Лабораторная работа 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.