{\scriptsize\begin{verbatim}
 CLEAR STORAGE 1     ,008015,019026,030,034041,045,053,0570571026                                                 1
 CLEAR STORAGE 2     L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0                       2
 BOOTSTRAP           ,008015,022029,036040,047054,061068,072/061039              ,0010011040                      3
 
                           CHAIN LOADER                                               CHAIN               PAGE    1
 
  SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  101                JOB   CHAIN LOADER
  102         *
  103         * IF RUN FROM CARDS, JUST LOAD THE NEXT PROGRAM.
  104         *
  105         * OTHERWISE, LOAD THE PROGRAM SELECTED BY PARAMETERS IN
  106         * 181-186.  CLEAR FROM 100-180 AND 200 TO THE ADDRESS IN
  107         * 187-189.  IF 189 IS BLANK, USE 3999 FOR THE TOP ADDRESS
  108         * TO CLEAR
  109         *
  110         * STOPS:
  111         * 86 IN A-STAR AND B-STAR ON READ ERRORS.
  112         * 99 IN A-STAR AND B-STAR ON END OF FILE.
  113         *
  114         * FIELDS IN HEADER RECORDS
  115         *
  116         ISHEAD EQU   80  A = FOR HEADER                                          0080
  117         HEADTP EQU   79  T = TEST, C = CHAIN, H = PRINT, E = EOF                 0079
  118         HEADID EQU   76                                                          0076
  119         *
  120         * RESERVED MEMORY TO CONTROL THE CHAIN LOADER AND EACH PROGRAM.
  121         * THE LOW-ORDER DIGIT OF THE ADDRESS OF TARGID MUST BE SIX.
  122         *
  123         TARGEQ EQU   181  / FOR 'RUN TARGET IF UNEQUAL,'                         0181
  124         *                 S FOR 'RUN TARGET IF EQUAL,'
  125         *                 T FOR 'RUN IF TARGET ID LESS THAN TEST ID,'
  126         *                 U FOR 'RUN IF TARGET ID GREATER THAN TEST ID,'
  127         *                 B...G FOR 'RUN IF THE SPECIFIED SENSE SWITCH
  128         *                       IS ON.'
  129         *                 BLANK FOR UNCONDITIONAL
  130         TARGNC EQU   182  LAST DIGIT OF TARGET ADDRESS 3-6                       0182
  131         TARGID EQU   186  TARGET ID                                              0186
  132         TOPADR EQU   189  TOP ADDRESS TO CLEAR, MAX 3999                         0189
  133         *
  134                ORG   201                                                                0201
  135         *
  136         * LOAD THE PROGRAM.  CLEAR CORE, EXCEPT FOR PARAMETER AREA, FIRST.
  137         *
  138                ORG   201                                                                0201
  139         LOAD   SW    300             DONE WHEN THIS IS CLEARED                4  0201  , 300                4
  140                LCA   TOP4K,CLEAR&3   DEFAULT TOP ADDRESS TO CLEAR             7  0205  L 263 234            4
  141                BCE   CLEARL,TOPADR,  USE DEFAULT IF PARAMETER BLOCK BLANK     8  0212  B 227 189            4
  142                MCW   TOPADR,CLEAR&4                                           7  0220  M 189 235            4
  143         CLEARL CW    CLEAR&1                                                  4  0227  ) 232                4
  144         CLEAR  CS    0-0            CLEAR A HUNDRED                           4  0231  / 000                4
  145                SW    CLEAR&1                                                  4  0235  , 232                4
  146                A     @I0@,CLEAR&2   SUBTRACT A HUNDRED                        7  0239  A 265 233            5
  147                BW    CLEARL,300     MORE TO DO?                               8  0246  V 227 300 1          5
  148                CS    1,299          CLEAR ME AND RUN THE HEADER               7  0254  / 001 299            5
  149         TOP4K  DSA   3999                                                     3  0263  I99                  5
  150                LTORG *                                                                  0264
                     DCW   @I0@                                                     2  0265              LIT      5
  151         *
  152         * START HERE
  153         *
  154         START  BCE   TAPE,81,"  TAPE LOAD DEPOSITS GM IN 81                   8  0266  B 282 081 "          5
  155                SW    1                                                        4  0274  , 001                5
  156                R     1                                                        4  0278  1 001                6
  157         TAPE   LCA   GM,81        DON'T CLOBBER THE LOADER                    7  0282  L 452 081            6
  158                CW    GM           SO THE HEADER CAN READ OTHER PROGRAMS       4  0289  ) 452                6
  159         *
  160         * SKIP TO A HEADER
  161         *
  162         SKIP1  RTW   1,1          READ A RECORD                               8  0293  L %U1 001 R          6
  163                BER   SKIPER       OOPS, IT'S AN ERROR                         5  0301  B 323 L              6
  164                BEF   SKIPEF       END OF FILE                                 5  0306  B 337 K              6
  165                BCE   HEADER,ISHEAD,A  IT'S A HEADER                           8  0311  B 351 080 A          7
  166                B     SKIP1        GO GET ANOTHER ONE                          4  0319  B 293                7
  167         *
  168         * ERROR WHILE HUNTING FOR A HEADER RECORD
  169         *
  170         SKIPER BSP   1            BACKSPACE                                   5  0323  U %U1 B              7
  171         SKIPQ  NOP   86                                                       4  0328  N 086                7
  172                H                                                              1  0332  .                    7
  173                B     SKIP1        TRY AGAIN                                   4  0333  B 293                7
  174         *
  175         * END OF FILE WHILE HUNTING FOR A HEADER RECORD
  176         *
  177         SKIPEF RWD   1            REWIND                                      5  0337  U %U1 R              7
  178                NOP   99                                                       4  0342  N 099                8
  179                H                                                              1  0346  .                    8
  180                B     SKIP1        TRY AGAIN                                   4  0347  B 293                8
  181         *
  182         * HEADER RECORD.
  183         *
  184         HEADER BCE   SKIP2,HEADTP,C   SKIP CHAIN LOADERS                      8  0351  B 415 079 C          8
  185                BCE   SKIPEF,HEADTP,E  END OF FILE RECORD                      8  0359  B 337 079 E          8
  186                BCE   LOAD,TARGNC,     TARGET ADDRESS DIGIT IS BLANK           8  0367  B 201 182            8
  187                MN    TARGNC,HEADC&3   SET UP COMPARE                          7  0375  D 182 406            9
  188                MN    TARGNC,HEADC&6                                           7  0382  D 182 409            9
  189                SW    TARGEQ,TARGID-3                                          7  0389  , 181 183            9
  190                MCW   TARGEQ,HEADB&4  SET UP BRANCH STATUS                     7  0396  M 181 414            9
  191         HEADC  C     HEADID,TARGID   TEST FOR TARGET                          7  0403  C 076 186            9
  192         HEADB  BIN   LOAD,*       BRANCH TO HEADER IF COMPARE SUCCEEDS        5  0410  B 201 *             10
  193         SKIP2  RTW   1,1          SKIP PROGRAM RECORD                         8  0415  L %U1 001 R         10
  194                BER   SKIP2E       OOPS, IT'S AN ERROR                         5  0423  B 437 L             10
  195                BEF   SKIPEF       END OF FILE                                 5  0428  B 337 K             10
  196                B     SKIP1        HUNT FOR HEADER                             4  0433  B 293               10
  197         SKIP2E BSP   1            BACKSPACE                                   5  0437  U %U1 B             10
  198                NOP   86                                                       4  0442  N 086               10
  199                H                                                              1  0446  .                   11
  200                BIN   SKIP2,                                                   5  0447  B 415               11
  201         *
  202         GM     DCW   @"@                                                      1  0452                      11
  203         *
  204                END   START                                                             / 266 080
 
 SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS

 CLEAR     231    CLEARL    227    GM        452    HEADB     410    HEADC     403    HEADER    351    HEADID     76
 HEADTP     79    ISHEAD     80    LOAD      201    SKIP1     293    SKIP2     415    SKIP2E    437    SKIPEF    337
 SKIPER    323    SKIPQ     328    START     266    TAPE      282    TARGEQ    181    TARGID    186    TARGNC    182
 TOP4K     263    TOPADR    189
\end{verbatim}}
