program NewProgram;
uses Commodore64;
var
x : byte;
y : word;
begin
y := 0;
for x:= 0 to 20 do
y := y + 1;
y := y + 1;
y := y + 1;
y := y + 1;
y := y + 1;
y := y + 1;
y := y + 1;
end;
end.
Gives a BNE to $0917 it should be $0817
$089C E6 F8 INC x
$089E A5 F8 LDA x
$08A0 C9 15 CMP #$15
$08A2 D0 73 BNE $0917
;--------------------
END
Gives a BNE to $0917 it should be $0817