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.
Der an diesem Beitrag angefügte Anhang ist entweder nur im eingeloggten Zustand sichtbar oder die Berechtigung Deiner Benutzergruppe ist nicht ausreichend.
***** siehe unten.
.... mal schaun, obs auch funktioniert 