carlos6904817 pruba con esto:
TRISB=0
TRISA.0=1
i var byte
cont var word
cont=1
PORTB=0
loop:
if PORTA.0=0 then
PORTB=cont
cont=cont*2
pause 200
endif
if cont=256 then
cont=1
endif
goto loop
end
Esto es lo que tu necesitas, lo acabo de simular en proteus y funciona ok...
El pulsante tienes que conectarlo al RA0 cuando lo pulsas te da una señal logica=0,
cada ves que pulses se ira encendiendo un led que estan conectados al puerto B...
Suerte...
Un Abrazo...