while and delay_ms issues

[odflor]

Hi!:

This sample programs try to fill screen with available characters and then show a wellcome message and repeat it 10 times.

The issues are:

1. Delay_MS does not delay
2. Repeat 10 times using while cycle does not work

{"Hello World" P65Pas program.}
program Hello;
uses Commodore64;
var
i : word;
c : byte;
v : byte;
begin
screenBack := 1;
screenBorder := 15;

v := 1;

while v <= 10 do <== this don't work
CLRSCR;

c := 0;

for i := 0 to 999 do
  screen[i] := c;
  inc(c);
end; 

delay_ms(word(1000)); <== this don't work

CLRSCR;

ChrOUT(' ');
ChrOUT('H');
ChrOUT('E');
ChrOUT('L');
ChrOUT('L');
ChrOUT('O');
ChrOUT(' ');

delay_ms(word(1000)); <== this don't work

inc(v);

end;
asm RTS end
end.

[t-edson]

Issue about delay_ms() procedure is fixed. WHILE loop is working OK. There is some problem with large body blocks but here it's not a problem.

[odflor]

Hi!
Yes, WHILE loop works OK, is too fast! because of this I can't realize that it works.

Here an example program, enjoy!

{"Fill useless chars & colors" P65Pas program.}
program Useless;
uses Commodore64;
var
i : word;
c : byte;
l : byte;
v : byte;

color: [1000]byte absolute $D800;

procedure Fill;
begin
for i := 0 to 999 do
screen[i] := c;
inc(c);
end;
end;

procedure SetColor;
begin
for i := 0 to 999 do
color[i] := l;
inc(l);
end;
end;

procedure doit;
begin
Fill;
SetColor;
end;

begin
screenBack := 0;
screenBorder := 15;
c := 0;
l := 0;

for v := 0 to 254 do // Actually can't use "for v := 0 to 255"
doit;
end;

doit; // one more time, because I ain't can't use "for v := 0 to 255"
asm RTS end
end.

Best Regards!

[t-edson]

That's good. It really works! There are still many things to finish implementing in the compiler, after the redesign of the Code generator but the good news is that now we have a more solid design to work.