{\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
 
                           WRITE CHAIN TAPE                                                               PAGE    1
 
  SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD

  101                JOB   WRITE CHAIN TAPE
  102         *
  103         * READ PROGRAM HEADERS, PROGRAMS AND DETAIL CARDS, AND WRITE THEM
  104         * ON TAPE 6.  EVERYTHING IS WRITTEN WITH WORD MARKS, SO PROGRAMS
  105         * NEED TO READ DETAIL RECORDS WITH WORD MARKS, AND NOT EXPECT
  106         * WORD MARKS THEY SET TO BE PRESERVED.  THERE'S A WORD MARK IN 1
  107         * FOR DETAIL RECORDS.
  108         *
  109         * PROGRAM HEADERS HAVE  A  IN COLUMN 80, ID IN 73-76,  C IN 79 FOR
  110         * THE CHAIN LOADER, H IN 79 FOR THE PAGE HEADING PRINTING PROGRAM, T
  111         * IN 79 FOR TEST PROGRAMS, E IN 79 FOR THE END-OF-FILE PROGRAM, AN
  112         * OPTIONAL TITLE IN 49-71, AND THE FOLLOWING IN 1-27 IF IT'S NOT AN
  113         * END-OF-FILE PROGRAM:
  114         *
  115         * ....5...10...15...20...25..
  116         * ,008015,022026N0000001001
  117         * 1      1      1      1   1
  118         *
  119         * ON THE TAPE, 1-27 ARE REPLACED BY
  120         *
  121         * ....5...10...15...20...25..
  122         * L%U1201RB018LB###U%U1B.001
  123         * 1       1    1   1    1   1
  124         *
  125         * THE ### IS FILLED FROM THE ENTRY ADDRESS ON THE END CARD OF THE
  126         * PROGRAM'S OBJECT DECK.
  127         *
  128         * IF IT IS AN END-OF-FILE PROGRAM, THE FOLLOWING IS EXPECTED IN 1-36:
  129         *
  130         * ....5...10...15...20...25...30...35.
  131         * ,008015,022027,031032U%U1RN099.B001
  132         *
  133         * THE SOURCE CODE FOR THIS IS AT THE END OF THIS DECK.
  134         *
  135         * THE PROGRAM IS WRITTEN ON THE TAPE FROM 201 UP TO ITS GMWM, AND
  136         * IS READ BACK INTO 201.  THIS IS TO PRESERVE THE PARAMETER BLOCK
  137         * AT 181-199.  THUS, THE PROGRAM SHOULDN'T BOTHER TO LOAD ANYTHING
  138         * BELOW THAT.  IN PARTICULAR, IT SHOULDN'T DEPEND UPON INITIALIZING
  139         * THE INDEX REGISTERS.
  140         *
  141         * PROGRAM DECKS ARE IN AUTOCODER FORMAT.
  142         * THE PROGRAM CANNOT HAVE A GMWM WITHIN IT.  IF IT HAS NONE AT THE
  143         * END, THE ONE JUST BEFORE "HEADER" WILL SERVE.
  144         *
  145         * THE ENTRY POINT FOR EVERY PROGRAM IS TAKEN FROM THE /XXX080 CARD
  146         * AT THE END OF ITS DECK.
  147         *
  148         * HALTS IDENTIFIED BY A/B-STAR CONTENTS:
  149         * 111 => TAPE WRITE ERROR, START WRITES BLANK TAPE AND RETRIES
  150         * 666 => FIRST CARD IS NOT A HEADER, START READS ANOTHER
  151         * 999 => DONE, START LOOPS ON THE HALT
  152         *
  153         SYSTP  EQU   %U6                                                         %U6
  154         *
  155         START  R                                                              1  0333  1                    4
  156                BCE   HEADER,80,A   IS IT A HEADER                             8  0334  B G26 080 A          4
  157                NOP   666                                                      4  0342  N 666                4
  158                H                                                              1  0346  .                    4
  159                B     START                                                    4  0347  B 333                4
  160         *
  161         * THIS GMWM IS FOR WRITING DETAIL RECORDS.
  162         *
  163                ORG   81                                                                 0081
  164                DCW   @"@                                                      1  0081                       5
  165         *
  166         * THIS GMWM IS FOR WRITING HEADERS.
  167         *
  168                ORG   181                                                                0181
  169                DCW   @"@                                                      1  0181                       6
  170         *
  171         * SOME CONSTANTS
  172         *
  173                ORG   3692                                                               3692
  174         GMWM   DCW   @"@                                                      1  3692                       7
  175                ORG   *&X00                                                              3700
  176                ORG   *-100                                                              3600
  177         BCLEAR EQU   *                                                           3599
  178                ORG   GMWM&1                                                             3693
  179         KCLEAR DSA   BCLEAR                                                   3  3695  E99                  7
  180         * TAPE LOADER TO PUT IN THE HEADER THAT'S WRITTEN ON TAPE
  181                RTW   1,201                                                    8  3696  L %U1 201 R          7
  182                BER   21                                                       5  3704  B 021 L              7
  183         ENTRY  CS    345,80                                                   7  3709  / 345 080            7
  184                BSP   1                                                        5  3716  U %U1 B              7
  185                H     1                                                        4  3721  . 001                7
  186         TAPLDR DCW   #1                                                       1  3725                       8
  187         *
  188         * SAVE THE HEADER IN 101-180
  189         *
  190         HEADER SW    1,201        SET UP FOR AUTOCODER FORMAT, CLEAR          7  3726  , 001 201            8
  191                LCA   80,180                                                   7  3733  L 080 180            8
  192                BCE   WHEAD,79,E   END-FILE RECORD?                            8  3740  B H82 079 E          8
  193         *
  194         * LOAD AN AUTOCODER-FORMAT PROGRAM INTO LOW MEMORY.  ALL LOAD
  195         * CARDS HAVE "1040" IN 68-71.
  196         *
  197                MCW   KCLEAR,CLEAR&3                                           7  3748  M F95 G62            8
  198                CS    GMWM-1                                                   4  3755  / F91                8
  199         CLEAR  CS    0-0                                                      4  3759  / 000                8
  200                SW    CLEAR&1                                                  4  3763  , G60                9
  201                A     @I0@,CLEAR&2  SUBTRACT 100 FROM CLEAR ADDRESS            7  3767  A I99 G61            9
  202                CW    CLEAR&1                                                  4  3774  ) G60                9
  203                BW    CLEAR,201    CLEAR MORE IF NOT ALL DONE                  8  3778  V G59 201 1          9
  204         SKIP   R                  SKIP CLEAR CORE CARDS                       1  3786  1                    9
  205                BCE   LOAD,68,1    BOOTSTRAP CARD?                             8  3787  B G99 068 1          9
  206                B     SKIP                                                     4  3795  B G86                9
  207         LOAD   MCW   RBACK,71     SETUP TO COME BACK TO LOADR                 7  3799  M H23 071           10
  208                B     1            RUN BOOTSTRAP CARD TO SET WORD MARKS        4  3806  B 001               10
  209         LOADL  MCW   RBACK,71     SETUP TO COME BACK TO LOADR                 7  3810  M H23 071           10
  210                B     40           LOAD THE CARD                               4  3817  B 040               10
  211         RBACK  DSA   LOADR                                                    3  3823  H24                 10
  212         LOADR  BCE   LOADZ,40,/                                               8  3824  B H40 040 /         10
  213                BCE   LOADL,68,1   LOAD THE CARD                               8  3832  B H10 068 1         11
  214         *
  215         * THE WHOLE PROGRAM HAS BEEN READ.  WRITE THE HEADER.
  216         *
  217         LOADZ  MCW   43,ENTRY&3                                               7  3840  M 043 G12           11
  218                CS    80           CLEAR AUTOCODER LOADER'S WORD MARKS         4  3847  / 080               11
  219                LCA   TAPLDR,130   OVERLAY THE HEADER'S CARD LOADER            7  3851  L G25 130           11
  220                CHAIN 5                                                                             MACRO
  221                LCA                                                            1  3858  L           GEN     11
  222                LCA                                                            1  3859  L           GEN     11
  223                LCA                                                            1  3860  L           GEN     11
  224                LCA                                                            1  3861  L           GEN     12
  225                LCA                                                            1  3862  L           GEN     12
  226                B     WHEAD                                                    4  3863  B H82               12
  227         WHEADE BSP   SYSTP                                                    5  3867  U %U6 B             12
  228                NOP   111                                                      4  3872  N 111               12
  229                H                                                              1  3876  .                   12
  230                SKP   SYSTP        WRITE BLANK TAPE                            5  3877  U %U6 E             12
  231         WHEAD  WTW   SYSTP,101    WRITE THE HEADER                            8  3882  L %U6 101 W         13
  232                BER   WHEADE       ERROR                                       5  3890  B H67 L             13
  233                BCE   DONE,179,E   END FILE PROGRAM?                           8  3895  B I84 179 E         13
  234                B     LOADW                                                    4  3903  B I22               13
  235         *
  236         * ERROR HANDLER FOR WRITING THE PROGRAM
  237         *
  238         LOADE  BSP   SYSTP        ERROR HANDLER                               5  3907  U %U6 B             13
  239                NOP   111                                                      4  3912  N 111               13
  240                H                                                              1  3916  .                   13
  241                SKP   SYSTP                                                    5  3917  U %U6 E             14
  242         *
  243         * WRITE THE PROGRAM
  244         *
  245         LOADW  WTW   SYSTP,201    WRITE THE PROGRAM                           8  3922  L %U6 201 W         14
  246                BER   LOADE                                                    5  3930  B I07 L             14
  247                SW    1            SO PROGRAMS CAN ASSUME IT                   4  3935  , 001               14
  248         *
  249         * WRITE DETAIL CARDS WITH WORD MARKS.
  250         *
  251         DETAIL R                                                              1  3939  1                   14
  252                BCE   HEADER,80,A  IS IT A HEADER?                             8  3940  B G26 080 A         14
  253         DETLW  WTW   SYSTP,1                                                  8  3948  L %U6 001 W         14
  254                BER   DETLE                                                    5  3956  B I65 L             15
  255                B     DETAIL                                                   4  3961  B I39               15
  256         DETLE  BSP   SYSTP                                                    5  3965  U %U6 B             15
  257                NOP   111                                                      4  3970  N 111               15
  258                H                                                              1  3974  .                   15
  259                SKP   SYSTP                                                    5  3975  U %U6 E             15
  260                B     DETLW                                                    4  3980  B I48               15
  261         *
  262         * WRITE AN END-OF-FILE PROGRAM
  263         *
  264         DONE   WTM   SYSTP                                                    5  3984  U %U6 M             16
  265         DONEL  NOP   999                                                      4  3989  N 999               16
  266                H                                                              1  3993  .                   16
  267                B     DONEL                                                    4  3994  B I89               16
  268                LTORG                                                                    3998
                     DCW   @I0@                                                     2  3999              LIT     16
  269                JOB   END-OF-FILE PROGRAM
  270         *
  271         * THE END-OF-FILE PROGRAM
  272         *
  273                ORG   1                                                                  0001
  274                SW    A,B                                                      7  0001  , 008 015           17
  275         A      SW    C,D                                                      7  0008  , 022 027           17
  276         B      SW    E,F                                                      7  0015  , 031 032           17
  277         C      RWD   1                                                        5  0022  U %U1 R             17
  278         D      NOP   099                                                      4  0027  N 099               17
  279         E      H                                                              1  0031  .                   17
  280         F      BIN   1,                                                       5  0032  B 001               17
  281                JOB
  282                END   START                                                             / 333 080
 
 SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS

 A           8    B          15    BCLEAR   3599    C          22    CLEAR    3759    D          27    DETAIL   3939
 DETLE    3965    DETLW    3948    DONE     3984    DONEL    3989    E          31    ENTRY    3709    F          32
 GMWM     3692    HEADER   3726    KCLEAR   3695    LOAD     3799    LOADE    3907    LOADL    3810    LOADR    3824
 LOADW    3922    LOADZ    3840    RBACK    3823    SKIP     3786    START     333    SYSTP   %U6      TAPLDR   3725
 WHEAD    3882    WHEADE   3867
\end{verbatim}}
