{\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-55 A FIELD OR D MODIFIER
  113         * 56-65 B FIELD
  114         * 66-75 CORRECT RESULT
  115         * 76-80 TEST ID
  116         *
  117         * HALTS:
  118         * 086 IN A-STAR AND B-STAR IF TAPE READ ERROR
  119         * 099 IN A-STAR AND B-STAR IF TEST FAILURE
  120         *
  121                ORG   333                                                                0333
  122         *
  123         * PAGE HEADING
  124         *
  125         START  CS    332                                                      4  0333  / 332                4
  126                CS                                                             1  0337  /                    4
  127                MCW   @A/D@,203        201-210                                 7  0338  M 632 203            4
  128                MCW   @B@,216          216-225                                 7  0345  M 633 216            4
  129                MCW   @SHOULD BE@,239  231-240                                 7  0352  M 642 239            4
  130                MCW   @ACTUAL@,251     246-255                                 7  0359  M 648 251            4
  131                MCW   @STATUS@,266     261-270                                 7  0366  M 654 266            5
  132                MCW   @ID@,277         276-280                                 7  0373  M 656 277            5
  133                W                                                              1  0380  2                    5
  134                CS                                                             1  0381  /                    5
  135                CS                                                             1  0382  /                    5
  136         *
  137         * READ A TEST AND EXECUTE IT
  138         *
  139         READIT BCE   TAPEIN,81,"  TAPE LOAD PUTS GM IN 81                     8  0383  B 409 081 "          5
  140                CS    80           START FRESH                                 4  0391  / 080                5
  141                R     GOTIT                                                    4  0395  1 422                6
  142         TAPERR BSP   1                                                        5  0399  U %U1 B              6
  143                NOP   86           HALT 86 FOR TAPE ERROR                      4  0404  N 086                6
  144                H                                                              1  0408  .                    6
  145         TAPEIN RT    1,1                                                      8  0409  M %U1 001 R          6
  146                BER   TAPERR                                                   5  0417  B 399 L              6
  147         *
  148         * GOT A DETAIL RECORD.  PRINT IT IF 1 IS *
  149         *
  150         GOTIT  BCE   PRNTDR,1,*                                               8  0422  B 434 001 *          6
  151         HOOK   B     SETUP                                                    4  0430  B 453                7
  152         PRNTDR SW    1        PRINT THE DETAIL RECORD                         4  0434  , 001                7
  153                MCW   80,280                                                   7  0438  M 080 280            7
  154                W                                                              1  0445  2                    7
  155                CS    READIT,280                                               7  0446  / 383 280            7
  156         *
  157         * SET WORD MARKS FOR UP TO SIX INSTRUCTIONS
  158         *
  159         SETUP  MCW   @07@,SW&3    REFRESH CHANGED INSTRUCTIONS                7  0453  M 658 479            7
  160                MCW   @1@,ADD&3                                                7  0460  M 659 487            7
  161                SW    6                                                        4  0467  , 006                8
  162                CHAIN 5                                                                             MACRO
  163                SW                                                             1  0471  ,           GEN      8
  164                SW                                                             1  0472  ,           GEN      8
  165                SW                                                             1  0473  ,           GEN      8
  166                SW                                                             1  0474  ,           GEN      8
  167                SW                                                             1  0475  ,           GEN      8
  168         SW     SW    0-0          SET WORD MARK UNDER INSTRUCTION             4  0476  , 000                8
  169                SW    SW&1                                                     4  0480  , 477                9
  170         ADD    A     0-0,SW&3     BUMP WHERE TO SET WORD MARK                 7  0484  A 000 479            9
  171                CW    SW&1                                                     4  0491  ) 477                9
  172                BCE   DONESW,ADD&3,7  DONE SETTING WORD MARKS?                 8  0495  B 514 487 7          9
  173                A     *-6,ADD&3    BUMP INSTRUCTION WIDTH COUNTER              7  0503  A 503 487            9
  174                B     SW           GO SET ANOTHER WORD MARK                    4  0510  B 476                9
  175         *
  176         * DONE SETTING WORD MARKS UNDER INSTRUCTIONS
  177         * SET WORD MARKS FOR A, B, CORRECT AND ID FIELDS
  178         * MOVE FIELDS TO PRINT AREA
  179         *
  180         DONESW SW    46,56                                                    7  0514  , 046 056           10
  181                SW    66,76                                                    7  0521  , 066 076           10
  182                MCW   55,210                                                   7  0528  M 055 210           10
  183                MCW   65,225                                                   7  0535  M 065 225           10
  184                MCW   75,240                                                   7  0542  M 075 240           10
  185                MCW   80,280                                                   7  0549  M 080 280           11
  186         *
  187         * RUN THE TEST
  188         *
  189                B     7                                                        4  0556  B 007               11
  190         *
  191         * RETURN  HERE FOR SUCCESS
  192         *
  193         WORKED BSS   7,B          TIGHT LOOP FOR SCOPING                      5  0560  B 007 B             11
  194                BSS   PRNTOK,C     PRINT CORRECT RESULT                        5  0565  B 574 C             11
  195                B     TESTD                                                    4  0570  B 591               11
  196         PRNTOK MCW   @OK@,262                                                 7  0574  M 661 262           11
  197         PRNTIT MCW   65,255       ACTUAL RESULT                               7  0581  M 065 255           11
  198                W                                                              1  0588  2                   12
  199                CS                                                             1  0589  /                   12
  200                CS                                                             1  0590  /                   12
  201         TESTD  BSS   7,D          LOOSE LOOP -- TEST & PRINT                  5  0591  B 007 D             12
  202                B     READIT       GO DO ANOTHER TEST                          4  0596  B 383               12
  203         *
  204         * RETURN HERE FOR FAILURE
  205         *
  206         FAILED BSS   7,B          TIGHT LOOP FOR SCOPING                      5  0600  B 007 B             12
  207                BSS   ERRHLT,E     ERROR HALT?                                 5  0605  B 621 E             12
  208                MCW   @ERROR@,265                                              7  0610  M 666 265           13
  209                B     PRNTIT                                                   4  0617  B 581               13
  210         ERRHLT NOP   99           HALT 99 FOR TEST FAILURE                    4  0621  N 099               13
  211                H                                                              1  0625  .                   13
  212                B     TESTD                                                    4  0626  B 591               13
                     DCW   @A/D@                                                    3  0632              LIT     13
                     DCW   @B@                                                      1  0633              LIT     13
                     DCW   @SHOULD BE@                                              9  0642              LIT     14
                     DCW   @ACTUAL@                                                 6  0648              LIT     14
                     DCW   @STATUS@                                                 6  0654              LIT     14
                     DCW   @ID@                                                     2  0656              LIT     14
                     DCW   @07@                                                     2  0658              LIT     14
                     DCW   @1@                                                      1  0659              LIT     14
                     DCW   @OK@                                                     2  0661              LIT     14
                     DCW   @ERROR@                                                  5  0666              LIT     15
  213                END   START                                                             / 333 080
 
 SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS

 ADD       484    DONESW    514    ERRHLT    621    FAILED    600    GOTIT     422    HOOK      430    PRNTDR    434
 PRNTIT    581    PRNTOK    574    READIT    383    SETUP     453    START     333    SW        476    TAPEIN    409
 TAPERR    399    TESTD     591    WORKED    560
\end{verbatim}}
