Translation Problem

[skimask]

But as skimask might point out to me on page 80 of the little green book, at the top it really is ok.

I might....but I won't....'cause I know from experience that you're all over that....


A shorter version:

trisa = 255 : trisb = 240 : p var byte
start:
if portb.4 = 0 then goto trigger
goto start

trigger:
pause 500 : if portb.5 then goto send
goto start

send:
if porta.4 = 1 then goto eleven
portb = porta : goto start

eleven:
if porta.0 = 0 then goto ten
portb = 11 : goto start

ten:
portb = 10 : goto start
end

But I wonder if the original poster didn't mean to use this:

trisa = $FF : trisb = $F0 : p var byte
start:
if portb.4 = %0 then goto trigger
goto start

trigger:
pause 500 : if portb.5 = %1 then goto send
goto start

send:
if porta.4 = %1 then goto eleven
portb = porta : goto start

eleven:
if porta.0 = %0 then goto ten
portb = %11 : goto start

ten:
portb = %10 : goto start
end

Notice the 'special' characters added...