+$/
[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 .+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
[
[
[JUMP-FF
[
[JUMP FLIP-FLOP
[IF SET, WILL RETURN AT .+2
[IF RESET, WILL RETURN AT .+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 .+5
JMP 0
[SET
LDA I
XSK I 0
STC .+1
[FLIP-FLOP
#8J <FF INSTR>
JMP 0
[
[