1100 E6C9 D0 2F BNE BRK4 ;IF $10 TAPE CNTRL IS OFF
1101 E6CB
1102 E6CB ;***** 2 COMMAND-TOGGLE TAPE 2 CONTROL *****
1103 E6CB AD 00 A8 TOGTA2 LDA DRB
1104 E6CE 49 20 EOR #$20 ;INVERT PB5
1105 E6D0 8D 00 A8 STA DRB
1106 E6D3 29 20 AND #$20
1107 E6D5 F0 1A BEQ BRK3
1108 E6D7 D0 21 BNE BRK4
1109 E6D9
1110 E6D9 ;***** V COMMAND-TOGGLE REGISTER DISP FLG *****
1111 E6D9 ;DISPLAY REGIST BEFORE EXEC
1112 E6D9 A2 0E REGT LDX #REGF
1113 E6DB D0 0A BNE TOGL
1114 E6DD
1115 E6DD ;****** Z COMMAND-TOGGLE DIS TRACE FLG *****
1116 E6DD ;DISPL NEXT INSTR BEFORE EXEC
1117 E6DD A2 0F TRACE LDX #DISFLG
1118 E6DF D0 06 BNE TOGL
1119 E6E1
1120 E6E1 ;***** \ COMMAND-TOGGLE PRINTER FLAG *****
1121 E6E1 A2 11 PRITR LDX #PRIFLG
1122 E6E3 D0 02 BNE TOGL
1123 E6E5
1124 E6E5 ;***** 4 COMMAND-TOGGLE SOFT BRK ENABL FLG *****
1125 E6E5 A2 10 BRKK LDX #BKFLG
1126 E6E7
1127 E6E7 BD 00 A4 TOGL LDA MONRAM,X ;LOAD FLAG
1128 E6EA F0 0A BEQ TOGL1 ;FLAG IS OFF ,SO TURN ON
1129 E6EC A9 00 LDA #0 ;FLAG IS ON ,SO TURN OFF
1130 E6EE 9D 00 A4 STA MONRAM,X
1131 E6F1 A0 24 BRK3 LDY #M7-M1 ;PRINT "OFF"
1132 E6F3 4C AF E7 BRK2 JMP KEP
1133 E6F6 38 TOGL1 SEC ;TURN FLAG ON BY SETTING NON-ZERO
1134 E6F7 7E 00 A4 ROR MONRAM,X ;FLAG IS ON MSB
1135 E6FA A0 21 BRK4 LDY #M6-M1 ;PRINT "ON"
1136 E6FC D0 F5 BNE BRK2
1137 E6FE
1138 E6FE ;***** # COMMAND-CLEAR ALL BREAKS *****
1139 E6FE A9 00 CLRBK LDA #0 ;STORE ZEROS INTO BRKPT LIST
1140 E700 A2 07 LDX #7
1141 E702 9D 00 01 RS20 STA BKS,X
1142 E705 CA DEX
1143 E706 10 FA BPL RS20
1144 E708 30 E7 BMI BRK3 ;PRINT "OFF"
1145 E70A
1146 E70A ;***** K COMMAND-DISASSEMBLE MEMORY *****
1147 E70A A9 2A KDISA LDA #'*' ;GET START ADDRESS
1148 E70C 20 7A E9 JSR OUTPUT
1149 E70F 20 AE EA JSR ADDIN
1150 E712 B0 F6 BCS KDISA ;IF ERROR DO IT AGAIN
1151 E714 20 D7 E5 JSR CGPC0 ;GET IT INTO PROG CNTR
1152 E717 20 37 E8 JSR PSL1 ;PRINT "/"
1153 E71A 20 85 E7 JSR GCNT ;GET COUNT
1154 E71D 20 24 EA JSR CRCK
1155 E720 4C 2B E7 JMP JD2
1156 E723 20 07 E9 JD1 JSR RCHEK ;SEE IF HE WANTS TO INTERRUPT
1157 E726 20 90 E7 JSR DONE
1158 E729 F0 17 BEQ JD4
1159 E72B 20 6C F4 JD2 JSR DISASM ;GO TO DISASSEMBLER
1160 E72E AD 25 A4 LDA SAVPC ;POINT TO NEXT INSTRUC LOCAT
1161 E731 38 SEC ;ONE MORE TO PROG CNTR