/TOGGLE BRKPT ADDRESS INTO 0140, START AT /ADDRESS 141 TO SAVE BRKPT INSTRUCTION *140 ADDR, 0 START, TAD I ADDR DCA HOLD TAD CONST DCA I ADDR HLT /GO TO POINT IN PROGRAM TO BEGIN OR /CONTINUE IF NEW BRKPT HAS BEEN INSERTED JMP PROGM BRK, 0 DCA SAC RAL DCA LINK CMA TAD BRK DCA BRK HLT /HLT TO EXAMINE REGISTERS /RESTORE BRKPT ADDRESS TO ORIGINAL PROGRAM RSTR, CLA CLL TAD HOLD DCA I BRK HLT /PUT IN NEW BRKPT BY TOGGLING IT INTO 140 /OR CONTINUE PROGRAM WITHOUT BREAKPOINT PROGM, CLA CLL TAD LINK RAR TAD SAC JMP I BRK LINK, 0 SAC, 0 HOLD, 0 CONST, JMS Z BRK $