Source Code
|
These source-code files are part of a reconstructed copy of Skylark 048, the
Block II Command Module (CM) Apollo Guidance Computer (AGC) software for the
Skylab-2, Skylab-3, Skylab-4, and Apollo-Soyuz Test Project missions.
They have been created via disassembly of binary dumps of the original core rope
memory modules actually flown on Skylab-2, part numbers 2010802-541, 2010802-551,
2010802-561, 2010802-571, 2010802-581, and 2010802-591. Access to these modules
was provided by the New Mexico Museum of Space History, who we are much indebted to.
The source code for the Apollo 15, 16, and 17 software, Artemis 072, was used as
a starting point. Heavy use was made of TRW 4900.5-244, Programmed Guidance Equations
for Skylark Command Module Earth Orbital Program, dated 14 February 1972. This document
contains pseudocode of essentially all of Skylark, using original program labels which
have been copied for this source reconstruction.
Since only binary dumps (rather than listings) of Skylark are available as source material,
all comments and labels are approximate.
They have been taken from the Programmed Guidance Equations or other AGC programs where
possible, or, in some places, written from scratch to match what we believe would have
been in the original listing.
|
009425,000002: ## Copyright: Public domain.
009426,000003: ## Filename: RESTART_TABLES.agc
009427,000004: ## Purpose: A section of Skylark revision 048.
009428,000005: ## It is part of the source code for the Apollo Guidance Computer (AGC)
009429,000006: ## for Skylab-2, Skylab-3, Skylab-4, and ASTP. No original listings of
009430,000007: ## this software are available; instead, this file was created via
009431,000008: ## disassembly of dumps of the core rope modules actually flown on
009432,000009: ## Skylab-2. Access to these modules was provided by the New Mexico
009433,000010: ## Museum of Space History.
009434,000011: ## Assembler: yaYUL
009435,000012: ## Contact: Ron Burkey <info@sandroid.org>.
009436,000013: ## Website: www.ibiblio.org/apollo/index.html
009437,000014: ## Mod history: 2023-09-04 MAS Created from Artemis 072.
009438,000015: ## 2024-03-05 MAS Updated for Skylark 48.
009439,000016:
009440,000017:
009441,000018: # RESTART TABLES
009442,000019:
009443,000020: # ------------------
009444,000021:
009445,000022: # THERE ARE TWO FORMS OF RESTART TABLES FOR EACH GROUP. THEY ARE KNOWN AS THE EVEN RESTART TABLES AND THE ODD
009446,000023: # RESTART TABLES. THE ODD TABLES HAVE ONLY ONE ENTRY OF THREE LOCATIONS WHILE THE EVEN TABLES HAVE TWO ENTRIES
009447,000024: # EACH USING THREE LOCATIONS. THE INFORMATION AS TO WHETHER IT IS A JOB, WAITLIST, OR A LONGCALL IS GIVEN BY THE
009448,000025: # WAY THINGS ARE PUT INTO THE TABLES.
009449,000026: # A JOB HAS ITS PRIORITY STORED IN PRDTTAB OF THE CORRECT PHASE SPOT - A POSITIVE PRIORITY INDICATES A
009450,000027: # FINDVAC JOB, A NEGATIVE PRIORITY A NOVAC. THE 2CADR OF THE JOB IS STORED IN THE CADRTAB.
009451,000028: # FOR EXAMPLE,
009452,000029:
009453,000030: # 5.7SPOT OCT 23000
009454,000031: # 2CADR SOMEJOB
009455,000032:
009456,000033: # A RESTART OF GROUP 5 WITH PHASE SEVEN WOULD THEN CAUSE SOMEJOB TO BE RESTARTED AS A FINDVAC WITH PRIORITY 23.
009457,000034:
009458,000035: # 5.5SPOT OCT -23000
009459,000036: # 2CADR ANYJOB
009460,000037:
009461,000038: # HERE A RESTART OF GROUP 5 WITH PHASE 7 WOULD CAUSE ANYJOB TO BE RESTARTED AS A NOVAC WITH PRIORITY 23.
009462,000039: # A LONGCALL HAS ITS GENADR OF ITS 2CADR STORED NEGATIVELY AND ITS BBCON STORED POSITIVELY. IN ITS PRDTTAB IS
009463,000040: # PLACED THE LOCATION OF A DP REGISTER THAT CONTAINS THE DELTA TIME THAT LONGCALL HAD BEEN ORIGINALLY STARTED
009464,000041: # WITH. EXAMPLE,
009465,000042:
009466,000043: # 3.6SPOT GENADR DELTAT
009467,000044: # -GENADR LONGTASK
009468,000045: # BBCON LONGTASK
009469,000046:
009470,000047: # OCT 31000
009471,000048: # 2CADR JOBAGAIN
009472,000049:
009473,000050: # THIS WOULD START UP LONGTASK AT THE APPROPRIATE TIME, OR IMMEDIATELY IF THE TIME HAD ALREADY PASSED. IT SHOULD
009474,000051: # BE NOTED THAT IF DELTAT IS IN A SWITCHED E BANK, THIS INFORMATOIN SHOULD BE IN THE BBCON OF THE 2CADR OF THE
009475,000052: # TASK. FROM ABOVE, WE SEE THAT THE SECOND PART OF THIS PHASE WOULD BE STARTED AS A JOB WITH A PRIORITY OF 31.
009476,000053:
009477,000054: # WAITLIST CALLS ARE IDENTIFIED BY THE FACT THAT THEIR 2CADR IS STORED NEGATIVELY. IF PRDTTAB OF THE PHASE SPOT
009478,000055: # IS POSITIVE, THEN IT CONTAINS THE DELTA TIME, IF PRDTTAB IS NEGATIVE THEN IT IS THE -GENADR OF AN ERASABLE
009479,000056: # LOCATION CONTAINING THE DELTA TIME, THAT IS, THE TIME IS STORED INDIRECTLY. IT SHOULD BE NOTED AS ABOVE, THAT
009480,000057: # IF THE TIME IS STORED INDIRECTLY, THE BBCON MUST CONTAIN THE NECESSARY E BANK INFORMATION IF APPLICABLE. WITH
009481,000058: # WAITLIST WE HAVE ONE FURTHER OPTION, IF -0 IS STORED IN PRDTTAB, IT WILL CAUSE AN IMMEDIATE RESTART OF THE
009482,000059: # TASK. EXAMPLES,
009483,000060:
009484,000061: # OCT 77777 THIS WILL CAUSE AN IMMEDIATE RESTART
009485,000062: # -2CADR ATASK OF THE TASK :ATASK:
009486,000063:
009487,000064: # DEC 200 IF THE TIME OF THE 2 SECONDS SINCE DUMMY
009488,000065: # -2CADR DUMMY WAS PUT ON WAITLIST IS UP, IT WILL BEGIN
009489,000066: # IN 10 MS, OTHERWISE IT WILL BEGIN WHEN
009490,000067: # IT NORMALLY WOULD HAVE BEGUN.
009491,000068:
009492,000069:
009493,000070:
009494,000071: # -GENADR DTIME WHERE DTIME CONTAINS THE DELTA TIME
009495,000072: # -2CADR TASKTASK OTHERWISE THIS IS AS ABOVE
009496,000073:
009497,000074: # ***** NOW THE TABLES THEMSELVES *****
009498,000075:
009499,000076: 01,2000 SETLOC RESTART
009500,000077: 01,2000 BANK
009501,000078:
009502,000079: 01,2000 COUNT* $$/RSTAB
009503,000080: 01,2000 PRDTTAB EQUALS 12000 # USED TO FIND THE PRIORITY OR DELTATIME
009504,000081: 01,2000 CADRTAB EQUALS 12001 # THIS AND THE NEXT RELATIVE LOC CONTAIN
009505,000082: # RESTART 2CADR
009506,000083:
009507,000084: 01,2000 00102 SIZETAB TC 1.2SPOT -12006
009508,000085: 01,2001 00010 TC 1.3SPOT -12004
009509,000086: 01,2002 00102 TC 2.2SPOT -12006
009510,000087: 01,2003 00027 TC 2.3SPOT -12004
009511,000088: 01,2004 00102 TC 3.2SPOT -12006
009512,000089: 01,2005 00054 TC 3.3SPOT -12004
009513,000090: 01,2006 00102 TC 4.2SPOT -12006
009514,000091: 01,2007 00126 TC 4.3SPOT -12004
009515,000092: 01,2010 00231 TC 5.2SPOT -12006
009516,000093: 01,2011 00247 TC 5.3SPOT -12004
009517,000094: 01,2012 00317 TC 6.2SPOT -12006
009518,000095: 01,2013 00327 TC 6.3SPOT -12004
009519,000096: 01,2014 01,2110 1.2SPOT EQUALS 4.2SPOT
009520,000097:
009521,000098: # ANY MORE GROUP 1.EVEN RESTART VALUES SHOULD GO HERE
009522,000099:
009523,000100: 01,2014 00170 1.3SPOT DEC 120 B-14 # THIS NUMBER MUST EQUAL C(JTAGTIME)
009524,000101: 01,2015 E6,1712 EBANK= AOG
009525,000102: 01,2015 75141 45711 -2CADR SETJTAG
009526,000103:
009527,000104: 01,2017 10000 1.5SPOT OCT 10000
009528,000105: 01,2020 E6,1514 EBANK= DAPDATR1
009529,000106: 01,2020 02431 34066 2CADR REDO40.9
009530,000107:
009531,000108: 01,2022 10000 1.7SPOT OCT 10000
009532,000109: 01,2023 E6,1776 EBANK= R61CNTR
009533,000110: 01,2023 02074 56066 2CADR RELINUS
009534,000111:
009535,000112: 01,2025 10000 1.11SPOT OCT 10000
009536,000113: 01,2026 E6,1776 EBANK= R61CNTR
009537,000114: 01,2026 02406 74066 2CADR PIKUP20
009538,000115:
009539,000116: 01,2030 10000 1.13SPOT OCT 10000
009540,000117: 01,2031 E6,1776 EBANK= R61CNTR
009541,000118: 01,2031 02640 74066 2CADR R67RSTRT
009542,000119:
009543,000120: # ANY MORE GROUP 1.ODD RESTART VALUES SHOULD GO HERE
009544,000121:
009545,000122:
009546,000123: 01,2033 01,2110 2.2SPOT EQUALS 1.2SPOT
009547,000124:
009548,000125: # ANY MORE GROUP 2.EVEN RESTART VALUES SHOULD GO HERE
009549,000126:
009550,000127: 01,2033 03256 2.3SPOT GENADR 600SECS
009551,000128: 01,2034 74547 -GENADR STATEINT
009552,000129: 01,2035 E3,1554 EBANK= RRECTCSM
009553,000130: 01,2035 10063 BBCON STATEINT
009554,000131:
009555,000132: 01,2036 05000 2.5SPOT OCT 05000
009556,000133: 01,2037 E3,1554 EBANK= RRECTCSM
009557,000134: 01,2037 03237 10063 2CADR STATINT1
009558,000135:
009559,000136: 01,2041 10000 2.7SPOT OCT 10000
009560,000137: 01,2042 E7,1702 EBANK= MRKBUF1
009561,000138: 01,2042 02617 70067 2CADR R22
009562,000139:
009563,000140: 01,2044 26000 2.11SPOT OCT 26000
009564,000141: 01,2045 E7,1702 EBANK= MRKBUF1
009565,000142: 01,2045 03471 60067 2CADR STARTFIX
009566,000143:
009567,000144: 01,2047 10000 2.13SPOT OCT 10000
009568,000145: 01,2050 E7,1702 EBANK= MRKBUF1
009569,000146: 01,2050 02420 56067 2CADR REDOR22
009570,000147:
009571,000148: 01,2052 77777 2.15SPOT OCT 77777
009572,000149: 01,2053 1333 EBANK= FIXTIME
009573,000150: 01,2053 75546 17715 -2CADR READCYCL
009574,000151:
009575,000152: 01,2055 26000 2.17SPOT OCT 26000
009576,000153: 01,2056 E7,1702 EBANK= MRKBUF1
009577,000154: 01,2056 03475 60067 2CADR ENDFIX
009578,000155:
009579,000156: # ANY MORE GROUP 2.ODD RESTART VALUES SHOULD GO HERE
009580,000157:
009581,000158: 01,2060 01,2110 3.2SPOT EQUALS 1.2SPOT
009582,000159:
009583,000160: # ANY MORE GROUP 3.EVEN RESTART VALUES SHOULD GO HERE
009584,000161:
009585,000162: 01,2060 20000 3.3SPOT OCT 20000
009586,000163: 01,2061 E7,1427 EBANK= TGO
009587,000164: 01,2061 02463 34067 2CADR S40.13
009588,000165:
009589,000166: 01,2063 76347 3.5SPOT -GENADR TGO +1
009590,000167: 01,2064 E7,1427 EBANK= TGO
009591,000168: 01,2064 75122 27710 -2CADR ENGINOFF
009592,000169:
009593,000170: 01,2066 22000 3.7SPOT OCT 22000
009594,000171: 01,2067 E5,1757 EBANK= OGC
009595,000172: 01,2067 02115 70065 2CADR MATRXJOB
009596,000173:
009597,000174:
009598,000175: 01,2071 22000 3.11SPOT OCT 22000
009599,000176: 01,2072 E3,1700 EBANK= TEPHEM
009600,000177: 01,2072 02245 70063 2CADR REP11
009601,000178:
009602,000179: 01,2074 22000 3.13SPOT OCT 22000
009603,000180: 01,2075 E3,1700 EBANK= TEPHEM
009604,000181: 01,2075 02024 70063 2CADR REP11A
009605,000182:
009606,000183: 01,2077 76307 3.15SPOT -GENADR SBTEMP
009607,000184: 01,2100 E7,1470 EBANK= SBTEMP
009608,000185: 01,2100 74303 27710 -2CADR SBTASK
009609,000186:
009610,000187: 01,2102 77777 3.17SPOT OCT 77777
009611,000188: 01,2103 1333 EBANK= FIXTIME
009612,000189: 01,2103 75471 17715 -2CADR REDOCTSK
009613,000190:
009614,000191: 01,2105 77777 3.21SPOT OCT 77777
009615,000192: 01,2106 1333 EBANK= FIXTIME
009616,000193: 01,2106 75513 17715 -2CADR CTASK
009617,000194:
009618,000195: # ANY MORE GROUP 3.ODD RESTART VALUES SHOULD GO HERE
009619,000196:
009620,000197: 01,2110 77777 4.2SPOT OCT 77777
009621,000198: 01,2111 E7,1412 EBANK= TIG
009622,000199: 01,2111 75350 27710 -2CADR PRECHECK
009623,000200:
009624,000201: 01,2113 47777 OCT 47777 # PRIO 30 NOVAC
009625,000202: 01,2114 E7,1654 EBANK= DELVIMU
009626,000203: 01,2114 03705 60067 2CADR P47BODY
009627,000204:
009628,000205: 01,2116 77777 4.4SPOT OCT 77777
009629,000206: 01,2117 E7,1412 EBANK= TIG
009630,000207: 01,2117 75350 27710 -2CADR PRECHECK
009631,000208:
009632,000209: 01,2121 05664 DEC 2996 B-14
009633,000210: 01,2122 E6,1514 EBANK= DAPDATR1
009634,000211: 01,2122 74046 27711 -2CADR TTG/0
009635,000212:
009636,000213: 01,2124 77777 4.6SPOT OCT 77777
009637,000214: 01,2125 E7,1412 EBANK= TIG
009638,000215: 01,2125 75350 27710 -2CADR PRECHECK
009639,000216:
009640,000217: 01,2127 04700 DEC 2496 B-14
009641,000218: 01,2130 E7,1412 EBANK= TIG
009642,000219: 01,2130 75344 27710 -2CADR TIG-5
009643,000220:
009644,000221: # ANY MORE GROUP 4.EVEN RESTART VALUES SHOULD GO HERE
009645,000222:
009646,000223: 01,2132 00050 4.3SPOT DEC 40 B-14
009647,000224: 01,2133 E6,1410 EBANK= PACTOFF
009648,000225: 01,2133 75257 27711 -2CADR DOTVCON
009649,000226:
009650,000227: 01,2135 00240 4.5SPOT DEC 160 B-14
009651,000228: 01,2136 E6,1410 EBANK= PACTOFF
009652,000229: 01,2136 75226 27711 -2CADR DOSTRULL
009653,000230:
009654,000231: 01,2140 00764 4.7SPOT DEC 500 B-14
009655,000232: 01,2141 E6,1410 EBANK= PACTOFF
009656,000233: 01,2141 75327 27711 -2CADR TIG-0
009657,000234:
009658,000235: 01,2143 77777 4.11SPOT DEC -0 B-14
009659,000236: 01,2144 E6,1410 EBANK= PACTOFF
009660,000237: 01,2144 75327 27711 -2CADR TIG-0
009661,000238:
009662,000239: 01,2146 47777 4.13SPOT OCT 47777 # PRIO 30 NOVAC
009663,000240: 01,2147 E6,1522 EBANK= CSMMASS
009664,000241: 01,2147 03257 50066 2CADR V97PJOB
009665,000242:
009666,000243: 01,2151 16000 4.15SPOT OCT 16000 # PRELAUNCH OPTICAL VERIFICATION
009667,000244: 01,2152 E5,1757 EBANK= OGC
009668,000245: 01,2152 02000 66065 2CADR COMPVER # CALLS FOR OPTICS DATA AGAIN (STD LEADIN)
009669,000246:
009670,000247: 01,2154 16000 4.17SPOT OCT 16000 # PRELAUNCH AZIMUTH CHANGE
009671,000248: 01,2155 E5,1660 EBANK= XSM
009672,000249: 01,2155 03175 66105 2CADR AZMTHCG1
009673,000250:
009674,000251: 01,2157 01652 4.21SPOT GENADR P40TMP # DELTA TIME USED IN SETTING UP
009675,000252: 01,2160 75404 -GENADR TIGBLNK # LONG CALL OF TIGBLNK BY P40,P41
009676,000253: 01,2161 E7,1652 EBANK= P40TMP
009677,000254: 01,2161 50067 BBCON TIGBLNK
009678,000255:
009679,000256: 01,2162 12000 4.23SPOT OCT 12000 # PROTECT P40S/SV BY P40 P41
009680,000257: 01,2163 E7,1412 EBANK= TIG
009681,000258: 01,2163 02331 50067 2CADR P40S/SV
009682,000259:
009683,000260: 01,2165 24000 4.25SPOT OCT 24000
009684,000261: 01,2166 0302 EBANK= BESTI
009685,000262: 01,2166 02002 30060 2CADR PROG52
009686,000263:
009687,000264: 01,2170 77777 4.27SPOT DEC -0 B-14
009688,000265: 01,2171 E6,1410 EBANK= PACTOFF
009689,000266: 01,2171 75314 27711 -2CADR IGNITION
009690,000267:
009691,000268: 01,2173 13000 4.31SPOT OCT 13000
009692,000269: 01,2174 E7,1702 EBANK= MRKBUF1
009693,000270: 01,2174 02627 30067 2CADR R51
009694,000271:
009695,000272: 01,2176 04064 4.33SPOT DEC 2100 B-14 # PROTECT CONTINUING JOB TO START P63
009696,000273: 01,2177 E6,1712 EBANK= AOG
009697,000274: 01,2177 75533 23711 -2CADR WAKEP62
009698,000275:
009699,000276: 01,2201 65777 4.35SPOT OCT 65777 # PRIO 12 NOVAC
009700,000277: 01,2202 E6,1514 EBANK= DAPDATR1
009701,000278: 01,2202 03026 50066 2CADR POSTBURN
009702,000279:
009703,000280: 01,2204 00764 4.37SPOT DEC 500 B-14
009704,000281: 01,2205 E7,1412 EBANK= TIG
009705,000282: 01,2205 75367 27710 -2CADR TIGAVEG
009706,000283:
009707,000284: 01,2207 17000 4.41SPOT OCT 17000 # PROTECT DISPLAY JOB IN P67
009708,000285: 01,2210 E6,1712 EBANK= AOG
009709,000286: 01,2210 02360 54066 2CADR P67.1
009710,000287:
009711,000288: 01,2212 76001 4.43SPOT -GENADR S61DT # PROTECT TASK TO START PREREAD,ENTRY
009712,000289: 01,2213 E6,1776 EBANK= S61DT # S61.1C WILL CHANGE EBANK=EB7 FOR PREREAD
009713,000290: 01,2213 75342 23711 -2CADR S61.1C
009714,000291:
009715,000292: 01,2215 13000 4.45SPOT OCT 13000 # PROTECT CONTINUING JOB S61.1
009716,000293: 01,2216 E6,1712 EBANK= AOG # (ENTRY IMU ALIGNMENT)
009717,000294: 01,2216 02452 54066 2CADR S61.1A -1
009718,000295:
009719,000296: 01,2220 17000 4.47SPOT OCT 17000 # PROTECT HUNTEST ITERATION.
009720,000297: 01,2221 E6,1712 EBANK= AOG
009721,000298: 01,2221 03012 52066 2CADR PRE-HUNT
009722,000299:
009723,000300: 01,2223 77777 4.51SPOT OCT 77777 # PROTECT FDAI ATTITUDE
009724,000301: 01,2224 E6,1735 EBANK= SPOLYARG
009725,000302: 01,2224 75465 07711 -2CADR ATERTASK
009726,000303:
009727,000304: 01,2226 47777 4.53SPOT OCT 47777 # PRIO 30 NOVAC
009728,000305: 01,2227 E6,1522 EBANK= CSMMASS
009729,000306: 01,2227 03166 50066 2CADR V97EJOB
009730,000307:
009731,000308: 01,2231 64777 4.55SPOT OCT -13000 # PROTECT P65 RESPONSIVE DISPLAY
009732,000309: 01,2232 E7,1451 EBANK= RTINIT
009733,000310: 01,2232 02325 54067 2CADR P65.1
009734,000311:
009735,000312: 01,2234 76125 4.57SPOT -GENADR P40TMP
009736,000313: 01,2235 E7,1652 EBANK= P40TMP
009737,000314: 01,2235 74157 17710 -2CADR TIGON
009738,000315:
009739,000316: # ANY MORE GROUP 4.ODD RESTART VALUES SHOULD GO HERE
009740,000317:
009741,000318: 01,2237 32000 5.2SPOT OCT 32000
009742,000319: 01,2240 E7,1425 EBANK= DVTOTAL
009743,000320: 01,2240 03044 76067 2CADR NORMLIZE
009744,000321:
009745,000322: 01,2242 00310 DEC 200 B-14
009746,000323: 01,2243 E6,1712 EBANK= AOG
009747,000324: 01,2243 74665 01711 -2CADR REREADAC
009748,000325:
009749,000326: 01,2245 20000 5.4SPOT OCT 20000
009750,000327: 01,2246 E7,1425 EBANK= DVTOTAL
009751,000328: 01,2246 02700 76067 2CADR SERVICER
009752,000329:
009753,000330: 01,2250 00310 DEC 200 B-14
009754,000331: 01,2251 E6,1712 EBANK= AOG
009755,000332: 01,2251 74665 01711 -2CADR REREADAC
009756,000333:
009757,000334: # ANY MORE GROUP 5.EVEN RESTART VALUES SHOULD GO HERE
009758,000335:
009759,000336: 01,2253 00310 5.3SPOT DEC 200 B-14
009760,000337: 01,2254 E6,1712 EBANK= AOG
009761,000338: 01,2254 74665 01711 -2CADR REREADAC
009762,000339:
009763,000340: 01,2256 77777 5.5SPOT OCT 77777
009764,000341: 01,2257 E6,1712 EBANK= AOG
009765,000342: 01,2257 75260 01711 -2CADR REDO5.5
009766,000343:
009767,000344: 01,2261 20000 5.7SPOT OCT 20000 # USED BY PRELAUNCH
009768,000345: 01,2262 E5,1660 EBANK= XSM
009769,000346: 01,2262 02251 66065 2CADR RSTGTS1
009770,000347:
009771,000348: 01,2264 77777 5.11SPOT OCT 77777
009772,000349: 01,2265 E5,1660 EBANK= XSM
009773,000350: 01,2265 75402 11712 -2CADR ALLOOP1
009774,000351:
009775,000352: 01,2267 20000 5.13SPOT OCT 20000
009776,000353: 01,2270 E5,1660 EBANK= XSM
009777,000354: 01,2270 02322 66065 2CADR WTLISTNT
009778,000355:
009779,000356: 01,2272 20000 5.15SPOT OCT 20000
009780,000357: 01,2273 E5,1660 EBANK= XSM
009781,000358: 01,2273 03117 66065 2CADR RESTEST1
009782,000359:
009783,000360: 01,2275 77777 5.17SPOT OCT 77777
009784,000361: 01,2276 E7,1425 EBANK= DVTOTAL
009785,000362: 01,2276 75330 01710 -2CADR PREREAD
009786,000363:
009787,000364: 01,2300 22000 5.21SPOT OCT 22000
009788,000365: 01,2301 E5,1660 EBANK= XSM
009789,000366: 01,2301 02431 66065 2CADR ALFLT1
009790,000367:
009791,000368: 01,2303 77777 5.23SPOT OCT 77777
009792,000369: 01,2304 E5,1660 EBANK= XSM
009793,000370: 01,2304 75357 11712 -2CADR SPECSTS
009794,000371:
009795,000372: 01,2306 20000 5.25SPOT OCT 20000
009796,000373: 01,2307 E5,1660 EBANK= XSM
009797,000374: 01,2307 03130 66065 2CADR RESTEST3
009798,000375:
009799,000376: 01,2311 20000 5.27SPOT OCT 20000
009800,000377: 01,2312 E5,1660 EBANK= XSM
009801,000378: 01,2312 03076 66065 2CADR RESTAIER
009802,000379:
009803,000380: 01,2314 77777 5.31SPOT OCT 77777
009804,000381: 01,2315 E6,1712 EBANK= AOG
009805,000382: 01,2315 75147 01711 -2CADR CHEKAVEG
009806,000383:
009807,000384: 01,2317 20000 5.33SPOT OCT 20000
009808,000385: 01,2320 E5,1660 EBANK= XSM
009809,000386: 01,2320 03153 66065 2CADR RESCHNG
009810,000387:
009811,000388: 01,2322 77777 5.35SPOT OCT 77777
009812,000389: 01,2323 E7,1451 EBANK= PIPAPIX
009813,000390: 01,2323 75236 01710 -2CADR REDO5.35
009814,000391:
009815,000392: # ANY MORE GROUP 5.ODD RESTART VALUES SHOULD GO HERE
009816,000393:
009817,000394: 01,2325 77777 6.2SPOT OCT 77777 # USED BY P40 AFTER GIMB DR TST TO REPOS'N
009818,000395: 01,2326 E6,1525 EBANK= AK # ENGINE UNTIL TVCDAPON
009819,000396: 01,2326 75465 37711 -2CADR PRE40.6
009820,000397:
009821,000398: 01,2330 00144 DEC 100 B-14
009822,000399: 01,2331 E7,1636 EBANK= TTOGO
009823,000400: 01,2331 74706 27710 -2CADR CLOKTASK
009824,000401:
009825,000402: # ANY MORE 6.ODD RESTART VALUES SHOULD GO HERE
009826,000403:
009827,000404: 01,2333 00144 6.3SPOT DEC 100 B-14
009828,000405: 01,2334 E7,1412 EBANK= TIG
009829,000406: 01,2334 74706 27710 -2CADR CLOKTASK
009830,000407:
009831,000408: 01,2336 30000 6.5SPOT OCT 30000 # PROTECT INCREMENTING OF TIME2,TIME1 BY
009832,000409: 01,2337 E3,1700 EBANK= TEPHEM # P27NUPDATE PROGRAM)
009833,000410: 01,2337 03515 56063 2CADR TIMEDIDR
009834,000411:
009835,000412: 01,2341 50777 6.7SPOT OCT 50777 # PRIO 27 NOVAC
009836,000413: 01,2342 E6,1522 EBANK= CSMMASS
009837,000414: 01,2342 03233 50066 2CADR V97TJOB
009838,000415:
009839,000416: 01,2344 76021 6.11SPOT -GENADR CM/GYMDT # PROTECT TASK TO READ CDUS.
009840,000417: 01,2345 E6,1756 EBANK= CM/GYMDT # FOR ENTRY DAP
009841,000418: 01,2345 75714 45711 -2CADR READGYMB
009842,000419:
009843,000420:
009844,000421: # PROGRAM DESCRIPTION: NEWPHASE DATE: 11 NOV 1966
009845,000422: # MOD: 1 ASSEMBLY: SUNBURST REV
009846,000423: # MOD BY: COPPS LOG SECTION: PHASE TABLE MAINTENANCE
009847,000424:
009848,000425: # FUNCTIONAL DESCRIPTION:
009849,000426:
009850,000427: # NEWPHASE IS THE QUICK WAY TO MAKE A NON VARIABLE PHASE CHANGE. IT INCLUDES THE OPTION OF SETTING
009851,000428: # TBASE OF THE GROUP. IF TBASE IS TO BE SET, -C(TIME1) IS STORED IN THE TBASE TABLE AS FOLLOWS:
009852,000429:
009853,000430: # (L-1) TBASE0
009854,000431: # (L) TBASE1 (IF GROUP=1)
009855,000432: # (L+1)
009856,000433: # (L+2) TBASE2 (IF GROUP=2)
009857,000434: # -----
009858,000435: # (L+6) TBASE4 (IF GROUP=4)
009859,000436: # (L+7)
009860,000437: # (L+8) TBASE5 (IF GROUP=5)
009861,000438:
009862,000439: # IN ANY CASE, THE NEGATIVE OF THE PHASE, FOLLOWED (IN THE NEXT REGISTER) BY THE PHASE, IS STORED IN THE
009863,000440: # PHASE TABLE AS FOLLOWS:
009864,000441:
009865,000442: # (L) -PHASE1 (IF GROUP=1)
009866,000443: # (L+1) PHASE1
009867,000444: # (L+2) -PHASE2 (IF GROUP=2)
009868,000445: # (L+3) PHASE2
009869,000446: # -----
009870,000447: # (L+7) PHASE4
009871,000448: # (L+8) -PHASE5 (IF GROUP=5)
009872,000449: # (L+9) PHASE5
009873,000450:
009874,000451: # CALLING SEQUENCE:
009875,000452:
009876,000453: # EXAMPLE IS FOR PLACING A PHASE OF FIVE INTO GROUP THREE:
009877,000454:
009878,000455: # 1) IF TBASE IS NOT TO BE SET:
009879,000456: # L-1 CA FIVE
009880,000457: # L TC NEWPHASE
009881,000458: # L+1 OCT 00003
009882,000459:
009883,000460: # 2) IF TBASE IS TO BE SET:
009884,000461: # L-1 CS FIVE
009885,000462: # L TC NEWPHASE
009886,000463: # L+1 OCT 00003
009887,000464:
009888,000465: # SUBROUTINES CALLED: NONE
009889,000466:
009890,000467: # NORMAL EXIT MODE: AT L+2 OF CALLING SEQUENCE
009891,000468:
009892,000469: # ALARM OR ABORT EXITS: NONE
009893,000470:
009894,000471: # OUTPUT: PHASE TABLE AND TBASE TABLE UPDATED
009895,000472:
009896,000473: # ERASABLE INITIALIZATION REQ,D: NONE
009897,000474: # DEBRIS: A,L,TEMPG
009898,000475:
009899,000476: # *** WARNING *** THIS PROGRAM IS TO BE PLACED IN FIXED-FIXED AND UNSWITCHED ERASABLE.
009900,000477:
009901,000478: 4000 SETLOC FFTAG1
009902,000479: 4000 BANK
009903,000480:
009904,000481: 4126 COUNT* $$/PHASE
009905,000482:
009906,000483: 4126 00004 NEWPHASE INHINT
009907,000484:
009908,000485: 4127 54001 TS L # SAVE FOR FURTHER USE
009909,000486:
009910,000487: 4130 50002 NDX Q # OBTAIN THE GROUP NUMBER
009911,000488: 4131 30000 CA 0
009912,000489: 4132 24002 INCR Q # OBTAIN THE RETURN ADDRESS
009913,000490: 4133 60000 DOUBLE # SAVE THE GROUP IN A FORM USED FOR
009914,000491: 4134 54061 TS TEMPG # INDEXING
009915,000492:
009916,000493: 4135 10001 CCS L # SEE IF WE ARE TO SET TBASE
009917,000494: 4136 14145 TCF +7 # NO, THE DELTA T WAS POSITIVE
009918,000495: 4137 14145 TCF +6
009919,000496:
009920,000497: 4140 24000 NUFAZ+10 INCR A # SET TBASE AND STORE PHASE CORRECTLY
009921,000498: 4141 54001 TS L
009922,000499:
009923,000500: 4142 40025 CS TIME1 # SET TBASE
009924,000501: 4143 50061 NDX TEMPG
009925,000502: 4144 55245 TS TBASE1 -2
009926,000503:
009927,000504: 4145 40001 CS L # NOW PUT THE PHASE IN THE RIGHT TABLE LOC
009928,000505: 4146 50061 NDX TEMPG
009929,000506: 4147 53144 DXCH -PHASE1 -2
009930,000507:
009931,000508: 4150 15615 TCF REQ # NOW RETURN TO CALL
009932,000509:
009933,000510:
End of include-file RESTART_TABLES.agc. Parent file is MAIN.agc