[gaston260]

Bue resulta que ni el mikropascal 8.0.0.1 me genera errores ni el pro tampoco !

el codigo es este

program probar1;

{ Declarations section }

begin

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

{ClearBit(TRISB, 7);
ClearBit(TRISB, 8);
ClearBit(TRISB, 9);
ClearBit(TRISB, 10);
ClearBit(TRISB, 11);
ClearBit(TRISB, 12);
//ClearBit(TRISB, 13);
}

TRISB := %00001111;

begin
while true do
begin
while TestBit(PORTA,3) = 0 Do
begin
PORTB := PORTB Or %10010010;
end;
//end;
//end;

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

end.