[CUTESUBS
[
[CONTAINS KONSTANT, FALLTHRU, JUMP-FF
[
[#8K, KONSTANT, HAS LIST OF CONSTANTS
[#8F, FALLTHRU, IS LOOP CONTROLLER
[#8J, JUMP-FF, IS JUMP FLIP-FLOP CONTROLLER
[
[
[
[KONSTANT
[
[-10, -4 TO +4, +10
[IN 8K-5, 8K-4 TO 8K+4, 8K+5
[8K CONTAINS -0
[
-10
-4
-3
-2
-1
#8K -0
1
2
3
4
10
[
[
[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
[
[
[JUMP-FF
[
[JUMP FLIP-FLOP
[IF SET, WILL RETURN AT p+2
[IF RESET, WILL RETURN AT p+1
[
[TO SET, JMP 8J-3
[TO RESET, JMP 8J-7
[TO UTILIZE, JMP 8J
[ENTRY AT 8J
[CALL: JMP 8J
[      <RESET DISPATCH>
[      <SET DISPATCH>
[
[RESET
LDA i
NOP
STC p+5
JMP 0
[SET
LDA i
XSK i 0
STC p+1
[FLIP-FLOP
#8J <FF INSTR>
JMP 0
[
[