[FALLTHRU
[
[ALLOWS CONTROLLED LOOPING
[ENTER AT 8F
[CALL: JMP 8F
[      <DISPATCH>
[      NEXT INSTRUCTION
[
[8W: WAIT SWITCH
[COMMONLY SNS N OR SXL N
[DISPATCH IS COMMONLY A JMP <SUBROUTINE>
[WILL EXECUTE DISPATCH UNTIL 8W CHANGED
[NEEDS 8W=SOMETHING IN MANUSCRIPT
[
#8F LDA
0
BCL i
JMP-ADD
STC p+1
<ADD DISPATCH>
STA [DISPATCH
p+16
STC p+21
XSK i 0
ADD 0
STC p+15 [RETURN
LDA i
8W
BCO i
i
STC p+7 [NOT 8W
8W
JMP p+5
8W
JMP p+4 [RETURN
<DISPATCH>
JMP p-3
<NOT 8W>
<RETURN>
<DISPATCH>
JMP p-3
[
[