Parallax BASIC Stamp 1, Programming Manual

Page: 86 / 353

BRANCH - BASIC Stamp Command Reference
Page 84
•
BASIC Stamp Programming Manual 2.0b
•
www.parallaxinc.com
Demo Program (BRANCH.bas)
This program shows how the value of Idx controls the destination of the BRANCH instruction.
'{$STAMP BS1} ‘STAMP directive (specifies a BS1)
SYMBOL Idx = B0
Start:
FOR Idx = 0 to 3
DEBUG “Idx: “, #Idx
BRANCH Idx, (Case0, Case1, Case2) ‘If Idx = 0..2 branch to specified label
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} ‘STAMP directive (specifies a BS2)
Idx VAR BYTE
Start:
FOR Idx = 0 to 3
DEBUG “Idx: “, DEC Idx
BRANCH Idx, [Case0, Case1, Case2] ‘If Idx = 0..2 branch to specified label
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
1
2
e
2
sx
2
p
2
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.