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