Apple II User Manual

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