Source Code
![]() |
These source-code files were derived from scans of the
Colossus 237 (Apollo 8 Command Module) program listing from the private collection of original
AGC developer Fred Martin. Scanning was by Ron Burkey. Pre-existing Colossus 249
(Apollo 9 CM) source files were used as a template, and changes between Colossus 249
and Colossus 237 were manually transcribed by a team of volunteers. Note
that the page images
presented online are of reduced quality, and that additional images
are available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 237 OF AGC PROGRAM COLOSSUS BY NASA 2021111-031 1:17 AUG. 24, 1968Note that the date is the date of the printout, not the date of the program revision. |
008915,000002: ## Copyright: Public domain. 008916,000003: ## Filename: RESTART_TABLES.agc 008917,000004: ## Purpose: Part of the source code for Colossus build 237. 008918,000005: ## This is for the Command Module's (CM) Apollo Guidance 008919,000006: ## Computer (AGC), for Apollo 8. 008920,000007: ## Assembler: yaYUL 008921,000008: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com> 008922,000009: ## Website: www.ibiblio.org/apollo/index.html 008923,000010: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Colossus237/ 008924,000011: ## Mod history: 2011-01-12 JL Adapted from corresponding Colossus 249 file. 008925,000012: ## 2016-12-30 RSB Proofed comment text using octopus/ProoferComments, 008926,000013: ## and corrected errors found. 008927,000014: ## 2017-01-18 RSB Fixed comment-text errors noted while diff'ing 008928,000015: ## vs Colossus 249. 008929,000016: ## 2017-02-08 RSB Comment-text fixes identified while proofing Artemis 72. 008930,000017:
![]() |
Page 204 |
008932,000019: 008933,000020: # RESTART TABLES 008934,000021: 008935,000022: # ------------------ 008936,000023: 008937,000024: # THERE ARE TWO FORMS OF RESTART TABLES FOR EACH GROUP. THEY ARE KNOWN AS THE EVEN RESTART TABLES AND THE ODD 008938,000025: # RESTART TABLES. THE ODD TABLES HAVE ONLY ONE ENTRY OF THREE LOCATIONS WHILE THE EVEN TABLES HAVE TWO ENTRIES 008939,000026: # EACH USING THREE LOCATIONS. THE INFORMATION AS TO WHETHER IT IS A JOB, WAITLIST, OR A LONGCALL IS GIVEN BY THE 008940,000027: # WAY THINGS ARE PUT INTO THE TABLES. 008941,000028: # A JOB HAS ITS PRIORITY STORED IN PRDTTAB OF THE CORRECT PHASE SPOT - A POSITIVE PRIORITY INDICATES A 008942,000029: # FINDVAC JOB, A NEGATIVE PRIORITY A NOVAC. THE 2CADR OF THE JOB IS STORED IN THE CADRTAB. 008943,000030: # FOR EXAMPLE, 008944,000031: 008945,000032: # 5.7SPOT OCT 23000 008946,000033: # 2CADR SOMEJOB 008947,000034: 008948,000035: # A RESTART OF GROUP 5 WITH PHASE SEVEN WOULD THEN CAUSE SOMEJOB TO BE RESTARTED AS A FINDVAC WITH PRIORITY 23. 008949,000036: 008950,000037: # 5.5SPOT OCT -23000 008951,000038: # 2CADR ANYJOB 008952,000039: 008953,000040: # HERE A RESTART OF GROUP 5 WITH PHASE 7 WOULD CAUSE ANYJOB TO BE RESTARTED AS A NOVAC WITH PRIORITY 23. 008954,000041: # A LONGCALL HAS ITS GENADR OF ITS 2CADR STORED NEGATIVELY AND ITS BBCON STORED POSITIVELY. IN ITS PRDTTAB IS 008955,000042: # PLACED THE LOCATION OF A DP REGISTER THAT CONTAINS THE DELTA TIME THAT LONGCALL HAD BEEN ORIGINALLY STARTED 008956,000043: # WITH. EXAMPLE, 008957,000044: 008958,000045: # 3.6SPOT GENADR DELTAT 008959,000046: # -GENADR LONGTASK 008960,000047: # BBCON LONGTASK 008961,000048: 008962,000049: # OCT 31000 008963,000050: # 2CADR JOBAGAIN 008964,000051: 008965,000052: # THIS WOULD START UP LONGTASK AT THE APPROPRIATE TIME, OR IMMEDIATELY IF THE TIME HAD ALREADY PASSED. IT SHOULD 008966,000053: # BE NOTED THAT IF DELTAT IS IN A SWITCHED E BANK, THIS INFORMATOIN SHOULD BE IN THE BBCON OFTHE 2CADR OF THE 008967,000054: # TASK. FROM ABOVE, WE SEE THAT THE SECOND PART OF THIS PHASE WOULD BE STARTED AS A JOB WITH A PRIORITY OF 31. 008968,000055: 008969,000056: # WAITLIST CALLS ARE IDENTIFIED BY THE FACT THAT THEIR 2CADR IS STORED NEGATIVELY. IF PRDTTAB OF THE PHASE SPOT 008970,000057: # IS POSITIVE, THEN IT CONTAINS THE DELTA TIME, IF PRDTTAB IS NEGATIVE THEN IT IS THE -GENADR OF AN ERASABLE 008971,000058: # LOCATION CONTAINING THE DELTA TIME, THAT IS, THE TIME IS STORED INDIRECTLY. IT SHOULD BE NOTED AS ABOVE, THAT 008972,000059: # IF THE TIME IS STORED INDIRECTLY, THE BBCON MUST CONTAIN THE NECESSARY E BANK INFORMATION IF APPLICABLE. WITH 008973,000060: # WAITLIST WE HAVE ONE FURTHER OPTION, IF -0 IS STORED IN PRDTTAB, IT WILL CAUSE AN IMMEDIATE RESTART OF THE 008974,000061: # TASK. EXAMPLES, 008975,000062: 008976,000063: # OCT 77777 THIS WILL CAUSE AN IMMEDIATE RESTART 008977,000064: # -2CADR ATASK OF THE TASK :ATASK: 008978,000065: 008979,000066: # DEC 200 IF THE TIME OF THE 2 SECONDS SINCE DUMMY 008980,000067: # -2CADR DUMMY WAS PUT ON WAITLIST IS UP, IT WILL BEGIN 008981,000068: # IN 10 MS, OTHERWISE IT WILL BEGIN WHEN 008982,000069: # IT NORMALLY WOULD HAVE BEGUN.
![]() |
Page 205 |
008984,000071: # -GENADR DTIME WHERE DTIME CONTAINS THE DELTA TIME 008985,000072: # -2CADR TASKTASK OTHERWISE THIS IS AS ABOVE 008986,000073: 008987,000074: # ***** NOW THE TABLES THEMSELVES ***** 008988,000075: 008989,000076: 01,2000 BANK 01 008990,000077: 01,2000 SETLOC RESTART 008991,000078: 01,2000 BANK 008992,000079: 008993,000080: 01,2000 COUNT 01/RSTAB 008994,000081: 008995,000082: 01,2000 PRDTTAB EQUALS 12000 # USED TO FIND THE PRIORITY OR DELTATIME 008996,000083: 01,2000 CADRTAB EQUALS 12001 # THIS AND THE NEXT RELATIVE LOC CONTAIN 008997,000084: # RESTART 2CADR 008998,000085: 008999,000086: 01,2000 00063 SIZETAB TC 1.2SPOT -12006 009000,000087: 01,2001 00010 TC 1.3SPOT -12004 009001,000088: 01,2002 00063 TC 2.2SPOT -12006 009002,000089: 01,2003 00024 TC 2.3SPOT -12004 009003,000090: 01,2004 00063 TC 3.2SPOT -12006 009004,000091: 01,2005 00043 TC 3.3SPOT -12004 009005,000092: 01,2006 00063 TC 4.2SPOT -12006 009006,000093: 01,2007 00107 TC 4.3SPOT -12004 009007,000094: 01,2010 00242 TC 5.2SPOT -12006 009008,000095: 01,2011 00260 TC 5.3SPOT -12004 009009,000096: 01,2012 00336 TC 6.2SPOT -12006 009010,000097: 01,2013 00346 TC 6.3SPOT -12004 009011,000098: 01,2014 01,2071 1.2SPOT EQUALS 3.2SPOT 009012,000099: # ANY MORE GROUP 1.EVEN RESTART VALUES SHOULD GO HERE 009013,000100: 009014,000101: 01,2014 00170 1.3SPOT DEC 120 B-14 # THIS NUMBER MUST EQUAL C(JTAGTIME) 009015,000102: 01,2015 E6,1661 EBANK= AOG 009016,000103: 01,2015 74555 45711 -2CADR SETJTAG 009017,000104: 01,2017 10000 1.5SPOT OCT 10000 009018,000105: 01,2020 E6,1466 EBANK= DAPDATR1 009019,000106: 01,2020 02362 34066 2CADR REDO40.9 009020,000107: 01,2022 10000 1.7SPOT OCT 10000 009021,000108: 01,2023 E6,1412 EBANK= ESTROKER 009022,000109: 01,2023 02074 56066 2CADR RELINUS 009023,000110: 01,2025 10000 1.11SPOT OCT 10000 009024,000111: 01,2026 E6,1412 EBANK= ESTROKER 009025,000112: 01,2026 02273 76066 2CADR PIKUP20 009026,000113: # ANY MORE GROUP 1.ODD RESTART VALUES SHOULD GO HERE 009027,000114: 009028,000115: 01,2030 01,2071 2.2SPOT EQUALS 1.2SPOT 009029,000116: # ANY MORE GROUP 2.EVEN RESTART VALUES SHOULD GO HERE
![]() |
Page 206 |
009031,000118: 009032,000119: 01,2030 02605 2.3SPOT GENADR 600SECS 009033,000120: 01,2031 75216 -GENADR STATEINT 009034,000121: 01,2032 E3,1554 EBANK= RRECTCSM 009035,000122: 01,2032 26063 BBCON STATEINT 009036,000123: 009037,000124: 01,2033 05000 2.5SPOT OCT 05000 009038,000125: 01,2034 E3,1554 EBANK= RRECTCSM 009039,000126: 01,2034 02570 26063 2CADR STATINT1 009040,000127: 01,2036 10000 2.7SPOT OCT 10000 009041,000128: 01,2037 E7,1734 EBANK= MRKBUF2 009042,000129: 01,2037 02512 70067 2CADR R22 009043,000130: 01,2041 14000 2.11SPOT OCT 14000 009044,000131: 01,2042 E5,1751 EBANK= LANDMARK 009045,000132: 01,2042 02173 62065 2CADR V94ENTER 009046,000133: 01,2044 10000 2.13SPOT OCT 10000 009047,000134: 01,2045 E7,1734 EBANK= MRKBUF2 009048,000135: 01,2045 02377 56067 2CADR REDOR22 009049,000136: # ANY MORE GROUP 2.ODD RESTART VALUES SHOULD GO HERE 009050,000137: 009051,000138: 01,2047 01,2071 3.2SPOT EQUALS 4.2SPOT 009052,000139: 009053,000140: # ANY MORE GROUP 3.EVEN RESTART VALUES SHOULD GO HERE 009054,000141: 009055,000142: 01,2047 20000 3.3SPOT OCT 20000 009056,000143: 01,2050 E7,1427 EBANK= TGO 009057,000144: 01,2050 02404 34067 2CADR S40.13 009058,000145: 01,2052 00000 3.5SPOT DEC 0 B-14 009059,000146: 01,2053 00000 DEC 0 B-14 009060,000147: 01,2054 00000 DEC 0 B-14 009061,000148: 01,2055 22000 3.7SPOT OCT 22000 009062,000149: 01,2056 E3,1706 EBANK= TEPHEM 009063,000150: 01,2056 02127 70063 2CADR MATRXJOB 009064,000151: 01,2060 22000 3.11SPOT OCT 22000 009065,000152: 01,2061 E3,1706 EBANK= TEPHEM 009066,000153: 01,2061 02247 70063 2CADR REP11 009067,000154: 01,2063 22000 3.13SPOT OCT 22000 009068,000155: 01,2064 E3,1706 EBANK= TEPHEM 009069,000156: 01,2064 02026 70063 2CADR REP11A 009070,000157: 01,2066 76347 3.15SPOT -GENADR TGO +1 009071,000158: 01,2067 E7,1427 EBANK= TGO 009072,000159: 01,2067 75067 27710 -2CADR ENGINOFF
![]() |
Page 207 |
009074,000161: # ANY MORE GROUP 3.ODD RESTART VALUES SHOULD GO HERE 009075,000162: 009076,000163: 01,2071 77777 4.2SPOT OCT 77777 009077,000164: 01,2072 E7,1412 EBANK= TIG 009078,000165: 01,2072 75260 27710 -2CADR PRECHECK 009079,000166: 01,2074 30000 OCT 30000 009080,000167: 01,2075 E7,1674 EBANK= DELVIMU 009081,000168: 01,2075 02463 50067 2CADR P47BODY 009082,000169: 01,2077 77777 4.4SPOT OCT 77777 009083,000170: 01,2100 E7,1412 EBANK= TIG 009084,000171: 01,2100 75260 27710 -2CADR PRECHECK 009085,000172: 01,2102 05664 DEC 2996 B-14 009086,000173: 01,2103 E6,1466 EBANK= DAPDATR1 009087,000174: 01,2103 75517 27711 -2CADR TTG/0 009088,000175: 01,2105 77777 4.6SPOT OCT 77777 009089,000176: 01,2106 E7,1412 EBANK= TIG 009090,000177: 01,2106 75260 27710 -2CADR PRECHECK 009091,000178: 01,2110 04700 DEC 2496 B-14 009092,000179: 01,2111 E7,1412 EBANK= TIG 009093,000180: 01,2111 75254 27710 -2CADR TIG-5 009094,000181: # ANY MORE GROUP 4.EVEN RESTART VALUES SHOULD GO HERE 009095,000182: 009096,000183: 01,2113 00050 4.3SPOT DEC 40 B-14 009097,000184: 01,2114 E6,1425 EBANK= PACTOFF 009098,000185: 01,2114 75166 27711 -2CADR DOTVCON 009099,000186: 01,2116 00240 4.5SPOT DEC 160 B-14 009100,000187: 01,2117 E6,1425 EBANK= PACTOFF 009101,000188: 01,2117 75140 27711 -2CADR DOSTRULL 009102,000189: 01,2121 00764 4.7SPOT DEC 500 B-14 009103,000190: 01,2122 E6,1425 EBANK= PACTOFF 009104,000191: 01,2122 75236 27711 -2CADR TIG-0 009105,000192: 01,2124 00372 4.11SPOT DEC 250 B-14 009106,000193: 01,2125 E6,1466 EBANK= DAPDATR1 009107,000194: 01,2125 74315 27711 -2CADR V97E40.6 009108,000195: 01,2127 00310 4.13SPOT DEC 200 B-14 009109,000196: 01,2130 0003777 EBANK= WHOCARES 009110,000197: 01,2130 74350 27710 -2CADR R40ENABL 009111,000198: 01,2132 16000 4.15SPOT OCT 16000 # PRELAUNCH OPTICAL VERIFICATION 009112,000199: 01,2133 E5,1757 EBANK= OGC
![]() |
Page 208 |
009114,000201: 01,2133 02000 66065 2CADR COMPVER # CALLS FOR OPTICS DATA AGAIN (STD LEADIN) 009115,000202: 01,2135 16000 4.17SPOT OCT 16000 # PRELAUNCH AZIMUTH CHANGE 009116,000203: 01,2136 E5,1671 EBANK= XSM 009117,000204: 01,2136 03737 66065 2CADR AZMTHCG1 009118,000205: 01,2140 01672 4.21SPOT GENADR P40TMP # DELTA TIME USED IN SETTING UP 009119,000206: 01,2141 75411 -GENADR TIGBLNK # LONG CALL OF TIGBLNK BY P40,P41 009120,000207: 01,2142 E7,1672 EBANK= P40TMP 009121,000208: 01,2142 50067 BBCON TIGBLNK 009122,000209: 01,2143 12000 4.23SPOT OCT 12000 # PROTECT P40S/SV BY P40 P41 009123,000210: 01,2144 E7,1412 EBANK= TIG 009124,000211: 01,2144 02113 50067 2CADR P40S/SV 009125,000212: 009126,000213: 01,2146 24000 4.25SPOT OCT 24000 009127,000214: 01,2147 0302 EBANK= BESTI 009128,000215: 01,2147 02000 32060 2CADR PROG52 009129,000216: 009130,000217: 01,2151 00372 4.27SPOT DEC 250 B-14 009131,000218: 01,2152 E6,1425 EBANK= PACTOFF 009132,000219: 01,2152 75053 27711 -2CADR DOTVCRCS 009133,000220: 01,2154 13000 4.31SPOT OCT 13000 009134,000221: 01,2155 E5,1765 EBANK= STAR 009135,000222: 01,2155 02523 30065 2CADR R51 009136,000223: 01,2157 04064 4.33SPOT DEC 2100 B-14 # PROTECT CONTINUING JOB TO START P63 009137,000224: 01,2160 E6,1661 EBANK= AOG 009138,000225: 01,2160 75403 23711 -2CADR WAKEP62 009139,000226: 01,2162 12000 4.35SPOT OCT 12000 009140,000227: 01,2163 E6,1466 EBANK= DAPDATR1 009141,000228: 01,2163 02155 50066 2CADR POSTBURN 009142,000229: 01,2165 00764 4.37SPOT DEC 500 B-14 009143,000230: 01,2166 E7,1412 EBANK= TIG 009144,000231: 01,2166 75273 27710 -2CADR TIGAVEG 009145,000232: 01,2170 17000 4.41SPOT OCT 17000 # PROTECT DISPLAY JOB IN P67 009146,000233: 01,2171 E6,1661 EBANK= AOG 009147,000234: 01,2171 02511 54066 2CADR P67.1 009148,000235: 01,2173 76003 4.43SPOT -GENADR S61DT # PROTECT TASK TO START PREREAD,ENTRY 009149,000236: 01,2174 E6,1774 EBANK= S61DT # S61.1C WILL CHANGE EBANK=EB7 FOR PREREAD 009150,000237: 01,2174 75213 23711 -2CADR S61.1C 009151,000238: 01,2176 13000 4.45SPOT OCT 13000 # PROTECT CONTINUING JOB S61.1 009152,000239: 01,2177 E6,1661 EBANK= AOG # (ENTRY IMU ALIGNMENT)
![]() |
Page 209 |
009154,000241: 01,2177 02602 54066 2CADR S61.1A -1 009155,000242: 01,2201 17000 4.47SPOT OCT 17000 # PROTECT HUNTEST ITERATION. 009156,000243: 01,2202 E6,1661 EBANK= AOG 009157,000244: 01,2202 03006 52066 2CADR PRE-HUNT 009158,000245: 01,2204 77777 4.51SPOT OCT 77777 # PROTECT FDAI ATTITUDE 009159,000246: 01,2205 E6,1704 EBANK= BODY3 # ERROR DISPLAY IN P11 009160,000247: 01,2205 75463 07711 -2CADR ATERTASK 009161,000248: 01,2207 77777 4.53SPOT DEC -0 B-14 009162,000249: 01,2210 0003777 EBANK= END-E7 # EBANK7 FOR TIG 009163,000250: 01,2210 74334 27710 -2CADR V97ETASK 009164,000251: 01,2212 13000 4.55SPOT OCT 13000 # PROTECT P65 RESPONSIVE DISPLAY. 009165,000252: 01,2213 E7,1451 EBANK= RTINIT 009166,000253: 01,2213 02456 54067 2CADR P65.1 009167,000254: 01,2215 76105 4.57SPOT -GENADR P40TMP 009168,000255: 01,2216 E7,1672 EBANK= P40TMP 009169,000256: 01,2216 75350 27710 -2CADR TIGON 009170,000257: 01,2220 77777 4.61SPOT OCT 77777 009171,000258: 01,2221 E6,1425 EBANK= PACTOFF 009172,000259: 01,2221 75223 27711 -2CADR IGNITION 009173,000260: 01,2223 77777 4.63SPOT OCT 77777 009174,000261: 01,2224 E6,1425 EBANK= PACTOFF 009175,000262: 01,2224 75061 27711 -2CADR DOSPSOFF 009176,000263: 01,2226 00012 4.65SPOT DEC 10 B-14 009177,000264: 01,2227 E7,1412 EBANK= TIG 009178,000265: 01,2227 75254 27710 -2CADR TIG-5 009179,000266: 01,2231 77777 4.67SPOT DEC -0 B-14 009180,000267: 01,2232 E6,1474 EBANK= CSMMASS 009181,000268: 01,2232 74416 27711 -2CADR V97TTASK 009182,000269: 01,2234 00372 4.71SPOT DEC 250 B-14 009183,000270: 01,2235 E6,1466 EBANK= DAPDATR1 # (FOR RCSDAPON) 009184,000271: 01,2235 74401 27711 -2CADR V97TRCS 009185,000272: 01,2237 77777 4.73SPOT DEC -0 B-14 009186,000273: 01,2240 E6,1444 EBANK= V97VCNTR 009187,000274: 01,2240 74364 27711 -2CADR V97PTASK 009188,000275: 01,2242 77777 4.75SPOT DEC -0 B-14 009189,000276: 01,2243 E6,1466 EBANK= DAPDATR1 009190,000277: 01,2243 74322 27711 -2CADR SPSOFF97
![]() |
Page 210 |
009192,000279: 01,2245 77777 4.77SPOT DEC -0 B-14 009193,000280: 01,2246 E6,1425 EBANK= PACTOFF 009194,000281: 01,2246 75236 27711 -2CADR TIG-0 009195,000282: # ANY MORE GROUP 4.ODD RESTART VALUES SHOULD GO HERE 009196,000283: 009197,000284: 01,2250 32000 5.2SPOT OCT 32000 009198,000285: 01,2251 E7,1431 EBANK= DVCNTR 009199,000286: 01,2251 03145 76067 2CADR NORMLIZE 009200,000287: 01,2253 00310 DEC 200 B-14 009201,000288: 01,2254 E6,1661 EBANK= AOG 009202,000289: 01,2254 74563 01711 -2CADR REREADAC 009203,000290: 01,2256 20000 5.4SPOT OCT 20000 009204,000291: 01,2257 E7,1431 EBANK= DVCNTR 009205,000292: 01,2257 03013 76067 2CADR SERVICER 009206,000293: 01,2261 00310 DEC 200 B-14 009207,000294: 01,2262 E6,1661 EBANK= AOG 009208,000295: 01,2262 74563 01711 -2CADR REREADAC 009209,000296: # ANY MORE GROUP 5.EVEN RESTART VALUES SHOULD GO HERE 009210,000297: 009211,000298: 01,2264 00310 5.3SPOT DEC 200 B-14 009212,000299: 01,2265 E6,1661 EBANK= AOG 009213,000300: 01,2265 74563 01711 -2CADR REREADAC 009214,000301: 01,2267 77777 5.5SPOT OCT 77777 009215,000302: 01,2270 E6,1661 EBANK= AOG 009216,000303: 01,2270 75117 01711 -2CADR REDO5.5 009217,000304: 01,2272 20000 5.7SPOT OCT 20000 # USED BY PRELAUNCH 009218,000305: 01,2273 E5,1671 EBANK= XSM 009219,000306: 01,2273 02456 66065 2CADR RSTGTS1 009220,000307: 01,2275 77777 5.11SPOT OCT 77777 009221,000308: 01,2276 E5,1671 EBANK= XSM 009222,000309: 01,2276 75174 11712 -2CADR ALLOOP1 009223,000310: 01,2300 20000 5.13SPOT OCT 20000 009224,000311: 01,2301 E5,1671 EBANK= XSM 009225,000312: 01,2301 02527 66065 2CADR WTLISTNT 009226,000313: 01,2303 20000 5.15SPOT OCT 20000 009227,000314: 01,2304 E5,1671 EBANK= XSM 009228,000315: 01,2304 03320 66065 2CADR RESTEST1 009229,000316: 01,2306 20000 5.17SPOT OCT 20000 009230,000317: 01,2307 E5,1671 EBANK= XSM
![]() |
Page 211 |
009232,000319: 01,2307 05112 04065 2CADR GEOSTRT4 009233,000320: 01,2311 20000 5.21SPOT OCT 20000 009234,000321: 01,2312 E5,1671 EBANK= XSM 009235,000322: 01,2312 02640 66065 2CADR ALFLT1 009236,000323: 01,2314 77777 5.23SPOT OCT 77777 009237,000324: 01,2315 E5,1671 EBANK= XSM 009238,000325: 01,2315 75154 11712 -2CADR SPECSTS 009239,000326: 01,2317 20000 5.25SPOT OCT 20000 009240,000327: 01,2320 E5,1671 EBANK= XSM 009241,000328: 01,2320 03331 66065 2CADR RESTEST3 009242,000329: 01,2322 20000 5.27SPOT OCT 20000 009243,000330: 01,2323 E5,1671 EBANK= XSM 009244,000331: 01,2323 03277 66065 2CADR RESTAIER 009245,000332: 01,2325 77777 5.31SPOT OCT 77777 009246,000333: 01,2326 E7,1431 EBANK= DVCNTR 009247,000334: 01,2326 75163 01710 -2CADR REDO5.31 009248,000335: 01,2330 20000 5.33SPOT OCT 20000 009249,000336: 01,2331 E5,1671 EBANK= XSM 009250,000337: 01,2331 03354 66065 2CADR RESCHNG 009251,000338: 01,2333 00000 5.35SPOT DEC 0 B-14 009252,000339: 01,2334 00000 00000 2DEC 0 B-28 009253,000340: 01,2336 77777 5.37SPOT OCT 77777 009254,000341: 01,2337 E6,1661 EBANK= AOG 009255,000342: 01,2337 75035 01711 -2CADR CHEKAVEG 009256,000343: 01,2341 77777 5.41SPOT OCT 77777 # TO PROTECT PREREAD AT TIG-30A 009257,000344: 01,2342 E7,1431 EBANK= DVCNTR # TIG-15 T+60 009258,000345: 01,2342 75173 01710 -2CADR PREREAD 009259,000346: # ANY MORE GROUP 5.ODD RESTART VALUES SHOULD GO HERE 009260,000347: 009261,000348: 01,2344 77777 6.2SPOT OCT 77777 # USED BY P40 AFTER GIMB DR TST TO REPOS'N 009262,000349: 01,2345 E6,1476 EBANK= AK # ENGINE UNTIL TVCDAPON 009263,000350: 01,2345 75737 37711 -2CADR PRE40.6 009264,000351: 009265,000352: 01,2347 00144 DEC 100 B-14 009266,000353: 01,2350 E7,1660 EBANK= TTOGO 009267,000354: 01,2350 74603 27710 -2CADR CLOKTASK 009268,000355: 009269,000356: # ANY MORE 6.ODD RESTART VALUES SHOULD GO HERE 009270,000357:
![]() |
Page 212 |
009272,000359: 009273,000360: 01,2352 00144 6.3SPOT DEC 100 B-14 009274,000361: 01,2353 E7,1412 EBANK= TIG 009275,000362: 01,2353 74603 27710 -2CADR CLOKTASK 009276,000363: 01,2355 30000 6.5SPOT OCT 30000 # PROTECT INCREMENTING OF TIME2,TIME1 BY 009277,000364: 01,2356 E3,1706 EBANK= TEPHEM # P27NUPDATE PROGRAM) 009278,000365: 01,2356 03535 56063 2CADR TIMEDIDR 009279,000366: 01,2360 00000 6.7SPOT OCT 0 009280,000367: 01,2361 00000 OCT 0 009281,000368: 01,2362 00000 OCT 0 009282,000369: 009283,000370: 01,2363 76052 6.11SPOT -GENADR CM/GYMDT # PROTECT TASK TO READ CDUS. 009284,000371: 01,2364 E6,1725 EBANK= CM/GYMDT # FOR ENTRY DAP 009285,000372: 01,2364 75323 45711 -2CADR READGYMB 009286,000373: 01,2366 00000 6.13SPOT DEC 0 B-14 009287,000374: 01,2367 00000 DEC 0 B-14 009288,000375: 01,2370 00000 DEC 0 B-14 009289,000376:
![]() |
Page 213 |
009291,000378: # PROGRAM DESCRIPTION: NEWPHASE DATE: 11 NOV 1966 009292,000379: # MOD: 1 ASSEMBLY: SUNBURST REV 009293,000380: # MOD BY: COPPS LOG SECTION: PHASE TABLE MAINTENANCE 009294,000381: # FUNCTIONAL DESCRIPTION: 009295,000382: # NEWPHASE IS THE QUICK WAY TO MAKE A NON VARIABLE PHASE CHANGE. IT INCLUDES THE OPTION OF SETTING 009296,000383: # TBASE OF THE GROUP. IF TBASE IS TO BE SET, -C(TIME1) IS STORED IN THE TBASE TABLE AS FOLLOWS: 009297,000384: 009298,000385: # (L-1) TBASE0 009299,000386: # (L) TBASE1 (IF GROUP=1) 009300,000387: # (L+1) 009301,000388: # (L+2) TBASE2 (IF GROUP=2) 009302,000389: # ----- 009303,000390: # (L+6) TBASE4 (IF GROUP=4) 009304,000391: # (L+7) 009305,000392: # (L+8) TBASE5 (IF GROUP=5) 009306,000393: 009307,000394: # IN ANY CASE, THE NEGATIVE OF THE PHASE, FOLLOWED (IN THE NEXT REGISTER) BY THE PHASE, IS STORED IN THE 009308,000395: # PHASE TABLE AS FOLLOWS: 009309,000396: 009310,000397: # (L) -PHASE1 (IF GROUP=1) 009311,000398: # (L+1) PHASE1 009312,000399: # (L+2) -PHASE2 (IF GROUP=2) 009313,000400: # (L+3) PHASE 2 009314,000401: # ----- 009315,000402: # (L+7) PHASE4 009316,000403: # (L+8) -PHASE5 (IF GROUP=5) 009317,000404: # (L+9) PHASE5 009318,000405: 009319,000406: # CALLING SEQUENCE: 009320,000407: # EXAMPLE IS FOR PLACING A PHASE OF FIVE INTO GROUP THREE: 009321,000408: 009322,000409: # 1) IF TBASE IS NOT TO BE SET: 009323,000410: # L-1 CA FIVE 009324,000411: # L TC NEWPHASE 009325,000412: # L+1 OCT 00003 009326,000413: 009327,000414: # 2) IF TBASE IS TO BE SET: 009328,000415: # L-1 CS FIVE 009329,000416: # L TC NEWPHASE 009330,000417: # L+1 OCT 00003 009331,000418: 009332,000419: # SUBROUTINES CALLED: NONE 009333,000420: 009334,000421: # NORMAL EXIT MODE: AT L+2 OF CALLING SEQUENCE 009335,000422: 009336,000423: # ALARM OR ABORT EXITS: NONE 009337,000424: 009338,000425: # OUTPUT: PHASE TABLE AND TBASE TABLE UPDATED 009339,000426: 009340,000427: # ERASABLE INITIALIZATION REQ,D: NONE
![]() |
Page 214 |
009342,000429: # DEBRIS: A,L,TEMPG 009343,000430: 009344,000431: # ***WARNING*** THIS PROGRAM IS TO BE PLACED IN FIXED-FIXED AND UNSWITCHED ERASABLE. 009345,000432: 009346,000433: 4114 BLOCK 02 009347,000434: 4000 SETLOC FFTAG1 009348,000435: 4000 BANK 009349,000436: 009350,000437: 4114 COUNT* $$/PHASE 009351,000438: 009352,000439: 4114 00004 NEWPHASE INHINT 009353,000440: 009354,000441: 4115 54001 TS L # SAVE FOR FURTHER USE 009355,000442: 009356,000443: 4116 50002 NDX Q # OBTAIN THE GROUP NUMBER 009357,000444: 4117 30000 CA 0 009358,000445: 4120 24002 INCR Q # OBTAIN THE RETURN ADDRESS 009359,000446: 4121 60000 DOUBLE # SAVE THE GROUP IN A FORM USED FOR 009360,000447: 4122 54061 TS TEMPG # INDEXING 009361,000448: 009362,000449: 4123 10001 CCS L # SEE IF WE ARE TO SET TBASE 009363,000450: 4124 14133 TCF +7 # NO, THE DELTA T WAS POSITIVE 009364,000451: 4125 14133 TCF +6 009365,000452: 009366,000453: 4126 24000 NUFAZ+10 INCR A # SET TBASE AND STORE PHASE CORRECTLY 009367,000454: 4127 54001 TS L 009368,000455: 009369,000456: 4130 40025 CS TIME1 # SET TBASE 009370,000457: 4131 50061 NDX TEMPG 009371,000458: 4132 55051 TS TBASE1 -2 009372,000459: 009373,000460: 4133 40001 CS L # NOW PUT THE PHASE IN THE RIGHT TABLE LOC 009374,000461: 4134 50061 NDX TEMPG 009375,000462: 4135 52751 DXCH -PHASE1 -2 009376,000463: 009377,000464: 4136 00003 RELINT 009378,000465: 4137 00002 TC Q # NOW RETURN TO CALLER End of include-file RESTART_TABLES.agc. Parent file is MAIN.agc