Source Code
|
These source-code files were obtained by digitally photographing
a Solarium 55 (Apollo 6) program listing from the American Computer Museum in
Bozeman, Montana. Photography was by Ron Burkey, with assistance from
museum curator George Keremedjiev and Montana
State University curator Kim Scott. The listing originally belonged to Eldon C. Hall,
who donated it to the museum. Volunteers then manually typed in the
source code or else modified similar pre-existing Colossus 249
(Apollo 9) source files to incorporate changes, although this transcription was
principally done by Jim Lawton and corrected by Ron Burkey.
Notations on the program listing read, in part:
YUL SYSTEM FOR AGC4: REVISION 0 OF PROGRAM SOLRUM55
BY NASA 1021108-021 DEC. 4, 1966
Note that the date is the date of the printout, not the date of the program revision.
Due to statements by Jay Sampson, the original contractor from AC Electronics
who created Solarium 54 (Apollo 4)
from the earlier Corona (AS-202 mission) program, it is believed that Solarium 54 and
Solarium 55 (Apollo 6) are actually identical programs. The change in numbering,
from 54 to 55, is believed to be for some administrative purpose. Thus, it is believed
that the source-code represented here is equally appropriate for both Apollo 4 and
Apollo 6 missions.
|
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