Parallax BASIC Stamp 2e Programming Manual page 86

BRANCH - BASIC Stamp Command Reference
Demo Program (BRANCH.bas)
This program shows how the value of Idx controls the destination of the BRANCH instruction.
'{$STAMP BS1}
SYMBOL Idx = B0
Start:
FOR Idx = 0 to 3
DEBUG "Idx: ", #Idx
BRANCH Idx, (Case0, Case1, Case2)
GOTO Start 'If Idx>2 then Start.
Case0:
DEBUG "Branched to Case0",cr
GOTO Start
Case1:
DEBUG "Branched to Case1",cr
GOTO Start
Case2:
DEBUG "Branched to Case2",cr
GOTO Start
Demo Program (BRANCH.bs2)
This program shows how the value of Idx controls the destination of the BRANCH instruction.
'{$STAMP BS2}
Idx VAR BYTE
Start:
FOR Idx = 0 to 3
DEBUG "Idx: ", DEC Idx
BRANCH Idx, [Case0, Case1, Case2]
GOTO Start 'If Idx>2 then Start.
Case0:
DEBUG "Branched to Case0",cr
GOTO Start
Case1:
DEBUG "Branched to Case1",cr
GOTO Start
Case2:
DEBUG "Branched to Case2",cr
GOTO Start
Page 84 • BASIC Stamp Programming Manual 2.0b • www.parallaxinc.com
'STAMP directive (specifies a BS1)
'If Idx = 0..2 branch to specified label
'STAMP directive (specifies a BS2)
'If Idx = 0..2 branch to specified label
1
2 2 2
2
e
sx p
NOTE: This is written for the BS2
but can be used for the BS2e,
BS2sx and BS2p also. Locate the
proper source code file or modify
the STAMP directive before
downloading to the BS2e, BS2sx or
BS2p.