Translation Problem

[Archangel]

Hi Joe,

Thanks for chiming it - however, it is not clear to me what your version fixes or why one would want to add a goto when the IF command already "gotos"? Are you suggesting this to make it more readable?

Hi Paul,
Er, ah yes . . .
the code looks convoluted with the label following THEN without a goto or gosub, I am sure it only looks that way to me. But as skimask might point out to me on page 80 of the little green book, at the top it really is ok. My Bad must sleep more and respond less . . .

[paul borgmeier]

My Bad must sleep more and respond less . . .

Actaully, I recommend you do the opposite - that is what I do and it seems to work (for me).

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