Hallo Rolf , hier so ein Minimalprog, an den Ports bleibt alles ruhig. golf
{$IDATA}
var
D : byte;
Daten1[@PortB,3]: bit;
Daten3[@PortF,2]: bit;
{--------------------------------------------------------------}
{ functions }
{--------------------------------------------------------------}
{ Main Program }
{$IDATA}
begin
EnableInts($87);
DDRB:= %11111111;
DDRF:= %00100111;
D:= $0F;
loop
Daten1 := D; // Bit0 von D an Portausgang PB3 legen ? , Daten1[@PortB,3]: bit; ATxmega192 Pin 9
Daten1 := bit(D,4);
Daten3 := bit(D,1); // Daten3[@PortF,2]: bit; // ATXmega192A3 Pin48
Daten3 := bit(D,5);
endloop;
end ATX192.