                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        /INSERT BREAKPOINTS FOR DEBUGGING
/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
$
                                                                                  