Hallo Rolf,
wenn ich den Wizzard benutze, bekomme ich ein File, dass mir eine Fehlermeldung bringt. Ich aber nicht feststellen kann, auf den ersten Blick, wo das Problem liegt.
Gruß
WOM
als
Fehler wird
Error : ';' exepcted
Error : Identifier expected
Error : error
gemeldet aber nicht wo ?
Das kommt aus dem Wizzard:
wenn ich den Wizzard benutze, bekomme ich ein File, dass mir eine Fehlermeldung bringt. Ich aber nicht feststellen kann, auf den ersten Blick, wo das Problem liegt.
Gruß
WOM
als
Fehler wird
Error : ';' exepcted
Error : Identifier expected
Error : error
gemeldet aber nicht wo ?
Das kommt aus dem Wizzard:
Code
program Test4-01;
{$NOSHADOW}
{ $WG} {global Warnings off}
Device = mega2561, VCC=5;
{ $BOOTRST $1F000} {Reset Jump to $1F000}
Define_Fuses
// Override_Fuses;
NoteBook = A;
COMport = USB;
LockBits0 = [];
FuseBits0 = [CKSEL0, CKSEL2, CKSEL3, SUT0, CKDIV8];
FuseBits1 = [SPIEN, JTAGEN, OCDEN];
FuseBits2 = [];
Import SysTick;
From System Import ;
Define
ProcClock = 16000000; {Hertz}
SysTick = 10; {msec}
StackSize = $0064, iData;
FrameSize = $0064, iData;
Implementation
{$IDATA}
{--------------------------------------------------------------}
{ Type Declarations }
type
{--------------------------------------------------------------}
{ Const Declarations }
{--------------------------------------------------------------}
{ Var Declarations }
{$IDATA}
{--------------------------------------------------------------}
{ functions }
{--------------------------------------------------------------}
{ Main Program }
{$IDATA}
begin
EnableInts;
loop
endloop;
end Test4-01.
{$NOSHADOW}
{ $WG} {global Warnings off}
Device = mega2561, VCC=5;
{ $BOOTRST $1F000} {Reset Jump to $1F000}
Define_Fuses
// Override_Fuses;
NoteBook = A;
COMport = USB;
LockBits0 = [];
FuseBits0 = [CKSEL0, CKSEL2, CKSEL3, SUT0, CKDIV8];
FuseBits1 = [SPIEN, JTAGEN, OCDEN];
FuseBits2 = [];
Import SysTick;
From System Import ;
Define
ProcClock = 16000000; {Hertz}
SysTick = 10; {msec}
StackSize = $0064, iData;
FrameSize = $0064, iData;
Implementation
{$IDATA}
{--------------------------------------------------------------}
{ Type Declarations }
type
{--------------------------------------------------------------}
{ Const Declarations }
{--------------------------------------------------------------}
{ Var Declarations }
{$IDATA}
{--------------------------------------------------------------}
{ functions }
{--------------------------------------------------------------}
{ Main Program }
{$IDATA}
begin
EnableInts;
loop
endloop;
end Test4-01.
