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
Código:
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 !