Please do not abort (solved)

[zarsoft]

Help! This program resets the computer.

What am I doing wrong?
Can the compiler be fixed?

Code:

11 DIM start1 AS LONG = 16384
12 DIM start2 AS LONG = start1+8*8*32
18 DIM p(192) AS LONG

36 GO SUB 300
40 STOP

200 REM test index y
220 LET y=1
230 POKE p(y+1)+1,255
295 RETURN

300 REM generate plain
310 GO SUB 500
390 RETURN

500 REM init index y
510 DIM addr AS LONG = start1
520 DIM ix AS LONG = 191
530 REM --- ciclo1 ---
540 LET p(ix+1)=addr
550 LET addr=addr+32
580 IF addr<start2 THEN GO TO 530
790 RETURN