Source Code

004866,000002: ## Copyright: Public domain. 004867,000003: ## Filename: 501_RESTART_TABLES_AND_ROUTINES.agc 004868,000004: ## Purpose: Part of the source code for Solarium build 55. This 004869,000005: ## is for the Command Module's (CM) Apollo Guidance 004870,000006: ## Computer (AGC), for Apollo 6. 004871,000007: ## Assembler: yaYUL --block1 004872,000008: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com> 004873,000009: ## Website: www.ibiblio.org/apollo/index.html 004874,000010: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Solarium055/ 004875,000011: ## Mod history: 2009-10-02 JL Created. 004876,000012: ## 2016-08-18 RSB Corrected typos 004877,000013: ## 2016-08-23 RSB More of the same. 004878,000014: ## 2016-12-28 RSB Proofed comment text using octopus/ProoferComments, 004879,000015: ## and fixed errors found. 004880,000016:

Page 125

004882,000018:                                                                                                  #   RESTART  TABLES
004883,000019:                                                                                                  #   ----------------
004884,000020: 
004885,000021:                                                                                                  #        THESE CONTROL RESTART OPERATION.
004886,000022: 
004887,000023: 
004888,000024: 
004889,000025: 
004890,000026:                                                                                                  #   ...IMPORTANT...   DO NOT MOVE THIS SECTION FROM BEGINNING OF BANK. DJL
004891,000027: 
004892,000028: 13,6000                                           SETLOC   26000                                 #  START OF BANK 13.
004893,000029: 13,6000           00000        WTDTTAB            DEC      0          B-14                       #  WAITLIST DT FOR RESTART 1.0
004894,000030: 13,6001           00000        WCADRTAB           CADR     0                                     #  WAITLIST CADR.
004895,000031: 13,6002           00000        PRIOTAB            OCT      0                                     #  PRIORITY VALUE.
004896,000032: 13,6003           00000        CADRTAB            CADR     0                                     #  CADR OF CURRENT JOB
004897,000033: 
004898,000034:                                                                                                  #  ANY JOB 1 RESTARTS SHOULD GO HEFE.
004899,000035: 
004900,000036: 13,6004           00000 00000  2.1SPOT            2DEC     0.0                                   #  2.1 RESTART
004901,000037: 13,6006           00000 00000                     2DEC     0.0                                   
004902,000038: 
004903,000039: 13,6010           00000        2.2SPOT            OCT      0                                     #  RESTART 2.2 VALUES.
004904,000040: 13,6011           00000                           OCT      0                                     
004905,000041: 13,6012           12000                           OCT      12000                                 #  PRIO12
004906,000042: 13,6013           66621                           CADR     SOAKINIT                              
004907,000043: 
004908,000044: 13,6014           00000        2.3SPOT            OCT      0                                     #  2.3 RESTART
004909,000045: 13,6015           00000                           OCT      0                                     
004910,000046: 13,6016           12000                           OCT      12000                                 
004911,000047: 13,6017           66412                           CADR     ATTIJOB1   -1                         
004912,000048: 
004913,000049: 13,6020           00000        2.4SPOT            OCT      0                                     #  RESTART 2.4
004914,000050: 13,6021           00000                           OCT      0                                     
004915,000051: 13,6022           12000                           OCT      12000                                 
004916,000052: 13,6023           66404                           CADR     ATTIJOB                               
004917,000053: 
004918,000054: 13,6024           00000 00000  2.5SPOT            2DEC     0          B-28                       #  2.5 RESTART.
004919,000055: 13,6026           00000 00000                     2DEC     0          B-28                       
004920,000056: 
004921,000057:                                                                                                  #  ANY MORE GROUP 2 RESTART VALUES SHOULD GO HERE.
004922,000058: 
004923,000059: 
004924,000060: 13,6030           77777        3.1SPOT            OCT      77777                                 #  3.1 RESTART.
004925,000061: 13,6031           77777                           OCT      77777                                 
004926,000062: 13,6032           01563                           CADR     TROLL      +1                         #  CONTAINS DT
004927,000063: 13,6033           64066                           CADR     MON1TASK                              
004928,000064: 
004929,000065: 13,6034           77777        3.2SPOT            OCT      77777                                 #  3.2 RESTART
004930,000066: 13,6035           77777                           OCT      77777                                 
004931,000067: 13,6036           01572                           CADR     TTUMON                                

Page 126

004933,000069: 13,6037           64250                           CADR     TUMBTSK1                              
004934,000070: 
004935,000071: 13,6040           00000                           OCT      0                                     #  3.3 RESTART
004936,000072: 13,6041           00000                           OCT      0                                     
004937,000073: 13,6042           77777                           OCT      77777                                 
004938,000074: 13,6043           64771                           CADR     REDO3.3                               
004939,000075: 
004940,000076: 13,6044           01274                           DEC      700        B-14                       #  3.4 RESTART.
004941,000077: 13,6045           65110                           CADR     GIMPOWOF                              
004942,000078: 13,6046           00000                           OCT      0                                     
004943,000079: 13,6047           00000                           OCT      0                                     
004944,000080: 
004945,000081: 13,6050           02032                           DEC      1050       B-14                       #  3.5 RESTART
004946,000082: 13,6051           65124                           CADR     DVMODOFF                              
004947,000083: 13,6052           00000                           OCT      0                                     
004948,000084: 13,6053           00000                           OCT      0                                     
004949,000085: 
004950,000086: 13,6054           02063                           DEC      1075       B-14                       #  3.6 RESTART.
004951,000087: 13,6055           65135                           CADR     ATTCONON                              
004952,000088: 13,6056           00000                           OCT      0                                     
004953,000089: 13,6057           00000                           OCT      0                                     
004954,000090: 
004955,000091: 13,6060           00113                           DEC      75         B-14                       #  3.7RESTART
004956,000092: 13,6061           31550                           CADR     CGTASK                                
004957,000093: 13,6062           00000                           OCT      0                                     
004958,000094: 13,6063           00000                           OCT      0                                     
004959,000095: 
004960,000096: 13,6064           00310                           DEC      200        B-14                       #  3.8 RESTART.
004961,000097: 13,6065           65121                           CADR     GMPOFF3                               
004962,000098: 13,6066           00000                           OCT      0                                     
004963,000099: 13,6067           00000                           OCT      0                                     
004964,000100: 
004965,000101: 13,6070           00000                           OCT      0                                     #  3.9 REATART.
004966,000102: 13,6071           00000                           OCT      0                                     
004967,000103: 13,6072           77777                           OCT      77777                                 
004968,000104: 13,6073           65070                           CADR     SETMOD23                              
004969,000105: 
004970,000106: 13,6074           00000                           OCT      0                                     #  3.10 RESTART.
004971,000107: 13,6075           00000                           OCT      0                                     
004972,000108: 13,6076           27000                           OCT      27000                                 
004973,000109: 13,6077           67060                           CADR     SHUTJOB                               
004974,000110: 
004975,000111: 13,6100           00764                           DEC      500        B-14                       #  3.11 RESTART.
004976,000112: 13,6101           67260                           CADR     CDUXTASK                              #  5SECS FROM TBASE3
004977,000113: 13,6102           00000                           OCT      0                                     
004978,000114: 13,6103           00000                           OCT      0                                     
004979,000115: 
004980,000116: 13,6104           01750        3.12SPOT           DEC      1000       B-14                       #  3.12 RESTART.
004981,000117: 13,6105           67342                           CADR     CM/SMTSK                              #  10SECS FROM TBASE3
004982,000118: 13,6106           20000                           OCT      20000                                 

Page 127

004984,000120: 13,6107           67274                           CADR     CDUXJOB                               
004985,000121: 
004986,000122: 13,6110           01750                           DEC      1000       B-14                       #  3.13 RESTART.
004987,000123: 13,6111           67342                           CADR     CM/SMTSK                              
004988,000124: 13,6112           20000                           OCT      20000                                 
004989,000125: 13,6113           67330                           CADR     REDO3.13                              
004990,000126: 
004991,000127: 13,6114           01750                           DEC      1000       B-14                       #  3.14 RESTART.
004992,000128: 13,6115           67342                           CADR     CM/SMTSK                              
004993,000129: 13,6116           00000                           OCT      0                                     
004994,000130: 13,6117           00000                           OCT      0                                     
004995,000131: 
004996,000132: 13,6120           02734        3.15SPOT           DEC      1500       B-14                       #  3.15 RESTART
004997,000133: 13,6121           67355                           CADR     ENTATASK                              #  15SECS FROM TBASE3
004998,000134: 13,6122           00000                           OCT      0                                     
004999,000135: 13,6123           00000                           OCT      0                                     
005000,000136: 
005001,000137: 13,6124           00000        3.16SPOT           OCT      0                                     #  3.16 RESTART.
005002,000138: 13,6125           00000                           OCT      0                                     
005003,000139: 13,6126           15000                           OCT      15000                                 #  PRIO TO REDO HUNTEST.
005004,000140: 13,6127           63515                           CADR     PREHUNT                               
005005,000141: 
005006,000142: 13,6130           00000 00000  3.17SPOT           2DEC     0          B-28                       #  3.17 RESTART.  ...PRELAUNCH...
005007,000143: 13,6132           20000                           OCT      20000                                 
005008,000144: 13,6133           42142                           CADR     REPL11                                
005009,000145: 
005010,000146: 13,6134           00000 00000                     2DEC     0          B-28                       #  3.18 RESTART.  ...PRELAUNCH...
005011,000147: 13,6136           20000                           OCT      20000                                 
005012,000148: 13,6137           42151                           CADR     REPL12                                
005013,000149: 
005014,000150: 13,6140           00000 00000                     2DEC     0          B-28                       #  3.19 RESTART  ...PRELAUNCH...
005015,000151: 13,6142           20000                           OCT      20000                                 
005016,000152: 13,6143           42266                           CADR     REDO3.21                              
005017,000153: 
005018,000154: 13,6144           00000 00000                     2DEC     0          B-28                       #  3.20 RESTART.  ...PRELAUNCH...
005019,000155: 13,6146           77777                           OCT      77777                                 
005020,000156: 13,6147           42216                           CADR     REDO3.20                              
005021,000157: 
005022,000158: 13,6150           00062                           DEC      50         B-14                       #  3.21 RESTART.  ...PRELAUNCH...
005023,000159: 13,6151           42262                           CADR     REPRELAL                              
005024,000160: 13,6152           21000                           OCT      21000                                 
005025,000161: 13,6153           42266                           CADR     REDO3.21                              
005026,000162: 
005027,000163: 13,6154           00062                           DEC      50         B-14                       #  3.22 RESTART.  ...PRELAUNCH
005028,000164: 13,6155           42262                           CADR     REPRELAL                              
005029,000165: 13,6156           00000 00000                     2DEC     0.0                                   

Page 128

005031,000167: 
005032,000168: 13,6160           00310        3.23SPOT           DEC      200        B-14                       #  3.23 RESTART
005033,000169: 13,6161           67166                           CADR     GMPOFF2                               
005034,000170: 13,6162           00000 00000                     2DEC     0.0                                   
005035,000171: 
005036,000172: 13,6164           00536        3.24SPOT           DEC      350        B-14                       #  3.24 RESTART
005037,000173: 13,6165           67177                           CADR     DVMODOF2                              
005038,000174: 13,6166           00000 00000                     2DEC     0.0                                   
005039,000175: 
005040,000176: 13,6170           01046                           DEC      550        B-14                       #  3.25 RESTART
005041,000177: 13,6171           67177                           CADR     DVMODOF2                              
005042,000178: 13,6172           00000 00000                     2DEC     0.0                                   
005043,000179:                                                                                                  #   ANY MORE GROUP 3 RESTART VALUES SHOULD GO HERE.
005044,000180: 13,6174           00000 00000                     2DEC     0.0                                   #  3.26 RESTART
005045,000181: 13,6176           05000                           OCT      05000                                 
005046,000182: 13,6177           64074                           CADR     MONITJOB                              
005047,000183: 
005048,000184: 13,6200           00000 00000                     2DEC     0.0                                   #  3.27 RESTART
005049,000185: 13,6202           77777                           OCT      77777                                 
005050,000186: 13,6203           64250                           CADR     TUMBTSK1                              
005051,000187: 
005052,000188:                                                                                                  #        ANY MORE GROUP 3 RESTARTS GO IN HERE
005053,000189: 
005054,000190: 13,6204           00000        4.1SPOT            OCT      0                                     #  4.1 RESTART.
005055,000191: 13,6205           00000                           OCT      0                                     
005056,000192: 13,6206           34000                           OCT      34000                                 #  HIGH PRIO.  (WATCH THIS.)
005057,000193: 13,6207           66202                           CADR     REDO4.1                               
005058,000194: 
005059,000195: 13,6210           77777        4.2SPOT            OCT      77777                                 #  4.2 RESTART.
005060,000196: 13,6211           77777                           OCT      77777                                 
005061,000197: 13,6212           01461                           CADR     LONGTIME   +1                         
005062,000198: 13,6213           64710                           CADR     ENGINOFF                              
005063,000199: 
005064,000200: 13,6214           02032        4.3SPOT            DEC      1050       B-14                       #  4.3 RESTART.
005065,000201: 13,6215           50114                           CADR     COASTPHS                              
005066,000202: 13,6216           77777                           OCT      77777                                 
005067,000203: 13,6217           65022                           CADR     REDO4.3                               
005068,000204: 
005069,000205: 13,6220           77776 45317  4.4SPOT            2DEC     -30000     B-28                       #  4.4 RESTART
005070,000206: 13,6222           00000 00000                     2DEC     0          B-28                       
005071,000207: 
005072,000208: 13,6224           34430                           DEC      14616      B-14                       #  4.5 RESTART  (DT = 146.16 SEC
005073,000209: 13,6225           50154                           CADR     FDAOFTSK                              #     (310 - 163.84 SEC.)
005074,000210: 13,6226           00000 00000                     2DEC     0          B-28                       
005075,000211: 
005076,000212: 13,6230           77777                           OCT      77777                                 #  4.6 RESTART
005077,000213: 13,6231           01556                           CADR     TCOAST                                #  TCOAST = TIME FORM CUTOFF TO UPTASK.

Page 129

005079,000215: 13,6232           00000 00000                     2DEC     0          B-28                       
005080,000216: 
005081,000217: 13,6234           00000                           OCT      0                                     #  4.7 RESTART
005082,000218: 13,6235           00000                           OCT      0                                     
005083,000219: 13,6236           77777                           OCT      77777                                 
005084,000220: 13,6237           50201                           CADR     UPTASK                                
005085,000221: 
005086,000222: 13,6240           26354                           DEC      11500      B-14                       #  4.8 RESTART
005087,000223: 13,6241           50335                           CADR     PREAVGON                              
005088,000224: 13,6242           06000                           OCT      06000                                 
005089,000225: 13,6243           50225                           CADR     UPJOB                                 
005090,000226: 
005091,000227: 13,6244           26354                           DEC      11500      B-14                       #  4.9 RESTART
005092,000228: 13,6245           50335                           CADR     PREAVGON                              
005093,000229: 13,6246           06000                           OCT      06000                                 
005094,000230: 13,6247           50322                           CADR     REDO4.9                               
005095,000231: 
005096,000232: 13,6250           01130                           DEC      600        B-14                       #  4.10 RESTART
005097,000233: 13,6251           64511                           CADR     GIMPOWON                              
005098,000234: 13,6252           77777                           OCT      77777                                 
005099,000235: 13,6253           65045                           CADR     REDO4.10                              
005100,000236: 
005101,000237: 13,6254           00310                           DEC      200        B-14                       #  4.11 RESTART.
005102,000238: 13,6255           64025                           CADR     TARGTASK                              
005103,000239: 13,6256           00000 00000                     2DEC     0          B-28                       
005104,000240: 
005105,000241: 13,6260           00252                           DEC      170        B-14                       #  4.12 RESTART.
005106,000242: 13,6261           64374                           CADR     ABRTWAIT                              #   IN 1.7 SEC.
005107,000243: 13,6262           25000                           OCT      25000                                 
005108,000244: 13,6263           64363                           CADR     SETS4SEP                              
005109,000245: 
005110,000246: 13,6264           23336                           DEC      9950       B-14                       #  4.13 RESTART
005111,000247: 13,6265           64527                           CADR     ATTCNOFF                              #  IN 95.5 SEC.
005112,000248: 13,6266           77777                           OCT      77777                                 
005113,000249: 13,6267           64761                           CADR     REDO4.13                              
005114,000250: 
005115,000251: 13,6270           01130        4.14SPOT           DEC      600        B-14                       #  4.14 RESTART.
005116,000252: 13,6271           64511                           CADR     GIMPOWON                              
005117,000253: 13,6272           77777                           OCT      77777                                 
005118,000254: 13,6273           65062                           CADR     REDO4.14                              
005119,000255: 
005120,000256: 13,6274           00372                           DEC      250        B-14                       #  4.15 RESTART.
005121,000257: 13,6275           64527                           CADR     ATTCNOFF                              #  IN 2.5 SEC
005122,000258: 13,6276           25000                           OCT      25000                                 
005123,000259: 13,6277           64474                           CADR     ABORTRPT   -3                         #   WATCH THIS LOC.
005124,000260: 
005125,000261: 13,6300           01046                           DEC      550        B-14                       #  4.16 RESTART
005126,000262: 13,6301           64527                           CADR     ATTCNOFF                              
005127,000263: 13,6302           25000                           OCT      25000                                 
005128,000264: 13,6303           64440                           CADR     REDO4.16                              
005129,000265: 

Page 130

005131,000267: 
005132,000268: 13,6304           25060                           DEC      10800      B-14                       #  4.17 RESTART
005133,000269: 13,6305           64511                           CADR     GIMPOWON                              
005134,000270: 13,6306           00000 00000                     2DEC     0          B-28                       
005135,000271: 
005136,000272: 13,6310           00000 00000                     2DEC     0          B-28                       #  4.18 RESTART.
005137,000273: 13,6312           77777                           OCT      77777                                 
005138,000274: 13,6313           64527                           CADR     ATTCNOFF                              
005139,000275: 
005140,000276: 13,6314           00031                           DEC      25         B-14                       #  4.19 RESTART.
005141,000277: 13,6315           64545                           CADR     DVMODEON                              
005142,000278: 13,6316           00000 00000                     2DEC     0          B-28                       
005143,000279: 
005144,000280: 13,6320           00062                           DEC      50         B-14                       #  4.20 RESTART.
005145,000281: 13,6321           64562                           CADR     ENGINEON                              
005146,000282: 13,6322           00000 00000                     2DEC     0          B-28                       
005147,000283: 
005148,000284: 13,6324           01750        4.21SPOT           DEC      1000       B-14                       #  4.21 RESTART
005149,000285: 13,6325           64663                           CADR     PLUSXOFF                              
005150,000286: 13,6326           25000                           OCT      25000                                 
005151,000287: 13,6327           64423                           CADR     REDO4.21                              
005152,000288: 
005153,000289: 13,6330           00000 00000                     2DEC     0          B-28                       #  4.22 RESTART.
005154,000290: 13,6332           77777                           OCT      77777                                 
005155,000291: 13,6333           64654                           CADR     REDO4.22                              
005156,000292: 
005157,000293: 13,6334           00536                           DEC      350        B-14                       #  4.23 RESTART
005158,000294: 13,6335           64710                           CADR     ENGINOFF                              
005159,000295: 13,6336           77777                           OCT      77777                                 
005160,000296: 13,6337           64633                           CADR     STEEROFF                              
005161,000297: 
005162,000298: 13,6340           00000 00000                     2DEC     0          B-28                       #  4.24 RESTART.
005163,000299: 13,6342           77777                           OCT      77777                                 
005164,000300: 13,6343           64511                           CADR     GIMPOWON                              
005165,000301: 
005166,000302: 13,6344           02176                           DEC      1150       B-14                       #  4.25 RESTART
005167,000303: 13,6345           64527                           CADR     ATTCNOFF                              
005168,000304: 13,6346           00000 00000                     2DEC     0          B-28                       
005169,000305: 
005170,000306: 13,6350           00000 00000  4.26SPOT           2DEC     0          B-28                       #  4.26 RESTSRT.
005171,000307: 13,6352           12000                           OCT      12000                                 #  LOWERED.
005172,000308: 13,6353           57101                           CADR     UPTHETA1                              
005173,000309: 
005174,000310: 13,6354           27340        4.27SPOT           DEC      12000      B-14                       #  4.27 RESTART
005175,000311: 13,6355           50357                           CADR     AVGON                                 #  120 SEC FROM UPTASK.
005176,000312: 13,6356           00000 00000                     2DEC     0          B-28                       
005177,000313: 

Page 131

005179,000315: 
005180,000316: 13,6360           00000 00000  4.28SPOT           2DEC     0          B-28                       #  4.28 RESTART SAVES ENGIN OFF SEQUENCE
005181,000317: 13,6362           77777                           OCT      77777                                 #  WHILE TBASE4 UPDATED
005182,000318: 13,6363           64774                           CADR     SPS1TEST                              
005183,000319: 
005184,000320: 13,6364           26354        4.29SPOT           DEC      11500      B-14                       #  4.29 RESTART
005185,000321: 13,6365           50335                           CADR     PREAVGON                              
005186,000322: 13,6366           06000                           OCT      06000                                 
005187,000323: 13,6367           50263                           CADR     REDO4.29                              
005188,000324: 
005189,000325: 13,6370           21450        4.30SPOT           DEC      9000       B-14                       #  4.30 RESTART
005190,000326: 13,6371           50463                           CADR     PLUSX2                                
005191,000327: 13,6372           00000 00000                     2DEC     0.0                                   
005192,000328: 
005193,000329: 13,6374           00000 00000  4.31SPOT           2DEC     0.0                                   #  4.31 RESTART
005194,000330: 13,6376           77777                           OCT      77777                                 
005195,000331: 13,6377           64062                           CADR     REDO4.31                              
005196,000332: 
005197,000333: 13,6400           00000 00000  4.32SPOT           2DEC     0.0                                   #  4.32 RESTART
005198,000334: 13,6402           77777                           OCT      77777                                 
005199,000335: 13,6403           64054                           CADR     REDO4.32                              
005200,000336: 
005201,000337: 13,6404           00000 00000  4.33SPOT           2DEC     0.0                                   #  4.33 RESTART
005202,000338: 13,6406           77777                           OCT      77777                                 
005203,000339: 13,6407           64710                           CADR     ENGINOFF                              
005204,000340: 
005205,000341:                                                                                                  #   ANY MORE GROUP 4 RESTART VALUES SHOULD GO HERE.
005206,000342: 
005207,000343: 13,6410           00310        5.1SPOT            DEC      200        B-14                       #  5.1 RESTART
005208,000344: 13,6411           65226                           CADR     REREADAC                              
005209,000345: 13,6412           00000 00000                     2DEC     0          B-28                       
005210,000346: 
005211,000347: 13,6414           00000 00000  5.2SPOT            2DEC     0          B-28                       
005212,000348: 13,6416           77777                           OCT      77777                                 
005213,000349: 13,6417           65157                           CADR     REDO5.2                               
005214,000350: 
005215,000351: 13,6420           00310                           DEC      200        B-14                       #  5.3 RESTART
005216,000352: 13,6421           65226                           CADR     REREADAC                              
005217,000353: 13,6422           17000                           OCT      17000                                 
005218,000354: 13,6423           65276                           CADR     REDO5.3                               
005219,000355: 
005220,000356: 13,6424           00310                           DEC      200        B-14                       #  5.4 RESTART
005221,000357: 13,6425           65226                           CADR     REREADAC                              
005222,000358: 13,6426           17000                           OCT      17000                                 
005223,000359: 13,6427           61620                           CADR     REFAZE6                               
005224,000360: 

Page 132

005226,000362: 
005227,000363: 13,6430           00310                           DEC      200        B-14                       #  5.5 RESTART.
005228,000364: 13,6431           65226                           CADR     REREADAC                              
005229,000365: 13,6432           17000                           OCT      17000                                 
005230,000366: 13,6433           66014                           CADR     REDO5.5                               
005231,000367: 
005232,000368: 13,6434           00310                           DEC      200        B-14                       #  5.6 RESTART
005233,000369: 13,6435           65226                           CADR     REREADAC                              
005234,000370: 13,6436           35000                           OCT      35000                                 
005235,000371: 13,6437           50477                           CADR     MODE26                                
005236,000372: 
005237,000373: 13,6440           00000 00000  5.7SPOT            2DEC     0          B-28                       #  5.7 RESTART
005238,000374: 13,6442           77777                           OCT      77777                                 
005239,000375: 13,6443           66676                           CADR     REDO5.7                               
005240,000376: 
005241,000377: 13,6444           00310                           DEC      200        B-14                       #  5.8 RESTART
005242,000378: 13,6445           66666                           CADR     SOAKTSK1                              
005243,000379: 13,6446           14000                           OCT      14000                                 
005244,000380: 13,6447           66713                           CADR     SOAKJOB                               
005245,000381: 
005246,000382: 13,6450           00310                           DEC      200        B-14                       #  5.9 RESTART.
005247,000383: 13,6451           66666                           CADR     SOAKTSK1                              
005248,000384: 13,6452           13000                           OCT      13000                                 
005249,000385: 13,6453           61620                           CADR     REFAZE6                               
005250,000386: 
005251,000387: 13,6454           00000 00000                     2DEC     0          B-28                       #  5.10 RESTART.
005252,000388: 13,6456           12000                           OCT      12000                                 
005253,000389: 13,6457           66734                           CADR     REDO5.10                              
005254,000390: 
005255,000391: 13,6460           00310                           DEC      200        B-14                       #  5.11 RESTART
005256,000392: 13,6461           66666                           CADR     SOAKTSK1                              
005257,000393: 13,6462           00000 00000                     2DEC     0          B-28                       
005258,000394: 
005259,000395: 13,6464           00310        5.12SPOT           DEC      200        B-14                       #  5.12 RESTART.
005260,000396: 13,6465           56001                           CADR     REPIPUP                               
005261,000397: 13,6466           00000 00000                     2DEC     0          B-28                       
005262,000398: 
005263,000399: 13,6470           00000 00000                     2DEC     0          B-28                       #  5.13 RESTART.
005264,000400: 13,6472           77777                           OCT      77777                                 
005265,000401: 13,6473           56011                           CADR     REDO5.13                              
005266,000402: 
005267,000403: 13,6474           00310                           DEC      200        B-14                       
005268,000404: 13,6475           56001                           CADR     REPIPUP                               
005269,000405: 13,6476           17000                           OCT      17000                                 
005270,000406: 13,6477           56036                           CADR     ENTRYTOP   +3                         
005271,000407: 
005272,000408: 13,6500           00310                           DEC      200        B-14                       #  5.15 RESTART.
005273,000409: 13,6501           56001                           CADR     REPIPUP                               

Page 133

005275,000411: 13,6502           17000                           OCT      17000                                 
005276,000412: 13,6503           56052                           CADR     REFAZE4                               
005277,000413: 
005278,000414: 13,6504           00310                           DEC      200        B-14                       #  5.16
005279,000415: 13,6505           56001                           CADR     REPIPUP                               
005280,000416: 13,6506           16000                           OCT      16000                                 
005281,000417: 13,6507           61620                           CADR     REFAZE6                               
005282,000418: 
005283,000419: 13,6510           00310                           DEC      200        B-14                       #  5.17 RESTART.
005284,000420: 13,6511           56001                           CADR     REPIPUP                               
005285,000421: 13,6512           17000                           OCT      17000                                 
005286,000422: 13,6513           56057                           CADR     REFAZE8                               
005287,000423: 
005288,000424: 13,6514           00310        5.18SPOT           DEC      200        B-14                       #  5.18 RESTART
005289,000425: 13,6515           56001                           CADR     REPIPUP                               
005290,000426: 13,6516           17000                           OCT      17000                                 
005291,000427: 13,6517           56174                           CADR     REFAZE10                              
005292,000428: 
005293,000429: 13,6520           00310        5.19SPOT           DEC      200        B-14                       #  5.19 RESTART.  (PIPUP IN 2 SEC.)
005294,000430: 13,6521           56001                           CADR     REPIPUP                               
005295,000431: 13,6522           17000                           OCT      17000                                 
005296,000432: 13,6523           61441                           CADR     NUMODE63                              #  SETS MODE 63 AND FINISHES ENTRY INITIAL.
005297,000433: 
005298,000434: 13,6524           00000 00000  5.20SPOT           2DEC     0.0                                   #  5.20 RESTART FOR VERB 76
005299,000435: 13,6526           34000                           OCT      34000                                 
005300,000436: 13,6527           13150                           CADR     REDO5.20                              
005301,000437: 
005302,000438: 13,6530           00000        5.21SPOT           DEC      0.                                    #  5.21 RESTART IS SPARE
005303,000439: 13,6531           26531                           CADR     26531                                 
005304,000440: 13,6532           00000                           OCT      0                                     
005305,000441: 13,6533           26533                           CADR     26533                                 
005306,000442: 
005307,000443: 13,6534           00000        5.22SPOT           DEC      0.                                    #  5.22 RESTART IS SPARE
005308,000444: 13,6535           26535                           CADR     26535                                 
005309,000445: 13,6536           00000                           OCT      0                                     
005310,000446: 13,6537           26537                           CADR     26537                                 
005311,000447: 
005312,000448: 13,6540           00310        5.23SPOT           DEC      200        B-14                       #  5.23 RESTART
005313,000449: 13,6541           65226                           CADR     REREADAC                              
005314,000450: 13,6542           17000                           OCT      17000                                 
005315,000451: 13,6543           65551                           CADR     REDO5.23                              
005316,000452: 
005317,000453: 13,6544           00310                           DEC      200        B-14                       #  REDO POINT AFTER AVG STATE VECTOR UPDATE
005318,000454: 13,6545           65226                           CADR     REREADAC                              
005319,000455: 13,6546           17000                           OCT      17000                                 
005320,000456: 13,6547           55744                           CADR     REDO5.24                              
005321,000457: 
005322,000458: 13,6550           00310                           DEC      200        B-14                       
005323,000459: 13,6551           65226                           CADR     REREADAC                              

Page 134

005325,000461: 13,6552           17000                           OCT      17000                                 
005326,000462: 13,6553           61620                           CADR     REFAZE6                               
005327,000463: 
005328,000464:                                                                                                  #        ANY MORE GROUP 5 RESTARTS GO HERE.
005329,000465: 
005330,000466: 
005331,000467: 13,6554           00000        6.1SPOT            DEC      0          B-14                       #  6.1 RESTART  (UNDEFINED)
005332,000468: 
005333,000469: 
005334,000470: 
005335,000471: 
005336,000472:                                                                                                  #    ANY MORE GROUP 6 RESTART VALUES SHOULD GO HERE.
005337,000473: 
005338,000474: 
005339,000475: 
005340,000476: 
005341,000477: 13,6555           00000        SIZETAB            DEC      0          B-14                       #  0 INCREMENT FOR GROUP 1.
005342,000478: 13,6556           00000                           TC       2.1SPOT    -26004                     #  INCREMENT TO INDEX GROUP 2 TABLE
005343,000479: 13,6557           00024                           TC       3.1SPOT    -26004                     #  INCREMENT TO INDEX GROUP 3
005344,000480: 13,6560           00200                           TC       4.1SPOT    -26004                     #  INCREMENT TO INDEX GROUP 4 TABLE.
005345,000481: 13,6561           00404                           TC       5.1SPOT    -26004                     #  INCREMENT TO INDEX GROUP 5 TABLE.
005346,000482: 13,6562           00550                           TC       6.1SPOT    -26004                     #  INCREMENT TO INDEX GROUP 6 TABLE.
005347,000483: 

Page 135

005349,000485: 
005350,000486:                                                                                                  #    GENERALIZED RESTART ROUTINE.
005351,000487: 
005352,000488: 
005353,000489: 
005354,000490:                                                                                                  #  FOR EACH FAZEBIT VALUE , THE ASUMPTION IS MADE THAT THERE MAY EXIST
005355,000491:                                                                                                  #   ONE WAITLIST OR LONGCALL TASK TO BE RECALLED.  AND ONE CURRENT TASK OR
005356,000492:                                                                                                  #   JOB TO BE RESTARTED.  (SPECIAL RESTARTS ARE POSSIBLE FOR SITUATIONS 
005357,000493:                                                                                                  #   WHICH DONOT FIT THE GENERAL FORM.)  FOR THE GENERAL CASE,  FOUR TABLES
005358,000494:                                                                                                  #   ARE USED.
005359,000495:                                                                                                  #        (RATHER,  ONE TABLE WITH 4 ENTRIES PER FAZEBIT VALUE.)
005360,000496:                                                                                                  #                1.  WTDTTAB.  WAITLIST DT TABLE.
005361,000497:                                                                                                  #                2.  WCADRTAB  WAITLIST CADR TABLE.
005362,000498:                                                                                                  #                3.  PRIOTAB  CURRENT JOB PRIORITY. (NEG NUMB IF TASK.)
005363,000499:                                                                                                  #                4.  CADRTAB  CURRENT JOB (OR TASK) RESTART LOCATION.
005364,000500:                                                                                                  #   IN ADDITION, THERE EXISTS A SIZE TABLE THAT LISTS THE NUMBER OF
005365,000501:                                                                                                  #   LOCATIONS USED BY EACH PROFRAM FOR RESTARTS.
005366,000502:                                                                                                  #                ...MORE TO COME LATER...                (DJL)
005367,000503: 
005368,000504: 
005369,000505: 
005370,000506: 13,6563           30115        RESTARTS           XCH      MPAC                                  #  FAZE BITS FOR THIS PROG IN MPAC.
005371,000507: 13,6564           60000                           DOUBLE                                         
005372,000508: 13,6565           60000                           DOUBLE                                         #  MULTILY BY 4.  (4 ITEMS PER ENTRY.)
005373,000509: 13,6566           20120                           INDEX    LOC                                   #  LOC CONTAINS THE PROGRAM NUMBER-1. (0-5)
005374,000510: 13,6567           66555                           AD       SIZETAB                               
005375,000511: 13,6570           50115                           TS       POINTER                               
005376,000512: 13,6571           36607                           CAF      TCURRENT                              
005377,000513: 13,6572           50123                           TS       GOLOC      +1                         #  EXIT LOCATION.
005378,000514: 13,6573           33224                           CAF      TCWAIT                                #  SET A WAITLIST CALL IN ERASABLE.
005379,000515: 13,6574           50121                           TS       GOLOC      -1                         
005380,000516: 
005381,000517: 13,6575           20115                           INDEX    POINTER                               
005382,000518: 13,6576           36000                           CAF      WTDTTAB                               
005383,000519: 13,6577           10000                           CCS      A                                     
005384,000520: 13,6600           06636                           TC       WTCALL                                #  +N = WAITLIST CALL
005385,000521: 13,6601           06676                           TC       CURNTJOB                              #  +0 = NO CALL
005386,000522: 13,6602           06613                           TC       LONGCLER                              #  -N = LONGCALL
005387,000523: 13,6603           20115                           INDEX    POINTER                               #  -0 = INDIRECT (PROBABLY)
005388,000524: 13,6604           36001                           CAF      WCADRTAB                              
005389,000525: 13,6605           10000                           CCS      A                                     
005390,000526: 13,6606           06625                           TC       INDIRECT                              
005391,000527: 13,6607           06676        TCURRENT           TC       CURNTJOB                              #  NO ZERO CALLS
005392,000528: 13,6610           06612                           TC       LONGCLER   -1                         #  NEG OF TIME FOR SHORT LONG.
005393,000529: 13,6611           06664                           TC       SINDIR                                
005394,000530: 
005395,000531: 13,6612           44516                           CS       ONE                                   
005396,000532: 13,6613           64516        LONGCLER           AD       ONE                                   #  RESTORE LONGTIME
005397,000533: 13,6614           50116                           TS       RECALL                                
005398,000534: 13,6615           20115                           INDEX    POINTER                               
005399,000535: 13,6616           46001                           CS       WCADRTAB                              #  STORED NEGATIVELY.

Page 136

005401,000537: 13,6617           50117                           TS       RECALL     +1                         
005402,000538: 13,6620           05742                           TC       IBNKCALL                              
005403,000539: 13,6621           26724                           CADR     NULONGDT                              
005404,000540: 13,6622           05742                           TC       IBNKCALL                              
005405,000541: 13,6623           10552                           CADR     LONGCALL                              
005406,000542: 13,6624           06676                           TC       CURNTJOB                              
005407,000543: 
005408,000544: 
005409,000545: 
005410,000546:                                                                                                  #  
005411,000547: 
005412,000548: 
005413,000549: 
005414,000550:                                                                                                  #   INDIRECT SECTION TAKES THE DP TIME FRON THE ERASABLE LOCATIONS BY THE
005415,000551:                                                                                                  #      NUMBER IN THE WCADRTAB.    (WTDTTAB = -0.)
005416,000552: 
005417,000553: 13,6625           50117        INDIRECT           TS       ECADTEM                               #  CADR-1 IS STORED.  (DUE TO CCS.) 
005418,000554: 13,6626           20000                           INDEX    A                                     
005419,000555: 13,6627           40001                           CS       1                                     #  (1 NOT 0 BECAUSE CADR OFF BY 1.)
005420,000556: 13,6630           40000                           COM                                            #  (NOT NEEDED IF NEG TIME STROED.USAGE..)
005421,000557: 13,6631           50116                           TS       RECALL                                #  AND STORE MAJOR PART.
005422,000558: 13,6632           20117                           INDEX    ECADTEM                               
005423,000559: 13,6633           40002                           CS       2                                     #  AGAIN ONE MORE THAN USUAL.
005424,000560: 13,6634           40000                           COM                                            
005425,000561: 13,6635           06617                           TC       LONGCLER   +4                         #  STORE MINOR PART THERE
005426,000562: 
005427,000563: 
005428,000564: 
005429,000565:                                                                                                  #  ASSIGNMENTS ETC.
005430,000566: 
005431,000567: 13,6636     0122               GOLOC              EQUALS   OVFIND                                #  USES ONE LOCATION ON EACH SIDE OF IT.
005432,000568: 13,6636     0117               TEMDT              EQUALS   MPAC       +2                         
005433,000569: 13,6636     0116               RECALL             EQUALS   MPAC       +1                         #  MUNTZ NOW USINF LOC IN RESTART CONTROL.
005434,000570: 13,6636     0117               ECADTEM            EQUALS   RECALL     +1                         #  LOOKS OK.
005435,000571: 13,6636     0115               POINTER            EQUALS   MPAC                                  
005436,000572:                                                                                                  #    MPAC + 1 SAVED BECAUSE OF USE IN RESTART CONTROL.  (CCS MPAC + 1)
005437,000573: 
005438,000574:                                                                                                  #     THIS ROUTINE LEAVES THE WITLIST CALL AS GIVEN BY WCADRTAB.
005439,000575: 
005440,000576: 13,6636           64516        WTCALL             AD       ONE                                   #  DT-1 IN A ON ENTRY.  (FROM CCS.)
005441,000577: 13,6637           40000                           COM                                            #  STORE NEGATIVE OF DT IN TEMDT.
005442,000578: 13,6640           50117                           TS       TEMDT                                 
005443,000579: 13,6641           20115                           INDEX    POINTER                               
005444,000580: 13,6642           36001                           CAF      WCADRTAB                              #  PICK UP CADR FOR THIS CALL.
005445,000581: 13,6643           50122                           TS       GOLOC                                 #  GOLOC+1 AND -1 ALREADY SET-UP.
005446,000582: 
005447,000583: 13,6644           20120        WTCALL2            INDEX    LOC                                   #  FIRST GET TBASE - TIME1
005448,000584: 13,6645           40663                           CS       TBASE2     -1                         #  TBASE STORED NEGATIVELY
005449,000585: 13,6646           25777                           EXTEND                                         
005450,000586: 13,6647           60036                           SU       TIME1                                 #  TBASE - TIME1

Page 137

005452,000588: 13,6650           10000                           CCS      A                                     #  THIS SHOULD BE NEGATIVE IF ALL OK.
005453,000589: 13,6651           40000                           COM                                            #  GET POSMAX - A.
005454,000590: 13,6652           66663                           AD       OCT37776                              #  1 BIT SHY OF POSMAX.
005455,000591: 13,6653           64516                           AD       ONE                                   #  RESTORE BIT LOST BY CCS.
005456,000592: 13,6654           60117                           AD       TEMDT                                 #  TIME1 - TBASE -DT  NOW IN A.
005457,000593: 13,6655           10000                           CCS      A                                     #  TEST IT.  SHOULD BE NEGATIVE.
005458,000594: 13,6656           35501                           CAF      ZERO                                  #  EXCEEDED TIME.  BAD,BAD...
005459,000595: 13,6657           06661                           TC       +2                                    #  (+0 JUST POSSIBLE.)
005460,000596: 13,6660           06661                           TC       +1                                    #  YES, EVERYTHING OK.
005461,000597: 13,6661           64516                           AD       ONE                                   #  NOW IS THE TIME.
005462,000598: 13,6662           00121                           TC       GOLOC      -1                         
005463,000599: 
005464,000600: 
005465,000601: 
005466,000602: 13,6663           37776        OCT37776           OCT      37776                                 #  POSMAX - 1
005467,000603: 
005468,000604: 
005469,000605: 
005470,000606: 13,6664           36707        SINDIR             CAF      TCSWRET                               
005471,000607: 13,6665           50123                           TS       GOLOC      +1                         
005472,000608: 13,6666           20115                           INDEX    POINTER                               
005473,000609: 13,6667           36003                           CAF      CADRTAB                               #  PICK UP CADR TO GO TO.
005474,000610: 13,6670           50122                           TS       GOLOC                                 
005475,000611: 
005476,000612: 13,6671           20115                           INDEX    POINTER                               
005477,000613: 13,6672           26002                           INDEX    PRIOTAB                               #  IT POINTS ATTHE ERASABLE LOCATION OF DT
005478,000614: 13,6673           40000                           CS       0                                     #  NEG OF DT IN A.
005479,000615: 13,6674           50117                           TS       TEMDT                                 
005480,000616: 13,6675           06644                           TC       WTCALL2                               #  JOIN THERE TO RECOMPUTE TIME REMAINING.
005481,000617: 

Page 138

005483,000619: 
005484,000620:                                                                                                  #   GETS CURRENT JOB (OR TASK) RERUNNING.
005485,000621: 
005486,000622: 13,6676           20115        CURNTJOB           INDEX    POINTER                               
005487,000623: 13,6677           36003                           CAF      CADRTAB                               
005488,000624: 13,6700           50122                           TS       GOLOC                                 #  PUT ADDRESS THERE (CADR)
005489,000625: 13,6701           36707                           CAF      TCSWRET                               
005490,000626: 13,6702           50123                           TS       GOLOC      +1                         #  WHERE TO WHEN DONE.
005491,000627: 13,6703           20115                           INDEX    POINTER                               
005492,000628: 13,6704           36002                           CAF      PRIOTAB                               #  PRIORITY TABLE.
005493,000629: 13,6705           10000                           CCS      A                                     #  TEST IT.
005494,000630: 13,6706           06713                           TC       ITSAPRIO                              #  +N = PRIORITY.
005495,000631: 13,6707           05702        TCSWRET            TC       SWRETURN                              #  +0 = NO JOB OR TASK.
005496,000632: 13,6710           06720                           TC       SHINDIRT                              #  -N = SHORT INDIRECT FORM.
005497,000633: 13,6711           64516                           AD       ONE                                   #  -0 = IMMEDIATE WAITLIST CALL.
005498,000634: 13,6712           00121                           TC       GOLOC      -1                         #  -0 WILL CRASH OUT HERE...
005499,000635: 
005500,000636: 13,6713           64516        ITSAPRIO           AD       ONE                                   #  RESTORE CORRECT PRIORITY VALUE.
005501,000637: 13,6714           50121                           TS       GOLOC      -1                         #  SAVE THERE TEMPORARILY.
005502,000638: 13,6715           33226                           CAF      TCFINDVC                              #  N3 RPOVISION FOR NOVAC.
005503,000639: 13,6716           30121                           XCH      GOLOC      -1                         #  PICKING UP PRIORITY AGAIN.
005504,000640: 13,6717           00121                           TC       GOLOC      -1                         #  AND GET THE JOB STARTED. (EXIT VIA SWRET
005505,000641: 
005506,000642: 
005507,000643: 
005508,000644:                                                                                                  #    SHORT INDIRECT SECTION IS NOT USED AS YET.
005509,000645: 
005510,000646: 13,6720           20000        SHINDIRT           INDEX    A                                     
005511,000647: 13,6721           40001                           CS       1                                     #  CCS DECREASED ADDRESS BY 1 OF DT LOC.
005512,000648: 13,6722           50117                           TS       TEMDT                                 
005513,000649: 13,6723           06644                           TC       WTCALL2                               #  -DT IN A WHEN REJOINING WTCALL.
005514,000650: 
005515,000651: 
005516,000652: 
005517,000653:                                                                                                  #   TBASE REGISTERS CONTAIN NEGATIVE OF TIME AT START OF SEQUENCE.
005518,000654: 
005519,000655:                                                                                                  #   ROUTINE TO GENERATE  NEW DELTA T (LONGTIME) FOR LONGCALL.
005520,000656: 
005521,000657: 13,6724           02677        NULONGDT           TC       READTIME   +1                         #  GET TIME.  (ALREADY INHIBITTED.)
005522,000658: 13,6725           35501                           CAF      ZERO                                  
005523,000659: 13,6726           61463                           AD       TCUTOFF    +1                         #   (POSITIVE NUMBER)
005524,000660: 13,6727           60573                           AD       RUPTSTOR   +1                         #  (NEGATIVE NUMBER)
005525,000661: 13,6730           60117                           AD       RECALL     +1                         
005526,000662: 13,6731           51461                           TS       LONGTIME   +1                         #  (COULD OVERFLOW)
005527,000663: 13,6732           35501                           CAF      ZERO                                  
005528,000664: 13,6733           61462                           AD       TCUTOFF                               
005529,000665: 13,6734           60572                           AD       RUPTSTOR                              
005530,000666: 13,6735           60116                           AD       RECALL                                
005531,000667: 13,6736           31460                           XCH      LONGTIME                              #  NO OVERFLOW.
005532,000668: 13,6737           11460                           CCS      LONGTIME                              #  TEST FOR POSITIVE DT.
005533,000669: 13,6740           05761                           TC       ISWRETRN                              #  (DONT HAVE TO USE ICALLS IF SAME BANK.)

Page 139

005535,000671: 13,6741           06743                           TC       +2                                    
005536,000672: 13,6742           06746                           TC       BADLONG                               
005537,000673: 13,6743           11461                           CCS      LONGTIME   +1                         
005538,000674: 13,6744           05761                           TC       ISWRETRN                              
005539,000675: 13,6745           06746                           TC       +1                                    
005540,000676: 13,6746           35501        BADLONG            CAF      ZERO                                  
005541,000677: 13,6747           51460                           TS       LONGTIME                              
005542,000678: 13,6750           34516                           CAF      ONE                                   #  LEAVE A CALL FOR 1 DT.
005543,000679: 13,6751           51461                           TS       LONGTIME   +1                         
005544,000680: 13,6752           05761                           TC       ISWRETRN                              #  ...AND EXIT.
005545,000681:                                                                                                  #     THIS COULD BE MODIFIED EASILY TO CHANGE BAD DT POLICY.

End of include-file 501_RESTART_TABLES_AND_ROUTINES.agc.  Parent file is MAIN.agc