DAEMON   BCD 05/11/69 2035.9    7892         00000    
1            THE DAEMON DUMP/LOAD PROGRAM  G.F. CLANCY                           05/11/69 2000.3 PAGE 1     
                  
                              *     
                                     EXTERN  NGETA,SLEEP,CHNCOM,ALLOT,SETCLS  
                                     EXTERN  GETCOM,ATTACH  
                                     EXTERN  SETCLC,WRFLX,FSTATE  
                                     EXTERN  NEXCOM,GETIME,FERRTN 
                              *     
                                     INSERT  DMCRSA   
                              *     
                              *      MACRO TO WRITE N WORDS FROM ARRAY ET SEQ ONTO ALREADY OPENED     
                              *      SECONDARY STORAGE FILE (NAME1,NAME2) AND WAIT UNTIL TRANSMITTED. 
                              *     
                               WSSF  MACRO   ARRAY,N,NAME1,NAME2  
                                     TSX     ATTACH,4      RE-ATTACH TO DUMPER'S FILES    
                                     TXH     DMPUSR   
                                     TXH     DMPRGR   
                                     TSX     WRFILE,4      WRITE  
                                     TXH     NAME1         ONTO (NAME1, 
                                     TXH     NAME2         NAME2) 
                                     TXH     =0            AT POSITION WHERE LAST CEASED  
                                     TIX     ARRAY,,N      FROM ARRAY THROUGH ARRAY+N-1   
                                     TSX     FWAIT,4       WAIT   
                                     TXH     NAME1    
                                     TXH     NAME2    
                               WSSF  END  
                              *     
                              *  ZERO-IZE A THROUGH A+X-1   
                              *     
                               CLEAR MACRO   A,X
                                     AXT     X,1
                                     STZ     A+X,1    
                                     TIX     *-1,1,1  
                               CLEAR END  
                              *     
                              *      MOVE X WORDS FROM A ET SEQ TO B ET SEQ   
                              *     
                               MOVE  MACRO   X,A,B    
                                     AXT     X,1
                                     CAL     A+X,1    
                                     SLW     B+X,1    
                                     TIX     *-2,1,1  
                               MOVE  END  
                              *     
                              *      PRINT ONE LINE, CLEAR BUFFER 
                              *     
                              PRBUFF MACRO   BUFF,NWDS
                                     SXA     *+3,4    
                                     TSX     WRFLX,4  
                                             BUFF,,NWDS     
                                     AXT     **,4     
                                     CLEAR   BUFF,NWDS
                              PRBUFF END  
                              *     
                              *      PRINT STANDARD BEGINNING TO DUMPER ERROR MESSAGE     
                              *     
                              BGNERM MACRO   TYPE     
                                     SXA     *+3,4    
1            THE DAEMON DUMP/LOAD PROGRAM  G.F. CLANCY                           05/11/69 2000.3 PAGE 2     
                  
                                     TSX     $BERM,4  
                                     PZE     TYPE     
                                     AXT     **,4     
                              BGNERM END  
                              *     
                              *  PRINT ONE LINE COMMENT     
                              *     
                              PRLINE MACRO   COMNT,NWC,N,WORD1,WORD2,LOC
                                     IFF     0,NWC,0  
                                     MOVE    NWC,LOC,PBF    
                                     IFF     N-2,N,1  
                                     CAL     WORD1    
                                     IFF     N-2,N,1  
                                     SLW     PBF+NWC  
                                     IFF     1,N,2    
                                     CAL     WORD2    
                                     IFF     1,N,2    
                                     SLW     PBF+NWC+1
                                     PRBUFF  PBF,NWC+N
                                     RMT  
                               LOC   BCI     NWC,COMNT
                                     RMT  
                              PRLINE END  
                              *     
                              *      PRINT ONE LINE MESSAGE 
                              *     
                              PRMESS MACRO   MESNAM,N,ADR1,ADR2   
                                     TSX     $PRLINE,4
                                     BCI     1,MESNAM 
                                     IFF     N,N,N    
                                     TXH     ADR1     
                                     IFF     N,N,N    
                                     TXH     ADR2     
                              PRMESS END  
                              *     
                              *      MACRO TO OPEN FILE (X,Y) OF USER (A,B) FOR READING   
                              *      AND ASSIGN BUFFER F OF LENGTH L TO I/O SYSTEM FOR THAT PURPOSE.  
                              *        ( ERR IS TRANSFER ADDRESS FOR ERROR RETURN ) 
                              *     
                              RDOPEN MACRO   X,Y,A,B,F,L,ERR
                                     TSX     ATTACH,4      ATTACH TO USER (A,B)     
                                     TXH     A  
                                     TXH     B  
                                     TSX     OPEN,4        OPEN FILE (X,Y) FOR READING    
                                     TXH     R  
                                     TXH     X  
                                     TXH     Y  
                                     TXH     =0 
                                     TXH     =0 
                                     TXH     ERR           (TRANSFER ADDRESS FOR ERROR)   
                                     TSX     BUFFER,4      ASSIGN L WORDS OF BUFFER F TO (X,Y)  
                                     TXH     X  
                                     TXH     Y  
                                     TIX     F,,L     
                              RDOPEN END  
                              *     
1            THE DAEMON DUMP/LOAD PROGRAM  G.F. CLANCY                           05/11/69 2000.3 PAGE 3     
                  
                              *      PRINT ERROR CODE, END MESSAGE
                              *     
                                ERTN MACRO   ADRERR   
                                     SXA     *+2,4    
                                     TSX     $ERREND,4
                                     AXT     **,4     
                                     TRA     ADRERR   
                                ERTN END  
                              *     
                              *      ASK OPERATOR TO SET KEY CODE DC IF HE WANTS    
                              *      ACTION GIVEN BY N-WORD MESSAGE M   
                              *     
                              PRCODE MACRO   DC,M,N   
                                     TSX     $PRCODE,4
                                     TXH     DC 
                                     TXH     M,,N     
                              PRCODE END  
                              *     
                              *      TEST LAST KEY SETTING VIA SUPERVISOR, GO TO JUMP IF IT IS CODE   
                              *     
                              TESTKY MACRO   CODE,JUMP
                                     TSX     $NGETA,7 
                                     LDQ     DEMKEY   
                                     STQ     KEYVAL   
                                     AXT     CODE,1   
                                     PXA     0,1
                                     SUB     KEYVAL   
                                     TZE     JUMP     
                              TESTKY END  
                              *     
                              *      SET UP LOGICAL TAPE RECORD WRITING 
                              *     
                              LOGREC MACRO   X  
                                     CLA     LTPBF    
                                     SUB     =12
                                     STO     TEMP     
                                     CAL     X+4
                                     ANA     =O77777  
                                     STO     RCOUNT   
                                     TSX     $NLREC,4 
                                     TXH     NORECS   
                                     TXH     RCOUNT   
                                     TXH     LCOUNT   
                                     TXH     TEMP     
                                     TXH     =12
                                     TXH     PHYSRC   
                                     TXH     NFLR     
                                     TXH     NLAST    
                              LOGREC END  
                              *     
                              *     
                              ATTACH MACRO   A,B
                                     TSX     ATTACH,4 
                                     TXH     A  
                                     TXH     B  
                              ATTACH END  
1            THE DAEMON DUMP/LOAD PROGRAM  G.F. CLANCY                           05/11/69 2000.3 PAGE 4     
                  
                              *     
                              *      PRINT ERROR MESSAGE AND INTERROGATE KEYS 
                              *     
                              PRERR  MACRO
                                     TSX     $PRNTER,4
                                     TSX     $GDSIG,4 
                              PRERR  END  
                              *     
                              *     
                              *- - - - - - - - - - - - - - - - - - - - - - - - - - - -    
                              *      BEGIN DAEMON PROGRAM   
                              *- - - - - - - - - - - - - - - - - - - - - - - - - - - -    
                              *     
                  
      00000  452725632160     NGETA 
      00001  624325254760     SLEEP 
      00002  233045234644     CHNCOM
      00003  214343466360     ALLOT 
      00004  622563234362     SETCLS
      00005  272563234644     GETCOM
      00006  216363212330     ATTACH
      00007  622563234323     SETCLC
      00010  665126436760     WRFLX 
      00011  266263216325     FSTATE
      00012  452567234644     NEXCOM
      00013  272563314425     GETIME
      00014  262551516345     FERRTN
      00015  475145632551     PRNTER
      00016  475123462425     PRCODE
      00017  476463314560     PUTIN 
                  
      00020  0760 00 0 00016         LMTM 
      00021  0074 00 4 00006         TSX     ATTACH,4 
      00022  3 00000 0 01502         PAR     =H C0056 
      00023  3 00000 0 01501         PAR     =H 99999 
      00024  0074 00 4 00014         TSX     FERRTN,4 
      00025  0 00000 0 00027         PZE     ELOC     
      00026  0020 00 0 00056         TRA     OVER     
                              *     
      00027  0634 00 1 00053  ELOC   SXA     ELOC1,1  
      00030  0634 00 4 00054         SXA     ELOC4,4  
      00031                          PRLINE  ( UNEXPECTED IO SYSTEM ERROR RETURN),6,0     
      00044  0074 00 4 00015         TSX     $PRNTER,4
      00045  0760 00 0 00004         ENK  
      00046 -0130 00 0 00000         XCL  
      00047 -0501 00 0 01470         ORA     =O70000  
      00050  0322 00 0 01503         ERA     =O707070777070 
      00051 -0100 00 0 00053         TNZ     *+2
      00052  0074 00 4 00002         TSX     CHNCOM,4 
      00053  0774 00 1 00000  ELOC1  AXT     **,1     
      00054  0774 00 4 00000  ELOC4  AXT     **,4     
      00055  0020 00 4 00001         TRA     1,4
                              *     
      00056  0074 00 4 00005  OVER   TSX     GETCOM,4 
      00057  0 00000 0 00001         PZE     1  
      00060 -0340 00 0 01471         LAS     =H0
1            THE DAEMON DUMP/LOAD PROGRAM  G.F. CLANCY                           05/11/69 2000.3 PAGE 5     
                  
      00061  0020 00 0 00063         TRA     *+2
      00062  0020 00 0 00107         TRA     LOOP1-3  
      00063                          PRLINE  ( THE DAEMON DUMP/LOAD PROGRAM IS STARTING UP.),8,0
      00076  0074 00 4 00003         TSX     ALLOT,4  
      00077  3 00000 0 01464         PAR     =1 
      00100  3 00000 0 00446         PAR     ALL
      00101  0074 00 4 00003         TSX     ALLOT,4  
      00102  3 00000 0 01465         PAR     =2 
      00103  3 00000 0 00446         PAR     ALL
      00104  0074 00 4 00003         TSX     ALLOT,4  
      00105  3 00000 0 01466         PAR     =3 
      00106  3 00000 0 00446         PAR     ALL
                              *     
      00107  0074 00 4 00410         TSX     STATE,4  
      00110  3 00000 0 01472         PAR     =HDRSTOR 
      00111  0020 00 0 00175         TRA     SALVG    
      00112  0074 00 4 00410  LOOP1  TSX     STATE,4  
      00113  3 00000 0 01500         PAR     =HRESTOR 
      00114  0020 00 0 00116         TRA     *+2
      00115 -0625 00 0 00465         STL     LOADSW   
      00116 -0500 00 0 00465  LOOP   CAL     LOADSW   
      00117 -0100 00 0 00123         TNZ     NOLOAD   
      00120                          PRCODE  LOAD,MESA,6    
 TD   00121  3 00000 0 00001         TXH     LOAD                                                             .001
      00123                   NOLOAD PRCODE  CDT,MESB,6     
 TD   00124  3 00000 0 00002         TXH     CDT                                                              .001
      00126                          PRCODE  NFT,MESC,6     
 TD   00127  3 00000 0 00003         TXH     NFT                                                              .001
      00131                          PRCODE  LOGOUT,MESF,4  
 TD   00132  3 00000 0 00006         TXH     LOGOUT                                                           .001
      00134 -0500 00 0 01467         CAL     =15
      00135  0074 00 4 00001         TSX     SLEEP,4  
      00136 -0500 00 0 00465         CAL     LOADSW   
      00137 -0100 00 0 00147         TNZ     NLDKY    
      00140                          TESTKY  LOAD,DOLOAD    
      00147                   NLDKY  TESTKY  CDT,COMPDP     
      00156                          TESTKY  LOGOUT,LLOT    
      00165                          TESTKY  NFT,NEWFIL     
      00174  0020 00 0 00116         TRA     LOOP     
                              *     
      00175                   SALVG  PRLINE  ( DUMPER BEING RESUMED AFTER MACHINE CATASTROPHE),8,0    
      00210                          PRLINE  ( OR OPERATOR INTERRUPTION),5,0  
      00223                          PRCODE  SAVE,MESD,6    
 TD   00224  3 00000 0 00004         TXH     SAVE                                                             .001
      00226                          PRCODE  NOSAVE,MESE,6  
 TD   00227  3 00000 0 00005         TXH     NOSAVE                                                           .001
      00231                          PRCODE  LOGOUT,MESF,4  
 TD   00232  3 00000 0 00006         TXH     LOGOUT                                                           .001
      00234 -0500 00 0 01467         CAL     =15
      00235  0074 00 4 00001         TSX     SLEEP,4  
      00236                          TESTKY  SAVE,RDSDMP    
      00245                          TESTKY  NOSAVE,LOOP1   
      00254                          TESTKY  LOGOUT,LLOT3   
      00263  0020 00 0 00175         TRA     SALVG    
                              *     
      00264 -0500 00 0 00443  COMPDP CAL     DSDUMP   
1            THE DAEMON DUMP/LOAD PROGRAM  G.F. CLANCY                           05/11/69 2000.3 PAGE 6     
                  
      00265  0602 00 0 00434         SLW     CMARG1   
      00266  0020 00 0 00301         TRA     COMM2    
                              *     
      00267 -0500 00 0 00443  NEWFIL CAL     DSDUMP   
      00270  0602 00 0 00434         SLW     CMARG1   
      00271 -0500 00 0 00441         CAL     TWO
      00272  0020 00 0 00302         TRA     COMMON   
                              *     
      00273 -0500 00 0 00443  RDSDMP CAL     DSDUMP   
      00274  0602 00 0 00434         SLW     CMARG1   
      00275 -0500 00 0 00442         CAL     THREE    
      00276  0020 00 0 00302         TRA     COMMON   
                              *     
      00277 -0500 00 0 00444  DOLOAD CAL     DSLOAD   
      00300  0602 00 0 00434         SLW     CMARG1   
      00301 -0500 00 0 00437  COMM2  CAL     ZERO     
      00302  0602 00 0 00435  COMMON SLW     CMARG    
      00303  0074 00 4 00004         TSX     SETCLS,4 
      00304  0 00001 0 00434         PZE     COMD,,1  
      00305 -0500 00 0 00440         CAL     ONE
      00306  0602 00 0 00435         SLW     CMARG    
      00307  0074 00 4 00004         TSX     SETCLS,4 
      00310  0 00002 0 00434         PZE     COMD,,2  
      00311  0074 00 4 00004         TSX     SETCLS,4 
      00312  0 00003 0 00434         PZE     COMD,,3  
      00313  0074 00 7 00000         TSX     NGETA,7  
      00314  0600 00 0 74446         STZ     DEMKEY   
      00315 -0500 00 0 00445         CAL     CHNWRD   
      00316  0074 00 4 00007         TSX     SETCLC,4 
      00317  0074 00 4 00002         TSX     CHNCOM,4 
                              *     
      00320  0074 00 4 00011  LLOT   TSX     FSTATE,4 
      00321  3 00000 0 01472         PAR     =HDRSTOR 
      00322  3 00000 0 01475         PAR     =HFILE.3 
      00323  3 00001 0 00463         PAR     TEMP,,1  
      00324  3 00000 0 00330         PAR     WAKEUP   
      00325 -0500 00 0 01476  LLOT3  CAL     =HLOGOUT 
      00326  0560 00 0 01504         LDQ     =O777777777777 
      00327  0074 00 4 00012         TSX     NEXCOM,4 
                              *     
      00330                   WAKEUP PRCODE  PROTCT,MESG,5  
 TD   00331  3 00000 0 00001         TXH     PROTCT                                                           .001
      00333                          PRCODE  SKIPIT,MESH,2  
 TD   00334  3 00000 0 00002         TXH     SKIPIT                                                           .001
      00336 -0500 00 0 01467         CAL     =15
      00337  0074 00 4 00001         TSX     SLEEP,4  
      00340                          TESTKY  PROTCT,INSRE   
      00347                          TESTKY  SKIPIT,LLOT3   
      00356  0020 00 0 00330         TRA     WAKEUP   
      00357  0074 00 7 00000  INSRE  TSX     $NGETA,7 
      00360  0560 00 0 74623         LDQ     SYSDAT   
      00361 -0600 00 0 00470         STQ     T+2
      00362  0074 00 7 00000         TSX     $NGETA,7 
      00363 -0500 00 0 74624         CAL     SYSTIM   
      00364  0602 00 0 00467         SLW     T+1
      00365 -0500 00 0 01477         CAL     =HPROTCT 
1            THE DAEMON DUMP/LOAD PROGRAM  G.F. CLANCY                           05/11/69 2000.3 PAGE 7     
                  
      00366  0602 00 0 00466         SLW     T  
      00367  0074 00 4 00017  INSRE3 TSX     $PUTIN,4 
      00370  3 00000 0 00471         PAR     IOBUF    
      00371  3 00000 0 00466         PAR     T  
      00372  3 00000 0 00374         PAR     ERROR    
      00373  0020 00 0 00325         TRA     LLOT3    
      00374                   ERROR  PRLINE  ( PRIMING FAILED, TRYING AGAIN),5,0    
      00407  0020 00 0 00367         TRA     INSRE3   
      00410  0634 00 4 00430  STATE  SXA     S4,4     
      00411 -0500 00 4 00001         CAL     1,4
      00412  0621 00 0 00415         STA     A1 
      00413  0621 00 0 00423         STA     A2 
      00414  0074 00 4 00011         TSX     FSTATE,4 
      00415  3 00000 0 00000  A1     PAR     ** 
      00416  3 00000 0 01473         PAR     =HFILE.1 
      00417  3 00001 0 00463         PAR     TEMP,,1  
      00420  3 00000 0 00422         PAR     *+2
      00421  0020 00 0 00432         TRA     YES
      00422  0074 00 4 00011         TSX     FSTATE,4 
      00423  3 00000 0 00000  A2     PAR     ** 
      00424  3 00000 0 01474         PAR     =HFILE.2 
      00425  3 00001 0 00463         PAR     TEMP,,1  
      00426  3 00000 0 00430         PAR     *+2
      00427  0020 00 0 00432         TRA     YES
      00430  0774 00 4 00000  S4     AXT     **,4     
      00431  0020 00 4 00003         TRA     3,4
      00432  0534 00 4 00430  YES    LXA     S4,4     
      00433  0020 00 4 00002         TRA     2,4
                              *     
                              *- - - - - - - - - - - - - - - - - - - - - - - -
                              *      MISCELANNY 
                              *- - - - - - - - - - - - - - - - - - - - - - - -
                              *     
                      074446  DEMKEY BOOL    74446    
                      074624  SYSTIM BOOL    74624    
                      074623  SYSDAT BOOL    74623    
                      000017  BASE   BOOL    17 
                      000001  LOAD   BOOL    1  
                      000002  CDT    BOOL    2  
                      000003  NFT    BOOL    3  
                      000004  SAVE   BOOL    4  
                      000005  NOSAVE BOOL    5  
                      000006  LOGOUT BOOL    6  
                      000001  PROTCT BOOL    1  
                      000002  SKIPIT BOOL    2  
                              *     
      00434  0 00000 0 00000  CMARG1 PZE  
                       00434  COMD   SYN     CMARG1   
      00435  0 00000 0 00000  CMARG  PZE  
      00436 -377777777777            OCT     777777777777   
                              *     
      00437  006060606060     ZERO   BCI     1,0
      00440  016060606060     ONE    BCI     1,1
      00441  026060606060     TWO    BCI     1,2
      00442  036060606060     THREE  BCI     1,3
      00443  246224644447     DSDUMP BCI     1,DSDUMP 
1            THE DAEMON DUMP/LOAD PROGRAM  G.F. CLANCY                           05/11/69 2000.3 PAGE 8     
                  
      00444  246243462124     DSLOAD BCI     1,DSLOAD 
      00445  0 00003 0 00001  CHNWRD PZE     1,,3     
      00446 +000000077777     ALL    OCT     77777    
      00447                   PBF    BSS     12 
      00463  0 00000 0 00000  TEMP   PZE  
      00464  0 00000 0 00000  KEYVAL PZE  
      00465  0 00000 0 00000  LOADSW PZE  
      00466                   T      BSS     3  
      00471                   IOBUF  BSS     432
                              *     
      01351  606346605125     MESA   BCI     6, TO RESUME DISK RELOADING, OR -
      01357  606346602725     MESB   BCI     6, TO GET COMPLETE DUMP OF DISK, OR    
      01365  606346602225     MESC   BCI     6, TO BEGIN NEW FILE DUMPING     
      01373  606346602163     MESD   BCI     6, TO ATTEMPT RECOVERY PROCEDURES
      01401  606346602122     MESE   BCI     6, TO ABANDON THE CURRENT TAPE   
      01407  606346604346     MESF   BCI     4, TO LOGOUT THE DAEMON    
      01413  606346604751     MESG   BCI     5, TO PROTECT THIS PERIOD  
      01420  606346606242     MESH   BCI     2, TO SKIP IT  
      01422  622563604225     MESEX  BCI     2,SET KEY CODE 
                                     END  
                                              REMOTE SEQUENCES    
1            THE DAEMON DUMP/LOAD PROGRAM  G.F. CLANCY                           05/11/69 2000.3 PAGE 1     
                        POST PROCESSOR ASSEMBLY DATA  
                  
       1505 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM  
                  
0REFERENCES TO DEFINED SYMBOLS      
        466      T   361,  364,  366,  371
        415     A1   412
        423     A2   413
        430     S4   410,  432
        446    ALL   100,  103,  106
          2    CDT   124,  152,  434
          3    NFT   127,  170,  434
        440    ONE   305
        447    PBF    33,   37,   42,   65,   71,   74,  177,  203,  206,  212,  216,  221,  376,  402,  405
        441    TWO   271
        432    YES   421,  427
         17   BASE   434
        434   COMD   304,  310,  312,  435
         27   ELOC    25
        320   LLOT   164
          1   LOAD   121,  143,  434
        116   LOOP   174
       1351   MESA   122
       1357   MESB   125
       1365   MESC   130
       1373   MESD   225
       1401   MESE   230
       1407   MESF   133,  233
       1413   MESG   332
       1420   MESH   335
         56   OVER    26
          4   SAVE   224,  241,  434
        463   TEMP   323,  417,  425
        437   ZERO   301
          3  ALLOT    76,  101,  104
        435  CMARG   302,  306
        301  COMM2   266
         53  ELOC1    27
         54  ELOC4    30
        374  ERROR   372
        357  INSRE   346
        471  IOBUF   370
       1424  ..003    32
       1432  ..006    64
       1442  ..009   176
       1452  ..012   211
       1457  ..015   375
        325  LLOT3   262,  355,  373
        112  LOOP1    62,  253
       1422  MESEX      
          0  NGETA   140,  147,  156,  165,  236,  245,  254,  313,  340,  347,  357,  362
        147  NLDKY   137
         17  PUTIN   367
        175  SALVG   111,  263
          1  SLEEP   135,  235,  337
        410  STATE   107,  112
1            THE DAEMON DUMP/LOAD PROGRAM  G.F. CLANCY                           05/11/69 2000.3 PAGE 2     
                        POST PROCESSOR ASSEMBLY DATA  
                  
        442  THREE   275
         10  WRFLX    36,   70,  202,  215,  401
          6 ATTACH    21
          2 CHNCOM    52,  317
        445 CHNWRD   315
        434 CMARG1   265,  270,  274,  300,  435
        302 COMMON   272,  276
        264 COMPDP   155
      74446 DEMKEY   141,  150,  157,  166,  237,  246,  255,  314,  341,  350,  434
        277 DOLOAD   146
        443 DSDUMP   264,  267,  273
        444 DSLOAD   277
         14 FERRTN    24
         11 FSTATE   320,  414,  422
          5 GETCOM    56
         13 GETIME      
        367 INSRE3   407
        464 KEYVAL   142,  145,  151,  154,  160,  163,  167,  172,  240,  243,  247,  252,  256,  261,  342,  345,  351
                     354
        465 LOADSW   115,  116,  136
          6 LOGOUT   132,  161,  232,  257,  434
        267 NEWFIL   173
         12 NEXCOM   327
        123 NOLOAD   117
          5 NOSAVE   227,  250,  434
         16 PRCODE   120,  123,  126,  131,  223,  226,  231,  330,  333
         15 PRNTER    44
          1 PROTCT   331,  343,  434
        273 RDSDMP   244
          7 SETCLC   316
          4 SETCLS   303,  307,  311
          2 SKIPIT   334,  352,  434
      74623 SYSDAT   360,  434
      74624 SYSTIM   363,  434
        330 WAKEUP   324,  356
                  
0 NO ERROR IN ABOVE ASSEMBLY. 
1                                                                                05/11/69 2000.5 PAGE 1     
                  
                       00004         ENTRY   GETA     
                       00005         ENTRY   NGETA    
                                     EXTERN  GETLOC,SETLOC  
                  
        TRANSFER VECTOR 
      00000  272563434623     GETLOC
      00001  622563434623     SETLOC
                  
            LINKAGE DIRECTOR  
      00002  000000000000     
      00003  272563216060     
                  
      00004  0600 00 0 00067  GETA   STZ     NINDC    
      00005 -0600 00 0 00072  NGETA  STQ     TMPMQ    
      00006  0601 00 0 00071         STO     TMPAC    
      00007  0602 00 0 00073         SLW     TMPACL   
      00010  0634 00 7 00062         SXA     NGX7,7   
      00011  0634 00 4 00063         SXA     NGX4,4   
      00012  0604 00 0 00066         STI     INDIC    
      00013  0441 00 7 00001         LDI     1,7
      00014  0520 00 0 00067         ZET     NINDC    
      00015  0020 00 0 00031         TRA     GETL          DON'T COMPUTE EFFECTIVE ADDRESS
      00016 -0625 00 0 00067         STL     NINDC    
      00017 -0046 00 0 00000         PIA  
      00020  0074 00 7 00074  CKRL1  TSX     GETEFA,7      GET EFFECTIVE ADDRESS    
      00021 -0056 00  000060         LNT     60            IS THERE INDIRECT ADDRESS
      00022  0020 00 0 00027         TRA     CKRL2         NO     
      00023 -0057 00  000077         RIL     77            TURN OFF INDIRECT ADDRESS BITS 
      00024  0737 00 7 00000         PAC     0,7
      00025 -0500 00 7 00000         CAL     0,7
      00026  0020 00 0 00020         TRA     CKRL1         COMPUTE FINAL ADDRESS    
      00027  0057 00  777777  CKRL2  RIR     777777        FINAL ADDRESS IN AC NOW  
      00030  0043 00 0 00000         OAI                   OP CODE IN INDICATOR     
      00031 -0046 00 0 00000  GETL   PIA                   INSTRUCTION IN AC  
      00032  0621 00 0 00055         STA     GA2
      00033  0621 00 0 00040         STA     GA            SET ADDRESS TO GET FROM CORE A 
      00034  0622 00 0 00047         STD     XGA           SET OP CODE OF INSTRUCTION     
      00035  0630 00 0 00047         STP     XGA
      00036  0625 00 0 00047         STT     XGA
      00037  0074 00 4 00000         TSX     GETLOC,4 
      00040  0 00000 0 00000  GA     PZE     ** 
      00041  0602 00 0 00070         SLW     GTMP          WORD FROM CORE A INTO GTMP     
      00042 -0500 00 0 00073         CAL     TMPACL   
      00043  0560 00 0 00071         LDQ     TMPAC    
      00044  0763 00 0 00000         LLS     0  
      00045  0560 00 0 00072         LDQ     TMPMQ    
      00046  0441 00 0 00066         LDI     INDIC    
      00047  0 00000 0 00070  XGA    ***     GTMP          EXECUTE INSTRUCTION
      00050  0441 00 0 00047         LDI     XGA
      00051 -0056 00  060000         LNT     060000        IS THIS A STORE-TYPE INSTRUCTION     
      00052  0020 00 0 00062         TRA     NGX7          NO     
      00053 -0500 00 0 00070         CAL     GTMP     
      00054  0074 00 4 00001         TSX     SETLOC,4 
      00055  0 00000 0 00000  GA2    PZE     ** 
      00056 -0500 00 0 00073         CAL     TMPACL   
      00057  0560 00 0 00071         LDQ     TMPAC    
1                                                                                05/11/69 2000.5 PAGE 2     
                  
      00060  0763 00 0 00000         LLS     0  
      00061  0560 00 0 00072         LDQ     TMPMQ    
      00062  0774 00 7 00000  NGX7   AXT     **,7     
      00063  0774 00 4 00000  NGX4   AXT     **,4     
      00064  0441 00 0 00066         LDI     INDIC    
      00065  0020 00 7 00002         TRA     2,7
      00066  0 00000 0 00000  INDIC  PZE     0  
      00067 +000000777777     NINDC  OCT     777777   
      00070  0 00000 0 00000  GTMP   PZE     0  
      00071  0 00000 0 00000  TMPAC  PZE     0  
      00072  0 00000 0 00000  TMPMQ  PZE     0  
      00073  0 00000 0 00000  TMPACL PZE     0  
      00074  0634 00 7 00102  GETEFA SXA     GETF7,7  
      00075  0625 00 0 00077         STT     *+2           TAG    
      00076  0734 00 7 00000         PAX     ,7            PTR    
      00077 -0636 00 0 00100         SCD     *+1,**        -C(TAG)
      00100  1 00000 7 00101         TXI     *+1,7,**      PTH-C(TAG)   
      00101  0754 00 7 00000         PXA     ,7            INTO AC
      00102  0774 00 7 00000  GETF7  AXT     **,7     
      00103  0020 00 7 00001         TRA     1,7
                                     END  
1                                                                                05/11/69 2000.5 PAGE 1     
                        POST PROCESSOR ASSEMBLY DATA  
                  
        104 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM  
                  
0REFERENCES TO DEFINED SYMBOLS      
         40     GA    33
         55    GA2    32
         47    XGA    34,   35,   36,   50
          4   GETA     0
         31   GETL    15
         70   GTMP    41,   47,   53
         63   NGX4    11
         62   NGX7    10,   52
         20  CKRL1    26
         27  CKRL2    22
        102  GETF7    74
         66  INDIC    12,   46,   64
          5  NGETA     0
         67  NINDC     4,   14,   16
         71  TMPAC     6,   43,   57
         72  TMPMQ     5,   45,   61
         74 GETEFA    20
          0 GETLOC    37
          1 SETLOC    54
         73 TMPACL     7,   42,   56
                  
0 NO ERROR IN ABOVE ASSEMBLY. 
1     FAP ASSEMBLY LISTING  ...  ...  ...        FILE PRCODE       TIX     *-2,1,1  
      00016  0602 00 0 00047         SLW     MESX+2   
      00017 -0500 00 4 00002         CAL     2,4
      00020 -0734 00 1 00000         PDX     ,1 
      00021 -0634 00 1 00030         SXD     INC,1    
      00022 -0634 00 1 00031         SXD     INC+1,1  
      00023  0634 00 1 00034         SXA     INC+4,1  
      00024  1 00003 1 00025         TXI     *+1,1,3  
      00025 -0634 00 1 00041         SXD     PRNT,1   
      00026  0734 00 1 00000         PAX     ,1 
      00027  0774 00 4 00050         AXT     MESX+3,4 
      00030  1 00000 1 00031  INC    TXI     *+1,1,** 
      00031  1 00000 4 00032         TXI     *+1,4,** 
      00032  0634 00 1 00035         SXA     FROM,1   
      00033  0634 00 4 00036         SXA     TO,4     
      00034  0774 00 1 00000         AXT     **,1     
      00035 -0500 00 1 00000  FROM   CAL     **,1     
      00036  0602 00 1 00000  TO     SLW     **,1     
      00037  2 00001 1 00035         TIX     *-2,1,1  
      00040  0074 00 4 00000         TSX     WRFLX,4  
      00041  0 00000 0 00045  PRNT           MESX,,** 
      00042  0774 00 1 00000  P1     AXT     **,1     
      00043  0774 00 4 00000  P4     AXT     **,4     
      00044  0020 00 4 00003         TRA     3,4
                              *     
      00045  622563604225     MESX   BCI     2,SET KEY CODE 
      00046  706023462425     
      00047                          BSS     12 
                                     END  
                  
        LITERALS  
      00063  000000000017     
      00064  506060600000     
1     FAP ASSEMBLY LISTING  ...  ...  ...        FILE PRCODE 6,   27,   41
         41   PRNT    25
          0  WRFLX    40
          3 PRCODE     0
                  
0 NO ERROR IN ABOVE ASSEMBLY. 
1            THIS IS A COOL PROGRAM                                              05/11/69 2000.6 PAGE 1     
                  
                              *     
                                     EXTERN  OPEN,BUFFER,CLOSE,RDFILE,WRFILE  
                                     EXTERN  CHFILE,FWAIT,DELFIL,FSTATE 
                              *     
                       00013         ENTRY   PUTIN    
                       00027         ENTRY   GETOUT   
                              *     
                  
      00000  464725456060     OPEN  
      00001  226426262551     BUFFER
      00002  234346622560     CLOSE 
      00003  512426314325     RDFILE
      00004  665126314325     WRFILE
      00005  233026314325     CHFILE
      00006  266621316360     FWAIT 
      00007  242543263143     DELFIL
      00010  266263216325     FSTATE
                  
                  
      00013 -0500 00 0 00150  PUTIN  CAL     =HW
      00014  0602 00 0 00140         SLW     STATUS   
      00015 -0500 00 0 00142         CAL     WRITE    
      00016  0602 00 0 00065         SLW     IO 
      00017  0600 00 0 00134         STZ     FINGER   
      00020  0634 00 4 00106         SXA     I4,4     
      00021  0074 00 4 00002         TSX     CLOSE,4  
 TD   00022  3 00000 0 00135         TXH     NAME1    
 TD   00023  3 00000 0 00136         TXH     NAME2    
 TD   00024  3 00000 0 00025         TXH     *+1
      00025  0074 00 4 00116         TSX     DELDRS,4 
      00026  0020 00 0 00042         TRA     HOP
      00027 -0500 00 0 00147  GETOUT CAL     =HR
      00030  0602 00 0 00140         SLW     STATUS   
      00031 -0500 00 0 00141         CAL     READ     
      00032  0602 00 0 00065         SLW     IO 
      00033 -0625 00 0 00134         STL     FINGER   
      00034  0634 00 4 00106         SXA     I4,4     
      00035  0074 00 4 00010         TSX     FSTATE,4 
 TD   00036  3 00000 0 00135         TXH     NAME1    
 TD   00037  3 00000 0 00136         TXH     NAME2    
      00040  3 00001 0 00137         TXH     TEMP,,1  
 TD   00041  3 00000 0 00112         TXH     ERROR    
      00042  0634 00 2 00110  HOP    SXA     I2,2     
      00043  0634 00 1 00107         SXA     I1,1     
      00044  0534 00 4 00106         LXA     I4,4     
      00045 -0500 00 4 00001         CAL     1,4
      00046  0621 00 0 00063         STA     BUFFAD   
      00047 -0500 00 4 00002         CAL     2,4
      00050  0621 00 0 00071         STA     WHERE    
      00051  0074 00 4 00000         TSX     OPEN,4   
 TD   00052  3 00000 0 00140         TXH     STATUS   
 TD   00053  3 00000 0 00135         TXH     NAME1    
 TD   00054  3 00000 0 00136         TXH     NAME2    
 TD   00055  3 00000 0 00145         TXH     =O120    
 TD   00056  3 00000 0 00146         TXH     =-0
 TD   00057  3 00000 0 00112         TXH     ERROR    
1            THIS IS A COOL PROGRAM                                              05/11/69 2000.6 PAGE 2     
                  
      00060  0074 00 4 00001         TSX     BUFFER,4 
 TD   00061  3 00000 0 00135         TXH     NAME1    
 TD   00062  3 00000 0 00136         TXH     NAME2    
      00063  3 00660 0 00000  BUFFAD TXH     **,,432  
 TD   00064  3 00000 0 00112         TXH     ERROR    
      00065  0 00000 0 00000  IO     ***     **,,**   
 TD   00066  3 00000 0 00135         TXH     NAME1    
 TD   00067  3 00000 0 00136         TXH     NAME2    
 TD   00070  3 00000 0 00144         TXH     =1 
      00071  3 00003 0 00000  WHERE  TXH     **,,3    
 TD   00072  3 00000 0 00112         TXH     ERROR    
 TD   00073  3 00000 0 00137         TXH     TEMP     
 TD   00074  3 00000 0 00112         TXH     ERROR    
      00075  0074 00 4 00006         TSX     FWAIT,4  
 TD   00076  3 00000 0 00135         TXH     NAME1    
 TD   00077  3 00000 0 00136         TXH     NAME2    
 TD   00100  3 00000 0 00112         TXH     ERROR    
      00101  0074 00 4 00002         TSX     CLOSE,4  
 TD   00102  3 00000 0 00135         TXH     NAME1    
 TD   00103  3 00000 0 00136         TXH     NAME2    
      00104  0520 00 0 00134         ZET     FINGER   
      00105  0074 00 4 00116         TSX     DELDRS,4 
      00106  0774 00 4 00000  I4     AXT     **,4     
      00107  0774 00 1 00000  I1     AXT     **,1     
      00110  0774 00 2 00000  I2     AXT     **,2     
      00111  0020 00 4 00004         TRA     4,4
      00112  0534 00 4 00106  ERROR  LXA     I4,4     
      00113  0534 00 1 00107         LXA     I1,1     
      00114  0534 00 2 00110         LXA     I2,2     
      00115  0020 60 4 00003         TRA*    3,4
                              *     
      00116  0634 00 4 00132  DELDRS SXA     DEL4,4   
      00117  0074 00 4 00005         TSX     CHFILE,4 
 TD   00120  3 00000 0 00135         TXH     NAME1    
 TD   00121  3 00000 0 00136         TXH     NAME2    
 TD   00122  3 00000 0 00143         TXH     =0 
 TD   00123  3 00000 0 00146         TXH     =-0
 TD   00124  3 00000 0 00146         TXH     =-0
 TD   00125  3 00000 0 00126         TXH     *+1
      00126  0074 00 4 00007         TSX     DELFIL,4 
 TD   00127  3 00000 0 00135         TXH     NAME1    
 TD   00130  3 00000 0 00136         TXH     NAME2    
 TD   00131  3 00000 0 00132         TXH     *+1
      00132  0774 00 4 00000  DEL4   AXT     **,4     
      00133  0020 00 4 00001         TRA     1,4
                              *     
      00134  0 00000 0 00000  FINGER PZE  
      00135  245162634651     NAME1  BCI     1,DRSTOR 
      00136  263143253303     NAME2  BCI     1,FILE.3 
      00137  0 00000 0 00000  TEMP   PZE  
      00140  0 00000 0 00000  STATUS PZE  
      00141  0074 00 4 00003  READ   TSX     RDFILE,4 
      00142  0074 00 4 00004  WRITE  TSX     WRFILE,4 
                                     END  
1            THIS IS A COOL PROGRAM                                              05/11/69 2000.6 PAGE 1     
                        POST PROCESSOR ASSEMBLY DATA  
                  
        151 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM  
                  
0REFERENCES TO DEFINED SYMBOLS      
        107     I1    43,  113
        110     I2    42,  114
        106     I4    20,   34,   44,  112
         65     IO    16,   32
         42    HOP    26
        132   DEL4   116
          0   OPEN    51
        141   READ    31
        137   TEMP    40,   73
          2  CLOSE    21,  101
        112  ERROR    41,   57,   64,   72,   74,  100
          6  FWAIT    75
        135  NAME1    22,   36,   53,   61,   66,   76,  102,  120,  127
        136  NAME2    23,   37,   54,   62,   67,   77,  103,  121,  130
         13  PUTIN     0
         71  WHERE    50
        142  WRITE    15
         63 BUFFAD    46
          1 BUFFER    60
          5 CHFILE   117
        116 DELDRS    25,  105
          7 DELFIL   126
        134 FINGER    17,   33,  104
         10 FSTATE    35
         27 GETOUT     0
          3 RDFILE   141
        140 STATUS    14,   30,   52
          4 WRFILE   142
                  
0 NO ERROR IN ABOVE ASSEMBLY. 




DSDUMP   BCD 05/11/69 2036.0  120696         00000    
1           INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64   05/11/69 2009.2 PAGE 1     
                  
                              *              (MAIN PROGRAM) 
                                     EXTERN  BUFFER,SETFIL,FSTATE,DELFIL,ATTACH     
                                     EXTERN  SETCLS,SETCLC  
                                     EXTERN  OPEN,CLOSE,SLEEP,WRFLX,WRFILE    
                                     EXTERN  FWAIT,UMOUNT,FERRTN,TILOCK,GETCOM
                                     EXTERN  NEXCOM,CHFILE,GETIME,CHNCOM
                              *     
                                     INSERT  DMCRSA   
                              *     
                              *      MACRO TO WRITE N WORDS FROM ARRAY ET SEQ ONTO ALREADY OPENED     
                              *      SECONDARY STORAGE FILE (NAME1,NAME2) AND WAIT UNTIL TRANSMITTED. 
                              *     
                               WSSF  MACRO   ARRAY,N,NAME1,NAME2  
                                     TSX     ATTACH,4      RE-ATTACH TO DUMPER'S FILES    
                                     TXH     DMPUSR   
                                     TXH     DMPRGR   
                                     TSX     WRFILE,4      WRITE  
                                     TXH     NAME1         ONTO (NAME1, 
                                     TXH     NAME2         NAME2) 
                                     TXH     =0            AT POSITION WHERE LAST CEASED  
                                     TIX     ARRAY,,N      FROM ARRAY THROUGH ARRAY+N-1   
                                     TSX     FWAIT,4       WAIT   
                                     TXH     NAME1    
                                     TXH     NAME2    
                               WSSF  END  
                              *     
                              *  ZERO-IZE A THROUGH A+X-1   
                              *     
                               CLEAR MACRO   A,X
                                     AXT     X,1
                                     STZ     A+X,1    
                                     TIX     *-1,1,1  
                               CLEAR END  
                              *     
                              *      MOVE X WORDS FROM A ET SEQ TO B ET SEQ   
                              *     
                               MOVE  MACRO   X,A,B    
                                     AXT     X,1
                                     CAL     A+X,1    
                                     SLW     B+X,1    
                                     TIX     *-2,1,1  
                               MOVE  END  
                              *     
                              *      PRINT ONE LINE, CLEAR BUFFER 
                              *     
                              PRBUFF MACRO   BUFF,NWDS
                                     SXA     *+3,4    
                                     TSX     WRFLX,4  
                                             BUFF,,NWDS     
                                     AXT     **,4     
                                     CLEAR   BUFF,NWDS
                              PRBUFF END  
                              *     
                              *      PRINT STANDARD BEGINNING TO DUMPER ERROR MESSAGE     
                              *     
                              BGNERM MACRO   TYPE     
1           INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64   05/11/69 2009.2 PAGE 2     
                  
                                     SXA     *+3,4    
                                     TSX     $BERM,4  
                                     PZE     TYPE     
                                     AXT     **,4     
                              BGNERM END  
                              *     
                              *  PRINT ONE LINE COMMENT     
                              *     
                              PRLINE MACRO   COMNT,NWC,N,WORD1,WORD2,LOC
                                     IFF     0,NWC,0  
                                     MOVE    NWC,LOC,PBF    
                                     IFF     N-2,N,1  
                                     CAL     WORD1    
                                     IFF     N-2,N,1  
                                     SLW     PBF+NWC  
                                     IFF     1,N,2    
                                     CAL     WORD2    
                                     IFF     1,N,2    
                                     SLW     PBF+NWC+1
                                     PRBUFF  PBF,NWC+N
                                     RMT  
                               LOC   BCI     NWC,COMNT
                                     RMT  
                              PRLINE END  
                              *     
                              *      PRINT ONE LINE MESSAGE 
                              *     
                              PRMESS MACRO   MESNAM,N,ADR1,ADR2   
                                     TSX     $PRLINE,4
                                     BCI     1,MESNAM 
                                     IFF     N,N,N    
                                     TXH     ADR1     
                                     IFF     N,N,N    
                                     TXH     ADR2     
                              PRMESS END  
                              *     
                              *      MACRO TO OPEN FILE (X,Y) OF USER (A,B) FOR READING   
                              *      AND ASSIGN BUFFER F OF LENGTH L TO I/O SYSTEM FOR THAT PURPOSE.  
                              *        ( ERR IS TRANSFER ADDRESS FOR ERROR RETURN ) 
                              *     
                              RDOPEN MACRO   X,Y,A,B,F,L,ERR
                                     TSX     ATTACH,4      ATTACH TO USER (A,B)     
                                     TXH     A  
                                     TXH     B  
                                     TSX     OPEN,4        OPEN FILE (X,Y) FOR READING    
                                     TXH     R  
                                     TXH     X  
                                     TXH     Y  
                                     TXH     =0 
                                     TXH     =0 
                                     TXH     ERR           (TRANSFER ADDRESS FOR ERROR)   
                                     TSX     BUFFER,4      ASSIGN L WORDS OF BUFFER F TO (X,Y)  
                                     TXH     X  
                                     TXH     Y  
                                     TIX     F,,L     
                              RDOPEN END  
1           INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64   05/11/69 2009.2 PAGE 3     
                  
                              *     
                              *      PRINT ERROR CODE, END MESSAGE
                              *     
                                ERTN MACRO   ADRERR   
                                     SXA     *+2,4    
                                     TSX     $ERREND,4
                                     AXT     **,4     
                                     TRA     ADRERR   
                                ERTN END  
                              *     
                              *      ASK OPERATOR TO SET KEY CODE DC IF HE WANTS    
                              *      ACTION GIVEN BY N-WORD MESSAGE M   
                              *     
                              PRCODE MACRO   DC,M,N   
                                     TSX     $PRCODE,4
                                     TXH     DC 
                                     TXH     M,,N     
                              PRCODE END  
                              *     
                              *      TEST LAST KEY SETTING VIA SUPERVISOR, GO TO JUMP IF IT IS CODE   
                              *     
                              TESTKY MACRO   CODE,JUMP
                                     TSX     $NGETA,7 
                                     LDQ     DEMKEY   
                                     STQ     KEYVAL   
                                     AXT     CODE,1   
                                     PXA     0,1
                                     SUB     KEYVAL   
                                     TZE     JUMP     
                              TESTKY END  
                              *     
                              *      SET UP LOGICAL TAPE RECORD WRITING 
                              *     
                              LOGREC MACRO   X  
                                     CLA     LTPBF    
                                     SUB     =12
                                     STO     TEMP     
                                     CAL     X+4
                                     ANA     =O77777  
                                     STO     RCOUNT   
                                     TSX     $NLREC,4 
                                     TXH     NORECS   
                                     TXH     RCOUNT   
                                     TXH     LCOUNT   
                                     TXH     TEMP     
                                     TXH     =12
                                     TXH     PHYSRC   
                                     TXH     NFLR     
                                     TXH     NLAST    
                              LOGREC END  
                              *     
                              *     
                              ATTACH MACRO   A,B
                                     TSX     ATTACH,4 
                                     TXH     A  
                                     TXH     B  
1           INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64   05/11/69 2009.2 PAGE 4     
                  
                              ATTACH END  
                              *     
                              *      PRINT ERROR MESSAGE AND INTERROGATE KEYS 
                              *     
                              PRERR  MACRO
                                     TSX     $PRNTER,4
                                     TSX     $GDSIG,4 
                              PRERR  END  
                              *     
                              *     
                              *     
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
                              *      START OF MAIN PROGRAM  
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
                              *     
                  
        TRANSFER VECTOR 
      00000  226426262551     BUFFER
      00001  622563263143     SETFIL
      00002  266263216325     FSTATE
      00003  242543263143     DELFIL
      00004  216363212330     ATTACH
      00005  622563234362     SETCLS
      00006  622563234323     SETCLC
      00007  464725456060     OPEN  
      00010  234346622560     CLOSE 
      00011  624325254760     SLEEP 
      00012  665126436760     WRFLX 
      00013  665126314325     WRFILE
      00014  266621316360     FWAIT 
      00015  644446644563     UMOUNT
      00016  262551516345     FERRTN
      00017  633143462342     TILOCK
      00020  272563234644     GETCOM
      00021  452567234644     NEXCOM
      00022  233026314325     CHFILE
      00023  272563314425     GETIME
      00024  233045234644     CHNCOM
      00025  475145632551     PRNTER
      00026  272462312760     GDSIG 
      00027  452725632160     NGETA 
      00030  272463627062     GDTSYS
      00031  272563466463     GETOUT
      00032  246362216525     DTSAVE
      00033  245162634651     DRSTOR
      00034  622165442147     SAVMAP
      00035  212424633144     ADDTIM
      00036  512444262460     RDMFD 
      00037  512426606060     RDF   
      00040  222551446060     BERM  
      00041  255151254524     ERREND
      00042  622426606060     SDF   
      00043  624426606060     SMF   
      00044  314622246360     IOBDT 
      00045  272463606060     GDT   
      00046  244447263143     DMPFIL
1           INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64   05/11/69 2009.2 PAGE 5     
                  
      00047  242370234325     DCYCLE
      00050  475123462425     PRCODE
      00051  254426606060     EMF   
      00052  244426606060     DMF   
      00053  664430606060     WMH   
      00054  626422242170     SUBDAY
      00055  246462510160     DUSR1 
      00056  234223462425     CKCODE
                  
      00057  0600 00 0 60261         STZ     ALOG     
      00060  0760 00 0 00016         LMTM 
      00061 -0500 00 0 03602         CAL     =H 99999 
      00062  0602 00 0 62726         SLW     DMPRGR   
      00063 -0500 00 0 03603         CAL     =H C0056 
      00064  0602 00 0 62727         SLW     DMPUSR   
      00065  0074 00 4 00004         TSX     ATTACH,4 
 TD   00066  3 00000 0 62727         TXH     DU 
 TD   00067  3 00000 0 62726         TXH     DP 
      00070  0500 00 0 03545         CLA     =4 
      00071  0601 00 0 62725         STO     MFD1W    
      00072  0074 00 4 00016         TSX     FERRTN,4      SET ADDRESS FOR UNSPECIFIED    
      00073  0 00000 0 00075         PZE     ELOC          I/O SYSTEM ERROR RETURN  
      00074  0020 00 0 00117         TRA     D3 
                              *     
      00075  0634 00 4 00115  ELOC   SXA     ELOC4,4       UNSPECIFIED ERROR RETURN FROM I/O SYSTEM   
      00076  0634 00 1 00114         SXA     ELOC1,1  
      00077                          MOVE    9,MESX,PBF     
      00077  0774 00 1 00011         AXT     9,1                                                              .001
      00100 -0500 00 1 03034         CAL     MESX+9,1                                                         .001
      00101  0602 00 1 64537         SLW     PBF+9,1                                                          .001
      00102  2 00001 1 00100         TIX     *-2,1,1                                                          .001
      00103                          PRBUFF  PBF,9    
      00103  0634 00 4 00106         SXA     *+3,4                                                            .001
      00104  0074 00 4 00012         TSX     WRFLX,4                                                          .001
      00105  0 00011 0 64526                 PBF,,9                                                           .001
      00106  0774 00 4 00000         AXT     **,4                                                             .001
      00107                          CLEAR   PBF,9                                                            .001
      00107  0774 00 1 00011         AXT     9,1                                                              .002
      00110  0600 00 1 64537         STZ     PBF+9,1                                                          .002
      00111  2 00001 1 00110         TIX     *-1,1,1                                                          .002
      00112                          PRERR
      00112  0074 00 4 00025         TSX     $PRNTER,4                                                        .001
      00113  0074 00 4 00026         TSX     $GDSIG,4                                                         .001
      00114  0774 00 1 00000  ELOC1  AXT     **,1     
      00115  0774 00 4 00000  ELOC4  AXT     **,4     
      00116  0020 00 4 00001         TRA     1,4
                              *     
      00117  0074 00 4 00017  D3     TSX     TILOCK,4      SET ADDRESS FOR UNEXPECTED READ-INTERLOCK  
      00120  0 00000 0 00122         PZE     ILOC     
      00121  0020 00 0 00142         TRA     D4            SKIP   
                              *     
      00122  0634 00 4 00140  ILOC   SXA     ILOC4,4       READ INTERLOCK TRAP
      00123  0634 00 1 00137         SXA     ILOC1,1  
      00124                          PRLINE  ( UNEXPECTED READ INTERLOCK TRAP IN DUMPER.),7,0   
      00124                          MOVE    7,..003,PBF                                                      .001
      00124  0774 00 1 00007         AXT     7,1                                                              .002
1           INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64   05/11/69 2009.2 PAGE 6     
                  
      00125 -0500 00 1 03460         CAL     ..003+7,1                                                        .002
      00126  0602 00 1 64535         SLW     PBF+7,1                                                          .002
      00127  2 00001 1 00125         TIX     *-2,1,1                                                          .002
      00130                          PRBUFF  PBF,7+0                                                          .001
      00130  0634 00 4 00133         SXA     *+3,4                                                            .002
      00131  0074 00 4 00012         TSX     WRFLX,4                                                          .002
      00132  0 00007 0 64526                 PBF,,7+0                                                         .002
      00133  0774 00 4 00000         AXT     **,4                                                             .002
      00134                          CLEAR   PBF,7+0                                                          .002
      00134  0774 00 1 00007         AXT     7+0,1                                                            .003
      00135  0600 00 1 64535         STZ     PBF+7+0,1                                                        .003
      00136  2 00001 1 00135         TIX     *-1,1,1                                                          .003
                                     RMT                                                                      .001
                              ..003  BCI     7, UNEXPECTED READ INTERLOCK TRAP IN DUMPER.                     .001
                                     RMT                                                                      .001
      00137  0774 00 1 00000  ILOC1  AXT     **,1     
      00140  0774 00 4 00000  ILOC4  AXT     **,4     
      00141  0020 00 4 00001         TRA     1,4           BLUNDER ON   
                              *     
      00142  0500 00 0 03060  D4     CLA     PBBASE        SET PERCENTAGE     
      00143  0074 00 7 00027         TSX     $NGETA,7 
      00144  0601 00 0 74674         STO     PB+2     
      00145 -0500 00 0 03575         CAL     =H.DUMP. 
      00146  0602 00 0 62723         SLW     NFN1     
      00147  0602 00 0 62721         SLW     NFN2     
      00150 -0500 00 0 03567         CAL     =HFILE.1 
      00151  0602 00 0 62724         SLW     NFN1+1   
      00152 -0500 00 0 03570         CAL     =HFILE.2 
      00153  0602 00 0 62722         SLW     NFN2+1   
      00154  0074 00 4 00020         TSX     GETCOM,4 
      00155  0 00000 0 00001         PZE     1  
      00156  0602 00 0 00333         SLW     ARGSAV   
      00157  0074 00 4 00005         TSX     SETCLS,4 
      00160  0 00001 0 00327         PZE     COMD,,1  
      00161  0074 00 4 00005         TSX     SETCLS,4 
      00162  0 00002 0 00327         PZE     COMD,,2  
      00163 -0500 00 0 00332         CAL     CHNWRD   
      00164  0074 00 4 00006         TSX     SETCLC,4 
                              *     
      00165  0074 00 7 00027         TSX     $NGETA,7 
      00166 -0500 00 0 74624         CAL     SYSTIM   
      00167  0074 00 7 00027         TSX     $NGETA,7 
      00170  0560 00 0 74623         LDQ     SYSDAT   
      00171  0074 00 4 00030         TSX     $GDTSYS,4
      00172  0602 00 0 00334         SLW     TMPSYS   
                              *     
      00173  0074 00 4 00010         TSX     CLOSE,4  
 TD   00174  3 00000 0 03562         TXH     =HALL    
      00175  0074 00 4 00015         TSX     UMOUNT,4 
 TD   00176  3 00000 0 03562         TXH     =HALL    
      00177  2 03265 0 03253         TIX     ALLMES,,LALMES 
      00200  0074 00 4 00002         TSX     FSTATE,4 
 TD   00201  3 00000 0 03566         TXH     =HDRSTOR 
 TD   00202  3 00000 0 03567         TXH     =HFILE.1 
      00203  3 00001 0 00325         TXH     TEMPS,,1 
 TD   00204  3 00000 0 00206         TXH     *+2
1           INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64   05/11/69 2009.2 PAGE 7     
                  
      00205  0020 00 0 00246         TRA     RESET    
      00206  0074 00 4 00002         TSX     FSTATE,4 
 TD   00207  3 00000 0 03566         TXH     =HDRSTOR 
 TD   00210  3 00000 0 03570         TXH     =HFILE.2 
      00211  3 00001 0 00325         TXH     TEMPS,,1 
 TD   00212  3 00000 0 00214         TXH     *+2
      00213  0020 00 0 00246         TRA     RESET    
      00214  0074 00 4 00031         TSX     $GETOUT,4
 TD   00215  3 00000 0 63630         TXH     IOBUF    
 TD   00216  3 00000 0 00321         TXH     T  
 TD   00217  3 00000 0 00221         TXH     *+2
      00220  0020 00 0 00312         TRA     AFFIX    
      00221 -0500 00 0 00334         CAL     TMPSYS   
      00222  0602 00 0 62730         SLW     DAWN     
      00223 -0500 00 0 62730  PUMP   CAL     DAWN     
      00224  0602 00 0 60255         SLW     ODAWN    
      00225  0600 00 0 60262         STZ     TFOSW    
      00226  0074 00 4 00032         TSX     $DTSAVE,4
      00227  0761 00 0 00000         NOP  
      00230  0074 00 4 00032         TSX     $DTSAVE,4
      00231  0761 00 0 00000         NOP  
      00232  0600 00 0 77456         STZ     NMFDU    
      00233 -0500 00 0 03600         CAL     =HRESTOR 
      00234  0602 00 0 03044         SLW     NAME1    
      00235  0074 00 4 00335         TSX     DDR,4    
      00236 -0500 00 0 00333         CAL     ARGSAV   
      00237 -0340 00 0 03556         LAS     =H0
      00240  0020 00 0 00242         TRA     *+2
      00241  0020 00 0 01371         TRA     CDUMP    
      00242 -0340 00 0 03560         LAS     =H2
      00243  0020 00 0 00245         TRA     *+2
      00244  0020 00 0 00366         TRA     IDUMP    
      00245  0074 00 4 00024         TSX     CHNCOM,4 
                              *     
                              *     
      00246  0074 00 4 00033  RESET  TSX     $DRSTOR,4
      00247  0020 00 0 00246         TRA     *-1
      00250 -0500 00 0 62730         CAL     DAWN     
      00251 -0100 00 0 00254         TNZ     *+3
      00252 -0500 00 0 00334         CAL     TMPSYS   
      00253  0602 00 0 62730         SLW     DAWN     
      00254  0074 00 4 00031         TSX     $GETOUT,4
 TD   00255  3 00000 0 63630         TXH     IOBUF    
 TD   00256  3 00000 0 00321         TXH     T  
 TD   00257  3 00000 0 00270         TXH     RSME     
      00260 -0500 00 0 00322         CAL     T+1
      00261  0560 00 0 00323         LDQ     T+2
      00262  0074 00 4 00030         TSX     $GDTSYS,4
      00263  0602 00 0 00324         SLW     DWNTMP   
      00264  0402 00 0 62730         SUB     DAWN     
      00265  0120 00 0 00270         TPL     RSME     
      00266 -0500 00 0 00324         CAL     DWNTMP   
      00267  0602 00 0 62730         SLW     DAWN     
      00270 -0500 00 0 00333  RSME   CAL     ARGSAV   
      00271 -0340 00 0 03561         LAS     =H3
      00272  0020 00 0 00223         TRA     PUMP     
1           INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64   05/11/69 2009.2 PAGE 8     
                  
      00273  0020 00 0 00275         TRA     *+2
      00274  0020 00 0 00223         TRA     PUMP     
      00275  0520 00 0 60243         ZET     SKELSW   
      00276  0020 00 0 00316         TRA     RIDUMP   
      00277 -0520 00 0 60266         NZT     CDSW     
      00300  0020 00 0 00316         TRA     RIDUMP   
      00301  0500 00 0 60262         CLA     TFOSW    
      00302  0100 00 0 01371         TZE     CDUMP    
      00303  0402 00 0 03542         SUB     =1 
      00304 -0100 00 0 00306         TNZ     *+2
      00305  0020 00 0 01371         TRA     CDUMP    
      00306 -0625 00 0 00326         STL     UDTSW    
      00307  0074 00 4 00034         TSX     $SAVMAP,4
 TD   00310  3 00000 0 03541         TXH     =0 
      00311  0020 00 0 01534         TRA     UDTPAT   
                              *     
      00312 -0500 00 0 00322  AFFIX  CAL     T+1
      00313  0560 00 0 00323         LDQ     T+2
      00314  0074 00 4 00030         TSX     $GDTSYS,4
      00315  0020 00 0 00222         TRA     PUMP-1   
                              *     
      00316  0074 00 4 00034  RIDUMP TSX     $SAVMAP,4
 TD   00317  3 00000 0 03450         TXH     IMPINS   
      00320  0020 00 0 00366         TRA     IDUMP    
                              *     
      00321                   T      BSS     3  
      00324  0 00000 0 00000  DWNTMP PZE  
      00325  0 00000 0 00000  TEMPS  PZE  
      00326  0 00000 0 00000  UDTSW  PZE  
      00327  242125444645     COMD   BCI     1,DAEMON 
      00330  006060606060            BCI     1,0
      00331 -377777777777            OCT     777777777777   
      00332  0 00002 0 00001  CHNWRD PZE     1,,2     
      00333  0 00000 0 00000  ARGSAV PZE  
      00334  0 00000 0 00000  TMPSYS PZE  
                              *     
      00335  0634 00 4 00364  DDR    SXA     DDR4,4   
      00336  0074 00 4 00022         TSX     CHFILE,4 
 TD   00337  3 00000 0 03044         TXH     NAME1    
 TD   00340  3 00000 0 03567         TXH     =HFILE.1 
 TD   00341  3 00000 0 03541         TXH     =0 
 TD   00342  3 00000 0 03576         TXH     =-0
 TD   00343  3 00000 0 03576         TXH     =-0
 TD   00344  3 00000 0 00345         TXH     *+1
      00345  0074 00 4 00003         TSX     DELFIL,4 
 TD   00346  3 00000 0 03044         TXH     NAME1    
 TD   00347  3 00000 0 03567         TXH     =HFILE.1 
 TD   00350  3 00000 0 00351         TXH     *+1
      00351  0074 00 4 00022         TSX     CHFILE,4 
 TD   00352  3 00000 0 03044         TXH     NAME1    
 TD   00353  3 00000 0 03570         TXH     =HFILE.2 
 TD   00354  3 00000 0 03541         TXH     =0 
 TD   00355  3 00000 0 03576         TXH     =-0
 TD   00356  3 00000 0 03576         TXH     =-0
 TD   00357  3 00000 0 00360         TXH     *+1
      00360  0074 00 4 00003         TSX     DELFIL,4 
1           INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64   05/11/69 2009.2 PAGE 9     
                  
 TD   00361  3 00000 0 03044         TXH     NAME1    
 TD   00362  3 00000 0 03570         TXH     =HFILE.2 
 TD   00363  3 00000 0 00364         TXH     *+1
      00364  0774 00 4 00000  DDR4   AXT     **,4     
      00365  0020 00 4 00001         TRA     1,4
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
                              *      START OF INCREMENTAL NEW FILE DUMP 
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
                              *     
      00366  0600 00 0 60266  IDUMP  STZ     CDSW     
      00367 -0500 00 0 00334         CAL     TMPSYS   
      00370  0074 00 4 00035         TSX     $ADDTIM,4
 TD   00371  3 00000 0 03063         TXH     DAY
      00372  0602 00 0 61157         SLW     DUSK          SET DUSK = DAWN + (LENGTH OF 'DAY')  
      00373  0500 00 0 03542         CLA     =1 
      00374  0601 00 0 03066         STO     J             J=1    
                              *     
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
                              *   INITIALIZE FOR A NEW 'DAY'
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
                              *     
      00375  0074 00 4 00004  IDD    TSX     ATTACH,4      ATTACH TO DUMP PROGRAM'S FILES 
 TD   00376  3 00000 0 62727         TXH     DMPUSR   
 TD   00377  3 00000 0 62726         TXH     DMPRGR   
      00400  0074 00 4 00003         TSX     DELFIL,4 
 TD   00401  3 00000 0 03047         TXH     BA 
 TD   00402  3 00000 0 03050         TXH     BB 
 TD   00403  3 00000 0 00404         TXH     *+1
      00404  0074 00 4 00007  IDDA   TSX     OPEN,4        OPEN TEMPORARY USER LIST FILE  
 TD   00405  3 00000 0 03046         TXH     W             FOR MAKING NEW LIST
 TD   00406  3 00000 0 03047         TXH     BA 
 TD   00407  3 00000 0 03050         TXH     BB 
 TD   00410  3 00000 0 03542         TXH     =1 
 TD   00411  3 00000 0 03051         TXH     LLSD          TRY FOR LOW-SPEED DRUM   
 TD   00412  3 00000 0 02655         TXH     ERRID2        (ERROR TRANSFER ADDRESS) 
      00413  0074 00 4 00000  IDE    TSX     BUFFER,4 
 TD   00414  3 00000 0 03047         TXH     BA 
 TD   00415  3 00000 0 03050         TXH     BB 
      00416  2 03053 0 62750         TIX     IOBUF2,,LBUF2  
      00417  0500 00 0 62725         CLA     MFD1W         CONTINUE PREPARING TO WRITE NEW
      00420  0601 00 0 62740         STO     MFDC          USER LIST, FROM MFD
      00421  0601 00 0 62735         STO     MFDEOF   
      00422  0074 00 4 01720         TSX     OPNMFD,4 
                              *     
                              *      WRITE NEW USER LIST    
                              *     
      00423  0074 00 4 00036  IDF    TSX     $RDMFD,4      READ NEXT MFD ENTRY (NEXT USER)
      00424  0020 00 0 00426         TRA     *+2           ERROR  
      00425  0020 00 0 00432         TRA     IDFA          O.K., SKIP   
      00426  0074 00 4 00010         TSX     CLOSE,4  
 TD   00427  3 00000 0 03047         TXH     BA 
 TD   00430  3 00000 0 03050         TXH     BB 
      00431  0020 00 0 00375         TRA     IDD           ERROR, START AGAIN 
      00432  0534 00 1 77456  IDFA   LXA     NMFDU,1       SEARCH LIST TO SEE IF NEXT     
      00433 -0634 00 1 00443         SXD     IDH,1         USER IS IN IT
      00434 -3 00000 1 00455         TXL     IDK,1,0  
1           INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64   05/11/69 2009.2 PAGE 10    
                  
      00435  0774 00 1 00001         AXT     1,1
      00436 -0500 00 0 64511         CAL     MFDENT+1 
      00437 -0340 00 1 76145   IDG   LAS     PROGNO+1,1     
      00440  0020 00 0 00442         TRA     *+2
      00441  0020 00 0 00445         TRA     IDI
      00442  1 00001 1 00443         TXI     *+1,1,1  
      00443 -3 00000 1 00437   IDH   TXL     IDG,1,** 
      00444  0020 00 0 00455         TRA     IDK           NOT IN LIST, SKIP  
      00445 -0500 00 0 64510   IDI   CAL     MFDENT   
      00446 -0340 00 1 74651         LAS     PROBNO+1,1     
      00447  0020 00 0 00451         TRA     *+2
      00450  0020 00 0 00453         TRA     IDJ           USER IN LIST, SKIP 
      00451 -0500 00 0 64511         CAL     MFDENT+1 
      00452  1 00001 1 00443         TXI     IDH,1,1  
      00453 -0500 00 1 77441   IDJ   CAL     DTLD+1,1      USER IN LIST, GET HIS TLD
      00454  0020 00 0 00456         TRA     *+2           SKIP   
      00455 -0500 00 0 60255   IDK   CAL     ODAWN         NOT IN LIST, GET 'DAWN' OF PREVIOUS DAY    
      00456  0602 00 0 64512         SLW     MFDENT+2      SET HIS TLD APPROPRIATELY
      00457                          WSSF    MFDENT,L3,BA,BB  WRITE PROBNO.,PROGNO.,+TLD ON TEMP FILE 
      00457  0074 00 4 00004         TSX     ATTACH,4                                                         .001
 TD   00460  3 00000 0 62727         TXH     DMPUSR                                                           .001
 TD   00461  3 00000 0 62726         TXH     DMPRGR                                                           .001
      00462  0074 00 4 00013         TSX     WRFILE,4                                                         .001
 TD   00463  3 00000 0 03047         TXH     BA                                                               .001
 TD   00464  3 00000 0 03050         TXH     BB                                                               .001
 TD   00465  3 00000 0 03541         TXH     =0            AT POSITION WHERE LAST CEASED                      .001
      00466  2 03054 0 64510         TIX     MFDENT,,L3                                                       .001
      00467  0074 00 4 00014         TSX     FWAIT,4                                                          .001
 TD   00470  3 00000 0 03047         TXH     BA                                                               .001
 TD   00471  3 00000 0 03050         TXH     BB                                                               .001
      00472  0520 00 0 62735         ZET     MFDEOF        ANY MORE USERS IN MFD(Q) 
      00473  0020 00 0 00423         TRA     IDF           YES, GO BACK FOR NEXT USER     
      00474  0074 00 4 00010         TSX     CLOSE,4       NO, CLOSE TEMP. USER LIST FILE 
 TD   00475  3 00000 0 03047         TXH     BA 
 TD   00476  3 00000 0 03050         TXH     BB 
 TD   00477  3 00000 0 02655         TXH     ERRID2   
      00500  0074 00 4 00026         TSX     $GDSIG,4 
      00501  0074 00 4 01736         TSX     CLSMFD,4 
                              *     
                              *      READ NEW USER LIST INTO CORE 
                              *     
                                             PREPARE TO UPDATE USER LIST IN CORE FROM THE TEMP. FILE  
                  
      00502                          RDOPEN  BA,BB,DMPUSR,DMPRGR,IOBUF2,LBUF2,ERRID3
      00502  0074 00 4 00004         TSX     ATTACH,4                                                         .001
 TD   00503  3 00000 0 62727         TXH     DMPUSR                                                           .001
 TD   00504  3 00000 0 62726         TXH     DMPRGR                                                           .001
      00505  0074 00 4 00007         TSX     OPEN,4                                                           .001
 TD   00506  3 00000 0 03062         TXH     R                                                                .001
 TD   00507  3 00000 0 03047         TXH     BA                                                               .001
 TD   00510  3 00000 0 03050         TXH     BB                                                               .001
 TD   00511  3 00000 0 03541         TXH     =0                                                               .001
 TD   00512  3 00000 0 03541         TXH     =0                                                               .001
 TD   00513  3 00000 0 02701         TXH     ERRID3                                                           .001
      00514  0074 00 4 00000         TSX     BUFFER,4                                                         .001
 TD   00515  3 00000 0 03047         TXH     BA                                                               .001
1           INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64   05/11/69 2009.2 PAGE 11    
                  
 TD   00516  3 00000 0 03050         TXH     BB                                                               .001
      00517  2 03053 0 62750         TIX     IOBUF2,,LBUF2                                                    .001
      00520 -0500 00 0 03047   IDKA  CAL     BA 
      00521  0602 00 0 62741         SLW     UFDENT   
      00522 -0500 00 0 03050         CAL     BB 
      00523  0602 00 0 62742         SLW     UFDENT+1 
      00524 -0500 00 0 62727         CAL     DMPUSR   
      00525  0602 00 0 64510         SLW     MFDENT   
      00526 -0500 00 0 62726         CAL     DMPRGR   
      00527  0602 00 0 64511         SLW     MFDENT+1 
      00530  0601 00 0 62733         STO     FEOF     
      00531  0534 00 1 03043         LXA     MXIOU,1  
      00532 -0634 00 1 00555         SXD     IDM,1    
      00533  0774 00 1 00001         AXT     1,1
                              *     
      00534  0074 00 4 00037  IDL    TSX     $RDF,4        READ NEXT ENTRY FROM USER LIST FILE  
 TD   00535  3 00000 0 70053         TXH     TPBUF    
 TD   00536  3 00000 0 03544         TXH     =3 
      00537  0020 00 0 00375         TRA     IDD           ERROR RETURN GO REWRITE IT AGAIN     
      00540 -0520 00 0 62733         NZT     FEOF     
      00541  0020 00 0 00551         TRA     IDLA          SKIP IF EOF  
      00542 -0500 00 0 70053         CAL     TPBUF    
      00543  0602 00 1 74651         SLW     PROBNO+1,1    STORE THIS USER'S PROBLEM NO.  
      00544 -0500 00 0 70054         CAL     TPBUF+1  
      00545  0602 00 1 76145         SLW     PROGNO+1,1    AND HIS PROGRAMMER NO.   
      00546 -0500 00 0 70055         CAL     TPBUF+2  
      00547  0602 00 1 77441         SLW     DTLD+1,1      AND HIS TLD  
      00550  1 00001 1 00555         TXI     IDM,1,1       SKIP IF NO EOF YET 
      00551  0074 00 4 00010  IDLA   TSX     CLOSE,4       EOF, CLOSE THE TEMP. FILE
 TD   00552  3 00000 0 03047         TXH     BA 
 TD   00553  3 00000 0 03050         TXH     BB 
      00554  0020 00 0 00620         TRA     IDN           MOVE ON
      00555 -3 00000 1 00534  IDM    TXL     IDL,1,**      RETURN FOR NEXT USER, IF CORE SPACE LEFT   
      00556 -0500 00 0 03056         CAL     LIDD          NO MORE SPACE, ERROR     
      00557  0621 00 0 00616  IDCA   STA     IDCB          REMEDY IS TO REDUCE MFD OR RE-ASSEMBLE     
      00560                          BGNERM  =HID01        PRINT ERROR I.D.   
      00560  0634 00 4 00563         SXA     *+3,4                                                            .001
      00561  0074 00 4 00040         TSX     $BERM,4                                                          .001
      00562  0 00000 0 03571         PZE     =HID01                                                           .001
      00563  0774 00 4 00000         AXT     **,4                                                             .001
      00564                          PRLINE  ( NOT ENOUGH SPACE IN DUMP PROGRAM'S USER LIST.),8,0     
      00564                          MOVE    8,..006,PBF                                                      .001
      00564  0774 00 1 00010         AXT     8,1                                                              .002
      00565 -0500 00 1 03470         CAL     ..006+8,1                                                        .002
      00566  0602 00 1 64536         SLW     PBF+8,1                                                          .002
      00567  2 00001 1 00565         TIX     *-2,1,1                                                          .002
      00570                          PRBUFF  PBF,8+0                                                          .001
      00570  0634 00 4 00573         SXA     *+3,4                                                            .002
      00571  0074 00 4 00012         TSX     WRFLX,4                                                          .002
      00572  0 00010 0 64526                 PBF,,8+0                                                         .002
      00573  0774 00 4 00000         AXT     **,4                                                             .002
      00574                          CLEAR   PBF,8+0                                                          .002
      00574  0774 00 1 00010         AXT     8+0,1                                                            .003
      00575  0600 00 1 64536         STZ     PBF+8+0,1                                                        .003
      00576  2 00001 1 00575         TIX     *-1,1,1                                                          .003
                                     RMT                                                                      .001
1           INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64   05/11/69 2009.2 PAGE 12    
                  
                              ..006  BCI     8, NOT ENOUGH SPACE IN DUMP PROGRAM'S USER LIST.                 .001
                                     RMT                                                                      .001
      00577                          PRLINE  ( REDUCE M.F.D. OR RE-ASSEMBLE DUMP PROGRAM.),7,0  
      00577                          MOVE    7,..009,PBF                                                      .001
      00577  0774 00 1 00007         AXT     7,1                                                              .002
      00600 -0500 00 1 03477         CAL     ..009+7,1                                                        .002
      00601  0602 00 1 64535         SLW     PBF+7,1                                                          .002
      00602  2 00001 1 00600         TIX     *-2,1,1                                                          .002
      00603                          PRBUFF  PBF,7+0                                                          .001
      00603  0634 00 4 00606         SXA     *+3,4                                                            .002
      00604  0074 00 4 00012         TSX     WRFLX,4                                                          .002
      00605  0 00007 0 64526                 PBF,,7+0                                                         .002
      00606  0774 00 4 00000         AXT     **,4                                                             .002
      00607                          CLEAR   PBF,7+0                                                          .002
      00607  0774 00 1 00007         AXT     7+0,1                                                            .003
      00610  0600 00 1 64535         STZ     PBF+7+0,1                                                        .003
      00611  2 00001 1 00610         TIX     *-1,1,1                                                          .003
                                     RMT                                                                      .001
                              ..009  BCI     7, REDUCE M.F.D. OR RE-ASSEMBLE DUMP PROGRAM.                    .001
                                     RMT                                                                      .001
      00612                          ERTN    IDCB          CONCLUDE MESSAGE   
      00612  0634 00 4 00614         SXA     *+2,4                                                            .001
      00613  0074 00 4 00041         TSX     $ERREND,4                                                        .001
      00614  0774 00 4 00000         AXT     **,4                                                             .001
      00615  0020 00 0 00616         TRA     IDCB                                                             .001
      00616  0020 00 0 00000  IDCB   TRA     ** 
      00617  0020 00 0 00557         TRA     IDCA          MESSAGE, THEN RETURN TO REMAKE LIST  
                              *     
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
                              *      BEGIN A NEW DUMP 'DAY' 
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
                              *     
      00620  0634 00 1 77456  IDN    SXA     NMFDU,1       SAVE NO. OF USERS IN USER LIST 
                              *     
                              *      OPEN DUMP TAPE FILES, WRITE DUMP TAPE I.D.RECORD     
                              *     
      00621  0074 00 4 00032         TSX     $DTSAVE,4
      00622  0761 00 0 00000         NOP  
      00623  0074 00 4 00026         TSX     $GDSIG,4 
      00624  0534 00 2 03066         LXA     J,2
      00625 -0500 00 0 03067         CAL     NXDUSK   
      00626  3 00001 2 00630         TXH     *+2,2,1       SKIP IF J .GR. 1 (BEHIND SCHEDULE)   
      00627 -0500 00 0 61157         CAL     DUSK          J=1, NORMAL CASE - ON SCHEDULE 
      00630  0602 00 0 70062         SLW     TPBUF+7       DATE/TIME OF END OF THIS 'DAY' 
      00631                          MOVE    4,DTPID,TAPEID 
      00631  0774 00 1 00004         AXT     4,1                                                              .001
      00632 -0500 00 1 03114         CAL     DTPID+4,1                                                        .001
      00633  0602 00 1 60250         SLW     TAPEID+4,1                                                       .001
      00634  2 00001 1 00632         TIX     *-2,1,1                                                          .001
      00635  0074 00 4 00042         TSX     $SDF,4   
      00636  2 03137 0 03114         TIX     SIDMES,,LSIDMS  (MESSAGE FOR START OF INCREMENTAL DUMP)  
                              *     
                              *      INITIATE, THEN WRITE HEADING FOR, NEW DUMP TAPE 'MAP' FILE 
                              *     
      00637  0074 00 4 00043         TSX     $SMF,4        INITIATE 'MAP' FILE
      00640 -0500 00 0 70062         CAL     TPBUF+7       GET DATE/TIME OF END OF 'DAY'  
1           INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64   05/11/69 2009.2 PAGE 13    
                  
      00641  0074 00 4 00044         TSX     $IOBDT,4      CONVERT TO HHMM.M IN AC, MMDDYY IN MQ
      00642  0602 00 0 03345         SLW     MHA           STORE TIME IN 'MAP' FILE HEADING     
      00643 -0500 00 0 03611         CAL     =O777700007700 
      00644  0320 00 0 03346         ANS     MHA+1    
 T    00645 -0754 00 0 00000         PXD  
      00646 -0763 00 0 00014         LGL     12 
      00647  0767 00 0 00006         ALS     6  
      00650 -0763 00 0 00006         LGL     6  
      00651 -0602 00 0 03346         ORS     MHA+1         STORE HALF OF DATE IN 'MAP' FILE HEADING   
      00652 -0500 00 0 03557         CAL     =O007700007777 
      00653  0320 00 0 03347         ANS     MHA+2    
 T    00654 -0754 00 0 00000         PXD  
      00655 -0763 00 0 00006         LGL     6  
      00656  0767 00 0 00006         ALS     6  
      00657 -0763 00 0 00014         LGL     12 
      00660  0767 00 0 00014         ALS     12 
      00661 -0602 00 0 03347         ORS     MHA+2         STORE 2ND HALF OF DATE IN 'MAP' HEADING    
      00662 -0500 00 0 70057         CAL     TPBUF+4       GET TIME DUMPING STARTING
      00663  0602 00 0 03361         SLW     MHB           STORE IN 'MAP' HEADING   
      00664  0560 00 0 70060         LDQ     TPBUF+5       GET DATE DUMPING STARTED (MMDDYY)    
      00665 -0500 00 0 03613         CAL     =O777777770000 
      00666  0320 00 0 03362         ANS     MHB+1    
 T    00667 -0754 00 0 00000         PXD  
      00670 -0763 00 0 00014         LGL     12 
      00671 -0602 00 0 03362         ORS     MHB+1         STORE 1ST PART OF DATE IN 'MAP' HEADING    
      00672 -0500 00 0 03610         CAL     =O770000770000 
      00673  0320 00 0 03363         ANS     MHB+2    
 T    00674 -0754 00 0 00000         PXD  
      00675 -0763 00 0 00014         LGL     12 
      00676  0767 00 0 00006         ALS     6  
      00677 -0763 00 0 00014         LGL     12 
      00700 -0602 00 0 03363         ORS     MHB+2         STORE 2ND PART OF DATE IN 'MAP' HEADING    
                              *     
      00701  0074 00 4 00013         TSX     WRFILE,4      WRITE MAP HEADING ON MAP FILE  
 TD   00702  3 00000 0 03311         TXH     MAP1          (WHICH IS A LINE-MARKED BCD PRINT FILE)    
 TD   00703  3 00000 0 03312         TXH     MAP2     
 TD   00704  3 00000 0 03541         TXH     =0 
      00705  2 03447 0 03313         TIX     MAPHD,,LMHD    
                              *     
                              *      DUMP MFD FILE    
                              *     
      00706  0074 00 4 00026         TSX     $GDSIG,4 
      00707  0074 00 4 00045         TSX     $GDT,4   
      00710  0602 00 0 60263         SLW     TCYCLE   
      00711 -0500 00 0 03071         CAL     UFDNAM        MFD FILE'S 'FILE NAME'   
      00712  0602 00 0 62741         SLW     UFDENT   
      00713 -0500 00 0 03072         CAL     UFDNAM+1 
      00714  0602 00 0 62742         SLW     UFDENT+1 
      00715  0602 00 0 64511         SLW     MFDENT+1      MFD FILE'S 'USER NAME'   
      00716 -0500 00 0 03073         CAL     MFDNAM   
      00717  0602 00 0 64510         SLW     MFDENT   
      00720  0074 00 4 00046         TSX     $DMPFIL,4     DUMP MFD FILE
      00721  0074 00 4 01720         TSX     OPNMFD,4 
      00722 -0625 00 0 60243         STL     SKELSW   
      00723  0074 00 4 00047         TSX     $DCYCLE,4
      00724  0 00000 0 00000         PZE  
1           INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64   05/11/69 2009.2 PAGE 14    
                  
      00725  0761 00 0 00000         NOP  
      00726  0600 00 0 60243         STZ     SKELSW   
      00727  0074 00 4 00032         TSX     $DTSAVE,4
      00730  0761 00 0 00000         NOP  
      00731  0074 00 4 02626         TSX     WREND,4  
                              *     
      00732  3 00001 2 01033         TXH     TMB,2,1       SKIP IF J GREATER THAN 1 (BEHIND SCHEDULE) 
                              *     
      00733  0600 00 0 61156         STZ     ENDSW         CLEAR END-OF-DAY SWITCH  
      00734  0600 00 0 62720         STZ     TNDSW         ENSURE TND TAKEN AS CURRENT TIME     
                                                                             FOR EACH USER.     
      00735  0600 00 0 73354         STZ     FLUSH         ENSURE FLUSH MODE DUMPING NOT FORCED,
                                                             BUT ACCORDING TO KEY K SETTING     
      00736  0534 00 4 03107         LXA     NIDXM,4       SET NO. OF USERS EXEMPT FROM INCR. DUMP    
      00737  3 00014 4 02711         TXH     ERRID6,4,2*NX ERROR IF MORE THAN SPACE ALLOTTED    
      00740  0634 00 4 77441         SXA     NXMPT,4  
      00741 -0500 00 4 03107  IDNZ   CAL     NIDXM,4       SET NAMES OF USERS EXEMPT FROM INCR. DUMPS 
      00742  0602 00 4 77456         SLW     EXEMPT+1,4     
      00743 -0500 00 4 03110         CAL     NIDXM+1,4
      00744  0602 00 4 77457         SLW     EXEMPT+2,4     
      00745  2 00002 4 00741         TIX     *-4,4,2  
                              *     
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
                              *  INDEFINITELY REPEAT THE CONTINUOUS DUMP CYCLE
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
                              *     
      00746 -0500 00 0 00746  IDQ    CAL     *             INDICATE NOTHING DUMPED YET,   
      00747  0602 00 0 62731         SLW     DMPSW         FOR NEXT DUMP CYCLE
      00750  0074 00 4 00026         TSX     $GDSIG,4 
                              *     
      00751  0074 00 4 00047         TSX     $DCYCLE,4     PERFORM ONE DUMP CYCLE   
      00752  0761 00 0 00000         NOP                   (SOME USERS MAY BE EXEMPT)     
      00753  0020 00 0 01021         TRA     TMA           END-OF-'DAY' RETURN, SKIP
                              *     
      00754 -0520 00 0 62731         NZT     DMPSW         NORMAL RETURN,     
      00755  0020 00 0 00746         TRA     IDQ           GO DO ANOTHER CYCLE IF SOMETHING     
                                                             WAS DUMPED LAST TIME,  
      00756                          PRLINE  ( DUMPER GOING TO SLEEP. ),4,0   
      00756                          MOVE    4,..012,PBF                                                      .001
      00756  0774 00 1 00004         AXT     4,1                                                              .002
      00757 -0500 00 1 03503         CAL     ..012+4,1                                                        .002
      00760  0602 00 1 64532         SLW     PBF+4,1                                                          .002
      00761  2 00001 1 00757         TIX     *-2,1,1                                                          .002
      00762                          PRBUFF  PBF,4+0                                                          .001
      00762  0634 00 4 00765         SXA     *+3,4                                                            .002
      00763  0074 00 4 00012         TSX     WRFLX,4                                                          .002
      00764  0 00004 0 64526                 PBF,,4+0                                                         .002
      00765  0774 00 4 00000         AXT     **,4                                                             .002
      00766                          CLEAR   PBF,4+0                                                          .002
      00766  0774 00 1 00004         AXT     4+0,1                                                            .003
      00767  0600 00 1 64532         STZ     PBF+4+0,1                                                        .003
      00770  2 00001 1 00767         TIX     *-1,1,1                                                          .003
                                     RMT                                                                      .001
                              ..012  BCI     4, DUMPER GOING TO SLEEP.                                        .001
                                     RMT                                                                      .001
      00771 -0500 00 0 03555         CAL     =1800         OTHERWISE SLEEP FOR 10 MINS.   
1           INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64   05/11/69 2009.2 PAGE 15    
                  
      00772  0074 00 4 00011         TSX     SLEEP,4       ZZZ-ZZZ-ZZZ-ZZZ-ZZZ-ZZ.....Z-ZZZ-ZZZ 
      00773                          PRLINE  ( DUMPER WAKING UP.),3,0   
      00773                          MOVE    3,..015,PBF                                                      .001
      00773  0774 00 1 00003         AXT     3,1                                                              .002
      00774 -0500 00 1 03506         CAL     ..015+3,1                                                        .002
      00775  0602 00 1 64531         SLW     PBF+3,1                                                          .002
      00776  2 00001 1 00774         TIX     *-2,1,1                                                          .002
      00777                          PRBUFF  PBF,3+0                                                          .001
      00777  0634 00 4 01002         SXA     *+3,4                                                            .002
      01000  0074 00 4 00012         TSX     WRFLX,4                                                          .002
      01001  0 00003 0 64526                 PBF,,3+0                                                         .002
      01002  0774 00 4 00000         AXT     **,4                                                             .002
      01003                          CLEAR   PBF,3+0                                                          .002
      01003  0774 00 1 00003         AXT     3+0,1                                                            .003
      01004  0600 00 1 64531         STZ     PBF+3+0,1                                                        .003
      01005  2 00001 1 01004         TIX     *-1,1,1                                                          .003
                                     RMT                                                                      .001
                              ..015  BCI     3, DUMPER WAKING UP.                                             .001
                                     RMT                                                                      .001
      01006  0074 00 7 00027         TSX     $NGETA,7      AWAKEN,..... 
      01007  0500 00 0 74674         CLA     PB+2     
      01010  0402 00 0 03060         SUB     PBBASE        DONT LET WRKING PERCENT GO .L. BASE  
      01011 -0120 00 0 00746         TMI     IDQ
      01012  0100 00 0 00746         TZE     IDQ           SKIP IF OUR PERCENTAGE IS ZERO 
      01013  0402 00 0 03546         SUB     =5            ELSE REDUCE IT BY 5
      01014  0120 00 0 01016         TPL     *+2
 T    01015 -0754 00 0 00000         PXD  
      01016  0074 00 7 00027         TSX     $NGETA,7 
      01017  0601 00 0 74674         STO     PB+2     
      01020  0020 00 0 00746         TRA     IDQ           TRY AGAIN TO DUMP  
                              *     
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
                              *      TERMINATION AT END OF 'DAY'  
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
                              *     
      01021  0600 00 0 62735  TMA    STZ     MFDEOF   
      01022  0500 00 0 61156         CLA     ENDSW    
      01023  0402 00 0 03542         SUB     =1 
      01024 -0100 00 0 01027         TNZ     TMAA          SKIP IF END-OF-DAY WAS OPERATOR-INITIATED  
      01025 -0500 00 0 61157         CAL     DUSK          SET TND=DUSK IF NORMAL END OF DAY    
      01026  0020 00 0 01034         TRA     TMC
                              *     
      01027  0600 00 0 03055  TMAA   STZ     PASS          OPERATOR INITIATED END OF TAPE 
      01030  0600 00 0 01300         STZ     PASS2    
      01031  0074 00 4 00045  TMAC   TSX     $GDT,4   
      01032  0020 00 0 01034         TRA     TMC           SET TND=CURRENT TIME     
                              *     
      01033 -0500 00 0 03067  TMB    CAL     NXDUSK        SET TND=NXDUSK, BEHIND SCHEDULE
      01034  0602 00 0 73353  TMC    SLW     TND           TND=DUSK+(J-1)*DAY 
      01035  0602 00 0 73354         SLW     FLUSH         FORCE FLUSH MODE   
      01036  0602 00 0 62720         SLW     TNDSW         ENSURE TND TAKEN AS CONSTANT   
      01037  0074 00 4 00026         TSX     $GDSIG,4 
      01040  0074 00 4 00045         TSX     $GDT,4   
      01041  0602 00 0 60263         SLW     TCYCLE        SET TIME OF THIS LAST CYCLE    
                              *     
      01042  0074 00 4 00047         TSX     $DCYCLE,4     PERFORM FLUSH DUMP CYCLE UP TO TIME TND    
1           INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64   05/11/69 2009.2 PAGE 16    
                  
      01043  0 00000 0 00000         PZE                   (NO EXEMPT USERS)  
      01044  0020 00 0 01027         TRA     TMAA          END-OF-DAY (INITIATED BY OPERATOR    
                                                           DURING NORMAL FLUSH DUMP)
                              *     
                              *      IF END OF TAPE WAS ASKED FOR BY OPERATOR FOR AUTOLOGOUT    
                              *      PURPOSES, ENSURE A FURTHER FLUSH IS TAKEN BEFORE LOGGING OUT     
                              *     
      01045  0500 00 0 61156         CLA     ENDSW    
      01046  0402 00 0 03543         SUB     =2 
      01047 -0100 00 0 01115         TNZ     TMZ           SKIP IF AUTOMATIC END-TAPE     
                              *     
      01050  0074 00 7 00027         TSX     $NGETA,7 
      01051  0500 00 0 74454         CLA     AUTOND   
      01052  0100 00 0 01066         TZE     TMX           SKIP IF NO AUTOLOGOUT REQUEST DETECTED     
      01053 -0625 00 0 03045         STL     ALOGSW   
      01054  0074 00 7 00027  TMAB3  TSX     $NGETA,7      TAPE FILE CLOSED FOR     
      01055  0500 00 0 74532         CLA     NUSERS        AN AUTOLOGOUT
      01056  0402 00 0 03543         SUB     =2            LOOK AT CORE A FOR NO. USERS   
      01057  0120 00 0 01223         TPL     TMAC3         FLUSH AGAIN IF 2 OR MORE USERS IN    
      01060  0500 00 0 03055  TMAC4  CLA     PASS          ONLY 1 USER, ME    
      01061  0400 00 0 03542         ADD     =1 
      01062  0601 00 0 03055         STO     PASS     
      01063  0402 00 0 03542         SUB     =1 
      01064  0100 00 0 01031         TZE     TMAC          MAKE FINAL FLUSH IF NOT DONE   
      01065  0020 00 0 01115         TRA     TMZ           OR GO AND FINISH CLOSING TAPE FILE   
                              *     
      01066                   TMX    PRCODE  AK,MESD,7     ASK OPERATOR IF HE INTENDS AUTOLOGOUT
      01066  0074 00 4 00050         TSX     $PRCODE,4                                                        .001
 TD   01067  3 00000 0 00004         TXH     AK                                                               .001
      01070  3 00007 0 03010         TXH     MESD,,7                                                          .001
      01071                          PRCODE  C,MESE,2      OR NOT 
      01071  0074 00 4 00050         TSX     $PRCODE,4                                                        .001
 TD   01072  3 00000 0 00003         TXH     C                                                                .001
      01073  3 00002 0 03017         TXH     MESE,,2                                                          .001
      01074 -0500 00 0 03553         CAL     =20           WAIT   
      01075  0074 00 4 00011         TSX     SLEEP,4  
      01076                          TESTKY  AK,TMAB3      SKIP IF YES  
      01076  0074 00 7 00027         TSX     $NGETA,7                                                         .001
      01077  0560 00 0 74446         LDQ     DEMKEY                                                           .001
      01100 -0600 00 0 77461         STQ     KEYVAL                                                           .001
      01101  0774 00 1 00004         AXT     AK,1                                                             .001
      01102  0754 00 1 00000         PXA     0,1                                                              .001
      01103  0402 00 0 77461         SUB     KEYVAL                                                           .001
      01104  0100 00 0 01054         TZE     TMAB3                                                            .001
      01105                          TESTKY  C,TMZ         SKIP IF NO   
      01105  0074 00 7 00027         TSX     $NGETA,7                                                         .001
      01106  0560 00 0 74446         LDQ     DEMKEY                                                           .001
      01107 -0600 00 0 77461         STQ     KEYVAL                                                           .001
      01110  0774 00 1 00003         AXT     C,1                                                              .001
      01111  0754 00 1 00000         PXA     0,1                                                              .001
      01112  0402 00 0 77461         SUB     KEYVAL                                                           .001
      01113  0100 00 0 01115         TZE     TMZ                                                              .001
      01114  0020 00 0 01066         TRA     TMX           ASK AGAIN IF NO REPLY    
                              *     
                              *     
      01115  0074 00 4 01736  TMZ    TSX     CLSMFD,4 
1           INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64   05/11/69 2009.2 PAGE 17    
                  
      01116 -0500 00 0 03071         CAL     UFDNAM   
      01117  0602 00 0 62741         SLW     UFDENT   
      01120 -0500 00 0 03072         CAL     UFDNAM+1 
      01121  0602 00 0 62742         SLW     UFDENT+1 
      01122  0602 00 0 64511         SLW     MFDENT+1      MFD FILE'S 'USER NAME'   
      01123 -0500 00 0 03073         CAL     MFDNAM   
      01124  0602 00 0 64510         SLW     MFDENT   
      01125  0074 00 4 00046         TSX     $DMPFIL,4     DUMP MFD FILE
                              *     
                              *      TERMINATE 'MAP' FILE, DUMP IT, THEN COPY IT ON TO THE
                              *      PRINT OUTPUT TAPE, AND CLOSE THE DUMP TAPE FILES     
                              *     
      01126  0074 00 4 00051         TSX     $EMF,4        END MAP FILE 
 TD   01127  3 00000 0 03450         TXH     IMPINS   
      01130  0074 00 4 00052         TSX     $DMF,4        DUMP MAP,PUT IT ON PRINT TAPE  
      01131  0074 00 4 00004         TSX     ATTACH,4 
 TD   01132  3 00000 0 62727         TXH     DMPUSR   
 TD   01133  3 00000 0 62726         TXH     DMPRGR   
                              *     
      01134  0074 00 4 00010         TSX     CLOSE,4       CLOSE DUMP FILE COPY 1   
 TD   01135  3 00000 0 62723         TXH     NFN1     
 TD   01136  3 00000 0 62724         TXH     NFN1+1   
      01137  0074 00 4 00010         TSX     CLOSE,4       CLOSE DUMP FILE COPY 2   
 TD   01140  3 00000 0 62721         TXH     NFN2     
 TD   01141  3 00000 0 62722         TXH     NFN2+1   
      01142  0600 00 0 60262         STZ     TFOSW    
      01143  0074 00 4 00015         TSX     UMOUNT,4      HAVE OPERATOR DISMOUNT REEL    
 TD   01144  3 00000 0 03550         TXH     =11           FROM UNIT 11 (DUMP TAPE COPY 1)
      01145  2 03163 0 03140         TIX     EIDMES,,LEIDMS  AND GIVE END OF DUMP MESSAGE 
      01146  0074 00 4 00015         TSX     UMOUNT,4      REPEAT FOR UNIT 12 (DUMP TAPE COPY 2)
 TD   01147  3 00000 0 03551         TXH     =12
      01150  2 03163 0 03140         TIX     EIDMES,,LEIDMS 
                              *     
      01151  0074 00 4 00032         TSX     $DTSAVE,4
      01152  0761 00 0 00000         NOP  
      01153  0074 00 4 00032         TSX     $DTSAVE,4
      01154  0761 00 0 00000         NOP  
      01155 -0500 00 0 62730         CAL     DAWN     
      01156  0602 00 0 60255         SLW     ODAWN    
      01157  0074 00 4 00026         TSX     $GDSIG,4 
      01160  0600 00 0 77457         STZ     ENTPSW   
      01161  0074 00 4 00032         TSX     $DTSAVE,4
      01162  0761 00 0 00000         NOP  
                              *     
                              *      CHECK THAT THERE IS NOT 1 'DAY''S BACKLOG OF DUMPING,
                              *      AND RETURN FOR NEXT 'DAY''S DUMPING OF NEW FILES.    
                              *     
      01163 -0500 00 0 73353         CAL     TND           DUSK + (J-1)*DAY   
      01164  0074 00 4 00035         TSX     $ADDTIM,4     + DAY  
 TD   01165  3 00000 0 03063         TXH     DAY           DUSK + J*DAY IN AC 
      01166  0602 00 0 03067         SLW     NXDUSK        DUSK FOR NEXT DAY  
      01167  0500 00 0 61156         CLA     ENDSW    
      01170  0402 00 0 03542         SUB     =1 
      01171 -0100 00 0 01213         TNZ     TMCB          SKIP IF END-OF-DAY OPERATOR-INITIATED
                              *     
      01172  0074 00 4 00045         TSX     $GDT,4        GET CURRENT TIME IF NORMAL END-OF-DAY
1           INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64   05/11/69 2009.2 PAGE 18    
                  
      01173  0402 00 0 03067         SUB     NXDUSK        CHECK FOR A BACKLOG
      01174  0120 00 0 01203         TPL     TME           SKIP IF CURRENT TIME .GE. DUSK+J*DAY 
                              *     
      01175 -0500 00 0 73353   TMCA  CAL     TND           DUMP IS ON SCHEDULE, PREPARE FOR NEXT DAY  
      01176  0602 00 0 62730         SLW     DAWN          DAWN=DUSK+(J-1)*DAY
      01177 -0500 00 0 03067  TMCC   CAL     NXDUSK   
      01200  0602 00 0 61157         SLW     DUSK          DUSK=DUSK+J*DAY    
      01201  0774 00 2 00001         AXT     1,2           RE-SET J=1   
      01202  0020 00 0 01211         TRA     TMG           GO RETURN FOR NEXT 'DAY'.
                              *     
                              *      WHEN BACKLOG OF DUMPING EXISTS, SET
                              *      BIGGER PERCENTAGE RUNNING-TIME FOR DUMP PROGRAM
                              *     
      01203  0074 00 7 00027  TME    TSX     $NGETA,7 
      01204  0500 00 0 74674         CLA     PB+2          INCREASE OUR PERCENTAGE BY 5   
      01205  0400 00 0 03546         ADD     =5 
      01206  0074 00 7 00027         TSX     $NGETA,7 
      01207  0601 00 0 74674         STO     PB+2     
                              *     
      01210  1 00001 2 01211         TXI     *+1,2,1       SET J=J+1, PREPARE FOR ANOTHER FLUSH DUMP  
      01211  0634 00 2 03066   TMG   SXA     J,2           SAVE J 
      01212  0020 00 0 00375         TRA     IDD           RETURN FOR NEXT DAY'S DUMPING  
                              *     
                              *    WHEN OPERATOR-INITIATED END-OF-DAY TERMINATION IS COMPLETE, EITHER 
                              *    LOG OUT OR, AWAIT INSTRUCTIONS FOR, EITHER RESUMPTION OF NEW FILE  
                              *    DUMPING OR A COMPLETE DUMP, REMINDING HIM FROM   
                              *    TIME TO TIME THAT THE REQUESTED DUMP TERMINATION IS DONE.    
                              *     
      01213 -0520 00 0 03045  TMCB   NZT     ALOGSW   
      01214  0020 00 0 01310         TRA     TMH
                              *     
      01215 -0500 00 0 03566         CAL     =HDRSTOR 
      01216  0602 00 0 03044         SLW     NAME1    
      01217  0074 00 4 00335         TSX     DDR,4    
      01220 -0500 00 0 03577         CAL     =HLOGOUT 
      01221  0560 00 0 03614         LDQ     =O777777777777 
      01222  0074 00 4 00021         TSX     NEXCOM,4      LOG OURSELVES OUT  
                              *     
      01223  0500 00 0 01300  TMAC3  CLA     PASS2    
      01224  0400 00 0 03542         ADD     =1 
      01225  0601 00 0 01300         STO     PASS2    
      01226  0402 00 0 03542         SUB     =1 
      01227  0100 00 0 01031         TZE     TMAC     
      01230  0074 00 7 00027         TSX     $NGETA,7 
      01231  0600 00 0 74446         STZ     DEMKEY   
      01232                          PRLINE  ( NUSERS STILL GREATER THAN ONE),5,0   
      01232                          MOVE    5,..018,PBF                                                      .001
      01232  0774 00 1 00005         AXT     5,1                                                              .002
      01233 -0500 00 1 03513         CAL     ..018+5,1                                                        .002
      01234  0602 00 1 64533         SLW     PBF+5,1                                                          .002
      01235  2 00001 1 01233         TIX     *-2,1,1                                                          .002
      01236                          PRBUFF  PBF,5+0                                                          .001
      01236  0634 00 4 01241         SXA     *+3,4                                                            .002
      01237  0074 00 4 00012         TSX     WRFLX,4                                                          .002
      01240  0 00005 0 64526                 PBF,,5+0                                                         .002
      01241  0774 00 4 00000         AXT     **,4                                                             .002
1           INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64   05/11/69 2009.2 PAGE 19    
                  
      01242                          CLEAR   PBF,5+0                                                          .002
      01242  0774 00 1 00005         AXT     5+0,1                                                            .003
      01243  0600 00 1 64533         STZ     PBF+5+0,1                                                        .003
      01244  2 00001 1 01243         TIX     *-1,1,1                                                          .003
                                     RMT                                                                      .001
                              ..018  BCI     5, NUSERS STILL GREATER THAN ONE                                 .001
                                     RMT                                                                      .001
      01245                   RETURN PRCODE  CORREC,PNUSMS,4
      01245  0074 00 4 00050         TSX     $PRCODE,4                                                        .001
 TD   01246  3 00000 0 00006         TXH     CORREC                                                           .001
      01247  3 00004 0 01301         TXH     PNUSMS,,4                                                        .001
      01250                          PRCODE  PAUSE,DPNSMS,3 
      01250  0074 00 4 00050         TSX     $PRCODE,4                                                        .001
 TD   01251  3 00000 0 00002         TXH     PAUSE                                                            .001
      01252  3 00003 0 01305         TXH     DPNSMS,,3                                                        .001
      01253 -0500 00 0 03552         CAL     =15
      01254  0074 00 4 00011         TSX     SLEEP,4  
      01255                          TESTKY  CORREC,TMZ3    
      01255  0074 00 7 00027         TSX     $NGETA,7                                                         .001
      01256  0560 00 0 74446         LDQ     DEMKEY                                                           .001
      01257 -0600 00 0 77461         STQ     KEYVAL                                                           .001
      01260  0774 00 1 00006         AXT     CORREC,1                                                         .001
      01261  0754 00 1 00000         PXA     0,1                                                              .001
      01262  0402 00 0 77461         SUB     KEYVAL                                                           .001
      01263  0100 00 0 01274         TZE     TMZ3                                                             .001
      01264                          TESTKY  PAUSE,TMAC     
      01264  0074 00 7 00027         TSX     $NGETA,7                                                         .001
      01265  0560 00 0 74446         LDQ     DEMKEY                                                           .001
      01266 -0600 00 0 77461         STQ     KEYVAL                                                           .001
      01267  0774 00 1 00002         AXT     PAUSE,1                                                          .001
      01270  0754 00 1 00000         PXA     0,1                                                              .001
      01271  0402 00 0 77461         SUB     KEYVAL                                                           .001
      01272  0100 00 0 01031         TZE     TMAC                                                             .001
      01273  0020 00 0 01245         TRA     RETURN   
      01274 -0500 00 0 03542  TMZ3   CAL     =1 
      01275  0074 00 7 00027         TSX     $NGETA,7 
      01276  0602 00 0 74532         SLW     NUSERS   
      01277  0020 00 0 01060         TRA     TMAC4    
                              *     
                      000006  CORREC BOOL    6  
      01300  0 00000 0 00000  PASS2  PZE  
      01301  606346602346     PNUSMS BCI     4, TO CORRECT THIS, OR     
      01302  515125236360     
      01303  633031627360     
      01304  465160606060     
      01305  606346602346     DPNSMS BCI     3, TO CONTINUE AS IS 
      01306  456331456425     
      01307  602162603162     
      01310                   TMH    PRLINE  (  REQUESTED DUMP TAPE TERMINATION IS DONE.),7,0   
      01310                          MOVE    7,..021,PBF                                                      .001
      01310  0774 00 1 00007         AXT     7,1                                                              .002
      01311 -0500 00 1 03522         CAL     ..021+7,1                                                        .002
      01312  0602 00 1 64535         SLW     PBF+7,1                                                          .002
      01313  2 00001 1 01311         TIX     *-2,1,1                                                          .002
      01314                          PRBUFF  PBF,7+0                                                          .001
      01314  0634 00 4 01317         SXA     *+3,4                                                            .002
1           INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64   05/11/69 2009.2 PAGE 20    
                  
      01315  0074 00 4 00012         TSX     WRFLX,4                                                          .002
      01316  0 00007 0 64526                 PBF,,7+0                                                         .002
      01317  0774 00 4 00000         AXT     **,4                                                             .002
      01320                          CLEAR   PBF,7+0                                                          .002
      01320  0774 00 1 00007         AXT     7+0,1                                                            .003
      01321  0600 00 1 64535         STZ     PBF+7+0,1                                                        .003
      01322  2 00001 1 01321         TIX     *-1,1,1                                                          .003
                                     RMT                                                                      .001
                              ..021  BCI     7,  REQUESTED DUMP TAPE TERMINATION IS DONE.                     .001
                                     RMT                                                                      .001
      01323                   TMI    PRCODE  PAUSE,MESZ,7   
      01323  0074 00 4 00050         TSX     $PRCODE,4                                                        .001
 TD   01324  3 00000 0 00002         TXH     PAUSE                                                            .001
      01325  3 00007 0 03034         TXH     MESZ,,7                                                          .001
      01326 -0500 00 0 03547         CAL     =10
      01327  0074 00 4 00011         TSX     SLEEP,4  
      01330                          TESTKY  PAUSE,TMJ
      01330  0074 00 7 00027         TSX     $NGETA,7                                                         .001
      01331  0560 00 0 74446         LDQ     DEMKEY                                                           .001
      01332 -0600 00 0 77461         STQ     KEYVAL                                                           .001
      01333  0774 00 1 00002         AXT     PAUSE,1                                                          .001
      01334  0754 00 1 00000         PXA     0,1                                                              .001
      01335  0402 00 0 77461         SUB     KEYVAL                                                           .001
      01336  0100 00 0 01340         TZE     TMJ                                                              .001
      01337  0020 00 0 01323         TRA     TMI
      01340                   TMJ    PRCODE  C,MESA,6      ASK OPERATOR TO SET KEYS FOR COMPLETE
      01340  0074 00 4 00050         TSX     $PRCODE,4                                                        .001
 TD   01341  3 00000 0 00003         TXH     C                                                                .001
      01342  3 00006 0 02765         TXH     MESA,,6                                                          .001
      01343                          PRCODE  I,MESB,7      OR INCREMENTAL DUMP
      01343  0074 00 4 00050         TSX     $PRCODE,4                                                        .001
 TD   01344  3 00000 0 00001         TXH     I                                                                .001
      01345  3 00007 0 02773         TXH     MESB,,7                                                          .001
      01346 -0500 00 0 03552         CAL     =15
      01347  0074 00 4 00011         TSX     SLEEP,4  
      01350                          TESTKY  C,CDUMP1      SKIP IF COMPLETE DUMP    
      01350  0074 00 7 00027         TSX     $NGETA,7                                                         .001
      01351  0560 00 0 74446         LDQ     DEMKEY                                                           .001
      01352 -0600 00 0 77461         STQ     KEYVAL                                                           .001
      01353  0774 00 1 00003         AXT     C,1                                                              .001
      01354  0754 00 1 00000         PXA     0,1                                                              .001
      01355  0402 00 0 77461         SUB     KEYVAL                                                           .001
      01356  0100 00 0 01373         TZE     CDUMP1                                                           .001
      01357                          TESTKY  I,TMCA        SKIP IF INCREMENTAL
      01357  0074 00 7 00027         TSX     $NGETA,7                                                         .001
      01360  0560 00 0 74446         LDQ     DEMKEY                                                           .001
      01361 -0600 00 0 77461         STQ     KEYVAL                                                           .001
      01362  0774 00 1 00001         AXT     I,1                                                              .001
      01363  0754 00 1 00000         PXA     0,1                                                              .001
      01364  0402 00 0 77461         SUB     KEYVAL                                                           .001
      01365  0100 00 0 01175         TZE     TMCA                                                             .001
      01366 -0500 00 0 03554         CAL     =60
      01367  0074 00 4 00011         TSX     SLEEP,4       SLEEP FOR 1 MINUTE 
      01370  0020 00 0 01340         TRA     TMJ
                              *     
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
1           INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64   05/11/69 2009.2 PAGE 21    
                  
                              *      START COMPLETE DUMP OF SYSTEM AND CURRENT USER FILES 
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
                              *     
                              *      (ENTRY USED AT SYSTEM START UP TIME)     
                              *     
      01371  0600 00 0 60260  CDUMP  STZ     SW1           SET SW1 ZERO 
      01372  0020 00 0 01376         TRA     CDA
                              *     
                              *      (ENTRY USED AFTER AND BETWEEN NEW-FILE DUMPS)  
                              *     
      01373 -0500 00 0 73353  CDUMP1 CAL     TND           SET DAWN READY FOR NEXT DUMP 'DAY'   
      01374  0602 00 0 62730         SLW     DAWN          = TIME OF END OF PREVIOUS 'DAY'
      01375  0602 00 0 60260         SLW     SW1           SET SW1 NON-ZERO   
                              *     
                              *  MAKE NEW LIST OF SYSTEM FILE OWNER NAMES (EXEMPT FROM USER FILE DUMP)
                              *     
      01376  0600 00 0 62735  CDA    STZ     MFDEOF   
      01377  0600 00 0 60243         STZ     SKELSW   
      01400 -0625 00 0 60266         STL     CDSW          SET COMPLETE-DUMP SWITCH 
      01401  0074 00 4 00026         TSX     $GDSIG,4 
      01402  0534 00 1 03102         LXA     SYSFL,1       2*(NO. OF SYSTEM FILE USER NAMES)    
      01403  3 00014 1 02722         TXH     ERRCD1,1,2*NX ERROR IF IT IS .GR. SPACE ALLOCATED  
      01404  0634 00 1 77441         SXA     NXMPT,1       SAVE NO. USERS EXEMPT FROM USER FILE DUMP  
      01405 -0500 00 1 03102  CDB    CAL     SYSFL,1       PROBLEM NO. OF SYSTEM FILE USER NAME 
      01406  0602 00 1 77456         SLW     EXEMPT+1,1     
      01407 -0500 00 1 03103         CAL     SYSFL+1,1     PROG. NO. OF SYSTEM FILE USER NAME   
      01410  0602 00 1 77457         SLW     EXEMPT+2,1     
      01411  2 00002 1 01405         TIX     CDB,1,2  
                              *     
                              *      OPEN SYSTEM-FILES-'COMPLETE'-DUMP TAPE FILES, WRITE I.D. RECORDS 
                              *     
      01412  0600 00 0 70062         STZ     TPBUF+7       NO END OF 'DAY' IN I.D. RECORD 
      01413                          MOVE    4,SDTID,TAPEID 
      01413  0774 00 1 00004         AXT     4,1                                                              .001
      01414 -0500 00 1 03170         CAL     SDTID+4,1                                                        .001
      01415  0602 00 1 60250         SLW     TAPEID+4,1                                                       .001
      01416  2 00001 1 01414         TIX     *-2,1,1                                                          .001
      01417  0074 00 4 00042         TSX     $SDF,4   
      01420  2 03205 0 03170         TIX     SSDMES,,LSSDMS  (MESSAGE FOR START OF SYSTEM-FILE DUMP)  
                              *     
                              *      INITIATE, THEN WRITE HEADING FOR, SYSTEM FILE DUMP TAPE MAP FILE 
                              *     
      01421  0074 00 4 00043         TSX     $SMF,4        INITIATE MAP FILE FOR SYSTEM-FILE DUMP TAPE
      01422  0074 00 4 00053         TSX     $WMH,4        WRITE MAP FILE HEADING   
 TD   01423  3 00000 0 03606         TXH     =HSYSTEM      (FOR SYSTEM FILE DUMP)   
      01424  0074 00 4 00032         TSX     $DTSAVE,4     SAVE DUMPER TABLES ETC.  
      01425  0761 00 0 00000         NOP  
                              *     
                              *      DUMP M.F.D. FILE 
                              *     
      01426  0074 00 4 00045         TSX     $GDT,4   
      01427  0602 00 0 60263         SLW     TCYCLE   
      01430 -0500 00 0 03071         CAL     UFDNAM   
      01431  0602 00 0 62741         SLW     UFDENT   
      01432 -0500 00 0 03072         CAL     UFDNAM+1 
      01433  0602 00 0 62742         SLW     UFDENT+1 
1           INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64   05/11/69 2009.2 PAGE 22    
                  
      01434  0602 00 0 64511         SLW     MFDENT+1 
      01435 -0500 00 0 03073         CAL     MFDNAM   
      01436  0602 00 0 64510         SLW     MFDENT   
      01437  0074 00 4 00046         TSX     $DMPFIL,4
                              *     
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  
                              * START COMPLETE-SYSTEM-FILE DUMPING, FILE USER NAME BY FILE USER NAME  
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  
                              *     
      01440  0074 00 4 00045         TSX     $GDT,4        CURRENT DATE/TIME TEMP LABLE   
      01441 -0320 00 0 03612         ANA     =O777777000000  DATE TO-DAY
      01442  0602 00 0 73353         SLW     TND           SET TND
      01443  0602 00 0 60256         SLW     TNDSAV        SAVE TND (= TIME OF START OF TO-DAY) 
      01444  0074 00 4 00032         TSX     $DTSAVE,4     SAVE DUMPER TABLES ETC.  
      01445  0761 00 0 00000         NOP  
      01446 -0500 00 0 60256  CDBA   CAL     TNDSAV   
      01447  0074 00 4 00054         TSX     $SUBDAY,4
 TD   01450  3 00000 0 03064         TXH     LNCD     
      01451  0602 00 0 62737         SLW     TLD           TLD=START OF 'CURRENT' FILE PERIOD   
      01452  0602 00 0 60257         SLW     TCP           SAVE IT (= TO-DAY - NCD DAYS)  
      01453  0074 00 4 00045         TSX     $GDT,4   
      01454  0602 00 0 60263         SLW     TCYCLE        SET TIME OF THIS LAST CYCLE ON TAPE  
      01455  0602 00 0 73354         SLW     FLUSH         FORCE FLUSH DUMP   
      01456  0534 00 1 03102         LXA     SYSFL,1       NO. SYSTEM FILE USER/OWNERS    
                              *     
      01457  0074 00 4 00032  CDC    TSX     $DTSAVE,4     SAVE DUMPER TABLES ETC.  
      01460  0761 00 0 00000         NOP  
      01461 -0500 00 1 03102         CAL     SYSFL,1  
      01462  0602 00 0 64510         SLW     MFDENT        PROB. NO. OF NEXT SYSTEM FILE USER NAME    
      01463 -0500 00 1 03103         CAL     SYSFL+1,1
      01464  0602 00 0 64511         SLW     MFDENT+1      PROG. NO. OF NEXT SYSTEM FILE USER NAME    
                              *     
      01465  0074 00 4 00055         TSX     $DUSR1,4      DUMP THIS USER     
                              *     
      01466  0020 00 0 02745         TRA     ERRCD2        (END OF DAY RETURN - IMPOSSIBLE)     
      01467  0020 00 0 02755         TRA     ERRCD3        ERROR RETURN - UFD FILE UNREADABLE   
      01470  0074 00 4 00026         TSX     $GDSIG,4 
      01471  1 77776 1 01472         TXI     *+1,1,-2 
      01472  3 00000 1 01457  CDD    TXH     CDC,1,**      RETURN FOR NEXT SYSTEM FILE USER     
                              *     
                              *      DUMP M.F.D. FILE 
                              *     
      01473 -0500 00 0 03071         CAL     UFDNAM   
      01474  0602 00 0 62741         SLW     UFDENT   
      01475 -0500 00 0 03072         CAL     UFDNAM+1 
      01476  0602 00 0 62742         SLW     UFDENT+1 
      01477  0602 00 0 64511         SLW     MFDENT+1 
      01500 -0500 00 0 03073         CAL     MFDNAM   
      01501  0602 00 0 64510         SLW     MFDENT   
      01502  0074 00 4 00046         TSX     $DMPFIL,4
                              *     
                              *      TERMINATE MAP FILE, DUMP IT, COPY IT ON TO THE 
                              *      PRINT OUTPUT TAPE TAPE, AND CLOSE DUMP TAPE FILES    
                              *     
      01503  0074 00 4 00051         TSX     $EMF,4        END MAP FILE 
 TD   01504  3 00000 0 03541         TXH     =0 
1           INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64   05/11/69 2009.2 PAGE 23    
                  
      01505  0074 00 4 00052         TSX     $DMF,4        DUMP MAP FILE, COPY ONTO PRINT TAPE  
      01506  0074 00 4 00004         TSX     ATTACH,4 
 TD   01507  3 00000 0 62727         TXH     DMPUSR   
 TD   01510  3 00000 0 62726         TXH     DMPRGR   
                              *     
      01511  0074 00 4 00032         TSX     $DTSAVE,4     SAVE DUMPER TABLES ETC.  
      01512  0761 00 0 00000         NOP  
      01513  0074 00 4 00010         TSX     CLOSE,4       CLOSE COMPLETE SYSTEM DUMP TAPE FILES
 TD   01514  3 00000 0 62723         TXH     NFN1     
 TD   01515  3 00000 0 62724         TXH     NFN1+1   
      01516  0074 00 4 00010         TSX     CLOSE,4  
 TD   01517  3 00000 0 62721         TXH     NFN2     
 TD   01520  3 00000 0 62722         TXH     NFN2+1   
      01521  0074 00 4 00015         TSX     UMOUNT,4      HAVE OPERATOR DISMOUNT REEL    
 TD   01522  3 00000 0 03550         TXH     =11           FROM UNIT 11 (DUMP TAPE COPY 1)
      01523  2 03230 0 03206         TIX     ESDMES,,LESDMS  AND GIVE END OF DUMP MESSAGE 
      01524  0074 00 4 00015         TSX     UMOUNT,4      REPEAT FOR UNIT 12 (DUMP TAPE COPY 2)
 TD   01525  3 00000 0 03551         TXH     =12
      01526  2 03230 0 03206         TIX     ESDMES,,LESDMS 
      01527  0074 00 4 00026         TSX     $GDSIG,4 
      01530  0074 00 4 00032         TSX     $DTSAVE,4
      01531  0761 00 0 00000         NOP  
      01532  0074 00 4 00032         TSX     $DTSAVE,4
      01533  0761 00 0 00000         NOP  
                              *     
                              *  OPEN USER-FILES-'COMPLETE'-DUMP TAPE FILES, WRITE I.D. RECORD ON EACH
                              *     
      01534  0600 00 0 70062  UDTPAT STZ     TPBUF+7       (NO END OF DAY IN THIS I.D. RECORD)  
      01535                          MOVE    4,UFDTID,TAPEID
      01535  0774 00 1 00004         AXT     4,1                                                              .001
      01536 -0500 00 1 03235         CAL     UFDTID+4,1                                                       .001
      01537  0602 00 1 60250         SLW     TAPEID+4,1                                                       .001
      01540  2 00001 1 01536         TIX     *-2,1,1                                                          .001
      01541  0074 00 4 00042         TSX     $SDF,4   
      01542  2 03252 0 03235         TIX     SUDMES,,LSUDMS  (MESSAGE FOR START OF USERS' FILES DUMP) 
                              *     
                              *      INITIATE, AND WRITE HEADING FOR, USERS'-FILES DUMP TAPE MAP FILE 
                              *     
      01543  0074 00 4 00043         TSX     $SMF,4        INITIATE MAP FILE  
      01544  0074 00 4 00053         TSX     $WMH,4        WRITE MAP HEADING  
 TD   01545  3 00000 0 03607         TXH     =HUSERS'      (FOR USERS'-FILES-DUMP TAPE FILE)    
      01546  0074 00 4 00026         TSX     $GDSIG,4 
                              *     
                              *      DUMP M.F.D. FILE 
                              *     
      01547 -0500 00 0 62737         CAL     TLD
      01550  0602 00 0 03070         SLW     TTLD     
      01551  0074 00 4 00045         TSX     $GDT,4   
      01552  0602 00 0 60263         SLW     TCYCLE   
      01553 -0500 00 0 03071         CAL     UFDNAM   
      01554  0602 00 0 62741         SLW     UFDENT   
      01555 -0500 00 0 03072         CAL     UFDNAM+1 
      01556  0602 00 0 62742         SLW     UFDENT+1 
      01557  0602 00 0 64511         SLW     MFDENT+1 
      01560 -0500 00 0 03073         CAL     MFDNAM   
      01561  0602 00 0 64510         SLW     MFDENT   
1           INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64   05/11/69 2009.2 PAGE 24    
                  
      01562  0074 00 4 00046         TSX     $DMPFIL,4
      01563  0074 00 4 01720         TSX     OPNMFD,4 
      01564  0500 00 0 00326         CLA     UDTSW    
      01565  0100 00 0 01572         TZE     AUTOM    
      01566  0600 00 0 00326         STZ     UDTSW    
      01567 -0500 00 0 03070         CAL     TTLD     
      01570  0602 00 0 62737         SLW     TLD
                              *      TZE     CDF2     
                              *      SUB     TNDSAV   
                              *      TZE     CDF3     
      01571  0020 00 0 01601         TRA     CDF
                              *     
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  
                              *      START COMPLETE CURRENT USER FILE DUMPING, IN   
                              *      GROUPS ACCORDING TO MOST RECENT USE.     
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  
                              *     
      01572  0074 00 4 00026  AUTOM  TSX     $GDSIG,4 
      01573  0074 00 4 00045         TSX     $GDT,4   
      01574  0602 00 0 60263         SLW     TCYCLE        SET TIME OF THIS LAST CYCLE ON DUMP TAPE FI
      01575  0602 00 0 62720         SLW     TNDSW         ENSURE TND WILL BE TAKEN AS A CONSTANT     
      01576 -0500 00 0 60256         CAL     TNDSAV        RESTORE TND = START OF TOMORROW
                              *     
                              *CDE   SLW     TND           SET TND
                              *      TSX     $SUBDAY,4
                              *      TXH     LDINC    
                              *      SLW     TLD           TLD=TND-DINC 
                              *      SUB     TCP
                              *      TPL     *+3           SKIP IF TLD .GE. TCP     
                              *      CAL     TCP           TLD LESS THAN TCP, 
                              *      SLW     TLD           SET TLD=TCP  
      01577  0074 00 4 00032         TSX     $DTSAVE,4     SAVE DUMPER TABLES ETC.  
      01600  0761 00 0 00000         NOP  
                              *     
      01601  0074 00 4 00047  CDF    TSX     $DCYCLE,4     PERFORM DUMP CYCLE, DUMPING ALL FILES WHOSE
      01602  0761 00 0 00000         NOP                   DATE LAST USED IS BETWEEN TLD AND TND, WITH
                                                           SOME EXEMPT USERS. 
      01603  0761 00 0 00000         NOP                   (END OF DAY RETURN - IMPOSSIBLE)     
                              *     
                              *      CLA     TLD
                              *      SUB     TCP
                              *      TZE     *+3           ALMOST FINISHED IF TLD=TCP     
                              *      CAL     TLD           SETTING TND = TLD, 
                              *      TRA     CDE           RETURN FOR NEXT MOST RECENTLY USED FILES   
                              *      CAL     TLD
                              *      SLW     TND
                              *      STZ     TLD
                              **    
                              *      TSX     $DTSAVE,4
                              *      NOP  
                              *CDF2  TSX     $DCYCLE,4     TO DUMP ALL TIME   
                              *      NOP  
                              *      NOP  
                              *      CAL     TNDSAV        DATE COMPLETE DUMP BEGAN (= TO-DAY   
                              *      SLW     TLD           OR POSSIBLY IT IS YESTERDAY BY NOW)  
                              *      TSX     $ADDDAY,4     ADD 2 DAYS TO
1           INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64   05/11/69 2009.2 PAGE 25    
                  
                              *      TSX     $ADDDAY,4     ENSURE WE CATCH EVERYTHING     
                              *      SLW     TND           USED SINCE COMPLETE DUMP BEGAN 
                              *CDF3  TSX     $DCYCLE,4     MAKE FINAL CYCLE TO GET RECENTLY USED FILES
                              *      NOP  
                              *      NOP  
                              *     
                              *      DUMP M.F.D. FILE 
                              *     
      01604  0074 00 4 01736         TSX     CLSMFD,4 
      01605 -0500 00 0 03071         CAL     UFDNAM   
      01606  0602 00 0 62741         SLW     UFDENT   
      01607 -0500 00 0 03072         CAL     UFDNAM+1 
      01610  0602 00 0 62742         SLW     UFDENT+1 
      01611  0602 00 0 64511         SLW     MFDENT+1 
      01612 -0500 00 0 03073         CAL     MFDNAM   
      01613  0602 00 0 64510         SLW     MFDENT   
      01614  0074 00 4 00046         TSX     $DMPFIL,4
                              *     
                              *  TERMINATE MAP FILE,DUMP IT, COPY IT ON TO THE PRINT
                              *   OUTPUT TAPE, CLOSE THE USER-DUMP FILES.     
                              *     
      01615  0074 00 4 00051         TSX     $EMF,4        END MAP FILE 
 TD   01616  3 00000 0 03541         TXH     =0 
      01617  0074 00 4 00052         TSX     $DMF,4        DUMP MAP FILE, COPY TO PRINT TAPE    
      01620  0074 00 4 00004         TSX     ATTACH,4 
 TD   01621  3 00000 0 62727         TXH     DMPUSR   
 TD   01622  3 00000 0 62726         TXH     DMPRGR   
                              *     
      01623  0074 00 4 00032         TSX     $DTSAVE,4
      01624  0761 00 0 00000         NOP  
      01625  0074 00 4 00010         TSX     CLOSE,4       CLOSE USERS'-FILES DUMP TAPE FILES   
 TD   01626  3 00000 0 62723         TXH     NFN1     
 TD   01627  3 00000 0 62724         TXH     NFN1+1   
      01630  0074 00 4 00010         TSX     CLOSE,4  
 TD   01631  3 00000 0 62721         TXH     NFN2     
 TD   01632  3 00000 0 62722         TXH     NFN2+1   
      01633  0074 00 4 00026         TSX     $GDSIG,4 
      01634  0074 00 4 00015         TSX     UMOUNT,4      HAVE OPERATOR DISMOUNT REEL    
 TD   01635  3 00000 0 03550         TXH     =11           FROM UNIT 11 (DUMP TAPE COPY 1)
      01636  2 03310 0 03266         TIX     EUDMES,,LEUDMS  AND GIVE END OF DUMP MESSAGE 
      01637  0074 00 4 00015         TSX     UMOUNT,4      REPEAT FOR UNIT 12 (DUMP TAPE COPY 2)
 TD   01640  3 00000 0 03551         TXH     =12
      01641  2 03310 0 03266         TIX     EUDMES,,LEUDMS 
      01642  0600 00 0 60262         STZ     TFOSW    
      01643  0074 00 4 00032         TSX     $DTSAVE,4
      01644  0761 00 0 00000         NOP  
      01645  0074 00 4 00032         TSX     $DTSAVE,4
      01646  0761 00 0 00000         NOP  
                              *     
                              *      WHEN COMPLETE DUMP IS FINISHED, PRINT MESSAGE TO INFORM OPERATOR,
                              *      AND THEN, EITHER MOVE ON TO INCREMENTAL DUMP IF SYSTEM JUST
                              *      LOADED, OR, IF THE COMPLETE DUMP FOLLOWED AN OPERATOR-INITIATED  
                              *      TERMINATION OF AN INCREMENTAL DUMP 'DAY', WAIT FOR A SIGNAL TO   
                              *      RESUME INCREMENTAL DUMPING.  
                              *     
      01647  0600 00 0 60266         STZ     CDSW          INDICATE COMPLETE DUMP FINISHED
1           INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64   05/11/69 2009.2 PAGE 26    
                  
      01650 -0520 00 0 60260         NZT     SW1           DID WE JUST LOAD THE SYSTEM    
      01651  0020 00 0 00366         TRA     IDUMP         YES, RETURN TO INCREMENTAL DUMP
                              *     
      01652                   CDG    PRLINE  (  REQUESTED COMPLETE DUMP IS ALL DONE.),7,0 
      01652                          MOVE    7,..024,PBF                                                      .001
      01652  0774 00 1 00007         AXT     7,1                                                              .002
      01653 -0500 00 1 03531         CAL     ..024+7,1                                                        .002
      01654  0602 00 1 64535         SLW     PBF+7,1                                                          .002
      01655  2 00001 1 01653         TIX     *-2,1,1                                                          .002
      01656                          PRBUFF  PBF,7+0                                                          .001
      01656  0634 00 4 01661         SXA     *+3,4                                                            .002
      01657  0074 00 4 00012         TSX     WRFLX,4                                                          .002
      01660  0 00007 0 64526                 PBF,,7+0                                                         .002
      01661  0774 00 4 00000         AXT     **,4                                                             .002
      01662                          CLEAR   PBF,7+0                                                          .002
      01662  0774 00 1 00007         AXT     7+0,1                                                            .003
      01663  0600 00 1 64535         STZ     PBF+7+0,1                                                        .003
      01664  2 00001 1 01663         TIX     *-1,1,1                                                          .003
                                     RMT                                                                      .001
                              ..024  BCI     7,  REQUESTED COMPLETE DUMP IS ALL DONE.                         .001
                                     RMT                                                                      .001
      01665  0074 00 4 00026  CDH    TSX     $GDSIG,4 
      01666                          PRCODE  I,MESB,7      ASK OPERATOR TO SET EITHER INCREMENTAL     
      01666  0074 00 4 00050         TSX     $PRCODE,4                                                        .001
 TD   01667  3 00000 0 00001         TXH     I                                                                .001
      01670  3 00007 0 02773         TXH     MESB,,7                                                          .001
      01671                          PRCODE  PAUSE,MESC,6  DUMP KEY CODE, OR PAUSE KEY CODE     
      01671  0074 00 4 00050         TSX     $PRCODE,4                                                        .001
 TD   01672  3 00000 0 00002         TXH     PAUSE                                                            .001
      01673  3 00006 0 03002         TXH     MESC,,6                                                          .001
      01674 -0500 00 0 03552         CAL     =15
      01675  0074 00 4 00011         TSX     SLEEP,4  
      01676                          TESTKY  I,TMCC        SKIP TO RESUME INCREMENTAL DUMP
      01676  0074 00 7 00027         TSX     $NGETA,7                                                         .001
      01677  0560 00 0 74446         LDQ     DEMKEY                                                           .001
      01700 -0600 00 0 77461         STQ     KEYVAL                                                           .001
      01701  0774 00 1 00001         AXT     I,1                                                              .001
      01702  0754 00 1 00000         PXA     0,1                                                              .001
      01703  0402 00 0 77461         SUB     KEYVAL                                                           .001
      01704  0100 00 0 01177         TZE     TMCC                                                             .001
      01705                          TESTKY  PAUSE,CDI     OR SKIP TO PAUSE FOR 1 MIN.    
      01705  0074 00 7 00027         TSX     $NGETA,7                                                         .001
      01706  0560 00 0 74446         LDQ     DEMKEY                                                           .001
      01707 -0600 00 0 77461         STQ     KEYVAL                                                           .001
      01710  0774 00 1 00002         AXT     PAUSE,1                                                          .001
      01711  0754 00 1 00000         PXA     0,1                                                              .001
      01712  0402 00 0 77461         SUB     KEYVAL                                                           .001
      01713  0100 00 0 01715         TZE     CDI                                                              .001
      01714  0020 00 0 01665         TRA     CDH           OR ASK AGAIN IF NO RESPONSE    
      01715 -0500 00 0 03554  CDI    CAL     =60
      01716  0074 00 4 00011         TSX     SLEEP,4       SLEEP FOR 1 MIN.   
      01717  0020 00 0 01652         TRA     CDG           LOOP BACK    
                              *     
                              *     
                              *     
      01720  0634 00 4 01734  OPNMFD SXA     O4,4     
1           INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64   05/11/69 2009.2 PAGE 27    
                  
      01721  0074 00 4 00004         TSX     ATTACH,4 
 TD   01722  3 00000 0 03073         TXH     MFDNAM   
 TD   01723  3 00000 0 03072         TXH     UFDNAM+1 
      01724  0074 00 4 00007         TSX     OPEN,4   
 TD   01725  3 00000 0 03601         TXH     =HR
 TD   01726  3 00000 0 03073         TXH     MFDNAM   
 TD   01727  3 00000 0 03072         TXH     UFDNAM+1 
      01730  0074 00 4 00000         TSX     BUFFER,4 
 TD   01731  3 00000 0 03073         TXH     MFDNAM   
 TD   01732  3 00000 0 03072         TXH     UFDNAM+1 
      01733  3 00660 0 01746         TXH     IOBUF3,,432    
      01734  0774 00 4 00000  O4     AXT     **,4     
      01735  0020 00 4 00001         TRA     1,4
                              *     
      01736  0634 00 4 01734  CLSMFD SXA     O4,4     
      01737  0074 00 4 00004         TSX     ATTACH,4 
 TD   01740  3 00000 0 03073         TXH     MFDNAM   
 TD   01741  3 00000 0 03072         TXH     UFDNAM+1 
      01742  0074 00 4 00010         TSX     CLOSE,4  
 TD   01743  3 00000 0 03073         TXH     MFDNAM   
 TD   01744  3 00000 0 03072         TXH     UFDNAM+1 
      01745  0020 00 0 01734         TRA     O4 
                              *     
      01746                   IOBUF3 BSS     432
                              *     
      02626  0634 00 4 02653  WREND  SXA     WEND,4   
      02627  0074 00 4 00004         TSX     ATTACH,4 
 TD   02630  3 00000 0 62727         TXH     DMPUSR   
 TD   02631  3 00000 0 62726         TXH     DMPRGR   
      02632  0074 00 4 00001         TSX     $SETFIL,4
 TD   02633  3 00000 0 03605         TXH     =H   THE 
 TD   02634  3 00000 0 03604         TXH     =H   END 
 TD   02635  3 00000 0 03541         TXH     =0 
 TD   02636  3 00000 0 03541         TXH     =0 
      02637 -0500 00 0 03605         CAL     =H   THE 
      02640  0602 00 0 62741         SLW     UFDENT   
      02641 -0500 00 0 03604         CAL     =H   END 
      02642  0602 00 0 62742         SLW     UFDENT+1 
      02643 -0500 00 0 62727         CAL     DMPUSR   
      02644  0602 00 0 64510         SLW     MFDENT   
      02645 -0500 00 0 62726         CAL     DMPRGR   
      02646  0602 00 0 64511         SLW     MFDENT+1 
      02647  0074 00 4 00046         TSX     $DMPFIL,4
      02650  0074 00 4 00003         TSX     $DELFIL,4
 TD   02651  3 00000 0 03605         TXH     =H   THE 
 TD   02652  3 00000 0 03604         TXH     =H   END 
      02653  0774 00 4 00000  WEND   AXT     **,4     
      02654  0020 00 4 00001         TRA     1,4
                              *     
                              *     
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
                              *      ERROR FIX-UP SECTION   
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
                              *     
      02655  0074 00 4 00056  ERRID2 TSX     $CKCODE,4     ERROR  WRITING     
      02656  464725456060            BCI     1,OPEN        CHECK IF IT WAS 'NO DRUM AVAILABLE'  
1           INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64   05/11/69 2009.2 PAGE 28    
                  
      02657  0 00000 0 00016         PZE     ERCODB   
      02660  0 00000 0 02671         PZE     ED2A          TRANSFER ADDRESS FOR SOME OTHER ERROR
      02661  0074 00 4 00007         TSX     OPEN,4        NO DRUM AVAILABLE, MAKE IT DISK
 TD   02662  3 00000 0 03046         TXH     W  
 TD   02663  3 00000 0 03047         TXH     BA 
 TD   02664  3 00000 0 03050         TXH     BB 
 TD   02665  3 00000 0 03541         TXH     =0 
 TD   02666  3 00000 0 03052         TXH     LDSK     
 TD   02667  3 00000 0 02671         TXH     ED2A          (ERROR ADDRESS)    
      02670  0020 00 0 00413         TRA     IDE           NOW CARRY ON 
      02671                   ED2A   BGNERM  =HID02        SOME OTHER ERROR, PRINT STANDARD MESSAGE   
      02671  0634 00 4 02674         SXA     *+3,4                                                            .001
      02672  0074 00 4 00040         TSX     $BERM,4                                                          .001
      02673  0 00000 0 03572         PZE     =HID02                                                           .001
      02674  0774 00 4 00000         AXT     **,4                                                             .001
      02675                          ERTN    IDDA          TRY AGAIN    
      02675  0634 00 4 02677         SXA     *+2,4                                                            .001
      02676  0074 00 4 00041         TSX     $ERREND,4                                                        .001
      02677  0774 00 4 00000         AXT     **,4                                                             .001
      02700  0020 00 0 00404         TRA     IDDA                                                             .001
                              *     
      02701                   ERRID3 BGNERM  =HID03        ERROR OPENING TEMP. USER LIST FILE   
      02701  0634 00 4 02704         SXA     *+3,4                                                            .001
      02702  0074 00 4 00040         TSX     $BERM,4                                                          .001
      02703  0 00000 0 03573         PZE     =HID03                                                           .001
      02704  0774 00 4 00000         AXT     **,4                                                             .001
      02705                          ERTN    IDKA-4        PRINT STANDARD MESSAGE,CONTINUE
      02705  0634 00 4 02707         SXA     *+2,4                                                            .001
      02706  0074 00 4 00041         TSX     $ERREND,4                                                        .001
      02707  0774 00 4 00000         AXT     **,4                                                             .001
      02710  0020 00 0 00514         TRA     IDKA-4                                                           .001
                              *     
      02711                   ERRID6 BGNERM  =HID06        TOO MANY USERS EXEMPT FROM ALL DUMPS 
      02711  0634 00 4 02714         SXA     *+3,4                                                            .001
      02712  0074 00 4 00040         TSX     $BERM,4                                                          .001
      02713  0 00000 0 03574         PZE     =HID06                                                           .001
      02714  0774 00 4 00000         AXT     **,4                                                             .001
      02715  0774 00 4 00014         AXT     2*NX,4        LIMIT THE NUMBER ALLOWED (REAL CURE IS     
      02716                          ERTN    IDNZ          TO GIVE NX BIGGER VALUE AND RE-ASSEMBLE)   
      02716  0634 00 4 02720         SXA     *+2,4                                                            .001
      02717  0074 00 4 00041         TSX     $ERREND,4                                                        .001
      02720  0774 00 4 00000         AXT     **,4                                                             .001
      02721  0020 00 0 00741         TRA     IDNZ                                                             .001
                              *     
      02722                   ERRCD1 BGNERM  =HCD01        EXEMPT USER ARRAY TOO SMALL    
      02722  0634 00 4 02725         SXA     *+3,4                                                            .001
      02723  0074 00 4 00040         TSX     $BERM,4                                                          .001
      02724  0 00000 0 03563         PZE     =HCD01                                                           .001
      02725  0774 00 4 00000         AXT     **,4                                                             .001
      02726                          PRLINE  ( COMPLETE DUMP HAS TO BE ABANDONED. RE-ASSEMBLE.),8,0   
      02726                          MOVE    8,..027,PBF                                                      .001
      02726  0774 00 1 00010         AXT     8,1                                                              .002
      02727 -0500 00 1 03541         CAL     ..027+8,1                                                        .002
      02730  0602 00 1 64536         SLW     PBF+8,1                                                          .002
      02731  2 00001 1 02727         TIX     *-2,1,1                                                          .002
      02732                          PRBUFF  PBF,8+0                                                          .001
1           INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64   05/11/69 2009.2 PAGE 29    
                  
      02732  0634 00 4 02735         SXA     *+3,4                                                            .002
      02733  0074 00 4 00012         TSX     WRFLX,4                                                          .002
      02734  0 00010 0 64526                 PBF,,8+0                                                         .002
      02735  0774 00 4 00000         AXT     **,4                                                             .002
      02736                          CLEAR   PBF,8+0                                                          .002
      02736  0774 00 1 00010         AXT     8+0,1                                                            .003
      02737  0600 00 1 64536         STZ     PBF+8+0,1                                                        .003
      02740  2 00001 1 02737         TIX     *-1,1,1                                                          .003
                                     RMT                                                                      .001
                              ..027  BCI     8, COMPLETE DUMP HAS TO BE ABANDONED. RE-ASSEMBLE.               .001
                                     RMT                                                                      .001
      02741                          ERTN    TMI           ABANDON COMPLETE DUMP    
      02741  0634 00 4 02743         SXA     *+2,4                                                            .001
      02742  0074 00 4 00041         TSX     $ERREND,4                                                        .001
      02743  0774 00 4 00000         AXT     **,4                                                             .001
      02744  0020 00 0 01323         TRA     TMI                                                              .001
                              *     
      02745                   ERRCD2 BGNERM  =HCD02        'IMPOSSIBLE' END OF DAY RETURN FROM DUSR   
      02745  0634 00 4 02750         SXA     *+3,4                                                            .001
      02746  0074 00 4 00040         TSX     $BERM,4                                                          .001
      02747  0 00000 0 03564         PZE     =HCD02                                                           .001
      02750  0774 00 4 00000         AXT     **,4                                                             .001
      02751                          ERTN    CDD-1         MOVE TO NEXT SYSTEM FILE OWNER/USER  
      02751  0634 00 4 02753         SXA     *+2,4                                                            .001
      02752  0074 00 4 00041         TSX     $ERREND,4                                                        .001
      02753  0774 00 4 00000         AXT     **,4                                                             .001
      02754  0020 00 0 01471         TRA     CDD-1                                                            .001
                              *     
      02755                   ERRCD3 BGNERM  =HCD03        UFD FILE READING ERROR   
      02755  0634 00 4 02760         SXA     *+3,4                                                            .001
      02756  0074 00 4 00040         TSX     $BERM,4                                                          .001
      02757  0 00000 0 03565         PZE     =HCD03                                                           .001
      02760  0774 00 4 00000         AXT     **,4                                                             .001
      02761                          ERTN    CDD-1         MOVE TO NEXT SYSTEM FILE OWNER/USER  
      02761  0634 00 4 02763         SXA     *+2,4                                                            .001
      02762  0074 00 4 00041         TSX     $ERREND,4                                                        .001
      02763  0774 00 4 00000         AXT     **,4                                                             .001
      02764  0020 00 0 01471         TRA     CDD-1                                                            .001
                              *     
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
                              *      CONSTANTS, VARIABLES, ETC.   
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
                              *     
      02765  606346602725     MESA   BCI     6, TO GET COMPLETE DUMP OF DISK NEXT.  
      02766  636023464447     
      02767  432563256024     
      02770  644447604626     
      02771  602431624260     
      02772  452567633360     
      02773  606346605125     MESB   BCI     7, TO RESUME INCREMENTAL NEW FILE DUMPING.   
      02774  626444256031     
      02775  452351254425     
      02776  456321436045     
      02777  256660263143     
      03000  256024644447     
      03001  314527336060     
1           INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64   05/11/69 2009.2 PAGE 30    
                  
      03002  606346606264     MESC   BCI     6, TO SUSPEND DUMPER FOR 1 MINUTE
      03003  624725452460     
      03004  246444472551     
      03005  602646516001     
      03006  604431456463     
      03007  256060606060     
      03010  603126607046     MESD   BCI     7, IF YOU PLAN TO DO AUTOMATIC LOGOUT SOON.  
      03011  646047432145     
      03012  606346602446     
      03013  602164634644     
      03014  216331236043     
      03015  462746646360     
      03016  624646453360     
      03017  603126604546     MESE   BCI     2, IF NOT.     
      03020  633360606060     
      03021  622563604225     MESEX  BCI     2,SET KEY CODE 
      03022  706023462425     
      03023  606445256747     MESX   BCI     9, UNEXPECTED AND/OR NON-CRUCIAL I/O SYSTEM ERROR RETURN 
      03024  252363252460     
      03025  214524614651     
      03026  604546454023     
      03027  516423312143     
      03030  603161466062     
      03031  706263254460     
      03032  255151465160     
      03033  512563645145     
      03034  606346605125     MESZ   BCI     7, TO RE-ACTIVATE DUMPER, WHICH YOU MUST.    
      03035  402123633165     
      03036  216325602464     
      03037  444725517360     
      03040  663031233060     
      03041  704664604464     
      03042  626333606060     
      03043  0 00000 0 01274  MXIOU  PZE     U  
      03044  0 00000 0 00000  NAME1  PZE  
      03045  0 00000 0 00000  ALOGSW PZE  
      03046  666060606060      W     BCI     1,W
      03047  226431432433     BA     BCI     1,BUILD. 
      03050  606060634324     BB     BCI     1,   TLD 
      03051  0 00000 0 00001   LLSD  PZE     LSDRUM   
      03052  0 00000 0 00002   LDSK  PZE     DISK     
      03053  0 00000 0 00660   LBUF2 PZE     NW 
      03054  0 00000 0 00003  L3     PZE     3  
      03055  0 00000 0 00000  PASS   PZE     ** 
      03056  0 00000 0 00375  LIDD   PZE     IDD
      03057  0 00000 0 00000  DAUTH  PZE  
      03060 +000000000000     PBBASE DEC     0  
      03061 +000000200660     MDDVC  OCT     000000200660   
      03062  516060606060      R     BCI     1,R
                  
                  
      03063  000000250600     DAY    VFD     36/NHOUR*60*60 
1           INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64   05/11/69 2009.2 PAGE 31    
                  
                              *     
                              *     
                              *     
      03064  0 00000 0 00030   LNCD  PZE     NCD
      03065  0 00000 0 00014  LDINC  PZE     DINC     
      03066  0 00000 0 00000    J    PZE     ** 
      03067  0 00000 0 00000  NXDUSK PZE     ** 
      03070  0 00000 0 00000  TTLD   PZE  
      03071  643326332433     UFDNAM BCI     2,U.F.D.(FILE) 
      03072  742631432534     
      03073  443326332433     MFDNAM BCI     1,M.F.D. 
      03074  604401040106     SFA    BCI     2, M1416CMFL01 
      03075  234426430001     
      03076  604401040106            BCI     2, M1416CMFL02 
      03077  234426430002     
      03100  604401040106            BCI     2, M1416CMFL05 
      03101  234426430005     
      03102  0 00000 0 00006  SYSFL  PZE     *-SFA    
      03103  602300000506     IDXM   BCI     2, C0056 99999 
      03104  601111111111     
      03105  604401040106            BCI     2, M1416CMFL02 
      03106  234426430002     
      03107  0 00000 0 00004  NIDXM  PZE     *-IDXM   
      03110  602351252163     DTPID  BCI     4, CREATED-FILE DUMP TAPE  
      03111  252440263143     
      03112  256024644447     
      03113  606321472560     
      03114  606263215163     SIDMES BCI     7, START OF NEW INCREMENTAL DUMP PERIOD.     
      03115  604626604525     
      03116  666031452351     
      03117  254425456321     
      03120  436024644447     
      03121  604725513146     
      03122  243360606060     
      03123  602330252342            BCI     6, CHECK FLUSH MODE STATUS.
      03124  602643646230     
      03125  604446242560     
      03126  626321636462     
      03127  336060606060     
      03130  606060606060     
      03131  604525666051            BCI     6, NEW REELS SHOULD BE MOUNTED.  
      03132  252543626062     
      03133  304664432460     
      03134  222560444664     
      03135  456325243360     
      03136  606060606060     
      03137  0 00000 0 00023  LSIDMS PZE     *-SIDMES 
      03140  602545246046     EIDMES BCI     8, END OF INCREMENTAL NEW FILE DUMP TAPE FILE.     
      03141  266031452351     
      03142  254425456321     
      03143  436045256660     
      03144  263143256024     
      03145  644447606321     
      03146  472560263143     
      03147  253360606060     
      03150  602246633060            BCI     7, BOTH COPIES OF DUMP TAPE SHOULD BE SAVED, 
1           INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64   05/11/69 2009.2 PAGE 32    
                  
      03151  234647312562     
      03152  604626602464     
      03153  444760632147     
      03154  256062304664     
      03155  432460222560     
      03156  622165252473     
      03157  602162606246            BCI     4, AS SOON AS POSSIBLE.    
      03160  464560216260     
      03161  474662623122     
      03162  432533606060     
      03163  0 00000 0 00023  LEIDMS PZE     *-EIDMES 
      03164  606270626325      SDTID BCI     4, SYSTEM-FILES DUMP TAPE  
      03165  444026314325     
      03166  626024644447     
      03167  606321472560     
      03170  606270626325     SSDMES BCI     7, SYSTEM-FILE COMPLETE DUMP BEGINNING.
      03171  444026314325     
      03172  602346444743     
      03173  256325602464     
      03174  444760222527     
      03175  314545314527     
      03176  336060606060     
      03177  604525666051            BCI     6, NEW REELS SHOULD BE MOUNTED.  
      03200  252543626062     
      03201  304664432460     
      03202  222560444664     
      03203  456325243360     
      03204  606060606060     
      03205  0 00000 0 00015  LSSDMS PZE     *-SSDMES 
      03206  602545246046     ESDMES BCI     6, END OF SYSTEM-FILE COMPLETE DUMP.   
      03207  266062706263     
      03210  254440263143     
      03211  256023464447     
      03212  432563256024     
      03213  644447336060     
      03214  605125444665            BCI     8, REMOVE AND SAVE BOTH COPIES OF THIS DUMP TAPE,  
      03215  256021452460     
      03216  622165256022     
      03217  466330602346     
      03220  473125626046     
      03221  266063303162     
      03222  602464444760     
      03223  632147257360     
      03224  602162606246            BCI     4, AS SOON AS POSSIBLE.    
      03225  464560216260     
      03226  474662623122     
      03227  432533606060     
      03230  0 00000 0 00022  LESDMS PZE     *-ESDMES 
      03231  606462255162     UFDTID BCI     4, USERS'-FILES DUMP TAPE  
      03232  144026314325     
      03233  626024644447     
      03234  606321472560     
      03235  646225514026     SUDMES BCI     7,USER-FILE COMPLETE DUMP BEGINNING.   
      03236  314325602346     
      03237  444743256325     
      03240  602464444760     
1           INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64   05/11/69 2009.2 PAGE 33    
                  
      03241  222527314545     
      03242  314527336060     
      03243  606060606060     
      03244  604525666051            BCI     6, NEW REELS SHOULD BE MOUNTED.  
      03245  252543626062     
      03246  304664432460     
      03247  222560444664     
      03250  456325243360     
      03251  606060606060     
      03252  0 00000 0 00015  LSUDMS PZE     *-SUDMES 
      03253  604721453123     ALLMES BCI     3, PANIC UNMOUNT,    
      03254  606445444664     
      03255  456373606060     
      03256  602464444760            BCI     7, DUMP MAP NOT DUMPED ON THESE TAPES  
      03257  442147604546     
      03260  636024644447     
      03261  252460464560     
      03262  633025622560     
      03263  632147256260     
      03264  606060606060     
      03265  0 00000 0 00012  LALMES PZE     *-ALLMES 
      03266  602545246046     EUDMES BCI     6, END OF USERS'-FILES COMPLETE DUMP.  
      03267  266064622551     
      03270  621440263143     
      03271  256260234644     
      03272  474325632560     
      03273  246444473360     
      03274  605125444665            BCI     8, REMOVE AND SAVE BOTH COPIES OF THIS DUMP TAPE,  
      03275  256021452460     
      03276  622165256022     
      03277  466330602346     
      03300  473125626046     
      03301  266063303162     
      03302  602464444760     
      03303  632147257360     
      03304  602162606246            BCI     4, AS SOON AS POSSIBLE.    
      03305  464560216260     
      03306  474662623122     
      03307  432533606060     
      03310  0 00000 0 00022  LEUDMS PZE     *-EUDMES 
      03311  246444476347     MAP1   BCI     1,DUMPTP 
      03312  601444214714     MAP2   BCI     1, 'MAP' 
      03313 -377777000015     MAPHD  OCT     777777000015   
      03314  016060606060            BCI     9,1                       MAP OF THE CONTENTS OF THE CRE 
      03315  606060606060     
      03316  606060606060     
      03317  606060606060     
      03320  442147604626     
      03321  606330256023     
      03322  464563254563     
      03323  626046266063     
      03324  302560235125     
      03325  216325244026            BCI     4,ATED-FILE DUMP TAPE FILE 
      03326  314325602464     
      03327  444760632147     
      03330  256026314325     
1           INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64   05/11/69 2009.2 PAGE 34    
                  
      03331 -377777000016            OCT     777777000016   
      03332  006060606060            BCI     9,0                       OF FILES CREATED DURING THE PE 
      03333  606060606060     
      03334  606060606060     
      03335  606060606060     
      03336  462660263143     
      03337  256260235125     
      03340  216325246024     
      03341  645131452760     
      03342  633025604725     
      03343  513146246025            BCI     2,RIOD ENDING  
      03344  452431452760     
      03345  606060606060      MHA   BCI     3,      ,   /  /  .  
      03346  736060606160     
      03347  606160603360     
      03350 -377777000013            OCT     777777000013   
      03351  006060606060            BCI     8,0                             (DUMPING BEGAN AT  
      03352  606060606060     
      03353  606060606060     
      03354  606060606060     
      03355  606060606060     
      03356  742464444731     
      03357  452760222527     
      03360  214560216360     
      03361  606060606060      MHB   BCI     3,       ON   /  /   
      03362  604645606060     
      03363  616060616060     
      03364 -377777000014            OCT     777777000014   
      03365  606060606060            BCI     8,                                AND FINISHED AT  
      03366  606060606060     
      03367  606060606060     
      03370  606060606060     
      03371  606060606060     
      03372  606021452460     
      03373  263145316230     
      03374  252460216360     
      03375  606060606060      MHC   BCI     4,       ON   /  /  )
      03376  604645606060     
      03377  616060616060     
      03400  346060606060     
      03401 -377777000001            OCT     777777000001   
      03402  606060606060            BCI     1, 
      03403 -377777000021            OCT     777777000021   
      03404  006060606331            BCI     9,0   TIME DUMPED          USER           FILE      DATE 
      03405  442560246444     
      03406  472524606060     
      03407  606060606060     
      03410  606462255160     
      03411  606060606060     
      03412  606060602631     
      03413  432560606060     
      03414  606024216325     
      03415  616331442560            BCI     8,/TIME OF FILE    USER'S T.L.D.        T.N.D.     
      03416  462660263143     
      03417  256060606064     
      03420  622551146260     
1           INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64   05/11/69 2009.2 PAGE 35    
                  
      03421  633343332433     
      03422  606060606060     
      03423  606063334533     
      03424  243360606060     
      03425 -377777000021            OCT     777777000021   
      03426  606060604040            BCI     9,    -----------          ----           ----      ---- 
      03427  404040404040     
      03430  404040606060     
      03431  606060606060     
      03432  604040404060     
      03433  606060606060     
      03434  606060604040     
      03435  404060606060     
      03436  606040404040     
      03437  404040404040            BCI     8,-------------    -------------        ------     
      03440  404040404040     
      03441  406060606040     
      03442  404040404040     
      03443  404040404040     
      03444  606060606060     
      03445  606040404040     
      03446  404060606060     
      03447  0 00000 0 00134   LMHD  PZE     *-MAPHD       LENGTH OF 'MAP' FILE HEADING   
      03450  0 00000 0 00063  IMPINS PZE     MHC-MAPHD+1    
                                     INSERT  DCMEQB   
                              *     
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
                              *    COMMON AND EQUIVALENCE FOR GENERAL DUMP PROGRAM  
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
                              *     
                      074446  DEMKEY BOOL    74446         CORE A LOCATION FOR DAEMON'S KEY SETTING   
                      074624  SYSTIM BOOL    74624         CORE A LOCATION FOR SYSTEM  TIME     
                      074623  SYSDAT BOOL    74623         CORE A LOCATION FOR SYSTEM INIT. DATE
                      076041  RCODE  BOOL    76041         CORE A LOCATION FOR RESTRICTION CODE VECTOR
                      074454  AUTOND BOOL    74454         CORE A AUTOMATIC LOGOUT INDICATOR    
                      074532  NUSERS BOOL    74532         CORE A LOGGED-IN USER COUNT    
                      076500  PROBN  BOOL    76500         CORE A PROBNO ARRAY
                      076305  UFDNM  BOOL    76305         CORE A UFDNM ARRAY 
                      074672  PB     BOOL    74672         CORE A GUARANTEED PERCENTAGE VECTOR BASE   
                       00050  N      EQU     40            CORE A MAX. NO. OF USERS (SIZE OF PROBN)   
                              *     
                      000017  BASE   BOOL    17            KEY CODE BASE
                      000001  I      BOOL    1             KEY CODE TO START INCREMENTAL DUMP   
                      000002  PAUSE  BOOL    2             KEY CODE TO WAIT FOR 1 MIN.    
                      000003  C      BOOL    3             KEY CODE TO DO COMPLETE DUMP   
                      000004  AK     BOOL    4             KEY CODE FOR IMPENDING AUTOLOGOUT    
                      000005  ENFLSH BOOL    5             KEY CODE TO ENTER FLUSH MODE   
                      000006  LVFLSH BOOL    6             KEY CODE TO LEAVE FLUSH MODE   
                      000007  ENDTAP BOOL    7             KEY CODE TO TERMINATE DUMP TAPE FILE 
                      000010  INT    BOOL    10            SIMULATE INTERRUPT 
                       00660  RECSIZ EQU     432           TAPE RECORD SIZE   
                       00006   NX    EQU     6             MAX. NO. OF SYSTEM FILE OWNERS 
                       00030  NCD    EQU     24            MAX. NO. 'DAYS' NON-USE OF CURRENT FILES   
                       00014  DINC   EQU     12            NO. DAYS OF 'RECENCY' INCREMENT (C.DUMP)   
                       01274  U      EQU     700           MAX. NO. USERS IN MFD USER LIST
                       03300  TBSIZ  EQU     4*RECSIZ      TAPE BUFFER SIZE   
1           INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64   05/11/69 2009.2 PAGE 36    
                  
                       00007  ERYSIZ EQU     7             I/O SYSTEM ERROR ARRAY SIZE    
                       00014  ERCODA EQU     12            'OPEN' ERROR CODE FOR FILE NOT FOUND 
                       00016  ERCODB EQU     14            'OPEN' ERROR CODE RQSTD. DEVICE UNAVBLE    
                       00660  NW     EQU     432           SIZE OF SECONDARY I/O FILE BUFFERS   
                       00001  LSDRUM EQU     1             I/O SYSTEM DEVICE CODE FOR L.S.DRUM  
                       00002    DISK EQU     2             I/O SYSTEM DEVICE CODE FOR DISK
                       00003   TAPE  EQU     3             I/O SYSTEM DEVICE CODE FOR TAPE
                       00030  NHOUR  EQU     24            NO. OF HOURS IN A 'DAY'  
                       77461  KEYVAL COMMON  1             LAST KEY SETTING READ FROM SUPERVISOR
                       77460  FLSHSW COMMON  1             FLUSH MODE SWITCH  
                       77457  ENTPSW COMMON  1             OPERATOR-REQUESTED-END-TAPE INDICATOR
                       77456  NMFDU  COMMON  1             NO. USERS CURRENTLY IN LIST    
                       77455  EXEMPT COMMON  2*NX          LIST OF SYSTEM FILE OWNERS     
                       77441  NXMPT  COMMON  1             NO. FILE USERS EXEMPT FROM DUMP IN DCYCLE  
                       77440  DTLD   COMMON  U             TIME LAST DUMPED FOR EACH USER 
                       76144  PROGNO COMMON  U             PROGRAMMER NO. OF EACH USER    
                       74650  PROBNO COMMON  U             PROBLEM NO. OF EACH USER 
                       73354   FLUSH COMMON  1             NON-ZERO INDICATES FLUSH MODE IS FORCED    
                       73353   TND   COMMON  1             TIME OF NEXT DUMP FOR CURRENT USER   
                       70053         COMMON  TBSIZ-1       TAPE BUFFER  
                       70053  TPBUF  COMMON  1             TAPE BUFFER 1ST WORD     
                       64553         COMMON  TBSIZ-1       2ND TAPE BUFFER    
                       64553  TPBUF2 COMMON  1             2ND TAPE BUFFER, 1ST WORD
                       64544         COMMON  ERYSIZ-1      ERROR ARRAY  
                       64544  ERAY   COMMON  1             ERROR ARRAY 1ST WORD     
                       64526         COMMON  13            PRINT BUFFER 
                       64526   PBF   COMMON  1             PRINT BUFFER 1ST WORD    
                       64510         COMMON  13            MFD ENTRY BUFFER   
                       64510  MFDENT COMMON  1             MFD ENTRY BUFFER 1ST WORD
                       63630         COMMON  NW-1          SECONDARY I/0 FILE BUFFER
                       63630   IOBUF COMMON  1             SECONDARY IO BUFFER 1ST WORD   
                       62750         COMMON  NW-1          SECONDARY I/O FILE BUFFER
                       62750  IOBUF2 COMMON  1             SECONDARY I/O BUFFER 1ST WORD  
                       62747  UFDEOF COMMON  1             ZERO INDICATES EOF IN UFD FILE 
                       62741         COMMON  5             PARTIAL UFD ENTRY BUFFER 
                       62741  UFDENT COMMON  1             PARTIAL UFD ENTRY BUFFER 1ST WORD    
                       62740   MFDC  COMMON  1             NEXT WORD TO BE READ FROM MFD FILE   
                       62737   TLD   COMMON  1             TIME LAST DUMP OF USER CURRENTLY DUMPING   
                       62736   UFDC  COMMON  1             NEXT UNREAD POS. OF UFDFILE (NORMALLY ZERO)
                       62735  MFDEOF COMMON  1             ZERO INDICATES EOF IN MFD FILE 
                       62734   EOFCT COMMON  1             NO. OF WORDS READ BEFORE AN EOF
                       62733   FEOF  COMMON  1             ZERO INDICATES EOF IN A USER FILE    
                       62732  EOFCTA COMMON  1             NO. OF WORDS BEFORE AN EOF     
                       62731   DMPSW COMMON  1             NON-ZERO INDICATES A FILE HAS BEEN DUMPED  
                       62730   DAWN  COMMON  1             TIME OF START OF 'DAY'   
                       62727  DMPUSR COMMON  1             PROBLEM NO. OF DUMP/LOAD PACKAGE     
                       62726  DMPRGR COMMON  1             PROGRAMMER NO. OF  DITTO.
                       62727  DU     EQU     DMPUSR   
                       62726  DP     EQU     DMPRGR   
                       62725   MFD1W COMMON  1             NO. OF 1ST GOOD WORD IN MFD AND UFD FILES  
                       62723         COMMON  1             2ND PART OF DUMP TAPE FILE (COPY 1) NAME   
                       62723  NFN1   COMMON  1             1ST PART OF DUMP TAPE FILE (COPY 1) NAME   
                       62721         COMMON  1             2ND PART OF DUMP TAPE FILE (COPY 2) NAME   
                       62721   NFN2  COMMON  1             1ST PART OF DUMP TAPE FILE (COPY 2) NAME   
                       62720  TNDSW  COMMON  1             INDICATES TIME OF THIS DUMP CURRENT OR NO  
                       62040         COMMON  RECSIZ-1      INTERNAL TAPE BUFFER     
1           INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64   05/11/69 2009.2 PAGE 37    
                  
                       62040   ITB1  COMMON  1                ,,     ,,    ,,  1ST WORD   
                       61160         COMMON  RECSIZ-1      INTERNAL TAPE BUFFER     
                       61160   ITB2  COMMON  1                ,,     ,,  ,,  1ST WORD     
                       61157   DUSK  COMMON  1             TIME OF END OF CURRENT 'DAY'   
                       61156   ENDSW COMMON  1             IF 1, NORMAL END-OF-DAY,ELSE OPERATOR ONE  
                       60276         COMMON  NW-1          INTERNAL BUFFER FOR 'MAP' FILE 
                       60276    IMP  COMMON  1                ,,      ,,    ,,   ,,   ,,  1ST WORD    
                       60267         COMMON  6             'MAP' FILE LINE PARAMETER ARRAY
                       60267  ARGLST COMMON  1               ,,   ,,   ,,      ,,      ,,  1ST WORD   
                       60266  CDSW   COMMON  1             NON-ZERO DURING COMPLETE DUMP,ELSE ZERO    
                       60265  DATE   COMMON  1             DATE THE DUMP NOW IN PROGRESS BEGAN  
                       60264  TIME   COMMON  1             TIME DUMP NOW IN PROGRESS BEGAN
                       60263  TCYCLE COMMON  1             'TIME' OF LAST CYCLE ON DUMP TAPE FILE     
                       60262  TFOSW  COMMON  1             NON-ZERO IF DUMP TAPE FILE IS OPEN   
                       60261  ALOG   COMMON  1             NON-ZERO IF AUTOLOGOUT ON
                       60260  SW1    COMMON  1  
                       60257  TCP    COMMON  1  
                       60256  TNDSAV COMMON  1  
                       60255  ODAWN  COMMON  1             TIME OF START OF PREVIOUS 'DAY'
                       60244         COMMON  8             TAPE LABEL   
                       60244  TAPEID COMMON  1             TAPE LABEL 1ST WORD
                       60243  SKELSW COMMON  1  
                       60254  REELNO EQU     TAPEID+8 
                                     END  
                                              REMOTE SEQUENCES    
      03451  606445256747     ..003  BCI     7, UNEXPECTED READ INTERLOCK TRAP IN DUMPER.                     .001
      03452  252363252460     
      03453  512521246031     
      03454  456325514346     
      03455  234260635121     
      03456  476031456024     
      03457  644447255133     
      03460  604546636025     ..006  BCI     8, NOT ENOUGH SPACE IN DUMP PROGRAMS USER LIST.                  .001
      03461  454664273060     
      03462  624721232560     
      03463  314560246444     
      03464  476047514627     
      03465  512144626064     
      03466  622551604331     
      03467  626333606060     
      03470  605125246423     ..009  BCI     7, REDUCE M.F.D. OR RE-ASSEMBLE DUMP PROGRAM.                    .001
      03471  256044332633     
      03472  243360465160     
      03473  512540216262     
      03474  254422432560     
      03475  246444476047     
      03476  514627512144     
      03477  602464444725     ..012  BCI     4, DUMPER GOING TO SLEEP.                                        .001
      03500  516027463145     
      03501  276063466062     
      03502  432525473360     
      03503  602464444725     ..015  BCI     3, DUMPER WAKING UP.                                             .001
      03504  516066214231     
      03505  452760644733     
      03506  604564622551     ..018  BCI     5, NUSERS STILL GREATER THAN ONE                                 .001
      03507  626062633143     
1           INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64   05/11/69 2009.2 PAGE 38    
                  
      03510  436027512521     
      03511  632551606330     
      03512  214560464525     
      03513  606051255064     ..021  BCI     7,  REQUESTED DUMP TAPE TERMINATION IS DONE.                     .001
      03514  256263252460     
      03515  246444476063     
      03516  214725606325     
      03517  514431452163     
      03520  314645603162     
      03521  602446452533     
      03522  606051255064     ..024  BCI     7,  REQUESTED COMPLETE DUMP IS ALL DONE.                         .001
      03523  256263252460     
      03524  234644474325     
      03525  632560246444     
      03526  476031626021     
      03527  434360244645     
      03530  253360606060     
      03531  602346444743     ..027  BCI     8, COMPLETE DUMP HAS TO BE ABANDONED. RE-ASSEMBLE.               .001
      03532  256325602464     
      03533  444760302162     
      03534  606346602225     
      03535  602122214524     
      03536  464525243360     
      03537  512540216262     
      03540  254422432533     
                  
        LITERALS  
      03541  000000000000     
      03542  000000000001     
      03543  000000000002     
      03544  000000000003     
      03545  000000000004     
      03546  000000000005     
      03547  000000000012     
      03550  000000000013     
      03551  000000000014     
      03552  000000000017     
      03553  000000000024     
      03554  000000000074     
      03555  000000003410     
      03556  006060606060     
      03557  007700007777     
      03560  026060606060     
      03561  036060606060     
      03562  214343606060     
      03563  232400016060     
      03564  232400026060     
      03565  232400036060     
      03566  245162634651     
      03567  263143253301     
      03570  263143253302     
      03571  312400016060     
      03572  312400026060     
      03573  312400036060     
      03574  312400066060     
      03575  332464444733     
1           INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64   05/11/69 2009.2 PAGE 39    
                  
      03576  400000000000     
      03577  434627466463     
      03600  512562634651     
      03601  516060606060     
      03602  601111111111     
      03603  602300000506     
      03604  606060254524     
      03605  606060633025     
      03606  627062632544     
      03607  646225516214     
      03610  770000770000     
      03611  777700007700     
      03612  777777000000     
      03613  777777770000     
      03614  777777777777     
1           INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64   05/11/69 2009.2 PAGE 1     
                        POST PROCESSOR ASSEMBLY DATA  
                  
       60242 IS THE LAST LOCATION NOT USED BY THIS PROGRAM  
       3615 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM  
                  
0REFERENCES TO DEFINED SYMBOLS      
          3      C  1072, 1110, 1341, 1353, 3451
          1      I  1344, 1362, 1667, 1701, 3451
       3066      J   374,  624, 1211
         50      N  3451
       3062      R   506
        321      T   216,  256,  260,  261,  312,  313
       1274      U  3043, 3451
       3046      W   405, 2662
          4     AK  1067, 1101, 3451
       3047     BA   401,  406,  414,  427,  463,  470,  475,  507,  515,  520,  552, 2663
       3050     BB   402,  407,  415,  430,  464,  471,  476,  510,  516,  522,  553, 2664
        117     D3    74
        142     D4   121
      62726     DP    67, 3451
      62727     DU    66, 3451
       3054     L3   466
        660     NW  3053, 3451
          6     NX   737, 1403, 2715, 3451
       1734     O4  1720, 1736, 1745
      74672     PB   144, 1007, 1017, 1204, 1207, 3451
       1376    CDA  1372
       1405    CDB  1411
       1457    CDC  1472
       1472    CDD  2754, 2764
       1601    CDF  1571
       1652    CDG  1717
       1665    CDH  1714
       1715    CDI  1713
       3063    DAY   371, 1165
        335    DDR   235, 1217
         52    DMF  1130, 1505, 1617
         51    EMF  1126, 1503, 1615
         45    GDT   707, 1031, 1040, 1172, 1426, 1440, 1453, 1551, 1573
        375    IDD   431,  537, 1212, 3056
        413    IDE  2670
        423    IDF   473
        437    IDG   443
        443    IDH   433,  452
        445    IDI   441
        453    IDJ   450
        455    IDK   434,  444
        534    IDL   555
        555    IDM   532,  550
        620    IDN   554
        746    IDQ   755, 1011, 1012, 1020
      60276    IMP  3451
         10    INT  3451
       3345    MHA   642,  644,  651,  653,  661
       3361    MHB   663,  666,  671,  673,  700
       3375    MHC  3450
1           INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64   05/11/69 2009.2 PAGE 2     
                        POST PROCESSOR ASSEMBLY DATA  
                  
         30    NCD  3064, 3451
      64526    PBF   101,  105,  110,  126,  132,  135,  566,  572,  575,  601,  605,  610,  760,  764,  767,  775, 1001
                    1004, 1234, 1240, 1243, 1312, 1316, 1321, 1654, 1660, 1663, 2730, 2734, 2737, 3451
         37    RDF   534
         42    SDF   635, 1417, 1541
       3074    SFA  3102
         43    SMF   637, 1421, 1543
      60260    SW1  1371, 1375, 1650, 3451
      60257    TCP  1452, 3451
      62737    TLD  1451, 1547, 1570, 3451
       1021    TMA   753
       1033    TMB   732
       1034    TMC  1026, 1032
       1203    TME  1174
       1211    TMG  1202
       1310    TMH  1214
       1323    TMI  1337, 2744
       1340    TMJ  1336, 1370
       1066    TMX  1052, 1114
       1115    TMZ  1047, 1065, 1113
      73353    TND  1034, 1163, 1175, 1373, 1442, 3451
         53    WMH  1422, 1544
      60261   ALOG    57, 3451
         17   BASE  3451
         40   BERM   561, 2672, 2702, 2712, 2723, 2746, 2756
       1446   CDBA      
      60266   CDSW   277,  366, 1400, 1647, 3451
        327   COMD   160,  162
      60265   DATE  3451
      62730   DAWN   222,  223,  250,  253,  264,  267, 1155, 1176, 1374, 3451
        364   DDR4   335
         14   DINC  3065, 3451
          2   DISK  3052, 3451
      77440   DTLD   453,  547, 3451
      61157   DUSK   372,  627, 1025, 1200, 3451
       2671   ED2A  2660, 2667
         75   ELOC    73
      64544   ERAY  3451
      62733   FEOF   530,  540, 3451
        557   IDCA   617
        616   IDCB   557,  615
        404   IDDA  2700
        432   IDFA   425
        520   IDKA  2710
        551   IDLA   541
        741   IDNZ  2721
       3103   IDXM  3107
        122   ILOC   120
      62040   ITB1  3451
      61160   ITB2  3451
       3052   LDSK  2666
       3056   LIDD   556
       3051   LLSD   411
       3447   LMHD   705
       3064   LNCD  1450
1           INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64   05/11/69 2009.2 PAGE 3     
                        POST PROCESSOR ASSEMBLY DATA  
                  
       3311   MAP1   702
       3312   MAP2   703
       2765   MESA  1342
       2773   MESB  1345, 1670
       3002   MESC  1673
       3010   MESD  1070
       3017   MESE  1073
       3023   MESX   100
       3034   MESZ  1325
      62740   MFDC   420, 3451
      62723   NFN1   146,  151, 1135, 1136, 1514, 1515, 1626, 1627, 3451
      62721   NFN2   147,  153, 1140, 1141, 1517, 1520, 1631, 1632, 3451
          7   OPEN   404,  505, 1724, 2661
       3055   PASS  1027, 1060, 1062
        223   PUMP   272,  274,  315
        270   RSME   257,  265
          3   TAPE  3451
      60264   TIME  3451
       1027   TMAA  1024, 1044
       1031   TMAC  1064, 1227, 1272
       1175   TMCA  1365
       1213   TMCB  1171
       1177   TMCC  1704
       1274   TMZ3  1263
       3070   TTLD  1550, 1567
      62736   UFDC  3451
       2653   WEND  2626
        312  AFFIX   220
       1572  AUTOM  1565
       1371  CDUMP   241,  302,  305
         10  CLOSE   173,  426,  474,  551, 1134, 1137, 1513, 1516, 1625, 1630, 1742
       3057  DAUTH      
      62731  DMPSW   747,  754, 3451
       3110  DTPID   632
         55  DUSR1  1465
        114  ELOC1    76
        115  ELOC4    75
      61156  ENDSW   733, 1022, 1045, 1167, 3451
      62734  EOFCT  3451
      73354  FLUSH   735, 1035, 1455, 3451
         14  FWAIT   467
         26  GDSIG   113,  500,  623,  706,  750, 1037, 1157, 1401, 1470, 1527, 1546, 1572, 1633, 1665
        366  IDUMP   244,  320, 1651
        137  ILOC1   123
        140  ILOC4   122
         44  IOBDT   641
      63630  IOBUF   215,  255, 3451
       3451  ..003   125
       3460  ..006   565
       3470  ..009   600
       3477  ..012   757
       3503  ..015   774
       3506  ..018  1233
       3513  ..021  1311
       3522  ..024  1653
1           INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64   05/11/69 2009.2 PAGE 4     
                        POST PROCESSOR ASSEMBLY DATA  
                  
       3531  ..027  2727
       3053  LBUF2   416,  517
       3065  LDINC      
       3313  MAPHD   705, 3447, 3450
       3061  MDDVC      
       3021  MESEX      
      62725  MFD1W    71,  417, 3451
       3043  MXIOU   531
       3044  NAME1   234,  337,  346,  352,  361, 1216
         27  NGETA   143,  165,  167, 1006, 1016, 1050, 1054, 1076, 1105, 1203, 1206, 1230, 1255, 1264, 1275, 1330, 1350
                    1357, 1676, 1705
         30  NHOUR  3063, 3451
       3107  NIDXM   736,  741,  743
      77456  NMFDU   232,  432,  620, 3451
      77441  NXMPT   740, 1404, 3451
      60255  ODAWN   224,  455, 1156, 3451
       1300  PASS2  1030, 1223, 1225
          2  PAUSE  1251, 1267, 1324, 1333, 1672, 1710, 3451
      76500  PROBN  3451
      76041  RCODE  3451
         36  RDMFD   423
        246  RESET   205,  213
       3164  SDTID  1414
         11  SLEEP   772, 1075, 1254, 1327, 1347, 1367, 1675, 1716
       3102  SYSFL  1402, 1405, 1407, 1456, 1461, 1463
       3300  TBSIZ  3451
        325  TEMPS   203,  211
      60262  TFOSW   225,  301, 1142, 1642, 3451
       1054  TMAB3  1104
       1223  TMAC3  1057
       1060  TMAC4  1277
      62720  TNDSW   734, 1036, 1575, 3451
      70053  TPBUF   535,  542,  544,  546,  630,  640,  662,  664, 1412, 1534, 3451
        326  UDTSW   306, 1564, 1566
      76305  UFDNM  3451
       2626  WREND   731
         12  WRFLX   104,  131,  571,  604,  763, 1000, 1237, 1315, 1657, 2733
         35 ADDTIM   370, 1164
       3253 ALLMES   177, 3265
       3045 ALOGSW  1053, 1213
      60267 ARGLST  3451
        333 ARGSAV   156,  236,  270
          4 ATTACH    65,  375,  457,  502, 1131, 1506, 1620, 1721, 1737, 2627
      74454 AUTOND  1051, 3451
          0 BUFFER   413,  514, 1730
       1373 CDUMP1  1356
         22 CHFILE   336,  351
         24 CHNCOM   245
        332 CHNWRD   163
         56 CKCODE  2655
       1736 CLSMFD   501, 1115, 1604
          6 CORREC  1246, 1260, 1300
         47 DCYCLE   723,  751, 1042, 1601
          3 DELFIL   345,  360,  400, 2650
      74446 DEMKEY  1077, 1106, 1231, 1256, 1265, 1331, 1351, 1360, 1677, 1706, 3451
1           INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64   05/11/69 2009.2 PAGE 5     
                        POST PROCESSOR ASSEMBLY DATA  
                  
         46 DMPFIL   720, 1125, 1437, 1502, 1562, 1614, 2647
      62726 DMPRGR    62,  377,  461,  504,  526, 1133, 1510, 1622, 2631, 2645, 3451
      62727 DMPUSR    64,  376,  460,  503,  524, 1132, 1507, 1621, 2630, 2643, 3451
       1305 DPNSMS  1252
         33 DRSTOR   246
         32 DTSAVE   226,  230,  621,  727, 1151, 1153, 1161, 1424, 1444, 1457, 1511, 1530, 1532, 1577, 1623, 1643, 1645
        324 DWNTMP   263,  266
       3140 EIDMES  1145, 1150, 3163
          7 ENDTAP  3451
          5 ENFLSH  3451
      77457 ENTPSW  1160, 3451
      62732 EOFCTA  3451
         14 ERCODA  3451
         16 ERCODB  2657, 3451
       2722 ERRCD1  1403
       2745 ERRCD2  1466
       2755 ERRCD3  1467
         41 ERREND   613, 2676, 2706, 2717, 2742, 2752, 2762
       2655 ERRID2   412,  477
       2701 ERRID3   513
       2711 ERRID6   737
          7 ERYSIZ  3451
       3206 ESDMES  1523, 1526, 3230
       3266 EUDMES  1636, 1641, 3310
      77455 EXEMPT   742,  744, 1406, 1410, 3451
         16 FERRTN    72
      77460 FLSHSW  3451
          2 FSTATE   200,  206
         30 GDTSYS   171,  262,  314
         20 GETCOM   154
         23 GETIME      
         31 GETOUT   214,  254
       3450 IMPINS   317, 1127
      62750 IOBUF2   416,  517, 3451
       1746 IOBUF3  1733
      77461 KEYVAL  1100, 1103, 1107, 1112, 1257, 1262, 1266, 1271, 1332, 1335, 1352, 1355, 1361, 1364, 1700, 1703, 1707
                    1712, 3451
       3265 LALMES   177
       3163 LEIDMS  1145, 1150
       3230 LESDMS  1523, 1526
       3310 LEUDMS  1636, 1641
          1 LSDRUM  3051, 3451
       3137 LSIDMS   636
       3205 LSSDMS  1420
       3252 LSUDMS  1542
          6 LVFLSH  3451
      64510 MFDENT   436,  445,  451,  456,  466,  525,  527,  715,  717, 1122, 1124, 1434, 1436, 1462, 1464, 1477, 1501
                    1557, 1561, 1611, 1613, 2644, 2646, 3451
      62735 MFDEOF   421,  472, 1021, 1376, 3451
       3073 MFDNAM   716, 1123, 1435, 1500, 1560, 1612, 1722, 1726, 1731, 1740, 1743
         21 NEXCOM  1222
      74532 NUSERS  1055, 1276, 3451
       3067 NXDUSK   625, 1033, 1166, 1173, 1177
       1720 OPNMFD   422,  721, 1563
       3060 PBBASE   142, 1010
1           INCREMENTAL NEW FILES DUMP AND COMPLETE DUMP...M.J.BAILEY,12/31/64   05/11/69 2009.2 PAGE 6     
                        POST PROCESSOR ASSEMBLY DATA  
                  
       1301 PNUSMS  1247
         50 PRCODE  1066, 1071, 1245, 1250, 1323, 1340, 1343, 1666, 1671
         25 PRNTER   112
      74650 PROBNO   446,  543, 3451
      76144 PROGNO   437,  545, 3451
        660 RECSIZ  3451
      60254 REELNO  3451
       1245 RETURN  1273
        316 RIDUMP   276,  300
         34 SAVMAP   307,  316
          6 SETCLC   164
          5 SETCLS   157,  161
          1 SETFIL  2632
       3114 SIDMES   636, 3137
      60243 SKELSW   275,  722,  726, 1377, 3451
       3170 SSDMES  1420, 3205
         54 SUBDAY  1447
       3235 SUDMES  1542, 3252
      74623 SYSDAT   170, 3451
      74624 SYSTIM   166, 3451
      60244 TAPEID   633, 1415, 1537, 3451
      60263 TCYCLE   710, 1041, 1427, 1454, 1552, 1574, 3451
         17 TILOCK   117
        334 TMPSYS   172,  221,  252,  367
      60256 TNDSAV  1443, 1446, 1576, 3451
      64553 TPBUF2  3451
       1534 UDTPAT   311
      62741 UFDENT   521,  523,  712,  714, 1117, 1121, 1431, 1433, 1474, 1476, 1554, 1556, 1606, 1610, 2640, 2642, 3451
      62747 UFDEOF  3451
       3071 UFDNAM   711,  713, 1116, 1120, 1430, 1432, 1473, 1475, 1553, 1555, 1605, 1607, 1723, 1727, 1732, 1741, 1744
       3231 UFDTID  1536
         15 UMOUNT   175, 1143, 1146, 1521, 1524, 1634, 1637
         13 WRFILE   462,  701
                  
0 NO ERROR IN ABOVE ASSEMBLY. 
1         SUBROUTINE TO PERFORM ONE GENERAL DUMP CYCLE....M.J.BAILEY,11/30/64    05/11/69 2010.4 PAGE 1     
                  
                              *     
                              *      1. ENTER WITH TNDSW ZERO, AND TND WILL BE TAKEN
                              *         AS CURRENT TIME, FOR EACH USER. OTHERWISE TND WILL
                              *         BE TAKEN AS A CONSTANT (ITS CURRENT VALUE). 
                              *      2. IF CONTENTS OF (1,4) ARE ZERO EVERY USER WILL BE DUMPED.
                              *         OTHERWISE (NXMPT/2) OF THOSE NAMED IN EXEMPT WILL NOT.  
                              *      3. IF FLUSH IS NON-ZERO, FLUSH MODE IS FORCED ON.    
                              *         OTHERWISE A SWITCH IS EXAMINED, AND IF ON MODE IS FLUSH,
                              *         AND IF OFF MODE IS NORMAL. THIS SWITCH IS SET ACCORDING TO A  
                              *         KEY SETTING, THE KEYS BEING PERIODICALLY TESTED VIA CORE A.   
                              *      4. IF CDSW IS NON-ZERO, COMPLETE DUMP IS IN PROGRESS,
                              *         AND TLD AND TND WILL BE TAKEN AS CONSTANTS (AS SET).    
                              *     
                       00012         ENTRY   DCYCLE   
                              *     
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
                              *      INITIALIZATION OF GENERAL DUMP CYCLE     
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
                              *     
                  
        TRANSFER VECTOR 
      00000  272463606060     GDT   
      00001  272462312760     GDSIG 
      00002  512444262460     RDMFD 
      00003  244447642624     DMPUFD
      00004  246462516760     DUSRX 
      00005  246362216525     DTSAVE
      00006  272563216060     GETA  
      00007  246462516060     DUSR  
                  
            LINKAGE DIRECTOR  
      00010  000000000000     
      00011  242370234325     
                  
      00012  0500 00 0 62735  DCYCLE CLA     MFDEOF        ENSURE MFD FILE READ STARTING AT     
      00013 -0100 00 0 00017         TNZ     *+4
      00014  0500 00 0 62725         CLA     MFD1W    
      00015  0601 00 0 62740         STO     MFDC          1ST GOOD WORD
      00016  0601 00 0 62735         STO     MFDEOF        SET MFD FILE EOF INDICATOR NON-ZERO  
      00017  0634 00 1 00237         SXA     NXY,1    
      00020  0634 00 2 00240         SXA     NXZ,2    
      00021  0634 00 7 00241         SXA     NXZZ,7   
      00022  0634 00 4 00030         SXA     DCYC4,4  
                              *     
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
                              *      START OF DUMP CYCLE    
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
                              *     
      00023  0074 00 4 00000   NXUSR TSX     $GDT,4        CURRENT DATE/TIME IN AC  
      00024  0602 00 0 00243         SLW     DATIM         SAVE IT
      00025  0074 00 4 00001         TSX     $GDSIG,4      GET KEY SETTINGS, SET SWITCHES 
                              *     
                              *      READ NEXT USER'S ENTRY FROM MFD    
                              *     
      00026  0074 00 4 00002         TSX     $RDMFD,4      READ NEXT USER'S MFD ENTRY INTO MFDENT     
      00027  0020 00 0 00065         TRA     NXBA           ERROR RETURN, GO TO NEXT USER 
1         SUBROUTINE TO PERFORM ONE GENERAL DUMP CYCLE....M.J.BAILEY,11/30/64    05/11/69 2010.4 PAGE 2     
                  
      00030  0774 00 4 00000  DCYC4  AXT     **,4     
                              *     
      00031  0534 00 1 00256         LXA     NALDXM,1      IS THIS USER EXEMPT FROM ALL DUMPS   
      00032 -0500 00 0 64510         CAL     MFDENT   
      00033 -0340 00 1 00256  ZA     LAS     NALDXM,1 
      00034  0020 00 0 00036         TRA     ZB 
      00035  0020 00 0 00040         TRA     ZC 
      00036  2 00002 1 00033  ZB     TIX     ZA,1,2   
      00037  0020 00 0 00046         TRA     ZD 
      00040 -0500 00 0 64511  ZC     CAL     MFDENT+1 
      00041 -0340 00 1 00257         LAS     NALDXM+1,1     
      00042  0020 00 0 00044         TRA     *+2
      00043  0020 00 0 00065         TRA     NXBA          YES, EXEMPT, GO TO NEXT USER   
      00044 -0500 00 0 64510         CAL     MFDENT   
      00045  0020 00 0 00036         TRA     ZB 
                              *     
      00046 -0520 00 4 00001  ZD     NZT     1,4           ANY EXEMPT USERS ALLOWED FROM THIS DUMP    
      00047  0020 00 0 00070         TRA     NXBB          NO, GO DUMP THIS ONE     
                              *     
                              *      CHECK WHETHER THIS USER IS EXEMPT FROM THIS DUMP     
                              *     
      00050  0534 00 1 77441         LXA     NXMPT,1  
      00051 -0500 00 0 64510         CAL     MFDENT        USER PROBNO. 
      00052 -0340 00 1 77456  NXA    LAS     EXEMPT+1,1    IS IT THAT OF NEXT EXEMPT USER 
      00053  0020 00 0 00055         TRA     NXB           NO, HE IS NOT THIS EXEMPT USER 
      00054  0020 00 0 00057         TRA     *+3           COULD BE, HIS PROBLEM NO. MATCHES    
      00055  2 00002 1 00052   NXB   TIX     NXA,1,2       NO, GO TRY NEXT EXEMPT USER PROBNO   
      00056  0020 00 0 00070         TRA     NXBB          THIS USER NOT EXEMPT, GO DUMP HIM    
      00057 -0500 00 0 64511         CAL     MFDENT+1      PROB. NO. MATCHES, LOOK AT HIS PROG. NO.   
      00060 -0340 00 1 77457         LAS     EXEMPT+2,1     
      00061  0020 00 0 00063         TRA     *+2           NO MATCH     
      00062  0020 00 0 00065         TRA     NXBA           YES, HE IS EXEMPT, GO TO NEXT USER  
      00063 -0500 00 0 64510         CAL     MFDENT        NO, HE IS NOT THIS EXEMPT USER,
      00064  0020 00 0 00055         TRA     NXB           GO BACK TO TRY NEXT
      00065  0520 00 0 60266  NXBA   ZET     CDSW     
      00066  0020 00 0 00234         TRA     NXIB     
      00067  0020 00 0 00207         TRA     NXX
                              *     
                              *      UPDATE THE USER'S FILE DIRECTORY   
                              *     
      00070  0074 00 4 00001  NXBB   TSX     $GDSIG,4 
                              *     
                              *      IF COMPLETE DUMP DUMP THE USER NOW 
                              *     
      00071  0500 00 0 60243         CLA     SKELSW   
      00072  0100 00 0 00077         TZE     *+5
      00073  0074 00 4 00003         TSX     $DMPUFD,4
      00074  0020 00 0 00076         TRA     *+2
      00075  0020 00 0 00076         TRA     *+1
      00076  0020 00 0 00104         TRA     NXBC     
      00077 -0520 00 0 60266         NZT     CDSW     
      00100  0020 00 0 00110         TRA     NXC           SKIP IF INCREMENTAL DUMP 
      00101  0074 00 4 00004         TSX     $DUSRX,4 
      00102  0020 00 0 00104         TRA     NXBC          ('IMPOSSBCLE')     
      00103  0020 00 0 00104         TRA     NXBC          ERROR RETURN 
      00104  0774 00 1 00003  NXBC   AXT     3,1           NORMAL RETURN
1         SUBROUTINE TO PERFORM ONE GENERAL DUMP CYCLE....M.J.BAILEY,11/30/64    05/11/69 2010.4 PAGE 3     
                  
      00105  0074 00 4 00005         TSX     $DTSAVE,4     SAVE USER LIST ETC. ON DISK    
      00106  2 00001 1 00105         TIX     *-1,1,1       ERROR RETURN, TRY UP TO 3 TIMES
      00107  0020 00 0 00234         TRA     NXIB     
                              *     
                              *  LOOK UP THIS USER'S TIME-LAST-DUMPED, IF INCREMENTAL DUMP
                              *     
      00110  0534 00 1 77456  NXC    LXA     NMFDU,1       GET THIS USER'S TLD (DATE/TIME LAST DUMPED)
      00111 -0634 00 1 00120         SXD     NXE,1    
      00112  0774 00 1 00001         AXT     1,1           1ST LOOK UP HIS PROG. NO. IN THE USER LIST 
      00113 -0500 00 0 64511         CAL     MFDENT+1 
      00114 -0340 00 1 76145   NXD   LAS     PROGNO+1,1     
      00115  0020 00 0 00117         TRA     *+2           NO MATCH GO TRY NEXT     
      00116  0020 00 0 00122         TRA     NXF           GOT PROG. NO., SKIP
      00117  1 00001 1 00120         TXI     *+1,1,1       NO MATCH     
      00120 -3 00000 1 00114   NXE   TXL     NXD,1,**      TRY NEXT PROGNO IF ANY MORE    
      00121  0020 00 0 00207         TRA     NXX           USER NOT IN OUR USER LIST, FORGET HIM
      00122 -0500 00 0 64510   NXF   CAL     MFDENT        CHECK HIS PROB. NO.  NOW 
      00123 -0340 00 1 74651         LAS     PROBNO+1,1     
      00124  0020 00 0 00126         TRA     *+2           NO MATCH, SKIP     
      00125  0020 00 0 00130         TRA     NXG           YES, THIS IS THE USER WE WANT  
      00126 -0500 00 0 64511         CAL     MFDENT+1      NO MATCH, SEE IF PROGNO MATCHES AGAIN
      00127  0020 00 0 00117         TRA     NXE-1    
      00130 -0634 00 1 00244  NXG    SXD     USERX,1       SAVE USER LIST INDEX FOR THIS USER   
      00131 -0500 00 1 77441         CAL     DTLD+1,1      GET HIS DATE/TIME LAST DUMPED  
      00132  0602 00 0 62737         SLW     TLD
                              *     
                              *      SEE IF HE HAS ANY FILES WE SHOULD DUMP THIS TIME     
                              *     
      00133  0074 00 4 00001         TSX     $GDSIG,4 
      00134  0520 00 0 73354         ZET     FLUSH         SOMETHING CHANGED, IS FLUSH MODE FORCED ON 
      00135  0020 00 0 00162         TRA     NXH           YES, SKIP    
      00136  0520 00 0 77460         ZET     FLSHSW        NO, TEST TYPE OF DUMP MODE (AS SET ON KEYS)
      00137  0020 00 0 00162         TRA     NXH           FLUSH MODE, SKIP   
      00140  0534 00 2 00245         LXA     MXUSRS,2      NORMAL MODE, TEST WHETHER USER LOGGED IN   
      00141  0074 00 7 00006  LA     TSX     $GETA,7       COMPARE USER'S PROBLEM NO. WITH
      00142 -0500 00 2 76551         CAL     PROBN+N+1,2   THAT OF NEXT LOGGED IN USER (VIA CORE A)   
      00143 -0340 00 0 64510         LAS     MFDENT   
      00144  0020 00 0 00146         TRA     *+2           NOT THIS PROB. NO. 
      00145  0020 00 0 00150         TRA     LC            SKIP IF PROB. NO. MATCHES
      00146  2 00001 2 00141  LB     TIX     LA,2,1        NOT THIS PROB. NO., RETURN FOR NEXT  
      00147  0020 00 0 00162         TRA     NXH           NO MORE, USER NOT LOGGED IN    
                              *     
      00150 -0500 00 0 64511  LC     CAL     MFDENT+1      GET PROG. NO.
      00151 -0320 00 0 00262         ANA     =O777777770000 TO TEST FOR A COMMON FILE     
      00152  0322 00 0 00261         ERA     =HCMFL00 
      00153  0100 00 0 00207         TZE     NXX
      00154  0074 00 7 00006         TSX     $GETA,7       PROB. NO. O.K., CHECK WHETHER  
      00155 -0500 00 2 76356         CAL     UFDNM+N+1,2   UFD NAME COMPARES ALSO   
      00156 -0340 00 0 64511         LAS     MFDENT+1 
      00157  0020 00 0 00146         TRA     LB            NO, CHECK ANY RE-OCCURENCE OF PROGRAMMER NO
      00160  0020 00 0 00207         TRA     NXX           YES, USER LOGGED IN, GO TO NEXT USER 
      00161  0020 00 0 00146         TRA     LB            NO, GO CHECK FOR PROG. NO. AGAIN     
                              *     
                              *      DUMP THIS USER, RESET HIS TIME LAST DUMPED, THEN SAVE USER LIST  
                              *     
      00162  0520 00 0 62720  NXH    ZET     TNDSW         EITHER NORMAL AND NOT LOGGED IN OR ELSE    
1         SUBROUTINE TO PERFORM ONE GENERAL DUMP CYCLE....M.J.BAILEY,11/30/64    05/11/69 2010.4 PAGE 4     
                  
                                                             FLUSH MODE AT THIS POINT     
      00163  0020 00 0 00166         TRA     NXI           TND NON-ZERO, IT IS ALREADY SET
      00164 -0500 00 0 00243         CAL     DATIM         TND ZERO, GET CURRENT DATE/TIME IN AC
      00165  0602 00 0 73353         SLW     TND           SET TND
      00166  0500 00 0 64512  NXI    CLA     MFDENT+2 
      00167  0402 00 0 62737         SUB     TLD
      00170 -0120 00 0 00207         TMI     NXX
      00171  0500 00 0 64512         CLA     MFDENT+2      GET TLM, DATE/TIME A FILE LAST CHANGED     
      00172  0402 00 0 73353         SUB     TND           COMPARE WITH THE DATE/TIME DUMPED NOW
      00173  0120 00 0 00207         TPL     NXX           TLM .GE. TND, INVALID CHANGE FOR THIS DUMP 
                              *     
      00174  0074 00 4 00001         TSX     $GDSIG,4 
      00175  0074 00 4 00007         TSX     $DUSR,4       DUMP THIS USER'S FILES   
      00176  0020 00 0 00200         TRA     *+2           END-OF-'DAY' RETURN (CURRENTLY IMPOSSIBLE) 
      00177  0020 00 0 00207         TRA     NXX           ERROR RETURN - TROUBLE WITH UFD FILE 
                              *     
      00200 -0534 00 1 00244         LXD     USERX,1       NORMAL RETURN,     
      00201 -0500 00 0 73353         CAL     TND           SET HIS TIME LAST DUMPED 
      00202  0602 00 1 77441         SLW     DTLD+1,1      EQUAL TO TIME OF THIS DUMP     
                              *     
      00203  0774 00 1 00003         AXT     3,1
      00204  0074 00 4 00005         TSX     $DTSAVE,4     SAVE USER TABLE ETC.     
      00205  2 00001 1 00204         TIX     *-1,1,1       ERROR RETURN, TRY UP TO 3 TIMES
                              *     
      00206  0020 00 0 00213         TRA     NXXX     
                              *     
      00207  0520 00 0 62720  NXX    ZET     TNDSW    
      00210  0020 00 0 00213         TRA     NXXX     
      00211  0074 00 4 00000         TSX     $GDT,4        UPDATE TND IF IT WAS NOT PRE-SET     
      00212  0602 00 0 73353         SLW     TND           AND USER WAS SKIPPED, TO PICK UP END OF DAY
                              *     
                              *      END OF DUMP CYCLE
                              *     
      00213  0074 00 4 00001  NXXX   TSX     $GDSIG,4 
      00214  0500 00 0 61156         CLA     ENDSW         CHECK IF END-OF-DAY FLUSH IN PROGRESS
      00215  0402 00 0 00260         SUB     =2            (EITHER OPERATER-INITIATED OR NATURAL)     
      00216  0100 00 0 00234         TZE     NXIB          SKIP IF OPERATOR INITIATED FLUSH IN PROGRES
      00217  0500 00 0 77457         CLA     ENTPSW        HAS OPERATOR REQUESTED END-OF-DUMP-DAY     
      00220 -0100 00 0 00230         TNZ     NXIA          SKIP IF YES, EXTERNAL END DUMP REQUEST     
      00221  0520 00 0 61156         ZET     ENDSW         NO, NO EXTERNAL END-OF-DAY FLUSH REQUESTED 
      00222  0020 00 0 00234         TRA     NXIB          SKIP IF NORMAL END OF DAY FLUSH IN PROGRESS
      00223  0500 00 0 73353         CLA     TND           NO, NO FLUSH DUMP IN PROGRESS  
      00224  0402 00 0 61157         SUB     DUSK          TEST FOR NORMAL END-OF-DAY     
      00225 -0120 00 0 00234         TMI     NXIB          SKIP IF NOT (TND LESS THAN DUSK)     
      00226  0500 00 0 00257         CLA     =1            YES, NORMAL END-OF-DAY PASSED,SET ENDSW=1  
      00227  0020 00 0 00231         TRA     *+2
      00230  0500 00 0 00260   NXIA  CLA     =2            OPERATOR REQUESTED END DUMP,SET ENDSW=2    
      00231  0601 00 0 61156         STO     ENDSW    
      00232  0534 00 4 00030         LXA     DCYC4,4       SET UP END OF DAY RETURN 
      00233  1 00001 4 00237         TXI     NXY,4,1       GO RETURN VIA (2,4)
                              *     
      00234  0520 00 0 62735  NXIB   ZET     MFDEOF   
      00235  0020 00 0 00023         TRA     NXUSR         NO, RETURN FOR NEXT
                              *     
      00236  0534 00 4 00030         LXA     DCYC4,4       YES, PREPARE TO RETURN TO CALLER     
      00237  0774 00 1 00000   NXY   AXT     **,1     
1         SUBROUTINE TO PERFORM ONE GENERAL DUMP CYCLE....M.J.BAILEY,11/30/64    05/11/69 2010.4 PAGE 5     
                  
      00240  0774 00 2 00000  NXZ    AXT     **,2     
      00241  0774 00 7 00000  NXZZ   AXT     **,7     
      00242  0020 00 4 00003         TRA     3,4           RETURN TO CALLER   
                              *     
                              *      CONSTANTS, VARIABLES, ETC.   
                              *     
      00243  0 00000 0 00000   DATIM PZE                   DATE/TIME OF NEXT DUMP OF CURRENT USER     
      00244  0 00000 0 00000   USERX PZE     ,,**          USER LIST INDEX OF CURRENT USER
      00245  0 00000 0 00050  MXUSRS PZE     N             MAX. NO. USERS     
      00246  443326332433     ALLDXM BCI     2,M.F.D.(FILE) 
      00247  742631432534     
      00250  245164446463            BCI     2,DRUMUT(FILE) 
      00251  742631432534     
      00252  243162426463            BCI     2,DISKUT(FILE) 
      00253  742631432534     
      00254  602300000506            BCI     2, C0056 99999 
      00255  601111111111     
 T    00256 -0754 00 0 00010  NALDXM PXD     *-ALLDXM 
                                     INSERT DCMEQB    
                              *     
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
                              *    COMMON AND EQUIVALENCE FOR GENERAL DUMP PROGRAM  
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
                              *     
                      074446  DEMKEY BOOL    74446         CORE A LOCATION FOR DAEMON'S KEY SETTING   
                      074624  SYSTIM BOOL    74624         CORE A LOCATION FOR SYSTEM  TIME     
                      074623  SYSDAT BOOL    74623         CORE A LOCATION FOR SYSTEM INIT. DATE
                      076041  RCODE  BOOL    76041         CORE A LOCATION FOR RESTRICTION CODE VECTOR
                      074454  AUTOND BOOL    74454         CORE A AUTOMATIC LOGOUT INDICATOR    
                      074532  NUSERS BOOL    74532         CORE A LOGGED-IN USER COUNT    
                      076500  PROBN  BOOL    76500         CORE A PROBNO ARRAY
                      076305  UFDNM  BOOL    76305         CORE A UFDNM ARRAY 
                      074672  PB     BOOL    74672         CORE A GUARANTEED PERCENTAGE VECTOR BASE   
                       00050  N      EQU     40            CORE A MAX. NO. OF USERS (SIZE OF PROBN)   
                              *     
                      000017  BASE   BOOL    17            KEY CODE BASE
                      000001  I      BOOL    1             KEY CODE TO START INCREMENTAL DUMP   
                      000002  PAUSE  BOOL    2             KEY CODE TO WAIT FOR 1 MIN.    
                      000003  C      BOOL    3             KEY CODE TO DO COMPLETE DUMP   
                      000004  AK     BOOL    4             KEY CODE FOR IMPENDING AUTOLOGOUT    
                      000005  ENFLSH BOOL    5             KEY CODE TO ENTER FLUSH MODE   
                      000006  LVFLSH BOOL    6             KEY CODE TO LEAVE FLUSH MODE   
                      000007  ENDTAP BOOL    7             KEY CODE TO TERMINATE DUMP TAPE FILE 
                      000010  INT    BOOL    10            SIMULATE INTERRUPT 
                       00660  RECSIZ EQU     432           TAPE RECORD SIZE   
                       00006   NX    EQU     6             MAX. NO. OF SYSTEM FILE OWNERS 
                       00030  NCD    EQU     24            MAX. NO. 'DAYS' NON-USE OF CURRENT FILES   
                       00014  DINC   EQU     12            NO. DAYS OF 'RECENCY' INCREMENT (C.DUMP)   
                       01274  U      EQU     700           MAX. NO. USERS IN MFD USER LIST
                       03300  TBSIZ  EQU     4*RECSIZ      TAPE BUFFER SIZE   
                       00007  ERYSIZ EQU     7             I/O SYSTEM ERROR ARRAY SIZE    
                       00014  ERCODA EQU     12            'OPEN' ERROR CODE FOR FILE NOT FOUND 
                       00016  ERCODB EQU     14            'OPEN' ERROR CODE RQSTD. DEVICE UNAVBLE    
                       00660  NW     EQU     432           SIZE OF SECONDARY I/O FILE BUFFERS   
                       00001  LSDRUM EQU     1             I/O SYSTEM DEVICE CODE FOR L.S.DRUM  
                       00002    DISK EQU     2             I/O SYSTEM DEVICE CODE FOR DISK
1         SUBROUTINE TO PERFORM ONE GENERAL DUMP CYCLE....M.J.BAILEY,11/30/64    05/11/69 2010.4 PAGE 6     
                  
                       00003   TAPE  EQU     3             I/O SYSTEM DEVICE CODE FOR TAPE
                       00030  NHOUR  EQU     24            NO. OF HOURS IN A 'DAY'  
                       77461  KEYVAL COMMON  1             LAST KEY SETTING READ FROM SUPERVISOR
                       77460  FLSHSW COMMON  1             FLUSH MODE SWITCH  
                       77457  ENTPSW COMMON  1             OPERATOR-REQUESTED-END-TAPE INDICATOR
                       77456  NMFDU  COMMON  1             NO. USERS CURRENTLY IN LIST    
                       77455  EXEMPT COMMON  2*NX          LIST OF SYSTEM FILE OWNERS     
                       77441  NXMPT  COMMON  1             NO. FILE USERS EXEMPT FROM DUMP IN DCYCLE  
                       77440  DTLD   COMMON  U             TIME LAST DUMPED FOR EACH USER 
                       76144  PROGNO COMMON  U             PROGRAMMER NO. OF EACH USER    
                       74650  PROBNO COMMON  U             PROBLEM NO. OF EACH USER 
                       73354   FLUSH COMMON  1             NON-ZERO INDICATES FLUSH MODE IS FORCED    
                       73353   TND   COMMON  1             TIME OF NEXT DUMP FOR CURRENT USER   
                       70053         COMMON  TBSIZ-1       TAPE BUFFER  
                       70053  TPBUF  COMMON  1             TAPE BUFFER 1ST WORD     
                       64553         COMMON  TBSIZ-1       2ND TAPE BUFFER    
                       64553  TPBUF2 COMMON  1             2ND TAPE BUFFER, 1ST WORD
                       64544         COMMON  ERYSIZ-1      ERROR ARRAY  
                       64544  ERAY   COMMON  1             ERROR ARRAY 1ST WORD     
                       64526         COMMON  13            PRINT BUFFER 
                       64526   PBF   COMMON  1             PRINT BUFFER 1ST WORD    
                       64510         COMMON  13            MFD ENTRY BUFFER   
                       64510  MFDENT COMMON  1             MFD ENTRY BUFFER 1ST WORD
                       63630         COMMON  NW-1          SECONDARY I/0 FILE BUFFER
                       63630   IOBUF COMMON  1             SECONDARY IO BUFFER 1ST WORD   
                       62750         COMMON  NW-1          SECONDARY I/O FILE BUFFER
                       62750  IOBUF2 COMMON  1             SECONDARY I/O BUFFER 1ST WORD  
                       62747  UFDEOF COMMON  1             ZERO INDICATES EOF IN UFD FILE 
                       62741         COMMON  5             PARTIAL UFD ENTRY BUFFER 
                       62741  UFDENT COMMON  1             PARTIAL UFD ENTRY BUFFER 1ST WORD    
                       62740   MFDC  COMMON  1             NEXT WORD TO BE READ FROM MFD FILE   
                       62737   TLD   COMMON  1             TIME LAST DUMP OF USER CURRENTLY DUMPING   
                       62736   UFDC  COMMON  1             NEXT UNREAD POS. OF UFDFILE (NORMALLY ZERO)
                       62735  MFDEOF COMMON  1             ZERO INDICATES EOF IN MFD FILE 
                       62734   EOFCT COMMON  1             NO. OF WORDS READ BEFORE AN EOF
                       62733   FEOF  COMMON  1             ZERO INDICATES EOF IN A USER FILE    
                       62732  EOFCTA COMMON  1             NO. OF WORDS BEFORE AN EOF     
                       62731   DMPSW COMMON  1             NON-ZERO INDICATES A FILE HAS BEEN DUMPED  
                       62730   DAWN  COMMON  1             TIME OF START OF 'DAY'   
                       62727  DMPUSR COMMON  1             PROBLEM NO. OF DUMP/LOAD PACKAGE     
                       62726  DMPRGR COMMON  1             PROGRAMMER NO. OF  DITTO.
                       62727  DU     EQU     DMPUSR   
                       62726  DP     EQU     DMPRGR   
                       62725   MFD1W COMMON  1             NO. OF 1ST GOOD WORD IN MFD AND UFD FILES  
                       62723         COMMON  1             2ND PART OF DUMP TAPE FILE (COPY 1) NAME   
                       62723  NFN1   COMMON  1             1ST PART OF DUMP TAPE FILE (COPY 1) NAME   
                       62721         COMMON  1             2ND PART OF DUMP TAPE FILE (COPY 2) NAME   
                       62721   NFN2  COMMON  1             1ST PART OF DUMP TAPE FILE (COPY 2) NAME   
                       62720  TNDSW  COMMON  1             INDICATES TIME OF THIS DUMP CURRENT OR NO  
                       62040         COMMON  RECSIZ-1      INTERNAL TAPE BUFFER     
                       62040   ITB1  COMMON  1                ,,     ,,    ,,  1ST WORD   
                       61160         COMMON  RECSIZ-1      INTERNAL TAPE BUFFER     
                       61160   ITB2  COMMON  1                ,,     ,,  ,,  1ST WORD     
                       61157   DUSK  COMMON  1             TIME OF END OF CURRENT 'DAY'   
                       61156   ENDSW COMMON  1             IF 1, NORMAL END-OF-DAY,ELSE OPERATOR ONE  
                       60276         COMMON  NW-1          INTERNAL BUFFER FOR 'MAP' FILE 
1         SUBROUTINE TO PERFORM ONE GENERAL DUMP CYCLE....M.J.BAILEY,11/30/64    05/11/69 2010.4 PAGE 7     
                  
                       60276    IMP  COMMON  1                ,,      ,,    ,,   ,,   ,,  1ST WORD    
                       60267         COMMON  6             'MAP' FILE LINE PARAMETER ARRAY
                       60267  ARGLST COMMON  1               ,,   ,,   ,,      ,,      ,,  1ST WORD   
                       60266  CDSW   COMMON  1             NON-ZERO DURING COMPLETE DUMP,ELSE ZERO    
                       60265  DATE   COMMON  1             DATE THE DUMP NOW IN PROGRESS BEGAN  
                       60264  TIME   COMMON  1             TIME DUMP NOW IN PROGRESS BEGAN
                       60263  TCYCLE COMMON  1             'TIME' OF LAST CYCLE ON DUMP TAPE FILE     
                       60262  TFOSW  COMMON  1             NON-ZERO IF DUMP TAPE FILE IS OPEN   
                       60261  ALOG   COMMON  1             NON-ZERO IF AUTOLOGOUT ON
                       60260  SW1    COMMON  1  
                       60257  TCP    COMMON  1  
                       60256  TNDSAV COMMON  1  
                       60255  ODAWN  COMMON  1             TIME OF START OF PREVIOUS 'DAY'
                       60244         COMMON  8             TAPE LABEL   
                       60244  TAPEID COMMON  1             TAPE LABEL 1ST WORD
                       60243  SKELSW COMMON  1  
                       60254  REELNO EQU     TAPEID+8 
                                     END  
                  
        LITERALS  
      00257  000000000001     
      00260  000000000002     
      00261  234426430000     
      00262  777777770000     
1         SUBROUTINE TO PERFORM ONE GENERAL DUMP CYCLE....M.J.BAILEY,11/30/64    05/11/69 2010.4 PAGE 1     
                        POST PROCESSOR ASSEMBLY DATA  
                  
       60242 IS THE LAST LOCATION NOT USED BY THIS PROGRAM  
        263 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM  
                  
0REFERENCES TO DEFINED SYMBOLS      
          3      C   257
          1      I   257
         50      N   142,  155,  245,  257
       1274      U   257
          4     AK   257
      62726     DP   257
      62727     DU   257
        141     LA   146
        146     LB   157,  161
        150     LC   145
        660     NW   257
          6     NX   257
      74672     PB   257
         33     ZA    36
         36     ZB    34,   45
         40     ZC    35
         46     ZD    37
          0    GDT    23,  211
      60276    IMP   257
         10    INT   257
         30    NCD   257
         52    NXA    55
         55    NXB    53,   64
        110    NXC   100
        114    NXD   120
        120    NXE   111,  127
        122    NXF   116
        130    NXG   125
        162    NXH   135,  137,  147
        166    NXI   163
        207    NXX    67,  121,  153,  160,  170,  173,  177
        237    NXY    17,  233
        240    NXZ    20
      64526    PBF   257
      60260    SW1   257
      60257    TCP   257
      62737    TLD   132,  167,  257
      73353    TND   165,  172,  201,  212,  223,  257
      60261   ALOG   257
         17   BASE   257
      60266   CDSW    65,   77,  257
      60265   DATE   257
      62730   DAWN   257
         14   DINC   257
          2   DISK   257
      77440   DTLD   131,  202,  257
      61157   DUSK   224,  257
          7   DUSR   175
      64544   ERAY   257
      62733   FEOF   257
1         SUBROUTINE TO PERFORM ONE GENERAL DUMP CYCLE....M.J.BAILEY,11/30/64    05/11/69 2010.4 PAGE 2     
                        POST PROCESSOR ASSEMBLY DATA  
                  
          6   GETA   141,  154
      62040   ITB1   257
      61160   ITB2   257
      62740   MFDC    15,  257
      62723   NFN1   257
      62721   NFN2   257
         65   NXBA    27,   43,   62
         70   NXBB    47,   56
        104   NXBC    76,  102,  103
        230   NXIA   220
        234   NXIB    66,  107,  216,  222,  225
        213   NXXX   206,  210
        241   NXZZ    21
          3   TAPE   257
      60264   TIME   257
      62736   UFDC   257
        243  DATIM    24,  164
         30  DCYC4    22,  232,  236
      62731  DMPSW   257
          4  DUSRX   101
      61156  ENDSW   214,  221,  231,  257
      62734  EOFCT   257
      73354  FLUSH   134,  257
          1  GDSIG    25,   70,  133,  174,  213
      63630  IOBUF   257
      62725  MFD1W    14,  257
         30  NHOUR   257
      77456  NMFDU   110,  257
      77441  NXMPT    50,  257
         23  NXUSR   235
      60255  ODAWN   257
          2  PAUSE   257
      76500  PROBN   142,  257
      76041  RCODE   257
          2  RDMFD    26
       3300  TBSIZ   257
      60262  TFOSW   257
      62720  TNDSW   162,  207,  257
      70053  TPBUF   257
      76305  UFDNM   155,  257
        244  USERX   130,  200
        246 ALLDXM   256
      60267 ARGLST   257
      74454 AUTOND   257
         12 DCYCLE     0
      74446 DEMKEY   257
      62726 DMPRGR   257
          3 DMPUFD    73
      62727 DMPUSR   257
          5 DTSAVE   105,  204
          7 ENDTAP   257
          5 ENFLSH   257
      77457 ENTPSW   217,  257
      62732 EOFCTA   257
         14 ERCODA   257
1         SUBROUTINE TO PERFORM ONE GENERAL DUMP CYCLE....M.J.BAILEY,11/30/64    05/11/69 2010.4 PAGE 3     
                        POST PROCESSOR ASSEMBLY DATA  
                  
         16 ERCODB   257
          7 ERYSIZ   257
      77455 EXEMPT    52,   60,  257
      77460 FLSHSW   136,  257
      62750 IOBUF2   257
      77461 KEYVAL   257
          1 LSDRUM   257
          6 LVFLSH   257
      64510 MFDENT    32,   40,   44,   51,   57,   63,  113,  122,  126,  143,  150,  156,  166,  171,  257
      62735 MFDEOF    12,   16,  234,  257
        245 MXUSRS   140
        256 NALDXM    31,   33,   41
      74532 NUSERS   257
      74650 PROBNO   123,  257
      76144 PROGNO   114,  257
        660 RECSIZ   257
      60254 REELNO   257
      60243 SKELSW    71,  257
      74623 SYSDAT   257
      74624 SYSTIM   257
      60244 TAPEID   257
      60263 TCYCLE   257
      60256 TNDSAV   257
      64553 TPBUF2   257
      62741 UFDENT   257
      62747 UFDEOF   257
                  
0 NO ERROR IN ABOVE ASSEMBLY. 
1            DUMP TAPE FILE 'MAP' PREPARATION ROUTINES....M.J.BAILEY,12/15/64    05/11/69 2010.7 PAGE 1     
                  
                              *     
                       00023         ENTRY   MAPLIN        WRITE 1 MAP LINE (ALL DUMPS)   
                              *     
                       00467         ENTRY   SAVMAP   
                              *     
                       00307         ENTRY   SMF           START MAP FILE (ALL DUMPS)     
                              *     
                       00342         ENTRY   WMH           WRITE MAP HEADING (NOT FOR NEW-FILE DUMP)  
                              *     
                       00374         ENTRY   EMF           END MAP FILE (ALL DUMPS) 
                              *     
                       00510         ENTRY   DMF           DUMP AND REMOTE PRINT MAP FILE (ALL DUMPS) 
                              *     
                                     EXTERN  CHFILE,DELFIL,OPEN,BUFFER,CLOSE,TILOCK 
                                     EXTERN  FWAIT,WRFILE,ATTACH,FSTATE 
                              *     
                  
                              *     
                              *   WRITE ONE LINE IN TAPE 'MAP' FILE TO RECORD THE DUMPING OF A FILE   
                              *     
                  
        TRANSFER VECTOR 
      00000  233026314325     CHFILE
      00001  242543263143     DELFIL
      00002  464725456060     OPEN  
      00003  226426262551     BUFFER
      00004  234346622560     CLOSE 
      00005  633143462342     TILOCK
      00006  266621316360     FWAIT 
      00007  665126314325     WRFILE
      00010  216363212330     ATTACH
      00011  266263216325     FSTATE
      00012  272463606060     GDT   
      00013  242551222360     DERBC 
      00014  272462312760     GDSIG 
      00015  314622246360     IOBDT 
      00016  222324246344     BCDDTM
      00017  244447263143     DMPFIL
      00020  475145632551     PRNTER
                  
            LINKAGE DIRECTOR  
      00021  000000000000     
      00022  442147433145     
                  
      00023  0634 00 4 00260  MAPLIN SXA     MPG,4    
      00024  0634 00 2 00256         SXA     MPF,2    
      00025  0634 00 1 00255         SXA     MPE,1    
      00026 -0500 00 0 60267         CAL     ARGLST        SEE IF FILE TO BE RECORDED IS MAP ITSELF   
      00027 -0340 00 0 62727         LAS     DMPUSR        .
      00030  0020 00 0 00051         TRA     MPA           .
      00031  0020 00 0 00033         TRA     *+2           .
      00032  0020 00 0 00051         TRA     MPA           .
      00033 -0500 00 0 60270         CAL     ARGLST+1      .
      00034 -0340 00 0 62726         LAS     DMPRGR        .
      00035  0020 00 0 00051         TRA     MPA           .
      00036  0020 00 0 00040         TRA     *+2           .
1            DUMP TAPE FILE 'MAP' PREPARATION ROUTINES....M.J.BAILEY,12/15/64    05/11/69 2010.7 PAGE 2     
                  
      00037  0020 00 0 00051         TRA     MPA           .
      00040 -0500 00 0 60271         CAL     ARGLST+2      .
      00041 -0340 00 0 01052         LAS     MAP1          .
      00042  0020 00 0 00051         TRA     MPA           .
      00043  0020 00 0 00045         TRA     *+2           .
      00044  0020 00 0 00051         TRA     MPA           .
      00045 -0500 00 0 60272         CAL     ARGLST+3      .
      00046 -0340 00 0 01053         LAS     MAP2          .
      00047  0020 00 0 00051         TRA     MPA           .
      00050  0020 00 4 00001         TRA     1,4           EXIT IF MAP FILE ITSELF WAS TO BE RECORDED 
                              *     
      00051  0074 00 4 00010   MPA   TSX     ATTACH,4 
 TD   00052  3 00000 0 62727         TXH     DMPUSR   
 TD   00053  3 00000 0 62726         TXH     DMPRGR   
      00054  0534 00 1 01055         LXA     COUNT,1  
      00055  2 00001 1 00262         TIX     MWAIT,1,1
      00056  0074 00 4 00004         TSX     CLOSE,4  
 TD   00057  3 00000 0 01052         TXH     MAP1     
 TD   00060  3 00000 0 01053         TXH     MAP2     
      00061  0074 00 4 00324         TSX     SMF2,4   
      00062  0774 00 1 00031         AXT     25,1     
      00063  0634 00 1 01055  NOCLOS SXA     COUNT,1  
                              *     
      00064  0774 00 1 00021         AXT     17,1          CLEAR LINE BUFFER  
      00065  0600 00 1 01105         STZ     T+18,1   
      00066  2 00001 1 00065         TIX     *-1,1,1  
      00067 -0500 00 0 01125         CAL     =O777777000023 
      00070  0602 00 0 01063         SLW     T             SET LINE-MARKED BCD CONTROL WORD IN LINE   
                              *     
      00071  0074 00 4 00012         TSX     $GDT,4        GET I/O SYSTEM FORM CURRENT DATE/TIME
      00072  0074 00 2 00266         TSX     DT,2          CONVERT IT TO '0  MM/DD/YY HHMM.M' IN TEMP 
      00073  0560 00 0 01060         LDQ     TEMP          PACK AND STORE CURRENT DATE/TIME IN LINE   
      00074 -0763 00 0 00014         LGL     12 
      00075 -0500 00 0 01123         CAL     =H 
      00076 -0763 00 0 00030         LGL     24 
      00077  0560 00 0 01061         LDQ     TEMP+1   
      00100 -0763 00 0 00006         LGL     6  
      00101  0602 00 0 01064         SLW     T+1
      00102 -0763 00 0 00036         LGL     30 
      00103  0560 00 0 01062         LDQ     TEMP+2   
      00104 -0763 00 0 00006         LGL     6  
      00105  0602 00 0 01065         SLW     T+2
      00106 -0763 00 0 00036         LGL     30 
      00107  0767 00 0 00006         ALS     6  
      00110 -0501 00 0 01111         ORA     =O60     
      00111  0602 00 0 01066         SLW     T+3
                              *     
      00112  0560 00 0 60267         LDQ     ARGLST        GET FILE'S USER PROB. NO.
      00113 -0500 00 0 01054         CAL     BLANKS        AND PACK AND STORE IT IN LINE BUFFER 
      00114 -0763 00 0 00022         LGL     18 
      00115  0602 00 0 01067         SLW     T+4
      00116 -0763 00 0 00022         LGL     18 
      00117  0767 00 0 00006         ALS     6  
      00120 -0501 00 0 01111         ORA     =O60     
                              *     
      00121  0560 00 0 60270         LDQ     ARGLST+1      FILE'S USER PROGRAMMER NO.     
1            DUMP TAPE FILE 'MAP' PREPARATION ROUTINES....M.J.BAILEY,12/15/64    05/11/69 2010.7 PAGE 3     
                  
      00122 -0763 00 0 00014         LGL     12            PACK AND STORE IT IN LINE BUFFER     
      00123  0602 00 0 01070         SLW     T+5
      00124 -0763 00 0 00030         LGL     24 
      00125  0560 00 0 01054         LDQ     BLANKS   
      00126 -0763 00 0 00014         LGL     12 
      00127  0602 00 0 01071         SLW     T+6
                              *     
      00130 -0500 00 0 60271         CAL     ARGLST+2      GET FILE'S 1ST NAME
      00131  0602 00 0 01072         SLW     T+7           STORE IN LINE BUFFER     
      00132 -0500 00 0 01111         CAL     =O60     
                              *     
      00133  0560 00 0 60272         LDQ     ARGLST+3      PACK AND STORE FILE'S 2ND NAME 
      00134 -0763 00 0 00036         LGL     30 
      00135  0602 00 0 01073         SLW     T+8
      00136 -0763 00 0 00006         LGL     6  
      00137  0602 00 0 01056         SLW     HOLD          HOLD LAST CHAR. OF FILE NAME   
                              *     
      00140 -0500 00 0 60273         CAL     ARGLST+4      GET DATE/TIME FILE LAST MODIFIED     
      00141 -0100 00 0 00147         TNZ     MPB
      00142 -0500 00 0 01054         CAL     BLANKS        BLANKS IF DATE/TIME ZERO 
      00143  0602 00 0 01060         SLW     TEMP     
      00144  0602 00 0 01061         SLW     TEMP+1   
      00145  0602 00 0 01062         SLW     TEMP+2   
      00146  0020 00 0 00150         TRA     *+2
      00147  0074 00 2 00266   MPB   TSX     DT,2          CONVERT DATE/TIME FILE LAST MODIFIED TO BCD
      00150  0560 00 0 01060         LDQ     TEMP          PACK AND STORE IT IN LINE BUFFER     
      00151 -0763 00 0 00006         LGL     6  
 T    00152 -0754 00 0 00000         PXD  
      00153 -0500 00 0 01056         CAL     HOLD     
      00154 -0763 00 0 00036         LGL     30 
      00155  0602 00 0 01074         SLW     T+9
      00156 -0500 00 0 01061         CAL     TEMP+1   
      00157  0602 00 0 01075         SLW     T+10     
      00160 -0500 00 0 01062         CAL     TEMP+2   
      00161  0602 00 0 01076         SLW     T+11     
                              *     
      00162 -0500 00 0 60274         CAL     ARGLST+5      GET DATE/TIME USER LAST DUMPED 
      00163 -0100 00 0 00171         TNZ     MPC
      00164 -0500 00 0 01054         CAL     BLANKS        BLANKS IF DATE/TIME ZERO 
      00165  0602 00 0 01060         SLW     TEMP     
      00166  0602 00 0 01061         SLW     TEMP+1   
      00167  0602 00 0 01062         SLW     TEMP+2   
      00170  0020 00 0 00172         TRA     *+2
      00171  0074 00 2 00266   MPC   TSX     DT,2          CONVERT DATE/TIME USER LAST DUMPED TO BCD  
      00172  0560 00 0 01060         LDQ     TEMP          AND PACK AND STORE IT IN LINE BUFFER 
      00173 -0763 00 0 00006         LGL     6  
      00174 -0500 00 0 01054         CAL     BLANKS   
      00175 -0763 00 0 00030         LGL     24 
      00176  0602 00 0 01077         SLW     T+12     
      00177 -0763 00 0 00006         LGL     6  
      00200  0560 00 0 01061         LDQ     TEMP+1   
      00201 -0763 00 0 00036         LGL     30 
      00202  0602 00 0 01100         SLW     T+13     
      00203 -0763 00 0 00006         LGL     6  
      00204 -0520 00 0 60266         NZT     CDSW     
      00205  0020 00 0 00210         TRA     *+3           SKIP IF INCREMENTAL DUMP 
1            DUMP TAPE FILE 'MAP' PREPARATION ROUTINES....M.J.BAILEY,12/15/64    05/11/69 2010.7 PAGE 4     
                  
      00206  0560 00 0 01054         LDQ     BLANKS        IF COMPLETE DUMP ARGLST+5 IS   
      00207  0020 00 0 00211         TRA     *+2           DATE FILE LAST USED (NO TIME)  
      00210  0560 00 0 01062         LDQ     TEMP+2   
      00211 -0763 00 0 00036         LGL     30 
      00212  0602 00 0 01101         SLW     T+14     
      00213 -0763 00 0 00006         LGL     6  
      00214  0602 00 0 01056         SLW     HOLD          HOLD LAST CHAR. OF DATE/TIME LAST DUMPED   
                              *     
      00215 -0500 00 0 60275         CAL     ARGLST+6      GET DATE/TIME OF THIS DUMP     
      00216 -0100 00 0 00224         TNZ     MPD
      00217 -0500 00 0 01054         CAL     BLANKS        BLANKS IF DATE/TIME ZERO 
      00220  0602 00 0 01060         SLW     TEMP     
      00221  0602 00 0 01061         SLW     TEMP+1   
      00222  0602 00 0 01062         SLW     TEMP+2   
      00223  0020 00 0 00225         TRA     *+2
      00224  0074 00 2 00266   MPD   TSX     DT,2          CONVERT DATE/TIME OF THIS DUMP TO BCD
      00225  0560 00 0 01060         LDQ     TEMP          AND PACK AND STORE IT IN LINE BUFFER 
      00226 -0763 00 0 00006         LGL     6  
 T    00227 -0754 00 0 00000         PXD  
      00230 -0500 00 0 01056         CAL     HOLD     
      00231 -0763 00 0 00036         LGL     30 
      00232  0602 00 0 01102         SLW     T+15     
      00233 -0500 00 0 01061         CAL     TEMP+1   
      00234  0602 00 0 01103         SLW     T+16     
      00235 -0500 00 0 01062         CAL     TEMP+2   
      00236  0602 00 0 01104         SLW     T+17     
      00237  0500 00 0 60254         CLA     REELNO        PUT REEL NUMBER INTO OUTPUT LINE     
      00240  0400 00 0 01110         ADD     =1 
      00241  0601 00 0 01106         STO     T+19     
      00242  0074 00 4 00013         TSX     $DERBC,4 
      00243  3 00000 0 01106         PTH     T+19     
      00244 -0501 00 0 01121         ORA     =O575757600000 
      00245  0602 00 0 01106         SLW     T+19     
      00246 -0500 00 0 01122         CAL     =H  REEL 
      00247  0602 00 0 01105         SLW     T+18     
                              *     
      00250  0074 00 4 00007         TSX     WRFILE,4      WRITE LINE FROM BUFFER ONTO DISK FILE
 TD   00251  3 00000 0 01052         TXH     MAP1     
 TD   00252  3 00000 0 01053         TXH     MAP2     
 TD   00253  3 00000 0 01107         TXH     =0 
      00254  2 01057 0 01063         TIX     T,,L20   
                              *     
      00255  0774 00 1 00000   MPE   AXT     **,1     
      00256  0774 00 2 00000  MPF    AXT     **,2     
      00257  0074 00 4 00014         TSX     $GDSIG,4 
      00260  0774 00 4 00000   MPG   AXT     **,4     
      00261  0020 00 4 00001         TRA     1,4           RETURN TO CALLER   
                              *     
      00262  0074 00 4 00006  MWAIT  TSX     FWAIT,4  
 TD   00263  3 00000 0 01052         TXH     MAP1     
 TD   00264  3 00000 0 01053         TXH     MAP2     
      00265  0020 00 0 00063         TRA     NOCLOS   
                              *     
                              *      CONVERT I/O SYSTEM FORM DATE/TIME TO     
                              *      '0 MM/DD/YY HHMM.M' IN BCD,  
                              *      AND STORE IN TEMP,TEMP+1,TEMP+2.   
1            DUMP TAPE FILE 'MAP' PREPARATION ROUTINES....M.J.BAILEY,12/15/64    05/11/69 2010.7 PAGE 5     
                  
                              *     
      00266  0074 00 4 00015   DT    TSX     $IOBDT,4      CONVERT I/O SYSTEM DATE/TIME   
      00267  0602 00 0 01062         SLW     TEMP+2        TO HHMM.M IN AC AND MMDDYY IN MQ     
      00270 -0500 00 0 01115         CAL     =O006060 
      00271 -0763 00 0 00014         LGL     12 
      00272  0767 00 0 00006         ALS     6  
      00273 -0501 00 0 01112         ORA     =O61     
      00274  0602 00 0 01060         SLW     TEMP          '0  MM/' TO TEMP   
 T    00275 -0754 00 0 00000         PXD  
      00276 -0763 00 0 00014         LGL     12 
      00277  0767 00 0 00006         ALS     6  
      00300 -0501 00 0 01112         ORA     =O61     
      00301 -0763 00 0 00014         LGL     12 
      00302  0767 00 0 00006         ALS     6  
      00303 -0501 00 0 01111         ORA     =O60     
      00304  0602 00 0 01061         SLW     TEMP+1        'DD/YY ' TO TEMP+1 
 T    00305 -0754 00 0 00000         PXD  
      00306  0020 00 2 00001         TRA     1,2
                              *     
                              *      INITIATE MAP FILE
                              *     
      00307  0634 00 4 00340  SMF    SXA     SMF4,4   
      00310  0074 00 4 00000         TSX     CHFILE,4 
 TD   00311  3 00000 0 01052         TXH     MAP1     
 TD   00312  3 00000 0 01053         TXH     MAP2     
 TD   00313  3 00000 0 01107         TXH     =O0           DE-PROTECT OLD 'MAP' FILE
 TD   00314  3 00000 0 01116         TXH     =-0
 TD   00315  3 00000 0 01116         TXH     =-0
 TD   00316  3 00000 0 00317         TXH     *+1
                              *     
      00317  0074 00 4 00001         TSX     DELFIL,4      DELETE IT    
 TD   00320  3 00000 0 01052         TXH     MAP1     
 TD   00321  3 00000 0 01053         TXH     MAP2     
 TD   00322  3 00000 0 00323         TXH     *+1
      00323  0020 00 0 00325         TRA     *+2
      00324  0634 00 4 00340  SMF2   SXA     SMF4,4   
                              *     
      00325  0074 00 4 00002         TSX     OPEN,4        OPEN NEW MAP FILE  
 TD   00326  3 00000 0 00640         TXH     W  
 TD   00327  3 00000 0 01052         TXH     MAP1     
 TD   00330  3 00000 0 01053         TXH     MAP2     
 TD   00331  3 00000 0 01114         TXH     =O130         (MODE PROTECTED,PRIVATE) 
 TD   00332  3 00000 0 00642         TXH     LDSK     
      00333  0074 00 4 00003         TSX     BUFFER,4      ASSIGN INTERNAL BUFFERS  
 TD   00334  3 00000 0 01052         TXH     MAP1     
 TD   00335  3 00000 0 01053         TXH     MAP2     
      00336  2 00641 0 60276         TIX     IMP,,LIMP
      00337  0074 00 4 00014         TSX     $GDSIG,4 
      00340  0774 00 4 00000  SMF4   AXT     **,4     
      00341  0020 00 4 00001         TRA     1,4
                              *     
                              *      WRITE HEADING FOR MAP OF SYSTEM FILE COMPLETE DUMP AND     
                              *       FOR MAP OF USER FILE COMPLETE DUMP TAPES.     
                              *     
      00342  0634 00 4 00372  WMH    SXA     WMH4,4   
      00343 -0500 60 4 00001         CAL*    1,4           STATE WHICH SET OF FILES BEING DUMPED
1            DUMP TAPE FILE 'MAP' PREPARATION ROUTINES....M.J.BAILEY,12/15/64    05/11/69 2010.7 PAGE 6     
                  
      00344  0602 00 0 00713         SLW     CMA           (SYSTEM OR USERS') 
      00345 -0500 00 0 60264         CAL     TIME       STORE TIME DUMPING STARTED  
      00346  0602 00 0 00731         SLW     CMB
      00347  0560 00 0 60265         LDQ     DATE       STORE DATE DUMPING STARTED  
      00350 -0500 00 0 01126         CAL     =O777777770000 
      00351  0320 00 0 00732         ANS     CMC
 T    00352 -0754 00 0 00000         PXD  
      00353 -0763 00 0 00014         LGL     12 
      00354 -0602 00 0 00732         ORS     CMC           STORE MONTH DIGITS OF DATE DUMPING STARTED 
      00355 -0500 00 0 01124         CAL     =O770000770000 
      00356  0320 00 0 00733         ANS     CMD
 T    00357 -0754 00 0 00000         PXD  
      00360 -0763 00 0 00014         LGL     12 
      00361  0767 00 0 00006         ALS     6  
      00362 -0763 00 0 00014         LGL     12 
      00363 -0602 00 0 00733         ORS     CMD           STORE DAY,YEAR DIGITS OF DATE DUMP STARTED 
                              *     
      00364  0074 00 4 00007         TSX     WRFILE,4      WRITE HEADING ON MAP FILE
 TD   00365  3 00000 0 01052         TXH     MAP1     
 TD   00366  3 00000 0 01053         TXH     MAP2          (WHICH IS LINE-MARKED BCD)     
 TD   00367  3 00000 0 01107         TXH     =0 
      00370  2 01013 0 00657         TIX     CDMHED,,LCMHD  
      00371  0074 00 4 00014         TSX     $GDSIG,4 
      00372  0774 00 4 00000  WMH4   AXT     **,4     
      00373  0020 00 4 00002         TRA     2,4
                              *     
                              *      END 'MAP' FILE   
                              *     
      00374  0634 00 4 00465  EMF    SXA     EMF4,4   
      00375  0500 00 4 00001         CLA     1,4           SET ADDRESS OF THE POSITION OF DATE/TIME   
      00376 -0520 60 4 00001         NZT*    1,4           DUMPING ENDED IN HEADING OF MAP
      00377  0500 00 0 01032         CLA     AMPINS   
      00400  0621 00 0 00457         STA     EMF1     
                              *     
      00401  0074 00 4 00016         TSX     $BCDDTM,4     GET CURRENT DATE/TIME FOR 'MAP' HEADING    
      00402  0602 00 0 01026         SLW     MPINS         STORE TIME DUMPING FINISHED    
      00403 -0500 00 0 01126         CAL     =O777777770000 
      00404  0320 00 0 01027         ANS     MPINS+1  
 T    00405 -0754 00 0 00000         PXD  
      00406 -0763 00 0 00014         LGL     12 
      00407 -0602 00 0 01027         ORS     MPINS+1       STORE 1ST PART OF DATE DUMPING ENDED 
      00410 -0500 00 0 01124         CAL     =O770000770000 
      00411  0320 00 0 01030         ANS     MPINS+2  
 T    00412 -0754 00 0 00000         PXD  
      00413 -0763 00 0 00014         LGL     12 
      00414  0767 00 0 00006         ALS     6  
      00415 -0763 00 0 00014         LGL     12 
      00416 -0602 00 0 01030         ORS     MPINS+2       STORE 2ND PART OF DATE DUMPING ENDED 
                              *     
      00417  0074 00 4 00010         TSX     ATTACH,4 
 TD   00420  3 00000 0 62727         TXH     DMPUSR   
 TD   00421  3 00000 0 62726         TXH     DMPRGR   
      00422  0074 00 4 00006         TSX     FWAIT,4       WAIT FOR PREVIOUS 'MAP' FILE WRITE TO END  
 TD   00423  3 00000 0 01052         TXH     MAP1     
 TD   00424  3 00000 0 01053         TXH     MAP2     
      00425  0074 00 4 00007         TSX     WRFILE,4      WRITE MAP TAIL ENDING    
1            DUMP TAPE FILE 'MAP' PREPARATION ROUTINES....M.J.BAILEY,12/15/64    05/11/69 2010.7 PAGE 7     
                  
 TD   00426  3 00000 0 01052         TXH     MAP1     
 TD   00427  3 00000 0 01053         TXH     MAP2     
 TD   00430  3 00000 0 01107         TXH     =0 
      00431  2 01025 0 01014  FAKOUT TIX     MAPTL,,LMTL    
      00432  0074 00 4 00006         TSX     FWAIT,4       WAIT FOR IT  
 TD   00433  3 00000 0 01052         TXH     MAP1     
 TD   00434  3 00000 0 01053         TXH     MAP2     
      00435  0074 00 4 00004         TSX     CLOSE,4  
 TD   00436  3 00000 0 01052         TXH     MAP1     
 TD   00437  3 00000 0 01053         TXH     MAP2     
      00440  0074 00 4 00000         TSX     CHFILE,4 
 TD   00441  3 00000 0 01052         TXH     MAP1     
 TD   00442  3 00000 0 01053         TXH     MAP2     
 TD   00443  3 00000 0 01113         TXH     =O120    
      00444  0074 00 4 00002         TSX     OPEN,4   
 TD   00445  3 00000 0 00640         TXH     W  
 TD   00446  3 00000 0 01052         TXH     MAP1     
 TD   00447  3 00000 0 01053         TXH     MAP2     
      00450  0074 00 4 00003         TSX     BUFFER,4 
 TD   00451  3 00000 0 01052         TXH     MAP1     
 TD   00452  3 00000 0 01053         TXH     MAP2     
      00453  3 00641 0 60276         TXH     IMP,,LIMP
                              *     
      00454  0074 00 4 00007         TSX     WRFILE,4      INSERT DATE/TIME DUMPING ENDED 
 TD   00455  3 00000 0 01052         TXH     MAP1          INTO HEADING OF MAP
 TD   00456  3 00000 0 01053         TXH     MAP2     
 TD   00457  3 00000 0 00000  EMF1   TXH     ** 
      00460  3 00003 0 01026         TXH     MPINS,,3 
      00461  0074 00 4 00004         TSX     CLOSE,4       CLOSE IT     
 TD   00462  3 00000 0 01052         TXH     MAP1     
 TD   00463  3 00000 0 01053         TXH     MAP2     
                              *     
      00464  0074 00 4 00014         TSX     $GDSIG,4 
      00465  0774 00 4 00000  EMF4   AXT     **,4     
      00466  0020 00 4 00002         TRA     2,4           RETURN TO CALLER   
                              *     
                              *      ENTRY TO SAVE MAP AFTER MACHINE FAILURE  
                              *     
      00467  0634 00 4 00504  SAVMAP SXA     S4,4     
      00470 -0500 00 4 00001         CAL     1,4
      00471  0621 00 0 00500         STA     S4-4     
      00472  0074 00 4 00324         TSX     SMF2,4   
      00473 -0500 00 0 00431         CAL     FAKOUT   
      00474  0602 00 0 00506         SLW     FSAVE    
      00475 -0500 00 0 00507         CAL     ICT
      00476  0602 00 0 00431         SLW     FAKOUT   
      00477  0074 00 4 00374         TSX     EMF,4    
 TD   00500  3 00000 0 00000         TXH     ** 
      00501 -0500 00 0 00506         CAL     FSAVE    
      00502  0602 00 0 00431         SLW     FAKOUT   
      00503  0074 00 4 00530         TSX     DMF2,4   
      00504  0774 00 4 00000  S4     AXT     **,4     
      00505  0020 00 4 00001         TRA     1,4
                              *     
      00506  0 00000 0 00000  FSAVE  PZE  
      00507  2 00656 0 00643  ICT    TIX     FLM,,LFLM
1            DUMP TAPE FILE 'MAP' PREPARATION ROUTINES....M.J.BAILEY,12/15/64    05/11/69 2010.7 PAGE 8     
                  
                              *     
                              *      DUMP MAP FILE AND COPY IT ON TO PRINT OUTPUT TAPE    
                              *     
      00510  0634 00 4 00610  DMF    SXA     DMF4,4   
      00511  0634 00 1 00611         SXA     DMF1,1   
      00512  0074 00 4 00000         TSX     CHFILE,4 
 TD   00513  3 00000 0 01052         TXH     MAP1          MAKE IT PERMANENT MODE IN
 TD   00514  3 00000 0 01053         TXH     MAP2          ORDER TO DUMP IT   
 TD   00515  3 00000 0 01113         TXH     =O120    
      00516 -0500 00 0 01052         CAL     MAP1          MAP FILE'S NAMES   
      00517  0602 00 0 62741         SLW     UFDENT   
      00520 -0500 00 0 01053         CAL     MAP2     
      00521  0602 00 0 62742         SLW     UFDENT+1 
      00522 -0500 00 0 62727         CAL     DMPUSR        DUMP PROGRAM'S U.F.D. NAMES    
      00523  0602 00 0 64510         SLW     MFDENT   
      00524 -0500 00 0 62726         CAL     DMPRGR   
      00525  0602 00 0 64511         SLW     MFDENT+1 
      00526  0074 00 4 00017         TSX     $DMPFIL,4     DUMP MAP FILE
      00527  0020 00 0 00532         TRA     *+3
                              *     
      00530  0634 00 4 00610  DMF2   SXA     DMF4,4   
      00531  0634 00 1 00611         SXA     DMF1,1   
      00532  0074 00 4 00016         TSX     $BCDDTM,4     CURRENT BCD DATE TIME    
      00533 -0600 00 0 01035         STQ     PRM5          DATE WILL BE 1ST PART OF NEW MAP FILE NAME 
      00534  0602 00 0 01037         SLW     PRM6          TIME  ,,  ,, 2ND  ,,  ,,  ,,  ,,  ,,   ,,  
      00535  0074 00 4 00000         TSX     CHFILE,4      CHANGE NAME OF MAP FILE FOR PRINTING 
 TD   00536  3 00000 0 01052         TXH     MAP1     
 TD   00537  3 00000 0 01053         TXH     MAP2     
 TD   00540  3 00000 0 01107         TXH     =0            REGULAR PERMANENT MODE   
 TD   00541  3 00000 0 01035         TXH     PRM5     
 TD   00542  3 00000 0 01037         TXH     PRM6     
                              *     
      00543  0774 00 1 00003         AXT     3,1
      00544  0074 00 4 00005         TSX     TILOCK,4 
      00545  0 00000 0 00547         PZE     ORQFS    
      00546  0621 00 0 00606         STA     DMFC     
      00547  0074 00 4 00011  ORQFS  TSX     FSTATE,4 
 TD   00550  3 00000 0 01117         TXH     =HOUTPUT 
 TD   00551  3 00000 0 01120         TXH     =HRQUEST 
      00552  3 00002 0 00620         TXH     A,,2     
 TD   00553  3 00000 0 00562         TXH     DMFA     
      00554 -0500 00 0 00621         CAL     A+1
      00555 -0320 00 0 01110         ANA     =1 
      00556 -0100 00 0 00613         TNZ     DELRQS   
      00557 -0500 00 0 00621         CAL     A+1
      00560 -0320 00 0 00630         ANA     SMODE    
      00561 -0100 00 0 00547         TNZ     ORQFS    
      00562  0074 00 4 00002  DMFA   TSX     OPEN,4        MAKE PRINT OUTPUT REQUEST FOR MAP    
 TD   00563  3 00000 0 00640         TXH     W  
 TD   00564  3 00000 0 01117         TXH     =HOUTPUT 
 TD   00565  3 00000 0 01120         TXH     =HRQUEST 
 TD   00566  3 00000 0 01107         TXH     =0 
 TD   00567  3 00000 0 00642         TXH     LDSK     
      00570  0074 00 4 00003         TSX     BUFFER,4 
 TD   00571  3 00000 0 01117         TXH     =HOUTPUT 
 TD   00572  3 00000 0 01120         TXH     =HRQUEST 
1            DUMP TAPE FILE 'MAP' PREPARATION ROUTINES....M.J.BAILEY,12/15/64    05/11/69 2010.7 PAGE 9     
                  
      00573  2 00641 0 60276         TIX     IMP,,LIMP
      00574  0074 00 4 00007         TSX     WRFILE,4 
 TD   00575  3 00000 0 01117         TXH     =HOUTPUT 
 TD   00576  3 00000 0 01120         TXH     =HRQUEST 
 TD   00577  3 00000 0 01107         TXH     =0 
      00600  2 01051 0 01033         TIX     PRM1,,L14
      00601  0074 00 4 00004         TSX     CLOSE,4  
 TD   00602  3 00000 0 01117         TXH     =HOUTPUT 
 TD   00603  3 00000 0 01120         TXH     =HRQUEST 
 TD   00604  3 00000 0 00631         TXH     ERR
      00605  0074 00 4 00005  DMFB   TSX     TILOCK,4 
      00606  0 00000 0 00000  DMFC   PZE     ** 
                              *     
      00607  0074 00 4 00014         TSX     $GDSIG,4 
      00610  0774 00 4 00000  DMF4   AXT     **,4     
      00611  0774 00 1 00000  DMF1   AXT     **,1     
      00612  0020 00 4 00001         TRA     1,4           RETURN TO CALLER   
      00613  0074 00 4 00001  DELRQS TSX     DELFIL,4 
 TD   00614  3 00000 0 01117         TXH     =HOUTPUT 
 TD   00615  3 00000 0 01120         TXH     =HRQUEST 
 TD   00616  3 00000 0 00617         TXH     *+1
      00617  0020 00 0 00562         TRA     DMFA     
                              *     
      00620                   A      BSS     8  
      00630 +000000000124     SMODE  OCT     124
                              *     
                              *     
      00631  0074 00 4 00020  ERR    TSX     $PRNTER,4
      00632  0074 00 4 00014         TSX     $GDSIG,4 
      00633  0074 00 4 00004         TSX     CLOSE,4  
 TD   00634  3 00000 0 01117         TXH     =HOUTPUT 
 TD   00635  3 00000 0 01120         TXH     =HRQUEST 
      00636  2 00001 1 00562         TIX     DMFA,1,1 
      00637  0020 00 0 00605         TRA     DMFB     
                              *     
      00640  666060606060     W      BCI     1,W
      00641  0 00000 0 00660  LIMP   PZE     NW 
      00642  0 00000 0 00002  LDSK   PZE     DISK     
                              *     
      00643 -377777000001     FLM    OCT     777777000001   
      00644  606060606060            BCI     1, 
      00645 -377777000001            OCT     777777000001   
      00646  606060606060            BCI     1, 
      00647 -377777000006            OCT     777777000006   
      00650  006060606060            BCI     6,0     END OF MAP (INCOMPLETE TAPE)   
      00651  254524604626     
      00652  604421476074     
      00653  314523464447     
      00654  432563256063     
      00655  214725346060     
      00656  0 00000 0 00013  LFLM   PZE     *-FLM    
                              *     
      00657 -377777000016     CDMHED OCT     777777000016   
      00660  016060606060            BCI     7,1
      00661  606060606060     
      00662  606060606060     
1            DUMP TAPE FILE 'MAP' PREPARATION ROUTINES....M.J.BAILEY,12/15/64    05/11/69 2010.7 PAGE 10    
                  
      00663  606060606060     
      00664  606060606060     
      00665  606060606060     
      00666  606060606060     
      00667  604421476046            BCI     7, MAP OF THE CONTENTS OF THE DUMP TAPE FILE 
      00670  266063302560     
      00671  234645632545     
      00672  636260462660     
      00673  633025602464     
      00674  444760632147     
      00675  256026314325     
      00676 -377777000017            OCT     777777000017   
      00677  006060606060            BCI     7,0
      00700  606060606060     
      00701  606060606060     
      00702  606060606060     
      00703  606060606060     
      00704  606060606060     
      00705  606060606060     
      00706  602646516063            BCI     5, FOR THE COMPLETE DUMP OF THE  
      00707  302560234644     
      00710  474325632560     
      00711  246444476046     
      00712  266063302560     
      00713  606060606060     CMA    BCI     3,       FILES,
      00714  602631432562     
      00715  736060606060     
      00716 -377777000015            OCT     777777000015   
      00717  006060606060            BCI     7,0
      00720  606060606060     
      00721  606060606060     
      00722  606060606060     
      00723  606060606060     
      00724  606060606060     
      00725  606060606060     
      00726  606630312330            BCI     3, WHICH STARTED AT  
      00727  606263215163     
      00730  252460216360     
      00731  606060606060     CMB    BCI     1, 
      00732  604645606060     CMC    BCI     1, ON    
      00733  616060616060     CMD    BCI     1,/  /   
      00734 -377777000016            OCT     777777000016   
      00735  006060606060            BCI     7,0
      00736  606060606060     
      00737  606060606060     
      00740  606060606060     
      00741  606060606060     
      00742  606060606060     
      00743  606060606060     
      00744  606021452460            BCI     3,  AND FINISHED AT  
      00745  263145316230     
      00746  252460216360     
      00747  606060606060     CME    BCI     1, 
      00750  604645606060            BCI     1, ON    
      00751  616060616060            BCI     2,/  /  .
      00752  336060606060     
1            DUMP TAPE FILE 'MAP' PREPARATION ROUTINES....M.J.BAILEY,12/15/64    05/11/69 2010.7 PAGE 11    
                  
      00753 -377777000017            OCT     777777000017   
      00754  006060606331            BCI     9,0   TIME DUMPED          USER           FILE      DATE 
      00755  442560246444     
      00756  472524606060     
      00757  606060606060     
      00760  606462255160     
      00761  606060606060     
      00762  606060602631     
      00763  432560606060     
      00764  606024216325     
      00765  616331442560            BCI     6,/TIME OF FILE    WHEN LAST USED
      00766  462660263143     
      00767  256060606066     
      00770  302545604321     
      00771  626360646225     
      00772  246060606060     
      00773 -377777000017            OCT     777777000017   
      00774  606060604040            BCI     9,    -----------          ----           ----      ---- 
      00775  404040404040     
      00776  404040606060     
      00777  606060606060     
      01000  604040404060     
      01001  606060606060     
      01002  606060604040     
      01003  404060606060     
      01004  606040404040     
      01005  404040404040            BCI     6,-------------    --------------
      01006  404040404040     
      01007  406060606040     
      01010  404040404040     
      01011  404040404040     
      01012  406060606060     
      01013  0 00000 0 00134  LCMHD  PZE     *-CDMHED 
      01014 -377777000001     MAPTL  OCT     777777000001   
      01015  606060606060            BCI     1, 
      01016 -377777000001            OCT     777777000001   
      01017  606060606060            BCI     1, 
      01020 -377777000004            OCT     777777000004   
      01021  006060606060            BCI     4,0         END OF MAP.    
      01022  606060602545     
      01023  246046266044     
      01024  214733606060     
      01025  0 00000 0 00011  LMTL   PZE     *-MAPTL  
      01026  606060606060     MPINS  BCI     3,       ON   /  /   
      01027  604645606060     
      01030  616060616060     
      01031  0 00000 0 00071  IMPINS PZE     CME-CDMHED+1   
      01032  0 00000 0 01031  AMPINS PZE     IMPINS   
                              *     
      01033  475145242543     PRM1   BCI     1,PRNDEL 
      01034  606060606060            BCI     1, 
      01035  606060606060     PRM5   BCI     1,            MAP FILE OUTPUT REQUEST NAME PART 1  
      01036  606060606060            BCI     1, 
      01037  606060606060     PRM6   BCI     1,            MAP FILE OUTPUT REQUEST NAME PART 2  
      01040  606060606060            BCI     7, 
      01041  606060606060     
1            DUMP TAPE FILE 'MAP' PREPARATION ROUTINES....M.J.BAILEY,12/15/64    05/11/69 2010.7 PAGE 12    
                  
      01042  606060606060     
      01043  606060606060     
      01044  606060606060     
      01045  606060606060     
      01046  606060606060     
      01047  602300000506            BCI     2, C0056 99999 
      01050  601111111111     
      01051  0 00000 0 00016  L14    PZE     14 
                              *     
      01052  246444476347      MAP1  BCI     1,DUMPTP 
      01053  601444214714      MAP2  BCI     1, 'MAP' 
      01054  606060606060     BLANKS BCI     1, 
      01055  0 00000 0 00031  COUNT  PZE     25 
      01056  0 00000 0 00000   HOLD  PZE  
      01057  0 00000 0 00024  L20    PZE     20 
      01060                   TEMP   BSS     3  
      01063                   T      BSS     20 
                              *     
                                     INSERT  DCMEQB   
                              *     
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
                              *    COMMON AND EQUIVALENCE FOR GENERAL DUMP PROGRAM  
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
                              *     
                      074446  DEMKEY BOOL    74446         CORE A LOCATION FOR DAEMON'S KEY SETTING   
                      074624  SYSTIM BOOL    74624         CORE A LOCATION FOR SYSTEM  TIME     
                      074623  SYSDAT BOOL    74623         CORE A LOCATION FOR SYSTEM INIT. DATE
                      076041  RCODE  BOOL    76041         CORE A LOCATION FOR RESTRICTION CODE VECTOR
                      074454  AUTOND BOOL    74454         CORE A AUTOMATIC LOGOUT INDICATOR    
                      074532  NUSERS BOOL    74532         CORE A LOGGED-IN USER COUNT    
                      076500  PROBN  BOOL    76500         CORE A PROBNO ARRAY
                      076305  UFDNM  BOOL    76305         CORE A UFDNM ARRAY 
                      074672  PB     BOOL    74672         CORE A GUARANTEED PERCENTAGE VECTOR BASE   
                       00050  N      EQU     40            CORE A MAX. NO. OF USERS (SIZE OF PROBN)   
                              *     
                      000017  BASE   BOOL    17            KEY CODE BASE
                      000001  I      BOOL    1             KEY CODE TO START INCREMENTAL DUMP   
                      000002  PAUSE  BOOL    2             KEY CODE TO WAIT FOR 1 MIN.    
                      000003  C      BOOL    3             KEY CODE TO DO COMPLETE DUMP   
                      000004  AK     BOOL    4             KEY CODE FOR IMPENDING AUTOLOGOUT    
                      000005  ENFLSH BOOL    5             KEY CODE TO ENTER FLUSH MODE   
                      000006  LVFLSH BOOL    6             KEY CODE TO LEAVE FLUSH MODE   
                      000007  ENDTAP BOOL    7             KEY CODE TO TERMINATE DUMP TAPE FILE 
                      000010  INT    BOOL    10            SIMULATE INTERRUPT 
                       00660  RECSIZ EQU     432           TAPE RECORD SIZE   
                       00006   NX    EQU     6             MAX. NO. OF SYSTEM FILE OWNERS 
                       00030  NCD    EQU     24            MAX. NO. 'DAYS' NON-USE OF CURRENT FILES   
                       00014  DINC   EQU     12            NO. DAYS OF 'RECENCY' INCREMENT (C.DUMP)   
                       01274  U      EQU     700           MAX. NO. USERS IN MFD USER LIST
                       03300  TBSIZ  EQU     4*RECSIZ      TAPE BUFFER SIZE   
                       00007  ERYSIZ EQU     7             I/O SYSTEM ERROR ARRAY SIZE    
                       00014  ERCODA EQU     12            'OPEN' ERROR CODE FOR FILE NOT FOUND 
                       00016  ERCODB EQU     14            'OPEN' ERROR CODE RQSTD. DEVICE UNAVBLE    
                       00660  NW     EQU     432           SIZE OF SECONDARY I/O FILE BUFFERS   
                       00001  LSDRUM EQU     1             I/O SYSTEM DEVICE CODE FOR L.S.DRUM  
                       00002    DISK EQU     2             I/O SYSTEM DEVICE CODE FOR DISK
1            DUMP TAPE FILE 'MAP' PREPARATION ROUTINES....M.J.BAILEY,12/15/64    05/11/69 2010.7 PAGE 13    
                  
                       00003   TAPE  EQU     3             I/O SYSTEM DEVICE CODE FOR TAPE
                       00030  NHOUR  EQU     24            NO. OF HOURS IN A 'DAY'  
                       77461  KEYVAL COMMON  1             LAST KEY SETTING READ FROM SUPERVISOR
                       77460  FLSHSW COMMON  1             FLUSH MODE SWITCH  
                       77457  ENTPSW COMMON  1             OPERATOR-REQUESTED-END-TAPE INDICATOR
                       77456  NMFDU  COMMON  1             NO. USERS CURRENTLY IN LIST    
                       77455  EXEMPT COMMON  2*NX          LIST OF SYSTEM FILE OWNERS     
                       77441  NXMPT  COMMON  1             NO. FILE USERS EXEMPT FROM DUMP IN DCYCLE  
                       77440  DTLD   COMMON  U             TIME LAST DUMPED FOR EACH USER 
                       76144  PROGNO COMMON  U             PROGRAMMER NO. OF EACH USER    
                       74650  PROBNO COMMON  U             PROBLEM NO. OF EACH USER 
                       73354   FLUSH COMMON  1             NON-ZERO INDICATES FLUSH MODE IS FORCED    
                       73353   TND   COMMON  1             TIME OF NEXT DUMP FOR CURRENT USER   
                       70053         COMMON  TBSIZ-1       TAPE BUFFER  
                       70053  TPBUF  COMMON  1             TAPE BUFFER 1ST WORD     
                       64553         COMMON  TBSIZ-1       2ND TAPE BUFFER    
                       64553  TPBUF2 COMMON  1             2ND TAPE BUFFER, 1ST WORD
                       64544         COMMON  ERYSIZ-1      ERROR ARRAY  
                       64544  ERAY   COMMON  1             ERROR ARRAY 1ST WORD     
                       64526         COMMON  13            PRINT BUFFER 
                       64526   PBF   COMMON  1             PRINT BUFFER 1ST WORD    
                       64510         COMMON  13            MFD ENTRY BUFFER   
                       64510  MFDENT COMMON  1             MFD ENTRY BUFFER 1ST WORD
                       63630         COMMON  NW-1          SECONDARY I/0 FILE BUFFER
                       63630   IOBUF COMMON  1             SECONDARY IO BUFFER 1ST WORD   
                       62750         COMMON  NW-1          SECONDARY I/O FILE BUFFER
                       62750  IOBUF2 COMMON  1             SECONDARY I/O BUFFER 1ST WORD  
                       62747  UFDEOF COMMON  1             ZERO INDICATES EOF IN UFD FILE 
                       62741         COMMON  5             PARTIAL UFD ENTRY BUFFER 
                       62741  UFDENT COMMON  1             PARTIAL UFD ENTRY BUFFER 1ST WORD    
                       62740   MFDC  COMMON  1             NEXT WORD TO BE READ FROM MFD FILE   
                       62737   TLD   COMMON  1             TIME LAST DUMP OF USER CURRENTLY DUMPING   
                       62736   UFDC  COMMON  1             NEXT UNREAD POS. OF UFDFILE (NORMALLY ZERO)
                       62735  MFDEOF COMMON  1             ZERO INDICATES EOF IN MFD FILE 
                       62734   EOFCT COMMON  1             NO. OF WORDS READ BEFORE AN EOF
                       62733   FEOF  COMMON  1             ZERO INDICATES EOF IN A USER FILE    
                       62732  EOFCTA COMMON  1             NO. OF WORDS BEFORE AN EOF     
                       62731   DMPSW COMMON  1             NON-ZERO INDICATES A FILE HAS BEEN DUMPED  
                       62730   DAWN  COMMON  1             TIME OF START OF 'DAY'   
                       62727  DMPUSR COMMON  1             PROBLEM NO. OF DUMP/LOAD PACKAGE     
                       62726  DMPRGR COMMON  1             PROGRAMMER NO. OF  DITTO.
                       62727  DU     EQU     DMPUSR   
                       62726  DP     EQU     DMPRGR   
                       62725   MFD1W COMMON  1             NO. OF 1ST GOOD WORD IN MFD AND UFD FILES  
                       62723         COMMON  1             2ND PART OF DUMP TAPE FILE (COPY 1) NAME   
                       62723  NFN1   COMMON  1             1ST PART OF DUMP TAPE FILE (COPY 1) NAME   
                       62721         COMMON  1             2ND PART OF DUMP TAPE FILE (COPY 2) NAME   
                       62721   NFN2  COMMON  1             1ST PART OF DUMP TAPE FILE (COPY 2) NAME   
                       62720  TNDSW  COMMON  1             INDICATES TIME OF THIS DUMP CURRENT OR NO  
                       62040         COMMON  RECSIZ-1      INTERNAL TAPE BUFFER     
                       62040   ITB1  COMMON  1                ,,     ,,    ,,  1ST WORD   
                       61160         COMMON  RECSIZ-1      INTERNAL TAPE BUFFER     
                       61160   ITB2  COMMON  1                ,,     ,,  ,,  1ST WORD     
                       61157   DUSK  COMMON  1             TIME OF END OF CURRENT 'DAY'   
                       61156   ENDSW COMMON  1             IF 1, NORMAL END-OF-DAY,ELSE OPERATOR ONE  
                       60276         COMMON  NW-1          INTERNAL BUFFER FOR 'MAP' FILE 
1            DUMP TAPE FILE 'MAP' PREPARATION ROUTINES....M.J.BAILEY,12/15/64    05/11/69 2010.7 PAGE 14    
                  
                       60276    IMP  COMMON  1                ,,      ,,    ,,   ,,   ,,  1ST WORD    
                       60267         COMMON  6             'MAP' FILE LINE PARAMETER ARRAY
                       60267  ARGLST COMMON  1               ,,   ,,   ,,      ,,      ,,  1ST WORD   
                       60266  CDSW   COMMON  1             NON-ZERO DURING COMPLETE DUMP,ELSE ZERO    
                       60265  DATE   COMMON  1             DATE THE DUMP NOW IN PROGRESS BEGAN  
                       60264  TIME   COMMON  1             TIME DUMP NOW IN PROGRESS BEGAN
                       60263  TCYCLE COMMON  1             'TIME' OF LAST CYCLE ON DUMP TAPE FILE     
                       60262  TFOSW  COMMON  1             NON-ZERO IF DUMP TAPE FILE IS OPEN   
                       60261  ALOG   COMMON  1             NON-ZERO IF AUTOLOGOUT ON
                       60260  SW1    COMMON  1  
                       60257  TCP    COMMON  1  
                       60256  TNDSAV COMMON  1  
                       60255  ODAWN  COMMON  1             TIME OF START OF PREVIOUS 'DAY'
                       60244         COMMON  8             TAPE LABEL   
                       60244  TAPEID COMMON  1             TAPE LABEL 1ST WORD
                       60243  SKELSW COMMON  1  
                       60254  REELNO EQU     TAPEID+8 
                                     END  
                  
        LITERALS  
      01107  000000000000     
      01110  000000000001     
      01111  000000000060     
      01112  000000000061     
      01113  000000000120     
      01114  000000000130     
      01115  000000006060     
      01116  400000000000     
      01117  466463476463     
      01120  515064256263     
      01121  575757600000     
      01122  606051252543     
      01123  606060606060     
      01124  770000770000     
      01125  777777000023     
      01126  777777770000     
1            DUMP TAPE FILE 'MAP' PREPARATION ROUTINES....M.J.BAILEY,12/15/64    05/11/69 2010.7 PAGE 1     
                        POST PROCESSOR ASSEMBLY DATA  
                  
       60242 IS THE LAST LOCATION NOT USED BY THIS PROGRAM  
       1127 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM  
                  
0REFERENCES TO DEFINED SYMBOLS      
        620      A   552,  554,  557
          3      C  1107
          1      I  1107
         50      N  1107
       1063      T    65,   70,  101,  105,  111,  115,  123,  127,  131,  135,  155,  157,  161,  176,  202,  212,  232
                     234,  236,  241,  243,  245,  247,  254
       1274      U  1107
        640      W   326,  445,  563
          4     AK  1107
      62726     DP  1107
        266     DT    72,  147,  171,  224
      62727     DU  1107
        660     NW   641, 1107
          6     NX  1107
      74672     PB  1107
        504     S4   467,  471
        713    CMA   344
        731    CMB   346
        732    CMC   351,  354
        733    CMD   356,  363
        747    CME  1031
        510    DMF     0
        374    EMF     0,  477
        631    ERR   604
        643    FLM   507,  656
         12    GDT    71
        507    ICT   475
      60276    IMP   336,  453,  573, 1107
         10    INT  1107
       1051    L14   600
       1057    L20   254
         51    MPA    30,   32,   35,   37,   42,   44,   47
        147    MPB   141
        171    MPC   163
        224    MPD   216
        255    MPE    25
        256    MPF    24
        260    MPG    23
         30    NCD  1107
      64526    PBF  1107
        307    SMF     0
      60260    SW1  1107
      60257    TCP  1107
      62737    TLD  1107
      73353    TND  1107
        342    WMH     0
      60261   ALOG  1107
         17   BASE  1107
      60266   CDSW   204, 1107
      60265   DATE   347, 1107
1            DUMP TAPE FILE 'MAP' PREPARATION ROUTINES....M.J.BAILEY,12/15/64    05/11/69 2010.7 PAGE 2     
                        POST PROCESSOR ASSEMBLY DATA  
                  
      62730   DAWN  1107
         14   DINC  1107
          2   DISK   642, 1107
        611   DMF1   511,  531
        530   DMF2   503
        610   DMF4   510,  530
        562   DMFA   553,  617,  636
        605   DMFB   637
        606   DMFC   546
      77440   DTLD  1107
      61157   DUSK  1107
        457   EMF1   400
        465   EMF4   374
      64544   ERAY  1107
      62733   FEOF  1107
       1056   HOLD   137,  153,  214,  230
      62040   ITB1  1107
      61160   ITB2  1107
        642   LDSK   332,  567
        656   LFLM   507
        641   LIMP   336,  453,  573
       1025   LMTL   431
       1052   MAP1    41,   57,  251,  263,  311,  320,  327,  334,  365,  423,  426,  433,  436,  441,  446,  451,  455
                     462,  513,  516,  536
       1053   MAP2    46,   60,  252,  264,  312,  321,  330,  335,  366,  424,  427,  434,  437,  442,  447,  452,  456
                     463,  514,  520,  537
      62740   MFDC  1107
      62723   NFN1  1107
      62721   NFN2  1107
          2   OPEN   325,  444,  562
       1033   PRM1   600
       1035   PRM5   533,  541
       1037   PRM6   534,  542
        324   SMF2    61,  472
        340   SMF4   307,  324
          3   TAPE  1107
       1060   TEMP    73,   77,  103,  143,  144,  145,  150,  156,  160,  165,  166,  167,  172,  200,  210,  220,  221
                     222,  225,  233,  235,  267,  274,  304
      60264   TIME   345, 1107
      62736   UFDC  1107
        372   WMH4   342
          4  CLOSE    56,  435,  461,  601,  633
       1055  COUNT    54,   63
         13  DERBC   242
      62731  DMPSW  1107
      61156  ENDSW  1107
      62734  EOFCT  1107
      73354  FLUSH  1107
        506  FSAVE   474,  501
          6  FWAIT   262,  422,  432
         14  GDSIG   257,  337,  371,  464,  607,  632
         15  IOBDT   266
      63630  IOBUF  1107
       1013  LCMHD   370
       1014  MAPTL   431, 1025
1            DUMP TAPE FILE 'MAP' PREPARATION ROUTINES....M.J.BAILEY,12/15/64    05/11/69 2010.7 PAGE 3     
                        POST PROCESSOR ASSEMBLY DATA  
                  
      62725  MFD1W  1107
       1026  MPINS   402,  404,  407,  411,  416,  460
        262  MWAIT    55
         30  NHOUR  1107
      77456  NMFDU  1107
      77441  NXMPT  1107
      60255  ODAWN  1107
        547  ORQFS   545,  561
          2  PAUSE  1107
      76500  PROBN  1107
      76041  RCODE  1107
        630  SMODE   560
       3300  TBSIZ  1107
      60262  TFOSW  1107
      62720  TNDSW  1107
      70053  TPBUF  1107
      76305  UFDNM  1107
       1032 AMPINS   377
      60267 ARGLST    26,   33,   40,   45,  112,  121,  130,  133,  140,  162,  215, 1107
         10 ATTACH    51,  417
      74454 AUTOND  1107
         16 BCDDTM   401,  532
       1054 BLANKS   113,  125,  142,  164,  174,  206,  217
          3 BUFFER   333,  450,  570
        657 CDMHED   370, 1013, 1031
          0 CHFILE   310,  440,  512,  535
          1 DELFIL   317,  613
        613 DELRQS   556
      74446 DEMKEY  1107
         17 DMPFIL   526
      62726 DMPRGR    34,   53,  421,  524, 1107
      62727 DMPUSR    27,   52,  420,  522, 1107
          7 ENDTAP  1107
          5 ENFLSH  1107
      77457 ENTPSW  1107
      62732 EOFCTA  1107
         14 ERCODA  1107
         16 ERCODB  1107
          7 ERYSIZ  1107
      77455 EXEMPT  1107
        431 FAKOUT   473,  476,  502
      77460 FLSHSW  1107
         11 FSTATE   547
       1031 IMPINS  1032
      62750 IOBUF2  1107
      77461 KEYVAL  1107
          1 LSDRUM  1107
          6 LVFLSH  1107
         23 MAPLIN     0
      64510 MFDENT   523,  525, 1107
      62735 MFDEOF  1107
         63 NOCLOS   265
      74532 NUSERS  1107
         20 PRNTER   631
      74650 PROBNO  1107
1            DUMP TAPE FILE 'MAP' PREPARATION ROUTINES....M.J.BAILEY,12/15/64    05/11/69 2010.7 PAGE 4     
                        POST PROCESSOR ASSEMBLY DATA  
                  
      76144 PROGNO  1107
        660 RECSIZ  1107
      60254 REELNO   237, 1107
        467 SAVMAP     0
      60243 SKELSW  1107
      74623 SYSDAT  1107
      74624 SYSTIM  1107
      60244 TAPEID  1107
      60263 TCYCLE  1107
          5 TILOCK   544,  605
      60256 TNDSAV  1107
      64553 TPBUF2  1107
      62741 UFDENT   517,  521, 1107
      62747 UFDEOF  1107
          7 WRFILE   250,  364,  425,  454,  574
                  
0 NO ERROR IN ABOVE ASSEMBLY. 
1            START DUMP TAPE FILE.....M.J.BAILEY,12/15/64                        05/11/69 2010.9 PAGE 1     
                  
                              *     
                       00020         ENTRY   SDF
                              *     
                                     EXTERN  BUFFER,ATTACH,CHFILE,TAPFIL
                                     EXTERN  MOUNT,LABEL,OPEN,DELFIL    
                  
        TRANSFER VECTOR 
      00000  226426262551     BUFFER
      00001  216363212330     ATTACH
      00002  233026314325     CHFILE
      00003  632147263143     TAPFIL
      00004  444664456360     MOUNT 
      00005  432122254360     LABEL 
      00006  464725456060     OPEN  
      00007  242543263143     DELFIL
      00010  272462312760     GDSIG 
      00011  222324246344     BCDDTM
      00012  272463606060     GDT   
      00013  665145266060     WRNF  
      00014  222551446060     BERM  
      00015  255151254524     ERREND
                  
            LINKAGE DIRECTOR  
      00016  000000000000     
      00017  622426606060     
                  
      00020  0634 00 1 00205  SDF    SXA     SDY,1    
      00021  0634 00 4 00206         SXA     SDZ,4    
      00022  0600 00 0 60254         STZ     REELNO   
      00023  0500 00 4 00001         CLA     1,4           ADDRESS OF TAPE-MOUNT MESSAGE  
      00024  0601 00 0 00055         STO     SDFA     
      00025  0601 00 0 00105         STO     SDFC     
                              *     
      00026  0074 00 4 00010         TSX     $GDSIG,4 
      00027  0074 00 4 00001         TSX     ATTACH,4 
 TD   00030  3 00000 0 62727         TXH     DMPUSR   
 TD   00031  3 00000 0 62726         TXH     DMPRGR   
      00032  0074 00 4 00002         TSX     CHFILE,4      DE-PROTECT OLD DUMP TAPE FILE (COPY 1)     
 TD   00033  3 00000 0 62723         TXH     NFN1     
 TD   00034  3 00000 0 62724         TXH     NFN1+1   
 TD   00035  3 00000 0 00231         TXH     =O0
 TD   00036  3 00000 0 00237         TXH     =-0
 TD   00037  3 00000 0 00237         TXH     =-0
 TD   00040  3 00000 0 00041         TXH     *+1
      00041  0074 00 4 00007         TSX     DELFIL,4      DELETE IT    
 TD   00042  3 00000 0 62723         TXH     NFN1     
 TD   00043  3 00000 0 62724         TXH     NFN1+1   
 TD   00044  3 00000 0 00045         TXH     *+1
      00045  0074 00 4 00003         TSX     TAPFIL,4      DECLARE UNIT 11,FILE 1, TO BE  
 TD   00046  3 00000 0 62723         TXH     NFN1          DUMP FILE COPY 1   
 TD   00047  3 00000 0 62724         TXH     NFN1+1   
 TD   00050  3 00000 0 00234         TXH     =11
 TD   00051  3 00000 0 00231         TXH     =0 
      00052  0074 00 4 00004         TSX     MOUNT,4       ASK OPERATOR FOR REEL    
 TD   00053  3 00000 0 00232         TXH     =1            ON CHANNEL A 
 TD   00054  3 00000 0 00234         TXH     =11           ON UNIT 11,GIVE HIM MESSAGE    
1            START DUMP TAPE FILE.....M.J.BAILEY,12/15/64                        05/11/69 2010.9 PAGE 2     
                  
      00055  2 00000 0 00000  SDFA   TIX     **,,**   
      00056  0074 00 4 00005         TSX     LABEL,4       GIVE I/O SYSTEM TAPE LABEL     
 TD   00057  3 00000 0 00234         TXH     =11
      00060  2 00225 0 60244         TIX     TAPEID,,L4     
 TD   00061  3 00000 0 00052         TXH     *-7
                              *     
      00062  0074 00 4 00002         TSX     CHFILE,4      DE-PROTECT OLD DUMP TAPE FILE (COPY 2)     
 TD   00063  3 00000 0 62721         TXH     NFN2     
 TD   00064  3 00000 0 62722         TXH     NFN2+1   
 TD   00065  3 00000 0 00231         TXH     =O0
 TD   00066  3 00000 0 00237         TXH     =-0
 TD   00067  3 00000 0 00237         TXH     =-0
 TD   00070  3 00000 0 00071         TXH     *+1
      00071  0074 00 4 00007         TSX     DELFIL,4      DELETE IT    
 TD   00072  3 00000 0 62721         TXH     NFN2     
 TD   00073  3 00000 0 62722         TXH     NFN2+1   
 TD   00074  3 00000 0 00075         TXH     *+1
      00075  0074 00 4 00003         TSX     TAPFIL,4      DECLARE UNIT 12,FILE 1, TO BE  
 TD   00076  3 00000 0 62721         TXH     NFN2          DUMP FILE COPY 2   
 TD   00077  3 00000 0 62722         TXH     NFN2+1   
 TD   00100  3 00000 0 00235         TXH     =12
 TD   00101  3 00000 0 00231         TXH     =0 
      00102  0074 00 4 00004         TSX     MOUNT,4       ASK OPERATOR FOR REEL    
 TD   00103  3 00000 0 00233         TXH     =2            ON CHANNEL B 
 TD   00104  3 00000 0 00235         TXH     =12           ON UNIT 12, GIVE HIM MESSAGE   
      00105  2 00000 0 00000  SDFC   TIX     **,,**   
      00106  0074 00 4 00005         TSX     LABEL,4       GIVE I/O SYSTEM TAPE LABEL     
 TD   00107  3 00000 0 00235         TXH     =12
      00110  2 00225 0 60244         TIX     TAPEID,,L4     
 TD   00111  3 00000 0 00102         TXH     *-7
                              *     
                              *      OPEN DUMP TAPE FILES   
                              *     
      00112  0074 00 4 00006   IDNA  TSX     OPEN,4        NOW, OPEN DUMP TAPE FILES
 TD   00113  3 00000 0 00221         TXH     W  
 TD   00114  3 00000 0 62723         TXH     NFN1     
 TD   00115  3 00000 0 62724         TXH     NFN1+1   
 TD   00116  3 00000 0 00236         TXH     =O120    
 TD   00117  3 00000 0 00220         TXH     LTAPE    
 TD   00120  3 00000 0 00210         TXH     ERRID4   
      00121  0074 00 4 00000  IDO    TSX     BUFFER,4 
 TD   00122  3 00000 0 62723         TXH     NFN1     
 TD   00123  3 00000 0 62724         TXH     NFN1+1   
      00124  2 00222 0 62040         TIX     ITB1,,LITB1    
      00125  0074 00 4 00006   IDOA  TSX     OPEN,4   
 TD   00126  3 00000 0 00221         TXH     W  
 TD   00127  3 00000 0 62721         TXH     NFN2     
 TD   00130  3 00000 0 62722         TXH     NFN2+1   
 TD   00131  3 00000 0 00236         TXH     =O120    
 TD   00132  3 00000 0 00220         TXH     LTAPE    
 TD   00133  3 00000 0 00214         TXH     ERRID5   
      00134  0074 00 4 00000  IDP    TSX     BUFFER,4 
 TD   00135  3 00000 0 62721         TXH     NFN2     
 TD   00136  3 00000 0 62722         TXH     NFN2+1   
      00137  2 00223 0 61160         TIX     ITB2,,LITB2    
      00140  0500 00 0 60262         CLA     TFOSW    
1            START DUMP TAPE FILE.....M.J.BAILEY,12/15/64                        05/11/69 2010.9 PAGE 3     
                  
      00141  0400 00 0 00232         ADD     =1 
      00142  0601 00 0 60262         STO     TFOSW    
                              *     
                              *      PREPARE THEN WRITE TAPE I.D. RECORD
                              *     
      00143  0774 00 1 00650         AXT     RECSIZ-8,1     
      00144  0600 00 1 70733         STZ     TPBUF+RECSIZ,1  CLEAR ALL BUT BOTTOM OF BUFFER     
      00145  2 00001 1 00144         TIX     *-1,1,1  
      00146  0774 00 1 00004         AXT     4,1
      00147 -0500 00 1 60250  IDX    CAL     TAPEID+4,1    STORE HEADER LABEL IN BUFFER   
      00150  0602 00 1 70057         SLW     TPBUF+4,1
      00151  2 00001 1 00147         TIX     IDX,1,1  
      00152  0074 00 4 00011         TSX     $BCDDTM,4     CURRENT DATE/TIME  
      00153  0602 00 0 70057         SLW     TPBUF+4       TIME (HHMM.M IN BCD)     
      00154  0602 00 0 60264         SLW     TIME          SAVE TIME DUMPING STARTED
      00155 -0600 00 0 70060         STQ     TPBUF+5       DATE (MMDDYY IN BCD)     
      00156 -0600 00 0 60265         STQ     DATE          SAVE DATE DUMPING STARTED
      00157  0074 00 4 00012         TSX     $GDT,4        I/O SYSTEM FORM CURRENT DATE/TIME    
      00160  0602 00 0 70061         SLW     TPBUF+6  
      00161  0774 00 1 00004         AXT     4,1
      00162 -0500 00 1 70063         CAL     TPBUF+8,1
      00163  0602 00 1 60254         SLW     TAPEID+8,1     
      00164  2 00001 1 00162         TIX     *-2,1,1  
      00165 -0500 00 0 00224         CAL     LRSIZ    
      00166  0771 00 0 00003         ARS     3             RECSIZ/8  (INTEGER)
      00167  0402 00 0 00232         SUB     =1            RECSIZ/8-1   
      00170  0767 00 0 00003         ALS     3             (RECSIZ/8-1)*8     
      00171  0734 00 4 00000         PAX     0,4
      00172 -0760 00 0 00016         EMTM 
      00173  0774 00 1 00000         AXT     0,1           REPEAT THE 8 I.D. WORDS  
      00174 -0500 00 1 70062         CAL     TPBUF+7,1     THROUGHOUT THE FIRST PHYSICAL RECORD 
      00175  0602 00 5 70742         SLW     TPBUF+RECSIZ/8*8+7,5 
      00176  1 00001 1 00177         TXI     *+1,1,1  
      00177 -3 00007 1 00174         TXL     *-3,1,7  
      00200  2 00010 4 00173         TIX     *-5,4,8  
      00201  0760 00 0 00016         LMTM 
                              *     
      00202  0074 00 4 00013         TSX     $WRNF,4       WRITE DUMP TAPE(S) ID RECORD   
 TD   00203  3 00000 0 70053         TXH     TPBUF    
 TD   00204  3 00000 0 00224         TXH     LRSIZ    
                              *     
      00205  0774 00 1 00000   SDY   AXT     **,1     
      00206  0774 00 4 00000   SDZ   AXT     **,4     
      00207  0020 00 4 00002         TRA     2,4
                              *     
      00210  0074 00 4 00014  ERRID4 TSX     $BERM,4       PRINT STANDARD MESSAGE   
      00211  0 00000 0 00240         PZE     =HSDF01  
      00212  0074 00 4 00015         TSX     $ERREND,4
      00213  0020 00 0 00112         TRA     IDNA          TRY AGAIN    
                              *     
      00214  0074 00 4 00014  ERRID5 TSX     $BERM,4       PRINT STANDARD MESSAGE   
      00215  0 00000 0 00241         PZE     =HSDF02  
      00216  0074 00 4 00015         TSX     $ERREND,4
      00217  0020 00 0 00125         TRA     IDOA          TRY AGAIN    
                              *     
                              *      CONSTANTS, VARIABLES, ETC.   
1            START DUMP TAPE FILE.....M.J.BAILEY,12/15/64                        05/11/69 2010.9 PAGE 4     
                  
                              *     
      00220  0 00000 0 00003  LTAPE  PZE     TAPE     
      00221  666060606060      W     BCI     1,W
      00222  0 00000 0 01540   LITB1 PZE     2*RECSIZ 
      00223  0 00000 0 01540   LITB2 PZE     2*RECSIZ 
      00224  0 00000 0 00660   LRSIZ PZE     RECSIZ   
      00225  0 00000 0 00004  L4     PZE     4  
      00226  643326332433     UFDNAM BCI     2,U.F.D.(FILE) 
      00227  742631432534     
      00230  443326332433     MFDNAM BCI     1,M.F.D. 
                                     INSERT  DCMEQB   
                              *     
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
                              *    COMMON AND EQUIVALENCE FOR GENERAL DUMP PROGRAM  
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
                              *     
                      074446  DEMKEY BOOL    74446         CORE A LOCATION FOR DAEMON'S KEY SETTING   
                      074624  SYSTIM BOOL    74624         CORE A LOCATION FOR SYSTEM  TIME     
                      074623  SYSDAT BOOL    74623         CORE A LOCATION FOR SYSTEM INIT. DATE
                      076041  RCODE  BOOL    76041         CORE A LOCATION FOR RESTRICTION CODE VECTOR
                      074454  AUTOND BOOL    74454         CORE A AUTOMATIC LOGOUT INDICATOR    
                      074532  NUSERS BOOL    74532         CORE A LOGGED-IN USER COUNT    
                      076500  PROBN  BOOL    76500         CORE A PROBNO ARRAY
                      076305  UFDNM  BOOL    76305         CORE A UFDNM ARRAY 
                      074672  PB     BOOL    74672         CORE A GUARANTEED PERCENTAGE VECTOR BASE   
                       00050  N      EQU     40            CORE A MAX. NO. OF USERS (SIZE OF PROBN)   
                              *     
                      000017  BASE   BOOL    17            KEY CODE BASE
                      000001  I      BOOL    1             KEY CODE TO START INCREMENTAL DUMP   
                      000002  PAUSE  BOOL    2             KEY CODE TO WAIT FOR 1 MIN.    
                      000003  C      BOOL    3             KEY CODE TO DO COMPLETE DUMP   
                      000004  AK     BOOL    4             KEY CODE FOR IMPENDING AUTOLOGOUT    
                      000005  ENFLSH BOOL    5             KEY CODE TO ENTER FLUSH MODE   
                      000006  LVFLSH BOOL    6             KEY CODE TO LEAVE FLUSH MODE   
                      000007  ENDTAP BOOL    7             KEY CODE TO TERMINATE DUMP TAPE FILE 
                      000010  INT    BOOL    10            SIMULATE INTERRUPT 
                       00660  RECSIZ EQU     432           TAPE RECORD SIZE   
                       00006   NX    EQU     6             MAX. NO. OF SYSTEM FILE OWNERS 
                       00030  NCD    EQU     24            MAX. NO. 'DAYS' NON-USE OF CURRENT FILES   
                       00014  DINC   EQU     12            NO. DAYS OF 'RECENCY' INCREMENT (C.DUMP)   
                       01274  U      EQU     700           MAX. NO. USERS IN MFD USER LIST
                       03300  TBSIZ  EQU     4*RECSIZ      TAPE BUFFER SIZE   
                       00007  ERYSIZ EQU     7             I/O SYSTEM ERROR ARRAY SIZE    
                       00014  ERCODA EQU     12            'OPEN' ERROR CODE FOR FILE NOT FOUND 
                       00016  ERCODB EQU     14            'OPEN' ERROR CODE RQSTD. DEVICE UNAVBLE    
                       00660  NW     EQU     432           SIZE OF SECONDARY I/O FILE BUFFERS   
                       00001  LSDRUM EQU     1             I/O SYSTEM DEVICE CODE FOR L.S.DRUM  
                       00002    DISK EQU     2             I/O SYSTEM DEVICE CODE FOR DISK
                       00003   TAPE  EQU     3             I/O SYSTEM DEVICE CODE FOR TAPE
                       00030  NHOUR  EQU     24            NO. OF HOURS IN A 'DAY'  
                       77461  KEYVAL COMMON  1             LAST KEY SETTING READ FROM SUPERVISOR
                       77460  FLSHSW COMMON  1             FLUSH MODE SWITCH  
                       77457  ENTPSW COMMON  1             OPERATOR-REQUESTED-END-TAPE INDICATOR
                       77456  NMFDU  COMMON  1             NO. USERS CURRENTLY IN LIST    
                       77455  EXEMPT COMMON  2*NX          LIST OF SYSTEM FILE OWNERS     
                       77441  NXMPT  COMMON  1             NO. FILE USERS EXEMPT FROM DUMP IN DCYCLE  
1            START DUMP TAPE FILE.....M.J.BAILEY,12/15/64                        05/11/69 2010.9 PAGE 5     
                  
                       77440  DTLD   COMMON  U             TIME LAST DUMPED FOR EACH USER 
                       76144  PROGNO COMMON  U             PROGRAMMER NO. OF EACH USER    
                       74650  PROBNO COMMON  U             PROBLEM NO. OF EACH USER 
                       73354   FLUSH COMMON  1             NON-ZERO INDICATES FLUSH MODE IS FORCED    
                       73353   TND   COMMON  1             TIME OF NEXT DUMP FOR CURRENT USER   
                       70053         COMMON  TBSIZ-1       TAPE BUFFER  
                       70053  TPBUF  COMMON  1             TAPE BUFFER 1ST WORD     
                       64553         COMMON  TBSIZ-1       2ND TAPE BUFFER    
                       64553  TPBUF2 COMMON  1             2ND TAPE BUFFER, 1ST WORD
                       64544         COMMON  ERYSIZ-1      ERROR ARRAY  
                       64544  ERAY   COMMON  1             ERROR ARRAY 1ST WORD     
                       64526         COMMON  13            PRINT BUFFER 
                       64526   PBF   COMMON  1             PRINT BUFFER 1ST WORD    
                       64510         COMMON  13            MFD ENTRY BUFFER   
                       64510  MFDENT COMMON  1             MFD ENTRY BUFFER 1ST WORD
                       63630         COMMON  NW-1          SECONDARY I/0 FILE BUFFER
                       63630   IOBUF COMMON  1             SECONDARY IO BUFFER 1ST WORD   
                       62750         COMMON  NW-1          SECONDARY I/O FILE BUFFER
                       62750  IOBUF2 COMMON  1             SECONDARY I/O BUFFER 1ST WORD  
                       62747  UFDEOF COMMON  1             ZERO INDICATES EOF IN UFD FILE 
                       62741         COMMON  5             PARTIAL UFD ENTRY BUFFER 
                       62741  UFDENT COMMON  1             PARTIAL UFD ENTRY BUFFER 1ST WORD    
                       62740   MFDC  COMMON  1             NEXT WORD TO BE READ FROM MFD FILE   
                       62737   TLD   COMMON  1             TIME LAST DUMP OF USER CURRENTLY DUMPING   
                       62736   UFDC  COMMON  1             NEXT UNREAD POS. OF UFDFILE (NORMALLY ZERO)
                       62735  MFDEOF COMMON  1             ZERO INDICATES EOF IN MFD FILE 
                       62734   EOFCT COMMON  1             NO. OF WORDS READ BEFORE AN EOF
                       62733   FEOF  COMMON  1             ZERO INDICATES EOF IN A USER FILE    
                       62732  EOFCTA COMMON  1             NO. OF WORDS BEFORE AN EOF     
                       62731   DMPSW COMMON  1             NON-ZERO INDICATES A FILE HAS BEEN DUMPED  
                       62730   DAWN  COMMON  1             TIME OF START OF 'DAY'   
                       62727  DMPUSR COMMON  1             PROBLEM NO. OF DUMP/LOAD PACKAGE     
                       62726  DMPRGR COMMON  1             PROGRAMMER NO. OF  DITTO.
                       62727  DU     EQU     DMPUSR   
                       62726  DP     EQU     DMPRGR   
                       62725   MFD1W COMMON  1             NO. OF 1ST GOOD WORD IN MFD AND UFD FILES  
                       62723         COMMON  1             2ND PART OF DUMP TAPE FILE (COPY 1) NAME   
                       62723  NFN1   COMMON  1             1ST PART OF DUMP TAPE FILE (COPY 1) NAME   
                       62721         COMMON  1             2ND PART OF DUMP TAPE FILE (COPY 2) NAME   
                       62721   NFN2  COMMON  1             1ST PART OF DUMP TAPE FILE (COPY 2) NAME   
                       62720  TNDSW  COMMON  1             INDICATES TIME OF THIS DUMP CURRENT OR NO  
                       62040         COMMON  RECSIZ-1      INTERNAL TAPE BUFFER     
                       62040   ITB1  COMMON  1                ,,     ,,    ,,  1ST WORD   
                       61160         COMMON  RECSIZ-1      INTERNAL TAPE BUFFER     
                       61160   ITB2  COMMON  1                ,,     ,,  ,,  1ST WORD     
                       61157   DUSK  COMMON  1             TIME OF END OF CURRENT 'DAY'   
                       61156   ENDSW COMMON  1             IF 1, NORMAL END-OF-DAY,ELSE OPERATOR ONE  
                       60276         COMMON  NW-1          INTERNAL BUFFER FOR 'MAP' FILE 
                       60276    IMP  COMMON  1                ,,      ,,    ,,   ,,   ,,  1ST WORD    
                       60267         COMMON  6             'MAP' FILE LINE PARAMETER ARRAY
                       60267  ARGLST COMMON  1               ,,   ,,   ,,      ,,      ,,  1ST WORD   
                       60266  CDSW   COMMON  1             NON-ZERO DURING COMPLETE DUMP,ELSE ZERO    
                       60265  DATE   COMMON  1             DATE THE DUMP NOW IN PROGRESS BEGAN  
                       60264  TIME   COMMON  1             TIME DUMP NOW IN PROGRESS BEGAN
                       60263  TCYCLE COMMON  1             'TIME' OF LAST CYCLE ON DUMP TAPE FILE     
                       60262  TFOSW  COMMON  1             NON-ZERO IF DUMP TAPE FILE IS OPEN   
1            START DUMP TAPE FILE.....M.J.BAILEY,12/15/64                        05/11/69 2010.9 PAGE 6     
                  
                       60261  ALOG   COMMON  1             NON-ZERO IF AUTOLOGOUT ON
                       60260  SW1    COMMON  1  
                       60257  TCP    COMMON  1  
                       60256  TNDSAV COMMON  1  
                       60255  ODAWN  COMMON  1             TIME OF START OF PREVIOUS 'DAY'
                       60244         COMMON  8             TAPE LABEL   
                       60244  TAPEID COMMON  1             TAPE LABEL 1ST WORD
                       60243  SKELSW COMMON  1  
                       60254  REELNO EQU     TAPEID+8 
                                     END  
                  
        LITERALS  
      00231  000000000000     
      00232  000000000001     
      00233  000000000002     
      00234  000000000013     
      00235  000000000014     
      00236  000000000120     
      00237  400000000000     
      00240  622426000160     
      00241  622426000260     
1            START DUMP TAPE FILE.....M.J.BAILEY,12/15/64                        05/11/69 2010.9 PAGE 1     
                        POST PROCESSOR ASSEMBLY DATA  
                  
       60242 IS THE LAST LOCATION NOT USED BY THIS PROGRAM  
        242 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM  
                  
0REFERENCES TO DEFINED SYMBOLS      
          3      C   231
          1      I   231
         50      N   231
       1274      U   231
        221      W   113,  126
          4     AK   231
      62726     DP   231
      62727     DU   231
        225     L4    60,  110
        660     NW   231
          6     NX   231
      74672     PB   231
         12    GDT   157
        121    IDO      
        134    IDP      
        147    IDX   151
      60276    IMP   231
         10    INT   231
         30    NCD   231
      64526    PBF   231
         20    SDF     0
        205    SDY    20
        206    SDZ    21
      60260    SW1   231
      60257    TCP   231
      62737    TLD   231
      73353    TND   231
      60261   ALOG   231
         17   BASE   231
         14   BERM   210,  214
      60266   CDSW   231
      60265   DATE   156,  231
      62730   DAWN   231
         14   DINC   231
          2   DISK   231
      77440   DTLD   231
      61157   DUSK   231
      64544   ERAY   231
      62733   FEOF   231
        112   IDNA   213
        125   IDOA   217
      62040   ITB1   124,  231
      61160   ITB2   137,  231
      62740   MFDC   231
      62723   NFN1    33,   34,   42,   43,   46,   47,  114,  115,  122,  123,  231
      62721   NFN2    63,   64,   72,   73,   76,   77,  127,  130,  135,  136,  231
          6   OPEN   112,  125
         55   SDFA    24
        105   SDFC    25
          3   TAPE   220,  231
1            START DUMP TAPE FILE.....M.J.BAILEY,12/15/64                        05/11/69 2010.9 PAGE 2     
                        POST PROCESSOR ASSEMBLY DATA  
                  
      60264   TIME   154,  231
      62736   UFDC   231
         13   WRNF   202
      62731  DMPSW   231
      61156  ENDSW   231
      62734  EOFCT   231
      73354  FLUSH   231
         10  GDSIG    26
      63630  IOBUF   231
          5  LABEL    56,  106
        222  LITB1   124
        223  LITB2   137
        224  LRSIZ   165,  204
        220  LTAPE   117,  132
      62725  MFD1W   231
          4  MOUNT    52,  102
         30  NHOUR   231
      77456  NMFDU   231
      77441  NXMPT   231
      60255  ODAWN   231
          2  PAUSE   231
      76500  PROBN   231
      76041  RCODE   231
       3300  TBSIZ   231
      60262  TFOSW   140,  142,  231
      62720  TNDSW   231
      70053  TPBUF   144,  150,  153,  155,  160,  162,  174,  175,  203,  231
      76305  UFDNM   231
      60267 ARGLST   231
          1 ATTACH    27
      74454 AUTOND   231
         11 BCDDTM   152
          0 BUFFER   121,  134
          2 CHFILE    32,   62
          7 DELFIL    41,   71
      74446 DEMKEY   231
      62726 DMPRGR    31,  231
      62727 DMPUSR    30,  231
          7 ENDTAP   231
          5 ENFLSH   231
      77457 ENTPSW   231
      62732 EOFCTA   231
         14 ERCODA   231
         16 ERCODB   231
         15 ERREND   212,  216
        210 ERRID4   120
        214 ERRID5   133
          7 ERYSIZ   231
      77455 EXEMPT   231
      77460 FLSHSW   231
      62750 IOBUF2   231
      77461 KEYVAL   231
          1 LSDRUM   231
          6 LVFLSH   231
      64510 MFDENT   231
1            START DUMP TAPE FILE.....M.J.BAILEY,12/15/64                        05/11/69 2010.9 PAGE 3     
                        POST PROCESSOR ASSEMBLY DATA  
                  
      62735 MFDEOF   231
        230 MFDNAM      
      74532 NUSERS   231
      74650 PROBNO   231
      76144 PROGNO   231
        660 RECSIZ   143,  144,  175,  222,  223,  224,  231
      60254 REELNO    22,  231
      60243 SKELSW   231
      74623 SYSDAT   231
      74624 SYSTIM   231
      60244 TAPEID    60,  110,  147,  163,  231
          3 TAPFIL    45,   75
      60263 TCYCLE   231
      60256 TNDSAV   231
      64553 TPBUF2   231
      62741 UFDENT   231
      62747 UFDEOF   231
        226 UFDNAM      
                  
0 NO ERROR IN ABOVE ASSEMBLY. 
1            ROUTINES FOR GENERAL ERROR PROCESSING....M.J.BAILEY,11/1/64         05/11/69 2011.2 PAGE 1     
                  
                              *     
                              *     
                       00005         ENTRY   CKCODE        CHECK FOR A PARTICULAR ERROR   
                       00022         ENTRY   BERM          PRINT STANDARD BEGINNING TO ERROR MESSAGE  
                       00064         ENTRY   ERREND        PRINT ERROR CODE AND TERMINATE MESSAGE     
                              *     
                                     EXTERN  WRFLX,IODIAG   
                              *     
                                     INSERT  DMCRSA   
                              *     
                              *      MACRO TO WRITE N WORDS FROM ARRAY ET SEQ ONTO ALREADY OPENED     
                              *      SECONDARY STORAGE FILE (NAME1,NAME2) AND WAIT UNTIL TRANSMITTED. 
                              *     
                               WSSF  MACRO   ARRAY,N,NAME1,NAME2  
                                     TSX     ATTACH,4      RE-ATTACH TO DUMPER'S FILES    
                                     TXH     DMPUSR   
                                     TXH     DMPRGR   
                                     TSX     WRFILE,4      WRITE  
                                     TXH     NAME1         ONTO (NAME1, 
                                     TXH     NAME2         NAME2) 
                                     TXH     =0            AT POSITION WHERE LAST CEASED  
                                     TIX     ARRAY,,N      FROM ARRAY THROUGH ARRAY+N-1   
                                     TSX     FWAIT,4       WAIT   
                                     TXH     NAME1    
                                     TXH     NAME2    
                               WSSF  END  
                              *     
                              *  ZERO-IZE A THROUGH A+X-1   
                              *     
                               CLEAR MACRO   A,X
                                     AXT     X,1
                                     STZ     A+X,1    
                                     TIX     *-1,1,1  
                               CLEAR END  
                              *     
                              *      MOVE X WORDS FROM A ET SEQ TO B ET SEQ   
                              *     
                               MOVE  MACRO   X,A,B    
                                     AXT     X,1
                                     CAL     A+X,1    
                                     SLW     B+X,1    
                                     TIX     *-2,1,1  
                               MOVE  END  
                              *     
                              *      PRINT ONE LINE, CLEAR BUFFER 
                              *     
                              PRBUFF MACRO   BUFF,NWDS
                                     SXA     *+3,4    
                                     TSX     WRFLX,4  
                                             BUFF,,NWDS     
                                     AXT     **,4     
                                     CLEAR   BUFF,NWDS
                              PRBUFF END  
                              *     
                              *      PRINT STANDARD BEGINNING TO DUMPER ERROR MESSAGE     
                              *     
1            ROUTINES FOR GENERAL ERROR PROCESSING....M.J.BAILEY,11/1/64         05/11/69 2011.2 PAGE 2     
                  
                              BGNERM MACRO   TYPE     
                                     SXA     *+3,4    
                                     TSX     $BERM,4  
                                     PZE     TYPE     
                                     AXT     **,4     
                              BGNERM END  
                              *     
                              *  PRINT ONE LINE COMMENT     
                              *     
                              PRLINE MACRO   COMNT,NWC,N,WORD1,WORD2,LOC
                                     IFF     0,NWC,0  
                                     MOVE    NWC,LOC,PBF    
                                     IFF     N-2,N,1  
                                     CAL     WORD1    
                                     IFF     N-2,N,1  
                                     SLW     PBF+NWC  
                                     IFF     1,N,2    
                                     CAL     WORD2    
                                     IFF     1,N,2    
                                     SLW     PBF+NWC+1
                                     PRBUFF  PBF,NWC+N
                                     RMT  
                               LOC   BCI     NWC,COMNT
                                     RMT  
                              PRLINE END  
                              *     
                              *      PRINT ONE LINE MESSAGE 
                              *     
                              PRMESS MACRO   MESNAM,N,ADR1,ADR2   
                                     TSX     $PRLINE,4
                                     BCI     1,MESNAM 
                                     IFF     N,N,N    
                                     TXH     ADR1     
                                     IFF     N,N,N    
                                     TXH     ADR2     
                              PRMESS END  
                              *     
                              *      MACRO TO OPEN FILE (X,Y) OF USER (A,B) FOR READING   
                              *      AND ASSIGN BUFFER F OF LENGTH L TO I/O SYSTEM FOR THAT PURPOSE.  
                              *        ( ERR IS TRANSFER ADDRESS FOR ERROR RETURN ) 
                              *     
                              RDOPEN MACRO   X,Y,A,B,F,L,ERR
                                     TSX     ATTACH,4      ATTACH TO USER (A,B)     
                                     TXH     A  
                                     TXH     B  
                                     TSX     OPEN,4        OPEN FILE (X,Y) FOR READING    
                                     TXH     R  
                                     TXH     X  
                                     TXH     Y  
                                     TXH     =0 
                                     TXH     =0 
                                     TXH     ERR           (TRANSFER ADDRESS FOR ERROR)   
                                     TSX     BUFFER,4      ASSIGN L WORDS OF BUFFER F TO (X,Y)  
                                     TXH     X  
                                     TXH     Y  
                                     TIX     F,,L     
1            ROUTINES FOR GENERAL ERROR PROCESSING....M.J.BAILEY,11/1/64         05/11/69 2011.2 PAGE 3     
                  
                              RDOPEN END  
                              *     
                              *      PRINT ERROR CODE, END MESSAGE
                              *     
                                ERTN MACRO   ADRERR   
                                     SXA     *+2,4    
                                     TSX     $ERREND,4
                                     AXT     **,4     
                                     TRA     ADRERR   
                                ERTN END  
                              *     
                              *      ASK OPERATOR TO SET KEY CODE DC IF HE WANTS    
                              *      ACTION GIVEN BY N-WORD MESSAGE M   
                              *     
                              PRCODE MACRO   DC,M,N   
                                     TSX     $PRCODE,4
                                     TXH     DC 
                                     TXH     M,,N     
                              PRCODE END  
                              *     
                              *      TEST LAST KEY SETTING VIA SUPERVISOR, GO TO JUMP IF IT IS CODE   
                              *     
                              TESTKY MACRO   CODE,JUMP
                                     TSX     $NGETA,7 
                                     LDQ     DEMKEY   
                                     STQ     KEYVAL   
                                     AXT     CODE,1   
                                     PXA     0,1
                                     SUB     KEYVAL   
                                     TZE     JUMP     
                              TESTKY END  
                              *     
                              *      SET UP LOGICAL TAPE RECORD WRITING 
                              *     
                              LOGREC MACRO   X  
                                     CLA     LTPBF    
                                     SUB     =12
                                     STO     TEMP     
                                     CAL     X+4
                                     ANA     =O77777  
                                     STO     RCOUNT   
                                     TSX     $NLREC,4 
                                     TXH     NORECS   
                                     TXH     RCOUNT   
                                     TXH     LCOUNT   
                                     TXH     TEMP     
                                     TXH     =12
                                     TXH     PHYSRC   
                                     TXH     NFLR     
                                     TXH     NLAST    
                              LOGREC END  
                              *     
                              *     
                              ATTACH MACRO   A,B
                                     TSX     ATTACH,4 
                                     TXH     A  
1            ROUTINES FOR GENERAL ERROR PROCESSING....M.J.BAILEY,11/1/64         05/11/69 2011.2 PAGE 4     
                  
                                     TXH     B  
                              ATTACH END  
                              *     
                              *      PRINT ERROR MESSAGE AND INTERROGATE KEYS 
                              *     
                              PRERR  MACRO
                                     TSX     $PRNTER,4
                                     TSX     $GDSIG,4 
                              PRERR  END  
                              *     
                              *     
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  
                              *      CHECK FOR OCCURRENCE OF I/O SYSTEM ERROR DEFINED BY  
                              *      THE ERROR CODE GIVEN BY (2,4), IN THE I/O SYSTEM ENTRY     
                              *      GIVEN BY (1,4). IF IT HAS OCCURRED, RETURN TO (4,4), 
                              *      OTHERWISE TRANSFER TO LOCATION CONTAINED IN (3,4).   
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  
                              *     
                  
        TRANSFER VECTOR 
      00000  665126436760     WRFLX 
      00001  314624312127     IODIAG
      00002  222324246344     BCDDTM
                  
            LINKAGE DIRECTOR  
      00003  000000000000     
      00004  234223462425     
                  
      00005  0634 00 4 00010  CKCODE SXA     *+3,4    
      00006  0074 00 4 00001         TSX     IODIAG,4 
      00007  2 00214 0 64544         TIX     ERAY,,LERAY    
      00010  0774 00 4 00000         AXT     **,4     
      00011 -0500 00 4 00001         CAL     1,4           (NAME OF OFFENDING I/O SYSTEM ENTRY) 
      00012 -0340 00 0 64545         LAS     ERAY+1   
      00013  0020 60 4 00003         TRA*    3,4           NO MATCH, EXIT     
      00014  0020 00 0 00016         TRA     *+2
      00015  0020 60 4 00003         TRA*    3,4           NO MATCH, EXIT     
      00016  0500 00 0 64546         CLA     ERAY+2   
      00017  0402 00 4 00002         SUB     2,4           (ERROR CODE) 
      00020  0100 00 4 00004         TZE     4,4           SUCCESSFUL MATCH,EXIT    
      00021  0020 60 4 00003         TRA*    3,4           NO MATCH, EXIT     
                              *     
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  
                              *  PRINT STANDARD BEGINNING TO ERROR MESSAGE, WITH CURRENT DATE/TIME    
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  
                              *     
      00022  0634 00 1 00061    BERM SXA     BMX1,1   
      00023  0634 00 4 00062         SXA     BMX4,4   
      00024                          MOVE    6,ERRHD,PBF    
      00024  0774 00 1 00006         AXT     6,1                                                              .001
      00025 -0500 00 1 00214         CAL     ERRHD+6,1                                                        .001
      00026  0602 00 1 64534         SLW     PBF+6,1                                                          .001
      00027  2 00001 1 00025         TIX     *-2,1,1                                                          .001
      00030 -0500 60 4 00001         CAL*    1,4
      00031  0602 00 0 64534         SLW     PBF+6    
      00032 -0500 00 0 00226         CAL     =H 
1            ROUTINES FOR GENERAL ERROR PROCESSING....M.J.BAILEY,11/1/64         05/11/69 2011.2 PAGE 5     
                  
      00033  0602 00 0 64535         SLW     PBF+7    
      00034  0074 00 4 00002         TSX     $BCDDTM,4
      00035  0602 00 0 64536         SLW     PBF+8    
      00036 -0500 00 0 00226         CAL     =H 
      00037  0602 00 0 64537         SLW     PBF+9    
      00040 -0763 00 0 00014         LGL     12 
      00041  0767 00 0 00006         ALS     6  
      00042 -0501 00 0 00223         ORA     =H00000/ 
      00043 -0763 00 0 00014         LGL     12 
      00044  0767 00 0 00006         ALS     6  
      00045 -0501 00 0 00223         ORA     =H00000/ 
      00046  0602 00 0 64540         SLW     PBF+10   
      00047 -0130 00 0 00000         XCL  
      00050 -0501 00 0 00224         ORA     =H00     
      00051  0602 00 0 64541         SLW     PBF+11   
      00052                          PRBUFF  PBF,12   
      00052  0634 00 4 00055         SXA     *+3,4                                                            .001
      00053  0074 00 4 00000         TSX     WRFLX,4                                                          .001
      00054  0 00014 0 64526                 PBF,,12                                                          .001
      00055  0774 00 4 00000         AXT     **,4                                                             .001
      00056                          CLEAR   PBF,12                                                           .001
      00056  0774 00 1 00014         AXT     12,1                                                             .002
      00057  0600 00 1 64542         STZ     PBF+12,1                                                         .002
      00060  2 00001 1 00057         TIX     *-1,1,1                                                          .002
      00061  0774 00 1 00000   BMX1  AXT     **,1     
      00062  0774 00 4 00000   BMX4  AXT     **,4     
      00063  0020 00 4 00002         TRA     2,4
                              *     
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
                              *      PRINT ERROR CODE AND STANDARD ERROR MESSAGE ENDING   
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
                              *     
      00064  0634 00 4 00175  ERREND SXA     ERND4,4  
      00065  0634 00 1 00176         SXA     ERND1,1  
      00066  0074 00 4 00001         TSX     IODIAG,4 
      00067  2 00214 0 64544         TIX     ERAY,,LERAY    
      00070 -0500 00 0 64546         CAL     ERAY+2   
      00071 -0765 00 0 00003         LGR     3  
      00072  0767 00 0 00003         ALS     3  
      00073 -0763 00 0 00003         LGL     3  
      00074  0560 00 0 00225         LDQ     =H OCT   
      00075 -0763 00 0 00030         LGL     24 
      00076  0602 00 0 00200         SLW     ERTEMP   
      00077                          PRLINE  ( CODE ),1,2,ERAY+1,ERTEMP 
      00077                          MOVE    1,..001,PBF                                                      .001
      00077  0774 00 1 00001         AXT     1,1                                                              .002
      00100 -0500 00 1 00216         CAL     ..001+1,1                                                        .002
      00101  0602 00 1 64527         SLW     PBF+1,1                                                          .002
      00102  2 00001 1 00100         TIX     *-2,1,1                                                          .002
      00103 -0500 00 0 64545         CAL     ERAY+1                                                           .001
      00104  0602 00 0 64527         SLW     PBF+1                                                            .001
      00105 -0500 00 0 00200         CAL     ERTEMP                                                           .001
      00106  0602 00 0 64530         SLW     PBF+1+1                                                          .001
      00107                          PRBUFF  PBF,1+2                                                          .001
      00107  0634 00 4 00112         SXA     *+3,4                                                            .002
      00110  0074 00 4 00000         TSX     WRFLX,4                                                          .002
1            ROUTINES FOR GENERAL ERROR PROCESSING....M.J.BAILEY,11/1/64         05/11/69 2011.2 PAGE 6     
                  
      00111  0 00003 0 64526                 PBF,,1+2                                                         .002
      00112  0774 00 4 00000         AXT     **,4                                                             .002
      00113                          CLEAR   PBF,1+2                                                          .002
      00113  0774 00 1 00003         AXT     1+2,1                                                            .003
      00114  0600 00 1 64531         STZ     PBF+1+2,1                                                        .003
      00115  2 00001 1 00114         TIX     *-1,1,1                                                          .003
                                     RMT                                                                      .001
                              ..001  BCI     1, CODE                                                          .001
                                     RMT                                                                      .001
      00116 -0500 00 0 64547         CAL     ERAY+3        I/O ERROR TYPE     
      00117  0100 00 0 00143         TZE     ERA           SKIP IF NOT I/O ERROR    
      00120 -0765 00 0 00003         LGR     3  
      00121  0767 00 0 00003         ALS     3  
      00122 -0763 00 0 00003         LGL     3  
      00123  0560 00 0 00225         LDQ     =H OCT   
      00124 -0763 00 0 00030         LGL     24 
      00125  0602 00 0 00200         SLW     ERTEMP   
      00126                          PRLINE  ( I/O ERROR TYPE  ),3,1,ERTEMP   
      00126                          MOVE    3,..003,PBF                                                      .001
      00126  0774 00 1 00003         AXT     3,1                                                              .002
      00127 -0500 00 1 00221         CAL     ..003+3,1                                                        .002
      00130  0602 00 1 64531         SLW     PBF+3,1                                                          .002
      00131  2 00001 1 00127         TIX     *-2,1,1                                                          .002
      00132 -0500 00 0 00200         CAL     ERTEMP                                                           .001
      00133  0602 00 0 64531         SLW     PBF+3                                                            .001
      00134                          PRBUFF  PBF,3+1                                                          .001
      00134  0634 00 4 00137         SXA     *+3,4                                                            .002
      00135  0074 00 4 00000         TSX     WRFLX,4                                                          .002
      00136  0 00004 0 64526                 PBF,,3+1                                                         .002
      00137  0774 00 4 00000         AXT     **,4                                                             .002
      00140                          CLEAR   PBF,3+1                                                          .002
      00140  0774 00 1 00004         AXT     3+1,1                                                            .003
      00141  0600 00 1 64532         STZ     PBF+3+1,1                                                        .003
      00142  2 00001 1 00141         TIX     *-1,1,1                                                          .003
                                     RMT                                                                      .001
                              ..003  BCI     3, I/O ERROR TYPE                                                .001
                                     RMT                                                                      .001
      00143                   ERA    PRLINE  ( FILE NAME  ),2,2,ERAY+4,ERAY+5 
      00143                          MOVE    2,..004,PBF                                                      .001
      00143  0774 00 1 00002         AXT     2,1                                                              .002
      00144 -0500 00 1 00223         CAL     ..004+2,1                                                        .002
      00145  0602 00 1 64530         SLW     PBF+2,1                                                          .002
      00146  2 00001 1 00144         TIX     *-2,1,1                                                          .002
      00147 -0500 00 0 64550         CAL     ERAY+4                                                           .001
      00150  0602 00 0 64530         SLW     PBF+2                                                            .001
      00151 -0500 00 0 64551         CAL     ERAY+5                                                           .001
      00152  0602 00 0 64531         SLW     PBF+2+1                                                          .001
      00153                          PRBUFF  PBF,2+2                                                          .001
      00153  0634 00 4 00156         SXA     *+3,4                                                            .002
      00154  0074 00 4 00000         TSX     WRFLX,4                                                          .002
      00155  0 00004 0 64526                 PBF,,2+2                                                         .002
      00156  0774 00 4 00000         AXT     **,4                                                             .002
      00157                          CLEAR   PBF,2+2                                                          .002
      00157  0774 00 1 00004         AXT     2+2,1                                                            .003
      00160  0600 00 1 64532         STZ     PBF+2+2,1                                                        .003
      00161  2 00001 1 00160         TIX     *-1,1,1                                                          .003
1            ROUTINES FOR GENERAL ERROR PROCESSING....M.J.BAILEY,11/1/64         05/11/69 2011.2 PAGE 7     
                  
                                     RMT                                                                      .001
                              ..004  BCI     2, FILE NAME                                                     .001
                                     RMT                                                                      .001
      00162                          MOVE    5,ERSTAT,PBF   
      00162  0774 00 1 00005         AXT     5,1                                                              .001
      00163 -0500 00 1 00206         CAL     ERSTAT+5,1                                                       .001
      00164  0602 00 1 64533         SLW     PBF+5,1                                                          .001
      00165  2 00001 1 00163         TIX     *-2,1,1                                                          .001
      00166                          PRBUFF  PBF,5    
      00166  0634 00 4 00171         SXA     *+3,4                                                            .001
      00167  0074 00 4 00000         TSX     WRFLX,4                                                          .001
      00170  0 00005 0 64526                 PBF,,5                                                           .001
      00171  0774 00 4 00000         AXT     **,4                                                             .001
      00172                          CLEAR   PBF,5                                                            .001
      00172  0774 00 1 00005         AXT     5,1                                                              .002
      00173  0600 00 1 64533         STZ     PBF+5,1                                                          .002
      00174  2 00001 1 00173         TIX     *-1,1,1                                                          .002
      00175  0774 00 4 00000  ERND4  AXT     **,4     
      00176  0774 00 1 00000  ERND1  AXT     **,1     
      00177  0020 00 4 00001         TRA     1,4
      00200  0 00000 0 00000  ERTEMP PZE  
                              *     
      00201  606270626325     ERSTAT BCI     5, SYSTEM OR MACHINE ERROR.
      00202  446046516044     
      00203  212330314525     
      00204  602551514651     
      00205  336060606060     
      00206  606027254525     ERRHD  BCI     6,  GENERAL DUMP PROGRAM ERROR, TYPE   
      00207  512143602464     
      00210  444760475146     
      00211  275121446025     
      00212  515146517360     
      00213  637047256060     
      00214  0 00000 0 00007  LERAY  PZE     ERYSIZ        SIZE OF ERROR ARRAY
                              *     
                                     INSERT  DCMEQB   
                              *     
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
                              *    COMMON AND EQUIVALENCE FOR GENERAL DUMP PROGRAM  
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
                              *     
                      074446  DEMKEY BOOL    74446         CORE A LOCATION FOR DAEMON'S KEY SETTING   
                      074624  SYSTIM BOOL    74624         CORE A LOCATION FOR SYSTEM  TIME     
                      074623  SYSDAT BOOL    74623         CORE A LOCATION FOR SYSTEM INIT. DATE
                      076041  RCODE  BOOL    76041         CORE A LOCATION FOR RESTRICTION CODE VECTOR
                      074454  AUTOND BOOL    74454         CORE A AUTOMATIC LOGOUT INDICATOR    
                      074532  NUSERS BOOL    74532         CORE A LOGGED-IN USER COUNT    
                      076500  PROBN  BOOL    76500         CORE A PROBNO ARRAY
                      076305  UFDNM  BOOL    76305         CORE A UFDNM ARRAY 
                      074672  PB     BOOL    74672         CORE A GUARANTEED PERCENTAGE VECTOR BASE   
                       00050  N      EQU     40            CORE A MAX. NO. OF USERS (SIZE OF PROBN)   
                              *     
                      000017  BASE   BOOL    17            KEY CODE BASE
                      000001  I      BOOL    1             KEY CODE TO START INCREMENTAL DUMP   
                      000002  PAUSE  BOOL    2             KEY CODE TO WAIT FOR 1 MIN.    
                      000003  C      BOOL    3             KEY CODE TO DO COMPLETE DUMP   
1            ROUTINES FOR GENERAL ERROR PROCESSING....M.J.BAILEY,11/1/64         05/11/69 2011.2 PAGE 8     
                  
                      000004  AK     BOOL    4             KEY CODE FOR IMPENDING AUTOLOGOUT    
                      000005  ENFLSH BOOL    5             KEY CODE TO ENTER FLUSH MODE   
                      000006  LVFLSH BOOL    6             KEY CODE TO LEAVE FLUSH MODE   
                      000007  ENDTAP BOOL    7             KEY CODE TO TERMINATE DUMP TAPE FILE 
                      000010  INT    BOOL    10            SIMULATE INTERRUPT 
                       00660  RECSIZ EQU     432           TAPE RECORD SIZE   
                       00006   NX    EQU     6             MAX. NO. OF SYSTEM FILE OWNERS 
                       00030  NCD    EQU     24            MAX. NO. 'DAYS' NON-USE OF CURRENT FILES   
                       00014  DINC   EQU     12            NO. DAYS OF 'RECENCY' INCREMENT (C.DUMP)   
                       01274  U      EQU     700           MAX. NO. USERS IN MFD USER LIST
                       03300  TBSIZ  EQU     4*RECSIZ      TAPE BUFFER SIZE   
                       00007  ERYSIZ EQU     7             I/O SYSTEM ERROR ARRAY SIZE    
                       00014  ERCODA EQU     12            'OPEN' ERROR CODE FOR FILE NOT FOUND 
                       00016  ERCODB EQU     14            'OPEN' ERROR CODE RQSTD. DEVICE UNAVBLE    
                       00660  NW     EQU     432           SIZE OF SECONDARY I/O FILE BUFFERS   
                       00001  LSDRUM EQU     1             I/O SYSTEM DEVICE CODE FOR L.S.DRUM  
                       00002    DISK EQU     2             I/O SYSTEM DEVICE CODE FOR DISK
                       00003   TAPE  EQU     3             I/O SYSTEM DEVICE CODE FOR TAPE
                       00030  NHOUR  EQU     24            NO. OF HOURS IN A 'DAY'  
                       77461  KEYVAL COMMON  1             LAST KEY SETTING READ FROM SUPERVISOR
                       77460  FLSHSW COMMON  1             FLUSH MODE SWITCH  
                       77457  ENTPSW COMMON  1             OPERATOR-REQUESTED-END-TAPE INDICATOR
                       77456  NMFDU  COMMON  1             NO. USERS CURRENTLY IN LIST    
                       77455  EXEMPT COMMON  2*NX          LIST OF SYSTEM FILE OWNERS     
                       77441  NXMPT  COMMON  1             NO. FILE USERS EXEMPT FROM DUMP IN DCYCLE  
                       77440  DTLD   COMMON  U             TIME LAST DUMPED FOR EACH USER 
                       76144  PROGNO COMMON  U             PROGRAMMER NO. OF EACH USER    
                       74650  PROBNO COMMON  U             PROBLEM NO. OF EACH USER 
                       73354   FLUSH COMMON  1             NON-ZERO INDICATES FLUSH MODE IS FORCED    
                       73353   TND   COMMON  1             TIME OF NEXT DUMP FOR CURRENT USER   
                       70053         COMMON  TBSIZ-1       TAPE BUFFER  
                       70053  TPBUF  COMMON  1             TAPE BUFFER 1ST WORD     
                       64553         COMMON  TBSIZ-1       2ND TAPE BUFFER    
                       64553  TPBUF2 COMMON  1             2ND TAPE BUFFER, 1ST WORD
                       64544         COMMON  ERYSIZ-1      ERROR ARRAY  
                       64544  ERAY   COMMON  1             ERROR ARRAY 1ST WORD     
                       64526         COMMON  13            PRINT BUFFER 
                       64526   PBF   COMMON  1             PRINT BUFFER 1ST WORD    
                       64510         COMMON  13            MFD ENTRY BUFFER   
                       64510  MFDENT COMMON  1             MFD ENTRY BUFFER 1ST WORD
                       63630         COMMON  NW-1          SECONDARY I/0 FILE BUFFER
                       63630   IOBUF COMMON  1             SECONDARY IO BUFFER 1ST WORD   
                       62750         COMMON  NW-1          SECONDARY I/O FILE BUFFER
                       62750  IOBUF2 COMMON  1             SECONDARY I/O BUFFER 1ST WORD  
                       62747  UFDEOF COMMON  1             ZERO INDICATES EOF IN UFD FILE 
                       62741         COMMON  5             PARTIAL UFD ENTRY BUFFER 
                       62741  UFDENT COMMON  1             PARTIAL UFD ENTRY BUFFER 1ST WORD    
                       62740   MFDC  COMMON  1             NEXT WORD TO BE READ FROM MFD FILE   
                       62737   TLD   COMMON  1             TIME LAST DUMP OF USER CURRENTLY DUMPING   
                       62736   UFDC  COMMON  1             NEXT UNREAD POS. OF UFDFILE (NORMALLY ZERO)
                       62735  MFDEOF COMMON  1             ZERO INDICATES EOF IN MFD FILE 
                       62734   EOFCT COMMON  1             NO. OF WORDS READ BEFORE AN EOF
                       62733   FEOF  COMMON  1             ZERO INDICATES EOF IN A USER FILE    
                       62732  EOFCTA COMMON  1             NO. OF WORDS BEFORE AN EOF     
                       62731   DMPSW COMMON  1             NON-ZERO INDICATES A FILE HAS BEEN DUMPED  
                       62730   DAWN  COMMON  1             TIME OF START OF 'DAY'   
1            ROUTINES FOR GENERAL ERROR PROCESSING....M.J.BAILEY,11/1/64         05/11/69 2011.2 PAGE 9     
                  
                       62727  DMPUSR COMMON  1             PROBLEM NO. OF DUMP/LOAD PACKAGE     
                       62726  DMPRGR COMMON  1             PROGRAMMER NO. OF  DITTO.
                       62727  DU     EQU     DMPUSR   
                       62726  DP     EQU     DMPRGR   
                       62725   MFD1W COMMON  1             NO. OF 1ST GOOD WORD IN MFD AND UFD FILES  
                       62723         COMMON  1             2ND PART OF DUMP TAPE FILE (COPY 1) NAME   
                       62723  NFN1   COMMON  1             1ST PART OF DUMP TAPE FILE (COPY 1) NAME   
                       62721         COMMON  1             2ND PART OF DUMP TAPE FILE (COPY 2) NAME   
                       62721   NFN2  COMMON  1             1ST PART OF DUMP TAPE FILE (COPY 2) NAME   
                       62720  TNDSW  COMMON  1             INDICATES TIME OF THIS DUMP CURRENT OR NO  
                       62040         COMMON  RECSIZ-1      INTERNAL TAPE BUFFER     
                       62040   ITB1  COMMON  1                ,,     ,,    ,,  1ST WORD   
                       61160         COMMON  RECSIZ-1      INTERNAL TAPE BUFFER     
                       61160   ITB2  COMMON  1                ,,     ,,  ,,  1ST WORD     
                       61157   DUSK  COMMON  1             TIME OF END OF CURRENT 'DAY'   
                       61156   ENDSW COMMON  1             IF 1, NORMAL END-OF-DAY,ELSE OPERATOR ONE  
                       60276         COMMON  NW-1          INTERNAL BUFFER FOR 'MAP' FILE 
                       60276    IMP  COMMON  1                ,,      ,,    ,,   ,,   ,,  1ST WORD    
                       60267         COMMON  6             'MAP' FILE LINE PARAMETER ARRAY
                       60267  ARGLST COMMON  1               ,,   ,,   ,,      ,,      ,,  1ST WORD   
                       60266  CDSW   COMMON  1             NON-ZERO DURING COMPLETE DUMP,ELSE ZERO    
                       60265  DATE   COMMON  1             DATE THE DUMP NOW IN PROGRESS BEGAN  
                       60264  TIME   COMMON  1             TIME DUMP NOW IN PROGRESS BEGAN
                       60263  TCYCLE COMMON  1             'TIME' OF LAST CYCLE ON DUMP TAPE FILE     
                       60262  TFOSW  COMMON  1             NON-ZERO IF DUMP TAPE FILE IS OPEN   
                       60261  ALOG   COMMON  1             NON-ZERO IF AUTOLOGOUT ON
                       60260  SW1    COMMON  1  
                       60257  TCP    COMMON  1  
                       60256  TNDSAV COMMON  1  
                       60255  ODAWN  COMMON  1             TIME OF START OF PREVIOUS 'DAY'
                       60244         COMMON  8             TAPE LABEL   
                       60244  TAPEID COMMON  1             TAPE LABEL 1ST WORD
                       60243  SKELSW COMMON  1  
                       60254  REELNO EQU     TAPEID+8 
                                     END  
                                              REMOTE SEQUENCES    
      00215  602346242560     ..001  BCI     1, CODE                                                          .001
      00216  603161466025     ..003  BCI     3, I/O ERROR TYPE                                                .001
      00217  515146516063     
      00220  704725606060     
      00221  602631432560     ..004  BCI     2, FILE NAME                                                     .001
      00222  452144256060     
                  
        LITERALS  
      00223  000000000061     
      00224  000060606060     
      00225  604623636060     
      00226  606060606060     
1            ROUTINES FOR GENERAL ERROR PROCESSING....M.J.BAILEY,11/1/64         05/11/69 2011.2 PAGE 1     
                        POST PROCESSOR ASSEMBLY DATA  
                  
       60242 IS THE LAST LOCATION NOT USED BY THIS PROGRAM  
        227 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM  
                  
0REFERENCES TO DEFINED SYMBOLS      
          3      C   215
          1      I   215
         50      N   215
       1274      U   215
          4     AK   215
      62726     DP   215
      62727     DU   215
        660     NW   215
          6     NX   215
      74672     PB   215
        143    ERA   117
      60276    IMP   215
         10    INT   215
         30    NCD   215
      64526    PBF    26,   31,   33,   35,   37,   46,   51,   54,   57,  101,  104,  106,  111,  114,  130,  133,  136
                     141,  145,  150,  152,  155,  160,  164,  170,  173,  215
      60260    SW1   215
      60257    TCP   215
      62737    TLD   215
      73353    TND   215
      60261   ALOG   215
         17   BASE   215
         22   BERM     0
         61   BMX1    22
         62   BMX4    23
      60266   CDSW   215
      60265   DATE   215
      62730   DAWN   215
         14   DINC   215
          2   DISK   215
      77440   DTLD   215
      61157   DUSK   215
      64544   ERAY     7,   12,   16,   67,   70,  103,  116,  147,  151,  215
      62733   FEOF   215
      62040   ITB1   215
      61160   ITB2   215
      62740   MFDC   215
      62723   NFN1   215
      62721   NFN2   215
          3   TAPE   215
      60264   TIME   215
      62736   UFDC   215
      62731  DMPSW   215
      61156  ENDSW   215
      62734  EOFCT   215
        176  ERND1    65
        175  ERND4    64
        206  ERRHD    25
      73354  FLUSH   215
      63630  IOBUF   215
1            ROUTINES FOR GENERAL ERROR PROCESSING....M.J.BAILEY,11/1/64         05/11/69 2011.2 PAGE 2     
                        POST PROCESSOR ASSEMBLY DATA  
                  
        215  ..001   100
        216  ..003   127
        221  ..004   144
        214  LERAY     7,   67
      62725  MFD1W   215
         30  NHOUR   215
      77456  NMFDU   215
      77441  NXMPT   215
      60255  ODAWN   215
          2  PAUSE   215
      76500  PROBN   215
      76041  RCODE   215
       3300  TBSIZ   215
      60262  TFOSW   215
      62720  TNDSW   215
      70053  TPBUF   215
      76305  UFDNM   215
          0  WRFLX    53,  110,  135,  154,  167
      60267 ARGLST   215
      74454 AUTOND   215
          2 BCDDTM    34
          5 CKCODE     0
      74446 DEMKEY   215
      62726 DMPRGR   215
      62727 DMPUSR   215
          7 ENDTAP   215
          5 ENFLSH   215
      77457 ENTPSW   215
      62732 EOFCTA   215
         14 ERCODA   215
         16 ERCODB   215
         64 ERREND     0
        201 ERSTAT   163
        200 ERTEMP    76,  105,  125,  132
          7 ERYSIZ   214,  215
      77455 EXEMPT   215
      77460 FLSHSW   215
      62750 IOBUF2   215
          1 IODIAG     6,   66
      77461 KEYVAL   215
          1 LSDRUM   215
          6 LVFLSH   215
      64510 MFDENT   215
      62735 MFDEOF   215
      74532 NUSERS   215
      74650 PROBNO   215
      76144 PROGNO   215
        660 RECSIZ   215
      60254 REELNO   215
      60243 SKELSW   215
      74623 SYSDAT   215
      74624 SYSTIM   215
      60244 TAPEID   215
      60263 TCYCLE   215
      60256 TNDSAV   215
1            ROUTINES FOR GENERAL ERROR PROCESSING....M.J.BAILEY,11/1/64         05/11/69 2011.2 PAGE 3     
                        POST PROCESSOR ASSEMBLY DATA  
                  
      64553 TPBUF2   215
      62741 UFDENT   215
      62747 UFDEOF   215
                  
0 NO ERROR IN ABOVE ASSEMBLY. 
1            MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64       05/11/69 2011.6 PAGE 1     
                  
                              *     
                       00741         ENTRY   RDMFD         READ MFD ENTRY     
                       01070         ENTRY   NRDUFD   
                       01101         ENTRY   RDUFD         READ PORTION OF UFD
                       01245         ENTRY   WRNF          WRITE DUMP TAPE    
                       06035         ENTRY   RDF           READ PORTION OF A USER FILE    
                       06161         ENTRY   IENUFD        INITIALIZE UFD ENTRY READ
                       06173         ENTRY   ENTUFD        READ UFD ENTRY FROM UFD COPY   
                              *     
                                     EXTERN  ATTACH,DELFIL,TAPFIL,OPEN,BUFFER 
                                     EXTERN  RDFILE,FWAIT,CLOSE,WRFILE,WRFLX,MOUNT  
                                     EXTERN  UMOUNT,LABEL,IODIAG  
                                     INSERT  DMCRSA   
                              *     
                              *      MACRO TO WRITE N WORDS FROM ARRAY ET SEQ ONTO ALREADY OPENED     
                              *      SECONDARY STORAGE FILE (NAME1,NAME2) AND WAIT UNTIL TRANSMITTED. 
                              *     
                               WSSF  MACRO   ARRAY,N,NAME1,NAME2  
                                     TSX     ATTACH,4      RE-ATTACH TO DUMPER'S FILES    
                                     TXH     DMPUSR   
                                     TXH     DMPRGR   
                                     TSX     WRFILE,4      WRITE  
                                     TXH     NAME1         ONTO (NAME1, 
                                     TXH     NAME2         NAME2) 
                                     TXH     =0            AT POSITION WHERE LAST CEASED  
                                     TIX     ARRAY,,N      FROM ARRAY THROUGH ARRAY+N-1   
                                     TSX     FWAIT,4       WAIT   
                                     TXH     NAME1    
                                     TXH     NAME2    
                               WSSF  END  
                              *     
                              *  ZERO-IZE A THROUGH A+X-1   
                              *     
                               CLEAR MACRO   A,X
                                     AXT     X,1
                                     STZ     A+X,1    
                                     TIX     *-1,1,1  
                               CLEAR END  
                              *     
                              *      MOVE X WORDS FROM A ET SEQ TO B ET SEQ   
                              *     
                               MOVE  MACRO   X,A,B    
                                     AXT     X,1
                                     CAL     A+X,1    
                                     SLW     B+X,1    
                                     TIX     *-2,1,1  
                               MOVE  END  
                              *     
                              *      PRINT ONE LINE, CLEAR BUFFER 
                              *     
                              PRBUFF MACRO   BUFF,NWDS
                                     SXA     *+3,4    
                                     TSX     WRFLX,4  
                                             BUFF,,NWDS     
                                     AXT     **,4     
                                     CLEAR   BUFF,NWDS
1            MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64       05/11/69 2011.6 PAGE 2     
                  
                              PRBUFF END  
                              *     
                              *      PRINT STANDARD BEGINNING TO DUMPER ERROR MESSAGE     
                              *     
                              BGNERM MACRO   TYPE     
                                     SXA     *+3,4    
                                     TSX     $BERM,4  
                                     PZE     TYPE     
                                     AXT     **,4     
                              BGNERM END  
                              *     
                              *  PRINT ONE LINE COMMENT     
                              *     
                              PRLINE MACRO   COMNT,NWC,N,WORD1,WORD2,LOC
                                     IFF     0,NWC,0  
                                     MOVE    NWC,LOC,PBF    
                                     IFF     N-2,N,1  
                                     CAL     WORD1    
                                     IFF     N-2,N,1  
                                     SLW     PBF+NWC  
                                     IFF     1,N,2    
                                     CAL     WORD2    
                                     IFF     1,N,2    
                                     SLW     PBF+NWC+1
                                     PRBUFF  PBF,NWC+N
                                     RMT  
                               LOC   BCI     NWC,COMNT
                                     RMT  
                              PRLINE END  
                              *     
                              *      PRINT ONE LINE MESSAGE 
                              *     
                              PRMESS MACRO   MESNAM,N,ADR1,ADR2   
                                     TSX     $PRLINE,4
                                     BCI     1,MESNAM 
                                     IFF     N,N,N    
                                     TXH     ADR1     
                                     IFF     N,N,N    
                                     TXH     ADR2     
                              PRMESS END  
                              *     
                              *      MACRO TO OPEN FILE (X,Y) OF USER (A,B) FOR READING   
                              *      AND ASSIGN BUFFER F OF LENGTH L TO I/O SYSTEM FOR THAT PURPOSE.  
                              *        ( ERR IS TRANSFER ADDRESS FOR ERROR RETURN ) 
                              *     
                              RDOPEN MACRO   X,Y,A,B,F,L,ERR
                                     TSX     ATTACH,4      ATTACH TO USER (A,B)     
                                     TXH     A  
                                     TXH     B  
                                     TSX     OPEN,4        OPEN FILE (X,Y) FOR READING    
                                     TXH     R  
                                     TXH     X  
                                     TXH     Y  
                                     TXH     =0 
                                     TXH     =0 
                                     TXH     ERR           (TRANSFER ADDRESS FOR ERROR)   
1            MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64       05/11/69 2011.6 PAGE 3     
                  
                                     TSX     BUFFER,4      ASSIGN L WORDS OF BUFFER F TO (X,Y)  
                                     TXH     X  
                                     TXH     Y  
                                     TIX     F,,L     
                              RDOPEN END  
                              *     
                              *      PRINT ERROR CODE, END MESSAGE
                              *     
                                ERTN MACRO   ADRERR   
                                     SXA     *+2,4    
                                     TSX     $ERREND,4
                                     AXT     **,4     
                                     TRA     ADRERR   
                                ERTN END  
                              *     
                              *      ASK OPERATOR TO SET KEY CODE DC IF HE WANTS    
                              *      ACTION GIVEN BY N-WORD MESSAGE M   
                              *     
                              PRCODE MACRO   DC,M,N   
                                     TSX     $PRCODE,4
                                     TXH     DC 
                                     TXH     M,,N     
                              PRCODE END  
                              *     
                              *      TEST LAST KEY SETTING VIA SUPERVISOR, GO TO JUMP IF IT IS CODE   
                              *     
                              TESTKY MACRO   CODE,JUMP
                                     TSX     $NGETA,7 
                                     LDQ     DEMKEY   
                                     STQ     KEYVAL   
                                     AXT     CODE,1   
                                     PXA     0,1
                                     SUB     KEYVAL   
                                     TZE     JUMP     
                              TESTKY END  
                              *     
                              *      SET UP LOGICAL TAPE RECORD WRITING 
                              *     
                              LOGREC MACRO   X  
                                     CLA     LTPBF    
                                     SUB     =12
                                     STO     TEMP     
                                     CAL     X+4
                                     ANA     =O77777  
                                     STO     RCOUNT   
                                     TSX     $NLREC,4 
                                     TXH     NORECS   
                                     TXH     RCOUNT   
                                     TXH     LCOUNT   
                                     TXH     TEMP     
                                     TXH     =12
                                     TXH     PHYSRC   
                                     TXH     NFLR     
                                     TXH     NLAST    
                              LOGREC END  
                              *     
1            MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64       05/11/69 2011.6 PAGE 4     
                  
                              *     
                              ATTACH MACRO   A,B
                                     TSX     ATTACH,4 
                                     TXH     A  
                                     TXH     B  
                              ATTACH END  
                              *     
                              *      PRINT ERROR MESSAGE AND INTERROGATE KEYS 
                              *     
                              PRERR  MACRO
                                     TSX     $PRNTER,4
                                     TSX     $GDSIG,4 
                              PRERR  END  
                              *     
                              *     
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
                              *  TRANSFER VECTOR, CONSTANTS, VARIABLES  
                              *     FOR GENERAL DUMP ROUTINE
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
                              *     
                  
        TRANSFER VECTOR 
      00000  216363212330     ATTACH
      00001  242543263143     DELFIL
      00002  632147263143     TAPFIL
      00003  464725456060     OPEN  
      00004  226426262551     BUFFER
      00005  512426314325     RDFILE
      00006  266621316360     FWAIT 
      00007  234346622560     CLOSE 
      00010  665126314325     WRFILE
      00011  665126436760     WRFLX 
      00012  444664456360     MOUNT 
      00013  644446644563     UMOUNT
      00014  432122254360     LABEL 
      00015  314624312127     IODIAG
      00016  272462312760     GDSIG 
      00017  222551446060     BERM  
      00020  255151254524     ERREND
      00021  475145632551     PRNTER
                  
            LINKAGE DIRECTOR  
      00022  000000000000     
      00023  512444262460     
                  
      00024  0 00000 0 00660  LITB1  PZE     RECSIZ   
      00025  0 00000 0 00660  LITB2  PZE     RECSIZ   
      00026  0 00000 0 00004  L4     PZE     4  
      00027  0 00000 0 00007  L7     PZE     7  
      00030  0 00000 0 00660   LBUF  PZE     NW 
      00031  0 00000 0 00003  LTAPE  PZE     TAPE     
      00032  666060606060     W      BCI     1,W
      00033  236451456333     OURUFD BCI     2,CURNT.UFDFIL 
      00034  642624263143     
      00035  0 00000 0 00033  OURADD PZE     OURUFD   
      00036  0 00000 0 00042  THRADD PZE     UFDNAM   
1            MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64       05/11/69 2011.6 PAGE 5     
                  
      00037  0761 00 0 00000  NOP    NOP  
      00040  0020 00 0 01124  TRA    TRA     BOTH+4   
      00041  443326332433     MFDNAM BCI     1,M.F.D. 
      00042  643326332433     UFDNAM BCI     2,U.F.D.(FILE) 
      00043  742631432534     
      00044  516060606060          R BCI     1,R
      00045  606270626325     ERSTAT BCI     5, SYSTEM OR MACHINE ERROR.
      00046  446046516044     
      00047  212330314525     
      00050  602551514651     
      00051  336060606060     
      00052  0 00000 0 00000   CFDC  PZE     **            UBUF POINTER TO START OF NEXT UFD ENTRY    
      00053  0 00000 0 00000  CFDEOF PZE     **            ZERO INDICATES EOF IN OUR COPY OF UFD
      00054  0 00000 0 00000   SW    PZE     **            SWITCH 
                       00660  UBSIZ  EQU     432
      00055                    UBUF  BSS     UBSIZ    
      00735  0 00000 0 00660  LUBSIZ PZE     UBSIZ    
      00736  0 00000 0 00062   UBADR PZE     UBUF+5   
      00737  0 00000 0 00000  EOFCTB PZE     **            NO. OF WORDS BEFORE AN EOF IN UFD COPY     
      00740  0 00000 0 00010  L8     PZE     8  
                              *     
                              * . . . . . . . . . . . . . . . . . . . . . . . . . . . .   
                              *   READ NEXT M.F.D. ENTRY INTO MFDENT ET SEQ   
                              * . . . . . . . . . . . . . . . . . . . . . . . . . . . .   
                              *     
      00741  0634 00 4 00767  RDMFD  SXA     RMB,4    
                              *     
      00742  0074 00 4 00016         TSX     $GDSIG,4 
      00743  0074 00 4 00000         TSX     ATTACH,4      RE-ATTACH TO USER CALLED 'M.F.D. FILE'     
 TD   00744  3 00000 0 00041         TXH     MFDNAM   
 TD   00745  3 00000 0 00043         TXH     UFDNAM+1 
                              *     
                              *     
      00746  0074 00 4 00005  ZENT   TSX     RDFILE,4      READ 14 WORDS FROM START OF NEXT MFD ENTRY 
 TD   00747  3 00000 0 00041         TXH     MFDNAM   
 TD   00750  3 00000 0 00043         TXH     UFDNAM+1 
 TD   00751  3 00000 0 62740         TXH     MFDC          WHICH STARTS AT MFDC'TH WORD IN MFD FILE   
      00752  2 00740 0 64510         TIX     MFDENT,,L8    INTO MFDENT. 
 TD   00753  3 00000 0 00771         TXH     RMC           EOF TRANSFER 
 TD   00754  3 00000 0 62734         TXH     EOFCT    
                              *     
      00755  0074 00 4 00006  RMA    TSX     FWAIT,4       WAIT UNTIL TRANSMISSION COMPLETE     
 TD   00756  3 00000 0 00041         TXH     MFDNAM   
 TD   00757  3 00000 0 00043         TXH     UFDNAM+1      .
 TD   00760  3 00000 0 01045         TXH     ERRD          (ERROR TRANSFER ADDRESS) 
                              *     
      00761  0500 00 0 06556         CLA     =1            P
      00762  0400 00 0 62740         ADD     MFDC          MFDC+P 
      00763  0400 00 0 06562         ADD     =6            MFDC+6+P     
      00764  0601 00 0 62740         STO     MFDC          MFDC=MFDC+6+P
      00765 -0520 00 0 64510         NZT     MFDENT   
      00766  0020 00 0 00746         TRA     ZENT     
                              *     
      00767  0774 00 4 00000   RMB   AXT     **,4     
      00770  0020 00 4 00002         TRA     2,4           RETURN TO CALLER   
                              *     
1            MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64       05/11/69 2011.6 PAGE 6     
                  
      00771  0600 00 0 62735   RMC   STZ     MFDEOF        INDICATE EOF IN MFD FILE 
      00772  0534 00 4 62734         LXA     EOFCT,4  
      00773  3 00005 4 00755         TXH     RMA,4,5       CONTINUE IF AT LEAST 6 WDS READ BEFORE EOF 
                              *     
      00774                          BGNERM  =HRMFD01      OTHERWISE, ERROR   
      00774  0634 00 4 00777         SXA     *+3,4                                                            .001
      00775  0074 00 4 00017         TSX     $BERM,4                                                          .001
      00776  0 00000 0 06577         PZE     =HRMFD01                                                         .001
      00777  0774 00 4 00000         AXT     **,4                                                             .001
      01000                          PRLINE  ( M.F.D. READING ERROR - 5 OR LESS WORDS   ),7,0   
      01000                          MOVE    7,..003,PBF                                                      .001
      01000  0774 00 1 00007         AXT     7,1                                                              .002
      01001 -0500 00 1 06414         CAL     ..003+7,1                                                        .002
      01002  0602 00 1 64535         SLW     PBF+7,1                                                          .002
      01003  2 00001 1 01001         TIX     *-2,1,1                                                          .002
      01004                          PRBUFF  PBF,7+0                                                          .001
      01004  0634 00 4 01007         SXA     *+3,4                                                            .002
      01005  0074 00 4 00011         TSX     WRFLX,4                                                          .002
      01006  0 00007 0 64526                 PBF,,7+0                                                         .002
      01007  0774 00 4 00000         AXT     **,4                                                             .002
      01010                          CLEAR   PBF,7+0                                                          .002
      01010  0774 00 1 00007         AXT     7+0,1                                                            .003
      01011  0600 00 1 64535         STZ     PBF+7+0,1                                                        .003
      01012  2 00001 1 01011         TIX     *-1,1,1                                                          .003
                                     RMT                                                                      .001
                              ..003  BCI     7, M.F.D. READING ERROR - 5 OR LESS WORDS                        .001
                                     RMT                                                                      .001
      01013                          PRLINE  ( PICKED UP BEFORE END OF FILE IN M.F.D.   ),7,0   
      01013                          MOVE    7,..006,PBF                                                      .001
      01013  0774 00 1 00007         AXT     7,1                                                              .002
      01014 -0500 00 1 06423         CAL     ..006+7,1                                                        .002
      01015  0602 00 1 64535         SLW     PBF+7,1                                                          .002
      01016  2 00001 1 01014         TIX     *-2,1,1                                                          .002
      01017                          PRBUFF  PBF,7+0                                                          .001
      01017  0634 00 4 01022         SXA     *+3,4                                                            .002
      01020  0074 00 4 00011         TSX     WRFLX,4                                                          .002
      01021  0 00007 0 64526                 PBF,,7+0                                                         .002
      01022  0774 00 4 00000         AXT     **,4                                                             .002
      01023                          CLEAR   PBF,7+0                                                          .002
      01023  0774 00 1 00007         AXT     7+0,1                                                            .003
      01024  0600 00 1 64535         STZ     PBF+7+0,1                                                        .003
      01025  2 00001 1 01024         TIX     *-1,1,1                                                          .003
                                     RMT                                                                      .001
                              ..006  BCI     7, PICKED UP BEFORE END OF FILE IN M.F.D.                        .001
                                     RMT                                                                      .001
      01026                    RMD   MOVE    5,ERSTAT,PBF   
      01026  0774 00 1 00005         AXT     5,1                                                              .001
      01027 -0500 00 1 00052         CAL     ERSTAT+5,1                                                       .001
      01030  0602 00 1 64533         SLW     PBF+5,1                                                          .001
      01031  2 00001 1 01027         TIX     *-2,1,1                                                          .001
      01032                          PRBUFF  PBF,5    
      01032  0634 00 4 01035         SXA     *+3,4                                                            .001
      01033  0074 00 4 00011         TSX     WRFLX,4                                                          .001
      01034  0 00005 0 64526                 PBF,,5                                                           .001
      01035  0774 00 4 00000         AXT     **,4                                                             .001
      01036                          CLEAR   PBF,5                                                            .001
1            MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64       05/11/69 2011.6 PAGE 7     
                  
      01036  0774 00 1 00005         AXT     5,1                                                              .002
      01037  0600 00 1 64533         STZ     PBF+5,1                                                          .002
      01040  2 00001 1 01037         TIX     *-1,1,1                                                          .002
      01041  0534 00 4 00767         LXA     RMB,4         SET UP ERROR RETURN - TO (1,4) 
      01042  1 00001 4 01043         TXI     *+1,4,1  
      01043  0634 00 4 00767         SXA     RMB,4    
      01044  0020 00 0 00767         TRA     RMB
                              *     
      01045                   ERRD   BGNERM  =HD           TROUBLE READING MFD IN RMFD    
      01045  0634 00 4 01050         SXA     *+3,4                                                            .001
      01046  0074 00 4 00017         TSX     $BERM,4                                                          .001
      01047  0 00000 0 06573         PZE     =HD                                                              .001
      01050  0774 00 4 00000         AXT     **,4                                                             .001
      01051                          PRLINE  ( ERROR READING M.F.D. FILE.),5,0
      01051                          MOVE    5,..009,PBF                                                      .001
      01051  0774 00 1 00005         AXT     5,1                                                              .002
      01052 -0500 00 1 06430         CAL     ..009+5,1                                                        .002
      01053  0602 00 1 64533         SLW     PBF+5,1                                                          .002
      01054  2 00001 1 01052         TIX     *-2,1,1                                                          .002
      01055                          PRBUFF  PBF,5+0                                                          .001
      01055  0634 00 4 01060         SXA     *+3,4                                                            .002
      01056  0074 00 4 00011         TSX     WRFLX,4                                                          .002
      01057  0 00005 0 64526                 PBF,,5+0                                                         .002
      01060  0774 00 4 00000         AXT     **,4                                                             .002
      01061                          CLEAR   PBF,5+0                                                          .002
      01061  0774 00 1 00005         AXT     5+0,1                                                            .003
      01062  0600 00 1 64533         STZ     PBF+5+0,1                                                        .003
      01063  2 00001 1 01062         TIX     *-1,1,1                                                          .003
                                     RMT                                                                      .001
                              ..009  BCI     5, ERROR READING M.F.D. FILE.                                    .001
                                     RMT                                                                      .001
      01064                          ERTN    RMD           PRINT COMMON MESSAGE, RETURN VIA (1,4)     
      01064  0634 00 4 01066         SXA     *+2,4                                                            .001
      01065  0074 00 4 00020         TSX     $ERREND,4                                                        .001
      01066  0774 00 4 00000         AXT     **,4                                                             .001
      01067  0020 00 0 01026         TRA     RMD                                                              .001
                  
                              *     
                              * . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 
                              *      READ N WORDS, FROM NEXT UNREAD POSITION OF THE ALREADY OPENED    
                              *       UFD FILE OF THE USER GIVEN IN BCD IN MFDENT AND MFDENT+1, 
                              *       INTO ARRAY THROUGH ARRAY+N-1. IF AN EOF IS MET, EOFCT IS SET    
                              *       TO THE NO. OF WORDS READ IMMEDIATELY BEFORE THE EOF, AND  
                              *       UFDEOF IS SET TO ZERO.
                              *     
                              *      CALLING SEQUENCE -  TSX RDUFD,4    
                              *                          TXH ARRAY
                              *                          TXH N    
                              *                          (ERROR RETURN) 
                              *                          (NORMAL RETURN)
                              * . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 
                              *     
      01070 -0500 00 0 00040  NRDUFD CAL     TRA
      01071  0602 00 0 01120         SLW     BOTH     
      01072 -0500 00 0 00035         CAL     OURADD   
      01073  0621 00 0 01125         STA     RUA-3    
1            MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64       05/11/69 2011.6 PAGE 8     
                  
      01074  0621 00 0 01134         STA     RUC+1    
      01075  0400 00 0 06556         ADD     =1 
      01076  0621 00 0 01126         STA     RUA-2    
      01077  0621 00 0 01135         STA     RUC+2    
      01100  0020 00 0 01111         TRA     RDUFD+8  
      01101 -0500 00 0 00037  RDUFD  CAL     NOP
      01102  0602 00 0 01120         SLW     BOTH     
      01103 -0500 00 0 00036         CAL     THRADD   
      01104  0621 00 0 01125         STA     RUA-3    
      01105  0621 00 0 01134         STA     RUC+1    
      01106  0400 00 0 06556         ADD     =1 
      01107  0621 00 0 01126         STA     RUA-2    
      01110  0621 00 0 01135         STA     RUC+2    
      01111  0634 00 4 01140         SXA     RUD,4    
      01112  0500 00 4 00001         CLA     1,4
      01113  0621 00 0 01130         STA     RUA           ARRAY ADDRESS
      01114  0500 00 4 00002         CLA     2,4
      01115  0767 00 0 00022         ALS     18 
      01116  0622 00 0 01130         STD     RUA           ADDRESS OF N 
                              *     
      01117  0074 00 4 00016         TSX     $GDSIG,4 
      01120  0 00000 0 00000  BOTH   PZE  
      01121  0074 00 4 00000         TSX     ATTACH,4      RE-ATTACH TO APPROPRIATE USER  
 TD   01122  3 00000 0 64510         TXH     MFDENT   
 TD   01123  3 00000 0 64511         TXH     MFDENT+1 
                              *     
      01124  0074 00 4 00005         TSX     RDFILE,4      READ N WORDS FROM  
 TD   01125  3 00000 0 00000         TXH     **            'U.F.D. FILE'
 TD   01126  3 00000 0 00000         TXH     ** 
 TD   01127  3 00000 0 62736         TXH     UFDC          STARTING AT THE NEXT UNREAD POSTN.   
      01130  2 00000 0 00000   RUA   TIX     **,,**        INTO ARRAY THROUGH ARRAY+N-1   
 TD   01131  3 00000 0 01142         TXH     RUE           EOF TRANSFER 
 TD   01132  3 00000 0 62734         TXH     EOFCT    
                              *     
      01133  0074 00 4 00006  RUC    TSX     FWAIT,4       WAIT UNTIL TRANSMISSION COMPLETE     
 TD   01134  3 00000 0 00000         TXH     ** 
 TD   01135  3 00000 0 00000         TXH     ** 
 TD   01136  3 00000 0 01144         TXH     ERRC          (ERROR TRANSFER)   
                              *     
      01137  0600 00 0 62736         STZ     UFDC     
      01140  0774 00 4 00000   RUD   AXT     **,4     
      01141  0020 00 4 00004   RUDA  TRA     4,4           RETURN TO CALLER   
                              *     
      01142  0600 00 0 62747   RUE   STZ     UFDEOF        INDICATE END OF FILE     
      01143  0020 00 0 01133         TRA     RUC           RETURN TO WAIT FOR COMPLETION  
                              *     
      01144                   ERRC   BGNERM  =HC           TROUBLE READING UFD FILE 
      01144  0634 00 4 01147         SXA     *+3,4                                                            .001
      01145  0074 00 4 00017         TSX     $BERM,4                                                          .001
      01146  0 00000 0 06570         PZE     =HC                                                              .001
      01147  0774 00 4 00000         AXT     **,4                                                             .001
      01150                          PRLINE  ( ERROR READING U.F.D. FILE OF FOLLOWING USER -  ),8,0   
      01150                          MOVE    8,..012,PBF                                                      .001
      01150  0774 00 1 00010         AXT     8,1                                                              .002
      01151 -0500 00 1 06440         CAL     ..012+8,1                                                        .002
      01152  0602 00 1 64536         SLW     PBF+8,1                                                          .002
1            MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64       05/11/69 2011.6 PAGE 9     
                  
      01153  2 00001 1 01151         TIX     *-2,1,1                                                          .002
      01154                          PRBUFF  PBF,8+0                                                          .001
      01154  0634 00 4 01157         SXA     *+3,4                                                            .002
      01155  0074 00 4 00011         TSX     WRFLX,4                                                          .002
      01156  0 00010 0 64526                 PBF,,8+0                                                         .002
      01157  0774 00 4 00000         AXT     **,4                                                             .002
      01160                          CLEAR   PBF,8+0                                                          .002
      01160  0774 00 1 00010         AXT     8+0,1                                                            .003
      01161  0600 00 1 64536         STZ     PBF+8+0,1                                                        .003
      01162  2 00001 1 01161         TIX     *-1,1,1                                                          .003
                                     RMT                                                                      .001
                              ..012  BCI     8, ERROR READING U.F.D. FILE OF FOLLOWING USER -                 .001
                                     RMT                                                                      .001
      01163                          PRLINE  (                        PROBLEM NO. ),6,1,MFDENT  
      01163                          MOVE    6,..014,PBF                                                      .001
      01163  0774 00 1 00006         AXT     6,1                                                              .002
      01164 -0500 00 1 06446         CAL     ..014+6,1                                                        .002
      01165  0602 00 1 64534         SLW     PBF+6,1                                                          .002
      01166  2 00001 1 01164         TIX     *-2,1,1                                                          .002
      01167 -0500 00 0 64510         CAL     MFDENT                                                           .001
      01170  0602 00 0 64534         SLW     PBF+6                                                            .001
      01171                          PRBUFF  PBF,6+1                                                          .001
      01171  0634 00 4 01174         SXA     *+3,4                                                            .002
      01172  0074 00 4 00011         TSX     WRFLX,4                                                          .002
      01173  0 00007 0 64526                 PBF,,6+1                                                         .002
      01174  0774 00 4 00000         AXT     **,4                                                             .002
      01175                          CLEAR   PBF,6+1                                                          .002
      01175  0774 00 1 00007         AXT     6+1,1                                                            .003
      01176  0600 00 1 64535         STZ     PBF+6+1,1                                                        .003
      01177  2 00001 1 01176         TIX     *-1,1,1                                                          .003
                                     RMT                                                                      .001
                              ..014  BCI     6,                        PROBLEM NO.                            .001
                                     RMT                                                                      .001
      01200                          PRLINE  (                     PROGRAMMER NO. ),6,1,MFDENT+1
      01200                          MOVE    6,..016,PBF                                                      .001
      01200  0774 00 1 00006         AXT     6,1                                                              .002
      01201 -0500 00 1 06454         CAL     ..016+6,1                                                        .002
      01202  0602 00 1 64534         SLW     PBF+6,1                                                          .002
      01203  2 00001 1 01201         TIX     *-2,1,1                                                          .002
      01204 -0500 00 0 64511         CAL     MFDENT+1                                                         .001
      01205  0602 00 0 64534         SLW     PBF+6                                                            .001
      01206                          PRBUFF  PBF,6+1                                                          .001
      01206  0634 00 4 01211         SXA     *+3,4                                                            .002
      01207  0074 00 4 00011         TSX     WRFLX,4                                                          .002
      01210  0 00007 0 64526                 PBF,,6+1                                                         .002
      01211  0774 00 4 00000         AXT     **,4                                                             .002
      01212                          CLEAR   PBF,6+1                                                          .002
      01212  0774 00 1 00007         AXT     6+1,1                                                            .003
      01213  0600 00 1 64535         STZ     PBF+6+1,1                                                        .003
      01214  2 00001 1 01213         TIX     *-1,1,1                                                          .003
                                     RMT                                                                      .001
                              ..016  BCI     6,                     PROGRAMMER NO.                            .001
                                     RMT                                                                      .001
      01215                          PRLINE  ( ABANDONING THIS USER IN THE CURRENT DUMP CYCLE.),8,0   
      01215                          MOVE    8,..019,PBF                                                      .001
      01215  0774 00 1 00010         AXT     8,1                                                              .002
1            MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64       05/11/69 2011.6 PAGE 10    
                  
      01216 -0500 00 1 06464         CAL     ..019+8,1                                                        .002
      01217  0602 00 1 64536         SLW     PBF+8,1                                                          .002
      01220  2 00001 1 01216         TIX     *-2,1,1                                                          .002
      01221                          PRBUFF  PBF,8+0                                                          .001
      01221  0634 00 4 01224         SXA     *+3,4                                                            .002
      01222  0074 00 4 00011         TSX     WRFLX,4                                                          .002
      01223  0 00010 0 64526                 PBF,,8+0                                                         .002
      01224  0774 00 4 00000         AXT     **,4                                                             .002
      01225                          CLEAR   PBF,8+0                                                          .002
      01225  0774 00 1 00010         AXT     8+0,1                                                            .003
      01226  0600 00 1 64536         STZ     PBF+8+0,1                                                        .003
      01227  2 00001 1 01226         TIX     *-1,1,1                                                          .003
                                     RMT                                                                      .001
                              ..019  BCI     8, ABANDONING THIS USER IN THE CURRENT DUMP CYCLE.               .001
                                     RMT                                                                      .001
      01230                          MOVE    5,ERSTAT,PBF   
      01230  0774 00 1 00005         AXT     5,1                                                              .001
      01231 -0500 00 1 00052         CAL     ERSTAT+5,1                                                       .001
      01232  0602 00 1 64533         SLW     PBF+5,1                                                          .001
      01233  2 00001 1 01231         TIX     *-2,1,1                                                          .001
      01234                          PRBUFF  PBF,5    
      01234  0634 00 4 01237         SXA     *+3,4                                                            .001
      01235  0074 00 4 00011         TSX     WRFLX,4                                                          .001
      01236  0 00005 0 64526                 PBF,,5                                                           .001
      01237  0774 00 4 00000         AXT     **,4                                                             .001
      01240                          CLEAR   PBF,5                                                            .001
      01240  0774 00 1 00005         AXT     5,1                                                              .002
      01241  0600 00 1 64533         STZ     PBF+5,1                                                          .002
      01242  2 00001 1 01241         TIX     *-1,1,1                                                          .002
      01243  0534 00 4 01140         LXA     RUD,4    
      01244  1 00001 4 01141         TXI     RUDA,4,1      GO TAKE ERROR EXIT (3,4) 
                  
                              *     
                              * . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 
                              *      WRITE N WORDS FROM ARRAY THROUGH ARRAY+N-1 ONTO THE DUMP   
                              *      PROGRAM'S ALREADY OPENED DUPLICATE DUMP TAPE FILES (CALLED 
                              *      'NEW   FILES1' AND 'NEW   FILES2'), STARTING AT THE PLACE  
                              *      WHERE WRITING LAST STOPPED.  
                              *           CALLING SEQUENCE -  TSX  WRNF,4     
                              *                               TXH  ARRAY
                              *                               TXH  N    
                              * . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 
                              *     
      01245  0634 00 4 01326  WRNF   SXA     WNJ,4    
      01246  0634 00 1 01325         SXA     WNI,1    
      01247  0500 00 4 00001         CLA     1,4           ADDRESS OF NEW MATERIAL  
      01250  0621 00 0 01273         STA     WNC
      01251  0500 00 4 00002         CLA     2,4           LENGTH OF NEW MATERIAL   
      01252  0621 00 0 01270         STA     WNB
                              *     
      01253  0074 00 4 00016         TSX     $GDSIG,4 
      01254  0074 00 4 00000         TSX     ATTACH,4      RE-ATTACH TO DAEMON
 TD   01255  3 00000 0 62727         TXH     DU 
 TD   01256  3 00000 0 62726         TXH     DP 
                              *     
      01257  0600 00 0 05732  WNA    STZ     WSW
1            MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64       05/11/69 2011.6 PAGE 11    
                  
      01260  0074 00 4 00006         TSX     FWAIT,4       WAIT FOR PREVIOUS WRITE  
 TD   01261  3 00000 0 62723         TXH     NFN1     
 TD   01262  3 00000 0 62724         TXH     NFN1+1   
 TD   01263  3 00000 0 01330         TXH     WNK           ERROR DURING PREVIOUS WRITE    
      01264  0074 00 4 00006         TSX     FWAIT,4       WAIT FOR PREVIOUS WRITE  
 TD   01265  3 00000 0 62721         TXH     NFN2     
 TD   01266  3 00000 0 62722         TXH     NFN2+1   
 TD   01267  3 00000 0 01330         TXH     WNK           ERROR DURING PREVIOUS WRITE    
                              *     
      01270  0535 00 1 00000  WNB    LAC     **,1          O.K., MOVE NEW MATERIAL TO OUR BUFFER
      01271 -0634 00 1 01276         SXD     WND,1    
      01272  0774 00 1 00000         AXT     0,1
      01273 -0500 00 1 00000  WNC    CAL     **,1     
      01274  0602 00 1 01551         SLW     FBUF,1   
      01275  1 77777 1 01276         TXI     *+1,1,-1 
      01276  3 00000 1 01273  WND    TXH     WNC,1,** 
      01277 -0500 00 0 01270         CAL     WNB
      01300  0621 00 0 01301         STA     *+1
      01301 -0500 00 0 00000         CAL     ** 
      01302  0767 00 0 00022         ALS     18 
      01303  0622 00 0 01311         STD     WNF
      01304  0622 00 0 01320         STD     WNH
                              *     
      01305  0074 00 4 00010  WNE    TSX     WRFILE,4      INITIATE WRITE FROM OUR BUFFER 
 TD   01306  3 00000 0 62723         TXH     NFN1     
 TD   01307  3 00000 0 62724         TXH     NFN1+1   
 TD   01310  3 00000 0 06555         TXH     =0 
      01311  3 00000 0 01551  WNF    TXH     FBUF,,** 
 TD   01312  3 00000 0 01312         TXH     *  
 TD   01313  3 00000 0 01313         TXH     *  
      01314  0074 00 4 00010  WNG    TSX     WRFILE,4 
 TD   01315  3 00000 0 62721         TXH     NFN2     
 TD   01316  3 00000 0 62722         TXH     NFN2+1   
 TD   01317  3 00000 0 06555         TXH     =0 
      01320  3 00000 0 01551  WNH    TXH     FBUF,,** 
 TD   01321  3 00000 0 01321         TXH     *  
 TD   01322  3 00000 0 01322         TXH     *  
      01323  0520 00 0 05732         ZET     WSW
      01324  0020 00 0 01257         TRA     WNA           GO WAIT FOR IT IF A RE-WRITE   
                              *     
      01325  0774 00 1 00000  WNI    AXT     **,1     
      01326  0774 00 4 00000  WNJ    AXT     **,4     
      01327  0020 00 4 00003         TRA     3,4           EXIT   
                              *     
      01330  0500 00 0 01330  WNK    CLA     *             ERROR DURING (NOW-COMPLETED) WRITE   
      01331  0601 00 0 05732         STO     WSW
      01332  0074 00 4 00015         TSX     IODIAG,4 
      01333  2 00027 0 64544         TIX     ERAY,,L7 
      01334 -0500 00 0 06575         CAL     =HFWAIT  
      01335 -0340 00 0 64545         LAS     ERAY+1   
      01336  0020 00 0 01347         TRA     WNL
      01337  0020 00 0 01341         TRA     *+2
      01340  0020 00 0 01347         TRA     WNL
      01341  0500 00 0 64546         CLA     ERAY+2   
      01342  0402 00 0 06561         SUB     =5 
      01343 -0100 00 0 01347         TNZ     WNL
1            MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64       05/11/69 2011.6 PAGE 12    
                  
      01344  0500 00 0 64547         CLA     ERAY+3   
      01345  0402 00 0 06562         SUB     =6 
      01346  0100 00 0 01352         TZE     WNM           SKIP IF END-OF-REEL
      01347                   WNL    PRERR
      01347  0074 00 4 00021         TSX     $PRNTER,4                                                        .001
      01350  0074 00 4 00016         TSX     $GDSIG,4                                                         .001
      01351  0020 00 0 01305         TRA     WNE           TRY AGAIN IF NOT END OF REEL   
                              *     
      01352                   WNM    PRLINE  ( END OF REEL ON DUMP TAPE FILE.),6,0  
      01352                          MOVE    6,..022,PBF                                                      .001
      01352  0774 00 1 00006         AXT     6,1                                                              .002
      01353 -0500 00 1 06472         CAL     ..022+6,1                                                        .002
      01354  0602 00 1 64534         SLW     PBF+6,1                                                          .002
      01355  2 00001 1 01353         TIX     *-2,1,1                                                          .002
      01356                          PRBUFF  PBF,6+0                                                          .001
      01356  0634 00 4 01361         SXA     *+3,4                                                            .002
      01357  0074 00 4 00011         TSX     WRFLX,4                                                          .002
      01360  0 00006 0 64526                 PBF,,6+0                                                         .002
      01361  0774 00 4 00000         AXT     **,4                                                             .002
      01362                          CLEAR   PBF,6+0                                                          .002
      01362  0774 00 1 00006         AXT     6+0,1                                                            .003
      01363  0600 00 1 64534         STZ     PBF+6+0,1                                                        .003
      01364  2 00001 1 01363         TIX     *-1,1,1                                                          .003
                                     RMT                                                                      .001
                              ..022  BCI     6, END OF REEL ON DUMP TAPE FILE.                                .001
                                     RMT                                                                      .001
      01365  0074 00 4 00007         TSX     CLOSE,4  
 TD   01366  3 00000 0 62723         TXH     NFN1     
 TD   01367  3 00000 0 62724         TXH     NFN1+1   
 TD   01370  3 00000 0 01365         TXH     *-3
      01371  0074 00 4 00007         TSX     CLOSE,4  
 TD   01372  3 00000 0 62721         TXH     NFN2     
 TD   01373  3 00000 0 62722         TXH     NFN2+1   
 TD   01374  3 00000 0 01371         TXH     *-3
      01375  0074 00 4 00013         TSX     UMOUNT,4 
 TD   01376  3 00000 0 06564         TXH     =11
      01377  2 05764 0 05755         TIX     MESA,,LMESA    
      01400  0074 00 4 00013         TSX     UMOUNT,4 
 TD   01401  3 00000 0 06565         TXH     =12
      01402  2 05774 0 05765         TIX     MESB,,LMESB    
                              *     
      01403  0500 00 0 60254         CLA     REELNO   
      01404  0400 00 0 06557         ADD     =2 
      01405  0074 00 4 06015         TSX     BINBCD,4 
      01406 -0501 00 0 06601         ORA     =H    00 
      01407  0602 00 0 05753         SLW     REEL+3   
                              *     
      01410  0074 00 4 00010         TSX     WRFILE,4      INDICATE END OF REEL ON MAP    
 TD   01411  3 00000 0 06574         TXH     =HDUMPTP 
 TD   01412  3 00000 0 06600         TXH     =H 'MAP' 
 TD   01413  3 00000 0 06555         TXH     =0 
      01414  2 05754 0 05733         TIX     EREELM,,LREELM 
      01415  0074 00 4 01417         TSX     PATCH1,4 
      01416  0020 00 0 01305         TRA     WNE
                              *     
      01417  0634 00 4 01547  PATCH1 SXA     PXR4,4   
1            MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64       05/11/69 2011.6 PAGE 13    
                  
      01420  0074 00 4 00001         TSX     DELFIL,4 
 TD   01421  3 00000 0 62723         TXH     NFN1     
 TD   01422  3 00000 0 62724         TXH     NFN1+1   
 TD   01423  3 00000 0 01424         TXH     *+1
      01424  0074 00 4 00002         TSX     TAPFIL,4 
 TD   01425  3 00000 0 62723         TXH     NFN1     
 TD   01426  3 00000 0 62724         TXH     NFN1+1   
 TD   01427  3 00000 0 06564         TXH     =11
 TD   01430  3 00000 0 06555         TXH     =0 
      01431  0074 00 4 00012         TSX     MOUNT,4       MOUNT AND LABEL NEW REELS
 TD   01432  3 00000 0 06556         TXH     =1 
 TD   01433  3 00000 0 06564         TXH     =11
      01434  2 06004 0 05775         TIX     MESC,,LMESC    
      01435  0074 00 4 00014         TSX     LABEL,4  
 TD   01436  3 00000 0 06564         TXH     =11
      01437  2 00026 0 60244         TIX     TAPEID,,L4     
 TD   01440  3 00000 0 01431         TXH     *-7
      01441  0074 00 4 00001         TSX     DELFIL,4 
 TD   01442  3 00000 0 62721         TXH     NFN2     
 TD   01443  3 00000 0 62722         TXH     NFN2+1   
 TD   01444  3 00000 0 01445         TXH     *+1
      01445  0074 00 4 00002         TSX     TAPFIL,4 
 TD   01446  3 00000 0 62721         TXH     NFN2     
 TD   01447  3 00000 0 62722         TXH     NFN2+1   
 TD   01450  3 00000 0 06565         TXH     =12
 TD   01451  3 00000 0 06555         TXH     =0 
      01452  0074 00 4 00012         TSX     MOUNT,4  
 TD   01453  3 00000 0 06557         TXH     =2 
 TD   01454  3 00000 0 06565         TXH     =12
      01455  2 06014 0 06005         TIX     MESD,,LMESD    
      01456  0074 00 4 00014         TSX     LABEL,4  
 TD   01457  3 00000 0 06565         TXH     =12
      01460  2 00026 0 60244         TIX     TAPEID,,L4     
 TD   01461  3 00000 0 01452         TXH     *-7
                              *     
      01462  0074 00 4 00003  WNN    TSX     OPEN,4        RE-OPEN DUMP TAPE FILES  
 TD   01463  3 00000 0 00032         TXH     W  
 TD   01464  3 00000 0 62723         TXH     NFN1     
 TD   01465  3 00000 0 62724         TXH     NFN1+1   
 TD   01466  3 00000 0 06567         TXH     =O120    
 TD   01467  3 00000 0 00031         TXH     LTAPE    
 TD   01470  3 00000 0 01472         TXH     *+2
      01471  0020 00 0 01475         TRA     WNO
      01472                          PRERR
      01472  0074 00 4 00021         TSX     $PRNTER,4                                                        .001
      01473  0074 00 4 00016         TSX     $GDSIG,4                                                         .001
      01474  0020 00 0 01462         TRA     WNN
      01475  0074 00 4 00003  WNO    TSX     OPEN,4   
 TD   01476  3 00000 0 00032         TXH     W  
 TD   01477  3 00000 0 62721         TXH     NFN2     
 TD   01500  3 00000 0 62722         TXH     NFN2+1   
 TD   01501  3 00000 0 06567         TXH     =O120    
 TD   01502  3 00000 0 00031         TXH     LTAPE    
 TD   01503  3 00000 0 01505         TXH     *+2
      01504  0020 00 0 01510         TRA     WNP
      01505                          PRERR
1            MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64       05/11/69 2011.6 PAGE 14    
                  
      01505  0074 00 4 00021         TSX     $PRNTER,4                                                        .001
      01506  0074 00 4 00016         TSX     $GDSIG,4                                                         .001
      01507  0020 00 0 01475         TRA     WNO
                              *     
      01510  0074 00 4 00004  WNP    TSX     BUFFER,4 
 TD   01511  3 00000 0 62723         TXH     NFN1     
 TD   01512  3 00000 0 62724         TXH     NFN1+1   
      01513  2 00024 0 62040         TIX     ITB1,,LITB1    
      01514  0074 00 4 00004         TSX     BUFFER,4 
 TD   01515  3 00000 0 62721         TXH     NFN2     
 TD   01516  3 00000 0 62722         TXH     NFN2+1   
      01517  2 00025 0 61160         TIX     ITB2,,LITB2    
                              *     
      01520  0500 00 0 60254         CLA     REELNO   
      01521  0400 00 0 06556         ADD     =1 
      01522  0601 00 0 60254         STO     REELNO   
      01523                          MOVE    9,TAPEID,PHBUF 
      01523  0774 00 1 00011         AXT     9,1                                                              .001
      01524 -0500 00 1 60255         CAL     TAPEID+9,1                                                       .001
      01525  0602 00 1 05062         SLW     PHBUF+9,1                                                        .001
      01526  2 00001 1 01524         TIX     *-2,1,1                                                          .001
      01527  0074 00 4 00010         TSX     WRFILE,4      WRITE DAEMON I.D. LABEL RECORD 
 TD   01530  3 00000 0 62723         TXH     NFN1     
 TD   01531  3 00000 0 62724         TXH     NFN1+1   
 TD   01532  3 00000 0 06555         TXH     =0 
      01533  2 05731 0 05051         TIX     PHBUF,,LPHSIZ  
      01534  0074 00 4 00010         TSX     WRFILE,4 
 TD   01535  3 00000 0 62721         TXH     NFN2     
 TD   01536  3 00000 0 62722         TXH     NFN2+1   
 TD   01537  3 00000 0 06555         TXH     =0 
      01540  2 05731 0 05051         TIX     PHBUF,,LPHSIZ  
      01541  0074 00 4 00006         TSX     FWAIT,4  
 TD   01542  3 00000 0 62723         TXH     NFN1     
 TD   01543  3 00000 0 62724         TXH     NFN1+1   
      01544  0074 00 4 00006         TSX     FWAIT,4  
 TD   01545  3 00000 0 62721         TXH     NFN2     
 TD   01546  3 00000 0 62722         TXH     NFN2+1   
      01547  0774 00 4 00000  PXR4   AXT     **,4     
      01550  0020 00 4 00001         TRA     1,4
                              *     
                       00660  RECSZ  EQU     432
      01551                   FBUF   BSS     4*RECSZ  
      05051                   PHBUF  BSS     RECSZ    
      05731  0 00000 0 00660  LPHSIZ PZE     RECSZ    
      05732  0 00000 0 00000  WSW    PZE  
      05733 -377777000013     EREELM OCT     777777000013   
      05734  006060606060            BCI     7,0
      05735  606060606060     
      05736  606060606060     
      05737  606060606060     
      05740  606060606060     
      05741  606060606060     
      05742  606060606060     
      05743  545454607460            BCI     4,*** ( END OF REEL ) ***  
      05744  254524604626     
      05745  605125254360     
1            MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64       05/11/69 2011.6 PAGE 15    
                  
      05746  346054545460     
      05747 -377777000004            OCT     777777000004   
      05750  016060606060     REEL   BCI     4,1     REEL NUMBER  
      05751  512525436045     
      05752  644422255160     
      05753  606060606060     
      05754  0 00000 0 00021  LREELM PZE     *-EREELM 
      05755  606445444664     MESA   BCI     7, UNMOUNT DUMP TAPE REEL ON CHANNEL A.
      05756  456360246444     
      05757  476063214725     
      05760  605125254360     
      05761  464560233021     
      05762  454525436021     
      05763  336060606060     
      05764  0 00000 0 00007  LMESA  PZE     *-MESA   
      05765  606445444664     MESB   BCI     7, UNMOUNT DUMP TAPE REEL ON CHANNEL B.
      05766  456360246444     
      05767  476063214725     
      05770  605125254360     
      05771  464560233021     
      05772  454525436022     
      05773  336060606060     
      05774  0 00000 0 00007  LMESB  PZE     *-MESB   
      05775  604446644563     MESC   BCI     7, MOUNT FRESH REEL ON CHANNEL A FOR DUMPER. 
      05776  602651256230     
      05777  605125254360     
      06000  464560233021     
      06001  454525436021     
      06002  602646516024     
      06003  644447255133     
      06004  0 00000 0 00007  LMESC  PZE     *-MESC   
      06005  604446644563     MESD   BCI     7, MOUNT FRESH REEL ON CHANNEL B FOR DUMPER. 
      06006  602651256230     
      06007  605125254360     
      06010  464560233021     
      06011  454525436022     
      06012  602646516024     
      06013  644447255133     
      06014  0 00000 0 00007  LMESD  PZE     *-MESD   
      06015  0634 00 4 06033  BINBCD SXA     B4,4     
      06016  0634 00 1 06032         SXA     B1,1     
      06017  0774 00 1 00000         AXT     0,1
      06020 -0320 00 0 06566         ANA     =O77     
      06021  0402 00 0 06563         SUB     =10
      06022  0120 00 0 06024         TPL     *+2
      06023  0020 00 0 06026         TRA     *+3
      06024  1 00001 1 06025         TXI     *+1,1,1  
      06025  0020 00 0 06021         TRA     *-4
      06026  0400 00 0 06563         ADD     =10
      06027 -0765 00 0 00006         LGR     6  
      06030  0754 00 1 00000         PXA     ,1 
      06031 -0763 00 0 00006         LGL     6  
      06032  0774 00 1 00000  B1     AXT     **,1     
      06033  0774 00 4 00000  B4     AXT     **,4     
      06034  0020 00 4 00001         TRA     1,4
                              *     
1            MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64       05/11/69 2011.6 PAGE 16    
                  
                              * . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 
                              *      READ N WORDS FROM NEXT UNREAD POSITION OF THE ALREADY OPENED     
                              *      FILE (UFDENT,UFDENT+1) OF USER (MFDENT,MFDENT+1) INTO ARRAY
                              *      THROUGH ARRAY+N-1. IF AN EOF IS MET, EOFCTA IS SET TO NO. OF     
                              *      WORDS READBEFORE IT, AND FEOF IS SET TO ZERO.  
                              *     
                              *              CALLING SEQUENCE -  TSX  RDF,4   
                              *                                  TXH  ARRAY   
                              *                                  TXH  N 
                              *                          (ERROR RETURN) 
                              *                          (NORMAL RETURN)
                              * . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 
                              *     
      06035  0634 00 4 06063  RDF    SXA     RDD,4    
      06036  0500 00 4 00001         CLA     1,4
      06037  0621 00 0 06053         STA     RDA           (ARRAY)
      06040  0500 00 4 00002         CLA     2,4
      06041  0767 00 0 00022         ALS     18 
      06042  0622 00 0 06053         STD     RDA           (N)    
                              *     
      06043  0074 00 4 00016         TSX     $GDSIG,4 
      06044  0074 00 4 00000         TSX     ATTACH,4      ATTACH TO USER CURRENTLY BEING DUMPED
 TD   06045  3 00000 0 64510         TXH     MFDENT   
 TD   06046  3 00000 0 64511         TXH     MFDENT+1 
                              *     
      06047  0074 00 4 00005         TSX     RDFILE,4      READ N WORDS FROM FILE CURRENTLY     
 TD   06050  3 00000 0 62741         TXH     UFDENT         BEING DUMPED
 TD   06051  3 00000 0 62742         TXH     UFDENT+1 
 TD   06052  3 00000 0 06555         TXH     =0            FROM NEXT UNREAD POSITION IN IT,     
      06053  2 00000 0 00000   RDA   TIX     **,,**        INTO ARRAY THROUGH ARRAY+N-1   
 TD   06054  3 00000 0 06065         TXH     RDE           END OF FILE TRANSFER ADDRESS   
 TD   06055  3 00000 0 62732         TXH     EOFCTA   
 TD   06056  3 00000 0 06067         TXH     ERRH          (ERROR TRANSFER ADDRESS) 
                              *     
      06057  0074 00 4 00006  RDC    TSX     FWAIT,4       WAIT UNTIL READING COMPLETE    
 TD   06060  3 00000 0 62741         TXH     UFDENT        .
 TD   06061  3 00000 0 62742         TXH     UFDENT+1      .
 TD   06062  3 00000 0 06067         TXH     ERRH     
                              *     
      06063  0774 00 4 00000   RDD   AXT     **,4     
      06064  0020 00 4 00004   RDDA  TRA     4,4           RETURN TO CALLER   
                              *     
      06065  0600 00 0 62733  RDE    STZ     FEOF          INDICATE END OF FILE OCCURRED  
      06066  0020 00 0 06057         TRA     RDC           RETURN TO WAIT FOR COMPLETION  
                              *     
      06067                   ERRH   BGNERM  =HH           TROUBLE READING A FILE TO BE DUMPED  
      06067  0634 00 4 06072         SXA     *+3,4                                                            .001
      06070  0074 00 4 00017         TSX     $BERM,4                                                          .001
      06071  0 00000 0 06576         PZE     =HH                                                              .001
      06072  0774 00 4 00000         AXT     **,4                                                             .001
      06073                          PRLINE  ( ERROR READING THE FOLLOWING FILE  -      ),7,2,UFDENT,U
                                     ETC     FDENT+1  
      06073                          MOVE    7,..023,PBF                                                      .001
      06073  0774 00 1 00007         AXT     7,1                                                              .002
      06074 -0500 00 1 06501         CAL     ..023+7,1                                                        .002
      06075  0602 00 1 64535         SLW     PBF+7,1                                                          .002
1            MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64       05/11/69 2011.6 PAGE 17    
                  
      06076  2 00001 1 06074         TIX     *-2,1,1                                                          .002
      06077 -0500 00 0 62741         CAL     UFDENT                                                           .001
      06100  0602 00 0 64535         SLW     PBF+7                                                            .001
      06101 -0500 00 0 62742         CAL     UFDENT+1                                                         .001
      06102  0602 00 0 64536         SLW     PBF+7+1                                                          .001
      06103                          PRBUFF  PBF,7+2                                                          .001
      06103  0634 00 4 06106         SXA     *+3,4                                                            .002
      06104  0074 00 4 00011         TSX     WRFLX,4                                                          .002
      06105  0 00011 0 64526                 PBF,,7+2                                                         .002
      06106  0774 00 4 00000         AXT     **,4                                                             .002
      06107                          CLEAR   PBF,7+2                                                          .002
      06107  0774 00 1 00011         AXT     7+2,1                                                            .003
      06110  0600 00 1 64537         STZ     PBF+7+2,1                                                        .003
      06111  2 00001 1 06110         TIX     *-1,1,1                                                          .003
                                     RMT                                                                      .001
                              ..023  BCI     7, ERROR READING THE FOLLOWING FILE  -                           .001
                                     RMT                                                                      .001
      06112                          PRLINE  ( IT BELONGS TO -  ),3,2,MFDENT,MFDENT+1     
      06112                          MOVE    3,..024,PBF                                                      .001
      06112  0774 00 1 00003         AXT     3,1                                                              .002
      06113 -0500 00 1 06504         CAL     ..024+3,1                                                        .002
      06114  0602 00 1 64531         SLW     PBF+3,1                                                          .002
      06115  2 00001 1 06113         TIX     *-2,1,1                                                          .002
      06116 -0500 00 0 64510         CAL     MFDENT                                                           .001
      06117  0602 00 0 64531         SLW     PBF+3                                                            .001
      06120 -0500 00 0 64511         CAL     MFDENT+1                                                         .001
      06121  0602 00 0 64532         SLW     PBF+3+1                                                          .001
      06122                          PRBUFF  PBF,3+2                                                          .001
      06122  0634 00 4 06125         SXA     *+3,4                                                            .002
      06123  0074 00 4 00011         TSX     WRFLX,4                                                          .002
      06124  0 00005 0 64526                 PBF,,3+2                                                         .002
      06125  0774 00 4 00000         AXT     **,4                                                             .002
      06126                          CLEAR   PBF,3+2                                                          .002
      06126  0774 00 1 00005         AXT     3+2,1                                                            .003
      06127  0600 00 1 64533         STZ     PBF+3+2,1                                                        .003
      06130  2 00001 1 06127         TIX     *-1,1,1                                                          .003
                                     RMT                                                                      .001
                              ..024  BCI     3, IT BELONGS TO -                                               .001
                                     RMT                                                                      .001
      06131                          PRLINE  ( MOVING ON TO HIS NEXT FILE.  ),5,0   
      06131                          MOVE    5,..027,PBF                                                      .001
      06131  0774 00 1 00005         AXT     5,1                                                              .002
      06132 -0500 00 1 06511         CAL     ..027+5,1                                                        .002
      06133  0602 00 1 64533         SLW     PBF+5,1                                                          .002
      06134  2 00001 1 06132         TIX     *-2,1,1                                                          .002
      06135                          PRBUFF  PBF,5+0                                                          .001
      06135  0634 00 4 06140         SXA     *+3,4                                                            .002
      06136  0074 00 4 00011         TSX     WRFLX,4                                                          .002
      06137  0 00005 0 64526                 PBF,,5+0                                                         .002
      06140  0774 00 4 00000         AXT     **,4                                                             .002
      06141                          CLEAR   PBF,5+0                                                          .002
      06141  0774 00 1 00005         AXT     5+0,1                                                            .003
      06142  0600 00 1 64533         STZ     PBF+5+0,1                                                        .003
      06143  2 00001 1 06142         TIX     *-1,1,1                                                          .003
                                     RMT                                                                      .001
                              ..027  BCI     5, MOVING ON TO HIS NEXT FILE.                                   .001
1            MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64       05/11/69 2011.6 PAGE 18    
                  
                                     RMT                                                                      .001
      06144                          MOVE    5,ERSTAT,PBF   
      06144  0774 00 1 00005         AXT     5,1                                                              .001
      06145 -0500 00 1 00052         CAL     ERSTAT+5,1                                                       .001
      06146  0602 00 1 64533         SLW     PBF+5,1                                                          .001
      06147  2 00001 1 06145         TIX     *-2,1,1                                                          .001
      06150                          PRBUFF  PBF,5    
      06150  0634 00 4 06153         SXA     *+3,4                                                            .001
      06151  0074 00 4 00011         TSX     WRFLX,4                                                          .001
      06152  0 00005 0 64526                 PBF,,5                                                           .001
      06153  0774 00 4 00000         AXT     **,4                                                             .001
      06154                          CLEAR   PBF,5                                                            .001
      06154  0774 00 1 00005         AXT     5,1                                                              .002
      06155  0600 00 1 64533         STZ     PBF+5,1                                                          .002
      06156  2 00001 1 06155         TIX     *-1,1,1                                                          .002
      06157  0534 00 4 06063         LXA     RDD,4    
      06160  1 00001 4 06064         TXI     RDDA,4,1      GO TAKE ERROR EXIT (3,4) 
                  
                              *     
                              * . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 
                              *   READ NEXT U.F.D. ENTRY FROM BUFFER UBUF INTO UFDENT THROUGH UFDENT+5
                              *    (WHEN UBUF IS EMPTIED, REFILL IT FROM OUR COPY OF UFD FILE)  
                              *     
                              *    CALLING SEQUENCES -  1. TO INITIALISE,   TSX  IENUFD,4 
                              *                                              (ERROR RETURN)     
                              *                                              (NORMAL RETURN)    
                              *     
                              *                         2. NORMAL ENTRY,    TSX  ENTUFD,4 
                              *                                              (ERROR RETURN)     
                              *                                              (NORMAL RETURN)    
                              * . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 
                              *     
      06161  0500 00 0 06161  IENUFD CLA     *             ZERO CFDEOF INDICATES PHYSICAL EOF   
      06162  0601 00 0 00053         STO     CFDEOF        HAS OCCURRED IN OUR COPY OF CURRENT UFD.   
      06163  0601 00 0 62747         STO     UFDEOF        ZERO UFDEOF INDICATES LAST ENTRY BEEN READ 
      06164  0601 00 0 00054         STO     SW            SET SWITCH NON-ZERO
      06165  0500 00 0 06560         CLA     =4            UFDC POINTS TO NEXT UNREAD ENTRY IN  
      06166  0601 00 0 62736         STO     UFDC          OUR COPY OF THE UFD FILE 
      06167  0634 00 1 06221         SXA     EUD,1    
      06170  0634 00 2 06222         SXA     EUE,2    
      06171  0634 00 4 06220         SXA     EUCA,4   
      06172  0020 00 0 06230         TRA     EUG
                              *     
                              *      NORMAL ENTRY     
                              *     
      06173  0634 00 1 06221  ENTUFD SXA     EUD,1    
      06174  0634 00 2 06222         SXA     EUE,2    
      06175  0634 00 4 06220         SXA     EUCA,4   
      06176  0500 00 0 00736         CLA     UBADR         PREPARE ADDRESS    
      06177  0400 00 0 00052         ADD     CFDC          OF 6TH WORD OF     
      06200  0621 00 0 06202         STA     EUA           NEXT UFD ENTRY IN UBUF   
      06201  0774 00 1 00006         AXT     6,1
      06202  0500 00 1 00000   EUA   CLA     **,1          MOVE 1ST 6 WORDS OF UFD ENTRY FROM   
      06203  0601 00 1 62747         STO     UFDENT+6,1    UBUF+CFDC-1 ET SEQ TO UFDENT ET SEQ  
      06204  2 00001 1 06202         TIX     EUA,1,1  
                              *     
1            MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64       05/11/69 2011.6 PAGE 19    
                  
      06205  0500 00 0 06556  EUB    CLA     =1            P
      06206  0400 00 0 06562         ADD     =6            6+P    
      06207  0400 00 0 00052         ADD     CFDC          CFDC+6+P     
      06210  0601 00 0 00052         STO     CFDC          UPDATE CFDC BY (6+P) FOR NEXT TIME   
                              *     
      06211 -0520 00 0 00053         NZT     CFDEOF        HAS PHYSICAL EOF OCCURRED IN UFD FILE
      06212  0020 00 0 06253         TRA     EUJ           YES, SKIP    
      06213  0500 00 0 00735         CLA     LUBSIZ        NO, SEE IF AT LEAST 6 WORDS LEFT IN UBUF   
      06214  0402 00 0 06561         SUB     =5            FOR NEXT TIME
      06215  0402 00 0 00052         SUB     CFDC     
      06216 -0120 00 0 06224         TMI     EUF           NO, SKIP IF CFDC .GR. (LUBSIZ-5)     
      06217  0600 00 0 00054   EUC   STZ     SW            O.K., CFDC .LE. (LUBSIZ-5), ZEROISE SWITCH 
      06220  0774 00 4 00000   EUCA  AXT     **,4     
      06221  0774 00 1 00000   EUD   AXT     **,1     
      06222  0774 00 2 00000   EUE   AXT     **,2     
      06223  0020 00 4 00002         TRA     2,4           RETURN TO CALLER   
                              *     
      06224  0500 00 0 62736   EUF   CLA     UFDC          LESS THAN 6 WORDS LEFT IN UBUF, PREPARE    
      06225  0400 00 0 00052         ADD     CFDC          TO REFILL IT -  UPDATE PHYSICAL
      06226  0402 00 0 06556         SUB     =1                            FILE POINTER.  
      06227  0601 00 0 62736         STO     UFDC     
                              *     
      06230  0500 00 0 06556  EUG    CLA     =1            RESET CFDC TO 1    
      06231  0601 00 0 00052         STO     CFDC     
      06232  0074 00 4 00016         TSX     $GDSIG,4 
      06233  0074 00 4 00000         TSX     ATTACH,4 
 TD   06234  3 00000 0 64510         TXH     MFDENT   
 TD   06235  3 00000 0 64511         TXH     MFDENT+1 
      06236  0074 00 4 00005         TSX     RDFILE,4      REFILL UBUF FROM OUR COPY OF UFD FILE
 TD   06237  3 00000 0 00042         TXH     UFDNAM   
 TD   06240  3 00000 0 00043         TXH     UFDNAM+1 
 TD   06241  3 00000 0 62736         TXH     UFDC     
      06242  2 00735 0 00055         TIX     UBUF,,LUBSIZ   
 TD   06243  3 00000 0 06252         TXH     EUI           EOF TRANSFER ADDRESS     
 TD   06244  3 00000 0 00737         TXH     EOFCTB   
      06245  0074 00 4 00006  EUH    TSX     FWAIT,4       WAIT UNTIL TRANSMISSION COMPLETION   
 TD   06246  3 00000 0 00042         TXH     UFDNAM   
 TD   06247  3 00000 0 00043         TXH     UFDNAM+1 
 TD   06250  3 00000 0 06403         TXH     EUM           ERROR  
      06251  0020 00 0 06217         TRA     EUC           WAIT SOME MORE     
                              *     
      06252  0600 00 0 00053   EUI   STZ     CFDEOF        EOF    
      06253  0500 00 0 00737   EUJ   CLA     EOFCTB        PHYSICAL EOF HAS BEEN DETECTED IN UFD FILE 
      06254  0402 00 0 06561         SUB     =5            ARE THERE ENOUGH WORDS LEFT IN IT    
      06255  0402 00 0 00052         SUB     CFDC          FOR ANOTHER ENTRY  
      06256  0120 00 0 06245         TPL     EUH           CFDC .LESS. EOFCT-5, ENOUGH LEFT, GO EXIT  
      06257  0400 00 0 06562         ADD     =6            NO, NO MORE ENTRIES, CHECK THAT
      06260 -0100 00 0 06271         TNZ     EUK           CFDC=EOFCT+1 .  ERROR IF NOT, SKIP   
      06261  0600 00 0 62747         STZ     UFDEOF        INDICATE THIS WAS LAST ENTRY   
      06262 -0520 00 0 00054         NZT     SW            FILE WAS EMPTY IF SWITCH STILL NON-ZERO    
      06263  0020 00 0 06245         TRA     EUH           IT WAS NOT EMPTY, GO EXIT
                                             ERROR TREATMENT
      06264                          BGNERM  =HCUFD01 
      06264  0634 00 4 06267         SXA     *+3,4                                                            .001
      06265  0074 00 4 00017         TSX     $BERM,4                                                          .001
      06266  0 00000 0 06571         PZE     =HCUFD01                                                         .001
1            MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64       05/11/69 2011.6 PAGE 20    
                  
      06267  0774 00 4 00000         AXT     **,4                                                             .001
      06270  0020 00 0 06275         TRA     EUL
      06271                    EUK   BGNERM  =HCUFD02 
      06271  0634 00 4 06274         SXA     *+3,4                                                            .001
      06272  0074 00 4 00017         TSX     $BERM,4                                                          .001
      06273  0 00000 0 06572         PZE     =HCUFD02                                                         .001
      06274  0774 00 4 00000         AXT     **,4                                                             .001
      06275                   EUL    PRLINE  ( E.O.F. DETECTED IN WRONG PLACE IN DUMP PROGRAM'S COPY),
                                     ETC     9,0
      06275                          MOVE    9,..030,PBF                                                      .001
      06275  0774 00 1 00011         AXT     9,1                                                              .002
      06276 -0500 00 1 06522         CAL     ..030+9,1                                                        .002
      06277  0602 00 1 64537         SLW     PBF+9,1                                                          .002
      06300  2 00001 1 06276         TIX     *-2,1,1                                                          .002
      06301                          PRBUFF  PBF,9+0                                                          .001
      06301  0634 00 4 06304         SXA     *+3,4                                                            .002
      06302  0074 00 4 00011         TSX     WRFLX,4                                                          .002
      06303  0 00011 0 64526                 PBF,,9+0                                                         .002
      06304  0774 00 4 00000         AXT     **,4                                                             .002
      06305                          CLEAR   PBF,9+0                                                          .002
      06305  0774 00 1 00011         AXT     9+0,1                                                            .003
      06306  0600 00 1 64537         STZ     PBF+9+0,1                                                        .003
      06307  2 00001 1 06306         TIX     *-1,1,1                                                          .003
                                     RMT                                                                      .001
                              ..030  BCI     9, E.O.F. DETECTED IN WRONG PLACE IN DUMP PROGRAM'S COPY         .001
                                     RMT                                                                      .001
      06310                          PRLINE  (  OF THE U.F.D. FOR THE FOLLOWING USER -  ),7,0   
      06310                          MOVE    7,..033,PBF                                                      .001
      06310  0774 00 1 00007         AXT     7,1                                                              .002
      06311 -0500 00 1 06531         CAL     ..033+7,1                                                        .002
      06312  0602 00 1 64535         SLW     PBF+7,1                                                          .002
      06313  2 00001 1 06311         TIX     *-2,1,1                                                          .002
      06314                          PRBUFF  PBF,7+0                                                          .001
      06314  0634 00 4 06317         SXA     *+3,4                                                            .002
      06315  0074 00 4 00011         TSX     WRFLX,4                                                          .002
      06316  0 00007 0 64526                 PBF,,7+0                                                         .002
      06317  0774 00 4 00000         AXT     **,4                                                             .002
      06320                          CLEAR   PBF,7+0                                                          .002
      06320  0774 00 1 00007         AXT     7+0,1                                                            .003
      06321  0600 00 1 64535         STZ     PBF+7+0,1                                                        .003
      06322  2 00001 1 06321         TIX     *-1,1,1                                                          .003
                                     RMT                                                                      .001
                              ..033  BCI     7,  OF THE U.F.D. FOR THE FOLLOWING USER -                       .001
                                     RMT                                                                      .001
      06323                          PRLINE  (                        PROBLEM NO. ),6,1,MFDENT  
      06323                          MOVE    6,..035,PBF                                                      .001
      06323  0774 00 1 00006         AXT     6,1                                                              .002
      06324 -0500 00 1 06537         CAL     ..035+6,1                                                        .002
      06325  0602 00 1 64534         SLW     PBF+6,1                                                          .002
      06326  2 00001 1 06324         TIX     *-2,1,1                                                          .002
      06327 -0500 00 0 64510         CAL     MFDENT                                                           .001
      06330  0602 00 0 64534         SLW     PBF+6                                                            .001
      06331                          PRBUFF  PBF,6+1                                                          .001
      06331  0634 00 4 06334         SXA     *+3,4                                                            .002
      06332  0074 00 4 00011         TSX     WRFLX,4                                                          .002
      06333  0 00007 0 64526                 PBF,,6+1                                                         .002
1            MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64       05/11/69 2011.6 PAGE 21    
                  
      06334  0774 00 4 00000         AXT     **,4                                                             .002
      06335                          CLEAR   PBF,6+1                                                          .002
      06335  0774 00 1 00007         AXT     6+1,1                                                            .003
      06336  0600 00 1 64535         STZ     PBF+6+1,1                                                        .003
      06337  2 00001 1 06336         TIX     *-1,1,1                                                          .003
                                     RMT                                                                      .001
                              ..035  BCI     6,                        PROBLEM NO.                            .001
                                     RMT                                                                      .001
      06340                          PRLINE  (                     PROGRAMMER NO. ),6,1,MFDENT+1
      06340                          MOVE    6,..037,PBF                                                      .001
      06340  0774 00 1 00006         AXT     6,1                                                              .002
      06341 -0500 00 1 06545         CAL     ..037+6,1                                                        .002
      06342  0602 00 1 64534         SLW     PBF+6,1                                                          .002
      06343  2 00001 1 06341         TIX     *-2,1,1                                                          .002
      06344 -0500 00 0 64511         CAL     MFDENT+1                                                         .001
      06345  0602 00 0 64534         SLW     PBF+6                                                            .001
      06346                          PRBUFF  PBF,6+1                                                          .001
      06346  0634 00 4 06351         SXA     *+3,4                                                            .002
      06347  0074 00 4 00011         TSX     WRFLX,4                                                          .002
      06350  0 00007 0 64526                 PBF,,6+1                                                         .002
      06351  0774 00 4 00000         AXT     **,4                                                             .002
      06352                          CLEAR   PBF,6+1                                                          .002
      06352  0774 00 1 00007         AXT     6+1,1                                                            .003
      06353  0600 00 1 64535         STZ     PBF+6+1,1                                                        .003
      06354  2 00001 1 06353         TIX     *-1,1,1                                                          .003
                                     RMT                                                                      .001
                              ..037  BCI     6,                     PROGRAMMER NO.                            .001
                                     RMT                                                                      .001
      06355                          PRLINE  ( ABANDONING THIS USER IN THE CURRENT DUMP CYCLE.),8,0   
      06355                          MOVE    8,..040,PBF                                                      .001
      06355  0774 00 1 00010         AXT     8,1                                                              .002
      06356 -0500 00 1 06555         CAL     ..040+8,1                                                        .002
      06357  0602 00 1 64536         SLW     PBF+8,1                                                          .002
      06360  2 00001 1 06356         TIX     *-2,1,1                                                          .002
      06361                          PRBUFF  PBF,8+0                                                          .001
      06361  0634 00 4 06364         SXA     *+3,4                                                            .002
      06362  0074 00 4 00011         TSX     WRFLX,4                                                          .002
      06363  0 00010 0 64526                 PBF,,8+0                                                         .002
      06364  0774 00 4 00000         AXT     **,4                                                             .002
      06365                          CLEAR   PBF,8+0                                                          .002
      06365  0774 00 1 00010         AXT     8+0,1                                                            .003
      06366  0600 00 1 64536         STZ     PBF+8+0,1                                                        .003
      06367  2 00001 1 06366         TIX     *-1,1,1                                                          .003
                                     RMT                                                                      .001
                              ..040  BCI     8, ABANDONING THIS USER IN THE CURRENT DUMP CYCLE.               .001
                                     RMT                                                                      .001
      06370                          MOVE    5,ERSTAT,PBF   
      06370  0774 00 1 00005         AXT     5,1                                                              .001
      06371 -0500 00 1 00052         CAL     ERSTAT+5,1                                                       .001
      06372  0602 00 1 64533         SLW     PBF+5,1                                                          .001
      06373  2 00001 1 06371         TIX     *-2,1,1                                                          .001
      06374                          PRBUFF  PBF,5    
      06374  0634 00 4 06377         SXA     *+3,4                                                            .001
      06375  0074 00 4 00011         TSX     WRFLX,4                                                          .001
      06376  0 00005 0 64526                 PBF,,5                                                           .001
      06377  0774 00 4 00000         AXT     **,4                                                             .001
1            MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64       05/11/69 2011.6 PAGE 22    
                  
      06400                          CLEAR   PBF,5                                                            .001
      06400  0774 00 1 00005         AXT     5,1                                                              .002
      06401  0600 00 1 64533         STZ     PBF+5,1                                                          .002
      06402  2 00001 1 06401         TIX     *-1,1,1                                                          .002
      06403  0534 00 4 06220  EUM    LXA     EUCA,4   
      06404  1 00001 4 06221         TXI     EUD,4,1  
                              *     
                                     INSERT  DCMEQB   
                              *     
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
                              *    COMMON AND EQUIVALENCE FOR GENERAL DUMP PROGRAM  
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
                              *     
                      074446  DEMKEY BOOL    74446         CORE A LOCATION FOR DAEMON'S KEY SETTING   
                      074624  SYSTIM BOOL    74624         CORE A LOCATION FOR SYSTEM  TIME     
                      074623  SYSDAT BOOL    74623         CORE A LOCATION FOR SYSTEM INIT. DATE
                      076041  RCODE  BOOL    76041         CORE A LOCATION FOR RESTRICTION CODE VECTOR
                      074454  AUTOND BOOL    74454         CORE A AUTOMATIC LOGOUT INDICATOR    
                      074532  NUSERS BOOL    74532         CORE A LOGGED-IN USER COUNT    
                      076500  PROBN  BOOL    76500         CORE A PROBNO ARRAY
                      076305  UFDNM  BOOL    76305         CORE A UFDNM ARRAY 
                      074672  PB     BOOL    74672         CORE A GUARANTEED PERCENTAGE VECTOR BASE   
                       00050  N      EQU     40            CORE A MAX. NO. OF USERS (SIZE OF PROBN)   
                              *     
                      000017  BASE   BOOL    17            KEY CODE BASE
                      000001  I      BOOL    1             KEY CODE TO START INCREMENTAL DUMP   
                      000002  PAUSE  BOOL    2             KEY CODE TO WAIT FOR 1 MIN.    
                      000003  C      BOOL    3             KEY CODE TO DO COMPLETE DUMP   
                      000004  AK     BOOL    4             KEY CODE FOR IMPENDING AUTOLOGOUT    
                      000005  ENFLSH BOOL    5             KEY CODE TO ENTER FLUSH MODE   
                      000006  LVFLSH BOOL    6             KEY CODE TO LEAVE FLUSH MODE   
                      000007  ENDTAP BOOL    7             KEY CODE TO TERMINATE DUMP TAPE FILE 
                      000010  INT    BOOL    10            SIMULATE INTERRUPT 
                       00660  RECSIZ EQU     432           TAPE RECORD SIZE   
                       00006   NX    EQU     6             MAX. NO. OF SYSTEM FILE OWNERS 
                       00030  NCD    EQU     24            MAX. NO. 'DAYS' NON-USE OF CURRENT FILES   
                       00014  DINC   EQU     12            NO. DAYS OF 'RECENCY' INCREMENT (C.DUMP)   
                       01274  U      EQU     700           MAX. NO. USERS IN MFD USER LIST
                       03300  TBSIZ  EQU     4*RECSIZ      TAPE BUFFER SIZE   
                       00007  ERYSIZ EQU     7             I/O SYSTEM ERROR ARRAY SIZE    
                       00014  ERCODA EQU     12            'OPEN' ERROR CODE FOR FILE NOT FOUND 
                       00016  ERCODB EQU     14            'OPEN' ERROR CODE RQSTD. DEVICE UNAVBLE    
                       00660  NW     EQU     432           SIZE OF SECONDARY I/O FILE BUFFERS   
                       00001  LSDRUM EQU     1             I/O SYSTEM DEVICE CODE FOR L.S.DRUM  
                       00002    DISK EQU     2             I/O SYSTEM DEVICE CODE FOR DISK
                       00003   TAPE  EQU     3             I/O SYSTEM DEVICE CODE FOR TAPE
                       00030  NHOUR  EQU     24            NO. OF HOURS IN A 'DAY'  
                       77461  KEYVAL COMMON  1             LAST KEY SETTING READ FROM SUPERVISOR
                       77460  FLSHSW COMMON  1             FLUSH MODE SWITCH  
                       77457  ENTPSW COMMON  1             OPERATOR-REQUESTED-END-TAPE INDICATOR
                       77456  NMFDU  COMMON  1             NO. USERS CURRENTLY IN LIST    
                       77455  EXEMPT COMMON  2*NX          LIST OF SYSTEM FILE OWNERS     
                       77441  NXMPT  COMMON  1             NO. FILE USERS EXEMPT FROM DUMP IN DCYCLE  
                       77440  DTLD   COMMON  U             TIME LAST DUMPED FOR EACH USER 
                       76144  PROGNO COMMON  U             PROGRAMMER NO. OF EACH USER    
                       74650  PROBNO COMMON  U             PROBLEM NO. OF EACH USER 
1            MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64       05/11/69 2011.6 PAGE 23    
                  
                       73354   FLUSH COMMON  1             NON-ZERO INDICATES FLUSH MODE IS FORCED    
                       73353   TND   COMMON  1             TIME OF NEXT DUMP FOR CURRENT USER   
                       70053         COMMON  TBSIZ-1       TAPE BUFFER  
                       70053  TPBUF  COMMON  1             TAPE BUFFER 1ST WORD     
                       64553         COMMON  TBSIZ-1       2ND TAPE BUFFER    
                       64553  TPBUF2 COMMON  1             2ND TAPE BUFFER, 1ST WORD
                       64544         COMMON  ERYSIZ-1      ERROR ARRAY  
                       64544  ERAY   COMMON  1             ERROR ARRAY 1ST WORD     
                       64526         COMMON  13            PRINT BUFFER 
                       64526   PBF   COMMON  1             PRINT BUFFER 1ST WORD    
                       64510         COMMON  13            MFD ENTRY BUFFER   
                       64510  MFDENT COMMON  1             MFD ENTRY BUFFER 1ST WORD
                       63630         COMMON  NW-1          SECONDARY I/0 FILE BUFFER
                       63630   IOBUF COMMON  1             SECONDARY IO BUFFER 1ST WORD   
                       62750         COMMON  NW-1          SECONDARY I/O FILE BUFFER
                       62750  IOBUF2 COMMON  1             SECONDARY I/O BUFFER 1ST WORD  
                       62747  UFDEOF COMMON  1             ZERO INDICATES EOF IN UFD FILE 
                       62741         COMMON  5             PARTIAL UFD ENTRY BUFFER 
                       62741  UFDENT COMMON  1             PARTIAL UFD ENTRY BUFFER 1ST WORD    
                       62740   MFDC  COMMON  1             NEXT WORD TO BE READ FROM MFD FILE   
                       62737   TLD   COMMON  1             TIME LAST DUMP OF USER CURRENTLY DUMPING   
                       62736   UFDC  COMMON  1             NEXT UNREAD POS. OF UFDFILE (NORMALLY ZERO)
                       62735  MFDEOF COMMON  1             ZERO INDICATES EOF IN MFD FILE 
                       62734   EOFCT COMMON  1             NO. OF WORDS READ BEFORE AN EOF
                       62733   FEOF  COMMON  1             ZERO INDICATES EOF IN A USER FILE    
                       62732  EOFCTA COMMON  1             NO. OF WORDS BEFORE AN EOF     
                       62731   DMPSW COMMON  1             NON-ZERO INDICATES A FILE HAS BEEN DUMPED  
                       62730   DAWN  COMMON  1             TIME OF START OF 'DAY'   
                       62727  DMPUSR COMMON  1             PROBLEM NO. OF DUMP/LOAD PACKAGE     
                       62726  DMPRGR COMMON  1             PROGRAMMER NO. OF  DITTO.
                       62727  DU     EQU     DMPUSR   
                       62726  DP     EQU     DMPRGR   
                       62725   MFD1W COMMON  1             NO. OF 1ST GOOD WORD IN MFD AND UFD FILES  
                       62723         COMMON  1             2ND PART OF DUMP TAPE FILE (COPY 1) NAME   
                       62723  NFN1   COMMON  1             1ST PART OF DUMP TAPE FILE (COPY 1) NAME   
                       62721         COMMON  1             2ND PART OF DUMP TAPE FILE (COPY 2) NAME   
                       62721   NFN2  COMMON  1             1ST PART OF DUMP TAPE FILE (COPY 2) NAME   
                       62720  TNDSW  COMMON  1             INDICATES TIME OF THIS DUMP CURRENT OR NO  
                       62040         COMMON  RECSIZ-1      INTERNAL TAPE BUFFER     
                       62040   ITB1  COMMON  1                ,,     ,,    ,,  1ST WORD   
                       61160         COMMON  RECSIZ-1      INTERNAL TAPE BUFFER     
                       61160   ITB2  COMMON  1                ,,     ,,  ,,  1ST WORD     
                       61157   DUSK  COMMON  1             TIME OF END OF CURRENT 'DAY'   
                       61156   ENDSW COMMON  1             IF 1, NORMAL END-OF-DAY,ELSE OPERATOR ONE  
                       60276         COMMON  NW-1          INTERNAL BUFFER FOR 'MAP' FILE 
                       60276    IMP  COMMON  1                ,,      ,,    ,,   ,,   ,,  1ST WORD    
                       60267         COMMON  6             'MAP' FILE LINE PARAMETER ARRAY
                       60267  ARGLST COMMON  1               ,,   ,,   ,,      ,,      ,,  1ST WORD   
                       60266  CDSW   COMMON  1             NON-ZERO DURING COMPLETE DUMP,ELSE ZERO    
                       60265  DATE   COMMON  1             DATE THE DUMP NOW IN PROGRESS BEGAN  
                       60264  TIME   COMMON  1             TIME DUMP NOW IN PROGRESS BEGAN
                       60263  TCYCLE COMMON  1             'TIME' OF LAST CYCLE ON DUMP TAPE FILE     
                       60262  TFOSW  COMMON  1             NON-ZERO IF DUMP TAPE FILE IS OPEN   
                       60261  ALOG   COMMON  1             NON-ZERO IF AUTOLOGOUT ON
                       60260  SW1    COMMON  1  
                       60257  TCP    COMMON  1  
1            MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64       05/11/69 2011.6 PAGE 24    
                  
                       60256  TNDSAV COMMON  1  
                       60255  ODAWN  COMMON  1             TIME OF START OF PREVIOUS 'DAY'
                       60244         COMMON  8             TAPE LABEL   
                       60244  TAPEID COMMON  1             TAPE LABEL 1ST WORD
                       60243  SKELSW COMMON  1  
                       60254  REELNO EQU     TAPEID+8 
                                     END  
                                              REMOTE SEQUENCES    
      06405  604433263324     ..003  BCI     7, M.F.D. READING ERROR - 5 OR LESS WORDS                        .001
      06406  336051252124     
      06407  314527602551     
      06410  514651604060     
      06411  056046516043     
      06412  256262606646     
      06413  512462606060     
      06414  604731234225     ..006  BCI     7, PICKED UP BEFORE END OF FILE IN M.F.D.                        .001
      06415  246064476022     
      06416  252646512560     
      06417  254524604626     
      06420  602631432560     
      06421  314560443326     
      06422  332433606060     
      06423  602551514651     ..009  BCI     5, ERROR READING M.F.D. FILE.                                    .001
      06424  605125212431     
      06425  452760443326     
      06426  332433602631     
      06427  432533606060     
      06430  602551514651     ..012  BCI     8, ERROR READING U.F.D. FILE OF FOLLOWING USER -                 .001
      06431  605125212431     
      06432  452760643326     
      06433  332433602631     
      06434  432560462660     
      06435  264643434666     
      06436  314527606462     
      06437  255160406060     
      06440  606060606060     ..014  BCI     6,                        PROBLEM NO.                            .001
      06441  606060606060     
      06442  606060606060     
      06443  606060606060     
      06444  475146224325     
      06445  446045463360     
      06446  606060606060     ..016  BCI     6,                     PROGRAMMER NO.                            .001
      06447  606060606060     
      06450  606060606060     
      06451  606060475146     
      06452  275121444425     
      06453  516045463360     
      06454  602122214524     ..019  BCI     8, ABANDONING THIS USER IN THE CURRENT DUMP CYCLE.               .001
      06455  464531452760     
      06456  633031626064     
      06457  622551603145     
      06460  606330256023     
      06461  645151254563     
      06462  602464444760     
      06463  237023432533     
      06464  602545246046     ..022  BCI     6, END OF REEL ON DUMP TAPE FILE.                                .001
1            MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64       05/11/69 2011.6 PAGE 25    
                  
      06465  266051252543     
      06466  604645602464     
      06467  444760632147     
      06470  256026314325     
      06471  336060606060     
      06472  602551514651     ..023  BCI     7, ERROR READING THE FOLLOWING FILE  -                           .001
      06473  605125212431     
      06474  452760633025     
      06475  602646434346     
      06476  663145276026     
      06477  314325606040     
      06500  606060606060     
      06501  603163602225     ..024  BCI     3, IT BELONGS TO -                                               .001
      06502  434645276260     
      06503  634660406060     
      06504  604446653145     ..027  BCI     5, MOVING ON TO HIS NEXT FILE.                                   .001
      06505  276046456063     
      06506  466030316260     
      06507  452567636026     
      06510  314325336060     
      06511  602533463326     ..030  BCI     9, E.O.F. DETECTED IN WRONG PLACE IN DUMP PROGRAMS COPY          .001
      06512  336024256325     
      06513  236325246031     
      06514  456066514645     
      06515  276047432123     
      06516  256031456024     
      06517  644447604751     
      06520  462751214462     
      06521  602346477060     
      06522  606046266063     ..033  BCI     7,  OF THE U.F.D. FOR THE FOLLOWING USER -                       .001
      06523  302560643326     
      06524  332433602646     
      06525  516063302560     
      06526  264643434666     
      06527  314527606462     
      06530  255160406060     
      06531  606060606060     ..035  BCI     6,                        PROBLEM NO.                            .001
      06532  606060606060     
      06533  606060606060     
      06534  606060606060     
      06535  475146224325     
      06536  446045463360     
      06537  606060606060     ..037  BCI     6,                     PROGRAMMER NO.                            .001
      06540  606060606060     
      06541  606060606060     
      06542  606060475146     
      06543  275121444425     
      06544  516045463360     
      06545  602122214524     ..040  BCI     8, ABANDONING THIS USER IN THE CURRENT DUMP CYCLE.               .001
      06546  464531452760     
      06547  633031626064     
      06550  622551603145     
      06551  606330256023     
      06552  645151254563     
      06553  602464444760     
      06554  237023432533     
1            MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64       05/11/69 2011.6 PAGE 26    
                  
        LITERALS  
      06555  000000000000     
      06556  000000000001     
      06557  000000000002     
      06560  000000000004     
      06561  000000000005     
      06562  000000000006     
      06563  000000000012     
      06564  000000000013     
      06565  000000000014     
      06566  000000000077     
      06567  000000000120     
      06570  236060606060     
      06571  236426240001     
      06572  236426240002     
      06573  246060606060     
      06574  246444476347     
      06575  266621316360     
      06576  306060606060     
      06577  514426240001     
      06600  601444214714     
      06601  606060600000     
1            MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64       05/11/69 2011.6 PAGE 1     
                        POST PROCESSOR ASSEMBLY DATA  
                  
       60242 IS THE LAST LOCATION NOT USED BY THIS PROGRAM  
       6602 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM  
                  
0REFERENCES TO DEFINED SYMBOLS      
          3      C  6405
          1      I  6405
         50      N  6405
         44      R      
       1274      U  6405
         32      W  1463, 1476
          4     AK  6405
       6032     B1  6016
       6033     B4  6015
      62726     DP  1256, 6405
      62727     DU  1255, 6405
         26     L4  1437, 1460
         27     L7  1333
        740     L8   752
        660     NW    30, 6405
          6     NX  6405
      74672     PB  6405
         54     SW  6164, 6217, 6262
       6202    EUA  6200, 6204
       6205    EUB      
       6217    EUC  6251
       6221    EUD  6167, 6173, 6404
       6222    EUE  6170, 6174
       6224    EUF  6216
       6230    EUG  6172
       6245    EUH  6256, 6263
       6252    EUI  6243
       6253    EUJ  6212
       6271    EUK  6260
       6275    EUL  6270
       6403    EUM  6250
      60276    IMP  6405
         10    INT  6405
         30    NCD  6405
         37    NOP  1101
      64526    PBF  1002, 1006, 1011, 1015, 1021, 1024, 1030, 1034, 1037, 1053, 1057, 1062, 1152, 1156, 1161, 1165, 1170
                    1173, 1176, 1202, 1205, 1210, 1213, 1217, 1223, 1226, 1232, 1236, 1241, 1354, 1360, 1363, 6075, 6100
                    6102, 6105, 6110, 6114, 6117, 6121, 6124, 6127, 6133, 6137, 6142, 6146, 6152, 6155, 6277, 6303, 6306
                    6312, 6316, 6321, 6325, 6330, 6333, 6336, 6342, 6345, 6350, 6353, 6357, 6363, 6366, 6372, 6376, 6401
                    6405
       6053    RDA  6037, 6042
       6057    RDC  6066
       6063    RDD  6035, 6157
       6065    RDE  6054
       6035    RDF     0
        755    RMA   773
        767    RMB   741, 1041, 1043, 1044
        771    RMC   753
       1026    RMD  1067
       1130    RUA  1073, 1076, 1104, 1107, 1113, 1116
1            MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64       05/11/69 2011.6 PAGE 2     
                        POST PROCESSOR ASSEMBLY DATA  
                  
       1133    RUC  1074, 1077, 1105, 1110, 1143
       1140    RUD  1111, 1243
       1142    RUE  1131
      60260    SW1  6405
      60257    TCP  6405
      62737    TLD  6405
      73353    TND  6405
         40    TRA  1070
       1257    WNA  1324
       1270    WNB  1252, 1277
       1273    WNC  1250, 1276
       1276    WND  1271
       1305    WNE  1351, 1416
       1311    WNF  1303
       1314    WNG      
       1320    WNH  1304
       1325    WNI  1246
       1326    WNJ  1245
       1330    WNK  1263, 1267
       1347    WNL  1336, 1340, 1343
       1352    WNM  1346
       1462    WNN  1474
       1475    WNO  1471, 1507
       1510    WNP  1504
       5732    WSW  1257, 1323, 1331
      60261   ALOG  6405
         17   BASE  6405
         17   BERM   775, 1046, 1145, 6070, 6265, 6272
       1120   BOTH    40, 1071, 1102
      60266   CDSW  6405
         52   CFDC  6177, 6207, 6210, 6215, 6225, 6231, 6255
      60265   DATE  6405
      62730   DAWN  6405
         14   DINC  6405
          2   DISK  6405
      77440   DTLD  6405
      61157   DUSK  6405
      64544   ERAY  1333, 1335, 1341, 1344, 6405
       1144   ERRC  1136
       1045   ERRD   760
       6067   ERRH  6056, 6062
       6220   EUCA  6171, 6175, 6403
       1551   FBUF  1274, 1311, 1320
      62733   FEOF  6065, 6405
      62040   ITB1  1513, 6405
      61160   ITB2  1517, 6405
         30   LBUF      
       5755   MESA  1377, 5764
       5765   MESB  1402, 5774
       5775   MESC  1434, 6004
       6005   MESD  1455, 6014
      62740   MFDC   751,  762,  764, 6405
      62723   NFN1  1261, 1262, 1306, 1307, 1366, 1367, 1421, 1422, 1425, 1426, 1464, 1465, 1511, 1512, 1530, 1531, 1542
                    1543, 6405
      62721   NFN2  1265, 1266, 1315, 1316, 1372, 1373, 1442, 1443, 1446, 1447, 1477, 1500, 1515, 1516, 1535, 1536, 1545
1            MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64       05/11/69 2011.6 PAGE 3     
                        POST PROCESSOR ASSEMBLY DATA  
                  
                    1546, 6405
          3   OPEN  1462, 1475
       1547   PXR4  1417
       6064   RDDA  6160
       5750   REEL  1407
       1141   RUDA  1244
          3   TAPE    31, 6405
      60264   TIME  6405
         55   UBUF   736, 6242
      62736   UFDC  1127, 1137, 6166, 6224, 6227, 6241, 6405
       1245   WRNF     0
        746   ZENT   766
          7  CLOSE  1365, 1371
      62731  DMPSW  6405
      61156  ENDSW  6405
      62734  EOFCT   754,  772, 1132, 6405
      73354  FLUSH  6405
          6  FWAIT   755, 1133, 1260, 1264, 1541, 1544, 6057, 6245
         16  GDSIG   742, 1117, 1253, 1350, 1473, 1506, 6043, 6232
      63630  IOBUF  6405
       6405  ..003  1001
       6414  ..006  1014
       6423  ..009  1052
       6430  ..012  1151
       6440  ..014  1164
       6446  ..016  1201
       6454  ..019  1216
       6464  ..022  1353
       6472  ..023  6074
       6501  ..024  6113
       6504  ..027  6132
       6511  ..030  6276
       6522  ..033  6311
       6531  ..035  6324
       6537  ..037  6341
       6545  ..040  6356
         14  LABEL  1435, 1456
         24  LITB1  1513
         25  LITB2  1517
       5764  LMESA  1377
       5774  LMESB  1402
       6004  LMESC  1434
       6014  LMESD  1455
         31  LTAPE  1467, 1502
      62725  MFD1W  6405
         12  MOUNT  1431, 1452
         30  NHOUR  6405
      77456  NMFDU  6405
      77441  NXMPT  6405
      60255  ODAWN  6405
          2  PAUSE  6405
       5051  PHBUF  1525, 1533, 1540
      76500  PROBN  6405
      76041  RCODE  6405
        741  RDMFD     0
1            MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64       05/11/69 2011.6 PAGE 4     
                        POST PROCESSOR ASSEMBLY DATA  
                  
       1101  RDUFD     0, 1100
        660  RECSZ  1551, 5051, 5731
       3300  TBSIZ  6405
      60262  TFOSW  6405
      62720  TNDSW  6405
      70053  TPBUF  6405
        736  UBADR  6176
        660  UBSIZ    55,  735
      76305  UFDNM  6405
         11  WRFLX  1005, 1020, 1033, 1056, 1155, 1172, 1207, 1222, 1235, 1357, 6104, 6123, 6136, 6151, 6302, 6315, 6332
                    6347, 6362, 6375
      60267 ARGLST  6405
          0 ATTACH   743, 1121, 1254, 6044, 6233
      74454 AUTOND  6405
       6015 BINBCD  1405
          4 BUFFER  1510, 1514
         53 CFDEOF  6162, 6211, 6252
          1 DELFIL  1420, 1441
      74446 DEMKEY  6405
      62726 DMPRGR  6405
      62727 DMPUSR  6405
          7 ENDTAP  6405
          5 ENFLSH  6405
      77457 ENTPSW  6405
       6173 ENTUFD     0
      62732 EOFCTA  6055, 6405
        737 EOFCTB  6244, 6253
         14 ERCODA  6405
         16 ERCODB  6405
       5733 EREELM  1414, 5754
         20 ERREND  1065
         45 ERSTAT  1027, 1231, 6145, 6371
          7 ERYSIZ  6405
      77455 EXEMPT  6405
      77460 FLSHSW  6405
       6161 IENUFD     0
      62750 IOBUF2  6405
         15 IODIAG  1332
      77461 KEYVAL  6405
       5731 LPHSIZ  1533, 1540
       5754 LREELM  1414
          1 LSDRUM  6405
        735 LUBSIZ  6213, 6242
          6 LVFLSH  6405
      64510 MFDENT   752,  765, 1122, 1123, 1167, 1204, 6045, 6046, 6116, 6120, 6234, 6235, 6327, 6344, 6405
      62735 MFDEOF   771, 6405
         41 MFDNAM   744,  747,  756
       1070 NRDUFD     0
      74532 NUSERS  6405
         35 OURADD  1072
         33 OURUFD    35
       1417 PATCH1  1415
         21 PRNTER  1347, 1472, 1505
      74650 PROBNO  6405
      76144 PROGNO  6405
1            MISCELLANEOUS FILE READ/WRITE ROUTINES....M.J.BAILEY,11/15/64       05/11/69 2011.6 PAGE 5     
                        POST PROCESSOR ASSEMBLY DATA  
                  
          5 RDFILE   746, 1124, 6047, 6236
        660 RECSIZ    24,   25, 6405
      60254 REELNO  1403, 1520, 1522, 6405
      60243 SKELSW  6405
      74623 SYSDAT  6405
      74624 SYSTIM  6405
      60244 TAPEID  1437, 1460, 1524, 6405
          2 TAPFIL  1424, 1445
      60263 TCYCLE  6405
         36 THRADD  1103
      60256 TNDSAV  6405
      64553 TPBUF2  6405
      62741 UFDENT  6050, 6051, 6060, 6061, 6077, 6101, 6203, 6405
      62747 UFDEOF  1142, 6163, 6261, 6405
         42 UFDNAM    36,  745,  750,  757, 6237, 6240, 6246, 6247
         13 UMOUNT  1375, 1400
         10 WRFILE  1305, 1314, 1410, 1527, 1534
                  
0 NO ERROR IN ABOVE ASSEMBLY. 
1            GENERAL DATE/TIME MANIPULATION ROUTINES                             05/11/69 2012.8 PAGE 1     
                  
                              *     
                       00007         ENTRY   GDT
                       00005         ENTRY   GDTSYS   
                  
                       00056         ENTRY   BCDDTM        (ENTRY-PT. FOR BCD TIME IN AC DATE IN MQ)  
                  
                       00134         ENTRY   ADDTIM        ADD TO I/O SYSTEM DATE/TIME    
                  
                       00132         ENTRY   ADDDAY        ADD 1 DAY TO I/O SYSTEM DATE/TIME IN LAC   
                  
                       00247         ENTRY   SUBDAY        SUBTRACT N DAYS FROM DITTO IN LOGICAL AC   
                  
                       00130         ENTRY   CNVDT         CONVERT TO I/O SYSTEM DATE/TIME
                  
                       00274         ENTRY   IOBDT         CONVERT FROM I/O SYSTEM TO BCD 
                              *     
                                     EXTERN  GETIME   
                  
                  
                              *     
                              *   RETURN CURRENT DATE AND TIME IN I/O SYSTEM FORM IN AC   
                              *                            (VIA GETIME) 
                              *      FORMAT  -  
                              *                BITS S,1-8   (YEAR-400)MODULO(500)   
                              *                BITS  9-12   MONTH 
                              *                BITS 13-17   DAY   
                              *                BITS 18-35   NO. OF SECS. ELAPSED SINCE MIDNIGHT 
                              *     
                  
        TRANSFER VECTOR 
      00000  272563314425     GETIME
      00001  622563416443     SETJUL
      00002  622563314663     SETIOT
                  
            LINKAGE DIRECTOR  
      00003  000000000000     
      00004  272463606060     
                  
      00005  0634 00 4 00033  GDTSYS SXA     GDTA,4   
      00006  0020 00 0 00011         TRA     *+3
      00007  0634 00 4 00033   GDT   SXA     GDTA,4   
      00010  0074 00 4 00000         TSX     GETIME,4 
      00011  0602 00 0 00037         SLW     GDTM          SAVE TIME FROM AC  
      00012  0634 00 1 00034         SXA     GDTB,1   
      00013  0074 00 4 00040         TSX     TWODIG,4      GET MONTH (4 BITS) FROM BCD 'MMDDYY' IN MQ 
      00014  0767 00 0 00005         ALS     5  
      00015  0602 00 0 00036         SLW     GDTD     
      00016  0074 00 4 00040         TSX     TWODIG,4      GET DAY (5 BITS) FROM BCD 'DDYY' IN MQ     
      00017 -0320 00 0 00354         ANA     =O37     
      00020 -0602 00 0 00036         ORS     GDTD          MONTH (4 BITS),DAY (5 BITS) IN GDTD  
      00021  0074 00 4 00040         TSX     TWODIG,4      GET YEAR (9 BITS) FROM BCD 'YY' IN MQ
      00022 -0320 00 0 00361         ANA     =O777    
      00023  0767 00 0 00011         ALS     9  
      00024 -0602 00 0 00036         ORS     GDTD          YEAR (9 BITS),MONTH(4),DAY(5) IN GDTD
 T    00025 -0754 00 0 00000         PXD  
      00026  0560 00 0 00037         LDQ     GDTM          TIME IS IN 1/60THS OF A SEC.   
1            GENERAL DATE/TIME MANIPULATION ROUTINES                             05/11/69 2012.8 PAGE 2     
                  
      00027  0220 00 0 00356         DVH     =60           GET IT IN SECONDS  
      00030 -0763 00 0 00022         LGL     18            TIME IN SECS. IN MQ LEFT-HALF  
      00031 -0500 00 0 00036         CAL     GDTD     
      00032 -0763 00 0 00022         LGL     18            YEAR,MONTH,DAY,TIME IN LOGICAL AC    
      00033  0774 00 4 00000   GDTA  AXT     **,4     
      00034  0774 00 1 00000   GDTB  AXT     **,1     
      00035  0020 00 4 00001         TRA     1,4           RETURN 
                              *     
      00036  0 00000 0 00000   GDTD  PZE     ** 
      00037  0 00000 0 00000   GDTM  PZE     ** 
                              *     
 T    00040 -0754 00 0 00000  TWODIG PXD                   CONVERT 1ST 2 DIGITS OF BCD MQ 
                                                           TO BINARY IN AC ADDRESS  
      00041  0600 00 0 00055         STZ     TENS     
      00042 -0763 00 0 00006         LGL     6             1ST DIGIT    
      00043  0100 00 0 00052         TZE     *+7
      00044  0734 00 1 00000         PAX     0,1
 T    00045 -0754 00 0 00000         PXD  
      00046  0400 00 0 00350         ADD     =10
      00047  2 00001 1 00046         TIX     *-1,1,1  
      00050  0602 00 0 00055         SLW     TENS          TENS DIGIT X 10    
 T    00051 -0754 00 0 00000         PXD  
      00052 -0763 00 0 00006         LGL     6             UNITS DIGIT  
      00053  0400 00 0 00055         ADD     TENS          ADD 10 X TENS DIGIT TO UNITS DIGIT   
      00054  0020 00 4 00001         TRA     1,4           RETURN TO CALLER   
      00055  0 00000 0 00000   TENS  PZE     ** 
                              *     
                              *      ENTRY TO RETURN TIME IN AC IN BCD AS HHMM.M    
                              *             AND DATE IN MQ AS MMDDYY VIA GETIME.    
                              *     
      00056  0634 00 4 00107  BCDDTM SXA     TPWATX,4 
      00057  0074 00 4 00000         TSX     GETIME,4      TIME IN 1/60TH'S OF SEC. IN AC 
      00060  0131 00 0 00000         XCA                   TIME TO MQ, DATE TO AC   
      00061  0601 00 0 00125         STO     DATE.         SAVE DATE    
      00062 -0754 00 0 00000   BCA   ZAC  
      00063  0221 00 0 00362         DVP     =216000       FIND HOUR    
      00064  0601 00 0 00127         STO     MIN.          SAVE REMAINDER (MINUTES) 
      00065  0074 00 4 00111         TSX     BINBCD,4      CONVERT HOURS TO BCD     
      00066 -0765 00 0 00006         LGR     6  
      00067 -0100 00 0 00071         TNZ     *+2
      00070 -0500 00 0 00355         CAL     =O60          REPLACE LEADING ZERO WITH BLANK
      00071 -0763 00 0 00006         LGL     6  
      00072  0767 00 0 00030         ALS     24            LEAVE ROOM FOR MINUTE    
      00073  0602 00 0 00126         SLW     HOUR.         SAVE HOUR    
      00074  0560 00 0 00127         LDQ     MIN.          MINUTE 
      00075 -0754 00 0 00000         ZAC  
      00076  0221 00 0 00360         DVP     =360          FIND NO. OF TENTHS OF MINUTES  
      00077  0074 00 4 00111         TSX     BINBCD,4      CONVERT TO BCD     
      00100 -0765 00 0 00006         LGR     6             TENTHS TO MQ 
      00101  0767 00 0 00014         ALS     12 
      00102 -0602 00 0 00126         ORS     HOUR.         ADD MINUTE TO HOUR 
      00103 -0500 00 0 00353         CAL     =H00000.      PRECEDE TENTHS WITH .    
      00104 -0763 00 0 00006         LGL     6             BRING BACK TENTHS  
      00105 -0501 00 0 00126         ORA     HOUR.         HHMM.M IN LOGICAL AC     
      00106  0560 00 0 00125         LDQ     DATE.         DATE TO MQ   
      00107  0774 00 4 00000  TPWATX AXT     **,4     
1            GENERAL DATE/TIME MANIPULATION ROUTINES                             05/11/69 2012.8 PAGE 3     
                  
      00110  0020 00 4 00001         TRA     1,4
                  
      00111  0634 00 4 00122  BINBCD SXA     BNBCDX,4      BINARY TO BCD CONVERTER  
      00112  0600 00 0 00124         STZ     TPLIN.   
      00113  0774 00 4 00044         AXT     36,4     
      00114 -0754 00 0 00000  BNBCD1 ZAC                   CONVERT INTEGER TO BCD   
      00115  0221 00 0 00350         DVP     =10           ..     
      00116  0767 00 4 00044         ALS     36,4          ..     
      00117 -0602 00 0 00124         ORS     TPLIN.        ..     
      00120  2 00006 4 00114         TIX     BNBCD1,4,6    ..     
      00121 -0500 00 0 00124         CAL     TPLIN.   
      00122  0774 00 4 00000  BNBCDX AXT     **,4     
      00123  0020 00 4 00001         TRA     1,4
      00124  0 00000 0 00000  TPLIN. PZE                   TEMPORARY    
      00125  606060606060      DATE. BCI     1, 
      00126  606060606060      HOUR. BCI     1, 
      00127  0 00000 0 00000   MIN.  PZE  
                              *     
                              *      ENTRY TO CONVERT TIME IN 1/60THS SEC. IN LAC, AND DATE (MMDDYY)  
                              *      IN BCD IN MQ, TO DATE/TIME IN I/OSYSTEM FORM IN LAC. 
                              *     
      00130  0634 00 4 00033   CNVDT SXA     GDTA,4   
      00131  0020 00 0 00011         TRA     GDT+2    
                              *     
                              *  TO ADD 1 DAY TO THE I/O SYSTEM DATE/TIME IN THE LOGICAL AC     
                              *     
      00132  0602 00 0 00036  ADDDAY SLW     GDTD     
      00133  1 00001 4 00152         TXI     ADDATE+2,4,1  (RETURN TO 1,4)    
                              *     
                              *      TO ADD A NUMBER OF SECONDS CONTAINED IN (1,4) TO THE I/O SYSTEM  
                              *      TYPE DATE/TIME IN THE LOGICAL AC, AND RETURN THE RESULTING I/O   
                              *      SYSTEM DATE/TIME TO THE LOGICAL AC.
                              *         THE ADDEND MUST BE LESS THAN 24 HOURS.
                              *         (AN INCORRECT RESULT WILL BE OBTAINED AT TURN OF CENTURY)     
                              *     
      00134  0630 00 0 00036  ADDTIM STP     GDTD     
      00135  0622 00 0 00036         STD     GDTD          SAVE DATE    
      00136 -0320 00 0 00363         ANA     =O777777 
      00137  0760 00 0 00003         SSP  
      00140  0400 60 4 00001         ADD*    1,4
      00141  0621 00 0 00036         STA     GDTD     
      00142  0625 00 0 00036         STT     GDTD          SAVE NEW TIME
      00143  0402 00 0 00230         SUB     DAYSEC   
      00144  0120 00 0 00150         TPL     ADDATE        SKIP IF NOW PAST MIDNIGHT
      00145  0100 00 0 00150         TZE     ADDATE        SKIP IF NOW MIDNIGHT     
      00146 -0500 00 0 00036         CAL     GDTD          SAME DATE    
      00147  0020 00 4 00002         TRA     2,4           RETURN 
                              *     
      00150  0621 00 0 00036  ADDATE STA     GDTD     
      00151  0625 00 0 00036         STT     GDTD          NEW TIME = EXCESS OVER MIDNIGHT
      00152  0560 00 0 00036         LDQ     GDTD          PREPARE TO INCREMENT DATE
 T    00153 -0754 00 0 00000         PXD  
      00154 -0763 00 0 00011         LGL     9  
      00155  0601 00 0 00231         STO     YEAR          SAVE YEAR    
 T    00156 -0754 00 0 00000         PXD  
      00157 -0763 00 0 00004         LGL     4  
1            GENERAL DATE/TIME MANIPULATION ROUTINES                             05/11/69 2012.8 PAGE 4     
                  
      00160  0601 00 0 00232         STO     MONTH         SAVE MONTH   
      00161  0634 00 1 00226         SXA     ADE,1    
      00162  0734 00 1 00000         PAX     0,1           MONTH IN IR1 
      00163 -3 00001 1 00174         TXL     ADA,1,1       SKIP IF NOT FEB.   
      00164  3 00002 1 00174         TXH     ADA,1,2       SKIP IF NOT FEB.   
                              *     
      00165 -0500 00 0 00231         CAL     YEAR          ITS FEB., IS IT LEAP YEAR
      00166 -0765 00 0 00002         LGR     2  
 T    00167 -0754 00 0 00000         PXD  
      00170 -0763 00 0 00002         LGL     2  
      00171 -0100 00 0 00174         TNZ     ADA           NOT LEAP YEAR, SKIP
      00172  0774 00 1 00035         AXT     29,1          FEB. AND LEAP YEAR, LAST DAY IS 29   
      00173  0020 00 0 00176         TRA     ADB           SKIP   
      00174 -0500 00 1 00247   ADA   CAL     MT+1,1        NOT FEB.,LEAP YEAR,GET LAST DAY OF MONTH   
      00175  0734 00 1 00000         PAX     0,1
      00176 -0634 00 1 00203   ADB   SXD     ADC,1         NO. OF LAST DAY OF MONTH TO DECREMENT
 T    00177 -0754 00 0 00000         PXD  
      00200 -0763 00 0 00005         LGL     5             DAY    
      00201  0734 00 1 00000         PAX     0,1           IN IR1 
      00202  1 00001 1 00203         TXI     *+1,1,1       DAY+1  
      00203 -3 00000 1 00216   ADC   TXL     ADD,1,**      SKIP IF NO MONTH CHANGE NEEDED 
                              *     
      00204  0774 00 1 00001         AXT     1,1           CHANGE OF MONTH,NEW DAY IS 1ST 
      00205  0500 00 0 00232         CLA     MONTH    
      00206  0400 00 0 00347         ADD     =1 
      00207  0601 00 0 00232         STO     MONTH         MONTH=MONTH+1
      00210  0402 00 0 00351         SUB     =13
      00211 -0120 00 0 00216         TMI     ADD           SKIP IF NO YEAR CHANGE NEEDED  
                              *     
      00212  0500 00 0 00347         CLA     =1            CHANGE OF YEAR,NEW MONTH IS 1ST
      00213  0601 00 0 00232         STO     MONTH    
      00214  0400 00 0 00231         ADD     YEAR          ADD 1 TO YEAR
      00215  0601 00 0 00231         STO     YEAR     
                              *     
      00216 -0754 00 1 00000   ADD   PXD     0,1           DAY    
      00217  0622 00 0 00036         STD     GDTD     
      00220  0630 00 0 00036         STP     GDTD          PACK AND SAVE DAY WITH TIME    
      00221 -0500 00 0 00231         CAL     YEAR     
      00222  0767 00 0 00004         ALS     4             9-BIT YEAR,  
      00223 -0501 00 0 00232         ORA     MONTH         AND 4-BIT MONTH TO LOGICAL AC  
      00224  0767 00 0 00027         ALS     23 
      00225 -0501 00 0 00036         ORA     GDTD          YEAR,MONTH,DAY,TIME IN LOGICAL AC    
      00226  0774 00 1 00000   ADE   AXT     **,1     
      00227  0020 00 4 00002         TRA     2,4           RETURN 
                              *     
      00230 +000000250600     DAYSEC OCT     250600        NO. OF SECS. IN A DAY    
      00231  0 00000 0 00000   YEAR  PZE     ** 
      00232  0 00000 0 00000   MONTH PZE     ** 
      00233  0 00000 0 00037         PZE     31            DECEMBER     
      00234  0 00000 0 00036         PZE     30            NOVEMBER     
      00235  0 00000 0 00037         PZE     31            OCTOBER
      00236  0 00000 0 00036         PZE     30            SEPTEMBER    
      00237  0 00000 0 00037         PZE     31            AUGUST 
      00240  0 00000 0 00037         PZE     31            JULY   
      00241  0 00000 0 00036         PZE     30            JUNE   
      00242  0 00000 0 00037         PZE     31            MAY    
1            GENERAL DATE/TIME MANIPULATION ROUTINES                             05/11/69 2012.8 PAGE 5     
                  
      00243  0 00000 0 00036         PZE     30            APRIL  
      00244  0 00000 0 00037         PZE     31            MARCH  
      00245  0 00000 0 00034         PZE     28            FEBRUARY     
      00246  0 00000 0 00037   MT    PZE     31            JANUARY
                              *     
                              *      SUBTRACT THE NO. OF DAYS CONTAINED IN (1,4) FROM     
                              *      THE I/O SYSTEM DATE/TIME IN THE LOGICAL AC.    
                              *     
      00247  0634 00 1 00270  SUBDAY SXA     SBDY1,1  
      00250  0634 00 4 00271         SXA     SBDY4,4  
      00251  0602 00 0 00036         SLW     GDTD     
      00252  0500 60 4 00001         CLA*    1,4
      00253  0734 00 1 00000         PAX     0,1           NO. OF DAYS IN IR1 
      00254  0074 00 4 00001         TSX     $SETJUL,4     CONVERT AC TO JULIAN-TYPE DATE/TIME  
 TD   00255  3 00000 0 00036         TXH     GDTD     
 TD   00256  3 00000 0 00273         TXH     JULIAN   
      00257  0500 00 0 00273         CLA     JULIAN   
      00260 -3 00000 1 00263         TXL     *+3,1,0  
      00261  0402 00 0 00230         SUB     DAYSEC        SUBTRACT DAYS
      00262  2 00001 1 00261         TIX     *-1,1,1  
      00263  0601 00 0 00273         STO     JULIAN   
      00264  0074 00 4 00002         TSX     $SETIOT,4     CONVERT RESULT TO I/O SYSTEM FORM    
 TD   00265  3 00000 0 00036         TXH     GDTD     
 TD   00266  3 00000 0 00273         TXH     JULIAN   
      00267 -0500 00 0 00036         CAL     GDTD     
      00270  0774 00 1 00000  SBDY1  AXT     **,1     
      00271  0774 00 4 00000  SBDY4  AXT     **,4     
      00272  0020 00 4 00002         TRA     2,4           RETURN TO CALLER   
      00273  0 00000 0 00000  JULIAN PZE  
                              *     
                              *   CONVERT I/O SYSTEM DATE/TIME FROM LAC TO BCD TIME AND DATE -- 
                              *      HHMM.M (TIME) IN AC, MMDDYY (DATE) IN MQ 
                              *     
      00274 -0130 00 0 00000   IOBDT XCL  
 T    00275 -0754 00 0 00000         PXD  
      00276 -0763 00 0 00011         LGL     9             YEAR IN AC   
      00277 -0600 00 0 00036         STQ     GDTD     
      00300 -0130 00 0 00000         XCL                   YEAR IN MQ   
 T    00301 -0754 00 0 00000         PXD  
      00302  0221 00 0 00350         DVP     =10           TENS DIGIT OF YEAR IN MQ, UNITS IN AC
      00303 -0320 00 0 00352         ANA     =O17     
      00304  0602 00 0 00125         SLW     DATE.         '00000Y'  OF DATE  
      00305 -0130 00 0 00000         XCL  
      00306 -0320 00 0 00352         ANA     =O17     
      00307  0767 00 0 00006         ALS     6  
      00310 -0602 00 0 00125         ORS     DATE.         '0000YY' OF DATE   
      00311  0560 00 0 00036         LDQ     GDTD     
 T    00312 -0754 00 0 00000         PXD  
      00313 -0763 00 0 00004         LGL     4             MONTH IN AC  
      00314  0601 00 0 00037         STO     GDTM     
      00315  0402 00 0 00350         SUB     =10
      00316 -0120 00 0 00322         TMI     IBA
      00317  0601 00 0 00037         STO     GDTM          SAVE UNITS DIGIT OF MONTH
      00320  0500 00 0 00357         CLA     =O100    
      00321  0020 00 0 00323         TRA     *+2
 T    00322 -0754 00 0 00000    IBA  PXD  
1            GENERAL DATE/TIME MANIPULATION ROUTINES                             05/11/69 2012.8 PAGE 6     
                  
      00323  0400 00 0 00037         ADD     GDTM     
      00324  0767 00 0 00030         ALS     24            'MM0000'     
      00325 -0602 00 0 00125         ORS     DATE.         'MM00YY' OF DATE   
 T    00326 -0754 00 0 00000         PXD  
      00327 -0763 00 0 00005         LGL     5             DAY IN AC    
      00330 -0600 00 0 00036         STQ     GDTD          SAVE THE TIME
      00331 -0130 00 0 00000         XCL                   DAY IN MQ    
 T    00332 -0754 00 0 00000         PXD  
      00333  0221 00 0 00350         DVP     =10           TENS DIGIT OF DAY IN MQ, UNITS IN AC 
      00334 -0773 00 0 00006         RQL     6  
      00335 -0600 00 0 00037         STQ     GDTM          STORE '0000D0'     
      00336  0400 00 0 00037         ADD     GDTM          '0000DD' IN AC     
      00337  0767 00 0 00014         ALS     12            '00DD00' IN AC     
      00340 -0602 00 0 00125         ORS     DATE.         'MMDDYY' OF DATE   
      00341 -0500 00 0 00036         CAL     GDTD          TIME   
      00342  0771 00 0 00022         ARS     18 
      00343 -0130 00 0 00000         XCL                   TIME IN SECS. IN MQ
      00344  0200 00 0 00356         MPY     =60           GET TIME IN 1/60TH'S SEC. IN MQ
      00345  0634 00 4 00107         SXA     TPWATX,4 
      00346  0020 00 0 00062         TRA     BCA           GO FINISH TIME CONVERSION TO BCD 'HHMM.M'  
                              *     
                                     END  
                  
        LITERALS  
      00347  000000000001     
      00350  000000000012     
      00351  000000000015     
      00352  000000000017     
      00353  000000000033     
      00354  000000000037     
      00355  000000000060     
      00356  000000000074     
      00357  000000000100     
      00360  000000000550     
      00361  000000000777     
      00362  000000645700     
      00363  000000777777     
1            GENERAL DATE/TIME MANIPULATION ROUTINES                             05/11/69 2012.8 PAGE 1     
                        POST PROCESSOR ASSEMBLY DATA  
                  
        364 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM  
                  
0REFERENCES TO DEFINED SYMBOLS      
        246     MT   174
        174    ADA   163,  164,  171
        176    ADB   173
        203    ADC   176
        216    ADD   203,  211
        226    ADE   161
         62    BCA   346
          7    GDT     0,  131
        322    IBA   316
         33   GDTA     5,    7,  130
         34   GDTB    12
         36   GDTD    15,   20,   24,   31,  132,  134,  135,  141,  142,  146,  150,  151,  152,  217,  220,  225,  251
                     255,  265,  267,  277,  311,  330,  341
         37   GDTM    11,   26,  314,  317,  323,  335,  336
        127   MIN.    64,   74
         55   TENS    41,   50,   53
        231   YEAR   155,  165,  214,  215,  221
        130  CNVDT     0
        125  DATE.    61,  106,  304,  310,  325,  340
        126  HOUR.    73,  102,  105
        274  IOBDT     0
        232  MONTH   160,  205,  207,  213,  223
        270  SBDY1   247
        271  SBDY4   250
        150 ADDATE   133,  144,  145
        132 ADDDAY     0
        134 ADDTIM     0
         56 BCDDTM     0
        111 BINBCD    65,   77
        114 BNBCD1   120
        122 BNBCDX   111
        230 DAYSEC   143,  261
          5 GDTSYS     0
          0 GETIME    10,   57
        273 JULIAN   256,  257,  263,  266
          2 SETIOT   264
          1 SETJUL   254
        247 SUBDAY     0
        124 TPLIN.   112,  117,  121
        107 TPWATX    56,  345
         40 TWODIG    13,   16,   21
                  
0 NO ERROR IN ABOVE ASSEMBLY. 
1            SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64          05/11/69 2013.4 PAGE 1     
                  
                              *     
                              *      DUSR DUMPS THOSE OF THE USER DEFINED BY THE PARTIAL MFD ENTRY    
                              *      CONTAINED IN COMMON LOCATIONS MFDENT THROUGH MFDENT+6.     
                              *        FILES WHOSE DATE/TIME LAST MODIFIED IS T, WILL BE DUMPED, WHERE
                              *      TLD IS LESS THAN OR EQUALS T AND T IS LESS THAN TND. TLD AND TND 
                              *      ARE ALSO ALREADY SET IN COMMON.    
                              *      DURING COMPLETE DUMPS, T IS TAKEN AS THE TIME LAST USED FOR EACH 
                              *      FILE.
                              *        ONLY FILES ON DISK AND LOW-SPEED DRUM ARE CURRENTLY DUMPED.    
                              *        TEMPORARY FILES ARE NOT DUMPED.  
                              *     
                              *              CALLING SEQUENCE -  TSX  $DUSR,4 
                              *                                       (END-OF-DAY RETURN) 
                              *                                       (ERROR RETURN)
                              *                                       (NORMAL RETURN)     
                              *     
                              *     
                       00221         ENTRY   DUSR          DUMP ONE USER'S FILES    
                       00215         ENTRY   DMPUFD   
                       00217         ENTRY   DUSRX    
                       00113         ENTRY   DMNDMP   
                       00150         ENTRY   DUSR1         DUMP FILES OF USER WHOSE MFD ENTRY UNREAD  
                       00120         ENTRY   DMPFIL        DUMP SPECIAL FILE  
                                     EXTERN  ATTACH,TILOCK,OPEN,BUFFER,FWAIT,CLOSE  
                                     EXTERN  DELFIL   
                                     EXTERN  WRFILE,WRFLX,CHFILE,FSTATE,SETFIL
                              *     
                                     INSERT  DMCRSA   
                              *     
                              *      MACRO TO WRITE N WORDS FROM ARRAY ET SEQ ONTO ALREADY OPENED     
                              *      SECONDARY STORAGE FILE (NAME1,NAME2) AND WAIT UNTIL TRANSMITTED. 
                              *     
                               WSSF  MACRO   ARRAY,N,NAME1,NAME2  
                                     TSX     ATTACH,4      RE-ATTACH TO DUMPER'S FILES    
                                     TXH     DMPUSR   
                                     TXH     DMPRGR   
                                     TSX     WRFILE,4      WRITE  
                                     TXH     NAME1         ONTO (NAME1, 
                                     TXH     NAME2         NAME2) 
                                     TXH     =0            AT POSITION WHERE LAST CEASED  
                                     TIX     ARRAY,,N      FROM ARRAY THROUGH ARRAY+N-1   
                                     TSX     FWAIT,4       WAIT   
                                     TXH     NAME1    
                                     TXH     NAME2    
                               WSSF  END  
                              *     
                              *  ZERO-IZE A THROUGH A+X-1   
                              *     
                               CLEAR MACRO   A,X
                                     AXT     X,1
                                     STZ     A+X,1    
                                     TIX     *-1,1,1  
                               CLEAR END  
                              *     
                              *      MOVE X WORDS FROM A ET SEQ TO B ET SEQ   
                              *     
1            SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64          05/11/69 2013.4 PAGE 2     
                  
                               MOVE  MACRO   X,A,B    
                                     AXT     X,1
                                     CAL     A+X,1    
                                     SLW     B+X,1    
                                     TIX     *-2,1,1  
                               MOVE  END  
                              *     
                              *      PRINT ONE LINE, CLEAR BUFFER 
                              *     
                              PRBUFF MACRO   BUFF,NWDS
                                     SXA     *+3,4    
                                     TSX     WRFLX,4  
                                             BUFF,,NWDS     
                                     AXT     **,4     
                                     CLEAR   BUFF,NWDS
                              PRBUFF END  
                              *     
                              *      PRINT STANDARD BEGINNING TO DUMPER ERROR MESSAGE     
                              *     
                              BGNERM MACRO   TYPE     
                                     SXA     *+3,4    
                                     TSX     $BERM,4  
                                     PZE     TYPE     
                                     AXT     **,4     
                              BGNERM END  
                              *     
                              *  PRINT ONE LINE COMMENT     
                              *     
                              PRLINE MACRO   COMNT,NWC,N,WORD1,WORD2,LOC
                                     IFF     0,NWC,0  
                                     MOVE    NWC,LOC,PBF    
                                     IFF     N-2,N,1  
                                     CAL     WORD1    
                                     IFF     N-2,N,1  
                                     SLW     PBF+NWC  
                                     IFF     1,N,2    
                                     CAL     WORD2    
                                     IFF     1,N,2    
                                     SLW     PBF+NWC+1
                                     PRBUFF  PBF,NWC+N
                                     RMT  
                               LOC   BCI     NWC,COMNT
                                     RMT  
                              PRLINE END  
                              *     
                              *      PRINT ONE LINE MESSAGE 
                              *     
                              PRMESS MACRO   MESNAM,N,ADR1,ADR2   
                                     TSX     $PRLINE,4
                                     BCI     1,MESNAM 
                                     IFF     N,N,N    
                                     TXH     ADR1     
                                     IFF     N,N,N    
                                     TXH     ADR2     
                              PRMESS END  
                              *     
1            SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64          05/11/69 2013.4 PAGE 3     
                  
                              *      MACRO TO OPEN FILE (X,Y) OF USER (A,B) FOR READING   
                              *      AND ASSIGN BUFFER F OF LENGTH L TO I/O SYSTEM FOR THAT PURPOSE.  
                              *        ( ERR IS TRANSFER ADDRESS FOR ERROR RETURN ) 
                              *     
                              RDOPEN MACRO   X,Y,A,B,F,L,ERR
                                     TSX     ATTACH,4      ATTACH TO USER (A,B)     
                                     TXH     A  
                                     TXH     B  
                                     TSX     OPEN,4        OPEN FILE (X,Y) FOR READING    
                                     TXH     R  
                                     TXH     X  
                                     TXH     Y  
                                     TXH     =0 
                                     TXH     =0 
                                     TXH     ERR           (TRANSFER ADDRESS FOR ERROR)   
                                     TSX     BUFFER,4      ASSIGN L WORDS OF BUFFER F TO (X,Y)  
                                     TXH     X  
                                     TXH     Y  
                                     TIX     F,,L     
                              RDOPEN END  
                              *     
                              *      PRINT ERROR CODE, END MESSAGE
                              *     
                                ERTN MACRO   ADRERR   
                                     SXA     *+2,4    
                                     TSX     $ERREND,4
                                     AXT     **,4     
                                     TRA     ADRERR   
                                ERTN END  
                              *     
                              *      ASK OPERATOR TO SET KEY CODE DC IF HE WANTS    
                              *      ACTION GIVEN BY N-WORD MESSAGE M   
                              *     
                              PRCODE MACRO   DC,M,N   
                                     TSX     $PRCODE,4
                                     TXH     DC 
                                     TXH     M,,N     
                              PRCODE END  
                              *     
                              *      TEST LAST KEY SETTING VIA SUPERVISOR, GO TO JUMP IF IT IS CODE   
                              *     
                              TESTKY MACRO   CODE,JUMP
                                     TSX     $NGETA,7 
                                     LDQ     DEMKEY   
                                     STQ     KEYVAL   
                                     AXT     CODE,1   
                                     PXA     0,1
                                     SUB     KEYVAL   
                                     TZE     JUMP     
                              TESTKY END  
                              *     
                              *      SET UP LOGICAL TAPE RECORD WRITING 
                              *     
                              LOGREC MACRO   X  
                                     CLA     LTPBF    
                                     SUB     =12
1            SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64          05/11/69 2013.4 PAGE 4     
                  
                                     STO     TEMP     
                                     CAL     X+4
                                     ANA     =O77777  
                                     STO     RCOUNT   
                                     TSX     $NLREC,4 
                                     TXH     NORECS   
                                     TXH     RCOUNT   
                                     TXH     LCOUNT   
                                     TXH     TEMP     
                                     TXH     =12
                                     TXH     PHYSRC   
                                     TXH     NFLR     
                                     TXH     NLAST    
                              LOGREC END  
                              *     
                              *     
                              ATTACH MACRO   A,B
                                     TSX     ATTACH,4 
                                     TXH     A  
                                     TXH     B  
                              ATTACH END  
                              *     
                              *      PRINT ERROR MESSAGE AND INTERROGATE KEYS 
                              *     
                              PRERR  MACRO
                                     TSX     $PRNTER,4
                                     TSX     $GDSIG,4 
                              PRERR  END  
                              *     
                              *     
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
                              *      TRANSFER VECTOR, CONSTANTS, VARIABLES,   
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
                              *     
                  
        TRANSFER VECTOR 
      00000  216363212330     ATTACH
      00001  633143462342     TILOCK
      00002  464725456060     OPEN  
      00003  226426262551     BUFFER
      00004  266621316360     FWAIT 
      00005  234346622560     CLOSE 
      00006  242543263143     DELFIL
      00007  665126314325     WRFILE
      00010  665126436760     WRFLX 
      00011  233026314325     CHFILE
      00012  266263216325     FSTATE
      00013  622563263143     SETFIL
      00014  272463606060     GDT   
      00015  272462312760     GDSIG 
      00016  454351252360     NLREC 
      00017  512464262460     RDUFD 
      00020  665145266060     WRNF  
      00021  442147433145     MAPLIN
      00022  312545642624     IENUFD
      00023  254563642624     ENTUFD
1            SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64          05/11/69 2013.4 PAGE 5     
                  
      00024  512426606060     RDF   
      00025  222551446060     BERM  
      00026  234223462425     CKCODE
      00027  255151254524     ERREND
                  
            LINKAGE DIRECTOR  
      00030  000000000000     
      00031  246462516060     
                  
      00032  643326332433     UFDNAM BCI     2,U.F.D.(FILE) 
      00033  742631432534     
      00034  516060606060      R     BCI     1,R
      00035  0 00000 0 00000  TEMP   PZE                   TEMPORARY    
      00036  646225516026     UFDID  BCI     3,USER FILE DIRECTRY 
      00037  314325602431     
      00040  512523635170     
      00041  606270626325     ERSTAT BCI     5, SYSTEM OR MACHINE ERROR.
      00042  446046516044     
      00043  212330314525     
      00044  602551514651     
      00045  336060606060     
      00046  0 00000 0 00000  EMPTSW PZE  
      00047  0 00000 0 03300  LTPBF  PZE     TBSIZ         SIZE OF TAPE BUFFER
      00050  0 00000 0 00660   LBUF  PZE     NW 
      00051  0 00000 0 00660   LBUF2 PZE     NW 
      00052  0 00000 0 00000  RCOUNT PZE     **            NO. WORDS/PHYS. REC. OF FILE BEING DUMPED  
      00053  0 00000 0 00000  NORECS PZE     **            NO. PHYSICAL RECS. IN FILE BEING DUMPED    
      00054  0 00000 0 00000  LCOUNT PZE     **            NO. WPRDS IN LAST PHYSICAL RECORD    
      00055  0 00000 0 00000   NFLR  PZE     ** 
      00056  0 00000 0 00000   NLAST PZE     ** 
      00057  0 00000 0 00660  PHYSRC PZE     RECSIZ   
      00060  443326332433     MFDNAM BCI     1,M.F.D. 
      00061  0 00000 0 00000  STATUS PZE  
      00062                   Y      BSS     8  
      00072  0 00000 0 00007  L7     PZE     7  
      00073  0 00000 0 00000  ALLSW  PZE     ** 
      00074  0 00000 0 64553         PZE     TPBUF2   
      00075  0 00000 0 70053  TBA1   PZE     TPBUF    
      00076  0 00000 0 64566         PZE     TPBUF2+11
      00077  0 00000 0 70066  TBA2   PZE     TPBUF+11 
      00100  0 00000 0 70053         PZE     TPBUF2+TBSIZ   
      00101  0 00000 0 73353  TBA3   PZE     TPBUF+TBSIZ    
      00102  0 00000 0 00000  FLFL   PZE     ** 
      00103                   A      BSS     8  
                              *     
                              *      ENTRY   TO DUMP DAEMON'S FILES     
                              *     
      00113 -0500 60 4 00001  DMNDMP CAL*    1,4
      00114  0602 00 0 62744         SLW     UFDENT+3 
      00115 -0500 60 4 00002         CAL*    2,4
      00116  0602 00 0 62745         SLW     UFDENT+4 
      00117  0020 00 0 00123         TRA     DMPFIL+3 
                              *     
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
                              *  ENTRY TO DUMP THE SPECIAL FILE (MFDENT,MFDENT+1,UFDENT,UFDENT+1)     
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
1            SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64          05/11/69 2013.4 PAGE 6     
                  
                              *     
      00120  0600 00 0 62744  DMPFIL STZ     UFDENT+3 
      00121  0600 00 0 62745         STZ     UFDENT+4 
      00122  1 00002 4 00123         TXI     *+1,4,2  
      00123  0634 00 1 01016         SXA     DU1,1    
      00124  0634 00 2 01017         SXA     DU2,2    
      00125  0634 00 4 01020         SXA     DU4,4    
      00126  0500 00 0 60263         CLA     TCYCLE        (TIME OF LAST DUMP CYCLEON THIS TAPE)
      00127  0601 00 0 64512         STO     MFDENT+2      FIX THINGS SO THAT CODING
      00130  0600 00 0 62747         STZ     UFDEOF        MAY BE USED TO DUMP A SINGLE FILE    
      00131  0600 00 0 62737         STZ     TLD
      00132  0074 00 4 00014         TSX     $GDT,4        (CURRENT DATE/TIME)
      00133  0602 00 0 62743         SLW     UFDENT+2 
      00134 -0500 00 0 64510         CAL     MFDENT        PREPARE PARAMETERS FOR DUMP TAPE 'MAP' LINE
      00135  0602 00 0 60267         SLW     ARGLST   
      00136 -0500 00 0 62741         CAL     UFDENT   
      00137  0602 00 0 60271         SLW     ARGLST+2 
      00140 -0500 00 0 64511         CAL     MFDENT+1 
      00141  0602 00 0 60270         SLW     ARGLST+1 
      00142 -0500 00 0 62742         CAL     UFDENT+1 
      00143  0602 00 0 60272         SLW     ARGLST+3 
      00144  0600 00 0 60273         STZ     ARGLST+4 
      00145  0600 00 0 60274         STZ     ARGLST+5 
      00146  0600 00 0 60275         STZ     ARGLST+6 
      00147  0020 00 0 00531         TRA     NXLB     
                              *     
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  
                              *      ENTRY TO DUMP A USER'S FILES WHOSE MFD   
                              *      ENTRY HAS NOT BEEN READ (AS IN COMPLETE SYSTEM FILE DUMP)  
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  
                              *     
      00150  0634 00 1 01016  DUSR1  SXA     DU1,1    
      00151  0634 00 2 01017         SXA     DU2,2    
      00152  0634 00 4 01020         SXA     DU4,4    
      00153                          RDOPEN  UFDNAM,UFDNAM+1,MFDENT,MFDENT+1,IOBUF,LBUF,ERRA    
      00153  0074 00 4 00000         TSX     ATTACH,4                                                         .001
 TD   00154  3 00000 0 64510         TXH     MFDENT                                                           .001
 TD   00155  3 00000 0 64511         TXH     MFDENT+1                                                         .001
      00156  0074 00 4 00002         TSX     OPEN,4                                                           .001
 TD   00157  3 00000 0 00034         TXH     R                                                                .001
 TD   00160  3 00000 0 00032         TXH     UFDNAM                                                           .001
 TD   00161  3 00000 0 00033         TXH     UFDNAM+1                                                         .001
 TD   00162  3 00000 0 01340         TXH     =0                                                               .001
 TD   00163  3 00000 0 01340         TXH     =0                                                               .001
 TD   00164  3 00000 0 01022         TXH     ERRA                                                             .001
      00165  0074 00 4 00003         TSX     BUFFER,4                                                         .001
 TD   00166  3 00000 0 00032         TXH     UFDNAM                                                           .001
 TD   00167  3 00000 0 00033         TXH     UFDNAM+1                                                         .001
      00170  2 00050 0 63630         TIX     IOBUF,,LBUF                                                      .001
      00171  0600 00 0 64513         STZ     MFDENT+3 
      00172  0600 00 0 64514         STZ     MFDENT+4 
      00173  0074 00 4 00012         TSX     FSTATE,4 
 TD   00174  3 00000 0 00032         TXH     UFDNAM   
 TD   00175  3 00000 0 00033         TXH     UFDNAM+1 
      00176  3 00010 0 00062         TXH     Y,,8     
      00177 -0500 00 0 00070         CAL     Y+6           TIME LAST WRITTEN OF THIS USER 
1            SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64          05/11/69 2013.4 PAGE 7     
                  
      00200  0602 00 0 64512         SLW     MFDENT+2 
      00201 -0500 00 0 00071         CAL     Y+7
      00202  0602 00 0 64513         SLW     MFDENT+3 
      00203 -0500 00 0 00062         CAL     Y  
      00204  0602 00 0 64515         SLW     MFDENT+5 
      00205  0602 00 0 00054         SLW     LCOUNT   
      00206  0402 00 0 01342         SUB     =3 
      00207 -0100 00 0 00211         TNZ     *+2
      00210 -0625 00 0 00046         STL     EMPTSW   
      00211  0500 00 0 01341         CLA     =1 
      00212  0601 00 0 00053         STO     NORECS   
      00213  0601 00 0 00073         STO     ALLSW    
      00214  0020 00 0 00271         TRA     NXI
                              *     
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . .
                              *      ENTRY TO DUMP ONE USER'S FILES     
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . .
                              *     
      00215 -0625 00 0 00046  DMPUFD STL     EMPTSW   
      00216  0020 00 0 00221         TRA     DUSR     
      00217 -0625 00 0 00073  DUSRX  STL     ALLSW    
      00220  0020 00 0 00222         TRA     *+2
      00221  0600 00 0 00073  DUSR   STZ     ALLSW    
      00222  0634 00 1 01016         SXA     DU1,1    
      00223  0634 00 2 01017         SXA     DU2,2    
      00224  0634 00 4 01020         SXA     DU4,4    
      00225  0600 00 0 00054         STZ     LCOUNT   
      00226 -0500 00 0 64515         CAL     MFDENT+5 
      00227 -0320 00 0 01350         ANA     =O77777077777  
      00230 -0340 00 0 01347         LAS     =O1000003
      00231  0020 00 0 00233         TRA     *+2
      00232 -0625 00 0 00046         STL     EMPTSW   
      00233  0621 00 0 00054         STA     LCOUNT   
      00234  0771 00 0 00022         ARS     18 
      00235  0621 00 0 00053         STA     NORECS   
      00236 -0500 00 0 64514         CAL     MFDENT+4 
      00237  0621 00 0 00052         STA     RCOUNT   
      00240  0500 00 0 00053         CLA     NORECS   
      00241  0402 00 0 01341         SUB     =1 
      00242  0100 00 0 00246         TZE     OQD
      00243  0131 00 0 00000         XCA  
      00244  0200 00 0 00052         MPY     RCOUNT   
      00245  0131 00 0 00000         XCA  
      00246  0400 00 0 00054  OQD    ADD     LCOUNT   
      00247  0601 00 0 00054         STO     LCOUNT   
      00250  0601 00 0 64515         STO     MFDENT+5 
      00251  0500 00 0 01341         CLA     =1 
      00252  0601 00 0 00053         STO     NORECS   
                              *     
                              *      INITIALIZE THE USER'S U.F.D. FILE FOR READING  
                              *     
      00253                          RDOPEN  UFDNAM,UFDNAM+1,MFDENT,MFDENT+1,IOBUF,LBUF,ERRA    
      00253  0074 00 4 00000         TSX     ATTACH,4                                                         .001
 TD   00254  3 00000 0 64510         TXH     MFDENT                                                           .001
 TD   00255  3 00000 0 64511         TXH     MFDENT+1                                                         .001
      00256  0074 00 4 00002         TSX     OPEN,4                                                           .001
1            SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64          05/11/69 2013.4 PAGE 8     
                  
 TD   00257  3 00000 0 00034         TXH     R                                                                .001
 TD   00260  3 00000 0 00032         TXH     UFDNAM                                                           .001
 TD   00261  3 00000 0 00033         TXH     UFDNAM+1                                                         .001
 TD   00262  3 00000 0 01340         TXH     =0                                                               .001
 TD   00263  3 00000 0 01340         TXH     =0                                                               .001
 TD   00264  3 00000 0 01022         TXH     ERRA                                                             .001
      00265  0074 00 4 00003         TSX     BUFFER,4                                                         .001
 TD   00266  3 00000 0 00032         TXH     UFDNAM                                                           .001
 TD   00267  3 00000 0 00033         TXH     UFDNAM+1                                                         .001
      00270  2 00050 0 63630         TIX     IOBUF,,LBUF                                                      .001
      00271  0500 00 0 01341  NXI    CLA     =1            INITIALIZE READING FROM UFD FILE     
      00272  0601 00 0 62736         STO     UFDC     
      00273  0601 00 0 62747         STO     UFDEOF        ZERO UFDEOF INDICATES EOF IN UFD FILE
      00274                          CLEAR   TPBUF,TBSIZ   CLEAR OUT TAPE FILE BUFFER     
      00274  0774 00 1 03300         AXT     TBSIZ,1                                                          .001
      00275  0600 00 1 73353         STZ     TPBUF+TBSIZ,1                                                    .001
      00276  2 00001 1 00275         TIX     *-1,1,1                                                          .001
      00277  0760 00 0 00165         SWT     5  
      00300  0020 00 0 00303         TRA     *+3
      00301  0074 00 4 00010         TSX     WRFLX,4  
      00302  0 00002 0 64510                 MFDENT,,2
                              *     
                              *      INITIALIZE THE WRITING OF OUR COPY OF THE U.F.D. FILE
                              *     
      00303  0074 00 4 00015         TSX     $GDSIG,4 
                              *     
                              *      PREPARE DUMP TAPE PREAMBLE FOR DUMPED UFD FILE 
                              *     
      00304  0774 00 1 00003         AXT     3,1           PREPARE 11 WORDS OF DUMP TAPE PREAMBLE     
      00305 -0500 00 1 64513         CAL     MFDENT+3,1    1ST 3 WDS OF THIS MFD ENTRY IN WORDS 1,2,3 
      00306  0602 00 1 70056         SLW     TPBUF+3,1     .
      00307 -0500 00 1 64516         CAL     MFDENT+6,1    NEXT 3 TO WORDS 9,10,11  
      00310  0602 00 1 70066         SLW     TPBUF+11,1    .
      00311 -0500 00 1 00041         CAL     UFDID+3,1     LABEL IN WORDS 6,7,8     
      00312  0602 00 1 70063         SLW     TPBUF+8,1     .
      00313  2 00001 1 00305         TIX     *-6,1,1  
      00314 -0500 00 0 62737         CAL     TLD           TLD(I) IN WORD 4   
      00315  0602 00 0 70056         SLW     TPBUF+3       .
      00316 -0500 00 0 73353         CAL     TND           TND IN WORD 5
      00317  0602 00 0 70057         SLW     TPBUF+4       .
                              *     
                              *      FIND NO. OF FULL LOGICAL RECORDS (NFLR), AND NO. OF WORDS  
                              *      TO BE WRITTEN IN LAST LOGICAL RECORD (NLAST), OF UFD FILE  
                              *     
      00320                          LOGREC  MFDENT   
      00320  0500 00 0 00047         CLA     LTPBF                                                            .001
      00321  0402 00 0 01344         SUB     =12                                                              .001
      00322  0601 00 0 00035         STO     TEMP                                                             .001
      00323 -0500 00 0 64514         CAL     MFDENT+4                                                         .001
      00324 -0320 00 0 01346         ANA     =O77777                                                          .001
      00325  0601 00 0 00052         STO     RCOUNT                                                           .001
      00326  0074 00 4 00016         TSX     $NLREC,4                                                         .001
 TD   00327  3 00000 0 00053         TXH     NORECS                                                           .001
 TD   00330  3 00000 0 00052         TXH     RCOUNT                                                           .001
 TD   00331  3 00000 0 00054         TXH     LCOUNT                                                           .001
 TD   00332  3 00000 0 00035         TXH     TEMP                                                             .001
1            SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64          05/11/69 2013.4 PAGE 9     
                  
 TD   00333  3 00000 0 01344         TXH     =12                                                              .001
 TD   00334  3 00000 0 00057         TXH     PHYSRC                                                           .001
 TD   00335  3 00000 0 00055         TXH     NFLR                                                             .001
 TD   00336  3 00000 0 00056         TXH     NLAST                                                            .001
      00337  0534 00 2 00055         LXA     NFLR,2   
      00340 -0634 00 2 00366         SXD     NXIC,2        NO. OF FULL LOGICAL RECORDS    
      00341  0520 00 0 00056         ZET     NLAST    
      00342  1 00001 2 00343         TXI     *+1,2,1       ADD 1 IF PARTIAL RECORD AT END 
      00343  0634 00 2 70066         SXA     TPBUF+11,2    NO. LOGICAL RECS. TO 12TH PREAMBLE WORD    
      00344  0774 00 2 00001         AXT     1,2           1ST RECORD NO. IS 1
      00345 -0520 00 0 00055         NZT     NFLR     
      00346  0020 00 0 00371         TRA     NXJ           SKIP IF NO FULL RECORDS  
                              *     
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
                              *      READ, COPY ON DRUM OR DISK, AND DUMP, THIS UFD FILE  
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
                              *     
      00347 -0634 00 2 70066  NXIB   SXD     TPBUF+11,2    RECORD NO. TO 12TH PREAMBLE WORD     
      00350                          CLEAR   TPBUF+12,TBSIZ-12    
      00350  0774 00 1 03264         AXT     TBSIZ-12,1                                                       .001
      00351  0600 00 1 73353         STZ     TPBUF+12+TBSIZ-12,1                                              .001
      00352  2 00001 1 00351         TIX     *-1,1,1                                                          .001
      00353 -0520 00 0 62747         NZT     UFDEOF   
      00354  0020 00 0 00361         TRA     *+5           SKIP IF UFD EOF EARLY DUE TO DELETIONS     
      00355  0074 00 4 00017         TSX     $RDUFD,4      FILL UP BUFFER FROM UFD  
 TD   00356  3 00000 0 70067         TXH     TPBUF+12 
 TD   00357  3 00000 0 00035         TXH     TEMP     
      00360  0020 00 0 01265         TRA     NXR           ERROR RETURN, ABANDON THIS USER
      00361  0074 00 4 00020         TSX     $WRNF,4  
 TD   00362  3 00000 0 70053         TXH     TPBUF    
 TD   00363  3 00000 0 00047         TXH     LTPBF    
      00364  0074 00 4 00015         TSX     $GDSIG,4 
      00365  1 00001 2 00366         TXI     *+1,2,1       INCREMENT RECORD NO. BY 1
      00366 -3 00000 2 00347   NXIC  TXL     NXIB,2,**     GO BACK FOR NEXT BUFFER FULL   
                              *     
      00367 -0520 00 0 00056         NZT     NLAST         NOW WRITE PARTIAL RECORD 
      00370  0020 00 0 00407         TRA     NXK           SKIP IF NO PARTIAL RECORD
      00371 -0634 00 2 70066  NXJ    SXD     TPBUF+11,2    RECORD NO. TO 12TH PREAMBLE WORD     
      00372                          CLEAR   TPBUF+12,TBSIZ-12    
      00372  0774 00 1 03264         AXT     TBSIZ-12,1                                                       .001
      00373  0600 00 1 73353         STZ     TPBUF+12+TBSIZ-12,1                                              .001
      00374  2 00001 1 00373         TIX     *-1,1,1                                                          .001
      00375 -0520 00 0 62747         NZT     UFDEOF   
      00376  0020 00 0 00403         TRA     *+5           SKIP IF EOF ALREADY DUE TO DELETIONS 
      00377  0074 00 4 00017         TSX     $RDUFD,4      READ LAST PART OF UFD FILE     
 TD   00400  3 00000 0 70067         TXH     TPBUF+12 
 TD   00401  3 00000 0 00035         TXH     TEMP     
      00402  0020 00 0 01265         TRA     NXR           ERROR RETURN, ABANDON THIS USER
      00403  0074 00 4 00020         TSX     $WRNF,4  
 TD   00404  3 00000 0 70053         TXH     TPBUF    
 TD   00405  3 00000 0 00056         TXH     NLAST    
      00406  0074 00 4 00015         TSX     $GDSIG,4 
                              *     
                              *     
                              *      RECORD DUMPING OF THIS UFD FILE, ON DUMP TAPE MAP FILE     
                              *     
1            SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64          05/11/69 2013.4 PAGE 10    
                  
      00407 -0500 00 0 64510  NXK    CAL     MFDENT   
      00410  0602 00 0 60267         SLW     ARGLST   
      00411 -0500 00 0 64511         CAL     MFDENT+1 
      00412  0602 00 0 60270         SLW     ARGLST+1 
      00413 -0500 00 0 00032         CAL     UFDNAM   
      00414  0602 00 0 60271         SLW     ARGLST+2 
      00415 -0500 00 0 00033         CAL     UFDNAM+1 
      00416  0602 00 0 60272         SLW     ARGLST+3 
      00417 -0500 00 0 64512         CAL     MFDENT+2 
      00420  0602 00 0 60273         SLW     ARGLST+4 
      00421  0520 00 0 60266         ZET     CDSW     
      00422  0020 00 0 00430         TRA     NXKA     
      00423 -0500 00 0 62737         CAL     TLD
      00424  0602 00 0 60274         SLW     ARGLST+5 
      00425 -0500 00 0 73353         CAL     TND
      00426  0602 00 0 60275         SLW     ARGLST+6 
      00427  0020 00 0 00434         TRA     *+5
      00430 -0500 00 0 64513  NXKA   CAL     MFDENT+3 
      00431 -0320 00 0 01356         ANA     =O777777000000 
      00432  0602 00 0 60274         SLW     ARGLST+5 
      00433  0600 00 0 60275         STZ     ARGLST+6 
      00434  0074 00 4 00021         TSX     $MAPLIN,4
                              *     
                              *      INITIALIZE USER'S UFD FILE FOR READING   
                              *     
      00435 -0500 00 0 00046         CAL     EMPTSW   
      00436  0100 00 0 00441         TZE     *+3
      00437  0600 00 0 00046         STZ     EMPTSW   
      00440  0020 00 0 01012         TRA     DU111    
      00441  0074 00 4 00022         TSX     $IENUFD,4     INITIATE READING FOR ENTUFD ROUTINE  
      00442  0020 00 0 01265         TRA     NXR           TROUBLE WITH READING, SKIP TO FIX UP 
                              *     
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  
                              *      START DUMP USER FILE LOOP    
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  
                              *     
      00443  0074 00 4 00023  NXFILE TSX     $ENTUFD,4     GET UFD ENTRY FOR NEXT FILE IN UFDENT
      00444  0020 00 0 01265         TRA     NXR           READING TROUBLE IN OUR COPY OF UFD   
      00445 -0500 00 0 62741         CAL     UFDENT   
      00446 -0520 00 0 62742         NZT     UFDENT+1 
      00447  0100 00 0 01007         TZE     NXQ           IGNORE UFD ENTRY IF ALL ZEROS  
      00450 -0340 00 0 00032         LAS     UFDNAM   
      00451  0020 00 0 00460         TRA     NXFLA         O.K. IF NOT UFD FILE     
      00452  0020 00 0 00454         TRA     *+2
      00453  0020 00 0 00460         TRA     NXFLA         OK NOT UFD FILE    
      00454 -0500 00 0 62742         CAL     UFDENT+1 
      00455 -0340 00 0 00033         LAS     UFDNAM+1 
      00456  0020 00 0 00460         TRA     NXFLA         OK NOT UFD FILE    
      00457  0020 00 0 01007         TRA     NXQ           DO NOT DUMP IF UFD FILE  
                              *     
                              * CHECK THAT FILE HAS A TIME T SUCH THAT (TLD .LE. T .L. TND),    
                              *  ALSO THAT IT IS ON DISK OR DRUM, AND IS NOT TEMPORARY.   
                              *   (IF WRITE-ONLY, TEMPORARILY CHANGE ITS MODE.)     
                              *     
      00460  0520 00 0 00073  NXFLA  ZET     ALLSW    
      00461  0020 00 0 00476         TRA     NXFLAA        SKIP TIME CRITERIA IF SYSTEMFILE DUMP
1            SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64          05/11/69 2013.4 PAGE 11    
                  
      00462 -0500 00 0 62743         CAL     UFDENT+2      TIME LAST MODIFIED 
      00463 -0520 00 0 60266         NZT     CDSW     
      00464  0020 00 0 00467         TRA     *+3           IF INCR. DUMP T =TIME LAST MODIFIED  
      00465 -0500 00 0 62744         CAL     UFDENT+3      IF COMPLETE DUMP T = TIME LAST USED  
      00466 -0320 00 0 01356         ANA     =O777777000000 
      00467  0602 00 0 00035         SLW     TEMP     
      00470  0500 00 0 00035         CLA     TEMP      GET DATE/TIME FILE LAST MODIFIED OR USED, T    
      00471  0402 00 0 73353         SUB     TND           COMPARE WITH DATE/TIME OF THIS DUMP, TND   
      00472  0120 00 0 01007         TPL     NXQ           T .GE. TND, DON'T DUMP, GO FOR NEXT FILE   
      00473  0500 00 0 00035         CLA     TEMP      GET T AGAIN
      00474  0402 00 0 62737         SUB     TLD           COMPARE WITH DATE/TIME OF USER'S LAST DUMP 
      00475 -0120 00 0 01007         TMI     NXQ           T .LESS. TLD, DON'T DUMP, GO FOR NEXT FILE 
      00476 -0500 00 0 62745  NXFLAA CAL     UFDENT+4      CHECK DEVICE ON WHICH FILE RESIDES   
      00477  0771 00 0 00017         ARS     15 
      00500 -0320 00 0 01343         ANA     =O7
      00501  0734 00 1 00000         PAX     0,1
      00502 -3 00000 1 00504         TXL     *+2,1,LSDRUM-1 
      00503 -3 00001 1 00506         TXL     NXFDMP,1,LSDRUM         SKIP TO DUMP IF FILE ON L.S.DRUM 
      00504 -3 00001 1 01007         TXL     NXQ,1,DISK-1  DON'T DUMP IF NOT ON DISK OR L.S. DRUM     
      00505  3 00002 1 01007         TXH     NXQ,1,DISK    .
                              *     
                  
                                          (AT THIS POINT FURTHER CRITERIA FOR DUMPING MAY BE APPLIED) 
                              *     
                  
                              *     
      00506 -0500 00 0 64510  NXFDMP CAL     MFDENT   
      00507  0602 00 0 60267         SLW     ARGLST        SET UP PARAMETERS FOR DUMP TAPE 'MAP' LINE 
      00510 -0500 00 0 64511         CAL     MFDENT+1 
      00511  0602 00 0 60270         SLW     ARGLST+1 
      00512                          MOVE    3,UFDENT,ARGLST+2    
      00512  0774 00 1 00003         AXT     3,1                                                              .001
      00513 -0500 00 1 62744         CAL     UFDENT+3,1                                                       .001
      00514  0602 00 1 60274         SLW     ARGLST+2+3,1                                                     .001
      00515  2 00001 1 00513         TIX     *-2,1,1                                                          .001
      00516  0520 00 0 60266         ZET     CDSW     
      00517  0020 00 0 00525         TRA     NXFDB         SKIP IF COMPLETE DUMP    
      00520 -0500 00 0 62737         CAL     TLD
      00521  0602 00 0 60274         SLW     ARGLST+5 
      00522 -0500 00 0 73353         CAL     TND
      00523  0602 00 0 60275         SLW     ARGLST+6 
      00524  0020 00 0 00531         TRA     *+5
      00525 -0500 00 0 62744  NXFDB  CAL     UFDENT+3 
      00526 -0320 00 0 01356         ANA     =O777777000000 
      00527  0602 00 0 60274         SLW     ARGLST+5      DATE LAST MODIFIED 
      00530  0600 00 0 60275         STZ     ARGLST+6 
                              *     
                              *      INITIALIZE FILE TO BE DUMPED FOR READING 
                              *     
      00531  0074 00 4 00001  NXLB   TSX     TILOCK,4      SET READ INTERLOCK TRAP TRANSFER     
      00532  0 00000 0 01005         PZE     NXPA          (FORGET THIS FILE IF INTERLOCKED)    
      00533  0621 00 0 00774         STA     NXPD          SAVE PREVIOUS INTERLOCK TRANSFER ADDRESS   
      00534  0621 00 0 01006         STA     NXPE     
      00535  0074 00 4 00015         TSX     $GDSIG,4      GET KEYS, SET SWITCHES   
      00536 -0500 00 0 00034         CAL     R  
      00537  0560 00 0 62745         LDQ     UFDENT+4 
1            SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64          05/11/69 2013.4 PAGE 12    
                  
      00540 -0773 00 0 00007         RQL     7  
      00541  0162 00 0 00543         TQP     *+2
      00542 -0500 00 0 01355         CAL     =HRW     
      00543  0602 00 0 00061         SLW     STATUS   
      00544  0074 00 4 00000         TSX     ATTACH,4 
 TD   00545  3 00000 0 64510         TXH     MFDENT   
 TD   00546  3 00000 0 64511         TXH     MFDENT+1 
      00547  0074 00 4 00002         TSX     OPEN,4   
 TD   00550  3 00000 0 00061         TXH     STATUS   
 TD   00551  3 00000 0 62741         TXH     UFDENT   
 TD   00552  3 00000 0 62742         TXH     UFDENT+1 
 TD   00553  3 00000 0 01340         TXH     =0 
 TD   00554  3 00000 0 01340         TXH     =0 
 TD   00555  3 00000 0 01145         TXH     ERRG     
      00556  0074 00 4 00003         TSX     BUFFER,4 
 TD   00557  3 00000 0 62741         TXH     UFDENT   
 TD   00560  3 00000 0 62742         TXH     UFDENT+1 
      00561  2 00051 0 62750         TIX     IOBUF2,,LBUF2  
      00562  0074 00 4 00012         TSX     FSTATE,4 
 TD   00563  3 00000 0 62741         TXH     UFDENT   
 TD   00564  3 00000 0 62742         TXH     UFDENT+1 
      00565  3 00010 0 00103         TXH     A,,8          IN A   
      00566 -0500 00 0 00103         CAL     A             'LCOUNT'=A   
      00567  0602 00 0 62746         SLW     UFDENT+5 
      00570  0602 00 0 00054         SLW     LCOUNT   
      00571  0500 00 0 01341         CLA     =1 
      00572  0601 00 0 00053         STO     NORECS   
      00573  0500 00 0 00573         CLA     *  
      00574  0601 00 0 62733         STO     FEOF          ZERO FEOF INDICATES EOF IN THIS FILE 
      00575                          CLEAR   TPBUF,TBSIZ   CLEAR DUMP TAPE BUFFER   
      00575  0774 00 1 03300         AXT     TBSIZ,1                                                          .001
      00576  0600 00 1 73353         STZ     TPBUF+TBSIZ,1                                                    .001
      00577  2 00001 1 00576         TIX     *-1,1,1                                                          .001
                              *     
                              *      PREPARE DUMP TAPE PREAMBLE FOR THIS FILE 
                              *     
      00600  0760 00 0 00166         SWT     6             TEST FOR PRINT OF FILE NAME    
      00601  0020 00 0 00604         TRA     *+3           NO PRINT, SKIP     
      00602  0074 00 4 00010         TSX     WRFLX,4       PRINT IT     
      00603  0 00002 0 62741         PZE     UFDENT,,2     ..     
      00604                          MOVE    3,MFDENT,TPBUF  PREPARE 11 WORDS OF DUMP TAPE PREAMBLE   
      00604  0774 00 1 00003         AXT     3,1                                                              .001
      00605 -0500 00 1 64513         CAL     MFDENT+3,1                                                       .001
      00606  0602 00 1 70056         SLW     TPBUF+3,1                                                        .001
      00607  2 00001 1 00605         TIX     *-2,1,1                                                          .001
      00610                          MOVE    3,MFDENT,TPBUF2  SAME FOR OTHER BUFFER 
      00610  0774 00 1 00003         AXT     3,1                                                              .001
      00611 -0500 00 1 64513         CAL     MFDENT+3,1                                                       .001
      00612  0602 00 1 64556         SLW     TPBUF2+3,1                                                       .001
      00613  2 00001 1 00611         TIX     *-2,1,1                                                          .001
      00614 -0500 00 0 62737         CAL     TLD           DUMPED COPY OF THIS FILE, CONSISTING 
      00615  0602 00 0 70056         SLW     TPBUF+3       OF 1ST 3 WORDS OF MFD ENTRY IN WORDS 1-3   
      00616  0602 00 0 64556         SLW     TPBUF2+3 
      00617 -0500 00 0 73353         CAL     TND           AND TLD IN WORD 4, 
      00620  0602 00 0 70057         SLW     TPBUF+4       TND IN WORD 5,     
      00621  0602 00 0 64557         SLW     TPBUF2+4 
1            SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64          05/11/69 2013.4 PAGE 13    
                  
      00622                          MOVE    6,UFDENT,TPBUF+5   AND UFD ENTRY IN WORDS 6-11.    
      00622  0774 00 1 00006         AXT     6,1                                                              .001
      00623 -0500 00 1 62747         CAL     UFDENT+6,1                                                       .001
      00624  0602 00 1 70066         SLW     TPBUF+5+6,1                                                      .001
      00625  2 00001 1 00623         TIX     *-2,1,1                                                          .001
      00626                          MOVE    6,UFDENT,TPBUF2+5    
      00626  0774 00 1 00006         AXT     6,1                                                              .001
      00627 -0500 00 1 62747         CAL     UFDENT+6,1                                                       .001
      00630  0602 00 1 64566         SLW     TPBUF2+5+6,1                                                     .001
      00631  2 00001 1 00627         TIX     *-2,1,1                                                          .001
                              *     
                              *      FIND NO. OF FULL LENGTH RECORDS (NFLR) AND NO. OF    
                              *      WORDS TO BE WRITTEN IN LAST LOGICAL RECORD (NLAST)   
                              *      OF THIS NEXT FILE.     
                              *     
      00632                          LOGREC  UFDENT   
      00632  0500 00 0 00047         CLA     LTPBF                                                            .001
      00633  0402 00 0 01344         SUB     =12                                                              .001
      00634  0601 00 0 00035         STO     TEMP                                                             .001
      00635 -0500 00 0 62745         CAL     UFDENT+4                                                         .001
      00636 -0320 00 0 01346         ANA     =O77777                                                          .001
      00637  0601 00 0 00052         STO     RCOUNT                                                           .001
      00640  0074 00 4 00016         TSX     $NLREC,4                                                         .001
 TD   00641  3 00000 0 00053         TXH     NORECS                                                           .001
 TD   00642  3 00000 0 00052         TXH     RCOUNT                                                           .001
 TD   00643  3 00000 0 00054         TXH     LCOUNT                                                           .001
 TD   00644  3 00000 0 00035         TXH     TEMP                                                             .001
 TD   00645  3 00000 0 01344         TXH     =12                                                              .001
 TD   00646  3 00000 0 00057         TXH     PHYSRC                                                           .001
 TD   00647  3 00000 0 00055         TXH     NFLR                                                             .001
 TD   00650  3 00000 0 00056         TXH     NLAST                                                            .001
      00651  0534 00 2 00055         LXA     NFLR,2   
      00652 -0634 00 2 00727         SXD     NXN,2         NO. OF FULL LENGTH RECS. 
      00653  0520 00 0 00055         ZET     NFLR     
      00654  0020 00 0 00663         TRA     *+7
      00655  0520 00 0 00056         ZET     NLAST    
      00656  0020 00 0 00664         TRA     *+6
      00657  0774 00 2 00001         AXT     1,2
      00660 -0500 00 0 00057         CAL     PHYSRC   
      00661  0602 00 0 00056         SLW     NLAST    
      00662  0020 00 0 00665         TRA     *+3
      00663  0520 00 0 00056         ZET     NLAST    
      00664  1 00001 2 00665         TXI     *+1,2,1       ADD 1 IF A PARTIAL REC. AT END 
      00665  0634 00 2 70066         SXA     TPBUF+11,2    NO. OF LOGICAL RECS. TO 12TH PREAMBLE WORD 
      00666  0634 00 2 64566         SXA     TPBUF2+11,2    
      00667  0774 00 2 00001         AXT     1,2           1ST RECORD NO. IS 1
      00670  0634 00 2 00102         SXA     FLFL,2        INITIALIZE BUFFER SWITCH 
      00671 -0520 00 0 00055         NZT     NFLR     
      00672  0020 00 0 00732         TRA     NXP           SKIP IF NO FULL RECORDS  
                              *     
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
                              *      READ AND DUMP THIS USER FILE 
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
                              *     
      00673  0534 00 1 00102  NXM    LXA     FLFL,1        SWITCH TO ALTERNATE BUFFER ADDRESS   
      00674  1 00001 1 00675         TXI     *+1,1,1  
1            SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64          05/11/69 2013.4 PAGE 14    
                  
      00675 -3 00001 1 00677         TXL     *+2,1,1  
      00676  0774 00 1 00000         AXT     0,1
      00677  0634 00 1 00102         SXA     FLFL,1   
      00700  0500 00 1 00075         CLA     TBA1,1   
      00701  0621 00 0 00723         STA     NXM4     
      00702  0500 00 1 00077         CLA     TBA2,1   
      00703  0621 00 0 00710         STA     NXM1     
      00704  0400 00 0 01341         ADD     =1 
      00705  0621 00 0 00715         STA     NXM3     
      00706  0500 00 1 00101         CLA     TBA3,1   
      00707  0621 00 0 00712         STA     NXM2     
      00710 -0634 00 2 00000  NXM1   SXD     **,2          SET LOGICAL REC. NO. IN PREAMBLE     
      00711  0774 00 1 03264         AXT     TBSIZ-12,1    CLEAR BULK OF BUFFER     
      00712  0600 00 1 00000  NXM2   STZ     **,1     
      00713  2 00001 1 00712         TIX     NXM2,1,1 
      00714  0074 00 4 00024         TSX     $RDF,4        FILL UP BUFFER FROM THIS FILE  
 TD   00715  3 00000 0 00000  NXM3   TXH     ** 
 TD   00716  3 00000 0 00035         TXH     TEMP     
      00717  0020 00 0 00764         TRA     NXPB          ERROR RETURN, MOVE TO NEXT FILE
      00720 -0520 00 0 62733         NZT     FEOF     
      00721  0020 00 0 01166         TRA     ERRL          EOF IN WRONG PLACE 
      00722  0074 00 4 00020  NXMA   TSX     $WRNF,4       WRITE OUT BUFFER FULL OF THIS FILE   
 TD   00723  3 00000 0 00000  NXM4   TXH     **            ( A LOGICAL REC.) ONTO DUMP TAPE     
 TD   00724  3 00000 0 00047         TXH     LTPBF    
      00725  0074 00 4 00015         TSX     $GDSIG,4 
      00726  1 00001 2 00727         TXI     *+1,2,1  
      00727 -3 00000 2 00673   NXN   TXL     NXM,2,**      GO BACK FOR NEXT RECORD/BUFFER-FULL,IF ANY 
                              *     
      00730 -0520 00 0 00056         NZT     NLAST         NOW WRITE PARTIAL LOGICAL RECORD     
      00731  0020 00 0 00763         TRA     NXPBG         SKIP IF NO PARTIAL LOGICAL RECORD    
      00732  0534 00 1 00102  NXP    LXA     FLFL,1        SWITCH TO ALTERNATE BUFFER ADDRESS   
      00733  1 00001 1 00734         TXI     *+1,1,1  
      00734 -3 00001 1 00736         TXL     *+2,1,1  
      00735  0774 00 1 00000         AXT     0,1
      00736  0500 00 1 00075         CLA     TBA1,1   
      00737  0621 00 0 00761         STA     NXP4     
      00740  0500 00 1 00077         CLA     TBA2,1   
      00741  0621 00 0 00746         STA     NXP1     
      00742  0400 00 0 01341         ADD     =1 
      00743  0621 00 0 00753         STA     NXP3     
      00744  0500 00 1 00101         CLA     TBA3,1   
      00745  0621 00 0 00750         STA     NXP2     
      00746 -0634 00 2 00000  NXP1   SXD     **,2          SET LOGICAL REC. NO. IN PREAMBLE     
      00747  0774 00 1 03264         AXT     TBSIZ-12,1    CLEAR BULK OF BUFFER     
      00750  0600 00 1 00000  NXP2   STZ     **,1     
      00751  2 00001 1 00750         TIX     NXP2,1,1 
      00752  0074 00 4 00024         TSX     $RDF,4        READ LAST PART OF FILE   
 TD   00753  3 00000 0 00000  NXP3   TXH     ** 
 TD   00754  3 00000 0 00035         TXH     TEMP     
      00755  0020 00 0 00764         TRA     NXPB          ERROR RETURN, MOVE TO NEXT FILE
      00756  0520 00 0 62733         ZET     FEOF     
      00757  0020 00 0 01252         TRA     ERRM          EOF NOT WHERE IT SHOULD BE, ERROR    
      00760  0074 00 4 00020  NXNA   TSX     $WRNF,4       WRITE OUT REMAINDER OF FILE    
 TD   00761  3 00000 0 00000  NXP4   TXH     ** 
 TD   00762  3 00000 0 00056         TXH     NLAST    
                              *     
1            SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64          05/11/69 2013.4 PAGE 15    
                  
                              *      CLOSE THIS FILE, RECORD ITS BEING DUMPED,RESTORE ITS MODE  
                              *     
      00763  0074 00 4 00021  NXPBG  TSX     $MAPLIN,4     WRITE LINE ON DUMPTP 'MAP' FOR THIS FILE   
      00764  0074 00 4 00000  NXPB   TSX     ATTACH,4      YES, CLOSE THIS FILE,    
 TD   00765  3 00000 0 64510         TXH     MFDENT        WHICH IS NOW COMPLETELY (OR PARTLY) DUMPED 
 TD   00766  3 00000 0 64511         TXH     MFDENT+1      .
      00767  0074 00 4 00005         TSX     CLOSE,4       .
 TD   00770  3 00000 0 62741         TXH     UFDENT        .
 TD   00771  3 00000 0 62742         TXH     UFDENT+1      .
      00772  0600 00 0 62731         STZ     DMPSW         INDICATE SOMETHING GOT DUMPED  
      00773  0074 00 4 00001         TSX     TILOCK,4      ENSURE READ-INTERLOCK TRAP ADDRESS RESTORED
      00774  0 00000 0 00000  NXPD   PZE     ** 
      00775  0074 00 4 00013         TSX     SETFIL,4      RESTORE USERS FILE STATUS
 TD   00776  3 00000 0 62741         TXH     UFDENT   
 TD   00777  3 00000 0 62742         TXH     UFDENT+1 
 TD   01000  3 00000 0 00111         TXH     A+6
 TD   01001  3 00000 0 00112         TXH     A+7
 TD   01002  3 00000 0 00104         TXH     A+1
 TD   01003  3 00000 0 00106         TXH     A+3
      01004  0020 00 0 01007         TRA     NXQ
      01005  0074 00 4 00001  NXPA   TSX     TILOCK,4 
      01006  0 00000 0 00000  NXPE   PZE     ** 
                              *     
                              *      END OF DUMP FILE LOOP  
                              *     
      01007  0074 00 4 00015  NXQ    TSX     $GDSIG,4 
      01010  0520 00 0 62747         ZET     UFDEOF        WAS THIS LAST UFD ENTRY (AS DETECTED 
                                                            BY ENTUFD), I.E. WAS THIS LAST FILE 
      01011  0020 00 0 00443         TRA     NXFILE        NO, GO BACK TO DUMP NEXT FILE  
      01012  0074 00 4 00005  DU111  TSX     CLOSE,4       YES, CLOSE OUR COPY OF UFD     
 TD   01013  3 00000 0 00032         TXH     UFDNAM   
 TD   01014  3 00000 0 00033         TXH     UFDNAM+1 
 TD   01015  3 00000 0 01016         TXH     *+1
                              *     
      01016  0774 00 1 00000   DU1   AXT     **,1     
      01017  0774 00 2 00000    DU2  AXT     **,2     
      01020  0774 00 4 00000    DU4  AXT     **,4     
      01021  0020 00 4 00003         TRA     3,4
                              *     
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
                              *      ERROR FIX-UP SECTION FOR CREATED-FILE DUMPER   
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
                              *     
      01022                    ERRA  BGNERM  =HA           TROUBLE OPENING UFD FILE 
      01022  0634 00 4 01025         SXA     *+3,4                                                            .001
      01023  0074 00 4 00025         TSX     $BERM,4                                                          .001
      01024  0 00000 0 01351         PZE     =HA                                                              .001
      01025  0774 00 4 00000         AXT     **,4                                                             .001
      01026  0074 00 4 00026         TSX     $CKCODE,4
      01027  464725456060            BCI     1,OPEN   
      01030  0 00000 0 00014         PZE     ERCODA   
      01031  0 00000 0 01060         PZE     ERRA1         (TRANSFER IF NOT THE ERROR WE ARE SEEKING) 
      01032                          PRLINE  ( U.F.D. FILE NOT FOUND FOR FOLLOWING USER,     ),8,0    
      01032                          MOVE    8,..003,PBF                                                      .001
      01032  0774 00 1 00010         AXT     8,1                                                              .002
      01033 -0500 00 1 01304         CAL     ..003+8,1                                                        .002
1            SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64          05/11/69 2013.4 PAGE 16    
                  
      01034  0602 00 1 64536         SLW     PBF+8,1                                                          .002
      01035  2 00001 1 01033         TIX     *-2,1,1                                                          .002
      01036                          PRBUFF  PBF,8+0                                                          .001
      01036  0634 00 4 01041         SXA     *+3,4                                                            .002
      01037  0074 00 4 00010         TSX     WRFLX,4                                                          .002
      01040  0 00010 0 64526                 PBF,,8+0                                                         .002
      01041  0774 00 4 00000         AXT     **,4                                                             .002
      01042                          CLEAR   PBF,8+0                                                          .002
      01042  0774 00 1 00010         AXT     8+0,1                                                            .003
      01043  0600 00 1 64536         STZ     PBF+8+0,1                                                        .003
      01044  2 00001 1 01043         TIX     *-1,1,1                                                          .003
                                     RMT                                                                      .001
                              ..003  BCI     8, U.F.D. FILE NOT FOUND FOR FOLLOWING USER,                     .001
                                     RMT                                                                      .001
      01045                          PRLINE  ( WHO IS IN M.F.D. -     ),4,0   
      01045                          MOVE    4,..006,PBF                                                      .001
      01045  0774 00 1 00004         AXT     4,1                                                              .002
      01046 -0500 00 1 01310         CAL     ..006+4,1                                                        .002
      01047  0602 00 1 64532         SLW     PBF+4,1                                                          .002
      01050  2 00001 1 01046         TIX     *-2,1,1                                                          .002
      01051                          PRBUFF  PBF,4+0                                                          .001
      01051  0634 00 4 01054         SXA     *+3,4                                                            .002
      01052  0074 00 4 00010         TSX     WRFLX,4                                                          .002
      01053  0 00004 0 64526                 PBF,,4+0                                                         .002
      01054  0774 00 4 00000         AXT     **,4                                                             .002
      01055                          CLEAR   PBF,4+0                                                          .002
      01055  0774 00 1 00004         AXT     4+0,1                                                            .003
      01056  0600 00 1 64532         STZ     PBF+4+0,1                                                        .003
      01057  2 00001 1 01056         TIX     *-1,1,1                                                          .003
                                     RMT                                                                      .001
                              ..006  BCI     4, WHO IS IN M.F.D. -                                            .001
                                     RMT                                                                      .001
      01060                    ERRA1 PRLINE  (                        PROBLEM NO. ),6,1,MFDENT  
      01060                          MOVE    6,..008,PBF                                                      .001
      01060  0774 00 1 00006         AXT     6,1                                                              .002
      01061 -0500 00 1 01316         CAL     ..008+6,1                                                        .002
      01062  0602 00 1 64534         SLW     PBF+6,1                                                          .002
      01063  2 00001 1 01061         TIX     *-2,1,1                                                          .002
      01064 -0500 00 0 64510         CAL     MFDENT                                                           .001
      01065  0602 00 0 64534         SLW     PBF+6                                                            .001
      01066                          PRBUFF  PBF,6+1                                                          .001
      01066  0634 00 4 01071         SXA     *+3,4                                                            .002
      01067  0074 00 4 00010         TSX     WRFLX,4                                                          .002
      01070  0 00007 0 64526                 PBF,,6+1                                                         .002
      01071  0774 00 4 00000         AXT     **,4                                                             .002
      01072                          CLEAR   PBF,6+1                                                          .002
      01072  0774 00 1 00007         AXT     6+1,1                                                            .003
      01073  0600 00 1 64535         STZ     PBF+6+1,1                                                        .003
      01074  2 00001 1 01073         TIX     *-1,1,1                                                          .003
                                     RMT                                                                      .001
                              ..008  BCI     6,                        PROBLEM NO.                            .001
                                     RMT                                                                      .001
      01075                          PRLINE  (                     PROGRAMMER NO. ),6,1,MFDENT+1
      01075                          MOVE    6,..010,PBF                                                      .001
      01075  0774 00 1 00006         AXT     6,1                                                              .002
      01076 -0500 00 1 01324         CAL     ..010+6,1                                                        .002
1            SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64          05/11/69 2013.4 PAGE 17    
                  
      01077  0602 00 1 64534         SLW     PBF+6,1                                                          .002
      01100  2 00001 1 01076         TIX     *-2,1,1                                                          .002
      01101 -0500 00 0 64511         CAL     MFDENT+1                                                         .001
      01102  0602 00 0 64534         SLW     PBF+6                                                            .001
      01103                          PRBUFF  PBF,6+1                                                          .001
      01103  0634 00 4 01106         SXA     *+3,4                                                            .002
      01104  0074 00 4 00010         TSX     WRFLX,4                                                          .002
      01105  0 00007 0 64526                 PBF,,6+1                                                         .002
      01106  0774 00 4 00000         AXT     **,4                                                             .002
      01107                          CLEAR   PBF,6+1                                                          .002
      01107  0774 00 1 00007         AXT     6+1,1                                                            .003
      01110  0600 00 1 64535         STZ     PBF+6+1,1                                                        .003
      01111  2 00001 1 01110         TIX     *-1,1,1                                                          .003
                                     RMT                                                                      .001
                              ..010  BCI     6,                     PROGRAMMER NO.                            .001
                                     RMT                                                                      .001
      01112                          PRLINE  ( ABANDONING THIS USER IN THE CURRENT DUMP CYCLE.),8,0   
      01112                          MOVE    8,..013,PBF                                                      .001
      01112  0774 00 1 00010         AXT     8,1                                                              .002
      01113 -0500 00 1 01334         CAL     ..013+8,1                                                        .002
      01114  0602 00 1 64536         SLW     PBF+8,1                                                          .002
      01115  2 00001 1 01113         TIX     *-2,1,1                                                          .002
      01116                          PRBUFF  PBF,8+0                                                          .001
      01116  0634 00 4 01121         SXA     *+3,4                                                            .002
      01117  0074 00 4 00010         TSX     WRFLX,4                                                          .002
      01120  0 00010 0 64526                 PBF,,8+0                                                         .002
      01121  0774 00 4 00000         AXT     **,4                                                             .002
      01122                          CLEAR   PBF,8+0                                                          .002
      01122  0774 00 1 00010         AXT     8+0,1                                                            .003
      01123  0600 00 1 64536         STZ     PBF+8+0,1                                                        .003
      01124  2 00001 1 01123         TIX     *-1,1,1                                                          .003
                                     RMT                                                                      .001
                              ..013  BCI     8, ABANDONING THIS USER IN THE CURRENT DUMP CYCLE.               .001
                                     RMT                                                                      .001
      01125                    ERRA2 MOVE    5,ERSTAT,PBF   
      01125  0774 00 1 00005         AXT     5,1                                                              .001
      01126 -0500 00 1 00046         CAL     ERSTAT+5,1                                                       .001
      01127  0602 00 1 64533         SLW     PBF+5,1                                                          .001
      01130  2 00001 1 01126         TIX     *-2,1,1                                                          .001
      01131                          PRBUFF  PBF,5    
      01131  0634 00 4 01134         SXA     *+3,4                                                            .001
      01132  0074 00 4 00010         TSX     WRFLX,4                                                          .001
      01133  0 00005 0 64526                 PBF,,5                                                           .001
      01134  0774 00 4 00000         AXT     **,4                                                             .001
      01135                          CLEAR   PBF,5                                                            .001
      01135  0774 00 1 00005         AXT     5,1                                                              .002
      01136  0600 00 1 64533         STZ     PBF+5,1                                                          .002
      01137  2 00001 1 01136         TIX     *-1,1,1                                                          .002
      01140  0020 00 0 01265         TRA     NXR           GO TO ERROR RETURN 
      01141                   ERRA3  ERTN    NXR           PRINT COMMON MESSAGE THEN GO TO NXX  
      01141  0634 00 4 01143         SXA     *+2,4                                                            .001
      01142  0074 00 4 00027         TSX     $ERREND,4                                                        .001
      01143  0774 00 4 00000         AXT     **,4                                                             .001
      01144  0020 00 0 01265         TRA     NXR                                                              .001
1            SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64          05/11/69 2013.4 PAGE 18    
                  
                              *     
                  
                              *     
      01145  0074 00 4 00026  ERRG   TSX     $CKCODE,4
      01146  464725456060            BCI     1,OPEN   
      01147  0 00000 0 01345         PZE     =O15     
      01150  0 00000 0 01005         PZE     NXPA     
      01151  0074 00 4 00026         TSX     $CKCODE,4     ERROR OPENING FILE TO BE DUMPED
      01152  464725456060            BCI     1,OPEN   
      01153  0 00000 0 00014         PZE     ERCODA   
      01154  0 00000 0 01156         PZE     ERRG1    
      01155  0020 00 0 01005         TRA     NXPA          IF USER FILE NOT FOUND, MOVE TO NEXT 
      01156                    ERRG1 BGNERM  =HG           SOME OTHER ERROR   
      01156  0634 00 4 01161         SXA     *+3,4                                                            .001
      01157  0074 00 4 00025         TSX     $BERM,4                                                          .001
      01160  0 00000 0 01352         PZE     =HG                                                              .001
      01161  0774 00 4 00000         AXT     **,4                                                             .001
      01162                          ERTN    NXPA          PRINT COMMON MESSAGE, MOVE TO NEXT FILE    
      01162  0634 00 4 01164         SXA     *+2,4                                                            .001
      01163  0074 00 4 00027         TSX     $ERREND,4                                                        .001
      01164  0774 00 4 00000         AXT     **,4                                                             .001
      01165  0020 00 0 01005         TRA     NXPA                                                             .001
                  
                              *     
      01166  0500 00 0 64510  ERRL   CLA     MFDENT   
      01167  0402 00 0 00060         SUB     MFDNAM   
      01170 -0100 00 0 01174         TNZ     ERRLA    
      01171  0500 00 0 64511         CLA     MFDENT+1 
      01172  0402 00 0 00033         SUB     UFDNAM+1 
      01173  0100 00 0 00722         TZE     NXMA          NO ERROR IF FILE IS MFD FILE   
      01174                   ERRLA  BGNERM  =HL
      01174  0634 00 4 01177         SXA     *+3,4                                                            .001
      01175  0074 00 4 00025         TSX     $BERM,4                                                          .001
      01176  0 00000 0 01353         PZE     =HL                                                              .001
      01177  0774 00 4 00000         AXT     **,4                                                             .001
      01200                   ERRL1  PRLINE  (IN FILE -   ),2,2,UFDENT,UFDENT+1     
      01200                          MOVE    2,..014,PBF                                                      .001
      01200  0774 00 1 00002         AXT     2,1                                                              .002
      01201 -0500 00 1 01336         CAL     ..014+2,1                                                        .002
      01202  0602 00 1 64530         SLW     PBF+2,1                                                          .002
      01203  2 00001 1 01201         TIX     *-2,1,1                                                          .002
      01204 -0500 00 0 62741         CAL     UFDENT                                                           .001
      01205  0602 00 0 64530         SLW     PBF+2                                                            .001
      01206 -0500 00 0 62742         CAL     UFDENT+1                                                         .001
      01207  0602 00 0 64531         SLW     PBF+2+1                                                          .001
      01210                          PRBUFF  PBF,2+2                                                          .001
      01210  0634 00 4 01213         SXA     *+3,4                                                            .002
      01211  0074 00 4 00010         TSX     WRFLX,4                                                          .002
      01212  0 00004 0 64526                 PBF,,2+2                                                         .002
      01213  0774 00 4 00000         AXT     **,4                                                             .002
      01214                          CLEAR   PBF,2+2                                                          .002
      01214  0774 00 1 00004         AXT     2+2,1                                                            .003
      01215  0600 00 1 64532         STZ     PBF+2+2,1                                                        .003
      01216  2 00001 1 01215         TIX     *-1,1,1                                                          .003
                                     RMT                                                                      .001
                              ..014  BCI     2,IN FILE -                                                      .001
1            SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64          05/11/69 2013.4 PAGE 19    
                  
                                     RMT                                                                      .001
      01217                          PRLINE  (OF USER -   ),2,2,MFDENT,MFDENT+1     
      01217                          MOVE    2,..015,PBF                                                      .001
      01217  0774 00 1 00002         AXT     2,1                                                              .002
      01220 -0500 00 1 01340         CAL     ..015+2,1                                                        .002
      01221  0602 00 1 64530         SLW     PBF+2,1                                                          .002
      01222  2 00001 1 01220         TIX     *-2,1,1                                                          .002
      01223 -0500 00 0 64510         CAL     MFDENT                                                           .001
      01224  0602 00 0 64530         SLW     PBF+2                                                            .001
      01225 -0500 00 0 64511         CAL     MFDENT+1                                                         .001
      01226  0602 00 0 64531         SLW     PBF+2+1                                                          .001
      01227                          PRBUFF  PBF,2+2                                                          .001
      01227  0634 00 4 01232         SXA     *+3,4                                                            .002
      01230  0074 00 4 00010         TSX     WRFLX,4                                                          .002
      01231  0 00004 0 64526                 PBF,,2+2                                                         .002
      01232  0774 00 4 00000         AXT     **,4                                                             .002
      01233                          CLEAR   PBF,2+2                                                          .002
      01233  0774 00 1 00004         AXT     2+2,1                                                            .003
      01234  0600 00 1 64532         STZ     PBF+2+2,1                                                        .003
      01235  2 00001 1 01234         TIX     *-1,1,1                                                          .003
                                     RMT                                                                      .001
                              ..015  BCI     2,OF USER -                                                      .001
                                     RMT                                                                      .001
      01236                          MOVE    5,ERSTAT,PBF   
      01236  0774 00 1 00005         AXT     5,1                                                              .001
      01237 -0500 00 1 00046         CAL     ERSTAT+5,1                                                       .001
      01240  0602 00 1 64533         SLW     PBF+5,1                                                          .001
      01241  2 00001 1 01237         TIX     *-2,1,1                                                          .001
      01242                          PRBUFF  PBF,5    
      01242  0634 00 4 01245         SXA     *+3,4                                                            .001
      01243  0074 00 4 00010         TSX     WRFLX,4                                                          .001
      01244  0 00005 0 64526                 PBF,,5                                                           .001
      01245  0774 00 4 00000         AXT     **,4                                                             .001
      01246                          CLEAR   PBF,5                                                            .001
      01246  0774 00 1 00005         AXT     5,1                                                              .002
      01247  0600 00 1 64533         STZ     PBF+5,1                                                          .002
      01250  2 00001 1 01247         TIX     *-1,1,1                                                          .002
      01251  0020 00 0 00764         TRA     NXPB     
                              *     
      01252  0500 00 0 64510  ERRM   CLA     MFDENT   
      01253  0402 00 0 00060         SUB     MFDNAM   
      01254 -0100 00 0 01260         TNZ     ERRMA    
      01255  0500 00 0 64511         CLA     MFDENT+1 
      01256  0402 00 0 00033         SUB     UFDNAM+1 
      01257  0100 00 0 00760         TZE     NXNA          NO ERROR IF FILE IS MFD FILE   
      01260                   ERRMA  BGNERM  =HM
      01260  0634 00 4 01263         SXA     *+3,4                                                            .001
      01261  0074 00 4 00025         TSX     $BERM,4                                                          .001
      01262  0 00000 0 01354         PZE     =HM                                                              .001
      01263  0774 00 4 00000         AXT     **,4                                                             .001
      01264  0020 00 0 01200         TRA     ERRL1    
                              *     
      01265  0074 00 4 00005   NXR   TSX     CLOSE,4       CLOSE U.F.D. FILE  
 TD   01266  3 00000 0 00032         TXH     UFDNAM   
 TD   01267  3 00000 0 00033         TXH     UFDNAM+1 
      01270  0534 00 4 01020         LXA     DU4,4         SET UP RETURN TO (2,4), ERROR RETURN 
1            SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64          05/11/69 2013.4 PAGE 20    
                  
      01271  1 00001 4 01272         TXI     *+1,4,1  
      01272  0634 00 4 01020         SXA     DU4,4    
      01273  0020 00 0 01016         TRA     DU1           GO EXIT
                              *     
                                     INSERT  DCMEQB   
                              *     
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
                              *    COMMON AND EQUIVALENCE FOR GENERAL DUMP PROGRAM  
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
                              *     
                      074446  DEMKEY BOOL    74446         CORE A LOCATION FOR DAEMON'S KEY SETTING   
                      074624  SYSTIM BOOL    74624         CORE A LOCATION FOR SYSTEM  TIME     
                      074623  SYSDAT BOOL    74623         CORE A LOCATION FOR SYSTEM INIT. DATE
                      076041  RCODE  BOOL    76041         CORE A LOCATION FOR RESTRICTION CODE VECTOR
                      074454  AUTOND BOOL    74454         CORE A AUTOMATIC LOGOUT INDICATOR    
                      074532  NUSERS BOOL    74532         CORE A LOGGED-IN USER COUNT    
                      076500  PROBN  BOOL    76500         CORE A PROBNO ARRAY
                      076305  UFDNM  BOOL    76305         CORE A UFDNM ARRAY 
                      074672  PB     BOOL    74672         CORE A GUARANTEED PERCENTAGE VECTOR BASE   
                       00050  N      EQU     40            CORE A MAX. NO. OF USERS (SIZE OF PROBN)   
                              *     
                      000017  BASE   BOOL    17            KEY CODE BASE
                      000001  I      BOOL    1             KEY CODE TO START INCREMENTAL DUMP   
                      000002  PAUSE  BOOL    2             KEY CODE TO WAIT FOR 1 MIN.    
                      000003  C      BOOL    3             KEY CODE TO DO COMPLETE DUMP   
                      000004  AK     BOOL    4             KEY CODE FOR IMPENDING AUTOLOGOUT    
                      000005  ENFLSH BOOL    5             KEY CODE TO ENTER FLUSH MODE   
                      000006  LVFLSH BOOL    6             KEY CODE TO LEAVE FLUSH MODE   
                      000007  ENDTAP BOOL    7             KEY CODE TO TERMINATE DUMP TAPE FILE 
                      000010  INT    BOOL    10            SIMULATE INTERRUPT 
                       00660  RECSIZ EQU     432           TAPE RECORD SIZE   
                       00006   NX    EQU     6             MAX. NO. OF SYSTEM FILE OWNERS 
                       00030  NCD    EQU     24            MAX. NO. 'DAYS' NON-USE OF CURRENT FILES   
                       00014  DINC   EQU     12            NO. DAYS OF 'RECENCY' INCREMENT (C.DUMP)   
                       01274  U      EQU     700           MAX. NO. USERS IN MFD USER LIST
                       03300  TBSIZ  EQU     4*RECSIZ      TAPE BUFFER SIZE   
                       00007  ERYSIZ EQU     7             I/O SYSTEM ERROR ARRAY SIZE    
                       00014  ERCODA EQU     12            'OPEN' ERROR CODE FOR FILE NOT FOUND 
                       00016  ERCODB EQU     14            'OPEN' ERROR CODE RQSTD. DEVICE UNAVBLE    
                       00660  NW     EQU     432           SIZE OF SECONDARY I/O FILE BUFFERS   
                       00001  LSDRUM EQU     1             I/O SYSTEM DEVICE CODE FOR L.S.DRUM  
                       00002    DISK EQU     2             I/O SYSTEM DEVICE CODE FOR DISK
                       00003   TAPE  EQU     3             I/O SYSTEM DEVICE CODE FOR TAPE
                       00030  NHOUR  EQU     24            NO. OF HOURS IN A 'DAY'  
                       77461  KEYVAL COMMON  1             LAST KEY SETTING READ FROM SUPERVISOR
                       77460  FLSHSW COMMON  1             FLUSH MODE SWITCH  
                       77457  ENTPSW COMMON  1             OPERATOR-REQUESTED-END-TAPE INDICATOR
                       77456  NMFDU  COMMON  1             NO. USERS CURRENTLY IN LIST    
                       77455  EXEMPT COMMON  2*NX          LIST OF SYSTEM FILE OWNERS     
                       77441  NXMPT  COMMON  1             NO. FILE USERS EXEMPT FROM DUMP IN DCYCLE  
                       77440  DTLD   COMMON  U             TIME LAST DUMPED FOR EACH USER 
                       76144  PROGNO COMMON  U             PROGRAMMER NO. OF EACH USER    
                       74650  PROBNO COMMON  U             PROBLEM NO. OF EACH USER 
                       73354   FLUSH COMMON  1             NON-ZERO INDICATES FLUSH MODE IS FORCED    
                       73353   TND   COMMON  1             TIME OF NEXT DUMP FOR CURRENT USER   
                       70053         COMMON  TBSIZ-1       TAPE BUFFER  
1            SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64          05/11/69 2013.4 PAGE 21    
                  
                       70053  TPBUF  COMMON  1             TAPE BUFFER 1ST WORD     
                       64553         COMMON  TBSIZ-1       2ND TAPE BUFFER    
                       64553  TPBUF2 COMMON  1             2ND TAPE BUFFER, 1ST WORD
                       64544         COMMON  ERYSIZ-1      ERROR ARRAY  
                       64544  ERAY   COMMON  1             ERROR ARRAY 1ST WORD     
                       64526         COMMON  13            PRINT BUFFER 
                       64526   PBF   COMMON  1             PRINT BUFFER 1ST WORD    
                       64510         COMMON  13            MFD ENTRY BUFFER   
                       64510  MFDENT COMMON  1             MFD ENTRY BUFFER 1ST WORD
                       63630         COMMON  NW-1          SECONDARY I/0 FILE BUFFER
                       63630   IOBUF COMMON  1             SECONDARY IO BUFFER 1ST WORD   
                       62750         COMMON  NW-1          SECONDARY I/O FILE BUFFER
                       62750  IOBUF2 COMMON  1             SECONDARY I/O BUFFER 1ST WORD  
                       62747  UFDEOF COMMON  1             ZERO INDICATES EOF IN UFD FILE 
                       62741         COMMON  5             PARTIAL UFD ENTRY BUFFER 
                       62741  UFDENT COMMON  1             PARTIAL UFD ENTRY BUFFER 1ST WORD    
                       62740   MFDC  COMMON  1             NEXT WORD TO BE READ FROM MFD FILE   
                       62737   TLD   COMMON  1             TIME LAST DUMP OF USER CURRENTLY DUMPING   
                       62736   UFDC  COMMON  1             NEXT UNREAD POS. OF UFDFILE (NORMALLY ZERO)
                       62735  MFDEOF COMMON  1             ZERO INDICATES EOF IN MFD FILE 
                       62734   EOFCT COMMON  1             NO. OF WORDS READ BEFORE AN EOF
                       62733   FEOF  COMMON  1             ZERO INDICATES EOF IN A USER FILE    
                       62732  EOFCTA COMMON  1             NO. OF WORDS BEFORE AN EOF     
                       62731   DMPSW COMMON  1             NON-ZERO INDICATES A FILE HAS BEEN DUMPED  
                       62730   DAWN  COMMON  1             TIME OF START OF 'DAY'   
                       62727  DMPUSR COMMON  1             PROBLEM NO. OF DUMP/LOAD PACKAGE     
                       62726  DMPRGR COMMON  1             PROGRAMMER NO. OF  DITTO.
                       62727  DU     EQU     DMPUSR   
                       62726  DP     EQU     DMPRGR   
                       62725   MFD1W COMMON  1             NO. OF 1ST GOOD WORD IN MFD AND UFD FILES  
                       62723         COMMON  1             2ND PART OF DUMP TAPE FILE (COPY 1) NAME   
                       62723  NFN1   COMMON  1             1ST PART OF DUMP TAPE FILE (COPY 1) NAME   
                       62721         COMMON  1             2ND PART OF DUMP TAPE FILE (COPY 2) NAME   
                       62721   NFN2  COMMON  1             1ST PART OF DUMP TAPE FILE (COPY 2) NAME   
                       62720  TNDSW  COMMON  1             INDICATES TIME OF THIS DUMP CURRENT OR NO  
                       62040         COMMON  RECSIZ-1      INTERNAL TAPE BUFFER     
                       62040   ITB1  COMMON  1                ,,     ,,    ,,  1ST WORD   
                       61160         COMMON  RECSIZ-1      INTERNAL TAPE BUFFER     
                       61160   ITB2  COMMON  1                ,,     ,,  ,,  1ST WORD     
                       61157   DUSK  COMMON  1             TIME OF END OF CURRENT 'DAY'   
                       61156   ENDSW COMMON  1             IF 1, NORMAL END-OF-DAY,ELSE OPERATOR ONE  
                       60276         COMMON  NW-1          INTERNAL BUFFER FOR 'MAP' FILE 
                       60276    IMP  COMMON  1                ,,      ,,    ,,   ,,   ,,  1ST WORD    
                       60267         COMMON  6             'MAP' FILE LINE PARAMETER ARRAY
                       60267  ARGLST COMMON  1               ,,   ,,   ,,      ,,      ,,  1ST WORD   
                       60266  CDSW   COMMON  1             NON-ZERO DURING COMPLETE DUMP,ELSE ZERO    
                       60265  DATE   COMMON  1             DATE THE DUMP NOW IN PROGRESS BEGAN  
                       60264  TIME   COMMON  1             TIME DUMP NOW IN PROGRESS BEGAN
                       60263  TCYCLE COMMON  1             'TIME' OF LAST CYCLE ON DUMP TAPE FILE     
                       60262  TFOSW  COMMON  1             NON-ZERO IF DUMP TAPE FILE IS OPEN   
                       60261  ALOG   COMMON  1             NON-ZERO IF AUTOLOGOUT ON
                       60260  SW1    COMMON  1  
                       60257  TCP    COMMON  1  
                       60256  TNDSAV COMMON  1  
                       60255  ODAWN  COMMON  1             TIME OF START OF PREVIOUS 'DAY'
                       60244         COMMON  8             TAPE LABEL   
1            SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64          05/11/69 2013.4 PAGE 22    
                  
                       60244  TAPEID COMMON  1             TAPE LABEL 1ST WORD
                       60243  SKELSW COMMON  1  
                       60254  REELNO EQU     TAPEID+8 
                                     END  
                                              REMOTE SEQUENCES    
      01274  606433263324     ..003  BCI     8, U.F.D. FILE NOT FOUND FOR FOLLOWING USER,                     .001
      01275  336026314325     
      01276  604546636026     
      01277  466445246026     
      01300  465160264643     
      01301  434666314527     
      01302  606462255173     
      01303  606060606060     
      01304  606630466031     ..006  BCI     4, WHO IS IN M.F.D. -                                            .001
      01305  626031456044     
      01306  332633243360     
      01307  406060606060     
      01310  606060606060     ..008  BCI     6,                        PROBLEM NO.                            .001
      01311  606060606060     
      01312  606060606060     
      01313  606060606060     
      01314  475146224325     
      01315  446045463360     
      01316  606060606060     ..010  BCI     6,                     PROGRAMMER NO.                            .001
      01317  606060606060     
      01320  606060606060     
      01321  606060475146     
      01322  275121444425     
      01323  516045463360     
      01324  602122214524     ..013  BCI     8, ABANDONING THIS USER IN THE CURRENT DUMP CYCLE.               .001
      01325  464531452760     
      01326  633031626064     
      01327  622551603145     
      01330  606330256023     
      01331  645151254563     
      01332  602464444760     
      01333  237023432533     
      01334  314560263143     ..014  BCI     2,IN FILE -                                                      .001
      01335  256040606060     
      01336  462660646225     ..015  BCI     2,OF USER -                                                      .001
      01337  516040606060     
                  
        LITERALS  
      01340  000000000000     
      01341  000000000001     
      01342  000000000003     
      01343  000000000007     
      01344  000000000014     
      01345  000000000015     
      01346  000000077777     
      01347  000001000003     
      01350  077777077777     
      01351  216060606060     
      01352  276060606060     
      01353  436060606060     
      01354  446060606060     
1            SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64          05/11/69 2013.4 PAGE 23    
                  
      01355  516660606060     
      01356  777777000000     
1            SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64          05/11/69 2013.4 PAGE 1     
                        POST PROCESSOR ASSEMBLY DATA  
                  
       60242 IS THE LAST LOCATION NOT USED BY THIS PROGRAM  
       1357 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM  
                  
0REFERENCES TO DEFINED SYMBOLS      
        103      A   565,  566, 1000, 1001, 1002, 1003
          3      C  1274
          1      I  1274
         50      N  1274
         34      R   157,  257,  536
       1274      U  1274
         62      Y   176,  177,  201,  203
          4     AK  1274
      62726     DP  1274
      62727     DU  1274
         72     L7      
        660     NW    50,   51, 1274
          6     NX  1274
      74672     PB  1274
       1016    DU1   123,  150,  222, 1273
       1017    DU2   124,  151,  223
       1020    DU4   125,  152,  224, 1270, 1272
         14    GDT   132
      60276    IMP  1274
         10    INT  1274
         30    NCD  1274
        271    NXI   214
        371    NXJ   346
        407    NXK   370
        673    NXM   727
        727    NXN   652
        732    NXP   672
       1007    NXQ   447,  457,  472,  475,  504,  505, 1004
       1265    NXR   360,  402,  442,  444, 1140, 1144
        246    OQD   242
      64526    PBF  1034, 1040, 1043, 1047, 1053, 1056, 1062, 1065, 1070, 1073, 1077, 1102, 1105, 1110, 1114, 1120, 1123
                    1127, 1133, 1136, 1202, 1205, 1207, 1212, 1215, 1221, 1224, 1226, 1231, 1234, 1240, 1244, 1247, 1274
         24    RDF   714,  752
      60260    SW1  1274
      60257    TCP  1274
      62737    TLD   131,  314,  423,  474,  520,  614, 1274
      73353    TND   316,  425,  471,  522,  617, 1274
      60261   ALOG  1274
         17   BASE  1274
         25   BERM  1023, 1157, 1175, 1261
      60266   CDSW   421,  463,  516, 1274
      60265   DATE  1274
      62730   DAWN  1274
         14   DINC  1274
          2   DISK   504,  505, 1274
      77440   DTLD  1274
      61157   DUSK  1274
        221   DUSR     0,  216
      64544   ERAY  1274
       1022   ERRA   164,  264
1            SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64          05/11/69 2013.4 PAGE 2     
                        POST PROCESSOR ASSEMBLY DATA  
                  
       1145   ERRG   555
       1166   ERRL   721
       1252   ERRM   757
      62733   FEOF   574,  720,  756, 1274
        102   FLFL   670,  673,  677,  732
      62040   ITB1  1274
      61160   ITB2  1274
         50   LBUF   170,  270
      62740   MFDC  1274
         55   NFLR   335,  337,  345,  647,  651,  653,  671
      62723   NFN1  1274
      62721   NFN2  1274
        347   NXIB   366
        366   NXIC   340
        430   NXKA   422
        531   NXLB   147
        710   NXM1   703
        712   NXM2   707,  713
        715   NXM3   705
        723   NXM4   701
        722   NXMA  1173
        760   NXNA  1257
        746   NXP1   741
        750   NXP2   745,  751
        753   NXP3   743
        761   NXP4   737
       1005   NXPA   532, 1150, 1155, 1165
        764   NXPB   717,  755, 1251
        774   NXPD   533
       1006   NXPE   534
          2   OPEN   156,  256,  547
          3   TAPE  1274
         75   TBA1   700,  736
         77   TBA2   702,  740
        101   TBA3   706,  744
         35   TEMP   322,  332,  357,  401,  467,  470,  473,  634,  644,  716,  754
      60264   TIME  1274
      62736   UFDC   272, 1274
         20   WRNF   361,  403,  722,  760
         73  ALLSW   213,  217,  221,  460
          5  CLOSE   767, 1012, 1265
      62731  DMPSW   772, 1274
       1012  DU111   440
        150  DUSR1     0
        217  DUSRX     0
      61156  ENDSW  1274
      62734  EOFCT  1274
       1060  ERRA1  1031
       1125  ERRA2      
       1141  ERRA3      
       1156  ERRG1  1154
       1200  ERRL1  1264
       1174  ERRLA  1170
       1260  ERRMA  1254
      73354  FLUSH  1274
1            SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64          05/11/69 2013.4 PAGE 3     
                        POST PROCESSOR ASSEMBLY DATA  
                  
          4  FWAIT      
         15  GDSIG   303,  364,  406,  535,  725, 1007
      63630  IOBUF   170,  270, 1274
       1274  ..003  1033
       1304  ..006  1046
       1310  ..008  1061
       1316  ..010  1076
       1324  ..013  1113
       1334  ..014  1201
       1336  ..015  1220
         51  LBUF2   561
         47  LTPBF   320,  363,  632,  724
      62725  MFD1W  1274
         30  NHOUR  1274
         56  NLAST   336,  341,  367,  405,  650,  655,  661,  663,  730,  762
         16  NLREC   326,  640
      77456  NMFDU  1274
        525  NXFDB   517
        460  NXFLA   451,  453,  456
      77441  NXMPT  1274
        763  NXPBG   731
      60255  ODAWN  1274
          2  PAUSE  1274
      76500  PROBN  1274
      76041  RCODE  1274
         17  RDUFD   355,  377
       3300  TBSIZ    47,  100,  101,  274,  275,  350,  351,  372,  373,  575,  576,  711,  747, 1274
      60262  TFOSW  1274
      62720  TNDSW  1274
      70053  TPBUF    75,   77,  101,  275,  306,  310,  312,  315,  317,  343,  347,  351,  356,  362,  371,  373,  400
                     404,  576,  606,  615,  620,  624,  665, 1274
         36  UFDID   311
      76305  UFDNM  1274
         10  WRFLX   301,  602, 1037, 1052, 1067, 1104, 1117, 1132, 1211, 1230, 1243
      60267 ARGLST   135,  137,  141,  143,  144,  145,  146,  410,  412,  414,  416,  420,  424,  426,  432,  433,  507
                     511,  514,  521,  523,  527,  530, 1274
          0 ATTACH   153,  253,  544,  764
      74454 AUTOND  1274
          3 BUFFER   165,  265,  556
         11 CHFILE      
         26 CKCODE  1026, 1145, 1151
          6 DELFIL      
      74446 DEMKEY  1274
        113 DMNDMP     0
        120 DMPFIL     0,  117
      62726 DMPRGR  1274
        215 DMPUFD     0
      62727 DMPUSR  1274
         46 EMPTSW   210,  215,  232,  435,  437
          7 ENDTAP  1274
          5 ENFLSH  1274
      77457 ENTPSW  1274
         23 ENTUFD   443
      62732 EOFCTA  1274
         14 ERCODA  1030, 1153, 1274
1            SUBROUTINE TO DUMP ONE USER'S FILES....M.J.BAILEY,11/30/64          05/11/69 2013.4 PAGE 4     
                        POST PROCESSOR ASSEMBLY DATA  
                  
         16 ERCODB  1274
         27 ERREND  1142, 1163
         41 ERSTAT  1126, 1237
          7 ERYSIZ  1274
      77455 EXEMPT  1274
      77460 FLSHSW  1274
         12 FSTATE   173,  562
         22 IENUFD   441
      62750 IOBUF2   561, 1274
      77461 KEYVAL  1274
         54 LCOUNT   205,  225,  233,  246,  247,  331,  570,  643
          1 LSDRUM   502,  503, 1274
          6 LVFLSH  1274
         21 MAPLIN   434,  763
      64510 MFDENT   127,  134,  140,  154,  155,  171,  172,  200,  202,  204,  226,  236,  250,  254,  255,  302,  305
                     307,  323,  407,  411,  417,  430,  506,  510,  545,  546,  605,  611,  765,  766, 1064, 1101, 1166
                    1171, 1223, 1225, 1252, 1255, 1274
      62735 MFDEOF  1274
         60 MFDNAM  1167, 1253
         53 NORECS   212,  235,  240,  252,  327,  572,  641
      74532 NUSERS  1274
        506 NXFDMP   503
        443 NXFILE  1011
        476 NXFLAA   461
         57 PHYSRC   334,  646,  660
      74650 PROBNO  1274
      76144 PROGNO  1274
         52 RCOUNT   237,  244,  325,  330,  637,  642
        660 RECSIZ    57, 1274
      60254 REELNO  1274
         13 SETFIL   775
      60243 SKELSW  1274
         61 STATUS   543,  550
      74623 SYSDAT  1274
      74624 SYSTIM  1274
      60244 TAPEID  1274
      60263 TCYCLE   126, 1274
          1 TILOCK   531,  773, 1005
      60256 TNDSAV  1274
      64553 TPBUF2    74,   76,  100,  612,  616,  621,  630,  666, 1274
      62741 UFDENT   114,  116,  120,  121,  133,  136,  142,  445,  446,  454,  462,  465,  476,  513,  525,  537,  551
                     552,  557,  560,  563,  564,  567,  603,  623,  627,  635,  770,  771,  776,  777, 1204, 1206, 1274
      62747 UFDEOF   130,  273,  353,  375, 1010, 1274
         32 UFDNAM   160,  161,  166,  167,  174,  175,  260,  261,  266,  267,  413,  415,  450,  455, 1013, 1014, 1172
                    1256, 1266, 1267
          7 WRFILE      
                  
0 NO ERROR IN ABOVE ASSEMBLY. 
1            GET OPERATOR SIGNALS AND REFER TO CORE A...M.J.BAILEY,2/28/65       05/11/69 2013.7 PAGE 1     
                  
                              *     
                       00011         ENTRY   GETA     
                       00012         ENTRY   NGETA    
                       00111         ENTRY   GDSIG    
                              *     
                                     EXTERN  GETLOC,SETLOC,WRFLX  
                                     EXTERN  CHNCOM,SLEEP,ATTACH  
                                     INSERT  DMCRSA   
                              *     
                              *      MACRO TO WRITE N WORDS FROM ARRAY ET SEQ ONTO ALREADY OPENED     
                              *      SECONDARY STORAGE FILE (NAME1,NAME2) AND WAIT UNTIL TRANSMITTED. 
                              *     
                               WSSF  MACRO   ARRAY,N,NAME1,NAME2  
                                     TSX     ATTACH,4      RE-ATTACH TO DUMPER'S FILES    
                                     TXH     DMPUSR   
                                     TXH     DMPRGR   
                                     TSX     WRFILE,4      WRITE  
                                     TXH     NAME1         ONTO (NAME1, 
                                     TXH     NAME2         NAME2) 
                                     TXH     =0            AT POSITION WHERE LAST CEASED  
                                     TIX     ARRAY,,N      FROM ARRAY THROUGH ARRAY+N-1   
                                     TSX     FWAIT,4       WAIT   
                                     TXH     NAME1    
                                     TXH     NAME2    
                               WSSF  END  
                              *     
                              *  ZERO-IZE A THROUGH A+X-1   
                              *     
                               CLEAR MACRO   A,X
                                     AXT     X,1
                                     STZ     A+X,1    
                                     TIX     *-1,1,1  
                               CLEAR END  
                              *     
                              *      MOVE X WORDS FROM A ET SEQ TO B ET SEQ   
                              *     
                               MOVE  MACRO   X,A,B    
                                     AXT     X,1
                                     CAL     A+X,1    
                                     SLW     B+X,1    
                                     TIX     *-2,1,1  
                               MOVE  END  
                              *     
                              *      PRINT ONE LINE, CLEAR BUFFER 
                              *     
                              PRBUFF MACRO   BUFF,NWDS
                                     SXA     *+3,4    
                                     TSX     WRFLX,4  
                                             BUFF,,NWDS     
                                     AXT     **,4     
                                     CLEAR   BUFF,NWDS
                              PRBUFF END  
                              *     
                              *      PRINT STANDARD BEGINNING TO DUMPER ERROR MESSAGE     
                              *     
                              BGNERM MACRO   TYPE     
1            GET OPERATOR SIGNALS AND REFER TO CORE A...M.J.BAILEY,2/28/65       05/11/69 2013.7 PAGE 2     
                  
                                     SXA     *+3,4    
                                     TSX     $BERM,4  
                                     PZE     TYPE     
                                     AXT     **,4     
                              BGNERM END  
                              *     
                              *  PRINT ONE LINE COMMENT     
                              *     
                              PRLINE MACRO   COMNT,NWC,N,WORD1,WORD2,LOC
                                     IFF     0,NWC,0  
                                     MOVE    NWC,LOC,PBF    
                                     IFF     N-2,N,1  
                                     CAL     WORD1    
                                     IFF     N-2,N,1  
                                     SLW     PBF+NWC  
                                     IFF     1,N,2    
                                     CAL     WORD2    
                                     IFF     1,N,2    
                                     SLW     PBF+NWC+1
                                     PRBUFF  PBF,NWC+N
                                     RMT  
                               LOC   BCI     NWC,COMNT
                                     RMT  
                              PRLINE END  
                              *     
                              *      PRINT ONE LINE MESSAGE 
                              *     
                              PRMESS MACRO   MESNAM,N,ADR1,ADR2   
                                     TSX     $PRLINE,4
                                     BCI     1,MESNAM 
                                     IFF     N,N,N    
                                     TXH     ADR1     
                                     IFF     N,N,N    
                                     TXH     ADR2     
                              PRMESS END  
                              *     
                              *      MACRO TO OPEN FILE (X,Y) OF USER (A,B) FOR READING   
                              *      AND ASSIGN BUFFER F OF LENGTH L TO I/O SYSTEM FOR THAT PURPOSE.  
                              *        ( ERR IS TRANSFER ADDRESS FOR ERROR RETURN ) 
                              *     
                              RDOPEN MACRO   X,Y,A,B,F,L,ERR
                                     TSX     ATTACH,4      ATTACH TO USER (A,B)     
                                     TXH     A  
                                     TXH     B  
                                     TSX     OPEN,4        OPEN FILE (X,Y) FOR READING    
                                     TXH     R  
                                     TXH     X  
                                     TXH     Y  
                                     TXH     =0 
                                     TXH     =0 
                                     TXH     ERR           (TRANSFER ADDRESS FOR ERROR)   
                                     TSX     BUFFER,4      ASSIGN L WORDS OF BUFFER F TO (X,Y)  
                                     TXH     X  
                                     TXH     Y  
                                     TIX     F,,L     
                              RDOPEN END  
1            GET OPERATOR SIGNALS AND REFER TO CORE A...M.J.BAILEY,2/28/65       05/11/69 2013.7 PAGE 3     
                  
                              *     
                              *      PRINT ERROR CODE, END MESSAGE
                              *     
                                ERTN MACRO   ADRERR   
                                     SXA     *+2,4    
                                     TSX     $ERREND,4
                                     AXT     **,4     
                                     TRA     ADRERR   
                                ERTN END  
                              *     
                              *      ASK OPERATOR TO SET KEY CODE DC IF HE WANTS    
                              *      ACTION GIVEN BY N-WORD MESSAGE M   
                              *     
                              PRCODE MACRO   DC,M,N   
                                     TSX     $PRCODE,4
                                     TXH     DC 
                                     TXH     M,,N     
                              PRCODE END  
                              *     
                              *      TEST LAST KEY SETTING VIA SUPERVISOR, GO TO JUMP IF IT IS CODE   
                              *     
                              TESTKY MACRO   CODE,JUMP
                                     TSX     $NGETA,7 
                                     LDQ     DEMKEY   
                                     STQ     KEYVAL   
                                     AXT     CODE,1   
                                     PXA     0,1
                                     SUB     KEYVAL   
                                     TZE     JUMP     
                              TESTKY END  
                              *     
                              *      SET UP LOGICAL TAPE RECORD WRITING 
                              *     
                              LOGREC MACRO   X  
                                     CLA     LTPBF    
                                     SUB     =12
                                     STO     TEMP     
                                     CAL     X+4
                                     ANA     =O77777  
                                     STO     RCOUNT   
                                     TSX     $NLREC,4 
                                     TXH     NORECS   
                                     TXH     RCOUNT   
                                     TXH     LCOUNT   
                                     TXH     TEMP     
                                     TXH     =12
                                     TXH     PHYSRC   
                                     TXH     NFLR     
                                     TXH     NLAST    
                              LOGREC END  
                              *     
                              *     
                              ATTACH MACRO   A,B
                                     TSX     ATTACH,4 
                                     TXH     A  
                                     TXH     B  
1            GET OPERATOR SIGNALS AND REFER TO CORE A...M.J.BAILEY,2/28/65       05/11/69 2013.7 PAGE 4     
                  
                              ATTACH END  
                              *     
                              *      PRINT ERROR MESSAGE AND INTERROGATE KEYS 
                              *     
                              PRERR  MACRO
                                     TSX     $PRNTER,4
                                     TSX     $GDSIG,4 
                              PRERR  END  
                              *     
                              *     
                              *     
                  
        TRANSFER VECTOR 
      00000  272563434623     GETLOC
      00001  622563434623     SETLOC
      00002  665126436760     WRFLX 
      00003  233045234644     CHNCOM
      00004  624325254760     SLEEP 
      00005  216363212330     ATTACH
      00006  475123462425     PRCODE
                  
            LINKAGE DIRECTOR  
      00007  000000000000     
      00010  272563216060     
                  
      00011  0600 00 0 00074  GETA   STZ     NINDC    
      00012 -0600 00 0 00077  NGETA  STQ     TMPMQ    
      00013  0601 00 0 00076         STO     TMPAC    
      00014  0602 00 0 00100         SLW     TMPACL   
      00015  0634 00 4 00070         SXA     NGX4,4   
      00016  0634 00 7 00067         SXA     NGX7,7   
      00017  0604 00 0 00073         STI     INDIC    
      00020  0441 00 7 00001         LDI     1,7
      00021  0520 00 0 00074         ZET     NINDC    
      00022  0020 00 0 00036         TRA     GETL          DON'T COMPUTE EFFECTIVE ADDRESS
      00023 -0625 00 0 00074         STL     NINDC    
      00024 -0046 00 0 00000         PIA  
      00025  0074 00 7 00101  CKRL1  TSX     GETEFA,7      GET EFFECTIVE ADDRESS    
      00026 -0056 00  000060         LNT     60            IS THERE INDIRECT ADDRESS
      00027  0020 00 0 00034         TRA     CKRL2         NO     
      00030 -0057 00  000077         RIL     77            TURN OFF INDIRECT ADDRESS BITS 
      00031  0737 00 7 00000         PAC     0,7
      00032 -0500 00 7 00000         CAL     0,7
      00033  0020 00 0 00025         TRA     CKRL1         COMPUTE FINAL ADDRESS    
      00034  0057 00  777777  CKRL2  RIR     777777        FINAL ADDRESS IN AC NOW  
      00035  0043 00 0 00000         OAI                   OP CODE IN INDICATOR     
      00036 -0046 00 0 00000  GETL   PIA                   INSTRUCTION IN AC  
      00037  0621 00 0 00062         STA     GA2
      00040  0621 00 0 00045         STA     GA            SET ADDRESS TO GET FROM CORE A 
      00041  0622 00 0 00054         STD     XGA           SET OP CODE OF INSTRUCTION     
      00042  0630 00 0 00054         STP     XGA
      00043  0625 00 0 00054         STT     XGA
      00044  0074 00 4 00000         TSX     GETLOC,4 
      00045  0 00000 0 00000  GA     PZE     ** 
      00046  0602 00 0 00075         SLW     GTMP          WORD FROM CORE A INTO GTMP     
      00047 -0500 00 0 00100         CAL     TMPACL   
1            GET OPERATOR SIGNALS AND REFER TO CORE A...M.J.BAILEY,2/28/65       05/11/69 2013.7 PAGE 5     
                  
      00050  0560 00 0 00076         LDQ     TMPAC    
      00051  0763 00 0 00000         LLS     0  
      00052  0560 00 0 00077         LDQ     TMPMQ    
      00053  0441 00 0 00073         LDI     INDIC    
      00054  0 00000 0 00075  XGA    ***     GTMP          EXECUTE INSTRUCTION
      00055  0441 00 0 00054         LDI     XGA
      00056 -0056 00  060000         LNT     060000        IS THIS A STORE-TYPE INSTRUCTION     
      00057  0020 00 0 00067         TRA     NGX7          NO     
      00060 -0500 00 0 00075         CAL     GTMP     
      00061  0074 00 4 00001         TSX     SETLOC,4 
      00062  0 00000 0 00000  GA2    PZE     ** 
      00063 -0500 00 0 00100         CAL     TMPACL   
      00064  0560 00 0 00076         LDQ     TMPAC    
      00065  0763 00 0 00000         LLS     0  
      00066  0560 00 0 00077         LDQ     TMPMQ    
      00067  0774 00 7 00000  NGX7   AXT     **,7     
      00070  0774 00 4 00000  NGX4   AXT     **,4     
      00071  0441 00 0 00073         LDI     INDIC    
      00072  0020 00 7 00002         TRA     2,7
      00073  0 00000 0 00000  INDIC  PZE     0  
      00074 +000000777777     NINDC  OCT     777777   
      00075  0 00000 0 00000  GTMP   PZE     0  
      00076  0 00000 0 00000  TMPAC  PZE     0  
      00077  0 00000 0 00000  TMPMQ  PZE     0  
      00100  0 00000 0 00000  TMPACL PZE     0  
      00101  0634 00 7 00107  GETEFA SXA     GETF7,7  
      00102  0625 00 0 00104         STT     *+2           TAG    
      00103  0734 00 7 00000         PAX     ,7            PTR    
      00104 -0636 00 0 00105         SCD     *+1,**        -C(TAG)
      00105  1 00000 7 00106         TXI     *+1,7,**      PTH-C(TAG)   
      00106  0754 00 7 00000         PXA     ,7            INTO AC
      00107  0774 00 7 00000  GETF7  AXT     **,7     
      00110  0020 00 7 00001         TRA     1,7
                              *     
                              *      PICK UP OPERATOR SIGNALS TO DUMPER FROM KEYS, AND    
                              *      IF ANY, SET SWITCHES ACCORDINGLY.  
                              *     
      00111  0634 00 7 00300  GDSIG  SXA     GX7,7    
      00112  0634 00 4 00301         SXA     GX4,4    
      00113  0634 00 1 00302         SXA     GX1,1    
      00114 -0500 00 0 00363         CAL     =1 
      00115 -0602 00 0 00327         ORS     SS 
      00116  0760 00 0 00004         ENK  
      00117 -0130 00 0 00000         XCL  
      00120 -0501 00 0 00371         ORA     =O70000  
      00121  0322 00 0 00372         ERA     =O015002070177 
      00122  0100 00 0 00126         TZE     SETC     
      00123 -0500 00 0 00327         CAL     SS 
      00124  0322 00 0 00363         ERA     =1 
      00125  0602 00 0 00327         SLW     SS 
      00126 -0500 00 0 00327  SETC   CAL     SS 
      00127  0100 00 0 00167         TZE     NOKEY    
      00130  0402 00 0 00364         SUB     =2 
      00131  0100 00 0 00146         TZE     RSALL    
      00132  0020 00 0 00146         TRA     RSALL    
      00133 -0500 00 0 00327         CAL     SS 
1            GET OPERATOR SIGNALS AND REFER TO CORE A...M.J.BAILEY,2/28/65       05/11/69 2013.7 PAGE 6     
                  
      00134  0402 00 0 00363         SUB     =1 
      00135  0100 00 0 00150         TZE     PATCH    
      00136  0402 00 0 00365         SUB     =3 
      00137  0100 00 0 00143         TZE     SETS2    
      00140  0402 00 0 00365         SUB     =3 
      00141  0100 00 0 00160         TZE     UNPTCH   
      00142  0020 00 0 00167         TRA     NOKEY    
      00143 -0500 00 0 00364  SETS2  CAL     =2 
      00144 -0602 00 0 00327         ORS     SS 
      00145  0020 00 0 00167         TRA     NOKEY    
      00146  0600 00 0 00327  RSALL  STZ     SS 
      00147  0020 00 0 00167         TRA     NOKEY    
      00150  0074 00 7 00011  PATCH  TSX     GETA,7   
      00151 -0500 00 1 76111         CAL     RCODE+N,1
      00152  0602 00 0 00330         SLW     OLDCOD   
      00153 -0501 00 0 00370         ORA     =O177    
      00154  0074 00 7 00011         TSX     GETA,7   
      00155  0602 00 1 76111         SLW     RCODE+N,1
      00156 -0500 00 0 00366         CAL     =4 
      00157  0020 00 0 00144         TRA     SETS2+1  
      00160 -0500 00 0 00330  UNPTCH CAL     OLDCOD   
      00161  0074 00 7 00011         TSX     GETA,7   
      00162  0602 00 1 76111         SLW     RCODE+N,1
      00163 -0500 00 0 00327         CAL     SS 
      00164 -0501 00 0 00366         ORA     =4 
      00165  0322 00 0 00366         ERA     =4 
      00166  0602 00 0 00327         SLW     SS 
      00167  0074 00 7 00012  NOKEY  TSX     NGETA,7  
      00170  0560 00 0 74446         LDQ     DEMKEY   
      00171 -0600 00 0 77461         STQ     KEYVAL   
      00172  0774 00 1 00010         AXT     INT,1    
      00173  0754 00 1 00000         PXA     0,1
      00174  0402 00 0 77461         SUB     KEYVAL   
      00175 -0100 00 0 00242         TNZ     GSB2     
      00176                          PRLINE  ( DAEMON INTERRUPT),3,0    
      00211  0074 00 7 00012         TSX     NGETA,7  
      00212  0600 00 0 74446         STZ     DEMKEY   
      00213  0074 00 4 00006         TSX     $PRCODE,4
      00214  3 00000 0 00010         PAR     INT
      00215  3 00004 0 00323         PAR     MELLG,,4 
      00216 -0500 00 0 00367         CAL     =30
      00217  0074 00 4 00004         TSX     SLEEP,4  
      00220  0074 00 7 00012         TSX     NGETA,7  
      00221  0560 00 0 74446         LDQ     DEMKEY   
      00222 -0600 00 0 77461         STQ     KEYVAL   
      00223  0774 00 1 00010         AXT     INT,1    
      00224  0754 00 1 00000         PXA     ,1 
      00225  0402 00 0 77461         SUB     KEYVAL   
      00226  0100 00 0 00304         TZE     CHAIN    
      00227                          PRLINE  ( INT. IGNORED),3,0  
      00242  0774 00 1 00005  GSB2   AXT     ENFLSH,1      CODE TO ENTER FLUSH MODE 
      00243  0754 00 1 00000         PXA     0,1
      00244  0402 00 0 77461         SUB     KEYVAL   
      00245 -0100 00 0 00254         TNZ     GSB
      00246  0500 00 0 77460         CLA     FLSHSW   
      00247 -0100 00 0 00300         TNZ     GX7           SKIP IF ALREADY IN FLUSH MODE  
1            GET OPERATOR SIGNALS AND REFER TO CORE A...M.J.BAILEY,2/28/65       05/11/69 2013.7 PAGE 7     
                  
      00250  0074 00 4 00002         TSX     WRFLX,4  
      00251  0 00005 0 00336                 MESB,,5  
      00252 -0625 00 0 77460         STL     FLSHSW   
      00253  0020 00 0 00300         TRA     GX7           EXIT HAVING SET FLSHSW IF CODE SET   
      00254  0774 00 1 00006  GSB    AXT     LVFLSH,1      CODE TO LEAVE FLUSH MODE 
      00255  0754 00 1 00000         PXA     0,1
      00256  0402 00 0 77461         SUB     KEYVAL   
      00257 -0100 00 0 00266         TNZ     GSA           SKIP TO CHECK NEXT CODE  
      00260  0500 00 0 77460         CLA     FLSHSW   
      00261  0100 00 0 00300         TZE     GX7           SKIP IF NOT IN FLUSH MODE
      00262  0074 00 4 00002         TSX     WRFLX,4  
      00263  0 00005 0 00331                 MESA,,5  
      00264  0600 00 0 77460         STZ     FLSHSW   
      00265  0020 00 0 00300         TRA     GX7           EXIT   
                              *     
      00266  0774 00 1 00007  GSA    AXT     ENDTAP,1      CODE TO TERMINATE TAPE FILE    
      00267  0754 00 1 00000         PXA     0,1
      00270  0402 00 0 77461         SUB     KEYVAL   
      00271 -0100 00 0 00300         TNZ     GX7
      00272  0500 00 0 77457         CLA     ENTPSW   
      00273 -0100 00 0 00300         TNZ     GX7           SKIP IF SIGNAL ALREADY DETECTED
      00274  0074 00 4 00002         TSX     WRFLX,4  
      00275  0 00011 0 00343                 MESC,,9  
      00276  0500 00 0 00276         CLA     *  
      00277  0601 00 0 77457         STO     ENTPSW        SET ENTPSW NON-ZERO IF CODE SET
                              *     
      00300  0774 00 7 00000  GX7    AXT     **,7     
      00301  0774 00 4 00000  GX4    AXT     **,4     
      00302  0774 00 1 00000  GX1    AXT     **,1     
      00303  0020 00 4 00001         TRA     1,4
                              *     
      00304                   CHAIN  PRLINE  ( QUIT.),1,0   
      00317  0074 00 4 00005         TSX     ATTACH,4 
      00320  3 00000 0 62727         PAR     DU 
      00321  3 00000 0 62726         PAR     DP 
      00322  0074 00 4 00003         TSX     CHNCOM,4 
                              *     
      00323  606346605125     MELLG  BCI     4, TO RESET THE DAEMON.    
      00324  622563606330     
      00325  256024212544     
      00326  464533606060     
                              *     
                              *     
      00327  0 00000 0 00000  SS     PZE  
      00330  0 00000 0 00000  OLDCOD PZE  
      00331  602421254446     MESA   BCI     5, DAEMON LEAVING FLUSH MODE.    
      00332  456043252165     
      00333  314527602643     
      00334  646230604446     
      00335  242533606060     
      00336  602421254446     MESB   BCI     5, DAEMON ENTERING FLUSH MODE.   
      00337  456025456325     
      00340  513145276026     
      00341  436462306044     
      00342  462425336060     
      00343  604525666026     MESC   BCI     9, NEW FILE DUMP TAPE WILL BE TERMINATED, AS REQUESTED.  
1            GET OPERATOR SIGNALS AND REFER TO CORE A...M.J.BAILEY,2/28/65       05/11/69 2013.7 PAGE 8     
                  
      00344  314325602464     
      00345  444760632147     
      00346  256066314343     
      00347  602225606325     
      00350  514431452163     
      00351  252473602162     
      00352  605125506425     
      00353  626325243360     
                              *     
                                     INSERT  DCMEQB   
                              *     
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
                              *    COMMON AND EQUIVALENCE FOR GENERAL DUMP PROGRAM  
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
                              *     
                      074446  DEMKEY BOOL    74446         CORE A LOCATION FOR DAEMON'S KEY SETTING   
                      074624  SYSTIM BOOL    74624         CORE A LOCATION FOR SYSTEM  TIME     
                      074623  SYSDAT BOOL    74623         CORE A LOCATION FOR SYSTEM INIT. DATE
                      076041  RCODE  BOOL    76041         CORE A LOCATION FOR RESTRICTION CODE VECTOR
                      074454  AUTOND BOOL    74454         CORE A AUTOMATIC LOGOUT INDICATOR    
                      074532  NUSERS BOOL    74532         CORE A LOGGED-IN USER COUNT    
                      076500  PROBN  BOOL    76500         CORE A PROBNO ARRAY
                      076305  UFDNM  BOOL    76305         CORE A UFDNM ARRAY 
                      074672  PB     BOOL    74672         CORE A GUARANTEED PERCENTAGE VECTOR BASE   
                       00050  N      EQU     40            CORE A MAX. NO. OF USERS (SIZE OF PROBN)   
                              *     
                      000017  BASE   BOOL    17            KEY CODE BASE
                      000001  I      BOOL    1             KEY CODE TO START INCREMENTAL DUMP   
                      000002  PAUSE  BOOL    2             KEY CODE TO WAIT FOR 1 MIN.    
                      000003  C      BOOL    3             KEY CODE TO DO COMPLETE DUMP   
                      000004  AK     BOOL    4             KEY CODE FOR IMPENDING AUTOLOGOUT    
                      000005  ENFLSH BOOL    5             KEY CODE TO ENTER FLUSH MODE   
                      000006  LVFLSH BOOL    6             KEY CODE TO LEAVE FLUSH MODE   
                      000007  ENDTAP BOOL    7             KEY CODE TO TERMINATE DUMP TAPE FILE 
                      000010  INT    BOOL    10            SIMULATE INTERRUPT 
                       00660  RECSIZ EQU     432           TAPE RECORD SIZE   
                       00006   NX    EQU     6             MAX. NO. OF SYSTEM FILE OWNERS 
                       00030  NCD    EQU     24            MAX. NO. 'DAYS' NON-USE OF CURRENT FILES   
                       00014  DINC   EQU     12            NO. DAYS OF 'RECENCY' INCREMENT (C.DUMP)   
                       01274  U      EQU     700           MAX. NO. USERS IN MFD USER LIST
                       03300  TBSIZ  EQU     4*RECSIZ      TAPE BUFFER SIZE   
                       00007  ERYSIZ EQU     7             I/O SYSTEM ERROR ARRAY SIZE    
                       00014  ERCODA EQU     12            'OPEN' ERROR CODE FOR FILE NOT FOUND 
                       00016  ERCODB EQU     14            'OPEN' ERROR CODE RQSTD. DEVICE UNAVBLE    
                       00660  NW     EQU     432           SIZE OF SECONDARY I/O FILE BUFFERS   
                       00001  LSDRUM EQU     1             I/O SYSTEM DEVICE CODE FOR L.S.DRUM  
                       00002    DISK EQU     2             I/O SYSTEM DEVICE CODE FOR DISK
                       00003   TAPE  EQU     3             I/O SYSTEM DEVICE CODE FOR TAPE
                       00030  NHOUR  EQU     24            NO. OF HOURS IN A 'DAY'  
                       77461  KEYVAL COMMON  1             LAST KEY SETTING READ FROM SUPERVISOR
                       77460  FLSHSW COMMON  1             FLUSH MODE SWITCH  
                       77457  ENTPSW COMMON  1             OPERATOR-REQUESTED-END-TAPE INDICATOR
                       77456  NMFDU  COMMON  1             NO. USERS CURRENTLY IN LIST    
                       77455  EXEMPT COMMON  2*NX          LIST OF SYSTEM FILE OWNERS     
                       77441  NXMPT  COMMON  1             NO. FILE USERS EXEMPT FROM DUMP IN DCYCLE  
                       77440  DTLD   COMMON  U             TIME LAST DUMPED FOR EACH USER 
1            GET OPERATOR SIGNALS AND REFER TO CORE A...M.J.BAILEY,2/28/65       05/11/69 2013.7 PAGE 9     
                  
                       76144  PROGNO COMMON  U             PROGRAMMER NO. OF EACH USER    
                       74650  PROBNO COMMON  U             PROBLEM NO. OF EACH USER 
                       73354   FLUSH COMMON  1             NON-ZERO INDICATES FLUSH MODE IS FORCED    
                       73353   TND   COMMON  1             TIME OF NEXT DUMP FOR CURRENT USER   
                       70053         COMMON  TBSIZ-1       TAPE BUFFER  
                       70053  TPBUF  COMMON  1             TAPE BUFFER 1ST WORD     
                       64553         COMMON  TBSIZ-1       2ND TAPE BUFFER    
                       64553  TPBUF2 COMMON  1             2ND TAPE BUFFER, 1ST WORD
                       64544         COMMON  ERYSIZ-1      ERROR ARRAY  
                       64544  ERAY   COMMON  1             ERROR ARRAY 1ST WORD     
                       64526         COMMON  13            PRINT BUFFER 
                       64526   PBF   COMMON  1             PRINT BUFFER 1ST WORD    
                       64510         COMMON  13            MFD ENTRY BUFFER   
                       64510  MFDENT COMMON  1             MFD ENTRY BUFFER 1ST WORD
                       63630         COMMON  NW-1          SECONDARY I/0 FILE BUFFER
                       63630   IOBUF COMMON  1             SECONDARY IO BUFFER 1ST WORD   
                       62750         COMMON  NW-1          SECONDARY I/O FILE BUFFER
                       62750  IOBUF2 COMMON  1             SECONDARY I/O BUFFER 1ST WORD  
                       62747  UFDEOF COMMON  1             ZERO INDICATES EOF IN UFD FILE 
                       62741         COMMON  5             PARTIAL UFD ENTRY BUFFER 
                       62741  UFDENT COMMON  1             PARTIAL UFD ENTRY BUFFER 1ST WORD    
                       62740   MFDC  COMMON  1             NEXT WORD TO BE READ FROM MFD FILE   
                       62737   TLD   COMMON  1             TIME LAST DUMP OF USER CURRENTLY DUMPING   
                       62736   UFDC  COMMON  1             NEXT UNREAD POS. OF UFDFILE (NORMALLY ZERO)
                       62735  MFDEOF COMMON  1             ZERO INDICATES EOF IN MFD FILE 
                       62734   EOFCT COMMON  1             NO. OF WORDS READ BEFORE AN EOF
                       62733   FEOF  COMMON  1             ZERO INDICATES EOF IN A USER FILE    
                       62732  EOFCTA COMMON  1             NO. OF WORDS BEFORE AN EOF     
                       62731   DMPSW COMMON  1             NON-ZERO INDICATES A FILE HAS BEEN DUMPED  
                       62730   DAWN  COMMON  1             TIME OF START OF 'DAY'   
                       62727  DMPUSR COMMON  1             PROBLEM NO. OF DUMP/LOAD PACKAGE     
                       62726  DMPRGR COMMON  1             PROGRAMMER NO. OF  DITTO.
                       62727  DU     EQU     DMPUSR   
                       62726  DP     EQU     DMPRGR   
                       62725   MFD1W COMMON  1             NO. OF 1ST GOOD WORD IN MFD AND UFD FILES  
                       62723         COMMON  1             2ND PART OF DUMP TAPE FILE (COPY 1) NAME   
                       62723  NFN1   COMMON  1             1ST PART OF DUMP TAPE FILE (COPY 1) NAME   
                       62721         COMMON  1             2ND PART OF DUMP TAPE FILE (COPY 2) NAME   
                       62721   NFN2  COMMON  1             1ST PART OF DUMP TAPE FILE (COPY 2) NAME   
                       62720  TNDSW  COMMON  1             INDICATES TIME OF THIS DUMP CURRENT OR NO  
                       62040         COMMON  RECSIZ-1      INTERNAL TAPE BUFFER     
                       62040   ITB1  COMMON  1                ,,     ,,    ,,  1ST WORD   
                       61160         COMMON  RECSIZ-1      INTERNAL TAPE BUFFER     
                       61160   ITB2  COMMON  1                ,,     ,,  ,,  1ST WORD     
                       61157   DUSK  COMMON  1             TIME OF END OF CURRENT 'DAY'   
                       61156   ENDSW COMMON  1             IF 1, NORMAL END-OF-DAY,ELSE OPERATOR ONE  
                       60276         COMMON  NW-1          INTERNAL BUFFER FOR 'MAP' FILE 
                       60276    IMP  COMMON  1                ,,      ,,    ,,   ,,   ,,  1ST WORD    
                       60267         COMMON  6             'MAP' FILE LINE PARAMETER ARRAY
                       60267  ARGLST COMMON  1               ,,   ,,   ,,      ,,      ,,  1ST WORD   
                       60266  CDSW   COMMON  1             NON-ZERO DURING COMPLETE DUMP,ELSE ZERO    
                       60265  DATE   COMMON  1             DATE THE DUMP NOW IN PROGRESS BEGAN  
                       60264  TIME   COMMON  1             TIME DUMP NOW IN PROGRESS BEGAN
                       60263  TCYCLE COMMON  1             'TIME' OF LAST CYCLE ON DUMP TAPE FILE     
                       60262  TFOSW  COMMON  1             NON-ZERO IF DUMP TAPE FILE IS OPEN   
                       60261  ALOG   COMMON  1             NON-ZERO IF AUTOLOGOUT ON
1            GET OPERATOR SIGNALS AND REFER TO CORE A...M.J.BAILEY,2/28/65       05/11/69 2013.7 PAGE 10    
                  
                       60260  SW1    COMMON  1  
                       60257  TCP    COMMON  1  
                       60256  TNDSAV COMMON  1  
                       60255  ODAWN  COMMON  1             TIME OF START OF PREVIOUS 'DAY'
                       60244         COMMON  8             TAPE LABEL   
                       60244  TAPEID COMMON  1             TAPE LABEL 1ST WORD
                       60243  SKELSW COMMON  1  
                       60254  REELNO EQU     TAPEID+8 
                                     END  
                                              REMOTE SEQUENCES    
1            GET OPERATOR SIGNALS AND REFER TO CORE A...M.J.BAILEY,2/28/65       05/11/69 2013.7 PAGE 1     
                        POST PROCESSOR ASSEMBLY DATA  
                  
       60242 IS THE LAST LOCATION NOT USED BY THIS PROGRAM  
        373 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM  
                  
0REFERENCES TO DEFINED SYMBOLS      
          3      C   354
          1      I   354
         50      N   151,  155,  162,  354
       1274      U   354
          4     AK   354
      62726     DP   321,  354
      62727     DU   320,  354
         45     GA    40
        660     NW   354
          6     NX   354
      74672     PB   354
        327     SS   115,  123,  125,  126,  133,  144,  146,  163,  166
         62    GA2    37
        266    GSA   257
        254    GSB   245
        302    GX1   113
        301    GX4   112
        300    GX7   111,  247,  253,  261,  265,  271,  273
      60276    IMP   354
         10    INT   172,  214,  223,  354
         30    NCD   354
      64526    PBF   200,  204,  207,  231,  235,  240,  306,  312,  315,  354
      60260    SW1   354
      60257    TCP   354
      62737    TLD   354
      73353    TND   354
         54    XGA    41,   42,   43,   55
      60261   ALOG   354
         17   BASE   354
      60266   CDSW   354
      60265   DATE   354
      62730   DAWN   354
         14   DINC   354
          2   DISK   354
      77440   DTLD   354
      61157   DUSK   354
      64544   ERAY   354
      62733   FEOF   354
         11   GETA     0,  150,  154,  161
         36   GETL    22
        242   GSB2   175
         75   GTMP    46,   54,   60
      62040   ITB1   354
      61160   ITB2   354
        331   MESA   263
        336   MESB   251
        343   MESC   275
      62740   MFDC   354
      62723   NFN1   354
      62721   NFN2   354
1            GET OPERATOR SIGNALS AND REFER TO CORE A...M.J.BAILEY,2/28/65       05/11/69 2013.7 PAGE 2     
                        POST PROCESSOR ASSEMBLY DATA  
                  
         70   NGX4    15
         67   NGX7    16,   57
        126   SETC   122
          3   TAPE   354
      60264   TIME   354
      62736   UFDC   354
        304  CHAIN   226
         25  CKRL1    33
         34  CKRL2    27
      62731  DMPSW   354
      61156  ENDSW   354
      62734  EOFCT   354
      73354  FLUSH   354
        111  GDSIG     0
        107  GETF7   101
         73  INDIC    17,   53,   71
      63630  IOBUF   354
        354  ..003   177
        357  ..006   230
        362  ..009   305
        323  MELLG   215
      62725  MFD1W   354
         12  NGETA     0,  167,  211,  220
         30  NHOUR   354
         74  NINDC    11,   21,   23
      77456  NMFDU   354
        167  NOKEY   127,  142,  145,  147
      77441  NXMPT   354
      60255  ODAWN   354
        150  PATCH   135
          2  PAUSE   354
      76500  PROBN   354
      76041  RCODE   151,  155,  162,  354
        146  RSALL   131,  132
        143  SETS2   137,  157
          4  SLEEP   217
       3300  TBSIZ   354
      60262  TFOSW   354
         76  TMPAC    13,   50,   64
         77  TMPMQ    12,   52,   66
      62720  TNDSW   354
      70053  TPBUF   354
      76305  UFDNM   354
          2  WRFLX   203,  234,  250,  262,  274,  311
      60267 ARGLST   354
          5 ATTACH   317
      74454 AUTOND   354
          3 CHNCOM   322
      74446 DEMKEY   170,  212,  221,  354
      62726 DMPRGR   354
      62727 DMPUSR   354
          7 ENDTAP   266,  354
          5 ENFLSH   242,  354
      77457 ENTPSW   272,  277,  354
      62732 EOFCTA   354
1            GET OPERATOR SIGNALS AND REFER TO CORE A...M.J.BAILEY,2/28/65       05/11/69 2013.7 PAGE 3     
                        POST PROCESSOR ASSEMBLY DATA  
                  
         14 ERCODA   354
         16 ERCODB   354
          7 ERYSIZ   354
      77455 EXEMPT   354
      77460 FLSHSW   246,  252,  260,  264,  354
        101 GETEFA    25
          0 GETLOC    44
      62750 IOBUF2   354
      77461 KEYVAL   171,  174,  222,  225,  244,  256,  270,  354
          1 LSDRUM   354
          6 LVFLSH   254,  354
      64510 MFDENT   354
      62735 MFDEOF   354
      74532 NUSERS   354
        330 OLDCOD   152,  160
          6 PRCODE   213
      74650 PROBNO   354
      76144 PROGNO   354
        660 RECSIZ   354
      60254 REELNO   354
          1 SETLOC    61
      60243 SKELSW   354
      74623 SYSDAT   354
      74624 SYSTIM   354
      60244 TAPEID   354
      60263 TCYCLE   354
        100 TMPACL    14,   47,   63
      60256 TNDSAV   354
      64553 TPBUF2   354
      62741 UFDENT   354
      62747 UFDEOF   354
        160 UNPTCH   141
                  
0 NO ERROR IN ABOVE ASSEMBLY. 
1            WRITE OR READ RESTORE FILE FOR DISK DUMPER....M.J.BAILEY,2/15/65    05/11/69 2014.4 PAGE 1     
                  
                              *     
                       00020         ENTRY   DTSAVE        WRITE RESTORE FILE TO SAVE DUMP TABLES ETC.
                       00217         ENTRY   DRSTOR        RELOAD RESTORE FILE TO RESUME DUMPING
                              *     
                                     EXTERN  ATTACH,CHFILE,DELFIL,OPEN,BUFFER,WRFILE
                                     EXTERN  FWAIT,CLOSE,FSTATE,RDFILE,WRFLX  
                              *     
                              *      WRITE RESTORE FILE FOR DUMPER TABLES AND VALUES
                              *     
                  
        TRANSFER VECTOR 
      00000  216363212330     ATTACH
      00001  233026314325     CHFILE
      00002  242543263143     DELFIL
      00003  464725456060     OPEN  
      00004  226426262551     BUFFER
      00005  665126314325     WRFILE
      00006  266621316360     FWAIT 
      00007  234346622560     CLOSE 
      00010  266263216325     FSTATE
      00011  512426314325     RDFILE
      00012  665126436760     WRFLX 
      00013  314622246360     IOBDT 
      00014  475145632551     PRNTER
      00015  272462312760     GDSIG 
                  
            LINKAGE DIRECTOR  
      00016  000000000000     
      00017  246362216525     
                  
      00020  0634 00 4 00213  DTSAVE SXA     X4,4     
      00021  0634 00 1 00214         SXA     X1,1     
      00022  0760 00 0 00164         SWT     4  
      00023  0020 00 0 00032         TRA     *+7
      00024 -0500 00 0 60255         CAL     ODAWN    
      00025  0074 00 4 00013         TSX     $IOBDT,4 
      00026  0602 00 0 00443         SLW     T  
      00027 -0600 00 0 00444         STQ     T+1
      00030  0074 00 4 00012         TSX     $WRFLX,4 
      00031  0 00002 0 00443                 T,,2     
      00032  0774 00 1 00031         AXT     25,1     
      00033  0500 00 0 00436         CLA     SFNO          INCREASE SAVE FILE NO.   
      00034  0400 00 0 00504         ADD     =1 
      00035  0601 00 0 00436         STO     SFNO     
      00036  0760 00 0 00001         LBT                   SELECT ALTERNATE COPY FOR REWRITE    
      00037  0020 00 0 00042         TRA     *+3
      00040  0500 00 0 00440         CLA     NAME1    
      00041  0020 00 0 00043         TRA     *+2
      00042  0500 00 0 00441         CLA     NAME2    
      00043  0601 00 0 00442         STO     B  
                              *     
      00044  0500 00 0 00436         CLA     SFNO          SET UP MISCELLANEOUS VARIABLES FOR WRITING 
      00045  0601 00 0 00443         STO     T  
      00046  0500 00 0 77456         CLA     NMFDU    
      00047  0601 00 0 00444         STO     T+1
      00050  0500 00 0 60262         CLA     TFOSW    
1            WRITE OR READ RESTORE FILE FOR DISK DUMPER....M.J.BAILEY,2/15/65    05/11/69 2014.4 PAGE 2     
                  
      00051  0601 00 0 00445         STO     T+2
      00052  0500 00 0 62730         CLA     DAWN     
      00053  0601 00 0 00446         STO     T+3
      00054  0500 00 0 60266         CLA     CDSW     
      00055  0601 00 0 00447         STO     T+4
      00056  0500 00 0 60260         CLA     SW1
      00057  0601 00 0 00450         STO     T+5
      00060  0500 00 0 73353         CLA     TND
      00061  0601 00 0 00451         STO     T+6
      00062  0500 00 0 62737         CLA     TLD
      00063  0601 00 0 00452         STO     T+7
      00064  0500 00 0 60256         CLA     TNDSAV   
      00065  0601 00 0 00453         STO     T+8
      00066  0500 00 0 60257         CLA     TCP
      00067  0601 00 0 00454         STO     T+9
      00070  0500 00 0 61156         CLA     ENDSW    
      00071  0601 00 0 00455         STO     T+10     
      00072  0500 00 0 61157         CLA     DUSK     
      00073  0601 00 0 00456         STO     T+11     
      00074  0500 00 0 60255         CLA     ODAWN    
      00075  0601 00 0 00457         STO     T+12     
      00076  0500 00 0 62740         CLA     MFDC     
      00077  0601 00 0 00460         STO     T+13     
      00100  0500 00 0 62735         CLA     MFDEOF   
      00101  0601 00 0 00461         STO     T+14     
      00102  0500 00 0 77457         CLA     ENTPSW   
      00103  0601 00 0 00462         STO     T+15     
      00104  0500 00 0 60243         CLA     SKELSW   
      00105  0601 00 0 00463         STO     T+16     
                              *     
      00106  0074 00 4 00000         TSX     ATTACH,4 
 TD   00107  3 00000 0 62727         TXH     DU 
 TD   00110  3 00000 0 62726         TXH     DP 
      00111  0500 00 0 00436         CLA     SFNO     
      00112  0402 00 0 00506         SUB     =3 
      00113 -0120 00 0 00127         TMI     LA            SKIP IF THIS IS FIRST OR SECOND SAVE 
      00114  0074 00 4 00001         TSX     CHFILE,4 
 TD   00115  3 00000 0 00437         TXH     A  
 TD   00116  3 00000 0 00442         TXH     B  
 TD   00117  3 00000 0 00503         TXH     =O0
 TD   00120  3 00000 0 00510         TXH     =-0
 TD   00121  3 00000 0 00510         TXH     =-0
 TD   00122  3 00000 0 00123         TXH     *+1
      00123  0074 00 4 00002         TSX     DELFIL,4      DELETE OLD COPY    
 TD   00124  3 00000 0 00437         TXH     A  
 TD   00125  3 00000 0 00442         TXH     B  
 TD   00126  3 00000 0 00127         TXH     *+1
                              *     
      00127  0074 00 4 00003  LA     TSX     OPEN,4        OPEN NEW ONE 
 TD   00130  3 00000 0 00512         TXH     =HW
 TD   00131  3 00000 0 00437         TXH     A  
 TD   00132  3 00000 0 00442         TXH     B  
 TD   00133  3 00000 0 00507         TXH     =O120    
 TD   00134  3 00000 0 00505         TXH     =2 
 TD   00135  3 00000 0 00173         TXH     ERRA     
      00136  0074 00 4 00004  LB     TSX     BUFFER,4 
1            WRITE OR READ RESTORE FILE FOR DISK DUMPER....M.J.BAILEY,2/15/65    05/11/69 2014.4 PAGE 3     
                  
 TD   00137  3 00000 0 00437         TXH     A  
 TD   00140  3 00000 0 00442         TXH     B  
      00141  2 00465 0 63630         TIX     IOBUF,,LBUF    
 TD   00142  3 00000 0 00200         TXH     ERRB     
                              *     
      00143  0074 00 4 00005  LC     TSX     WRFILE,4      WRITE MISCELLANEOUS VARIABLES  
 TD   00144  3 00000 0 00437         TXH     A  
 TD   00145  3 00000 0 00442         TXH     B  
 TD   00146  3 00000 0 00504         TXH     =1 
      00147  2 00464 0 00443         TIX     T,,NXW   
 TD   00150  3 00000 0 00153         TXH     *+3
 TD   00151  3 00000 0 00466         TXH     TEMP     
 TD   00152  3 00000 0 00207         TXH     ERRC     
      00153  0074 00 4 00005         TSX     WRFILE,4      WRITE TUFD/G 
 TD   00154  3 00000 0 00437         TXH     A  
 TD   00155  3 00000 0 00442         TXH     B  
 TD   00156  3 00000 0 00467         TXH     NXWT     
      00157  2 00470 0 73355         TIX     PROBNO+1-U,,LTLDFL   
 TD   00160  3 00000 0 00163         TXH     *+3
 TD   00161  3 00000 0 00466         TXH     TEMP     
 TD   00162  3 00000 0 00207         TXH     ERRC     
      00163  0074 00 4 00006         TSX     FWAIT,4  
 TD   00164  3 00000 0 00437         TXH     A  
 TD   00165  3 00000 0 00442         TXH     B  
 TD   00166  3 00000 0 00207         TXH     ERRC     
                              *     
      00167  0074 00 4 00007         TSX     CLOSE,4  
 TD   00170  3 00000 0 00437         TXH     A  
 TD   00171  3 00000 0 00442         TXH     B  
      00172  0020 00 0 00213         TRA     X4 
                              *     
      00173  0074 00 4 00014  ERRA   TSX     $PRNTER,4
      00174  0074 00 4 00015         TSX     $GDSIG,4 
      00175  2 00001 1 00127         TIX     LA,1,1   
      00176  0534 00 4 00213  EREX   LXA     X4,4     
      00177  1 00001 4 00214         TXI     X1,4,1        EXIT VIA 1,4 
      00200  0074 00 4 00014  ERRB   TSX     $PRNTER,4
      00201  0074 00 4 00015         TSX     $GDSIG,4 
      00202  2 00001 1 00136         TIX     LB,1,1   
      00203  0074 00 4 00007  ERCLEX TSX     CLOSE,4  
 TD   00204  3 00000 0 00437         TXH     A  
 TD   00205  3 00000 0 00442         TXH     B  
      00206  0020 00 0 00176         TRA     EREX     
      00207  0074 00 4 00014  ERRC   TSX     $PRNTER,4
      00210  0074 00 4 00015         TSX     $GDSIG,4 
      00211  2 00001 1 00143         TIX     LC,1,1   
      00212  0020 00 0 00203         TRA     ERCLEX   
                              *     
      00213  0774 00 4 00000  X4     AXT     **,4     
      00214  0774 00 1 00000  X1     AXT     **,1     
      00215  0600 00 0 00442         STZ     B             INDICATE SAVE PERFORMED LAST   
      00216  0020 00 4 00002         TRA     2,4
                              *     
                              *      READ RESTORE FILE, TO BE ABLE TO RESUME LOADING
                              *     
      00217  0634 00 4 00432  DRSTOR SXA     RX4,4    
1            WRITE OR READ RESTORE FILE FOR DISK DUMPER....M.J.BAILEY,2/15/65    05/11/69 2014.4 PAGE 4     
                  
      00220  0634 00 1 00434         SXA     RX1,1    
      00221  0760 00 0 00164         SWT     4  
      00222  0020 00 0 00231         TRA     *+7
      00223 -0500 00 0 60255         CAL     ODAWN    
      00224  0074 00 4 00013         TSX     $IOBDT,4 
      00225  0602 00 0 00443         SLW     T  
      00226 -0600 00 0 00444         STQ     T+1
      00227  0074 00 4 00012         TSX     $WRFLX,4 
      00230  0 00002 0 00443                 T,,2     
      00231  0074 00 4 00000         TSX     ATTACH,4 
 TD   00232  3 00000 0 62727         TXH     DU 
 TD   00233  3 00000 0 62726         TXH     DP 
      00234 -0500 00 0 00442         CAL     B  
      00235  0100 00 0 00242         TZE     RA            SKIP IF RESTORE O.K. LAST CALL 
      00236 -0340 00 0 00440         LAS     NAME1         IF NOT, BE SURE TO USE OTHER COPY NOW
      00237  0020 00 0 00261         TRA     RBA
      00240  0020 00 0 00257         TRA     RB 
      00241  0020 00 0 00261         TRA     RBA
      00242  0074 00 4 00010  RA     TSX     FSTATE,4 
 TD   00243  3 00000 0 00437         TXH     A  
 TD   00244  3 00000 0 00440         TXH     NAME1    
      00245  2 00471 0 00443         TIX     T,,L7    
 TD   00246  3 00000 0 00257         TXH     RB 
      00247  0074 00 4 00010         TSX     FSTATE,4 
 TD   00250  3 00000 0 00437         TXH     A  
 TD   00251  3 00000 0 00441         TXH     NAME2    
      00252  2 00471 0 00442         TIX     T-1,,L7  
 TD   00253  3 00000 0 00376         TXH     ERRD     
      00254  0500 00 0 00451         CLA     T+6           SEE WHICH COPY IS THE LATEST   
      00255  0402 00 0 00450         SUB     T+5
      00256  0120 00 0 00261         TPL     *+3
      00257  0500 00 0 00441  RB     CLA     NAME2    
      00260  0020 00 0 00262         TRA     *+2
      00261  0500 00 0 00440  RBA    CLA     NAME1    
      00262  0601 00 0 00442         STO     B             SET NAME OF LATEST OF THE 2 COPIES   
                              *     
      00263  0774 00 1 00005         AXT     5,1
      00264  0074 00 4 00003  RC     TSX     OPEN,4   
 TD   00265  3 00000 0 00511         TXH     =HR
 TD   00266  3 00000 0 00437         TXH     A  
 TD   00267  3 00000 0 00442         TXH     B  
 TD   00270  3 00000 0 00510         TXH     =-0
 TD   00271  3 00000 0 00510         TXH     =-0
 TD   00272  3 00000 0 00403         TXH     ERRE     
      00273  0074 00 4 00004  RD     TSX     BUFFER,4 
 TD   00274  3 00000 0 00437         TXH     A  
 TD   00275  3 00000 0 00442         TXH     B  
      00276  2 00465 0 63630         TIX     IOBUF,,LBUF    
 TD   00277  3 00000 0 00407         TXH     ERRF     
                              *     
      00300  0074 00 4 00011  RE     TSX     RDFILE,4      READ MISCELLANEOUS VARIABLES   
 TD   00301  3 00000 0 00437         TXH     A  
 TD   00302  3 00000 0 00442         TXH     B  
 TD   00303  3 00000 0 00504         TXH     =1 
      00304  2 00464 0 00443         TIX     T,,NXW   
 TD   00305  3 00000 0 00416         TXH     ERRG     
1            WRITE OR READ RESTORE FILE FOR DISK DUMPER....M.J.BAILEY,2/15/65    05/11/69 2014.4 PAGE 5     
                  
 TD   00306  3 00000 0 00466         TXH     TEMP     
 TD   00307  3 00000 0 00426         TXH     ERRH     
      00310  0074 00 4 00011  RG     TSX     RDFILE,4      READ TUFD/G TABLE  
 TD   00311  3 00000 0 00437         TXH     A  
 TD   00312  3 00000 0 00442         TXH     B  
 TD   00313  3 00000 0 00467         TXH     NXWT     
      00314  2 00470 0 73355         TIX     PROBNO+1-U,,LTLDFL   
 TD   00315  3 00000 0 00321         TXH     RH 
 TD   00316  3 00000 0 00466         TXH     TEMP     
 TD   00317  3 00000 0 00426         TXH     ERRH     
      00320  0020 00 0 00324         TRA     RI 
      00321  0500 00 0 00466  RH     CLA     TEMP     
      00322  0402 00 0 00464         SUB     NXW
      00323 -0100 00 0 00416         TNZ     ERRG     
      00324  0074 00 4 00006  RI     TSX     FWAIT,4  
 TD   00325  3 00000 0 00437         TXH     A  
 TD   00326  3 00000 0 00442         TXH     B  
 TD   00327  3 00000 0 00426         TXH     ERRH     
                              *     
      00330  0500 00 0 00443  RJ     CLA     T             RESTORE MISCELLANEOUS VARIABLES
      00331  0601 00 0 00436         STO     SFNO     
      00332  0500 00 0 00444         CLA     T+1
      00333  0601 00 0 77456         STO     NMFDU    
      00334  0500 00 0 00445         CLA     T+2
      00335  0601 00 0 60262         STO     TFOSW    
      00336  0500 00 0 00446         CLA     T+3
      00337  0601 00 0 62730         STO     DAWN     
      00340  0500 00 0 00447         CLA     T+4
      00341  0601 00 0 60266         STO     CDSW     
      00342  0500 00 0 00450         CLA     T+5
      00343  0601 00 0 60260         STO     SW1
      00344  0500 00 0 00451         CLA     T+6
      00345  0601 00 0 73353         STO     TND
      00346  0500 00 0 00452         CLA     T+7
      00347  0601 00 0 62737         STO     TLD
      00350  0500 00 0 00453         CLA     T+8
      00351  0601 00 0 60256         STO     TNDSAV   
      00352  0500 00 0 00454         CLA     T+9
      00353  0601 00 0 60257         STO     TCP
      00354  0500 00 0 00455         CLA     T+10     
      00355  0601 00 0 61156         STO     ENDSW    
      00356  0500 00 0 00456         CLA     T+11     
      00357  0601 00 0 61157         STO     DUSK     
      00360  0500 00 0 00457         CLA     T+12     
      00361  0601 00 0 60255         STO     ODAWN    
      00362  0500 00 0 00460         CLA     T+13     
      00363  0601 00 0 62740         STO     MFDC     
      00364  0500 00 0 00461         CLA     T+14     
      00365  0601 00 0 62735         STO     MFDEOF   
      00366  0500 00 0 00462         CLA     T+15     
      00367  0601 00 0 77457         STO     ENTPSW   
      00370  0500 00 0 00463         CLA     T+16     
      00371  0601 00 0 60243         STO     SKELSW   
                              *     
      00372  0074 00 4 00007         TSX     CLOSE,4  
 TD   00373  3 00000 0 00437         TXH     A  
1            WRITE OR READ RESTORE FILE FOR DISK DUMPER....M.J.BAILEY,2/15/65    05/11/69 2014.4 PAGE 6     
                  
 TD   00374  3 00000 0 00442         TXH     B  
      00375  0020 00 0 00432         TRA     RX4
                              *     
      00376  0074 00 4 00014  ERRD   TSX     $PRNTER,4
      00377  0074 00 4 00015         TSX     $GDSIG,4 
      00400  2 00001 1 00242         TIX     RA,1,1   
      00401  0534 00 4 00432  ERXR   LXA     RX4,4    
      00402  1 00001 4 00434         TXI     RX1,4,1       EXIT VIA 1,4  --  ERROR  
      00403  0074 00 4 00014  ERRE   TSX     $PRNTER,4
      00404  0074 00 4 00015         TSX     $GDSIG,4 
      00405  2 00001 1 00264         TIX     RC,1,1   
      00406  0020 00 0 00401         TRA     ERXR     
      00407  0074 00 4 00014  ERRF   TSX     $PRNTER,4
      00410  0074 00 4 00015         TSX     $GDSIG,4 
      00411  2 00001 1 00273         TIX     RD,1,1   
      00412  0074 00 4 00007  ERCLXR TSX     CLOSE,4  
 TD   00413  3 00000 0 00437         TXH     A  
 TD   00414  3 00000 0 00442         TXH     B  
      00415  0020 00 0 00401         TRA     ERXR     
      00416  0074 00 4 00006  ERRG   TSX     FWAIT,4  
 TD   00417  3 00000 0 00437         TXH     A  
 TD   00420  3 00000 0 00442         TXH     B  
 TD   00421  3 00000 0 00426         TXH     ERRH     
      00422  0074 00 4 00012         TSX     WRFLX,4  
      00423  0 00011 0 00472                 MESA,,9  
      00424  2 00001 1 00300         TIX     RE,1,1   
      00425  0020 00 0 00330         TRA     RJ 
      00426  0074 00 4 00014  ERRH   TSX     PRNTER,4 
      00427  0074 00 4 00015         TSX     $GDSIG,4 
      00430  2 00001 1 00300  ERRH1  TIX     RE,1,1   
      00431  0020 00 0 00412         TRA     ERCLXR   
                              *     
      00432  0774 00 4 00000  RX4    AXT     **,4     
      00433  0600 00 0 00442         STZ     B             INDICATE RESTORE O.K.    
      00434  0774 00 1 00000  RX1    AXT     **,1     
      00435  0020 00 4 00002         TRA     2,4
                              *     
                              *      CONSTANTS, VARIABLES, ETC.   
                              *     
                       00021  XW     EQU     17 
      00436  0 00000 0 00000  SFNO   PZE  
      00437  245162634651     A      BCI     1,DRSTOR 
      00440  263143253301     NAME1  BCI     1,FILE.1 
      00441  263143253302     NAME2  BCI     1,FILE.2 
      00442  606060606060     B      BCI     1, 
      00443                   T      BSS     XW 
      00464  0 00000 0 00021  NXW    PZE     XW 
      00465  0 00000 0 00660  LBUF   PZE     NW 
      00466  0 00000 0 00000  TEMP   PZE  
      00467  0 00000 0 00022  NXWT   PZE     XW+1     
      00470  0 00000 0 04101  LTLDFL PZE     3*U+2*NX+1     
      00471  0 00000 0 00007  L7     PZE     7  
      00472  602533463326     MESA   BCI     9, E.O.F. IN WRONG PLACE ON DISK LOADER 'RESTORE FILE'.  
      00473  336031456066     
      00474  514645276047     
      00475  432123256046     
1            WRITE OR READ RESTORE FILE FOR DISK DUMPER....M.J.BAILEY,2/15/65    05/11/69 2014.4 PAGE 7     
                  
      00476  456024316242     
      00477  604346212425     
      00500  516014512562     
      00501  634651256026     
      00502  314325143360     
                              *     
                                     INSERT  DCMEQB   
                              *     
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
                              *    COMMON AND EQUIVALENCE FOR GENERAL DUMP PROGRAM  
                              *  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .     
                              *     
                      074446  DEMKEY BOOL    74446         CORE A LOCATION FOR DAEMON'S KEY SETTING   
                      074624  SYSTIM BOOL    74624         CORE A LOCATION FOR SYSTEM  TIME     
                      074623  SYSDAT BOOL    74623         CORE A LOCATION FOR SYSTEM INIT. DATE
                      076041  RCODE  BOOL    76041         CORE A LOCATION FOR RESTRICTION CODE VECTOR
                      074454  AUTOND BOOL    74454         CORE A AUTOMATIC LOGOUT INDICATOR    
                      074532  NUSERS BOOL    74532         CORE A LOGGED-IN USER COUNT    
                      076500  PROBN  BOOL    76500         CORE A PROBNO ARRAY
                      076305  UFDNM  BOOL    76305         CORE A UFDNM ARRAY 
                      074672  PB     BOOL    74672         CORE A GUARANTEED PERCENTAGE VECTOR BASE   
                       00050  N      EQU     40            CORE A MAX. NO. OF USERS (SIZE OF PROBN)   
                              *     
                      000017  BASE   BOOL    17            KEY CODE BASE
                      000001  I      BOOL    1             KEY CODE TO START INCREMENTAL DUMP   
                      000002  PAUSE  BOOL    2             KEY CODE TO WAIT FOR 1 MIN.    
                      000003  C      BOOL    3             KEY CODE TO DO COMPLETE DUMP   
                      000004  AK     BOOL    4             KEY CODE FOR IMPENDING AUTOLOGOUT    
                      000005  ENFLSH BOOL    5             KEY CODE TO ENTER FLUSH MODE   
                      000006  LVFLSH BOOL    6             KEY CODE TO LEAVE FLUSH MODE   
                      000007  ENDTAP BOOL    7             KEY CODE TO TERMINATE DUMP TAPE FILE 
                      000010  INT    BOOL    10            SIMULATE INTERRUPT 
                       00660  RECSIZ EQU     432           TAPE RECORD SIZE   
                       00006   NX    EQU     6             MAX. NO. OF SYSTEM FILE OWNERS 
                       00030  NCD    EQU     24            MAX. NO. 'DAYS' NON-USE OF CURRENT FILES   
                       00014  DINC   EQU     12            NO. DAYS OF 'RECENCY' INCREMENT (C.DUMP)   
                       01274  U      EQU     700           MAX. NO. USERS IN MFD USER LIST
                       03300  TBSIZ  EQU     4*RECSIZ      TAPE BUFFER SIZE   
                       00007  ERYSIZ EQU     7             I/O SYSTEM ERROR ARRAY SIZE    
                       00014  ERCODA EQU     12            'OPEN' ERROR CODE FOR FILE NOT FOUND 
                       00016  ERCODB EQU     14            'OPEN' ERROR CODE RQSTD. DEVICE UNAVBLE    
                       00660  NW     EQU     432           SIZE OF SECONDARY I/O FILE BUFFERS   
                       00001  LSDRUM EQU     1             I/O SYSTEM DEVICE CODE FOR L.S.DRUM  
                       00002    DISK EQU     2             I/O SYSTEM DEVICE CODE FOR DISK
                       00003   TAPE  EQU     3             I/O SYSTEM DEVICE CODE FOR TAPE
                       00030  NHOUR  EQU     24            NO. OF HOURS IN A 'DAY'  
                       77461  KEYVAL COMMON  1             LAST KEY SETTING READ FROM SUPERVISOR
                       77460  FLSHSW COMMON  1             FLUSH MODE SWITCH  
                       77457  ENTPSW COMMON  1             OPERATOR-REQUESTED-END-TAPE INDICATOR
                       77456  NMFDU  COMMON  1             NO. USERS CURRENTLY IN LIST    
                       77455  EXEMPT COMMON  2*NX          LIST OF SYSTEM FILE OWNERS     
                       77441  NXMPT  COMMON  1             NO. FILE USERS EXEMPT FROM DUMP IN DCYCLE  
                       77440  DTLD   COMMON  U             TIME LAST DUMPED FOR EACH USER 
                       76144  PROGNO COMMON  U             PROGRAMMER NO. OF EACH USER    
                       74650  PROBNO COMMON  U             PROBLEM NO. OF EACH USER 
                       73354   FLUSH COMMON  1             NON-ZERO INDICATES FLUSH MODE IS FORCED    
1            WRITE OR READ RESTORE FILE FOR DISK DUMPER....M.J.BAILEY,2/15/65    05/11/69 2014.4 PAGE 8     
                  
                       73353   TND   COMMON  1             TIME OF NEXT DUMP FOR CURRENT USER   
                       70053         COMMON  TBSIZ-1       TAPE BUFFER  
                       70053  TPBUF  COMMON  1             TAPE BUFFER 1ST WORD     
                       64553         COMMON  TBSIZ-1       2ND TAPE BUFFER    
                       64553  TPBUF2 COMMON  1             2ND TAPE BUFFER, 1ST WORD
                       64544         COMMON  ERYSIZ-1      ERROR ARRAY  
                       64544  ERAY   COMMON  1             ERROR ARRAY 1ST WORD     
                       64526         COMMON  13            PRINT BUFFER 
                       64526   PBF   COMMON  1             PRINT BUFFER 1ST WORD    
                       64510         COMMON  13            MFD ENTRY BUFFER   
                       64510  MFDENT COMMON  1             MFD ENTRY BUFFER 1ST WORD
                       63630         COMMON  NW-1          SECONDARY I/0 FILE BUFFER
                       63630   IOBUF COMMON  1             SECONDARY IO BUFFER 1ST WORD   
                       62750         COMMON  NW-1          SECONDARY I/O FILE BUFFER
                       62750  IOBUF2 COMMON  1             SECONDARY I/O BUFFER 1ST WORD  
                       62747  UFDEOF COMMON  1             ZERO INDICATES EOF IN UFD FILE 
                       62741         COMMON  5             PARTIAL UFD ENTRY BUFFER 
                       62741  UFDENT COMMON  1             PARTIAL UFD ENTRY BUFFER 1ST WORD    
                       62740   MFDC  COMMON  1             NEXT WORD TO BE READ FROM MFD FILE   
                       62737   TLD   COMMON  1             TIME LAST DUMP OF USER CURRENTLY DUMPING   
                       62736   UFDC  COMMON  1             NEXT UNREAD POS. OF UFDFILE (NORMALLY ZERO)
                       62735  MFDEOF COMMON  1             ZERO INDICATES EOF IN MFD FILE 
                       62734   EOFCT COMMON  1             NO. OF WORDS READ BEFORE AN EOF
                       62733   FEOF  COMMON  1             ZERO INDICATES EOF IN A USER FILE    
                       62732  EOFCTA COMMON  1             NO. OF WORDS BEFORE AN EOF     
                       62731   DMPSW COMMON  1             NON-ZERO INDICATES A FILE HAS BEEN DUMPED  
                       62730   DAWN  COMMON  1             TIME OF START OF 'DAY'   
                       62727  DMPUSR COMMON  1             PROBLEM NO. OF DUMP/LOAD PACKAGE     
                       62726  DMPRGR COMMON  1             PROGRAMMER NO. OF  DITTO.
                       62727  DU     EQU     DMPUSR   
                       62726  DP     EQU     DMPRGR   
                       62725   MFD1W COMMON  1             NO. OF 1ST GOOD WORD IN MFD AND UFD FILES  
                       62723         COMMON  1             2ND PART OF DUMP TAPE FILE (COPY 1) NAME   
                       62723  NFN1   COMMON  1             1ST PART OF DUMP TAPE FILE (COPY 1) NAME   
                       62721         COMMON  1             2ND PART OF DUMP TAPE FILE (COPY 2) NAME   
                       62721   NFN2  COMMON  1             1ST PART OF DUMP TAPE FILE (COPY 2) NAME   
                       62720  TNDSW  COMMON  1             INDICATES TIME OF THIS DUMP CURRENT OR NO  
                       62040         COMMON  RECSIZ-1      INTERNAL TAPE BUFFER     
                       62040   ITB1  COMMON  1                ,,     ,,    ,,  1ST WORD   
                       61160         COMMON  RECSIZ-1      INTERNAL TAPE BUFFER     
                       61160   ITB2  COMMON  1                ,,     ,,  ,,  1ST WORD     
                       61157   DUSK  COMMON  1             TIME OF END OF CURRENT 'DAY'   
                       61156   ENDSW COMMON  1             IF 1, NORMAL END-OF-DAY,ELSE OPERATOR ONE  
                       60276         COMMON  NW-1          INTERNAL BUFFER FOR 'MAP' FILE 
                       60276    IMP  COMMON  1                ,,      ,,    ,,   ,,   ,,  1ST WORD    
                       60267         COMMON  6             'MAP' FILE LINE PARAMETER ARRAY
                       60267  ARGLST COMMON  1               ,,   ,,   ,,      ,,      ,,  1ST WORD   
                       60266  CDSW   COMMON  1             NON-ZERO DURING COMPLETE DUMP,ELSE ZERO    
                       60265  DATE   COMMON  1             DATE THE DUMP NOW IN PROGRESS BEGAN  
                       60264  TIME   COMMON  1             TIME DUMP NOW IN PROGRESS BEGAN
                       60263  TCYCLE COMMON  1             'TIME' OF LAST CYCLE ON DUMP TAPE FILE     
                       60262  TFOSW  COMMON  1             NON-ZERO IF DUMP TAPE FILE IS OPEN   
                       60261  ALOG   COMMON  1             NON-ZERO IF AUTOLOGOUT ON
                       60260  SW1    COMMON  1  
                       60257  TCP    COMMON  1  
                       60256  TNDSAV COMMON  1  
1            WRITE OR READ RESTORE FILE FOR DISK DUMPER....M.J.BAILEY,2/15/65    05/11/69 2014.4 PAGE 9     
                  
                       60255  ODAWN  COMMON  1             TIME OF START OF PREVIOUS 'DAY'
                       60244         COMMON  8             TAPE LABEL   
                       60244  TAPEID COMMON  1             TAPE LABEL 1ST WORD
                       60243  SKELSW COMMON  1  
                       60254  REELNO EQU     TAPEID+8 
                                     END  
                  
        LITERALS  
      00503  000000000000     
      00504  000000000001     
      00505  000000000002     
      00506  000000000003     
      00507  000000000120     
      00510  400000000000     
      00511  516060606060     
      00512  666060606060     
1            WRITE OR READ RESTORE FILE FOR DISK DUMPER....M.J.BAILEY,2/15/65    05/11/69 2014.4 PAGE 1     
                        POST PROCESSOR ASSEMBLY DATA  
                  
       60242 IS THE LAST LOCATION NOT USED BY THIS PROGRAM  
        513 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM  
                  
0REFERENCES TO DEFINED SYMBOLS      
        437      A   115,  124,  131,  137,  144,  154,  164,  170,  204,  243,  250,  266,  274,  301,  311,  325,  373
                     413,  417
        442      B    43,  116,  125,  132,  140,  145,  155,  165,  171,  205,  215,  234,  262,  267,  275,  302,  312
                     326,  374,  414,  420,  433
          3      C   503
          1      I   503
         50      N   503
        443      T    26,   27,   31,   45,   47,   51,   53,   55,   57,   61,   63,   65,   67,   71,   73,   75,   77
                     101,  103,  105,  147,  225,  226,  230,  245,  252,  254,  255,  304,  330,  332,  334,  336,  340
                     342,  344,  346,  350,  352,  354,  356,  360,  362,  364,  366,  370
       1274      U   157,  314,  470,  503
          4     AK   503
      62726     DP   110,  233,  503
      62727     DU   107,  232,  503
        471     L7   245,  252
        127     LA   113,  175
        136     LB   202
        143     LC   211
        660     NW   465,  503
          6     NX   470,  503
      74672     PB   503
        242     RA   235,  400
        257     RB   240,  246
        264     RC   405
        273     RD   411
        300     RE   424,  430
        310     RG      
        321     RH   315
        324     RI   320
        330     RJ   425
        214     X1    21,  177
        213     X4    20,  172,  176
         21     XW   436,  443,  464,  467
      60276    IMP   503
         10    INT   503
         30    NCD   503
        464    NXW   147,  304,  322
      64526    PBF   503
        261    RBA   237,  241
        434    RX1   220,  402
        432    RX4   217,  375,  401
      60260    SW1    56,  343,  503
      60257    TCP    66,  353,  503
      62737    TLD    62,  347,  503
      73353    TND    60,  345,  503
      60261   ALOG   503
         17   BASE   503
      60266   CDSW    54,  341,  503
      60265   DATE   503
      62730   DAWN    52,  337,  503
1            WRITE OR READ RESTORE FILE FOR DISK DUMPER....M.J.BAILEY,2/15/65    05/11/69 2014.4 PAGE 2     
                        POST PROCESSOR ASSEMBLY DATA  
                  
         14   DINC   503
          2   DISK   503
      77440   DTLD   503
      61157   DUSK    72,  357,  503
      64544   ERAY   503
        176   EREX   206
        173   ERRA   135
        200   ERRB   142
        207   ERRC   152,  162,  166
        376   ERRD   253
        403   ERRE   272
        407   ERRF   277
        416   ERRG   305,  323
        426   ERRH   307,  317,  327,  421
        401   ERXR   406,  415
      62733   FEOF   503
      62040   ITB1   503
      61160   ITB2   503
        465   LBUF   141,  276
        472   MESA   423
      62740   MFDC    76,  363,  503
      62723   NFN1   503
      62721   NFN2   503
        467   NXWT   156,  313
          3   OPEN   127,  264
        436   SFNO    33,   35,   44,  111,  331
          3   TAPE   503
        466   TEMP   151,  161,  306,  316,  321
      60264   TIME   503
      62736   UFDC   503
          7  CLOSE   167,  203,  372,  412
      62731  DMPSW   503
      61156  ENDSW    70,  355,  503
      62734  EOFCT   503
        430  ERRH1      
      73354  FLUSH   503
          6  FWAIT   163,  324,  416
         15  GDSIG   174,  201,  210,  377,  404,  410,  427
         13  IOBDT    25,  224
      63630  IOBUF   141,  276,  503
      62725  MFD1W   503
        440  NAME1    40,  236,  244,  261
        441  NAME2    42,  251,  257
         30  NHOUR   503
      77456  NMFDU    46,  333,  503
      77441  NXMPT   503
      60255  ODAWN    24,   74,  223,  361,  503
          2  PAUSE   503
      76500  PROBN   503
      76041  RCODE   503
       3300  TBSIZ   503
      60262  TFOSW    50,  335,  503
      62720  TNDSW   503
      70053  TPBUF   503
      76305  UFDNM   503
1            WRITE OR READ RESTORE FILE FOR DISK DUMPER....M.J.BAILEY,2/15/65    05/11/69 2014.4 PAGE 3     
                        POST PROCESSOR ASSEMBLY DATA  
                  
         12  WRFLX    30,  227,  422
      60267 ARGLST   503
          0 ATTACH   106,  231
      74454 AUTOND   503
          4 BUFFER   136,  273
          1 CHFILE   114
          2 DELFIL   123
      74446 DEMKEY   503
      62726 DMPRGR   503
      62727 DMPUSR   503
        217 DRSTOR     0
         20 DTSAVE     0
          7 ENDTAP   503
          5 ENFLSH   503
      77457 ENTPSW   102,  367,  503
      62732 EOFCTA   503
        203 ERCLEX   212
        412 ERCLXR   431
         14 ERCODA   503
         16 ERCODB   503
          7 ERYSIZ   503
      77455 EXEMPT   503
      77460 FLSHSW   503
         10 FSTATE   242,  247
      62750 IOBUF2   503
      77461 KEYVAL   503
          1 LSDRUM   503
        470 LTLDFL   157,  314
          6 LVFLSH   503
      64510 MFDENT   503
      62735 MFDEOF   100,  365,  503
      74532 NUSERS   503
         14 PRNTER   173,  200,  207,  376,  403,  407,  426
      74650 PROBNO   157,  314,  503
      76144 PROGNO   503
         11 RDFILE   300,  310
        660 RECSIZ   503
      60254 REELNO   503
      60243 SKELSW   104,  371,  503
      74623 SYSDAT   503
      74624 SYSTIM   503
      60244 TAPEID   503
      60263 TCYCLE   503
      60256 TNDSAV    64,  351,  503
      64553 TPBUF2   503
      62741 UFDENT   503
      62747 UFDEOF   503
          5 WRFILE   143,  153
                  
0 NO ERROR IN ABOVE ASSEMBLY. 
1            THIS IS A COOL PROGRAM                                              05/11/69 2014.7 PAGE 1     
                  
                              *     
                                     EXTERN  OPEN,BUFFER,CLOSE,RDFILE,WRFILE  
                                     EXTERN  CHFILE,FWAIT,DELFIL,FSTATE 
                              *     
                       00013         ENTRY   PUTIN    
                       00027         ENTRY   GETOUT   
                              *     
                  
      00000  464725456060     OPEN  
      00001  226426262551     BUFFER
      00002  234346622560     CLOSE 
      00003  512426314325     RDFILE
      00004  665126314325     WRFILE
      00005  233026314325     CHFILE
      00006  266621316360     FWAIT 
      00007  242543263143     DELFIL
      00010  266263216325     FSTATE
                  
                  
      00013 -0500 00 0 00150  PUTIN  CAL     =HW
      00014  0602 00 0 00140         SLW     STATUS   
      00015 -0500 00 0 00142         CAL     WRITE    
      00016  0602 00 0 00065         SLW     IO 
      00017  0600 00 0 00134         STZ     FINGER   
      00020  0634 00 4 00106         SXA     I4,4     
      00021  0074 00 4 00002         TSX     CLOSE,4  
 TD   00022  3 00000 0 00135         TXH     NAME1    
 TD   00023  3 00000 0 00136         TXH     NAME2    
 TD   00024  3 00000 0 00025         TXH     *+1
      00025  0074 00 4 00116         TSX     DELDRS,4 
      00026  0020 00 0 00042         TRA     HOP
      00027 -0500 00 0 00147  GETOUT CAL     =HR
      00030  0602 00 0 00140         SLW     STATUS   
      00031 -0500 00 0 00141         CAL     READ     
      00032  0602 00 0 00065         SLW     IO 
      00033 -0625 00 0 00134         STL     FINGER   
      00034  0634 00 4 00106         SXA     I4,4     
      00035  0074 00 4 00010         TSX     FSTATE,4 
 TD   00036  3 00000 0 00135         TXH     NAME1    
 TD   00037  3 00000 0 00136         TXH     NAME2    
      00040  3 00001 0 00137         TXH     TEMP,,1  
 TD   00041  3 00000 0 00112         TXH     ERROR    
      00042  0634 00 2 00110  HOP    SXA     I2,2     
      00043  0634 00 1 00107         SXA     I1,1     
      00044  0534 00 4 00106         LXA     I4,4     
      00045 -0500 00 4 00001         CAL     1,4
      00046  0621 00 0 00063         STA     BUFFAD   
      00047 -0500 00 4 00002         CAL     2,4
      00050  0621 00 0 00071         STA     WHERE    
      00051  0074 00 4 00000         TSX     OPEN,4   
 TD   00052  3 00000 0 00140         TXH     STATUS   
 TD   00053  3 00000 0 00135         TXH     NAME1    
 TD   00054  3 00000 0 00136         TXH     NAME2    
 TD   00055  3 00000 0 00145         TXH     =O120    
 TD   00056  3 00000 0 00146         TXH     =-0
 TD   00057  3 00000 0 00112         TXH     ERROR    
1            THIS IS A COOL PROGRAM                                              05/11/69 2014.7 PAGE 2     
                  
      00060  0074 00 4 00001         TSX     BUFFER,4 
 TD   00061  3 00000 0 00135         TXH     NAME1    
 TD   00062  3 00000 0 00136         TXH     NAME2    
      00063  3 00660 0 00000  BUFFAD TXH     **,,432  
 TD   00064  3 00000 0 00112         TXH     ERROR    
      00065  0 00000 0 00000  IO     ***     **,,**   
 TD   00066  3 00000 0 00135         TXH     NAME1    
 TD   00067  3 00000 0 00136         TXH     NAME2    
 TD   00070  3 00000 0 00144         TXH     =1 
      00071  3 00003 0 00000  WHERE  TXH     **,,3    
 TD   00072  3 00000 0 00112         TXH     ERROR    
 TD   00073  3 00000 0 00137         TXH     TEMP     
 TD   00074  3 00000 0 00112         TXH     ERROR    
      00075  0074 00 4 00006         TSX     FWAIT,4  
 TD   00076  3 00000 0 00135         TXH     NAME1    
 TD   00077  3 00000 0 00136         TXH     NAME2    
 TD   00100  3 00000 0 00112         TXH     ERROR    
      00101  0074 00 4 00002         TSX     CLOSE,4  
 TD   00102  3 00000 0 00135         TXH     NAME1    
 TD   00103  3 00000 0 00136         TXH     NAME2    
      00104  0520 00 0 00134         ZET     FINGER   
      00105  0074 00 4 00116         TSX     DELDRS,4 
      00106  0774 00 4 00000  I4     AXT     **,4     
      00107  0774 00 1 00000  I1     AXT     **,1     
      00110  0774 00 2 00000  I2     AXT     **,2     
      00111  0020 00 4 00004         TRA     4,4
      00112  0534 00 4 00106  ERROR  LXA     I4,4     
      00113  0534 00 1 00107         LXA     I1,1     
      00114  0534 00 2 00110         LXA     I2,2     
      00115  0020 60 4 00003         TRA*    3,4
                              *     
      00116  0634 00 4 00132  DELDRS SXA     DEL4,4   
      00117  0074 00 4 00005         TSX     CHFILE,4 
 TD   00120  3 00000 0 00135         TXH     NAME1    
 TD   00121  3 00000 0 00136         TXH     NAME2    
 TD   00122  3 00000 0 00143         TXH     =0 
 TD   00123  3 00000 0 00146         TXH     =-0
 TD   00124  3 00000 0 00146         TXH     =-0
 TD   00125  3 00000 0 00126         TXH     *+1
      00126  0074 00 4 00007         TSX     DELFIL,4 
 TD   00127  3 00000 0 00135         TXH     NAME1    
 TD   00130  3 00000 0 00136         TXH     NAME2    
 TD   00131  3 00000 0 00132         TXH     *+1
      00132  0774 00 4 00000  DEL4   AXT     **,4     
      00133  0020 00 4 00001         TRA     1,4
                              *     
      00134  0 00000 0 00000  FINGER PZE  
      00135  245162634651     NAME1  BCI     1,DRSTOR 
      00136  263143253303     NAME2  BCI     1,FILE.3 
      00137  0 00000 0 00000  TEMP   PZE  
      00140  0 00000 0 00000  STATUS PZE  
      00141  0074 00 4 00003  READ   TSX     RDFILE,4 
      00142  0074 00 4 00004  WRITE  TSX     WRFILE,4 
                                     END  
1            THIS IS A COOL PROGRAM                                              05/11/69 2014.7 PAGE 1     
                        POST PROCESSOR ASSEMBLY DATA  
                  
        151 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM  
                  
0REFERENCES TO DEFINED SYMBOLS      
        107     I1    43,  113
        110     I2    42,  114
        106     I4    20,   34,   44,  112
         65     IO    16,   32
         42    HOP    26
        132   DEL4   116
          0   OPEN    51
        141   READ    31
        137   TEMP    40,   73
          2  CLOSE    21,  101
        112  ERROR    41,   57,   64,   72,   74,  100
          6  FWAIT    75
        135  NAME1    22,   36,   53,   61,   66,   76,  102,  120,  127
        136  NAME2    23,   37,   54,   62,   67,   77,  103,  121,  130
         13  PUTIN     0
         71  WHERE    50
        142  WRITE    15
         63 BUFFAD    46
          1 BUFFER    60
          5 CHFILE   117
        116 DELDRS    25,  105
          7 DELFIL   126
        134 FINGER    17,   33,  104
         10 FSTATE    35
         27 GETOUT     0
          3 RDFILE   141
        140 STATUS    14,   30,   52
          4 WRFILE   142
                  
0 NO ERROR IN ABOVE ASSEMBLY. 
1     MAD PROGRAM LISTING ... ... ...                 FILE   NLREC   MAD            05/11/69    2014.8
-                 
                  EXTERNAL FUNCTION (NRECS,IRC,LRC,LTRC,LPREAM,LPHYS,NFLR,NLAST                   *001  000001    
                1 )                                                                               *001  000002    
                  ENTRY TO    NLREC .                                                             *002  000003    
                  NWDS=(NRECS-1)*IRC+LRC                                                          *003  000004    
                  NFLR=NWDS/LTRC                                                                  *004  000005    
                  NLEFT=XMOD  .(    NWDS,LTRC)                                                    *005  000006    
                  WHENEVER (NLEFT) .LE. 0, TRANSFER TO QQ0004                                     *006  000007    
                  MLPH = NLEFT + LPREAM                                                           *007  000017    
                  REM = MLPH - (MLPH/LPHYS)*LPHYS                                                 *008  000027    
                  NLAST=(MLPH/LPHYS+(REM/REM))*LPHYS                                              *009  000037    
                  TRANSFER TO QQ0005                                                              *010  000047    
      QQ0004      NLAST=0                                                                         *011  000057    
      QQ0005      FUNCTION RETURN                                                                 *012  000067    
                  INTEGER     NWDS  ,     NRECS ,     IRC   ,     LRC                             *013  000077    
                  INTEGER     NFLR  ,     LTRC  ,     NLEFT ,     XMOD                            *014  000087    
                  INTEGER     NLAST ,     LPREAM,     LPHYS                                       *015  000097    
                  INTEGER   MLPH,     REM                                                         *016  000107    
                  END OF FUNCTION                                                                 *017  000117    
1MAD PROGRAM,TYPE NOV 1963      (ALL NUMBERS ARE OCTAL)     
0TOTAL LOCATIONS   00143 TRANSFER VECTOR LENGTH  00002 PROGRAM BEGINS    00014
0 PROGRAM IS AN EXTERNAL FUNCTION.   THE FOLLOWING ARE ENTRIES    
      NLREC  00015   0                                                                                                  
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)  
      MLPH   00005   1        NWDS   00007   1        QQ0004 00003   4        QQ0005 00004   4        REM    00010   1  
      NLEFT  00006   1                                                                                                  
0FUNCTION DICTIONARY    
      EXIT   00000   0        XMOD   00001   1                                                                          
0ABSOLUTE CONSTANTS     
 00011 +000000000000     00012 +000000000001     00013 +233000000000                                                    
0STATEMENT DICTIONARY   
 00003 TXL -300101000077       00004 TXL -300102000101                                                                  
0PROGRAM    
                 EXTERNAL FUNCTION (NRECS,IRC,LRC,LTRC,LPREAM,LPHYS,NFLR,NLAST      001   000001
                1)                                                                  001   000002
                 ENTRY TO    NLREC .                                                002   000003
 00014 TRA +0 02000 0 00017    00015 SXA +0 63400 2 00103    00016 TSX +0 07400 2 00103                                 
                 NWDS=(NRECS-1)*IRC+LRC                                             003   000004
 00017 CLA +0 50000 0 00024    00020 SUB +0 40200 0 00012    00021 XCA +0 13100 0 00000    00022 MPY +0 20000 0 00024   
 00023 XCA +0 13100 0 00000    00024 ADD +0 40000 0 00024    00025 STO +0 60100 0 00007                                 
                 NFLR=NWDS/LTRC                                                     004   000005
 00026 LDQ +0 56000 0 00007    00027 PXD -0 75400 0 00000    00030 LLS +0 76300 0 00000    00031 DVP +0 22100 0 00024   
 00032 STQ -0 60000 0 00024                                                                                             
                 NLEFT=XMOD  .(    NWDS,LTRC)                                       005   000006
 00033 TSX +0 07400 4 00001    00034 TXH +3 00000 0 00007    00035 TXH +3 00000 0 00024    00036 STO +0 60100 0 00006   
                 WHENEVER (NLEFT) .LE. 0, TRANSFER TO QQ0004                        006   000007
 00037 CLA +0 50000 0 00006    00040 SUB +0 40200 0 00011    00041 TZE +0 10000 0 00043    00042 TPL +0 12000 0 00044   
 00043 TRA +0 02000 0 00003                                                                                             
                 MLPH = NLEFT + LPREAM                                              007   000017
 00044 CLA +0 50000 0 00006    00045 ADD +0 40000 0 00024    00046 STO +0 60100 0 00005                                 
                 REM = MLPH - (MLPH/LPHYS)*LPHYS                                    008   000027
 00047 LDQ +0 56000 0 00005    00050 PXD -0 75400 0 00000    00051 LLS +0 76300 0 00000    00052 DVP +0 22100 0 00024   
 00053 MPY +0 20000 0 00024    00054 XCA +0 13100 0 00000    00055 CHS +0 76000 0 00002    00056 ADD +0 40000 0 00005   
 00057 STO +0 60100 0 00010                                                                                             
                 NLAST=(MLPH/LPHYS+(REM/REM))*LPHYS                                 009   000037
 00060 LDQ +0 56000 0 00010    00061 PXD -0 75400 0 00000    00062 LLS +0 76300 0 00000    00063 DVP +0 22100 0 00010   
 00064 STQ -0 60000 0 00140    00065 LDQ +0 56000 0 00005    00066 PXD -0 75400 0 00000    00067 LLS +0 76300 0 00000   
 00070 DVP +0 22100 0 00024    00071 XCA +0 13100 0 00000    00072 ADD +0 40000 0 00140    00073 XCA +0 13100 0 00000   
 00074 MPY +0 20000 0 00024    00075 STQ -0 60000 0 00024                                                               
                 TRANSFER TO QQ0005                                                 010   000047
 00076 TRA +0 02000 0 00004                                                                                             
      QQ0004     NLAST=0                                                            011   000057
 00077 CLA +0 50000 0 00011    00100 STO +0 60100 0 00024                                                               
      QQ0005     FUNCTION RETURN                                                    012   000067
 00101 TRA +0 02000 0 00134                                                                                             
                 INTEGER     NWDS  ,     NRECS ,     IRC   ,     LRC                013   000077
                 INTEGER     NFLR  ,     LTRC  ,     NLEFT ,     XMOD               014   000087
                 INTEGER     NLAST ,     LPREAM,     LPHYS                          015   000097
                 INTEGER   MLPH,     REM                                            016   000107
                 END OF FUNCTION                                                    017   000117
 00102 TSX +0 07400 4 00000    00103 TXH +3 00000 0 00000    00104 SXD -0 63400 1 00103    00105 SXA +0 63400 4 00134   
 00106 CLA +0 50000 4 00001    00107 STA +0 62100 0 00017    00110 CLA +0 50000 4 00002    00111 STA +0 62100 0 00022   
 00112 CLA +0 50000 4 00003    00113 STA +0 62100 0 00024    00114 CLA +0 50000 4 00004    00115 STA +0 62100 0 00031   
 00116 STO +0 60100 0 00035    00117 CLA +0 50000 4 00005    00120 STA +0 62100 0 00045    00121 CLA +0 50000 4 00006   
 00122 STA +0 62100 0 00052    00123 STA +0 62100 0 00053    00124 STA +0 62100 0 00070    00125 STA +0 62100 0 00074   
 00126 CLA +0 50000 4 00007    00127 STA +0 62100 0 00032    00130 CLA +0 50000 4 00010    00131 STA +0 62100 0 00075   
 00132 STA +0 62100 0 00100    00133 TRA +0 02000 2 00001    00134 AXT +0 77400 4 00000    00135 LXA +0 53400 2 00103   
 00136 LXD -0 53400 1 00103    00137 TRA +0 02000 4 00001                                                               
1     FAP ASSEMBLY LISTING  ...  ...  ...        FILE PRCODE 2,1
      00013  0767 00 0 00003         ALS     3  
      00014 -0763 00 0 00003         LGL     3  
      00015  2 00001 1 00013         TIX     *-2,1,1  
      00016  0602 00 0 00047         SLW     MESX+2   
      00017 -0500 00 4 00002         CAL     2,4
      00020 -0734 00 1 00000         PDX     ,1 
      00021 -0634 00 1 00030         SXD     INC,1    
      00022 -0634 00 1 00031         SXD     INC+1,1  
      00023  0634 00 1 00034         SXA     INC+4,1  
      00024  1 00003 1 00025         TXI     *+1,1,3  
      00025 -0634 00 1 00041         SXD     PRNT,1   
      00026  0734 00 1 00000         PAX     ,1 
      00027  0774 00 4 00050         AXT     MESX+3,4 
      00030  1 00000 1 00031  INC    TXI     *+1,1,** 
      00031  1 00000 4 00032         TXI     *+1,4,** 
      00032  0634 00 1 00035         SXA     FROM,1   
      00033  0634 00 4 00036         SXA     TO,4     
      00034  0774 00 1 00000         AXT     **,1     
      00035 -0500 00 1 00000  FROM   CAL     **,1     
      00036  0602 00 1 00000  TO     SLW     **,1     
      00037  2 00001 1 00035         TIX     *-2,1,1  
      00040  0074 00 4 00000         TSX     WRFLX,4  
      00041  0 00000 0 00045  PRNT           MESX,,** 
      00042  0774 00 1 00000  P1     AXT     **,1     
      00043  0774 00 4 00000  P4     AXT     **,4     
      00044  0020 00 4 00003         TRA     3,4
                              *     
      00045  622563604225     MESX   BCI     2,SET KEY CODE 
      00046  706023462425     
      00047                          BSS     12 
                                     END  
                  
        LITERALS  
      00063  000000000017     
      00064  506060600000     
1     FAP ASSEMBLY LISTING  ...  ...  ...        FILE PRCODE 3     P4     4
         36     TO    33
         30    INC    21,   22,   23
         35   FROM    32
         45   MESX    16,   27,   41
         41   PRNT    25
          0  WRFLX    40
          3 PRCODE     0
                  
0 NO ERROR IN ABOVE ASSEMBLY. 
1     MAD PROGRAM LISTING ... ... ...                 FILE  SETTIM   MAD            05/11/69    2015.2
-                 
                 ...SUBROUTINE TO SET UP JULIAN TIME FROM I/O SYSTEM TIME                               000010    
                 ...AND VICE-VERSA                                                                      000020    
                 ...                                                                                    000030    
                  EXTERNAL FUNCTION ( IOSTIM, JULIAN )                                            *001  000040    
                                                                                                        000050    
                  INSERT FILE DEFINE                                                              *002  000060    
                  DEFINE BINARY OPERATOR .X., PRECEDENCE SAME AS =                                *003   00010    
                  MODE STRUCTURE 0 .X. 0 TO 0                                                     *004   00020    
             CLA  A                                                                               *005   00030    
             LDQ  B                                                                               *006   00040    
             STQ  A                                                                               *007   00050    
             STO  B                                                                               *008   00060    
             OUT  Z                                                                               *009   00070    
             END                                                                                  *010   00080    
                                                                                                         00090    
                  MODE STRUCTURE 1 .X. 1 TO 1, SAME SEQUENCE AS 0 .X. 0                           *011   00100    
                  MODE STRUCTURE 2 .X. 2 TO 2, SAME SEQUENCE AS 0 .X. 0                           *012   00110    
                  MODE STRUCTURE 3 .X. 3 TO 3, SAME SEQUENCE AS 0 .X. 0                           *013   00120    
                  MODE STRUCTURE 4 .X. 4 TO 4, SAME SEQUENCE AS 0 .X. 0                           *014   00130    
                                                                                                         00140    
                                                                                                         00150    
                  DEFINE BINARY OPERATOR .R., PRECEDENCE SAME AS .RS.                             *015   00160    
                  MODE STRUCTURE 1 .R. 1 TO 1                                                     *016   00170    
             JMP  *+1,LA,*+3                                                                      *017   00180    
             SLW  T                                                                               *018   00190    
             JMP  *+10                                                                            *019   00200    
             JMP  *+3,AT,*+1                                                                      *020   00210    
             JMP  *+7,AC,*+1                                                                      *021   00220    
             JMP  *+4,MQ,*+7                                                                      *022   00230    
             JMP  *+1,AC,*+7                                                                      *023   00240    
             LRS  35                                                                              *024   00250    
             JMP  *+6                                                                             *025   00260    
             STQ  T                                                                               *026   00270    
             JMP  *+2                                                                             *027   00280    
             STO  T                                                                               *028   00290    
             LDQ  A                                                                               *029   00300    
             PXD                                                                                  *030   00310    
             DVP  B                                                                               *031   00320    
             OUT  AC                                                                              *032   00330    
             END                                                                                  *033   00340    
                                                                                                         00350    
                                                                                                         00360    
                                                                                                         00370    
                                                                                                         00380    
                                                                                                  *002  000070    
                  ENTRY TO SETJUL.                                                                *034  000080    
                 ...THIS ENTRY SETS JULIAN FROM IOSTIM.                                                 000090    
                 ...                                                                                    000100    
                  YR = ( IOSTIM .A. 777K9 ) .RS. 27                                               *035  000110    
                  MTH = ( IOSTIM .A. 74K7 ) .RS. 23                                               *036  000120    
                  DAY = ( IOSTIM .A. 37K6 ) .RS. 18                                               *037  000130    
                  SEC = ( IOSTIM .A. 777777K )                                                    *038  000140    
                 ...                                                                                    000150    
                  WHENEVER ( YR .R. 4 ) .E. 0 .AND. MTH .G. 2                                     *039  000160    
                   JULIAN = 1                                                                     *040  000170    
                  OTHERWISE                                                                       *041  000180    
                   JULIAN = 0                                                                     *042  000190    
                  END OF CONDITIONAL                                                              *043  000200    
                 ...                                                                                    000210    
                  WHENEVER MTH .G. 12 .OR. DAY .G. 365+JULIAN .OR. SEC .G. 86400,                 *044  000220    
                1    FUNCTION RETURN 0                                                            *044  000230    
                  YR = YR-65                                                                      *045  000240    
                  JULIAN = (YR*YRXX) + (JDAYTB(MTH)+DAY+JULIAN)*DAYXX + SEC                       *046  000250    
                  FUNCTION RETURN JULIAN                                                          *047  000260    
                 ...                                                                                    000270    
                  ENTRY TO SETIOT.                                                                *048  000280    
                 ...THIS ENTRY SETS IOSTIM FROM JULIAN                                                  000290    
                 ...                                                                                    000300    
                  YR = JULIAN/YRXX                                                                *049  000310    
                  DAY = (JULIAN-YRXX*YR)/ DAYXX                                                   *050  000320    
                  SEC = JULIAN .R. (YR*YRXX + DAY*DAYXX)                                          *051  000330    
                  YR = YR + 65                                                                    *052  000340    
                 ...                                                                                    000350    
                  WHENEVER DAY .G. 366 .OR. SEC .G. 86400, FUNCTION RETURN 0                      *053  000360    
      SETS1       THROUGH SETS1, FOR MTH = 1, 1, JDAYTB(MTH+1) .GE. DAY                           *054  000370    
                  WHENEVER MTH .L. 0 .OR. MTH .G. 12, FUNCTION RETURN 0                           *055  000380    
                  DAY = DAY - JDAYTB(MTH)                                                         *056  000400    
                  IOSTIM = (YR .LS. 27) .V. (MTH .LS. 23) .V. (DAY .LS. 18) .V.                   *057  000410    
                1    SEC                                                                          *057  000420    
                  FUNCTION RETURN IOSTIM                                                          *058  000430    
                 ...                                                                                    000440    
                 ...                                                                                    000450    
                  INTEGER YR,MTH,DAY,SEC,JULIAN,IOSTIM,YRXX,DAYXX,JDAYTB                          *059  000460    
                  DIMENSION JDAYTB(13)                                                            *060  000500    
                  VECTOR VALUES YRXX =  31536000                                                  *061  000510    
                  VECTOR VALUES DAYXX =  86400                                                    *062  000520    
                  VECTOR VALUES JDAYTB =0,0,31,59,90,120,151,181,212,243,273,304,334,365          *063  000530    
                  END OF FUNCTION                                                                 *064  000540    
                                         MODE STRUCTURE 0 .X. 0 TO 0          004    00020
 (THE NUMERIC FORM OF THE OPERATOR-MODE ARGUMENT IS    11100 )    
                 MODE STRUCTURE 1 .X. 1 TO 1, SAME SEQUENCE AS 0 .X. 0        011    00100
 (THE NUMERIC FORM OF THE OPERATOR-MODE ARGUMENT IS    11111 )    
                 MODE STRUCTURE 2 .X. 2 TO 2, SAME SEQUENCE AS 0 .X. 0        012    00110
 (THE NUMERIC FORM OF THE OPERATOR-MODE ARGUMENT IS    11122 )    
                 MODE STRUCTURE 3 .X. 3 TO 3, SAME SEQUENCE AS 0 .X. 0        013    00120
 (THE NUMERIC FORM OF THE OPERATOR-MODE ARGUMENT IS    11133 )    
                 MODE STRUCTURE 4 .X. 4 TO 4, SAME SEQUENCE AS 0 .X. 0        014    00130
 (THE NUMERIC FORM OF THE OPERATOR-MODE ARGUMENT IS    11144 )    
                                         MODE STRUCTURE 1 .R. 1 TO 1          016    00170
 (THE NUMERIC FORM OF THE OPERATOR-MODE ARGUMENT IS    11211 )    
1MAD PROGRAM,TYPE NOV 1963      (ALL NUMBERS ARE OCTAL)     
0TOTAL LOCATIONS   00354 TRANSFER VECTOR LENGTH  00001 PROGRAM BEGINS    00047
0 PROGRAM IS AN EXTERNAL FUNCTION.   THE FOLLOWING ARE ENTRIES    
      SETIOT 00166   0        SETJUL 00050   0                                                                          
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)  
      DAY    00002   1        JDAYTB 00021 A 1        SEC    00023   1        YR     00024   1        YRXX   00025 A 1  
      DAYXX  00003 A 1        MTH    00022   1        SETS1  00001   4                                                  
0FUNCTION DICTIONARY    
      EXIT   00000   0                                                                                                  
0ABSOLUTE CONSTANTS     
 00040 +000000000556     00036 +000000000101     00032 +000000000014     00037 +000000000555     00041 +000000250600    
 00026 +000000000000     00031 +000000000004     00030 +000000000002     00042 +000000777777     00033 +000000000022    
 00043 +000037000000     00034 +000000000027     00044 +000740000000     00035 +000000000033     00046 -377000000000    
 00027 +000000000001     00045 +233000000000                                                                            
0PROGRAM    
                 EXTERNAL FUNCTION ( IOSTIM, JULIAN )                               001   000040
                 INSERT FILE DEFINE                                                 002   000060
                 DEFINE BINARY OPERATOR .X., PRECEDENCE SAME AS =                   003    00010
                 MODE STRUCTURE 0 .X. 0 TO 0                                        004    00020
                 MODE STRUCTURE 1 .X. 1 TO 1, SAME SEQUENCE AS 0 .X. 0              011    00100
                 MODE STRUCTURE 2 .X. 2 TO 2, SAME SEQUENCE AS 0 .X. 0              012    00110
                 MODE STRUCTURE 3 .X. 3 TO 3, SAME SEQUENCE AS 0 .X. 0              013    00120
                 MODE STRUCTURE 4 .X. 4 TO 4, SAME SEQUENCE AS 0 .X. 0              014    00130
                 DEFINE BINARY OPERATOR .R., PRECEDENCE SAME AS .RS.                015    00160
                 MODE STRUCTURE 1 .R. 1 TO 1                                        016    00170
                 ENTRY TO SETJUL.                                                   034   000080
 00047 TRA +0 02000 0 00052    00050 SXA +0 63400 2 00317    00051 TSX +0 07400 2 00317                                 
                 YR = ( IOSTIM .A. 777K9 ) .RS. 27                                  035   000110
 00052 CAL -0 50000 0 00024    00053 ANA -0 32000 0 00046    00054 SLW +0 60200 0 00350    00055 CAL -0 50000 0 00035   
 00056 STA +0 62100 0 00060    00057 CAL -0 50000 0 00350    00060 LGR -0 76500 0 00000    00061 SLW +0 60200 0 00024   
                 MTH = ( IOSTIM .A. 74K7 ) .RS. 23                                  036   000120
 00062 CAL -0 50000 0 00024    00063 ANA -0 32000 0 00044    00064 SLW +0 60200 0 00350    00065 CAL -0 50000 0 00034   
 00066 STA +0 62100 0 00070    00067 CAL -0 50000 0 00350    00070 LGR -0 76500 0 00000    00071 SLW +0 60200 0 00022   
                 DAY = ( IOSTIM .A. 37K6 ) .RS. 18                                  037   000130
 00072 CAL -0 50000 0 00024    00073 ANA -0 32000 0 00043    00074 SLW +0 60200 0 00350    00075 CAL -0 50000 0 00033   
 00076 STA +0 62100 0 00100    00077 CAL -0 50000 0 00350    00100 LGR -0 76500 0 00000    00101 SLW +0 60200 0 00002   
                 SEC = ( IOSTIM .A. 777777K )                                       038   000140
 00102 CAL -0 50000 0 00024    00103 ANA -0 32000 0 00042    00104 SLW +0 60200 0 00023                                 
                 W'R ( YR .R. 4 ) .E. 0 .AND. MTH .G. 2                             039   000160
 00105 CLA +0 50000 0 00022    00106 SUB +0 40200 0 00030    00107 TZE +0 10000 0 00121    00110 TMI -0 12000 0 00121   
 00111 LDQ +0 56000 0 00024    00112 PXD -0 75400 0 00000    00113 DVP +0 22100 0 00031    00114 SUB +0 40200 0 00026   
 00115 TNZ -0 10000 0 00121                                                                                             
                  JULIAN = 1                                                        040   000170
 00116 CLA +0 50000 0 00027    00117 STO +0 60100 0 00024                                                               
                 O'E                                                                041   000180
 00120 TRA +0 02000 0 00123                                                                                             
                  JULIAN = 0                                                        042   000190
 00121 CLA +0 50000 0 00026    00122 STO +0 60100 0 00024                                                               
                 E'L                                                                043   000200
                 W'R MTH .G. 12 .OR. DAY .G. 365+JULIAN .OR. SEC .G. 86400,         044   000220
                1   FUNCTION RETURN 0                                               044   000230
 00123 CLA +0 50000 0 00023    00124 SUB +0 40200 0 00041    00125 TZE +0 10000 0 00127    00126 TPL +0 12000 0 00141   
 00127 CLA +0 50000 0 00037    00130 ADD +0 40000 0 00024    00131 CHS +0 76000 0 00002    00132 ADD +0 40000 0 00002   
 00133 TZE +0 10000 0 00135    00134 TPL +0 12000 0 00141    00135 CLA +0 50000 0 00022    00136 SUB +0 40200 0 00032   
 00137 TZE +0 10000 0 00143    00140 TMI -0 12000 0 00143    00141 CLA +0 50000 0 00026    00142 TRA +0 02000 0 00344   
                 YR = YR-65                                                         045   000240
 00143 CLA +0 50000 0 00024    00144 SUB +0 40200 0 00036    00145 STO +0 60100 0 00024                                 
                 JULIAN = (YR*YRXX) + (JDAYTB(MTH)+DAY+JULIAN)*DAYXX + SEC          046   000250
 00146 LXA +0 53400 1 00022    00147 CLA +0 50000 1 00021    00150 ADD +0 40000 0 00002    00151 ADD +0 40000 0 00024   
 00152 XCA +0 13100 0 00000    00153 MPY +0 20000 0 00003    00154 STQ -0 60000 0 00350    00155 LDQ +0 56000 0 00024   
 00156 MPY +0 20000 0 00025    00157 XCA +0 13100 0 00000    00160 ADD +0 40000 0 00350    00161 ADD +0 40000 0 00023   
 00162 STO +0 60100 0 00024                                                                                             
                 F'N JULIAN                                                         047   000260
 00163 CLA +0 50000 0 00024    00164 TRA +0 02000 0 00344                                                               
                 ENTRY TO SETIOT.                                                   048   000280
 00165 TRA +0 02000 0 00170    00166 SXA +0 63400 2 00317    00167 TSX +0 07400 2 00317                                 
                 YR = JULIAN/YRXX                                                   049   000310
 00170 LDQ +0 56000 0 00024    00171 PXD -0 75400 0 00000    00172 LLS +0 76300 0 00000    00173 DVP +0 22100 0 00025   
 00174 STQ -0 60000 0 00024                                                                                             
                 DAY = (JULIAN-YRXX*YR)/ DAYXX                                      050   000320
 00175 LDQ +0 56000 0 00025    00176 MPY +0 20000 0 00024    00177 XCA +0 13100 0 00000    00200 CHS +0 76000 0 00002   
 00201 ADD +0 40000 0 00024    00202 LRS +0 76500 0 00043    00203 DVP +0 22100 0 00003    00204 STQ -0 60000 0 00002   
                 SEC = JULIAN .R. (YR*YRXX + DAY*DAYXX)                             051   000330
 00205 LDQ +0 56000 0 00002    00206 MPY +0 20000 0 00003    00207 STQ -0 60000 0 00350    00210 LDQ +0 56000 0 00024   
 00211 MPY +0 20000 0 00025    00212 XCA +0 13100 0 00000    00213 ADD +0 40000 0 00350    00214 STO +0 60100 0 00350   
 00215 LDQ +0 56000 0 00024    00216 PXD -0 75400 0 00000    00217 DVP +0 22100 0 00350    00220 STO +0 60100 0 00023   
                 YR = YR + 65                                                       052   000340
 00221 CLA +0 50000 0 00024    00222 ADD +0 40000 0 00036    00223 STO +0 60100 0 00024                                 
                 W'R DAY .G. 366 .OR. SEC .G. 86400, FUNCTION RETURN 0              053   000360
 00224 CLA +0 50000 0 00023    00225 SUB +0 40200 0 00041    00226 TZE +0 10000 0 00230    00227 TPL +0 12000 0 00234   
 00230 CLA +0 50000 0 00002    00231 SUB +0 40200 0 00040    00232 TZE +0 10000 0 00236    00233 TMI -0 12000 0 00236   
 00234 CLA +0 50000 0 00026    00235 TRA +0 02000 0 00344                                                               
      SETS1      T'H SETS1, FOR MTH = 1, 1, JDAYTB(MTH+1) .GE. DAY                  054   000370
 00236 CLA +0 50000 0 00027    00237 STO +0 60100 0 00022    00240 TRA +0 02000 0 00244    00241 CLA +0 50000 0 00022   
 00242 ADD +0 40000 0 00027    00243 STO +0 60100 0 00022    00244 CLA +0 50000 0 00022    00245 ADD +0 40000 0 00027   
 00246 PAX +0 73400 1 00000    00247 CLA +0 50000 1 00021    00250 SUB +0 40200 0 00002    00251 TZE +0 10000 0 00254   
 00252 TPL +0 12000 0 00254    00253 TRA +0 02000 0 00241                                                               
                 W'R MTH .L. 0 .OR. MTH .G. 12, FUNCTION RETURN 0                   055   000380
 00254 CLA +0 50000 0 00022    00255 SUB +0 40200 0 00032    00256 TZE +0 10000 0 00260    00257 TPL +0 12000 0 00264   
 00260 CLA +0 50000 0 00022    00261 SUB +0 40200 0 00026    00262 TZE +0 10000 0 00266    00263 TPL +0 12000 0 00266   
 00264 CLA +0 50000 0 00026    00265 TRA +0 02000 0 00344                                                               
                 DAY = DAY - JDAYTB(MTH)                                            056   000400
 00266 LXA +0 53400 2 00022    00267 CLA +0 50000 0 00002    00270 SUB +0 40200 2 00021    00271 STO +0 60100 0 00002   
                 IOSTIM = (YR .LS. 27) .V. (MTH .LS. 23) .V. (DAY .LS. 18) .V.      057   000410
                1   SEC                                                             057   000420
 00272 CAL -0 50000 0 00033    00273 STA +0 62100 0 00275    00274 CAL -0 50000 0 00002    00275 ALS +0 76700 0 00000   
 00276 SLW +0 60200 0 00350    00277 CAL -0 50000 0 00034    00300 STA +0 62100 0 00302    00301 CAL -0 50000 0 00022   
 00302 ALS +0 76700 0 00000    00303 SLW +0 60200 0 00351    00304 CAL -0 50000 0 00035    00305 STA +0 62100 0 00307   
 00306 CAL -0 50000 0 00024    00307 ALS +0 76700 0 00000    00310 ORA -0 50100 0 00351    00311 ORA -0 50100 0 00350   
 00312 ORA -0 50100 0 00023    00313 SLW +0 60200 0 00024                                                               
                 F'N IOSTIM                                                         058   000430
 00314 CLA +0 50000 0 00024    00315 TRA +0 02000 0 00344                                                               
                 INTEGER YR,MTH,DAY,SEC,JULIAN,IOSTIM,YRXX,DAYXX,JDAYTB             059   000460
                 DIMENSION JDAYTB(13)                                               060   000500
                 VECTOR VALUES YRXX =  31536000                                     061   000510
 00025     +0 00170 2 31600                                                                                             
                 VECTOR VALUES DAYXX =  86400                                       062   000520
 00003     +0 00000 2 50600                                                                                             
                 V'S JDAYTB =0,0,31,59,90,120,151,181,212,243,273,304,334,365       063   000530
 00004     +0 00000 0 00555    00005     +0 00000 0 00516    00006     +0 00000 0 00460    00007     +0 00000 0 00421   
 00010     +0 00000 0 00363    00011     +0 00000 0 00324    00012     +0 00000 0 00265    00013     +0 00000 0 00227   
 00014     +0 00000 0 00170    00015     +0 00000 0 00132    00016     +0 00000 0 00073    00017     +0 00000 0 00037   
 00020     +0 00000 0 00000    00021     +0 00000 0 00000                                                               
                 END OF FUNCTION                                                    064   000540
 00316 TSX +0 07400 4 00000    00317 TXH +3 00000 0 00000    00320 SXD -0 63400 1 00317    00321 SXA +0 63400 4 00344   
 00322 CLA +0 50000 4 00001    00323 STA +0 62100 0 00052    00324 STA +0 62100 0 00062    00325 STA +0 62100 0 00072   
 00326 STA +0 62100 0 00102    00327 STA +0 62100 0 00313    00330 STA +0 62100 0 00314    00331 CLA +0 50000 4 00002   
 00332 STA +0 62100 0 00117    00333 STA +0 62100 0 00122    00334 STA +0 62100 0 00130    00335 STA +0 62100 0 00151   
 00336 STA +0 62100 0 00162    00337 STA +0 62100 0 00163    00340 STA +0 62100 0 00170    00341 STA +0 62100 0 00201   
 00342 STA +0 62100 0 00215    00343 TRA +0 02000 2 00001    00344 AXT +0 77400 4 00000    00345 LXA +0 53400 2 00317   
 00346 LXD -0 53400 1 00317    00347 TRA +0 02000 4 00001                                                               
1      XMOD          REMAINDERING ARG1(MOD ARG2)                                 05/11/69 2015.2 PAGE 1     
                  
                              *              CALLING SEQUENCE TSX XMOD,4
                              *                               TXH ARG1(FIXED) 
                              *                               TXH ARG2(FIXED) 
                              *                               3,4 RETURN
                              *              FUNCTION FIXED 
                       00002         ENTRY   XMOD     
                  
            LINKAGE DIRECTOR  
      00000  000000000000     
      00001  674446246060     
                  
      00002  0760 00 0 00000  XMOD   CLM  
      00003  0560 60 4 00001         LDQ*    1,4
 A    00004  0763 00 0 00000         LLS                   SIGN OF MQ TO AC   
      00005  0221 60 4 00002         DVP*    2,4
      00006  0020 00 4 00003         TRA     3,4
                                                           FUNCTION IN ARITHMETIC AC FIXED
                                     END  
1      XMOD          REMAINDERING ARG1(MOD ARG2)                                 05/11/69 2015.2 PAGE 1     
                        POST PROCESSOR ASSEMBLY DATA  
                  
          7 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM  
                  
0REFERENCES TO DEFINED SYMBOLS      
          2   XMOD     0
                  
0 NO ERROR IN ABOVE ASSEMBLY. 




DSLOAD   BCD 05/11/69 2037.2   44083         00000    
1            LOAD SECONDARY STORAGE (TIME-SHARING VERSION)...M.J.BAILEY,2/1/65   05/11/69 2001.5 PAGE 1     
                  
                              *     
                                     EXTERN  INITTF,OPENDF  
                                     EXTERN  LTFILE,TERMTF,GETLSG 
                                     EXTERN  ATTACH,TAPFIL,MOUNT,VERIFY 
                                     EXTERN  WRFLX,FERRTN,TILOCK,UMOUNT,CLOSE,
                                     EXTERN  SETCLS,SETCLC,CHNCOM,SLEEP 
                                     EXTERN  CHFILE,DELFIL  
                              *     
                                     INSERT  BMCRSC   
                              *     
                              *  ZERO-IZE A THROUGH A+X-1   
                              *     
                               CLEAR MACRO   A,X
                                     AXT     X,1
                                     STZ     A+X,1    
                                     TIX     *-1,1,1  
                               CLEAR END  
                              *     
                              *      MOVE X WORDS FROM A ET SEQ TO B ET SEQ   
                              *     
                               MOVE  MACRO   X,A,B    
                                     AXT     X,1
                                     CAL     A+X,1    
                                     SLW     B+X,1    
                                     TIX     *-2,1,1  
                               MOVE  END  
                              *     
                              *  PRINT ONE LINE COMMENT     
                              *     
                              PRLINE MACRO   COMNT,NWC,LOC  
                                     TSX     WRFLX,4  
                                             LOC,,NWC 
                                     RMT  
                               LOC   BCI     NWC,COMNT
                                     RMT  
                              PRLINE END  
                              *     
                              *     
                              *      EXECUTE INST. IN CORE A
                              *     
                              *     
                              EXEC   MACRO   OPC,ADD  
                                     TSX     $GETA,7  
                                     OPC     ADD
                              EXEC   END  
                              *     
                              *      GET KEY SETTING VIA SUPERVISOR, SET ABANTP, NOCHAN IF APPROPRIATE
                              *     
                              GETSIG MACRO
                                     TSX     GETLSG,4 
                              GETSIG END  
                              *     
                              *      TEST WHETHER 2ND TAPE COPY IS NEEDED, IF NOT GO TO SKIP    
                              *     
                              SKIFNB MACRO   SKIP     
                                     CLA     NOCHAN   
1            LOAD SECONDARY STORAGE (TIME-SHARING VERSION)...M.J.BAILEY,2/1/65   05/11/69 2001.5 PAGE 2     
                  
                                     SUB     =1 
                                     TZE     SKIP     
                              SKIFNB END  
                              *     
                              *      PRINT AN N-WORD MESSAGE FROM  MESSGE     
                              *     
                              PRM    MACRO   MESSGE,N 
                                     TSX     WRFLX,4  
                                             MESSGE,,N
                              PRM    END  
                              *     
                              *      COMPARE 2 SETS OF N CONSECUTIVE WORDS IN A ETC., AND B ETC. ,    
                              *      AND IF THEY DO NOT ALL MATCH, GO TO NF, OR OTHERWISE CONTINUE.   
                              *     
                              CMPWDS MACRO   N,A,B,NF 
                                     AXT     N,1
                                     CAL     A+N,1    
                                     LAS     B+N,1    
                                     TRA     NF 
                                     TRA     *+2
                                     TRA     NF 
                                     TIX     *-5,1,1  
                              CMPWDS END  
                              *     
                              *      WAIT FOR I/O ON FILE (A,B) TO END, GO TO E IF ERROR OCCURRED     
                              *     
                              WAIT   MACRO   A,B,E    
                                     TSX     FWAIT,4  
                                     PTH     A  
                                     PTH     B  
                                     PTH     E  
                              WAIT   END  
                              *     
                              *      CLOSE THE FILE (A,B)   
                              *     
                              CLOSE  MACRO   A,B
                                     TSX     CLOSE,4  
                                     PTH     A  
                                     PTH     B  
                              CLOSE  END  
                              *     
                              *  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -     
                              *      INITIALIZE I/O SYSTEM AND VARIABLES
                              *  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  
                              *     
                  
      00000  314531636326     INITTF
      00001  464725452426     OPENDF
      00002  436326314325     LTFILE
      00003  632551446326     TERMTF
      00004  272563436227     GETLSG
      00005  216363212330     ATTACH
      00006  632147263143     TAPFIL
      00007  444664456360     MOUNT 
      00010  652551312670     VERIFY
      00011  665126436760     WRFLX 
1            LOAD SECONDARY STORAGE (TIME-SHARING VERSION)...M.J.BAILEY,2/1/65   05/11/69 2001.5 PAGE 3     
                  
      00012  262551516345     FERRTN
      00013  633143462342     TILOCK
      00014  644446644563     UMOUNT
      00015  234346622560     CLOSE 
      00016  622563234362     SETCLS
      00017  622563234323     SETCLC
      00020  233045234644     CHNCOM
      00021  624325254760     SLEEP 
      00022  233026314325     CHFILE
      00023  242543263143     DELFIL
      00024  475145632551     PRNTER
      00025  216242464751     ASKOPR
      00026  512523214760     RECAP 
                  
      00027  0760 00 0 00016         LMTM 
      00030 -0500 00 0 00452         CAL     =H C0056 
      00031  0602 00 0 74442         SLW     DU 
      00032 -0500 00 0 00451         CAL     =H 99999 
      00033  0602 00 0 74441         SLW     DP 
                              *     
                              *     
      00034 -0500 00 0 00445         CAL     =H.LOAD. 
      00035  0602 00 0 74440         SLW     LFNA     
      00036 -0500 00 0 00446         CAL     =H.TAPE. 
      00037  0602 00 0 74437         SLW     LFNB     
      00040  0500 00 0 00445         CLA     =H.LOAD. 
      00041  0602 00 0 74422         SLW     BFNA     
      00042  0500 00 0 00443         CLA     =HB.COPY 
      00043  0602 00 0 74421         SLW     BFNB     
      00044  0074 00 4 00005         TSX     ATTACH,4 
 TD   00045  3 00000 0 74442         TXH     DU 
 TD   00046  3 00000 0 74441         TXH     DP 
                              *     
      00047  0074 00 4 00012         TSX     FERRTN,4      SET TRANSFER ADDRESS FOR UNSPECIFIED 
      00050  0 00000 0 00072         PZE     ELOC          I/O SYSTEM ERROR RETURNS 
      00051  0074 00 4 00013         TSX     TILOCK,4      NO TRAP GO DORMANT IF EVER READ-     
      00052  0 00000 0 00435         PZE     =0            INTERLOCKED FROM A USER'S FILE.
                              *     
      00053  0074 00 4 00016         TSX     SETCLS,4 
      00054  0 00001 0 00276         PZE     COMD,,1  
      00055  0074 00 4 00016         TSX     SETCLS,4 
      00056  0 00002 0 00276         PZE     COMD,,2  
      00057 -0500 00 0 00404         CAL     CHNWRD   
      00060  0074 00 4 00017         TSX     SETCLC,4 
      00061  0074 00 4 00015         TSX     CLOSE,4       CLOSE ALL FILES    
 TD   00062  3 00000 0 00442         TXH     =HALL    
 TD   00063  3 00000 0 00447         TXH     =-0
 TD   00064  3 00000 0 00065         TXH     *+1
      00065  0074 00 4 00014         TSX     UMOUNT,4 
 TD   00066  3 00000 0 00442         TXH     =HALL    
      00067  2 00323 0 00314         TIX     PUMT,,LPUMT    
 TD   00070  3 00000 0 00071         TXH     *+1
      00071  0020 00 0 00101         TRA     LEH
                              *     
      00072  0634 00 4 00076  ELOC   SXA     ELOC4,4       UNSPECIFIED I/O SYSTEM ERROR OCCURRED
      00073  0074 00 4 00011         TSX     WRFLX,4  
1            LOAD SECONDARY STORAGE (TIME-SHARING VERSION)...M.J.BAILEY,2/1/65   05/11/69 2001.5 PAGE 4     
                  
      00074  0 00014 0 00410                 MESX,,12 
      00075  0074 00 4 00024         TSX     $PRNTER,4
      00076  0774 00 4 00000  ELOC4  AXT     **,4     
      00077  0020 00 4 00001         TRA     1,4           RETURN TO I/O SYSTEM CALLER    
                              *     
                              *     
                              *      LOAD ALL TAPE FILES BUT THE FIRST  
                              *  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  
                              *     
      00100  0074 00 4 00003  LEG    TSX     TERMTF,4      CLOSE,UNMOUNT BOTH COPIES OF LOAD TAPE FILE
                              *     
      00101  0074 00 4 00025  LEH    TSX     $ASKOPR,4
      00102  3 00006 0 00365         PTH     MESA,,6  
      00103  3 00004 0 00257         PTH     LEV,,STOPLD    
      00104  3 00003 0 00401         PTH     MESEY,,3 
      00105  3 00001 0 00106         PTH     *+1,,CTINUE    
                              *     
      00106  0500 00 0 00441         CLA     =11           (11 AND 12)  
      00107  0601 00 0 74420         STO     AUN           CHANNEL A UNIT NO. 
      00110  0400 00 0 00436         ADD     =1 
      00111  0601 00 0 74417         STO     BUN           CHANNEL B UNIT NO. 
                              *     
      00112  0074 00 4 00022         TSX     CHFILE,4 
 TD   00113  3 00000 0 74440         TXH     LFNA     
 TD   00114  3 00000 0 74437         TXH     LFNB     
 TD   00115  3 00000 0 00435         TXH     =0 
 TD   00116  3 00000 0 00447         TXH     =-0
 TD   00117  3 00000 0 00447         TXH     =-0
 TD   00120  3 00000 0 00121         TXH     *+1
      00121  0074 00 4 00023         TSX     DELFIL,4 
 TD   00122  3 00000 0 74440         TXH     LFNA     
 TD   00123  3 00000 0 74437         TXH     LFNB     
 TD   00124  3 00000 0 00125         TXH     *+1
      00125  0074 00 4 00022         TSX     CHFILE,4 
 TD   00126  3 00000 0 74422         TXH     BFNA     
 TD   00127  3 00000 0 74421         TXH     BFNB     
 TD   00130  3 00000 0 00435         TXH     =0 
 TD   00131  3 00000 0 00447         TXH     =-0
 TD   00132  3 00000 0 00447         TXH     =-0
 TD   00133  3 00000 0 00134         TXH     *+1
      00134  0074 00 4 00023         TSX     DELFIL,4 
 TD   00135  3 00000 0 74422         TXH     BFNA     
 TD   00136  3 00000 0 74421         TXH     BFNB     
 TD   00137  3 00000 0 00140         TXH     *+1
      00140  0074 00 4 00006         TSX     TAPFIL,4      DECLARE LOAD TAPE FILE TO BE UNIT AUN
 TD   00141  3 00000 0 74440         TXH     LFNA     
 TD   00142  3 00000 0 74437         TXH     LFNB     
 TD   00143  3 00000 0 74420         TXH     AUN
 TD   00144  3 00000 0 00436         TXH     =1 
      00145  0074 00 4 00006         TSX     TAPFIL,4      DECLARE CHANNEL B LOAD FILE TO BE UNIT BUN 
 TD   00146  3 00000 0 74422         TXH     BFNA     
 TD   00147  3 00000 0 74421         TXH     BFNB     
 TD   00150  3 00000 0 74417         TXH     BUN
 TD   00151  3 00000 0 00436         TXH     =1 
                              *     
      00152  0500 00 0 00437  LEI    CLA     =2 
1            LOAD SECONDARY STORAGE (TIME-SHARING VERSION)...M.J.BAILEY,2/1/65   05/11/69 2001.5 PAGE 5     
                  
      00153  0601 00 0 74443         STO     NOCHAN   
      00154  0600 00 0 74444         STZ     ABANTP   
      00155                          PRLINE  (DOUBLE-CHANNEL LOAD IS ASSUMED FOR NEXT LOAD FILE,),9   
      00155  0074 00 4 00011         TSX     WRFLX,4                                                          .001
      00156  0 00011 0 00424                 ..001,,9                                                         .001
                                     RMT                                                                      .001
                              ..001  BCI     9,DOUBLE-CHANNEL LOAD IS ASSUMED FOR NEXT LOAD FILE,             .001
                                     RMT                                                                      .001
      00157  0074 00 4 00025         TSX     $ASKOPR,4
      00160  3 00006 0 00373         PTH     MESB,,6  
      00161  3 00006 0 00164         PTH     LEII,,SWCHAN   
      00162  3 00003 0 00401         PTH     MESEY,,3 
      00163  3 00001 0 00164         PTH     LEII,,CTINUE   
      00164  0074 00 4 00007  LEII   TSX     MOUNT,4  
 TD   00165  3 00000 0 00436         TXH     =1 
 TD   00166  3 00000 0 74420         TXH     AUN
      00167  2 00353 0 00343         TIX     MTP,,LMTP
                              *     
                              *      VERIFY NEXT TAPE FILE  
                              *     
      00170                          MOVE    4,NFTID,LABEL  
      00170  0774 00 1 00004         AXT     4,1                                                              .001
      00171 -0500 00 1 00304         CAL     NFTID+4,1                                                        .001
      00172  0602 00 1 74416         SLW     LABEL+4,1                                                        .001
      00173  2 00001 1 00171         TIX     *-2,1,1                                                          .001
      00174  0074 00 4 00010         TSX     VERIFY,4      CHECK MOUNTED TAPE 
 TD   00175  3 00000 0 74420         TXH     AUN
      00176  3 00004 0 74412         TXH     LABEL,,4 
 TD   00177  3 00000 0 00201         TXH     LEK           TRANSFER IF NOT A NEW FILE TAPE
      00200  0020 00 0 00235         TRA     LEP           SKIP IF NO UDT'S LOADED YET    
                              *     
      00201                   LEK    MOVE    4,SDTID,LABEL  
      00201  0774 00 1 00004         AXT     4,1                                                              .001
      00202 -0500 00 1 00310         CAL     SDTID+4,1                                                        .001
      00203  0602 00 1 74416         SLW     LABEL+4,1                                                        .001
      00204  2 00001 1 00202         TIX     *-2,1,1                                                          .001
      00205  0074 00 4 00010         TSX     VERIFY,4      CHECK MOUNTED TAPE 
 TD   00206  3 00000 0 74420         TXH     AUN
      00207  3 00004 0 74412         TXH     LABEL,,4 
 TD   00210  3 00000 0 00212         TXH     LEM           TRANSFER IF NOT SYSTEM FILES TAPE    
      00211  0020 00 0 00235         TRA     LEP           SKIP IF SYSTEM FILES NOT PREVIOUSLY MOUNTED
                              *     
      00212                   LEM    MOVE    4,UDTID,LABEL  
      00212  0774 00 1 00004         AXT     4,1                                                              .001
      00213 -0500 00 1 00314         CAL     UDTID+4,1                                                        .001
      00214  0602 00 1 74416         SLW     LABEL+4,1                                                        .001
      00215  2 00001 1 00213         TIX     *-2,1,1                                                          .001
      00216  0074 00 4 00010         TSX     VERIFY,4      CHECK MOUNTED TAPE 
 TD   00217  3 00000 0 74420         TXH     AUN
      00220  3 00004 0 74412         TXH     LABEL,,4 
 TD   00221  3 00000 0 00224         TXH     LEMA          TRANSFER IF UNUSUAL CONDITION  
 TD   00222  3 00000 0 00341         TXH     TEMP          TYPE   
      00223  0020 00 0 00235         TRA     LEP           SKIP IF VERIFY O.K.
                              *     
      00224  0500 00 0 00341  LEMA   CLA     TEMP     
      00225  0402 00 0 00440         SUB     =7 
1            LOAD SECONDARY STORAGE (TIME-SHARING VERSION)...M.J.BAILEY,2/1/65   05/11/69 2001.5 PAGE 6     
                  
      00226  0100 00 0 00231         TZE     LEO           SKIP IF WRONG TAPE 
      00227  0074 00 4 00024         TSX     $PRNTER,4     OTHER ERROR, TRY AGAIN   
      00230  0020 00 0 00152         TRA     LEI
                              *     
                              *     
      00231  0074 00 4 00014  LEO    TSX     UMOUNT,4      WRONG TAPE - HAVE IT TAKEN OFF 
 TD   00232  3 00000 0 74420         TXH     AUN
      00233  2 00340 0 00324         TIX     WRNGTP,,LWG    
      00234  0020 00 0 00152         TRA     LEI
                              *     
                              *      START READING NEXT TAPE FILE AND SKIP OVER 1ST MFD ON IT   
                              *     
      00235  0074 00 4 00004  LEP    TSX     GETLSG,4 
      00236                          SKIFNB  LEIB2    
      00236  0500 00 0 74443         CLA     NOCHAN                                                           .001
      00237  0402 00 0 00436         SUB     =1                                                               .001
      00240  0100 00 0 00245         TZE     LEIB2                                                            .001
      00241  0074 00 4 00007         TSX     MOUNT,4  
 TD   00242  3 00000 0 00437         TXH     =2 
 TD   00243  3 00000 0 74417         TXH     BUN
      00244  2 00364 0 00354         TIX     MTPB,,LMTPB    
      00245  0074 00 4 00000  LEIB2  TSX     INITTF,4      OPEN NEXT LOAD TAPE FILE, SPACE OVER AND   
      00246  0020 00 0 00100         TRA     LEG           ABANDON TAPE FILE RETURN 
                              *     
      00247  0074 00 4 00001         TSX     OPENDF,4      INIT'LIZE READ FROM 1ST DUMPED FILE ON TAPE
 TD   00250  3 00000 0 00252         TXH     LERA          READ ERROR   
 TD   00251  3 00000 0 00100         TXH     LEG           ABANDON TAPE FILE  
                              *     
                              *      LOAD BODY OF THIS DUMP TAPE FILE   
                              *      DOWN TO M.F.D. AT END OF TAPE.     
                              *     
      00252  0074 00 4 00002  LERA   TSX     LTFILE,4      SKIP 1ST MFD, LOAD DOWN TO MFD AT END/TAPE 
      00253  0074 00 4 00005         TSX     ATTACH,4 
      00254  3 00000 0 74442         PTH     DU 
      00255  3 00000 0 74441         PTH     DP 
      00256  0020 00 0 00100         TRA     LEG           RETURN FOR NEXT FILE     
                              *     
      00257  0074 00 4 00026  LEV    TSX     $RECAP,4 
                              *     
      00260  0074 00 4 00005         TSX     ATTACH,4 
 TD   00261  3 00000 0 74442         TXH     DU 
 TD   00262  3 00000 0 74441         TXH     DP 
                              *     
      00263  0074 00 4 00023         TSX     DELFIL,4 
 TD   00264  3 00000 0 00450         TXH     =HRESTOR 
 TD   00265  3 00000 0 00444         TXH     =HFILE.1 
 TD   00266  3 00000 0 00267         TXH     *+1
      00267  0074 00 4 00016         TSX     SETCLS,4 
      00270  0 00001 0 00405         PZE     DPCOM,,1 
      00271  0074 00 4 00016         TSX     SETCLS,4      SET 'RESUME DAEMXA' AS 2ND COMMAND IN CHAIN
      00272  0 00002 0 00405         PZE     DPCOM,,2 
      00273 -0500 00 0 00404         CAL     CHNWRD        SET THE CLC WITH THE 2 COMMANDS IN CHAIN,  
      00274  0074 00 4 00017         TSX     SETCLC,4      AND TO START FROM 1ST POSITION IN THE CHAIN
      00275  0074 00 4 00020         TSX     CHNCOM,4      EXECUTE DUMP PROGRAM CHAIN     
                              *     
                              * - - - - - - - - - - - - - - - - - - - - 
1            LOAD SECONDARY STORAGE (TIME-SHARING VERSION)...M.J.BAILEY,2/1/65   05/11/69 2001.5 PAGE 7     
                  
                              *      CONSTANTS, VARIABLES, ETC.   
                              * - - - - - - - - - - - - - - - - - - - - 
                              *     
      00276  246243462124     COMD   BCI     1,DSLOAD 
      00277 -377777777777            OCT     777777777777   
      00300  602351252163     NFTID  BCI     4, CREATED-FILE DUMP TAPE  
      00304  606270626325     SDTID  BCI     4, SYSTEM-FILES DUMP TAPE  
      00310  606462255162     UDTID  BCI     4, USERS'-FILES DUMP TAPE  
      00314  604721453123     PUMT   BCI     7, PANIC UNMOUNT, RE-READY THESE LOAD TAPES  
      00323  0 00000 0 00007  LPUMT  PZE     *-PUMT   
      00324  603144472551     WRNGTP BCI     8, IMPERMISSIBLE REEL MOUNTED FOR DISK RELOAD
      00334  604743252162            BCI     4, PLEASE TAKE IT OFF
      00340  0 00000 0 00014  LWG    PZE     *-WRNGTP 
      00341                   TEMP   BSS     2  
      00343  605125212470     MTP    BCI     8, READY THE 1ST REEL OF THE NEXT DUMP TAPE FILE   
      00353  0 00000 0 00010  LMTP   PZE     *-MTP    
      00354  605125212470     MTPB   BCI     8, READY THE DUPLICATE COPY ON THE OTHER CHANNEL.  
      00364  0 00000 0 00010  LMTPB  PZE     *-MTPB   
      00365  606346606263     MESA   BCI     6, TO STOP LOADING, START DUMPING.     
      00373  604546666046     MESB   BCI     6, NOW OR ANYTIME TO DROP 2ND CHANNEL. 
      00401  604663302551     MESEY  BCI     3, OTHERWISE, NOW.   
      00404  0 00002 0 00001  CHNWRD PZE     1,,2     
      00405  242125444645     DPCOM  BCI     1,DAEMON 
      00406  006060606060            BCI     1,0
      00407 -377777777777            OCT     777777777777   
      00410  606445256747     MESX   BCI     9, UNEXPECTED AND/OR NON-CRUCIAL I/O SYSTEM ERROR RETURN 
      00421  736066303123            BCI     3,, WHICH IS IGNORED 
                              *     
                                     INSERT  BCMEQB   
                              *     
                              *  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -     
                              *      COMMON AND EQUIVALENCE FOR SECONDARY STORAGE LOAD    
                              *         (TIME-SHARING VERSION)    
                              *  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -     
                              *     
                      074446  DEMKEY BOOL    74446         CORE A LOCATION FOR DAEMON KEY SETTING     
                              *     
                      000017  BASE   BOOL    17            KEY CODE BASE
                      000001  CTINUE BOOL    1             KEY CODE TO CONTINUE WITH PROGRAM,NO CHANGE
                      000002  PAUSE  BOOL    2             KEY CODE TO WAIT 60 SECS.
                      000003  CHLDFL BOOL    3             KEY CODE TO USE DIFFERENT LOAD FILE  
                      000004  STOPLD BOOL    4             KEY CODE TO STOP LOADING, START DUMPING    
                      000005  ABANKY BOOL    5             KEY CODE TO ABANDON LOAD TAPE FILE   
                      000006  SWCHAN BOOL    6             KEY CODE TO GO FROM 1 OR 2 TO 2 OR 1 CHANS.
                      000007  LSREEL BOOL    7             KEY CODE TO INDICATE LAST REEL OF LOAD FILE
                      000010  CHREEL BOOL    10            KEY CODE TO CORRECT REEL ORDER ERROR 
                       77777  NEWCOM EQU     -1            TOP OF MEMORY
                      077461  OLDCOM BOOL    77461         OLD TOP OF COMMON  
                       77462  COMRLC EQU     OLDCOM-NEWCOM RELOCATION FACTOR  
                       77777         COMMON  COMRLC        RELOCATE COMMON    
                       01554  UF     EQU     32767/2-DEMKEY/2 LENGTH OF USER LIST   
                       77777  UFL    COMMON  2*UF          USER FILE LIST  (1ST PARTS OF FILE NAMES)  
                       74446         COMMON  1             INSERT DUMMY IF NECESSARY
                       74445         COMMON  1             DEMKEY CELL IN NON-CTSS VERSION
                       74445  KEYVAL COMMON  1  
                       74444  ABANTP COMMON  1             ABANDON TAPE FILE INDICATOR    
1            LOAD SECONDARY STORAGE (TIME-SHARING VERSION)...M.J.BAILEY,2/1/65   05/11/69 2001.5 PAGE 8     
                  
                       74443  NOCHAN COMMON  1             NO. OF CHANNELS BEING READ (1 OR 2)  
                       74442  DU     COMMON  1             PROBLEM NO. OF DUMP/LOAD PACKAGE     
                       74441  DP     COMMON  1             PROGRAMMER NO. OF DITTO. 
                       74440  LFNA   COMMON  1             LOAD TAPE FILE NAME (PART 1)   
                       74437  LFNB   COMMON  1              ,,   ,,   ,,   ,,  (PART 2)   
                       74423         COMMON  11            DUMPED FILE'S PREAMBLE FROM DUMP TAPE
                       74423  PREAM  COMMON  1             DUMPED FILE'S DUMP TAPE PREAMBLE 1ST WORD  
                       74422  BFNA   COMMON  1             CHANNEL B LOAD TAPE FILE NAME (PART 1)     
                       74421  BFNB   COMMON  1             CHANNEL B LOAD TAPE FILE NAME (PART 2)     
                       74420  AUN    COMMON  1             CHANNEL A UNIT NO. 
                       74417  BUN    COMMON  1             CHANNEL B UNIT NO. 
                       74416  TEOF   COMMON  1             TAPE EOF INDICATOR/WORD COUNT  
                       74412         COMMON  3             LABEL OF TAPE FILE CURRENTLY BEING LOADED  
                       74412  LABEL  COMMON  1             LABEL OF TAPE FILE DITTO.   1ST WORD 
                       74411  X      COMMON  1             TAPE FILE POINTER  
                                     END  
                                              REMOTE SEQUENCES    
      00424  244664224325     ..001  BCI     9,DOUBLE-CHANNEL LOAD IS ASSUMED FOR NEXT LOAD FILE,             .001
                  
1            LOAD SECONDARY STORAGE (TIME-SHARING VERSION)...M.J.BAILEY,2/1/65   05/11/69 2001.5 PAGE 1     
                        POST PROCESSOR ASSEMBLY DATA  
                  
       74410 IS THE LAST LOCATION NOT USED BY THIS PROGRAM  
        453 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM  
                  
0REFERENCES TO DEFINED SYMBOLS      
      74411      X   424
      74441     DP    33,   46,  255,  262,  424
      74442     DU    31,   45,  254,  261,  424
       1554     UF   424
      74420    AUN   107,  143,  166,  175,  206,  217,  232,  424
      74417    BUN   111,  150,  243,  424
        100    LEG   246,  251,  256
        101    LEH    71
        152    LEI   230,  234
        201    LEK   177
        212    LEM   210
        231    LEO   226
        235    LEP   200,  211,  223
        257    LEV   103
        340    LWG   233
        343    MTP   167,  353
      77777    UFL   424
         17   BASE   424
      74422   BFNA    41,  126,  135,  146,  424
      74421   BFNB    43,  127,  136,  147,  424
        276   COMD    54,   56
         72   ELOC    50
        164   LEII   161,  163
        224   LEMA   221
        252   LERA   250
      74440   LFNA    35,  113,  122,  141,  424
      74437   LFNB    37,  114,  123,  142,  424
        353   LMTP   167
        365   MESA   102
        373   MESB   160
        410   MESX    74
        354   MTPB   244,  364
        314   PUMT    67,  323
        341   TEMP   222,  224
      74416   TEOF   424
         15  CLOSE    61
        405  DPCOM   270,  272
         76  ELOC4    72
        424  ..001   156
      74412  LABEL   172,  176,  203,  207,  214,  220,  424
        245  LEIB2   240
        364  LMTPB   244
        323  LPUMT    67
        401  MESEY   104,  162
          7  MOUNT   164,  241
        300  NFTID   171
          2  PAUSE   424
      74423  PREAM   424
         26  RECAP   257
        304  SDTID   202
1            LOAD SECONDARY STORAGE (TIME-SHARING VERSION)...M.J.BAILEY,2/1/65   05/11/69 2001.5 PAGE 2     
                        POST PROCESSOR ASSEMBLY DATA  
                  
         21  SLEEP      
        310  UDTID   213
         11  WRFLX    73,  155
          5 ABANKY   424
      74444 ABANTP   154,  424
         25 ASKOPR   101,  157
          5 ATTACH    44,  253,  260
         22 CHFILE   112,  125
          3 CHLDFL   424
         20 CHNCOM   275
        404 CHNWRD    57,  273
         10 CHREEL   424
      77462 COMRLC   424
          1 CTINUE   105,  163,  424
         23 DELFIL   121,  134,  263
      74446 DEMKEY   424
         12 FERRTN    47
          4 GETLSG   235
          0 INITTF   245
      74445 KEYVAL   424
          7 LSREEL   424
          2 LTFILE   252
      77777 NEWCOM   424
      74443 NOCHAN   153,  236,  424
      77461 OLDCOM   424
          1 OPENDF   247
         24 PRNTER    75,  227
         17 SETCLC    60,  274
         16 SETCLS    53,   55,  267,  271
          4 STOPLD   103,  424
          6 SWCHAN   161,  424
          6 TAPFIL   140,  145
          3 TERMTF   100
         13 TILOCK    51
         14 UMOUNT    65,  231
         10 VERIFY   174,  205,  216
        324 WRNGTP   233,  340
                  
0 NO ERROR IN ABOVE ASSEMBLY. 
1            LOAD MAIN BODY OF DUMP TAPE FILE BETWEEN MFDS...M.J.BAILEY,2/1/65   05/11/69 2001.7 PAGE 1     
                  
                              *           (TIME-SHARING VERSION)  
                              *     
                       00021         ENTRY   LTFILE   
                              *     
                                     EXTERN  OPENDF,RDF,GETLSG    
                                     EXTERN  TRFILE   
                                     EXTERN  ATTACH,BUFFER,FWAIT,FSTATE 
                                     EXTERN  OPEN,CLOSE,WRFILE,SETFIL   
                                     EXTERN  WRFLX,CHFILE   
                              *     
                                     INSERT  BMCRSC   
                              *     
                              *  ZERO-IZE A THROUGH A+X-1   
                              *     
                               CLEAR MACRO   A,X
                                     AXT     X,1
                                     STZ     A+X,1    
                                     TIX     *-1,1,1  
                               CLEAR END  
                              *     
                              *      MOVE X WORDS FROM A ET SEQ TO B ET SEQ   
                              *     
                               MOVE  MACRO   X,A,B    
                                     AXT     X,1
                                     CAL     A+X,1    
                                     SLW     B+X,1    
                                     TIX     *-2,1,1  
                               MOVE  END  
                              *     
                              *  PRINT ONE LINE COMMENT     
                              *     
                              PRLINE MACRO   COMNT,NWC,LOC  
                                     TSX     WRFLX,4  
                                             LOC,,NWC 
                                     RMT  
                               LOC   BCI     NWC,COMNT
                                     RMT  
                              PRLINE END  
                              *     
                              *     
                              *      EXECUTE INST. IN CORE A
                              *     
                              *     
                              EXEC   MACRO   OPC,ADD  
                                     TSX     $GETA,7  
                                     OPC     ADD
                              EXEC   END  
                              *     
                              *      GET KEY SETTING VIA SUPERVISOR, SET ABANTP, NOCHAN IF APPROPRIATE
                              *     
                              GETSIG MACRO
                                     TSX     GETLSG,4 
                              GETSIG END  
                              *     
                              *      TEST WHETHER 2ND TAPE COPY IS NEEDED, IF NOT GO TO SKIP    
                              *     
1            LOAD MAIN BODY OF DUMP TAPE FILE BETWEEN MFDS...M.J.BAILEY,2/1/65   05/11/69 2001.7 PAGE 2     
                  
                              SKIFNB MACRO   SKIP     
                                     CLA     NOCHAN   
                                     SUB     =1 
                                     TZE     SKIP     
                              SKIFNB END  
                              *     
                              *      PRINT AN N-WORD MESSAGE FROM  MESSGE     
                              *     
                              PRM    MACRO   MESSGE,N 
                                     TSX     WRFLX,4  
                                             MESSGE,,N
                              PRM    END  
                              *     
                              *      COMPARE 2 SETS OF N CONSECUTIVE WORDS IN A ETC., AND B ETC. ,    
                              *      AND IF THEY DO NOT ALL MATCH, GO TO NF, OR OTHERWISE CONTINUE.   
                              *     
                              CMPWDS MACRO   N,A,B,NF 
                                     AXT     N,1
                                     CAL     A+N,1    
                                     LAS     B+N,1    
                                     TRA     NF 
                                     TRA     *+2
                                     TRA     NF 
                                     TIX     *-5,1,1  
                              CMPWDS END  
                              *     
                              *      WAIT FOR I/O ON FILE (A,B) TO END, GO TO E IF ERROR OCCURRED     
                              *     
                              WAIT   MACRO   A,B,E    
                                     TSX     FWAIT,4  
                                     PTH     A  
                                     PTH     B  
                                     PTH     E  
                              WAIT   END  
                              *     
                              *      CLOSE THE FILE (A,B)   
                              *     
                              CLOSE  MACRO   A,B
                                     TSX     CLOSE,4  
                                     PTH     A  
                                     PTH     B  
                              CLOSE  END  
                              *     
                              *     
                              *  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -     
                              *      INITIALIZE AND GET PREAMBLE OF UFD FILE OF 1ST USER ON TAPE
                              *  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -     
                              *     
                  
      00000  464725452426     OPENDF
      00001  512426606060     RDF   
      00002  272563436227     GETLSG
      00003  635126314325     TRFILE
      00004  216363212330     ATTACH
      00005  226426262551     BUFFER
      00006  266621316360     FWAIT 
1            LOAD MAIN BODY OF DUMP TAPE FILE BETWEEN MFDS...M.J.BAILEY,2/1/65   05/11/69 2001.7 PAGE 3     
                  
      00007  266263216325     FSTATE
      00010  464725456060     OPEN  
      00011  234346622560     CLOSE 
      00012  665126314325     WRFILE
      00013  622563263143     SETFIL
      00014  665126436760     WRFLX 
      00015  233026314325     CHFILE
      00016  475145632551     PRNTER
                  
                  
      00021  0634 00 1 00077  LTFILE SXA     X1,1     
      00022  0634 00 2 00076         SXA     X2,2     
      00023  0634 00 3 00075         SXA     X3,3     
      00024  0634 00 4 00074         SXA     X4,4     
                              *     
      00025  0600 00 0 00365         STZ     LUSER    
      00026  0600 00 0 00366         STZ     LUSER+1  
                              *     
                              *  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  
                              *      EXAMINE NEXT DUMPED FILE ON TAPE   
                              *  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  
                              *     
      00027                   XTA    CLEAR   PREAM,12 
      00027  0774 00 1 00014         AXT     12,1                                                             .001
      00030  0600 00 1 74437         STZ     PREAM+12,1                                                       .001
      00031  2 00001 1 00030         TIX     *-1,1,1                                                          .001
      00032  0074 00 4 00000         TSX     OPENDF,4      INITIALIZE READING FROM NEXT DUMPED FILE   
 TD   00033  3 00000 0 00036         TXH     XTC           (ERROR ADDRESS)    
 TD   00034  3 00000 0 00074         TXH     ABANTF        ABANDON TAPE FILE  
      00035  0020 00 0 00041         TRA     XTD           SKIP TO SEE WHAT KIND OF FILE IT IS  
                              *     
      00036  0520 00 0 74416  XTC    ZET     TEOF     
      00037  0020 00 0 00074         TRA     ABANTF   
      00040  0020 00 0 00300         TRA     ZTQB     
                              *     
      00041  0760 00 0 00166  XTD    SWT     6  
      00042  0020 00 0 00055         TRA     XTDD     
      00043                          MOVE    2,PREAM,SEE    
      00043  0774 00 1 00002         AXT     2,1                                                              .001
      00044 -0500 00 1 74425         CAL     PREAM+2,1                                                        .001
      00045  0602 00 1 00371         SLW     SEE+2,1                                                          .001
      00046  2 00001 1 00044         TIX     *-2,1,1                                                          .001
      00047                          MOVE    2,PREAM+5,SEE+2
      00047  0774 00 1 00002         AXT     2,1                                                              .001
      00050 -0500 00 1 74432         CAL     PREAM+5+2,1                                                      .001
      00051  0602 00 1 00373         SLW     SEE+2+2,1                                                        .001
      00052  2 00001 1 00050         TIX     *-2,1,1                                                          .001
      00053                          PRM     SEE,4    
      00053  0074 00 4 00014         TSX     WRFLX,4                                                          .001
      00054  0 00004 0 00367                 SEE,,4                                                           .001
                              *     
      00055                   XTDD   CMPWDS  3,UFDNAM,PREAM+5,XTE 
      00055  0774 00 1 00003         AXT     3,1                                                              .001
      00056 -0500 00 1 00376         CAL     UFDNAM+3,1                                                       .001
      00057 -0340 00 1 74433         LAS     PREAM+5+3,1                                                      .001
      00060  0020 00 0 00065         TRA     XTE                                                              .001
1            LOAD MAIN BODY OF DUMP TAPE FILE BETWEEN MFDS...M.J.BAILEY,2/1/65   05/11/69 2001.7 PAGE 4     
                  
      00061  0020 00 0 00063         TRA     *+2                                                              .001
      00062  0020 00 0 00065         TRA     XTE                                                              .001
      00063  2 00001 1 00056         TIX     *-5,1,1                                                          .001
      00064  0020 00 0 00027         TRA     XTA
                              *     
      00065                   XTE    CMPWDS  2,MFDNAM,PREAM,ZTA   
      00065  0774 00 1 00002         AXT     2,1                                                              .001
      00066 -0500 00 1 00413         CAL     MFDNAM+2,1                                                       .001
      00067 -0340 00 1 74425         LAS     PREAM+2,1                                                        .001
      00070  0020 00 0 00101         TRA     ZTA                                                              .001
      00071  0020 00 0 00073         TRA     *+2                                                              .001
      00072  0020 00 0 00101         TRA     ZTA                                                              .001
      00073  2 00001 1 00066         TIX     *-5,1,1                                                          .001
                              *     
                              *      RETURN TO CALLER IF NEXT FILE IS MFD FILE
                              *     
                       00074  ABANTF EQU     *  
      00074  0774 00 4 00000  X4     AXT     **,4     
      00075  0774 00 3 00000  X3     AXT     **,3     
      00076  0774 00 2 00000  X2     AXT     **,2     
      00077  0774 00 1 00000  X1     AXT     **,1     
      00100  0020 00 4 00001         TRA     1,4
                              *     
                              *  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -     
                              *      PROCESS REGULAR FILE (NOT MFD OR UFD)    
                              *  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -     
                              *     
      00101  0074 00 4 00002  ZTA    TSX     GETLSG,4 
      00102                          CMPWDS  2,LUSER,PREAM,NOSAME 
      00102  0774 00 1 00002         AXT     2,1                                                              .001
      00103 -0500 00 1 00367         CAL     LUSER+2,1                                                        .001
      00104 -0340 00 1 74425         LAS     PREAM+2,1                                                        .001
      00105  0020 00 0 00112         TRA     NOSAME                                                           .001
      00106  0020 00 0 00110         TRA     *+2                                                              .001
      00107  0020 00 0 00112         TRA     NOSAME                                                           .001
      00110  2 00001 1 00103         TIX     *-5,1,1                                                          .001
      00111  0020 00 0 00122         TRA     SAME     
      00112                   NOSAME MOVE    2,PREAM,LUSER  
      00112  0774 00 1 00002         AXT     2,1                                                              .001
      00113 -0500 00 1 74425         CAL     PREAM+2,1                                                        .001
      00114  0602 00 1 00367         SLW     LUSER+2,1                                                        .001
      00115  2 00001 1 00113         TIX     *-2,1,1                                                          .001
      00116  0074 00 4 00004         TSX     ATTACH,4 
 TD   00117  3 00000 0 74423         TXH     PREAM    
 TD   00120  3 00000 0 74424         TXH     PREAM+1  
 TD   00121  3 00000 0 00027         TXH     XTA
                              *     
      00122  0074 00 4 00007  SAME   TSX     FSTATE,4 
 TD   00123  3 00000 0 74430         TXH     PREAM+5  
 TD   00124  3 00000 0 74431         TXH     PREAM+6  
      00125  3 00007 0 00401         TXH     STAT,,7  
 TD   00126  3 00000 0 00027         TXH     XTA
                              *     
      00127  0500 00 0 00404         CLA     STAT+3   
      00130  0402 00 0 10060         SUB     =3 
      00131  0100 00 0 00027         TZE     XTA
1            LOAD MAIN BODY OF DUMP TAPE FILE BETWEEN MFDS...M.J.BAILEY,2/1/65   05/11/69 2001.7 PAGE 5     
                  
      00132  0500 00 0 00402         CLA     STAT+1   
      00133 -0120 00 0 00027         TMI     XTA
      00134 -0320 00 0 10062         ANA     =O200    
      00135  0100 00 0 00027         TZE     XTA
      00136  0500 00 0 74425         CLA     PREAM+2  
      00137  0402 00 0 00407         SUB     STAT+6   
      00140 -0120 00 0 00027         TMI     XTA
      00141  0500 00 0 00401         CLA     STAT     
      00142 -0100 00 0 00300         TNZ     ZTQB     
      00143 -0520 00 0 74435         NZT     PREAM+10 
      00144  0020 00 0 00322         TRA     CLANUP   
                              *     
      00145 -0754 00 0 00000         ZAC  
      00146  0560 00 0 74434         LDQ     PREAM+9  
      00147 -0763 00 0 00010         LGL     8  
      00150  0602 00 0 00377         SLW     TEMP+1   
                              *     
      00151  0074 00 4 00010  OPAGIN TSX     OPEN,4   
 TD   00152  3 00000 0 01277         TXH     W  
 TD   00153  3 00000 0 74430         TXH     PREAM+5  
 TD   00154  3 00000 0 74431         TXH     PREAM+6  
 TD   00155  3 00000 0 10063         TXH     =-0
 TD   00156  3 00000 0 10063         TXH     =-0
 TD   00157  3 00000 0 00242         TXH     ZTQB1    
 TD   00160  3 00000 0 00410         TXH     ZTCODE   
                              *     
                              *     
      00161  0074 00 4 00005         TSX     BUFFER,4 
 TD   00162  3 00000 0 74430         TXH     PREAM+5       ASSIGN INTERNAL BUFFERS FOR WRITE    
 TD   00163  3 00000 0 74431         TXH     PREAM+6  
      00164  2 00413 0 00414         TIX     DBUF,,LDBUF    
 TD   00165  3 00000 0 00260         TXH     ZTQ           (ERROR)
                              *     
      00166  0774 00 3 00000         AXT     0,3
      00167  0500 00 0 01274         CLA     LTPB     
      00170  0601 00 0 00376         STO     TEMP     
      00171  0774 00 2 00000         AXT     0,2
                              *     
                              *      READ-WRITE LOOP (DOUBLE BUFFERS)   
                              *     
      00172  1 00001 2 00173  ZTM    TXI     *+1,2,1       SWITCH BUFFERS     
      00173 -3 00001 2 00175         TXL     *+2,2,1  
      00174  0774 00 2 00000         AXT     0,2
      00175  0500 00 2 01276         CLA     TBADR+1,2
      00176  0621 00 0 00201         STA     ZTN
      00177  0621 00 0 00216         STA     ZTO
                              *     
      00200  0074 00 4 00001         TSX     RDF,4         READ BUFFER FULL FROM DUMP TAPE
      00201  2 01274 0 00000  ZTN    TIX     **,,LTPB 
 TD   00202  3 00000 0 00262         TXH     ZTQA          READ ERROR   
 TD   00203  3 00000 0 00236         TXH     ZTP           EOF    
 TD   00204  3 00000 0 01300         TXH     EOFCT         EOF WORD COUNT     
 TD   00205  3 00000 0 00221         TXH     ABANCL        ABANDON TAPE FILE  
                              *     
      00206  0074 00 4 00006  ZTNA   TSX     FWAIT,4       WAIT FOR PREVIOUS WRITE TO END 
 TD   00207  3 00000 0 74430         TXH     PREAM+5  
1            LOAD MAIN BODY OF DUMP TAPE FILE BETWEEN MFDS...M.J.BAILEY,2/1/65   05/11/69 2001.7 PAGE 6     
                  
 TD   00210  3 00000 0 74431         TXH     PREAM+6  
 TD   00211  3 00000 0 00260         TXH     ZTQ           ERROR ON PREVIOUS WRITE  
                              *     
      00212  0074 00 4 00012         TSX     WRFILE,4      START WRITING BUFFER FULL ON DISK/DRUM     
 TD   00213  3 00000 0 74430         TXH     PREAM+5  
 TD   00214  3 00000 0 74431         TXH     PREAM+6  
 TD   00215  3 00000 0 10056         TXH     =0 
      00216  2 00376 0 00000  ZTO    TIX     **,,TEMP 
                              *     
      00217 -3 00000 3 00172         TXL     ZTM,3,0       RETURN TO READ MORE IF NO EOF YET    
      00220  0020 00 0 00314         TRA     ZTS           FINISHED, GO CLOSE LOAD FILE   
      00221  0074 00 4 00003  ABANCL TSX     TRFILE,4 
 TD   00222  3 00000 0 74430         TXH     PREAM+5  
 TD   00223  3 00000 0 74431         TXH     PREAM+6  
 TD   00224  3 00000 0 10056         TXH     =0 
      00225  0074 00 4 00011         TSX     CLOSE,4  
 TD   00226  3 00000 0 74430         TXH     PREAM+5  
 TD   00227  3 00000 0 74431         TXH     PREAM+6  
      00230  0074 00 4 00013         TSX     SETFIL,4      RESET DATE/TIME CREATED SO     
 TD   00231  3 00000 0 74430         TXH     PREAM+5       FILE CAN BE LOADED AGAIN LATER.
 TD   00232  3 00000 0 74431         TXH     PREAM+6  
 TD   00233  3 00000 0 74432         TXH     PREAM+7  
 TD   00234  3 00000 0 74433         TXH     PREAM+8  
      00235  0020 00 0 00074         TRA     ABANTF   
                              *     
                              *     
      00236  0534 00 3 01300  ZTP    LXA     EOFCT,3       EOF    
      00237  0634 00 3 00376         SXA     TEMP,3   
      00240  3 00000 3 00206         TXH     ZTNA,3,0      GO WRITE LAST PART BUFFER FULL, IF ANY     
      00241  0020 00 0 00314         TRA     ZTS           NO MORE, GO CLOSE LOAD FILE    
                              *     
                              *      OPEN ERROR TRY CHANGING MODE 
                              *     
      00242  0074 00 4 00002  ZTQB1  TSX     GETLSG,4 
      00243  0500 00 0 00410         CLA     ZTCODE   
      00244  0402 00 0 10061         SUB     =15
      00245 -0100 00 0 00300         TNZ     ZTQB     
      00246  0074 00 4 00015         TSX     CHFILE,4 
      00247  3 00000 0 74430         PTH     PREAM+5  
      00250  3 00000 0 74431         PTH     PREAM+6  
      00251  3 00000 0 10057         PTH     =1 
      00252  3 00000 0 10063         PTH     =-0
      00253  3 00000 0 10063         PTH     =-0
      00254  3 00000 0 00300         PTH     ZTQB     
      00255 -0500 00 0 10057         CAL     =1 
      00256 -0602 00 0 00377         ORS     TEMP+1   
      00257  0020 00 0 00151         TRA     OPAGIN   
                              *     
                              *      PROCESS ERRORS LOADING DUMPED FILE 
                              *     
      00260  0074 00 4 00016  ZTQ    TSX     $PRNTER,4     UNEXPECTED I/O SYSTEM RETURN   
      00261  0020 00 0 00264         TRA     ZTRA     
      00262  0500 00 0 74416  ZTQA   CLA     TEOF     
      00263 -0100 00 0 00221         TNZ     ABANCL        SKIP IF EOF ON TAPE
      00264  0074 00 4 00003  ZTRA   TSX     TRFILE,4      RESET FILE LENGTH. 
      00265  3 00000 0 74430         PTH     PREAM+5  
1            LOAD MAIN BODY OF DUMP TAPE FILE BETWEEN MFDS...M.J.BAILEY,2/1/65   05/11/69 2001.7 PAGE 7     
                  
      00266  3 00000 0 74431         PTH     PREAM+6  
      00267  3 00000 0 10056         PTH     =0 
      00270  0074 00 4 00011         TSX     CLOSE,4       CLOSE FILE.  
 TD   00271  3 00000 0 74430         TXH     PREAM+5  
 TD   00272  3 00000 0 74431         TXH     PREAM+6  
      00273  0074 00 4 00013         TSX     SETFIL,4      NOW RESET DATE/TIME CREATED,   
 TD   00274  3 00000 0 74430         TXH     PREAM+5       SO THAT WE CAN TRY TO LOAD     
 TD   00275  3 00000 0 74431         TXH     PREAM+6       IT AGAIN LATER.   **********   
 TD   00276  3 00000 0 74432         TXH     PREAM+7  
 TD   00277  3 00000 0 74433         TXH     PREAM+8  
      00300                   ZTQB   MOVE    2,PREAM,ERMES+3
      00300  0774 00 1 00002         AXT     2,1                                                              .001
      00301 -0500 00 1 74425         CAL     PREAM+2,1                                                        .001
      00302  0602 00 1 00362         SLW     ERMES+3+2,1                                                      .001
      00303  2 00001 1 00301         TIX     *-2,1,1                                                          .001
      00304                          MOVE    2,PREAM+5,ERMES+5    
      00304  0774 00 1 00002         AXT     2,1                                                              .001
      00305 -0500 00 1 74432         CAL     PREAM+5+2,1                                                      .001
      00306  0602 00 1 00364         SLW     ERMES+5+2,1                                                      .001
      00307  2 00001 1 00305         TIX     *-2,1,1                                                          .001
      00310  0074 00 4 00014         TSX     WRFLX,4  
      00311  0 00010 0 00355                 ERMES,,8 
      00312  0074 00 4 00016         TSX     $PRNTER,4
      00313  0020 00 0 00027         TRA     XTA           GO FOR NEXT DUMPED FILE  
                              *     
                              *  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -     
                              *      SET UFD ENTRY FOR FILE JUST READ, FREE IT FOR USE    
                              *      IF IT WAS ONE DEFINITELY TO BE LOADED    
                              *  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -     
                              *     
      00314  0074 00 4 00006  ZTS    TSX     FWAIT,4       WAIT FOR WRITE TO END    
 TD   00315  3 00000 0 74430         TXH     PREAM+5  
 TD   00316  3 00000 0 74431         TXH     PREAM+6  
      00317  0074 00 4 00011         TSX     CLOSE,4  
 TD   00320  3 00000 0 74430         TXH     PREAM+5  
 TD   00321  3 00000 0 74431         TXH     PREAM+6  
      00322  0074 00 4 00015  CLANUP TSX     CHFILE,4      DE-PROTECT, THEN . . . . .     
 TD   00323  3 00000 0 74430         TXH     PREAM+5  
 TD   00324  3 00000 0 74431         TXH     PREAM+6  
 TD   00325  3 00000 0 00377         TXH     TEMP+1   
 TD   00326  3 00000 0 10063         TXH     =-0
 TD   00327  3 00000 0 10063         TXH     =-0
 TD   00330  3 00000 0 00332         TXH     ZTSA          UNUSUAL CONDITION TRANSFER     
      00331  0020 00 0 00333         TRA     ZTSB          SKIP IF O.K. 
      00332  0074 00 4 00016  ZTSA   TSX     $PRNTER,4     ERROR, PRINT MESSAGE     
                              *     
      00333  0074 00 4 00013  ZTSB   TSX     SETFIL,4      SET ITS DATES, TIME, AUTHOR, AS
 TD   00334  3 00000 0 74430         TXH     PREAM+5       IN PREAMBLE OF DUMPED VERSION JUST READ    
 TD   00335  3 00000 0 74431         TXH     PREAM+6  
 TD   00336  3 00000 0 74432         TXH     PREAM+7  
 TD   00337  3 00000 0 74433         TXH     PREAM+8  
      00340  0760 00 0 00165         SWT     5  
      00341  0020 00 0 00027         TRA     XTA
      00342                          MOVE    2,PREAM,MEST+1 
      00342  0774 00 1 00002         AXT     2,1                                                              .001
      00343 -0500 00 1 74425         CAL     PREAM+2,1                                                        .001
1            LOAD MAIN BODY OF DUMP TAPE FILE BETWEEN MFDS...M.J.BAILEY,2/1/65   05/11/69 2001.7 PAGE 8     
                  
      00344  0602 00 1 01304         SLW     MEST+1+2,1                                                       .001
      00345  2 00001 1 00343         TIX     *-2,1,1                                                          .001
      00346                          MOVE    2,PREAM+5,MEST+3     
      00346  0774 00 1 00002         AXT     2,1                                                              .001
      00347 -0500 00 1 74432         CAL     PREAM+5+2,1                                                      .001
      00350  0602 00 1 01306         SLW     MEST+3+2,1                                                       .001
      00351  2 00001 1 00347         TIX     *-2,1,1                                                          .001
      00352  0074 00 4 00014         TSX     WRFLX,4  
      00353  0 00005 0 01301                 MEST,,5  
      00354  0020 00 0 00027         TRA     XTA           GO LOOK AT NEXT DUMPED FILE    
                              *     
                              *  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -     
                              *     
                              *  -  -  -  -  -  -  -  -  -  -  -  -     
                              *      CONSTANTS, VARIABLES, ETC.   
                              *  -  -  -  -  -  -  -  -  -  -  -  -     
                              *     
      00355  602631432560     ERMES  BCI     8, FILE NOT LOADED   
      00365                   LUSER  BSS     2  
      00367                   SEE    BSS     4  
      00373  646225516026     UFDNAM BCI     3,USER FILE DIRECTRY 
      00376                   TEMP   BSS     3  
      00401                   STAT   BSS     7  
      00410                   ZTCODE BSS     1  
      00411  443326332433     MFDNAM BCI     2,M.F.D.(FILE) 
      00413  0 00000 0 00660  LDBUF  PZE     432
      00414                   DBUF   BSS     432
      01274  0 00000 0 03264  LTPB   PZE     4*432-12 
      01275  0 00000 0 01306  TBADR  PZE     TPB
      01276  0 00000 0 04572         PZE     TPB2     
      01277  666060606060     W      BCI     1,W
      01300  0 00000 0 00000  EOFCT  PZE  
      01301  434621242524     MEST   BCI     5,LOADED 
      01306                   TPB    BSS     4*432-12 
      04572                   TPB2   BSS     4*432-12 
                              *     
                                     INSERT  BCMEQB   
                              *     
                              *  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -     
                              *      COMMON AND EQUIVALENCE FOR SECONDARY STORAGE LOAD    
                              *         (TIME-SHARING VERSION)    
                              *  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -     
                              *     
                      074446  DEMKEY BOOL    74446         CORE A LOCATION FOR DAEMON KEY SETTING     
                              *     
                      000017  BASE   BOOL    17            KEY CODE BASE
                      000001  CTINUE BOOL    1             KEY CODE TO CONTINUE WITH PROGRAM,NO CHANGE
                      000002  PAUSE  BOOL    2             KEY CODE TO WAIT 60 SECS.
                      000003  CHLDFL BOOL    3             KEY CODE TO USE DIFFERENT LOAD FILE  
                      000004  STOPLD BOOL    4             KEY CODE TO STOP LOADING, START DUMPING    
                      000005  ABANKY BOOL    5             KEY CODE TO ABANDON LOAD TAPE FILE   
                      000006  SWCHAN BOOL    6             KEY CODE TO GO FROM 1 OR 2 TO 2 OR 1 CHANS.
                      000007  LSREEL BOOL    7             KEY CODE TO INDICATE LAST REEL OF LOAD FILE
                      000010  CHREEL BOOL    10            KEY CODE TO CORRECT REEL ORDER ERROR 
                       77777  NEWCOM EQU     -1            TOP OF MEMORY
                      077461  OLDCOM BOOL    77461         OLD TOP OF COMMON  
1            LOAD MAIN BODY OF DUMP TAPE FILE BETWEEN MFDS...M.J.BAILEY,2/1/65   05/11/69 2001.7 PAGE 9     
                  
                       77462  COMRLC EQU     OLDCOM-NEWCOM RELOCATION FACTOR  
                       77777         COMMON  COMRLC        RELOCATE COMMON    
                       01554  UF     EQU     32767/2-DEMKEY/2 LENGTH OF USER LIST   
                       77777  UFL    COMMON  2*UF          USER FILE LIST  (1ST PARTS OF FILE NAMES)  
                       74446         COMMON  1             INSERT DUMMY IF NECESSARY
                       74445         COMMON  1             DEMKEY CELL IN NON-CTSS VERSION
                       74445  KEYVAL COMMON  1  
                       74444  ABANTP COMMON  1             ABANDON TAPE FILE INDICATOR    
                       74443  NOCHAN COMMON  1             NO. OF CHANNELS BEING READ (1 OR 2)  
                       74442  DU     COMMON  1             PROBLEM NO. OF DUMP/LOAD PACKAGE     
                       74441  DP     COMMON  1             PROGRAMMER NO. OF DITTO. 
                       74440  LFNA   COMMON  1             LOAD TAPE FILE NAME (PART 1)   
                       74437  LFNB   COMMON  1              ,,   ,,   ,,   ,,  (PART 2)   
                       74423         COMMON  11            DUMPED FILE'S PREAMBLE FROM DUMP TAPE
                       74423  PREAM  COMMON  1             DUMPED FILE'S DUMP TAPE PREAMBLE 1ST WORD  
                       74422  BFNA   COMMON  1             CHANNEL B LOAD TAPE FILE NAME (PART 1)     
                       74421  BFNB   COMMON  1             CHANNEL B LOAD TAPE FILE NAME (PART 2)     
                       74420  AUN    COMMON  1             CHANNEL A UNIT NO. 
                       74417  BUN    COMMON  1             CHANNEL B UNIT NO. 
                       74416  TEOF   COMMON  1             TAPE EOF INDICATOR/WORD COUNT  
                       74412         COMMON  3             LABEL OF TAPE FILE CURRENTLY BEING LOADED  
                       74412  LABEL  COMMON  1             LABEL OF TAPE FILE DITTO.   1ST WORD 
                       74411  X      COMMON  1             TAPE FILE POINTER  
                                     END  
                  
1            LOAD MAIN BODY OF DUMP TAPE FILE BETWEEN MFDS...M.J.BAILEY,2/1/65   05/11/69 2001.7 PAGE 1     
                        POST PROCESSOR ASSEMBLY DATA  
                  
       74410 IS THE LAST LOCATION NOT USED BY THIS PROGRAM  
      10064 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM  
                  
0REFERENCES TO DEFINED SYMBOLS      
       1277      W   152
      74411      X 10056
      74441     DP 10056
      74442     DU 10056
       1554     UF 10056
         77     X1    21
         76     X2    22
         75     X3    23
         74     X4    24
      74420    AUN 10056
      74417    BUN 10056
          1    RDF   200
        367    SEE    45,   51,   54
       1306    TPB  1275
      77777    UFL 10056
         27    XTA    64,  121,  126,  131,  133,  135,  140,  313,  341,  354
         36    XTC    33
         41    XTD    35
         65    XTE    60,   62
        101    ZTA    70,   72
        172    ZTM   217
        201    ZTN   176
        216    ZTO   177
        236    ZTP   203
        260    ZTQ   165,  211
        314    ZTS   220,  241
         17   BASE 10056
      74422   BFNA 10056
      74421   BFNB 10056
        414   DBUF   164
      74440   LFNA 10056
      74437   LFNB 10056
       1274   LTPB   167,  201
       1301   MEST   344,  350,  353
         10   OPEN   151
        122   SAME   111
        401   STAT   125,  127,  132,  137,  141
        376   TEMP   150,  170,  216,  237,  256,  325
      74416   TEOF    36,  262,10056
       4572   TPB2  1276
         55   XTDD    42
        206   ZTNA   240
        262   ZTQA   202
        300   ZTQB    40,  142,  245,  254
        264   ZTRA   261
        332   ZTSA   330
        333   ZTSB   331
         11  CLOSE   225,  270,  317
       1300  EOFCT   204,  236
        355  ERMES   302,  306,  311
1            LOAD MAIN BODY OF DUMP TAPE FILE BETWEEN MFDS...M.J.BAILEY,2/1/65   05/11/69 2001.7 PAGE 2     
                        POST PROCESSOR ASSEMBLY DATA  
                  
          6  FWAIT   206,  314
      74412  LABEL 10056
        413  LDBUF   164
        365  LUSER    25,   26,  103,  114
          2  PAUSE 10056
      74423  PREAM    30,   44,   50,   57,   67,  104,  113,  117,  120,  123,  124,  136,  143,  146,  153,  154,  162
                     163,  207,  210,  213,  214,  222,  223,  226,  227,  231,  232,  233,  234,  247,  250,  265,  266
                     271,  272,  274,  275,  276,  277,  301,  305,  315,  316,  320,  321,  323,  324,  334,  335,  336
                     337,  343,  347,10056
       1275  TBADR   175
         14  WRFLX    53,  310,  352
        242  ZTQB1   157
        221 ABANCL   205,  263
          5 ABANKY 10056
         74 ABANTF    34,   37,   74,  235
      74444 ABANTP 10056
          4 ATTACH   116
          5 BUFFER   161
         15 CHFILE   246,  322
          3 CHLDFL 10056
         10 CHREEL 10056
        322 CLANUP   144
      77462 COMRLC 10056
          1 CTINUE 10056
      74446 DEMKEY 10056
          7 FSTATE   122
          2 GETLSG   101,  242
      74445 KEYVAL 10056
          7 LSREEL 10056
         21 LTFILE     0
        411 MFDNAM    66
      77777 NEWCOM 10056
      74443 NOCHAN 10056
        112 NOSAME   105,  107
      77461 OLDCOM 10056
        151 OPAGIN   257
          0 OPENDF    32
         16 PRNTER   260,  312,  332
         13 SETFIL   230,  273,  333
          4 STOPLD 10056
          6 SWCHAN 10056
          3 TRFILE   221,  264
        373 UFDNAM    56
         12 WRFILE   212
        410 ZTCODE   160,  243
                  
0 NO ERROR IN ABOVE ASSEMBLY. 
1       'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65    05/11/69 2002.0 PAGE 1     
                  
                              *           (TIME-SHARING VERSION)  
                              *     
                       00013         ENTRY   OPENDF   
                       00166         ENTRY   RDF
                              *     
                                     EXTERN  NLREC,GETLSG   
                                     EXTERN  RDWAIT   
                                     EXTERN  IODIAG,RDFILE,FWAIT  
                                     EXTERN  WRFLX    
                              *     
                                     INSERT  BMCRSC   
                              *     
                              *  ZERO-IZE A THROUGH A+X-1   
                              *     
                               CLEAR MACRO   A,X
                                     AXT     X,1
                                     STZ     A+X,1    
                                     TIX     *-1,1,1  
                               CLEAR END  
                              *     
                              *      MOVE X WORDS FROM A ET SEQ TO B ET SEQ   
                              *     
                               MOVE  MACRO   X,A,B    
                                     AXT     X,1
                                     CAL     A+X,1    
                                     SLW     B+X,1    
                                     TIX     *-2,1,1  
                               MOVE  END  
                              *     
                              *  PRINT ONE LINE COMMENT     
                              *     
                              PRLINE MACRO   COMNT,NWC,LOC  
                                     TSX     WRFLX,4  
                                             LOC,,NWC 
                                     RMT  
                               LOC   BCI     NWC,COMNT
                                     RMT  
                              PRLINE END  
                              *     
                              *     
                              *      EXECUTE INST. IN CORE A
                              *     
                              *     
                              EXEC   MACRO   OPC,ADD  
                                     TSX     $GETA,7  
                                     OPC     ADD
                              EXEC   END  
                              *     
                              *      GET KEY SETTING VIA SUPERVISOR, SET ABANTP, NOCHAN IF APPROPRIATE
                              *     
                              GETSIG MACRO
                                     TSX     GETLSG,4 
                              GETSIG END  
                              *     
                              *      TEST WHETHER 2ND TAPE COPY IS NEEDED, IF NOT GO TO SKIP    
                              *     
1       'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65    05/11/69 2002.0 PAGE 2     
                  
                              SKIFNB MACRO   SKIP     
                                     CLA     NOCHAN   
                                     SUB     =1 
                                     TZE     SKIP     
                              SKIFNB END  
                              *     
                              *      PRINT AN N-WORD MESSAGE FROM  MESSGE     
                              *     
                              PRM    MACRO   MESSGE,N 
                                     TSX     WRFLX,4  
                                             MESSGE,,N
                              PRM    END  
                              *     
                              *      COMPARE 2 SETS OF N CONSECUTIVE WORDS IN A ETC., AND B ETC. ,    
                              *      AND IF THEY DO NOT ALL MATCH, GO TO NF, OR OTHERWISE CONTINUE.   
                              *     
                              CMPWDS MACRO   N,A,B,NF 
                                     AXT     N,1
                                     CAL     A+N,1    
                                     LAS     B+N,1    
                                     TRA     NF 
                                     TRA     *+2
                                     TRA     NF 
                                     TIX     *-5,1,1  
                              CMPWDS END  
                              *     
                              *      WAIT FOR I/O ON FILE (A,B) TO END, GO TO E IF ERROR OCCURRED     
                              *     
                              WAIT   MACRO   A,B,E    
                                     TSX     FWAIT,4  
                                     PTH     A  
                                     PTH     B  
                                     PTH     E  
                              WAIT   END  
                              *     
                              *      CLOSE THE FILE (A,B)   
                              *     
                              CLOSE  MACRO   A,B
                                     TSX     CLOSE,4  
                                     PTH     A  
                                     PTH     B  
                              CLOSE  END  
                              *     
                              *     
                              * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   
                              *      'OPEN' NEXT DUMPED FILE -- SKIP TO NEXT (READABLE) FILE,   
                              *      READ ITS PREAMBLE, AND ITS FIRST LOGICAL RECORD.     
                              * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
                              *     
                  
      00000  454351252360     NLREC 
      00001  272563436227     GETLSG
      00002  512466213163     RDWAIT
      00003  314624312127     IODIAG
      00004  512426314325     RDFILE
      00005  266621316360     FWAIT 
1       'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65    05/11/69 2002.0 PAGE 3     
                  
      00006  665126436760     WRFLX 
      00007  475145632551     PRNTER
      00010  636263254626     TSTEOF
                  
                  
      00013  0634 00 1 00156  OPENDF SXA     X1,1     
      00014  0634 00 2 00155         SXA     X2,2     
      00015  0634 00 3 00154         SXA     X3,3     
      00016  0634 00 4 00153         SXA     X4,4     
      00017  0600 00 0 00633         STZ     M  
      00020  0600 00 0 74416         STZ     TEOF     
      00021  0500 00 0 00627         CLA     LEOROP   
      00022  0621 00 0 00526         STA     ABNADD   
      00023  0074 00 4 00001         TSX     GETLSG,4      IS OPERATOR'S TAPE FILE ABANDON
      00024  0500 00 0 74444         CLA     ABANTP        KEY CODE SETTING ON
      00025  0100 00 0 00031         TZE     *+4           SKIP IF NOT  
      00026  0074 00 4 00006         TSX     WRFLX,4  
      00027  0 00010 0 00615                 MESL,,8  
      00030  0020 00 0 00526         TRA     EORABN        IF SO OBEY IT
      00031  0500 00 0 74411         CLA     X  
      00032  0402 00 0 00574         SUB     PHYSRC   
      00033 -0120 00 0 00161         TMI     ERTN          ERROR IF PTR SET BEFORE 1ST FILE,SKIP
      00034  0100 00 0 00122         TZE     OQ            SKIP IF FILE IS 1ST ON LOAD TAPE     
                              *     
                              * - - - - - - - - - - - - - - - - - - - - - - - - - - -     
                              *      FIND START OF NEXT LOGICAL RECORD  
                              * - - - - - - - - - - - - - - - - - - - - - - - - - - -     
                              *     
      00035  0500 00 0 00401         CLA     SOME     
      00036 -0120 00 0 00057         TMI     JUMP     
                              *     
      00037  0500 00 0 74411         CLA     X  
      00040  0400 00 0 00401         ADD     SOME     
      00041  0601 00 0 74411         STO     X  
      00042  0601 00 0 00604         STO     Y  
      00043  0020 00 0 00051         TRA     *+6
                       00044  FL     EQU     *  
      00044  0074 00 4 00001  FLA    TSX     GETLSG,4 
      00045  0500 00 0 74411         CLA     X  
      00046  0400 00 0 00574         ADD     PHYSRC   
      00047  0601 00 0 74411         STO     X             X POINTS AT NEXT PHYSICAL RECORD     
      00050  0601 00 0 00604         STO     Y             SO DOES Y    
                              *     
      00051  0074 00 4 00414  FLAB   TSX     BREAD,4       READ 12 WORDS FROM POSTN Y     
 TD   00052  3 00000 0 00556         TXH     OPREAM   
 TD   00053  3 00000 0 04123         TXH     =12
      00054  0020 00 0 00044         TRA     FLA           UNREAD, MOVE TO NEXT PHYSICAL REC.   
      00055  0020 00 0 00044         TRA     FLA           READ ERROR, MOVE TO NEXT PHYS. REC.  
      00056  0020 00 0 00160         TRA     REOF          REAL EOF EXIT
                              *     
      00057  0500 00 0 00570  JUMP   CLA     OPREAM+10
      00060  0100 00 0 00044         TZE     FL 
      00061  0074 00 4 00000         TSX     NLREC,4  
      00062  3 00000 0 04120         PTH     =0 
      00063  3 00000 0 04120         PTH     =0 
      00064  3 00000 0 00570         PTH     OPREAM+10
1       'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65    05/11/69 2002.0 PAGE 4     
                  
      00065  3 00000 0 00573         PTH     LTPBF    
      00066  3 00000 0 04123         PTH     =12
      00067  3 00000 0 00574         PTH     PHYSRC   
      00070  3 00000 0 00575         PTH     NFLR     
      00071  3 00000 0 00576         PTH     NLAST    
      00072  0600 00 0 00601         STZ     TEMP     
      00073 -0500 00 0 00571         CAL     OPREAM+11
      00074  0621 00 0 00601         STA     TEMP     
      00075  0771 00 0 00022         ARS     18 
      00076  0621 00 0 00577         STA     IREC     
      00077  0500 00 0 00575         CLA     NFLR     
      00100  0520 00 0 00576         ZET     NLAST    
      00101  0400 00 0 04121         ADD     =1 
      00102  0601 00 0 00600         STO     NREC     
      00103  0402 00 0 00601         SUB     TEMP     
      00104 -0100 00 0 00044         TNZ     FL 
                              *     
      00105  0500 00 0 00577         CLA     IREC          O.K.   
      00106  0402 00 0 00600         SUB     NREC     
      00107  0100 00 0 00111         TZE     *+2
      00110  0120 00 0 00044         TPL     FL            SKIP IF IREC .GR. NREC, PREAMBLE INVALID   
                              *     
      00111  0500 00 0 00577         CLA     IREC          THIS IS A LOGICAL RECORD 
      00112  0402 00 0 04121         SUB     =1 
      00113 -0100 00 0 00044         TNZ     FL            SPACE DOWN TO NEXT FILE IF NOT 1ST LOG.REC.
                              *     
      00114                          MOVE    12,OPREAM,PREAM  THIS IS 1ST LOG.REC. IN FILE,AND WE WISH
      00114  0774 00 1 00014         AXT     12,1                                                             .001
      00115 -0500 00 1 00572         CAL     OPREAM+12,1                                                      .001
      00116  0602 00 1 74437         SLW     PREAM+12,1                                                       .001
      00117  2 00001 1 00115         TIX     *-2,1,1                                                          .001
      00120  0500 00 0 00570         CLA     OPREAM+10
      00121  0020 00 0 00130         TRA     OQC
                              *     
                              * - - - - - - - - - - - - - - - - - - - - - - - - -   
                              *      READ PREAMBLE OF 1ST DUMPED FILE OF LOAD FILE  
                              * - - - - - - - - - - - - - - - - - - - - - - - - -   
                              *     
      00122  0500 00 0 74411  OQ     CLA     X  
      00123  0400 00 0 04121         ADD     =1 
      00124  0601 00 0 74411         STO     X  
      00125  0601 00 0 00604         STO     Y  
      00126  0600 00 0 00401         STZ     SOME     
      00127  0020 00 0 00051         TRA     FLAB     
                              *     
                              *     
      00130  0601 00 0 00625  OQC    STO     DWC
      00131  0500 00 0 74411         CLA     X  
      00132  0400 00 0 04123         ADD     =12
      00133  0601 00 0 00604         STO     Y             Y=X+12 
      00134  0500 00 0 00577         CLA     IREC     
      00135  0402 00 0 00600         SUB     NREC     
      00136 -0120 00 0 00141         TMI     *+3
      00137  0500 00 0 00625         CLA     DWC           (TRAILING ZEROS NOT INCLUDED IF
      00140  0020 00 0 00142         TRA     *+2            NOT A FULL LOGICAL RECORD)    
      00141  0500 00 0 00573         CLA     LTPBF    
1       'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65    05/11/69 2002.0 PAGE 5     
                  
      00142  0601 00 0 00626         STO     RWC           DATA WORD COUNT FOR LOGICAL RECORD   
      00143  0074 00 4 00001         TSX     GETLSG,4 
      00144  0074 00 4 00365         TSX     GSOME,4  
                              *     
                              *      READ IN THE DATA WORDS OF THE 1ST LOGICAL RECORD OF FILE   
                              *     
                              *     
      00145  0074 00 4 00443         TSX     AREAD,4       READ IN RWC WORDS FROMPOSTN Y (=X+12)
 TD   00146  3 00000 0 00634         TXH     WBF
 TD   00147  3 00000 0 00626         TXH     RWC
      00150  0020 00 0 00161         TRA     ERTN          UNREAD, ERROR, SKIP
      00151  0020 00 0 00161         TRA     ERTN          READ ERROR, SKIP   
      00152  0020 00 0 00160         TRA     REOF          TAPE EOF - SKIP    
                              * - - - - - - - - - - - - - - - - - - - - -     
                              *      RESTORE AND RETURN FROM OPENDF     
                              * - - - - - - - - - - - - - - - - - - - - -     
                              *     
      00153  0774 00 4 00000  X4     AXT     **,4     
      00154  0774 00 3 00000  X3     AXT     **,3     
      00155  0774 00 2 00000  X2     AXT     **,2     
      00156  0774 00 1 00000  X1     AXT     **,1     
      00157  0020 00 4 00003         TRA     3,4           RETURN TO CALLER   
                              *     
      00160 -0625 00 0 74416  REOF   STL     TEOF          TAPE EOF RETURN    
      00161  0534 00 4 00153  ERTN   LXA     X4,4          ERROR RETURN 
      00162  0534 00 3 00154  IX3    LXA     X3,3     
      00163  0534 00 2 00155         LXA     X2,2     
      00164  0534 00 1 00156         LXA     X1,1     
      00165  0020 60 4 00001         TRA*    1,4
                              *     
                              * - - - - - - - - - - - - - - - - - - - - - - - - - - -     
                              *      READ FROM DUMPED FILE ON TAPE N WORDS INTO ANAME ETC.
                              * - - - - - - - - - - - - - - - - - - - - - - - - - - -     
                              *     
      00166  0634 00 1 00270  RDF    SXA     DX1,1    
      00167  0634 00 2 00267         SXA     DX2,2    
      00170  0634 00 3 00266         SXA     DX3,3    
      00171  0634 00 4 00265         SXA     DX4,4    
      00172  0074 00 4 00001         TSX     GETLSG,4 
      00173  0600 00 0 74416         STZ     TEOF     
      00174  0534 00 4 00265         LXA     DX4,4    
      00175  0500 00 4 00001         CLA     1,4
      00176  0621 00 0 00245         STA     RFF           ANAME  
      00177  0771 00 0 00022         ARS     18            ADDRESS OF N 
      00200  0621 00 0 00212         STA     RFA
      00201  0621 00 0 00215         STA     RFB
      00202  0500 00 0 00630         CLA     LEORRD   
      00203  0621 00 0 00526         STA     ABNADD   
      00204  0500 00 0 74444         CLA     ABANTP        TEST FOR OPRTR REQUESTED TAPE FILE ABANDON 
      00205  0100 00 0 00211         TZE     *+4           SKIP IF NOT  
      00206  0074 00 4 00006         TSX     WRFLX,4  
      00207  0 00010 0 00615                 MESL,,8  
      00210  0020 00 0 00526         TRA     EORABN        IF SO, SKIP  
                              *     
                              *      ENSURE THAT ONLY AS MANY WORDS AS ARE    
                              *      LEFT IN THE DUMPED FILE GET READ.  
1       'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65    05/11/69 2002.0 PAGE 6     
                  
                              *     
      00211  0502 00 0 00625         CLS     DWC           NO. WDS. LEFT IN FILE    
      00212  0400 00 0 00000  RFA    ADD     **            (N)    
      00213  0100 00 0 00220         TZE     RFC
      00214  0120 00 0 00220         TPL     RFC           SKIP IF N LARGER THAN NO. WORDS IN FILE    
      00215  0500 00 0 00000  RFB    CLA     **            (N)    
      00216  0600 60 4 00004         STZ*    4,4           NO END TO FILE THIS TIME 
      00217  0020 00 0 00222         TRA     RFD           SKIP   
      00220  0500 00 0 00625  RFC    CLA     DWC           NO. OF WORDS LEFT IN FILE, IS  
      00221  0601 60 4 00004         STO*    4,4           END (DUMPED) FILE WORD COUNT, AND    
      00222  0734 00 3 00000  RFD    PAX     0,3           NO. OF WORDS TO BE RETURNED BY RDF   
      00223  0601 00 0 00572         STO     NW1
      00224 -0520 00 0 00626         NZT     RWC
      00225  0020 00 0 00274         TRA     RFH           SKIP IF NOTHING LEFT IN BUFFER 
                              *     
                              *      MOVE UP TO A LOGICAL RECORD FULL OF WORDS TO CALLER'S AREA 
                              *     
      00226  0502 00 0 00626  RFDA   CLS     RWC           NO. OF WORDS LAST READ FROM LOGICAL REC.   
      00227  0400 00 0 00572         ADD     NW1
      00230  0120 00 0 00233         TPL     *+3           SKIP IF NO. WORDS TO BE READ IS BIGGER     
      00231  0500 00 0 00572         CLA     NW1           TOTAL NO. WORDS LEFT TO BE READ SMALLER    
      00232  0020 00 0 00234         TRA     *+2           SKIP TO MOVE THAT NO. ONLY     
      00233  0500 00 0 00626         CLA     RWC           ELSE USE NO. OF WORDS IN LOG. REC.   
      00234  0601 00 0 00632         STO     T             SET NO. WORDS TO BE MOVED , = T
      00235  0734 00 1 00000         PAX     0,1
      00236  0400 00 0 00245         ADD     RFF           ANAME+........     
      00237  0621 00 0 00245         STA     RFF           ANAME+........+T   
      00240  0500 00 0 00632         CLA     T             T
      00241  0400 00 0 00631         ADD     LWBF          WBF    
      00242  0400 00 0 00633         ADD     M             M
      00243  0621 00 0 00244         STA     RFE           WBF+M+T
                              *     
      00244  0500 00 1 00000  RFE    CLA     **,1          (WBF+M+T)    
      00245  0601 00 1 00000  RFF    STO     **,1          (ANAME + SUM OF ALL T'S) 
      00246  2 00001 1 00244         TIX     RFE,1,1  
                              *     
                              *      DECREASE NO. WORDS LEFT IN FILE AND IN LOG. REC. BUFFER AND NO.  
                              *      STILL NEEDED TO BE READ
                              *     
      00247  0500 00 0 00625         CLA     DWC
      00250  0402 00 0 00632         SUB     T  
      00251  0601 00 0 00625         STO     DWC
      00252  0500 00 0 00633         CLA     M  
      00253  0400 00 0 00632         ADD     T  
      00254  0601 00 0 00633         STO     M  
      00255  0500 00 0 00626         CLA     RWC
      00256  0402 00 0 00632         SUB     T  
      00257  0601 00 0 00626         STO     RWC
      00260  0500 00 0 00572         CLA     NW1
      00261  0402 00 0 00632         SUB     T  
      00262  0601 00 0 00572         STO     NW1
      00263 -0100 00 0 00274         TNZ     RFH           SKIP IF MORE WORDS NEEDED
                              *     
                              * - - - - - - - - - - - - - - 
                              *      NORMAL RETURN FROM RDF 
                              * - - - - - - - - - - - - - - 
1       'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65    05/11/69 2002.0 PAGE 7     
                  
                              *     
      00264  0074 00 4 00001         TSX     GETLSG,4 
      00265  0774 00 4 00000  DX4    AXT     **,4     
      00266  0774 00 3 00000  DX3    AXT     **,3     
      00267  0774 00 2 00000  DX2    AXT     **,2     
      00270  0774 00 1 00000  DX1    AXT     **,1     
      00271  0520 60 4 00004         ZET*    4,4           TEST E.O.F. WORD COUNT   
      00272  0020 60 4 00003         TRA*    3,4           EOF (IN DUMPED FILE) RETURN, IF NON-ZERO   
      00273  0020 00 4 00006         TRA     6,4           NORMAL RETURN IF ZERO    
                              *     
                              *      READ IN ANOTHER LOGICAL RECORD FULL
                              *     
      00274  0074 00 4 00001  RFH    TSX     GETLSG,4 
      00275  0500 00 0 00577         CLA     IREC     
      00276  0400 00 0 04121         ADD     =1 
      00277  0601 00 0 00577         STO     IREC          INDEX OF NEXT LOGICAL RECORD   
      00300  0402 00 0 00600         SUB     NREC          LAST LOG. RE. NO.  
      00301 -0120 00 0 00304         TMI     *+3           SKIP IF NOT LAST LOG. REC.     
      00302  0500 00 0 00625         CLA     DWC           LAST ONE, GET NO. WORDS LEFT IN FILE 
      00303  0020 00 0 00305         TRA     *+2           SKIP   
      00304  0500 00 0 00573         CLA     LTPBF         NOT LAST, GET SIZE OF A LOG. REC.    
      00305  0601 00 0 00626         STO     RWC           FOR NO. OF DATA WORDS TO BE READ     
      00306  0600 00 0 00633         STZ     M  
      00307  0074 00 4 00365         TSX     GSOME,4  
                              *     
      00310  0500 00 0 74411  RFHA   CLA     X  
      00311  0400 00 0 00603         ADD     LLR
      00312  0601 00 0 00604         STO     Y             MOVE Y TO START OF NEXT LOG. REC.    
      00313  0601 00 0 74411         STO     X  
                              *     
      00314                          MOVE    12,OPREAM,PRPR 
      00314  0774 00 1 00014         AXT     12,1                                                             .001
      00315 -0500 00 1 00572         CAL     OPREAM+12,1                                                      .001
      00316  0602 00 1 00556         SLW     PRPR+12,1                                                        .001
      00317  2 00001 1 00315         TIX     *-2,1,1                                                          .001
      00320  0074 00 4 00414         TSX     BREAD,4       READ PREAMBLE OF NEXT LOG. REC.
 TD   00321  3 00000 0 00556         TXH     OPREAM        AFTER MOVING 2ND COPY DOWN     
 TD   00322  3 00000 0 04123         TXH     =12           TO X, AND SETTING X=Y.   
      00323  0020 00 0 00357         TRA     DIX4          NOTHING READ 
      00324  0020 00 0 00357         TRA     DIX4          READ ERROR   
      00325  0020 00 0 00356         TRA     DIX47         TAPE EOF     
                              *     
      00326                          CMPWDS  11,OPREAM,PRPR,BADFIL
      00326  0774 00 1 00013         AXT     11,1                                                             .001
      00327 -0500 00 1 00571         CAL     OPREAM+11,1                                                      .001
      00330 -0340 00 1 00555         LAS     PRPR+11,1                                                        .001
      00331  0020 00 0 00352         TRA     BADFIL                                                           .001
      00332  0020 00 0 00334         TRA     *+2                                                              .001
      00333  0020 00 0 00352         TRA     BADFIL                                                           .001
      00334  2 00001 1 00327         TIX     *-5,1,1                                                          .001
                              *     
      00335  0500 00 0 00571         CLA     OPREAM+11
      00336  0402 00 0 00555         SUB     PRPR+11  
      00337  0100 00 0 00310         TZE     RFHA          IGNORE LOG.REC. IF SAME NO. AS LAST  
                              *     
      00340  0500 00 0 74411  RFI    CLA     X  
1       'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65    05/11/69 2002.0 PAGE 8     
                  
      00341  0400 00 0 04123         ADD     =12
      00342  0601 00 0 00604         STO     Y             Y=X+12 
                              *     
      00343  0074 00 4 00443         TSX     AREAD,4       READ IN RWC DATA WORDS FROM    
 TD   00344  3 00000 0 00634         TXH     WBF           POSTN. Y = X+12 OF TAPE FILE   
 TD   00345  3 00000 0 00626         TXH     RWC
      00346  0020 00 0 00357         TRA     DIX4     
      00347  0020 00 0 00357         TRA     DIX4     
      00350  0020 00 0 00356         TRA     DIX47    
                              *     
      00351  0020 00 0 00226         TRA     RFDA          RETURN TO MOVE WORDS FROM BUFFER     
                              *     
      00352  0500 00 0 00401  BADFIL CLA     SOME     
      00353 -0760 00 0 00003         SSM  
      00354  0601 00 0 00401         STO     SOME     
      00355  0020 00 0 00357         TRA     DIX4     
                              *     
                              *      ERROR RETURN FROM RDF  
                              *     
      00356 -0625 00 0 74416  DIX47  STL     TEOF     
      00357  0074 00 4 00001  DIX4   TSX     GETLSG,4 
      00360  0534 00 4 00265         LXA     DX4,4    
      00361  0534 00 3 00266  DIX3   LXA     DX3,3    
      00362  0534 00 2 00267         LXA     DX2,2    
      00363  0534 00 1 00270         LXA     DX1,1    
      00364  0020 60 4 00002         TRA*    2,4
                              *     
      00365  0774 00 1 00001  GSOME  AXT     1,1
      00366  0500 00 0 00626         CLA     RWC
      00367  0400 00 0 04123         ADD     =12
      00370  0402 00 0 04124         SUB     =432     
      00371 -0120 00 0 00374         TMI     *+3
      00372  0100 00 0 00374         TZE     *+2
      00373  1 00001 1 00370         TXI     *-3,1,1  
      00374  0754 00 1 00000         PXA     ,1 
      00375  0131 00 0 00000         XCA  
      00376  0200 00 0 04124         MPY     =432     
      00377 -0600 00 0 00401         STQ     SOME     
      00400  0020 00 4 00001         TRA     1,4
                              *     
      00401  0 00000 0 00000  SOME   PZE  
                              *     
                              * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -     
                              *      BASIC READ - SKIP 2ND COPY DOWN TO X, SET X=Y, READ FROM MAIN    
                              *       COPY, POSITION Y, INTO (1,4), A NO. OF WORDS GIVEN BY (2,4).    
                              * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -     
                              *     
      00402  0634 00 4 00410  CHERR  SXA     CH4,4    
      00403  0074 00 4 00003         TSX     IODIAG,4 
      00404  3 00007 0 00533         TXH     ERAY,,7  
      00405 -0500 00 0 00536         CAL     ERAY+3   
      00406  0402 00 0 04122         SUB     =6 
      00407  0100 00 0 00412         TZE     ANYEOF   
      00410  0774 00 4 00000  CH4    AXT     **,4     
      00411  0020 00 4 00002         TRA     2,4
      00412  0534 00 4 00410  ANYEOF LXA     CH4,4    
1       'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65    05/11/69 2002.0 PAGE 9     
                  
      00413  0020 60 4 00001         TRA*    1,4
                              *     
                              *     
      00414  0634 00 4 00504  BREAD  SXA     BRX4,4   
      00415  0500 00 4 00001         CLA     1,4
      00416  0621 00 0 00455         STA     BRE
      00417  0621 00 0 00500         STA     BRI
      00420  0500 60 4 00002         CLA*    2,4
      00421  0601 00 0 00605         STO     NWORDS   
      00422                          SKIFNB  AREADA        SKIP IF NO 2ND TAPE COPY 
      00422  0500 00 0 74443         CLA     NOCHAN                                                           .001
      00423  0402 00 0 04121         SUB     =1                                                               .001
      00424  0100 00 0 00451         TZE     AREADA                                                           .001
                              *     
      00425  0074 00 4 00004         TSX     RDFILE,4 
      00426  3 00000 0 74422         PTH     BFNA     
      00427  3 00000 0 74421         PTH     BFNB     
      00430  3 00000 0 74411         PTH     X  
      00431  3 00001 0 00601         PTH     TEMP,,1  
      00432  3 00000 0 00515         PTH     BRM
      00433  3 00000 0 00601         PTH     TEMP     
      00434  3 00000 0 00436         PTH     BRB
      00435  0020 00 0 00451         TRA     AREADA   
                              *     
      00436  0074 00 4 00402  BRB    TSX     CHERR,4  
 TD   00437  3 00000 0 00515         TXH     BRM
      00440                          PRM     MESK,7   
      00440  0074 00 4 00006         TSX     WRFLX,4                                                          .001
      00441  0 00007 0 00606                 MESK,,7                                                          .001
      00442  0020 00 0 00451         TRA     AREADA   
                              *     
                              *      READ FROM MAIN COPY, POSITION Y, INTO (1,4) ET SEQ, (2,4) WORDS  
                              *     
      00443  0634 00 4 00504  AREAD  SXA     BRX4,4   
      00444  0500 00 4 00001         CLA     1,4
      00445  0621 00 0 00455         STA     BRE
      00446  0621 00 0 00500         STA     BRI
      00447  0500 60 4 00002         CLA*    2,4
      00450  0601 00 0 00605         STO     NWORDS   
      00451  0074 00 4 00002  AREADA TSX     RDWAIT,4 
 TD   00452  3 00000 0 74440         TXH     LFNA     
 TD   00453  3 00000 0 74437         TXH     LFNB     
 TD   00454  3 00000 0 00604         TXH     Y  
      00455  2 00605 0 00000  BRE    TIX     **,,NWORDS     
 TD   00456  3 00000 0 00515         TXH     BRM
 TD   00457  3 00000 0 74416         TXH     TEOF     
 TD   00460  3 00000 0 00463         TXH     BRF
      00461  0074 00 4 00001         TSX     GETLSG,4 
      00462  0020 00 0 00504         TRA     BRX4     
                              *     
      00463  0074 00 4 00402  BRF    TSX     CHERR,4  
 TD   00464  3 00000 0 00515         TXH     BRM
                              *     
                              *      ERROR, TRY TO READ FROM SECONDARY COPY INSTEAD OF MAIN ONE 
                              *     
      00465                          SKIFNB  BRK           SKIP IF NO 2ND TAPE COPY 
1       'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65    05/11/69 2002.0 PAGE 10    
                  
      00465  0500 00 0 74443         CLA     NOCHAN                                                           .001
      00466  0402 00 0 04121         SUB     =1                                                               .001
      00467  0100 00 0 00510         TZE     BRK                                                              .001
      00470  0074 00 4 00005         TSX     FWAIT,4       WAIT ON I/O. 
 TD   00471  3 00000 0 74422         TXH     BFNA     
 TD   00472  3 00000 0 74421         TXH     BFNB     
 TD   00473  3 00000 0 00474         TXH     *+1
      00474  0074 00 4 00002         TSX     RDWAIT,4 
 TD   00475  3 00000 0 74422         TXH     BFNA     
 TD   00476  3 00000 0 74421         TXH     BFNB     
 TD   00477  3 00000 0 00604         TXH     Y  
      00500  2 00605 0 00000  BRI    TIX     **,,NWORDS     
 TD   00501  3 00000 0 00515         TXH     BRM
 TD   00502  3 00000 0 74416         TXH     TEOF     
 TD   00503  3 00000 0 00506         TXH     BRJ
      00504  0774 00 4 00000  BRX4   AXT     **,4     
      00505  0020 00 4 00006         TRA     6,4
                              *     
      00506  0074 00 4 00402  BRJ    TSX     CHERR,4  
 TD   00507  3 00000 0 00515         TXH     BRM
      00510  0074 00 4 00007  BRK    TSX     $PRNTER,4
      00511  0534 00 4 00504         LXA     BRX4,4   
      00512  0020 00 4 00004         TRA     4,4
                              *     
      00513  0534 00 4 00504  BRLA   LXA     BRX4,4   
      00514  0020 00 4 00005         TRA     5,4
                              *     
      00515  0074 00 4 00010  BRM    TSX     $TSTEOF,4     END OF REEL  
      00516  0020 00 0 00526         TRA     ABNADD        ABANDON TAPE FILE  
      00517  0020 00 0 00521         TRA     *+2           ERROR  
      00520  0020 00 0 00513         TRA     BRLA          END OF FILE (LAST REEL)  
      00521  0500 00 0 00574         CLA     PHYSRC        END OF REEL, REELS CHANGED     
      00522  0400 00 0 04121         ADD     =1 
      00523  0601 00 0 74411         STO     X  
      00524  0601 00 0 00604         STO     Y  
      00525  0020 00 0 00451         TRA     AREADA   
                              *     
                       00526  EORABN EQU     *  
      00526  0020 00 0 00000  ABNADD TRA     **            (OPENDF OR RDF RETURN)   
                              *     
      00527  0534 00 4 00153  EORAB1 LXA     X4,4          OPENDF RETURN
      00530  1 77777 4 00162         TXI     IX3,4,-1      GO RETURN VIA (2,4)
                              *     
      00531  0534 00 4 00265  EORAB2 LXA     DX4,4         RDF RETURN   
      00532  1 77775 4 00361         TXI     DIX3,4,-3     GO RETURN VIA (5,4)
                              *     
                              * - - - - - - - - - - - - - - - - - - - - - - - - - - - -   
                              *      CONSTANTS, VARIABLES, ETC.   
                              * - - - - - - - - - - - - - - - - - - - - - - - - - - - -   
                              *     
      00533                   ERAY   BSS     7  
      00542                   PRPR   BSS     12 
      00556                   OPREAM BSS     12 
      00572  0 00000 0 00000  NW1    PZE  
      00573  0 00000 0 03264  LTPBF  PZE     4*432-12 
      00574  0 00000 0 00660  PHYSRC PZE     432
1       'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65    05/11/69 2002.0 PAGE 11    
                  
      00575  0 00000 0 00000  NFLR   PZE  
      00576  0 00000 0 00000  NLAST  PZE  
      00577  0 00000 0 00000  IREC   PZE  
      00600  0 00000 0 00000  NREC   PZE  
      00601                   TEMP   BSS     2  
      00603  0 00000 0 03300  LLR    PZE     4*432    
      00604  0 00000 0 00000  Y      PZE  
      00605  0 00000 0 00000  NWORDS PZE  
      00606  606225234645     MESK   BCI     7, SECONDARY COPY NOT MOVED DOWN THIS TIME.  
      00615  606321472560     MESL   BCI     8, TAPE FILE WILL BE ABANDONED, PUT KEY UP AGAIN.  
      00625  0 00000 0 00000  DWC    PZE  
      00626  0 00000 0 00000  RWC    PZE  
      00627  0 00000 0 00527  LEOROP PZE     EORAB1   
      00630  0 00000 0 00531  LEORRD PZE     EORAB2   
      00631  0 00000 0 00634  LWBF   PZE     WBF
      00632  0 00000 0 00000  T      PZE  
      00633  0 00000 0 00000  M      PZE  
      00634                   WBF    BSS     4*432-12 
                                     INSERT  BCMEQB   
                              *     
                              *  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -     
                              *      COMMON AND EQUIVALENCE FOR SECONDARY STORAGE LOAD    
                              *         (TIME-SHARING VERSION)    
                              *  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -     
                              *     
                      074446  DEMKEY BOOL    74446         CORE A LOCATION FOR DAEMON KEY SETTING     
                              *     
                      000017  BASE   BOOL    17            KEY CODE BASE
                      000001  CTINUE BOOL    1             KEY CODE TO CONTINUE WITH PROGRAM,NO CHANGE
                      000002  PAUSE  BOOL    2             KEY CODE TO WAIT 60 SECS.
                      000003  CHLDFL BOOL    3             KEY CODE TO USE DIFFERENT LOAD FILE  
                      000004  STOPLD BOOL    4             KEY CODE TO STOP LOADING, START DUMPING    
                      000005  ABANKY BOOL    5             KEY CODE TO ABANDON LOAD TAPE FILE   
                      000006  SWCHAN BOOL    6             KEY CODE TO GO FROM 1 OR 2 TO 2 OR 1 CHANS.
                      000007  LSREEL BOOL    7             KEY CODE TO INDICATE LAST REEL OF LOAD FILE
                      000010  CHREEL BOOL    10            KEY CODE TO CORRECT REEL ORDER ERROR 
                       77777  NEWCOM EQU     -1            TOP OF MEMORY
                      077461  OLDCOM BOOL    77461         OLD TOP OF COMMON  
                       77462  COMRLC EQU     OLDCOM-NEWCOM RELOCATION FACTOR  
                       77777         COMMON  COMRLC        RELOCATE COMMON    
                       01554  UF     EQU     32767/2-DEMKEY/2 LENGTH OF USER LIST   
                       77777  UFL    COMMON  2*UF          USER FILE LIST  (1ST PARTS OF FILE NAMES)  
                       74446         COMMON  1             INSERT DUMMY IF NECESSARY
                       74445         COMMON  1             DEMKEY CELL IN NON-CTSS VERSION
                       74445  KEYVAL COMMON  1  
                       74444  ABANTP COMMON  1             ABANDON TAPE FILE INDICATOR    
                       74443  NOCHAN COMMON  1             NO. OF CHANNELS BEING READ (1 OR 2)  
                       74442  DU     COMMON  1             PROBLEM NO. OF DUMP/LOAD PACKAGE     
                       74441  DP     COMMON  1             PROGRAMMER NO. OF DITTO. 
                       74440  LFNA   COMMON  1             LOAD TAPE FILE NAME (PART 1)   
                       74437  LFNB   COMMON  1              ,,   ,,   ,,   ,,  (PART 2)   
                       74423         COMMON  11            DUMPED FILE'S PREAMBLE FROM DUMP TAPE
                       74423  PREAM  COMMON  1             DUMPED FILE'S DUMP TAPE PREAMBLE 1ST WORD  
                       74422  BFNA   COMMON  1             CHANNEL B LOAD TAPE FILE NAME (PART 1)     
                       74421  BFNB   COMMON  1             CHANNEL B LOAD TAPE FILE NAME (PART 2)     
                       74420  AUN    COMMON  1             CHANNEL A UNIT NO. 
1       'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65    05/11/69 2002.0 PAGE 12    
                  
                       74417  BUN    COMMON  1             CHANNEL B UNIT NO. 
                       74416  TEOF   COMMON  1             TAPE EOF INDICATOR/WORD COUNT  
                       74412         COMMON  3             LABEL OF TAPE FILE CURRENTLY BEING LOADED  
                       74412  LABEL  COMMON  1             LABEL OF TAPE FILE DITTO.   1ST WORD 
                       74411  X      COMMON  1             TAPE FILE POINTER  
                                     END  
                  
1       'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65    05/11/69 2002.0 PAGE 1     
                        POST PROCESSOR ASSEMBLY DATA  
                  
       74410 IS THE LAST LOCATION NOT USED BY THIS PROGRAM  
       4125 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM  
                  
0REFERENCES TO DEFINED SYMBOLS      
        633      M    17,  242,  252,  254,  306
        632      T   234,  240,  250,  253,  256,  261
      74411      X    31,   37,   41,   45,   47,  122,  124,  131,  310,  313,  340,  430,  523, 4120
        604      Y    42,   50,  125,  133,  312,  342,  454,  477,  524
      74441     DP  4120
      74442     DU  4120
         44     FL    44,   60,  104,  110,  113
        122     OQ    34
       1554     UF  4120
        156     X1    13,  164
        155     X2    14,  163
        154     X3    15,  162
        153     X4    16,  161,  527
      74420    AUN  4120
        436    BRB   434
        455    BRE   416,  445
        463    BRF   460
        500    BRI   417,  446
        506    BRJ   503
        510    BRK   467
        515    BRM   432,  437,  456,  464,  501,  507
      74417    BUN  4120
        410    CH4   402,  412
        625    DWC   130,  137,  211,  220,  247,  251,  302
        270    DX1   166,  363
        267    DX2   167,  362
        266    DX3   170,  361
        265    DX4   171,  174,  360,  531
         44    FLA    54,   55
        162    IX3   530
        603    LLR   311
        572    NW1   223,  227,  231,  260,  262
        130    OQC   121
        166    RDF     0
        212    RFA   200
        215    RFB   201
        220    RFC   213,  214
        222    RFD   217
        244    RFE   243,  246
        245    RFF   176,  236,  237
        274    RFH   225,  263
        340    RFI      
        626    RWC   142,  147,  224,  226,  233,  255,  257,  305,  345,  366
      77777    UFL  4120
        634    WBF   146,  344,  631
         17   BASE  4120
      74422   BFNA   426,  471,  475, 4120
      74421   BFNB   427,  472,  476, 4120
        513   BRLA   520
        504   BRX4   414,  443,  462,  511,  513
1       'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65    05/11/69 2002.0 PAGE 2     
                        POST PROCESSOR ASSEMBLY DATA  
                  
        361   DIX3   532
        357   DIX4   323,  324,  346,  347,  355
        533   ERAY   404,  405
        161   ERTN    33,  150,  151
         51   FLAB   127
        577   IREC    76,  105,  111,  134,  275,  277
         57   JUMP    36
      74440   LFNA   452, 4120
      74437   LFNB   453, 4120
        631   LWBF   241
        606   MESK   441
        615   MESL    27,  207
        575   NFLR    70,   77
        600   NREC   102,  106,  135,  300
        542   PRPR   316,  330,  336
        160   REOF    56,  152
        226   RFDA   351
        310   RFHA   337
        401   SOME    35,   40,  126,  352,  354,  377
        601   TEMP    72,   74,  103,  431,  433
      74416   TEOF    20,  160,  173,  356,  457,  502, 4120
        443  AREAD   145,  343
        414  BREAD    51,  320
        402  CHERR   436,  463,  506
        356  DIX47   325,  350
          5  FWAIT   470
        365  GSOME   144,  307
      74412  LABEL  4120
        573  LTPBF    65,  141,  304
        576  NLAST    71,  100
          0  NLREC    61
          2  PAUSE  4120
      74423  PREAM   116, 4120
          6  WRFLX    26,  206,  440
          5 ABANKY  4120
      74444 ABANTP    24,  204, 4120
        526 ABNADD    22,  203,  516
        412 ANYEOF   407
        451 AREADA   424,  435,  442,  525
        352 BADFIL   331,  333
          3 CHLDFL  4120
         10 CHREEL  4120
      77462 COMRLC  4120
          1 CTINUE  4120
      74446 DEMKEY  4120
        527 EORAB1   627
        531 EORAB2   630
        526 EORABN    30,  210,  526
          1 GETLSG    23,   44,  143,  172,  264,  274,  357,  461
          3 IODIAG   403
      74445 KEYVAL  4120
        627 LEOROP    21
        630 LEORRD   202
          7 LSREEL  4120
      77777 NEWCOM  4120
1       'OPEN' DUMPED FILE/READ N WORDS FROM DUMPED FILE...M.J.BAILEY,1/31/65    05/11/69 2002.0 PAGE 3     
                        POST PROCESSOR ASSEMBLY DATA  
                  
      74443 NOCHAN   422,  465, 4120
        605 NWORDS   421,  450,  455,  500
      77461 OLDCOM  4120
         13 OPENDF     0
        556 OPREAM    52,   57,   64,   73,  115,  120,  315,  321,  327,  335
        574 PHYSRC    32,   46,   67,  521
          7 PRNTER   510
          4 RDFILE   425
          2 RDWAIT   451,  474
          4 STOPLD  4120
          6 SWCHAN  4120
         10 TSTEOF   515
                  
0 NO ERROR IN ABOVE ASSEMBLY. 
1       INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65      05/11/69 2002.3 PAGE 1     
                  
                              *           (TIME-SHARING VERSION)  
                              *     
                       00022         ENTRY   INITTF   
                       00403         ENTRY   TERMTF   
                       00437         ENTRY   TSTEOF   
                              *     
                                     EXTERN  GETLSG,IOBDT   
                                     EXTERN  ATTACH   
                                     EXTERN  ATTNAM   
                                     EXTERN  RDWAIT,FWAIT   
                                     EXTERN  VERIFY,BUFFER,OPEN,SLEEP   
                                     EXTERN  MOUNT,UMOUNT,CLOSE,WRFLX   
                              *     
                                     INSERT  BMCRSC   
                              *     
                              *  ZERO-IZE A THROUGH A+X-1   
                              *     
                               CLEAR MACRO   A,X
                                     AXT     X,1
                                     STZ     A+X,1    
                                     TIX     *-1,1,1  
                               CLEAR END  
                              *     
                              *      MOVE X WORDS FROM A ET SEQ TO B ET SEQ   
                              *     
                               MOVE  MACRO   X,A,B    
                                     AXT     X,1
                                     CAL     A+X,1    
                                     SLW     B+X,1    
                                     TIX     *-2,1,1  
                               MOVE  END  
                              *     
                              *  PRINT ONE LINE COMMENT     
                              *     
                              PRLINE MACRO   COMNT,NWC,LOC  
                                     TSX     WRFLX,4  
                                             LOC,,NWC 
                                     RMT  
                               LOC   BCI     NWC,COMNT
                                     RMT  
                              PRLINE END  
                              *     
                              *     
                              *      EXECUTE INST. IN CORE A
                              *     
                              *     
                              EXEC   MACRO   OPC,ADD  
                                     TSX     $GETA,7  
                                     OPC     ADD
                              EXEC   END  
                              *     
                              *      GET KEY SETTING VIA SUPERVISOR, SET ABANTP, NOCHAN IF APPROPRIATE
                              *     
                              GETSIG MACRO
                                     TSX     GETLSG,4 
                              GETSIG END  
1       INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65      05/11/69 2002.3 PAGE 2     
                  
                              *     
                              *      TEST WHETHER 2ND TAPE COPY IS NEEDED, IF NOT GO TO SKIP    
                              *     
                              SKIFNB MACRO   SKIP     
                                     CLA     NOCHAN   
                                     SUB     =1 
                                     TZE     SKIP     
                              SKIFNB END  
                              *     
                              *      PRINT AN N-WORD MESSAGE FROM  MESSGE     
                              *     
                              PRM    MACRO   MESSGE,N 
                                     TSX     WRFLX,4  
                                             MESSGE,,N
                              PRM    END  
                              *     
                              *      COMPARE 2 SETS OF N CONSECUTIVE WORDS IN A ETC., AND B ETC. ,    
                              *      AND IF THEY DO NOT ALL MATCH, GO TO NF, OR OTHERWISE CONTINUE.   
                              *     
                              CMPWDS MACRO   N,A,B,NF 
                                     AXT     N,1
                                     CAL     A+N,1    
                                     LAS     B+N,1    
                                     TRA     NF 
                                     TRA     *+2
                                     TRA     NF 
                                     TIX     *-5,1,1  
                              CMPWDS END  
                              *     
                              *      WAIT FOR I/O ON FILE (A,B) TO END, GO TO E IF ERROR OCCURRED     
                              *     
                              WAIT   MACRO   A,B,E    
                                     TSX     FWAIT,4  
                                     PTH     A  
                                     PTH     B  
                                     PTH     E  
                              WAIT   END  
                              *     
                              *      CLOSE THE FILE (A,B)   
                              *     
                              CLOSE  MACRO   A,B
                                     TSX     CLOSE,4  
                                     PTH     A  
                                     PTH     B  
                              CLOSE  END  
                              *     
                              * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -     
                              *      INITIATE DUMP TAPE FILE READ (OPEN, AND READ I.D     
                              *       LABELS FROM BOTH COPIES, AND CHECK THEY MATCH)
                              * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -     
                              *     
                  
      00000  272563436227     GETLSG
      00001  314622246360     IOBDT 
      00002  216363212330     ATTACH
      00003  216363452144     ATTNAM
1       INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65      05/11/69 2002.3 PAGE 3     
                  
      00004  512466213163     RDWAIT
      00005  266621316360     FWAIT 
      00006  652551312670     VERIFY
      00007  226426262551     BUFFER
      00010  464725456060     OPEN  
      00011  624325254760     SLEEP 
      00012  444664456360     MOUNT 
      00013  644446644563     UMOUNT
      00014  234346622560     CLOSE 
      00015  665126436760     WRFLX 
      00016  475145632551     PRNTER
      00017  216242464751     ASKOPR
                  
                  
      00022  0634 00 1 00401  INITTF SXA     X1,1     
      00023  0634 00 2 00400         SXA     X2,2     
      00024  0634 00 3 00377         SXA     X3,3     
      00025  0634 00 4 00376         SXA     X4,4     
      00026  0074 00 4 00000         TSX     GETLSG,4 
      00027                          SKIFNB  IA            SKIP IF ONLY ONE TAPE COPY     
      00027  0500 00 0 74443         CLA     NOCHAN                                                           .001
      00030  0402 00 0 03265         SUB     =1                                                               .001
      00031  0100 00 0 00077         TZE     IA                                                               .001
                              *     
                              *      VERIFY THAT 2ND CHANNEL HAS CORRECT DUPLICATE MOUNTED
                              *     
      00032  0774 00 2 00012         AXT     10,2     
      00033  0074 00 4 00006  CHCKBA TSX     VERIFY,4 
 TD   00034  3 00000 0 74417         TXH     BUN
      00035  3 00004 0 74412         TXH     LABEL,,4 
 TD   00036  3 00000 0 00041         TXH     CHCKBB        ERROR  
 TD   00037  3 00000 0 01014         TXH     ERCODE   
      00040  0020 00 0 00077         TRA     IA            SKIP IF OTHER CHANNEL O.K.     
                              *     
      00041  0074 00 4 00016  CHCKBB TSX     $PRNTER,4
      00042  0500 00 0 01014         CLA     ERCODE   
      00043  0402 00 0 03267         SUB     =7 
      00044 -0100 00 0 00070         TNZ     CHCKBD        SKIP IF NOT INCORRECT-LABEL ERROR    
      00045  2 00002 2 00033         TIX     CHCKBA,2,2    TRY 5 TIMES IF LABEL IS INCORRECT    
                              *     
      00046  0074 00 4 00013  WRONGB TSX     UMOUNT,4      IF STILL WRONG UNMOUNT THIS TAPE     
 TD   00047  3 00000 0 74417         TXH     BUN
      00050  2 01103 0 01067         TIX     WRNGT2,,LWT2   
      00051  0074 00 4 00017  CHCKBC TSX     $ASKOPR,4
      00052  3 00006 0 01035         PTH     MESC,,6  
      00053  3 00001 0 00063         PTH     CONT,,CTINUE   
      00054  3 00006 0 01043         PTH     MESD,,6  
      00055  3 00003 0 00075         PTH     QUITFL,,CHLDFL 
      00056  3 00006 0 01051         PTH     MESE,,6  
      00057  3 00002 0 00060         PTH     REST,,PAUSE    
                              *     
      00060 -0500 00 0 03271  REST   CAL     =45
      00061  0074 00 4 00011         TSX     SLEEP,4  
      00062  0020 00 0 00051         TRA     CHCKBC   
      00063  0074 00 4 00012  CONT   TSX     MOUNT,4       MOUNT ANOTHER ON 2ND CHANNEL   
 TD   00064  3 00000 0 03266         TXH     =2 
1       INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65      05/11/69 2002.3 PAGE 4     
                  
 TD   00065  3 00000 0 74417         TXH     BUN
      00066  2 01113 0 01104         TIX     RMT2,,LRMT2    
      00067  0020 00 0 00032         TRA     CHCKBA-1      AND RE-VERIFY
                              *     
      00070  2 00001 2 00033  CHCKBD TIX     CHCKBA,2,1    TRY 10 TIMES IF SOME OTHER ERROR     
      00071  0074 00 4 00013         TSX     UMOUNT,4      THEN UNMOUNT THIS TAPE   
 TD   00072  3 00000 0 74417         TXH     BUN
      00073  2 01132 0 01114         TIX     BADT2,,LBT2    
      00074  0020 00 0 00051         TRA     CHCKBC        THEN GO STOP TO SEE WHAT NEXT  
                              *     
                       00075  QUITFL EQU     *             TO ABANDON THIS TAPE FILE,     
      00075  0534 00 4 00376  ABEXT  LXA     X4,4     
      00076  1 00001 4 00377         TXI     X3,4,1        THEN GO EXIT VIA 1,4     
                              *     
                              *      OPEN TAPE FILE 1ST COPY AND READ ITS I.D.
                              *     
      00077  0774 00 2 00012  IA     AXT     10,2     
      00100  0074 00 4 00010  IAA    TSX     OPEN,4   
 TD   00101  3 00000 0 01013         TXH     R  
 TD   00102  3 00000 0 74440         TXH     LFNA     
 TD   00103  3 00000 0 74437         TXH     LFNB     
 TD   00104  3 00000 0 03273         TXH     =-0
 TD   00105  3 00000 0 03273         TXH     =-0
 TD   00106  3 00000 0 00162         TXH     ID            ERROR  
                              *     
      00107  0074 00 4 00007         TSX     BUFFER,4      ASSIGN BUFFERS     
 TD   00110  3 00000 0 74440         TXH     LFNA     
 TD   00111  3 00000 0 74437         TXH     LFNB     
      00112  2 01015 0 01410         TIX     IB1,,LIB 
      00113 -0500 00 0 03265         CAL     =1 
      00114  0602 00 0 74411         SLW     X  
                              *     
      00115  0774 00 3 00066         AXT     RECSIZ/8,3     
      00116  0074 00 4 00004  IB     TSX     RDWAIT,4      READ I.D. RECORD LABEL   
 TD   00117  3 00000 0 74440         TXH     LFNA     
 TD   00120  3 00000 0 74437         TXH     LFNB     
 TD   00121  3 00000 0 74411         TXH     X  
      00122  3 00010 0 02270         TXH     WBF,,8   
 TD   00123  3 00000 0 00200         TXH     IE            EOF, ERROR   
 TD   00124  3 00000 0 74416         TXH     TEOF     
 TD   00125  3 00000 0 00136         TXH     IC 
      00126  0074 00 4 00000         TSX     GETLSG,4 
      00127  0600 00 0 01012         STZ     IDERR         I.D. LABEL READ O.K., SKIP TO DO 2ND COPY  
      00130                          MOVE    8,WBF,TAPEID   
      00130  0774 00 1 00010         AXT     8,1                                                              .001
      00131 -0500 00 1 02300         CAL     WBF+8,1                                                          .001
      00132  0602 00 1 02324         SLW     TAPEID+8,1                                                       .001
      00133  2 00001 1 00131         TIX     *-2,1,1                                                          .001
      00134  0600 00 0 02324         STZ     TAPEID+8 
      00135  0020 00 0 00206         TRA     IG 
                              *     
      00136  0074 00 4 00016  IC     TSX     $PRNTER,4     READ ERROR   
      00137  0500 00 0 74411         CLA     X  
      00140  0400 00 0 03270         ADD     =8 
      00141  0601 00 0 74411         STO     X  
      00142  2 00001 3 00116         TIX     IB,3,1        TRY AGAIN AT NEXT REPETITION OF LABEL
1       INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65      05/11/69 2002.3 PAGE 5     
                  
      00143                          PRM     MESA,8        I.D. IS UNREAD,    
      00143  0074 00 4 00015         TSX     WRFLX,4                                                          .001
      00144  0 00010 0 01020                 MESA,,8                                                          .001
      00145  0074 00 4 00017  BACK   TSX     $ASKOPR,4
      00146  3 00006 0 01035         PTH     MESC,,6  
      00147  3 00001 0 00157         PTH     CONT1,,CTINUE  
      00150  3 00006 0 01043         PTH     MESD,,6  
      00151  3 00003 0 00075         PTH     QUITFL,,CHLDFL 
      00152  3 00006 0 01051         PTH     MESE,,6  
      00153  3 00002 0 00154         PTH     REST1,,PAUSE   
                              *     
      00154 -0500 00 0 03271  REST1  CAL     =45
      00155  0074 00 4 00011         TSX     SLEEP,4  
      00156  0020 00 0 00145         TRA     BACK     
                              *     
      00157  0500 00 0 03265  CONT1  CLA     =1            OR CONTINUE WITHOUT CHECKING I.D.'S  
      00160  0601 00 0 01012         STO     IDERR    
      00161  0020 00 0 00206         TRA     IG 
                              *     
      00162                   ID     PRM     MESB,5        ERROR OPENING FILE 
      00162  0074 00 4 00015         TSX     WRFLX,4                                                          .001
      00163  0 00005 0 01030                 MESB,,5                                                          .001
      00164  0074 00 4 00016         TSX     $PRNTER,4
      00165  2 00001 2 00100  IDA    TIX     IAA,2,1       TRY 10 TIMES TO OPEN     
      00166  0074 00 4 00017  BACK1  TSX     $ASKOPR,4
      00167  3 00006 0 01035         PTH     MESC,,6  
      00170  3 00001 0 00077         PTH     IA,,CTINUE     
      00171  3 00006 0 01043         PTH     MESD,,6  
      00172  3 00003 0 00075         PTH     QUITFL,,CHLDFL 
      00173  3 00006 0 01051         PTH     MESE,,6  
      00174  3 00002 0 00175         PTH     REST2,,PAUSE   
                              *     
      00175 -0500 00 0 03271  REST2  CAL     =45
      00176  0074 00 4 00011         TSX     SLEEP,4  
      00177  0020 00 0 00166         TRA     BACK1    
                              *     
      00200                   IE     PRM     MESF,8        EOF IN WRONG PLACE 
      00200  0074 00 4 00015         TSX     WRFLX,4                                                          .001
      00201  0 00010 0 01057                 MESF,,8                                                          .001
      00202                          CLOSE   LFNA,LFNB
      00202  0074 00 4 00014         TSX     CLOSE,4                                                          .001
      00203  3 00000 0 74440         PTH     LFNA                                                             .001
      00204  3 00000 0 74437         PTH     LFNB                                                             .001
      00205  0020 00 0 00165         TRA     IDA           TRY TEN TIMES TO NOT GET ONE   
                              *     
                              *     
                              *      OPEN TAPE FILE 2ND COPY, READ ITS I.D. LABEL   
                              *     
      00206                   IG     SKIFNB  IS 
      00206  0500 00 0 74443         CLA     NOCHAN                                                           .001
      00207  0402 00 0 03265         SUB     =1                                                               .001
      00210  0100 00 0 00350         TZE     IS                                                               .001
      00211  0774 00 2 00012         AXT     10,2     
      00212  0074 00 4 00010  IH     TSX     OPEN,4   
 TD   00213  3 00000 0 01013         TXH     R  
 TD   00214  3 00000 0 74422         TXH     BFNA     
1       INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65      05/11/69 2002.3 PAGE 6     
                  
 TD   00215  3 00000 0 74421         TXH     BFNB     
 TD   00216  3 00000 0 03273         TXH     =-0
 TD   00217  3 00000 0 03273         TXH     =-0
 TD   00220  3 00000 0 00272         TXH     IK            ERROR  
                              *     
      00221  0074 00 4 00007         TSX     BUFFER,4      ASSIGN BUFFER
 TD   00222  3 00000 0 74422         TXH     BFNA     
 TD   00223  3 00000 0 74421         TXH     BFNB     
      00224  2 01015 0 02325         TIX     IB2,,LIB 
      00225 -0500 00 0 03265         CAL     =1 
      00226  0602 00 0 74411         SLW     X  
                              *     
      00227  0774 00 3 00066         AXT     RECSIZ/8,3     
      00230  0074 00 4 00004  II     TSX     RDWAIT,4      READ I.D. RECORD LABEL   
 TD   00231  3 00000 0 74422         TXH     BFNA     
 TD   00232  3 00000 0 74421         TXH     BFNB     
 TD   00233  3 00000 0 74411         TXH     X  
      00234  2 01017 0 02300         TIX     WBF+8,,L8
 TD   00235  3 00000 0 00310         TXH     IM            EOF, ERROR   
 TD   00236  3 00000 0 74416         TXH     TEOF     
 TD   00237  3 00000 0 00243         TXH     IJ 
      00240 -0520 00 0 01012         NZT     IDERR         I.D. READ O.K.     
      00241  0020 00 0 00320         TRA     IO            SKIP TO COMPARE IF BOTH READ   
      00242  0020 00 0 00342         TRA     IR            OR CARRY ON WITH NO CHECK
                              *     
      00243  0074 00 4 00016  IJ     TSX     $PRNTER,4
      00244  0500 00 0 74411         CLA     X  
      00245  0400 00 0 03270         ADD     =8 
      00246  0601 00 0 74411         STO     X  
      00247  2 00001 3 00230         TIX     II,3,1        TRY TO READ AGAIN AT REPETITION OF LABEL   
      00250 -0500 00 0 03275         CAL     =H ON 2N 
      00251  0602 00 0 01022         SLW     MESA+2   
      00252 -0500 00 0 03272         CAL     =HD COPY 
      00253  0602 00 0 01023         SLW     MESA+3   
      00254                          PRM     MESA,8   
      00254  0074 00 4 00015         TSX     WRFLX,4                                                          .001
      00255  0 00010 0 01020                 MESA,,8                                                          .001
      00256  0520 00 0 01012         ZET     IDERR    
      00257  0020 00 0 00075         TRA     QUITFL        ABANDON BOTH TAPES IF NO I.D.'S READ 
      00260  0074 00 4 00017  BACK2  TSX     $ASKOPR,4
      00261  3 00006 0 01035         PTH     MESC,,6  
      00262  3 00001 0 00342         PTH     IR,,CTINUE     
      00263  3 00006 0 01043         PTH     MESD,,6  
      00264  3 00003 0 00075         PTH     QUITFL,,CHLDFL 
      00265  3 00006 0 01051         PTH     MESE,,6  
      00266  3 00002 0 00267         PTH     REST3,,PAUSE   
                              *     
      00267 -0500 00 0 03271  REST3  CAL     =45
      00270  0074 00 4 00011         TSX     SLEEP,4  
      00271  0020 00 0 00260         TRA     BACK2    
                              *     
                              *     
      00272                   IK     PRM     MESB,5   
      00272  0074 00 4 00015         TSX     WRFLX,4                                                          .001
      00273  0 00005 0 01030                 MESB,,5                                                          .001
      00274  0074 00 4 00016         TSX     $PRNTER,4
1       INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65      05/11/69 2002.3 PAGE 7     
                  
      00275  2 00001 2 00212  IL     TIX     IH,2,1        TRY 10 TIMES TO OPEN     
      00276  0074 00 4 00017  BACK3  TSX     $ASKOPR,4
      00277  3 00006 0 01035         PTH     MESC,,6  
      00300  3 00001 0 00206         PTH     IG,,CTINUE     
      00301  3 00006 0 01043         PTH     MESD,,6  
      00302  3 00003 0 00075         PTH     QUITFL,,CHLDFL 
      00303  3 00006 0 01051         PTH     MESE,,6  
      00304  3 00002 0 00305         PTH     REST4,,PAUSE   
                              *     
      00305 -0500 00 0 03271  REST4  CAL     =45
      00306  0074 00 4 00011         TSX     SLEEP,4  
      00307  0020 00 0 00276         TRA     BACK3    
                              *     
                              *     
      00310 -0500 00 0 03274  IM     CAL     =H 2ND T 
      00311  0602 00 0 01064         SLW     MESF+5   
      00312                          PRM     MESF,8   
      00312  0074 00 4 00015         TSX     WRFLX,4                                                          .001
      00313  0 00010 0 01057                 MESF,,8                                                          .001
      00314                          CLOSE   BFNA,BFNB
      00314  0074 00 4 00014         TSX     CLOSE,4                                                          .001
      00315  3 00000 0 74422         PTH     BFNA                                                             .001
      00316  3 00000 0 74421         PTH     BFNB                                                             .001
      00317  0020 00 0 00275         TRA     IL            GO RE-OPEN,READ AGAIN (10 TIMES)     
                              *     
                              *     
                              *      COMPARE I.D. LABELS ON BOTH COPIES 
                              *     
      00320                   IO     CMPWDS  8,WBF,WBF+8,IP 
      00320  0774 00 1 00010         AXT     8,1                                                              .001
      00321 -0500 00 1 02300         CAL     WBF+8,1                                                          .001
      00322 -0340 00 1 02310         LAS     WBF+8+8,1                                                        .001
      00323  0020 00 0 00330         TRA     IP                                                               .001
      00324  0020 00 0 00326         TRA     *+2                                                              .001
      00325  0020 00 0 00330         TRA     IP                                                               .001
      00326  2 00001 1 00321         TIX     *-5,1,1                                                          .001
      00327  0020 00 0 00337         TRA     IQ            SKIP IF COMPARISON O.K.  
      00330                   IP     CLOSE   LFNA,LFNB     WRONG TAPE ON 2ND CHANNEL
      00330  0074 00 4 00014         TSX     CLOSE,4                                                          .001
      00331  3 00000 0 74440         PTH     LFNA                                                             .001
      00332  3 00000 0 74437         PTH     LFNB                                                             .001
      00333                          CLOSE   BFNA,BFNB
      00333  0074 00 4 00014         TSX     CLOSE,4                                                          .001
      00334  3 00000 0 74422         PTH     BFNA                                                             .001
      00335  3 00000 0 74421         PTH     BFNB                                                             .001
      00336  0020 00 0 00046         TRA     WRONGB        GO REMOUNT AT LEAST 2ND COPY   
                              *     
                              *      PRINT I.D. LABEL AND SET FILE POINTER AT START OF 1ST DUMPED FILE
                              *     
      00337                   IQ     PRM     MESG,9        BOTH LABELS READ O.K.,PRINT MESSAGE  
      00337  0074 00 4 00015         TSX     WRFLX,4                                                          .001
      00340  0 00011 0 01152                 MESG,,9                                                          .001
      00341  0020 00 0 00350         TRA     IS            SKIP   
      00342 -0520 00 0 01012  IR     NZT     IDERR         SEE WHICH LABEL WAS READ 
      00343  0020 00 0 00350         TRA     IS            SKIP IF IT WAS 1ST COPY  
      00344                          MOVE    8,WBF+8,WBF   2ND COPY, MOVE IT DOWN   
1       INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65      05/11/69 2002.3 PAGE 8     
                  
      00344  0774 00 1 00010         AXT     8,1                                                              .001
      00345 -0500 00 1 02310         CAL     WBF+8+8,1                                                        .001
      00346  0602 00 1 02300         SLW     WBF+8,1                                                          .001
      00347  2 00001 1 00345         TIX     *-2,1,1                                                          .001
      00350                   IS     PRM     MESH,7        PRINT MESSAGE
      00350  0074 00 4 00015         TSX     WRFLX,4                                                          .001
      00351  0 00007 0 01163                 MESH,,7                                                          .001
      00352                          PRM     WBF,4    
      00352  0074 00 4 00015         TSX     WRFLX,4                                                          .001
      00353  0 00004 0 02270                 WBF,,4                                                           .001
      00354  0074 00 4 00000         TSX     GETLSG,4 
      00355 -0500 00 0 02274         CAL     WBF+4    
      00356  0602 00 0 01200         SLW     MESI+6   
      00357 -0500 00 0 02275         CAL     WBF+5    
      00360  0602 00 0 01202         SLW     MESI+8   
      00361                          PRM     MESI,9        PRINT DATE/TIME DUMPING ON IT BEGAN  
      00361  0074 00 4 00015         TSX     WRFLX,4                                                          .001
      00362  0 00011 0 01172                 MESI,,9                                                          .001
      00363 -0500 00 0 02277         CAL     WBF+7    
      00364  0100 00 0 00374         TZE     IT            SKIP IF NO END OF DUMP 'DAY'   
      00365  0074 00 4 00001         TSX     IOBDT,4  
      00366  0602 00 0 01210         SLW     MESJ+5   
      00367 -0600 00 0 01212         STQ     MESJ+7   
      00370                          PRM     MESJ,8        PRINT END OF DUMP 'DAY'  
      00370  0074 00 4 00015         TSX     WRFLX,4                                                          .001
      00371  0 00010 0 01203                 MESJ,,8                                                          .001
      00372                          PRM     MESK,5   
      00372  0074 00 4 00015         TSX     WRFLX,4                                                          .001
      00373  0 00005 0 01213                 MESK,,5                                                          .001
                              *     
      00374  0774 00 1 00660  IT     AXT     RECSIZ,1 
      00375  0634 00 1 74411         SXA     X,1           SET FILE POINTER TO START OF 1ST FILE
                              *     
      00376  0774 00 4 00000  X4     AXT     **,4     
      00377  0774 00 3 00000  X3     AXT     **,3     
      00400  0774 00 2 00000  X2     AXT     **,2     
      00401  0774 00 1 00000  X1     AXT     **,1     
      00402  0020 00 4 00002         TRA     2,4
                              *     
                              * - - - - - - - - - - - - - - - - - - - - -     
                              *      TERMINATE DUMP TAPE FILES    
                              * - - - - - - - - - - - - - - - - - - - - -     
                              *     
      00403  0634 00 4 00435  TERMTF SXA     TX4,4    
      00404  0074 00 4 00000         TSX     GETLSG,4 
      00405                          PRM     MESL,7   
      00405  0074 00 4 00015         TSX     WRFLX,4                                                          .001
      00406  0 00007 0 01220                 MESL,,7                                                          .001
      00407  0074 00 4 00005         TSX     FWAIT,4  
 TD   00410  3 00000 0 74440         TXH     LFNA     
 TD   00411  3 00000 0 74437         TXH     LFNB     
 TD   00412  3 00000 0 00413         TXH     *+1
      00413                          CLOSE   LFNA,LFNB
      00413  0074 00 4 00014         TSX     CLOSE,4                                                          .001
      00414  3 00000 0 74440         PTH     LFNA                                                             .001
      00415  3 00000 0 74437         PTH     LFNB                                                             .001
1       INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65      05/11/69 2002.3 PAGE 9     
                  
 TD   00416  3 00000 0 00417         TXH     *+1
      00417  0074 00 4 00005         TSX     FWAIT,4  
 TD   00420  3 00000 0 74422         TXH     BFNA     
 TD   00421  3 00000 0 74421         TXH     BFNB     
 TD   00422  3 00000 0 00423         TXH     *+1
      00423                          CLOSE   BFNA,BFNB
      00423  0074 00 4 00014         TSX     CLOSE,4                                                          .001
      00424  3 00000 0 74422         PTH     BFNA                                                             .001
      00425  3 00000 0 74421         PTH     BFNB                                                             .001
 TD   00426  3 00000 0 00427         TXH     *+1
      00427  0074 00 4 00013         TSX     UMOUNT,4 
 TD   00430  3 00000 0 74420         TXH     AUN
      00431  2 01141 0 01133         TIX     UMA,,LUMA
      00432  0074 00 4 00013         TSX     UMOUNT,4 
 TD   00433  3 00000 0 74417         TXH     BUN
      00434  2 01151 0 01142         TIX     UMB,,LUMB
      00435  0774 00 4 00000  TX4    AXT     **,4     
      00436  0020 00 4 00001         TRA     1,4
                              *     
                              * - - - - - - - - - - - - - - - - - - - - - - - - - - - -   
                              *      TEST FOR END OF TAPE-FILE, IF NOT CHANGE REELS 
                              * - - - - - - - - - - - - - - - - - - - - - - - - - - - -   
                              *     
      00437  0634 00 1 00401  TSTEOF SXA     X1,1     
      00440  0634 00 2 00400         SXA     X2,2     
      00441  0634 00 3 00377         SXA     X3,3     
      00442  0634 00 4 00376         SXA     X4,4     
      00443                          PRLINE  ( END OF REEL ON RELOAD TAPE FILE.),6  
      00443  0074 00 4 00015         TSX     WRFLX,4                                                          .001
      00444  0 00006 0 03205                 ..001,,6                                                         .001
                                     RMT                                                                      .001
                              ..001  BCI     6, END OF REEL ON RELOAD TAPE FILE.                              .001
                                     RMT                                                                      .001
      00445  0074 00 4 00017         TSX     $ASKOPR,4
      00446  3 00010 0 01323         PTH     MESM,,8  
      00447  3 00007 0 00452         PTH     EOTF,,LSREEL   
      00450  3 00010 0 01333         PTH     MESN,,8  
      00451  3 00001 0 00454         PTH     TB1,,CTINUE    
                              *     
      00452  0534 00 4 00376  EOTF   LXA     X4,4          LAST REEL OF TAPE LOAD-FILE    
      00453  1 00001 4 00746         TXI     TV,4,1        GO EXIT VIA 3,4    
                              *     
      00454  0074 00 4 00003  TB1    TSX     ATTNAM,4 
      00455  3 00002 0 01010         PTH     NM,,2    
      00456  0074 00 4 00002         TSX     ATTACH,4 
      00457  3 00000 0 74442         PTH     DU 
      00460  3 00000 0 74441         PTH     DP 
                              *     
                              *     
      00461  0074 00 4 00005  TB     TSX     FWAIT,4       JUST TO CATCH ERRORS.    
 TD   00462  3 00000 0 74440         TXH     LFNA     
 TD   00463  3 00000 0 74437         TXH     LFNB     
 TD   00464  3 00000 0 00465         TXH     *+1
      00465                          CLOSE   LFNA,LFNB     CHANGE REELS 
      00465  0074 00 4 00014         TSX     CLOSE,4                                                          .001
      00466  3 00000 0 74440         PTH     LFNA                                                             .001
1       INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65      05/11/69 2002.3 PAGE 10    
                  
      00467  3 00000 0 74437         PTH     LFNB                                                             .001
 TD   00470  3 00000 0 00471         TXH     *+1
      00471  0074 00 4 00005         TSX     FWAIT,4  
 TD   00472  3 00000 0 74422         TXH     BFNA     
 TD   00473  3 00000 0 74421         TXH     BFNB     
 TD   00474  3 00000 0 00475         TXH     *+1
      00475                          CLOSE   BFNA,BFNB
      00475  0074 00 4 00014         TSX     CLOSE,4                                                          .001
      00476  3 00000 0 74422         PTH     BFNA                                                             .001
      00477  3 00000 0 74421         PTH     BFNB                                                             .001
 TD   00500  3 00000 0 00501         TXH     *+1
      00501  0074 00 4 00013         TSX     UMOUNT,4      UNMOUNT 'A' REEL   
 TD   00502  3 00000 0 74420         TXH     AUN
      00503  2 01236 0 01227         TIX     UMRA,,LUMRA    
      00504  0074 00 4 00013         TSX     UMOUNT,4 
 TD   00505  3 00000 0 74417         TXH     BUN           UNMOUNT 'B' REEL TOO. ***
      00506  2 01246 0 01237         TIX     UMRB,,LUMRB    
 TD   00507  3 00000 0 00510         TXH     *+1           NULL ERROR RETURN, IN CASE NO B COPY.
                              *     
      00510  0074 00 4 00012  TD     TSX     MOUNT,4       MOUNT NEW 'A' REEL 
 TD   00511  3 00000 0 03265         TXH     =1 
 TD   00512  3 00000 0 74420         TXH     AUN
      00513  2 01257 0 01247         TIX     MRA,,LMRA
      00514  0774 00 2 00003         AXT     3,2
      00515  0074 00 4 00006  TE     TSX     VERIFY,4      CHECK I/O SYSTEM LABEL   
 TD   00516  3 00000 0 74420         TXH     AUN
      00517  2 01016 0 74412         TIX     LABEL,,L4
 TD   00520  3 00000 0 00523         TXH     TF 
 TD   00521  3 00000 0 01014         TXH     ERCODE   
      00522  0020 00 0 00545         TRA     TH            SKIP IF O.K. 
                              *     
      00523  0074 00 4 00016  TF     TSX     $PRNTER,4     VERIFICATION ERROR 
      00524  0500 00 0 01014         CLA     ERCODE   
      00525  0402 00 0 03267         SUB     =7 
      00526  0100 00 0 00530         TZE     TG 
      00527  2 00001 2 00515         TIX     TE,2,1   
      00530  0074 00 4 00013  TG     TSX     UMOUNT,4 
 TD   00531  3 00000 0 74420         TXH     AUN
      00532  2 01305 0 01271         TIX     WRA,,LWRA
      00533  0074 00 4 00017  BACK5  TSX     $ASKOPR,4
      00534  3 00006 0 01035         PTH     MESC,,6  
      00535  3 00001 0 00510         PTH     TD,,CTINUE     
      00536  3 00006 0 01043         PTH     MESD,,6  
      00537  3 00003 0 00075         PTH     ABEXT,,CHLDFL  
      00540  3 00006 0 01051         PTH     MESE,,6  
      00541  3 00002 0 00542         PTH     REST5,,PAUSE   
                              *     
      00542 -0500 00 0 03271  REST5  CAL     =45
      00543  0074 00 4 00011         TSX     SLEEP,4  
      00544  0020 00 0 00533         TRA     BACK5    
                              *     
      00545  0074 00 4 00010  TH     TSX     OPEN,4   
 TD   00546  3 00000 0 01013         TXH     R  
 TD   00547  3 00000 0 74440         TXH     LFNA     
 TD   00550  3 00000 0 74437         TXH     LFNB     
 TD   00551  3 00000 0 03273         TXH     =-0
1       INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65      05/11/69 2002.3 PAGE 11    
                  
 TD   00552  3 00000 0 03273         TXH     =-0
 TD   00553  3 00000 0 00752         TXH     TW            ERROR  
      00554  0074 00 4 00007         TSX     BUFFER,4 
 TD   00555  3 00000 0 74440         TXH     LFNA     
 TD   00556  3 00000 0 74437         TXH     LFNB     
      00557  2 01015 0 01410         TIX     IB1,,LIB 
                              *     
      00560  0074 00 4 00004         TSX     RDWAIT,4      CHECK DAEMON'S TAPE I.D. 
 TD   00561  3 00000 0 74440         TXH     LFNA     
 TD   00562  3 00000 0 74437         TXH     LFNB     
 TD   00563  3 00000 0 03265         TXH     =1 
      00564  2 01376 0 01377         TIX     IDBF,,L9 
 TD   00565  3 00000 0 00760         TXH     TX            EOF, ERROR   
 TD   00566  3 00000 0 01375         TXH     JK 
 TD   00567  3 00000 0 00752         TXH     TW            ERROR  
                              *     
      00570                          CMPWDS  8,IDBF,TAPEID,THA    
      00570  0774 00 1 00010         AXT     8,1                                                              .001
      00571 -0500 00 1 01407         CAL     IDBF+8,1                                                         .001
      00572 -0340 00 1 02324         LAS     TAPEID+8,1                                                       .001
      00573  0020 00 0 00600         TRA     THA                                                              .001
      00574  0020 00 0 00576         TRA     *+2                                                              .001
      00575  0020 00 0 00600         TRA     THA                                                              .001
      00576  2 00001 1 00571         TIX     *-5,1,1                                                          .001
      00577  0020 00 0 00604         TRA     THB
      00600                   THA    CLOSE   LFNA,LFNB
      00600  0074 00 4 00014         TSX     CLOSE,4                                                          .001
      00601  3 00000 0 74440         PTH     LFNA                                                             .001
      00602  3 00000 0 74437         PTH     LFNB                                                             .001
      00603  0020 00 0 00530         TRA     TG 
                              *     
      00604  0500 00 0 01407  THB    CLA     IDBF+8        O.K., NOW CHECK REEL NO. 
      00605  0402 00 0 03265         SUB     =1 
      00606  0402 00 0 02324         SUB     TAPEID+8 
      00607  0100 00 0 00624         TZE     TJ            SKIP IF REEL ALL O.K.    
      00610                          PRLINE  ( REEL ORDER ERROR ON CHANNEL A.),6    
      00610  0074 00 4 00015         TSX     WRFLX,4                                                          .001
      00611  0 00006 0 03213                 ..002,,6                                                         .001
                                     RMT                                                                      .001
                              ..002  BCI     6, REEL ORDER ERROR ON CHANNEL A.                                .001
                                     RMT                                                                      .001
      00612  0074 00 4 00017  TI     TSX     $ASKOPR,4
      00613  3 00011 0 01354         PTH     MESQ,,9  
      00614  3 00001 0 00621         PTH     TJA,,CTINUE    
      00615  3 00010 0 01043         PTH     MESD,,8  
      00616  3 00003 0 00075         PTH     ABEXT,,CHLDFL  
      00617  3 00006 0 01365         PTH     MESR,,6  
      00620  3 00010 0 00461         PTH     TB,,CHREEL     
                              *     
      00621  0500 00 0 01407  TJA    CLA     IDBF+8   
      00622  0601 00 0 02324         STO     TAPEID+8 
      00623  0020 00 0 00627         TRA     TJAX     
                              *     
      00624  0500 00 0 02324  TJ     CLA     TAPEID+8      INCREMENT REEL NO. 
      00625  0400 00 0 03265         ADD     =1 
      00626  0601 00 0 02324         STO     TAPEID+8 
1       INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65      05/11/69 2002.3 PAGE 12    
                  
      00627                   TJAX   SKIFNB  TU 
      00627  0500 00 0 74443         CLA     NOCHAN                                                           .001
      00630  0402 00 0 03265         SUB     =1                                                               .001
      00631  0100 00 0 00742         TZE     TU                                                               .001
                              *     
                       00632  TK     SYN     *             (MOVED UMOUNT FOR B.COPY UP)   
                              *     
      00632  0074 00 4 00012  TL     TSX     MOUNT,4       MOUNT NEW 'B' REEL 
 TD   00633  3 00000 0 03266         TXH     =2 
 TD   00634  3 00000 0 74417         TXH     BUN
      00635  2 01270 0 01260         TIX     MRB,,LMRB
      00636  0774 00 2 00003         AXT     3,2
      00637  0074 00 4 00006  TM     TSX     VERIFY,4      CHECK I/O SYSTEM LABEL   
 TD   00640  3 00000 0 74417         TXH     BUN
      00641  2 01016 0 74412         TIX     LABEL,,L4
 TD   00642  3 00000 0 00645         TXH     TN 
 TD   00643  3 00000 0 01014         TXH     ERCODE   
      00644  0020 00 0 00667         TRA     TP            SKIP IF O.K. 
                              *     
      00645  0074 00 4 00016  TN     TSX     $PRNTER,4     VERIFICATION ERROR 
      00646  0500 00 0 01014         CLA     ERCODE   
      00647  0402 00 0 03267         SUB     =7 
      00650  0100 00 0 00652         TZE     TO 
      00651  2 00001 2 00637         TIX     TM,2,1   
      00652  0074 00 4 00013  TO     TSX     UMOUNT,4 
 TD   00653  3 00000 0 74417         TXH     BUN
      00654  2 01322 0 01306         TIX     WRB,,LWRB
      00655  0074 00 4 00017  BACK6  TSX     $ASKOPR,4
      00656  3 00006 0 01035         PTH     MESC,,6  
      00657  3 00001 0 00632         PTH     TL,,CTINUE     
      00660  3 00006 0 01043         PTH     MESD,,6  
      00661  3 00003 0 00075         PTH     QUITFL,,CHLDFL 
      00662  3 00006 0 01051         PTH     MESE,,6  
      00663  3 00002 0 00664         PTH     REST6,,PAUSE   
                              *     
      00664 -0500 00 0 03271  REST6  CAL     =45
      00665  0074 00 4 00011         TSX     SLEEP,4  
      00666  0020 00 0 00655         TRA     BACK6    
                              *     
      00667  0074 00 4 00010  TP     TSX     OPEN,4   
 TD   00670  3 00000 0 01013         TXH     R  
 TD   00671  3 00000 0 74422         TXH     BFNA     
 TD   00672  3 00000 0 74421         TXH     BFNB     
 TD   00673  3 00000 0 03273         TXH     =-0
 TD   00674  3 00000 0 03273         TXH     =-0
 TD   00675  3 00000 0 00763         TXH     TY            ERROR  
      00676  0074 00 4 00007         TSX     BUFFER,4 
 TD   00677  3 00000 0 74422         TXH     BFNA     
 TD   00700  3 00000 0 74421         TXH     BFNB     
      00701  2 01015 0 02325         TIX     IB2,,LIB 
                              *     
      00702  0074 00 4 00004         TSX     RDWAIT,4      CHECK DAEMON I.D. LABEL  
 TD   00703  3 00000 0 74422         TXH     BFNA     
 TD   00704  3 00000 0 74421         TXH     BFNB     
 TD   00705  3 00000 0 03265         TXH     =1 
      00706  3 00011 0 01377         TXH     IDBF,,9  
1       INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65      05/11/69 2002.3 PAGE 13    
                  
 TD   00707  3 00000 0 00771         TXH     TZ            EOF,ERROR    
 TD   00710  3 00000 0 01375         TXH     JK 
 TD   00711  3 00000 0 00763         TXH     TY            ERROR  
      00712                          CMPWDS  8,IDBF,TAPEID,TR     
      00712  0774 00 1 00010         AXT     8,1                                                              .001
      00713 -0500 00 1 01407         CAL     IDBF+8,1                                                         .001
      00714 -0340 00 1 02324         LAS     TAPEID+8,1                                                       .001
      00715  0020 00 0 00722         TRA     TR                                                               .001
      00716  0020 00 0 00720         TRA     *+2                                                              .001
      00717  0020 00 0 00722         TRA     TR                                                               .001
      00720  2 00001 1 00713         TIX     *-5,1,1                                                          .001
      00721  0020 00 0 00726         TRA     TS 
      00722                   TR     CLOSE   BFNA,BFNB
      00722  0074 00 4 00014         TSX     CLOSE,4                                                          .001
      00723  3 00000 0 74422         PTH     BFNA                                                             .001
      00724  3 00000 0 74421         PTH     BFNB                                                             .001
      00725  0020 00 0 00652         TRA     TO 
                              *     
      00726  0500 00 0 01407  TS     CLA     IDBF+8        NOW CHECK REEL NO. 
      00727  0402 00 0 02324         SUB     TAPEID+8 
      00730  0100 00 0 00742         TZE     TU            SKIP IF REEL O.K.  
      00731                          PRLINE  ( POSSIBLE REEL ORDER ERROR ON CHANNEL B.),8 
      00731  0074 00 4 00015         TSX     WRFLX,4                                                          .001
      00732  0 00010 0 03221                 ..003,,8                                                         .001
                                     RMT                                                                      .001
                              ..003  BCI     8, POSSIBLE REEL ORDER ERROR ON CHANNEL B.                       .001
                                     RMT                                                                      .001
      00733  0074 00 4 00017  TT     TSX     $ASKOPR,4
      00734  3 00011 0 01354         PTH     MESQ,,9  
      00735  3 00001 0 00742         PTH     TU,,CTINUE     
      00736  3 00010 0 01365         PTH     MESR,,8  
      00737  3 00010 0 00632         PTH     TK,,CHREEL     
      00740  3 00006 0 01043         PTH     MESD,,6  
      00741  3 00003 0 00075         PTH     QUITFL,,CHLDFL 
                              *     
      00742  0074 00 4 00002  TU     TSX     ATTACH,4 
      00743  3 00000 0 01010         PTH     NM 
      00744  3 00000 0 01011         PTH     NM+1     
      00745  0534 00 4 00376         LXA     X4,4     
      00746  0534 00 3 00377  TV     LXA     X3,3     
      00747  0534 00 2 00400         LXA     X2,2     
      00750  0534 00 1 00401         LXA     X1,1     
      00751  0020 00 4 00004         TRA     4,4           EXIT   
                              *     
      00752  0074 00 4 00016  TW     TSX     $PRNTER,4
      00753                          PRLINE  ( ERROR AT START OF NEW REEL ON CHANNEL A.),7
      00753  0074 00 4 00015         TSX     WRFLX,4                                                          .001
      00754  0 00007 0 03231                 ..004,,7                                                         .001
                                     RMT                                                                      .001
                              ..004  BCI     7, ERROR AT START OF NEW REEL ON CHANNEL A.                      .001
                                     RMT                                                                      .001
      00755                   TWA    PRM     MESP,9   
      00755  0074 00 4 00015         TSX     WRFLX,4                                                          .001
      00756  0 00011 0 01343                 MESP,,9                                                          .001
      00757  0020 00 0 00612         TRA     TI 
                              *     
1       INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65      05/11/69 2002.3 PAGE 14    
                  
      00760                   TX     PRLINE  ( EOF AT START OF NEW REEL ON CHANNEL A.),7  
      00760  0074 00 4 00015         TSX     WRFLX,4                                                          .001
      00761  0 00007 0 03240                 ..005,,7                                                         .001
                                     RMT                                                                      .001
                              ..005  BCI     7, EOF AT START OF NEW REEL ON CHANNEL A.                        .001
                                     RMT                                                                      .001
      00762  0020 00 0 00755         TRA     TWA
                              *     
      00763  0074 00 4 00016  TY     TSX     $PRNTER,4
      00764                          PRLINE  ( ERROR AT START OF NEW REEL ON CHANNEL B.),7
      00764  0074 00 4 00015         TSX     WRFLX,4                                                          .001
      00765  0 00007 0 03247                 ..006,,7                                                         .001
                                     RMT                                                                      .001
                              ..006  BCI     7, ERROR AT START OF NEW REEL ON CHANNEL B.                      .001
                                     RMT                                                                      .001
      00766                   TYA    PRM     MESP,9   
      00766  0074 00 4 00015         TSX     WRFLX,4                                                          .001
      00767  0 00011 0 01343                 MESP,,9                                                          .001
      00770  0020 00 0 00733         TRA     TT 
                              *     
      00771                   TZ     PRLINE  ( EOF AT START OF NEW REEL ON CHANNEL B.),7  
      00771  0074 00 4 00015         TSX     WRFLX,4                                                          .001
      00772  0 00007 0 03256                 ..007,,7                                                         .001
                                     RMT                                                                      .001
                              ..007  BCI     7, EOF AT START OF NEW REEL ON CHANNEL B.                        .001
                                     RMT                                                                      .001
      00773  0020 00 0 00766         TRA     TYA
                              *     
                              * - - - - - - - - - - - - - - - - - - - - -     
                              *      CONSTANTS AND VARIABLES
                              * - - - - - - - - - - - - - - - - - - - - -     
                              *     
      00774                   PBF    BSS     12 
      01010                   NM     BSS     2  
      01012  0 00000 0 00000  IDERR  PZE  
      01013  516060606060     R      BCI     1,R
      01014  0 00000 0 00000  ERCODE PZE  
      01015  0 00000 0 00660  LIB    PZE     RECSIZ   
      01016  0 00000 0 00004  L4     PZE     4  
      01017  0 00000 0 00010  L8     PZE     8  
      01020  603133243360     MESA   BCI     8, I.D. RECORD ON 1ST COPY OF TAPE FILE IS UNREAD. 
      01030  602551514651     MESB   BCI     5, ERROR OPENING DUMP TAPE FILE. 
      01035  606346602346     MESC   BCI     6, TO CONTINUE WITH THIS LOAD FILE,    
      01043  606346606462     MESD   BCI     6, TO USE DIFFERENT LOAD FILE, OR
      01051  606346606264     MESE   BCI     6, TO SUSPEND LOADING FOR 1 MIN..
      01057  602545246046     MESF   BCI     8, END OF FILE IN WRONG PLACE ON 1ST TAPE COPY.    
      01067  314523465151     WRNGT2 BCI     9,INCORRECT TAPE MOUNTED AS 2ND COPY OF LOAD FILE. 
      01100  604743252162            BCI     3, PLEASE REMOVE IT. 
      01103  0 00000 0 00014  LWT2   PZE     *-WRNGT2 
      01104  604446644563     RMT2   BCI     7, MOUNT ANOTHER TAPE ON THE 2ND CHANNEL.    
      01113  0 00000 0 00007  LRMT2  PZE     *-RMT2   
      01114  600245246023     BADT2  BCI     8, 2ND COPY OF LOAD FILE UNREAD AFTER 10 TRIES TO  
      01124  652551312670            BCI     6,VERIFY ITS I.D.. PLEASE REMOVE IT.   
      01132  0 00000 0 00016  LBT2   PZE     *-BADT2  
      01133  606445444664     UMA    BCI     6, UNMOUNT TAPE FILE ON MAIN CHANNEL.  
      01141  0 00000 0 00006  LUMA   PZE     *-UMA    
1       INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65      05/11/69 2002.3 PAGE 15    
                  
      01142  606445444664     UMB    BCI     7, UNMOUNT TAPE FILE ON SECONDARY CHANNEL.   
      01151  0 00000 0 00007  LUMB   PZE     *-UMB    
      01152  603133243360     MESG   BCI     9, I.D. LABELS ON BOTH COPIES OF NEW LOAD FILE MATCH O.K.
      01163  602464444760     MESH   BCI     7, DUMP TAPE FILE STARTING TO LOAD IS A
      01172  602464444731     MESI   BCI     9, DUMPING ON THIS TAPE FILE BEGAN AT         ON   
      01203  604546602631     MESJ   BCI     8, NO FILE CREATED LATER THAN           ON   
      01213  603162602464     MESK   BCI     5, IS DUMPED ON THIS TAPE FILE.  
      01220  604346212431     MESL   BCI     7, LOADING FINISHED FROM THIS TAPE FILE
      01227  605125444665     UMRA   BCI     7, REMOVE CHANNEL A REEL OF RELOAD FILE.     
      01236  0 00000 0 00007  LUMRA  PZE     *-UMRA   
      01237  605125444665     UMRB   BCI     7, REMOVE CHANNEL B REEL OF RELOAD FILE.     
      01246  0 00000 0 00007  LUMRB  PZE     *-UMRB   
      01247  604446644563     MRA    BCI     8, MOUNT ANOTHER REEL OF RELOAD FILE ON CHANNEL A  
      01257  0 00000 0 00010  LMRA   PZE     *-MRA    
      01260  604446644563     MRB    BCI     8, MOUNT ANOTHER REEL OF RELOAD FILE ON CHANNEL B  
      01270  0 00000 0 00010  LMRB   PZE     *-MRB    
      01271  606651464527     WRA    BCI     8, WRONG REEL MOUNTED ON CHANNEL A FOR RELOAD, NOT 
      01301  602225434645            BCI     4, BELONGING TO THIS SET.  
      01305  0 00000 0 00014  LWRA   PZE     *-WRA    
      01306  606651464527     WRB    BCI     8, WRONG REEL MOUNTED ON CHANNEL B FOR RELOAD, NOT 
      01316  602225434645            BCI     4, BELONGING TO THIS SET.  
      01322  0 00000 0 00014  LWRB   PZE     *-WRB    
      01323  603126606330     MESM   BCI     8, IF THIS WAS LAST REEL OF THIS RELOAD FILE, OR   
      01333  603126606330     MESN   BCI     8, IF THERE IS ANOTHER REEL TO THIS RELOAD FILE    
      01343  512525436045     MESP   BCI     9,REEL NO. UNCHECKED, FUTURE REEL NO. ERRORS COULD OCCUR 
      01354  606346605125     MESQ   BCI     9, TO RESUME RE-LOADING WITH THIS REEL NEVERTHELESS
      01365  603126607046     MESR   BCI     8, IF YOU WISH TO CHANGE THIS REEL FOR ANOTHER     
      01375  0 00000 0 00000  JK     PZE  
      01376  0 00000 0 00011  L9     PZE     9  
      01377                   IDBF   BSS     9  
                       00660  RECSIZ EQU     432
      01410                   IB1    BSS     432
      02270                   WBF    BSS     20 
      02314                   TAPEID BSS     9  
      02325                   IB2    BSS     432
                              *     
                                     INSERT  BCMEQB   
                              *     
                              *  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -     
                              *      COMMON AND EQUIVALENCE FOR SECONDARY STORAGE LOAD    
                              *         (TIME-SHARING VERSION)    
                              *  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -     
                              *     
                      074446  DEMKEY BOOL    74446         CORE A LOCATION FOR DAEMON KEY SETTING     
                              *     
                      000017  BASE   BOOL    17            KEY CODE BASE
                      000001  CTINUE BOOL    1             KEY CODE TO CONTINUE WITH PROGRAM,NO CHANGE
                      000002  PAUSE  BOOL    2             KEY CODE TO WAIT 60 SECS.
                      000003  CHLDFL BOOL    3             KEY CODE TO USE DIFFERENT LOAD FILE  
                      000004  STOPLD BOOL    4             KEY CODE TO STOP LOADING, START DUMPING    
                      000005  ABANKY BOOL    5             KEY CODE TO ABANDON LOAD TAPE FILE   
                      000006  SWCHAN BOOL    6             KEY CODE TO GO FROM 1 OR 2 TO 2 OR 1 CHANS.
                      000007  LSREEL BOOL    7             KEY CODE TO INDICATE LAST REEL OF LOAD FILE
                      000010  CHREEL BOOL    10            KEY CODE TO CORRECT REEL ORDER ERROR 
                       77777  NEWCOM EQU     -1            TOP OF MEMORY
                      077461  OLDCOM BOOL    77461         OLD TOP OF COMMON  
1       INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65      05/11/69 2002.3 PAGE 16    
                  
                       77462  COMRLC EQU     OLDCOM-NEWCOM RELOCATION FACTOR  
                       77777         COMMON  COMRLC        RELOCATE COMMON    
                       01554  UF     EQU     32767/2-DEMKEY/2 LENGTH OF USER LIST   
                       77777  UFL    COMMON  2*UF          USER FILE LIST  (1ST PARTS OF FILE NAMES)  
                       74446         COMMON  1             INSERT DUMMY IF NECESSARY
                       74445         COMMON  1             DEMKEY CELL IN NON-CTSS VERSION
                       74445  KEYVAL COMMON  1  
                       74444  ABANTP COMMON  1             ABANDON TAPE FILE INDICATOR    
                       74443  NOCHAN COMMON  1             NO. OF CHANNELS BEING READ (1 OR 2)  
                       74442  DU     COMMON  1             PROBLEM NO. OF DUMP/LOAD PACKAGE     
                       74441  DP     COMMON  1             PROGRAMMER NO. OF DITTO. 
                       74440  LFNA   COMMON  1             LOAD TAPE FILE NAME (PART 1)   
                       74437  LFNB   COMMON  1              ,,   ,,   ,,   ,,  (PART 2)   
                       74423         COMMON  11            DUMPED FILE'S PREAMBLE FROM DUMP TAPE
                       74423  PREAM  COMMON  1             DUMPED FILE'S DUMP TAPE PREAMBLE 1ST WORD  
                       74422  BFNA   COMMON  1             CHANNEL B LOAD TAPE FILE NAME (PART 1)     
                       74421  BFNB   COMMON  1             CHANNEL B LOAD TAPE FILE NAME (PART 2)     
                       74420  AUN    COMMON  1             CHANNEL A UNIT NO. 
                       74417  BUN    COMMON  1             CHANNEL B UNIT NO. 
                       74416  TEOF   COMMON  1             TAPE EOF INDICATOR/WORD COUNT  
                       74412         COMMON  3             LABEL OF TAPE FILE CURRENTLY BEING LOADED  
                       74412  LABEL  COMMON  1             LABEL OF TAPE FILE DITTO.   1ST WORD 
                       74411  X      COMMON  1             TAPE FILE POINTER  
                                     END  
                                              REMOTE SEQUENCES    
      03205  602545246046     ..001  BCI     6, END OF REEL ON RELOAD TAPE FILE.                              .001
      03213  605125254360     ..002  BCI     6, REEL ORDER ERROR ON CHANNEL A.                                .001
      03221  604746626231     ..003  BCI     8, POSSIBLE REEL ORDER ERROR ON CHANNEL B.                       .001
      03231  602551514651     ..004  BCI     7, ERROR AT START OF NEW REEL ON CHANNEL A.                      .001
      03240  602546266021     ..005  BCI     7, EOF AT START OF NEW REEL ON CHANNEL A.                        .001
      03247  602551514651     ..006  BCI     7, ERROR AT START OF NEW REEL ON CHANNEL B.                      .001
      03256  602546266021     ..007  BCI     7, EOF AT START OF NEW REEL ON CHANNEL B.                        .001
                  
1       INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65      05/11/69 2002.3 PAGE 1     
                        POST PROCESSOR ASSEMBLY DATA  
                  
       74410 IS THE LAST LOCATION NOT USED BY THIS PROGRAM  
       3276 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM  
                  
0REFERENCES TO DEFINED SYMBOLS      
       1013      R   101,  213,  546,  670
      74411      X   114,  121,  137,  141,  226,  233,  244,  246,  375, 3205
      74441     DP   460, 3205
      74442     DU   457, 3205
         77     IA    31,   40,  170
        116     IB   142
        136     IC   125
        162     ID   106
        200     IE   123
        206     IG   135,  161,  300
        212     IH   275
        230     II   247
        243     IJ   237
        272     IK   220
        275     IL   317
        310     IM   235
        320     IO   241
        330     IP   323,  325
        337     IQ   327
        342     IR   242,  262
        350     IS   210,  341,  343
        374     IT   364
       1375     JK   566,  710
       1016     L4   517,  641
       1017     L8   234
       1376     L9   564
       1010     NM   455,  743,  744
        461     TB   620
        510     TD   535
        515     TE   527
        523     TF   520
        530     TG   526,  603
        545     TH   522
        612     TI   757
        624     TJ   607
        632     TK   632,  737
        632     TL   657
        637     TM   651
        645     TN   642
        652     TO   650,  725
        667     TP   644
        722     TR   715,  717
        726     TS   721
        733     TT   770
        742     TU   631,  730,  735
        746     TV   453
        752     TW   553,  567
        760     TX   565
        763     TY   675,  711
        771     TZ   707
1       INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65      05/11/69 2002.3 PAGE 2     
                        POST PROCESSOR ASSEMBLY DATA  
                  
       1554     UF  3205
        401     X1    22,  437,  750
        400     X2    23,  440,  747
        377     X3    24,   76,  441,  746
        376     X4    25,   75,  442,  452,  745
      74420    AUN   430,  502,  512,  516,  531, 3205
      74417    BUN    34,   47,   65,   72,  433,  505,  634,  640,  653, 3205
        100    IAA   165
       1410    IB1   112,  557
       2325    IB2   224,  701
        165    IDA   205
       1015    LIB   112,  224,  557,  701
       1247    MRA   513, 1257
       1260    MRB   635, 1270
        774    PBF      
        454    TB1   451
        600    THA   573,  575
        604    THB   577
        621    TJA   614
        755    TWA   762
        435    TX4   403
        766    TYA   773
      77777    UFL  3205
       1133    UMA   431, 1141
       1142    UMB   434, 1151
       2270    WBF   122,  131,  234,  321,  322,  345,  346,  353,  355,  357,  363
       1271    WRA   532, 1305
       1306    WRB   654, 1322
        145   BACK   156
         17   BASE  3205
      74422   BFNA   214,  222,  231,  315,  334,  420,  424,  472,  476,  671,  677,  703,  723, 3205
      74421   BFNB   215,  223,  232,  316,  335,  421,  425,  473,  477,  672,  700,  704,  724, 3205
         63   CONT    53
        452   EOTF   447
       1377   IDBF   564,  571,  604,  621,  706,  713,  726
       1132   LBT2    73
      74440   LFNA   102,  110,  117,  203,  331,  410,  414,  462,  466,  547,  555,  561,  601, 3205
      74437   LFNB   103,  111,  120,  204,  332,  411,  415,  463,  467,  550,  556,  562,  602, 3205
       1257   LMRA   513
       1270   LMRB   635
       1141   LUMA   431
       1151   LUMB   434
       1305   LWRA   532
       1322   LWRB   654
       1103   LWT2    50
       1020   MESA   144,  251,  253,  255
       1030   MESB   163,  273
       1035   MESC    52,  146,  167,  261,  277,  534,  656
       1043   MESD    54,  150,  171,  263,  301,  536,  615,  660,  740
       1051   MESE    56,  152,  173,  265,  303,  540,  662
       1057   MESF   201,  311,  313
       1152   MESG   340
       1163   MESH   351
       1172   MESI   356,  360,  362
       1203   MESJ   366,  367,  371
1       INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65      05/11/69 2002.3 PAGE 3     
                        POST PROCESSOR ASSEMBLY DATA  
                  
       1213   MESK   373
       1220   MESL   406
       1323   MESM   446
       1333   MESN   450
       1343   MESP   756,  767
       1354   MESQ   613,  734
       1365   MESR   617,  736
         10   OPEN   100,  212,  545,  667
         60   REST    57
       1104   RMT2    66, 1113
      74416   TEOF   124,  236, 3205
        627   TJAX   623
       1227   UMRA   503, 1236
       1237   UMRB   506, 1246
         75  ABEXT   537,  616
        166  BACK1   177
        260  BACK2   271
        276  BACK3   307
        533  BACK5   544
        655  BACK6   666
       1114  BADT2    73, 1132
         14  CLOSE   202,  314,  330,  333,  413,  423,  465,  475,  600,  722
        157  CONT1   147
          5  FWAIT   407,  417,  461,  471
       1012  IDERR   127,  160,  240,  256,  342
          1  IOBDT   365
       3205  ..001   444
       3213  ..002   611
       3221  ..003   732
       3231  ..004   754
       3240  ..005   761
       3247  ..006   765
       3256  ..007   772
      74412  LABEL    35,  517,  641, 3205
       1113  LRMT2    66
       1236  LUMRA   503
       1246  LUMRB   506
         12  MOUNT    63,  510,  632
          2  PAUSE    57,  153,  174,  266,  304,  541,  663, 3205
      74423  PREAM  3205
        154  REST1   153
        175  REST2   174
        267  REST3   266
        305  REST4   304
        542  REST5   541
        664  REST6   663
         11  SLEEP    61,  155,  176,  270,  306,  543,  665
         15  WRFLX   143,  162,  200,  254,  272,  312,  337,  350,  352,  361,  370,  372,  405,  443,  610,  731,  753
                     755,  760,  764,  766,  771
          5 ABANKY  3205
      74444 ABANTP  3205
         17 ASKOPR    51,  145,  166,  260,  276,  445,  533,  612,  655,  733
          2 ATTACH   456,  742
          3 ATTNAM   454
          7 BUFFER   107,  221,  554,  676
1       INITIATE AND TERMINATE DUMP TAPE FILE READS.....M.J.BAILEY..1/31/65      05/11/69 2002.3 PAGE 4     
                        POST PROCESSOR ASSEMBLY DATA  
                  
         33 CHCKBA    45,   67,   70
         41 CHCKBB    36
         51 CHCKBC    62,   74
         70 CHCKBD    44
          3 CHLDFL    55,  151,  172,  264,  302,  537,  616,  661,  741, 3205
         10 CHREEL   620,  737, 3205
      77462 COMRLC  3205
          1 CTINUE    53,  147,  170,  262,  300,  451,  535,  614,  657,  735, 3205
      74446 DEMKEY  3205
       1014 ERCODE    37,   42,  521,  524,  643,  646
          0 GETLSG    26,  126,  354,  404
         22 INITTF     0
      74445 KEYVAL  3205
          7 LSREEL   447, 3205
      77777 NEWCOM  3205
      74443 NOCHAN    27,  206,  627, 3205
      77461 OLDCOM  3205
         16 PRNTER    41,  136,  164,  243,  274,  523,  645,  752,  763
         75 QUITFL    55,   75,  151,  172,  257,  264,  302,  661,  741
          4 RDWAIT   116,  230,  560,  702
        660 RECSIZ   115,  227,  374, 1015, 1410
          4 STOPLD  3205
          6 SWCHAN  3205
       2314 TAPEID   132,  134,  572,  606,  622,  624,  626,  714,  727
        403 TERMTF     0
        437 TSTEOF     0
         13 UMOUNT    46,   71,  427,  432,  501,  504,  530,  652
          6 VERIFY    33,  515,  637
       1067 WRNGT2    50, 1103
         46 WRONGB   336
                  
0 NO ERROR IN ABOVE ASSEMBLY. 
1            READ NEXT ENTRY FROM DISK U.F.D. FILE....M.J.BAILEY,2/5/65          05/11/69 2002.5 PAGE 1     
                  
                              *        (TIME-SHARING VERSION)     
                              *     
                       00003         ENTRY   GETLSG        GET LOADER SIGNALS FROM KEYS VIA CORE A    
                              *     
                              *     
                              * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   
                              *      GET KEY SETTINGS VIA CORE A, POSSIBLY SET LOADER SWITCHES  
                              * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   
                              *     
                  
        TRANSFER VECTOR 
      00000  272563216060     GETA  
                  
            LINKAGE DIRECTOR  
      00001  000000000000     
      00002  272563436227     
                  
      00003  0634 00 1 00030  GETLSG SXA     GGX,1    
      00004  0074 00 7 00000         TSX     $GETA,7  
      00005  0560 00 0 74446         LDQ     DEMKEY   
      00006 -0600 00 0 74445         STQ     KEYVAL   
      00007  0074 00 7 00000         TSX     $GETA,7  
      00010  0600 00 0 74446         STZ     DEMKEY   
      00011  0774 00 1 00005         AXT     ABANKY,1 
      00012  0754 00 1 00000         PXA     0,1
      00013  0402 00 0 74445         SUB     KEYVAL   
      00014 -0100 00 0 00017         TNZ     GGA
      00015 -0625 00 0 74444         STL     ABANTP   
      00016  0020 00 0 00030         TRA     GGX
      00017  0774 00 1 00006  GGA    AXT     SWCHAN,1 
      00020  0754 00 1 00000         PXA     0,1
      00021  0402 00 0 74445         SUB     KEYVAL   
      00022 -0100 00 0 00030         TNZ     GGX
      00023  0534 00 1 74443         LXA     NOCHAN,1 
      00024  1 00001 1 00025         TXI     *+1,1,1  
      00025 -3 00002 1 00027         TXL     GGB,1,2  
      00026  0774 00 1 00001         AXT     1,1
      00027  0634 00 1 74443  GGB    SXA     NOCHAN,1 
      00030  0774 00 1 00000  GGX    AXT     **,1     
      00031  0020 00 4 00001         TRA     1,4
                              *     
                                     INSERT  BCMEQB   
                              *     
                              *  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -     
                              *      COMMON AND EQUIVALENCE FOR SECONDARY STORAGE LOAD    
                              *         (TIME-SHARING VERSION)    
                              *  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -     
                              *     
                      074446  DEMKEY BOOL    74446         CORE A LOCATION FOR DAEMON KEY SETTING     
                              *     
                      000017  BASE   BOOL    17            KEY CODE BASE
                      000001  CTINUE BOOL    1             KEY CODE TO CONTINUE WITH PROGRAM,NO CHANGE
                      000002  PAUSE  BOOL    2             KEY CODE TO WAIT 60 SECS.
                      000003  CHLDFL BOOL    3             KEY CODE TO USE DIFFERENT LOAD FILE  
                      000004  STOPLD BOOL    4             KEY CODE TO STOP LOADING, START DUMPING    
                      000005  ABANKY BOOL    5             KEY CODE TO ABANDON LOAD TAPE FILE   
1            READ NEXT ENTRY FROM DISK U.F.D. FILE....M.J.BAILEY,2/5/65          05/11/69 2002.5 PAGE 2     
                  
                      000006  SWCHAN BOOL    6             KEY CODE TO GO FROM 1 OR 2 TO 2 OR 1 CHANS.
                      000007  LSREEL BOOL    7             KEY CODE TO INDICATE LAST REEL OF LOAD FILE
                      000010  CHREEL BOOL    10            KEY CODE TO CORRECT REEL ORDER ERROR 
                       77777  NEWCOM EQU     -1            TOP OF MEMORY
                      077461  OLDCOM BOOL    77461         OLD TOP OF COMMON  
                       77462  COMRLC EQU     OLDCOM-NEWCOM RELOCATION FACTOR  
                       77777         COMMON  COMRLC        RELOCATE COMMON    
                       01554  UF     EQU     32767/2-DEMKEY/2 LENGTH OF USER LIST   
                       77777  UFL    COMMON  2*UF          USER FILE LIST  (1ST PARTS OF FILE NAMES)  
                       74446         COMMON  1             INSERT DUMMY IF NECESSARY
                       74445         COMMON  1             DEMKEY CELL IN NON-CTSS VERSION
                       74445  KEYVAL COMMON  1  
                       74444  ABANTP COMMON  1             ABANDON TAPE FILE INDICATOR    
                       74443  NOCHAN COMMON  1             NO. OF CHANNELS BEING READ (1 OR 2)  
                       74442  DU     COMMON  1             PROBLEM NO. OF DUMP/LOAD PACKAGE     
                       74441  DP     COMMON  1             PROGRAMMER NO. OF DITTO. 
                       74440  LFNA   COMMON  1             LOAD TAPE FILE NAME (PART 1)   
                       74437  LFNB   COMMON  1              ,,   ,,   ,,   ,,  (PART 2)   
                       74423         COMMON  11            DUMPED FILE'S PREAMBLE FROM DUMP TAPE
                       74423  PREAM  COMMON  1             DUMPED FILE'S DUMP TAPE PREAMBLE 1ST WORD  
                       74422  BFNA   COMMON  1             CHANNEL B LOAD TAPE FILE NAME (PART 1)     
                       74421  BFNB   COMMON  1             CHANNEL B LOAD TAPE FILE NAME (PART 2)     
                       74420  AUN    COMMON  1             CHANNEL A UNIT NO. 
                       74417  BUN    COMMON  1             CHANNEL B UNIT NO. 
                       74416  TEOF   COMMON  1             TAPE EOF INDICATOR/WORD COUNT  
                       74412         COMMON  3             LABEL OF TAPE FILE CURRENTLY BEING LOADED  
                       74412  LABEL  COMMON  1             LABEL OF TAPE FILE DITTO.   1ST WORD 
                       74411  X      COMMON  1             TAPE FILE POINTER  
                                     END  
1            READ NEXT ENTRY FROM DISK U.F.D. FILE....M.J.BAILEY,2/5/65          05/11/69 2002.5 PAGE 1     
                        POST PROCESSOR ASSEMBLY DATA  
                  
       74410 IS THE LAST LOCATION NOT USED BY THIS PROGRAM  
         32 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM  
                  
0REFERENCES TO DEFINED SYMBOLS      
      74411      X    32
      74441     DP    32
      74442     DU    32
       1554     UF    32
      74420    AUN    32
      74417    BUN    32
         17    GGA    14
         27    GGB    25
         30    GGX     3,   16,   22
      77777    UFL    32
         17   BASE    32
      74422   BFNA    32
      74421   BFNB    32
          0   GETA     4,    7
      74440   LFNA    32
      74437   LFNB    32
      74416   TEOF    32
      74412  LABEL    32
          2  PAUSE    32
      74423  PREAM    32
          5 ABANKY    11,   32
      74444 ABANTP    15,   32
          3 CHLDFL    32
         10 CHREEL    32
      77462 COMRLC    32
          1 CTINUE    32
      74446 DEMKEY     5,   10,   32
          3 GETLSG     0
      74445 KEYVAL     6,   13,   21,   32
          7 LSREEL    32
      77777 NEWCOM    32
      74443 NOCHAN    23,   27,   32
      77461 OLDCOM    32
          4 STOPLD    32
          6 SWCHAN    17,   32
                  
0 NO ERROR IN ABOVE ASSEMBLY. 
1       SUBROUTINE TO TALK TO OPERATOR AND CONVERSE UNTIL WE GET AN ANSWER       05/11/69 2004.7 PAGE 1     
                  
                              *     
                              *     
                       00006         ENTRY   ASKOPR   
                              *     
                              *     
                  
        TRANSFER VECTOR 
      00000  272563216060     GETA  
      00001  475123462425     PRCODE
      00002  624325254760     SLEEP 
      00003  272563436227     GETLSG
                  
            LINKAGE DIRECTOR  
      00004  000000000000     
      00005  216242464751     
                  
      00006  0634 00 1 00064  ASKOPR SXA     ASK1,1   
      00007  0634 00 2 00065         SXA     ASK2,2   
      00010  0634 00 3 00066         SXA     ASK3,3   
      00011  0634 00 4 00067         SXA     ASK4,4   
      00012  0634 00 7 00070         SXA     ASK7,7   
      00013  0074 00 7 00000         TSX     $GETA,7  
      00014  0600 00 0 74446         STZ     DEMKEY   
      00015  0754 00 4 00000         PXA     ,4 
      00016  0734 00 2 00000         PAX     ,2 
      00017  0774 00 1 00000         AXT     0,1
      00020 -0500 00 2 00001  MORMES CAL     1,2
      00021  0602 00 0 00031         SLW     MESS+1   
      00022  0074 00 4 00100         TSX     CKOP,4   
 TD   00023  3 00000 0 00034         TXH     SNOOZE   
      00024 -0500 00 2 00002         CAL     2,2
      00025 -0734 00 3 00000         PDX     ,3 
      00026  0634 00 3 00030         SXA     MESS,3   
      00027  0074 00 4 00001         TSX     $PRCODE,4
      00030  3 00000 0 00000  MESS   PTH     ** 
      00031  3 00000 0 00000         PTH     **,,**   
      00032  1 00002 1 00033         TXI     *+1,1,2  
      00033  1 77776 2 00020         TXI     MORMES,2,-2    
      00034 -3 00000 1 00072  SNOOZE TXL     ABORT,1,0
      00035 -0500 00 0 00105         CAL     =15
      00036  0074 00 4 00002         TSX     $SLEEP,4 
      00037 -0634 00 1 00040         SXD     *+1,1    
      00040  1 00000 2 00041         TXI     *+1,2,** 
      00041  0074 00 4 00003         TSX     $GETLSG,4
      00042  0774 00 1 00000         AXT     0,1
      00043 -0500 00 2 00001  NOMTCH CAL     1,2
      00044  0074 00 4 00100         TSX     CKOP,4   
      00045  3 00000 0 00061         PTH     REPTMS   
      00046 -0500 00 2 00002         CAL     2,2
      00047  0621 00 0 00071         STA     TRAFER   
      00050 -0734 00 3 00000         PDX     ,3 
      00051  0074 00 4 00100         TSX     CKOP,4   
 TD   00052  3 00000 0 00061         TXH     REPTMS   
      00053 -0754 00 0 00000         ZAC  
      00054  0754 00 3 00000         PXA     ,3 
      00055  0402 00 0 74445         SUB     KEYVAL   
1       SUBROUTINE TO TALK TO OPERATOR AND CONVERSE UNTIL WE GET AN ANSWER       05/11/69 2004.7 PAGE 2     
                  
      00056  0100 00 0 00064         TZE     FOUND    
      00057  1 00002 1 00060         TXI     *+1,1,2  
      00060  1 77776 2 00043         TXI     NOMTCH,2,-2    
      00061 -3 00000 1 00072  REPTMS TXL     ABORT,1,0
      00062 -0634 00 1 00063         SXD     *+1,1    
      00063  1 00000 2 00017         TXI     MORMES-1,2,**  
                              *     
                       00064  FOUND  EQU     *  
      00064  0774 00 1 00000  ASK1   AXT     **,1     
      00065  0774 00 2 00000  ASK2   AXT     **,2     
      00066  0774 00 3 00000  ASK3   AXT     **,3     
      00067  0774 00 4 00000  ASK4   AXT     **,4     
      00070  0774 00 7 00000  ASK7   AXT     **,7     
      00071  0020 00 0 00000  TRAFER TRA     ** 
                              *     
                              *     
      00072  0534 00 4 00067  ABORT  LXA     ASK4,4   
      00073  0534 00 3 00066         LXA     ASK3,3   
      00074  0534 00 2 00065         LXA     ASK2,2   
      00075  0534 00 1 00064         LXA     ASK1,1   
      00076  0534 00 7 00070         LXA     ASK7,7   
      00077  0020 00 4 00001         TRA     1,4
                              *     
      00100 -0320 00 0 00107  CKOP   ANA     =O700000000000 
      00101 -0340 00 0 00106         LAS     =O300000000000 
      00102  0020 60 4 00001         TRA*    1,4
      00103  0020 00 4 00002         TRA     2,4
      00104  0020 60 4 00001         TRA*    1,4
                              *     
                                     INSERT  BCMEQB   
                              *     
                              *  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -     
                              *      COMMON AND EQUIVALENCE FOR SECONDARY STORAGE LOAD    
                              *         (TIME-SHARING VERSION)    
                              *  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -     
                              *     
                      074446  DEMKEY BOOL    74446         CORE A LOCATION FOR DAEMON KEY SETTING     
                              *     
                      000017  BASE   BOOL    17            KEY CODE BASE
                      000001  CTINUE BOOL    1             KEY CODE TO CONTINUE WITH PROGRAM,NO CHANGE
                      000002  PAUSE  BOOL    2             KEY CODE TO WAIT 60 SECS.
                      000003  CHLDFL BOOL    3             KEY CODE TO USE DIFFERENT LOAD FILE  
                      000004  STOPLD BOOL    4             KEY CODE TO STOP LOADING, START DUMPING    
                      000005  ABANKY BOOL    5             KEY CODE TO ABANDON LOAD TAPE FILE   
                      000006  SWCHAN BOOL    6             KEY CODE TO GO FROM 1 OR 2 TO 2 OR 1 CHANS.
                      000007  LSREEL BOOL    7             KEY CODE TO INDICATE LAST REEL OF LOAD FILE
                      000010  CHREEL BOOL    10            KEY CODE TO CORRECT REEL ORDER ERROR 
                       77777  NEWCOM EQU     -1            TOP OF MEMORY
                      077461  OLDCOM BOOL    77461         OLD TOP OF COMMON  
                       77462  COMRLC EQU     OLDCOM-NEWCOM RELOCATION FACTOR  
                       77777         COMMON  COMRLC        RELOCATE COMMON    
                       01554  UF     EQU     32767/2-DEMKEY/2 LENGTH OF USER LIST   
                       77777  UFL    COMMON  2*UF          USER FILE LIST  (1ST PARTS OF FILE NAMES)  
                       74446         COMMON  1             INSERT DUMMY IF NECESSARY
                       74445         COMMON  1             DEMKEY CELL IN NON-CTSS VERSION
                       74445  KEYVAL COMMON  1  
1       SUBROUTINE TO TALK TO OPERATOR AND CONVERSE UNTIL WE GET AN ANSWER       05/11/69 2004.7 PAGE 3     
                  
                       74444  ABANTP COMMON  1             ABANDON TAPE FILE INDICATOR    
                       74443  NOCHAN COMMON  1             NO. OF CHANNELS BEING READ (1 OR 2)  
                       74442  DU     COMMON  1             PROBLEM NO. OF DUMP/LOAD PACKAGE     
                       74441  DP     COMMON  1             PROGRAMMER NO. OF DITTO. 
                       74440  LFNA   COMMON  1             LOAD TAPE FILE NAME (PART 1)   
                       74437  LFNB   COMMON  1              ,,   ,,   ,,   ,,  (PART 2)   
                       74423         COMMON  11            DUMPED FILE'S PREAMBLE FROM DUMP TAPE
                       74423  PREAM  COMMON  1             DUMPED FILE'S DUMP TAPE PREAMBLE 1ST WORD  
                       74422  BFNA   COMMON  1             CHANNEL B LOAD TAPE FILE NAME (PART 1)     
                       74421  BFNB   COMMON  1             CHANNEL B LOAD TAPE FILE NAME (PART 2)     
                       74420  AUN    COMMON  1             CHANNEL A UNIT NO. 
                       74417  BUN    COMMON  1             CHANNEL B UNIT NO. 
                       74416  TEOF   COMMON  1             TAPE EOF INDICATOR/WORD COUNT  
                       74412         COMMON  3             LABEL OF TAPE FILE CURRENTLY BEING LOADED  
                       74412  LABEL  COMMON  1             LABEL OF TAPE FILE DITTO.   1ST WORD 
                       74411  X      COMMON  1             TAPE FILE POINTER  
                                     END  
                  
        LITERALS  
      00105  000000000017     
      00106  300000000000     
      00107  700000000000     
1       SUBROUTINE TO TALK TO OPERATOR AND CONVERSE UNTIL WE GET AN ANSWER       05/11/69 2004.7 PAGE 1     
                        POST PROCESSOR ASSEMBLY DATA  
                  
       74410 IS THE LAST LOCATION NOT USED BY THIS PROGRAM  
        110 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM  
                  
0REFERENCES TO DEFINED SYMBOLS      
      74411      X   105
      74441     DP   105
      74442     DU   105
       1554     UF   105
      74420    AUN   105
      74417    BUN   105
      77777    UFL   105
         64   ASK1     6,   75
         65   ASK2     7,   74
         66   ASK3    10,   73
         67   ASK4    11,   72
         70   ASK7    12,   76
         17   BASE   105
      74422   BFNA   105
      74421   BFNB   105
        100   CKOP    22,   44,   51
          0   GETA    13
      74440   LFNA   105
      74437   LFNB   105
         30   MESS    21,   26
      74416   TEOF   105
         72  ABORT    34,   61
         64  FOUND    56,   64
      74412  LABEL   105
          2  PAUSE   105
      74423  PREAM   105
          2  SLEEP    36
          5 ABANKY   105
      74444 ABANTP   105
          6 ASKOPR     0
          3 CHLDFL   105
         10 CHREEL   105
      77462 COMRLC   105
          1 CTINUE   105
      74446 DEMKEY    14,  105
          3 GETLSG    41
      74445 KEYVAL    55,  105
          7 LSREEL   105
         20 MORMES    33,   63
      77777 NEWCOM   105
      74443 NOCHAN   105
         43 NOMTCH    60
      77461 OLDCOM   105
          1 PRCODE    27
         61 REPTMS    45,   52
         34 SNOOZE    23
          4 STOPLD   105
          6 SWCHAN   105
         71 TRAFER    47
1       SUBROUTINE TO TALK TO OPERATOR AND CONVERSE UNTIL WE GET AN ANSWER       05/11/69 2004.7 PAGE 2     
                        POST PROCESSOR ASSEMBLY DATA  
                  
0 NO ERROR IN ABOVE ASSEMBLY. 
1                                                                                05/11/69 2006.7 PAGE 1     
                  
                       00004         ENTRY   GETA     
                       00005         ENTRY   NGETA    
                                     EXTERN  GETLOC,SETLOC  
                  
        TRANSFER VECTOR 
      00000  272563434623     GETLOC
      00001  622563434623     SETLOC
                  
            LINKAGE DIRECTOR  
      00002  000000000000     
      00003  272563216060     
                  
      00004  0600 00 0 00067  GETA   STZ     NINDC    
      00005 -0600 00 0 00072  NGETA  STQ     TMPMQ    
      00006  0601 00 0 00071         STO     TMPAC    
      00007  0602 00 0 00073         SLW     TMPACL   
      00010  0634 00 7 00062         SXA     NGX7,7   
      00011  0634 00 4 00063         SXA     NGX4,4   
      00012  0604 00 0 00066         STI     INDIC    
      00013  0441 00 7 00001         LDI     1,7
      00014  0520 00 0 00067         ZET     NINDC    
      00015  0020 00 0 00031         TRA     GETL          DON'T COMPUTE EFFECTIVE ADDRESS
      00016 -0625 00 0 00067         STL     NINDC    
      00017 -0046 00 0 00000         PIA  
      00020  0074 00 7 00074  CKRL1  TSX     GETEFA,7      GET EFFECTIVE ADDRESS    
      00021 -0056 00  000060         LNT     60            IS THERE INDIRECT ADDRESS
      00022  0020 00 0 00027         TRA     CKRL2         NO     
      00023 -0057 00  000077         RIL     77            TURN OFF INDIRECT ADDRESS BITS 
      00024  0737 00 7 00000         PAC     0,7
      00025 -0500 00 7 00000         CAL     0,7
      00026  0020 00 0 00020         TRA     CKRL1         COMPUTE FINAL ADDRESS    
      00027  0057 00  777777  CKRL2  RIR     777777        FINAL ADDRESS IN AC NOW  
      00030  0043 00 0 00000         OAI                   OP CODE IN INDICATOR     
      00031 -0046 00 0 00000  GETL   PIA                   INSTRUCTION IN AC  
      00032  0621 00 0 00055         STA     GA2
      00033  0621 00 0 00040         STA     GA            SET ADDRESS TO GET FROM CORE A 
      00034  0622 00 0 00047         STD     XGA           SET OP CODE OF INSTRUCTION     
      00035  0630 00 0 00047         STP     XGA
      00036  0625 00 0 00047         STT     XGA
      00037  0074 00 4 00000         TSX     GETLOC,4 
      00040  0 00000 0 00000  GA     PZE     ** 
      00041  0602 00 0 00070         SLW     GTMP          WORD FROM CORE A INTO GTMP     
      00042 -0500 00 0 00073         CAL     TMPACL   
      00043  0560 00 0 00071         LDQ     TMPAC    
      00044  0763 00 0 00000         LLS     0  
      00045  0560 00 0 00072         LDQ     TMPMQ    
      00046  0441 00 0 00066         LDI     INDIC    
      00047  0 00000 0 00070  XGA    ***     GTMP          EXECUTE INSTRUCTION
      00050  0441 00 0 00047         LDI     XGA
      00051 -0056 00  060000         LNT     060000        IS THIS A STORE-TYPE INSTRUCTION     
      00052  0020 00 0 00062         TRA     NGX7          NO     
      00053 -0500 00 0 00070         CAL     GTMP     
      00054  0074 00 4 00001         TSX     SETLOC,4 
      00055  0 00000 0 00000  GA2    PZE     ** 
      00056 -0500 00 0 00073         CAL     TMPACL   
      00057  0560 00 0 00071         LDQ     TMPAC    
1                                                                                05/11/69 2006.7 PAGE 2     
                  
      00060  0763 00 0 00000         LLS     0  
      00061  0560 00 0 00072         LDQ     TMPMQ    
      00062  0774 00 7 00000  NGX7   AXT     **,7     
      00063  0774 00 4 00000  NGX4   AXT     **,4     
      00064  0441 00 0 00066         LDI     INDIC    
      00065  0020 00 7 00002         TRA     2,7
      00066  0 00000 0 00000  INDIC  PZE     0  
      00067 +000000777777     NINDC  OCT     777777   
      00070  0 00000 0 00000  GTMP   PZE     0  
      00071  0 00000 0 00000  TMPAC  PZE     0  
      00072  0 00000 0 00000  TMPMQ  PZE     0  
      00073  0 00000 0 00000  TMPACL PZE     0  
      00074  0634 00 7 00102  GETEFA SXA     GETF7,7  
      00075  0625 00 0 00077         STT     *+2           TAG    
      00076  0734 00 7 00000         PAX     ,7            PTR    
      00077 -0636 00 0 00100         SCD     *+1,**        -C(TAG)
      00100  1 00000 7 00101         TXI     *+1,7,**      PTH-C(TAG)   
      00101  0754 00 7 00000         PXA     ,7            INTO AC
      00102  0774 00 7 00000  GETF7  AXT     **,7     
      00103  0020 00 7 00001         TRA     1,7
                                     END  
1                                                                                05/11/69 2006.7 PAGE 1     
                        POST PROCESSOR ASSEMBLY DATA  
                  
        104 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM  
                  
0REFERENCES TO DEFINED SYMBOLS      
         40     GA    33
         55    GA2    32
         47    XGA    34,   35,   36,   50
          4   GETA     0
         31   GETL    15
         70   GTMP    41,   47,   53
         63   NGX4    11
         62   NGX7    10,   52
         20  CKRL1    26
         27  CKRL2    22
        102  GETF7    74
         66  INDIC    12,   46,   64
          5  NGETA     0
         67  NINDC     4,   14,   16
         71  TMPAC     6,   43,   57
         72  TMPMQ     5,   45,   61
         74 GETEFA    20
          0 GETLOC    37
          1 SETLOC    54
         73 TMPACL     7,   42,   56
                  
0 NO ERROR IN ABOVE ASSEMBLY. 
1     MAD PROGRAM LISTING ... ... ...                 FILE   NLREC   MAD            05/11/69    2006.9
-                 
                  EXTERNAL FUNCTION (NRECS,IRC,LRC,LTRC,LPREAM,LPHYS,NFLR,NLAST                   *001  000001    
                1 )                                                                               *001  000002    
                  ENTRY TO    NLREC .                                                             *002  000003    
                  NWDS=(NRECS-1)*IRC+LRC                                                          *003  000004    
                  NFLR=NWDS/LTRC                                                                  *004  000005    
                  NLEFT=XMOD  .(    NWDS,LTRC)                                                    *005  000006    
                  WHENEVER (NLEFT) .LE. 0, TRANSFER TO QQ0004                                     *006  000007    
                  MLPH = NLEFT + LPREAM                                                           *007  000017    
                  REM = MLPH - (MLPH/LPHYS)*LPHYS                                                 *008  000027    
                  NLAST=(MLPH/LPHYS+(REM/REM))*LPHYS                                              *009  000037    
                  TRANSFER TO QQ0005                                                              *010  000047    
      QQ0004      NLAST=0                                                                         *011  000057    
      QQ0005      FUNCTION RETURN                                                                 *012  000067    
                  INTEGER     NWDS  ,     NRECS ,     IRC   ,     LRC                             *013  000077    
                  INTEGER     NFLR  ,     LTRC  ,     NLEFT ,     XMOD                            *014  000087    
                  INTEGER     NLAST ,     LPREAM,     LPHYS                                       *015  000097    
                  INTEGER   MLPH,     REM                                                         *016  000107    
                  END OF FUNCTION                                                                 *017  000117    
1MAD PROGRAM,TYPE NOV 1963      (ALL NUMBERS ARE OCTAL)     
0TOTAL LOCATIONS   00143 TRANSFER VECTOR LENGTH  00002 PROGRAM BEGINS    00014
0 PROGRAM IS AN EXTERNAL FUNCTION.   THE FOLLOWING ARE ENTRIES    
      NLREC  00015   0                                                                                                  
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)  
      MLPH   00005   1        NWDS   00007   1        QQ0004 00003   4        QQ0005 00004   4        REM    00010   1  
      NLEFT  00006   1                                                                                                  
0FUNCTION DICTIONARY    
      EXIT   00000   0        XMOD   00001   1                                                                          
0ABSOLUTE CONSTANTS     
 00011 +000000000000     00012 +000000000001     00013 +233000000000                                                    
0STATEMENT DICTIONARY   
 00003 TXL -300101000077       00004 TXL -300102000101                                                                  
0PROGRAM    
                 EXTERNAL FUNCTION (NRECS,IRC,LRC,LTRC,LPREAM,LPHYS,NFLR,NLAST      001   000001
                1)                                                                  001   000002
                 ENTRY TO    NLREC .                                                002   000003
 00014 TRA +0 02000 0 00017    00015 SXA +0 63400 2 00103    00016 TSX +0 07400 2 00103                                 
                 NWDS=(NRECS-1)*IRC+LRC                                             003   000004
 00017 CLA +0 50000 0 00024    00020 SUB +0 40200 0 00012    00021 XCA +0 13100 0 00000    00022 MPY +0 20000 0 00024   
 00023 XCA +0 13100 0 00000    00024 ADD +0 40000 0 00024    00025 STO +0 60100 0 00007                                 
                 NFLR=NWDS/LTRC                                                     004   000005
 00026 LDQ +0 56000 0 00007    00027 PXD -0 75400 0 00000    00030 LLS +0 76300 0 00000    00031 DVP +0 22100 0 00024   
 00032 STQ -0 60000 0 00024                                                                                             
                 NLEFT=XMOD  .(    NWDS,LTRC)                                       005   000006
 00033 TSX +0 07400 4 00001    00034 TXH +3 00000 0 00007    00035 TXH +3 00000 0 00024    00036 STO +0 60100 0 00006   
                 WHENEVER (NLEFT) .LE. 0, TRANSFER TO QQ0004                        006   000007
 00037 CLA +0 50000 0 00006    00040 SUB +0 40200 0 00011    00041 TZE +0 10000 0 00043    00042 TPL +0 12000 0 00044   
 00043 TRA +0 02000 0 00003                                                                                             
                 MLPH = NLEFT + LPREAM                                              007   000017
 00044 CLA +0 50000 0 00006    00045 ADD +0 40000 0 00024    00046 STO +0 60100 0 00005                                 
                 REM = MLPH - (MLPH/LPHYS)*LPHYS                                    008   000027
 00047 LDQ +0 56000 0 00005    00050 PXD -0 75400 0 00000    00051 LLS +0 76300 0 00000    00052 DVP +0 22100 0 00024   
 00053 MPY +0 20000 0 00024    00054 XCA +0 13100 0 00000    00055 CHS +0 76000 0 00002    00056 ADD +0 40000 0 00005   
 00057 STO +0 60100 0 00010                                                                                             
                 NLAST=(MLPH/LPHYS+(REM/REM))*LPHYS                                 009   000037
 00060 LDQ +0 56000 0 00010    00061 PXD -0 75400 0 00000    00062 LLS +0 76300 0 00000    00063 DVP +0 22100 0 00010   
 00064 STQ -0 60000 0 00140    00065 LDQ +0 56000 0 00005    00066 PXD -0 75400 0 00000    00067 LLS +0 76300 0 00000   
 00070 DVP +0 22100 0 00024    00071 XCA +0 13100 0 00000    00072 ADD +0 40000 0 00140    00073 XCA +0 13100 0 00000   
 00074 MPY +0 20000 0 00024    00075 STQ -0 60000 0 00024                                                               
                 TRANSFER TO QQ0005                                                 010   000047
 00076 TRA +0 02000 0 00004                                                                                             
      QQ0004     NLAST=0                                                            011   000057
 00077 CLA +0 50000 0 00011    00100 STO +0 60100 0 00024                                                               
      QQ0005     FUNCTION RETURN                                                    012   000067
 00101 TRA +0 02000 0 00134                                                                                             
                 INTEGER     NWDS  ,     NRECS ,     IRC   ,     LRC                013   000077
                 INTEGER     NFLR  ,     LTRC  ,     NLEFT ,     XMOD               014   000087
                 INTEGER     NLAST ,     LPREAM,     LPHYS                          015   000097
                 INTEGER   MLPH,     REM                                            016   000107
                 END OF FUNCTION                                                    017   000117
 00102 TSX +0 07400 4 00000    00103 TXH +3 00000 0 00000    00104 SXD -0 63400 1 00103    00105 SXA +0 63400 4 00134   
 00106 CLA +0 50000 4 00001    00107 STA +0 62100 0 00017    00110 CLA +0 50000 4 00002    00111 STA +0 62100 0 00022   
 00112 CLA +0 50000 4 00003    00113 STA +0 62100 0 00024    00114 CLA +0 50000 4 00004    00115 STA +0 62100 0 00031   
 00116 STO +0 60100 0 00035    00117 CLA +0 50000 4 00005    00120 STA +0 62100 0 00045    00121 CLA +0 50000 4 00006   
 00122 STA +0 62100 0 00052    00123 STA +0 62100 0 00053    00124 STA +0 62100 0 00070    00125 STA +0 62100 0 00074   
 00126 CLA +0 50000 4 00007    00127 STA +0 62100 0 00032    00130 CLA +0 50000 4 00010    00131 STA +0 62100 0 00075   
 00132 STA +0 62100 0 00100    00133 TRA +0 02000 2 00001    00134 AXT +0 77400 4 00000    00135 LXA +0 53400 2 00103   
 00136 LXD -0 53400 1 00103    00137 TRA +0 02000 4 00001                                                               
1     FAP ASSEMBLY LISTING  ...  ...  ...        FILE PRCODE  0 00006         RQL     6  
      00012  0774 00 1 00002         AXT     2,1
      00013  0767 00 0 00003         ALS     3  
      00014 -0763 00 0 00003         LGL     3  
      00015  2 00001 1 00013         TIX     *-2,1,1  
      00016  0602 00 0 00047         SLW     MESX+2   
      00017 -0500 00 4 00002         CAL     2,4
      00020 -0734 00 1 00000         PDX     ,1 
      00021 -0634 00 1 00030         SXD     INC,1    
      00022 -0634 00 1 00031         SXD     INC+1,1  
      00023  0634 00 1 00034         SXA     INC+4,1  
      00024  1 00003 1 00025         TXI     *+1,1,3  
      00025 -0634 00 1 00041         SXD     PRNT,1   
      00026  0734 00 1 00000         PAX     ,1 
      00027  0774 00 4 00050         AXT     MESX+3,4 
      00030  1 00000 1 00031  INC    TXI     *+1,1,** 
      00031  1 00000 4 00032         TXI     *+1,4,** 
      00032  0634 00 1 00035         SXA     FROM,1   
      00033  0634 00 4 00036         SXA     TO,4     
      00034  0774 00 1 00000         AXT     **,1     
      00035 -0500 00 1 00000  FROM   CAL     **,1     
      00036  0602 00 1 00000  TO     SLW     **,1     
      00037  2 00001 1 00035         TIX     *-2,1,1  
      00040  0074 00 4 00000         TSX     WRFLX,4  
      00041  0 00000 0 00045  PRNT           MESX,,** 
      00042  0774 00 1 00000  P1     AXT     **,1     
      00043  0774 00 4 00000  P4     AXT     **,4     
      00044  0020 00 4 00003         TRA     3,4
                              *     
      00045  622563604225     MESX   BCI     2,SET KEY CODE 
      00046  706023462425     
      00047                          BSS     12 
                                     END  
                  
        LITERALS  
      00063  000000000017     
      00064  506060600000     
1     FAP ASSEMBLY LISTING  ...  ...  ...        FILE PRCODE          
0REFERENCES TO DEFINED SYMBOLS      
         42     P1     3
         43     P4     4
         36     TO    33
         30    INC    21,   22,   23
         35   FROM    32
         45   MESX    16,   27,   41
         41   PRNT    25
          0  WRFLX    40
          3 PRCODE     0
                  
0 NO ERROR IN ABOVE ASSEMBLY. 
1            CONVERT I/O SYSTEM DATE/TIME TO BCD.....M.J.BAILEY,12/11/64         05/11/69 2007.3 PAGE 1     
                  
                              *       (EXTRACTED FROM GDT FOR LOADER USE)     
                              *     
                       00002         ENTRY   IOBDT    
                              *     
                              *   CONVERT I/O SYSTEM DATE/TIME FROM LAC TO BCD TIME AND DATE -- 
                              *      HHMM.M (TIME) IN AC, MMDDYY (DATE) IN MQ 
                              *     
                  
            LINKAGE DIRECTOR  
      00000  000000000000     
      00001  314622246360     
                  
      00002 -0130 00 0 00000   IOBDT XCL  
 T    00003 -0754 00 0 00000         PXD  
      00004 -0763 00 0 00011         LGL     9             YEAR IN AC   
      00005 -0600 00 0 00122         STQ     GDTD     
      00006 -0130 00 0 00000         XCL                   YEAR IN MQ   
 T    00007 -0754 00 0 00000         PXD  
      00010  0221 00 0 00124         DVP     =10           TENS DIGIT OF YEAR IN MQ, UNITS IN AC
      00011 -0320 00 0 00125         ANA     =O17     
      00012  0602 00 0 00117         SLW     DATE.         '00000Y'  OF DATE  
      00013 -0130 00 0 00000         XCL  
      00014 -0320 00 0 00125         ANA     =O17     
      00015  0767 00 0 00006         ALS     6  
      00016 -0602 00 0 00117         ORS     DATE.         '0000YY' OF DATE   
      00017  0560 00 0 00122         LDQ     GDTD     
 T    00020 -0754 00 0 00000         PXD  
      00021 -0763 00 0 00004         LGL     4             MONTH IN AC  
      00022  0601 00 0 00123         STO     GDTM     
      00023  0402 00 0 00124         SUB     =10
      00024 -0120 00 0 00030         TMI     IBA
      00025  0601 00 0 00123         STO     GDTM          SAVE UNITS DIGIT OF MONTH
      00026  0500 00 0 00131         CLA     =O100    
      00027  0020 00 0 00031         TRA     *+2
 T    00030 -0754 00 0 00000    IBA  PXD  
      00031  0400 00 0 00123         ADD     GDTM     
      00032  0767 00 0 00030         ALS     24            'MM0000'     
      00033 -0602 00 0 00117         ORS     DATE.         'MM00YY' OF DATE   
 T    00034 -0754 00 0 00000         PXD  
      00035 -0763 00 0 00005         LGL     5             DAY IN AC    
      00036 -0600 00 0 00122         STQ     GDTD          SAVE THE TIME
      00037 -0130 00 0 00000         XCL                   DAY IN MQ    
 T    00040 -0754 00 0 00000         PXD  
      00041  0221 00 0 00124         DVP     =10           TENS DIGIT OF DAY IN MQ, UNITS IN AC 
      00042 -0773 00 0 00006         RQL     6  
      00043 -0600 00 0 00123         STQ     GDTM          STORE '0000D0'     
      00044  0400 00 0 00123         ADD     GDTM          '0000DD' IN AC     
      00045  0767 00 0 00014         ALS     12            '00DD00' IN AC     
      00046 -0602 00 0 00117         ORS     DATE.         'MMDDYY' OF DATE   
      00047 -0500 00 0 00122         CAL     GDTD          TIME   
      00050  0771 00 0 00022         ARS     18 
      00051 -0130 00 0 00000         XCL                   TIME IN SECS. IN MQ
      00052  0200 00 0 00130         MPY     =60           GET TIME IN 1/60TH'S SEC. IN MQ
      00053  0634 00 4 00101         SXA     TPWATX,4 
                              *     
      00054 -0754 00 0 00000   BCA   ZAC  
1            CONVERT I/O SYSTEM DATE/TIME TO BCD.....M.J.BAILEY,12/11/64         05/11/69 2007.3 PAGE 2     
                  
      00055  0221 00 0 00133         DVP     =216000       FIND HOUR    
      00056  0601 00 0 00121         STO     MIN.          SAVE REMAINDER (MINUTES) 
      00057  0074 00 4 00103         TSX     BINBCD,4      CONVERT HOURS TO BCD     
      00060 -0765 00 0 00006         LGR     6  
      00061 -0100 00 0 00063         TNZ     *+2
      00062 -0500 00 0 00127         CAL     =O60          REPLACE LEADING ZERO WITH BLANK
      00063 -0763 00 0 00006         LGL     6  
      00064  0767 00 0 00030         ALS     24            LEAVE ROOM FOR MINUTE    
      00065  0602 00 0 00120         SLW     HOUR.         SAVE HOUR    
      00066  0560 00 0 00121         LDQ     MIN.          MINUTE 
      00067 -0754 00 0 00000         ZAC  
      00070  0221 00 0 00132         DVP     =360          FIND NO. OF TENTHS OF MINUTES  
      00071  0074 00 4 00103         TSX     BINBCD,4      CONVERT TO BCD     
      00072 -0765 00 0 00006         LGR     6             TENTHS TO MQ 
      00073  0767 00 0 00014         ALS     12 
      00074 -0602 00 0 00120         ORS     HOUR.         ADD MINUTE TO HOUR 
      00075 -0500 00 0 00126         CAL     =H00000.      PRECEDE TENTHS WITH .    
      00076 -0763 00 0 00006         LGL     6             BRING BACK TENTHS  
      00077 -0501 00 0 00120         ORA     HOUR.         HHMM.M IN LOGICAL AC     
      00100  0560 00 0 00117         LDQ     DATE.         DATE TO MQ   
      00101  0774 00 4 00000  TPWATX AXT     **,4     
      00102  0020 00 4 00001         TRA     1,4
                  
      00103  0634 00 4 00114  BINBCD SXA     BNBCDX,4      BINARY TO BCD CONVERTER  
      00104  0600 00 0 00116         STZ     TPLIN.   
      00105  0774 00 4 00044         AXT     36,4     
      00106 -0754 00 0 00000  BNBCD1 ZAC                   CONVERT INTEGER TO BCD   
      00107  0221 00 0 00124         DVP     =10           ..     
      00110  0767 00 4 00044         ALS     36,4          ..     
      00111 -0602 00 0 00116         ORS     TPLIN.        ..     
      00112  2 00006 4 00106         TIX     BNBCD1,4,6    ..     
      00113 -0500 00 0 00116         CAL     TPLIN.   
      00114  0774 00 4 00000  BNBCDX AXT     **,4     
      00115  0020 00 4 00001         TRA     1,4
      00116  0 00000 0 00000  TPLIN. PZE                   TEMPORARY    
      00117  606060606060      DATE. BCI     1, 
      00120  606060606060      HOUR. BCI     1, 
      00121  0 00000 0 00000   MIN.  PZE  
      00122  0 00000 0 00000  GDTD   PZE  
      00123  0 00000 0 00000  GDTM   PZE  
                                     END  
                  
        LITERALS  
      00124  000000000012     
      00125  000000000017     
      00126  000000000033     
      00127  000000000060     
      00130  000000000074     
      00131  000000000100     
      00132  000000000550     
      00133  000000645700     
1            CONVERT I/O SYSTEM DATE/TIME TO BCD.....M.J.BAILEY,12/11/64         05/11/69 2007.3 PAGE 1     
                        POST PROCESSOR ASSEMBLY DATA  
                  
        134 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM  
                  
0REFERENCES TO DEFINED SYMBOLS      
         54    BCA      
         30    IBA    24
        122   GDTD     5,   17,   36,   47
        123   GDTM    22,   25,   31,   43,   44
        121   MIN.    56,   66
        117  DATE.    12,   16,   33,   46,  100
        120  HOUR.    65,   74,   77
          2  IOBDT     0
        103 BINBCD    57,   71
        106 BNBCD1   112
        114 BNBCDX   103
        116 TPLIN.   104,  111,  113
        101 TPWATX    53
                  
0 NO ERROR IN ABOVE ASSEMBLY. 
1      XMOD          REMAINDERING ARG1(MOD ARG2)                                 05/11/69 2007.4 PAGE 1     
                  
                              *              CALLING SEQUENCE TSX XMOD,4
                              *                               TXH ARG1(FIXED) 
                              *                               TXH ARG2(FIXED) 
                              *                               3,4 RETURN
                              *              FUNCTION FIXED 
                       00002         ENTRY   XMOD     
                  
            LINKAGE DIRECTOR  
      00000  000000000000     
      00001  674446246060     
                  
      00002  0760 00 0 00000  XMOD   CLM  
      00003  0560 60 4 00001         LDQ*    1,4
 A    00004  0763 00 0 00000         LLS                   SIGN OF MQ TO AC   
      00005  0221 60 4 00002         DVP*    2,4
      00006  0020 00 4 00003         TRA     3,4
                                                           FUNCTION IN ARITHMETIC AC FIXED
                                     END  
1      XMOD          REMAINDERING ARG1(MOD ARG2)                                 05/11/69 2007.4 PAGE 1     
                        POST PROCESSOR ASSEMBLY DATA  
                  
          7 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM  
                  
0REFERENCES TO DEFINED SYMBOLS      
          2   XMOD     0
                  
0 NO ERROR IN ABOVE ASSEMBLY. 
1     MAD PROGRAM LISTING ... ... ...                 FILE  CRECAP   MAD            05/11/69    2007.5
-                 
                  EXTERNAL FUNCTION                                                               *001 LM00001    
                  NORMAL MODE IS INTEGER                                                          *002 LM00002    
                  DIMENSION ENTRY(7),USER(7)                                                      *003 LM00003    
                  DIMENSION BUFF1(432),BUFF2(432)                                                 *004 LM00004    
                  EQUIVALENCE (N1,ENTRY(7)),(N2,ENTRY(6)),(PB,USER(7)),(PG,USER(6))               *005 LM00005    
                  EQUIVALENCE (MODE,ENTRY(3)),(NORECS,ENTRY(2)),(DEVICE,ENTRY(3))                 *006 LM00006    
                  VECTOR VALUES MFD=$M.F.D.$                                                      *007 LM00007    
                  VECTOR VALUES UFD=$U.F.D.$                                                      *008 LM00008    
                  VECTOR VALUES FILE=$(FILE)$                                                     *009 LM00009    
                  VECTOR VALUES SYSTEM=$ C0056$                                                   *010 LM00010    
                  VECTOR VALUES DAEMON=$ 99999$                                                   *011 LM00011    
                  VECTOR VALUES URGENT=$URGENT$                                                   *012 LM00012    
                  VECTOR VALUES MAIL=$  MAIL$                                                     *013 LM00013    
                  VECTOR VALUES POST=$  POST$                                                     *014 LM00014    
                  VECTOR VALUES ERROR=$ ERROR$                                                    *015 LM00015    
                  VECTOR VALUES RELOAD=$RELOAD$                                                   *016 LM00016    
                  VECTOR VALUES MZE=-0                                                            *017 LM00017    
                  VECTOR VALUES R=432                                                             *018 LM00018    
                  ENTRY TO RECAP.                                                                 *019 LM00019    
                  ATTACH.(MFD,FILE,WOOPS)                                                         *020 LM00020    
                  OPEN.($R$,UFD,FILE,MZE,MZE,WOOPS)                                               *021 LM00021    
                  BUFFER.(UFD,FILE,BUFF1(432)...432,WOOPS)                                        *022 LM00022    
                  RDWAIT.(UFD,FILE,0,ENTRY(3)...3,MEOF,EOFCT,WOOPS)                               *023 LM00023    
      READM       RDWAIT.(UFD,FILE,0,USER(7)...7,MEOF,EOFCT,WOOPS)                                *024 LM00024    
                  WHENEVER ((PB.V.PG).E.0).OR.(PG.E.FILE), TRANSFER TO READM                      *025 LM00025    
                  OPEN.($R$,PB,PG,MZE,MZE,WOOPS)                                                  *026 LM00026    
                  BUFFER.(PB,PG,BUFF2(432)...432,WOOPS)                                           *027 LM00027    
                  RDWAIT.(PB,PG,0,ENTRY(3)...3,UEOF,EOFCT,WOOPS)                                  *028 LM00028    
      READU       RDWAIT.(PB,PG,0,ENTRY(7)...7,UEOF,EOFCT,WOOPS)                                  *029 LM00029    
                  WHENEVER ((N1.V.N2).E.0), TRANSFER TO READU                                     *030 LM00030    
                  WHENEVER (DEVICE.A.7K5).E.0, TRANSFER TO READU                                  *031 LM00031    
                  WHENEVER (MODE.L.0).AND.((NORECS.A.77777K6).E.0)                                *032 LM00032    
                       ATTACH.(PB,PG,LKERR2)                                                      *033 LM00033    
                       UNLINK.(URGENT,MAIL,NOMAIL)                                                *034 LM00034    
      NOMAIL           UNLINK.(URGENT,POST,NOPOST)                                                *035 LM00035    
      NOPOST           CONTINUE                                                                   *036 LM00036    
                       LINK.(URGENT,MAIL,SYSTEM,DAEMON,                                           *037 LM00037    
                1           ERROR,RELOAD,104K,LKERR1)                                             *037 LM00038    
                       TRANSFER TO UEOF                                                           *038 LM00039    
      LKERR1           LINK.(URGENT,POST,SYSTEM,DAEMON,                                           *039 LM00040    
                1           ERROR,RELOAD,104K,LKERR2)                                             *039 LM00041    
                       TRANSFER TO UEOF                                                           *040 LM00042    
      LKERR2           PRNTER.                                                                    *041 LM00043    
                       TRANSFER TO UEOF                                                           *042 LM00044    
                  END OF CONDITIONAL                                                              *043 LM00045    
                  TRANSFER TO READU                                                               *044 LM00046    
      UEOF        ATTACH.(MFD,FILE,WOOPS)                                                         *045 LM00047    
                  CLOSE.(PB,PG,NERR1)                                                             *046 LM00048    
      NERR1       TRANSFER TO READM                                                               *047 LM00049    
      MEOF        CLOSE.(UFD,FILE,NERR2)                                                          *048 LM00050    
      NERR2       FUNCTION RETURN                                                                 *049 LM00051    
      WOOPS       PRNTER.                                                                         *050 LM00052    
                  CLOSE.($ALL$,MZE,NERR3)                                                         *051 LM00053    
      NERR3       FUNCTION RETURN                                                                 *052 LM00054    
                  END OF FUNCTION                                                                 *053 LM00055    
1MAD PROGRAM,TYPE NOV 1963      (ALL NUMBERS ARE OCTAL)     
0TOTAL LOCATIONS   02104 TRANSFER VECTOR LENGTH  00011 PROGRAM BEGINS    01640
0 PROGRAM IS AN EXTERNAL FUNCTION.   THE FOLLOWING ARE ENTRIES    
      RECAP  01641   0                                                                                                  
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)  
      BUFF1  00726 A 1        LKERR1 00032   4        N1     00012   1        NORECS 00017   1        R      01621 A 1  
      BUFF2  01607 A 1        LKERR2 00033   4        N2     00013   1        PB     00022   1        SYSTEM 01622 A 1  
      DAEMON 01610 A 1        MAIL   01614 A 1        NERR1  00035   4        PG     00023   1        UEOF   00044   4  
      DEVICE 00016   1        MEOF   00034   4        NERR2  00036   4        POST   01617 A 1        UFD    01623 A 1  
      ENTRY  00021 A 1        MFD    01615 A 1        NERR3  00037   4        READM  00042   4        URGENT 01624 A 1  
      EOFCT  01611   1        MODE   00016   1        NOMAIL 00040   4        READU  00043   4        USER   00031 A 1  
      ERROR  01612 A 1        MZE    01616 A 1        NOPOST 00041   4        RELOAD 01620 A 1        WOOPS  00045   4  
      FILE   01613 A 1                                                                                                  
0FUNCTION DICTIONARY    
      ATTACH 00000   1        BUFFER 00001   1        CLOSE  00002   1        EXIT   00003   1        LINK   00004   1  
      OPEN   00005   1        PRNTER 00006   1        RDWAIT 00007   1        UNLINK 00010   1                          
0ABSOLUTE CONSTANTS     
 01635 +214343606060     01631 +000000000104     01634 +077777000000     01633 +000000700000     01630 +000000000007    
 01627 +000000000003     01625 +000000000000     01632 +000000000660     01637 -116060606060     01626 +000000000001    
 01636 +233000000000                                                                                                    
0STATEMENT DICTIONARY   
 00032 TXL -302040002027       00033 TXL -302042002041       00034 TXL -302061002055       00035 TXL -302055002054      
 00036 TXL -302062002061       00037 TXL -302070002067       00040 TXL -302015002011       00041 TXL -302015002015      
 00042 TXL -301703001673       00043 TXL -301751001741       00044 TXL -302050002044       00045 TXL -302063002062      
0PROGRAM    
                 EXTERNAL FUNCTION                                                  001  LM00001
                 N'R                                                                002  LM00002
                 D'N ENTRY(7),USER(7)                                               003  LM00003
                 D'N BUFF1(432),BUFF2(432)                                          004  LM00004
                 E'E (N1,ENTRY(7)),(N2,ENTRY(6)),(PB,USER(7)),(PG,USER(6))          005  LM00005
                 E'E (MODE,ENTRY(3)),(NORECS,ENTRY(2)),(DEVICE,ENTRY(3))            006  LM00006
                 V'S MFD=$M.F.D.$                                                   007  LM00007
 01615     -0 43326 3 32433                                                                                             
                 V'S UFD=$U.F.D.$                                                   008  LM00008
 01623     -2 43326 3 32433                                                                                             
                 V'S FILE=$(FILE)$                                                  009  LM00009
 01613     -3 42631 4 32534                                                                                             
                 V'S SYSTEM=$ C0056$                                                010  LM00010
 01622     -2 02300 0 00506                                                                                             
                 V'S DAEMON=$ 99999$                                                011  LM00011
 01610     -2 01111 1 11111                                                                                             
                 V'S URGENT=$URGENT$                                                012  LM00012
 01624     -2 45127 2 54563                                                                                             
                 V'S MAIL=$  MAIL$                                                  013  LM00013
 01614     -2 06044 2 13143                                                                                             
                 V'S POST=$  POST$                                                  014  LM00014
 01617     -2 06047 4 66263                                                                                             
                 V'S ERROR=$ ERROR$                                                 015  LM00015
 01612     -2 02551 5 14651                                                                                             
                 V'S RELOAD=$RELOAD$                                                016  LM00016
 01620     -1 12543 4 62124                                                                                             
                 V'S MZE=-0                                                         017  LM00017
 01616     -0 00000 0 00000                                                                                             
                 V'S R=432                                                          018  LM00018
 01621     +0 00000 0 00660                                                                                             
                 E'O RECAP.                                                         019  LM00019
 01640 TRA +0 02000 0 01643    01641 SXA +0 63400 2 02071    01642 TSX +0 07400 2 02071                                 
                 ATTACH.(MFD,FILE,WOOPS)                                            020  LM00020
 01643 TSX +0 07400 4 00000    01644 TXH +3 00000 0 01615    01645 TXH +3 00000 0 01613    01646 TXH +3 00000 0 00045   
                 OPEN.($R$,UFD,FILE,MZE,MZE,WOOPS)                                  021  LM00021
 01647 TSX +0 07400 4 00005    01650 TXH +3 00000 0 01637    01651 TXH +3 00000 0 01623    01652 TXH +3 00000 0 01613   
 01653 TXH +3 00000 0 01616    01654 TXH +3 00000 0 01616    01655 TXH +3 00000 0 00045                                 
                 BUFFER.(UFD,FILE,BUFF1(432)...432,WOOPS)                           022  LM00022
 01656 TSX +0 07400 4 00001    01657 TXH +3 00000 0 01623    01660 TXH +3 00000 0 01613    01661 TIX +2 01632 0 00046   
 01662 TXH +3 00000 0 00045                                                                                             
                 RDWAIT.(UFD,FILE,0,ENTRY(3)...3,MEOF,EOFCT,WOOPS)                  023  LM00023
 01663 TSX +0 07400 4 00007    01664 TXH +3 00000 0 01623    01665 TXH +3 00000 0 01613    01666 TXH +3 00000 0 01625   
 01667 TIX +2 01627 0 00016    01670 TXH +3 00000 0 00034    01671 TXH +3 00000 0 01611    01672 TXH +3 00000 0 00045   
      READM      RDWAIT.(UFD,FILE,0,USER(7)...7,MEOF,EOFCT,WOOPS)                   024  LM00024
 01673 TSX +0 07400 4 00007    01674 TXH +3 00000 0 01623    01675 TXH +3 00000 0 01613    01676 TXH +3 00000 0 01625   
 01677 TIX +2 01630 0 00022    01700 TXH +3 00000 0 00034    01701 TXH +3 00000 0 01611    01702 TXH +3 00000 0 00045   
                 W'R ((PB.V.PG).E.0).OR.(PG.E.FILE), T'O READM                      025  LM00025
 01703 CLA +0 50000 0 00023    01704 SUB +0 40200 0 01613    01705 TZE +0 10000 0 01714    01706 CAL -0 50000 0 00022   
 01707 ORA -0 50100 0 00023    01710 SLW +0 60200 0 02101    01711 CLA +0 50000 0 02101    01712 SUB +0 40200 0 01625   
 01713 TNZ -0 10000 0 01715    01714 TRA +0 02000 0 00042                                                               
                 OPEN.($R$,PB,PG,MZE,MZE,WOOPS)                                     026  LM00026
 01715 TSX +0 07400 4 00005    01716 TXH +3 00000 0 01637    01717 TXH +3 00000 0 00022    01720 TXH +3 00000 0 00023   
 01721 TXH +3 00000 0 01616    01722 TXH +3 00000 0 01616    01723 TXH +3 00000 0 00045                                 
                 BUFFER.(PB,PG,BUFF2(432)...432,WOOPS)                              027  LM00027
 01724 TSX +0 07400 4 00001    01725 TXH +3 00000 0 00022    01726 TXH +3 00000 0 00023    01727 TIX +2 01632 0 00727   
 01730 TXH +3 00000 0 00045                                                                                             
                 RDWAIT.(PB,PG,0,ENTRY(3)...3,UEOF,EOFCT,WOOPS)                     028  LM00028
 01731 TSX +0 07400 4 00007    01732 TXH +3 00000 0 00022    01733 TXH +3 00000 0 00023    01734 TXH +3 00000 0 01625   
 01735 TIX +2 01627 0 00016    01736 TXH +3 00000 0 00044    01737 TXH +3 00000 0 01611    01740 TXH +3 00000 0 00045   
      READU      RDWAIT.(PB,PG,0,ENTRY(7)...7,UEOF,EOFCT,WOOPS)                     029  LM00029
 01741 TSX +0 07400 4 00007    01742 TXH +3 00000 0 00022    01743 TXH +3 00000 0 00023    01744 TXH +3 00000 0 01625   
 01745 TIX +2 01630 0 00012    01746 TXH +3 00000 0 00044    01747 TXH +3 00000 0 01611    01750 TXH +3 00000 0 00045   
                 W'R ((N1.V.N2).E.0), T'O READU                                     030  LM00030
 01751 CAL -0 50000 0 00012    01752 ORA -0 50100 0 00013    01753 SLW +0 60200 0 02101    01754 CLA +0 50000 0 02101   
 01755 SUB +0 40200 0 01625    01756 TNZ -0 10000 0 01760    01757 TRA +0 02000 0 00043                                 
                 W'R (DEVICE.A.7K5).E.0, T'O READU                                  031  LM00031
 01760 CAL -0 50000 0 00016    01761 ANA -0 32000 0 01633    01762 SLW +0 60200 0 02101    01763 CLA +0 50000 0 02101   
 01764 SUB +0 40200 0 01625    01765 TNZ -0 10000 0 01767    01766 TRA +0 02000 0 00043                                 
                 W'R (MODE.L.0).AND.((NORECS.A.77777K6).E.0)                        032  LM00032
 01767 CAL -0 50000 0 00017    01770 ANA -0 32000 0 01634    01771 SLW +0 60200 0 02101    01772 CLA +0 50000 0 02101   
 01773 SUB +0 40200 0 01625    01774 TNZ -0 10000 0 02043    01775 CLA +0 50000 0 00016    01776 SUB +0 40200 0 01625   
 01777 TZE +0 10000 0 02043    02000 TPL +0 12000 0 02043                                                               
                      ATTACH.(PB,PG,LKERR2)                                         033  LM00033
 02001 TSX +0 07400 4 00000    02002 TXH +3 00000 0 00022    02003 TXH +3 00000 0 00023    02004 TXH +3 00000 0 00033   
                      UNLINK.(URGENT,MAIL,NOMAIL)                                   034  LM00034
 02005 TSX +0 07400 4 00010    02006 TXH +3 00000 0 01624    02007 TXH +3 00000 0 01614    02010 TXH +3 00000 0 00040   
      NOMAIL          UNLINK.(URGENT,POST,NOPOST)                                   035  LM00035
 02011 TSX +0 07400 4 00010    02012 TXH +3 00000 0 01624    02013 TXH +3 00000 0 01617    02014 TXH +3 00000 0 00041   
      NOPOST          CONTINUE                                                      036  LM00036
                      LINK.(URGENT,MAIL,SYSTEM,DAEMON,                              037  LM00037
                1          ERROR,RELOAD,104K,LKERR1)                                037  LM00038
 02015 TSX +0 07400 4 00004    02016 TXH +3 00000 0 01624    02017 TXH +3 00000 0 01614    02020 TXH +3 00000 0 01622   
 02021 TXH +3 00000 0 01610    02022 TXH +3 00000 0 01612    02023 TXH +3 00000 0 01620    02024 TXH +3 00000 0 01631   
 02025 TXH +3 00000 0 00032                                                                                             
                      T'O UEOF                                                      038  LM00039
 02026 TRA +0 02000 0 00044                                                                                             
      LKERR1          LINK.(URGENT,POST,SYSTEM,DAEMON,                              039  LM00040
                1          ERROR,RELOAD,104K,LKERR2)                                039  LM00041
 02027 TSX +0 07400 4 00004    02030 TXH +3 00000 0 01624    02031 TXH +3 00000 0 01617    02032 TXH +3 00000 0 01622   
 02033 TXH +3 00000 0 01610    02034 TXH +3 00000 0 01612    02035 TXH +3 00000 0 01620    02036 TXH +3 00000 0 01631   
 02037 TXH +3 00000 0 00033                                                                                             
                      T'O UEOF                                                      040  LM00042
 02040 TRA +0 02000 0 00044                                                                                             
      LKERR2          PRNTER.                                                       041  LM00043
 02041 TSX +0 07400 4 00006                                                                                             
                      T'O UEOF                                                      042  LM00044
 02042 TRA +0 02000 0 00044                                                                                             
                 E'L                                                                043  LM00045
                 T'O READU                                                          044  LM00046
 02043 TRA +0 02000 0 00043                                                                                             
      UEOF       ATTACH.(MFD,FILE,WOOPS)                                            045  LM00047
 02044 TSX +0 07400 4 00000    02045 TXH +3 00000 0 01615    02046 TXH +3 00000 0 01613    02047 TXH +3 00000 0 00045   
                 CLOSE.(PB,PG,NERR1)                                                046  LM00048
 02050 TSX +0 07400 4 00002    02051 TXH +3 00000 0 00022    02052 TXH +3 00000 0 00023    02053 TXH +3 00000 0 00035   
      NERR1      T'O READM                                                          047  LM00049
 02054 TRA +0 02000 0 00042                                                                                             
      MEOF       CLOSE.(UFD,FILE,NERR2)                                             048  LM00050
 02055 TSX +0 07400 4 00002    02056 TXH +3 00000 0 01623    02057 TXH +3 00000 0 01613    02060 TXH +3 00000 0 00036   
      NERR2      F'N                                                                049  LM00051
 02061 TRA +0 02000 0 02075                                                                                             
      WOOPS      PRNTER.                                                            050  LM00052
 02062 TSX +0 07400 4 00006                                                                                             
                 CLOSE.($ALL$,MZE,NERR3)                                            051  LM00053
 02063 TSX +0 07400 4 00002    02064 TXH +3 00000 0 01635    02065 TXH +3 00000 0 01616    02066 TXH +3 00000 0 00037   
      NERR3      F'N                                                                052  LM00054
 02067 TRA +0 02000 0 02075                                                                                             
                 E'N                                                                053  LM00055
 02070 TSX +0 07400 4 00003    02071 TXH +3 00000 0 00000    02072 SXD -0 63400 1 02071    02073 SXA +0 63400 4 02075   
 02074 TRA +0 02000 2 00001    02075 AXT +0 77400 4 00000    02076 LXA +0 53400 2 02071    02077 LXD -0 53400 1 02071   
 02100 TRA +0 02000 4 00001                                                                                             




RETRVE   BCD 05/11/69 2038.7  104263         00000    




TRIEVE   BCD 03/15/68 0017.9   18091         00000    
1     MAD PROGRAM LISTING ... ... ...                 FILE  TRIEVE   MAD            03/01/68    1655.3
-                 
                      MAIN PROGRAM FOR RETRIEVE COMMAND                                                LM00001    
                           D.R. WIDRIG  DEC. 1965                                                      LM00002    
                                                                                                       LM00003    
                      THE MAIN PROGRAM GATHERS ARGUMENTS, FORMS A TABLE                                LM00004    
                      OF TASKS, AND SUPERVISES THE FLOW OF CONTROL                                     LM00005    
                      DURING RETRIEVALS.  THE HEART OF THE PROGRAM IS                                  LM00006    
                      THE VECTOR 'TABLE', THE COLLECTION OF TASKS.                                     LM00007    
                      EACH ENTRY IS EXACTLY 11 WORDS LONG AND IS                                       LM00008    
                      ARRANGED AS FOLLOWS ...                                                          LM00009    
                                                                                                       LM00010    
                      WHERE I = 11 * N, N = 0,1,2, ... I .LE. 'TABLIM'                                 LM00011    
                                                                                                       LM00012    
                      TABLE(I+0) = 'PROBNO' OF TAPE FILE                                               LM00013    
                      TABLE(I+1) = 'PROGNO' OF TAPE FILE                                               LM00014    
                      TABLE(I+2) = 'PROBNO' OF USER RECEIVING FILE                                     LM00015    
                           (0 = ENTRY DELETED)                                                         LM00016    
                      TABLE(I+3) = 'PROGNO' OF USER RECEIVING FILE                                     LM00017    
                      TABLE(I+4) = 'NAME1' OF DESIRED FILE                                             LM00018    
                           (FENCE = ANY 'NAME1')                                                       LM00019    
                      TABLE(I+5) = 'NAME2' OF DESIRED FILE                                             LM00020    
                           (FENCE = ANY 'NAME2')                                                       LM00021    
                      TABLE(I+6) = DATE OF TAPE TO BE USED                                             LM00022    
                      TABLE(I+7) = LOWER BOUND ON TIME OF N.F.T. DESIRED                               LM00023    
                           (0 = LATEST ONE)                                                            LM00024    
                      TABLE(I+8) = UPPER BOUND ON TIME DUMPED ONTO N.F.T.                              LM00025    
                           (0 = FIRST ONE)                                                             LM00026    
                           (FENCE = LAST ONE)                                                          LM00027    
                      TABLE(I+9) = TYPE OF DAEMON TAPE DESIRED                                         LM00028    
                           (2 = N.F.T.)                                                                LM00029    
                           (3 = U.D.T.)                                                                LM00030    
                           (4 = S.D.T.)                                                                LM00031    
                      NOTE.. A C.D.T. HAS TABLE(I+7) = 0, TABLE(I+8) = 0                               LM00032    
                      TABLE(I+10) = NUMBER OF FILES LOADED FOR THIS ENTRY                              LM00033    
                                                                                                       LM00034    
                      AFTER A FILE IS LOADED, THE LOADING TABLE, 'LODTAB',                             LM00035    
                      IS UPDATED.  THE FORMAT OF THE TABLE IS ...                                      LM00036    
                                                                                                       LM00037    
                      WHERE J = 4 * N, N = 0,1,2, ...  J .L. 'LODLIM'                                  LM00038    
                                                                                                       LM00039    
                      LODTAB(J+0) = I (THE INDEX OF THE CONTROLLING TASK)                              LM00040    
                      LODTAB(J+1) = 'NAME1'                                                            LM00041    
                      LODTAB(J+2) = 'NAME2'                                                            LM00042    
                      LODTAB(J+3) = 0  (UNUSED)                                                        LM00043    
                                                                                                       LM00044    
                      THE FOLLOWING COMMON ARRAYS AND VARIABLES                                        LM00045    
                      ARE USED ...                                                                     LM00046    
                                                                                                       LM00047    
                      BUFF - GENERAL UTILITY BUFFER                                                    LM00048    
                      BUFF1 - BUFFERS FOR I/O                                                          LM00049    
                      BUFF2 -     ''                                                                   LM00050    
                      DRAIN - DRAIN BUFFER FOR TEMPORARY USE                                           LM00051    
                      HEADER - 12-WORD PREAMBLE OF TAPE FILE                                           LM00052    
                      UFD - HOLDS 7-WORD UFD ENTRIES                                                   LM00053    
                      TABLE - TASK VECTOR                                                              LM00054    
                      TSKLTH - LENGTH OF TASK TABLE ENTRY                                              LM00055    
                      LODTAB - VECTOR OF LOADED FILES                                                  LM00056    
                                                                                                       LM00057    
                      AINDEX - CONTAINS 'TABLE' LENGTH TO DATE                                         LM00058    
                      TABLIM - CONTAINS MAX. LENGTH OF 'TABLE'                                         LM00059    
                      LINDEX - CONTAINS 'LODTAB' LENGTH TO DATE                                        LM00060    
                      LODLIM - CONTAINS MAX. LENGTH OF 'LODTAB'                                        LM00061    
                      UNIT - CONTAINS LOGICAL UNIT NUMBER OF TAPE                                      LM00062    
                      D,T - NAME OF TAPE FILE                                                          LM00063    
                      MZE - CONTAINS -0                                                                LM00064    
                      FENCE - 777777777777K                                                            LM00065    
                      USERF,ILEDI - PREAMBLE ENTRY FOR USER'S U.F.D. (FILE)                            LM00066    
                      LPREAM - CONTAINS LENGTH OF PREAMBLE                                             LM00067    
                      HPROB,HPROG - HOME 'PROBNO','PROGNO' OF USER                                     LM00068    
                      AUTHOR - AUTHNO OF USER                                                          LM00069    
                      REELNO - REEL NUMBER OF CURRENT TAPE                                             LM00070    
                      SYSTEM - SYSTEM OPERATIONS 'PROBNO'                                              LM00071    
                      DAEMON - DAEMON 'PROGNO'                                                         LM00072    
                                                                                                       LM00073    
                      NOTE THAT THIS COMMAND ACTS DIFFERENTLY FOR                                      LM00074    
                      DIFFERENT USERS.  IF SECURITY IS NOT A PROBLEM,                                  LM00075    
                      THEN USERS MAY USE THIS COMMAND.                                                 LM00076    
                                                                                                       LM00077    
                  INSERT FILE COM                                                                 *001 LM00078    
                                                                                                  *001 LM00001    
                  NORMAL MODE IS INTEGER                                                          *002 LM00002    
                  BOOLEAN SWT.                                                                    *003 LM00003    
                                                                                                       LM00004    
                  DIMENSION TABLE(210),BUFF(432),BUFF1(432),BUFF2(432)                            *004 LM00005    
                  DIMENSION HEADER(12),UFD(7),DRAIN(432),LODTAB(2000)                             *005 LM00006    
                  EQUIVALENCE (PB,HEADER(12)),(PG,HEADER(11)),(DND,HEADER(8)),                    *006 LM00007    
                1      (WC,HEADER(2)),(LRCT,HEADER(1))                                            *006 LM00008    
                  PROGRAM COMMON TABLE,BUFF,BUFF1,BUFF2                                           *007 LM00009    
                  PROGRAM COMMON HEADER,DRAIN,UFD,LODTAB                                          *008 LM00010    
                  PROGRAM COMMON AINDEX,UNIT,D,T,MZE,TFUDG,FENCE,USERF,ILEDI,PRIV                 *009 LM00011    
                  PROGRAM COMMON TABLIM,LPREAM,HPROB,HPROG,CURPTR,AUTHOR,LINDEX                   *010 LM00012    
                  PROGRAM COMMON LODLIM,SYSTEM,DAEMON,REELNO,TSKLTH                               *011 LM00013    
                                                                                                       LM00014    
                  VECTOR VALUES FENCE = 777777777777K                                             *012 LM00015    
                  VECTOR VALUES MZE = 4K11                                                        *013 LM00016    
                  VECTOR VALUES TFUDG = 1800                                                      *014 LM00017    
                  VECTOR VALUES TABLIM = 200                                                      *015 LM00018    
                  VECTOR VALUES LODLIM = 2000                                                     *016 LM00019    
                  VECTOR VALUES LPREAM = 12                                                       *017 LM00020    
                  VECTOR VALUES TSKLTH = 11                                                       *018 LM00021    
                                                                                                       LM00022    
                  VECTOR VALUES SYSTEM = $ C0056$                                                 *019 LM00023    
                  VECTOR VALUES DAEMON = $ 99999$                                                 *020 LM00024    
                  VECTOR VALUES D = $(DUMP)$                                                      *021 LM00025    
                  VECTOR VALUES T = $(TAPE)$                                                      *022 LM00026    
                  VECTOR VALUES USERF = $USER F$                                                  *023 LM00027    
                  VECTOR VALUES ILEDI = $ILE DI$                                                  *024 LM00028    
                  DIMENSION HEDER2(12)                                                            *025 LM00029    
                  PROGRAM COMMON HEDER2                                                           *026 LM00030    
                                                                                                       LM00031    
                  BOOLEAN MORE, STARPT                                                            *027 LM00079    
                  DIMENSION A(20),LINE(30)                                                        *028 LM00080    
                  EQUIVALENCE (MESS2(4),LINE(0))                                                  *029 LM00081    
                                                                                                       LM00082    
                  VECTOR VALUES MESS1 = $USER NOT ALLOWED TO USE THIS COMMAND$,                   *030 LM00083    
                1      777777777777K                                                              *030 LM00084    
                  VECTOR VALUES MESS2 = $    ARGUMENTS IGNORED.. $,0,0,0,0,0,0,                   *031 LM00085    
                1      0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0                            *031 LM00086    
                  VECTOR VALUES MESS3 = $ALL ARGUMENTS PROCESSED$,777777777777K                   *032 LM00087    
                  VECTOR VALUES MESS4(1) = $PE    $,$HIS TA$,$WITH T$,$ DONE $,$   ALL$           *033 LM00088    
                                                                                                       LM00089    
                  VECTOR VALUES CD = $    CD$                                                     *034 LM00090    
                  VECTOR VALUES CNTNU = $(MORE)$                                                  *035 LM00091    
                  VECTOR VALUES F = $     F$                                                      *036 LM00092    
                  VECTOR VALUES IN = $  INTO$                                                     *037 LM00093    
                  VECTOR VALUES L = $     L$                                                      *038 LM00094    
                  VECTOR VALUES M = $ M1416$                                                      *039 LM00095    
                  VECTOR VALUES SF = $CMFL01$,$CMFL02$,$CMFL05$,$ 99999$,                         *040 LM00096    
                1      777777777777K                                                              *040 LM00097    
                  VECTOR VALUES STAR = $     *$                                                   *041 LM00098    
                                                                                                       LM00099    
                  VECTOR VALUES BLANK1 = 575757575760K                                            *042 LM00100    
                                                                                                       LM00101    
                  VECTOR VALUES AINDEX = 0                                                        *043 LM00102    
                  VECTOR VALUES LINDEX = 0                                                        *044 LM00103    
                                                                                                       LM00104    
                      TEST USER QUALIFICATIONS                                                         LM00105    
                                                                                                       LM00106    
                  WHOAMI.(BUFF(2)...2)                                                            *045 LM00107    
                  HPROB = BUFF(2)                                                                 *046 LM00108    
                  AUTHOR = BCDEC.(BUFF(1))                                                        *047 LM00109    
                  WHENEVER (HPROB.E.SYSTEM)                                                       *048 LM00110    
                       PRIV = 0                                                                   *049 LM00111    
                  OR WHENEVER (HPROB.E.M)                                                         *050 LM00112    
                       PRIV = 0                                                                   *051 LM00113    
                  OTHERWISE                                                                       *052 LM00114    
                       PRIV = 2                                                                   *053 LM00115    
                       PRNTP.(MESS1)                                                              *054 LM00116    
                       CHNCOM.(0)                                                                 *055 LM00117    
                  END OF CONDITIONAL                                                              *056 LM00118    
                                                                                                       LM00119    
                      GET ATTACHMENT                                                                   LM00120    
                                                                                                       LM00121    
                  ATTNAM.(BUFF(2)...2)                                                            *057 LM00122    
                  HPROB = BUFF(2)                                                                 *058 LM00123    
                  HPROG = BUFF(1)                                                                 *059 LM00124    
                  TRANSFER TO GETARG                                                              *060 LM00125    
                                                                                                       LM00126    
      PAUSE       WHENEVER (AINDEX .G. TABLIM), TRANSFER TO ROAR                                  *061 LM00127    
                  DORMNT.                                                                         *062 LM00128    
                  MORE = 0B                                                                       *063 LM00129    
                                                                                                       LM00130    
                      GET ALL ARGUMENTS AND ORGANIZE                                                   LM00131    
                                                                                                       LM00132    
      GETARG      THROUGH GETARG, FOR A=1,1,(COMARG.(A,A(A)).E.FENCE).OR.(A.E.19)                 *064 LM00133    
                1      .OR.(COMARG.(A,A(A)).E.CNTNU)                                              *064 LM00134    
                  WHENEVER A(A).E.CNTNU                                                           *065 LM00135    
                       A(A) = FENCE                                                               *066 LM00136    
                       MORE = 1B                                                                  *067 LM00137    
                  END OF CONDITIONAL                                                              *068 LM00138    
                  ENDARG = A                                                                      *069 LM00139    
                  A = 1                                                                           *070 LM00140    
                  START = 1                                                                       *071 LM00141    
                                                                                                       LM00142    
                      SET UP TABLE                                                                     LM00143    
                                                                                                       LM00144    
                  THROUGH LOOP3, FOR AINDEX=AINDEX,TSKLTH,(A.GE.ENDARG).OR.                       *072 LM00145    
                1      (AINDEX.G.TABLIM)                                                          *072 LM00146    
                                                                                                       LM00147    
                      CHECK FOR '*' OPTION.                                                            LM00148    
                                                                                                       LM00149    
                  STARPT = 0B                                                                     *073 LM00150    
                  WHENEVER A (A) .E. STAR                                                         *074 LM00151    
                       WHENEVER (A + 2 .GE. ENDARG), TRANSFER TO IGNORE                           *075 LM00152    
                       BINDEX = AINDEX - TSKLTH                                                   *076 LM00153    
                       WHENEVER BINDEX .L. 0, TRANSFER TO IGNORE                                  *077 LM00154    
                       THROUGH CPYLP, FOR I = 0, 1, I .GE. TSKLTH                                 *078 LM00155    
      CPYLP            TABLE (AINDEX + I) = TABLE (BINDEX + I)                                    *079 LM00156    
                       A = A + 1                                                                  *080 LM00157    
                       STARPT = 1B                                                                *081 LM00158    
                       TRANSFER TO NAMES                                                          *082 LM00159    
                  END OF CONDITIONAL                                                              *083 LM00160    
                                                                                                       LM00161    
                       TABLE(AINDEX) = HPROB                                                      *084 LM00162    
                       TABLE(AINDEX+1) = HPROG                                                    *085 LM00163    
                       TABLE(AINDEX+2) = FENCE                                                    *086 LM00164    
                       TABLE(AINDEX+3) = FENCE                                                    *087 LM00165    
                       TABLE(AINDEX+9) = 4                                                        *088 LM00166    
                       TABLE(AINDEX+10) = 0                                                       *089 LM00167    
                       TRANSFER TO ST(PRIV)                                                       *090 LM00168    
                                                                                                       LM00169    
                      SETTLE 'INTO' QUESTION                                                           LM00170    
                                                                                                       LM00171    
      ST(0)            WHENEVER (A(A).E.IN)                                                       *091 LM00172    
                            WHENEVER ((A+2).GE.ENDARG), TRANSFER TO IGNORE                        *092 LM00173    
                            TABLE(AINDEX+2) = PROBN.(A(A+1),IGNORE)                               *093 LM00174    
                            TABLE(AINDEX+3) = PROGN.(A(A+2),IGNORE)                               *094 LM00175    
                            A = A+3                                                               *095 LM00176    
                       END OF CONDITIONAL                                                         *096 LM00177    
                                                                                                       LM00178    
                      GET 'PROBNO' AND 'PROGNO'                                                        LM00179    
                                                                                                       LM00180    
      ST(1)            WHENEVER ((A+1).GE.ENDARG), TRANSFER TO IGNORE                             *097 LM00181    
                       TABLE(AINDEX) = PROBN.(A(A),IGNORE)                                        *098 LM00182    
                       TABLE(AINDEX+1) = PROGN.(A(A+1),IGNORE)                                    *099 LM00183    
                                                                                                       LM00184    
                      CHECK FOR SYSTEM FILES                                                           LM00185    
                                                                                                       LM00186    
                       WHENEVER (A(A) .E. M) .OR. (A(A) .E. SYSTEM)                               *100 LM00187    
                            THROUGH LOOP1, FOR I=0,1,SF(I).E.FENCE                                *101 LM00188    
                                 WHENEVER A(A+1).NE.SF(I), TRANSFER TO LOOP1                      *102 LM00189    
                                 TABLE(AINDEX+9) = 3                                              *103 LM00190    
                                 TRANSFER TO INUIT                                                *104 LM00191    
      LOOP1                 CONTINUE                                                              *105 LM00192    
                       END OF CONDITIONAL                                                         *106 LM00193    
      INUIT            A= A+2                                                                     *107 LM00194    
                                                                                                       LM00195    
                      NOW FINISH 'INTO' PROCESSING                                                     LM00196    
                                                                                                       LM00197    
      ST(2)            WHENEVER TABLE(AINDEX+2).E.FENCE,                                          *108 LM00198    
                1           TABLE(AINDEX+2) = TABLE(AINDEX)                                       *108 LM00199    
                       WHENEVER TABLE(AINDEX+3).E.FENCE,                                          *109 LM00200    
                1           TABLE(AINDEX+3) = TABLE(AINDEX+1)                                     *109 LM00201    
                                                                                                       LM00202    
                           GET FILE NAMES                                                              LM00203    
                                                                                                       LM00204    
                       WHENEVER ((A+1) .GE. ENDARG)                                               *110 LM00205    
                            TRANSFER TO IGNORE                                                    *111 LM00206    
                       OTHERWISE                                                                  *112 LM00207    
      NAMES                 WHENEVER A(A) .E. STAR                                                *113 LM00208    
                                 TABLE(AINDEX+4) = FENCE                                          *114 LM00209    
                            OTHERWISE                                                             *115 LM00210    
                                 TABLE(AINDEX+4) = A(A)                                           *116 LM00211    
                            END OF CONDITIONAL                                                    *117 LM00212    
                            WHENEVER A(A+1) .E. STAR                                              *118 LM00213    
                                 TABLE(AINDEX+5) = FENCE                                          *119 LM00214    
                            OTHERWISE                                                             *120 LM00215    
                                 TABLE(AINDEX+5) = A(A+1)                                         *121 LM00216    
                            END OF CONDITIONAL                                                    *122 LM00217    
                            A = A+2                                                               *123 LM00218    
                            WHENEVER STARPT, TRANSFER TO LOOP3                                    *124 LM00219    
                       END OF CONDITIONAL                                                         *125 LM00220    
                                                                                                       LM00221    
                      GET DATE, CONVERT AND CHECK IT                                                   LM00222    
                                                                                                       LM00223    
                       WHENEVER A .GE. ENDARG, TRANSFER TO IGNORE                                 *126 LM00224    
                       TABLE(AINDEX+6) = DATECV.(A(A),IGNORE)                                     *127 LM00225    
                       A = A+1                                                                    *128 LM00226    
                                                                                                       LM00227    
                      GET TIME OR TAPE SPECIFICATION                                                   LM00228    
                                                                                                       LM00229    
                       WHENEVER (A .GE. ENDARG)                                                   *129 LM00230    
                            TRANSFER TO IGNORE                                                    *130 LM00231    
                       OR WHENEVER A(A) .E. CD                                                    *131 LM00232    
                            TABLE(AINDEX+9) = 12/TABLE(AINDEX+9)                                  *132 LM00233    
                            TABLE(AINDEX+8) = 0                                                   *133 LM00234    
                            TABLE(AINDEX+7) = 0                                                   *134 LM00235    
                            A = A+1                                                               *135 LM00236    
                       OR WHENEVER ((A+1) .GE. ENDARG)                                            *136 LM00237    
                            TRANSFER TO IGNORE                                                    *137 LM00238    
                       OTHERWISE                                                                  *138 LM00239    
                            TABLE(AINDEX+9) = 8/TABLE(AINDEX+9)                                   *139 LM00240    
                            WHENEVER A(A) .E. STAR                                                *140 LM00241    
                                 TABLE(AINDEX+7) = 0                                              *141 LM00242    
                            OTHERWISE                                                             *142 LM00243    
                                 TABLE(AINDEX+7) = TIMECV.(A(A),IGNORE)                           *143 LM00244    
                            END OF CONDITIONAL                                                    *144 LM00245    
                            WHENEVER A(A+1) .E. F                                                 *145 LM00246    
                                 TABLE(AINDEX+8) = 0                                              *146 LM00247    
                            OR WHENEVER A(A+1) .E. L                                              *147 LM00248    
                                 TABLE(AINDEX+8) = FENCE                                          *148 LM00249    
                            OTHERWISE                                                             *149 LM00250    
                                 TABLE(AINDEX+8) = TIMECV.(A(A+1),IGNORE)                         *150 LM00251    
                            END OF CONDITIONAL                                                    *151 LM00252    
                            A = A+2                                                               *152 LM00253    
                       END OF CONDITIONAL                                                         *153 LM00254    
                       START = A                                                                  *154 LM00255    
                       TRANSFER TO LOOP3                                                          *155 LM00256    
                                                                                                       LM00257    
                      PRINT IGNORE MESSAGE AND QUIT IF NOT ENOUGH ARGUMENTS                            LM00258    
                                                                                                       LM00259    
      IGNORE           THROUGH LOOP2, FOR I=START,1,I.G.ENDARG                                    *156 LM00260    
                            J = 2 * (I - START)                                                   *157 LM00261    
                            LINE(J) = A(I)                                                        *158 LM00262    
                            LINE(J+1) = BLANK1                                                    *159 LM00263    
      LOOP2            CONTINUE                                                                   *160 LM00264    
                       PRNTP.(MESS2)                                                              *161 LM00265    
                       TABLE(AINDEX+2) = 0                                                        *162 LM00266    
                       TRANSFER TO PAUSE                                                          *163 LM00267    
                                                                                                       LM00268    
      LOOP3       CONTINUE                                                                        *164 LM00269    
                  WHENEVER (AINDEX.G.TABLIM), TRANSFER TO ROAR                                    *165 LM00270    
                                                                                                       LM00271    
                      TEST CONTINUATION SWITCH                                                         LM00272    
                                                                                                       LM00273    
                  WHENEVER MORE, TRANSFER TO PAUSE                                                *166 LM00274    
                                                                                                       LM00275    
                      SET CATCH-ALL ERROR RETURN                                                       LM00276    
                                                                                                       LM00277    
      ROAR        FERRTN.(ERR)                                                                    *167 LM00278    
                                                                                                       LM00279    
                      CHECK TABLE ENTRIES                                                              LM00280    
                                                                                                       LM00281    
      CKTAB       CKENT.(ENDUP)                                                                   *168 LM00282    
                                                                                                       LM00283    
                      GET A TAPE MOUNTED                                                               LM00284    
                                                                                                       LM00285    
                  UNIT = SETTAP.(0)                                                               *169 LM00286    
                  WHENEVER UNIT .E. 0, TRANSFER TO ENDUP                                          *170 LM00287    
                                                                                                       LM00288    
                      GET HEADER OF FILE                                                               LM00289    
                                                                                                       LM00290    
      GETMOR      STAPE.(MZE,MZE,LPREAM)                                                          *171 LM00291    
                  RDTAPE.(HEADER,LPREAM,DRAIN,ENDTAP,DRAIN,GETMR3,ENDTAP)                         *172 LM00292    
                                                                                                       LM00293    
      GETMR1      WHENEVER SWT.(5)                                                                *173 LM00294    
                       LINE(0) = PB                                                               *174 LM00295    
                       LINE(1) = PG                                                               *175 LM00296    
                       LINE(2) = HEADER(7)                                                        *176 LM00297    
                       LINE(3) = HEADER(6)                                                        *177 LM00298    
                       LINE(4) = CVTIME.(DND)                                                     *178 LM00299    
                       LINE(5) = FENCE                                                            *179 LM00300    
                       PRNTP.(LINE)                                                               *180 LM00301    
                  END OF CONDITIONAL                                                              *181 LM00302    
                                                                                                       LM00303    
                      DECIDE IF A FILE IS USEFUL                                                       LM00304    
                                                                                                       LM00305    
                  DECIDE.(HEADER,YES,NO,1B)                                                       *182 LM00306    
                                                                                                       LM00307    
      NO          DRAINW.(MZE,LRCT.RS.18,WC,ENDTAP,DRAIN,GETMR3,ENDTAP)                           *183 LM00308    
                  TRANSFER TO GETMOR                                                              *184 LM00309    
                                                                                                       LM00310    
                                                                                                       LM00311    
                      CHECK UFD OR LOAD RELEVANT FILE                                                  LM00312    
                                                                                                       LM00313    
      YES         WHENEVER (HEADER(7).E.USERF).AND.(HEADER(6).E.ILEDI)                            *185 LM00314    
                       CKUFD.(GETMR2,ERR)                                                         *186 LM00315    
                  OTHERWISE                                                                       *187 LM00316    
                       LDFILE.(GETMR2,ENDUP1)                                                     *188 LM00317    
                  END OF CONDITIONAL                                                              *189 LM00318    
                                                                                                       LM00319    
                      CHECK TO SEE IF RETRIEVALS COMPLETED                                             LM00320    
                                                                                                       LM00321    
                  RECAP.(0B,ENDTAP)                                                               *190 LM00322    
                  TRANSFER TO GETMOR                                                              *191 LM00323    
      GETMR2      RECAP.(0B,ENDTAP)                                                               *192 LM00324    
      GETMR3      THROUGH LOOP4, FOR I = 1,1,I .G. LPREAM                                         *193 LM00325    
      LOOP4        HEADER(I) = HEDER2(I)                                                          *194 LM00326    
                  TRANSFER TO GETMR1                                                              *195 LM00327    
                                                                                                       LM00328    
                      FINISHED WITH TAPE, LOOK FOR MORE WORK                                           LM00329    
                                                                                                       LM00330    
      ENDTAP      CLOSE.(D,T,ERR)                                                                 *196 LM00331    
                  UMOUNT.(UNIT,MESS4(5)...5,ERR,ERCODE)                                           *197 LM00332    
                  RECAP.(1B,CKTAB)                                                                *198 LM00333    
                  TRANSFER TO CKTAB                                                               *199 LM00334    
                                                                                                       LM00335    
      ERR         PRNTER.                                                                         *200 LM00336    
                  RECAP.(1B,ENDUP1)                                                               *201 LM00337    
                  TRANSFER TO ENDUP1                                                              *202 LM00338    
                                                                                                       LM00339    
                      CLOSE OUT AND LEAVE                                                              LM00340    
                                                                                                       LM00341    
      ENDUP       PRNTP.(MESS3)                                                                   *203 LM00342    
      ENDUP1      ATTACH.(HPROB,HPROG,NERR3)                                                      *204 LM00343    
      NERR3       CLOSE.($ALL$,MZE,NERR1)                                                         *205 LM00344    
      NERR1       UMOUNT.($ALL$,MESS4(5)...2,NERR2,ERCODE)                                        *206 LM00345    
      NERR2       DELFIL.(D,T,NERR4)                                                              *207 LM00346    
      NERR4       CHNCOM.(1)                                                                      *208 LM00347    
                                                                                                       LM00348    
                  END OF PROGRAM                                                                  *209 LM00349    
1MAD PROGRAM,TYPE NOV 1963      (ALL NUMBERS ARE OCTAL)     
0TOTAL LOCATIONS   01521 TRANSFER VECTOR LENGTH  00036 PROGRAM BEGINS    00250 FIRST UNUSED COMMON/ERASABLE  67621
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)  
      AINDEX 67664 AC1        ENDTAP 00103   4        ILEDI  67654 AC1        MESS2  00101 A 1        ROAR   00127   4  
      A      00160 A 1        ENDUP1 00104   4        IN     00170 A 1        MESS3  00207 A 1        SF     00224 A 1  
      AUTHOR 67645  C1        ENDUP  00105   4        INUIT  00115   4        MESS4  00215 A 1        STARPT 00225   2  
      BINDEX 00161   1        ERCODE 00166   1        I      00171   1        MORE   00216   2        STAR   00226 A 1  
      BLANK1 00162 A 1        ERR    00106   4        J      00172   1        M      00217 A 1        START  00227   1  
      BUFF1  76255 AC1        FENCE  67656 AC1        LINDEX 67644 AC1        MZE    67660 AC1        ST     00132 A 4  
      BUFF2  75374 AC1        F      00167 A 1        LINE   00075 A 1        NAMES  00120   4        SYSTEM 67642 AC1  
      BUFF   77136 AC1        GETARG 00107   4        LODLIM 67643 AC1        NERR1  00121   4        TABLE  77461 AC1  
      CD     00163 A 1        GETMOR 00110   4        LODTAB 73605 AC1        NERR2  00122   4        TABLIM 67652 AC1  
      CKTAB  00102   4        GETMR1 00111   4        LOOP1  00116   4        NERR3  00123   4        TFUDG  67657 AC1  
      CNTNU  00164 A 1        GETMR2 00112   4        LOOP2  00036   4        NERR4  00124   4        T      67661 AC1  
      CPYLP  00036   4        GETMR3 00113   4        LOOP3  00117   4        NO     00125   4        TSKLTH 67637 AC1  
      CURPTR 67646  C1        HEADER 74513 AC1        LOOP4  00036   4        PAUSE  00126   4        UFD    73615 AC1  
      DAEMON 67641 AC1        HEDER2 67636 AC1        LPREAM 67651 AC1        PB     74477  C1        UNIT   67663  C1  
      DND    74503  C1        HPROB  67650  C1        LRCT   74512  C1        PG     74500  C1        USERF  67655 AC1  
      DRAIN  74476 AC1        HPROG  67647  C1        L      00173 A 1        PRIV   67653  C1        WC     74511  C1  
      D      67662 AC1        IGNORE 00114   4        MESS1  00202 A 1        REELNO 67640  C1        YES    00133   4  
      ENDARG 00165   1                                                                                                  
0FUNCTION DICTIONARY    
      ATTACH 00000   1        ATTNAM 00001   1        BCDEC  00002   1        CHNCOM 00003   1        CKENT  00004   1  
      CKUFD  00005   1        CLOSE  00006   1        COMARG 00007   1        CVTIME 00010   1        DATECV 00011   1  
      DECIDE 00012   1        DELFIL 00013   1        DORMNT 00014   1        DRAINW 00015   1        EXIT   00016   1  
      FERRTN 00017   1        .SETUP 00020   1        LDFILE 00021   1        PRNTER 00022   1        PRNTP  00023   1  
      PROBN  00024   1        PROGN  00025   1        RDTAPE 00026   1        RECAP  00027   1        SETTAP 00030   1  
      STAPE  00031   1        SWT    00032   2        TIMECV 00033   1        UMOUNT 00034   1        WHOAMI 00035   1  
0ABSOLUTE CONSTANTS     
 00246 +214343606060     00244 +000000000022     00237 +000000000007     00240 +000000000010     00243 +000000000014    
 00236 +000000000006     00235 +000000000005     00242 +000000000012     00234 +000000000004     00241 +000000000011    
 00233 +000000000003     00245 +000000000023     00230 +000000000000     00232 +000000000002     00231 +000000000001    
 00247 +233000000000                                                                                                    
0STATEMENT DICTIONARY   
 00102 TXL -301312001310       00103 TXL -301452001446       00104 TXL -301476001472       00105 TXL -301472001470      
 00106 TXL -301464001463       00107 TXL -300355000321       00110 TXL -301325001321       00111 TXL -301340001335      
 00112 TXL -301426001423       00113 TXL -301440001426       00114 TXL -301246001234       00115 TXL -300676000673      
 00116 TXL -300673000672       00117 TXL -301276001275       00120 TXL -300744000740       00121 TXL -301507001502      
 00122 TXL -301513001507       00123 TXL -301502001476       00124 TXL -301515001513       00125 TXL -301401001364      
 00126 TXL -300316000311       00127 TXL -301310001306       00130 TXL -300712000676       00131 TXL -300604000576      
 00132 TXL -300531000525       00133 TXL -301410001402                                                                  
0PROGRAM    
                 I'E COM                                                            001  LM00078
                 N'R                                                                002  LM00002
                 B'N SWT.                                                           003  LM00003
                 D'N TABLE(210),BUFF(432),BUFF1(432),BUFF2(432)                     004  LM00005
                 D'N HEADER(12),UFD(7),DRAIN(432),LODTAB(2000)                      005  LM00006
                 E'E (PB,HEADER(12)),(PG,HEADER(11)),(DND,HEADER(8)),               006  LM00007
                1     (WC,HEADER(2)),(LRCT,HEADER(1))                               006  LM00008
                 P'N TABLE,BUFF,BUFF1,BUFF2                                         007  LM00009
                 P'N HEADER,DRAIN,UFD,LODTAB                                        008  LM00010
                 P'N AINDEX,UNIT,D,T,MZE,TFUDG,FENCE,USERF,ILEDI,PRIV               009  LM00011
                 P'N TABLIM,LPREAM,HPROB,HPROG,CURPTR,AUTHOR,LINDEX                 010  LM00012
                 P'N LODLIM,SYSTEM,DAEMON,REELNO,TSKLTH                             011  LM00013
                 V'S FENCE = 777777777777K                                          012  LM00015
 00250 TSX +0 07400 4 00020    67656     -3 77777 7 77777                                                               
                 V'S MZE = 4K11                                                     013  LM00016
 67660     -0 00000 0 00000                                                                                             
                 V'S TFUDG = 1800                                                   014  LM00017
 67657     +0 00000 0 03410                                                                                             
                 V'S TABLIM = 200                                                   015  LM00018
 67652     +0 00000 0 00310                                                                                             
                 V'S LODLIM = 2000                                                  016  LM00019
 67643     +0 00000 0 03720                                                                                             
                 V'S LPREAM = 12                                                    017  LM00020
 67651     +0 00000 0 00014                                                                                             
                 V'S TSKLTH = 11                                                    018  LM00021
 67637     +0 00000 0 00013                                                                                             
                 V'S SYSTEM = $ C0056$                                              019  LM00023
 67642     -2 02300 0 00506                                                                                             
                 V'S DAEMON = $ 99999$                                              020  LM00024
 67641     -2 01111 1 11111                                                                                             
                 V'S D = $(DUMP)$                                                   021  LM00025
 67662     -3 42464 4 44734                                                                                             
                 V'S T = $(TAPE)$                                                   022  LM00026
 67661     -3 46321 4 72534                                                                                             
                 V'S USERF = $USER F$                                               023  LM00027
 67655     -2 46225 5 16026                                                                                             
                 V'S ILEDI = $ILE DI$                                               024  LM00028
 67654     +3 14325 6 02431                                                                                             
                 DIMENSION HEDER2(12)                                               025  LM00029
                 P'N HEDER2                                                         026  LM00030
                 B'N MORE, STARPT                                                   027  LM00079
                 D'N A(20),LINE(30)                                                 028  LM00080
                 E'E (MESS2(4),LINE(0))                                             029  LM00081
                 V'S MESS1 = $USER NOT ALLOWED TO USE THIS COMMAND$,                030  LM00083
                1     777777777777K                                                 030  LM00084
 00174     -3 77777 7 77777    00175     -0 64444 2 14524    00176     -2 33031 6 26023    00177     -0 66064 6 22560   
 00200     -0 66625 2 46063    00201     -0 66360 2 14343    00202     -2 46225 5 16045                                 
                 V'S MESS2 = $    ARGUMENTS IGNORED.. $,0,0,0,0,0,0,                031  LM00085
                1     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0               031  LM00086
 00040     +0 00000 0 00000    00041     +0 00000 0 00000    00042     +0 00000 0 00000    00043     +0 00000 0 00000   
 00044     +0 00000 0 00000    00045     +0 00000 0 00000    00046     +0 00000 0 00000    00047     +0 00000 0 00000   
 00050     +0 00000 0 00000    00051     +0 00000 0 00000    00052     +0 00000 0 00000    00053     +0 00000 0 00000   
 00054     +0 00000 0 00000    00055     +0 00000 0 00000    00056     +0 00000 0 00000    00057     +0 00000 0 00000   
 00060     +0 00000 0 00000    00061     +0 00000 0 00000    00062     +0 00000 0 00000    00063     +0 00000 0 00000   
 00064     +0 00000 0 00000    00065     +0 00000 0 00000    00066     +0 00000 0 00000    00067     +0 00000 0 00000   
 00070     +0 00000 0 00000    00071     +0 00000 0 00000    00072     +0 00000 0 00000    00073     +0 00000 0 00000   
 00074     +0 00000 0 00000    00075     +0 00000 0 00000    00076     -1 12524 3 33360    00077     -2 26031 2 74546   
 00100     +2 76444 2 54563    00101     -2 06060 6 02151                                                               
                 V'S MESS3 = $ALL ARGUMENTS PROCESSED$,777777777777K                032  LM00087
 00203     -3 77777 7 77777    00204     +2 56262 2 52460    00205     -2 26047 5 14623    00206     +2 76444 2 54563   
 00207     +2 14343 6 02151                                                                                             
                 V'S MESS4(1) = $PE    $,$HIS TA$,$WITH T$,$ DONE $,$   ALL$        033  LM00088
 00210     -2 06060 2 14343    00211     -2 02446 4 52560    00212     -2 63163 3 06063    00213     +3 03162 6 06321   
 00214     -0 72560 6 06060                                                                                             
                 V'S CD = $    CD$                                                  034  LM00090
 00163     -2 06060 6 02324                                                                                             
                 V'S CNTNU = $(MORE)$                                               035  LM00091
 00164     -3 44446 5 12534                                                                                             
                 V'S F = $     F$                                                   036  LM00092
 00167     -2 06060 6 06026                                                                                             
                 V'S IN = $  INTO$                                                  037  LM00093
 00170     -2 06031 4 56346                                                                                             
                 V'S L = $     L$                                                   038  LM00094
 00173     -2 06060 6 06043                                                                                             
                 V'S M = $ M1416$                                                   039  LM00095
 00217     -2 04401 0 40106                                                                                             
                 V'S SF = $CMFL01$,$CMFL02$,$CMFL05$,$ 99999$,                      040  LM00096
                1     777777777777K                                                 040  LM00097
 00220     -3 77777 7 77777    00221     -2 01111 1 11111    00222     +2 34426 4 30005    00223     +2 34426 4 30002   
 00224     +2 34426 4 30001                                                                                             
                 V'S STAR = $     *$                                                041  LM00098
 00226     -2 06060 6 06054                                                                                             
                 V'S BLANK1 = 575757575760K                                         042  LM00100
 00162     -1 75757 5 75760                                                                                             
                 V'S AINDEX = 0                                                     043  LM00102
 67664     +0 00000 0 00000                                                                                             
                 V'S LINDEX = 0                                                     044  LM00103
 67644     +0 00000 0 00000                                                                                             
                 WHOAMI.(BUFF(2)...2)                                               045  LM00107
 00251 TSX +0 07400 4 00035    00252 TIX +2 00232 0 77134                                                               
                 HPROB = BUFF(2)                                                    046  LM00108
 00253 CLA +0 50000 0 77134    00254 STO +0 60100 0 67650                                                               
                 AUTHOR = BCDEC.(BUFF(1))                                           047  LM00109
 00255 TSX +0 07400 4 00002    00256 TXH +3 00000 0 77135    00257 STO +0 60100 0 67645                                 
                 W'R (HPROB.E.SYSTEM)                                               048  LM00110
 00260 CLA +0 50000 0 67650    00261 SUB +0 40200 0 67642    00262 TNZ -0 10000 0 00266                                 
                      PRIV = 0                                                      049  LM00111
 00263 CLA +0 50000 0 00230    00264 STO +0 60100 0 67653                                                               
                 O'R (HPROB.E.M)                                                    050  LM00112
 00265 TRA +0 02000 0 00302    00266 CLA +0 50000 0 67650    00267 SUB +0 40200 0 00217    00270 TNZ -0 10000 0 00274   
                      PRIV = 0                                                      051  LM00113
 00271 CLA +0 50000 0 00230    00272 STO +0 60100 0 67653                                                               
                 O'E                                                                052  LM00114
 00273 TRA +0 02000 0 00302                                                                                             
                      PRIV = 2                                                      053  LM00115
 00274 CLA +0 50000 0 00232    00275 STO +0 60100 0 67653                                                               
                      PRNTP.(MESS1)                                                 054  LM00116
 00276 TSX +0 07400 4 00023    00277 TXH +3 00000 0 00202                                                               
                      CHNCOM.(0)                                                    055  LM00117
 00300 TSX +0 07400 4 00003    00301 TXH +3 00000 0 00230                                                               
                 E'L                                                                056  LM00118
                 ATTNAM.(BUFF(2)...2)                                               057  LM00122
 00302 TSX +0 07400 4 00001    00303 TIX +2 00232 0 77134                                                               
                 HPROB = BUFF(2)                                                    058  LM00123
 00304 CLA +0 50000 0 77134    00305 STO +0 60100 0 67650                                                               
                 HPROG = BUFF(1)                                                    059  LM00124
 00306 CLA +0 50000 0 77135    00307 STO +0 60100 0 67647                                                               
                 T'O GETARG                                                         060  LM00125
 00310 TRA +0 02000 0 00107                                                                                             
      PAUSE      W'R (AINDEX .G. TABLIM), T'O ROAR                                  061  LM00127
 00311 CLA +0 50000 0 67664    00312 SUB +0 40200 0 67652    00313 TZE +0 10000 0 00316    00314 TMI -0 12000 0 00316   
 00315 TRA +0 02000 0 00127                                                                                             
                 DORMNT.                                                            062  LM00128
 00316 TSX +0 07400 4 00014                                                                                             
                 MORE = 0B                                                          063  LM00129
 00317 CLA +0 50000 0 00230    00320 STO +0 60100 0 00216                                                               
      GETARG     T'H GETARG, FOR A=1,1,(COMARG.(A,A(A)).E.FENCE).OR.(A.E.19)        064  LM00133
                1     .OR.(COMARG.(A,A(A)).E.CNTNU)                                 064  LM00134
 00321 CLA +0 50000 0 00231    00322 STO +0 60100 0 00160    00323 TRA +0 02000 0 00327    00324 CLA +0 50000 0 00160   
 00325 ADD +0 40000 0 00231    00326 STO +0 60100 0 00160    00327 CLA +0 50000 0 00160    00330 SUB +0 40200 0 00331   
 00331 TXH +3 00000 0 00160    00332 STA +0 62100 0 00335    00333 TSX +0 07400 4 00007    00334 TXH +3 00000 0 00160   
 00335 TXH +3 00000 0 00000    00336 SUB +0 40200 0 00164    00337 TZE +0 10000 0 00355    00340 CLA +0 50000 0 00160   
 00341 SUB +0 40200 0 00245    00342 TZE +0 10000 0 00355    00343 CLA +0 50000 0 00160    00344 SUB +0 40200 0 00345   
 00345 TXH +3 00000 0 00160    00346 STA +0 62100 0 00351    00347 TSX +0 07400 4 00007    00350 TXH +3 00000 0 00160   
 00351 TXH +3 00000 0 00000    00352 SUB +0 40200 0 67656    00353 TZE +0 10000 0 00355    00354 TRA +0 02000 0 00324   
                 W'R A(A).E.CNTNU                                                   065  LM00135
 00355 LXA +0 53400 1 00160    00356 CLA +0 50000 1 00160    00357 SUB +0 40200 0 00164    00360 TNZ -0 10000 0 00365   
                      A(A) = FENCE                                                  066  LM00136
 00361 CLA +0 50000 0 67656    00362 STO +0 60100 1 00160                                                               
                      MORE = 1B                                                     067  LM00137
 00363 CLA +0 50000 0 00231    00364 STO +0 60100 0 00216                                                               
                 E'L                                                                068  LM00138
                 ENDARG = A                                                         069  LM00139
 00365 CLA +0 50000 0 00160    00366 STO +0 60100 0 00165                                                               
                 A = 1                                                              070  LM00140
 00367 CLA +0 50000 0 00231    00370 STO +0 60100 0 00160                                                               
                 START = 1                                                          071  LM00141
 00371 CLA +0 50000 0 00231    00372 STO +0 60100 0 00227                                                               
                 T'H LOOP3, FOR AINDEX=AINDEX,TSKLTH,(A.GE.ENDARG).OR.              072  LM00145
                1     (AINDEX.G.TABLIM)                                             072  LM00146
 00373 CLA +0 50000 0 67664    00374 STO +0 60100 0 67664    00375 TRA +0 02000 0 00401    00376 CLA +0 50000 0 67664   
 00377 ADD +0 40000 0 67637    00400 STO +0 60100 0 67664    00401 CLA +0 50000 0 67664    00402 SUB +0 40200 0 67652   
 00403 TZE +0 10000 0 00405    00404 TPL +0 12000 0 01276    00405 CLA +0 50000 0 00160    00406 SUB +0 40200 0 00165   
 00407 TZE +0 10000 0 01276    00410 TPL +0 12000 0 01276                                                               
                 STARPT = 0B                                                        073  LM00150
 00411 CLA +0 50000 0 00230    00412 STO +0 60100 0 00225                                                               
                 W'R A (A) .E. STAR                                                 074  LM00151
 00413 LXA +0 53400 1 00160    00414 CLA +0 50000 1 00160    00415 SUB +0 40200 0 00226    00416 TNZ -0 10000 0 00467   
                      W'R (A + 2 .GE. ENDARG), T'O IGNORE                           075  LM00152
 00417 CLA +0 50000 0 00160    00420 ADD +0 40000 0 00232    00421 SUB +0 40200 0 00165    00422 TZE +0 10000 0 00424   
 00423 TMI -0 12000 0 00425    00424 TRA +0 02000 0 00114                                                               
                      BINDEX = AINDEX - TSKLTH                                      076  LM00153
 00425 CLA +0 50000 0 67664    00426 SUB +0 40200 0 67637    00427 STO +0 60100 0 00161                                 
                      W'R BINDEX .L. 0, T'O IGNORE                                  077  LM00154
 00430 CLA +0 50000 0 00161    00431 SUB +0 40200 0 00230    00432 TZE +0 10000 0 00435    00433 TPL +0 12000 0 00435   
 00434 TRA +0 02000 0 00114                                                                                             
                      T'H CPYLP, FOR I = 0, 1, I .GE. TSKLTH                        078  LM00155
 00435 CLA +0 50000 0 00230    00436 STO +0 60100 0 00171    00437 TRA +0 02000 0 00443    00440 CLA +0 50000 0 00171   
 00441 ADD +0 40000 0 00231    00442 STO +0 60100 0 00171    00443 CLA +0 50000 0 00171    00444 SUB +0 40200 0 67637   
 00445 TZE +0 10000 0 00461    00446 TPL +0 12000 0 00461                                                               
      CPYLP           TABLE (AINDEX + I) = TABLE (BINDEX + I)                       079  LM00156
 00447 CLA +0 50000 0 00161    00450 ADD +0 40000 0 00171    00451 STO +0 60100 0 01516    00452 CLA +0 50000 0 67664   
 00453 ADD +0 40000 0 00171    00454 PAX +0 73400 1 00000    00455 LXA +0 53400 2 01516    00456 CLA +0 50000 2 77461   
 00457 STO +0 60100 1 77461    00460 TRA +0 02000 0 00440                                                               
                      A = A + 1                                                     080  LM00157
 00461 CLA +0 50000 0 00160    00462 ADD +0 40000 0 00231    00463 STO +0 60100 0 00160                                 
                      STARPT = 1B                                                   081  LM00158
 00464 CLA +0 50000 0 00231    00465 STO +0 60100 0 00225                                                               
                      T'O NAMES                                                     082  LM00159
 00466 TRA +0 02000 0 00120                                                                                             
                 E'L                                                                083  LM00160
                      TABLE(AINDEX) = HPROB                                         084  LM00162
 00467 LXA +0 53400 1 67664    00470 CLA +0 50000 0 67650    00471 STO +0 60100 1 77461                                 
                      TABLE(AINDEX+1) = HPROG                                       085  LM00163
 00472 CLA +0 50000 0 67664    00473 ADD +0 40000 0 00231    00474 PAX +0 73400 1 00000    00475 CLA +0 50000 0 67647   
 00476 STO +0 60100 1 77461                                                                                             
                      TABLE(AINDEX+2) = FENCE                                       086  LM00164
 00477 CLA +0 50000 0 67664    00500 ADD +0 40000 0 00232    00501 PAX +0 73400 1 00000    00502 CLA +0 50000 0 67656   
 00503 STO +0 60100 1 77461                                                                                             
                      TABLE(AINDEX+3) = FENCE                                       087  LM00165
 00504 CLA +0 50000 0 67664    00505 ADD +0 40000 0 00233    00506 PAX +0 73400 1 00000    00507 CLA +0 50000 0 67656   
 00510 STO +0 60100 1 77461                                                                                             
                      TABLE(AINDEX+9) = 4                                           088  LM00166
 00511 CLA +0 50000 0 67664    00512 ADD +0 40000 0 00241    00513 PAX +0 73400 1 00000    00514 CLA +0 50000 0 00234   
 00515 STO +0 60100 1 77461                                                                                             
                      TABLE(AINDEX+10) = 0                                          089  LM00167
 00516 CLA +0 50000 0 67664    00517 ADD +0 40000 0 00242    00520 PAX +0 73400 1 00000    00521 CLA +0 50000 0 00230   
 00522 STO +0 60100 1 77461                                                                                             
                      T'O ST(PRIV)                                                  090  LM00168
 00523 LXA +0 53400 2 67653    00524 TRA +0 02000 2 00132                                                               
      ST(0)           W'R (A(A).E.IN)                                               091  LM00172
 00525 LXA +0 53400 1 00160    00526 CLA +0 50000 1 00160    00527 SUB +0 40200 0 00170    00530 TNZ -0 10000 0 00576   
                           W'R ((A+2).GE.ENDARG), T'O IGNORE                        092  LM00173
 00531 CLA +0 50000 0 00160    00532 ADD +0 40000 0 00232    00533 SUB +0 40200 0 00165    00534 TZE +0 10000 0 00536   
 00535 TMI -0 12000 0 00537    00536 TRA +0 02000 0 00114                                                               
                           TABLE(AINDEX+2) = PROBN.(A(A+1),IGNORE)                  093  LM00174
 00537 CLA +0 50000 0 00160    00540 ADD +0 40000 0 00231    00541 SUB +0 40200 0 00542    00542 TXH +3 00000 0 00160   
 00543 STA +0 62100 0 00545    00544 TSX +0 07400 4 00024    00545 TXH +3 00000 0 00000    00546 TXH +3 00000 0 00114   
 00547 STO +0 60100 0 01516    00550 CLA +0 50000 0 67664    00551 ADD +0 40000 0 00232    00552 PAX +0 73400 1 00000   
 00553 CLA +0 50000 0 01516    00554 STO +0 60100 1 77461                                                               
                           TABLE(AINDEX+3) = PROGN.(A(A+2),IGNORE)                  094  LM00175
 00555 CLA +0 50000 0 00160    00556 ADD +0 40000 0 00232    00557 SUB +0 40200 0 00560    00560 TXH +3 00000 0 00160   
 00561 STA +0 62100 0 00563    00562 TSX +0 07400 4 00025    00563 TXH +3 00000 0 00000    00564 TXH +3 00000 0 00114   
 00565 STO +0 60100 0 01516    00566 CLA +0 50000 0 67664    00567 ADD +0 40000 0 00233    00570 PAX +0 73400 1 00000   
 00571 CLA +0 50000 0 01516    00572 STO +0 60100 1 77461                                                               
                           A = A+3                                                  095  LM00176
 00573 CLA +0 50000 0 00160    00574 ADD +0 40000 0 00233    00575 STO +0 60100 0 00160                                 
                      E'L                                                           096  LM00177
      ST(1)           W'R ((A+1).GE.ENDARG), T'O IGNORE                             097  LM00181
 00576 CLA +0 50000 0 00160    00577 ADD +0 40000 0 00231    00600 SUB +0 40200 0 00165    00601 TZE +0 10000 0 00603   
 00602 TMI -0 12000 0 00604    00603 TRA +0 02000 0 00114                                                               
                      TABLE(AINDEX) = PROBN.(A(A),IGNORE)                           098  LM00182
 00604 CLA +0 50000 0 00160    00605 SUB +0 40200 0 00606    00606 TXH +3 00000 0 00160    00607 STA +0 62100 0 00611   
 00610 TSX +0 07400 4 00024    00611 TXH +3 00000 0 00000    00612 TXH +3 00000 0 00114    00613 LXA +0 53400 1 67664   
 00614 STO +0 60100 1 77461                                                                                             
                      TABLE(AINDEX+1) = PROGN.(A(A+1),IGNORE)                       099  LM00183
 00615 CLA +0 50000 0 00160    00616 ADD +0 40000 0 00231    00617 SUB +0 40200 0 00620    00620 TXH +3 00000 0 00160   
 00621 STA +0 62100 0 00623    00622 TSX +0 07400 4 00025    00623 TXH +3 00000 0 00000    00624 TXH +3 00000 0 00114   
 00625 STO +0 60100 0 01516    00626 CLA +0 50000 0 67664    00627 ADD +0 40000 0 00231    00630 PAX +0 73400 1 00000   
 00631 CLA +0 50000 0 01516    00632 STO +0 60100 1 77461                                                               
                      W'R (A(A) .E. M) .OR. (A(A) .E. SYSTEM)                       100  LM00187
 00633 LXA +0 53400 1 00160    00634 CLA +0 50000 1 00160    00635 SUB +0 40200 0 67642    00636 TZE +0 10000 0 00642   
 00637 CLA +0 50000 1 00160    00640 SUB +0 40200 0 00217    00641 TNZ -0 10000 0 00673                                 
                           T'H LOOP1, FOR I=0,1,SF(I).E.FENCE                       101  LM00188
 00642 CLA +0 50000 0 00230    00643 STO +0 60100 0 00171    00644 TRA +0 02000 0 00650    00645 CLA +0 50000 0 00171   
 00646 ADD +0 40000 0 00231    00647 STO +0 60100 0 00171    00650 LXA +0 53400 1 00171    00651 CLA +0 50000 1 00224   
 00652 SUB +0 40200 0 67656    00653 TZE +0 10000 0 00673                                                               
                                W'R A(A+1).NE.SF(I), T'O LOOP1                      102  LM00189
 00654 CLA +0 50000 0 00160    00655 ADD +0 40000 0 00231    00656 PAX +0 73400 1 00000    00657 LXA +0 53400 2 00171   
 00660 CLA +0 50000 1 00160    00661 SUB +0 40200 2 00224    00662 TZE +0 10000 0 00664    00663 TRA +0 02000 0 00116   
                                TABLE(AINDEX+9) = 3                                 103  LM00190
 00664 CLA +0 50000 0 67664    00665 ADD +0 40000 0 00241    00666 PAX +0 73400 1 00000    00667 CLA +0 50000 0 00233   
 00670 STO +0 60100 1 77461                                                                                             
                                T'O INUIT                                           104  LM00191
 00671 TRA +0 02000 0 00115                                                                                             
      LOOP1                C'E                                                      105  LM00192
 00672 TRA +0 02000 0 00645                                                                                             
                      E'L                                                           106  LM00193
      INUIT           A= A+2                                                        107  LM00194
 00673 CLA +0 50000 0 00160    00674 ADD +0 40000 0 00232    00675 STO +0 60100 0 00160                                 
      ST(2)           W'R TABLE(AINDEX+2).E.FENCE,                                  108  LM00198
                1          TABLE(AINDEX+2) = TABLE(AINDEX)                          108  LM00199
 00676 CLA +0 50000 0 67664    00677 ADD +0 40000 0 00232    00700 PAX +0 73400 1 00000    00701 CLA +0 50000 1 77461   
 00702 SUB +0 40200 0 67656    00703 TNZ -0 10000 0 00712    00704 CLA +0 50000 0 67664    00705 ADD +0 40000 0 00232   
 00706 PAX +0 73400 1 00000    00707 LXA +0 53400 2 67664    00710 CLA +0 50000 2 77461    00711 STO +0 60100 1 77461   
                      W'R TABLE(AINDEX+3).E.FENCE,                                  109  LM00200
                1          TABLE(AINDEX+3) = TABLE(AINDEX+1)                        109  LM00201
 00712 CLA +0 50000 0 67664    00713 ADD +0 40000 0 00233    00714 PAX +0 73400 1 00000    00715 CLA +0 50000 1 77461   
 00716 SUB +0 40200 0 67656    00717 TNZ -0 10000 0 00731    00720 CLA +0 50000 0 67664    00721 ADD +0 40000 0 00231   
 00722 STO +0 60100 0 01516    00723 CLA +0 50000 0 67664    00724 ADD +0 40000 0 00233    00725 PAX +0 73400 1 00000   
 00726 LXA +0 53400 2 01516    00727 CLA +0 50000 2 77461    00730 STO +0 60100 1 77461                                 
                      W'R ((A+1) .GE. ENDARG)                                       110  LM00205
 00731 CLA +0 50000 0 00160    00732 ADD +0 40000 0 00231    00733 SUB +0 40200 0 00165    00734 TZE +0 10000 0 00736   
 00735 TMI -0 12000 0 00740                                                                                             
                           T'O IGNORE                                               111  LM00206
 00736 TRA +0 02000 0 00114                                                                                             
                      O'E                                                           112  LM00207
 00737 TRA +0 02000 0 01013                                                                                             
      NAMES                W'R A(A) .E. STAR                                        113  LM00208
 00740 LXA +0 53400 1 00160    00741 CLA +0 50000 1 00160    00742 SUB +0 40200 0 00226    00743 TNZ -0 10000 0 00752   
                                TABLE(AINDEX+4) = FENCE                             114  LM00209
 00744 CLA +0 50000 0 67664    00745 ADD +0 40000 0 00234    00746 PAX +0 73400 1 00000    00747 CLA +0 50000 0 67656   
 00750 STO +0 60100 1 77461                                                                                             
                           O'E                                                      115  LM00210
 00751 TRA +0 02000 0 00760                                                                                             
                                TABLE(AINDEX+4) = A(A)                              116  LM00211
 00752 CLA +0 50000 0 67664    00753 ADD +0 40000 0 00234    00754 PAX +0 73400 1 00000    00755 LXA +0 53400 2 00160   
 00756 CLA +0 50000 2 00160    00757 STO +0 60100 1 77461                                                               
                           E'L                                                      117  LM00212
                           W'R A(A+1) .E. STAR                                      118  LM00213
 00760 CLA +0 50000 0 00160    00761 ADD +0 40000 0 00231    00762 PAX +0 73400 1 00000    00763 CLA +0 50000 1 00160   
 00764 SUB +0 40200 0 00226    00765 TNZ -0 10000 0 00774                                                               
                                TABLE(AINDEX+5) = FENCE                             119  LM00214
 00766 CLA +0 50000 0 67664    00767 ADD +0 40000 0 00235    00770 PAX +0 73400 1 00000    00771 CLA +0 50000 0 67656   
 00772 STO +0 60100 1 77461                                                                                             
                           O'E                                                      120  LM00215
 00773 TRA +0 02000 0 01005                                                                                             
                                TABLE(AINDEX+5) = A(A+1)                            121  LM00216
 00774 CLA +0 50000 0 00160    00775 ADD +0 40000 0 00231    00776 STO +0 60100 0 01516    00777 CLA +0 50000 0 67664   
 01000 ADD +0 40000 0 00235    01001 PAX +0 73400 1 00000    01002 LXA +0 53400 2 01516    01003 CLA +0 50000 2 00160   
 01004 STO +0 60100 1 77461                                                                                             
                           E'L                                                      122  LM00217
                           A = A+2                                                  123  LM00218
 01005 CLA +0 50000 0 00160    01006 ADD +0 40000 0 00232    01007 STO +0 60100 0 00160                                 
                           W'R STARPT, T'O LOOP3                                    124  LM00219
 01010 NZT -0 52000 0 00225    01011 TRA +0 02000 0 01013    01012 TRA +0 02000 0 00117                                 
                      E'L                                                           125  LM00220
                      W'R A .GE. ENDARG, T'O IGNORE                                 126  LM00224
 01013 CLA +0 50000 0 00160    01014 SUB +0 40200 0 00165    01015 TZE +0 10000 0 01017    01016 TMI -0 12000 0 01020   
 01017 TRA +0 02000 0 00114                                                                                             
                      TABLE(AINDEX+6) = DATECV.(A(A),IGNORE)                        127  LM00225
 01020 CLA +0 50000 0 00160    01021 SUB +0 40200 0 01022    01022 TXH +3 00000 0 00160    01023 STA +0 62100 0 01025   
 01024 TSX +0 07400 4 00011    01025 TXH +3 00000 0 00000    01026 TXH +3 00000 0 00114    01027 STO +0 60100 0 01516   
 01030 CLA +0 50000 0 67664    01031 ADD +0 40000 0 00236    01032 PAX +0 73400 1 00000    01033 CLA +0 50000 0 01516   
 01034 STO +0 60100 1 77461                                                                                             
                      A = A+1                                                       128  LM00226
 01035 CLA +0 50000 0 00160    01036 ADD +0 40000 0 00231    01037 STO +0 60100 0 00160                                 
                      W'R (A .GE. ENDARG)                                           129  LM00230
 01040 CLA +0 50000 0 00160    01041 SUB +0 40200 0 00165    01042 TZE +0 10000 0 01044    01043 TMI -0 12000 0 01046   
                           T'O IGNORE                                               130  LM00231
 01044 TRA +0 02000 0 00114                                                                                             
                      O'R A(A) .E. CD                                               131  LM00232
 01045 TRA +0 02000 0 01231    01046 LXA +0 53400 1 00160    01047 CLA +0 50000 1 00160    01050 SUB +0 40200 0 00163   
 01051 TNZ -0 10000 0 01105                                                                                             
                           TABLE(AINDEX+9) = 12/TABLE(AINDEX+9)                     132  LM00233
 01052 CLA +0 50000 0 67664    01053 ADD +0 40000 0 00241    01054 PAX +0 73400 2 00000    01055 LDQ +0 56000 0 00243   
 01056 PXD -0 75400 0 00000    01057 LLS +0 76300 0 00000    01060 DVP +0 22100 2 77461    01061 STQ -0 60000 0 01516   
 01062 CLA +0 50000 0 67664    01063 ADD +0 40000 0 00241    01064 PAX +0 73400 1 00000    01065 CLA +0 50000 0 01516   
 01066 STO +0 60100 1 77461                                                                                             
                           TABLE(AINDEX+8) = 0                                      133  LM00234
 01067 CLA +0 50000 0 67664    01070 ADD +0 40000 0 00240    01071 PAX +0 73400 1 00000    01072 CLA +0 50000 0 00230   
 01073 STO +0 60100 1 77461                                                                                             
                           TABLE(AINDEX+7) = 0                                      134  LM00235
 01074 CLA +0 50000 0 67664    01075 ADD +0 40000 0 00237    01076 PAX +0 73400 1 00000    01077 CLA +0 50000 0 00230   
 01100 STO +0 60100 1 77461                                                                                             
                           A = A+1                                                  135  LM00236
 01101 CLA +0 50000 0 00160    01102 ADD +0 40000 0 00231    01103 STO +0 60100 0 00160                                 
                      O'R ((A+1) .GE. ENDARG)                                       136  LM00237
 01104 TRA +0 02000 0 01231    01105 CLA +0 50000 0 00160    01106 ADD +0 40000 0 00231    01107 SUB +0 40200 0 00165   
 01110 TZE +0 10000 0 01112    01111 TMI -0 12000 0 01114                                                               
                           T'O IGNORE                                               137  LM00238
 01112 TRA +0 02000 0 00114                                                                                             
                      O'E                                                           138  LM00239
 01113 TRA +0 02000 0 01231                                                                                             
                           TABLE(AINDEX+9) = 8/TABLE(AINDEX+9)                      139  LM00240
 01114 CLA +0 50000 0 67664    01115 ADD +0 40000 0 00241    01116 PAX +0 73400 2 00000    01117 LDQ +0 56000 0 00240   
 01120 PXD -0 75400 0 00000    01121 LLS +0 76300 0 00000    01122 DVP +0 22100 2 77461    01123 STQ -0 60000 0 01516   
 01124 CLA +0 50000 0 67664    01125 ADD +0 40000 0 00241    01126 PAX +0 73400 1 00000    01127 CLA +0 50000 0 01516   
 01130 STO +0 60100 1 77461                                                                                             
                           W'R A(A) .E. STAR                                        140  LM00241
 01131 LXA +0 53400 1 00160    01132 CLA +0 50000 1 00160    01133 SUB +0 40200 0 00226    01134 TNZ -0 10000 0 01143   
                                TABLE(AINDEX+7) = 0                                 141  LM00242
 01135 CLA +0 50000 0 67664    01136 ADD +0 40000 0 00237    01137 PAX +0 73400 1 00000    01140 CLA +0 50000 0 00230   
 01141 STO +0 60100 1 77461                                                                                             
                           O'E                                                      142  LM00243
 01142 TRA +0 02000 0 01160                                                                                             
                                TABLE(AINDEX+7) = TIMECV.(A(A),IGNORE)              143  LM00244
 01143 CLA +0 50000 0 00160    01144 SUB +0 40200 0 01145    01145 TXH +3 00000 0 00160    01146 STA +0 62100 0 01150   
 01147 TSX +0 07400 4 00033    01150 TXH +3 00000 0 00000    01151 TXH +3 00000 0 00114    01152 STO +0 60100 0 01516   
 01153 CLA +0 50000 0 67664    01154 ADD +0 40000 0 00237    01155 PAX +0 73400 1 00000    01156 CLA +0 50000 0 01516   
 01157 STO +0 60100 1 77461                                                                                             
                           E'L                                                      144  LM00245
                           W'R A(A+1) .E. F                                         145  LM00246
 01160 CLA +0 50000 0 00160    01161 ADD +0 40000 0 00231    01162 PAX +0 73400 1 00000    01163 CLA +0 50000 1 00160   
 01164 SUB +0 40200 0 00167    01165 TNZ -0 10000 0 01174                                                               
                                TABLE(AINDEX+8) = 0                                 146  LM00247
 01166 CLA +0 50000 0 67664    01167 ADD +0 40000 0 00240    01170 PAX +0 73400 1 00000    01171 CLA +0 50000 0 00230   
 01172 STO +0 60100 1 77461                                                                                             
                           O'R A(A+1) .E. L                                         147  LM00248
 01173 TRA +0 02000 0 01226    01174 CLA +0 50000 0 00160    01175 ADD +0 40000 0 00231    01176 PAX +0 73400 1 00000   
 01177 CLA +0 50000 1 00160    01200 SUB +0 40200 0 00173    01201 TNZ -0 10000 0 01210                                 
                                TABLE(AINDEX+8) = FENCE                             148  LM00249
 01202 CLA +0 50000 0 67664    01203 ADD +0 40000 0 00240    01204 PAX +0 73400 1 00000    01205 CLA +0 50000 0 67656   
 01206 STO +0 60100 1 77461                                                                                             
                           O'E                                                      149  LM00250
 01207 TRA +0 02000 0 01226                                                                                             
                                TABLE(AINDEX+8) = TIMECV.(A(A+1),IGNORE)            150  LM00251
 01210 CLA +0 50000 0 00160    01211 ADD +0 40000 0 00231    01212 SUB +0 40200 0 01213    01213 TXH +3 00000 0 00160   
 01214 STA +0 62100 0 01216    01215 TSX +0 07400 4 00033    01216 TXH +3 00000 0 00000    01217 TXH +3 00000 0 00114   
 01220 STO +0 60100 0 01516    01221 CLA +0 50000 0 67664    01222 ADD +0 40000 0 00240    01223 PAX +0 73400 1 00000   
 01224 CLA +0 50000 0 01516    01225 STO +0 60100 1 77461                                                               
                           E'L                                                      151  LM00252
                           A = A+2                                                  152  LM00253
 01226 CLA +0 50000 0 00160    01227 ADD +0 40000 0 00232    01230 STO +0 60100 0 00160                                 
                      E'L                                                           153  LM00254
                      START = A                                                     154  LM00255
 01231 CLA +0 50000 0 00160    01232 STO +0 60100 0 00227                                                               
                      T'O LOOP3                                                     155  LM00256
 01233 TRA +0 02000 0 00117                                                                                             
      IGNORE          T'H LOOP2, FOR I=START,1,I.G.ENDARG                           156  LM00260
 01234 CLA +0 50000 0 00227    01235 STO +0 60100 0 00171    01236 TRA +0 02000 0 01242    01237 CLA +0 50000 0 00171   
 01240 ADD +0 40000 0 00231    01241 STO +0 60100 0 00171    01242 CLA +0 50000 0 00171    01243 SUB +0 40200 0 00165   
 01244 TZE +0 10000 0 01246    01245 TPL +0 12000 0 01265                                                               
                           J = 2 * (I - START)                                      157  LM00261
 01246 CLA +0 50000 0 00171    01247 SUB +0 40200 0 00227    01250 XCA +0 13100 0 00000    01251 MPY +0 20000 0 00232   
 01252 STQ -0 60000 0 00172                                                                                             
                           LINE(J) = A(I)                                           158  LM00262
 01253 LXA +0 53400 1 00172    01254 LXA +0 53400 2 00171    01255 CLA +0 50000 2 00160    01256 STO +0 60100 1 00075   
                           LINE(J+1) = BLANK1                                       159  LM00263
 01257 CLA +0 50000 0 00172    01260 ADD +0 40000 0 00231    01261 PAX +0 73400 1 00000    01262 CLA +0 50000 0 00162   
 01263 STO +0 60100 1 00075                                                                                             
      LOOP2           C'E                                                           160  LM00264
 01264 TRA +0 02000 0 01237                                                                                             
                      PRNTP.(MESS2)                                                 161  LM00265
 01265 TSX +0 07400 4 00023    01266 TXH +3 00000 0 00101                                                               
                      TABLE(AINDEX+2) = 0                                           162  LM00266
 01267 CLA +0 50000 0 67664    01270 ADD +0 40000 0 00232    01271 PAX +0 73400 1 00000    01272 CLA +0 50000 0 00230   
 01273 STO +0 60100 1 77461                                                                                             
                      T'O PAUSE                                                     163  LM00267
 01274 TRA +0 02000 0 00126                                                                                             
      LOOP3      C'E                                                                164  LM00269
 01275 TRA +0 02000 0 00376                                                                                             
                 W'R (AINDEX.G.TABLIM), T'O ROAR                                    165  LM00270
 01276 CLA +0 50000 0 67664    01277 SUB +0 40200 0 67652    01300 TZE +0 10000 0 01303    01301 TMI -0 12000 0 01303   
 01302 TRA +0 02000 0 00127                                                                                             
                 W'R MORE, T'O PAUSE                                                166  LM00274
 01303 NZT -0 52000 0 00216    01304 TRA +0 02000 0 01306    01305 TRA +0 02000 0 00126                                 
      ROAR       FERRTN.(ERR)                                                       167  LM00278
 01306 TSX +0 07400 4 00017    01307 TXH +3 00000 0 00106                                                               
      CKTAB      CKENT.(ENDUP)                                                      168  LM00282
 01310 TSX +0 07400 4 00004    01311 TXH +3 00000 0 00105                                                               
                 UNIT = SETTAP.(0)                                                  169  LM00286
 01312 TSX +0 07400 4 00030    01313 TXH +3 00000 0 00230    01314 STO +0 60100 0 67663                                 
                 W'R UNIT .E. 0, T'O ENDUP                                          170  LM00287
 01315 CLA +0 50000 0 67663    01316 SUB +0 40200 0 00230    01317 TNZ -0 10000 0 01321    01320 TRA +0 02000 0 00105   
      GETMOR     STAPE.(MZE,MZE,LPREAM)                                             171  LM00291
 01321 TSX +0 07400 4 00031    01322 TXH +3 00000 0 67660    01323 TXH +3 00000 0 67660    01324 TXH +3 00000 0 67651   
                 RDTAPE.(HEADER,LPREAM,DRAIN,ENDTAP,DRAIN,GETMR3,ENDTAP)            172  LM00292
 01325 TSX +0 07400 4 00026    01326 TXH +3 00000 0 74513    01327 TXH +3 00000 0 67651    01330 TXH +3 00000 0 74476   
 01331 TXH +3 00000 0 00103    01332 TXH +3 00000 0 74476    01333 TXH +3 00000 0 00113    01334 TXH +3 00000 0 00103   
      GETMR1     W'R SWT.(5)                                                        173  LM00294
 01335 TSX +0 07400 4 00032    01336 TXH +3 00000 0 00235    01337 TZE +0 10000 0 01357                                 
                      LINE(0) = PB                                                  174  LM00295
 01340 CLA +0 50000 0 74477    01341 STO +0 60100 0 00075                                                               
                      LINE(1) = PG                                                  175  LM00296
 01342 CLA +0 50000 0 74500    01343 STO +0 60100 0 00074                                                               
                      LINE(2) = HEADER(7)                                           176  LM00297
 01344 CLA +0 50000 0 74504    01345 STO +0 60100 0 00073                                                               
                      LINE(3) = HEADER(6)                                           177  LM00298
 01346 CLA +0 50000 0 74505    01347 STO +0 60100 0 00072                                                               
                      LINE(4) = CVTIME.(DND)                                        178  LM00299
 01350 TSX +0 07400 4 00010    01351 TXH +3 00000 0 74503    01352 STO +0 60100 0 00071                                 
                      LINE(5) = FENCE                                               179  LM00300
 01353 CLA +0 50000 0 67656    01354 STO +0 60100 0 00070                                                               
                      PRNTP.(LINE)                                                  180  LM00301
 01355 TSX +0 07400 4 00023    01356 TXH +3 00000 0 00075                                                               
                 E'L                                                                181  LM00302
                 DECIDE.(HEADER,YES,NO,1B)                                          182  LM00306
 01357 TSX +0 07400 4 00012    01360 TXH +3 00000 0 74513    01361 TXH +3 00000 0 00133    01362 TXH +3 00000 0 00125   
 01363 TXH +3 00000 0 00231                                                                                             
      NO         DRAINW.(MZE,LRCT.RS.18,WC,ENDTAP,DRAIN,GETMR3,ENDTAP)              183  LM00308
 01364 CAL -0 50000 0 00244    01365 STA +0 62100 0 01367    01366 CAL -0 50000 0 74512    01367 LGR -0 76500 0 00000   
 01370 SLW +0 60200 0 01516    01371 TSX +0 07400 4 00015    01372 TXH +3 00000 0 67660    01373 TXH +3 00000 0 01516   
 01374 TXH +3 00000 0 74511    01375 TXH +3 00000 0 00103    01376 TXH +3 00000 0 74476    01377 TXH +3 00000 0 00113   
 01400 TXH +3 00000 0 00103                                                                                             
                 T'O GETMOR                                                         184  LM00309
 01401 TRA +0 02000 0 00110                                                                                             
      YES        W'R (HEADER(7).E.USERF).AND.(HEADER(6).E.ILEDI)                    185  LM00314
 01402 CLA +0 50000 0 74505    01403 SUB +0 40200 0 67654    01404 TNZ -0 10000 0 01414    01405 CLA +0 50000 0 74504   
 01406 SUB +0 40200 0 67655    01407 TNZ -0 10000 0 01414                                                               
                      CKUFD.(GETMR2,ERR)                                            186  LM00315
 01410 TSX +0 07400 4 00005    01411 TXH +3 00000 0 00112    01412 TXH +3 00000 0 00106                                 
                 O'E                                                                187  LM00316
 01413 TRA +0 02000 0 01417                                                                                             
                      LDFILE.(GETMR2,ENDUP1)                                        188  LM00317
 01414 TSX +0 07400 4 00021    01415 TXH +3 00000 0 00112    01416 TXH +3 00000 0 00104                                 
                 E'L                                                                189  LM00318
                 RECAP.(0B,ENDTAP)                                                  190  LM00322
 01417 TSX +0 07400 4 00027    01420 TXH +3 00000 0 00230    01421 TXH +3 00000 0 00103                                 
                 T'O GETMOR                                                         191  LM00323
 01422 TRA +0 02000 0 00110                                                                                             
      GETMR2     RECAP.(0B,ENDTAP)                                                  192  LM00324
 01423 TSX +0 07400 4 00027    01424 TXH +3 00000 0 00230    01425 TXH +3 00000 0 00103                                 
      GETMR3     THROUGH LOOP4, FOR I = 1,1,I .G. LPREAM                            193  LM00325
 01426 CLA +0 50000 0 00231    01427 STO +0 60100 0 00171    01430 TRA +0 02000 0 01434    01431 CLA +0 50000 0 00171   
 01432 ADD +0 40000 0 00231    01433 STO +0 60100 0 00171    01434 CLA +0 50000 0 00171    01435 SUB +0 40200 0 67651   
 01436 TZE +0 10000 0 01440    01437 TPL +0 12000 0 01445                                                               
      LOOP4       HEADER(I) = HEDER2(I)                                             194  LM00326
 01440 LXA +0 53400 1 00171    01441 LXA +0 53400 2 00171    01442 CLA +0 50000 2 67636    01443 STO +0 60100 1 74513   
 01444 TRA +0 02000 0 01431                                                                                             
                 T'O GETMR1                                                         195  LM00327
 01445 TRA +0 02000 0 00111                                                                                             
      ENDTAP     CLOSE.(D,T,ERR)                                                    196  LM00331
 01446 TSX +0 07400 4 00006    01447 TXH +3 00000 0 67662    01450 TXH +3 00000 0 67661    01451 TXH +3 00000 0 00106   
                 UMOUNT.(UNIT,MESS4(5)...5,ERR,ERCODE)                              197  LM00332
 01452 TSX +0 07400 4 00034    01453 TXH +3 00000 0 67663    01454 TIX +2 00235 0 00210    01455 TXH +3 00000 0 00106   
 01456 TXH +3 00000 0 00166                                                                                             
                 RECAP.(1B,CKTAB)                                                   198  LM00333
 01457 TSX +0 07400 4 00027    01460 TXH +3 00000 0 00231    01461 TXH +3 00000 0 00102                                 
                 T'O CKTAB                                                          199  LM00334
 01462 TRA +0 02000 0 00102                                                                                             
      ERR        PRNTER.                                                            200  LM00336
 01463 TSX +0 07400 4 00022                                                                                             
                 RECAP.(1B,ENDUP1)                                                  201  LM00337
 01464 TSX +0 07400 4 00027    01465 TXH +3 00000 0 00231    01466 TXH +3 00000 0 00104                                 
                 T'O ENDUP1                                                         202  LM00338
 01467 TRA +0 02000 0 00104                                                                                             
      ENDUP      PRNTP.(MESS3)                                                      203  LM00342
 01470 TSX +0 07400 4 00023    01471 TXH +3 00000 0 00207                                                               
      ENDUP1     ATTACH.(HPROB,HPROG,NERR3)                                         204  LM00343
 01472 TSX +0 07400 4 00000    01473 TXH +3 00000 0 67650    01474 TXH +3 00000 0 67647    01475 TXH +3 00000 0 00123   
      NERR3      CLOSE.($ALL$,MZE,NERR1)                                            205  LM00344
 01476 TSX +0 07400 4 00006    01477 TXH +3 00000 0 00246    01500 TXH +3 00000 0 67660    01501 TXH +3 00000 0 00121   
      NERR1      UMOUNT.($ALL$,MESS4(5)...2,NERR2,ERCODE)                           206  LM00345
 01502 TSX +0 07400 4 00034    01503 TXH +3 00000 0 00246    01504 TIX +2 00232 0 00210    01505 TXH +3 00000 0 00122   
 01506 TXH +3 00000 0 00166                                                                                             
      NERR2      DELFIL.(D,T,NERR4)                                                 207  LM00346
 01507 TSX +0 07400 4 00013    01510 TXH +3 00000 0 67662    01511 TXH +3 00000 0 67661    01512 TXH +3 00000 0 00124   
      NERR4      CHNCOM.(1)                                                         208  LM00347
 01513 TSX +0 07400 4 00003    01514 TXH +3 00000 0 00231                                                               
                 E'M                                                                209  LM00349
 01515 TSX +0 07400 4 00016                                                                                             




 CKENT   BCD 04/29/67 2209.9    5750         00000    
1     MAD PROGRAM LISTING ... ... ...                 FILE   CKENT   MAD            04/29/67    2204.1
-                 
                      CHECK FOR TROUBLES WITH MFD, ETC.                                                LM00001    
                      ALSO, SEE IF THERE IS WORK TO DO                                                 LM00002    
                           D.R. WIDRIG  DEC. 1965                                                      LM00003    
                                                                                                       LM00004    
                  EXTERNAL FUNCTION (Y)                                                           *001 LM00005    
                  INSERT FILE COM                                                                 *002 LM00006    
                                                                                                  *002 LM00001    
                  NORMAL MODE IS INTEGER                                                          *003 LM00002    
                  BOOLEAN SWT.                                                                    *004 LM00003    
                                                                                                       LM00004    
                  DIMENSION TABLE(210),BUFF(432),BUFF1(432),BUFF2(432)                            *005 LM00005    
                  DIMENSION HEADER(12),UFD(7),DRAIN(432),LODTAB(2000)                             *006 LM00006    
                  EQUIVALENCE (PB,HEADER(12)),(PG,HEADER(11)),(DND,HEADER(8)),                    *007 LM00007    
                1      (WC,HEADER(2)),(LRCT,HEADER(1))                                            *007 LM00008    
                  PROGRAM COMMON TABLE,BUFF,BUFF1,BUFF2                                           *008 LM00009    
                  PROGRAM COMMON HEADER,DRAIN,UFD,LODTAB                                          *009 LM00010    
                  PROGRAM COMMON AINDEX,UNIT,D,T,MZE,TFUDG,FENCE,USERF,ILEDI,PRIV                 *010 LM00011    
                  PROGRAM COMMON TABLIM,LPREAM,HPROB,HPROG,CURPTR,AUTHOR,LINDEX                   *011 LM00012    
                  PROGRAM COMMON LODLIM,SYSTEM,DAEMON,REELNO,TSKLTH                               *012 LM00013    
                                                                                                       LM00014    
                  VECTOR VALUES FENCE = 777777777777K                                             *013 LM00015    
                  VECTOR VALUES MZE = 4K11                                                        *014 LM00016    
                  VECTOR VALUES TFUDG = 1800                                                      *015 LM00017    
                  VECTOR VALUES TABLIM = 200                                                      *016 LM00018    
                  VECTOR VALUES LODLIM = 2000                                                     *017 LM00019    
                  VECTOR VALUES LPREAM = 12                                                       *018 LM00020    
                  VECTOR VALUES TSKLTH = 11                                                       *019 LM00021    
                                                                                                       LM00022    
                  VECTOR VALUES SYSTEM = $ C0056$                                                 *020 LM00023    
                  VECTOR VALUES DAEMON = $ 99999$                                                 *021 LM00024    
                  VECTOR VALUES D = $(DUMP)$                                                      *022 LM00025    
                  VECTOR VALUES T = $(TAPE)$                                                      *023 LM00026    
                  VECTOR VALUES USERF = $USER F$                                                  *024 LM00027    
                  VECTOR VALUES ILEDI = $ILE DI$                                                  *025 LM00028    
                  DIMENSION HEDER2(12)                                                            *026 LM00029    
                  PROGRAM COMMON HEDER2                                                           *027 LM00030    
                                                                                                       LM00031    
                  STATEMENT LABEL Y                                                               *028 LM00007    
                  BOOLEAN GO                                                                      *029 LM00008    
                                                                                                       LM00009    
                  VECTOR VALUES MESS1 = $ USER $,0,575757575760K,0,                               *030 LM00010    
                1      $ NOT FOUND IN M.F.D.$,777777777777K                                       *030 LM00011    
                  VECTOR VALUES MESS2 = $ FILE $,0,575757575760K,0,$ ALREADY EXISTS IN$,          *031 LM00012    
                1      $ U.F.D. OF $,0,575757575760K,0,777777777777K                              *031 LM00013    
                                                                                                       LM00014    
                  ENTRY TO CKENT.                                                                 *032 LM00015    
                  GO = 0B                                                                         *033 LM00016    
                                                                                                       LM00017    
                      SEARCH TABLE FOR TROUBLE SPOTS                                                   LM00018    
                                                                                                       LM00019    
                  THROUGH LOOP1, FOR I = 0,TSKLTH,(I.GE.AINDEX)                                   *034 LM00020    
                       WHENEVER (TABLE(I+2).E.0).OR.(TABLE(I+10).NE.0), TRANSFER TO LOOP1         *035 LM00021    
                                                                                                       LM00022    
                      MAKE SURE USER EXISTS                                                            LM00023    
                                                                                                       LM00024    
                       ATTACH.(TABLE(I+2),TABLE(I+3),ERR,ERCODE)                                  *036 LM00025    
                                                                                                       LM00026    
                      USER EXISTS, DOES FILE EXIST ALREADY                                             LM00027    
                                                                                                       LM00028    
                       WHENEVER (TABLE(I+4).E.FENCE).OR.(TABLE(I+5).E.FENCE)                      *037 LM00029    
      NOFILE                GO = 1B                                                               *038 LM00030    
                            TRANSFER TO LOOP1                                                     *039 LM00031    
                       OTHERWISE                                                                  *040 LM00032    
                            FSTATE.(TABLE(I+4),TABLE(I+5),DRAIN(2)...2,                           *041 LM00033    
                1                ABSENT,ERCODE)                                                   *041 LM00034    
                                                                                                       LM00035    
                      FILE EXISTS, CHECK FOR ''REMOVED'' FILE                                          LM00036    
                                                                                                       LM00037    
                            WHENEVER ((DRAIN(1).A.202K).NE.0), TRANSFER TO NOFILE                 *042 LM00038    
                                                                                                       LM00039    
      EXISTS                MESS2(1) = TABLE(I+4)                                                 *043 LM00040    
                            MESS2(3) = TABLE(I+5)                                                 *044 LM00041    
                            MESS2(9) = TABLE(I+2)                                                 *045 LM00042    
                            MESS2(11) = TABLE(I+3)                                                *046 LM00043    
                            PRNTP.(MESS2)                                                         *047 LM00044    
                            MAIL.(TABLE(I+2),TABLE(I+3),MESS2,1B)                                 *048 LM00045    
                            TABLE(I+2) = 0                                                        *049 LM00046    
                            TRANSFER TO LOOP1                                                     *050 LM00047    
                       END OF CONDITIONAL                                                         *051 LM00048    
                                                                                                       LM00049    
                      ABSENT ERROR FROM FSTATE, CHECK IT                                               LM00050    
                                                                                                       LM00051    
      ABSENT           WHENEVER (ERCODE.E.4).OR.(ERCODE.E.5)                                      *052 LM00052    
                            TRANSFER TO EXISTS                                                    *053 LM00053    
                       OTHERWISE                                                                  *054 LM00054    
                            TRANSFER TO NOFILE                                                    *055 LM00055    
                       END OF CONDITIONAL                                                         *056 LM00056    
                                                                                                       LM00057    
                      ERROR FROM ATTACH, CHECK IT                                                      LM00058    
                                                                                                       LM00059    
      ERR              WHENEVER ERCODE.E.3                                                        *057 LM00060    
                            MESS1(1) = TABLE(I+2)                                                 *058 LM00061    
                            MESS1(3) = TABLE(I+3)                                                 *059 LM00062    
                            PRNTP.(MESS1)                                                         *060 LM00063    
                            TABLE(I+2) = 0                                                        *061 LM00064    
                       OTHERWISE                                                                  *062 LM00065    
                            PRNTER.                                                               *063 LM00066    
                            TABLE(I+2) = 0                                                        *064 LM00067    
                       END OF CONDITIONAL                                                         *065 LM00068    
                                                                                                       LM00069    
      LOOP1       CONTINUE                                                                        *066 LM00070    
                                                                                                       LM00071    
                  WHENEVER GO .AND. (LINDEX.L.LODLIM)                                             *067 LM00072    
                       FUNCTION RETURN                                                            *068 LM00073    
                  OTHERWISE                                                                       *069 LM00074    
                       TRANSFER TO Y                                                              *070 LM00075    
                  END OF CONDITIONAL                                                              *071 LM00076    
                                                                                                       LM00077    
                  END OF FUNCTION                                                                 *072 LM00078    
1MAD PROGRAM,TYPE NOV 1963      (ALL NUMBERS ARE OCTAL)     
0TOTAL LOCATIONS   00347 TRANSFER VECTOR LENGTH  00006 PROGRAM BEGINS    00056 FIRST UNUSED COMMON/ERASABLE  67621
0 PROGRAM IS AN EXTERNAL FUNCTION.   THE FOLLOWING ARE ENTRIES    
      CKENT  00057   0                                                                                                  
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)  
      ABSENT 00007   4        D      67662 AC1        HPROG  67647  C1        MESS1  00027 A 1        TABLE  77461 AC1  
      AINDEX 67664  C1        ERCODE 00014   1        ILEDI  67654 AC1        MESS2  00044 A 1        TABLIM 67652 AC1  
      AUTHOR 67645  C1        ERR    00010   4        I      00016   1        MZE    67660 AC1        TFUDG  67657 AC1  
      BUFF1  76255 AC1        EXISTS 00011   4        LINDEX 67644  C1        NOFILE 00013   4        T      67661 AC1  
      BUFF2  75374 AC1        FENCE  67656 AC1        LODLIM 67643 AC1        PB     74477  C1        TSKLTH 67637 AC1  
      BUFF   77136 AC1        GO     00015   2        LODTAB 73605 AC1        PG     74500  C1        UFD    73615 AC1  
      CURPTR 67646  C1        HEADER 74513 AC1        LOOP1  00012   4        PRIV   67653  C1        UNIT   67663  C1  
      DAEMON 67641 AC1        HEDER2 67636 AC1        LPREAM 67651 AC1        REELNO 67640  C1        USERF  67655 AC1  
      DND    74503  C1        HPROB  67650  C1        LRCT   74512  C1        SYSTEM 67642 AC1        WC     74511  C1  
      DRAIN  74476 AC1                                                                                                  
0FUNCTION DICTIONARY    
      ATTACH 00000   1        EXIT   00001   1        FSTATE 00002   1        MAIL   00003   1        PRNTER 00004   1  
      PRNTP  00005   1                                                                                                  
0ABSOLUTE CONSTANTS     
 00054 +000000000202     00051 +000000000004     00052 +000000000005     00050 +000000000003     00047 +000000000002    
 00053 +000000000012     00045 +000000000000     00046 +000000000001     00055 +233000000000                            
0STATEMENT DICTIONARY   
 00007 TXL -300261000253       00010 TXL -300267000264       00011 TXL -300205000200       00012 TXL -300320000317      
 00013 TXL -300147000145                                                                                                
0PROGRAM    
                 EXTERNAL FUNCTION (Y)                                              001  LM00005
                 I'E COM                                                            002  LM00006
                 N'R                                                                003  LM00002
                 B'N SWT.                                                           004  LM00003
                 D'N TABLE(210),BUFF(432),BUFF1(432),BUFF2(432)                     005  LM00005
                 D'N HEADER(12),UFD(7),DRAIN(432),LODTAB(2000)                      006  LM00006
                 E'E (PB,HEADER(12)),(PG,HEADER(11)),(DND,HEADER(8)),               007  LM00007
                1     (WC,HEADER(2)),(LRCT,HEADER(1))                               007  LM00008
                 P'N TABLE,BUFF,BUFF1,BUFF2                                         008  LM00009
                 P'N HEADER,DRAIN,UFD,LODTAB                                        009  LM00010
                 P'N AINDEX,UNIT,D,T,MZE,TFUDG,FENCE,USERF,ILEDI,PRIV               010  LM00011
                 P'N TABLIM,LPREAM,HPROB,HPROG,CURPTR,AUTHOR,LINDEX                 011  LM00012
                 P'N LODLIM,SYSTEM,DAEMON,REELNO,TSKLTH                             012  LM00013
                 V'S FENCE = 777777777777K                                          013  LM00015
 67656     -3 77777 7 77777                                                                                             
                 V'S MZE = 4K11                                                     014  LM00016
 67660     -0 00000 0 00000                                                                                             
                 V'S TFUDG = 1800                                                   015  LM00017
 67657     +0 00000 0 03410                                                                                             
                 V'S TABLIM = 200                                                   016  LM00018
 67652     +0 00000 0 00310                                                                                             
                 V'S LODLIM = 2000                                                  017  LM00019
 67643     +0 00000 0 03720                                                                                             
                 V'S LPREAM = 12                                                    018  LM00020
 67651     +0 00000 0 00014                                                                                             
                 V'S TSKLTH = 11                                                    019  LM00021
 67637     +0 00000 0 00013                                                                                             
                 V'S SYSTEM = $ C0056$                                              020  LM00023
 67642     -2 02300 0 00506                                                                                             
                 V'S DAEMON = $ 99999$                                              021  LM00024
 67641     -2 01111 1 11111                                                                                             
                 V'S D = $(DUMP)$                                                   022  LM00025
 67662     -3 42464 4 44734                                                                                             
                 V'S T = $(TAPE)$                                                   023  LM00026
 67661     -3 46321 4 72534                                                                                             
                 V'S USERF = $USER F$                                               024  LM00027
 67655     -2 46225 5 16026                                                                                             
                 V'S ILEDI = $ILE DI$                                               025  LM00028
 67654     +3 14325 6 02431                                                                                             
                 DIMENSION HEDER2(12)                                               026  LM00029
                 P'N HEDER2                                                         027  LM00030
                 S'L Y                                                              028  LM00007
                 B'N GO                                                             029  LM00008
                 V'S MESS1 = $ USER $,0,575757575760K,0,                            030  LM00010
                1     $ NOT FOUND IN M.F.D.$,777777777777K                          030  LM00011
 00017     -3 77777 7 77777    00020     +2 43360 6 06060    00021     -0 56044 3 32633    00022     -0 66445 2 46031   
 00023     -2 04546 6 36026    00024     +0 00000 0 00000    00025     -1 75757 5 75760    00026     +0 00000 0 00000   
 00027     -2 06462 2 55160                                                                                             
                 V'S MESS2 = $ FILE $,0,575757575760K,0,$ ALREADY EXISTS IN$,       031  LM00012
                1     $ U.F.D. OF $,0,575757575760K,0,777777777777K                 031  LM00013
 00030     -3 77777 7 77777    00031     +0 00000 0 00000    00032     -1 75757 5 75760    00033     +0 00000 0 00000   
 00034     +3 36046 2 66060    00035     -2 06433 2 63324    00036     -2 26362 6 03145    00037     +2 47060 2 56731   
 00040     -2 02143 5 12521    00041     +0 00000 0 00000    00042     -1 75757 5 75760    00043     +0 00000 0 00000   
 00044     -2 02631 4 32560                                                                                             
                 E'O CKENT.                                                         032  LM00015
 00056 TRA +0 02000 0 00061    00057 SXA +0 63400 2 00332    00060 TSX +0 07400 2 00332                                 
                 GO = 0B                                                            033  LM00016
 00061 CLA +0 50000 0 00045    00062 STO +0 60100 0 00015                                                               
                 T'H LOOP1, FOR I = 0,TSKLTH,(I.GE.AINDEX)                          034  LM00020
 00063 CLA +0 50000 0 00045    00064 STO +0 60100 0 00016    00065 TRA +0 02000 0 00071    00066 CLA +0 50000 0 00016   
 00067 ADD +0 40000 0 67637    00070 STO +0 60100 0 00016    00071 CLA +0 50000 0 00016    00072 SUB +0 40200 0 67664   
 00073 TZE +0 10000 0 00320    00074 TPL +0 12000 0 00320                                                               
                      W'R (TABLE(I+2).E.0).OR.(TABLE(I+10).NE.0), T'O LOOP1         035  LM00021
 00075 CLA +0 50000 0 00016    00076 ADD +0 40000 0 00053    00077 PAX +0 73400 1 00000    00100 CLA +0 50000 1 77461   
 00101 SUB +0 40200 0 00045    00102 TNZ -0 10000 0 00111    00103 CLA +0 50000 0 00016    00104 ADD +0 40000 0 00047   
 00105 PAX +0 73400 1 00000    00106 CLA +0 50000 1 77461    00107 SUB +0 40200 0 00045    00110 TNZ -0 10000 0 00112   
 00111 TRA +0 02000 0 00012                                                                                             
                      ATTACH.(TABLE(I+2),TABLE(I+3),ERR,ERCODE)                     036  LM00025
 00112 CLA +0 50000 0 00016    00113 ADD +0 40000 0 00050    00114 SUB +0 40200 0 00115    00115 TXH +3 00000 0 77461   
 00116 STA +0 62100 0 00126    00117 CLA +0 50000 0 00016    00120 ADD +0 40000 0 00047    00121 SUB +0 40200 0 00122   
 00122 TXH +3 00000 0 77461    00123 STA +0 62100 0 00125    00124 TSX +0 07400 4 00000    00125 TXH +3 00000 0 00000   
 00126 TXH +3 00000 0 00000    00127 TXH +3 00000 0 00010    00130 TXH +3 00000 0 00014                                 
                      W'R (TABLE(I+4).E.FENCE).OR.(TABLE(I+5).E.FENCE)              037  LM00029
 00131 CLA +0 50000 0 00016    00132 ADD +0 40000 0 00052    00133 PAX +0 73400 1 00000    00134 CLA +0 50000 1 77461   
 00135 SUB +0 40200 0 67656    00136 TZE +0 10000 0 00145    00137 CLA +0 50000 0 00016    00140 ADD +0 40000 0 00051   
 00141 PAX +0 73400 1 00000    00142 CLA +0 50000 1 77461    00143 SUB +0 40200 0 67656    00144 TNZ -0 10000 0 00151   
      NOFILE               GO = 1B                                                  038  LM00030
 00145 CLA +0 50000 0 00046    00146 STO +0 60100 0 00015                                                               
                           T'O LOOP1                                                039  LM00031
 00147 TRA +0 02000 0 00012                                                                                             
                      O'E                                                           040  LM00032
 00150 TRA +0 02000 0 00253                                                                                             
                           FSTATE.(TABLE(I+4),TABLE(I+5),DRAIN(2)...2,              041  LM00033
                1               ABSENT,ERCODE)                                      041  LM00034
 00151 CLA +0 50000 0 00016    00152 ADD +0 40000 0 00052    00153 SUB +0 40200 0 00154    00154 TXH +3 00000 0 77461   
 00155 STA +0 62100 0 00165    00156 CLA +0 50000 0 00016    00157 ADD +0 40000 0 00051    00160 SUB +0 40200 0 00161   
 00161 TXH +3 00000 0 77461    00162 STA +0 62100 0 00164    00163 TSX +0 07400 4 00002    00164 TXH +3 00000 0 00000   
 00165 TXH +3 00000 0 00000    00166 TIX +2 00047 0 74474    00167 TXH +3 00000 0 00007    00170 TXH +3 00000 0 00014   
                           W'R ((DRAIN(1).A.202K).NE.0), T'O NOFILE                 042  LM00038
 00171 CAL -0 50000 0 74475    00172 ANA -0 32000 0 00054    00173 SLW +0 60200 0 00344    00174 CLA +0 50000 0 00344   
 00175 SUB +0 40200 0 00045    00176 TZE +0 10000 0 00200    00177 TRA +0 02000 0 00013                                 
      EXISTS               MESS2(1) = TABLE(I+4)                                    043  LM00040
 00200 CLA +0 50000 0 00016    00201 ADD +0 40000 0 00051    00202 PAX +0 73400 2 00000    00203 CLA +0 50000 2 77461   
 00204 STO +0 60100 0 00043                                                                                             
                           MESS2(3) = TABLE(I+5)                                    044  LM00041
 00205 CLA +0 50000 0 00016    00206 ADD +0 40000 0 00052    00207 PAX +0 73400 2 00000    00210 CLA +0 50000 2 77461   
 00211 STO +0 60100 0 00041                                                                                             
                           MESS2(9) = TABLE(I+2)                                    045  LM00042
 00212 CLA +0 50000 0 00016    00213 ADD +0 40000 0 00047    00214 PAX +0 73400 2 00000    00215 CLA +0 50000 2 77461   
 00216 STO +0 60100 0 00033                                                                                             
                           MESS2(11) = TABLE(I+3)                                   046  LM00043
 00217 CLA +0 50000 0 00016    00220 ADD +0 40000 0 00050    00221 PAX +0 73400 2 00000    00222 CLA +0 50000 2 77461   
 00223 STO +0 60100 0 00031                                                                                             
                           PRNTP.(MESS2)                                            047  LM00044
 00224 TSX +0 07400 4 00005    00225 TXH +3 00000 0 00044                                                               
                           MAIL.(TABLE(I+2),TABLE(I+3),MESS2,1B)                    048  LM00045
 00226 CLA +0 50000 0 00016    00227 ADD +0 40000 0 00050    00230 SUB +0 40200 0 00231    00231 TXH +3 00000 0 77461   
 00232 STA +0 62100 0 00242    00233 CLA +0 50000 0 00016    00234 ADD +0 40000 0 00047    00235 SUB +0 40200 0 00236   
 00236 TXH +3 00000 0 77461    00237 STA +0 62100 0 00241    00240 TSX +0 07400 4 00003    00241 TXH +3 00000 0 00000   
 00242 TXH +3 00000 0 00000    00243 TXH +3 00000 0 00044    00244 TXH +3 00000 0 00046                                 
                           TABLE(I+2) = 0                                           049  LM00046
 00245 CLA +0 50000 0 00016    00246 ADD +0 40000 0 00047    00247 PAX +0 73400 1 00000    00250 CLA +0 50000 0 00045   
 00251 STO +0 60100 1 77461                                                                                             
                           T'O LOOP1                                                050  LM00047
 00252 TRA +0 02000 0 00012                                                                                             
                      E'L                                                           051  LM00048
      ABSENT          W'R (ERCODE.E.4).OR.(ERCODE.E.5)                              052  LM00052
 00253 CLA +0 50000 0 00014    00254 SUB +0 40200 0 00052    00255 TZE +0 10000 0 00261    00256 CLA +0 50000 0 00014   
 00257 SUB +0 40200 0 00051    00260 TNZ -0 10000 0 00263                                                               
                           T'O EXISTS                                               053  LM00053
 00261 TRA +0 02000 0 00011                                                                                             
                      O'E                                                           054  LM00054
 00262 TRA +0 02000 0 00264                                                                                             
                           T'O NOFILE                                               055  LM00055
 00263 TRA +0 02000 0 00013                                                                                             
                      E'L                                                           056  LM00056
      ERR             W'R ERCODE.E.3                                                057  LM00060
 00264 CLA +0 50000 0 00014    00265 SUB +0 40200 0 00050    00266 TNZ -0 10000 0 00311                                 
                           MESS1(1) = TABLE(I+2)                                    058  LM00061
 00267 CLA +0 50000 0 00016    00270 ADD +0 40000 0 00047    00271 PAX +0 73400 2 00000    00272 CLA +0 50000 2 77461   
 00273 STO +0 60100 0 00026                                                                                             
                           MESS1(3) = TABLE(I+3)                                    059  LM00062
 00274 CLA +0 50000 0 00016    00275 ADD +0 40000 0 00050    00276 PAX +0 73400 2 00000    00277 CLA +0 50000 2 77461   
 00300 STO +0 60100 0 00024                                                                                             
                           PRNTP.(MESS1)                                            060  LM00063
 00301 TSX +0 07400 4 00005    00302 TXH +3 00000 0 00027                                                               
                           TABLE(I+2) = 0                                           061  LM00064
 00303 CLA +0 50000 0 00016    00304 ADD +0 40000 0 00047    00305 PAX +0 73400 1 00000    00306 CLA +0 50000 0 00045   
 00307 STO +0 60100 1 77461                                                                                             
                      O'E                                                           062  LM00065
 00310 TRA +0 02000 0 00317                                                                                             
                           PRNTER.                                                  063  LM00066
 00311 TSX +0 07400 4 00004                                                                                             
                           TABLE(I+2) = 0                                           064  LM00067
 00312 CLA +0 50000 0 00016    00313 ADD +0 40000 0 00047    00314 PAX +0 73400 1 00000    00315 CLA +0 50000 0 00045   
 00316 STO +0 60100 1 77461                                                                                             
                      E'L                                                           065  LM00068
      LOOP1      C'E                                                                066  LM00070
 00317 TRA +0 02000 0 00066                                                                                             
                 W'R GO .AND. (LINDEX.L.LODLIM)                                     067  LM00072
 00320 CLA +0 50000 0 67644    00321 SUB +0 40200 0 67643    00322 TZE +0 10000 0 00330    00323 TPL +0 12000 0 00330   
 00324 NZT -0 52000 0 00015    00325 TRA +0 02000 0 00330                                                               
                      F'N                                                           068  LM00073
 00326 TRA +0 02000 0 00340                                                                                             
                 O'E                                                                069  LM00074
 00327 TRA +0 02000 0 00331                                                                                             
                      T'O Y                                                         070  LM00075
 00330 TRA +0 02000 0 00000                                                                                             
                 E'L                                                                071  LM00076
                 E'N                                                                072  LM00078
 00331 TSX +0 07400 4 00001    00332 TXH +3 00000 0 00000    00333 SXD -0 63400 1 00332    00334 SXA +0 63400 4 00340   
 00335 CLA +0 50000 4 00001    00336 STA +0 62100 0 00330    00337 TRA +0 02000 2 00001    00340 AXT +0 77400 4 00000   
 00341 LXA +0 53400 2 00332    00342 LXD -0 53400 1 00332    00343 TRA +0 02000 4 00001                                 




SETTAP   BCD 04/29/67 2209.9   13100         00000    
1     MAD PROGRAM LISTING ... ... ...                 FILE  SETTAP   MAD            04/29/67    2139.8
-                 
                      SELECT AND MOUNT A TAPE FOR RETRIEVALS                                           LM00001    
                           D.R. WIDRIG  DEC. 1965                                                      LM00002    
                                                                                                       LM00003    
                  EXTERNAL FUNCTION                                                               *001 LM00004    
                  INSERT FILE COM                                                                 *002 LM00005    
                                                                                                  *002 LM00001    
                  NORMAL MODE IS INTEGER                                                          *003 LM00002    
                  BOOLEAN SWT.                                                                    *004 LM00003    
                                                                                                       LM00004    
                  DIMENSION TABLE(210),BUFF(432),BUFF1(432),BUFF2(432)                            *005 LM00005    
                  DIMENSION HEADER(12),UFD(7),DRAIN(432),LODTAB(2000)                             *006 LM00006    
                  EQUIVALENCE (PB,HEADER(12)),(PG,HEADER(11)),(DND,HEADER(8)),                    *007 LM00007    
                1      (WC,HEADER(2)),(LRCT,HEADER(1))                                            *007 LM00008    
                  PROGRAM COMMON TABLE,BUFF,BUFF1,BUFF2                                           *008 LM00009    
                  PROGRAM COMMON HEADER,DRAIN,UFD,LODTAB                                          *009 LM00010    
                  PROGRAM COMMON AINDEX,UNIT,D,T,MZE,TFUDG,FENCE,USERF,ILEDI,PRIV                 *010 LM00011    
                  PROGRAM COMMON TABLIM,LPREAM,HPROB,HPROG,CURPTR,AUTHOR,LINDEX                   *011 LM00012    
                  PROGRAM COMMON LODLIM,SYSTEM,DAEMON,REELNO,TSKLTH                               *012 LM00013    
                                                                                                       LM00014    
                  VECTOR VALUES FENCE = 777777777777K                                             *013 LM00015    
                  VECTOR VALUES MZE = 4K11                                                        *014 LM00016    
                  VECTOR VALUES TFUDG = 1800                                                      *015 LM00017    
                  VECTOR VALUES TABLIM = 200                                                      *016 LM00018    
                  VECTOR VALUES LODLIM = 2000                                                     *017 LM00019    
                  VECTOR VALUES LPREAM = 12                                                       *018 LM00020    
                  VECTOR VALUES TSKLTH = 11                                                       *019 LM00021    
                                                                                                       LM00022    
                  VECTOR VALUES SYSTEM = $ C0056$                                                 *020 LM00023    
                  VECTOR VALUES DAEMON = $ 99999$                                                 *021 LM00024    
                  VECTOR VALUES D = $(DUMP)$                                                      *022 LM00025    
                  VECTOR VALUES T = $(TAPE)$                                                      *023 LM00026    
                  VECTOR VALUES USERF = $USER F$                                                  *024 LM00027    
                  VECTOR VALUES ILEDI = $ILE DI$                                                  *025 LM00028    
                  DIMENSION HEDER2(12)                                                            *026 LM00029    
                  PROGRAM COMMON HEDER2                                                           *027 LM00030    
                                                                                                       LM00031    
                  VECTOR VALUES MESSV(1) = $N.F.T.$,$U.D.T.$,$S.D.T.$                             *028 LM00006    
                  VECTOR VALUES MESS1(1) = $ALS   $,$ETRIEV$,$ FOR R$,0,$, TIME$,0,               *029 LM00007    
                1      $ DATE $,0,$MOUNT $                                                        *029 LM00008    
                  VECTOR VALUES MESS2 = $NO TAPES AVAILABLE NOW$,777777777777K                    *030 LM00009    
                  VECTOR VALUES MESS3 = $INCORRECT LABELING, WILL UNMOUNT AND TRY AGAIN$          *031 LM00010    
                1      ,777777777777K                                                             *031 LM00011    
                  VECTOR VALUES MESS4(1) = $GAIN  $,$ TRY A$,$LABEL,$,$ECTED $,                   *032 LM00012    
                1      $CH EXP$,$OT MAT$,$DOES N$,$LABEL $                                        *032 LM00013    
                  VECTOR VALUES MESS5 = $NOW MOUNTING$,575757575760K,0,$ DATED$,                  *033 LM00014    
                1      575757575760K,0,$, TIME$,0,$ FOR RETRIEVAL$,                               *033 LM00015    
                2      777777777777K                                                              *033 LM00016    
                  VECTOR VALUES MESS6 = $INCORRECT HEADER, WILL TRY AGAIN$,                       *034 LM00017    
                1      777777777777K                                                              *034 LM00018    
                  VECTOR VALUES MESS7 = $HEADER$,0,0,$, WILL TRY AGAIN$,777777777777K             *035 LM00019    
                  VECTOR VALUES MESS8(1) = $AGAIN $,$, TRY $,0,$, TIME$,0,                        *036 LM00020    
                1      $ DATE $,$HEADER$                                                          *036 LM00021    
                  VECTOR VALUES MESS9 = $CANNOT MOUNT TAPE FOR $,0,575757575760K,0,               *037 LM00022    
                1      777777777777K                                                              *037 LM00023    
                  VECTOR VALUES MESS10 = $ERROR READING HEADER$,777777777777K                     *038 LM00024    
                  VECTOR VALUES MESS11 = $TAPE IS MOUNTED AND CHECKED$,777777777777K              *039 LM00025    
                  VECTOR VALUES MESS12(1) = $EEL   $,$NEXT R$,$UE TO $,$CONTIN$,                  *040 LM00026    
                1      $ WILL $,$ REEL.$,$END OF$                                                 *040 LM00027    
                  VECTOR VALUES MESS13 = $END OF REEL. NOW MOUNTING REEL$,0,                      *041 LM00028    
                1      $ OF DUMP TAPE$,777777777777K                                              *041 LM00029    
                  VECTOR VALUES MESS14(1) = 0,$EEL   $,$T IS R$,$NCE. I$,$ SEQUE$,                *042 LM00030    
                1      $APE IN$,$NEXT T$,$MOUNT $                                                 *042 LM00031    
                  VECTOR VALUES MESS15 = $TAPE MOUNTED WAS NOT IN SEQUENCE.$,                     *043 LM00032    
                1      $WILL UNMOUNT AND TRY AGAIN$,777777777777K                                 *043 LM00033    
                  VECTOR VALUES MESS16(1) = $ENCE  $,$N SEQU$,$NEXT I$,$S NOT $,                  *044 LM00034    
                1      $TAPE I$                                                                   *044 LM00035    
                  VECTOR VALUES LABL(1) = $ TAPE $,$E DUMP$,$ED-FIL$,$ CREAT$                     *045 LM00036    
                1      ,$ TAPE $,$S DUMP$,$'-FILE$,$ USERS$,                                      *045 LM00037    
                2      $ TAPE $,$S DUMP$,$M-FILE$,$ SYSTE$                                        *045 LM00038    
                                                                                                       LM00039    
                  VECTOR VALUES HIODTM = 426                                                      *046 LM00040    
                  VECTOR VALUES HREEL = 424                                                       *047 LM00041    
                                                                                                       LM00042    
                  DIMENSION HSAVE(6),V(2)                                                         *048 LM00043    
                                                                                                       LM00044    
                                                                                                       LM00045    
                  ENTRY TO SETTAP.                                                                *049 LM00046    
                  ATTACH.(HPROB,HPROG)                                                            *050 LM00047    
                                                                                                       LM00048    
                      GET A TAPE MOUNTED AND READY                                                     LM00049    
                                                                                                       LM00050    
                  THROUGH LOOP1, FOR I = 0,TSKLTH,(I .GE. AINDEX)                                 *051 LM00051    
                       WHENEVER (TABLE(I+2).E.0).OR.(TABLE(I+10).NE.0), TRANSFER TO LOOP1         *052 LM00052    
                       UNIT = TABLE(I+9)-1                                                        *053 LM00053    
                       MESS9(4) = TABLE(I+2)                                                      *054 LM00054    
                       MESS9(6) = TABLE(I+3)                                                      *055 LM00055    
                       UNIT4 = UNIT*4                                                             *056 LM00056    
                       CLEAR.(D,T)                                                                *057 LM00057    
                       TAPFIL.(D,T,UNIT,1)                                                        *058 LM00058    
                                                                                                       LM00059    
                      SET UP MOUNT MESSAGES                                                            LM00060    
                                                                                                       LM00061    
                       MESS1(4) = CVTIME.(TABLE(I+7))                                             *059 LM00062    
                       MESS1(6) = CVDATE.(TABLE(I+6))                                             *060 LM00063    
                       MESS1(8) = MESSV(UNIT)                                                     *061 LM00064    
                       MESS5(8) = MESS1(4)                                                        *062 LM00065    
                       MESS5(6) = MESS1(6)                                                        *063 LM00066    
                       MESS5(3) = MESS1(8)                                                        *064 LM00067    
                       PRNTP.(MESS5)                                                              *065 LM00068    
                                                                                                       LM00069    
      MLABL            MOUNT.(MZE,UNIT,MESS1(9)...9,NOTAPE)                                       *066 LM00070    
                       VERIFY.(UNIT,LABL(UNIT4)...4,TRBL,ERCODE)                                  *067 LM00071    
                                                                                                       LM00072    
                      READ AND CHECK HEADER RECORD                                                     LM00073    
                                                                                                       LM00074    
                  OPEN.($R$,D,T,-0,3,ERR)                                                         *068 LM00075    
                  BUFFER.(D,T,BUFF1(432)...432)                                                   *069 LM00076    
                  RDWAIT.(D,T,0,DRAIN(432)...432,REOF,TEMP,ERR)                                   *070 LM00077    
                       TEMP = 432-UNIT4                                                           *071 LM00078    
                                                                                                       LM00079    
                       THROUGH LOOP2, FOR J=UNIT4,-1,J.L.(UNIT4-3)                                *072 LM00080    
                            WHENEVER DRAIN(J+TEMP).E.LABL(J), TRANSFER TO LOOP2                   *073 LM00081    
                            PRNTP.(MESS6)                                                         *074 LM00082    
                            TRANSFER TO TRBL2                                                     *075 LM00083    
      LOOP2            CONTINUE                                                                   *076 LM00084    
                                                                                                       LM00085    
                      TEST FOR CORRECT DATE AND TIME                                                   LM00086    
                                                                                                       LM00087    
                       WHENEVER TABLE(I+6).NE.(DRAIN(HIODTM).A.777777K6)                          *077 LM00088    
                                                                                                       LM00089    
                      INCORRECT DATE, TRY AGAIN                                                        LM00090    
                                                                                                       LM00091    
                            MESS7(2) = CVDATE.(DRAIN(HIODTM))                                     *078 LM00092    
                            MESS7(1) = $ DATE $                                                   *079 LM00093    
      OHME                  PRNTP.(MESS7)                                                         *080 LM00094    
                            MESS8(5) = CVDATE.(DRAIN(HIODTM))                                     *081 LM00095    
                            MESS8(3) = CVTIME.(DRAIN(HIODTM))                                     *082 LM00096    
                            CLOSE.(D,T,ERR)                                                       *083 LM00097    
                            UMOUNT.(UNIT,MESS8(7)...7,MLABL,ERCODE)                               *084 LM00098    
                            TRANSFER TO MLABL                                                     *085 LM00099    
                       OR WHENEVER (TABLE(I+7).NE.0).AND.                                         *086 LM00100    
                1           (TABLE(I+7).L.(DRAIN(HIODTM).A.777777K))                              *086 LM00101    
                                                                                                       LM00102    
                      INCORRECT TIME, TRY AGAIN                                                        LM00103    
                                                                                                       LM00104    
                            MESS7(2) = CVTIME.(DRAIN(HIODTM))                                     *087 LM00105    
                            MESS7(1) = $ TIME $                                                   *088 LM00106    
                            TRANSFER TO OHME                                                      *089 LM00107    
                       END OF CONDITIONAL                                                         *090 LM00108    
                                                                                                       LM00109    
                      TAPE NOW READY, ROUTINE IS DONE                                                  LM00110    
                      SAVE REEL NUMBER AND HEADER                                                      LM00111    
                                                                                                       LM00112    
                       WHENEVER DRAIN(HREEL) .E. DRAIN(432)                                       *091 LM00113    
                            REELNO = 0                                                            *092 LM00114    
                       OTHERWISE                                                                  *093 LM00115    
                            REELNO = DRAIN(HREEL)                                                 *094 LM00116    
                       END OF CONDITIONAL                                                         *095 LM00117    
                       THROUGH LOOP3, FOR J=0,1,J.G.6                                             *096 LM00118    
                            HSAVE(J) = DRAIN(432-J)                                               *097 LM00119    
      LOOP3            CONTINUE                                                                   *098 LM00120    
                                                                                                       LM00121    
                       PRNTP.(MESS11)                                                             *099 LM00122    
                       FUNCTION RETURN UNIT                                                       *100 LM00123    
                                                                                                       LM00124    
                      TAPE CANNOT BE MOUNTED                                                           LM00125    
                                                                                                       LM00126    
      NOTAPE           PRNTP.(MESS2)                                                              *101 LM00127    
                       TABLE(I+2) = 0                                                             *102 LM00128    
                       TRANSFER TO LOOP1                                                          *103 LM00129    
                                                                                                       LM00130    
      ERR              PRNTER.                                                                    *104 LM00131    
                       PRNTP.(MESS10)                                                             *105 LM00132    
                       CLOSE.(D,T,LOOP1)                                                          *106 LM00133    
                       TRANSFER TO LOOP1                                                          *107 LM00134    
                                                                                                       LM00135    
      REOF             CLOSE.(D,T,TRBL1)                                                          *108 LM00136    
                       TRANSFER TO TRBL1                                                          *109 LM00137    
                                                                                                       LM00138    
                      CHECK VERIFY ERROR CODE                                                          LM00139    
                                                                                                       LM00140    
      TRBL        WHENEVER ERCODE.E.7                                                             *110 LM00141    
      TRBL1                 PRNTP.(MESS3)                                                         *111 LM00142    
      TRBL2                 UMOUNT.(UNIT,MESS4(8)...8,MLABL,ERCODE)                               *112 LM00143    
                            TRANSFER TO MLABL                                                     *113 LM00144    
                       OTHERWISE                                                                  *114 LM00145    
                            PRNTP.(MESS9)                                                         *115 LM00146    
                            TABLE(I+2) = 0                                                        *116 LM00147    
                       END OF CONDITIONAL                                                         *117 LM00148    
                                                                                                       LM00149    
      LOOP1       CONTINUE                                                                        *118 LM00150    
                                                                                                       LM00151    
                  FUNCTION RETURN 0                                                               *119 LM00152    
                                                                                                       LM00153    
                      ROUTINE TO GET A NEW REEL MOUNTED                                                LM00154    
                      THIS ROUTINE IS CALLED BY 'TPREAD' MODULE                                        LM00155    
                      WHEN A LOGICAL FILE IS SPLIT ACROSS TWO REELS                                    LM00156    
                                                                                                       LM00157    
                  ENTRY TO NEWTAP.                                                                *120 LM00158    
                                                                                                       LM00159    
                      CLEAR OLD TAPE FILE AND SET UP NEW ONE                                           LM00160    
                                                                                                       LM00161    
                  ATTNAM.(V(2)...2)                                                               *121 LM00162    
                  ATTACH.(HPROB,HPROG)                                                            *122 LM00163    
                  CLOSE.(D,T,NERR1)                                                               *123 LM00164    
      NERR1       CLEAR.(D,T)                                                                     *124 LM00165    
                  TAPFIL.(D,T,UNIT,1,ERR1)                                                        *125 LM00166    
                  UMOUNT.(UNIT,MESS12(7)...7,ERR1,ERCODE)                                         *126 LM00167    
                                                                                                       LM00168    
                      GET NEW REEL NUMBER AND ASK FOR IT TO BE MOUNTED                                 LM00169    
                                                                                                       LM00170    
                  REELNO = REELNO + 1                                                             *127 LM00171    
                  MESS13(5) = BZEL.(DERBC.(REELNO+1))                                             *128 LM00172    
                  MESS14(1) = MESS13(5)                                                           *129 LM00173    
                  PRNTP.(MESS13)                                                                  *130 LM00174    
                                                                                                       LM00175    
      AGAIN       MOUNT.(MZE,UNIT,MESS14(8)...8,ERR1)                                             *131 LM00176    
                  VERIFY.(UNIT,LABL(UNIT4)...4,ERR1,ERCODE)                                       *132 LM00177    
                                                                                                       LM00178    
                      MAKE SURE NEW HEADER MATCHES OLD ONE                                             LM00179    
                                                                                                       LM00180    
                  OPEN.($R$,D,T,-0,3,ERR2)                                                        *133 LM00181    
                  BUFFER.(D,T,BUFF1(432)...432)                                                   *134 LM00182    
                  RDWAIT.(D,T,0,DRAIN(432)...432,NREOF,DRAIN,ERR2)                                *135 LM00183    
                  THROUGH LOOP4, FOR J=0,1,J.G.6                                                  *136 LM00184    
                       WHENEVER HSAVE(J) .NE. DRAIN(432-J), TRANSFER TO OHNO                      *137 LM00185    
      LOOP4       CONTINUE                                                                        *138 LM00186    
                                                                                                       LM00187    
                      MAKE SURE REEL NUMBER IS CORRECT                                                 LM00188    
                                                                                                       LM00189    
                  WHENEVER REELNO .NE. DRAIN(HREEL)                                               *139 LM00190    
      OHNO             PRNTP.(MESS15)                                                             *140 LM00191    
                       CLOSE.(D,T,ERR1)                                                           *141 LM00192    
                       UMOUNT.(UNIT,MESS16(5)...5,ERR1,ERCODE)                                    *142 LM00193    
                       TRANSFER TO AGAIN                                                          *143 LM00194    
                  END OF CONDITIONAL                                                              *144 LM00195    
                                                                                                       LM00196    
                      NEW REEL IS MOUNTED AND CHECKED, RETURN                                          LM00197    
                                                                                                       LM00198    
                  PRNTP.(MESS11)                                                                  *145 LM00199    
                  ATTACH.(V(2),V(1))                                                              *146 LM00200    
                  FUNCTION RETURN UNIT                                                            *147 LM00201    
                                                                                                       LM00202    
      ERR2        PRNTER.                                                                         *148 LM00203    
      NREOF       CLOSE.(D,T,NERR2)                                                               *149 LM00204    
      NERR2       PRNTP.(MESS10)                                                                  *150 LM00205    
                  TRANSFER TO AWAY                                                                *151 LM00206    
                                                                                                       LM00207    
                      CANNOT GET TAPE MOUNTED, TOO BAD                                                 LM00208    
                                                                                                       LM00209    
      ERR1        PRNTER.                                                                         *152 LM00210    
                  PRNTP.(MESS9)                                                                   *153 LM00211    
      AWAY        ATTACH.(V(2),V(1))                                                              *154 LM00212    
                  FUNCTION RETURN 0                                                               *155 LM00213    
                                                                                                       LM00214    
                  END OF FUNCTION                                                                 *156 LM00215    
1MAD PROGRAM,TYPE NOV 1963      (ALL NUMBERS ARE OCTAL)     
0TOTAL LOCATIONS   01224 TRANSFER VECTOR LENGTH  00022 PROGRAM BEGINS    00335 FIRST UNUSED COMMON/ERASABLE  67621
0 PROGRAM IS AN EXTERNAL FUNCTION.   THE FOLLOWING ARE ENTRIES    
      NEWTAP 01002   0        SETTAP 00336   0                                                                          
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)  
      AGAIN  00023   4        HEADER 74513 AC1        LOOP4  00022   4        MESS8  00271 A 1        SYSTEM 67642 AC1  
      AINDEX 67664  C1        HEDER2 67636 AC1        LPREAM 67651 AC1        MESS9  00301 A 1        TABLE  77461 AC1  
      AUTHOR 67645  C1        HIODTM 00046 A 1        LRCT   74512  C1        MESSV  00305 A 1        TABLIM 67652 AC1  
      AWAY   00024   4        HPROB  67650  C1        MESS10 00102 A 1        MLABL  00032   4        TEMP   00306   1  
      BUFF1  76255 AC1        HPROG  67647  C1        MESS11 00110 A 1        MZE    67660 AC1        TFUDG  67657 AC1  
      BUFF2  75374 AC1        HREEL  00047 A 1        MESS12 00120 A 1        NERR1  00033   4        TRBL1  00042   4  
      BUFF   77136 AC1        HSAVE  00056 A 1        MESS13 00132 A 1        NERR2  00034   4        TRBL2  00043   4  
      CURPTR 67646  C1        ILEDI  67654 AC1        MESS14 00143 A 1        NOTAPE 00035   4        TRBL   00044   4  
      DAEMON 67641 AC1        I      00057   1        MESS15 00157 A 1        NREOF  00036   4        T      67661 AC1  
      DND    74503  C1        J      00060   1        MESS16 00165 A 1        OHME   00037   4        TSKLTH 67637 AC1  
      DRAIN  74476 AC1        LABL   00075 A 1        MESS1  00177 A 1        OHNO   00040   4        UFD    73615 AC1  
      D      67662 AC1        LINDEX 67644  C1        MESS2  00204 A 1        PB     74477  C1        UNIT4  00307   1  
      ERCODE 00045   1        LODLIM 67643 AC1        MESS3  00215 A 1        PG     74500  C1        UNIT   67663  C1  
      ERR1   00025   4        LODTAB 73605 AC1        MESS4  00226 A 1        PRIV   67653  C1        USERF  67655 AC1  
      ERR2   00026   4        LOOP1  00030   4        MESS5  00243 A 1        REELNO 67640  C1        V      00312 A 1  
      ERR    00027   4        LOOP2  00031   4        MESS6  00252 A 1        REOF   00041   4        WC     74511  C1  
      FENCE  67656 AC1        LOOP3  00022   4        MESS7  00261 A 1                                                  
0FUNCTION DICTIONARY    
      ATTACH 00000   1        ATTNAM 00001   1        BUFFER 00002   1        BZEL   00003   1        CLEAR  00004   1  
      CLOSE  00005   1        CVDATE 00006   1        CVTIME 00007   1        DERBC  00010   1        EXIT   00011   1  
      MOUNT  00012   1        OPEN   00013   1        PRNTER 00014   1        PRNTP  00015   1        RDWAIT 00016   1  
      TAPFIL 00017   1        UMOUNT 00020   1        VERIFY 00021   1                                                  
0ABSOLUTE CONSTANTS     
 00320 +000000000005     00323 +000000000010     00333 -206331442560     00327 +000000777777     00332 -202421632560    
 00334 -377777000000     00326 +000000000660     00331 -116060606060     00321 +000000000006     00322 +000000000007    
 00317 +000000000004     00316 +000000000003     00324 +000000000011     00315 +000000000002     00325 +000000000012    
 00313 +000000000000     00314 +000000000001     00330 +233000000000                                                    
0STATEMENT DICTIONARY   
 00023 TXL -301060001053       00024 TXL -301206001203       00025 TXL -301201001200       00026 TXL -301171001170      
 00027 TXL -300737000736       00030 TXL -300777000776       00031 TXL -300556000555       00032 TXL -300465000460      
 00033 TXL -301020001015       00034 TXL -301177001175       00035 TXL -300730000726       00036 TXL -301175001171      
 00037 TXL -300603000601       00040 TXL -301147001145       00041 TXL -300752000746       00042 TXL -300760000756      
 00043 TXL -300765000760       00044 TXL -300756000753                                                                  
0PROGRAM    
                 EXTERNAL FUNCTION                                                  001  LM00004
                 I'E COM                                                            002  LM00005
                 N'R                                                                003  LM00002
                 B'N SWT.                                                           004  LM00003
                 D'N TABLE(210),BUFF(432),BUFF1(432),BUFF2(432)                     005  LM00005
                 D'N HEADER(12),UFD(7),DRAIN(432),LODTAB(2000)                      006  LM00006
                 E'E (PB,HEADER(12)),(PG,HEADER(11)),(DND,HEADER(8)),               007  LM00007
                1     (WC,HEADER(2)),(LRCT,HEADER(1))                               007  LM00008
                 P'N TABLE,BUFF,BUFF1,BUFF2                                         008  LM00009
                 P'N HEADER,DRAIN,UFD,LODTAB                                        009  LM00010
                 P'N AINDEX,UNIT,D,T,MZE,TFUDG,FENCE,USERF,ILEDI,PRIV               010  LM00011
                 P'N TABLIM,LPREAM,HPROB,HPROG,CURPTR,AUTHOR,LINDEX                 011  LM00012
                 P'N LODLIM,SYSTEM,DAEMON,REELNO,TSKLTH                             012  LM00013
                 V'S FENCE = 777777777777K                                          013  LM00015
 67656     -3 77777 7 77777                                                                                             
                 V'S MZE = 4K11                                                     014  LM00016
 67660     -0 00000 0 00000                                                                                             
                 V'S TFUDG = 1800                                                   015  LM00017
 67657     +0 00000 0 03410                                                                                             
                 V'S TABLIM = 200                                                   016  LM00018
 67652     +0 00000 0 00310                                                                                             
                 V'S LODLIM = 2000                                                  017  LM00019
 67643     +0 00000 0 03720                                                                                             
                 V'S LPREAM = 12                                                    018  LM00020
 67651     +0 00000 0 00014                                                                                             
                 V'S TSKLTH = 11                                                    019  LM00021
 67637     +0 00000 0 00013                                                                                             
                 V'S SYSTEM = $ C0056$                                              020  LM00023
 67642     -2 02300 0 00506                                                                                             
                 V'S DAEMON = $ 99999$                                              021  LM00024
 67641     -2 01111 1 11111                                                                                             
                 V'S D = $(DUMP)$                                                   022  LM00025
 67662     -3 42464 4 44734                                                                                             
                 V'S T = $(TAPE)$                                                   023  LM00026
 67661     -3 46321 4 72534                                                                                             
                 V'S USERF = $USER F$                                               024  LM00027
 67655     -2 46225 5 16026                                                                                             
                 V'S ILEDI = $ILE DI$                                               025  LM00028
 67654     +3 14325 6 02431                                                                                             
                 DIMENSION HEDER2(12)                                               026  LM00029
                 P'N HEDER2                                                         027  LM00030
                 V'S MESSV(1) = $N.F.T.$,$U.D.T.$,$S.D.T.$                          028  LM00006
 00302     -2 23324 3 36333    00303     -2 43324 3 36333    00304     -0 53326 3 36333                                 
                 V'S MESS1(1) = $ALS   $,$ETRIEV$,$ FOR R$,0,$, TIME$,0,            029  LM00007
                1     $ DATE $,0,$MOUNT $                                           029  LM00008
 00166     -0 44664 4 56360    00167     +0 00000 0 00000    00170     -2 02421 6 32560    00171     +0 00000 0 00000   
 00172     -3 36063 3 14425    00173     +0 00000 0 00000    00174     -2 02646 5 16051    00175     +2 56351 3 12565   
 00176     +2 14362 6 06060                                                                                             
                 V'S MESS2 = $NO TAPES AVAILABLE NOW$,777777777777K                 030  LM00009
 00200     -3 77777 7 77777    00201     -2 04546 6 66060    00202     +3 14321 2 24325    00203     +2 56260 2 16521   
 00204     -0 54660 6 32147                                                                                             
                 V'S MESS3 = $INCORRECT LABELING, WILL UNMOUNT AND TRY AGAIN$       031  LM00010
                1     ,777777777777K                                                031  LM00011
 00205     -3 77777 7 77777    00206     +2 72131 4 56060    00207     -2 06351 7 06021    00210     -0 56360 2 14524   
 00211     -2 06445 4 44664    00212     -3 36066 3 14343    00213     +2 22543 3 14527    00214     +2 52363 6 04321   
 00215     +3 14523 4 65151                                                                                             
                 V'S MESS4(1) = $GAIN  $,$ TRY A$,$LABEL,$,$ECTED $,                032  LM00012
                1     $CH EXP$,$OT MAT$,$DOES N$,$LABEL $                           032  LM00013
 00216     -0 32122 2 54360    00217     +2 44625 6 26045    00220     -0 66360 4 42163    00221     +2 33060 2 56747   
 00222     +2 52363 2 52460    00223     -0 32122 2 54373    00224     -2 06351 7 06021    00225     +2 72131 4 56060   
                 V'S MESS5 = $NOW MOUNTING$,575757575760K,0,$ DATED$,               033  LM00014
                1     575757575760K,0,$, TIME$,0,$ FOR RETRIEVAL$,                  033  LM00015
                2     777777777777K                                                 033  LM00016
 00227     -3 77777 7 77777    00230     +2 14360 6 06060    00231     +2 56351 3 12565    00232     -2 02646 5 16051   
 00233     +0 00000 0 00000    00234     -3 36063 3 14425    00235     +0 00000 0 00000    00236     -1 75757 5 75760   
 00237     -2 02421 6 32524    00240     +0 00000 0 00000    00241     -1 75757 5 75760    00242     -2 44563 3 14527   
 00243     -0 54666 6 04446                                                                                             
                 V'S MESS6 = $INCORRECT HEADER, WILL TRY AGAIN$,                    034  LM00017
                1     777777777777K                                                 034  LM00018
 00244     -3 77777 7 77777    00245     +3 14560 6 06060    00246     -1 17060 2 12721    00247     -2 63143 4 36063   
 00250     +2 12425 5 17360    00251     +2 52363 6 03025    00252     +3 14523 4 65151                                 
                 V'S MESS7 = $HEADER$,0,0,$, WILL TRY AGAIN$,777777777777K          035  LM00019
 00253     -3 77777 7 77777    00254     +2 72131 4 56060    00255     -2 06351 7 06021    00256     -3 36066 3 14343   
 00257     +0 00000 0 00000    00260     +0 00000 0 00000    00261     +3 02521 2 42551                                 
                 V'S MESS8(1) = $AGAIN $,$, TRY $,0,$, TIME$,0,                     036  LM00020
                1     $ DATE $,$HEADER$                                             036  LM00021
 00262     +3 02521 2 42551    00263     -2 02421 6 32560    00264     +0 00000 0 00000    00265     -3 36063 3 14425   
 00266     +0 00000 0 00000    00267     -3 36063 5 17060    00270     +2 12721 3 14560                                 
                 V'S MESS9 = $CANNOT MOUNT TAPE FOR $,0,575757575760K,0,            037  LM00022
                1     777777777777K                                                 037  LM00023
 00272     -3 77777 7 77777    00273     +0 00000 0 00000    00274     -1 75757 5 75760    00275     +0 00000 0 00000   
 00276     +2 64651 6 06060    00277     -2 06321 4 72560    00300     -2 04446 6 44563    00301     +2 32145 4 54663   
                 V'S MESS10 = $ERROR READING HEADER$,777777777777K                  038  LM00024
 00076     -3 77777 7 77777    00077     +2 55160 6 06060    00100     +2 76030 2 52124    00101     -1 12521 2 43145   
 00102     +2 55151 4 65160                                                                                             
                 V'S MESS11 = $TAPE IS MOUNTED AND CHECKED$,777777777777K           039  LM00025
 00103     -3 77777 7 77777    00104     -0 22524 6 06060    00105     +2 46023 3 02523    00106     -2 32524 6 02145   
 00107     -2 26044 4 66445    00110     -2 32147 2 56031                                                               
                 V'S MESS12(1) = $EEL   $,$NEXT R$,$UE TO $,$CONTIN$,               040  LM00026
                1     $ WILL $,$ REEL.$,$END OF$                                    040  LM00027
 00111     +2 54524 6 04626    00112     -2 05125 2 54333    00113     -2 06631 4 34360    00114     +2 34645 6 33145   
 00115     -2 42560 6 34660    00116     -0 52567 6 36051    00117     +2 52543 6 06060                                 
                 V'S MESS13 = $END OF REEL. NOW MOUNTING REEL$,0,                   041  LM00028
                1     $ OF DUMP TAPE$,777777777777K                                 041  LM00029
 00121     -3 77777 7 77777    00122     +2 56060 6 06060    00123     -0 44760 6 32147    00124     -2 04626 6 02464   
 00125     +0 00000 0 00000    00126     +2 76051 2 52543    00127     -0 66445 6 33145    00130     -2 04546 6 66044   
 00131     -2 05125 2 54333    00132     +2 54524 6 04626                                                               
                 V'S MESS14(1) = 0,$EEL   $,$T IS R$,$NCE. I$,$ SEQUE$,             042  LM00030
                1     $APE IN$,$NEXT T$,$MOUNT $                                    042  LM00031
 00133     -0 44664 4 56360    00134     -0 52567 6 36063    00135     +2 14725 6 03145    00136     -2 06225 5 06425   
 00137     -0 52325 3 36031    00140     -2 36031 6 26051    00141     +2 52543 6 06060    00142     +0 00000 0 00000   
                 V'S MESS15 = $TAPE MOUNTED WAS NOT IN SEQUENCE.$,                  043  LM00032
                1     $WILL UNMOUNT AND TRY AGAIN$,777777777777K                    043  LM00033
 00144     -3 77777 7 77777    00145     +3 14560 6 06060    00146     -1 17060 2 12721    00147     -2 02145 2 46063   
 00150     -0 54446 6 44563    00151     -2 63143 4 36064    00152     +2 32533 6 06060    00153     -2 22550 6 42545   
 00154     -0 66360 3 14560    00155     -2 06621 6 26045    00156     -0 66445 6 32524    00157     -2 32147 2 56044   
                 V'S MESS16(1) = $ENCE  $,$N SEQU$,$NEXT I$,$S NOT $,               044  LM00034
                1     $TAPE I$                                                      044  LM00035
 00160     -2 32147 2 56031    00161     -2 26045 4 66360    00162     -0 52567 6 36031    00163     -0 56062 2 55064   
 00164     +2 54523 2 56060                                                                                             
                 V'S LABL(1) = $ TAPE $,$E DUMP$,$ED-FIL$,$ CREAT$                  045  LM00036
                1     ,$ TAPE $,$S DUMP$,$'-FILE$,$ USERS$,                         045  LM00037
                2     $ TAPE $,$S DUMP$,$M-FILE$,$ SYSTE$                           045  LM00038
 00061     -2 06270 6 26325    00062     -0 44026 3 14325    00063     -2 26024 6 44447    00064     -2 06321 4 72560   
 00065     -2 06462 2 55162    00066     +1 44026 3 14325    00067     -2 26024 6 44447    00070     -2 06321 4 72560   
 00071     -2 02351 2 52163    00072     +2 52440 2 63143    00073     +2 56024 6 44447    00074     -2 06321 4 72560   
                 V'S HIODTM = 426                                                   046  LM00040
 00046     +0 00000 0 00652                                                                                             
                 V'S HREEL = 424                                                    047  LM00041
 00047     +0 00000 0 00650                                                                                             
                 D'N HSAVE(6),V(2)                                                  048  LM00043
                 E'O SETTAP.                                                        049  LM00046
 00335 TRA +0 02000 0 00340    00336 SXA +0 63400 2 01211    00337 TSX +0 07400 2 01211                                 
                 ATTACH.(HPROB,HPROG)                                               050  LM00047
 00340 TSX +0 07400 4 00000    00341 TXH +3 00000 0 67650    00342 TXH +3 00000 0 67647                                 
                 T'H LOOP1, FOR I = 0,TSKLTH,(I .GE. AINDEX)                        051  LM00051
 00343 CLA +0 50000 0 00313    00344 STO +0 60100 0 00057    00345 TRA +0 02000 0 00351    00346 CLA +0 50000 0 00057   
 00347 ADD +0 40000 0 67637    00350 STO +0 60100 0 00057    00351 CLA +0 50000 0 00057    00352 SUB +0 40200 0 67664   
 00353 TZE +0 10000 0 00777    00354 TPL +0 12000 0 00777                                                               
                      W'R (TABLE(I+2).E.0).OR.(TABLE(I+10).NE.0), T'O LOOP1         052  LM00052
 00355 CLA +0 50000 0 00057    00356 ADD +0 40000 0 00325    00357 PAX +0 73400 1 00000    00360 CLA +0 50000 1 77461   
 00361 SUB +0 40200 0 00313    00362 TNZ -0 10000 0 00371    00363 CLA +0 50000 0 00057    00364 ADD +0 40000 0 00315   
 00365 PAX +0 73400 1 00000    00366 CLA +0 50000 1 77461    00367 SUB +0 40200 0 00313    00370 TNZ -0 10000 0 00372   
 00371 TRA +0 02000 0 00030                                                                                             
                      UNIT = TABLE(I+9)-1                                           053  LM00053
 00372 CLA +0 50000 0 00057    00373 ADD +0 40000 0 00324    00374 PAX +0 73400 1 00000    00375 CLA +0 50000 1 77461   
 00376 SUB +0 40200 0 00314    00377 STO +0 60100 0 67663                                                               
                      MESS9(4) = TABLE(I+2)                                         054  LM00054
 00400 CLA +0 50000 0 00057    00401 ADD +0 40000 0 00315    00402 PAX +0 73400 2 00000    00403 CLA +0 50000 2 77461   
 00404 STO +0 60100 0 00275                                                                                             
                      MESS9(6) = TABLE(I+3)                                         055  LM00055
 00405 CLA +0 50000 0 00057    00406 ADD +0 40000 0 00316    00407 PAX +0 73400 2 00000    00410 CLA +0 50000 2 77461   
 00411 STO +0 60100 0 00273                                                                                             
                      UNIT4 = UNIT*4                                                056  LM00056
 00412 LDQ +0 56000 0 67663    00413 MPY +0 20000 0 00317    00414 STQ -0 60000 0 00307                                 
                      CLEAR.(D,T)                                                   057  LM00057
 00415 TSX +0 07400 4 00004    00416 TXH +3 00000 0 67662    00417 TXH +3 00000 0 67661                                 
                      TAPFIL.(D,T,UNIT,1)                                           058  LM00058
 00420 TSX +0 07400 4 00017    00421 TXH +3 00000 0 67662    00422 TXH +3 00000 0 67661    00423 TXH +3 00000 0 67663   
 00424 TXH +3 00000 0 00314                                                                                             
                      MESS1(4) = CVTIME.(TABLE(I+7))                                059  LM00062
 00425 CLA +0 50000 0 00057    00426 ADD +0 40000 0 00322    00427 SUB +0 40200 0 00430    00430 TXH +3 00000 0 77461   
 00431 STA +0 62100 0 00433    00432 TSX +0 07400 4 00007    00433 TXH +3 00000 0 00000    00434 STO +0 60100 0 00173   
                      MESS1(6) = CVDATE.(TABLE(I+6))                                060  LM00063
 00435 CLA +0 50000 0 00057    00436 ADD +0 40000 0 00321    00437 SUB +0 40200 0 00440    00440 TXH +3 00000 0 77461   
 00441 STA +0 62100 0 00443    00442 TSX +0 07400 4 00006    00443 TXH +3 00000 0 00000    00444 STO +0 60100 0 00171   
                      MESS1(8) = MESSV(UNIT)                                        061  LM00064
 00445 LXA +0 53400 2 67663    00446 CLA +0 50000 2 00305    00447 STO +0 60100 0 00167                                 
                      MESS5(8) = MESS1(4)                                           062  LM00065
 00450 CLA +0 50000 0 00173    00451 STO +0 60100 0 00233                                                               
                      MESS5(6) = MESS1(6)                                           063  LM00066
 00452 CLA +0 50000 0 00171    00453 STO +0 60100 0 00235                                                               
                      MESS5(3) = MESS1(8)                                           064  LM00067
 00454 CLA +0 50000 0 00167    00455 STO +0 60100 0 00240                                                               
                      PRNTP.(MESS5)                                                 065  LM00068
 00456 TSX +0 07400 4 00015    00457 TXH +3 00000 0 00243                                                               
      MLABL           MOUNT.(MZE,UNIT,MESS1(9)...9,NOTAPE)                          066  LM00070
 00460 TSX +0 07400 4 00012    00461 TXH +3 00000 0 67660    00462 TXH +3 00000 0 67663    00463 TIX +2 00324 0 00166   
 00464 TXH +3 00000 0 00035                                                                                             
                      VERIFY.(UNIT,LABL(UNIT4)...4,TRBL,ERCODE)                     067  LM00071
 00465 CLA +0 50000 0 00307    00466 SUB +0 40200 0 00467    00467 TXH +3 00000 0 00075    00470 STA +0 62100 0 00473   
 00471 TSX +0 07400 4 00021    00472 TXH +3 00000 0 67663    00473 TIX +2 00317 0 00000    00474 TXH +3 00000 0 00044   
 00475 TXH +3 00000 0 00045                                                                                             
                 OPEN.($R$,D,T,-0,3,ERR)                                            068  LM00075
 00476 CLS +0 50200 0 00313    00477 STO +0 60100 0 01221    00500 TSX +0 07400 4 00013    00501 TXH +3 00000 0 00331   
 00502 TXH +3 00000 0 67662    00503 TXH +3 00000 0 67661    00504 TXH +3 00000 0 01221    00505 TXH +3 00000 0 00316   
 00506 TXH +3 00000 0 00027                                                                                             
                 BUFFER.(D,T,BUFF1(432)...432)                                      069  LM00076
 00507 TSX +0 07400 4 00002    00510 TXH +3 00000 0 67662    00511 TXH +3 00000 0 67661    00512 TIX +2 00326 0 75375   
                 RDWAIT.(D,T,0,DRAIN(432)...432,REOF,TEMP,ERR)                      070  LM00077
 00513 TSX +0 07400 4 00016    00514 TXH +3 00000 0 67662    00515 TXH +3 00000 0 67661    00516 TXH +3 00000 0 00313   
 00517 TIX +2 00326 0 73616    00520 TXH +3 00000 0 00041    00521 TXH +3 00000 0 00306    00522 TXH +3 00000 0 00027   
                      TEMP = 432-UNIT4                                              071  LM00078
 00523 CLA +0 50000 0 00326    00524 SUB +0 40200 0 00307    00525 STO +0 60100 0 00306                                 
                      T'H LOOP2, FOR J=UNIT4,-1,J.L.(UNIT4-3)                       072  LM00080
 00526 CLA +0 50000 0 00307    00527 STO +0 60100 0 00060    00530 TRA +0 02000 0 00534    00531 CLS +0 50200 0 00314   
 00532 ADD +0 40000 0 00060    00533 STO +0 60100 0 00060    00534 CLA +0 50000 0 00307    00535 SUB +0 40200 0 00316   
 00536 CHS +0 76000 0 00002    00537 ADD +0 40000 0 00060    00540 TZE +0 10000 0 00542    00541 TMI -0 12000 0 00556   
                           W'R DRAIN(J+TEMP).E.LABL(J), T'O LOOP2                   073  LM00081
 00542 CLA +0 50000 0 00060    00543 ADD +0 40000 0 00306    00544 PAX +0 73400 1 00000    00545 LXA +0 53400 2 00060   
 00546 CLA +0 50000 1 74476    00547 SUB +0 40200 2 00075    00550 TNZ -0 10000 0 00552    00551 TRA +0 02000 0 00031   
                           PRNTP.(MESS6)                                            074  LM00082
 00552 TSX +0 07400 4 00015    00553 TXH +3 00000 0 00252                                                               
                           T'O TRBL2                                                075  LM00083
 00554 TRA +0 02000 0 00043                                                                                             
      LOOP2           C'E                                                           076  LM00084
 00555 TRA +0 02000 0 00531                                                                                             
                      W'R TABLE(I+6).NE.(DRAIN(HIODTM).A.777777K6)                  077  LM00088
 00556 LXA +0 53400 1 00046    00557 CAL -0 50000 1 74476    00560 ANA -0 32000 0 00334    00561 SLW +0 60200 0 01221   
 00562 CLA +0 50000 0 00057    00563 ADD +0 40000 0 00321    00564 PAX +0 73400 1 00000    00565 CLA +0 50000 1 77461   
 00566 SUB +0 40200 0 01221    00567 TZE +0 10000 0 00634                                                               
                           MESS7(2) = CVDATE.(DRAIN(HIODTM))                        078  LM00092
 00570 CLA +0 50000 0 00046    00571 SUB +0 40200 0 00572    00572 TXH +3 00000 0 74476    00573 STA +0 62100 0 00575   
 00574 TSX +0 07400 4 00006    00575 TXH +3 00000 0 00000    00576 STO +0 60100 0 00257                                 
                           MESS7(1) = $ DATE $                                      079  LM00093
 00577 CLA +0 50000 0 00332    00600 STO +0 60100 0 00260                                                               
      OHME                 PRNTP.(MESS7)                                            080  LM00094
 00601 TSX +0 07400 4 00015    00602 TXH +3 00000 0 00261                                                               
                           MESS8(5) = CVDATE.(DRAIN(HIODTM))                        081  LM00095
 00603 CLA +0 50000 0 00046    00604 SUB +0 40200 0 00605    00605 TXH +3 00000 0 74476    00606 STA +0 62100 0 00610   
 00607 TSX +0 07400 4 00006    00610 TXH +3 00000 0 00000    00611 STO +0 60100 0 00264                                 
                           MESS8(3) = CVTIME.(DRAIN(HIODTM))                        082  LM00096
 00612 CLA +0 50000 0 00046    00613 SUB +0 40200 0 00614    00614 TXH +3 00000 0 74476    00615 STA +0 62100 0 00617   
 00616 TSX +0 07400 4 00007    00617 TXH +3 00000 0 00000    00620 STO +0 60100 0 00266                                 
                           CLOSE.(D,T,ERR)                                          083  LM00097
 00621 TSX +0 07400 4 00005    00622 TXH +3 00000 0 67662    00623 TXH +3 00000 0 67661    00624 TXH +3 00000 0 00027   
                           UMOUNT.(UNIT,MESS8(7)...7,MLABL,ERCODE)                  084  LM00098
 00625 TSX +0 07400 4 00020    00626 TXH +3 00000 0 67663    00627 TIX +2 00322 0 00262    00630 TXH +3 00000 0 00032   
 00631 TXH +3 00000 0 00045                                                                                             
                           T'O MLABL                                                085  LM00099
 00632 TRA +0 02000 0 00032                                                                                             
                      O'R (TABLE(I+7).NE.0).AND.                                    086  LM00100
                1          (TABLE(I+7).L.(DRAIN(HIODTM).A.777777K))                 086  LM00101
 00633 TRA +0 02000 0 00667    00634 LXA +0 53400 1 00046    00635 CAL -0 50000 1 74476    00636 ANA -0 32000 0 00327   
 00637 SLW +0 60200 0 01221    00640 CLA +0 50000 0 00057    00641 ADD +0 40000 0 00322    00642 PAX +0 73400 1 00000   
 00643 CLA +0 50000 1 77461    00644 SUB +0 40200 0 01221    00645 TZE +0 10000 0 00667    00646 TPL +0 12000 0 00667   
 00647 CLA +0 50000 0 00057    00650 ADD +0 40000 0 00322    00651 PAX +0 73400 1 00000    00652 CLA +0 50000 1 77461   
 00653 SUB +0 40200 0 00313    00654 TZE +0 10000 0 00667                                                               
                           MESS7(2) = CVTIME.(DRAIN(HIODTM))                        087  LM00105
 00655 CLA +0 50000 0 00046    00656 SUB +0 40200 0 00657    00657 TXH +3 00000 0 74476    00660 STA +0 62100 0 00662   
 00661 TSX +0 07400 4 00007    00662 TXH +3 00000 0 00000    00663 STO +0 60100 0 00257                                 
                           MESS7(1) = $ TIME $                                      088  LM00106
 00664 CLA +0 50000 0 00333    00665 STO +0 60100 0 00260                                                               
                           T'O OHME                                                 089  LM00107
 00666 TRA +0 02000 0 00037                                                                                             
                      E'L                                                           090  LM00108
                      W'R DRAIN(HREEL) .E. DRAIN(432)                               091  LM00113
 00667 LXA +0 53400 1 00047    00670 CLA +0 50000 1 74476    00671 SUB +0 40200 0 73616    00672 TNZ -0 10000 0 00676   
                           REELNO = 0                                               092  LM00114
 00673 CLA +0 50000 0 00313    00674 STO +0 60100 0 67640                                                               
                      O'E                                                           093  LM00115
 00675 TRA +0 02000 0 00701                                                                                             
                           REELNO = DRAIN(HREEL)                                    094  LM00116
 00676 LXA +0 53400 2 00047    00677 CLA +0 50000 2 74476    00700 STO +0 60100 0 67640                                 
                      E'L                                                           095  LM00117
                      T'H LOOP3, FOR J=0,1,J.G.6                                    096  LM00118
 00701 CLA +0 50000 0 00313    00702 STO +0 60100 0 00060    00703 TRA +0 02000 0 00707    00704 CLA +0 50000 0 00060   
 00705 ADD +0 40000 0 00314    00706 STO +0 60100 0 00060    00707 CLA +0 50000 0 00060    00710 SUB +0 40200 0 00321   
 00711 TZE +0 10000 0 00713    00712 TPL +0 12000 0 00722                                                               
                           HSAVE(J) = DRAIN(432-J)                                  097  LM00119
 00713 CLA +0 50000 0 00326    00714 SUB +0 40200 0 00060    00715 LXA +0 53400 1 00060    00716 PAX +0 73400 2 00000   
 00717 CLA +0 50000 2 74476    00720 STO +0 60100 1 00056                                                               
      LOOP3           C'E                                                           098  LM00120
 00721 TRA +0 02000 0 00704                                                                                             
                      PRNTP.(MESS11)                                                099  LM00122
 00722 TSX +0 07400 4 00015    00723 TXH +3 00000 0 00110                                                               
                      F'N UNIT                                                      100  LM00123
 00724 CLA +0 50000 0 67663    00725 TRA +0 02000 0 01215                                                               
      NOTAPE          PRNTP.(MESS2)                                                 101  LM00127
 00726 TSX +0 07400 4 00015    00727 TXH +3 00000 0 00204                                                               
                      TABLE(I+2) = 0                                                102  LM00128
 00730 CLA +0 50000 0 00057    00731 ADD +0 40000 0 00315    00732 PAX +0 73400 1 00000    00733 CLA +0 50000 0 00313   
 00734 STO +0 60100 1 77461                                                                                             
                      T'O LOOP1                                                     103  LM00129
 00735 TRA +0 02000 0 00030                                                                                             
      ERR             PRNTER.                                                       104  LM00131
 00736 TSX +0 07400 4 00014                                                                                             
                      PRNTP.(MESS10)                                                105  LM00132
 00737 TSX +0 07400 4 00015    00740 TXH +3 00000 0 00102                                                               
                      CLOSE.(D,T,LOOP1)                                             106  LM00133
 00741 TSX +0 07400 4 00005    00742 TXH +3 00000 0 67662    00743 TXH +3 00000 0 67661    00744 TXH +3 00000 0 00030   
                      T'O LOOP1                                                     107  LM00134
 00745 TRA +0 02000 0 00030                                                                                             
      REOF            CLOSE.(D,T,TRBL1)                                             108  LM00136
 00746 TSX +0 07400 4 00005    00747 TXH +3 00000 0 67662    00750 TXH +3 00000 0 67661    00751 TXH +3 00000 0 00042   
                      T'O TRBL1                                                     109  LM00137
 00752 TRA +0 02000 0 00042                                                                                             
      TRBL       W'R ERCODE.E.7                                                     110  LM00141
 00753 CLA +0 50000 0 00045    00754 SUB +0 40200 0 00322    00755 TNZ -0 10000 0 00767                                 
      TRBL1                PRNTP.(MESS3)                                            111  LM00142
 00756 TSX +0 07400 4 00015    00757 TXH +3 00000 0 00215                                                               
      TRBL2                UMOUNT.(UNIT,MESS4(8)...8,MLABL,ERCODE)                  112  LM00143
 00760 TSX +0 07400 4 00020    00761 TXH +3 00000 0 67663    00762 TIX +2 00323 0 00216    00763 TXH +3 00000 0 00032   
 00764 TXH +3 00000 0 00045                                                                                             
                           T'O MLABL                                                113  LM00144
 00765 TRA +0 02000 0 00032                                                                                             
                      O'E                                                           114  LM00145
 00766 TRA +0 02000 0 00776                                                                                             
                           PRNTP.(MESS9)                                            115  LM00146
 00767 TSX +0 07400 4 00015    00770 TXH +3 00000 0 00301                                                               
                           TABLE(I+2) = 0                                           116  LM00147
 00771 CLA +0 50000 0 00057    00772 ADD +0 40000 0 00315    00773 PAX +0 73400 1 00000    00774 CLA +0 50000 0 00313   
 00775 STO +0 60100 1 77461                                                                                             
                      E'L                                                           117  LM00148
      LOOP1      C'E                                                                118  LM00150
 00776 TRA +0 02000 0 00346                                                                                             
                 F'N 0                                                              119  LM00152
 00777 CLA +0 50000 0 00313    01000 TRA +0 02000 0 01215                                                               
                 E'O NEWTAP.                                                        120  LM00158
 01001 TRA +0 02000 0 01004    01002 SXA +0 63400 2 01211    01003 TSX +0 07400 2 01211                                 
                 ATTNAM.(V(2)...2)                                                  121  LM00162
 01004 TSX +0 07400 4 00001    01005 TIX +2 00315 0 00310                                                               
                 ATTACH.(HPROB,HPROG)                                               122  LM00163
 01006 TSX +0 07400 4 00000    01007 TXH +3 00000 0 67650    01010 TXH +3 00000 0 67647                                 
                 CLOSE.(D,T,NERR1)                                                  123  LM00164
 01011 TSX +0 07400 4 00005    01012 TXH +3 00000 0 67662    01013 TXH +3 00000 0 67661    01014 TXH +3 00000 0 00033   
      NERR1      CLEAR.(D,T)                                                        124  LM00165
 01015 TSX +0 07400 4 00004    01016 TXH +3 00000 0 67662    01017 TXH +3 00000 0 67661                                 
                 TAPFIL.(D,T,UNIT,1,ERR1)                                           125  LM00166
 01020 TSX +0 07400 4 00017    01021 TXH +3 00000 0 67662    01022 TXH +3 00000 0 67661    01023 TXH +3 00000 0 67663   
 01024 TXH +3 00000 0 00314    01025 TXH +3 00000 0 00025                                                               
                 UMOUNT.(UNIT,MESS12(7)...7,ERR1,ERCODE)                            126  LM00167
 01026 TSX +0 07400 4 00020    01027 TXH +3 00000 0 67663    01030 TIX +2 00322 0 00111    01031 TXH +3 00000 0 00025   
 01032 TXH +3 00000 0 00045                                                                                             
                 REELNO = REELNO + 1                                                127  LM00171
 01033 CLA +0 50000 0 67640    01034 ADD +0 40000 0 00314    01035 STO +0 60100 0 67640                                 
                 MESS13(5) = BZEL.(DERBC.(REELNO+1))                                128  LM00172
 01036 CLA +0 50000 0 67640    01037 ADD +0 40000 0 00314    01040 STO +0 60100 0 01221    01041 TSX +0 07400 4 00010   
 01042 TXH +3 00000 0 01221    01043 STO +0 60100 0 01221    01044 TSX +0 07400 4 00003    01045 TXH +3 00000 0 01221   
 01046 STO +0 60100 0 00125                                                                                             
                 MESS14(1) = MESS13(5)                                              129  LM00173
 01047 CLA +0 50000 0 00125    01050 STO +0 60100 0 00142                                                               
                 PRNTP.(MESS13)                                                     130  LM00174
 01051 TSX +0 07400 4 00015    01052 TXH +3 00000 0 00132                                                               
      AGAIN      MOUNT.(MZE,UNIT,MESS14(8)...8,ERR1)                                131  LM00176
 01053 TSX +0 07400 4 00012    01054 TXH +3 00000 0 67660    01055 TXH +3 00000 0 67663    01056 TIX +2 00323 0 00133   
 01057 TXH +3 00000 0 00025                                                                                             
                 VERIFY.(UNIT,LABL(UNIT4)...4,ERR1,ERCODE)                          132  LM00177
 01060 CLA +0 50000 0 00307    01061 SUB +0 40200 0 01062    01062 TXH +3 00000 0 00075    01063 STA +0 62100 0 01066   
 01064 TSX +0 07400 4 00021    01065 TXH +3 00000 0 67663    01066 TIX +2 00317 0 00000    01067 TXH +3 00000 0 00025   
 01070 TXH +3 00000 0 00045                                                                                             
                 OPEN.($R$,D,T,-0,3,ERR2)                                           133  LM00181
 01071 CLS +0 50200 0 00313    01072 STO +0 60100 0 01221    01073 TSX +0 07400 4 00013    01074 TXH +3 00000 0 00331   
 01075 TXH +3 00000 0 67662    01076 TXH +3 00000 0 67661    01077 TXH +3 00000 0 01221    01100 TXH +3 00000 0 00316   
 01101 TXH +3 00000 0 00026                                                                                             
                 BUFFER.(D,T,BUFF1(432)...432)                                      134  LM00182
 01102 TSX +0 07400 4 00002    01103 TXH +3 00000 0 67662    01104 TXH +3 00000 0 67661    01105 TIX +2 00326 0 75375   
                 RDWAIT.(D,T,0,DRAIN(432)...432,NREOF,DRAIN,ERR2)                   135  LM00183
 01106 TSX +0 07400 4 00016    01107 TXH +3 00000 0 67662    01110 TXH +3 00000 0 67661    01111 TXH +3 00000 0 00313   
 01112 TIX +2 00326 0 73616    01113 TXH +3 00000 0 00036    01114 TXH +3 00000 0 74476    01115 TXH +3 00000 0 00026   
                 T'H LOOP4, FOR J=0,1,J.G.6                                         136  LM00184
 01116 CLA +0 50000 0 00313    01117 STO +0 60100 0 00060    01120 TRA +0 02000 0 01124    01121 CLA +0 50000 0 00060   
 01122 ADD +0 40000 0 00314    01123 STO +0 60100 0 00060    01124 CLA +0 50000 0 00060    01125 SUB +0 40200 0 00321   
 01126 TZE +0 10000 0 01130    01127 TPL +0 12000 0 01141                                                               
                      W'R HSAVE(J) .NE. DRAIN(432-J), T'O OHNO                      137  LM00185
 01130 CLA +0 50000 0 00326    01131 SUB +0 40200 0 00060    01132 LXA +0 53400 1 00060    01133 PAX +0 73400 2 00000   
 01134 CLA +0 50000 1 00056    01135 SUB +0 40200 2 74476    01136 TZE +0 10000 0 01140    01137 TRA +0 02000 0 00040   
      LOOP4      C'E                                                                138  LM00186
 01140 TRA +0 02000 0 01121                                                                                             
                 W'R REELNO .NE. DRAIN(HREEL)                                       139  LM00190
 01141 LXA +0 53400 2 00047    01142 CLA +0 50000 0 67640    01143 SUB +0 40200 2 74476    01144 TZE +0 10000 0 01161   
      OHNO            PRNTP.(MESS15)                                                140  LM00191
 01145 TSX +0 07400 4 00015    01146 TXH +3 00000 0 00157                                                               
                      CLOSE.(D,T,ERR1)                                              141  LM00192
 01147 TSX +0 07400 4 00005    01150 TXH +3 00000 0 67662    01151 TXH +3 00000 0 67661    01152 TXH +3 00000 0 00025   
                      UMOUNT.(UNIT,MESS16(5)...5,ERR1,ERCODE)                       142  LM00193
 01153 TSX +0 07400 4 00020    01154 TXH +3 00000 0 67663    01155 TIX +2 00320 0 00160    01156 TXH +3 00000 0 00025   
 01157 TXH +3 00000 0 00045                                                                                             
                      T'O AGAIN                                                     143  LM00194
 01160 TRA +0 02000 0 00023                                                                                             
                 E'L                                                                144  LM00195
                 PRNTP.(MESS11)                                                     145  LM00199
 01161 TSX +0 07400 4 00015    01162 TXH +3 00000 0 00110                                                               
                 ATTACH.(V(2),V(1))                                                 146  LM00200
 01163 TSX +0 07400 4 00000    01164 TXH +3 00000 0 00310    01165 TXH +3 00000 0 00311                                 
                 F'N UNIT                                                           147  LM00201
 01166 CLA +0 50000 0 67663    01167 TRA +0 02000 0 01215                                                               
      ERR2       PRNTER.                                                            148  LM00203
 01170 TSX +0 07400 4 00014                                                                                             
      NREOF      CLOSE.(D,T,NERR2)                                                  149  LM00204
 01171 TSX +0 07400 4 00005    01172 TXH +3 00000 0 67662    01173 TXH +3 00000 0 67661    01174 TXH +3 00000 0 00034   
      NERR2      PRNTP.(MESS10)                                                     150  LM00205
 01175 TSX +0 07400 4 00015    01176 TXH +3 00000 0 00102                                                               
                 T'O AWAY                                                           151  LM00206
 01177 TRA +0 02000 0 00024                                                                                             
      ERR1       PRNTER.                                                            152  LM00210
 01200 TSX +0 07400 4 00014                                                                                             
                 PRNTP.(MESS9)                                                      153  LM00211
 01201 TSX +0 07400 4 00015    01202 TXH +3 00000 0 00301                                                               
      AWAY       ATTACH.(V(2),V(1))                                                 154  LM00212
 01203 TSX +0 07400 4 00000    01204 TXH +3 00000 0 00310    01205 TXH +3 00000 0 00311                                 
                 F'N 0                                                              155  LM00213
 01206 CLA +0 50000 0 00313    01207 TRA +0 02000 0 01215                                                               
                 E'N                                                                156  LM00215
 01210 TSX +0 07400 4 00011    01211 TXH +3 00000 0 00000    01212 SXD -0 63400 1 01211    01213 SXA +0 63400 4 01215   
 01214 TRA +0 02000 2 00001    01215 AXT +0 77400 4 00000    01216 LXA +0 53400 2 01211    01217 LXD -0 53400 1 01211   
 01220 TRA +0 02000 4 00001                                                                                             




DECIDE   BCD 04/29/67 2209.9   10128         00000    
1     MAD PROGRAM LISTING ... ... ...                 FILE  DECIDE   MAD            04/29/67    2140.0
-                 
                      TEST CURRENT TAPE FILE FOR UTILITY                                               LM00001    
                           D.R. WIDRIG  DEC. 1965                                                      LM00002    
                                                                                                       LM00003    
                  EXTERNAL FUNCTION (V,X,Y,Z)                                                     *001 LM00004    
                  INSERT FILE COM                                                                 *002 LM00005    
                                                                                                  *002 LM00001    
                  NORMAL MODE IS INTEGER                                                          *003 LM00002    
                  BOOLEAN SWT.                                                                    *004 LM00003    
                                                                                                       LM00004    
                  DIMENSION TABLE(210),BUFF(432),BUFF1(432),BUFF2(432)                            *005 LM00005    
                  DIMENSION HEADER(12),UFD(7),DRAIN(432),LODTAB(2000)                             *006 LM00006    
                  EQUIVALENCE (PB,HEADER(12)),(PG,HEADER(11)),(DND,HEADER(8)),                    *007 LM00007    
                1      (WC,HEADER(2)),(LRCT,HEADER(1))                                            *007 LM00008    
                  PROGRAM COMMON TABLE,BUFF,BUFF1,BUFF2                                           *008 LM00009    
                  PROGRAM COMMON HEADER,DRAIN,UFD,LODTAB                                          *009 LM00010    
                  PROGRAM COMMON AINDEX,UNIT,D,T,MZE,TFUDG,FENCE,USERF,ILEDI,PRIV                 *010 LM00011    
                  PROGRAM COMMON TABLIM,LPREAM,HPROB,HPROG,CURPTR,AUTHOR,LINDEX                   *011 LM00012    
                  PROGRAM COMMON LODLIM,SYSTEM,DAEMON,REELNO,TSKLTH                               *012 LM00013    
                                                                                                       LM00014    
                  VECTOR VALUES FENCE = 777777777777K                                             *013 LM00015    
                  VECTOR VALUES MZE = 4K11                                                        *014 LM00016    
                  VECTOR VALUES TFUDG = 1800                                                      *015 LM00017    
                  VECTOR VALUES TABLIM = 200                                                      *016 LM00018    
                  VECTOR VALUES LODLIM = 2000                                                     *017 LM00019    
                  VECTOR VALUES LPREAM = 12                                                       *018 LM00020    
                  VECTOR VALUES TSKLTH = 11                                                       *019 LM00021    
                                                                                                       LM00022    
                  VECTOR VALUES SYSTEM = $ C0056$                                                 *020 LM00023    
                  VECTOR VALUES DAEMON = $ 99999$                                                 *021 LM00024    
                  VECTOR VALUES D = $(DUMP)$                                                      *022 LM00025    
                  VECTOR VALUES T = $(TAPE)$                                                      *023 LM00026    
                  VECTOR VALUES USERF = $USER F$                                                  *024 LM00027    
                  VECTOR VALUES ILEDI = $ILE DI$                                                  *025 LM00028    
                  DIMENSION HEDER2(12)                                                            *026 LM00029    
                  PROGRAM COMMON HEDER2                                                           *027 LM00030    
                                                                                                       LM00031    
                  STATEMENT LABEL X,Y                                                             *028 LM00006    
                  BOOLEAN Z                                                                       *029 LM00007    
                                                                                                       LM00008    
                  VECTOR VALUES MESS1 = $ FILE $,0,575757575760K,0,$ IS PRIVATE$,                 *030 LM00009    
                1      777777777777K                                                              *030 LM00010    
                  VECTOR VALUES MESS2 = $ FILE $,0,575757575760K,0,                               *031 LM00011    
                1      $ ALREADY EXISTS FOR $,0,575757575760K,                                    *031 LM00012    
                2      0,777777777777K                                                            *031 LM00013    
                                                                                                       LM00014    
                  DIMENSION U(7)                                                                  *032 LM00015    
                                                                                                       LM00016    
                      DECIDE IF A FILE IS USEFUL                                                       LM00017    
                      IF THE FILE CONTAINED IN UFD ENTRY U(7)...U(1)                                   LM00018    
                      IS TO BE LOADED OR EXAMINED, TRANSFER TO 'X'                                     LM00019    
                      IF NOT, TRANSFER TO 'Y'                                                          LM00020    
                      SWITCH 'Z' CONTROLS A 'QUIET' DECISION                                           LM00021    
                                                                                                       LM00022    
                  ENTRY TO DECIDE.                                                                *033 LM00023    
                                                                                                       LM00024    
                      SHORTEN UP LINKAGE                                                               LM00025    
                                                                                                       LM00026    
                  THROUGH LOOP0, FOR I=3,1,(I.G.7)                                                *034 LM00027    
                       U(I) = V(I)                                                                *035 LM00028    
      LOOP0       CONTINUE                                                                        *036 LM00029    
                                                                                                       LM00030    
                      MAKE QUICK TEST                                                                  LM00031    
                                                                                                       LM00032    
                  WHENEVER (LINDEX.GE.LODLIM).OR.((LRCT.RS.18).NE.1)                              *037 LM00033    
                1      .OR.((U(7).E.0).AND.(U(6).E.0)), TRANSFER TO Y                             *037 LM00034    
                                                                                                       LM00035    
                      CHECK GENERAL QUALIFICATIONS                                                     LM00036    
                                                                                                       LM00037    
                  TND = DND.A.777777K                                                             *038 LM00038    
                  THROUGH LOOP1, FOR I = 0,TSKLTH,(I .GE. AINDEX)                                 *039 LM00039    
                       WHENEVER TABLE(I+2).E.0, TRANSFER TO LOOP1                                 *040 LM00040    
                       WHENEVER (TABLE(I).NE.PB).OR.(TABLE(I+1).NE.PG).OR.                        *041 LM00041    
                1           ((U(7).NE.USERF).AND.(TABLE(I+4).NE.FENCE).AND.                       *041 LM00042    
                2           (TABLE(I+4).NE.U(7))).OR.((U(6).NE.ILEDI).AND.                        *041 LM00043    
                3           (TABLE(I+5).NE.FENCE).AND.(TABLE(I+5).NE.U(6)))                       *041 LM00044    
                4           .OR.((UNIT+1).NE.TABLE(I+9))                                          *041 LM00045    
                            TRANSFER TO LOOP1                                                     *042 LM00046    
                       OR WHENEVER (TABLE(I+7).NE.0)                                              *043 LM00047    
                            WHENEVER (TABLE(I+8).E.0).OR.(TABLE(I+8).E.FENCE)                     *044 LM00048    
                                 WHENEVER ((TND.G.TABLE(I+7)).OR.                                 *045 LM00049    
                1                (TABLE(I+7)-TND).L.TFUDG)                                        *045 LM00050    
                                      TRANSFER TO FIND                                            *046 LM00051    
                                 OTHERWISE                                                        *047 LM00052    
                                      TRANSFER TO LOOP1                                           *048 LM00053    
                                 END OF CONDITIONAL                                               *049 LM00054    
                            OTHERWISE                                                             *050 LM00055    
                                 WHENEVER ((TND.G.TABLE(I+7)).OR.                                 *051 LM00056    
                1                ((TABLE(I+7)-TND).L.TFUDG)).AND.                                 *051 LM00057    
                2                ((TND.L.TABLE(I+8)).OR.                                          *051 LM00058    
                3                ((TND-TABLE(I+8)).L.TFUDG))                                      *051 LM00059    
                                      TRANSFER TO FIND                                            *052 LM00060    
                                 OTHERWISE                                                        *053 LM00061    
                                      TRANSFER TO LOOP1                                           *054 LM00062    
                                 END OF CONDITIONAL                                               *055 LM00063    
                            END OF CONDITIONAL                                                    *056 LM00064    
                       OTHERWISE                                                                  *057 LM00065    
                            WHENEVER (TABLE(I+8).E.0)                                             *058 LM00066    
                                 TRANSFER TO FIND                                                 *059 LM00067    
                            OR WHENEVER (TABLE(I+8).E.FENCE)                                      *060 LM00068    
                                 TRANSFER TO FIND                                                 *061 LM00069    
                            OR WHENEVER ((TND.L.TABLE(I+8)).OR.                                   *062 LM00070    
                1                ((TND-TABLE(I+8)).L.TFUDG))                                      *062 LM00071    
                                 TRANSFER TO FIND                                                 *063 LM00072    
                            END OF CONDITIONAL                                                    *064 LM00073    
                       END OF CONDITIONAL                                                         *065 LM00074    
                       TRANSFER TO LOOP1                                                          *066 LM00075    
                                                                                                       LM00076    
                      FOUND ONE, CHECK  FOR PRIVATE MODE, ETC.                                         LM00077    
                                                                                                       LM00078    
      FIND             DEVICE = (U(3).RS.15).A.7K                                                 *067 LM00079    
                       MODE = (U(3).RS.28)                                                        *068 LM00080    
                                                                                                       LM00081    
                      SKIP MODE TEST IF LINKED FILE                                                    LM00082    
                                                                                                       LM00083    
                       WHENEVER (DEVICE .E. 0)                                                    *069 LM00084    
                            TRANSFER TO TEST                                                      *070 LM00085    
                       OR WHENEVER ((MODE.A.020K).NE.0).AND.                                      *071 LM00086    
                1      ((U(4).A.777777K).NE.BCDEC.(TABLE(I+3))).AND.(PRIV.E.2)                    *071 LM00087    
                            MESS1(1) = U(7)                                                       *072 LM00088    
                            MESS1(3) = U(6)                                                       *073 LM00089    
                            PRNTP.(MESS1)                                                         *074 LM00090    
                            MAIL.(TABLE(I+2),TABLE(I+3),MESS1,1B)                                 *075 LM00091    
      TOOBAD                WHENEVER (TABLE(I+4).NE.FENCE).AND.                                   *076 LM00092    
                1                (TABLE(I+5).NE.FENCE), TABLE(I+2) = 0                            *076 LM00093    
                            TRANSFER TO LOOP1                                                     *077 LM00094    
                       OTHERWISE                                                                  *078 LM00095    
                                                                                                       LM00096    
                      CHECK FOR FILE ALREADY EXISTING                                                  LM00097    
                                                                                                       LM00098    
      TEST                  ATTACH.(TABLE(I+2),TABLE(I+3),ERR1)                                   *079 LM00099    
                            FSTATE.(U(7),U(6),DRAIN(2)...2,ABSENT,ERCODE)                         *080 LM00100    
                                                                                                       LM00101    
                      FILE EXISTS, CHECK FOR ''REMOVED'' FILE                                          LM00102    
                                                                                                       LM00103    
                            WHENEVER ((DRAIN(1).A.202K).NE.0), TRANSFER TO NOFILE                 *081 LM00104    
                            TRANSFER TO EXISTS                                                    *082 LM00105    
                                                                                                       LM00106    
                      ERROR RETURN FROM FSTATE, CHECK IT                                               LM00107    
                                                                                                       LM00108    
      ABSENT                WHENEVER (ERCODE.NE.4).AND.(ERCODE.NE.5),                             *083 LM00109    
                1                TRANSFER TO NOFILE                                               *083 LM00110    
                                                                                                       LM00111    
                      FILE ALREADY EXISTS, INVESTIGATE                                                 LM00112    
                                                                                                       LM00113    
      EXISTS                WHENEVER (TABLE(I+10).E.0)                                            *084 LM00114    
                               WHENEVER Z                                                         *085 LM00115    
      NASTY                      MESS2(1) = U(7)                                                  *086 LM00116    
                                 MESS2(3) = U(6)                                                  *087 LM00117    
                                 MESS2(8) = TABLE(I+2)                                            *088 LM00118    
                                 MESS2(10) = TABLE(I+3)                                           *089 LM00119    
                                      PRNTP.(MESS2)                                               *090 LM00120    
                                      MAIL.(TABLE(I+2),TABLE(I+3),MESS2,1B)                       *091 LM00121    
                                 END OF CONDITIONAL                                               *092 LM00122    
                                 TRANSFER TO TOOBAD                                               *093 LM00123    
                            END OF CONDITIONAL                                                    *094 LM00124    
                                                                                                       LM00125    
                      EXISTS, BUT WE DID IT (MAYBE)                                                    LM00126    
                                                                                                       LM00127    
                            THROUGH LOOPT, FOR J=0,4,J.GE.LINDEX                                  *095 LM00128    
                                 WHENEVER (LODTAB(J).E.I).AND.(LODTAB(J+1).E.U(7))                *096 LM00129    
                1                .AND.(LODTAB(J+2).E.U(6)), TRANSFER TO US                        *096 LM00130    
      LOOPT                 CONTINUE                                                              *097 LM00131    
                            TRANSFER TO NASTY                                                     *098 LM00132    
                                                                                                       LM00133    
                      WE'VE LOADED THIS ONE, ARE MORE NEEDED                                           LM00134    
                                                                                                       LM00135    
      US                    WHENEVER TABLE(I+8) .E. FENCE                                         *099 LM00136    
                                 TRANSFER TO NOFILE                                               *100 LM00137    
                            OTHERWISE                                                             *101 LM00138    
                                 TRANSFER TO LOOP1                                                *102 LM00139    
                            END OF CONDITIONAL                                                    *103 LM00140    
                       END OF CONDITIONAL                                                         *104 LM00141    
                                                                                                       LM00142    
                      EVERYTHING OK, SET UP RECEIVING DIRECTORY                                        LM00143    
                      DON'T RESET PB,PG ON UFD FILES                                                   LM00144    
                                                                                                       LM00145    
      NOFILE           WHENEVER (HEADER(7).NE.USERF).OR.(HEADER(6).NE.ILEDI)                      *105 LM00146    
                            PB = TABLE(I+2)                                                       *106 LM00147    
                            PG = TABLE(I+3)                                                       *107 LM00148    
                       END OF CONDITIONAL                                                         *108 LM00149    
                       CURPTR = I                                                                 *109 LM00150    
                       TRANSFER TO X                                                              *110 LM00151    
                                                                                                       LM00152    
      ERR1             PRNTER.                                                                    *111 LM00153    
                                                                                                       LM00154    
      LOOP1       CONTINUE                                                                        *112 LM00155    
                                                                                                       LM00156    
                  TRANSFER TO Y                                                                   *113 LM00157    
                                                                                                       LM00158    
                  END OF FUNCTION                                                                 *114 LM00159    
1MAD PROGRAM,TYPE NOV 1963      (ALL NUMBERS ARE OCTAL)     
0TOTAL LOCATIONS   01003 TRANSFER VECTOR LENGTH  00007 PROGRAM BEGINS    00104 FIRST UNUSED COMMON/ERASABLE  67621
0 PROGRAM IS AN EXTERNAL FUNCTION.   THE FOLLOWING ARE ENTRIES    
      DECIDE 00105   0                                                                                                  
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)  
      ABSENT 00010   4        ERCODE 00023   1        LINDEX 67644  C1        MZE    67660 AC1        TFUDG  67657 AC1  
      AINDEX 67664  C1        ERR1   00011   4        LODLIM 67643 AC1        NASTY  00015   4        TND    00052   1  
      AUTHOR 67645  C1        EXISTS 00012   4        LODTAB 73605 AC1        NOFILE 00016   4        TOOBAD 00020   4  
      BUFF1  76255 AC1        FENCE  67656 AC1        LOOP0  00007   4        PB     74477  C1        T      67661 AC1  
      BUFF2  75374 AC1        FIND   00013   4        LOOP1  00014   4        PG     74500  C1        TSKLTH 67637 AC1  
      BUFF   77136 AC1        HEADER 74513 AC1        LOOPT  00007   4        PRIV   67653  C1        UFD    73615 AC1  
      CURPTR 67646  C1        HEDER2 67636 AC1        LPREAM 67651 AC1        REELNO 67640  C1        UNIT   67663  C1  
      DAEMON 67641 AC1        HPROB  67650  C1        LRCT   74512  C1        SYSTEM 67642 AC1        U      00062 A 1  
      DEVICE 00022   1        HPROG  67647  C1        MESS1  00034 A 1        TABLE  77461 AC1        USERF  67655 AC1  
      DND    74503  C1        ILEDI  67654 AC1        MESS2  00050 A 1        TABLIM 67652 AC1        US     00021   4  
      DRAIN  74476 AC1        I      00024   1        MODE   00051   1        TEST   00017   4        WC     74511  C1  
      D      67662 AC1        J      00025   1                                                                          
0FUNCTION DICTIONARY    
      ATTACH 00000   1        BCDEC  00001   1        EXIT   00002   1        FSTATE 00003   1        MAIL   00004   1  
      PRNTER 00005   1        PRNTP  00006   1                                                                          
0ABSOLUTE CONSTANTS     
 00074 +000000000012     00101 +000000000202     00076 +000000000020     00100 +000000000034     00075 +000000000017    
 00072 +000000000010     00067 +000000000004     00070 +000000000005     00073 +000000000011     00065 +000000000002    
 00102 +000000777777     00077 +000000000022     00063 +000000000000     00071 +000000000007     00066 +000000000003    
 00064 +000000000001     00103 +233000000000                                                                            
0STATEMENT DICTIONARY   
 00010 TXL -300611000602       00011 TXL -300753000752       00012 TXL -300617000611       00013 TXL -300435000427      
 00014 TXL -300754000753       00015 TXL -300623000621       00016 TXL -300735000727       00017 TXL -300564000546      
 00020 TXL -300544000523       00021 TXL -300724000716                                                                  
0PROGRAM    
                 EXTERNAL FUNCTION (V,X,Y,Z)                                        001  LM00004
                 I'E COM                                                            002  LM00005
                 N'R                                                                003  LM00002
                 B'N SWT.                                                           004  LM00003
                 D'N TABLE(210),BUFF(432),BUFF1(432),BUFF2(432)                     005  LM00005
                 D'N HEADER(12),UFD(7),DRAIN(432),LODTAB(2000)                      006  LM00006
                 E'E (PB,HEADER(12)),(PG,HEADER(11)),(DND,HEADER(8)),               007  LM00007
                1     (WC,HEADER(2)),(LRCT,HEADER(1))                               007  LM00008
                 P'N TABLE,BUFF,BUFF1,BUFF2                                         008  LM00009
                 P'N HEADER,DRAIN,UFD,LODTAB                                        009  LM00010
                 P'N AINDEX,UNIT,D,T,MZE,TFUDG,FENCE,USERF,ILEDI,PRIV               010  LM00011
                 P'N TABLIM,LPREAM,HPROB,HPROG,CURPTR,AUTHOR,LINDEX                 011  LM00012
                 P'N LODLIM,SYSTEM,DAEMON,REELNO,TSKLTH                             012  LM00013
                 V'S FENCE = 777777777777K                                          013  LM00015
 67656     -3 77777 7 77777                                                                                             
                 V'S MZE = 4K11                                                     014  LM00016
 67660     -0 00000 0 00000                                                                                             
                 V'S TFUDG = 1800                                                   015  LM00017
 67657     +0 00000 0 03410                                                                                             
                 V'S TABLIM = 200                                                   016  LM00018
 67652     +0 00000 0 00310                                                                                             
                 V'S LODLIM = 2000                                                  017  LM00019
 67643     +0 00000 0 03720                                                                                             
                 V'S LPREAM = 12                                                    018  LM00020
 67651     +0 00000 0 00014                                                                                             
                 V'S TSKLTH = 11                                                    019  LM00021
 67637     +0 00000 0 00013                                                                                             
                 V'S SYSTEM = $ C0056$                                              020  LM00023
 67642     -2 02300 0 00506                                                                                             
                 V'S DAEMON = $ 99999$                                              021  LM00024
 67641     -2 01111 1 11111                                                                                             
                 V'S D = $(DUMP)$                                                   022  LM00025
 67662     -3 42464 4 44734                                                                                             
                 V'S T = $(TAPE)$                                                   023  LM00026
 67661     -3 46321 4 72534                                                                                             
                 V'S USERF = $USER F$                                               024  LM00027
 67655     -2 46225 5 16026                                                                                             
                 V'S ILEDI = $ILE DI$                                               025  LM00028
 67654     +3 14325 6 02431                                                                                             
                 DIMENSION HEDER2(12)                                               026  LM00029
                 P'N HEDER2                                                         027  LM00030
                 S'L X,Y                                                            028  LM00006
                 B'N Z                                                              029  LM00007
                 V'S MESS1 = $ FILE $,0,575757575760K,0,$ IS PRIVATE$,              030  LM00009
                1     777777777777K                                                 030  LM00010
 00026     -3 77777 7 77777    00027     +3 16521 6 32560    00030     -2 03162 6 04751    00031     +0 00000 0 00000   
 00032     -1 75757 5 75760    00033     +0 00000 0 00000    00034     -2 02631 4 32560                                 
                 V'S MESS2 = $ FILE $,0,575757575760K,0,                            031  LM00011
                1     $ ALREADY EXISTS FOR $,0,575757575760K,                       031  LM00012
                2     0,777777777777K                                               031  LM00013
 00035     -3 77777 7 77777    00036     +0 00000 0 00000    00037     -1 75757 5 75760    00040     +0 00000 0 00000   
 00041     -1 16060 6 06060    00042     -2 26362 6 02646    00043     +2 47060 2 56731    00044     -2 02143 5 12521   
 00045     +0 00000 0 00000    00046     -1 75757 5 75760    00047     +0 00000 0 00000    00050     -2 02631 4 32560   
                 D'N U(7)                                                           032  LM00015
                 E'O DECIDE.                                                        033  LM00023
 00104 TRA +0 02000 0 00107    00105 SXA +0 63400 2 00756    00106 TSX +0 07400 2 00756                                 
                 T'H LOOP0, FOR I=3,1,(I.G.7)                                       034  LM00027
 00107 CLA +0 50000 0 00066    00110 STO +0 60100 0 00024    00111 TRA +0 02000 0 00115    00112 CLA +0 50000 0 00024   
 00113 ADD +0 40000 0 00064    00114 STO +0 60100 0 00024    00115 CLA +0 50000 0 00024    00116 SUB +0 40200 0 00071   
 00117 TZE +0 10000 0 00121    00120 TPL +0 12000 0 00126                                                               
                      U(I) = V(I)                                                   035  LM00028
 00121 LXA +0 53400 1 00024    00122 LXA +0 53400 2 00024    00123 CLA +0 50000 2 00000    00124 STO +0 60100 1 00062   
      LOOP0      C'E                                                                036  LM00029
 00125 TRA +0 02000 0 00112                                                                                             
                 W'R (LINDEX.GE.LODLIM).OR.((LRCT.RS.18).NE.1)                      037  LM00033
                1     .OR.((U(7).E.0).AND.(U(6).E.0)), T'O Y                        037  LM00034
 00126 CLA +0 50000 0 00054    00127 SUB +0 40200 0 00063    00130 TNZ -0 10000 0 00134    00131 CLA +0 50000 0 00053   
 00132 SUB +0 40200 0 00063    00133 TZE +0 10000 0 00150    00134 CAL -0 50000 0 00077    00135 STA +0 62100 0 00137   
 00136 CAL -0 50000 0 74512    00137 LGR -0 76500 0 00000    00140 SLW +0 60200 0 00777    00141 CLA +0 50000 0 00777   
 00142 SUB +0 40200 0 00064    00143 TNZ -0 10000 0 00150    00144 CLA +0 50000 0 67644    00145 SUB +0 40200 0 67643   
 00146 TZE +0 10000 0 00150    00147 TMI -0 12000 0 00151    00150 TRA +0 02000 0 00000                                 
                 TND = DND.A.777777K                                                038  LM00038
 00151 CAL -0 50000 0 74503    00152 ANA -0 32000 0 00102    00153 SLW +0 60200 0 00052                                 
                 T'H LOOP1, FOR I = 0,TSKLTH,(I .GE. AINDEX)                        039  LM00039
 00154 CLA +0 50000 0 00063    00155 STO +0 60100 0 00024    00156 TRA +0 02000 0 00162    00157 CLA +0 50000 0 00024   
 00160 ADD +0 40000 0 67637    00161 STO +0 60100 0 00024    00162 CLA +0 50000 0 00024    00163 SUB +0 40200 0 67664   
 00164 TZE +0 10000 0 00754    00165 TPL +0 12000 0 00754                                                               
                      W'R TABLE(I+2).E.0, T'O LOOP1                                 040  LM00040
 00166 CLA +0 50000 0 00024    00167 ADD +0 40000 0 00065    00170 PAX +0 73400 1 00000    00171 CLA +0 50000 1 77461   
 00172 SUB +0 40200 0 00063    00173 TNZ -0 10000 0 00175    00174 TRA +0 02000 0 00014                                 
                      W'R (TABLE(I).NE.PB).OR.(TABLE(I+1).NE.PG).OR.                041  LM00041
                1          ((U(7).NE.USERF).AND.(TABLE(I+4).NE.FENCE).AND.          041  LM00042
                2          (TABLE(I+4).NE.U(7))).OR.((U(6).NE.ILEDI).AND.           041  LM00043
                3          (TABLE(I+5).NE.FENCE).AND.(TABLE(I+5).NE.U(6)))          041  LM00044
                4          .OR.((UNIT+1).NE.TABLE(I+9))                             041  LM00045
 00175 CLA +0 50000 0 00024    00176 ADD +0 40000 0 00073    00177 STO +0 60100 0 00777    00200 CLA +0 50000 0 67663   
 00201 ADD +0 40000 0 00064    00202 LXA +0 53400 2 00777    00203 SUB +0 40200 2 77461    00204 TNZ -0 10000 0 00255   
 00205 CLA +0 50000 0 00024    00206 ADD +0 40000 0 00070    00207 PAX +0 73400 1 00000    00210 CLA +0 50000 1 77461   
 00211 SUB +0 40200 0 00054    00212 TZE +0 10000 0 00224    00213 CLA +0 50000 0 00024    00214 ADD +0 40000 0 00070   
 00215 PAX +0 73400 1 00000    00216 CLA +0 50000 1 77461    00217 SUB +0 40200 0 67656    00220 TZE +0 10000 0 00224   
 00221 CLA +0 50000 0 00054    00222 SUB +0 40200 0 67654    00223 TNZ -0 10000 0 00255    00224 CLA +0 50000 0 00024   
 00225 ADD +0 40000 0 00067    00226 PAX +0 73400 1 00000    00227 CLA +0 50000 1 77461    00230 SUB +0 40200 0 00053   
 00231 TZE +0 10000 0 00243    00232 CLA +0 50000 0 00024    00233 ADD +0 40000 0 00067    00234 PAX +0 73400 1 00000   
 00235 CLA +0 50000 1 77461    00236 SUB +0 40200 0 67656    00237 TZE +0 10000 0 00243    00240 CLA +0 50000 0 00053   
 00241 SUB +0 40200 0 67655    00242 TNZ -0 10000 0 00255    00243 CLA +0 50000 0 00024    00244 ADD +0 40000 0 00064   
 00245 PAX +0 73400 1 00000    00246 CLA +0 50000 1 77461    00247 SUB +0 40200 0 74500    00250 TNZ -0 10000 0 00255   
 00251 LXA +0 53400 1 00024    00252 CLA +0 50000 1 77461    00253 SUB +0 40200 0 74477    00254 TZE +0 10000 0 00257   
                           T'O LOOP1                                                042  LM00046
 00255 TRA +0 02000 0 00014                                                                                             
                      O'R (TABLE(I+7).NE.0)                                         043  LM00047
 00256 TRA +0 02000 0 00426    00257 CLA +0 50000 0 00024    00260 ADD +0 40000 0 00071    00261 PAX +0 73400 1 00000   
 00262 CLA +0 50000 1 77461    00263 SUB +0 40200 0 00063    00264 TZE +0 10000 0 00366                                 
                           W'R (TABLE(I+8).E.0).OR.(TABLE(I+8).E.FENCE)             044  LM00048
 00265 CLA +0 50000 0 00024    00266 ADD +0 40000 0 00072    00267 PAX +0 73400 1 00000    00270 CLA +0 50000 1 77461   
 00271 SUB +0 40200 0 67656    00272 TZE +0 10000 0 00301    00273 CLA +0 50000 0 00024    00274 ADD +0 40000 0 00072   
 00275 PAX +0 73400 1 00000    00276 CLA +0 50000 1 77461    00277 SUB +0 40200 0 00063    00300 TNZ -0 10000 0 00324   
                                W'R ((TND.G.TABLE(I+7)).OR.                         045  LM00049
                1               (TABLE(I+7)-TND).L.TFUDG)                           045  LM00050
 00301 CLA +0 50000 0 00024    00302 ADD +0 40000 0 00071    00303 PAX +0 73400 1 00000    00304 CLA +0 50000 1 77461   
 00305 SUB +0 40200 0 00052    00306 SUB +0 40200 0 67657    00307 TZE +0 10000 0 00311    00310 TMI -0 12000 0 00320   
 00311 CLA +0 50000 0 00024    00312 ADD +0 40000 0 00071    00313 PAX +0 73400 2 00000    00314 CLA +0 50000 0 00052   
 00315 SUB +0 40200 2 77461    00316 TZE +0 10000 0 00322    00317 TMI -0 12000 0 00322                                 
                                     T'O FIND                                       046  LM00051
 00320 TRA +0 02000 0 00013                                                                                             
                                O'E                                                 047  LM00052
 00321 TRA +0 02000 0 00323                                                                                             
                                     T'O LOOP1                                      048  LM00053
 00322 TRA +0 02000 0 00014                                                                                             
                                E'L                                                 049  LM00054
                           O'E                                                      050  LM00055
 00323 TRA +0 02000 0 00365                                                                                             
                                W'R ((TND.G.TABLE(I+7)).OR.                         051  LM00056
                1               ((TABLE(I+7)-TND).L.TFUDG)).AND.                    051  LM00057
                2               ((TND.L.TABLE(I+8)).OR.                             051  LM00058
                3               ((TND-TABLE(I+8)).L.TFUDG))                         051  LM00059
 00324 CLA +0 50000 0 00024    00325 ADD +0 40000 0 00072    00326 PAX +0 73400 2 00000    00327 CLA +0 50000 0 00052   
 00330 SUB +0 40200 2 77461    00331 SUB +0 40200 0 67657    00332 TZE +0 10000 0 00334    00333 TMI -0 12000 0 00343   
 00334 CLA +0 50000 0 00024    00335 ADD +0 40000 0 00072    00336 PAX +0 73400 2 00000    00337 CLA +0 50000 0 00052   
 00340 SUB +0 40200 2 77461    00341 TZE +0 10000 0 00364    00342 TPL +0 12000 0 00364    00343 CLA +0 50000 0 00024   
 00344 ADD +0 40000 0 00071    00345 PAX +0 73400 1 00000    00346 CLA +0 50000 1 77461    00347 SUB +0 40200 0 00052   
 00350 SUB +0 40200 0 67657    00351 TZE +0 10000 0 00353    00352 TMI -0 12000 0 00362    00353 CLA +0 50000 0 00024   
 00354 ADD +0 40000 0 00071    00355 PAX +0 73400 2 00000    00356 CLA +0 50000 0 00052    00357 SUB +0 40200 2 77461   
 00360 TZE +0 10000 0 00364    00361 TMI -0 12000 0 00364                                                               
                                     T'O FIND                                       052  LM00060
 00362 TRA +0 02000 0 00013                                                                                             
                                O'E                                                 053  LM00061
 00363 TRA +0 02000 0 00365                                                                                             
                                     T'O LOOP1                                      054  LM00062
 00364 TRA +0 02000 0 00014                                                                                             
                                E'L                                                 055  LM00063
                           E'L                                                      056  LM00064
                      O'E                                                           057  LM00065
 00365 TRA +0 02000 0 00426                                                                                             
                           W'R (TABLE(I+8).E.0)                                     058  LM00066
 00366 CLA +0 50000 0 00024    00367 ADD +0 40000 0 00072    00370 PAX +0 73400 1 00000    00371 CLA +0 50000 1 77461   
 00372 SUB +0 40200 0 00063    00373 TNZ -0 10000 0 00376                                                               
                                T'O FIND                                            059  LM00067
 00374 TRA +0 02000 0 00013                                                                                             
                           O'R (TABLE(I+8).E.FENCE)                                 060  LM00068
 00375 TRA +0 02000 0 00426    00376 CLA +0 50000 0 00024    00377 ADD +0 40000 0 00072    00400 PAX +0 73400 1 00000   
 00401 CLA +0 50000 1 77461    00402 SUB +0 40200 0 67656    00403 TNZ -0 10000 0 00406                                 
                                T'O FIND                                            061  LM00069
 00404 TRA +0 02000 0 00013                                                                                             
                           O'R ((TND.L.TABLE(I+8)).OR.                              062  LM00070
                1               ((TND-TABLE(I+8)).L.TFUDG))                         062  LM00071
 00405 TRA +0 02000 0 00426    00406 CLA +0 50000 0 00024    00407 ADD +0 40000 0 00072    00410 PAX +0 73400 2 00000   
 00411 CLA +0 50000 0 00052    00412 SUB +0 40200 2 77461    00413 SUB +0 40200 0 67657    00414 TZE +0 10000 0 00416   
 00415 TMI -0 12000 0 00425    00416 CLA +0 50000 0 00024    00417 ADD +0 40000 0 00072    00420 PAX +0 73400 2 00000   
 00421 CLA +0 50000 0 00052    00422 SUB +0 40200 2 77461    00423 TZE +0 10000 0 00426    00424 TPL +0 12000 0 00426   
                                T'O FIND                                            063  LM00072
 00425 TRA +0 02000 0 00013                                                                                             
                           E'L                                                      064  LM00073
                      E'L                                                           065  LM00074
                      T'O LOOP1                                                     066  LM00075
 00426 TRA +0 02000 0 00014                                                                                             
      FIND            DEVICE = (U(3).RS.15).A.7K                                    067  LM00079
 00427 CAL -0 50000 0 00075    00430 STA +0 62100 0 00432    00431 CAL -0 50000 0 00057    00432 LGR -0 76500 0 00000   
 00433 ANA -0 32000 0 00071    00434 SLW +0 60200 0 00022                                                               
                      MODE = (U(3).RS.28)                                           068  LM00080
 00435 CAL -0 50000 0 00100    00436 STA +0 62100 0 00440    00437 CAL -0 50000 0 00057    00440 LGR -0 76500 0 00000   
 00441 SLW +0 60200 0 00051                                                                                             
                      W'R (DEVICE .E. 0)                                            069  LM00084
 00442 CLA +0 50000 0 00022    00443 SUB +0 40200 0 00063    00444 TNZ -0 10000 0 00447                                 
                           T'O TEST                                                 070  LM00085
 00445 TRA +0 02000 0 00017                                                                                             
                      O'R ((MODE.A.020K).NE.0).AND.                                 071  LM00086
                1     ((U(4).A.777777K).NE.BCDEC.(TABLE(I+3))).AND.(PRIV.E.2)       071  LM00087
 00446 TRA +0 02000 0 00727    00447 CLA +0 50000 0 67653    00450 SUB +0 40200 0 00065    00451 TNZ -0 10000 0 00546   
 00452 CLA +0 50000 0 00024    00453 ADD +0 40000 0 00066    00454 SUB +0 40200 0 00455    00455 TXH +3 00000 0 77461   
 00456 STA +0 62100 0 00460    00457 TSX +0 07400 4 00001    00460 TXH +3 00000 0 00000    00461 STO +0 60100 0 00777   
 00462 CAL -0 50000 0 00056    00463 ANA -0 32000 0 00102    00464 SLW +0 60200 0 01000    00465 CLA +0 50000 0 01000   
 00466 SUB +0 40200 0 00777    00467 TZE +0 10000 0 00546    00470 CAL -0 50000 0 00051    00471 ANA -0 32000 0 00076   
 00472 SLW +0 60200 0 01000    00473 CLA +0 50000 0 01000    00474 SUB +0 40200 0 00063    00475 TZE +0 10000 0 00546   
                           MESS1(1) = U(7)                                          072  LM00088
 00476 CLA +0 50000 0 00053    00477 STO +0 60100 0 00033                                                               
                           MESS1(3) = U(6)                                          073  LM00089
 00500 CLA +0 50000 0 00054    00501 STO +0 60100 0 00031                                                               
                           PRNTP.(MESS1)                                            074  LM00090
 00502 TSX +0 07400 4 00006    00503 TXH +3 00000 0 00034                                                               
                           MAIL.(TABLE(I+2),TABLE(I+3),MESS1,1B)                    075  LM00091
 00504 CLA +0 50000 0 00024    00505 ADD +0 40000 0 00066    00506 SUB +0 40200 0 00507    00507 TXH +3 00000 0 77461   
 00510 STA +0 62100 0 00520    00511 CLA +0 50000 0 00024    00512 ADD +0 40000 0 00065    00513 SUB +0 40200 0 00514   
 00514 TXH +3 00000 0 77461    00515 STA +0 62100 0 00517    00516 TSX +0 07400 4 00004    00517 TXH +3 00000 0 00000   
 00520 TXH +3 00000 0 00000    00521 TXH +3 00000 0 00034    00522 TXH +3 00000 0 00064                                 
      TOOBAD               W'R (TABLE(I+4).NE.FENCE).AND.                           076  LM00092
                1               (TABLE(I+5).NE.FENCE), TABLE(I+2) = 0               076  LM00093
 00523 CLA +0 50000 0 00024    00524 ADD +0 40000 0 00070    00525 PAX +0 73400 1 00000    00526 CLA +0 50000 1 77461   
 00527 SUB +0 40200 0 67656    00530 TZE +0 10000 0 00544    00531 CLA +0 50000 0 00024    00532 ADD +0 40000 0 00067   
 00533 PAX +0 73400 1 00000    00534 CLA +0 50000 1 77461    00535 SUB +0 40200 0 67656    00536 TZE +0 10000 0 00544   
 00537 CLA +0 50000 0 00024    00540 ADD +0 40000 0 00065    00541 PAX +0 73400 1 00000    00542 CLA +0 50000 0 00063   
 00543 STO +0 60100 1 77461                                                                                             
                           T'O LOOP1                                                077  LM00094
 00544 TRA +0 02000 0 00014                                                                                             
                      O'E                                                           078  LM00095
 00545 TRA +0 02000 0 00727                                                                                             
      TEST                 ATTACH.(TABLE(I+2),TABLE(I+3),ERR1)                      079  LM00099
 00546 CLA +0 50000 0 00024    00547 ADD +0 40000 0 00066    00550 SUB +0 40200 0 00551    00551 TXH +3 00000 0 77461   
 00552 STA +0 62100 0 00562    00553 CLA +0 50000 0 00024    00554 ADD +0 40000 0 00065    00555 SUB +0 40200 0 00556   
 00556 TXH +3 00000 0 77461    00557 STA +0 62100 0 00561    00560 TSX +0 07400 4 00000    00561 TXH +3 00000 0 00000   
 00562 TXH +3 00000 0 00000    00563 TXH +3 00000 0 00011                                                               
                           FSTATE.(U(7),U(6),DRAIN(2)...2,ABSENT,ERCODE)            080  LM00100
 00564 TSX +0 07400 4 00003    00565 TXH +3 00000 0 00053    00566 TXH +3 00000 0 00054    00567 TIX +2 00065 0 74474   
 00570 TXH +3 00000 0 00010    00571 TXH +3 00000 0 00023                                                               
                           W'R ((DRAIN(1).A.202K).NE.0), T'O NOFILE                 081  LM00104
 00572 CAL -0 50000 0 74475    00573 ANA -0 32000 0 00101    00574 SLW +0 60200 0 01000    00575 CLA +0 50000 0 01000   
 00576 SUB +0 40200 0 00063    00577 TZE +0 10000 0 00601    00600 TRA +0 02000 0 00016                                 
                           T'O EXISTS                                               082  LM00105
 00601 TRA +0 02000 0 00012                                                                                             
      ABSENT               W'R (ERCODE.NE.4).AND.(ERCODE.NE.5),                     083  LM00109
                1               T'O NOFILE                                          083  LM00110
 00602 CLA +0 50000 0 00023    00603 SUB +0 40200 0 00070    00604 TZE +0 10000 0 00611    00605 CLA +0 50000 0 00023   
 00606 SUB +0 40200 0 00067    00607 TZE +0 10000 0 00611    00610 TRA +0 02000 0 00016                                 
      EXISTS               W'R (TABLE(I+10).E.0)                                    084  LM00114
 00611 CLA +0 50000 0 00024    00612 ADD +0 40000 0 00074    00613 PAX +0 73400 1 00000    00614 CLA +0 50000 1 77461   
 00615 SUB +0 40200 0 00063    00616 TNZ -0 10000 0 00661                                                               
                              W'R Z                                                 085  LM00115
 00617 NZT -0 52000 0 00000    00620 TRA +0 02000 0 00660                                                               
      NASTY                     MESS2(1) = U(7)                                     086  LM00116
 00621 CLA +0 50000 0 00053    00622 STO +0 60100 0 00047                                                               
                                MESS2(3) = U(6)                                     087  LM00117
 00623 CLA +0 50000 0 00054    00624 STO +0 60100 0 00045                                                               
                                MESS2(8) = TABLE(I+2)                               088  LM00118
 00625 CLA +0 50000 0 00024    00626 ADD +0 40000 0 00065    00627 PAX +0 73400 2 00000    00630 CLA +0 50000 2 77461   
 00631 STO +0 60100 0 00040                                                                                             
                                MESS2(10) = TABLE(I+3)                              089  LM00119
 00632 CLA +0 50000 0 00024    00633 ADD +0 40000 0 00066    00634 PAX +0 73400 2 00000    00635 CLA +0 50000 2 77461   
 00636 STO +0 60100 0 00036                                                                                             
                                     PRNTP.(MESS2)                                  090  LM00120
 00637 TSX +0 07400 4 00006    00640 TXH +3 00000 0 00050                                                               
                                     MAIL.(TABLE(I+2),TABLE(I+3),MESS2,1B)          091  LM00121
 00641 CLA +0 50000 0 00024    00642 ADD +0 40000 0 00066    00643 SUB +0 40200 0 00644    00644 TXH +3 00000 0 77461   
 00645 STA +0 62100 0 00655    00646 CLA +0 50000 0 00024    00647 ADD +0 40000 0 00065    00650 SUB +0 40200 0 00651   
 00651 TXH +3 00000 0 77461    00652 STA +0 62100 0 00654    00653 TSX +0 07400 4 00004    00654 TXH +3 00000 0 00000   
 00655 TXH +3 00000 0 00000    00656 TXH +3 00000 0 00050    00657 TXH +3 00000 0 00064                                 
                                E'L                                                 092  LM00122
                                T'O TOOBAD                                          093  LM00123
 00660 TRA +0 02000 0 00020                                                                                             
                           E'L                                                      094  LM00124
                           T'H LOOPT, FOR J=0,4,J.GE.LINDEX                         095  LM00128
 00661 CLA +0 50000 0 00063    00662 STO +0 60100 0 00025    00663 TRA +0 02000 0 00667    00664 CLA +0 50000 0 00025   
 00665 ADD +0 40000 0 00067    00666 STO +0 60100 0 00025    00667 CLA +0 50000 0 00025    00670 SUB +0 40200 0 67644   
 00671 TZE +0 10000 0 00715    00672 TPL +0 12000 0 00715                                                               
                                W'R (LODTAB(J).E.I).AND.(LODTAB(J+1).E.U(7))        096  LM00129
                1               .AND.(LODTAB(J+2).E.U(6)), T'O US                   096  LM00130
 00673 CLA +0 50000 0 00025    00674 ADD +0 40000 0 00065    00675 PAX +0 73400 1 00000    00676 CLA +0 50000 1 73605   
 00677 SUB +0 40200 0 00054    00700 TNZ -0 10000 0 00714    00701 CLA +0 50000 0 00025    00702 ADD +0 40000 0 00064   
 00703 PAX +0 73400 1 00000    00704 CLA +0 50000 1 73605    00705 SUB +0 40200 0 00053    00706 TNZ -0 10000 0 00714   
 00707 LXA +0 53400 1 00025    00710 CLA +0 50000 1 73605    00711 SUB +0 40200 0 00024    00712 TNZ -0 10000 0 00714   
 00713 TRA +0 02000 0 00021                                                                                             
      LOOPT                C'E                                                      097  LM00131
 00714 TRA +0 02000 0 00664                                                                                             
                           T'O NASTY                                                098  LM00132
 00715 TRA +0 02000 0 00015                                                                                             
      US                   W'R TABLE(I+8) .E. FENCE                                 099  LM00136
 00716 CLA +0 50000 0 00024    00717 ADD +0 40000 0 00072    00720 PAX +0 73400 1 00000    00721 CLA +0 50000 1 77461   
 00722 SUB +0 40200 0 67656    00723 TNZ -0 10000 0 00726                                                               
                                T'O NOFILE                                          100  LM00137
 00724 TRA +0 02000 0 00016                                                                                             
                           O'E                                                      101  LM00138
 00725 TRA +0 02000 0 00727                                                                                             
                                T'O LOOP1                                           102  LM00139
 00726 TRA +0 02000 0 00014                                                                                             
                           E'L                                                      103  LM00140
                      E'L                                                           104  LM00141
      NOFILE          W'R (HEADER(7).NE.USERF).OR.(HEADER(6).NE.ILEDI)              105  LM00146
 00727 CLA +0 50000 0 74505    00730 SUB +0 40200 0 67654    00731 TNZ -0 10000 0 00735    00732 CLA +0 50000 0 74504   
 00733 SUB +0 40200 0 67655    00734 TZE +0 10000 0 00747                                                               
                           PB = TABLE(I+2)                                          106  LM00147
 00735 CLA +0 50000 0 00024    00736 ADD +0 40000 0 00065    00737 PAX +0 73400 2 00000    00740 CLA +0 50000 2 77461   
 00741 STO +0 60100 0 74477                                                                                             
                           PG = TABLE(I+3)                                          107  LM00148
 00742 CLA +0 50000 0 00024    00743 ADD +0 40000 0 00066    00744 PAX +0 73400 2 00000    00745 CLA +0 50000 2 77461   
 00746 STO +0 60100 0 74500                                                                                             
                      E'L                                                           108  LM00149
                      CURPTR = I                                                    109  LM00150
 00747 CLA +0 50000 0 00024    00750 STO +0 60100 0 67646                                                               
                      T'O X                                                         110  LM00151
 00751 TRA +0 02000 0 00000                                                                                             
      ERR1            PRNTER.                                                       111  LM00153
 00752 TSX +0 07400 4 00005                                                                                             
      LOOP1      C'E                                                                112  LM00155
 00753 TRA +0 02000 0 00157                                                                                             
                 T'O Y                                                              113  LM00157
 00754 TRA +0 02000 0 00000                                                                                             
                 E'N                                                                114  LM00159
 00755 TSX +0 07400 4 00002    00756 TXH +3 00000 0 00000    00757 SXD -0 63400 1 00756    00760 SXA +0 63400 4 00773   
 00761 CLA +0 50000 4 00001    00762 STA +0 62100 0 00123    00763 CLA +0 50000 4 00002    00764 STA +0 62100 0 00751   
 00765 CLA +0 50000 4 00003    00766 STA +0 62100 0 00150    00767 STA +0 62100 0 00754    00770 CLA +0 50000 4 00004   
 00771 STA +0 62100 0 00617    00772 TRA +0 02000 2 00001    00773 AXT +0 77400 4 00000    00774 LXA +0 53400 2 00756   
 00775 LXD -0 53400 1 00756    00776 TRA +0 02000 4 00001                                                               




 CKUFD   BCD 04/29/67 2209.9    6886         00000    
1     MAD PROGRAM LISTING ... ... ...                 FILE   CKUFD   MAD            04/29/67    2140.2
-                 
                      SEARCH TAPE-FILE UFD FOR RETRIEVALS                                              LM00001    
                           D.R. WIDRIG  DEC. 1965                                                      LM00002    
                                                                                                       LM00003    
                  EXTERNAL FUNCTION (ERR,ERRS)                                                    *001 LM00004    
                  INSERT FILE COM                                                                 *002 LM00005    
                                                                                                  *002 LM00001    
                  NORMAL MODE IS INTEGER                                                          *003 LM00002    
                  BOOLEAN SWT.                                                                    *004 LM00003    
                                                                                                       LM00004    
                  DIMENSION TABLE(210),BUFF(432),BUFF1(432),BUFF2(432)                            *005 LM00005    
                  DIMENSION HEADER(12),UFD(7),DRAIN(432),LODTAB(2000)                             *006 LM00006    
                  EQUIVALENCE (PB,HEADER(12)),(PG,HEADER(11)),(DND,HEADER(8)),                    *007 LM00007    
                1      (WC,HEADER(2)),(LRCT,HEADER(1))                                            *007 LM00008    
                  PROGRAM COMMON TABLE,BUFF,BUFF1,BUFF2                                           *008 LM00009    
                  PROGRAM COMMON HEADER,DRAIN,UFD,LODTAB                                          *009 LM00010    
                  PROGRAM COMMON AINDEX,UNIT,D,T,MZE,TFUDG,FENCE,USERF,ILEDI,PRIV                 *010 LM00011    
                  PROGRAM COMMON TABLIM,LPREAM,HPROB,HPROG,CURPTR,AUTHOR,LINDEX                   *011 LM00012    
                  PROGRAM COMMON LODLIM,SYSTEM,DAEMON,REELNO,TSKLTH                               *012 LM00013    
                                                                                                       LM00014    
                  VECTOR VALUES FENCE = 777777777777K                                             *013 LM00015    
                  VECTOR VALUES MZE = 4K11                                                        *014 LM00016    
                  VECTOR VALUES TFUDG = 1800                                                      *015 LM00017    
                  VECTOR VALUES TABLIM = 200                                                      *016 LM00018    
                  VECTOR VALUES LODLIM = 2000                                                     *017 LM00019    
                  VECTOR VALUES LPREAM = 12                                                       *018 LM00020    
                  VECTOR VALUES TSKLTH = 11                                                       *019 LM00021    
                                                                                                       LM00022    
                  VECTOR VALUES SYSTEM = $ C0056$                                                 *020 LM00023    
                  VECTOR VALUES DAEMON = $ 99999$                                                 *021 LM00024    
                  VECTOR VALUES D = $(DUMP)$                                                      *022 LM00025    
                  VECTOR VALUES T = $(TAPE)$                                                      *023 LM00026    
                  VECTOR VALUES USERF = $USER F$                                                  *024 LM00027    
                  VECTOR VALUES ILEDI = $ILE DI$                                                  *025 LM00028    
                  DIMENSION HEDER2(12)                                                            *026 LM00029    
                  PROGRAM COMMON HEDER2                                                           *027 LM00030    
                                                                                                       LM00031    
                  STATEMENT LABEL ERR,ERRS                                                        *028 LM00006    
                                                                                                       LM00007    
                  VECTOR VALUES MESS1 = $ FILE $,0,575757575760K,0,$  FOR $,                      *029 LM00008    
                1      0,575757575760K,0,$ HAS ILLEGAL DEVICE CODE$,                              *029 LM00009    
                2      777777777777K                                                              *029 LM00010    
                  VECTOR VALUES MESS2 = $LINKED FILE $,0,575757575760K,0,$ NOT RETRIEVED$         *030 LM00011    
                1      ,777777777777K                                                             *030 LM00012    
                  VECTOR VALUES MESS3 = $TO RE-LINK FILE ... $,777777777777K                      *031 LM00013    
                  VECTOR VALUES MESS4 = $ LINK $,0,575757575760K,0,575757575760K,                 *032 LM00014    
                1      0,575757575760K,0,575757575760K,                                           *032 LM00015    
                2      0,575757575760K,0,575757575760K,777777777777K                              *032 LM00016    
                                                                                                       LM00017    
                  VECTOR VALUES NULLS = 575757575757K                                             *033 LM00018    
                                                                                                       LM00019    
                      SELECT AND MATCH UFD ENTRIES WITH RETRIEVALS                                     LM00020    
                                                                                                       LM00021    
                  ENTRY TO CKUFD.                                                                 *034 LM00022    
                                                                                                       LM00023    
                      SET UP TAPE FILE AND DRAIN OFF QUOTA WORDS                                       LM00024    
                                                                                                       LM00025    
                  STAPE.(MZE,MZE,WC)                                                              *035 LM00026    
                  RDTAPE.(DRAIN,3,MZE,EOF,DRAIN,ERR,ERRS)                                         *036 LM00027    
                                                                                                       LM00028    
                      READ ONE UFD ENTRY FROM TAPE                                                     LM00029    
                                                                                                       LM00030    
      READ        RDTAPE.(UFD,7,MZE,EOF,DRAIN,ERR,ERRS)                                           *037 LM00031    
                                                                                                       LM00032    
                      NOW SEE IF FILE IS WANTED                                                        LM00033    
                                                                                                       LM00034    
                  DECIDE.(UFD,YES,NO,0B)                                                          *038 LM00035    
      NO          TRANSFER TO READ                                                                *039 LM00036    
                                                                                                       LM00037    
                      FILE IS USEFUL, DETERMINE ACTION                                                 LM00038    
                      BY CHECKING DEVICE CODE                                                          LM00039    
                                                                                                       LM00040    
      YES         DEVICE = (UFD(3).RS.15).A.7K                                                    *040 LM00041    
                  WHENEVER (DEVICE.G.3), TRANSFER TO ILDEV                                        *041 LM00042    
                                                                                                       LM00043    
                      SET PROBNO,PROGNO EQUAL TO CONTROLLING TASK                                      LM00044    
                                                                                                       LM00045    
                  TPB = TABLE(CURPTR+2)                                                           *042 LM00046    
                  TPG = TABLE(CURPTR+3)                                                           *043 LM00047    
                  TRANSFER TO ST(DEVICE)                                                          *044 LM00048    
                                                                                                       LM00049    
                      DEVICE 0, LINKED FILE, GRIPE AND LEAVE NOTE                                      LM00050    
                                                                                                       LM00051    
      ST(0)       MESS2(2) = UFD(7)                                                               *045 LM00052    
                  MESS2(4) = UFD(6)                                                               *046 LM00053    
                  MESS4(1) = UFD(7)                                                               *047 LM00054    
                  MESS4(3) = UFD(6)                                                               *048 LM00055    
                  MESS4(5) = UFD(5)                                                               *049 LM00056    
                  MESS4(7) = UFD(4)                                                               *050 LM00057    
                  MESS4(9) = UFD(2)                                                               *051 LM00058    
                  MESS4(11) = UFD(1)                                                              *052 LM00059    
                                                                                                       LM00060    
                      TIDY UP LETTER TO USER                                                           LM00061    
                                                                                                       LM00062    
                  WHENEVER UFD(1) .NE. UFD(6), TRANSFER TO SNORT                                  *053 LM00063    
                  MESS4(11) = NULLS                                                               *054 LM00064    
                  WHENEVER UFD(2) .E. UFD(7), MESS4(9) = NULLS                                    *055 LM00065    
                                                                                                       LM00066    
                      MAKE GRIPE KNOWN TO THE WORLD                                                    LM00067    
                                                                                                       LM00068    
      SNORT       PRNTP.(MESS2)                                                                   *056 LM00069    
                  MAIL.(TPB,TPG,MESS2,1B)                                                         *057 LM00070    
                  MAIL.(TPB,TPG,MESS3,0B)                                                         *058 LM00071    
                  MAIL.(TPB,TPG,MESS4,0B)                                                         *059 LM00072    
                                                                                                       LM00073    
                      DELETE TABLE ENTRY                                                               LM00074    
                                                                                                       LM00075    
                  DELTAB.(UFD(7),UFD(6))                                                          *060 LM00076    
                  TRANSFER TO READ                                                                *061 LM00077    
                                                                                                       LM00078    
                      DEVICE IS 1 OR 2, FILE IS ON TAPE (PROBABLY)                                     LM00079    
                                                                                                       LM00080    
      ST(1)       TRANSFER TO READ                                                                *062 LM00081    
      ST(2)       TRANSFER TO READ                                                                *063 LM00082    
                                                                                                       LM00083    
                      DEVICE IS 3, SET UP FOR TAPFIL                                                   LM00084    
                                                                                                       LM00085    
      ST(3)       ATTACH.(TPB,TPG)                                                                *064 LM00086    
                  FILENO = UFD(1).RS.18                                                           *065 LM00087    
                  UNITNO = UFD(1).A.777777K                                                       *066 LM00088    
                  CLEAR.(UFD(7),UFD(6))                                                           *067 LM00089    
                  TAPFIL.(UFD(7),UFD(6),UNITNO,FILENO,ERR1)                                       *068 LM00090    
                  TDYFIL.(UFD)                                                                    *069 LM00091    
      TRIED       DELTAB.(UFD(7),UFD(6))                                                          *070 LM00092    
                  TRANSFER TO READ                                                                *071 LM00093    
                                                                                                       LM00094    
                      GRIPE ABOUT ILLEGAL DEVICE                                                       LM00095    
                                                                                                       LM00096    
      ILDEV       MESS1(5) = PB                                                                   *072 LM00097    
                  MESS1(7) = PG                                                                   *073 LM00098    
                  MESS1(1) = UFD(7)                                                               *074 LM00099    
                  MESS1(3) = UFD(6)                                                               *075 LM00100    
                  PRNTP.(MESS1)                                                                   *076 LM00101    
                  TRANSFER TO READ                                                                *077 LM00102    
                                                                                                       LM00103    
                      END OF UFD, TIDY UP                                                              LM00104    
                                                                                                       LM00105    
      EOF         FTAPE.(MZE,MZE,MZE,EOF1,DRAIN,ERR,ERRS)                                         *078 LM00106    
      EOF1        FUNCTION RETURN                                                                 *079 LM00107    
                                                                                                       LM00108    
      ERR1        PRNTER.                                                                         *080 LM00109    
                  TRANSFER TO TRIED                                                               *081 LM00110    
                                                                                                       LM00111    
                  END OF FUNCTION                                                                 *082 LM00112    
1MAD PROGRAM,TYPE NOV 1963      (ALL NUMBERS ARE OCTAL)     
0TOTAL LOCATIONS   00374 TRANSFER VECTOR LENGTH  00015 PROGRAM BEGINS    00123 FIRST UNUSED COMMON/ERASABLE  67621
0 PROGRAM IS AN EXTERNAL FUNCTION.   THE FOLLOWING ARE ENTRIES    
      CKUFD  00124   0                                                                                                  
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)  
      AINDEX 67664  C1        EOF    00017   4        LODLIM 67643 AC1        PB     74477  C1        TPB    00107   1  
      AUTHOR 67645  C1        ERR1   00020   4        LODTAB 73605 AC1        PG     74500  C1        TPG    00110   1  
      BUFF1  76255 AC1        FENCE  67656 AC1        LPREAM 67651 AC1        PRIV   67653  C1        TRIED  00031   4  
      BUFF2  75374 AC1        FILENO 00034   1        LRCT   74512  C1        READ   00023   4        T      67661 AC1  
      BUFF   77136 AC1        HEADER 74513 AC1        MESS1  00051 A 1        REELNO 67640  C1        TSKLTH 67637 AC1  
      CURPTR 67646  C1        HEDER2 67636 AC1        MESS2  00062 A 1        SNORT  00024   4        UFD    73615 AC1  
      DAEMON 67641 AC1        HPROB  67650  C1        MESS3  00067 A 1        ST     00030 A 4        UNITNO 00111   1  
      DEVICE 00033   1        HPROG  67647  C1        MESS4  00105 A 1        SYSTEM 67642 AC1        UNIT   67663  C1  
      DND    74503  C1        ILDEV  00021   4        MZE    67660 AC1        TABLE  77461 AC1        USERF  67655 AC1  
      DRAIN  74476 AC1        ILEDI  67654 AC1        NO     00022   4        TABLIM 67652 AC1        WC     74511  C1  
      D      67662 AC1        LINDEX 67644  C1        NULLS  00106 A 1        TFUDG  67657 AC1        YES    00032   4  
      EOF1   00016   4                                                                                                  
0FUNCTION DICTIONARY    
      ATTACH 00000   1        CLEAR  00001   1        DECIDE 00002   1        DELTAB 00003   1        EXIT   00004   1  
      FTAPE  00005   1        MAIL   00006   1        PRNTER 00007   1        PRNTP  00010   1        RDTAPE 00011   1  
      STAPE  00012   1        TAPFIL 00013   1        TDYFIL 00014   1                                                  
0ABSOLUTE CONSTANTS     
 00121 +000000777777     00120 +000000000022     00114 +000000000002     00117 +000000000017     00112 +000000000000    
 00116 +000000000007     00115 +000000000003     00113 +000000000001     00122 +233000000000                            
0STATEMENT DICTIONARY   
 00016 TXL -300347000346       00017 TXL -300346000336       00020 TXL -300350000347       00021 TXL -300325000323      
 00022 TXL -300160000157       00023 TXL -300152000142       00024 TXL -300244000242       00025 TXL -300274000271      
 00026 TXL -300271000270       00027 TXL -300270000267       00030 TXL -300211000207       00031 TXL -300322000317      
 00032 TXL -300166000160                                                                                                
0PROGRAM    
                 EXTERNAL FUNCTION (ERR,ERRS)                                       001  LM00004
                 I'E COM                                                            002  LM00005
                 N'R                                                                003  LM00002
                 B'N SWT.                                                           004  LM00003
                 D'N TABLE(210),BUFF(432),BUFF1(432),BUFF2(432)                     005  LM00005
                 D'N HEADER(12),UFD(7),DRAIN(432),LODTAB(2000)                      006  LM00006
                 E'E (PB,HEADER(12)),(PG,HEADER(11)),(DND,HEADER(8)),               007  LM00007
                1     (WC,HEADER(2)),(LRCT,HEADER(1))                               007  LM00008
                 P'N TABLE,BUFF,BUFF1,BUFF2                                         008  LM00009
                 P'N HEADER,DRAIN,UFD,LODTAB                                        009  LM00010
                 P'N AINDEX,UNIT,D,T,MZE,TFUDG,FENCE,USERF,ILEDI,PRIV               010  LM00011
                 P'N TABLIM,LPREAM,HPROB,HPROG,CURPTR,AUTHOR,LINDEX                 011  LM00012
                 P'N LODLIM,SYSTEM,DAEMON,REELNO,TSKLTH                             012  LM00013
                 V'S FENCE = 777777777777K                                          013  LM00015
 67656     -3 77777 7 77777                                                                                             
                 V'S MZE = 4K11                                                     014  LM00016
 67660     -0 00000 0 00000                                                                                             
                 V'S TFUDG = 1800                                                   015  LM00017
 67657     +0 00000 0 03410                                                                                             
                 V'S TABLIM = 200                                                   016  LM00018
 67652     +0 00000 0 00310                                                                                             
                 V'S LODLIM = 2000                                                  017  LM00019
 67643     +0 00000 0 03720                                                                                             
                 V'S LPREAM = 12                                                    018  LM00020
 67651     +0 00000 0 00014                                                                                             
                 V'S TSKLTH = 11                                                    019  LM00021
 67637     +0 00000 0 00013                                                                                             
                 V'S SYSTEM = $ C0056$                                              020  LM00023
 67642     -2 02300 0 00506                                                                                             
                 V'S DAEMON = $ 99999$                                              021  LM00024
 67641     -2 01111 1 11111                                                                                             
                 V'S D = $(DUMP)$                                                   022  LM00025
 67662     -3 42464 4 44734                                                                                             
                 V'S T = $(TAPE)$                                                   023  LM00026
 67661     -3 46321 4 72534                                                                                             
                 V'S USERF = $USER F$                                               024  LM00027
 67655     -2 46225 5 16026                                                                                             
                 V'S ILEDI = $ILE DI$                                               025  LM00028
 67654     +3 14325 6 02431                                                                                             
                 DIMENSION HEDER2(12)                                               026  LM00029
                 P'N HEDER2                                                         027  LM00030
                 S'L ERR,ERRS                                                       028  LM00006
                 V'S MESS1 = $ FILE $,0,575757575760K,0,$  FOR $,                   029  LM00008
                1     0,575757575760K,0,$ HAS ILLEGAL DEVICE CODE$,                 029  LM00009
                2     777777777777K                                                 029  LM00010
 00035     -3 77777 7 77777    00036     +2 56023 4 62425    00037     -2 02425 6 53123    00040     -0 34325 2 72143   
 00041     -2 03021 6 26031    00042     +0 00000 0 00000    00043     -1 75757 5 75760    00044     +0 00000 0 00000   
 00045     -2 06026 4 65160    00046     +0 00000 0 00000    00047     -1 75757 5 75760    00050     +0 00000 0 00000   
 00051     -2 02631 4 32560                                                                                             
                 V'S MESS2 = $LINKED FILE $,0,575757575760K,0,$ NOT RETRIEVED$      030  LM00011
                1     ,777777777777K                                                030  LM00012
 00052     -3 77777 7 77777    00053     +2 52460 6 06060    00054     +2 56351 3 12565    00055     -2 04546 6 36051   
 00056     +0 00000 0 00000    00057     -1 75757 5 75760    00060     +0 00000 0 00000    00061     -2 02631 4 32560   
 00062     -0 33145 4 22524                                                                                             
                 V'S MESS3 = $TO RE-LINK FILE ... $,777777777777K                   031  LM00013
 00063     -3 77777 7 77777    00064     +3 36060 6 06060    00065     +3 14325 6 03333    00066     -0 33145 4 26026   
 00067     -2 34660 5 12540                                                                                             
                 V'S MESS4 = $ LINK $,0,575757575760K,0,575757575760K,              032  LM00014
                1     0,575757575760K,0,575757575760K,                              032  LM00015
                2     0,575757575760K,0,575757575760K,777777777777K                 032  LM00016
 00070     -3 77777 7 77777    00071     -1 75757 5 75760    00072     +0 00000 0 00000    00073     -1 75757 5 75760   
 00074     +0 00000 0 00000    00075     -1 75757 5 75760    00076     +0 00000 0 00000    00077     -1 75757 5 75760   
 00100     +0 00000 0 00000    00101     -1 75757 5 75760    00102     +0 00000 0 00000    00103     -1 75757 5 75760   
 00104     +0 00000 0 00000    00105     -2 04331 4 54260                                                               
                 V'S NULLS = 575757575757K                                          033  LM00018
 00106     -1 75757 5 75757                                                                                             
                 E'O CKUFD.                                                         034  LM00022
 00123 TRA +0 02000 0 00126    00124 SXA +0 63400 2 00352    00125 TSX +0 07400 2 00352                                 
                 STAPE.(MZE,MZE,WC)                                                 035  LM00026
 00126 TSX +0 07400 4 00012    00127 TXH +3 00000 0 67660    00130 TXH +3 00000 0 67660    00131 TXH +3 00000 0 74511   
                 RDTAPE.(DRAIN,3,MZE,EOF,DRAIN,ERR,ERRS)                            036  LM00027
 00132 TSX +0 07400 4 00011    00133 TXH +3 00000 0 74476    00134 TXH +3 00000 0 00115    00135 TXH +3 00000 0 67660   
 00136 TXH +3 00000 0 00017    00137 TXH +3 00000 0 74476    00140 TXH +3 00000 0 00000    00141 TXH +3 00000 0 00000   
      READ       RDTAPE.(UFD,7,MZE,EOF,DRAIN,ERR,ERRS)                              037  LM00031
 00142 TSX +0 07400 4 00011    00143 TXH +3 00000 0 73615    00144 TXH +3 00000 0 00116    00145 TXH +3 00000 0 67660   
 00146 TXH +3 00000 0 00017    00147 TXH +3 00000 0 74476    00150 TXH +3 00000 0 00000    00151 TXH +3 00000 0 00000   
                 DECIDE.(UFD,YES,NO,0B)                                             038  LM00035
 00152 TSX +0 07400 4 00002    00153 TXH +3 00000 0 73615    00154 TXH +3 00000 0 00032    00155 TXH +3 00000 0 00022   
 00156 TXH +3 00000 0 00112                                                                                             
      NO         T'O READ                                                           039  LM00036
 00157 TRA +0 02000 0 00023                                                                                             
      YES        DEVICE = (UFD(3).RS.15).A.7K                                       040  LM00041
 00160 CAL -0 50000 0 00117    00161 STA +0 62100 0 00163    00162 CAL -0 50000 0 73612    00163 LGR -0 76500 0 00000   
 00164 ANA -0 32000 0 00116    00165 SLW +0 60200 0 00033                                                               
                 W'R (DEVICE.G.3), T'O ILDEV                                        041  LM00042
 00166 CLA +0 50000 0 00033    00167 SUB +0 40200 0 00115    00170 TZE +0 10000 0 00173    00171 TMI -0 12000 0 00173   
 00172 TRA +0 02000 0 00021                                                                                             
                 TPB = TABLE(CURPTR+2)                                              042  LM00046
 00173 CLA +0 50000 0 67646    00174 ADD +0 40000 0 00114    00175 PAX +0 73400 2 00000    00176 CLA +0 50000 2 77461   
 00177 STO +0 60100 0 00107                                                                                             
                 TPG = TABLE(CURPTR+3)                                              043  LM00047
 00200 CLA +0 50000 0 67646    00201 ADD +0 40000 0 00115    00202 PAX +0 73400 2 00000    00203 CLA +0 50000 2 77461   
 00204 STO +0 60100 0 00110                                                                                             
                 T'O ST(DEVICE)                                                     044  LM00048
 00205 LXA +0 53400 2 00033    00206 TRA +0 02000 2 00030                                                               
      ST(0)      MESS2(2) = UFD(7)                                                  045  LM00052
 00207 CLA +0 50000 0 73606    00210 STO +0 60100 0 00060                                                               
                 MESS2(4) = UFD(6)                                                  046  LM00053
 00211 CLA +0 50000 0 73607    00212 STO +0 60100 0 00056                                                               
                 MESS4(1) = UFD(7)                                                  047  LM00054
 00213 CLA +0 50000 0 73606    00214 STO +0 60100 0 00104                                                               
                 MESS4(3) = UFD(6)                                                  048  LM00055
 00215 CLA +0 50000 0 73607    00216 STO +0 60100 0 00102                                                               
                 MESS4(5) = UFD(5)                                                  049  LM00056
 00217 CLA +0 50000 0 73610    00220 STO +0 60100 0 00100                                                               
                 MESS4(7) = UFD(4)                                                  050  LM00057
 00221 CLA +0 50000 0 73611    00222 STO +0 60100 0 00076                                                               
                 MESS4(9) = UFD(2)                                                  051  LM00058
 00223 CLA +0 50000 0 73613    00224 STO +0 60100 0 00074                                                               
                 MESS4(11) = UFD(1)                                                 052  LM00059
 00225 CLA +0 50000 0 73614    00226 STO +0 60100 0 00072                                                               
                 W'R UFD(1) .NE. UFD(6), T'O SNORT                                  053  LM00063
 00227 CLA +0 50000 0 73614    00230 SUB +0 40200 0 73607    00231 TZE +0 10000 0 00233    00232 TRA +0 02000 0 00024   
                 MESS4(11) = NULLS                                                  054  LM00064
 00233 CLA +0 50000 0 00106    00234 STO +0 60100 0 00072                                                               
                 W'R UFD(2) .E. UFD(7), MESS4(9) = NULLS                            055  LM00065
 00235 CLA +0 50000 0 73613    00236 SUB +0 40200 0 73606    00237 TNZ -0 10000 0 00242    00240 CLA +0 50000 0 00106   
 00241 STO +0 60100 0 00074                                                                                             
      SNORT      PRNTP.(MESS2)                                                      056  LM00069
 00242 TSX +0 07400 4 00010    00243 TXH +3 00000 0 00062                                                               
                 MAIL.(TPB,TPG,MESS2,1B)                                            057  LM00070
 00244 TSX +0 07400 4 00006    00245 TXH +3 00000 0 00107    00246 TXH +3 00000 0 00110    00247 TXH +3 00000 0 00062   
 00250 TXH +3 00000 0 00113                                                                                             
                 MAIL.(TPB,TPG,MESS3,0B)                                            058  LM00071
 00251 TSX +0 07400 4 00006    00252 TXH +3 00000 0 00107    00253 TXH +3 00000 0 00110    00254 TXH +3 00000 0 00067   
 00255 TXH +3 00000 0 00112                                                                                             
                 MAIL.(TPB,TPG,MESS4,0B)                                            059  LM00072
 00256 TSX +0 07400 4 00006    00257 TXH +3 00000 0 00107    00260 TXH +3 00000 0 00110    00261 TXH +3 00000 0 00105   
 00262 TXH +3 00000 0 00112                                                                                             
                 DELTAB.(UFD(7),UFD(6))                                             060  LM00076
 00263 TSX +0 07400 4 00003    00264 TXH +3 00000 0 73606    00265 TXH +3 00000 0 73607                                 
                 T'O READ                                                           061  LM00077
 00266 TRA +0 02000 0 00023                                                                                             
      ST(1)      T'O READ                                                           062  LM00081
 00267 TRA +0 02000 0 00023                                                                                             
      ST(2)      T'O READ                                                           063  LM00082
 00270 TRA +0 02000 0 00023                                                                                             
      ST(3)      ATTACH.(TPB,TPG)                                                   064  LM00086
 00271 TSX +0 07400 4 00000    00272 TXH +3 00000 0 00107    00273 TXH +3 00000 0 00110                                 
                 FILENO = UFD(1).RS.18                                              065  LM00087
 00274 CAL -0 50000 0 00120    00275 STA +0 62100 0 00277    00276 CAL -0 50000 0 73614    00277 LGR -0 76500 0 00000   
 00300 SLW +0 60200 0 00034                                                                                             
                 UNITNO = UFD(1).A.777777K                                          066  LM00088
 00301 CAL -0 50000 0 73614    00302 ANA -0 32000 0 00121    00303 SLW +0 60200 0 00111                                 
                 CLEAR.(UFD(7),UFD(6))                                              067  LM00089
 00304 TSX +0 07400 4 00001    00305 TXH +3 00000 0 73606    00306 TXH +3 00000 0 73607                                 
                 TAPFIL.(UFD(7),UFD(6),UNITNO,FILENO,ERR1)                          068  LM00090
 00307 TSX +0 07400 4 00013    00310 TXH +3 00000 0 73606    00311 TXH +3 00000 0 73607    00312 TXH +3 00000 0 00111   
 00313 TXH +3 00000 0 00034    00314 TXH +3 00000 0 00020                                                               
                 TDYFIL.(UFD)                                                       069  LM00091
 00315 TSX +0 07400 4 00014    00316 TXH +3 00000 0 73615                                                               
      TRIED      DELTAB.(UFD(7),UFD(6))                                             070  LM00092
 00317 TSX +0 07400 4 00003    00320 TXH +3 00000 0 73606    00321 TXH +3 00000 0 73607                                 
                 T'O READ                                                           071  LM00093
 00322 TRA +0 02000 0 00023                                                                                             
      ILDEV      MESS1(5) = PB                                                      072  LM00097
 00323 CLA +0 50000 0 74477    00324 STO +0 60100 0 00044                                                               
                 MESS1(7) = PG                                                      073  LM00098
 00325 CLA +0 50000 0 74500    00326 STO +0 60100 0 00042                                                               
                 MESS1(1) = UFD(7)                                                  074  LM00099
 00327 CLA +0 50000 0 73606    00330 STO +0 60100 0 00050                                                               
                 MESS1(3) = UFD(6)                                                  075  LM00100
 00331 CLA +0 50000 0 73607    00332 STO +0 60100 0 00046                                                               
                 PRNTP.(MESS1)                                                      076  LM00101
 00333 TSX +0 07400 4 00010    00334 TXH +3 00000 0 00051                                                               
                 T'O READ                                                           077  LM00102
 00335 TRA +0 02000 0 00023                                                                                             
      EOF        FTAPE.(MZE,MZE,MZE,EOF1,DRAIN,ERR,ERRS)                            078  LM00106
 00336 TSX +0 07400 4 00005    00337 TXH +3 00000 0 67660    00340 TXH +3 00000 0 67660    00341 TXH +3 00000 0 67660   
 00342 TXH +3 00000 0 00016    00343 TXH +3 00000 0 74476    00344 TXH +3 00000 0 00000    00345 TXH +3 00000 0 00000   
      EOF1       F'N                                                                079  LM00107
 00346 TRA +0 02000 0 00366                                                                                             
      ERR1       PRNTER.                                                            080  LM00109
 00347 TSX +0 07400 4 00007                                                                                             
                 T'O TRIED                                                          081  LM00110
 00350 TRA +0 02000 0 00031                                                                                             
                 E'N                                                                082  LM00112
 00351 TSX +0 07400 4 00004    00352 TXH +3 00000 0 00000    00353 SXD -0 63400 1 00352    00354 SXA +0 63400 4 00366   
 00355 CLA +0 50000 4 00001    00356 STO +0 60100 0 00140    00357 STO +0 60100 0 00150    00360 STO +0 60100 0 00344   
 00361 CLA +0 50000 4 00002    00362 STO +0 60100 0 00141    00363 STO +0 60100 0 00151    00364 STO +0 60100 0 00345   
 00365 TRA +0 02000 2 00001    00366 AXT +0 77400 4 00000    00367 LXA +0 53400 2 00352    00370 LXD -0 53400 1 00352   
 00371 TRA +0 02000 4 00001                                                                                             




LDFILE   BCD 04/29/67 2209.9    7674         00000    
1     MAD PROGRAM LISTING ... ... ...                 FILE  LDFILE   MAD            04/29/67    2140.3
-                 
                      ROUTINE TO RE-LOAD A FILE FROM TAPE                                              LM00001    
                           D.R. WIDRIG  DEC. 1965                                                      LM00002    
                                                                                                       LM00003    
                  EXTERNAL FUNCTION (Y,Z)                                                         *001 LM00004    
                  INSERT FILE COM                                                                 *002 LM00005    
                                                                                                  *002 LM00001    
                  NORMAL MODE IS INTEGER                                                          *003 LM00002    
                  BOOLEAN SWT.                                                                    *004 LM00003    
                                                                                                       LM00004    
                  DIMENSION TABLE(210),BUFF(432),BUFF1(432),BUFF2(432)                            *005 LM00005    
                  DIMENSION HEADER(12),UFD(7),DRAIN(432),LODTAB(2000)                             *006 LM00006    
                  EQUIVALENCE (PB,HEADER(12)),(PG,HEADER(11)),(DND,HEADER(8)),                    *007 LM00007    
                1      (WC,HEADER(2)),(LRCT,HEADER(1))                                            *007 LM00008    
                  PROGRAM COMMON TABLE,BUFF,BUFF1,BUFF2                                           *008 LM00009    
                  PROGRAM COMMON HEADER,DRAIN,UFD,LODTAB                                          *009 LM00010    
                  PROGRAM COMMON AINDEX,UNIT,D,T,MZE,TFUDG,FENCE,USERF,ILEDI,PRIV                 *010 LM00011    
                  PROGRAM COMMON TABLIM,LPREAM,HPROB,HPROG,CURPTR,AUTHOR,LINDEX                   *011 LM00012    
                  PROGRAM COMMON LODLIM,SYSTEM,DAEMON,REELNO,TSKLTH                               *012 LM00013    
                                                                                                       LM00014    
                  VECTOR VALUES FENCE = 777777777777K                                             *013 LM00015    
                  VECTOR VALUES MZE = 4K11                                                        *014 LM00016    
                  VECTOR VALUES TFUDG = 1800                                                      *015 LM00017    
                  VECTOR VALUES TABLIM = 200                                                      *016 LM00018    
                  VECTOR VALUES LODLIM = 2000                                                     *017 LM00019    
                  VECTOR VALUES LPREAM = 12                                                       *018 LM00020    
                  VECTOR VALUES TSKLTH = 11                                                       *019 LM00021    
                                                                                                       LM00022    
                  VECTOR VALUES SYSTEM = $ C0056$                                                 *020 LM00023    
                  VECTOR VALUES DAEMON = $ 99999$                                                 *021 LM00024    
                  VECTOR VALUES D = $(DUMP)$                                                      *022 LM00025    
                  VECTOR VALUES T = $(TAPE)$                                                      *023 LM00026    
                  VECTOR VALUES USERF = $USER F$                                                  *024 LM00027    
                  VECTOR VALUES ILEDI = $ILE DI$                                                  *025 LM00028    
                  DIMENSION HEDER2(12)                                                            *026 LM00029    
                  PROGRAM COMMON HEDER2                                                           *027 LM00030    
                                                                                                       LM00031    
                  STATEMENT LABEL Y,Z                                                             *028 LM00006    
                  DIMENSION BUFF3(432)                                                            *029 LM00007    
                  BOOLEAN EOFSW,ONCE                                                              *030 LM00008    
                                                                                                       LM00009    
                  VECTOR VALUES MESS1 = $   FOR FILE $,0,575757575760K,0,                         *031 LM00010    
                1      $, TEMPORARY MODE WILL BE USED$,                                           *031 LM00011    
                2      777777777777K                                                              *031 LM00012    
                  VECTOR VALUES MESS2 = $ILLEGAL DEVICE, DEVICE USED WILL BE DISK$,               *032 LM00013    
                1      777777777777K                                                              *032 LM00014    
                                                                                                       LM00015    
                      ROUTINE TO LOAD A FILE FROM TAPE                                                 LM00016    
                                                                                                       LM00017    
                  ENTRY TO LDFILE.                                                                *033 LM00018    
                  Y1=0                                                                            *034 LM00019    
                  ATTACH.(PB,PG)                                                                  *035 LM00020    
                                                                                                       LM00021    
                      GENERATE UNIQUE TEMPORARY NAME-PAIR                                              LM00022    
                                                                                                       LM00023    
                  UNIQUE.(N1,N2)                                                                  *036 LM00024    
                                                                                                       LM00025    
                      PICK UP UFD ENTRY                                                                LM00026    
                                                                                                       LM00027    
                  THROUGH LOOP1, FOR I=3,1,I.G.7                                                  *037 LM00028    
                       UFD(I) = HEADER(I)                                                         *038 LM00029    
      LOOP1       CONTINUE                                                                        *039 LM00030    
                  DEVICE = (UFD(3).RS.15).A.7K                                                    *040 LM00031    
                                                                                                       LM00032    
                      TEST DEVICE CODE                                                                 LM00033    
                                                                                                       LM00034    
                  WHENEVER (DEVICE.NE.1).AND.(DEVICE.NE.2)                                        *041 LM00035    
                       PRNTP.(MESS2)                                                              *042 LM00036    
                       DEVICE = 2                                                                 *043 LM00037    
                  END OF CONDITIONAL                                                              *044 LM00038    
                  MODE = 0                                                                        *045 LM00039    
                  EOFSW = 0B                                                                      *046 LM00040    
                  ONCE = 0B                                                                       *047 LM00041    
                                                                                                       LM00042    
                      CLEAR DISK UFD                                                                   LM00043    
                                                                                                       LM00044    
                  CLEAR.(N1,N2)                                                                   *048 LM00045    
                                                                                                       LM00046    
                      SET UP TAPE AND DISK (OR DRUM) FILE                                              LM00047    
                                                                                                       LM00048    
      NERR3       STAPE.(MZE,MZE,WC)                                                              *049 LM00049    
                  OPEN.($W$,N1,N2,MODE,DEVICE,ERR1,ERCODE)                                        *050 LM00050    
                  BUFFER.(N1,N2,BUFF3(432)...432,ERR2)                                            *051 LM00051    
                                                                                                       LM00052    
                      TRANSFER DATA                                                                    LM00053    
                                                                                                       LM00054    
                  WDS = 432                                                                       *052 LM00055    
      READ        RDTAPE.(BUFF,WDS,MZE,EOF,EOFCT,ERR,SERR)                                        *053 LM00056    
                  TRANSFER TO WRITE                                                               *054 LM00057    
                                                                                                       LM00058    
      EOF         WDS = EOFCT                                                                     *055 LM00059    
                  EOFSW = 1B                                                                      *056 LM00060    
                                                                                                       LM00061    
      WRITE       WRWAIT.(N1,N2,0,BUFF(WDS)...WDS,MZE,DRAIN,ERR2)                                 *057 LM00062    
                  WHENEVER .NOT. EOFSW, TRANSFER TO READ                                          *058 LM00063    
                                                                                                       LM00064    
                      CLOSE OUT FILE, FINISH TAPE, AND NOTE LOADING                                    LM00065    
                                                                                                       LM00066    
                  CLOSE.(N1,N2,NERR7)                                                             *059 LM00067    
                  FTAPE.(MZE,MZE,MZE,EOF1,DRAIN,ERR3,SERR)                                        *060 LM00068    
                                                                                                       LM00069    
                      RENAME FILE                                                                      LM00070    
                                                                                                       LM00071    
      EOF1        CLEAR.(UFD(7),UFD(6))                                                           *061 LM00072    
                  CHFILE.(N1,N2,MZE,UFD(7),UFD(6),NERR7)                                          *062 LM00073    
                  TDYFIL.(UFD)                                                                    *063 LM00074    
                  DELTAB.(UFD(7),UFD(6))                                                          *064 LM00075    
                  WHENEVER Y1 .E. 1,TRANSFER TO NERR6                                             *065 LM00076    
                  FUNCTION RETURN                                                                 *066 LM00077    
                                                                                                       LM00078    
                      ERROR IN OPEN, CHECK OVERFLOW, DRAIN OFF FILE                                    LM00079    
                                                                                                       LM00080    
      ERR1        PRNTER.                                                                         *067 LM00081    
                  WHENEVER (ERCODE.E.15).AND.(.NOT.ONCE)                                          *068 LM00082    
                       MESS1(2) = UFD(7)                                                          *069 LM00083    
                       MESS1(4) = UFD(6)                                                          *070 LM00084    
                       PRNTP.(MESS1)                                                              *071 LM00085    
                       MAIL.(PB,PG,MESS1,1B)                                                      *072 LM00086    
                       UFD(3) = UFD(3).V.2K9                                                      *073 LM00087    
                       MODE = 1                                                                   *074 LM00088    
                       ONCE = 1B                                                                  *075 LM00089    
                       TRANSFER TO NERR3                                                          *076 LM00090    
                  OTHERWISE                                                                       *077 LM00091    
                       DRAINW.(MZE,MZE,WC,KILL,DRAIN,ERR,SERR)                                    *078 LM00092    
                       TRANSFER TO KILL                                                           *079 LM00093    
                  END OF CONDITIONAL                                                              *080 LM00094    
                                                                                                       LM00095    
                      ERROR IN LOADING, KILL LOAD, DRAIN REMAINDER                                     LM00096    
                                                                                                       LM00097    
      ERR2        RDTAPE.(DRAIN,432,MZE,NERR0,DRAIN,ERR,SERR)                                     *081 LM00098    
                  TRANSFER TO ERR2                                                                *082 LM00099    
      NERR0       FTAPE.(MZE,MZE,MZE,NERR7,DRAIN,ERR,SERR)                                        *083 LM00100    
      NERR7       PRNTER.                                                                         *084 LM00101    
      KILL        CLOSE.(N1,N2,NERR8)                                                             *085 LM00102    
      NERR8       DELFIL.(N1,N2,NERR9)                                                            *086 LM00103    
                                                                                                       LM00104    
                      DISABLE CONTROLLING TASK                                                         LM00105    
                                                                                                       LM00106    
      NERR9       TABLE(CURPTR+2) = 0                                                             *087 LM00107    
                  FUNCTION RETURN                                                                 *088 LM00108    
                                                                                                       LM00109    
      ERR         PRNTER.                                                                         *089 LM00110    
                  CLOSE.(N1,N2,NERR5)                                                             *090 LM00111    
      NERR5       DELFIL.(N1,N2,NERR6)                                                            *091 LM00112    
      NERR6       TRANSFER TO Y                                                                   *092 LM00113    
      SERR        PRNTER.                                                                         *093 LM00114    
                  CLOSE.(N1,N2,NERR5)                                                             *094 LM00115    
                  DELFIL.(N1,N2,NERR6)                                                            *095 LM00116    
                  TRANSFER TO Z                                                                   *096 LM00117    
                  ERROR IN READING ZEROES FROM DAEMON TAPE. IGNORE                                     LM00118    
                   ESSENTIALLY BUT TAKE Y EXIT TO INDICATE                                             LM00119    
                   POSITIONING DUE TO TPERR IS AFTER HEADER.                                           LM00120    
      ERR3        Y1=1                                                                            *097 LM00121    
                  TRANSFER TO EOF1                                                                *098 LM00122    
                  GO RENAME FILE ETC.                                                                  LM00123    
                                                                                                       LM00124    
                  END OF FUNCTION                                                                 *099 LM00125    
1MAD PROGRAM,TYPE NOV 1963      (ALL NUMBERS ARE OCTAL)     
0TOTAL LOCATIONS   01351 TRANSFER VECTOR LENGTH  00023 PROGRAM BEGINS    00776 FIRST UNUSED COMMON/ERASABLE  67621
0 PROGRAM IS AN EXTERNAL FUNCTION.   THE FOLLOWING ARE ENTRIES    
      LDFILE 00777   0                                                                                                  
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)  
      AINDEX 67664  C1        EOF    00025   4        KILL   00032   4        NERR3  00034   4        SYSTEM 67642 AC1  
      AUTHOR 67645  C1        EOFSW  00730   2        LINDEX 67644  C1        NERR5  00035   4        TABLE  77461 AC1  
      BUFF1  76255 AC1        ERCODE 00731   1        LODLIM 67643 AC1        NERR6  00036   4        TABLIM 67652 AC1  
      BUFF2  75374 AC1        ERR1   00026   4        LODTAB 73605 AC1        NERR7  00037   4        TFUDG  67657 AC1  
      BUFF3  00725 A 1        ERR2   00027   4        LOOP1  00023   4        NERR8  00040   4        T      67661 AC1  
      BUFF   77136 AC1        ERR3   00030   4        LPREAM 67651 AC1        NERR9  00041   4        TSKLTH 67637 AC1  
      CURPTR 67646  C1        ERR    00031   4        LRCT   74512  C1        ONCE   00761   2        UFD    73615 AC1  
      DAEMON 67641 AC1        FENCE  67656 AC1        MESS1  00745 A 1        PB     74477  C1        UNIT   67663  C1  
      DEVICE 00726   1        HEADER 74513 AC1        MESS2  00755 A 1        PG     74500  C1        USERF  67655 AC1  
      DND    74503  C1        HEDER2 67636 AC1        MODE   00756   1        PRIV   67653  C1        WC     74511  C1  
      DRAIN  74476 AC1        HPROB  67650  C1        MZE    67660 AC1        READ   00042   4        WDS    00762   1  
      D      67662 AC1        HPROG  67647  C1        N1     00757   1        REELNO 67640  C1        WRITE  00044   4  
      EOF1   00024   4        ILEDI  67654 AC1        N2     00760   1        SERR   00043   4        Y1     00763   1  
      EOFCT  00727   1        I      00732   1        NERR0  00033   4                                                  
0FUNCTION DICTIONARY    
      ATTACH 00000   1        BUFFER 00001   1        CHFILE 00002   1        CLEAR  00003   1        CLOSE  00004   1  
      DELFIL 00005   1        DELTAB 00006   1        DRAINW 00007   1        EXIT   00010   1        FTAPE  00011   1  
      MAIL   00012   1        OPEN   00013   1        PRNTER 00014   1        PRNTP  00015   1        RDTAPE 00016   1  
      STAPE  00017   1        TDYFIL 00020   1        UNIQUE 00021   1        WRWAIT 00022   1                          
0ABSOLUTE CONSTANTS     
 00773 +002000000000     00772 +000000000660     00775 -266060606060     00766 +000000000002     00771 +000000000017    
 00770 +000000000007     00767 +000000000003     00764 +000000000000     00765 +000000000001     00774 +233000000000    
0STATEMENT DICTIONARY   
 00024 TXL -301157001154       00025 TXL -301117001115       00026 TXL -301201001200       00027 TXL -301253001243      
 00030 TXL -301331001327       00031 TXL -301304001303       00032 TXL -301271001265       00033 TXL -301264001254      
 00034 TXL -301065001061       00035 TXL -301314001310       00036 TXL -301315001314       00037 TXL -301265001264      
 00040 TXL -301275001271       00041 TXL -301302001275       00042 TXL -301114001104       00043 TXL -301316001315      
 00044 TXL -301135001121                                                                                                
0PROGRAM    
                 EXTERNAL FUNCTION (Y,Z)                                            001  LM00004
                 I'E COM                                                            002  LM00005
                 N'R                                                                003  LM00002
                 B'N SWT.                                                           004  LM00003
                 D'N TABLE(210),BUFF(432),BUFF1(432),BUFF2(432)                     005  LM00005
                 D'N HEADER(12),UFD(7),DRAIN(432),LODTAB(2000)                      006  LM00006
                 E'E (PB,HEADER(12)),(PG,HEADER(11)),(DND,HEADER(8)),               007  LM00007
                1     (WC,HEADER(2)),(LRCT,HEADER(1))                               007  LM00008
                 P'N TABLE,BUFF,BUFF1,BUFF2                                         008  LM00009
                 P'N HEADER,DRAIN,UFD,LODTAB                                        009  LM00010
                 P'N AINDEX,UNIT,D,T,MZE,TFUDG,FENCE,USERF,ILEDI,PRIV               010  LM00011
                 P'N TABLIM,LPREAM,HPROB,HPROG,CURPTR,AUTHOR,LINDEX                 011  LM00012
                 P'N LODLIM,SYSTEM,DAEMON,REELNO,TSKLTH                             012  LM00013
                 V'S FENCE = 777777777777K                                          013  LM00015
 67656     -3 77777 7 77777                                                                                             
                 V'S MZE = 4K11                                                     014  LM00016
 67660     -0 00000 0 00000                                                                                             
                 V'S TFUDG = 1800                                                   015  LM00017
 67657     +0 00000 0 03410                                                                                             
                 V'S TABLIM = 200                                                   016  LM00018
 67652     +0 00000 0 00310                                                                                             
                 V'S LODLIM = 2000                                                  017  LM00019
 67643     +0 00000 0 03720                                                                                             
                 V'S LPREAM = 12                                                    018  LM00020
 67651     +0 00000 0 00014                                                                                             
                 V'S TSKLTH = 11                                                    019  LM00021
 67637     +0 00000 0 00013                                                                                             
                 V'S SYSTEM = $ C0056$                                              020  LM00023
 67642     -2 02300 0 00506                                                                                             
                 V'S DAEMON = $ 99999$                                              021  LM00024
 67641     -2 01111 1 11111                                                                                             
                 V'S D = $(DUMP)$                                                   022  LM00025
 67662     -3 42464 4 44734                                                                                             
                 V'S T = $(TAPE)$                                                   023  LM00026
 67661     -3 46321 4 72534                                                                                             
                 V'S USERF = $USER F$                                               024  LM00027
 67655     -2 46225 5 16026                                                                                             
                 V'S ILEDI = $ILE DI$                                               025  LM00028
 67654     +3 14325 6 02431                                                                                             
                 DIMENSION HEDER2(12)                                               026  LM00029
                 P'N HEDER2                                                         027  LM00030
                 S'L Y,Z                                                            028  LM00006
                 D'N BUFF3(432)                                                     029  LM00007
                 B'N EOFSW,ONCE                                                     030  LM00008
                 V'S MESS1 = $   FOR FILE $,0,575757575760K,0,                      031  LM00010
                1     $, TEMPORARY MODE WILL BE USED$,                              031  LM00011
                2     777777777777K                                                 031  LM00012
 00733     -3 77777 7 77777    00734     -2 06462 2 52460    00735     +3 14343 6 02225    00736     -0 44624 2 56066   
 00737     -0 65121 5 17060    00740     -3 36063 2 54447    00741     +0 00000 0 00000    00742     -1 75757 5 75760   
 00743     +0 00000 0 00000    00744     -2 02631 4 32560    00745     -2 06060 2 64651                                 
                 V'S MESS2 = $ILLEGAL DEVICE, DEVICE USED WILL BE DISK$,            032  LM00013
                1     777777777777K                                                 032  LM00014
 00746     -3 77777 7 77777    00747     +2 43162 4 26060    00750     -0 34360 2 22560    00751     -2 22524 6 06631   
 00752     -2 53123 2 56064    00753     +2 32573 6 02425    00754     -0 36024 2 56531    00755     +3 14343 2 52721   
                 E'O LDFILE.                                                        033  LM00018
 00776 TRA +0 02000 0 01001    00777 SXA +0 63400 2 01333    01000 TSX +0 07400 2 01333                                 
                 Y1=0                                                               034  LM00019
 01001 CLA +0 50000 0 00764    01002 STO +0 60100 0 00763                                                               
                 ATTACH.(PB,PG)                                                     035  LM00020
 01003 TSX +0 07400 4 00000    01004 TXH +3 00000 0 74477    01005 TXH +3 00000 0 74500                                 
                 UNIQUE.(N1,N2)                                                     036  LM00024
 01006 TSX +0 07400 4 00021    01007 TXH +3 00000 0 00757    01010 TXH +3 00000 0 00760                                 
                 T'H LOOP1, FOR I=3,1,I.G.7                                         037  LM00028
 01011 CLA +0 50000 0 00767    01012 STO +0 60100 0 00732    01013 TRA +0 02000 0 01017    01014 CLA +0 50000 0 00732   
 01015 ADD +0 40000 0 00765    01016 STO +0 60100 0 00732    01017 CLA +0 50000 0 00732    01020 SUB +0 40200 0 00770   
 01021 TZE +0 10000 0 01023    01022 TPL +0 12000 0 01030                                                               
                      UFD(I) = HEADER(I)                                            038  LM00029
 01023 LXA +0 53400 1 00732    01024 LXA +0 53400 2 00732    01025 CLA +0 50000 2 74513    01026 STO +0 60100 1 73615   
      LOOP1      C'E                                                                039  LM00030
 01027 TRA +0 02000 0 01014                                                                                             
                 DEVICE = (UFD(3).RS.15).A.7K                                       040  LM00031
 01030 CAL -0 50000 0 00771    01031 STA +0 62100 0 01033    01032 CAL -0 50000 0 73612    01033 LGR -0 76500 0 00000   
 01034 ANA -0 32000 0 00770    01035 SLW +0 60200 0 00726                                                               
                 W'R (DEVICE.NE.1).AND.(DEVICE.NE.2)                                041  LM00035
 01036 CLA +0 50000 0 00726    01037 SUB +0 40200 0 00766    01040 TZE +0 10000 0 01050    01041 CLA +0 50000 0 00726   
 01042 SUB +0 40200 0 00765    01043 TZE +0 10000 0 01050                                                               
                      PRNTP.(MESS2)                                                 042  LM00036
 01044 TSX +0 07400 4 00015    01045 TXH +3 00000 0 00755                                                               
                      DEVICE = 2                                                    043  LM00037
 01046 CLA +0 50000 0 00766    01047 STO +0 60100 0 00726                                                               
                 E'L                                                                044  LM00038
                 MODE = 0                                                           045  LM00039
 01050 CLA +0 50000 0 00764    01051 STO +0 60100 0 00756                                                               
                 EOFSW = 0B                                                         046  LM00040
 01052 CLA +0 50000 0 00764    01053 STO +0 60100 0 00730                                                               
                 ONCE = 0B                                                          047  LM00041
 01054 CLA +0 50000 0 00764    01055 STO +0 60100 0 00761                                                               
                 CLEAR.(N1,N2)                                                      048  LM00045
 01056 TSX +0 07400 4 00003    01057 TXH +3 00000 0 00757    01060 TXH +3 00000 0 00760                                 
      NERR3      STAPE.(MZE,MZE,WC)                                                 049  LM00049
 01061 TSX +0 07400 4 00017    01062 TXH +3 00000 0 67660    01063 TXH +3 00000 0 67660    01064 TXH +3 00000 0 74511   
                 OPEN.($W$,N1,N2,MODE,DEVICE,ERR1,ERCODE)                           050  LM00050
 01065 TSX +0 07400 4 00013    01066 TXH +3 00000 0 00775    01067 TXH +3 00000 0 00757    01070 TXH +3 00000 0 00760   
 01071 TXH +3 00000 0 00756    01072 TXH +3 00000 0 00726    01073 TXH +3 00000 0 00026    01074 TXH +3 00000 0 00731   
                 BUFFER.(N1,N2,BUFF3(432)...432,ERR2)                               051  LM00051
 01075 TSX +0 07400 4 00001    01076 TXH +3 00000 0 00757    01077 TXH +3 00000 0 00760    01100 TIX +2 00772 0 00045   
 01101 TXH +3 00000 0 00027                                                                                             
                 WDS = 432                                                          052  LM00055
 01102 CLA +0 50000 0 00772    01103 STO +0 60100 0 00762                                                               
      READ       RDTAPE.(BUFF,WDS,MZE,EOF,EOFCT,ERR,SERR)                           053  LM00056
 01104 TSX +0 07400 4 00016    01105 TXH +3 00000 0 77136    01106 TXH +3 00000 0 00762    01107 TXH +3 00000 0 67660   
 01110 TXH +3 00000 0 00025    01111 TXH +3 00000 0 00727    01112 TXH +3 00000 0 00031    01113 TXH +3 00000 0 00043   
                 T'O WRITE                                                          054  LM00057
 01114 TRA +0 02000 0 00044                                                                                             
      EOF        WDS = EOFCT                                                        055  LM00059
 01115 CLA +0 50000 0 00727    01116 STO +0 60100 0 00762                                                               
                 EOFSW = 1B                                                         056  LM00060
 01117 CLA +0 50000 0 00765    01120 STO +0 60100 0 00730                                                               
      WRITE      WRWAIT.(N1,N2,0,BUFF(WDS)...WDS,MZE,DRAIN,ERR2)                    057  LM00062
 01121 CLA +0 50000 0 00762    01122 SUB +0 40200 0 01123    01123 TXH +3 00000 0 77136    01124 STA +0 62100 0 01131   
 01125 TSX +0 07400 4 00022    01126 TXH +3 00000 0 00757    01127 TXH +3 00000 0 00760    01130 TXH +3 00000 0 00764   
 01131 TIX +2 00762 0 00000    01132 TXH +3 00000 0 67660    01133 TXH +3 00000 0 74476    01134 TXH +3 00000 0 00027   
                 W'R .NOT. EOFSW, T'O READ                                          058  LM00063
 01135 ZET +0 52000 0 00730    01136 TRA +0 02000 0 01140    01137 TRA +0 02000 0 00042                                 
                 CLOSE.(N1,N2,NERR7)                                                059  LM00067
 01140 TSX +0 07400 4 00004    01141 TXH +3 00000 0 00757    01142 TXH +3 00000 0 00760    01143 TXH +3 00000 0 00037   
                 FTAPE.(MZE,MZE,MZE,EOF1,DRAIN,ERR3,SERR)                           060  LM00068
 01144 TSX +0 07400 4 00011    01145 TXH +3 00000 0 67660    01146 TXH +3 00000 0 67660    01147 TXH +3 00000 0 67660   
 01150 TXH +3 00000 0 00024    01151 TXH +3 00000 0 74476    01152 TXH +3 00000 0 00030    01153 TXH +3 00000 0 00043   
      EOF1       CLEAR.(UFD(7),UFD(6))                                              061  LM00072
 01154 TSX +0 07400 4 00003    01155 TXH +3 00000 0 73606    01156 TXH +3 00000 0 73607                                 
                 CHFILE.(N1,N2,MZE,UFD(7),UFD(6),NERR7)                             062  LM00073
 01157 TSX +0 07400 4 00002    01160 TXH +3 00000 0 00757    01161 TXH +3 00000 0 00760    01162 TXH +3 00000 0 67660   
 01163 TXH +3 00000 0 73606    01164 TXH +3 00000 0 73607    01165 TXH +3 00000 0 00037                                 
                 TDYFIL.(UFD)                                                       063  LM00074
 01166 TSX +0 07400 4 00020    01167 TXH +3 00000 0 73615                                                               
                 DELTAB.(UFD(7),UFD(6))                                             064  LM00075
 01170 TSX +0 07400 4 00006    01171 TXH +3 00000 0 73606    01172 TXH +3 00000 0 73607                                 
                 W'R Y1 .E. 1,T'O NERR6                                             065  LM00076
 01173 CLA +0 50000 0 00763    01174 SUB +0 40200 0 00765    01175 TNZ -0 10000 0 01177    01176 TRA +0 02000 0 00036   
                 F'N                                                                066  LM00077
 01177 TRA +0 02000 0 01343                                                                                             
      ERR1       PRNTER.                                                            067  LM00081
 01200 TSX +0 07400 4 00014                                                                                             
                 W'R (ERCODE.E.15).AND.(.NOT.ONCE)                                  068  LM00082
 01201 ZET +0 52000 0 00761    01202 TRA +0 02000 0 01232    01203 CLA +0 50000 0 00731    01204 SUB +0 40200 0 00771   
 01205 TNZ -0 10000 0 01232                                                                                             
                      MESS1(2) = UFD(7)                                             069  LM00083
 01206 CLA +0 50000 0 73606    01207 STO +0 60100 0 00743                                                               
                      MESS1(4) = UFD(6)                                             070  LM00084
 01210 CLA +0 50000 0 73607    01211 STO +0 60100 0 00741                                                               
                      PRNTP.(MESS1)                                                 071  LM00085
 01212 TSX +0 07400 4 00015    01213 TXH +3 00000 0 00745                                                               
                      MAIL.(PB,PG,MESS1,1B)                                         072  LM00086
 01214 TSX +0 07400 4 00012    01215 TXH +3 00000 0 74477    01216 TXH +3 00000 0 74500    01217 TXH +3 00000 0 00745   
 01220 TXH +3 00000 0 00765                                                                                             
                      UFD(3) = UFD(3).V.2K9                                         073  LM00087
 01221 CAL -0 50000 0 73612    01222 ORA -0 50100 0 00773    01223 SLW +0 60200 0 73612                                 
                      MODE = 1                                                      074  LM00088
 01224 CLA +0 50000 0 00765    01225 STO +0 60100 0 00756                                                               
                      ONCE = 1B                                                     075  LM00089
 01226 CLA +0 50000 0 00765    01227 STO +0 60100 0 00761                                                               
                      T'O NERR3                                                     076  LM00090
 01230 TRA +0 02000 0 00034                                                                                             
                 O'E                                                                077  LM00091
 01231 TRA +0 02000 0 01243                                                                                             
                      DRAINW.(MZE,MZE,WC,KILL,DRAIN,ERR,SERR)                       078  LM00092
 01232 TSX +0 07400 4 00007    01233 TXH +3 00000 0 67660    01234 TXH +3 00000 0 67660    01235 TXH +3 00000 0 74511   
 01236 TXH +3 00000 0 00032    01237 TXH +3 00000 0 74476    01240 TXH +3 00000 0 00031    01241 TXH +3 00000 0 00043   
                      T'O KILL                                                      079  LM00093
 01242 TRA +0 02000 0 00032                                                                                             
                 E'L                                                                080  LM00094
      ERR2       RDTAPE.(DRAIN,432,MZE,NERR0,DRAIN,ERR,SERR)                        081  LM00098
 01243 TSX +0 07400 4 00016    01244 TXH +3 00000 0 74476    01245 TXH +3 00000 0 00772    01246 TXH +3 00000 0 67660   
 01247 TXH +3 00000 0 00033    01250 TXH +3 00000 0 74476    01251 TXH +3 00000 0 00031    01252 TXH +3 00000 0 00043   
                 T'O ERR2                                                           082  LM00099
 01253 TRA +0 02000 0 00027                                                                                             
      NERR0      FTAPE.(MZE,MZE,MZE,NERR7,DRAIN,ERR,SERR)                           083  LM00100
 01254 TSX +0 07400 4 00011    01255 TXH +3 00000 0 67660    01256 TXH +3 00000 0 67660    01257 TXH +3 00000 0 67660   
 01260 TXH +3 00000 0 00037    01261 TXH +3 00000 0 74476    01262 TXH +3 00000 0 00031    01263 TXH +3 00000 0 00043   
      NERR7      PRNTER.                                                            084  LM00101
 01264 TSX +0 07400 4 00014                                                                                             
      KILL       CLOSE.(N1,N2,NERR8)                                                085  LM00102
 01265 TSX +0 07400 4 00004    01266 TXH +3 00000 0 00757    01267 TXH +3 00000 0 00760    01270 TXH +3 00000 0 00040   
      NERR8      DELFIL.(N1,N2,NERR9)                                               086  LM00103
 01271 TSX +0 07400 4 00005    01272 TXH +3 00000 0 00757    01273 TXH +3 00000 0 00760    01274 TXH +3 00000 0 00041   
      NERR9      TABLE(CURPTR+2) = 0                                                087  LM00107
 01275 CLA +0 50000 0 67646    01276 ADD +0 40000 0 00766    01277 PAX +0 73400 1 00000    01300 CLA +0 50000 0 00764   
 01301 STO +0 60100 1 77461                                                                                             
                 F'N                                                                088  LM00108
 01302 TRA +0 02000 0 01343                                                                                             
      ERR        PRNTER.                                                            089  LM00110
 01303 TSX +0 07400 4 00014                                                                                             
                 CLOSE.(N1,N2,NERR5)                                                090  LM00111
 01304 TSX +0 07400 4 00004    01305 TXH +3 00000 0 00757    01306 TXH +3 00000 0 00760    01307 TXH +3 00000 0 00035   
      NERR5      DELFIL.(N1,N2,NERR6)                                               091  LM00112
 01310 TSX +0 07400 4 00005    01311 TXH +3 00000 0 00757    01312 TXH +3 00000 0 00760    01313 TXH +3 00000 0 00036   
      NERR6      T'O Y                                                              092  LM00113
 01314 TRA +0 02000 0 00000                                                                                             
      SERR       PRNTER.                                                            093  LM00114
 01315 TSX +0 07400 4 00014                                                                                             
                 CLOSE.(N1,N2,NERR5)                                                094  LM00115
 01316 TSX +0 07400 4 00004    01317 TXH +3 00000 0 00757    01320 TXH +3 00000 0 00760    01321 TXH +3 00000 0 00035   
                 DELFIL.(N1,N2,NERR6)                                               095  LM00116
 01322 TSX +0 07400 4 00005    01323 TXH +3 00000 0 00757    01324 TXH +3 00000 0 00760    01325 TXH +3 00000 0 00036   
                 T'O Z                                                              096  LM00117
 01326 TRA +0 02000 0 00000                                                                                             
      ERR3       Y1=1                                                               097  LM00121
 01327 CLA +0 50000 0 00765    01330 STO +0 60100 0 00763                                                               
                 T'O EOF1                                                           098  LM00122
 01331 TRA +0 02000 0 00024                                                                                             
                 E'N                                                                099  LM00125
 01332 TSX +0 07400 4 00010    01333 TXH +3 00000 0 00000    01334 SXD -0 63400 1 01333    01335 SXA +0 63400 4 01343   
 01336 CLA +0 50000 4 00001    01337 STA +0 62100 0 01314    01340 CLA +0 50000 4 00002    01341 STA +0 62100 0 01326   
 01342 TRA +0 02000 2 00001    01343 AXT +0 77400 4 00000    01344 LXA +0 53400 2 01333    01345 LXD -0 53400 1 01333   
 01346 TRA +0 02000 4 00001                                                                                             




TDYFIL   BCD 04/29/67 2209.9    4026         00000    
1     MAD PROGRAM LISTING ... ... ...                 FILE  TDYFIL   MAD            04/29/67    2140.5
-                 
                      ROUTINE TO TIDY UP UFD ENTRIES FOR A FILE                                        LM00001    
                           D.R. WIDRIG  DEC. 1965                                                      LM00002    
                                                                                                       LM00003    
                  EXTERNAL FUNCTION (V,W)                                                         *001 LM00004    
                  INSERT FILE COM                                                                 *002 LM00005    
                                                                                                  *002 LM00001    
                  NORMAL MODE IS INTEGER                                                          *003 LM00002    
                  BOOLEAN SWT.                                                                    *004 LM00003    
                                                                                                       LM00004    
                  DIMENSION TABLE(210),BUFF(432),BUFF1(432),BUFF2(432)                            *005 LM00005    
                  DIMENSION HEADER(12),UFD(7),DRAIN(432),LODTAB(2000)                             *006 LM00006    
                  EQUIVALENCE (PB,HEADER(12)),(PG,HEADER(11)),(DND,HEADER(8)),                    *007 LM00007    
                1      (WC,HEADER(2)),(LRCT,HEADER(1))                                            *007 LM00008    
                  PROGRAM COMMON TABLE,BUFF,BUFF1,BUFF2                                           *008 LM00009    
                  PROGRAM COMMON HEADER,DRAIN,UFD,LODTAB                                          *009 LM00010    
                  PROGRAM COMMON AINDEX,UNIT,D,T,MZE,TFUDG,FENCE,USERF,ILEDI,PRIV                 *010 LM00011    
                  PROGRAM COMMON TABLIM,LPREAM,HPROB,HPROG,CURPTR,AUTHOR,LINDEX                   *011 LM00012    
                  PROGRAM COMMON LODLIM,SYSTEM,DAEMON,REELNO,TSKLTH                               *012 LM00013    
                                                                                                       LM00014    
                  VECTOR VALUES FENCE = 777777777777K                                             *013 LM00015    
                  VECTOR VALUES MZE = 4K11                                                        *014 LM00016    
                  VECTOR VALUES TFUDG = 1800                                                      *015 LM00017    
                  VECTOR VALUES TABLIM = 200                                                      *016 LM00018    
                  VECTOR VALUES LODLIM = 2000                                                     *017 LM00019    
                  VECTOR VALUES LPREAM = 12                                                       *018 LM00020    
                  VECTOR VALUES TSKLTH = 11                                                       *019 LM00021    
                                                                                                       LM00022    
                  VECTOR VALUES SYSTEM = $ C0056$                                                 *020 LM00023    
                  VECTOR VALUES DAEMON = $ 99999$                                                 *021 LM00024    
                  VECTOR VALUES D = $(DUMP)$                                                      *022 LM00025    
                  VECTOR VALUES T = $(TAPE)$                                                      *023 LM00026    
                  VECTOR VALUES USERF = $USER F$                                                  *024 LM00027    
                  VECTOR VALUES ILEDI = $ILE DI$                                                  *025 LM00028    
                  DIMENSION HEDER2(12)                                                            *026 LM00029    
                  PROGRAM COMMON HEDER2                                                           *027 LM00030    
                                                                                                       LM00031    
                                                                                                  *002 LM00006    
                  VECTOR VALUES MESS1 = $LOADED$,0,575757575760K,0,575757575760K,0,               *028 LM00007    
                1      575757575760K,0,777777777777K                                              *028 LM00008    
                                                                                                       LM00009    
                      SET DATE, MODES, ETC.                                                            LM00010    
                                                                                                       LM00011    
                  ENTRY TO TDYFIL.                                                                *029 LM00012    
                                                                                                       LM00013    
                      ANNOUNCE LOADING AND LEAVE NOTE TO USER                                          LM00014    
                                                                                                       LM00015    
                  MESS1(1) = PB                                                                   *030 LM00016    
                  MESS1(3) = PG                                                                   *031 LM00017    
                  MESS1(5) = V(7)                                                                 *032 LM00018    
                  MESS1(7) = V(6)                                                                 *033 LM00019    
                  PRNTP.(MESS1)                                                                   *034 LM00020    
                  MAIL.(PB,PG,MESS1,1B)                                                           *035 LM00021    
                                                                                                       LM00022    
                      TO FORE-STALL DATE-REMOVAL OF RETRIEVED FILE,                                    LM00023    
                      LEAVE DATE-LAST-USED AS CURRENT DATE                                             LM00024    
                                                                                                       LM00025    
                  FSTATE.(V(7),V(6),DRAIN(8)...8)                                                 *036 LM00026    
                  DLM=DRAIN(2)                                                                    *037 LM00027    
                  DLU = (V(4) .A. 777777K) .V. (DATECV.(DATE.(0),NERR0))                          *038 LM00028    
      NERR0       CHFILE.(V(7),V(6),V(3).RS.28,MZE,MZE,ERR)                                       *039 LM00029    
                  SETFIL.(V(7),V(6),DLM,DLU,MZE,MZE,ERR)                                          *040 LM00030    
                  FUNCTION RETURN                                                                 *041 LM00031    
                                                                                                       LM00032    
                      CLEAR UFD OF ENTRY FOR FILE 'V W'                                                LM00033    
                                                                                                       LM00034    
                  ENTRY TO CLEAR.                                                                 *042 LM00035    
                  N1 = V                                                                          *043 LM00036    
                  N2 = W                                                                          *044 LM00037    
                  UNLINK.(N1,N2,NERR1)                                                            *045 LM00038    
      NERR1       CHFILE.(N1,N2,001K,MZE,MZE,NERR2)                                               *046 LM00039    
      NERR2       DELFIL.(N1,N2,NERR3)                                                            *047 LM00040    
      NERR3       FUNCTION RETURN                                                                 *048 LM00041    
                                                                                                       LM00042    
      ERR         PRNTER.                                                                         *049 LM00043    
                  FUNCTION RETURN                                                                 *050 LM00044    
                                                                                                       LM00045    
                  END OF FUNCTION                                                                 *051 LM00046    
1MAD PROGRAM,TYPE NOV 1963      (ALL NUMBERS ARE OCTAL)     
0TOTAL LOCATIONS   00226 TRANSFER VECTOR LENGTH  00013 PROGRAM BEGINS    00044 FIRST UNUSED COMMON/ERASABLE  67621
0 PROGRAM IS AN EXTERNAL FUNCTION.   THE FOLLOWING ARE ENTRIES    
      CLEAR  00135   0        TDYFIL 00045   0                                                                          
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)  
      AINDEX 67664  C1        DRAIN  74476 AC1        LINDEX 67644  C1        NERR0  00015   4        TABLE  77461 AC1  
      AUTHOR 67645  C1        D      67662 AC1        LODLIM 67643 AC1        NERR1  00016   4        TABLIM 67652 AC1  
      BUFF1  76255 AC1        ERR    00014   4        LODTAB 73605 AC1        NERR2  00017   4        TFUDG  67657 AC1  
      BUFF2  75374 AC1        FENCE  67656 AC1        LPREAM 67651 AC1        NERR3  00020   4        T      67661 AC1  
      BUFF   77136 AC1        HEADER 74513 AC1        LRCT   74512  C1        PB     74477  C1        TSKLTH 67637 AC1  
      CURPTR 67646  C1        HEDER2 67636 AC1        MESS1  00033 A 1        PG     74500  C1        UFD    73615 AC1  
      DAEMON 67641 AC1        HPROB  67650  C1        MZE    67660 AC1        PRIV   67653  C1        UNIT   67663  C1  
      DLM    00021   1        HPROG  67647  C1        N1     00034   1        REELNO 67640  C1        USERF  67655 AC1  
      DLU    00022   1        ILEDI  67654 AC1        N2     00035   1        SYSTEM 67642 AC1        WC     74511  C1  
      DND    74503  C1                                                                                                  
0FUNCTION DICTIONARY    
      CHFILE 00000   1        DATECV 00001   1        DATE   00002   1        DELFIL 00003   1        EXIT   00004   1  
      FSTATE 00005   1        MAIL   00006   1        PRNTER 00007   1        PRNTP  00010   1        SETFIL 00011   1  
      UNLINK 00012   1                                                                                                  
0ABSOLUTE CONSTANTS     
 00041 +000000000034     00042 +000000777777     00036 +000000000000     00040 +000000000010     00037 +000000000001    
 00043 +233000000000                                                                                                    
0STATEMENT DICTIONARY   
 00014 TXL -300164000163       00015 TXL -300123000107       00016 TXL -300156000147       00017 TXL -300162000156      
 00020 TXL -300163000162                                                                                                
0PROGRAM    
                 EXTERNAL FUNCTION (V,W)                                            001  LM00004
                 I'E COM                                                            002  LM00005
                 N'R                                                                003  LM00002
                 B'N SWT.                                                           004  LM00003
                 D'N TABLE(210),BUFF(432),BUFF1(432),BUFF2(432)                     005  LM00005
                 D'N HEADER(12),UFD(7),DRAIN(432),LODTAB(2000)                      006  LM00006
                 E'E (PB,HEADER(12)),(PG,HEADER(11)),(DND,HEADER(8)),               007  LM00007
                1     (WC,HEADER(2)),(LRCT,HEADER(1))                               007  LM00008
                 P'N TABLE,BUFF,BUFF1,BUFF2                                         008  LM00009
                 P'N HEADER,DRAIN,UFD,LODTAB                                        009  LM00010
                 P'N AINDEX,UNIT,D,T,MZE,TFUDG,FENCE,USERF,ILEDI,PRIV               010  LM00011
                 P'N TABLIM,LPREAM,HPROB,HPROG,CURPTR,AUTHOR,LINDEX                 011  LM00012
                 P'N LODLIM,SYSTEM,DAEMON,REELNO,TSKLTH                             012  LM00013
                 V'S FENCE = 777777777777K                                          013  LM00015
 67656     -3 77777 7 77777                                                                                             
                 V'S MZE = 4K11                                                     014  LM00016
 67660     -0 00000 0 00000                                                                                             
                 V'S TFUDG = 1800                                                   015  LM00017
 67657     +0 00000 0 03410                                                                                             
                 V'S TABLIM = 200                                                   016  LM00018
 67652     +0 00000 0 00310                                                                                             
                 V'S LODLIM = 2000                                                  017  LM00019
 67643     +0 00000 0 03720                                                                                             
                 V'S LPREAM = 12                                                    018  LM00020
 67651     +0 00000 0 00014                                                                                             
                 V'S TSKLTH = 11                                                    019  LM00021
 67637     +0 00000 0 00013                                                                                             
                 V'S SYSTEM = $ C0056$                                              020  LM00023
 67642     -2 02300 0 00506                                                                                             
                 V'S DAEMON = $ 99999$                                              021  LM00024
 67641     -2 01111 1 11111                                                                                             
                 V'S D = $(DUMP)$                                                   022  LM00025
 67662     -3 42464 4 44734                                                                                             
                 V'S T = $(TAPE)$                                                   023  LM00026
 67661     -3 46321 4 72534                                                                                             
                 V'S USERF = $USER F$                                               024  LM00027
 67655     -2 46225 5 16026                                                                                             
                 V'S ILEDI = $ILE DI$                                               025  LM00028
 67654     +3 14325 6 02431                                                                                             
                 DIMENSION HEDER2(12)                                               026  LM00029
                 P'N HEDER2                                                         027  LM00030
                 V'S MESS1 = $LOADED$,0,575757575760K,0,575757575760K,0,            028  LM00007
                1     575757575760K,0,777777777777K                                 028  LM00008
 00023     -3 77777 7 77777    00024     +0 00000 0 00000    00025     -1 75757 5 75760    00026     +0 00000 0 00000   
 00027     -1 75757 5 75760    00030     +0 00000 0 00000    00031     -1 75757 5 75760    00032     +0 00000 0 00000   
 00033     -0 34621 2 42524                                                                                             
                 E'O TDYFIL.                                                        029  LM00012
 00044 TRA +0 02000 0 00047    00045 SXA +0 63400 2 00171    00046 TSX +0 07400 2 00171                                 
                 MESS1(1) = PB                                                      030  LM00016
 00047 CLA +0 50000 0 74477    00050 STO +0 60100 0 00032                                                               
                 MESS1(3) = PG                                                      031  LM00017
 00051 CLA +0 50000 0 74500    00052 STO +0 60100 0 00030                                                               
                 MESS1(5) = V(7)                                                    032  LM00018
 00053 CLA +0 50000 0 00007    00054 STO +0 60100 0 00026                                                               
                 MESS1(7) = V(6)                                                    033  LM00019
 00055 CLA +0 50000 0 00006    00056 STO +0 60100 0 00024                                                               
                 PRNTP.(MESS1)                                                      034  LM00020
 00057 TSX +0 07400 4 00010    00060 TXH +3 00000 0 00033                                                               
                 MAIL.(PB,PG,MESS1,1B)                                              035  LM00021
 00061 TSX +0 07400 4 00006    00062 TXH +3 00000 0 74477    00063 TXH +3 00000 0 74500    00064 TXH +3 00000 0 00033   
 00065 TXH +3 00000 0 00037                                                                                             
                 FSTATE.(V(7),V(6),DRAIN(8)...8)                                    036  LM00026
 00066 TSX +0 07400 4 00005    00067 TXH +3 00000 0 00007    00070 TXH +3 00000 0 00006    00071 TIX +2 00040 0 74466   
                 DLM=DRAIN(2)                                                       037  LM00027
 00072 CLA +0 50000 0 74474    00073 STO +0 60100 0 00021                                                               
                 DLU = (V(4) .A. 777777K) .V. (DATECV.(DATE.(0),NERR0))             038  LM00028
 00074 TSX +0 07400 4 00002    00075 TXH +3 00000 0 00036    00076 STO +0 60100 0 00223    00077 TSX +0 07400 4 00001   
 00100 TXH +3 00000 0 00223    00101 TXH +3 00000 0 00015    00102 STO +0 60100 0 00223    00103 CAL -0 50000 0 00004   
 00104 ANA -0 32000 0 00042    00105 ORA -0 50100 0 00223    00106 SLW +0 60200 0 00022                                 
      NERR0      CHFILE.(V(7),V(6),V(3).RS.28,MZE,MZE,ERR)                          039  LM00029
 00107 CAL -0 50000 0 00041    00110 STA +0 62100 0 00112    00111 CAL -0 50000 0 00003    00112 LGR -0 76500 0 00000   
 00113 SLW +0 60200 0 00223    00114 TSX +0 07400 4 00000    00115 TXH +3 00000 0 00007    00116 TXH +3 00000 0 00006   
 00117 TXH +3 00000 0 00223    00120 TXH +3 00000 0 67660    00121 TXH +3 00000 0 67660    00122 TXH +3 00000 0 00014   
                 SETFIL.(V(7),V(6),DLM,DLU,MZE,MZE,ERR)                             040  LM00030
 00123 TSX +0 07400 4 00011    00124 TXH +3 00000 0 00007    00125 TXH +3 00000 0 00006    00126 TXH +3 00000 0 00021   
 00127 TXH +3 00000 0 00022    00130 TXH +3 00000 0 67660    00131 TXH +3 00000 0 67660    00132 TXH +3 00000 0 00014   
                 F'N                                                                041  LM00031
 00133 TRA +0 02000 0 00217                                                                                             
                 E'O CLEAR.                                                         042  LM00035
 00134 TRA +0 02000 0 00137    00135 SXA +0 63400 2 00171    00136 TSX +0 07400 2 00171                                 
                 N1 = V                                                             043  LM00036
 00137 CLA +0 50000 0 00000    00140 STO +0 60100 0 00034                                                               
                 N2 = W                                                             044  LM00037
 00141 CLA +0 50000 0 00000    00142 STO +0 60100 0 00035                                                               
                 UNLINK.(N1,N2,NERR1)                                               045  LM00038
 00143 TSX +0 07400 4 00012    00144 TXH +3 00000 0 00034    00145 TXH +3 00000 0 00035    00146 TXH +3 00000 0 00016   
      NERR1      CHFILE.(N1,N2,001K,MZE,MZE,NERR2)                                  046  LM00039
 00147 TSX +0 07400 4 00000    00150 TXH +3 00000 0 00034    00151 TXH +3 00000 0 00035    00152 TXH +3 00000 0 00037   
 00153 TXH +3 00000 0 67660    00154 TXH +3 00000 0 67660    00155 TXH +3 00000 0 00017                                 
      NERR2      DELFIL.(N1,N2,NERR3)                                               047  LM00040
 00156 TSX +0 07400 4 00003    00157 TXH +3 00000 0 00034    00160 TXH +3 00000 0 00035    00161 TXH +3 00000 0 00020   
      NERR3      F'N                                                                048  LM00041
 00162 TRA +0 02000 0 00217                                                                                             
      ERR        PRNTER.                                                            049  LM00043
 00163 TSX +0 07400 4 00007                                                                                             
                 F'N                                                                050  LM00044
 00164 TRA +0 02000 0 00217                                                                                             
                 E'N                                                                051  LM00046
 00165 TSX +0 07400 4 00004    00166 PZE +0 00000 0 00003    00167 PZE +0 00000 0 00001    00170 PZE +0 00000 0 00002   
 00171 TXH +3 00000 0 00000    00172 SXD -0 63400 1 00171    00173 SXA +0 63400 4 00217    00174 CLA +0 50000 4 00001   
 00175 STA +0 62100 0 00137    00176 SUB +0 40200 0 00166    00177 STA +0 62100 0 00111    00200 SUB +0 40200 0 00167   
 00201 STA +0 62100 0 00103    00202 SUB +0 40200 0 00170    00203 STA +0 62100 0 00055    00204 STO +0 60100 0 00070   
 00205 STO +0 60100 0 00116    00206 STO +0 60100 0 00125    00207 SUB +0 40200 0 00167    00210 STA +0 62100 0 00053   
 00211 STO +0 60100 0 00067    00212 STO +0 60100 0 00115    00213 STO +0 60100 0 00124    00214 CLA +0 50000 4 00002   
 00215 STA +0 62100 0 00141    00216 TRA +0 02000 2 00001    00217 AXT +0 77400 4 00000    00220 LXA +0 53400 2 00171   
 00221 LXD -0 53400 1 00171    00222 TRA +0 02000 4 00001                                                               




DELTAB   BCD 04/29/67 2209.9    3563         00000    
1     MAD PROGRAM LISTING ... ... ...                 FILE  DELTAB   MAD            04/29/67    2140.6
-                 
                      DELETE PROCESSED-FILE ENTRIES                                                    LM00001    
                           D.R. WIDRIG  DEC. 1965                                                      LM00002    
                                                                                                       LM00003    
                  EXTERNAL FUNCTION (N1,N2)                                                       *001 LM00004    
                  INSERT FILE COM                                                                 *002 LM00005    
                                                                                                  *002 LM00001    
                  NORMAL MODE IS INTEGER                                                          *003 LM00002    
                  BOOLEAN SWT.                                                                    *004 LM00003    
                                                                                                       LM00004    
                  DIMENSION TABLE(210),BUFF(432),BUFF1(432),BUFF2(432)                            *005 LM00005    
                  DIMENSION HEADER(12),UFD(7),DRAIN(432),LODTAB(2000)                             *006 LM00006    
                  EQUIVALENCE (PB,HEADER(12)),(PG,HEADER(11)),(DND,HEADER(8)),                    *007 LM00007    
                1      (WC,HEADER(2)),(LRCT,HEADER(1))                                            *007 LM00008    
                  PROGRAM COMMON TABLE,BUFF,BUFF1,BUFF2                                           *008 LM00009    
                  PROGRAM COMMON HEADER,DRAIN,UFD,LODTAB                                          *009 LM00010    
                  PROGRAM COMMON AINDEX,UNIT,D,T,MZE,TFUDG,FENCE,USERF,ILEDI,PRIV                 *010 LM00011    
                  PROGRAM COMMON TABLIM,LPREAM,HPROB,HPROG,CURPTR,AUTHOR,LINDEX                   *011 LM00012    
                  PROGRAM COMMON LODLIM,SYSTEM,DAEMON,REELNO,TSKLTH                               *012 LM00013    
                                                                                                       LM00014    
                  VECTOR VALUES FENCE = 777777777777K                                             *013 LM00015    
                  VECTOR VALUES MZE = 4K11                                                        *014 LM00016    
                  VECTOR VALUES TFUDG = 1800                                                      *015 LM00017    
                  VECTOR VALUES TABLIM = 200                                                      *016 LM00018    
                  VECTOR VALUES LODLIM = 2000                                                     *017 LM00019    
                  VECTOR VALUES LPREAM = 12                                                       *018 LM00020    
                  VECTOR VALUES TSKLTH = 11                                                       *019 LM00021    
                                                                                                       LM00022    
                  VECTOR VALUES SYSTEM = $ C0056$                                                 *020 LM00023    
                  VECTOR VALUES DAEMON = $ 99999$                                                 *021 LM00024    
                  VECTOR VALUES D = $(DUMP)$                                                      *022 LM00025    
                  VECTOR VALUES T = $(TAPE)$                                                      *023 LM00026    
                  VECTOR VALUES USERF = $USER F$                                                  *024 LM00027    
                  VECTOR VALUES ILEDI = $ILE DI$                                                  *025 LM00028    
                  DIMENSION HEDER2(12)                                                            *026 LM00029    
                  PROGRAM COMMON HEDER2                                                           *027 LM00030    
                                                                                                       LM00031    
                  VECTOR VALUES MESS1 = $TABLE OVERFLOW, FORCED END$,777777777777K                *028 LM00006    
                                                                                                       LM00007    
                      DELETE N1,N2 FROM REQUESTS                                                       LM00008    
                      NOTE THAT 'N1 N2' CAN ONLY BE DELETED IF NEITHER THE                             LM00009    
                      FIRST NOR THE SECOND NAME OF THE REQUEST WAS '*'                                 LM00010    
                                                                                                       LM00011    
                  ENTRY TO DELTAB.                                                                *029 LM00012    
                  I = CURPTR                                                                      *030 LM00013    
                  TABLE(I+10) = TABLE(I+10) + 1                                                   *031 LM00014    
                                                                                                       LM00015    
                      ADD ITEM TO 'LOADED' TABLE IF NOT THERE                                          LM00016    
                      CURRENTLY, THE FOURTH WORD IN A TABLE ENTRY IS UNUSED                            LM00017    
                                                                                                       LM00018    
                  THROUGH LOOP1, FOR J=0,4,J.GE.LINDEX                                            *032 LM00019    
                       WHENEVER (LODTAB(J).E.I).AND.                                              *033 LM00020    
                1           (LODTAB(J+1).E.N1).AND.(LODTAB(J+2).E.N2)                             *033 LM00021    
                2           , FUNCTION RETURN                                                     *033 LM00022    
      LOOP1       CONTINUE                                                                        *034 LM00023    
                                                                                                       LM00024    
                      NOT THERE, ADD ITEM                                                              LM00025    
                                                                                                       LM00026    
                  LODTAB(J) = I                                                                   *035 LM00027    
                  LODTAB(J+1) = N1                                                                *036 LM00028    
                  LODTAB(J+2) = N2                                                                *037 LM00029    
                  LODTAB(J+3) = 0                                                                 *038 LM00030    
                  LINDEX = LINDEX + 4                                                             *039 LM00031    
                                                                                                       LM00032    
                      TEST FOR TABLE OVERFLOW                                                          LM00033    
                                                                                                       LM00034    
                  WHENEVER (LINDEX .GE. LODLIM)                                                   *040 LM00035    
                       PRNTP.(MESS1)                                                              *041 LM00036    
                       MAIL.(PB,PG,MESS1,1B)                                                      *042 LM00037    
                  END OF CONDITIONAL                                                              *043 LM00038    
                  FUNCTION RETURN                                                                 *044 LM00039    
                                                                                                       LM00040    
                  END OF FUNCTION                                                                 *045 LM00041    
1MAD PROGRAM,TYPE NOV 1963      (ALL NUMBERS ARE OCTAL)     
0TOTAL LOCATIONS   00162 TRANSFER VECTOR LENGTH  00003 PROGRAM BEGINS    00023 FIRST UNUSED COMMON/ERASABLE  67621
0 PROGRAM IS AN EXTERNAL FUNCTION.   THE FOLLOWING ARE ENTRIES    
      DELTAB 00024   0                                                                                                  
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)  
      AINDEX 67664  C1        DRAIN  74476 AC1        I      00004   1        MESS1  00013 A 1        TABLIM 67652 AC1  
      AUTHOR 67645  C1        D      67662 AC1        J      00005   1        MZE    67660 AC1        TFUDG  67657 AC1  
      BUFF1  76255 AC1        FENCE  67656 AC1        LINDEX 67644  C1        PB     74477  C1        T      67661 AC1  
      BUFF2  75374 AC1        HEADER 74513 AC1        LODLIM 67643 AC1        PG     74500  C1        TSKLTH 67637 AC1  
      BUFF   77136 AC1        HEDER2 67636 AC1        LODTAB 73605 AC1        PRIV   67653  C1        UFD    73615 AC1  
      CURPTR 67646  C1        HPROB  67650  C1        LOOP1  00003   4        REELNO 67640  C1        UNIT   67663  C1  
      DAEMON 67641 AC1        HPROG  67647  C1        LPREAM 67651 AC1        SYSTEM 67642 AC1        USERF  67655 AC1  
      DND    74503  C1        ILEDI  67654 AC1        LRCT   74512  C1        TABLE  77461 AC1        WC     74511  C1  
0FUNCTION DICTIONARY    
      EXIT   00000   1        MAIL   00001   1        PRNTP  00002   1                                                  
0ABSOLUTE CONSTANTS     
 00017 +000000000003     00016 +000000000002     00020 +000000000004     00014 +000000000000     00021 +000000000012    
 00015 +000000000001     00022 +233000000000                                                                            
0PROGRAM    
                 EXTERNAL FUNCTION (N1,N2)                                          001  LM00004
                 I'E COM                                                            002  LM00005
                 N'R                                                                003  LM00002
                 B'N SWT.                                                           004  LM00003
                 D'N TABLE(210),BUFF(432),BUFF1(432),BUFF2(432)                     005  LM00005
                 D'N HEADER(12),UFD(7),DRAIN(432),LODTAB(2000)                      006  LM00006
                 E'E (PB,HEADER(12)),(PG,HEADER(11)),(DND,HEADER(8)),               007  LM00007
                1     (WC,HEADER(2)),(LRCT,HEADER(1))                               007  LM00008
                 P'N TABLE,BUFF,BUFF1,BUFF2                                         008  LM00009
                 P'N HEADER,DRAIN,UFD,LODTAB                                        009  LM00010
                 P'N AINDEX,UNIT,D,T,MZE,TFUDG,FENCE,USERF,ILEDI,PRIV               010  LM00011
                 P'N TABLIM,LPREAM,HPROB,HPROG,CURPTR,AUTHOR,LINDEX                 011  LM00012
                 P'N LODLIM,SYSTEM,DAEMON,REELNO,TSKLTH                             012  LM00013
                 V'S FENCE = 777777777777K                                          013  LM00015
 67656     -3 77777 7 77777                                                                                             
                 V'S MZE = 4K11                                                     014  LM00016
 67660     -0 00000 0 00000                                                                                             
                 V'S TFUDG = 1800                                                   015  LM00017
 67657     +0 00000 0 03410                                                                                             
                 V'S TABLIM = 200                                                   016  LM00018
 67652     +0 00000 0 00310                                                                                             
                 V'S LODLIM = 2000                                                  017  LM00019
 67643     +0 00000 0 03720                                                                                             
                 V'S LPREAM = 12                                                    018  LM00020
 67651     +0 00000 0 00014                                                                                             
                 V'S TSKLTH = 11                                                    019  LM00021
 67637     +0 00000 0 00013                                                                                             
                 V'S SYSTEM = $ C0056$                                              020  LM00023
 67642     -2 02300 0 00506                                                                                             
                 V'S DAEMON = $ 99999$                                              021  LM00024
 67641     -2 01111 1 11111                                                                                             
                 V'S D = $(DUMP)$                                                   022  LM00025
 67662     -3 42464 4 44734                                                                                             
                 V'S T = $(TAPE)$                                                   023  LM00026
 67661     -3 46321 4 72534                                                                                             
                 V'S USERF = $USER F$                                               024  LM00027
 67655     -2 46225 5 16026                                                                                             
                 V'S ILEDI = $ILE DI$                                               025  LM00028
 67654     +3 14325 6 02431                                                                                             
                 DIMENSION HEDER2(12)                                               026  LM00029
                 P'N HEDER2                                                         027  LM00030
                 V'S MESS1 = $TABLE OVERFLOW, FORCED END$,777777777777K             028  LM00006
 00006     -3 77777 7 77777    00007     -0 52460 6 06060    00010     -1 12325 2 46025    00011     -0 66673 6 02646   
 00012     -0 66525 5 12643    00013     -2 32122 4 32560                                                               
                 E'O DELTAB.                                                        029  LM00012
 00023 TRA +0 02000 0 00026    00024 SXA +0 63400 2 00141    00025 TSX +0 07400 2 00141                                 
                 I = CURPTR                                                         030  LM00013
 00026 CLA +0 50000 0 67646    00027 STO +0 60100 0 00004                                                               
                 TABLE(I+10) = TABLE(I+10) + 1                                      031  LM00014
 00030 CLA +0 50000 0 00004    00031 ADD +0 40000 0 00021    00032 PAX +0 73400 1 00000    00033 CLA +0 50000 1 77461   
 00034 ADD +0 40000 0 00015    00035 STO +0 60100 0 00157    00036 CLA +0 50000 0 00004    00037 ADD +0 40000 0 00021   
 00040 PAX +0 73400 1 00000    00041 CLA +0 50000 0 00157    00042 STO +0 60100 1 77461                                 
                 T'H LOOP1, FOR J=0,4,J.GE.LINDEX                                   032  LM00019
 00043 CLA +0 50000 0 00014    00044 STO +0 60100 0 00005    00045 TRA +0 02000 0 00051    00046 CLA +0 50000 0 00005   
 00047 ADD +0 40000 0 00020    00050 STO +0 60100 0 00005    00051 CLA +0 50000 0 00005    00052 SUB +0 40200 0 67644   
 00053 TZE +0 10000 0 00077    00054 TPL +0 12000 0 00077                                                               
                      W'R (LODTAB(J).E.I).AND.                                      033  LM00020
                1          (LODTAB(J+1).E.N1).AND.(LODTAB(J+2).E.N2)                033  LM00021
                2          , F'N                                                    033  LM00022
 00055 CLA +0 50000 0 00005    00056 ADD +0 40000 0 00016    00057 PAX +0 73400 1 00000    00060 CLA +0 50000 1 73605   
 00061 SUB +0 40200 0 00000    00062 TNZ -0 10000 0 00076    00063 CLA +0 50000 0 00005    00064 ADD +0 40000 0 00015   
 00065 PAX +0 73400 1 00000    00066 CLA +0 50000 1 73605    00067 SUB +0 40200 0 00000    00070 TNZ -0 10000 0 00076   
 00071 LXA +0 53400 1 00005    00072 CLA +0 50000 1 73605    00073 SUB +0 40200 0 00004    00074 TNZ -0 10000 0 00076   
 00075 TRA +0 02000 0 00153                                                                                             
      LOOP1      C'E                                                                034  LM00023
 00076 TRA +0 02000 0 00046                                                                                             
                 LODTAB(J) = I                                                      035  LM00027
 00077 LXA +0 53400 1 00005    00100 CLA +0 50000 0 00004    00101 STO +0 60100 1 73605                                 
                 LODTAB(J+1) = N1                                                   036  LM00028
 00102 CLA +0 50000 0 00005    00103 ADD +0 40000 0 00015    00104 PAX +0 73400 1 00000    00105 CLA +0 50000 0 00000   
 00106 STO +0 60100 1 73605                                                                                             
                 LODTAB(J+2) = N2                                                   037  LM00029
 00107 CLA +0 50000 0 00005    00110 ADD +0 40000 0 00016    00111 PAX +0 73400 1 00000    00112 CLA +0 50000 0 00000   
 00113 STO +0 60100 1 73605                                                                                             
                 LODTAB(J+3) = 0                                                    038  LM00030
 00114 CLA +0 50000 0 00005    00115 ADD +0 40000 0 00017    00116 PAX +0 73400 1 00000    00117 CLA +0 50000 0 00014   
 00120 STO +0 60100 1 73605                                                                                             
                 LINDEX = LINDEX + 4                                                039  LM00031
 00121 CLA +0 50000 0 67644    00122 ADD +0 40000 0 00020    00123 STO +0 60100 0 67644                                 
                 W'R (LINDEX .GE. LODLIM)                                           040  LM00035
 00124 CLA +0 50000 0 67644    00125 SUB +0 40200 0 67643    00126 TZE +0 10000 0 00130    00127 TMI -0 12000 0 00137   
                      PRNTP.(MESS1)                                                 041  LM00036
 00130 TSX +0 07400 4 00002    00131 TXH +3 00000 0 00013                                                               
                      MAIL.(PB,PG,MESS1,1B)                                         042  LM00037
 00132 TSX +0 07400 4 00001    00133 TXH +3 00000 0 74477    00134 TXH +3 00000 0 74500    00135 TXH +3 00000 0 00013   
 00136 TXH +3 00000 0 00015                                                                                             
                 E'L                                                                043  LM00038
                 F'N                                                                044  LM00039
 00137 TRA +0 02000 0 00153                                                                                             
                 E'N                                                                045  LM00041
 00140 TSX +0 07400 4 00000    00141 TXH +3 00000 0 00000    00142 SXD -0 63400 1 00141    00143 SXA +0 63400 4 00153   
 00144 CLA +0 50000 4 00001    00145 STA +0 62100 0 00067    00146 STA +0 62100 0 00105    00147 CLA +0 50000 4 00002   
 00150 STA +0 62100 0 00061    00151 STA +0 62100 0 00112    00152 TRA +0 02000 2 00001    00153 AXT +0 77400 4 00000   
 00154 LXA +0 53400 2 00141    00155 LXD -0 53400 1 00141    00156 TRA +0 02000 4 00001                                 




 RECAP   BCD 04/29/67 2209.9    6448         00000    
1     MAD PROGRAM LISTING ... ... ...                 FILE   RECAP   MAD            04/29/67    2140.7
-                 
                      ROUTINE TO CHECK FOR MISSING ENTRIES                                             LM00001    
                           D.R. WIDRIG  DEC. 1965                                                      LM00002    
                                                                                                       LM00003    
                  EXTERNAL FUNCTION (X,Y)                                                         *001 LM00004    
                  INSERT FILE  COM                                                                *002 LM00005    
                                                                                                  *002 LM00001    
                  NORMAL MODE IS INTEGER                                                          *003 LM00002    
                  BOOLEAN SWT.                                                                    *004 LM00003    
                                                                                                       LM00004    
                  DIMENSION TABLE(210),BUFF(432),BUFF1(432),BUFF2(432)                            *005 LM00005    
                  DIMENSION HEADER(12),UFD(7),DRAIN(432),LODTAB(2000)                             *006 LM00006    
                  EQUIVALENCE (PB,HEADER(12)),(PG,HEADER(11)),(DND,HEADER(8)),                    *007 LM00007    
                1      (WC,HEADER(2)),(LRCT,HEADER(1))                                            *007 LM00008    
                  PROGRAM COMMON TABLE,BUFF,BUFF1,BUFF2                                           *008 LM00009    
                  PROGRAM COMMON HEADER,DRAIN,UFD,LODTAB                                          *009 LM00010    
                  PROGRAM COMMON AINDEX,UNIT,D,T,MZE,TFUDG,FENCE,USERF,ILEDI,PRIV                 *010 LM00011    
                  PROGRAM COMMON TABLIM,LPREAM,HPROB,HPROG,CURPTR,AUTHOR,LINDEX                   *011 LM00012    
                  PROGRAM COMMON LODLIM,SYSTEM,DAEMON,REELNO,TSKLTH                               *012 LM00013    
                                                                                                       LM00014    
                  VECTOR VALUES FENCE = 777777777777K                                             *013 LM00015    
                  VECTOR VALUES MZE = 4K11                                                        *014 LM00016    
                  VECTOR VALUES TFUDG = 1800                                                      *015 LM00017    
                  VECTOR VALUES TABLIM = 200                                                      *016 LM00018    
                  VECTOR VALUES LODLIM = 2000                                                     *017 LM00019    
                  VECTOR VALUES LPREAM = 12                                                       *018 LM00020    
                  VECTOR VALUES TSKLTH = 11                                                       *019 LM00021    
                                                                                                       LM00022    
                  VECTOR VALUES SYSTEM = $ C0056$                                                 *020 LM00023    
                  VECTOR VALUES DAEMON = $ 99999$                                                 *021 LM00024    
                  VECTOR VALUES D = $(DUMP)$                                                      *022 LM00025    
                  VECTOR VALUES T = $(TAPE)$                                                      *023 LM00026    
                  VECTOR VALUES USERF = $USER F$                                                  *024 LM00027    
                  VECTOR VALUES ILEDI = $ILE DI$                                                  *025 LM00028    
                  DIMENSION HEDER2(12)                                                            *026 LM00029    
                  PROGRAM COMMON HEDER2                                                           *027 LM00030    
                                                                                                       LM00031    
                  VECTOR VALUES WITH = $ WITH $                                                   *028 LM00006    
                  VECTOR VALUES FIRST = $ FIRST$                                                  *029 LM00007    
                  VECTOR VALUES SECOND = $SECOND$                                                 *030 LM00008    
                  VECTOR VALUES NAME = $ NAME $                                                   *031 LM00009    
                                                                                                       LM00010    
                  VECTOR VALUES NULLS = 575757575757K                                             *032 LM00011    
                                                                                                       LM00012    
                  VECTOR VALUES MESS1 = $     NO FILE$,0,0,0,0,$ FOUND IN DUMP FOR$,              *033 LM00013    
                1      0,575757575760K,0,777777777777K                                            *033 LM00014    
                                                                                                       LM00015    
                  STATEMENT LABEL Y                                                               *034 LM00016    
                  BOOLEAN X,Z                                                                     *035 LM00017    
                                                                                                       LM00018    
                      LOOK OVER TABLE TO FIND MISSING ENTRIES                                          LM00019    
                      DEPENDING ON THE SETTING OF 'X', PRINT                                           LM00020    
                      MISSING ENTRIES OR RETURN QUIETLY                                                LM00021    
                                                                                                       LM00022    
                  ENTRY TO RECAP.                                                                 *036 LM00023    
                  Z = 0B                                                                          *037 LM00024    
                  THROUGH LOOP1, FOR I = 0,TSKLTH,(I .GE. AINDEX)                                 *038 LM00025    
                       INDEX = 0                                                                  *039 LM00026    
                                                                                                       LM00027    
                      MANUFACTURE DUMMY ENTRIES FOR TESTING                                            LM00028    
                                                                                                       LM00029    
                       BUFF(7) = TABLE(I+4)                                                       *040 LM00030    
                       BUFF(6) = TABLE(I+5)                                                       *041 LM00031    
                       BUFF(4) = 0                                                                *042 LM00032    
                       BUFF(3) = 0                                                                *043 LM00033    
                       PB = TABLE(I)                                                              *044 LM00034    
                       PG = TABLE(I+1)                                                            *045 LM00035    
                  WHENEVER(X .AND.(TABLE(I+8) .E. FENCE)), TABLE(I+8)=0                           *046 LM00036    
                       DND = TABLE(I+6).V.TABLE(I+7)                                              *047 LM00037    
                       DECIDE.(BUFF,YES,LOOP1,0B)                                                 *048 LM00038    
                                                                                                       LM00039    
      YES              WHENEVER .NOT. X , FUNCTION RETURN                                         *049 LM00040    
                       Z = 1B                                                                     *050 LM00041    
                                                                                                       LM00042    
                      ENTRY WAS NOT FOUND, NOTE THIS                                                   LM00043    
                                                                                                       LM00044    
                       WHENEVER TABLE(I+4) .E. FENCE, INDEX = 2                                   *051 LM00045    
                       WHENEVER TABLE(I+5) .E. FENCE, INDEX = INDEX + 1                           *052 LM00046    
                       MESS1(9) = TABLE(I)                                                        *053 LM00047    
                       MESS1(11) = TABLE(I+1)                                                     *054 LM00048    
                       TRANSFER TO ST(INDEX)                                                      *055 LM00049    
                                                                                                       LM00050    
                      NAME1 NAME2 NOT FOUND                                                            LM00051    
                                                                                                       LM00052    
      ST(0)            MESS1(2) = WITH                                                            *056 LM00053    
                       MESS1(3) = NAME                                                            *057 LM00054    
                       MESS1(4) = TABLE(I+4)                                                      *058 LM00055    
                       MESS1(5) = TABLE(I+5)                                                      *059 LM00056    
                       TRANSFER TO PRINT                                                          *060 LM00057    
                                                                                                       LM00058    
                      NAME1 * NOT FOUND                                                                LM00059    
                                                                                                       LM00060    
      ST(1)            MESS1(2) = WITH                                                            *061 LM00061    
                       MESS1(3) = FIRST                                                           *062 LM00062    
                       MESS1(4) = NAME                                                            *063 LM00063    
                       MESS1(5) = TABLE(I+4)                                                      *064 LM00064    
                       TRANSFER TO PRINT                                                          *065 LM00065    
                                                                                                       LM00066    
                      * NAME2 NOT FOUND                                                                LM00067    
                                                                                                       LM00068    
      ST(2)            MESS1(2) = WITH                                                            *066 LM00069    
                       MESS1(3) = SECOND                                                          *067 LM00070    
                       MESS1(4) = NAME                                                            *068 LM00071    
                       MESS1(5) = TABLE(I+5)                                                      *069 LM00072    
                       TRANSFER TO PRINT                                                          *070 LM00073    
                                                                                                       LM00074    
                      NO FILES FOUND                                                                   LM00075    
                                                                                                       LM00076    
      ST(3)            MESS1(2) = 625757575757K                                                   *071 LM00077    
                       MESS1(3) = NULLS                                                           *072 LM00078    
                       MESS1(4) = NULLS                                                           *073 LM00079    
                       MESS1(5) = NULLS                                                           *074 LM00080    
                                                                                                       LM00081    
                      PRINT MESSAGE, LEAVE NOTE, AND CLEAR ENTRY                                       LM00082    
                                                                                                       LM00083    
      PRINT            PRNTP.(MESS1)                                                              *075 LM00084    
                       MAIL.(TABLE(I),TABLE(I+1),MESS1,1B)                                        *076 LM00085    
                       TABLE(I+2) = 0                                                             *077 LM00086    
                                                                                                       LM00087    
      LOOP1       CONTINUE                                                                        *078 LM00088    
                                                                                                       LM00089    
                  WHENEVER .NOT. (X.OR.Z)                                                         *079 LM00090    
                       TRANSFER TO Y                                                              *080 LM00091    
                  OTHERWISE                                                                       *081 LM00092    
                       FUNCTION RETURN                                                            *082 LM00093    
                  END OF CONDITIONAL                                                              *083 LM00094    
                                                                                                       LM00095    
                  END OF FUNCTION                                                                 *084 LM00096    
1MAD PROGRAM,TYPE NOV 1963      (ALL NUMBERS ARE OCTAL)     
0TOTAL LOCATIONS   00354 TRANSFER VECTOR LENGTH  00004 PROGRAM BEGINS    00053 FIRST UNUSED COMMON/ERASABLE  67621
0 PROGRAM IS AN EXTERNAL FUNCTION.   THE FOLLOWING ARE ENTRIES    
      RECAP  00054   0                                                                                                  
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)  
      AINDEX 67664  C1        FENCE  67656 AC1        LODLIM 67643 AC1        PG     74500  C1        T      67661 AC1  
      AUTHOR 67645  C1        FIRST  00014 A 1        LODTAB 73605 AC1        PRINT  00006   4        TSKLTH 67637 AC1  
      BUFF1  76255 AC1        HEADER 74513 AC1        LOOP1  00005   4        PRIV   67653  C1        UFD    73615 AC1  
      BUFF2  75374 AC1        HEDER2 67636 AC1        LPREAM 67651 AC1        REELNO 67640  C1        UNIT   67663  C1  
      BUFF   77136 AC1        HPROB  67650  C1        LRCT   74512  C1        SECOND 00036 A 1        USERF  67655 AC1  
      CURPTR 67646  C1        HPROG  67647  C1        MESS1  00033 A 1        ST     00012 A 4        WC     74511  C1  
      DAEMON 67641 AC1        ILEDI  67654 AC1        MZE    67660 AC1        SYSTEM 67642 AC1        WITH   00037 A 1  
      DND    74503  C1        INDEX  00015   1        NAME   00034 A 1        TABLE  77461 AC1        YES    00013   4  
      DRAIN  74476 AC1        I      00016   1        NULLS  00035 A 1        TABLIM 67652 AC1        Z      00040   2  
      D      67662 AC1        LINDEX 67644  C1        PB     74477  C1        TFUDG  67657 AC1                          
0FUNCTION DICTIONARY    
      DECIDE 00000   1        EXIT   00001   1        MAIL   00002   1        PRNTP  00003   1                          
0ABSOLUTE CONSTANTS     
 00052 -225757575757     00043 +000000000002     00046 +000000000006     00047 +000000000007     00050 +000000000010    
 00045 +000000000005     00044 +000000000004     00041 +000000000000     00042 +000000000001     00051 +233000000000    
0STATEMENT DICTIONARY   
 00005 TXL -300323000322       00006 TXL -300277000275       00007 TXL -300267000265       00010 TXL -300253000251      
 00011 TXL -300237000235       00012 TXL -300220000216       00013 TXL -300161000156                                    
0PROGRAM    
                 EXTERNAL FUNCTION (X,Y)                                            001  LM00004
                 I'E  COM                                                           002  LM00005
                 N'R                                                                003  LM00002
                 B'N SWT.                                                           004  LM00003
                 D'N TABLE(210),BUFF(432),BUFF1(432),BUFF2(432)                     005  LM00005
                 D'N HEADER(12),UFD(7),DRAIN(432),LODTAB(2000)                      006  LM00006
                 E'E (PB,HEADER(12)),(PG,HEADER(11)),(DND,HEADER(8)),               007  LM00007
                1     (WC,HEADER(2)),(LRCT,HEADER(1))                               007  LM00008
                 P'N TABLE,BUFF,BUFF1,BUFF2                                         008  LM00009
                 P'N HEADER,DRAIN,UFD,LODTAB                                        009  LM00010
                 P'N AINDEX,UNIT,D,T,MZE,TFUDG,FENCE,USERF,ILEDI,PRIV               010  LM00011
                 P'N TABLIM,LPREAM,HPROB,HPROG,CURPTR,AUTHOR,LINDEX                 011  LM00012
                 P'N LODLIM,SYSTEM,DAEMON,REELNO,TSKLTH                             012  LM00013
                 V'S FENCE = 777777777777K                                          013  LM00015
 67656     -3 77777 7 77777                                                                                             
                 V'S MZE = 4K11                                                     014  LM00016
 67660     -0 00000 0 00000                                                                                             
                 V'S TFUDG = 1800                                                   015  LM00017
 67657     +0 00000 0 03410                                                                                             
                 V'S TABLIM = 200                                                   016  LM00018
 67652     +0 00000 0 00310                                                                                             
                 V'S LODLIM = 2000                                                  017  LM00019
 67643     +0 00000 0 03720                                                                                             
                 V'S LPREAM = 12                                                    018  LM00020
 67651     +0 00000 0 00014                                                                                             
                 V'S TSKLTH = 11                                                    019  LM00021
 67637     +0 00000 0 00013                                                                                             
                 V'S SYSTEM = $ C0056$                                              020  LM00023
 67642     -2 02300 0 00506                                                                                             
                 V'S DAEMON = $ 99999$                                              021  LM00024
 67641     -2 01111 1 11111                                                                                             
                 V'S D = $(DUMP)$                                                   022  LM00025
 67662     -3 42464 4 44734                                                                                             
                 V'S T = $(TAPE)$                                                   023  LM00026
 67661     -3 46321 4 72534                                                                                             
                 V'S USERF = $USER F$                                               024  LM00027
 67655     -2 46225 5 16026                                                                                             
                 V'S ILEDI = $ILE DI$                                               025  LM00028
 67654     +3 14325 6 02431                                                                                             
                 DIMENSION HEDER2(12)                                               026  LM00029
                 P'N HEDER2                                                         027  LM00030
                 V'S WITH = $ WITH $                                                028  LM00006
 00037     -2 06631 6 33060                                                                                             
                 V'S FIRST = $ FIRST$                                               029  LM00007
 00014     -2 02631 5 16263                                                                                             
                 V'S SECOND = $SECOND$                                              030  LM00008
 00036     -2 22523 4 64524                                                                                             
                 V'S NAME = $ NAME $                                                031  LM00009
 00034     -2 04521 4 42560                                                                                             
                 V'S NULLS = 575757575757K                                          032  LM00011
 00035     -1 75757 5 75757                                                                                             
                 V'S MESS1 = $     NO FILE$,0,0,0,0,$ FOUND IN DUMP FOR$,           033  LM00013
                1     0,575757575760K,0,777777777777K                               033  LM00014
 00017     -3 77777 7 77777    00020     +0 00000 0 00000    00021     -1 75757 5 75760    00022     +0 00000 0 00000   
 00023     -0 44760 2 64651    00024     -2 03145 6 02464    00025     -2 02646 6 44524    00026     +0 00000 0 00000   
 00027     +0 00000 0 00000    00030     +0 00000 0 00000    00031     +0 00000 0 00000    00032     -0 66026 3 14325   
 00033     -2 06060 6 06045                                                                                             
                 S'L Y                                                              034  LM00016
                 B'N X,Z                                                            035  LM00017
                 E'O RECAP.                                                         036  LM00023
 00053 TRA +0 02000 0 00056    00054 SXA +0 63400 2 00333    00055 TSX +0 07400 2 00333                                 
                 Z = 0B                                                             037  LM00024
 00056 CLA +0 50000 0 00041    00057 STO +0 60100 0 00040                                                               
                 T'H LOOP1, FOR I = 0,TSKLTH,(I .GE. AINDEX)                        038  LM00025
 00060 CLA +0 50000 0 00041    00061 STO +0 60100 0 00016    00062 TRA +0 02000 0 00066    00063 CLA +0 50000 0 00016   
 00064 ADD +0 40000 0 67637    00065 STO +0 60100 0 00016    00066 CLA +0 50000 0 00016    00067 SUB +0 40200 0 67664   
 00070 TZE +0 10000 0 00323    00071 TPL +0 12000 0 00323                                                               
                      INDEX = 0                                                     039  LM00026
 00072 CLA +0 50000 0 00041    00073 STO +0 60100 0 00015                                                               
                      BUFF(7) = TABLE(I+4)                                          040  LM00030
 00074 CLA +0 50000 0 00016    00075 ADD +0 40000 0 00044    00076 PAX +0 73400 2 00000    00077 CLA +0 50000 2 77461   
 00100 STO +0 60100 0 77127                                                                                             
                      BUFF(6) = TABLE(I+5)                                          041  LM00031
 00101 CLA +0 50000 0 00016    00102 ADD +0 40000 0 00045    00103 PAX +0 73400 2 00000    00104 CLA +0 50000 2 77461   
 00105 STO +0 60100 0 77130                                                                                             
                      BUFF(4) = 0                                                   042  LM00032
 00106 CLA +0 50000 0 00041    00107 STO +0 60100 0 77132                                                               
                      BUFF(3) = 0                                                   043  LM00033
 00110 CLA +0 50000 0 00041    00111 STO +0 60100 0 77133                                                               
                      PB = TABLE(I)                                                 044  LM00034
 00112 LXA +0 53400 2 00016    00113 CLA +0 50000 2 77461    00114 STO +0 60100 0 74477                                 
                      PG = TABLE(I+1)                                               045  LM00035
 00115 CLA +0 50000 0 00016    00116 ADD +0 40000 0 00042    00117 PAX +0 73400 2 00000    00120 CLA +0 50000 2 77461   
 00121 STO +0 60100 0 74500                                                                                             
                 W'R(X .AND.(TABLE(I+8) .E. FENCE)), TABLE(I+8)=0                   046  LM00036
 00122 CLA +0 50000 0 00016    00123 ADD +0 40000 0 00050    00124 PAX +0 73400 1 00000    00125 CLA +0 50000 1 77461   
 00126 SUB +0 40200 0 67656    00127 TNZ -0 10000 0 00137    00130 NZT -0 52000 0 00000    00131 TRA +0 02000 0 00137   
 00132 CLA +0 50000 0 00016    00133 ADD +0 40000 0 00050    00134 PAX +0 73400 1 00000    00135 CLA +0 50000 0 00041   
 00136 STO +0 60100 1 77461                                                                                             
                      DND = TABLE(I+6).V.TABLE(I+7)                                 047  LM00037
 00137 CLA +0 50000 0 00016    00140 ADD +0 40000 0 00047    00141 STO +0 60100 0 00351    00142 CLA +0 50000 0 00016   
 00143 ADD +0 40000 0 00046    00144 PAX +0 73400 1 00000    00145 LXA +0 53400 2 00351    00146 CAL -0 50000 1 77461   
 00147 ORA -0 50100 2 77461    00150 SLW +0 60200 0 74503                                                               
                      DECIDE.(BUFF,YES,LOOP1,0B)                                    048  LM00038
 00151 TSX +0 07400 4 00000    00152 TXH +3 00000 0 77136    00153 TXH +3 00000 0 00013    00154 TXH +3 00000 0 00005   
 00155 TXH +3 00000 0 00041                                                                                             
      YES             W'R .NOT. X , F'N                                             049  LM00040
 00156 ZET +0 52000 0 00000    00157 TRA +0 02000 0 00161    00160 TRA +0 02000 0 00345                                 
                      Z = 1B                                                        050  LM00041
 00161 CLA +0 50000 0 00042    00162 STO +0 60100 0 00040                                                               
                      W'R TABLE(I+4) .E. FENCE, INDEX = 2                           051  LM00045
 00163 CLA +0 50000 0 00016    00164 ADD +0 40000 0 00044    00165 PAX +0 73400 1 00000    00166 CLA +0 50000 1 77461   
 00167 SUB +0 40200 0 67656    00170 TNZ -0 10000 0 00173    00171 CLA +0 50000 0 00043    00172 STO +0 60100 0 00015   
                      W'R TABLE(I+5) .E. FENCE, INDEX = INDEX + 1                   052  LM00046
 00173 CLA +0 50000 0 00016    00174 ADD +0 40000 0 00045    00175 PAX +0 73400 1 00000    00176 CLA +0 50000 1 77461   
 00177 SUB +0 40200 0 67656    00200 TNZ -0 10000 0 00204    00201 CLA +0 50000 0 00015    00202 ADD +0 40000 0 00042   
 00203 STO +0 60100 0 00015                                                                                             
                      MESS1(9) = TABLE(I)                                           053  LM00047
 00204 LXA +0 53400 2 00016    00205 CLA +0 50000 2 77461    00206 STO +0 60100 0 00022                                 
                      MESS1(11) = TABLE(I+1)                                        054  LM00048
 00207 CLA +0 50000 0 00016    00210 ADD +0 40000 0 00042    00211 PAX +0 73400 2 00000    00212 CLA +0 50000 2 77461   
 00213 STO +0 60100 0 00020                                                                                             
                      T'O ST(INDEX)                                                 055  LM00049
 00214 LXA +0 53400 2 00015    00215 TRA +0 02000 2 00012                                                               
      ST(0)           MESS1(2) = WITH                                               056  LM00053
 00216 CLA +0 50000 0 00037    00217 STO +0 60100 0 00031                                                               
                      MESS1(3) = NAME                                               057  LM00054
 00220 CLA +0 50000 0 00034    00221 STO +0 60100 0 00030                                                               
                      MESS1(4) = TABLE(I+4)                                         058  LM00055
 00222 CLA +0 50000 0 00016    00223 ADD +0 40000 0 00044    00224 PAX +0 73400 2 00000    00225 CLA +0 50000 2 77461   
 00226 STO +0 60100 0 00027                                                                                             
                      MESS1(5) = TABLE(I+5)                                         059  LM00056
 00227 CLA +0 50000 0 00016    00230 ADD +0 40000 0 00045    00231 PAX +0 73400 2 00000    00232 CLA +0 50000 2 77461   
 00233 STO +0 60100 0 00026                                                                                             
                      T'O PRINT                                                     060  LM00057
 00234 TRA +0 02000 0 00006                                                                                             
      ST(1)           MESS1(2) = WITH                                               061  LM00061
 00235 CLA +0 50000 0 00037    00236 STO +0 60100 0 00031                                                               
                      MESS1(3) = FIRST                                              062  LM00062
 00237 CLA +0 50000 0 00014    00240 STO +0 60100 0 00030                                                               
                      MESS1(4) = NAME                                               063  LM00063
 00241 CLA +0 50000 0 00034    00242 STO +0 60100 0 00027                                                               
                      MESS1(5) = TABLE(I+4)                                         064  LM00064
 00243 CLA +0 50000 0 00016    00244 ADD +0 40000 0 00044    00245 PAX +0 73400 2 00000    00246 CLA +0 50000 2 77461   
 00247 STO +0 60100 0 00026                                                                                             
                      T'O PRINT                                                     065  LM00065
 00250 TRA +0 02000 0 00006                                                                                             
      ST(2)           MESS1(2) = WITH                                               066  LM00069
 00251 CLA +0 50000 0 00037    00252 STO +0 60100 0 00031                                                               
                      MESS1(3) = SECOND                                             067  LM00070
 00253 CLA +0 50000 0 00036    00254 STO +0 60100 0 00030                                                               
                      MESS1(4) = NAME                                               068  LM00071
 00255 CLA +0 50000 0 00034    00256 STO +0 60100 0 00027                                                               
                      MESS1(5) = TABLE(I+5)                                         069  LM00072
 00257 CLA +0 50000 0 00016    00260 ADD +0 40000 0 00045    00261 PAX +0 73400 2 00000    00262 CLA +0 50000 2 77461   
 00263 STO +0 60100 0 00026                                                                                             
                      T'O PRINT                                                     070  LM00073
 00264 TRA +0 02000 0 00006                                                                                             
      ST(3)           MESS1(2) = 625757575757K                                      071  LM00077
 00265 CLA +0 50000 0 00052    00266 STO +0 60100 0 00031                                                               
                      MESS1(3) = NULLS                                              072  LM00078
 00267 CLA +0 50000 0 00035    00270 STO +0 60100 0 00030                                                               
                      MESS1(4) = NULLS                                              073  LM00079
 00271 CLA +0 50000 0 00035    00272 STO +0 60100 0 00027                                                               
                      MESS1(5) = NULLS                                              074  LM00080
 00273 CLA +0 50000 0 00035    00274 STO +0 60100 0 00026                                                               
      PRINT           PRNTP.(MESS1)                                                 075  LM00084
 00275 TSX +0 07400 4 00003    00276 TXH +3 00000 0 00033                                                               
                      MAIL.(TABLE(I),TABLE(I+1),MESS1,1B)                           076  LM00085
 00277 CLA +0 50000 0 00016    00300 ADD +0 40000 0 00042    00301 SUB +0 40200 0 00302    00302 TXH +3 00000 0 77461   
 00303 STA +0 62100 0 00312    00304 CLA +0 50000 0 00016    00305 SUB +0 40200 0 00306    00306 TXH +3 00000 0 77461   
 00307 STA +0 62100 0 00311    00310 TSX +0 07400 4 00002    00311 TXH +3 00000 0 00000    00312 TXH +3 00000 0 00000   
 00313 TXH +3 00000 0 00033    00314 TXH +3 00000 0 00042                                                               
                      TABLE(I+2) = 0                                                077  LM00086
 00315 CLA +0 50000 0 00016    00316 ADD +0 40000 0 00043    00317 PAX +0 73400 1 00000    00320 CLA +0 50000 0 00041   
 00321 STO +0 60100 1 77461                                                                                             
      LOOP1      C'E                                                                078  LM00088
 00322 TRA +0 02000 0 00063                                                                                             
                 W'R .NOT. (X.OR.Z)                                                 079  LM00090
 00323 ZET +0 52000 0 00040    00324 TRA +0 02000 0 00331    00325 ZET +0 52000 0 00000    00326 TRA +0 02000 0 00331   
                      T'O Y                                                         080  LM00091
 00327 TRA +0 02000 0 00000                                                                                             
                 O'E                                                                081  LM00092
 00330 TRA +0 02000 0 00332                                                                                             
                      F'N                                                           082  LM00093
 00331 TRA +0 02000 0 00345                                                                                             
                 E'L                                                                083  LM00094
                 E'N                                                                084  LM00096
 00332 TSX +0 07400 4 00001    00333 TXH +3 00000 0 00000    00334 SXD -0 63400 1 00333    00335 SXA +0 63400 4 00345   
 00336 CLA +0 50000 4 00001    00337 STA +0 62100 0 00130    00340 STA +0 62100 0 00156    00341 STA +0 62100 0 00325   
 00342 CLA +0 50000 4 00002    00343 STA +0 62100 0 00327    00344 TRA +0 02000 2 00001    00345 AXT +0 77400 4 00000   
 00346 LXA +0 53400 2 00333    00347 LXD -0 53400 1 00333    00350 TRA +0 02000 4 00001                                 




TPREAD   BCD 04/29/67 2209.9   10003         00000    
1     MAD PROGRAM LISTING ... ... ...                 FILE  TPREAD   MAD            04/29/67    2140.8
-                 
                      TAPE READING PACKAGE                                                             LM00001    
                           D.R. WIDRIG  DEC. 1965                                                      LM00002    
                  EXTERNAL FUNCTION (V,N,WCT,EOF1,EOFCT,ERR1,ERRS)                                *001 LM00003    
                  INSERT FILE COM                                                                 *002 LM00004    
                                                                                                  *002 LM00001    
                  NORMAL MODE IS INTEGER                                                          *003 LM00002    
                  BOOLEAN SWT.                                                                    *004 LM00003    
                                                                                                       LM00004    
                  DIMENSION TABLE(210),BUFF(432),BUFF1(432),BUFF2(432)                            *005 LM00005    
                  DIMENSION HEADER(12),UFD(7),DRAIN(432),LODTAB(2000)                             *006 LM00006    
                  EQUIVALENCE (PB,HEADER(12)),(PG,HEADER(11)),(DND,HEADER(8)),                    *007 LM00007    
                1      (WC,HEADER(2)),(LRCT,HEADER(1))                                            *007 LM00008    
                  PROGRAM COMMON TABLE,BUFF,BUFF1,BUFF2                                           *008 LM00009    
                  PROGRAM COMMON HEADER,DRAIN,UFD,LODTAB                                          *009 LM00010    
                  PROGRAM COMMON AINDEX,UNIT,D,T,MZE,TFUDG,FENCE,USERF,ILEDI,PRIV                 *010 LM00011    
                  PROGRAM COMMON TABLIM,LPREAM,HPROB,HPROG,CURPTR,AUTHOR,LINDEX                   *011 LM00012    
                  PROGRAM COMMON LODLIM,SYSTEM,DAEMON,REELNO,TSKLTH                               *012 LM00013    
                                                                                                       LM00014    
                  VECTOR VALUES FENCE = 777777777777K                                             *013 LM00015    
                  VECTOR VALUES MZE = 4K11                                                        *014 LM00016    
                  VECTOR VALUES TFUDG = 1800                                                      *015 LM00017    
                  VECTOR VALUES TABLIM = 200                                                      *016 LM00018    
                  VECTOR VALUES LODLIM = 2000                                                     *017 LM00019    
                  VECTOR VALUES LPREAM = 12                                                       *018 LM00020    
                  VECTOR VALUES TSKLTH = 11                                                       *019 LM00021    
                                                                                                       LM00022    
                  VECTOR VALUES SYSTEM = $ C0056$                                                 *020 LM00023    
                  VECTOR VALUES DAEMON = $ 99999$                                                 *021 LM00024    
                  VECTOR VALUES D = $(DUMP)$                                                      *022 LM00025    
                  VECTOR VALUES T = $(TAPE)$                                                      *023 LM00026    
                  VECTOR VALUES USERF = $USER F$                                                  *024 LM00027    
                  VECTOR VALUES ILEDI = $ILE DI$                                                  *025 LM00028    
                  DIMENSION HEDER2(12)                                                            *026 LM00029    
                  PROGRAM COMMON HEDER2                                                           *027 LM00030    
                                                                                                       LM00031    
                  VECTOR VALUES UNXEOF = 6                                                        *028 LM00005    
                                                                                                       LM00006    
                  VECTOR VALUES DUMPTP = $DUMPTP$                                                 *029 LM00007    
                  VECTOR VALUES MAP = $ 'MAP'$                                                    *030 LM00008    
                                                                                                       LM00009    
                  VECTOR VALUES MESS1 = $ERROR TREATED AS END OF TAPE$,777777777777K              *031 LM00010    
                                                                                                       LM00011    
                  STATEMENT LABEL EOF1,ERR1,ERRS                                                  *032 LM00012    
                  BOOLEAN EOFSW,ENDTAP                                                            *033 LM00013    
                                                                                                       LM00014    
                      SET UP EOF COUNT, ETC.                                                           LM00015    
                      THIS ROUTINE IS CALLED TO SETUP EVERY LOGICAL FILE                               LM00016    
                      CALLING SEQUENCE IS.. STAPE.(-0,-0,WCOUNT)                                       LM00017    
                                                                                                       LM00018    
                  ENTRY TO STAPE.                                                                 *034 LM00019    
                  DELTA = 432-LPREAM                                                              *035 LM00020    
                  EOFCT1 = WCT                                                                    *036 LM00021    
                  WORDS = 0                                                                       *037 LM00022    
                  WORDS1 = 0                                                                      *038 LM00023    
                  RCT = 0                                                                         *039 LM00024    
                  EOFSW = 0B                                                                      *040 LM00025    
                                                                                                       LM00026    
                      CHECK FOR LAST RECORD READ ON TAPE                                               LM00027    
                                                                                                       LM00028    
                  WHENEVER (HEADER(7).E.DUMPTP).AND.(HEADER(6).E.MAP)                             *041 LM00029    
                       ENDTAP = 1B                                                                *042 LM00030    
                  OTHERWISE                                                                       *043 LM00031    
                       ENDTAP = 0B                                                                *044 LM00032    
                  END OF CONDITIONAL                                                              *045 LM00033    
                  FUNCTION RETURN                                                                 *046 LM00034    
                                                                                                       LM00035    
                      DRAIN OFF UNUSED PORTION OF FILE                                                 LM00036    
                      THAT IS, FINISH THIS TAPE FILE                                                   LM00037    
                      CALLING SEQUENCE IS ...                                                          LM00038    
                           FTAPE.(-0,-0,-0,EOFRTN,EOFCT,ERROR)                                         LM00039    
                                                                                                       LM00040    
                  ENTRY TO FTAPE.                                                                 *047 LM00041    
                  WDS = DELTA - WORDS1                                                            *048 LM00042    
                  BACK = 0                                                                        *049 LM00043    
      READ(0)     RDWAIT.(D,T,0,DRAIN(WDS)...WDS,EOF1,EOFCT,TPERR)                                *050 LM00044    
                  FUNCTION RETURN                                                                 *051 LM00045    
                                                                                                       LM00046    
                      READ DUMP TAPE RECORDS                                                           LM00047    
                      CALLING SEQUENCE IS ...                                                          LM00048    
                           RDTAPE.(BUFF(0),WCOUNT,-0,EOFRTN,EOFCT,ERROR)                               LM00049    
                                                                                                       LM00050    
                  ENTRY TO RDTAPE.                                                                *052 LM00051    
                  WDS = N                                                                         *053 LM00052    
                  WHENEVER (WORDS+WDS).G.EOFCT1                                                   *054 LM00053    
                       EOFSW = 1B                                                                 *055 LM00054    
                       WDS = EOFCT1 - WORDS                                                       *056 LM00055    
                       EOFCT = WDS                                                                *057 LM00056    
                  END OF CONDITIONAL                                                              *058 LM00057    
                  WDS1 = WDS                                                                      *059 LM00058    
                  WDS2 = 0                                                                        *060 LM00059    
                  WORDS1 = WORDS1 + WDS                                                           *061 LM00060    
                                                                                                       LM00061    
                      CHECK FOR A NEW RECORD                                                           LM00062    
                                                                                                       LM00063    
                  WHENEVER (WORDS1.G.DELTA)                                                       *062 LM00064    
                       WDS1 = DELTA - (WORDS1-WDS)                                                *063 LM00065    
                       WDS2 = WDS - WDS1                                                          *064 LM00066    
                       WORDS1 = WDS2                                                              *065 LM00067    
                       DELTA = 432                                                                *066 LM00068    
                       RCT = RCT+1                                                                *067 LM00069    
                  END OF CONDITIONAL                                                              *068 LM00070    
                                                                                                       LM00071    
                      READ FIRST RECORD WORDS                                                          LM00072    
                                                                                                       LM00073    
                  BACK = 1                                                                        *069 LM00074    
      READ(1)     RDWAIT.(D,T,0,V(WDS)...WDS1,EOF,EOFCT,TPERR)                                    *070 LM00075    
                  WORDS = WORDS + WDS1                                                            *071 LM00076    
                   CHECK FOR END OF DAEMON LOGICAL RECORD                                              LM00077    
                  BACK = 2                                                                        *072 LM00078    
                  WHENEVER RCT  .E. 4                                                             *073 LM00079    
                       RCT = 0                                                                    *074 LM00080    
                       DELTA = 432 - LPREAM                                                       *075 LM00081    
      READ(2)          RDWAIT.(D,T,0,DRAIN(LPREAM)...LPREAM,EOF,EOFCT,TPERR)                      *076 LM00082    
                  END OF CONDITIONAL                                                              *077 LM00083    
                                                                                                       LM00084    
                  READ REMAINDER OF WORDS                                                              LM00085    
                  BACK = 3                                                                        *078 LM00086    
      READ(3)     RDWAIT.(D,T,0,V(WDS-WDS1)...WDS2,EOF,EOFCT,TPERR)                               *079 LM00087    
                  WORDS = WORDS + WDS2                                                            *080 LM00088    
                                                                                                       LM00089    
                      TEST FOR END-OF-LOGICAL FILE                                                     LM00090    
                                                                                                       LM00091    
                  WHENEVER EOFSW, TRANSFER TO EOF1                                                *081 LM00092    
                                                                                                       LM00093    
                  FUNCTION RETURN                                                                 *082 LM00094    
                                                                                                       LM00095    
                                                                                                       LM00096    
      EOF         WHENEVER (WORDS .GE. EOFCT1) .OR. ENDTAP, TRANSFER TO EOF1                      *083 LM00097    
                   OTHERWISE, FILE IS SPLIT, GET NEW TAPE MOUNTED.                                     LM00098    
                  UNIT = NEWTAP.(0)                                                               *084 LM00099    
                  WHENEVER UNIT .E. 0                                                             *085 LM00100    
                       PRNTP.(MESS1)                                                              *086 LM00101    
                       TRANSFER TO ERR1                                                           *087 LM00102    
                  END OF CONDITIONAL                                                              *088 LM00103    
                  RDWAIT.(D,T,0,DRAIN(LPREAM)...LPREAM,EOF1,EOFCT,TPERR)                          *089 LM00104    
                  TEMP = WORDS - WCOUNT.(MZE,DRAIN(1) .RS. 18)                                    *090 LM00105    
                  RDWAIT.(D,T,TEMP+LPREAM,DRAIN(0)...0)                                           *091 LM00106    
                  TRANSFER TO READ(BACK)                                                          *092 LM00107    
                                                                                                       LM00108    
                      TPERR...TAPE ERROR. POSITION AT NEXT GOOD RECORD.                                LM00109    
                                                                                                       LM00110    
      TPERR       DRAIN(0) = PB                                                                   *093 LM00111    
                  DRAIN(1) = PG                                                                   *094 LM00112    
                  DRAIN(2) = HEADER(7)                                                            *095 LM00113    
                  DRAIN(3) = HEADER(6)                                                            *096 LM00114    
                  DRAIN(4) = CVTIME.(DND)                                                         *097 LM00115    
                  DRAIN(5) = FENCE                                                                *098 LM00116    
                  PRNTP. (DRAIN)                                                                  *099 LM00117    
                  IODIAG.(DRAIN(7)...7)                                                           *100 LM00118    
                  WHENEVER DRAIN(4) .E. UNXEOF                                                    *101 LM00119    
                       PRNTER.                                                                    *102 LM00120    
                       TRANSFER TO ERRS                                                           *103 LM00121    
                  END OF CONDITIONAL                                                              *104 LM00122    
                  FSTATE. (D,T,DRAIN(8)...8)                                                      *105 LM00123    
                                                                                                       LM00124    
                    DRAIN(4) = ADDRESS OF NEXT WORD TO READ FROM FILE.                                 LM00125    
                     ADJUST RELLOC TO NEXT 432 WORD BOUNDARY.                                          LM00126    
                  RELLOC = ( (DRAIN(4) + 431)/432) *432 +1                                        *106 LM00127    
                                                                                                       LM00128    
      TPER1       RDWAIT.(D,T,RELLOC,HEDER2(LPREAM)...LPREAM,EOF1,EOFCT,TPER2)                    *107 LM00129    
                  VALID.(HEDER2(LPREAM),ERR1,TPER2)                                               *108 LM00130    
                                                                                                       LM00131    
                      ADD 432 TO RELLOC TO POSITION AT NEXT RECORD.                                    LM00132    
                                                                                                       LM00133    
      TPER2       RELLOC = RELLOC + 432                                                           *109 LM00134    
                  TRANSFER TO TPER1                                                               *110 LM00135    
                                                                                                       LM00136    
                 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *                           LM00137    
                  DRAINW.                                                                              LM00138    
                    DRAIN OFF USELESS WORDS                                                            LM00139    
                    DRAINW.(-0,LRCT,WCOUNT,EOFRTN,EOFCT,ERR,BADERR)                                    LM00140    
                                                                                                       LM00141    
                  ENTRY TO DRAINW.                                                                *111 LM00142    
                                                                                                       LM00143    
                   D1= NO. OF WORDS IN FILE TO SKIP, INCL. HEADERS                                     LM00144    
                                                                                                       LM00145    
                  D1 = DCOUNT.(WCT,N) - LPREAM                                                    *112 LM00146    
                  DIMENSION STATE (8)                                                             *113 LM00147    
                  FSTATE.(D,T,STATE(8)...8)                                                       *114 LM00148    
                  RELLOC = STATE(4)                                                               *115 LM00149    
                  RDWAIT.(D,T,RELLOC+D1-1,DRAIN(1)...1,EOF2,EOFCT2,TPERR)                         *116 LM00150    
                  FUNCTION RETURN                                                                 *117 LM00151    
                  .   .   .   .   .   .   .   .   .   .   .   .   .   .   .                            LM00152    
                                                                                                       LM00153    
                      EOF2.  HERE IF GET END-FO-FILE WHILE POSITIONING.                                LM00154    
                                                                                                       LM00155    
                                                                                                       LM00156    
      EOF2        FSTATE.(D,T,STATE(8)...8)                                                       *118 LM00157    
                  WHENEVER(STATE(4)-RELLOC) .L. D1                                                *119 LM00158    
                       UNIT = NEWTAP.(0)                                                          *120 LM00159    
                       WHENEVER UNIT .E. 0                                                        *121 LM00160    
                            PRNTP.(MESS1)                                                         *122 LM00161    
                            TRANSFER TO ERRS                                                      *123 LM00162    
                       END OF CONDITIONAL                                                         *124 LM00163    
                       RDWAIT.(D,T,0,DRAIN(LPREAM)...LPREAM,EOF1,EOFCT,TPERR)                     *125 LM00164    
                       TEMP = WCOUNT.(MZE,DRAIN(1).RS.18)                                         *126 LM00165    
                       RDWAIT.(D,T,TEMP+LPREAM,DRAIN(0)...0)                                      *127 LM00166    
                  OTHERWISE                                                                       *128 LM00167    
                       TRANSFER TO EOF1                                                           *129 LM00168    
                  END OF CONDITIONAL                                                              *130 LM00169    
                                                                                                       LM00170    
                  END OF FUNCTION                                                                 *131 LM00171    
       THE FOLLOWING NAMES HAVE OCCURRED ONLY ONCE IN THIS PROGRAM.     
       THEY WILL ALL BE ASSIGNED TO THE SAME LOCATION, AND  
       COMPILATION WILL CONTINUE.   
      EOFCT2
1MAD PROGRAM,TYPE NOV 1963      (ALL NUMBERS ARE OCTAL)     
0TOTAL LOCATIONS   00674 TRANSFER VECTOR LENGTH  00013 PROGRAM BEGINS    00100 FIRST UNUSED COMMON/ERASABLE  67621
0 PROGRAM IS AN EXTERNAL FUNCTION.   THE FOLLOWING ARE ENTRIES    
      DRAINW 00505   0        RDTAPE 00162   0        FTAPE  00135   0        STAPE  00101   0                          
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)  
      AINDEX 67664  C1        DUMPTP 00030 A 1        LINDEX 67644  C1        READ   00021 A 4        T      67661 AC1  
      AUTHOR 67645  C1        ENDTAP 00031   2        LODLIM 67643 AC1        REELNO 67640  C1        TSKLTH 67637 AC1  
      BACK   00025   1        EOF2   00014   4        LODTAB 73605 AC1        RELLOC 00044   1        UFD    73615 AC1  
      BUFF1  76255 AC1        EOFCT1 00032   1        LPREAM 67651 AC1        STATE  00055 A 1        UNIT   67663  C1  
      BUFF2  75374 AC1        EOFCT2 00013   1        LRCT   74512  C1        SYSTEM 67642 AC1        UNXEOF 00057 A 1  
      BUFF   77136 AC1        EOF    00015   4        MAP    00034 A 1        TABLE  77461 AC1        USERF  67655 AC1  
      CURPTR 67646  C1        EOFSW  00033   2        MESS1  00042 A 1        TABLIM 67652 AC1        WC     74511  C1  
      D1     00026   1        FENCE  67656 AC1        MZE    67660 AC1        TEMP   00056   1        WDS1   00060   1  
      DAEMON 67641 AC1        HEADER 74513 AC1        PB     74477  C1        TFUDG  67657 AC1        WDS2   00061   1  
      DELTA  00027   1        HEDER2 67636 AC1        PG     74500  C1        TPER1  00022   4        WDS    00062   1  
      DND    74503  C1        HPROB  67650  C1        PRIV   67653  C1        TPER2  00023   4        WORDS1 00063   1  
      DRAIN  74476 AC1        HPROG  67647  C1        RCT    00043   1        TPERR  00024   4        WORDS  00064   1  
      D      67662 AC1        ILEDI  67654 AC1                                                                          
0FUNCTION DICTIONARY    
      CVTIME 00000   1        DCOUNT 00001   1        EXIT   00002   1        FSTATE 00003   1        IODIAG 00004   1  
      NEWTAP 00005   1        PRNTER 00006   1        PRNTP  00007   1        RDWAIT 00010   1        VALID  00011   1  
      WCOUNT 00012   1                                                                                                  
0ABSOLUTE CONSTANTS     
 00075 +000000000657     00073 +000000000010     00072 +000000000007     00074 +000000000022     00070 +000000000003    
 00071 +000000000004     00067 +000000000002     00065 +000000000000     00076 +000000000660     00066 +000000000001    
 00077 +233000000000                                                                                                    
0STATEMENT DICTIONARY   
 00014 TXL -300543000537       00015 TXL -300340000331       00016 TXL -300322000305       00017 TXL -300303000267      
 00020 TXL -300252000236       00021 TXL -300160000144       00022 TXL -300470000454       00023 TXL -300503000500      
 00024 TXL -300414000412                                                                                                
0PROGRAM    
                 EXTERNAL FUNCTION (V,N,WCT,EOF1,EOFCT,ERR1,ERRS)                   001  LM00003
                 I'E COM                                                            002  LM00004
                 N'R                                                                003  LM00002
                 B'N SWT.                                                           004  LM00003
                 D'N TABLE(210),BUFF(432),BUFF1(432),BUFF2(432)                     005  LM00005
                 D'N HEADER(12),UFD(7),DRAIN(432),LODTAB(2000)                      006  LM00006
                 E'E (PB,HEADER(12)),(PG,HEADER(11)),(DND,HEADER(8)),               007  LM00007
                1     (WC,HEADER(2)),(LRCT,HEADER(1))                               007  LM00008
                 P'N TABLE,BUFF,BUFF1,BUFF2                                         008  LM00009
                 P'N HEADER,DRAIN,UFD,LODTAB                                        009  LM00010
                 P'N AINDEX,UNIT,D,T,MZE,TFUDG,FENCE,USERF,ILEDI,PRIV               010  LM00011
                 P'N TABLIM,LPREAM,HPROB,HPROG,CURPTR,AUTHOR,LINDEX                 011  LM00012
                 P'N LODLIM,SYSTEM,DAEMON,REELNO,TSKLTH                             012  LM00013
                 V'S FENCE = 777777777777K                                          013  LM00015
 67656     -3 77777 7 77777                                                                                             
                 V'S MZE = 4K11                                                     014  LM00016
 67660     -0 00000 0 00000                                                                                             
                 V'S TFUDG = 1800                                                   015  LM00017
 67657     +0 00000 0 03410                                                                                             
                 V'S TABLIM = 200                                                   016  LM00018
 67652     +0 00000 0 00310                                                                                             
                 V'S LODLIM = 2000                                                  017  LM00019
 67643     +0 00000 0 03720                                                                                             
                 V'S LPREAM = 12                                                    018  LM00020
 67651     +0 00000 0 00014                                                                                             
                 V'S TSKLTH = 11                                                    019  LM00021
 67637     +0 00000 0 00013                                                                                             
                 V'S SYSTEM = $ C0056$                                              020  LM00023
 67642     -2 02300 0 00506                                                                                             
                 V'S DAEMON = $ 99999$                                              021  LM00024
 67641     -2 01111 1 11111                                                                                             
                 V'S D = $(DUMP)$                                                   022  LM00025
 67662     -3 42464 4 44734                                                                                             
                 V'S T = $(TAPE)$                                                   023  LM00026
 67661     -3 46321 4 72534                                                                                             
                 V'S USERF = $USER F$                                               024  LM00027
 67655     -2 46225 5 16026                                                                                             
                 V'S ILEDI = $ILE DI$                                               025  LM00028
 67654     +3 14325 6 02431                                                                                             
                 DIMENSION HEDER2(12)                                               026  LM00029
                 P'N HEDER2                                                         027  LM00030
                 V'S UNXEOF = 6                                                     028  LM00005
 00057     +0 00000 0 00006                                                                                             
                 V'S DUMPTP = $DUMPTP$                                              029  LM00007
 00030     +2 46444 4 76347                                                                                             
                 V'S MAP = $ 'MAP'$                                                 030  LM00008
 00034     -2 01444 2 14714                                                                                             
                 V'S MESS1 = $ERROR TREATED AS END OF TAPE$,777777777777K           031  LM00010
 00035     -3 77777 7 77777    00036     -2 32147 2 56060    00037     -0 52460 4 62660    00040     +2 46021 6 26025   
 00041     -2 35125 2 16325    00042     +2 55151 4 65160                                                               
                 S'L EOF1,ERR1,ERRS                                                 032  LM00012
                 B'N EOFSW,ENDTAP                                                   033  LM00013
                 E'O STAPE.                                                         034  LM00019
 00100 TRA +0 02000 0 00103    00101 SXA +0 63400 2 00621    00102 TSX +0 07400 2 00621                                 
                 DELTA = 432-LPREAM                                                 035  LM00020
 00103 CLA +0 50000 0 00076    00104 SUB +0 40200 0 67651    00105 STO +0 60100 0 00027                                 
                 EOFCT1 = WCT                                                       036  LM00021
 00106 CLA +0 50000 0 00000    00107 STO +0 60100 0 00032                                                               
                 WORDS = 0                                                          037  LM00022
 00110 CLA +0 50000 0 00065    00111 STO +0 60100 0 00064                                                               
                 WORDS1 = 0                                                         038  LM00023
 00112 CLA +0 50000 0 00065    00113 STO +0 60100 0 00063                                                               
                 RCT = 0                                                            039  LM00024
 00114 CLA +0 50000 0 00065    00115 STO +0 60100 0 00043                                                               
                 EOFSW = 0B                                                         040  LM00025
 00116 CLA +0 50000 0 00065    00117 STO +0 60100 0 00033                                                               
                 W'R (HEADER(7).E.DUMPTP).AND.(HEADER(6).E.MAP)                     041  LM00029
 00120 CLA +0 50000 0 74505    00121 SUB +0 40200 0 00034    00122 TNZ -0 10000 0 00131    00123 CLA +0 50000 0 74504   
 00124 SUB +0 40200 0 00030    00125 TNZ -0 10000 0 00131                                                               
                      ENDTAP = 1B                                                   042  LM00030
 00126 CLA +0 50000 0 00066    00127 STO +0 60100 0 00031                                                               
                 O'E                                                                043  LM00031
 00130 TRA +0 02000 0 00133                                                                                             
                      ENDTAP = 0B                                                   044  LM00032
 00131 CLA +0 50000 0 00065    00132 STO +0 60100 0 00031                                                               
                 E'L                                                                045  LM00033
                 F'N                                                                046  LM00034
 00133 TRA +0 02000 0 00665                                                                                             
                 E'O FTAPE.                                                         047  LM00041
 00134 TRA +0 02000 0 00137    00135 SXA +0 63400 2 00621    00136 TSX +0 07400 2 00621                                 
                 WDS = DELTA - WORDS1                                               048  LM00042
 00137 CLA +0 50000 0 00027    00140 SUB +0 40200 0 00063    00141 STO +0 60100 0 00062                                 
                 BACK = 0                                                           049  LM00043
 00142 CLA +0 50000 0 00065    00143 STO +0 60100 0 00025                                                               
      READ(0)    RDWAIT.(D,T,0,DRAIN(WDS)...WDS,EOF1,EOFCT,TPERR)                   050  LM00044
 00144 CLA +0 50000 0 00062    00145 SUB +0 40200 0 00146    00146 TXH +3 00000 0 74476    00147 STA +0 62100 0 00154   
 00150 TSX +0 07400 4 00010    00151 TXH +3 00000 0 67662    00152 TXH +3 00000 0 67661    00153 TXH +3 00000 0 00065   
 00154 TIX +2 00062 0 00000    00155 TXH +3 00000 0 00000    00156 TXH +3 00000 0 00000    00157 TXH +3 00000 0 00024   
                 F'N                                                                051  LM00045
 00160 TRA +0 02000 0 00665                                                                                             
                 E'O RDTAPE.                                                        052  LM00051
 00161 TRA +0 02000 0 00164    00162 SXA +0 63400 2 00621    00163 TSX +0 07400 2 00621                                 
                 WDS = N                                                            053  LM00052
 00164 CLA +0 50000 0 00000    00165 STO +0 60100 0 00062                                                               
                 W'R (WORDS+WDS).G.EOFCT1                                           054  LM00053
 00166 CLA +0 50000 0 00064    00167 ADD +0 40000 0 00062    00170 SUB +0 40200 0 00032    00171 TZE +0 10000 0 00202   
 00172 TMI -0 12000 0 00202                                                                                             
                      EOFSW = 1B                                                    055  LM00054
 00173 CLA +0 50000 0 00066    00174 STO +0 60100 0 00033                                                               
                      WDS = EOFCT1 - WORDS                                          056  LM00055
 00175 CLA +0 50000 0 00032    00176 SUB +0 40200 0 00064    00177 STO +0 60100 0 00062                                 
                      EOFCT = WDS                                                   057  LM00056
 00200 CLA +0 50000 0 00062    00201 STO +0 60100 0 00000                                                               
                 E'L                                                                058  LM00057
                 WDS1 = WDS                                                         059  LM00058
 00202 CLA +0 50000 0 00062    00203 STO +0 60100 0 00060                                                               
                 WDS2 = 0                                                           060  LM00059
 00204 CLA +0 50000 0 00065    00205 STO +0 60100 0 00061                                                               
                 WORDS1 = WORDS1 + WDS                                              061  LM00060
 00206 CLA +0 50000 0 00063    00207 ADD +0 40000 0 00062    00210 STO +0 60100 0 00063                                 
                 W'R (WORDS1.G.DELTA)                                               062  LM00064
 00211 CLA +0 50000 0 00063    00212 SUB +0 40200 0 00027    00213 TZE +0 10000 0 00234    00214 TMI -0 12000 0 00234   
                      WDS1 = DELTA - (WORDS1-WDS)                                   063  LM00065
 00215 CLA +0 50000 0 00063    00216 SUB +0 40200 0 00062    00217 CHS +0 76000 0 00002    00220 ADD +0 40000 0 00027   
 00221 STO +0 60100 0 00060                                                                                             
                      WDS2 = WDS - WDS1                                             064  LM00066
 00222 CLA +0 50000 0 00062    00223 SUB +0 40200 0 00060    00224 STO +0 60100 0 00061                                 
                      WORDS1 = WDS2                                                 065  LM00067
 00225 CLA +0 50000 0 00061    00226 STO +0 60100 0 00063                                                               
                      DELTA = 432                                                   066  LM00068
 00227 CLA +0 50000 0 00076    00230 STO +0 60100 0 00027                                                               
                      RCT = RCT+1                                                   067  LM00069
 00231 CLA +0 50000 0 00043    00232 ADD +0 40000 0 00066    00233 STO +0 60100 0 00043                                 
                 E'L                                                                068  LM00070
                 BACK = 1                                                           069  LM00074
 00234 CLA +0 50000 0 00066    00235 STO +0 60100 0 00025                                                               
      READ(1)    RDWAIT.(D,T,0,V(WDS)...WDS1,EOF,EOFCT,TPERR)                       070  LM00075
 00236 CLA +0 50000 0 00062    00237 SUB +0 40200 0 00240    00240 TXH +3 00000 0 00000    00241 STA +0 62100 0 00246   
 00242 TSX +0 07400 4 00010    00243 TXH +3 00000 0 67662    00244 TXH +3 00000 0 67661    00245 TXH +3 00000 0 00065   
 00246 TIX +2 00060 0 00000    00247 TXH +3 00000 0 00015    00250 TXH +3 00000 0 00000    00251 TXH +3 00000 0 00024   
                 WORDS = WORDS + WDS1                                               071  LM00076
 00252 CLA +0 50000 0 00064    00253 ADD +0 40000 0 00060    00254 STO +0 60100 0 00064                                 
                 BACK = 2                                                           072  LM00078
 00255 CLA +0 50000 0 00067    00256 STO +0 60100 0 00025                                                               
                 W'R RCT  .E. 4                                                     073  LM00079
 00257 CLA +0 50000 0 00043    00260 SUB +0 40200 0 00071    00261 TNZ -0 10000 0 00303                                 
                      RCT = 0                                                       074  LM00080
 00262 CLA +0 50000 0 00065    00263 STO +0 60100 0 00043                                                               
                      DELTA = 432 - LPREAM                                          075  LM00081
 00264 CLA +0 50000 0 00076    00265 SUB +0 40200 0 67651    00266 STO +0 60100 0 00027                                 
      READ(2)         RDWAIT.(D,T,0,DRAIN(LPREAM)...LPREAM,EOF,EOFCT,TPERR)         076  LM00082
 00267 CLA +0 50000 0 67651    00270 SUB +0 40200 0 00271    00271 TXH +3 00000 0 74476    00272 STA +0 62100 0 00277   
 00273 TSX +0 07400 4 00010    00274 TXH +3 00000 0 67662    00275 TXH +3 00000 0 67661    00276 TXH +3 00000 0 00065   
 00277 TIX +2 67651 0 00000    00300 TXH +3 00000 0 00015    00301 TXH +3 00000 0 00000    00302 TXH +3 00000 0 00024   
                 E'L                                                                077  LM00083
                 BACK = 3                                                           078  LM00086
 00303 CLA +0 50000 0 00070    00304 STO +0 60100 0 00025                                                               
      READ(3)    RDWAIT.(D,T,0,V(WDS-WDS1)...WDS2,EOF,EOFCT,TPERR)                  079  LM00087
 00305 CLA +0 50000 0 00062    00306 SUB +0 40200 0 00060    00307 SUB +0 40200 0 00310    00310 TXH +3 00000 0 00000   
 00311 STA +0 62100 0 00316    00312 TSX +0 07400 4 00010    00313 TXH +3 00000 0 67662    00314 TXH +3 00000 0 67661   
 00315 TXH +3 00000 0 00065    00316 TIX +2 00061 0 00000    00317 TXH +3 00000 0 00015    00320 TXH +3 00000 0 00000   
 00321 TXH +3 00000 0 00024                                                                                             
                 WORDS = WORDS + WDS2                                               080  LM00088
 00322 CLA +0 50000 0 00064    00323 ADD +0 40000 0 00061    00324 STO +0 60100 0 00064                                 
                 W'R EOFSW, T'O EOF1                                                081  LM00092
 00325 NZT -0 52000 0 00033    00326 TRA +0 02000 0 00330    00327 TRA +0 02000 0 00000                                 
                 FUNCTION RETURN                                                    082  LM00094
 00330 TRA +0 02000 0 00665                                                                                             
      EOF        W'R (WORDS .GE. EOFCT1) .OR. ENDTAP, T'O EOF1                      083  LM00097
 00331 ZET +0 52000 0 00031    00332 TRA +0 02000 0 00337    00333 CLA +0 50000 0 00064    00334 SUB +0 40200 0 00032   
 00335 TZE +0 10000 0 00337    00336 TMI -0 12000 0 00340    00337 TRA +0 02000 0 00000                                 
                 UNIT = NEWTAP.(0)                                                  084  LM00099
 00340 TSX +0 07400 4 00005    00341 TXH +3 00000 0 00065    00342 STO +0 60100 0 67663                                 
                 W'R UNIT .E. 0                                                     085  LM00100
 00343 CLA +0 50000 0 67663    00344 SUB +0 40200 0 00065    00345 TNZ -0 10000 0 00351                                 
                      PRNTP.(MESS1)                                                 086  LM00101
 00346 TSX +0 07400 4 00007    00347 TXH +3 00000 0 00042                                                               
                      T'O ERR1                                                      087  LM00102
 00350 TRA +0 02000 0 00000                                                                                             
                 E'L                                                                088  LM00103
                 RDWAIT.(D,T,0,DRAIN(LPREAM)...LPREAM,EOF1,EOFCT,TPERR)             089  LM00104
 00351 CLA +0 50000 0 67651    00352 SUB +0 40200 0 00353    00353 TXH +3 00000 0 74476    00354 STA +0 62100 0 00361   
 00355 TSX +0 07400 4 00010    00356 TXH +3 00000 0 67662    00357 TXH +3 00000 0 67661    00360 TXH +3 00000 0 00065   
 00361 TIX +2 67651 0 00000    00362 TXH +3 00000 0 00000    00363 TXH +3 00000 0 00000    00364 TXH +3 00000 0 00024   
                 TEMP = WORDS - WCOUNT.(MZE,DRAIN(1) .RS. 18)                       090  LM00105
 00365 CAL -0 50000 0 00074    00366 STA +0 62100 0 00370    00367 CAL -0 50000 0 74475    00370 LGR -0 76500 0 00000   
 00371 SLW +0 60200 0 00671    00372 TSX +0 07400 4 00012    00373 TXH +3 00000 0 67660    00374 TXH +3 00000 0 00671   
 00375 CHS +0 76000 0 00002    00376 ADD +0 40000 0 00064    00377 STO +0 60100 0 00056                                 
                 RDWAIT.(D,T,TEMP+LPREAM,DRAIN(0)...0)                              091  LM00106
 00400 CLA +0 50000 0 00056    00401 ADD +0 40000 0 67651    00402 STO +0 60100 0 00671    00403 TSX +0 07400 4 00010   
 00404 TXH +3 00000 0 67662    00405 TXH +3 00000 0 67661    00406 TXH +3 00000 0 00671    00407 TIX +2 00065 0 74476   
                 T'O READ(BACK)                                                     092  LM00107
 00410 LXA +0 53400 2 00025    00411 TRA +0 02000 2 00021                                                               
      TPERR      DRAIN(0) = PB                                                      093  LM00111
 00412 CLA +0 50000 0 74477    00413 STO +0 60100 0 74476                                                               
                 DRAIN(1) = PG                                                      094  LM00112
 00414 CLA +0 50000 0 74500    00415 STO +0 60100 0 74475                                                               
                 DRAIN(2) = HEADER(7)                                               095  LM00113
 00416 CLA +0 50000 0 74504    00417 STO +0 60100 0 74474                                                               
                 DRAIN(3) = HEADER(6)                                               096  LM00114
 00420 CLA +0 50000 0 74505    00421 STO +0 60100 0 74473                                                               
                 DRAIN(4) = CVTIME.(DND)                                            097  LM00115
 00422 TSX +0 07400 4 00000    00423 TXH +3 00000 0 74503    00424 STO +0 60100 0 74472                                 
                 DRAIN(5) = FENCE                                                   098  LM00116
 00425 CLA +0 50000 0 67656    00426 STO +0 60100 0 74471                                                               
                 PRNTP. (DRAIN)                                                     099  LM00117
 00427 TSX +0 07400 4 00007    00430 TXH +3 00000 0 74476                                                               
                 IODIAG.(DRAIN(7)...7)                                              100  LM00118
 00431 TSX +0 07400 4 00004    00432 TIX +2 00072 0 74467                                                               
                 W'R DRAIN(4) .E. UNXEOF                                            101  LM00119
 00433 CLA +0 50000 0 74472    00434 SUB +0 40200 0 00057    00435 TNZ -0 10000 0 00440                                 
                      PRNTER.                                                       102  LM00120
 00436 TSX +0 07400 4 00006                                                                                             
                      T'O ERRS                                                      103  LM00121
 00437 TRA +0 02000 0 00000                                                                                             
                 E'L                                                                104  LM00122
                 FSTATE. (D,T,DRAIN(8)...8)                                         105  LM00123
 00440 TSX +0 07400 4 00003    00441 TXH +3 00000 0 67662    00442 TXH +3 00000 0 67661    00443 TIX +2 00073 0 74466   
                 RELLOC = ( (DRAIN(4) + 431)/432) *432 +1                           106  LM00127
 00444 CLA +0 50000 0 74472    00445 ADD +0 40000 0 00075    00446 LRS +0 76500 0 00043    00447 DVP +0 22100 0 00076   
 00450 MPY +0 20000 0 00076    00451 XCA +0 13100 0 00000    00452 ADD +0 40000 0 00066    00453 STO +0 60100 0 00044   
      TPER1      RDWAIT.(D,T,RELLOC,HEDER2(LPREAM)...LPREAM,EOF1,EOFCT,TPER2)       107  LM00129
 00454 CLA +0 50000 0 67651    00455 SUB +0 40200 0 00456    00456 TXH +3 00000 0 67636    00457 STA +0 62100 0 00464   
 00460 TSX +0 07400 4 00010    00461 TXH +3 00000 0 67662    00462 TXH +3 00000 0 67661    00463 TXH +3 00000 0 00044   
 00464 TIX +2 67651 0 00000    00465 TXH +3 00000 0 00000    00466 TXH +3 00000 0 00000    00467 TXH +3 00000 0 00023   
                 VALID.(HEDER2(LPREAM),ERR1,TPER2)                                  108  LM00130
 00470 CLA +0 50000 0 67651    00471 SUB +0 40200 0 00472    00472 TXH +3 00000 0 67636    00473 STA +0 62100 0 00475   
 00474 TSX +0 07400 4 00011    00475 TXH +3 00000 0 00000    00476 TXH +3 00000 0 00000    00477 TXH +3 00000 0 00023   
      TPER2      RELLOC = RELLOC + 432                                              109  LM00134
 00500 CLA +0 50000 0 00044    00501 ADD +0 40000 0 00076    00502 STO +0 60100 0 00044                                 
                 T'O TPER1                                                          110  LM00135
 00503 TRA +0 02000 0 00022                                                                                             
                 ENTRY TO DRAINW.                                                   111  LM00142
 00504 TRA +0 02000 0 00507    00505 SXA +0 63400 2 00621    00506 TSX +0 07400 2 00621                                 
                 D1 = DCOUNT.(WCT,N) - LPREAM                                       112  LM00146
 00507 TSX +0 07400 4 00001    00510 TXH +3 00000 0 00000    00511 TXH +3 00000 0 00000    00512 SUB +0 40200 0 67651   
 00513 STO +0 60100 0 00026                                                                                             
                 DIMENSION STATE (8)                                                113  LM00147
                 FSTATE.(D,T,STATE(8)...8)                                          114  LM00148
 00514 TSX +0 07400 4 00003    00515 TXH +3 00000 0 67662    00516 TXH +3 00000 0 67661    00517 TIX +2 00073 0 00045   
                 RELLOC = STATE(4)                                                  115  LM00149
 00520 CLA +0 50000 0 00051    00521 STO +0 60100 0 00044                                                               
                 RDWAIT.(D,T,RELLOC+D1-1,DRAIN(1)...1,EOF2,EOFCT2,TPERR)            116  LM00150
 00522 CLA +0 50000 0 00044    00523 ADD +0 40000 0 00026    00524 SUB +0 40200 0 00066    00525 STO +0 60100 0 00671   
 00526 TSX +0 07400 4 00010    00527 TXH +3 00000 0 67662    00530 TXH +3 00000 0 67661    00531 TXH +3 00000 0 00671   
 00532 TIX +2 00066 0 74475    00533 TXH +3 00000 0 00014    00534 TXH +3 00000 0 00013    00535 TXH +3 00000 0 00024   
                 FUNCTION RETURN                                                    117  LM00151
 00536 TRA +0 02000 0 00665                                                                                             
      EOF2       FSTATE.(D,T,STATE(8)...8)                                          118  LM00157
 00537 TSX +0 07400 4 00003    00540 TXH +3 00000 0 67662    00541 TXH +3 00000 0 67661    00542 TIX +2 00073 0 00045   
                 W'R(STATE(4)-RELLOC) .L. D1                                        119  LM00158
 00543 CLA +0 50000 0 00051    00544 SUB +0 40200 0 00044    00545 SUB +0 40200 0 00026    00546 TZE +0 10000 0 00617   
 00547 TPL +0 12000 0 00617                                                                                             
                      UNIT = NEWTAP.(0)                                             120  LM00159
 00550 TSX +0 07400 4 00005    00551 TXH +3 00000 0 00065    00552 STO +0 60100 0 67663                                 
                      W'R UNIT .E. 0                                                121  LM00160
 00553 CLA +0 50000 0 67663    00554 SUB +0 40200 0 00065    00555 TNZ -0 10000 0 00561                                 
                           PRNTP.(MESS1)                                            122  LM00161
 00556 TSX +0 07400 4 00007    00557 TXH +3 00000 0 00042                                                               
                           T'O ERRS                                                 123  LM00162
 00560 TRA +0 02000 0 00000                                                                                             
                      E'L                                                           124  LM00163
                      RDWAIT.(D,T,0,DRAIN(LPREAM)...LPREAM,EOF1,EOFCT,TPERR)        125  LM00164
 00561 CLA +0 50000 0 67651    00562 SUB +0 40200 0 00563    00563 TXH +3 00000 0 74476    00564 STA +0 62100 0 00571   
 00565 TSX +0 07400 4 00010    00566 TXH +3 00000 0 67662    00567 TXH +3 00000 0 67661    00570 TXH +3 00000 0 00065   
 00571 TIX +2 67651 0 00000    00572 TXH +3 00000 0 00000    00573 TXH +3 00000 0 00000    00574 TXH +3 00000 0 00024   
                      TEMP = WCOUNT.(MZE,DRAIN(1).RS.18)                            126  LM00165
 00575 CAL -0 50000 0 00074    00576 STA +0 62100 0 00600    00577 CAL -0 50000 0 74475    00600 LGR -0 76500 0 00000   
 00601 SLW +0 60200 0 00671    00602 TSX +0 07400 4 00012    00603 TXH +3 00000 0 67660    00604 TXH +3 00000 0 00671   
 00605 STO +0 60100 0 00056                                                                                             
                      RDWAIT.(D,T,TEMP+LPREAM,DRAIN(0)...0)                         127  LM00166
 00606 CLA +0 50000 0 00056    00607 ADD +0 40000 0 67651    00610 STO +0 60100 0 00671    00611 TSX +0 07400 4 00010   
 00612 TXH +3 00000 0 67662    00613 TXH +3 00000 0 67661    00614 TXH +3 00000 0 00671    00615 TIX +2 00065 0 74476   
                 OTHERWISE                                                          128  LM00167
 00616 TRA +0 02000 0 00620                                                                                             
                      T'O EOF1                                                      129  LM00168
 00617 TRA +0 02000 0 00000                                                                                             
                 E'L                                                                130  LM00169
                 END OF FUNCTION                                                    131  LM00171
 00620 TSX +0 07400 4 00002    00621 TXH +3 00000 0 00000    00622 SXD -0 63400 1 00621    00623 SXA +0 63400 4 00665   
 00624 CLA +0 50000 4 00001    00625 STO +0 60100 0 00240    00626 STO +0 60100 0 00310    00627 CLA +0 50000 4 00002   
 00630 STA +0 62100 0 00164    00631 STO +0 60100 0 00511    00632 CLA +0 50000 4 00003    00633 STA +0 62100 0 00106   
 00634 STO +0 60100 0 00510    00635 CLA +0 50000 4 00004    00636 STO +0 60100 0 00155    00637 STA +0 62100 0 00327   
 00640 STA +0 62100 0 00337    00641 STO +0 60100 0 00362    00642 STO +0 60100 0 00465    00643 STO +0 60100 0 00572   
 00644 STA +0 62100 0 00617    00645 CLA +0 50000 4 00005    00646 STO +0 60100 0 00156    00647 STA +0 62100 0 00201   
 00650 STO +0 60100 0 00250    00651 STO +0 60100 0 00301    00652 STO +0 60100 0 00320    00653 STO +0 60100 0 00363   
 00654 STO +0 60100 0 00466    00655 STO +0 60100 0 00573    00656 CLA +0 50000 4 00006    00657 STA +0 62100 0 00350   
 00660 STO +0 60100 0 00476    00661 CLA +0 50000 4 00007    00662 STA +0 62100 0 00437    00663 STA +0 62100 0 00560   
 00664 TRA +0 02000 2 00001    00665 AXT +0 77400 4 00000    00666 LXA +0 53400 2 00621    00667 LXD -0 53400 1 00621   
 00670 TRA +0 02000 4 00001                                                                                             




DCOUNT   BCD 04/29/67 2213.3    1607         00000    
1     MAD PROGRAM LISTING ... ... ...                 FILE  DCOUNT   MAD            04/29/67    2211.7
-                 
                      CALCULATION OF TOTAL WORDS FOR A FILE                                            LM00001    
                           D.R. WIDRIG  DEC. 1965                                                      LM00002    
                                                                                                       LM00003    
                  EXTERNAL FUNCTION (WCT,LRCT)                                                    *001 LM00004    
                                                                                                       LM00005    
                  NORMAL MODE IS INTEGER                                                          *002 LM00006    
                  VECTOR VALUES LPHYS = 1728                                                      *003 LM00007    
                  VECTOR VALUES WPLR = 1716                                                       *004 LM00008    
                  VECTOR VALUES LPREAM = 12                                                       *005 LM00009    
                                                                                                       LM00010    
                      FIGURE DRAIN COUNT                                                               LM00011    
                      THE DRAIN COUNT REPRESENTS THE TOTAL WORDS                                       LM00012    
                      ON THE TAPE THAT MUST BE PASSED IN ORDER TO                                      LM00013    
                      SKIP ONE LOGICAL FILE                                                            LM00014    
                                                                                                       LM00015    
                  ENTRY TO DCOUNT.                                                                *006 LM00016    
                  WHENEVER WCT .E. 0, FUNCTION RETURN 432                                         *007 LM00017    
                  NFLR = WCT/WPLR                                                                 *008 LM00018    
                  LEFT = WCT - NFLR*WPLR                                                          *009 LM00019    
                      ...BEWARE OF NEXT STATEMENT...                                                   LM00020    
                  DELTA = (LEFT/LEFT)*LPREAM                                                      *010 LM00021    
                  FUNCTION RETURN (NFLR*LPHYS)+(((LEFT+DELTA+431)/432)*432)                       *011 LM00022    
                1      - (LRCT-1)*LPHYS                                                           *011 LM00023    
                                                                                                       LM00024    
                      FIGURE WORD COUNT FROM RECORD NUMBER                                             LM00025    
                      THE WORD COUNT REPRESENTS THE NUMBER OF WORDS IN                                 LM00026    
                      A DISK FILE UP TO BUT NOT INCLUDING THE INDICATED                                LM00027    
                      DAEMON LOGICAL RECORD                                                            LM00028    
                                                                                                       LM00029    
                  ENTRY TO WCOUNT.                                                                *012 LM00030    
                  FUNCTION RETURN (LRCT - 1)*WPLR                                                 *013 LM00031    
                                                                                                       LM00032    
                  END OF FUNCTION                                                                 *014 LM00033    
1MAD PROGRAM,TYPE NOV 1963      (ALL NUMBERS ARE OCTAL)     
0TOTAL LOCATIONS   00125 TRANSFER VECTOR LENGTH  00001 PROGRAM BEGINS    00015
0 PROGRAM IS AN EXTERNAL FUNCTION.   THE FOLLOWING ARE ENTRIES    
      WCOUNT 00071   0        DCOUNT 00016   0                                                                          
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)  
      DELTA  00002   1        LPHYS  00004 A 1        LPREAM 00005 A 1        NFLR   00006   1        WPLR   00007 A 1  
      LEFT   00003   1                                                                                                  
0FUNCTION DICTIONARY    
      EXIT   00000   1                                                                                                  
0ABSOLUTE CONSTANTS     
 00012 +000000000657     00013 +000000000660     00010 +000000000000     00011 +000000000001     00014 +233000000000    
0PROGRAM    
                 EXTERNAL FUNCTION (WCT,LRCT)                                       001  LM00004
                 N'R                                                                002  LM00006
                 V'S LPHYS = 1728                                                   003  LM00007
 00004     +0 00000 0 03300                                                                                             
                 V'S WPLR = 1716                                                    004  LM00008
 00007     +0 00000 0 03264                                                                                             
                 V'S LPREAM = 12                                                    005  LM00009
 00005     +0 00000 0 00014                                                                                             
                 E'O DCOUNT.                                                        006  LM00016
 00015 TRA +0 02000 0 00020    00016 SXA +0 63400 2 00102    00017 TSX +0 07400 2 00102                                 
                 W'R WCT .E. 0, F'N 432                                             007  LM00017
 00020 CLA +0 50000 0 00024    00021 SUB +0 40200 0 00010    00022 TNZ -0 10000 0 00025    00023 CLA +0 50000 0 00013   
 00024 TRA +0 02000 0 00115                                                                                             
                 NFLR = WCT/WPLR                                                    008  LM00018
 00025 LDQ +0 56000 0 00024    00026 PXD -0 75400 0 00000    00027 LLS +0 76300 0 00000    00030 DVP +0 22100 0 00007   
 00031 STQ -0 60000 0 00006                                                                                             
                 LEFT = WCT - NFLR*WPLR                                             009  LM00019
 00032 LDQ +0 56000 0 00006    00033 MPY +0 20000 0 00007    00034 XCA +0 13100 0 00000    00035 CHS +0 76000 0 00002   
 00036 ADD +0 40000 0 00024    00037 STO +0 60100 0 00003                                                               
                 DELTA = (LEFT/LEFT)*LPREAM                                         010  LM00021
 00040 LDQ +0 56000 0 00003    00041 PXD -0 75400 0 00000    00042 LLS +0 76300 0 00000    00043 DVP +0 22100 0 00003   
 00044 MPY +0 20000 0 00005    00045 STQ -0 60000 0 00002                                                               
                 F'N (NFLR*LPHYS)+(((LEFT+DELTA+431)/432)*432)                      011  LM00022
                1     - (LRCT-1)*LPHYS                                              011  LM00023
 00046 CLA +0 50000 0 00024    00047 SUB +0 40200 0 00011    00050 XCA +0 13100 0 00000    00051 MPY +0 20000 0 00004   
 00052 STQ -0 60000 0 00121    00053 CLA +0 50000 0 00003    00054 ADD +0 40000 0 00002    00055 ADD +0 40000 0 00012   
 00056 LRS +0 76500 0 00043    00057 DVP +0 22100 0 00013    00060 MPY +0 20000 0 00013    00061 STQ -0 60000 0 00122   
 00062 LDQ +0 56000 0 00006    00063 MPY +0 20000 0 00004    00064 XCA +0 13100 0 00000    00065 ADD +0 40000 0 00122   
 00066 SUB +0 40200 0 00121    00067 TRA +0 02000 0 00115                                                               
                 E'O WCOUNT.                                                        012  LM00030
 00070 TRA +0 02000 0 00073    00071 SXA +0 63400 2 00102    00072 TSX +0 07400 2 00102                                 
                 F'N (LRCT - 1)*WPLR                                                013  LM00031
 00073 CLA +0 50000 0 00024    00074 SUB +0 40200 0 00011    00075 XCA +0 13100 0 00000    00076 MPY +0 20000 0 00007   
 00077 XCA +0 13100 0 00000    00100 TRA +0 02000 0 00115                                                               
                 E'N                                                                014  LM00033
 00101 TSX +0 07400 4 00000    00102 TXH +3 00000 0 00000    00103 SXD -0 63400 1 00102    00104 SXA +0 63400 4 00115   
 00105 CLA +0 50000 4 00001    00106 STA +0 62100 0 00020    00107 STA +0 62100 0 00025    00110 STA +0 62100 0 00036   
 00111 CLA +0 50000 4 00002    00112 STA +0 62100 0 00046    00113 STA +0 62100 0 00073    00114 TRA +0 02000 2 00001   
 00115 AXT +0 77400 4 00000    00116 LXA +0 53400 2 00102    00117 LXD -0 53400 1 00102    00120 TRA +0 02000 4 00001   




  MAIL   BCD 04/29/67 2213.3    5758         00000    
1     MAD PROGRAM LISTING ... ... ...                 FILE    MAIL   MAD            04/29/67    2141.1
-                 
                      ROUTINE TO SEND USER MESSAGES FROM RETRIEVE COMMAND                              LM00001    
                           D.R. WIDRIG  DEC. 1965                                                      LM00002    
                                                                                                       LM00003    
                  EXTERNAL FUNCTION (MPB,MPG,MESS,SW)                                             *001 LM00004    
                  INSERT FILE COM                                                                 *002 LM00005    
                                                                                                  *002 LM00001    
                  NORMAL MODE IS INTEGER                                                          *003 LM00002    
                  BOOLEAN SWT.                                                                    *004 LM00003    
                                                                                                       LM00004    
                  DIMENSION TABLE(210),BUFF(432),BUFF1(432),BUFF2(432)                            *005 LM00005    
                  DIMENSION HEADER(12),UFD(7),DRAIN(432),LODTAB(2000)                             *006 LM00006    
                  EQUIVALENCE (PB,HEADER(12)),(PG,HEADER(11)),(DND,HEADER(8)),                    *007 LM00007    
                1      (WC,HEADER(2)),(LRCT,HEADER(1))                                            *007 LM00008    
                  PROGRAM COMMON TABLE,BUFF,BUFF1,BUFF2                                           *008 LM00009    
                  PROGRAM COMMON HEADER,DRAIN,UFD,LODTAB                                          *009 LM00010    
                  PROGRAM COMMON AINDEX,UNIT,D,T,MZE,TFUDG,FENCE,USERF,ILEDI,PRIV                 *010 LM00011    
                  PROGRAM COMMON TABLIM,LPREAM,HPROB,HPROG,CURPTR,AUTHOR,LINDEX                   *011 LM00012    
                  PROGRAM COMMON LODLIM,SYSTEM,DAEMON,REELNO,TSKLTH                               *012 LM00013    
                                                                                                       LM00014    
                  VECTOR VALUES FENCE = 777777777777K                                             *013 LM00015    
                  VECTOR VALUES MZE = 4K11                                                        *014 LM00016    
                  VECTOR VALUES TFUDG = 1800                                                      *015 LM00017    
                  VECTOR VALUES TABLIM = 200                                                      *016 LM00018    
                  VECTOR VALUES LODLIM = 2000                                                     *017 LM00019    
                  VECTOR VALUES LPREAM = 12                                                       *018 LM00020    
                  VECTOR VALUES TSKLTH = 11                                                       *019 LM00021    
                                                                                                       LM00022    
                  VECTOR VALUES SYSTEM = $ C0056$                                                 *020 LM00023    
                  VECTOR VALUES DAEMON = $ 99999$                                                 *021 LM00024    
                  VECTOR VALUES D = $(DUMP)$                                                      *022 LM00025    
                  VECTOR VALUES T = $(TAPE)$                                                      *023 LM00026    
                  VECTOR VALUES USERF = $USER F$                                                  *024 LM00027    
                  VECTOR VALUES ILEDI = $ILE DI$                                                  *025 LM00028    
                  DIMENSION HEDER2(12)                                                            *026 LM00029    
                  PROGRAM COMMON HEDER2                                                           *027 LM00030    
                                                                                                       LM00031    
                  BOOLEAN SW                                                                      *028 LM00006    
                                                                                                       LM00007    
                  VECTOR VALUES URGENT = $URGENT$                                                 *029 LM00008    
                  VECTOR VALUES MAIL = $  MAIL$                                                   *030 LM00009    
                  VECTOR VALUES POST = $  POST$                                                   *031 LM00010    
                  VECTOR VALUES TRIEVE = $TRIEVE$                                                 *032 LM00011    
                                                                                                       LM00012    
                  VECTOR VALUES FIRST = $ * * *XXXXXX * *   * * * * * *$,                         *033 LM00013    
                1      $TRIEVE$,$MON RE$,$OM DAE$,$AIL FR$,$ * * M$,                              *033 LM00014    
                2      $ * * * * * *XXXXXX* * * $,777777000016K                                   *033 LM00015    
                                                                                                       LM00016    
                  VECTOR VALUES BLANK = 777777000000K                                             *034 LM00017    
                                                                                                       LM00018    
                  DIMENSION TEMP(14)                                                              *035 LM00019    
                                                                                                       LM00020    
                      MAIL LETTER TO USER BY APPENDING ONTO 'URGENT MAIL'                              LM00021    
                                                                                                       LM00022    
                  ENTRY TO MAIL.                                                                  *036 LM00023    
                  ATTACH.(MPB,MPG,ERR1)                                                           *037 LM00024    
                                                                                                       LM00025    
                      IF NECESSARY, INCREASE QUOTA TO LEAVE MESSAGE                                    LM00026    
                                                                                                       LM00027    
                  STORGE.(2,ALLOTD,USED,ERR1)                                                     *038 LM00028    
                  WHENEVER (USED .G. ALLOTD), ALLOT.(2,USED+10,MZE,ERR1)                          *039 LM00029    
                   CHECK FOR RELOAD'S (LINK) URGENT MAIL                                               LM00030    
                                                                                                       LM00031    
                  FSTATE.(URGENT,MAIL,DRAIN(2)...2,NOMAIL)                                        *040 LM00032    
                  WHENEVER (DRAIN(1).RS.35).E.1                                                   *041 LM00033    
                       OPEN.($R$,URGENT,MAIL,NOMAIL)                                              *042 LM00034    
                       RDFILE.(URGENT, MAIL,1,DRAIN(432)...432,MZE,EOFCT)                         *043 LM00035    
                       CLOSE.(URGENT, MAIL)                                                       *044 LM00036    
                       UNLINK.(URGENT,MAIL,NOMAIL)                                                *045 LM00037    
                       OPEN.($W$,URGENT,MAIL,ERR1)                                                *046 LM00038    
                       WRFILE.(URGENT,MAIL,1,DRAIN(432)...EOFCT)                                  *047 LM00039    
                       CLOSE.(URGENT,MAIL)                                                        *048 LM00040    
                  END OF CONDITIONAL                                                              *049 LM00041    
      NOMAIL      OPEN.($W$,URGENT,MAIL,0,2,ERR1)                                                 *050 LM00042    
                  BUFFER.(URGENT,MAIL,DRAIN(432)...432,ERR1)                                      *051 LM00043    
                                                                                                       LM00044    
                      TEST FOR TITLE LINE                                                              LM00045    
                                                                                                       LM00046    
                  WHENEVER .NOT. SW, TRANSFER TO SKIP                                             *052 LM00047    
                                                                                                       LM00048    
                      GET CURRENT DATE                                                                 LM00049    
                                                                                                       LM00050    
                  FIRST(12) = DATE.(0)                                                            *053 LM00051    
                  FIRST(1) = FIRST(12)                                                            *054 LM00052    
                  WRFILE.(URGENT,MAIL,0,BLANK...1,MZE,MZE,ERR1)                                   *055 LM00053    
                  WRFILE.(URGENT,MAIL,0,FIRST(14)...15,MZE,MZE,ERR1)                              *056 LM00054    
                                                                                                       LM00055    
                      FIND END OF MESSAGE                                                              LM00056    
                      ALSO, INVERT MESSAGE                                                             LM00057    
                                                                                                       LM00058    
      SKIP        THROUGH LOOP1, FOR I=0,1,I.G.13                                                 *057 LM00059    
                       TEMP(13-I) = MESS(I)                                                       *058 LM00060    
                       WHENEVER TEMP(13-I) .E. FENCE, TRANSFER TO END                             *059 LM00061    
      LOOP1       CONTINUE                                                                        *060 LM00062    
                                                                                                       LM00063    
                      GET WORD COUNT AT END AND INSERT LINE-MARK                                       LM00064    
                                                                                                       LM00065    
      END         TEMP(14) = BLANK .V. I                                                          *061 LM00066    
                  J = I + 1                                                                       *062 LM00067    
                  WRFILE.(URGENT,MAIL,0,TEMP(14)...J,MZE,MZE,ERR1)                                *063 LM00068    
                  CLOSE.(URGENT,MAIL,ERR1)                                                        *064 LM00069    
                                                                                                       LM00070    
                      RE-ADJUST QUOTA, IF NECESSARY                                                    LM00071    
                                                                                                       LM00072    
                  WHENEVER (USED .G. ALLOTD), ALLOT.(2,ALLOTD,MZE,NERR0)                          *065 LM00073    
      NERR0       FUNCTION RETURN                                                                 *066 LM00074    
                                                                                                       LM00075    
                      CANNOT LEAVE NOTE, MAKE LINKED NOTE                                              LM00076    
                                                                                                       LM00077    
      ERR1        CLOSE.(URGENT,MAIL,NERR1)                                                       *067 LM00078    
      NERR1       LINK.(URGENT,POST,SYSTEM,DAEMON,URGENT,TRIEVE,104K,NERR2)                       *068 LM00079    
      NERR2       FUNCTION RETURN                                                                 *069 LM00080    
                                                                                                       LM00081    
                  END OF FUNCTION                                                                 *070 LM00082    
1MAD PROGRAM,TYPE NOV 1963      (ALL NUMBERS ARE OCTAL)     
0TOTAL LOCATIONS   00410 TRANSFER VECTOR LENGTH  00015 PROGRAM BEGINS    00111 FIRST UNUSED COMMON/ERASABLE  67621
0 PROGRAM IS AN EXTERNAL FUNCTION.   THE FOLLOWING ARE ENTRIES    
      MAIL   00112   0                                                                                                  
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)  
      AINDEX 67664  C1        END    00016   4        J      00050   1        NERR2  00022   4        TEMP   00071 A 1  
      ALLOTD 00025   1        EOFCT  00027   1        LINDEX 67644  C1        NOMAIL 00023   4        TFUDG  67657 AC1  
      AUTHOR 67645  C1        ERR1   00017   4        LODLIM 67643 AC1        PB     74477  C1        TRIEVE 00072 A 1  
      BLANK  00026 A 1        FENCE  67656 AC1        LODTAB 73605 AC1        PG     74500  C1        T      67661 AC1  
      BUFF1  76255 AC1        FIRST  00046 A 1        LOOP1  00015   4        POST   00052 A 1        TSKLTH 67637 AC1  
      BUFF2  75374 AC1        HEADER 74513 AC1        LPREAM 67651 AC1        PRIV   67653  C1        UFD    73615 AC1  
      BUFF   77136 AC1        HEDER2 67636 AC1        LRCT   74512  C1        REELNO 67640  C1        UNIT   67663  C1  
      CURPTR 67646  C1        HPROB  67650  C1        MAIL   00051 A 1        SKIP   00024   4        URGENT 00073 A 1  
      DAEMON 67641 AC1        HPROG  67647  C1        MZE    67660 AC1        SYSTEM 67642 AC1        USED   00074   1  
      DND    74503  C1        ILEDI  67654 AC1        NERR0  00020   4        TABLE  77461 AC1        USERF  67655 AC1  
      DRAIN  74476 AC1        I      00047   1        NERR1  00021   4        TABLIM 67652 AC1        WC     74511  C1  
      D      67662 AC1                                                                                                  
0FUNCTION DICTIONARY    
      ALLOT  00000   1        ATTACH 00001   1        BUFFER 00002   1        CLOSE  00003   1        DATE   00004   1  
      EXIT   00005   1        FSTATE 00006   1        LINK   00007   1        OPEN   00010   1        RDFILE 00011   1  
      STORGE 00012   1        UNLINK 00013   1        WRFILE 00014   1                                                  
0ABSOLUTE CONSTANTS     
 00104 +000000000104     00101 +000000000015     00102 +000000000017     00075 +000000000000     00110 -266060606060    
 00105 +000000000660     00107 -116060606060     00103 +000000000043     00100 +000000000012     00077 +000000000002    
 00076 +000000000001     00106 +233000000000                                                                            
0STATEMENT DICTIONARY   
 00016 TXL -300315000312       00017 TXL -300352000346       00020 TXL -300346000345       00021 TXL -300363000352      
 00022 TXL -300364000363       00023 TXL -300225000216       00024 TXL -300274000262                                    
0PROGRAM    
                 EXTERNAL FUNCTION (MPB,MPG,MESS,SW)                                001  LM00004
                 I'E COM                                                            002  LM00005
                 N'R                                                                003  LM00002
                 B'N SWT.                                                           004  LM00003
                 D'N TABLE(210),BUFF(432),BUFF1(432),BUFF2(432)                     005  LM00005
                 D'N HEADER(12),UFD(7),DRAIN(432),LODTAB(2000)                      006  LM00006
                 E'E (PB,HEADER(12)),(PG,HEADER(11)),(DND,HEADER(8)),               007  LM00007
                1     (WC,HEADER(2)),(LRCT,HEADER(1))                               007  LM00008
                 P'N TABLE,BUFF,BUFF1,BUFF2                                         008  LM00009
                 P'N HEADER,DRAIN,UFD,LODTAB                                        009  LM00010
                 P'N AINDEX,UNIT,D,T,MZE,TFUDG,FENCE,USERF,ILEDI,PRIV               010  LM00011
                 P'N TABLIM,LPREAM,HPROB,HPROG,CURPTR,AUTHOR,LINDEX                 011  LM00012
                 P'N LODLIM,SYSTEM,DAEMON,REELNO,TSKLTH                             012  LM00013
                 V'S FENCE = 777777777777K                                          013  LM00015
 67656     -3 77777 7 77777                                                                                             
                 V'S MZE = 4K11                                                     014  LM00016
 67660     -0 00000 0 00000                                                                                             
                 V'S TFUDG = 1800                                                   015  LM00017
 67657     +0 00000 0 03410                                                                                             
                 V'S TABLIM = 200                                                   016  LM00018
 67652     +0 00000 0 00310                                                                                             
                 V'S LODLIM = 2000                                                  017  LM00019
 67643     +0 00000 0 03720                                                                                             
                 V'S LPREAM = 12                                                    018  LM00020
 67651     +0 00000 0 00014                                                                                             
                 V'S TSKLTH = 11                                                    019  LM00021
 67637     +0 00000 0 00013                                                                                             
                 V'S SYSTEM = $ C0056$                                              020  LM00023
 67642     -2 02300 0 00506                                                                                             
                 V'S DAEMON = $ 99999$                                              021  LM00024
 67641     -2 01111 1 11111                                                                                             
                 V'S D = $(DUMP)$                                                   022  LM00025
 67662     -3 42464 4 44734                                                                                             
                 V'S T = $(TAPE)$                                                   023  LM00026
 67661     -3 46321 4 72534                                                                                             
                 V'S USERF = $USER F$                                               024  LM00027
 67655     -2 46225 5 16026                                                                                             
                 V'S ILEDI = $ILE DI$                                               025  LM00028
 67654     +3 14325 6 02431                                                                                             
                 DIMENSION HEDER2(12)                                               026  LM00029
                 P'N HEDER2                                                         027  LM00030
                 B'N SW                                                             028  LM00006
                 V'S URGENT = $URGENT$                                              029  LM00008
 00073     -2 45127 2 54563                                                                                             
                 V'S MAIL = $  MAIL$                                                030  LM00009
 00051     -2 06044 2 13143                                                                                             
                 V'S POST = $  POST$                                                031  LM00010
 00052     -2 06047 4 66263                                                                                             
                 V'S TRIEVE = $TRIEVE$                                              032  LM00011
 00072     -2 35131 2 56525                                                                                             
                 V'S FIRST = $ * * *XXXXXX * *   * * * * * *$,                      033  LM00013
                1     $TRIEVE$,$MON RE$,$OM DAE$,$AIL FR$,$ * * M$,                 033  LM00014
                2     $ * * * * * *XXXXXX* * * $,777777000016K                      033  LM00015
 00030     -3 77777 0 00016    00031     -1 46054 6 05460    00032     -2 76767 6 76767    00033     -2 05460 5 46054   
 00034     -2 05460 5 46054    00035     -2 05460 5 46044    00036     +2 13143 6 02651    00037     -0 64460 2 42125   
 00040     -0 44645 6 05125    00041     -2 35131 2 56525    00042     -2 05460 5 46054    00043     -2 05460 5 46054   
 00044     -2 05460 5 46060    00045     -2 76767 6 76767    00046     -2 05460 5 46054                                 
                 V'S BLANK = 777777000000K                                          034  LM00017
 00026     -3 77777 0 00000                                                                                             
                 D'N TEMP(14)                                                       035  LM00019
                 E'O MAIL.                                                          036  LM00023
 00111 TRA +0 02000 0 00114    00112 SXA +0 63400 2 00365    00113 TSX +0 07400 2 00365                                 
                 ATTACH.(MPB,MPG,ERR1)                                              037  LM00024
 00114 TSX +0 07400 4 00001    00115 TXH +3 00000 0 00000    00116 TXH +3 00000 0 00000    00117 TXH +3 00000 0 00017   
                 STORGE.(2,ALLOTD,USED,ERR1)                                        038  LM00028
 00120 TSX +0 07400 4 00012    00121 TXH +3 00000 0 00077    00122 TXH +3 00000 0 00025    00123 TXH +3 00000 0 00074   
 00124 TXH +3 00000 0 00017                                                                                             
                 W'R (USED .G. ALLOTD), ALLOT.(2,USED+10,MZE,ERR1)                  039  LM00029
 00125 CLA +0 50000 0 00074    00126 SUB +0 40200 0 00025    00127 TZE +0 10000 0 00141    00130 TMI -0 12000 0 00141   
 00131 CLA +0 50000 0 00074    00132 ADD +0 40000 0 00100    00133 STO +0 60100 0 00405    00134 TSX +0 07400 4 00000   
 00135 TXH +3 00000 0 00077    00136 TXH +3 00000 0 00405    00137 TXH +3 00000 0 67660    00140 TXH +3 00000 0 00017   
                 FSTATE.(URGENT,MAIL,DRAIN(2)...2,NOMAIL)                           040  LM00032
 00141 TSX +0 07400 4 00006    00142 TXH +3 00000 0 00073    00143 TXH +3 00000 0 00051    00144 TIX +2 00077 0 74474   
 00145 TXH +3 00000 0 00023                                                                                             
                 W'R (DRAIN(1).RS.35).E.1                                           041  LM00033
 00146 CAL -0 50000 0 00103    00147 STA +0 62100 0 00151    00150 CAL -0 50000 0 74475    00151 LGR -0 76500 0 00000   
 00152 SLW +0 60200 0 00405    00153 CLA +0 50000 0 00405    00154 SUB +0 40200 0 00076    00155 TNZ -0 10000 0 00216   
                      OPEN.($R$,URGENT,MAIL,NOMAIL)                                 042  LM00034
 00156 TSX +0 07400 4 00010    00157 TXH +3 00000 0 00107    00160 TXH +3 00000 0 00073    00161 TXH +3 00000 0 00051   
 00162 TXH +3 00000 0 00023                                                                                             
                      RDFILE.(URGENT, MAIL,1,DRAIN(432)...432,MZE,EOFCT)            043  LM00035
 00163 TSX +0 07400 4 00011    00164 TXH +3 00000 0 00073    00165 TXH +3 00000 0 00051    00166 TXH +3 00000 0 00076   
 00167 TIX +2 00105 0 73616    00170 TXH +3 00000 0 67660    00171 TXH +3 00000 0 00027                                 
                      CLOSE.(URGENT, MAIL)                                          044  LM00036
 00172 TSX +0 07400 4 00003    00173 TXH +3 00000 0 00073    00174 TXH +3 00000 0 00051                                 
                      UNLINK.(URGENT,MAIL,NOMAIL)                                   045  LM00037
 00175 TSX +0 07400 4 00013    00176 TXH +3 00000 0 00073    00177 TXH +3 00000 0 00051    00200 TXH +3 00000 0 00023   
                      OPEN.($W$,URGENT,MAIL,ERR1)                                   046  LM00038
 00201 TSX +0 07400 4 00010    00202 TXH +3 00000 0 00110    00203 TXH +3 00000 0 00073    00204 TXH +3 00000 0 00051   
 00205 TXH +3 00000 0 00017                                                                                             
                      WRFILE.(URGENT,MAIL,1,DRAIN(432)...EOFCT)                     047  LM00039
 00206 TSX +0 07400 4 00014    00207 TXH +3 00000 0 00073    00210 TXH +3 00000 0 00051    00211 TXH +3 00000 0 00076   
 00212 TIX +2 00027 0 73616                                                                                             
                      CLOSE.(URGENT,MAIL)                                           048  LM00040
 00213 TSX +0 07400 4 00003    00214 TXH +3 00000 0 00073    00215 TXH +3 00000 0 00051                                 
                 E'L                                                                049  LM00041
      NOMAIL     OPEN.($W$,URGENT,MAIL,0,2,ERR1)                                    050  LM00042
 00216 TSX +0 07400 4 00010    00217 TXH +3 00000 0 00110    00220 TXH +3 00000 0 00073    00221 TXH +3 00000 0 00051   
 00222 TXH +3 00000 0 00075    00223 TXH +3 00000 0 00077    00224 TXH +3 00000 0 00017                                 
                 BUFFER.(URGENT,MAIL,DRAIN(432)...432,ERR1)                         051  LM00043
 00225 TSX +0 07400 4 00002    00226 TXH +3 00000 0 00073    00227 TXH +3 00000 0 00051    00230 TIX +2 00105 0 73616   
 00231 TXH +3 00000 0 00017                                                                                             
                 W'R .NOT. SW, T'O SKIP                                             052  LM00047
 00232 ZET +0 52000 0 00000    00233 TRA +0 02000 0 00235    00234 TRA +0 02000 0 00024                                 
                 FIRST(12) = DATE.(0)                                               053  LM00051
 00235 TSX +0 07400 4 00004    00236 TXH +3 00000 0 00075    00237 STO +0 60100 0 00032                                 
                 FIRST(1) = FIRST(12)                                               054  LM00052
 00240 CLA +0 50000 0 00032    00241 STO +0 60100 0 00045                                                               
                 WRFILE.(URGENT,MAIL,0,BLANK...1,MZE,MZE,ERR1)                      055  LM00053
 00242 TSX +0 07400 4 00014    00243 TXH +3 00000 0 00073    00244 TXH +3 00000 0 00051    00245 TXH +3 00000 0 00075   
 00246 TIX +2 00076 0 00026    00247 TXH +3 00000 0 67660    00250 TXH +3 00000 0 67660    00251 TXH +3 00000 0 00017   
                 WRFILE.(URGENT,MAIL,0,FIRST(14)...15,MZE,MZE,ERR1)                 056  LM00054
 00252 TSX +0 07400 4 00014    00253 TXH +3 00000 0 00073    00254 TXH +3 00000 0 00051    00255 TXH +3 00000 0 00075   
 00256 TIX +2 00102 0 00030    00257 TXH +3 00000 0 67660    00260 TXH +3 00000 0 67660    00261 TXH +3 00000 0 00017   
      SKIP       T'H LOOP1, FOR I=0,1,I.G.13                                        057  LM00059
 00262 CLA +0 50000 0 00075    00263 STO +0 60100 0 00047    00264 TRA +0 02000 0 00270    00265 CLA +0 50000 0 00047   
 00266 ADD +0 40000 0 00076    00267 STO +0 60100 0 00047    00270 CLA +0 50000 0 00047    00271 SUB +0 40200 0 00101   
 00272 TZE +0 10000 0 00274    00273 TPL +0 12000 0 00312                                                               
                      TEMP(13-I) = MESS(I)                                          058  LM00060
 00274 CLA +0 50000 0 00101    00275 SUB +0 40200 0 00047    00276 PAX +0 73400 1 00000    00277 LXA +0 53400 2 00047   
 00300 CLA +0 50000 2 00000    00301 STO +0 60100 1 00071                                                               
                      W'R TEMP(13-I) .E. FENCE, T'O END                             059  LM00061
 00302 CLA +0 50000 0 00101    00303 SUB +0 40200 0 00047    00304 PAX +0 73400 1 00000    00305 CLA +0 50000 1 00071   
 00306 SUB +0 40200 0 67656    00307 TNZ -0 10000 0 00311    00310 TRA +0 02000 0 00016                                 
      LOOP1      C'E                                                                060  LM00062
 00311 TRA +0 02000 0 00265                                                                                             
      END        TEMP(14) = BLANK .V. I                                             061  LM00066
 00312 CAL -0 50000 0 00026    00313 ORA -0 50100 0 00047    00314 SLW +0 60200 0 00053                                 
                 J = I + 1                                                          062  LM00067
 00315 CLA +0 50000 0 00047    00316 ADD +0 40000 0 00076    00317 STO +0 60100 0 00050                                 
                 WRFILE.(URGENT,MAIL,0,TEMP(14)...J,MZE,MZE,ERR1)                   063  LM00068
 00320 TSX +0 07400 4 00014    00321 TXH +3 00000 0 00073    00322 TXH +3 00000 0 00051    00323 TXH +3 00000 0 00075   
 00324 TIX +2 00050 0 00053    00325 TXH +3 00000 0 67660    00326 TXH +3 00000 0 67660    00327 TXH +3 00000 0 00017   
                 CLOSE.(URGENT,MAIL,ERR1)                                           064  LM00069
 00330 TSX +0 07400 4 00003    00331 TXH +3 00000 0 00073    00332 TXH +3 00000 0 00051    00333 TXH +3 00000 0 00017   
                 W'R (USED .G. ALLOTD), ALLOT.(2,ALLOTD,MZE,NERR0)                  065  LM00073
 00334 CLA +0 50000 0 00074    00335 SUB +0 40200 0 00025    00336 TZE +0 10000 0 00345    00337 TMI -0 12000 0 00345   
 00340 TSX +0 07400 4 00000    00341 TXH +3 00000 0 00077    00342 TXH +3 00000 0 00025    00343 TXH +3 00000 0 67660   
 00344 TXH +3 00000 0 00020                                                                                             
      NERR0      F'N                                                                066  LM00074
 00345 TRA +0 02000 0 00401                                                                                             
      ERR1       CLOSE.(URGENT,MAIL,NERR1)                                          067  LM00078
 00346 TSX +0 07400 4 00003    00347 TXH +3 00000 0 00073    00350 TXH +3 00000 0 00051    00351 TXH +3 00000 0 00021   
      NERR1      LINK.(URGENT,POST,SYSTEM,DAEMON,URGENT,TRIEVE,104K,NERR2)          068  LM00079
 00352 TSX +0 07400 4 00007    00353 TXH +3 00000 0 00073    00354 TXH +3 00000 0 00052    00355 TXH +3 00000 0 67642   
 00356 TXH +3 00000 0 67641    00357 TXH +3 00000 0 00073    00360 TXH +3 00000 0 00072    00361 TXH +3 00000 0 00104   
 00362 TXH +3 00000 0 00022                                                                                             
      NERR2      F'N                                                                069  LM00080
 00363 TRA +0 02000 0 00401                                                                                             
                 E'N                                                                070  LM00082
 00364 TSX +0 07400 4 00005    00365 TXH +3 00000 0 00000    00366 SXD -0 63400 1 00365    00367 SXA +0 63400 4 00401   
 00370 CLA +0 50000 4 00001    00371 STO +0 60100 0 00115    00372 CLA +0 50000 4 00002    00373 STO +0 60100 0 00116   
 00374 CLA +0 50000 4 00003    00375 STA +0 62100 0 00300    00376 CLA +0 50000 4 00004    00377 STA +0 62100 0 00232   
 00400 TRA +0 02000 2 00001    00401 AXT +0 77400 4 00000    00402 LXA +0 53400 2 00365    00403 LXD -0 53400 1 00365   
 00404 TRA +0 02000 4 00001                                                                                             




 RLIBE   BCD 03/15/68 0017.9    6204         00000    
1     MAD PROGRAM LISTING ... ... ...                 FILE   RLIBE   MAD            03/01/68    1657.7
-                 
                      TIME/DATE CONVERTERS, ALSO PROBNO/PROGNO CONVERTERS                              LM00001    
                      THIS PROGRAM MUST BE EDITED AND RE-COMPILED WHEN                                 LM00002    
                      THE NEW 'LOGIN' (PSN 50) TAKES EFFECT                                            LM00003    
                           D.R. WIDRIG  DEC. 1965                                                      LM00004    
                                                                                                       LM00005    
                  EXTERNAL FUNCTION (X1,Y)                                                        *001 LM00006    
                  NORMAL MODE IS INTEGER                                                          *002 LM00007    
                  STATEMENT LABEL Y                                                               *003 LM00008    
                                                                                                       LM00009    
                  VECTOR VALUES MESS1 = $ILLEGA******.....$,0,777777777777K                       *004 LM00010    
                                                                                                       LM00011    
                  VECTOR VALUES DAYS(1) = 31,28,31,30,31,30,31,31,30,31,30,31                     *005 LM00012    
                  VECTOR VALUES DMASK = 766074606060K                                             *006 LM00013    
                  VECTOR VALUES TMASK = 777774607060K                                             *007 LM00014    
                  VECTOR VALUES PMASK = 776060606060K                                             *008 LM00015    
                                                                                                       LM00016    
                      GET CURRENT DATE                                                                 LM00017    
                                                                                                       LM00018    
                  ENTRY TO CDATE.                                                                 *009 LM00019    
                  DATNOW = X1                                                                     *010 LM00020    
                  MONTH = BCDEC.(DATNOW.RS.24)                                                    *011 LM00021    
                  DAY = BCDEC.((DATNOW.RS.12).A.7777K)                                            *012 LM00022    
                  YEAR = BCDEC.(DATNOW.A.7777K)                                                   *013 LM00023    
                  FUNCTION RETURN                                                                 *014 LM00024    
                                                                                                       LM00025    
                      RETURN CURRENT DATE AS MMDDYY                                                    LM00026    
                                                                                                       LM00027    
                  ENTRY TO DATE.                                                                  *015 LM00028    
                  FUNCTION RETURN DATNOW                                                          *016 LM00029    
                                                                                                       LM00030    
                      CONVERT BCD DATE TO I/O FORMAT                                                   LM00031    
                                                                                                       LM00032    
                  ENTRY TO DATECV.                                                                *017 LM00033    
                  MESS1(1) = $L DATE$                                                             *018 LM00034    
                  DELTA = 0                                                                       *019 LM00035    
                  X = ZEL.(X1)                                                                    *020 LM00036    
                  WHENEVER (X.A.DMASK) .NE. 0, TRANSFER TO BAD                                    *021 LM00037    
                  MM = BCDEC.(X.RS.24)                                                            *022 LM00038    
                  DD = BCDEC.((X.RS.12).A.7777K)                                                  *023 LM00039    
                  YY = BCDEC.(X.A.7777K)                                                          *024 LM00040    
                  WHENEVER ((YY/4)*4.E.YY).AND.(MM.E.2), DELTA = 1                                *025 LM00041    
                  WHENEVER (MM.G.12).OR.(MM.E.0).OR.                                              *026 LM00042    
                1      (DD.G.(DAYS(MM)+DELTA)).OR.(YY.G.YEAR).OR.                                 *026 LM00043    
                2      ((YY.E.YEAR).AND.(MM.G.MONTH)).OR.                                         *026 LM00044    
                3      ((YY.E.YEAR).AND.(MM.E.MONTH).AND.(DD.G.DAY))                              *026 LM00045    
                4      , TRANSFER TO BAD                                                          *026 LM00046    
                  FUNCTION RETURN (YY.LS.27).V.(MM.LS.23).V.(DD.LS.18)                            *027 LM00047    
                                                                                                       LM00048    
      BAD         MESS1(3) = X                                                                    *028 LM00049    
                  PRNTP.(MESS1)                                                                   *029 LM00050    
                  TRANSFER TO Y                                                                   *030 LM00051    
                                                                                                       LM00052    
                      CONVERT I/O DATE TO BCD                                                          LM00053    
                                                                                                       LM00054    
                  ENTRY TO CVDATE.                                                                *031 LM00055    
                  D = X1.RS.18                                                                    *032 LM00056    
                  FUNCTION RETURN (DERBC.(D.A.37K).LS.12).V.(DERBC.((D.RS.5).A.17K)               *033 LM00057    
                1      .LS.24).V.(DERBC.((D.RS.9).A.377K))                                        *033 LM00058    
                                                                                                       LM00059    
                      CONVERT TIME TO I/O FORMAT                                                       LM00060    
                                                                                                       LM00061    
                  ENTRY TO TIMECV.                                                                *034 LM00062    
                  MESS1(1) = $L TIME$                                                             *035 LM00063    
                  X = ZEL.(X1)                                                                    *036 LM00064    
                  WHENEVER (X.A.TMASK) .NE. 0, TRANSFER TO BAD                                    *037 LM00065    
                  HH = BCDEC.((X.RS.12).A.7777K)                                                  *038 LM00066    
                  MM = BCDEC.(X.A.7777K)                                                          *039 LM00067    
                  WHENEVER (HH.G.23).OR.(MM.G.59), TRANSFER TO BAD                                *040 LM00068    
                  FUNCTION RETURN HH*3600+MM*60                                                   *041 LM00069    
                                                                                                       LM00070    
                      CONVERT I/O TIME TO BCD                                                          LM00071    
                                                                                                       LM00072    
                  ENTRY TO CVTIME.                                                                *042 LM00073    
                  D = X1.A.777777K                                                                *043 LM00074    
                  HH = D/3600                                                                     *044 LM00075    
                  FUNCTION RETURN ((DERBC.(HH).LS.12).V.                                          *045 LM00076    
                1      (DERBC.((D-HH*3600)/60)).V.$  0000$)                                       *045 LM00077    
                                                                                                       LM00078    
                      CHECK VALIDITY OF PROGNO                                                         LM00079    
                                                                                                       LM00080    
                  ENTRY TO PROGN.                                                                 *046 LM00081    
                  MESS1(1) = $L PRGN$                                                             *047 LM00082    
                  X = X1                                                                          *048 LM00083    
                  WHENEVER (ZEL.(X).A.PMASK) .E. 0, FUNCTION RETURN X                             *049 LM00084    
                  WHENEVER (X.A.777777776060K).E. $CMFL00$, FUNCTION RETURN X                     *050 LM00085    
                  TRANSFER TO BAD                                                                 *051 LM00086    
                                                                                                       LM00087    
                      REDUCE PROBNO TO STANDARD FORM                                                   LM00088    
                                                                                                       LM00089    
                  ENTRY TO PROBN.                                                                 *052 LM00090    
                  MESS1(1) = $L PRBN$                                                             *053 LM00091    
                  X = X1                                                                          *054 LM00092    
                  WHENEVER (X.A.60K).NE.0, TRANSFER TO BAD                                        *055 LM00093    
                  THROUGH LOOP1, FOR I=6,6,I.E.30                                                 *056 LM00094    
                  WHENEVER (((X.RS.I).A.60K).NE.0),                                               *057 LM00095    
                1      FUNCTION RETURN BZEL.((((X.RS.I).A.77K).LS.24).V.                          *057 LM00096    
                2      ((77777777K.RS.(24-I)).A.X))                                               *057 LM00097    
      LOOP1       CONTINUE                                                                        *058 LM00098    
                  TRANSFER TO BAD                                                                 *059 LM00099    
                                                                                                       LM00100    
                  END OF FUNCTION                                                                 *060 LM00101    
1MAD PROGRAM,TYPE NOV 1963      (ALL NUMBERS ARE OCTAL)     
0TOTAL LOCATIONS   00706 TRANSFER VECTOR LENGTH  00006 PROGRAM BEGINS    00111
0 PROGRAM IS AN EXTERNAL FUNCTION.   THE FOLLOWING ARE ENTRIES    
      PROBN  00567   0        PROGN  00534   0        CVTIME 00472   0        TIMECV 00413   0        CVDATE 00335   0  
      DATECV 00154   0        DATE   00147   0        CDATE  00112   0                                                  
0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE)  
      BAD    00007   4        DD     00027   1        HH     00033   1        MM     00042   1        X      00046   1  
      DATNOW 00010   1        DELTA  00030   1        I      00034   1        MONTH  00043   1        YEAR   00047   1  
      DAY    00011   1        DMASK  00031 A 1        LOOP1  00006   4        PMASK  00044 A 1        YY     00050   1  
      DAYS   00026 A 1        D      00032   1        MESS1  00041 A 1        TMASK  00045 A 1                          
0FUNCTION DICTIONARY    
      BCDEC  00000   1        BZEL   00001   1        DERBC  00002   1        EXIT   00003   1        PRNTP  00004   1  
      ZEL    00005   1                                                                                                  
0ABSOLUTE CONSTANTS     
 00073 +000000000077     00100 +000077777777     00066 +000000000036     00056 +000000000006     00070 +000000000060    
 00104 -036047512245     00102 +234426430000     00110 -377777776060     00105 -036047512745     00107 -206000000000    
 00077 +000000777777     00075 +000000007020     00072 +000000000074     00071 +000000000073     00106 -036063314425    
 00067 +000000000037     00061 +000000000017     00055 +000000000005     00074 +000000000377     00057 +000000000011    
 00065 +000000000033     00063 +000000000027     00062 +000000000022     00054 +000000000004     00053 +000000000002    
 00051 +000000000000     00103 -036024216325     00076 +000000007777     00060 +000000000014     00064 +000000000030    
 00052 +000000000001     00101 +233000000000                                                                            
0STATEMENT DICTIONARY   
 00007 TXL -300331000327                                                                                                
0PROGRAM    
                 EXTERNAL FUNCTION (X1,Y)                                           001  LM00006
                 N'R                                                                002  LM00007
                 S'L Y                                                              003  LM00008
                 V'S MESS1 = $ILLEGA******.....$,0,777777777777K                    004  LM00010
 00035     -3 77777 7 77777    00036     +0 00000 0 00000    00037     +3 33333 3 33360    00040     -1 45454 5 45454   
 00041     +3 14343 2 52721                                                                                             
                 V'S DAYS(1) = 31,28,31,30,31,30,31,31,30,31,30,31                  005  LM00012
 00012     +0 00000 0 00037    00013     +0 00000 0 00036    00014     +0 00000 0 00037    00015     +0 00000 0 00036   
 00016     +0 00000 0 00037    00017     +0 00000 0 00037    00020     +0 00000 0 00036    00021     +0 00000 0 00037   
 00022     +0 00000 0 00036    00023     +0 00000 0 00037    00024     +0 00000 0 00034    00025     +0 00000 0 00037   
                 V'S DMASK = 766074606060K                                          006  LM00013
 00031     -3 66074 6 06060                                                                                             
                 V'S TMASK = 777774607060K                                          007  LM00014
 00045     -3 77774 6 07060                                                                                             
                 V'S PMASK = 776060606060K                                          008  LM00015
 00044     -3 76060 6 06060                                                                                             
                 E'O CDATE.                                                         009  LM00019
 00111 TRA +0 02000 0 00114    00112 SXA +0 63400 2 00657    00113 TSX +0 07400 2 00657                                 
                 DATNOW = X1                                                        010  LM00020
 00114 CLA +0 50000 0 00024    00115 STO +0 60100 0 00010                                                               
                 MONTH = BCDEC.(DATNOW.RS.24)                                       011  LM00021
 00116 CAL -0 50000 0 00064    00117 STA +0 62100 0 00121    00120 CAL -0 50000 0 00010    00121 LGR -0 76500 0 00000   
 00122 SLW +0 60200 0 00701    00123 TSX +0 07400 4 00000    00124 TXH +3 00000 0 00701    00125 STO +0 60100 0 00043   
                 DAY = BCDEC.((DATNOW.RS.12).A.7777K)                               012  LM00022
 00126 CAL -0 50000 0 00060    00127 STA +0 62100 0 00131    00130 CAL -0 50000 0 00010    00131 LGR -0 76500 0 00000   
 00132 ANA -0 32000 0 00076    00133 SLW +0 60200 0 00701    00134 TSX +0 07400 4 00000    00135 TXH +3 00000 0 00701   
 00136 STO +0 60100 0 00011                                                                                             
                 YEAR = BCDEC.(DATNOW.A.7777K)                                      013  LM00023
 00137 CAL -0 50000 0 00010    00140 ANA -0 32000 0 00076    00141 SLW +0 60200 0 00701    00142 TSX +0 07400 4 00000   
 00143 TXH +3 00000 0 00701    00144 STO +0 60100 0 00047                                                               
                 F'N                                                                014  LM00024
 00145 TRA +0 02000 0 00675                                                                                             
                 E'O DATE.                                                          015  LM00028
 00146 TRA +0 02000 0 00151    00147 SXA +0 63400 2 00657    00150 TSX +0 07400 2 00657                                 
                 F'N DATNOW                                                         016  LM00029
 00151 CLA +0 50000 0 00010    00152 TRA +0 02000 0 00675                                                               
                 E'O DATECV.                                                        017  LM00033
 00153 TRA +0 02000 0 00156    00154 SXA +0 63400 2 00657    00155 TSX +0 07400 2 00657                                 
                 MESS1(1) = $L DATE$                                                018  LM00034
 00156 CLA +0 50000 0 00103    00157 STO +0 60100 0 00040                                                               
                 DELTA = 0                                                          019  LM00035
 00160 CLA +0 50000 0 00051    00161 STO +0 60100 0 00030                                                               
                 X = ZEL.(X1)                                                       020  LM00036
 00162 TSX +0 07400 4 00005    00163 TXH +3 00000 0 00024    00164 STO +0 60100 0 00046                                 
                 W'R (X.A.DMASK) .NE. 0, T'O BAD                                    021  LM00037
 00165 CAL -0 50000 0 00046    00166 ANA -0 32000 0 00031    00167 SLW +0 60200 0 00701    00170 CLA +0 50000 0 00701   
 00171 SUB +0 40200 0 00051    00172 TZE +0 10000 0 00174    00173 TRA +0 02000 0 00007                                 
                 MM = BCDEC.(X.RS.24)                                               022  LM00038
 00174 CAL -0 50000 0 00064    00175 STA +0 62100 0 00177    00176 CAL -0 50000 0 00046    00177 LGR -0 76500 0 00000   
 00200 SLW +0 60200 0 00701    00201 TSX +0 07400 4 00000    00202 TXH +3 00000 0 00701    00203 STO +0 60100 0 00042   
                 DD = BCDEC.((X.RS.12).A.7777K)                                     023  LM00039
 00204 CAL -0 50000 0 00060    00205 STA +0 62100 0 00207    00206 CAL -0 50000 0 00046    00207 LGR -0 76500 0 00000   
 00210 ANA -0 32000 0 00076    00211 SLW +0 60200 0 00701    00212 TSX +0 07400 4 00000    00213 TXH +3 00000 0 00701   
 00214 STO +0 60100 0 00027                                                                                             
                 YY = BCDEC.(X.A.7777K)                                             024  LM00040
 00215 CAL -0 50000 0 00046    00216 ANA -0 32000 0 00076    00217 SLW +0 60200 0 00701    00220 TSX +0 07400 4 00000   
 00221 TXH +3 00000 0 00701    00222 STO +0 60100 0 00050                                                               
                 W'R ((YY/4)*4.E.YY).AND.(MM.E.2), DELTA = 1                        025  LM00041
 00223 CLA +0 50000 0 00042    00224 SUB +0 40200 0 00053    00225 TNZ -0 10000 0 00240    00226 LDQ +0 56000 0 00050   
 00227 PXD -0 75400 0 00000    00230 LLS +0 76300 0 00000    00231 DVP +0 22100 0 00054    00232 MPY +0 20000 0 00054   
 00233 XCA +0 13100 0 00000    00234 SUB +0 40200 0 00050    00235 TNZ -0 10000 0 00240    00236 CLA +0 50000 0 00052   
 00237 STO +0 60100 0 00030                                                                                             
                 W'R (MM.G.12).OR.(MM.E.0).OR.                                      026  LM00042
                1     (DD.G.(DAYS(MM)+DELTA)).OR.(YY.G.YEAR).OR.                    026  LM00043
                2     ((YY.E.YEAR).AND.(MM.G.MONTH)).OR.                            026  LM00044
                3     ((YY.E.YEAR).AND.(MM.E.MONTH).AND.(DD.G.DAY))                 026  LM00045
                4     , T'O BAD                                                     026  LM00046
 00240 CLA +0 50000 0 00027    00241 SUB +0 40200 0 00011    00242 TZE +0 10000 0 00252    00243 TMI -0 12000 0 00252   
 00244 CLA +0 50000 0 00042    00245 SUB +0 40200 0 00043    00246 TNZ -0 10000 0 00252    00247 CLA +0 50000 0 00050   
 00250 SUB +0 40200 0 00047    00251 TZE +0 10000 0 00303    00252 CLA +0 50000 0 00042    00253 SUB +0 40200 0 00043   
 00254 TZE +0 10000 0 00261    00255 TMI -0 12000 0 00261    00256 CLA +0 50000 0 00050    00257 SUB +0 40200 0 00047   
 00260 TZE +0 10000 0 00303    00261 CLA +0 50000 0 00050    00262 SUB +0 40200 0 00047    00263 TZE +0 10000 0 00265   
 00264 TPL +0 12000 0 00303    00265 LXA +0 53400 1 00042    00266 CLA +0 50000 1 00026    00267 ADD +0 40000 0 00030   
 00270 CHS +0 76000 0 00002    00271 ADD +0 40000 0 00027    00272 TZE +0 10000 0 00274    00273 TPL +0 12000 0 00303   
 00274 CLA +0 50000 0 00042    00275 SUB +0 40200 0 00051    00276 TZE +0 10000 0 00303    00277 CLA +0 50000 0 00042   
 00300 SUB +0 40200 0 00060    00301 TZE +0 10000 0 00304    00302 TMI -0 12000 0 00304    00303 TRA +0 02000 0 00007   
                 F'N (YY.LS.27).V.(MM.LS.23).V.(DD.LS.18)                           027  LM00047
 00304 CAL -0 50000 0 00062    00305 STA +0 62100 0 00307    00306 CAL -0 50000 0 00027    00307 ALS +0 76700 0 00000   
 00310 SLW +0 60200 0 00701    00311 CAL -0 50000 0 00063    00312 STA +0 62100 0 00314    00313 CAL -0 50000 0 00042   
 00314 ALS +0 76700 0 00000    00315 SLW +0 60200 0 00702    00316 CAL -0 50000 0 00065    00317 STA +0 62100 0 00321   
 00320 CAL -0 50000 0 00050    00321 ALS +0 76700 0 00000    00322 ORA -0 50100 0 00702    00323 ORA -0 50100 0 00701   
 00324 SLW +0 60200 0 00702    00325 CLA +0 50000 0 00702    00326 TRA +0 02000 0 00675                                 
      BAD        MESS1(3) = X                                                       028  LM00049
 00327 CLA +0 50000 0 00046    00330 STO +0 60100 0 00036                                                               
                 PRNTP.(MESS1)                                                      029  LM00050
 00331 TSX +0 07400 4 00004    00332 TXH +3 00000 0 00041                                                               
                 T'O Y                                                              030  LM00051
 00333 TRA +0 02000 0 00024                                                                                             
                 E'O CVDATE.                                                        031  LM00055
 00334 TRA +0 02000 0 00337    00335 SXA +0 63400 2 00657    00336 TSX +0 07400 2 00657                                 
                 D = X1.RS.18                                                       032  LM00056
 00337 CAL -0 50000 0 00062    00340 STA +0 62100 0 00342    00341 CAL -0 50000 0 00024    00342 LGR -0 76500 0 00000   
 00343 SLW +0 60200 0 00032                                                                                             
                 F'N (DERBC.(D.A.37K).LS.12).V.(DERBC.((D.RS.5).A.17K)              033  LM00057
                1     .LS.24).V.(DERBC.((D.RS.9).A.377K))                           033  LM00058
 00344 CAL -0 50000 0 00057    00345 STA +0 62100 0 00347    00346 CAL -0 50000 0 00032    00347 LGR -0 76500 0 00000   
 00350 ANA -0 32000 0 00074    00351 SLW +0 60200 0 00702    00352 TSX +0 07400 4 00002    00353 TXH +3 00000 0 00702   
 00354 STO +0 60100 0 00702    00355 CAL -0 50000 0 00055    00356 STA +0 62100 0 00360    00357 CAL -0 50000 0 00032   
 00360 LGR -0 76500 0 00000    00361 ANA -0 32000 0 00061    00362 SLW +0 60200 0 00701    00363 TSX +0 07400 4 00002   
 00364 TXH +3 00000 0 00701    00365 STO +0 60100 0 00701    00366 CAL -0 50000 0 00064    00367 STA +0 62100 0 00371   
 00370 CAL -0 50000 0 00701    00371 ALS +0 76700 0 00000    00372 SLW +0 60200 0 00701    00373 CAL -0 50000 0 00032   
 00374 ANA -0 32000 0 00067    00375 SLW +0 60200 0 00703    00376 TSX +0 07400 4 00002    00377 TXH +3 00000 0 00703   
 00400 STO +0 60100 0 00703    00401 CAL -0 50000 0 00060    00402 STA +0 62100 0 00404    00403 CAL -0 50000 0 00703   
 00404 ALS +0 76700 0 00000    00405 ORA -0 50100 0 00701    00406 ORA -0 50100 0 00702    00407 SLW +0 60200 0 00703   
 00410 CLA +0 50000 0 00703    00411 TRA +0 02000 0 00675                                                               
                 E'O TIMECV.                                                        034  LM00062
 00412 TRA +0 02000 0 00415    00413 SXA +0 63400 2 00657    00414 TSX +0 07400 2 00657                                 
                 MESS1(1) = $L TIME$                                                035  LM00063
 00415 CLA +0 50000 0 00106    00416 STO +0 60100 0 00040                                                               
                 X = ZEL.(X1)                                                       036  LM00064
 00417 TSX +0 07400 4 00005    00420 TXH +3 00000 0 00024    00421 STO +0 60100 0 00046                                 
                 W'R (X.A.TMASK) .NE. 0, T'O BAD                                    037  LM00065
 00422 CAL -0 50000 0 00046    00423 ANA -0 32000 0 00045    00424 SLW +0 60200 0 00703    00425 CLA +0 50000 0 00703   
 00426 SUB +0 40200 0 00051    00427 TZE +0 10000 0 00431    00430 TRA +0 02000 0 00007                                 
                 HH = BCDEC.((X.RS.12).A.7777K)                                     038  LM00066
 00431 CAL -0 50000 0 00060    00432 STA +0 62100 0 00434    00433 CAL -0 50000 0 00046    00434 LGR -0 76500 0 00000   
 00435 ANA -0 32000 0 00076    00436 SLW +0 60200 0 00703    00437 TSX +0 07400 4 00000    00440 TXH +3 00000 0 00703   
 00441 STO +0 60100 0 00033                                                                                             
                 MM = BCDEC.(X.A.7777K)                                             039  LM00067
 00442 CAL -0 50000 0 00046    00443 ANA -0 32000 0 00076    00444 SLW +0 60200 0 00703    00445 TSX +0 07400 4 00000   
 00446 TXH +3 00000 0 00703    00447 STO +0 60100 0 00042                                                               
                 W'R (HH.G.23).OR.(MM.G.59), T'O BAD                                040  LM00068
 00450 CLA +0 50000 0 00042    00451 SUB +0 40200 0 00071    00452 TZE +0 10000 0 00454    00453 TPL +0 12000 0 00460   
 00454 CLA +0 50000 0 00033    00455 SUB +0 40200 0 00063    00456 TZE +0 10000 0 00461    00457 TMI -0 12000 0 00461   
 00460 TRA +0 02000 0 00007                                                                                             
                 F'N HH*3600+MM*60                                                  041  LM00069
 00461 LDQ +0 56000 0 00042    00462 MPY +0 20000 0 00072    00463 STQ -0 60000 0 00703    00464 LDQ +0 56000 0 00033   
 00465 MPY +0 20000 0 00075    00466 XCA +0 13100 0 00000    00467 ADD +0 40000 0 00703    00470 TRA +0 02000 0 00675   
                 E'O CVTIME.                                                        042  LM00073
 00471 TRA +0 02000 0 00474    00472 SXA +0 63400 2 00657    00473 TSX +0 07400 2 00657                                 
                 D = X1.A.777777K                                                   043  LM00074
 00474 CAL -0 50000 0 00024    00475 ANA -0 32000 0 00077    00476 SLW +0 60200 0 00032                                 
                 HH = D/3600                                                        044  LM00075
 00477 LDQ +0 56000 0 00032    00500 PXD -0 75400 0 00000    00501 LLS +0 76300 0 00000    00502 DVP +0 22100 0 00075   
 00503 STQ -0 60000 0 00033                                                                                             
                 F'N ((DERBC.(HH).LS.12).V.                                         045  LM00076
                1     (DERBC.((D-HH*3600)/60)).V.$  0000$)                          045  LM00077
 00504 LDQ +0 56000 0 00033    00505 MPY +0 20000 0 00075    00506 XCA +0 13100 0 00000    00507 CHS +0 76000 0 00002   
 00510 ADD +0 40000 0 00032    00511 LRS +0 76500 0 00043    00512 DVP +0 22100 0 00072    00513 STQ -0 60000 0 00703   
 00514 TSX +0 07400 4 00002    00515 TXH +3 00000 0 00703    00516 STO +0 60100 0 00703    00517 TSX +0 07400 4 00002   
 00520 TXH +3 00000 0 00033    00521 STO +0 60100 0 00702    00522 CAL -0 50000 0 00060    00523 STA +0 62100 0 00525   
 00524 CAL -0 50000 0 00702    00525 ALS +0 76700 0 00000    00526 ORA -0 50100 0 00703    00527 ORA -0 50100 0 00107   
 00530 SLW +0 60200 0 00703    00531 CLA +0 50000 0 00703    00532 TRA +0 02000 0 00675                                 
                 E'O PROGN.                                                         046  LM00081
 00533 TRA +0 02000 0 00536    00534 SXA +0 63400 2 00657    00535 TSX +0 07400 2 00657                                 
                 MESS1(1) = $L PRGN$                                                047  LM00082
 00536 CLA +0 50000 0 00105    00537 STO +0 60100 0 00040                                                               
                 X = X1                                                             048  LM00083
 00540 CLA +0 50000 0 00024    00541 STO +0 60100 0 00046                                                               
                 W'R (ZEL.(X).A.PMASK) .E. 0, F'N X                                 049  LM00084
 00542 TSX +0 07400 4 00005    00543 TXH +3 00000 0 00046    00544 STO +0 60100 0 00703    00545 CAL -0 50000 0 00703   
 00546 ANA -0 32000 0 00044    00547 SLW +0 60200 0 00703    00550 CLA +0 50000 0 00703    00551 SUB +0 40200 0 00051   
 00552 TNZ -0 10000 0 00555    00553 CLA +0 50000 0 00046    00554 TRA +0 02000 0 00675                                 
                 W'R (X.A.777777776060K).E. $CMFL00$, F'N X                         050  LM00085
 00555 CAL -0 50000 0 00046    00556 ANA -0 32000 0 00110    00557 SLW +0 60200 0 00703    00560 CLA +0 50000 0 00703   
 00561 SUB +0 40200 0 00102    00562 TNZ -0 10000 0 00565    00563 CLA +0 50000 0 00046    00564 TRA +0 02000 0 00675   
                 T'O BAD                                                            051  LM00086
 00565 TRA +0 02000 0 00007                                                                                             
                 E'O PROBN.                                                         052  LM00090
 00566 TRA +0 02000 0 00571    00567 SXA +0 63400 2 00657    00570 TSX +0 07400 2 00657                                 
                 MESS1(1) = $L PRBN$                                                053  LM00091
 00571 CLA +0 50000 0 00104    00572 STO +0 60100 0 00040                                                               
                 X = X1                                                             054  LM00092
 00573 CLA +0 50000 0 00024    00574 STO +0 60100 0 00046                                                               
                 W'R (X.A.60K).NE.0, T'O BAD                                        055  LM00093
 00575 CAL -0 50000 0 00046    00576 ANA -0 32000 0 00070    00577 SLW +0 60200 0 00703    00600 CLA +0 50000 0 00703   
 00601 SUB +0 40200 0 00051    00602 TZE +0 10000 0 00604    00603 TRA +0 02000 0 00007                                 
                 T'H LOOP1, FOR I=6,6,I.E.30                                        056  LM00094
 00604 CLA +0 50000 0 00056    00605 STO +0 60100 0 00034    00606 TRA +0 02000 0 00612    00607 CLA +0 50000 0 00034   
 00610 ADD +0 40000 0 00056    00611 STO +0 60100 0 00034    00612 CLA +0 50000 0 00034    00613 SUB +0 40200 0 00066   
 00614 TZE +0 10000 0 00655                                                                                             
                 W'R (((X.RS.I).A.60K).NE.0),                                       057  LM00095
                1     F'N BZEL.((((X.RS.I).A.77K).LS.24).V.                         057  LM00096
                2     ((77777777K.RS.(24-I)).A.X))                                  057  LM00097
 00615 CAL -0 50000 0 00034    00616 STA +0 62100 0 00620    00617 CAL -0 50000 0 00046    00620 LGR -0 76500 0 00000   
 00621 ANA -0 32000 0 00070    00622 SLW +0 60200 0 00703    00623 CLA +0 50000 0 00703    00624 SUB +0 40200 0 00051   
 00625 TZE +0 10000 0 00654    00626 CLA +0 50000 0 00064    00627 SUB +0 40200 0 00034    00630 STA +0 62100 0 00632   
 00631 CAL -0 50000 0 00100    00632 LGR -0 76500 0 00000    00633 ANA -0 32000 0 00046    00634 SLW +0 60200 0 00703   
 00635 CAL -0 50000 0 00034    00636 STA +0 62100 0 00640    00637 CAL -0 50000 0 00046    00640 LGR -0 76500 0 00000   
 00641 ANA -0 32000 0 00073    00642 SLW +0 60200 0 00702    00643 CAL -0 50000 0 00064    00644 STA +0 62100 0 00646   
 00645 CAL -0 50000 0 00702    00646 ALS +0 76700 0 00000    00647 ORA -0 50100 0 00703    00650 SLW +0 60200 0 00703   
 00651 TSX +0 07400 4 00001    00652 TXH +3 00000 0 00703    00653 TRA +0 02000 0 00675                                 
      LOOP1      C'E                                                                058  LM00098
 00654 TRA +0 02000 0 00607                                                                                             
                 T'O BAD                                                            059  LM00099
 00655 TRA +0 02000 0 00007                                                                                             
                 E'N                                                                060  LM00101
 00656 TSX +0 07400 4 00003    00657 TXH +3 00000 0 00000    00660 SXD -0 63400 1 00657    00661 SXA +0 63400 4 00675   
 00662 CLA +0 50000 4 00001    00663 STA +0 62100 0 00114    00664 STO +0 60100 0 00163    00665 STA +0 62100 0 00341   
 00666 STO +0 60100 0 00420    00667 STA +0 62100 0 00474    00670 STA +0 62100 0 00540    00671 STA +0 62100 0 00573   
 00672 CLA +0 50000 4 00002    00673 STA +0 62100 0 00333    00674 TRA +0 02000 2 00001    00675 AXT +0 77400 4 00000   
 00676 LXA +0 53400 2 00657    00677 LXD -0 53400 1 00657    00700 TRA +0 02000 4 00001                                 




UNIQUE   BCD 04/29/67 2213.3     635         00000    
1                                                                                                PAGE 1     
                           UNIQUE NAME GENERATOR                                    
                  
                  
  BINARY CARD NO. UNIQUE00    
                       00003         ENTRY   UNIQUE   
                                     EXTERN  GETIME   
                  
                                             THIS PROGRAM GENERATES A UNIQUE PAIR OF NAMES
                  
                                             TSX           $UNIQUE,4    
                                             PTH           NAME1  
                                             PTH           NAME2  
                  
                                             THIS PROGRAM IS USED TO GENERATE UNIQUE
                                             NAMES FOR INTERMEDIATE FILES     
                  
                                                           D.R. WIDRIG  DEC. 1965   
                  
                  
        TRANSFER VECTOR 
                  
  BINARY CARD NO. UNIQUE01    
      00000  272563314425     GETIME
                  
            LINKAGE DIRECTOR  
      00001  000000000000     
      00002  644531506425     
                  
      00003  0634 00 4 00007  UNIQUE SXA     X4,4          SAVE LINKAGE 
      00004  0634 00 1 00026         SXA     X1,1          COUNTER
      00005  0074 00 4 00000         TSX     GETIME,4      GET DATE AND TIME  
      00006 -0130 00 0 00000         XCL                   SWITCH AC AND MQ   
      00007  0774 00 4 00000  X4     AXT     **,4          RESTORE LINKAGE    
      00010 -0320 00 0 00030         ANA     =O777777770000 MASK OUT YY PORTION OF DATE   
      00011  0602 60 4 00001         SLW*    1,4           TEMPORARY SAVE     
      00012 -0754 00 0 00000         ZAC                   CLEAR AC     
      00013 -0773 00 0 00014         RQL     12            THROW OUT HIGH-ORDER ZEROES    
      00014 -0763 00 0 00003         LGL     3             CONVERT TO OCTAL   
      00015  0767 00 0 00003         ALS     3             ..     
      00016 -0763 00 0 00003         LGL     3             ..     
      00017 -0602 60 4 00001         ORS*    1,4           'OR' WITH MMDD     
      00020  0774 00 1 00006         AXT     6,1           SET LOOP COUNT     
      00021 -0754 00 0 00000         ZAC                   CLEAR AC     
      00022  0767 00 0 00003         ALS     3             CONVERT TO OCTAL   
      00023 -0763 00 0 00003         LGL     3             ..     
                  
  BINARY CARD NO. UNIQUE02    
      00024  2 00001 1 00022         TIX     *-2,1,1       LOOP   
      00025  0602 60 4 00002         SLW*    2,4           SAVE NAME2   
      00026  0774 00 1 00000  X1     AXT     **,1          RESTORE XR1  
      00027  0020 00 4 00003         TRA     3,4           RETURN 
                                     END  
                  
        LITERALS  
      00030  777777770000     
1                                                                                                PAGE 1     
                        POST PROCESSOR ASSEMBLY DATA  
                  
         31 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM  
                  
0REFERENCES TO DEFINED SYMBOLS      
         26     X1     4
          7     X4     3
          0 GETIME     5
          3 UNIQUE     0
                  
0 NO ERROR IN ABOVE ASSEMBLY. 




   SWT   BCD 04/29/67 2213.3     356         00000    
1                                                                                                PAGE 1     
                           TEST OF ON-LINE SENSE SWITCHES                           
                  
                  
  BINARY CARD NO. SWT00000    
                       00002         ENTRY   SWT
                  
                                             THIS MODULE TESTS THE SENSE SWITCHES ON THE CONSOLE
                  
                                                           D.R. WIDRIG  DEC. 1965   
                  
                  
            LINKAGE DIRECTOR  
                  
  BINARY CARD NO. SWT00001    
      00000  000000000000     
      00001  626663606060     
                  
      00002 -0500 60 4 00001  SWT    CAL*    1,4           GET SWITCH NUMBER  
      00003 -0320 00 0 00012         ANA     =O7           MAKE SURE IT IS NOT TOO BIG    
      00004 -0501 00 0 00011         ORA     SWT0          BLEND IN OP-CODE   
      00005  0602 00 0 00006         SLW     *+1           PLANT IT     
      00006  0 00000 0 00000         ***     **            TEST SWITCH  
      00007 -0754 00 0 00000         ZAC                   UP, RETURN ZERO (BOOLEAN 0B)   
      00010  0020 00 4 00002         TRA     2,4           DOWN, RETURN BOOLEAN 1B  
                  
      00011  0760 00 0 00160  SWT0   SWT     0             PROTOTYPE SWITCH TEST INSTRUCTION    
                                     END  
                  
        LITERALS  
      00012  000000000007     
1                                                                                                PAGE 1     
                        POST PROCESSOR ASSEMBLY DATA  
                  
         13 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM  
                  
0REFERENCES TO DEFINED SYMBOLS      
          2    SWT     0
         11   SWT0     4
                  
0 NO ERROR IN ABOVE ASSEMBLY. 




 MOUNT   BCD 04/29/67 2213.3     896         00000    
1                                                                                                PAGE 1     
                           AUXILIARY TRAPS, DUMMIES, ETC.                           
                  
                  
  BINARY CARD NO. AUX00000    
                       00005         ENTRY   VERIFY   
                       00007         ENTRY   MOUNT    
                       00003         ENTRY   UMOUNT   
                       00033         ENTRY   EXIT     
                  
                                     EXTERN  SLEEP    
                  
                                             'MOUNT' WRITE-AROUND TO TRAP 0,4 RETURNS     
                                             'VERIFY' TRAP ALSO   
                                             'UMOUNT' ALSO  
                                             DUMMY 'EXIT'   
                  
                                             THIS PACKAGE (ALTHOUGH NOT NECESSARY) IS USED
                                             ONLY IN FOREGROUND RETRIEVALS AND HOLDS DOWN TIME  
                                             CHARGED TO RETRIEVALS DUE TO OPERATIONS
                  
                                             NOTE THAT IT EXPECTS A FIXED NUMBER OF ARGUMENTS   
                  
                                                           D.R. WIDRIG  DEC. 1965   
                                                           REVISED APRIL 1966, D.R. WIDRIG
                  
                  
        TRANSFER VECTOR 
                  
  BINARY CARD NO. AUX00001    
      00000  624325254760     SLEEP 
                  
            LINKAGE DIRECTOR  
      00001  000000000000     
      00002  652551312670     
                  
      00003 -0500 00 0 00037  UMOUNT CAL     =HUMOUNT      GET SUPERVISOR NAME
      00004  0020 00 0 00010         TRA     MOUNT+1       SKIP INTO ROUTINE  
                  
      00005 -0500 00 0 00040  VERIFY CAL     =HVERIFY      GET SUPERVISOR NAME
      00006  0020 00 0 00010         TRA     *+2           SKIP MOUNT ENTRY   
                  
      00007 -0500 00 0 00036  MOUNT  CAL     =HMOUNT       GET SUPERVISOR NAME
      00010  0602 00 0 00035         SLW     SUPCAL        SAVE BCD NAME
      00011  0636 00 4 00013         SCA     IR4,4         SAVE RETURN  
      00012 -0774 00 4 00004         AXC     4,4           GET PARAMETERS     
      00013  0500 00 4 00000  IR4    CLA     **,4          ..     
      00014  0601 00 4 00021         STO     MT,4          SAVE IN THIS ROUTINE     
      00015  1 00001 4 00016         TXI     *+1,4,1       NEXT PARAMETER     
      00016  3 77774 4 00013         TXH     *-3,4,-4      TEST FOR COMPLETION
                  
      00017 -0774 00 4 00021         AXC     MT,4          SET UP 0,4 RETURN  
      00020  0101 00 0 00035         TIA     SUPCAL        ENTER SUPERVISOR   
      00021  0020 00 0 00030  MT     TRA     SLTIME        SLEEP A WHILE IF 0,4 RETURN    
      00022  0 00000 0 00000         ***     ** 
      00023  0 00000 0 00000         ***     ** 
1                                                                                                PAGE 2     
                           AUXILIARY TRAPS, DUMMIES, ETC.                           
                  
  BINARY CARD NO. AUX00002    
      00024  0 00000 0 00000         ***     ** 
      00025  0 00000 0 00000         ***     ** 
                  
      00026  0535 00 4 00013         LAC     IR4,4         NORMAL RETURN, BACK TO CALLER  
      00027  0020 00 4 00005         TRA     5,4           ..     
                  
      00030 -0774 00 4 00016  SLTIME AXC     MT-3,4        SET RETURN   
      00031  0500 00 0 00034         CLA     SLEEPT        GET SLEEP TIME     
      00032  0020 00 0 00000         TRA     SLEEP         ZZZ - ZZZ - ZZZ    
                  
      00033  0000 00 0 00033  EXIT   HTR     *             SHOULD NEVER GET HERE    
                  
      00034 +000000000074     SLEEPT DEC     60            SLEEP TIME   
      00035  0 00000 0 00000  SUPCAL PZE  
                                     END  
                  
        LITERALS  
      00036  444664456360     
      00037  644446644563     
      00040  652551312670     
1                                                                                                PAGE 1     
                        POST PROCESSOR ASSEMBLY DATA  
                  
         41 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM  
                  
0REFERENCES TO DEFINED SYMBOLS      
         21     MT    14,   17,   30
         13    IR4    11,   26
         33   EXIT     0
          7  MOUNT     0,    4
          0  SLEEP    32
         34 SLEEPT    31
         30 SLTIME    21
         35 SUPCAL    10,   20
          3 UMOUNT     0
          5 VERIFY     0
                  
0 NO ERROR IN ABOVE ASSEMBLY. 




.SETUP   BCD 04/29/67 2213.3     404         00000    
1                                                                                                PAGE 1     
                           WIDRIG VERSION OF .SETUP                                 
                  
                  
  BINARY CARD NO. .SETUP00    
                       00004         ENTRY   .SETUP   
                                     EXTERN  GETIME,CDATE   
                  
                                             THIS ROUTINE IS CALLED IMPLICITLY BY (MAIN)  
                                             IT'S ONLY FUNCTION IS TO GIVE THE CURRENT DATE     
                                             TO THE 'RLIBE' MODULE
                  
                                                           D.R. WIDRIG  DEC. 1965   
                  
        TRANSFER VECTOR 
                  
  BINARY CARD NO. .SETUP01    
      00000  272563314425     GETIME
      00001  232421632560     CDATE 
                  
            LINKAGE DIRECTOR  
      00002  000000000000     
      00003  336225636447     
                  
      00004  0634 00 4 00011  .SETUP SXA     IR4,4         SAVE CALLER  
      00005  0074 00 4 00000         TSX     GETIME,4      GET CURRENT DATE   
      00006 -0600 00 0 00013         STQ     DATE          SAVE IT
      00007  0074 00 4 00001         TSX     CDATE,4       GIVE DATE TO CONVERSION PACKAGE
      00010  3 00000 0 00013         PTH     DATE     
      00011  0774 00 4 00000  IR4    AXT     **,4          RESTORE IR4  
      00012  0020 00 4 00001         TRA     1,4           RETURN TO MAIN PROGRAM   
                  
                  
      00013  0 00000 0 00000  DATE   PZE  
                                     END  
1                                                                                                PAGE 1     
                        POST PROCESSOR ASSEMBLY DATA  
                  
         14 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM  
                  
0REFERENCES TO DEFINED SYMBOLS      
         11    IR4     4
         13   DATE     6,   10
          1  CDATE     7
          0 GETIME     5
          4 .SETUP     0
                  
0 NO ERROR IN ABOVE ASSEMBLY. 




 VALID   BCD 04/29/67 2213.3    2482         00000    
1                    VALID    DAGGETT     NOV 16, 1966                                           PAGE 1     
                  
                              *              CHECK FOR HEADER RECORD AT BEGINNING OF DAEMON-LOGICAL   
                              *              RECORD(4 TAPE STRATEGY RECORDS OF 432 WORDS EACH)  
                              *              VALID.(ARRAY,YES,NO) 
                              *               ARRAY STORED FORWARD, I.E. PBNO=ARRAY,PGNO=ARRAY+1
                              *              CHECKS ARE..PBNP,PGNP ARE ALPHANUMERIC 
                              *                       ...DATES IN 3RD,5TH WORDS     
                              *                        ..10TH WORD TAG .NE. 0, ADDRESS=432
                              *                        ..11TH WORD IS WORD COUNT OF FILE  
                              *                        ..12TH WORD IS LOGICAL RECORD COUNTS     
                       00003         ENTRY   VALID    
                              *     
                                     EXTERN  CVDATE   
                  
        TRANSFER VECTOR 
      00000  236524216325     CVDATE
                  
            LINKAGE DIRECTOR  
      00001  000000000000     
      00002  652143312460     
                  
                       00003  VALID  SYN     *  
      00003  0634 00 1 00124         SXA     VAL1,1   
      00004  0634 00 2 00123         SXA     VAL2,2   
      00005  0634 00 4 00122         SXA     VAL4,4   
      00006 -0500 00 4 00001         CAL     1,4           GET LOCATION OF ARRAY    
      00007  0621 00 0 00033         STA     V1 
      00010  0621 00 0 00047         STA     L1 
      00011  0621 00 0 00057         STA     V3 
      00012  0621 00 0 00041         STA     V21
      00013  0400 00 0 00211         ADD     =1            (ARRAY+1) PGNO     
      00014  0621 00 0 00036         STA     V2 
      00015  0621 00 0 00062         STA     L2 
      00016  0621 00 0 00044         STA     V22
      00017  0400 00 0 00211         ADD     =1            ARRAY+2(DATE)
      00020  0621 00 0 00115         STA     L6 
      00021  0400 00 0 00212         ADD     =2 
      00022  0621 00 0 00120         STA     L7 
      00023  0400 00 0 00213         ADD     =3 
      00024  0400 00 0 00212         ADD     =2 
      00025  0621 00 0 00065         STA     L3            ARRAY+9
      00026  0400 00 0 00211         ADD     =1 
      00027  0621 00 0 00074         STA     L4            ARRAY+10     
      00030  0400 00 0 00211         ADD     =1 
      00031  0621 00 0 00076         STA     L5            ARRAY+11     
      00032  0600 00 0 00132         STZ     TGTST    
                              *              SPECIAL CHECK FOR M.F.D. (FILE), DSKEDT .FILE.     
      00033 -0500 00 0 00000  V1     CAL     **            (ARRAY)
      00034  0322 00 0 00226         ERA     =HM.F.D. 
      00035 -0100 00 0 00041         TNZ     V21
      00036 -0500 00 0 00000  V2     CAL     **            (ARRAY+1) PGNO     
      00037  0322 00 0 00230         ERA     =H(FILE) 
      00040  0100 00 0 00065         TZE     L3            FOUND M.F.D. (FILE)
      00041 -0500 00 0 00000  V21    CAL     **            (ARRAY)
      00042  0322 00 0 00224         ERA     =HDSKEDT 
      00043 -0100 00 0 00047         TNZ     L1 
      00044 -0500 00 0 00000  V22    CAL     **            (ARRAY+1)    
1                    VALID    DAGGETT     NOV 16, 1966                                           PAGE 2     
                  
      00045  0322 00 0 00225         ERA     =H.FILE. 
      00046  0100 00 0 00065         TZE     L3 
                              *              CHECK PBNO,PGNO FOR ALPHANUMERIC CHARACTERS  
      00047  0560 00 0 00000  L1     LDQ     **            (ARRAY)
      00050 -0754 00 0 00000         ZAC                   IS FIRST LETTER OF PBNO  
      00051 -0763 00 0 00006         LGL     6             A BLANK
      00052  0402 00 0 00215         SUB     =H00000  
      00053 -0100 00 0 00126         TNZ     INVAL         NO. TAKE NO EXIT   
      00054 -0763 00 0 00006         LGL     6  
      00055  0402 00 0 00214         SUB     =O12          CHECK SECOND CHAR  
      00056 -0120 00 0 00126         TMI     INVAL         NUMERIC. SHOULD BE LETTER
                              *              CHECK FOR REST OF NAME AS ALPHANUMERIC 
      00057  0560 00 0 00000  V3     LDQ     **            (ARRAY)
      00060  0074 00 4 00162         TSX     ALPNU,4  
      00061  0020 00 0 00126         TRA INVAL             NOT ALPHANUMERIC   
      00062  0560 00 0 00000  L2     LDQ     **            (PGNO) OK.   
      00063  0074 00 4 00162         TSX     ALPNU,4       NOW CHECK PRGMMER NO.    
      00064  0020 00 0 00126         TRA     INVAL    
                              *              CHECK ARRAY+9 FOR TAG .NE. O NAD ADDR=432    
      00065 -0500 00 0 00000  L3     CAL     **            (ARRAY+9) 10TH WORD
      00066  0625 00 0 00132         STT     TGTST    
      00067 -0520 00 0 00132         NZT     TGTST         TAG SHOULD .NE. 0  
      00070  0020 00 0 00126         TRA     INVAL    
      00071 -0320 00 0 00223         ANA     =O77777       NOW TEST ADDRESS   
      00072  0402 00 0 00220         SUB     =432     
      00073 -0100 00 0 00126         TNZ     INVAL    
                              *              CHECK 11TH WORD FOR WORD COUNT OF FILE 
      00074 -0500 00 0 00000  L4     CAL     **            (ARRAY+10)   
      00075  0602 00 0 00130         SLW     WDCNT    
                              *              CHECK 12TH WORD. SHOULD HAVE 1 IN DECR.ADDRSS
                              *                 SHOULD BE NUMBER OF DAEMON-LOGICAL RECORDS
                              *              IN FILE AND SHOULD BE CONSISTENT WITH WDCNT. 
      00076 -0500 00 0 00000  L5     CAL     **            (ARRAY+11)   
      00077  0602 00 0 00131         SLW     RECNT    
      00100 -0734 00 1 00000         PDX     0,1
      00101 -3 00000 1 00126         TXL     INVAL,1,0
      00102  3 00001 1 00126         TXH     INVAL,1,1     NO GOOD IF NOT = 1 
      00103 -0320 00 0 00227         ANA     =O700000700000  PREFIX AND TAG SHOULD BE ZERO
      00104 -0100 00 0 00126         TNZ     INVAL    
      00105 -0500 00 0 00131         CAL     RECNT    
      00106 -0320 00 0 00223         ANA     =O77777       TOTAL DAEMON-LOGICAL RECORD COUNT    
      00107 -0130 00 0 00000         XCL  
      00110  0200 00 0 00222         MPY     =1728         432*4(WDS. IN DEMON-LOGICAL REC)     
      00111 -0130 00 0 00000         XCL  
      00112  0402 00 0 00130         SUB     WDCNT         SHOULD NOT BE .G. WDCNT  
      00113 -0120 00 0 00126         TMI     INVAL    
                              *              CHECK DATE ENTRIES   
      00114  0074 00 4 00133         TSX CKDAT,4           CHECK 3RD WORD     
      00115  0 00000 0 00000  L6             **            (ARRAY+2)    
      00116  0020 00 0 00126         TRA     INVAL    
      00117  0074 00 4 00133         TSX     CKDAT,4  
      00120  0 00000 0 00000  L7             **            CHECK 5TH WORD     
      00121  0020 00 0 00126         TRA     INVAL    
                              *              ENTRY SEEMS OK. TAKE YES EXIT    
      00122  0774 00 4 00000  VAL4   AXT     **,4     
      00123  0774 00 2 00000  VAL2   AXT     **,2     
1                    VALID    DAGGETT     NOV 16, 1966                                           PAGE 3     
                  
      00124  0774 00 1 00000  VAL1   AXT     **,1     
      00125  0020 60 4 00002         TRA*    2,4
                              *     
                              *              NO EXIT. ARRAY DOES NOT LOOK LIKE HEADER.    
                       00126  INVAL  SYN     *  
      00126  0534 00 4 00122         LXA     VAL4,4   
      00127  1 77777 4 00123         TXI     VAL2,4,-1
                              *     
      00130  0 00000 0 00000  WDCNT  PZE  
      00131  0 00000 0 00000  RECNT  PZE  
      00132  0 00000 0 00000  TGTST  PZE  
                              *     
                              *     
                              *              CKDAT    
                              *              1,4 ARGUMENT   
                              *              2,4  BAD DATE  
                              *              3,4 OK EXIT    
                              *              TEST IS MONTH .LE. 12, YEAR .LE. 70, DAY.L.32
                              *     
                       00133  CKDAT  SYN     *  
      00133  0634 00 4 00156         SXA     CK4,4    
      00134 -0500 00 4 00001         CAL     1,4
      00135  0621 00 0 00137         STA     *+2
      00136  0074 00 4 00000         TSX     CVDATE,4 
 TD   00137  3 00000 0 00000         TXH     ** 
 TD   00140  3 00000 0 00141         TXH     *+1
      00141 -0130 00 0 00000         XCL  
      00142 -0754 00 0 00000         ZAC                   MMDDYY TO MQ 
      00143 -0763 00 0 00014         LGL     12 
      00144  0402 00 0 00216         SUB     =H000013      CHECK MONTH  
      00145  0120 00 0 00160         TPL     CK5
      00146 -0754 00 0 00000         ZAC  
      00147 -0763 00 0 00014         LGL     12 
      00150  0402 00 0 00217         SUB     =H000032      CHECK DAY    
      00151  0120 00 0 00160         TPL     CK5
      00152 -0754 00 0 00000         ZAC  
      00153 -0763 00 0 00014         LGL     12 
      00154  0402 00 0 00221         SUB     =H000070      CHECK YEAR   
      00155  0120 00 0 00160         TPL     CK5
      00156  0774 00 4 00000  CK4    AXT     **,4     
      00157  0020 00 4 00003         TRA     3,4
                              *     
      00160  0534 00 4 00156  CK5    LXA     CK4,4    
      00161  0020 00 4 00002         TRA     2,4           BAD EIXT     
                              *     
                              *              ALPNU    
                              *              ARGUMENT IN MQ 
                              *              1,4   NOT ALPHANUMERIC     
                              *              2,4   ALPHANUMERIC   
                              *     
                       00162  ALPNU  SYN     *  
      00162  0634 00 4 00202         SXA     NOT,4    
      00163  0634 00 2 00203         SXA     ALP2,2   
      00164  0634 00 1 00204         SXA     ALP3,1   
      00165  0774 00 2 00006         AXT     6,2
      00166 -0754 00 0 00000  ALP1   ZAC  
1                    VALID    DAGGETT     NOV 16, 1966                                           PAGE 4     
                  
      00167 -0763 00 0 00006         LGL     6  
      00170  0734 00 1 00000         PAX     0,1
      00171 -3 00011 1 00206         TXL     OK,1,9   
      00172 -3 00020 1 00202         TXL     NOT,1,16 
      00173 -3 00031 1 00206         TXL     OK,1,25       21 THRU31 OCTAL OK 
      00174 -3 00040 1 00202         TXL     NOT,1,32 
      00175 -3 00051 1 00206         TXL     OK,1,41  
      00176 -3 00057 1 00202         TXL     NOT,1,47 
      00177 -3 00060 1 00206         TXL     OK,1,48       BLANK OK     
      00200 -3 00061 1 00202         TXL     NOT,1,49 
      00201 -3 00071 1 00206         TXL     OK,1,57  
      00202  0774 00 4 00000  NOT    AXT     **,4     
      00203  0774 00 2 00000  ALP2   AXT     **,2     
      00204  0774 00 1 00000  ALP3   AXT     **,1     
      00205  0020 00 4 00001         TRA     1,4
                              *     
      00206  2 00001 2 00166  OK     TIX     ALP1,2,1 
      00207  0534 00 4 00202         LXA     NOT,4    
      00210  1 77777 4 00203         TXI     ALP2,4,-1
                                     END  
                  
        LITERALS  
      00211  000000000001     
      00212  000000000002     
      00213  000000000003     
      00214  000000000012     
      00215  000000000060     
      00216  000000000103     
      00217  000000000302     
      00220  000000000660     
      00221  000000000700     
      00222  000000003300     
      00223  000000077777     
      00224  246242252463     
      00225  332631432533     
      00226  443326332433     
      00227  700000700000     
      00230  742631432534     
1                    VALID    DAGGETT     NOV 16, 1966                                           PAGE 1     
                        POST PROCESSOR ASSEMBLY DATA  
                  
        231 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM  
                  
0REFERENCES TO DEFINED SYMBOLS      
         47     L1    10,   43
         62     L2    15
         65     L3    25,   40,   46
         74     L4    27
         76     L5    31
        115     L6    20
        120     L7    22
        206     OK   171,  173,  175,  177,  201
         33     V1     7
         36     V2    14
         57     V3    11
        156    CK4   133,  160
        160    CK5   145,  151,  155
        202    NOT   162,  172,  174,  176,  200,  207
         41    V21    12,   35
         44    V22    16
        166   ALP1   206
        203   ALP2   163,  210
        204   ALP3   164
        124   VAL1     3
        123   VAL2     4,  127
        122   VAL4     5,  126
        162  ALPNU    60,   63,  162
        133  CKDAT   114,  117,  133
        126  INVAL    53,   56,   61,   64,   70,   73,  101,  102,  104,  113,  116,  121,  126
        131  RECNT    77,  105
        132  TGTST    32,   66,   67
          3  VALID     0,    3
        130  WDCNT    75,  112
          0 CVDATE   136