{\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-5   LENGTHS OF UP TO FIVE INSTRUCTIONS IN TEST
  111         * 6-40  INSTRUCTIONS TO IMPLEMENT TEST
  112         * 41-45 A FIELD
  113         * 46-50 B FIELD
  114         * 51-55 CORRECT RESULT
  115         * 56-75 DESCRIPTION
  116         * 76-80 TEST ID
  117         *
  118         * HALTS:
  119         * 086 IN A-STAR AND B-STAR IF TAPE READ ERROR
  120         * 099 IN A-STAR AND B-STAR IF TEST FAILURE
  121         *
  122                ORG   333                                                                0333
  123         *
  124         * PAGE HEADING
  125         *
  126         START  CS    332                                                      4  0333  / 332                4
  127                CS                                                             1  0337  /                    4
  128                MCW   @A/D@,203                                                7  0338  M 655 203            4
  129                MCW   @B@,211                                                  7  0345  M 656 211            4
  130                MCW   @SHOULD BE@,229                                          7  0352  M 665 229            4
  131                MCW   @ACTUAL@,238                                             7  0359  M 671 238            4
  132                MCW   @STATUS@,247                                             7  0366  M 677 247            5
  133                MCW   @DESCRIPTION@,261                                        7  0373  M 688 261            5
  134                MCW   @ID@,276                                                 7  0380  M 690 276            5
  135                W                                                              1  0387  2                    5
  136                CS                                                             1  0388  /                    5
  137                CS                                                             1  0389  /                    5
  138         *
  139         * READ A TEST AND EXECUTE IT
  140         *
  141         READIT BCE   TAPEIN,81,"  TAPE LOAD PUTS GM IN 81                     8  0390  B 416 081 "          5
  142                CS    80           START FRESH                                 4  0398  / 080                6
  143                R     GOTIT                                                    4  0402  1 429                6
  144         TAPERR BSP   1                                                        5  0406  U %U1 B              6
  145                NOP   86           HALT 86 FOR TAPE ERROR                      4  0411  N 086                6
  146                H                                                              1  0415  .                    6
  147         TAPEIN RT    1,1                                                      8  0416  M %U1 001 R          6
  148                BER   TAPERR                                                   5  0424  B 406 L              6
  149         *
  150         * GOT A DETAIL RECORD.  PRINT IT IF 1 IS *
  151         *
  152         GOTIT  BCE   PRNTDR,1,*                                               8  0429  B 441 001 *          7
  153         HOOK   B     SETUP                                                    4  0437  B 460                7
  154         PRNTDR SW    1        PRINT THE DETAIL RECORD                         4  0441  , 001                7
  155                MCW   80,280                                                   7  0445  M 080 280            7
  156                W                                                              1  0452  2                    7
  157                CS    READIT,280                                               7  0453  / 390 280            7
  158         *
  159         * SET WORD MARKS FOR UP TO SIX INSTRUCTIONS
  160         *
  161         SETUP  MCW   @06@,SW&3    REFRESH CHANGED INSTRUCTIONS                7  0460  M 692 485            7
  162                MCW   @1@,ADD&3                                                7  0467  M 693 493            8
  163                SW    5                                                        4  0474  , 005                8
  164                CHAIN 4                                                                             MACRO
  165                SW                                                             1  0478  ,           GEN      8
  166                SW                                                             1  0479  ,           GEN      8
  167                SW                                                             1  0480  ,           GEN      8
  168                SW                                                             1  0481  ,           GEN      8
  169         SW     SW    0-0          SET WORD MARK UNDER INSTRUCTION             4  0482  , 000                8
  170                SW    SW&1                                                     4  0486  , 483                9
  171         ADD    A     0-0,SW&3     BUMP WHERE TO SET WORD MARK                 7  0490  A 000 485            9
  172                CW    SW&1                                                     4  0497  ) 483                9
  173                BCE   DONESW,ADD&3,6  DONE SETTING WORD MARKS?                 8  0501  B 528 493 6          9
  174                A     *-6,ADD&3    BUMP INSTRUCTION WIDTH COUNTER              7  0509  A 509 493            9
  175                B     SW           GO SET ANOTHER WORD MARK                    4  0516  B 482                9
  176         SW6    SW    6            SET WM UNDER FIRST INSTRUCTION              4  0520  , 006                9
  177         ADD1   A     1            ADD COUNT IN COLUMN 1                       4  0524  A 001               10
  178         *
  179         * DONE SETTING WORD MARKS UNDER INSTRUCTIONS
  180         * SET WORD MARKS FOR A, B, CORRECT, DESCRIPTION AND ID FIELDS
  181         * MOVE FIELDS TO PRINT AREA
  182         *
  183         DONESW SW    41,46                                                    7  0528  , 041 046           10
  184                SW    51,56                                                    7  0535  , 051 056           10
  185                SW    76                                                       4  0542  , 076               10
  186                MCW   45,205                                                   7  0546  M 045 205           10
  187                MCW   50,215                                                   7  0553  M 050 215           10
  188                MCW   55,225                                                   7  0560  M 055 225           11
  189                MCW   75,270                                                   7  0567  M 075 270           11
  190                MCW   80,279                                                   7  0574  M 080 279           11
  191         *
  192         * RUN THE TEST
  193         *
  194                B     6                                                        4  0581  B 006               11
  195         *
  196         * RETURN  HERE FOR SUCCESS
  197         *
  198         WORKED BSS   6,B          TIGHT LOOP FOR SCOPING                      5  0585  B 006 B             11
  199                BSS   PRNTOK,C     PRINT CORRECT RESULT                        5  0590  B 599 C             11
  200                B     TESTD                                                    4  0595  B 614               11
  201         PRNTOK MCW   @OK   @,246                                              7  0599  M 698 246           12
  202         PRNTIT MCW   50,237       ACTUAL RESULT                               7  0606  M 050 237           12
  203                W                                                              1  0613  2                   12
  204         TESTD  BSS   6,D          LOOSE LOOP -- TEST & PRINT                  5  0614  B 006 D             12
  205                B     READIT       GO DO ANOTHER TEST                          4  0619  B 390               12
  206         *
  207         * RETURN HERE FOR FAILURE
  208         *
  209         FAILED BSS   6,B          TIGHT LOOP FOR SCOPING                      5  0623  B 006 B             12
  210                BSS   ERRHLT,E     ERROR HALT?                                 5  0628  B 644 E             12
  211                MCW   @ERROR@,246                                              7  0633  M 703 246           13
  212                B     PRNTIT                                                   4  0640  B 606               13
  213         ERRHLT NOP   99           HALT 99 FOR TEST FAILURE                    4  0644  N 099               13
  214                H                                                              1  0648  .                   13
  215                B     TESTD                                                    4  0649  B 614               13
                     DCW   @A/D@                                                    3  0655              LIT     13
                     DCW   @B@                                                      1  0656              LIT     13
                     DCW   @SHOULD BE@                                              9  0665              LIT     14
                     DCW   @ACTUAL@                                                 6  0671              LIT     14
                     DCW   @STATUS@                                                 6  0677              LIT     14
                     DCW   @DESCRIPTION@                                           11  0688              LIT     14
                     DCW   @ID@                                                     2  0690              LIT     14
                     DCW   @06@                                                     2  0692              LIT     14
                     DCW   @1@                                                      1  0693              LIT     14
                     DCW   @OK   @                                                  5  0698              LIT     15
                     DCW   @ERROR@                                                  5  0703              LIT     15
  216                END   START                                                             / 333 080
 
 SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS

 ADD       490    ADD1      524    DONESW    528    ERRHLT    644    FAILED    623    GOTIT     429    HOOK      437
 PRNTDR    441    PRNTIT    606    PRNTOK    599    READIT    390    SETUP     460    START     333    SW        482
 SW6       520    TAPEIN    416    TAPERR    406    TESTD     614    WORKED    585
\end{verbatim}}
