primer proyecto con Mikro pascal no compila

[gaston260]

tengo un problema ahora ! mikropascal me dice 1:1 E-0 Linker error: 13: bad bit number el error se produce si saco

while true  do
  Begin *** End;

donde antes era

while true  do
Begin
  while TestBit(PORTA,3) = 1 Do  // pregunto si la pata 2 esta en nivel alto
                                 // si lo esta entonces
  Begin *** End;

la verdad me quede sin preguntas ni respuestas !! no entiendo nada de nada !

[[rretamar]]

¿ Podrías postear el código fuente completo ?.

Saludos !

[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 !

[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.

[[rretamar]]

Entonces...¿ todo funciona ?

Saludos !