PBASIC2.5 Question

[breontom]

I want to read Pins 0-7 successively in a FOR/NEXT loop, like:

IF IN(i) <>1 THEN . . . . .

I've tried using the PIN directive but have been unsuccessful.

Is there a way to do this?

[Mike G]

See the STAMP help file for more information on bit aliases.


' {$STAMP BS2p}
' {$PBASIC 2.5}

aWord VAR Word
aBit VAR Byte

aWord = %1010101000001111

FOR aBit = 0 TO 15
IF aWord.BIT0(aBit) = 1 THEN
DEBUG "One", CR
ELSE
DEBUG "Zero", CR
ENDIF
'DEBUG ?aWord.BIT0(aBit)
NEXT

[breontom]

Thanks. Your code, and the INL command, allowed me to use the pin inputs in a FOR..NEXT loop successfully.