DDRx := DDRx  or (1 shl Pinx);

PORTx := PORTx or (1 shl Pinx);

PORTx := PORTx and not (1 shl Pinx);

PORTx := PORTx xor (1 shl Pinx);

if PINx and (1 shl Pinx) > 0 then Pin_ist_HIGH;

program Project1;
const
  DP0 = 0;      // Pin0 PortD
  DP1 = 1;      // Pin1 PortD
  sl = 150000;  // Verzögerung

  procedure mysleep(t: int32); // Ein einfaches Delay.
  var
    i: Int32;
  begin
    for i := 0 to t do asm nop END;
  end;

begin
  // Pin 0 und 1 von PortD auf Ausgabe.
  DDRD := DDRD  or (1 shl DP0) or (1 shl DP1);

  repeat
    // LED wechseln
    PORTD := PORTD or (1 shl DP0);      // Pin0 ein
    PORTD := PORTD and not (1 shl DP1); // Pin1 aus
    mysleep(sl);                        // Pause

    // LED wechseln
    PORTD := PORTD or (1 shl DP1);      // Pin1 ein
    PORTD := PORTD and not (1 shl DP0); // Pin0 aus
    mysleep(sl);                        // Pause
  until 1 = 2;
end.

begin
  // Pin 0 und 1 von PortD auf Ausgabe.
  DDRD  := DDRD  or (1 shl DP0) or (1 shl DP1);
  PORTD := PORTD or (1 shl DP0);        // Pin0 ein

  repeat

    // LED wechseln
    PORTD := PORTD xor (1 shl DP0);     // Pin0 umschalten
    PORTD := PORTD xor (1 shl DP1);     // Pin1 umschalten
    mysleep(sl);                        // Pause
  until 1 = 2;
end.

procedure ModePortD(Pin: byte; Value: Boolean);
begin
  if Value then begin
    DDRD := DDRD or (1 shl Pin);
  end else begin
    DDRD := DDRD and not (1 shl Pin);
  end;
end;

  
procedure WritePortD(Pin: byte; Value: Boolean);
begin
  if Value then begin
    PORTD := PORTD or (1 shl Pin);
  end else begin
    PORTD := PORTD and not (1 shl Pin);
  end;
end;

  
procedure WritePortD(Pin: byte);
begin
  PORTD := PORTD xor (1 shl Pin);
end;

  
function ReadPortD(bit: byte): Boolean;
begin
  Result := PIND and (1 shl bit) <> 0;
end;

var
  LEDPort: bitpacked array [0..7] of boolean absolute PORTD;

begin
  LEDPort[0] := True;
  LEDPort[1] := True;
  LEDPort[2] := False;
  LEDPort[3] := False;

var
  LEDPort: bitpacked record
    red, green, yellow, blue: boolean;
  end absolute PORTD;

begin
  LEDPort.red    := True;
  LEDPort.green  := True;
  LEDPort.yellow := False;
  LEDPort.blue   := False;

var
  LEDPortS: set of (green, yellow, red, blue) absolute PORTD;

begin
  LEDPortS := [yellow, red];                    // gelb, rot ein
  LEDPortS := LEDPortS + [green, blue] - [red]; // grün, blau ein; rot aus
  LEDPortS := LEDPortS - [green, blue] + [red]; // grün, blau aus; rot ein

type
  TLed = bitpacked record
    green, yellow, red, blue: boolean;
  end;

var
  LedPORT: TLed absolute PORTD;
  LedDDR:  TLed absolute DDRD;

begin
  LedDDR.green := True;
  LedDDR.red   := True;

  repeat
    LedPORT.green := True;
    LedPORT.red   := False;
    ...

  UCSR0B := 0;  // UART-Funktionen deaktivieren.