{\scriptsize\begin{verbatim}
 CLEAR STORAGE 1     ,008015,022026,030037,044,049,053053N000000N00001026                                         1
 CLEAR STORAGE 2     L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0?                      2
 BOOTSTRAP           ,008015,022029,036040,047054,061068,072/061039              ,0010011040                      3
 
                           TEST INFRASTRUCTURE                                                            PAGE    1
 
  SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  101                JOB   TEST INFRASTRUCTURE
  102         *
  103         * SENSE SWITCHES:
  104         * B ON FOR TIGHTEST LOOP -- FOR SCOPING
  105         * C ON TO PRINT CORRECT RESULTS
  106         * D ON TO LOOP OVER TEST PLUS PRINTING
  107         * E ON TO HALT ON ERROR INSTEAD OF PRINTING
  108         *
  109         * DETAIL FORMAT:
  110         * 1-6   LENGTHS OF UP TO SIX INSTRUCTIONS IN TEST
  111         * 7-45  INSTRUCTIONS TO IMPLEMENT TEST
  112         * 46-52 A FIELD OR D MODIFIER
  113         * 53-66 B FIELD
  114         * 67-80 CORRECT RESULT
  115         *
  116         * HALTS:
  117         * 086 IN A-STAR AND B-STAR IF TAPE READ ERROR
  118         * 099 IN A-STAR AND B-STAR IF TEST FAILURE
  119         *
  120                ORG   333                                                                0333
  121         *
  122         * PAGE HEADING
  123         *
  124         START  CS    332                                                      4  0333  / 332                4
  125                CS                                                             1  0337  /                    4
  126                MCW   @A/D----@,207         201-207                            7  0338  M 619 207            4
  127                MCW   @B-------------@,229  216-229                            7  0345  M 633 229            4
  128                MCW   @SHOULD BE-----@,249  236-249                            7  0352  M 647 249            4
  129                MCW   @ACTUAL--------@,269  256-269                            7  0359  M 661 269            4
  130                MCW   @STATUS@,281          276-285                            7  0366  M 667 281            5
  131                W                                                              1  0373  2                    5
  132                CS                                                             1  0374  /                    5
  133                CS                                                             1  0375  /                    5
  134         *
  135         * READ A TEST AND EXECUTE IT
  136         *
  137         READIT BCE   TAPEIN,81,"  TAPE LOAD PUTS GM IN 81                     8  0376  B 402 081 "          5
  138                CS    80           START FRESH                                 4  0384  / 080                5
  139                R     GOTIT                                                    4  0388  1 415                5
  140         TAPERR BSP   1                                                        5  0392  U %U1 B              6
  141                NOP   86           HALT 86 FOR TAPE ERROR                      4  0397  N 086                6
  142                H                                                              1  0401  .                    6
  143         TAPEIN RT    1,1                                                      8  0402  M %U1 001 R          6
  144                BER   TAPERR                                                   5  0410  B 392 L              6
  145         *
  146         * GOT A DETAIL RECORD.  PRINT IT IF 1 IS *
  147         *
  148         GOTIT  BCE   PRNTDR,1,*                                               8  0415  B 427 001 *          6
  149         HOOK   B     SETUP                                                    4  0423  B 446                6
  150         PRNTDR SW    1        PRINT THE DETAIL RECORD                         4  0427  , 001                7
  151                MCW   80,280                                                   7  0431  M 080 280            7
  152                W                                                              1  0438  2                    7
  153                CS    READIT,280                                               7  0439  / 376 280            7
  154         *
  155         * SET WORD MARKS FOR UP TO SIX INSTRUCTIONS
  156         *
  157         SETUP  MCW   @07@,SW&3    REFRESH CHANGED INSTRUCTIONS                7  0446  M 669 472            7
  158                MCW   @1@,ADD&3                                                7  0453  M 670 480            7
  159                SW    6                                                        4  0460  , 006                7
  160                CHAIN 5                                                                             MACRO
  161                SW                                                             1  0464  ,           GEN      8
  162                SW                                                             1  0465  ,           GEN      8
  163                SW                                                             1  0466  ,           GEN      8
  164                SW                                                             1  0467  ,           GEN      8
  165                SW                                                             1  0468  ,           GEN      8
  166         SW     SW    0-0          SET WORD MARK UNDER INSTRUCTION             4  0469  , 000                8
  167                SW    SW&1                                                     4  0473  , 470                8
  168         ADD    A     0-0,SW&3     BUMP WHERE TO SET WORD MARK                 7  0477  A 000 472            9
  169                CW    SW&1                                                     4  0484  ) 470                9
  170                BCE   DONESW,ADD&3,7  DONE SETTING WORD MARKS?                 8  0488  B 507 480 7          9
  171                A     *-6,ADD&3    BUMP INSTRUCTION WIDTH COUNTER              7  0496  A 496 480            9
  172                B     SW           GO SET ANOTHER WORD MARK                    4  0503  B 469                9
  173         *
  174         * DONE SETTING WORD MARKS UNDER INSTRUCTIONS
  175         * SET WORD MARKS FOR A, B, CORRECT AND ID FIELDS
  176         * MOVE FIELDS TO PRINT AREA
  177         *
  178         DONESW SW    46,53        SET WORD MARKS FOR A, B                     7  0507  , 046 053            9
  179                SW    67             AND SHOULD BE FIELDS                      4  0514  , 067               10
  180                MCW   52,207       LOAD A FIELD TO PRINT AREA                  7  0518  M 052 207           10
  181                MCW   66,229            B FIELD                                7  0525  M 066 229           10
  182                MCW   80,249            SHOULD BE                              7  0532  M 080 249           10
  183         *
  184         * RUN THE TEST
  185         *
  186                B     7                                                        4  0539  B 007               10
  187         *
  188         * RETURN  HERE FOR SUCCESS
  189         *
  190         WORKED BSS   7,B          TIGHT LOOP FOR SCOPING                      5  0543  B 007 B             10
  191                BSS   PRNTOK,C     PRINT CORRECT RESULT                        5  0548  B 557 C             10
  192                B     TESTD                                                    4  0553  B 574               11
  193         PRNTOK MCW   @OK@,277                                                 7  0557  M 672 277           11
  194         PRNTIT MCW   66,269       ACTUAL RESULT                               7  0564  M 066 269           11
  195                W                                                              1  0571  2                   11
  196                CS                                                             1  0572  /                   11
  197                CS                                                             1  0573  /                   11
  198         TESTD  BSS   7,D          LOOSE LOOP -- TEST & PRINT                  5  0574  B 007 D             11
  199                B     READIT       GO DO ANOTHER TEST                          4  0579  B 376               12
  200         *
  201         * RETURN HERE FOR FAILURE
  202         *
  203         FAILED BSS   7,B          TIGHT LOOP FOR SCOPING                      5  0583  B 007 B             12
  204                BSS   ERRHLT,E     ERROR HALT?                                 5  0588  B 604 E             12
  205                MCW   @ERROR@,280                                              7  0593  M 677 280           12
  206                B     PRNTIT                                                   4  0600  B 564               12
  207         ERRHLT NOP   99           HALT 99 FOR TEST FAILURE                    4  0604  N 099               12
  208                H                                                              1  0608  .                   12
  209                B     TESTD                                                    4  0609  B 574               13
                     DCW   @A/D----@                                                7  0619              LIT     13
                     DCW   @B-------------@                                        14  0633              LIT     13
                     DCW   @SHOULD BE-----@                                        14  0647              LIT     13
                     DCW   @ACTUAL--------@                                        14  0661              LIT     14
                     DCW   @STATUS@                                                 6  0667              LIT     14
                     DCW   @07@                                                     2  0669              LIT     14
                     DCW   @1@                                                      1  0670              LIT     14
                     DCW   @OK@                                                     2  0672              LIT     14
                     DCW   @ERROR@                                                  5  0677              LIT     14
  210                END   START                                                             / 333 080
 
 SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS

 ADD       477    DONESW    507    ERRHLT    604    FAILED    583    GOTIT     415    HOOK      423    PRNTDR    427
 PRNTIT    564    PRNTOK    557    READIT    376    SETUP     446    START     333    SW        469    TAPEIN    402
 TAPERR    392    TESTD     574    WORKED    543
\end{verbatim}}
