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.
Última edición por gaston260 fecha: 06-01-2010 a las 07:39:39.
Razón: porque escrbi mal el codigo
|