+$/
[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 .+1
<ADD DISPATCH>
STA [DISPATCH
.+16
STC .+21
XSK I 0
ADD 0
STC .+15 [RETURN
LDA I
8W
BCO I
I
STC .+7 [NOT 8W
8W
JMP .+5
8W
JMP .+4 [RETURN
<DISPATCH>
JMP .-3
<NOT 8W>
<RETURN>
<DISPATCH>
JMP .-3
[
[