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
0                          LIBRARY -- SNAPSHOT ROUTINE                                                    PAGE    1
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  101                JOB   LIBRARY -- SNAPSHOT ROUTINE
  102                CTL   6611
  103         *
  104     89  X1     EQU   89                                                          0089
  105         XXXXX1 EQU   X1     FOR USE IN SFX REGIONS                               0089
  106     94  X2     EQU   94                                                          0094
  107         XXXXX2 EQU   X2     FOR USE IN SFX REGIONS                               0094
  108     99  X3     EQU   99                                                          0099
  109         XXXXX3 EQU   X3     FOR USE IN SFX REGIONS                               0099
  110                ORG   333                                                                0333
  111         *
  112         PHASID EQU   110                                                         0110
  113         TOPCOR EQU   688    FROM PARAMETER CARD                                  0688
  114         *
  115         * SNAPSHOT ROUTINE
  116         *
  117    333  SNAPSH SBR   EXIT&3                                                   4  0333  H 567                4
  118    337         SBR   SXX&6                                                    4  0337  H 408                4
  119    341         MCW   KZ3,ADR5-2  START FIVE-DIGIT ADDRESS AT ZERO             7  0341  M 661 656            4
  120    348         MCW   XXXXX3,SX3&6                                             7  0348  M 099 415            4
  121    355         MCW   XXXXX1,SX1&6                                             7  0355  M 089 422            4
  122    362         SBR   XXXXX1,1                                                 7  0362  H 089 001            4
  123    369         SBR   XXXXX3,202                                               7  0369  H 099 202            5
  124    376         CS    332                                                      4  0376  / 332                5
  125    380         CS                                                             1  0380  /                    5
  126    381         NOP   PHASID,210  MCW ON THE COMPILER TAPE                     7  0381  N 110 210            5
  127    388         BSS   SKIP,F                                                   5  0388  B 621 F              5
  128         *
  129         * PRINT A HEADER
  130         *
  131    393         CC    1                                                        2  0393  F 1                  5
  132    395         MCW   XXXXX2,250                                               7  0395  M 094 250            5
  133    402  SXX    SBR   216,0       RETURN ADDRESS WAS STORED IN B               7  0402  H 216 000            6
  134    409  SX3    SBR   256,0       X3 WAS STORED IN B                           7  0409  H 256 000            6
  135    416  SX1    SBR   244,0       X1 WAS STORED IN B                           7  0416  H 244 000            6
  136    423         W                                                              1  0423  2                    6
  137    424         CC    K                                                        2  0424  F K                  6
  138    426         ZA    KP2,W2A                                                  7  0426  ? 662 664            6
  139    433  CLEARH CS    332                                                      4  0433  / 332                6
  140    437         CS                                                             1  0437  /                    7
  141    438         CC    J                                                        2  0438  F J                  7
  142    440         MCW   ADR5,306    FIVE-DIGIT ADDRESS                           7  0440  M 658 306            7
  143    447         MCW                                                            1  0447  M                    7
  144    448         SBR   LOOP&6                                                   4  0448  H 465                7
  145    452         MCW   K9,W2B-1                                                 7  0452  M 665 668            7
  146    459  LOOP   MCW   W2B-1,000                                                7  0459  M 668 000            7
  147    466         MCW   DOTS                                                     4  0466  M 651                8
1                          LIBRARY -- SNAPSHOT ROUTINE                                                    PAGE    2
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  148    470         SBR   LOOP&6                                                   4  0470  H 465                8
  149    474         A     KM10,W2B    ADD I0 = -10                                 7  0474  A 667 669            8
  150    481         BWZ   LOOP,W2B-1,2  NO ZONE IN COUNTER HIGH DIGIT?             8  0481  V 459 668 2          8
  151    489         A     KP1,ADR5-2  BUMP HUNDREDS DIGIT OF ADDRESS               7  0489  A 670 656            8
  152    496         W                                                              1  0496  2                    8
  153    497  GET    SW    0&X3        MOVE DATA AND WM TO PRINT AREA               4  0497  , 0?0                8
  154    501         MCW   0&X1,0&X3                                                7  0501  M 0'0 0?0            9
  155    508         BW    NOWM,0&X1   SKIP CLEARING PRINT AREA WM                  8  0508  V 520 0'0 1          9
  156    516         CW    0&X3                                                     4  0516  ) 0?0                9
  157    520  NOWM   C     XXXXX1,TOPCOR  DONE?                                     7  0520  C 089 688            9
  158    527         BU    CONT        NO                                           5  0527  B 568 /              9
  159    532         W                                                              1  0532  2                    9
  160    533         WM                                                             2  0533  2 )                  9
  161    535  RX1    MCW   SX1&6,XXXXX1   RESTORE INDEX REGS                        7  0535  M 422 089           10
  162    542         MCW   SX3&6,XXXXX3                                             7  0542  M 415 099           10
  163    549         CS    332                                                      4  0549  / 332               10
  164    553         CS                                                             1  0553  /                   10
  165    554         BSS   HALT,G                                                   5  0554  B 563 G             10
  166    559         B     EXIT                                                     4  0559  B 564               10
  167    563  HALT   H                                                              1  0563  .                   10
  168    564  EXIT   H     0-0         B ON COMPILER TAPE                           4  0564  . 000               11
  169    568  CONT   SBR   XXXXX1,1&X1                                              7  0568  H 089 0'1           11
  170    575         BCE   BUMP3,XXXXX3-2,2                                         8  0575  B 632 097 2         11
  171    583         SBR   XXXXX3,201                                               7  0583  H 099 201           11
  172    590         W                                                              1  0590  2                   11
  173    591         WM                                                             2  0591  2 )                 11
  174    593         A     KP1,W2A                                                  7  0593  A 670 664           11
  175    600         C     W2A,KP15                                                 7  0600  C 664 672           12
  176    607         BU    CLEARH                                                   5  0607  B 433 /             12
  177    612         S     W2A                                                      4  0612  S 664               12
  178    616         CCB   CLEARH,1                                                 5  0616  F 433 1             12
  179    621  SKIP   MCW   XQTD,220                                                 7  0621  M 680 220           12
  180    628         W     RX1                                                      4  0628  2 535               12
  181    632  BUMP3  A     KP1,XXXXX3                                               7  0632  A 670 099           12
  182    639         B     GET                                                      4  0639  B 497               13
  183    651  DOTS   DCW   @9........@                                              9  0651                      13
  184    653         DCW   @9-@                                                     2  0653                      13
  185    658  ADR5   DCW   @00000@    FIVE DIGIT ADDRESS                            5  0658                      13
  186    661  KZ3    DCW   @000@                                                    3  0661                      13
  187    662  KP2    DCW   &2                                                       1  0662                      13
  188    664  W2A    DCW   #2                                                       2  0664                      13
  189    665  K9     DCW   @9@                                                      1  0665                      14
  190    667  KM10   DCW   @I0@                                                     2  0667                      14
  191    669  W2B    DCW   #2                                                       2  0669                      14
  192    670  KP1    DCW   &1                                                       1  0670                      14
  193    672  KP15   DCW   &15                                                      2  0672                      14
  194    680  XQTD   DCW   @EXECUTED@                                               8  0680                      14
  195                END                                                                     / 000 080
1                          LIBRARY -- SNAPSHOT ROUTINE                                                    PAGE    3
0SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  

 ADR5      658    BUMP3     632    CLEARH    433    CONT      568    DOTS      651    EXIT      564    GET       497   
 HALT      563    K9        665    KM10      667    KP1       670    KP15      672    KP2       662    KZ3       661   
 LOOP      459    NOWM      520    PHASID    110    RX1       535    SKIP      621    SNAPSH    333    SX1       416   
 SX3       409    SXX       402    TOPCOR    688    W2A       664    W2B       669    X1         89    X2         94   
 X3         99    XQTD      680    XXXXX1     89    XXXXX2     94    XXXXX3     99