Jetzt wird's interessant. Sobald ich den SerPort raus nehme, kommt der Fehler nicht mehr.
Code
Program TestADC;
{$NOSHADOW}
{ $WG} {global Warnings off}
Device = mega644, VCC=3.3;
{ $BOOTRST $07000} {Reset Jump to $07000}
Import SysTick, SerPort;
From System Import;
Define
ProcClock = 8000000; {Hertz}
SysTick = 10; {msec}
StackSize = $0100, iData;
FrameSize = $0100, iData;
SerPort = 9600, ParNone, Stop1, Databit8;
RxBuffer = $FF, iData;
TxBuffer = $10, iData;
Implementation
{------------------------------------------------------------------------------}
{ Type Declarations }
Type
{------------------------------------------------------------------------------}
{ Const Declarations }
Const
{------------------------------------------------------------------------------}
{ Var Declarations }
{$IDATA}
Var
{------------------------------------------------------------------------------}
{ Main Program }
Begin
EnableInts;
Loop
EndLoop;
End TestADC.
Harry
[EDIT]Es geht nur beim Mega644 nicht. Beim 644A, 644P und 644PA geht es.