LATA 1 bit  LED0

: timer? ( -- f ) TMR0IF bit-set? if 1 else 0 then ;
: main
        0x00 TRISA c!
        0x06 ADCON0 c!
        0x85 T0CON c!
        begin
           TMR0IF bit-set? if TMR0IF bit-clr LED0 bit-toggle then
        again
;