I have the following problem:
This code not working on dsPIC30F3013. After reset the dsPIC not respond.
I use EasyDSPIC3 board, Mikropascal for dsPIC 5.0.0.0 and 30F3013 at 80Mhz. (This code work fine on 30F6014.)
Code: Select all
program test;
const os: array[10] of array[4] of word = ((10, 10, 10, 10),
(10, 20, 30, 40),
(10, 20, 10, 20),
(10, 20, 10, 30),
(20, 30, 30, 10),
(10, 20, 20, 30),
(20, 10, 10, 20),
(40, 20, 30, 20),
(10, 30, 20, 10),
(30, 10, 30, 10));
var i: word;
v1,v2,v3,v4,v5,v6: array[96] of word;
begin
ADPCFG := $FFFF;
TRISB := 0;
for i:=0 to 94 do
v1[i]:=0;
for i:=0 to 94 do
v2[i]:=0;
for i:=0 to 94 do
v3[i]:=0;
for i:=0 to 94 do
v4[i]:=0;
for i:=0 to 94 do
v5[i]:=0;
for i:=0 to 94 do
v6[i]:=0;
while TRUE do
begin
LATB := $0000;
Delay_ms(1000);
LATB := $FFFF;
Delay_ms(1000);
end;
end.