program Test;

Device = Tiny461, VCC=5.0;

Import ;

Define
  ProcClock      = 8000000;       {Hertz}
  StackSize      = $0030, iData;
  FrameSize      = $0030, iData;

Implementation

{$IDATA}
var   LED_GR[@PortB, 1] : bit;
      LED_RD[@PortB, 5] : bit;

{--------------------------------------------------------------}
{ Main Program }

begin

  DDRB:=  %01101111;
  PORTB := %00000000;

  loop
    if LED_GR = TRUE then
      LED_GR := FALSE;
      LED_RD := TRUE;
    else
      LED_GR := TRUE;
      LED_RD := FALSE;
    endif;
    mdelay(10);
  endloop;

end Test.