UPDI Prog. 4808(4809)

Hallo Power User,
mein Compiler bleibt überal hängen! (F!) obwohl ich praktisch fast nichts mehr deklariert habe!
Hat bei jemanden schon irgend etwas funktioniert oder bin ich zu blöd? (eine ehrliche Antwort bitte)

program TB_4808_01;
{$NOSHADOW}
{ $WG} {global Warnings off}
Device = Mega4808, VCC=5.0;
Define_Fuses
// Override_Fuses;
NoteBook = A;
Supply = 5.0, 100;
LockBits0 = [LockB0, LockB2, LockB6, LockB7];
FuseBits0 = [];
FuseBits1 = [];
FuseBits2 = [FREQSEL1];
FuseBits3 = [];
FuseBits4 = [CRCSRC0, CRCSRC1];
FuseBits5 = [SUT0, SUT1, SUT2];
FuseBits6 = [];
FuseBits7 = [];
ProgMode = UPDI;
Import SysTick, SerPort, SerPort2, ADCPort; // SoftPWM F!, SPIdriver F!, I2Cport F!, BeepPort F!,
From System Import Float;
Define
SysTick = 10; {msec}
StackSize = $0064, iData;
FrameSize = $0064, iData;
SerPort = 9600, Stop1; {Baud, StopBits|Parity}
RxBuffer = 8, iData;
TxBuffer = 8, iData;
SerPort2 = 115200, Stop1; {Baud, StopBits|Parity}
RxBuffer2 = 8, iData;
TxBuffer2 = 8, iData;

ADCchans = 4, iData; ADC's noch nicht getestet!
ADCpresc = 64;

// I2Cport = PortF F!
// I2Cdat = 2;
// I2Cclk = 3;

// SoftPWMport = PortD; {use PortD for PWM output}
// SoftPWMtimer = Timer0, 10; {use timerx, PWM cycle time msec}
// SoftPWMres = 16; {PWM resolution is 16 points}
// SoftPWMchans = 1, 5; {x channels, bity is the first bit}

// SPIpresc = 0; F!
// SPIOrder = LSB;
// SPICPOL = 0;
// SPICPHA = 0;
// SPI_SS = true;
// BeepPort = PortD, 4; F!
Implementation
{$IDATA}
{--------------------------------------------------------------}
{ Type Declarations }
type
{---------------------------- F! -----------I2C(TWI) F!-----------------------}
{ Const Declarations }
BH1750 : byte = $23; // Helligkeits Sensor (LUX) ($E8
// -------------------------- F!---------------------------------------------------
WoDay : Array[0..6] of string[3]=('So.','Mo.','Di.','Mi.','Do.','Fr.','Sa.');
// -----------------------------------------------------------------------------
{ Var Declarations }
{$IDATA}
Sig [@PortA,6] : bit; // MINI Buzzer (D07)
// ---------------------------- ok! ---------------------------------------
bef, x,pu_f,vol,t_As,play,xi,count,com,n,aaf1,aaf2,sw14,sw58,m,ik : byte;
{--------------------------------------------------------------}
{ functions }
procedure InitPorts;
begin
PortA := %00111100; F!
end InitPorts;
{--------------------------------------------------------------}
{ Main Program }
{$IDATA}

begin
InitPorts;
EnableInts;
loop

endloop;
end TB_4808_01.

Überlauf beim Programmer Aufruf dsc >200 - erledigt 30 uralt Atmel beseitigt

Gruss
Rudi Ratlos ( T.Begle)

Hello Rudi

I am in touch with Toni over this.

Which version of compiler are you using?

As golf says, you are missing const and var key words.

in v5.11.08 Serports 1-3 are known to work at 9600 baud. I expect them to work at all baud rates. Serport4 is not tested because 4808 only has 3 ports. I have not yet had chance to test on 4809, but I expect it to work. ADC? Rolf did some work on that I believe but I have not tested it. My current focus is TWI/I2C.

Most other drivers are disabled for UPDI.

===================================================================

Ich bin diesbezüglich mit Toni in Kontakt.

Welche Version des Compilers verwenden Sie?

Wie Golf sagt, fehlen Ihnen die Schlüsselwörter const und var.

In v5.11.08 sind die Serports 1-3 dafür bekannt, bei 9600 Baud zu funktionieren. Ich erwarte, dass sie bei allen Baudraten funktionieren. Serport4 ist nicht getestet, weil die 4808 nur 3 Ports hat. Ich hatte noch keine Gelegenheit, 4809 zu testen, aber ich erwarte, dass es funktioniert. ADC? Ich glaube, Rolf hat daran gearbeitet, aber ich habe es nicht getestet. Mein derzeitiger Schwerpunkt ist TWI/I2C.

Die meisten anderen Treiber sind für UPDI deaktiviert.


Übersetzt mit www.DeepL.com/Translator (kostenlose Version)

Hallo,
schade dass anscheinend alle Aktivitäten bezüglich UPDI (der AT-Mega) Prog. an Merlin hängen bleiben, der nur peripher mit der ELAB Entwicklung involviert ist.
Gibt es für die UPDI eine roadmap?
Gruss
Toni

Hello,
it's a pity that apparently all activities concerning UPDI (the AT-Mega) prog. are left to Merlin, who is only peripherally involved with the ELAB development.
Is there a roadmap for the UPDI?
Greetings
Toni