[gaston260]

perdon lo borre pero intento generar de nuevo el error con mikropascal pro 2009 y no lo hace !! voy a volver a instalar mikropascal 8.0.0.1 para ver si de nuevo me genera el error !

era algo asi el codigo

program probar1;

{ Declarations section }

begin

SetBit(TRISA, 3);
SetBit(TRISA, 2);

begin
while true do
      begin
           while TestBit(PORTB,3) = 1 Do
                 begin
                        PORTA := PORTA Or %00010010;
                 end;
      end;
end;

begin
while true do
      begin
           while TestBit(PORTB,2) = 1 do
                 begin
                        PORTA := PORTA Or %11101101;
                 end;
      end;
end;

end.

se que estoy abusando de los Begins pero era el codigo sin optimizar !

gracias !