Контрольная работа по ASM / KP_ASM

program KP;
var i,rez,flag:byte;
D: array [1..5] of byte;
begin
Writeln('Vvedite massiv D=(4,1,5,3,2)');
for i := 1 to 5 do readln(D[i]);
{D[1]:=4; D[2]:=1; D[3]:=5; D[4]:=3; D[5]:=2;}
asm
lea bx,D
mov ah,[bx][4]
cmp ah,2
jne @then
mov ah,[bx][3]
cmp ah,3
jne @then
mov ah,[bx][2]
cmp ah,5
jne @then
mov ah,[bx][1]
cmp ah,1
jne @then
mov ah,[bx][0]
cmp ah,4
jne @then
mov flag,1
{lea si,[bx][2]
mov ah,[si]}
mov ah,[bx][4]
sub ah,[bx][1]
mov rez,ah
jmp @end
@then: mov flag,0
@end:
end;
if flag=1
then Writeln('D[D[3]]-D[D[5]]= ',rez)
else Writeln('Neverno zadan massiv');
Writeln('End program');
Readln;
end.