//OK when only the 3th led is blinking
//if led 0, 1 or 2 is lit the code was
//generated incorrectly
//(example for SX target)

program SX8_1;

const var dummyConst: array[1..3] of char := ( 10, 20, 30 );
var dummy1: array[0..8] of char;
var a16: integer;
var dummy2: array[0..5] of char;
var b16: integer;
var dummy3: array[0..3] of char;
var c8:   char;
var dummy4: array[0..7] of char;
var d8:   char;
var dummy5: array[0..15] of char;


procedure delay;
var i, j, k: char;
  begin
    k := 0;
    while k < 30 do
      begin
        k := k + 1;
        i := 0;
        while i < 150 do
          begin
            i := i + 1;
            j := 0;
            while j < 200 do
              begin
                j := j + 1;
                nop;
              end;
          end;
      end;
  end;

procedure xxx;
var ix, jx, kx: char;
begin
end;

begin
    //Initialization
    set_tris_b( 0 );
    output_port_b( 255 );
    
    for a16 := 0 to 250 do
      begin
        b16 := a16;
        if a16 <> b16 then
            output_high_port_b( 0 );
        b16 := b16 - 1;
        if a16 = b16 then
            output_high_port_b( 1 );
        c8 := a16;
        d8 := a16;
        if c8 <> d8 then
            output_high_port_b( 2 );
        b16 := a16+1;
        if b16 = 0 then
            output_high_port_b( 2 );
      end;
    
    while 1 do
      begin
        output_high_port_b( 3 );
        delay;
        output_low_port_b( 3 );
        delay;
      end;
end.