'{$STAMP BS2}
'{$PBASIC 2.5}
N9600 CON $4054 'Baudmode-9600 bps inverted.Use $40F0 for BS2-SX
I CON 254 'Instruction prefix value.
CLR CON 1 'LCD clear-screen instruction
LINE2 CON 192 'Address of 1st char of 2nd line.
L1_C7 CON 135 'Address of line 1,character 7.
FB VAR Word
RL VAR Word
DO
PULSIN 6, 1, FB
PULSIN 7, 1, RL
DEBUG CLREOL ,CR, CR, "Accelerometor"
DEBUG CLREOL ,CR , ? FB, ? RL
PAUSE 100
PAUSE 1
SEROUT 0,n9600,[I,"FB=",
DEC FB, "RL=",
DEC RL]
LOOP