Source Code
|
These source-code files are part of a reconstructed copy of Corona 261, the
final, flown release of the Block I Command Module (CM) Apollo Guidance Computer
(AGC) software for the AS-202 mission.
They have been created via disassembly of binary dumps of the original core rope
memory modules actually flown on the mission, part numbers 1003733-171, 1003733-241,
1003733-191, 1003733-211, 1003733-221, and 1003733-241. The source code for the Apollo
4 and 6 software, Solarium 55, was used as a starting point, since it was directly
derived from Corona and (at least in theory) only minimally modified.
Since only binary dumps (rather than listings) of Corona are available as source material,
all comments and labels are approximate.
They have been taken from other AGC programs where possible, or, in some places, written
from scratch to match what we believe would have been in the original listing.
|
004712,000002: ## Copyright: Public domain.
004713,000003: ## Filename: 202_RESTART_TABLES_AND_ROUTINES.agc
004714,000004: ## Purpose: A section of Corona revision 261.
004715,000005: ## It is part of the source code for the Apollo Guidance Computer
004716,000006: ## (AGC) for AS-202. No original listings of this software are
004717,000007: ## available; instead, this file was created via disassembly of
004718,000008: ## the core rope modules actually flown on the mission.
004719,000009: ## Assembler: yaYUL
004720,000010: ## Contact: Ron Burkey <info@sandroid.org>.
004721,000011: ## Website: www.ibiblio.org/apollo/index.html
004722,000012: ## Mod history: 2023-05-27 MAS Created from Solarium 55.
004723,000013: ## 2023-06-17 MAS Updated for Corona.
004724,000014:
004725,000015: # RESTART TABLES
004726,000016: # ----------------
004727,000017:
004728,000018: # THESE CONTROL RESTART OPERATION.
004729,000019:
004730,000020:
004731,000021:
004732,000022:
004733,000023: # ...IMPORTANT... DO NOT MOVE THIS SECTION FROM BEGINNING OF BANK. DJL
004734,000024:
004735,000025: 13,6000 SETLOC 26000 # START OF BANK 13.
004736,000026: 13,6000 00000 WTDTTAB DEC 0 B-14 # WAITLIST DT FOR RESTART 1.0
004737,000027: 13,6001 00000 WCADRTAB CADR 0 # WAITLIST CADR.
004738,000028: 13,6002 00000 PRIOTAB OCT 0 # PRIORITY VALUE.
004739,000029: 13,6003 00000 CADRTAB CADR 0 # CADR OF CURRENT JOB
004740,000030:
004741,000031: # ANY JOB 1 RESTARTS SHOULD GO HEFE.
004742,000032:
004743,000033: 13,6004 77777 2.1SPOT OCT 77777 # 2.1 RESTART
004744,000034: 13,6005 77777 OCT 77777
004745,000035: 13,6006 01563 CADR TROLL +1
004746,000036: 13,6007 64134 CADR MONITSK1
004747,000037:
004748,000038: 13,6010 00000 2.2SPOT OCT 0 # RESTART 2.2 VALUES.
004749,000039: 13,6011 00000 OCT 0
004750,000040: 13,6012 12000 OCT 12000 # PRIO12
004751,000041: 13,6013 66642 CADR VERTINIT
004752,000042:
004753,000043: 13,6014 00000 2.3SPOT OCT 0 # 2.3 RESTART
004754,000044: 13,6015 00000 OCT 0
004755,000045: 13,6016 12000 OCT 12000
004756,000046: 13,6017 66416 CADR ATTIJOB1 -1
004757,000047:
004758,000048: 13,6020 00000 2.4SPOT OCT 0 # RESTART 2.4
004759,000049: 13,6021 00000 OCT 0
004760,000050: 13,6022 12000 OCT 12000
004761,000051: 13,6023 66410 CADR ATTIJOB
004762,000052:
004763,000053: 13,6024 00000 2.5SPOT OCT 0 # 2.5 RESTART.
004764,000054: 13,6025 00000 OCT 0
004765,000055: 13,6026 77777 OCT 77777
004766,000056: 13,6027 66537 CADR DOMANU
004767,000057:
004768,000058: # ANY MORE GROUP 2 RESTART VALUES SHOULD GO HERE.
004769,000059:
004770,000060:
004771,000061: 13,6030 77777 3.1SPOT OCT 77777 # 3.1 RESTART.
004772,000062: 13,6031 77777 OCT 77777
004773,000063: 13,6032 01565 CADR TPITCH +1 # CONTAINS DT
004774,000064: 13,6033 64170 CADR MONITASK
004775,000065:
004776,000066: 13,6034 77777 3.2SPOT OCT 77777 # 3.2 RESTART
004777,000067: 13,6035 77777 OCT 77777
004778,000068: 13,6036 01572 CADR TTUMON
004779,000069: 13,6037 64263 CADR TUMBTSK1
004780,000070:
004781,000071: 13,6040 00000 OCT 0 # 3.3 RESTART
004782,000072: 13,6041 00000 OCT 0
004783,000073: 13,6042 77777 OCT 77777
004784,000074: 13,6043 65012 CADR REDO3.3
004785,000075:
004786,000076: 13,6044 01274 DEC 700 B-14 # 3.4 RESTART.
004787,000077: 13,6045 65133 CADR GIMPOWOF
004788,000078: 13,6046 00000 OCT 0
004789,000079: 13,6047 00000 OCT 0
004790,000080:
004791,000081: 13,6050 02032 DEC 1050 B-14 # 3.5 RESTART
004792,000082: 13,6051 65147 CADR DVMODOFF
004793,000083: 13,6052 00000 OCT 0
004794,000084: 13,6053 00000 OCT 0
004795,000085:
004796,000086: 13,6054 02063 DEC 1075 B-14 # 3.6 RESTART.
004797,000087: 13,6055 65160 CADR ATTCONON
004798,000088: 13,6056 00000 OCT 0
004799,000089: 13,6057 00000 OCT 0
004800,000090:
004801,000091: 13,6060 00113 DEC 75 B-14 # 3.7RESTART
004802,000092: 13,6061 65322 CADR CGTASK
004803,000093: 13,6062 00000 OCT 0
004804,000094: 13,6063 00000 OCT 0
004805,000095:
004806,000096: 13,6064 00310 DEC 200 B-14 # 3.8 RESTART.
004807,000097: 13,6065 65144 CADR GMPOFF3
004808,000098: 13,6066 00000 OCT 0
004809,000099: 13,6067 00000 OCT 0
004810,000100:
004811,000101: 13,6070 00000 OCT 0 # 3.9 REATART.
004812,000102: 13,6071 00000 OCT 0
004813,000103: 13,6072 77777 OCT 77777
004814,000104: 13,6073 65111 CADR SETMOD23
004815,000105:
004816,000106: 13,6074 00000 OCT 0 # 3.10 RESTART.
004817,000107: 13,6075 00000 OCT 0
004818,000108: 13,6076 27000 OCT 27000
004819,000109: 13,6077 67240 CADR SHUTJOB
004820,000110:
004821,000111: 13,6100 00764 DEC 500 B-14 # 3.11 RESTART.
004822,000112: 13,6101 67440 CADR CDUXTASK # 5SECS FROM TBASE3
004823,000113: 13,6102 00000 OCT 0
004824,000114: 13,6103 00000 OCT 0
004825,000115:
004826,000116: 13,6104 01750 3.12SPOT DEC 1000 B-14 # 3.12 RESTART.
004827,000117: 13,6105 67522 CADR CM/SMTSK # 10SECS FROM TBASE3
004828,000118: 13,6106 20000 OCT 20000
004829,000119: 13,6107 67454 CADR CDUXJOB
004830,000120:
004831,000121: 13,6110 01750 DEC 1000 B-14 # 3.13 RESTART.
004832,000122: 13,6111 67522 CADR CM/SMTSK
004833,000123: 13,6112 20000 OCT 20000
004834,000124: 13,6113 67510 CADR REDO3.13
004835,000125:
004836,000126: 13,6114 01750 DEC 1000 B-14 # 3.14 RESTART.
004837,000127: 13,6115 67522 CADR CM/SMTSK
004838,000128: 13,6116 00000 OCT 0
004839,000129: 13,6117 00000 OCT 0
004840,000130:
004841,000131: 13,6120 02734 3.15SPOT DEC 1500 B-14 # 3.15 RESTART
004842,000132: 13,6121 67535 CADR ENTATASK # 15SECS FROM TBASE3
004843,000133: 13,6122 00000 OCT 0
004844,000134: 13,6123 00000 OCT 0
004845,000135:
004846,000136: 13,6124 00000 3.16SPOT OCT 0 # 3.16 RESTART.
004847,000137: 13,6125 00000 OCT 0
004848,000138: 13,6126 15000 OCT 15000 # PRIO TO REDO HUNTEST.
004849,000139: 13,6127 56235 CADR PREHUNT
004850,000140:
004851,000141: 13,6130 00000 00000 3.17SPOT 2DEC 0 B-28 # 3.17 RESTART. ...PRELAUNCH...
004852,000142: 13,6132 20000 OCT 20000
004853,000143: 13,6133 42142 CADR REPL11
004854,000144:
004855,000145: 13,6134 00000 00000 2DEC 0 B-28 # 3.18 RESTART. ...PRELAUNCH...
004856,000146: 13,6136 20000 OCT 20000
004857,000147: 13,6137 42151 CADR REPL12
004858,000148:
004859,000149: 13,6140 00000 00000 2DEC 0 B-28 # 3.19 RESTART ...PRELAUNCH...
004860,000150: 13,6142 20000 OCT 20000
004861,000151: 13,6143 42266 CADR REDO3.21
004862,000152:
004863,000153: 13,6144 00000 00000 2DEC 0 B-28 # 3.20 RESTART. ...PRELAUNCH...
004864,000154: 13,6146 77777 OCT 77777
004865,000155: 13,6147 42216 CADR REDO3.20
004866,000156:
004867,000157: 13,6150 00062 DEC 50 B-14 # 3.21 RESTART. ...PRELAUNCH...
004868,000158: 13,6151 42262 CADR REPRELAL
004869,000159: 13,6152 21000 OCT 21000
004870,000160: 13,6153 42266 CADR REDO3.21
004871,000161:
004872,000162: 13,6154 00062 DEC 50 B-14 # 3.22 RESTART. ...PRELAUNCH
004873,000163: 13,6155 42262 CADR REPRELAL
004874,000164: 13,6156 00000 00000 2DEC 0.0
004875,000165:
004876,000166: 13,6160 00310 3.23SPOT DEC 200 B-14 # 3.23 RESTART
004877,000167: 13,6161 67346 CADR GMPOFF2
004878,000168: 13,6162 00000 00000 2DEC 0.0
004879,000169:
004880,000170: 13,6164 00536 3.24SPOT DEC 350 B-14 # 3.24 RESTART
004881,000171: 13,6165 67357 CADR DVMODOF2
004882,000172: 13,6166 00000 00000 2DEC 0.0
004883,000173:
004884,000174: 13,6170 01046 DEC 550 B-14 # 3.25 RESTART
004885,000175: 13,6171 67357 CADR DVMODOF2
004886,000176: 13,6172 00000 00000 2DEC 0.0
004887,000177: # ANY MORE GROUP 3 RESTART VALUES SHOULD GO HERE.
004888,000178: 13,6174 00000 00000 2DEC 0.0 # 3.26 RESTART
004889,000179: 13,6176 77777 OCT 77777
004890,000180: 13,6177 64170 CADR MONITASK
004891,000181:
004892,000182: 13,6200 00000 00000 2DEC 0.0 # 3.27 RESTART
004893,000183: 13,6202 77777 OCT 77777
004894,000184: 13,6203 64263 CADR TUMBTSK1
004895,000185:
004896,000186: # ANY MORE GROUP 3 RESTARTS GO IN HERE
004897,000187:
004898,000188: 13,6204 00000 4.1SPOT OCT 0 # 4.1 RESTART.
004899,000189: 13,6205 00000 OCT 0
004900,000190: 13,6206 34000 OCT 34000 # HIGH PRIO. (WATCH THIS.)
004901,000191: 13,6207 66212 CADR REDO4.1
004902,000192:
004903,000193: 13,6210 77777 4.2SPOT OCT 77777 # 4.2 RESTART.
004904,000194: 13,6211 77777 OCT 77777
004905,000195: 13,6212 01461 CADR LONGTIME +1
004906,000196: 13,6213 64755 CADR ENGINOFF
004907,000197:
004908,000198: 13,6214 02032 4.3SPOT DEC 1050 B-14 # 4.3 RESTART.
004909,000199: 13,6215 65171 CADR COASTPHS
004910,000200: 13,6216 77777 OCT 77777
004911,000201: 13,6217 65043 CADR REDO4.3
004912,000202:
004913,000203: 13,6220 77776 45317 4.4SPOT 2DEC -30000 B-28 # 4.4 RESTART
004914,000204: 13,6222 00000 00000 2DEC 0 B-28
004915,000205:
004916,000206: 13,6224 34430 DEC 14616 B-14 # 4.5 RESTART (DT = 146.16 SEC
004917,000207: 13,6225 65231 CADR FDAOFTSK # (310 - 163.84 SEC.)
004918,000208: 13,6226 00000 00000 2DEC 0 B-28
004919,000209:
004920,000210: 13,6230 77777 OCT 77777 # 4.6 RESTART
004921,000211: 13,6231 01556 CADR TCOAST # TCOAST = TIME FORM CUTOFF TO UPTASK.
004922,000212: 13,6232 00000 00000 2DEC 0 B-28
004923,000213:
004924,000214: 13,6234 00000 OCT 0 # 4.7 RESTART
004925,000215: 13,6235 00000 OCT 0
004926,000216: 13,6236 77777 OCT 77777
004927,000217: 13,6237 67122 CADR UPTASK
004928,000218:
004929,000219: 13,6240 03410 DEC 1800 B-14 # 4.8 RESTART
004930,000220: 13,6241 67203 CADR PLUSX1
004931,000221: 13,6242 06000 OCT 06000
004932,000222: 13,6243 67144 CADR UPJOB
004933,000223:
004934,000224: 13,6244 03410 DEC 1800 B-14 # 4.9 RESTART
004935,000225: 13,6245 67203 CADR PLUSX1
004936,000226: 13,6246 06000 OCT 06000
004937,000227: 13,6247 67202 CADR REDO4.9
004938,000228:
004939,000229: 13,6250 01130 DEC 600 B-14 # 4.10 RESTART
004940,000230: 13,6251 64561 CADR GIMPOWON
004941,000231: 13,6252 77777 OCT 77777
004942,000232: 13,6253 65066 CADR REDO4.10
004943,000233:
004944,000234: 13,6254 00310 DEC 200 B-14 # 4.11 RESTART.
004945,000235: 13,6255 64056 CADR TARGTASK
004946,000236: 13,6256 00000 00000 2DEC 0 B-28
004947,000237:
004948,000238: 13,6260 00252 DEC 170 B-14 # 4.12 RESTART.
004949,000239: 13,6261 64443 CADR ABRTWAIT # IN 1.7 SEC.
004950,000240: 13,6262 25000 OCT 25000
004951,000241: 13,6263 64432 CADR SETS4SEP
004952,000242:
004953,000243: 13,6264 02304 DEC 1220 B-14 # 4.13 RESTART
004954,000244: 13,6265 64577 CADR ATTCNOFF # IN 12.2 SEC.
004955,000245: 13,6266 00000 00000 2DEC 0 B-28
004956,000246:
004957,000247: 13,6270 01130 4.14SPOT DEC 600 B-14 # 4.14 RESTART.
004958,000248: 13,6271 64561 CADR GIMPOWON
004959,000249: 13,6272 77777 OCT 77777
004960,000250: 13,6273 65103 CADR REDO4.14
004961,000251:
004962,000252: 13,6274 00372 DEC 250 B-14 # 4.15 RESTART.
004963,000253: 13,6275 64577 CADR ATTCNOFF # IN 2.5 SEC
004964,000254: 13,6276 25000 OCT 25000
004965,000255: 13,6277 64541 CADR ABORTRPT -3 # WATCH THIS LOC.
004966,000256:
004967,000257: 13,6300 00372 DEC 250 B-14 # 4.16 RESTART
004968,000258: 13,6301 64577 CADR ATTCNOFF
004969,000259: 13,6302 25000 OCT 25000
004970,000260: 13,6303 64505 CADR REDO4.16
004971,000261:
004972,000262:
004973,000263: 13,6304 10770 DEC 4600 B-14 # 4.17 RESTART
004974,000264: 13,6305 64561 CADR GIMPOWON
004975,000265: 13,6306 00000 00000 2DEC 0 B-28
004976,000266:
004977,000267: 13,6310 00000 00000 2DEC 0 B-28 # 4.18 RESTART.
004978,000268: 13,6312 77777 OCT 77777
004979,000269: 13,6313 64577 CADR ATTCNOFF
004980,000270:
004981,000271: 13,6314 00031 DEC 25 B-14 # 4.19 RESTART.
004982,000272: 13,6315 64615 CADR DVMODEON
004983,000273: 13,6316 00000 00000 2DEC 0 B-28
004984,000274:
004985,000275: 13,6320 00062 DEC 50 B-14 # 4.20 RESTART.
004986,000276: 13,6321 64632 CADR ENGINEON
004987,000277: 13,6322 00000 00000 2DEC 0 B-28
004988,000278:
004989,000279: 13,6324 03016 4.21SPOT DEC 1550 B-14 # 4.21 RESTART
004990,000280: 13,6325 64740 CADR PLUSXOFF
004991,000281: 13,6326 77777 OCT 77777
004992,000282: 13,6327 64731 CADR REDO4.22
004993,000283:
004994,000284: 13,6330 00000 00000 2DEC 0 B-28 # 4.22 RESTART.
004995,000285: 13,6332 77777 OCT 77777
004996,000286: 13,6333 64731 CADR REDO4.22
004997,000287:
004998,000288: 13,6334 00536 DEC 350 B-14 # 4.23 RESTART
004999,000289: 13,6335 64755 CADR ENGINOFF
005000,000290: 13,6336 77777 OCT 77777
005001,000291: 13,6337 64710 CADR STEEROFF
005002,000292:
005003,000293: 13,6340 00000 00000 2DEC 0 B-28 # 4.24 RESTART.
005004,000294: 13,6342 77777 OCT 77777
005005,000295: 13,6343 64561 CADR GIMPOWON
005006,000296:
005007,000297: 13,6344 00536 DEC 350 B-14 # 4.25 RESTART
005008,000298: 13,6345 64577 CADR ATTCNOFF
005009,000299: 13,6346 00000 00000 2DEC 0 B-28
005010,000300:
005011,000301: 13,6350 00000 00000 4.26SPOT 2DEC 0 B-28 # 4.26 RESTSRT.
005012,000302: 13,6352 12000 OCT 12000 # LOWERED.
005013,000303: 13,6353 57543 CADR UPTHETA1
005014,000304:
005015,000305: 13,6354 03720 4.27SPOT DEC 2000 B-14 # 4.27 RESTART
005016,000306: 13,6355 65254 CADR PLUSX2
005017,000307: 13,6356 00000 00000 2DEC 0 B-28
005018,000308:
005019,000309:
005020,000310: 13,6360 00000 00000 4.28SPOT 2DEC 0 B-28 # 4.28 RESTART SAVES ENGIN OFF SEQUENCE
005021,000311: 13,6362 77777 OCT 77777 # WHILE TBASE4 UPDATED
005022,000312: 13,6363 65015 CADR SPS1TEST
005023,000313:
005024,000314: # ANY MORE GROUP 4 RESTART VALUES SHOULD GO HERE.
005025,000315:
005026,000316: 13,6364 00310 5.1SPOT DEC 200 B-14 # 5.1 RESTART
005027,000317: 13,6365 65420 CADR REREADAC
005028,000318: 13,6366 00000 00000 2DEC 0 B-28
005029,000319:
005030,000320: 13,6370 00000 00000 5.2SPOT 2DEC 0 B-28
005031,000321: 13,6372 77777 OCT 77777
005032,000322: 13,6373 65351 CADR REDO5.2
005033,000323:
005034,000324: 13,6374 00310 DEC 200 B-14 # 5.3 RESTART
005035,000325: 13,6375 65420 CADR REREADAC
005036,000326: 13,6376 17000 OCT 17000
005037,000327: 13,6377 65455 CADR REDO5.3
005038,000328:
005039,000329: 13,6400 00310 DEC 200 B-14 # 5.4 RESTART
005040,000330: 13,6401 65420 CADR REREADAC
005041,000331: 13,6402 17000 OCT 17000
005042,000332: 13,6403 61607 CADR REFAZE6
005043,000333:
005044,000334:
005045,000335: 13,6404 00310 DEC 200 B-14 # 5.5 RESTART.
005046,000336: 13,6405 65420 CADR REREADAC
005047,000337: 13,6406 17000 OCT 17000
005048,000338: 13,6407 66014 CADR REDO5.5
005049,000339:
005050,000340: 13,6410 00310 DEC 200 B-14 # 5.6 RESTART
005051,000341: 13,6411 65420 CADR REREADAC
005052,000342: 13,6412 35000 OCT 35000
005053,000343: 13,6413 65310 CADR MODE32
005054,000344:
005055,000345: 13,6414 00000 00000 5.7SPOT 2DEC 0 B-28 # 5.7 RESTART
005056,000346: 13,6416 77777 OCT 77777
005057,000347: 13,6417 66704 CADR REDO5.7
005058,000348:
005059,000349: 13,6420 00310 DEC 200 B-14 # 5.8 RESTART
005060,000350: 13,6421 66674 CADR VERTASK1
005061,000351: 13,6422 14000 OCT 14000
005062,000352: 13,6423 66721 CADR VERTIJOB
005063,000353:
005064,000354: 13,6424 00310 DEC 200 B-14 # 5.9 RESTART.
005065,000355: 13,6425 66674 CADR VERTASK1
005066,000356: 13,6426 13000 OCT 13000
005067,000357: 13,6427 61607 CADR REFAZE6
005068,000358:
005069,000359: 13,6430 00000 00000 2DEC 0 B-28 # 5.10 RESTART.
005070,000360: 13,6432 12000 OCT 12000
005071,000361: 13,6433 67012 CADR REDO5.10
005072,000362:
005073,000363: 13,6434 00310 DEC 200 B-14 # 5.11 RESTART
005074,000364: 13,6435 66674 CADR VERTASK1
005075,000365: 13,6436 00000 00000 2DEC 0 B-28
005076,000366:
005077,000367: 13,6440 00310 5.12SPOT DEC 200 B-14 # 5.12 RESTART.
005078,000368: 13,6441 56001 CADR REPIPUP
005079,000369: 13,6442 00000 00000 2DEC 0 B-28
005080,000370:
005081,000371: 13,6444 00000 00000 2DEC 0 B-28 # 5.13 RESTART.
005082,000372: 13,6446 77777 OCT 77777
005083,000373: 13,6447 56011 CADR REDO5.13
005084,000374:
005085,000375: 13,6450 00310 DEC 200 B-14
005086,000376: 13,6451 56001 CADR REPIPUP
005087,000377: 13,6452 17000 OCT 17000
005088,000378: 13,6453 56036 CADR ENTRYTOP +3
005089,000379:
005090,000380: 13,6454 00310 DEC 200 B-14 # 5.15 RESTART.
005091,000381: 13,6455 56001 CADR REPIPUP
005092,000382: 13,6456 17000 OCT 17000
005093,000383: 13,6457 56054 CADR REFAZE4
005094,000384:
005095,000385: 13,6460 00310 DEC 200 B-14 # 5.16
005096,000386: 13,6461 56001 CADR REPIPUP
005097,000387: 13,6462 16000 OCT 16000
005098,000388: 13,6463 61607 CADR REFAZE6
005099,000389:
005100,000390: 13,6464 00310 DEC 200 B-14 # 5.17 RESTART.
005101,000391: 13,6465 56001 CADR REPIPUP
005102,000392: 13,6466 17000 OCT 17000
005103,000393: 13,6467 56061 CADR REFAZE8
005104,000394:
005105,000395: 13,6470 00310 5.18SPOT DEC 200 B-14 # 5.18 RESTART
005106,000396: 13,6471 56001 CADR REPIPUP
005107,000397: 13,6472 17000 OCT 17000
005108,000398: 13,6473 56176 CADR REFAZE10
005109,000399:
005110,000400: 13,6474 00310 5.19SPOT DEC 200 B-14 # 5.19 RESTART. (PIPUP IN 2 SEC.)
005111,000401: 13,6475 56001 CADR REPIPUP
005112,000402: 13,6476 17000 OCT 17000
005113,000403: 13,6477 61435 CADR NUMODE63 # SETS MODE 63 AND FINISHES ENTRY INITIAL.
005114,000404:
005115,000405: 13,6500 00000 00000 5.20SPOT 2DEC 0.0 # 5.20 RESTART FOR VERB 76
005116,000406: 13,6502 34000 OCT 34000
005117,000407: 13,6503 13222 CADR REDO5.20
005118,000408:
005119,000409: 13,6504 00000 5.21SPOT DEC 0. # 5.21 RESTART IS SPARE
005120,000410: 13,6505 26505 CADR 26505
005121,000411: 13,6506 00000 OCT 0
005122,000412: 13,6507 26507 CADR 26507
005123,000413:
005124,000414: 13,6510 00000 5.22SPOT DEC 0. # 5.22 RESTART IS SPARE
005125,000415: 13,6511 26511 CADR 26511
005126,000416: 13,6512 00000 OCT 0
005127,000417: 13,6513 26513 CADR 26513
005128,000418:
005129,000419: 13,6514 00310 5.23SPOT DEC 200 B-14 # 5.23 RESTART
005130,000420: 13,6515 65420 CADR REREADAC
005131,000421: 13,6516 17000 OCT 17000
005132,000422: 13,6517 65624 CADR REDO5.23
005133,000423:
005134,000424: # ANY MORE GROUP 5 RESTARTS GO HERE.
005135,000425:
005136,000426:
005137,000427: 13,6520 00000 6.1SPOT DEC 0 B-14 # 6.1 RESTART (UNDEFINED)
005138,000428:
005139,000429:
005140,000430:
005141,000431:
005142,000432: # ANY MORE GROUP 6 RESTART VALUES SHOULD GO HERE.
005143,000433:
005144,000434:
005145,000435:
005146,000436:
005147,000437: 13,6521 00000 SIZETAB DEC 0 B-14 # 0 INCREMENT FOR GROUP 1.
005148,000438: 13,6522 00000 TC 2.1SPOT -26004 # INCREMENT TO INDEX GROUP 2 TABLE
005149,000439: 13,6523 00024 TC 3.1SPOT -26004 # INCREMENT TO INDEX GROUP 3
005150,000440: 13,6524 00200 TC 4.1SPOT -26004 # INCREMENT TO INDEX GROUP 4 TABLE.
005151,000441: 13,6525 00360 TC 5.1SPOT -26004 # INCREMENT TO INDEX GROUP 5 TABLE.
005152,000442: 13,6526 00514 TC 6.1SPOT -26004 # INCREMENT TO INDEX GROUP 6 TABLE.
005153,000443:
005154,000444:
005155,000445: # GENERALIZED RESTART ROUTINE.
005156,000446:
005157,000447:
005158,000448:
005159,000449: # FOR EACH FAZEBIT VALUE , THE ASUMPTION IS MADE THAT THERE MAY EXIST
005160,000450: # ONE WAITLIST OR LONGCALL TASK TO BE RECALLED. AND ONE CURRENT TASK OR
005161,000451: # JOB TO BE RESTARTED. (SPECIAL RESTARTS ARE POSSIBLE FOR SITUATIONS
005162,000452: # WHICH DONOT FIT THE GENERAL FORM.) FOR THE GENERAL CASE, FOUR TABLES
005163,000453: # ARE USED.
005164,000454: # (RATHER, ONE TABLE WITH 4 ENTRIES PER FAZEBIT VALUE.)
005165,000455: # 1. WTDTTAB. WAITLIST DT TABLE.
005166,000456: # 2. WCADRTAB WAITLIST CADR TABLE.
005167,000457: # 3. PRIOTAB CURRENT JOB PRIORITY. (NEG NUMB IF TASK.)
005168,000458: # 4. CADRTAB CURRENT JOB (OR TASK) RESTART LOCATION.
005169,000459: # IN ADDITION, THERE EXISTS A SIZE TABLE THAT LISTS THE NUMBER OF
005170,000460: # LOCATIONS USED BY EACH PROFRAM FOR RESTARTS.
005171,000461: # ...MORE TO COME LATER... (DJL)
005172,000462:
005173,000463:
005174,000464:
005175,000465: 13,6527 30115 RESTARTS XCH MPAC # FAZE BITS FOR THIS PROG IN MPAC.
005176,000466: 13,6530 60000 DOUBLE
005177,000467: 13,6531 60000 DOUBLE # MULTILY BY 4. (4 ITEMS PER ENTRY.)
005178,000468: 13,6532 20573 INDEX PROG # PROG CONTAINS THE PROGRAM NUMBER.
005179,000469: 13,6533 66520 AD SIZETAB -1
005180,000470: 13,6534 50115 TS POINTER
005181,000471: 13,6535 36553 CAF TCURRENT
005182,000472: 13,6536 50123 TS GOLOC +1 # EXIT LOCATION.
005183,000473: 13,6537 33232 CAF TCWAIT # SET A WAITLIST CALL IN ERASABLE.
005184,000474: 13,6540 50121 TS GOLOC -1
005185,000475:
005186,000476: 13,6541 20115 INDEX POINTER
005187,000477: 13,6542 36000 CAF WTDTTAB
005188,000478: 13,6543 10000 CCS A
005189,000479: 13,6544 06602 TC WTCALL # +N = WAITLIST CALL
005190,000480: 13,6545 06642 TC CURNTJOB # +0 = NO CALL
005191,000481: 13,6546 06557 TC LONGCLER # -N = LONGCALL
005192,000482: 13,6547 20115 INDEX POINTER # -0 = INDIRECT (PROBABLY)
005193,000483: 13,6550 36001 CAF WCADRTAB
005194,000484: 13,6551 10000 CCS A
005195,000485: 13,6552 06571 TC INDIRECT
005196,000486: 13,6553 06642 TCURRENT TC CURNTJOB # NO ZERO CALLS
005197,000487: 13,6554 06556 TC LONGCLER -1 # NEG OF TIME FOR SHORT LONG.
005198,000488: 13,6555 06630 TC SINDIR
005199,000489:
005200,000490: 13,6556 44516 CS ONE
005201,000491: 13,6557 64516 LONGCLER AD ONE # RESTORE LONGTIME
005202,000492: 13,6560 50116 TS RECALL
005203,000493: 13,6561 20115 INDEX POINTER
005204,000494: 13,6562 46001 CS WCADRTAB # STORED NEGATIVELY.
005205,000495: 13,6563 50117 TS RECALL +1
005206,000496: 13,6564 05742 TC IBNKCALL
005207,000497: 13,6565 26670 CADR NULONGDT
005208,000498: 13,6566 05742 TC IBNKCALL
005209,000499: 13,6567 10552 CADR LONGCALL
005210,000500: 13,6570 06642 TC CURNTJOB
005211,000501:
005212,000502:
005213,000503:
005214,000504: #
005215,000505:
005216,000506:
005217,000507:
005218,000508: # INDIRECT SECTION TAKES THE DP TIME FRON THE ERASABLE LOCATIONS BY THE
005219,000509: # NUMBER IN THE WCADRTAB. (WTDTTAB = -0.)
005220,000510:
005221,000511: 13,6571 50117 INDIRECT TS ECADTEM # CADR-1 IS STORED. (DUE TO CCS.)
005222,000512: 13,6572 20000 INDEX A
005223,000513: 13,6573 40001 CS 1 # (1 NOT 0 BECAUSE CADR OFF BY 1.)
005224,000514: 13,6574 40000 COM # (NOT NEEDED IF NEG TIME STROED.USAGE..)
005225,000515: 13,6575 50116 TS RECALL # AND STORE MAJOR PART.
005226,000516: 13,6576 20117 INDEX ECADTEM
005227,000517: 13,6577 40002 CS 2 # AGAIN ONE MORE THAN USUAL.
005228,000518: 13,6600 40000 COM
005229,000519: 13,6601 06563 TC LONGCLER +4 # STORE MINOR PART THERE
005230,000520:
005231,000521:
005232,000522:
005233,000523: # ASSIGNMENTS ETC.
005234,000524:
005235,000525: 13,6602 0122 GOLOC EQUALS OVFIND # USES ONE LOCATION ON EACH SIDE OF IT.
005236,000526: 13,6602 0117 TEMDT EQUALS MPAC +2
005237,000527: 13,6602 0116 RECALL EQUALS MPAC +1 # MUNTZ NOW USINF LOC IN RESTART CONTROL.
005238,000528: 13,6602 0117 ECADTEM EQUALS RECALL +1 # LOOKS OK.
005239,000529: 13,6602 0115 POINTER EQUALS MPAC
005240,000530: # MPAC + 1 SAVED BECAUSE OF USE IN RESTART CONTROL. (CCS MPAC + 1)
005241,000531:
005242,000532: # THIS ROUTINE LEAVES THE WITLIST CALL AS GIVEN BY WCADRTAB.
005243,000533:
005244,000534: 13,6602 64516 WTCALL AD ONE # DT-1 IN A ON ENTRY. (FROM CCS.)
005245,000535: 13,6603 40000 COM # STORE NEGATIVE OF DT IN TEMDT.
005246,000536: 13,6604 50117 TS TEMDT
005247,000537: 13,6605 20115 INDEX POINTER
005248,000538: 13,6606 36001 CAF WCADRTAB # PICK UP CADR FOR THIS CALL.
005249,000539: 13,6607 50122 TS GOLOC # GOLOC+1 AND -1 ALREADY SET-UP.
005250,000540:
005251,000541: 13,6610 20573 WTCALL2 INDEX PROG # FIRST GET TBASE - TIME1
005252,000542: 13,6611 40662 CS TBASE2 -2 # TBASE STORED NEGATIVELY
005253,000543: 13,6612 25777 EXTEND
005254,000544: 13,6613 60036 SU TIME1 # TBASE - TIME1
005255,000545: 13,6614 10000 CCS A # THIS SHOULD BE NEGATIVE IF ALL OK.
005256,000546: 13,6615 40000 COM # GET POSMAX - A.
005257,000547: 13,6616 66627 AD OCT37776 # 1 BIT SHY OF POSMAX.
005258,000548: 13,6617 64516 AD ONE # RESTORE BIT LOST BY CCS.
005259,000549: 13,6620 60117 AD TEMDT # TIME1 - TBASE -DT NOW IN A.
005260,000550: 13,6621 10000 CCS A # TEST IT. SHOULD BE NEGATIVE.
005261,000551: 13,6622 35501 CAF ZERO # EXCEEDED TIME. BAD,BAD...
005262,000552: 13,6623 06625 TC +2 # (+0 JUST POSSIBLE.)
005263,000553: 13,6624 06625 TC +1 # YES, EVERYTHING OK.
005264,000554: 13,6625 64516 AD ONE # NOW IS THE TIME.
005265,000555: 13,6626 00121 TC GOLOC -1
005266,000556:
005267,000557:
005268,000558:
005269,000559: 13,6627 37776 OCT37776 OCT 37776 # POSMAX - 1
005270,000560:
005271,000561:
005272,000562:
005273,000563: 13,6630 36653 SINDIR CAF TCSWRET
005274,000564: 13,6631 50123 TS GOLOC +1
005275,000565: 13,6632 20115 INDEX POINTER
005276,000566: 13,6633 36003 CAF CADRTAB # PICK UP CADR TO GO TO.
005277,000567: 13,6634 50122 TS GOLOC
005278,000568:
005279,000569: 13,6635 20115 INDEX POINTER
005280,000570: 13,6636 26002 INDEX PRIOTAB # IT POINTS ATTHE ERASABLE LOCATION OF DT
005281,000571: 13,6637 40000 CS 0 # NEG OF DT IN A.
005282,000572: 13,6640 50117 TS TEMDT
005283,000573: 13,6641 06610 TC WTCALL2 # JOIN THERE TO RECOMPUTE TIME REMAINING.
005284,000574:
005285,000575:
005286,000576: # GETS CURRENT JOB (OR TASK) RERUNNING.
005287,000577:
005288,000578: 13,6642 20115 CURNTJOB INDEX POINTER
005289,000579: 13,6643 36003 CAF CADRTAB
005290,000580: 13,6644 50122 TS GOLOC # PUT ADDRESS THERE (CADR)
005291,000581: 13,6645 36653 CAF TCSWRET
005292,000582: 13,6646 50123 TS GOLOC +1 # WHERE TO WHEN DONE.
005293,000583: 13,6647 20115 INDEX POINTER
005294,000584: 13,6650 36002 CAF PRIOTAB # PRIORITY TABLE.
005295,000585: 13,6651 10000 CCS A # TEST IT.
005296,000586: 13,6652 06657 TC ITSAPRIO # +N = PRIORITY.
005297,000587: 13,6653 05702 TCSWRET TC SWRETURN # +0 = NO JOB OR TASK.
005298,000588: 13,6654 06664 TC SHINDIRT # -N = SHORT INDIRECT FORM.
005299,000589: 13,6655 64516 AD ONE # -0 = IMMEDIATE WAITLIST CALL.
005300,000590: 13,6656 00121 TC GOLOC -1 # -0 WILL CRASH OUT HERE...
005301,000591:
005302,000592: 13,6657 64516 ITSAPRIO AD ONE # RESTORE CORRECT PRIORITY VALUE.
005303,000593: 13,6660 50121 TS GOLOC -1 # SAVE THERE TEMPORARILY.
005304,000594: 13,6661 33234 CAF TCFINDVC # N3 RPOVISION FOR NOVAC.
005305,000595: 13,6662 30121 XCH GOLOC -1 # PICKING UP PRIORITY AGAIN.
005306,000596: 13,6663 00121 TC GOLOC -1 # AND GET THE JOB STARTED. (EXIT VIA SWRET
005307,000597:
005308,000598:
005309,000599:
005310,000600: # SHORT INDIRECT SECTION IS NOT USED AS YET.
005311,000601:
005312,000602: 13,6664 20000 SHINDIRT INDEX A
005313,000603: 13,6665 40001 CS 1 # CCS DECREASED ADDRESS BY 1 OF DT LOC.
005314,000604: 13,6666 50117 TS TEMDT
005315,000605: 13,6667 06610 TC WTCALL2 # -DT IN A WHEN REJOINING WTCALL.
005316,000606:
005317,000607:
005318,000608:
005319,000609: # TBASE REGISTERS CONTAIN NEGATIVE OF TIME AT START OF SEQUENCE.
005320,000610:
005321,000611: # ROUTINE TO GENERATE NEW DELTA T (LONGTIME) FOR LONGCALL.
005322,000612:
005323,000613: 13,6670 02700 NULONGDT TC READTIME +1 # GET TIME. (ALREADY INHIBITTED.)
005324,000614: 13,6671 35501 CAF ZERO
005325,000615: 13,6672 61463 AD TCUTOFF +1 # (POSITIVE NUMBER)
005326,000616: 13,6673 60573 AD RUPTSTOR +1 # (NEGATIVE NUMBER)
005327,000617: 13,6674 60117 AD RECALL +1
005328,000618: 13,6675 51461 TS LONGTIME +1 # (COULD OVERFLOW)
005329,000619: 13,6676 35501 CAF ZERO
005330,000620: 13,6677 61462 AD TCUTOFF
005331,000621: 13,6700 60572 AD RUPTSTOR
005332,000622: 13,6701 60116 AD RECALL
005333,000623: 13,6702 31460 XCH LONGTIME # NO OVERFLOW.
005334,000624: 13,6703 11460 CCS LONGTIME # TEST FOR POSITIVE DT.
005335,000625: 13,6704 05761 TC ISWRETRN # (DONT HAVE TO USE ICALLS IF SAME BANK.)
005336,000626: 13,6705 06707 TC +2
005337,000627: 13,6706 06712 TC BADLONG
005338,000628: 13,6707 11461 CCS LONGTIME +1
005339,000629: 13,6710 05761 TC ISWRETRN
005340,000630: 13,6711 06712 TC +1
005341,000631: 13,6712 35501 BADLONG CAF ZERO
005342,000632: 13,6713 51460 TS LONGTIME
005343,000633: 13,6714 34516 CAF ONE # LEAVE A CALL FOR 1 DT.
005344,000634: 13,6715 51461 TS LONGTIME +1
005345,000635: 13,6716 05761 TC ISWRETRN # ...AND EXIT.
005346,000636: # THIS COULD BE MODIFIED EASILY TO CHANGE BAD DT POLICY.
End of include-file 202_RESTART_TABLES_AND_ROUTINES.agc. Parent file is MAIN.agc