let's do a try... sorry if i'm wrong.. i try
Code:
Main: 
    peek PORTA,B0
    if Bit1=1 then transmit ' iF PORTA.1=1 then transmit
    GOTO Main