GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS BY NASA 2021114-011 11:40 FEB. 26, 1971Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were obtained by digitally photographing
an Artemis 72 (Apollo 15-17 Command Module) program listing from a private
collection and then
modifying pre-existing Comanche 55 (Apollo 11) source files to
incorporate changes. Photography was by Ron Burkey, and transcription
was performed by a team of volunteers. Note that the page images
presented online are of reduced quality, and that additional images
may be 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 072 OF AGC PROGRAM ARTEMIS BY NASA 2021114-011 11:40 FEB. 26, 1971Note that the date is the date of the printout, not the date of the program revision. |
010045,000002: ## Copyright: Public domain.
010046,000003: ## Filename: RESTART_TABLES.agc
010047,000004: ## Purpose: Part of the source code for Artemis (i.e., Colossus 3),
010048,000005: ## build 072. This is for the Command Module's (CM)
010049,000006: ## Apollo Guidance Computer (AGC), for
010050,000007: ## Apollo 15-17.
010051,000008: ## Assembler: yaYUL
010052,000009: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
010053,000010: ## Website: www.ibiblio.org/apollo/index.html
010054,000011: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Artemis072/
010055,000012: ## Mod history: 2009-07-26 JL Adapted from corresponding Comanche 055 file.
010056,000013: ## 2010-01-31 JL Fixed build errors.
010057,000014: ## 2010-02-10 JL Fixed errors on p232-234.
010058,000015: ## 2010-02-20 RSB Un-##'d this header.
010059,000016: ## 2017-02-08 RSB Proofed comment text by diff'ing vs Comanche 55
010060,000017: ## and/or octopus/ProoferComments as most-appropriate.
010061,000018:
|
|
Page 229 |
010063,000020:
010064,000021: # RESTART TABLES
010065,000022:
010066,000023: # ------------------
010067,000024:
010068,000025: # THERE ARE TWO FORMS OF RESTART TABLES FOR EACH GROUP. THEY ARE KNOWN AS THE EVEN RESTART TABLES AND THE ODD
010069,000026: # RESTART TABLES. THE ODD TABLES HAVE ONLY ONE ENTRY OF THREE LOCATIONS WHILE THE EVEN TABLES HAVE TWO ENTRIES
010070,000027: # EACH USING THREE LOCATIONS. THE INFORMATION AS TO WHETHER IT IS A JOB, WAITLIST, OR A LONGCALL IS GIVEN BY THE
010071,000028: # WAY THINGS ARE PUT INTO THE TABLES.
010072,000029: # A JOB HAS ITS PRIORITY STORED IN PRDTTAB OF THE CORRECT PHASE SPOT - A POSITIVE PRIORITY INDICATES A
010073,000030: # FINDVAC JOB, A NEGATIVE PRIORITY A NOVAC. THE 2CADR OF THE JOB IS STORED IN THE CADRTAB.
010074,000031: # FOR EXAMPLE,
010075,000032:
010076,000033: # 5.7SPOT OCT 23000
010077,000034: # 2CADR SOMEJOB
010078,000035:
010079,000036: # A RESTART OF GROUP 5 WITH PHASE SEVEN WOULD THEN CAUSE SOMEJOB TO BE RESTARTED AS A FINDVAC WITH PRIORITY 23.
010080,000037:
010081,000038: # 5.5SPOT OCT -23000
010082,000039: # 2CADR ANYJOB
010083,000040:
010084,000041: # HERE A RESTART OF GROUP 5 WITH PHASE 7 WOULD CAUSE ANYJOB TO BE RESTARTED AS A NOVAC WITH PRIORITY 23.
010085,000042: # A LONGCALL HAS ITS GENADR OF ITS 2CADR STORED NEGATIVELY AND ITS BBCON STORED POSITIVELY. IN ITS PRDTTAB IS
010086,000043: # PLACED THE LOCATION OF A DP REGISTER THAT CONTAINS THE DELTA TIME THAT LONGCALL HAD BEEN ORIGINALLY STARTED
010087,000044: # WITH. EXAMPLE,
010088,000045:
010089,000046: # 3.6SPOT GENADR DELTAT
010090,000047: # -GENADR LONGTASK
010091,000048: # BBCON LONGTASK
010092,000049:
010093,000050: # OCT 31000
010094,000051: # 2CADR JOBAGAIN
010095,000052:
010096,000053: # THIS WOULD START UP LONGTASK AT THE APPROPRIATE TIME, OR IMMEDIATELY IF THE TIME HAD ALREADY PASSED. IT SHOULD
010097,000054: # BE NOTED THAT IF DELTAT IS IN A SWITCHED E BANK, THIS INFORMATOIN SHOULD BE IN THE BBCON OF THE 2CADR OF THE
010098,000055: # TASK. FROM ABOVE, WE SEE THAT THE SECOND PART OF THIS PHASE WOULD BE STARTED AS A JOB WITH A PRIORITY OF 31.
010099,000056:
010100,000057: # WAITLIST CALLS ARE IDENTIFIED BY THE FACT THAT THEIR 2CADR IS STORED NEGATIVELY. IF PRDTTAB OF THE PHASE SPOT
010101,000058: # IS POSITIVE, THEN IT CONTAINS THE DELTA TIME, IF PRDTTAB IS NEGATIVE THEN IT IS THE -GENADR OF AN ERASABLE
010102,000059: # LOCATION CONTAINING THE DELTA TIME, THAT IS, THE TIME IS STORED INDIRECTLY. IT SHOULD BE NOTED AS ABOVE, THAT
010103,000060: # IF THE TIME IS STORED INDIRECTLY, THE BBCON MUST CONTAIN THE NECESSARY E BANK INFORMATION IF APPLICABLE. WITH
010104,000061: # WAITLIST WE HAVE ONE FURTHER OPTION, IF -0 IS STORED IN PRDTTAB, IT WILL CAUSE AN IMMEDIATE RESTART OF THE
010105,000062: # TASK. EXAMPLES,
010106,000063:
010107,000064: # OCT 77777 THIS WILL CAUSE AN IMMEDIATE RESTART
010108,000065: # -2CADR ATASK OF THE TASK :ATASK:
010109,000066:
010110,000067: # DEC 200 IF THE TIME OF THE 2 SECONDS SINCE DUMMY
010111,000068: # -2CADR DUMMY WAS PUT ON WAITLIST IS UP, IT WILL BEGIN
010112,000069: # IN 10 MS, OTHERWISE IT WILL BEGIN WHEN
010113,000070: # IT NORMALLY WOULD HAVE BEGUN.
010114,000071:
010115,000072:
|
|
Page 230 |
010117,000074:
010118,000075: # -GENADR DTIME WHERE DTIME CONTAINS THE DELTA TIME
010119,000076: # -2CADR TASKTASK OTHERWISE THIS IS AS ABOVE
010120,000077:
010121,000078: # ***** NOW THE TABLES THEMSELVES *****
010122,000079:
010123,000080: 01,2000 SETLOC RESTART
010124,000081: 01,2000 BANK
010125,000082:
010126,000083: 01,2000 COUNT* $$/RSTAB
010127,000084: 01,2000 PRDTTAB EQUALS 12000 # USED TO FIND THE PRIORITY OR DELTATIME
010128,000085: 01,2000 CADRTAB EQUALS 12001 # THIS AND THE NEXT RELATIVE LOC CONTAIN
010129,000086: # RESTART 2CADR
010130,000087:
010131,000088: 01,2000 00044 SIZETAB TC 1.2SPOT -12006
010132,000089: 01,2001 00010 TC 1.3SPOT -12004
010133,000090: 01,2002 00044 TC 2.2SPOT -12006
010134,000091: 01,2003 00027 TC 2.3SPOT -12004
010135,000092: 01,2004 00044 TC 3.2SPOT -12006
010136,000093: 01,2005 00054 TC 3.3SPOT -12004
010137,000094: 01,2006 00074 TC 4.2SPOT -12006
010138,000095: 01,2007 00120 TC 4.3SPOT -12004
010139,000096: 01,2010 00226 TC 5.2SPOT -12006
010140,000097: 01,2011 00244 TC 5.3SPOT -12004
010141,000098: 01,2012 00311 TC 6.2SPOT -12006
010142,000099: 01,2013 00321 TC 6.3SPOT -12004
010143,000100: 01,2014 01,2052 1.2SPOT EQUALS 3.2SPOT
010144,000101:
010145,000102: # ANY MORE GROUP 1.EVEN RESTART VALUES SHOULD GO HERE
010146,000103:
010147,000104: 01,2014 00170 1.3SPOT DEC 120 B-14 # THIS NUMBER MUST EQUAL C(JTAGTIME)
010148,000105: 01,2015 E6,1661 EBANK= AOG
010149,000106: 01,2015 75141 45711 -2CADR SETJTAG
010150,000107:
010151,000108: 01,2017 10000 1.5SPOT OCT 10000
010152,000109: 01,2020 E6,1465 EBANK= DAPDATR1
010153,000110: 01,2020 02502 34066 2CADR REDO40.9
010154,000111:
010155,000112: 01,2022 10000 1.7SPOT OCT 10000
010156,000113: 01,2023 E6,1774 EBANK= R61CNTR
010157,000114: 01,2023 02170 56066 2CADR RELINUS
010158,000115:
010159,000116: 01,2025 10000 1.11SPOT OCT 10000
010160,000117: 01,2026 E6,1774 EBANK= R61CNTR
010161,000118: 01,2026 02157 74066 2CADR PIKUP20
010162,000119:
010163,000120: 01,2030 10000 1.13SPOT OCT 10000
010164,000121: 01,2031 E6,1774 EBANK= R61CNTR
010165,000122: 01,2031 02374 74066 2CADR R67RSTRT
010166,000123:
010167,000124: # ANY MORE GROUP 1.ODD RESTART VALUES SHOULD GO HERE
010168,000125:
|
|
Page 231 |
010170,000127:
010171,000128: 01,2033 01,2052 2.2SPOT EQUALS 1.2SPOT
010172,000129:
010173,000130: # ANY MORE GROUP 2.EVEN RESTART VALUES SHOULD GO HERE
010174,000131:
010175,000132: 01,2033 02730 2.3SPOT GENADR 600SECS
010176,000133: 01,2034 75075 -GENADR STATEINT
010177,000134: 01,2035 E3,1554 EBANK= RRECTCSM
010178,000135: 01,2035 26063 BBCON STATEINT
010179,000136:
010180,000137: 01,2036 05000 2.5SPOT OCT 05000
010181,000138: 01,2037 E3,1554 EBANK= RRECTCSM
010182,000139: 01,2037 02711 26063 2CADR STATINT1
010183,000140:
010184,000141: 01,2041 10000 2.7SPOT OCT 10000
010185,000142: 01,2042 E7,1722 EBANK= MRKBUF1
010186,000143: 01,2042 02625 70067 2CADR R22
010187,000144:
010188,000145: 01,2044 14000 2.11SPOT OCT 14000
010189,000146: 01,2045 E7,1751 EBANK= LANDMARK
010190,000147: 01,2045 03532 62067 2CADR V94NTR
010191,000148:
010192,000149: 01,2047 10000 2.13SPOT OCT 10000
010193,000150: 01,2050 E7,1722 EBANK= MRKBUF1
010194,000151: 01,2050 02516 56067 2CADR REDOR22
010195,000152:
010196,000153: # ANY MORE GROUP 2.ODD RESTART VALUES SHOULD GO HERE
010197,000154:
010198,000155: 01,2052 77777 3.2SPOT DEC -0 B-14
010199,000156: 01,2053 E7,1672 EBANK= P40TMP
010200,000157: 01,2053 75456 37710 -2CADR T6CHNSET
010201,000158:
010202,000159: 01,2055 01750 DEC 1000 B-14
010203,000160: 01,2056 E7,1672 EBANK= P40TMP
010204,000161: 01,2056 75446 37710 -2CADR T6RESET
010205,000162:
010206,000163: # ANY MORE GROUP 3.EVEN RESTART VALUES SHOULD GO HERE
010207,000164:
010208,000165: 01,2060 20000 3.3SPOT OCT 20000
010209,000166: 01,2061 E7,1427 EBANK= TGO
010210,000167: 01,2061 02534 34067 2CADR S40.13
010211,000168:
010212,000169: 01,2063 76347 3.5SPOT -GENADR TGO +1
010213,000170: 01,2064 E7,1427 EBANK= TGO
010214,000171: 01,2064 74754 27710 -2CADR ENGINOFF
010215,000172:
010216,000173: 01,2066 22000 3.7SPOT OCT 22000
010217,000174: 01,2067 E5,1757 EBANK= OGC
010218,000175: 01,2067 02115 70065 2CADR MATRXJOB
010219,000176:
|
|
Page 232 |
010221,000178:
010222,000179: 01,2071 22000 3.11SPOT OCT 22000
010223,000180: 01,2072 E3,1706 EBANK= TEPHEM
010224,000181: 01,2072 02250 70063 2CADR REP11
010225,000182:
010226,000183: 01,2074 22000 3.13SPOT OCT 22000
010227,000184: 01,2075 E3,1706 EBANK= TEPHEM
010228,000185: 01,2075 02024 70063 2CADR REP11A
010229,000186:
010230,000187: 01,2077 01672 3.15SPOT GENADR P40TMP
010231,000188: 01,2100 75466 -GENADR T6SET
010232,000189: 01,2101 E7,1672 EBANK= P40TMP
010233,000190: 01,2101 40067 BBCON T6SET
010234,000191:
010235,000192: # ANY MORE GROUP 3.ODD RESTART VALUES SHOULD GO HERE
010236,000193:
010237,000194: 01,2102 77777 4.2SPOT OCT 77777
010238,000195: 01,2103 E7,1412 EBANK= TIG
010239,000196: 01,2103 75152 27710 -2CADR PRECHECK
010240,000197:
010241,000198: 01,2105 47777 OCT 47777 # PRIO 30 NOVAC
010242,000199: 01,2106 E7,1674 EBANK= DELVIMU
010243,000200: 01,2106 03730 50067 2CADR P47BODY
010244,000201:
010245,000202: 01,2110 77777 4.4SPOT OCT 77777
010246,000203: 01,2111 E7,1412 EBANK= TIG
010247,000204: 01,2111 75152 27710 -2CADR PRECHECK
010248,000205:
010249,000206: 01,2113 05664 DEC 2996 B-14
010250,000207: 01,2114 E6,1465 EBANK= DAPDATR1
010251,000208: 01,2114 74160 27711 -2CADR TTG/0
010252,000209:
010253,000210: 01,2116 77777 4.6SPOT OCT 77777
010254,000211: 01,2117 E7,1412 EBANK= TIG
010255,000212: 01,2117 75152 27710 -2CADR PRECHECK
010256,000213:
010257,000214: 01,2121 04700 DEC 2496 B-14
010258,000215: 01,2122 E7,1412 EBANK= TIG
010259,000216: 01,2122 75143 27710 -2CADR TIG-5
010260,000217:
010261,000218: # ANY MORE GROUP 4.EVEN RESTART VALUES SHOULD GO HERE
010262,000219:
010263,000220: 01,2124 00050 4.3SPOT DEC 40 B-14
010264,000221: 01,2125 E6,1423 EBANK= PACTOFF
010265,000222: 01,2125 75053 27711 -2CADR DOTVCON
010266,000223:
010267,000224: 01,2127 00240 4.5SPOT DEC 160 B-14
010268,000225: 01,2130 E6,1423 EBANK= PACTOFF
010269,000226: 01,2130 75022 27711 -2CADR DOSTRULL
010270,000227:
010271,000228: 01,2132 00764 4.7SPOT DEC 500 B-14
|
|
Page 233 |
010273,000230: 01,2133 E6,1423 EBANK= PACTOFF
010274,000231: 01,2133 75126 27711 -2CADR TIG-0
010275,000232:
010276,000233: 01,2135 77777 4.11SPOT DEC -0 B-14
010277,000234: 01,2136 E6,1423 EBANK= PACTOFF
010278,000235: 01,2136 75126 27711 -2CADR TIG-0
010279,000236:
010280,000237: 01,2140 47777 4.13SPOT OCT 47777 # PRIO 30 NOVAC
010281,000238: 01,2141 E6,1473 EBANK= CSMMASS
010282,000239: 01,2141 03411 50066 2CADR V97PJOB
010283,000240:
010284,000241: 01,2143 16000 4.15SPOT OCT 16000 # PRELAUNCH OPTICAL VERIFICATION
010285,000242: 01,2144 E5,1757 EBANK= OGC
010286,000243: 01,2144 02000 66065 2CADR COMPVER # CALLS FOR OPTICS DATA AGAIN (STD LEADIN)
010287,000244:
010288,000245: 01,2146 16000 4.17SPOT OCT 16000 # PRELAUNCH AZIMUTH CHANGE
010289,000246: 01,2147 E5,1671 EBANK= XSM
010290,000247: 01,2147 03132 66105 2CADR AZMTHCG1
010291,000248:
010292,000249: 01,2151 01672 4.21SPOT GENADR P40TMP # DELTA TIME USED IN SETTING UP
010293,000250: 01,2152 75212 -GENADR TIGBLNK # LONG CALL OF TIGBLNK BY P40,P41
010294,000251: 01,2153 E7,1672 EBANK= P40TMP
010295,000252: 01,2153 50067 BBCON TIGBLNK
010296,000253:
010297,000254: 01,2154 12000 4.23SPOT OCT 12000 # PROTECT P40S/SV BY P40 P41
010298,000255: 01,2155 E7,1412 EBANK= TIG
010299,000256: 01,2155 02523 50067 2CADR P40S/SV
010300,000257:
010301,000258: 01,2157 24000 4.25SPOT OCT 24000
010302,000259: 01,2160 0302 EBANK= BESTI
010303,000260: 01,2160 02002 30060 2CADR PROG52
010304,000261:
010305,000262: 01,2162 77777 4.27SPOT DEC -0 B-14
010306,000263: 01,2163 E6,1423 EBANK= PACTOFF
010307,000264: 01,2163 75113 27711 -2CADR IGNITION
010308,000265:
010309,000266: 01,2165 13000 4.31SPOT OCT 13000
010310,000267: 01,2166 E5,1765 EBANK= STAR
010311,000268: 01,2166 02622 30065 2CADR R51
010312,000269:
010313,000270: 01,2170 04064 4.33SPOT DEC 2100 B-14 # PROTECT CONTINUING JOB TO START P63
010314,000271: 01,2171 E6,1661 EBANK= AOG
010315,000272: 01,2171 75402 23711 -2CADR WAKEP62
010316,000273:
010317,000274: 01,2173 65777 4.35SPOT OCT 65777 # PRIO 12 NOVAC
010318,000275: 01,2174 E6,1465 EBANK= DAPDATR1
010319,000276: 01,2174 03174 50066 2CADR POSTBURN
010320,000277:
010321,000278: 01,2176 00764 4.37SPOT DEC 500 B-14
|
|
Page 234 |
010323,000280: 01,2177 E7,1412 EBANK= TIG
010324,000281: 01,2177 75175 27710 -2CADR TIGAVEG
010325,000282:
010326,000283: 01,2201 17000 4.41SPOT OCT 17000 # PROTECT DISPLAY JOB IN P67
010327,000284: 01,2202 E6,1661 EBANK= AOG
010328,000285: 01,2202 02511 54066 2CADR P67.1
010329,000286:
010330,000287: 01,2204 76003 4.43SPOT -GENADR S61DT # PROTECT TASK TO START PREREAD,ENTRY
010331,000288: 01,2205 E6,1774 EBANK= S61DT # S61.1C WILL CHANGE EBANK=EB7 FOR PREREAD
010332,000289: 01,2205 75210 23711 -2CADR S61.1C
010333,000290:
010334,000291: 01,2207 13000 4.45SPOT OCT 13000 # PROTECT CONTINUING JOB S61.1
010335,000292: 01,2210 E6,1661 EBANK= AOG # (ENTRY IMU ALIGNMENT)
010336,000293: 01,2210 02604 54066 2CADR S61.1A -1
010337,000294:
010338,000295: 01,2212 17000 4.47SPOT OCT 17000 # PROTECT HUNTEST ITERATION.
010339,000296: 01,2213 E6,1661 EBANK= AOG
010340,000297: 01,2213 03013 52066 2CADR PRE-HUNT
010341,000298:
010342,000299: 01,2215 77777 4.51SPOT OCT 77777 # PROTECT FDAI ATTITUDE
010343,000300: 01,2216 E6,1704 EBANK= SPOLYARG
010344,000301: 01,2216 75462 07711 -2CADR ATERTASK
010345,000302:
010346,000303: 01,2220 47777 4.53SPOT OCT 47777 # PRIO 30 NOVAC
010347,000304: 01,2221 E6,1473 EBANK= CSMMASS
010348,000305: 01,2221 03322 50066 2CADR V97EJOB
010349,000306:
010350,000307: 01,2223 64777 4.55SPOT OCT -13000 # PROTECT P65 RESPONSIVE DISPLAY
010351,000308: 01,2224 E7,1451 EBANK= RTINIT
010352,000309: 01,2224 02456 54067 2CADR P65.1
010353,000310:
010354,000311: 01,2226 76105 4.57SPOT -GENADR P40TMP
010355,000312: 01,2227 E7,1672 EBANK= P40TMP
010356,000313: 01,2227 74101 27710 -2CADR TIGON
010357,000314:
010358,000315: 01,2231 76317 4.61SPOT -GENADR AVEGDT +1
010359,000316: 01,2232 E7,1427 EBANK= TGO
010360,000317: 01,2232 74140 11710 -2CADR SIVBOFF
010361,000318:
010362,000319: # ANY MORE GROUP 4.ODD RESTART VALUES SHOULD GO HERE
010363,000320:
010364,000321: 01,2234 32000 5.2SPOT OCT 32000
010365,000322: 01,2235 E7,1425 EBANK= DVTOTAL
010366,000323: 01,2235 03154 76067 2CADR NORMLIZE
010367,000324:
010368,000325: 01,2237 00310 DEC 200 B-14
010369,000326: 01,2240 E6,1661 EBANK= AOG
010370,000327: 01,2240 74555 01711 -2CADR REREADAC
010371,000328:
010372,000329: 01,2242 20000 5.4SPOT OCT 20000
|
|
Page 235 |
010374,000331: 01,2243 E7,1425 EBANK= DVTOTAL
010375,000332: 01,2243 03010 76067 2CADR SERVICER
010376,000333:
010377,000334: 01,2245 00310 DEC 200 B-14
010378,000335: 01,2246 E6,1661 EBANK= AOG
010379,000336: 01,2246 74555 01711 -2CADR REREADAC
010380,000337:
010381,000338: # ANY MORE GROUP 5.EVEN RESTART VALUES SHOULD GO HERE
010382,000339:
010383,000340: 01,2250 00310 5.3SPOT DEC 200 B-14
010384,000341: 01,2251 E6,1661 EBANK= AOG
010385,000342: 01,2251 74555 01711 -2CADR REREADAC
010386,000343:
010387,000344: 01,2253 77777 5.5SPOT OCT 77777
010388,000345: 01,2254 E6,1661 EBANK= AOG
010389,000346: 01,2254 75120 01711 -2CADR REDO5.5
010390,000347:
010391,000348: 01,2256 20000 5.7SPOT OCT 20000 # USED BY PRELAUNCH
010392,000349: 01,2257 E5,1671 EBANK= XSM
010393,000350: 01,2257 02232 66065 2CADR RSTGTS1
010394,000351:
010395,000352: 01,2261 77777 5.11SPOT OCT 77777
010396,000353: 01,2262 E5,1671 EBANK= XSM
010397,000354: 01,2262 75421 11712 -2CADR ALLOOP1
010398,000355:
010399,000356: 01,2264 20000 5.13SPOT OCT 20000
010400,000357: 01,2265 E5,1671 EBANK= XSM
010401,000358: 01,2265 02303 66065 2CADR WTLISTNT
010402,000359:
010403,000360: 01,2267 20000 5.15SPOT OCT 20000
010404,000361: 01,2270 E5,1671 EBANK= XSM
010405,000362: 01,2270 03100 66065 2CADR RESTEST1
010406,000363:
010407,000364: 01,2272 77777 5.17SPOT OCT 77777
010408,000365: 01,2273 E7,1425 EBANK= DVTOTAL
010409,000366: 01,2273 75170 01710 -2CADR PREREAD
010410,000367:
010411,000368: 01,2275 22000 5.21SPOT OCT 22000
010412,000369: 01,2276 E5,1671 EBANK= XSM
010413,000370: 01,2276 02412 66065 2CADR ALFLT1
010414,000371:
010415,000372: 01,2300 77777 5.23SPOT OCT 77777
010416,000373: 01,2301 E5,1671 EBANK= XSM
010417,000374: 01,2301 75376 11712 -2CADR SPECSTS
010418,000375:
010419,000376: 01,2303 20000 5.25SPOT OCT 20000
010420,000377: 01,2304 E5,1671 EBANK= XSM
010421,000378: 01,2304 03111 66065 2CADR RESTEST3
010422,000379:
010423,000380: 01,2306 20000 5.27SPOT OCT 20000
|
|
Page 236 |
010425,000382: 01,2307 E5,1671 EBANK= XSM
010426,000383: 01,2307 03057 66065 2CADR RESTAIER
010427,000384:
010428,000385: 01,2311 77777 5.31SPOT OCT 77777
010429,000386: 01,2312 E6,1661 EBANK= AOG
010430,000387: 01,2312 75037 01711 -2CADR CHEKAVEG
010431,000388:
010432,000389: 01,2314 20000 5.33SPOT OCT 20000
010433,000390: 01,2315 E5,1671 EBANK= XSM
010434,000391: 01,2315 03134 66065 2CADR RESCHNG
010435,000392:
010436,000393: # ANY MORE GROUP 5.ODD RESTART VALUES SHOULD GO HERE
010437,000394:
010438,000395: 01,2317 77777 6.2SPOT OCT 77777 # USED BY P40 AFTER GIMB DR TST TO REPOS'N
010439,000396: 01,2320 E6,1476 EBANK= AK # ENGINE UNTIL TVCDAPON
010440,000397: 01,2320 75422 37711 -2CADR PRE40.6
010441,000398:
010442,000399: 01,2322 00144 DEC 100 B-14
010443,000400: 01,2323 E7,1660 EBANK= TTOGO
010444,000401: 01,2323 74552 27710 -2CADR CLOKTASK
010445,000402:
010446,000403: # ANY MORE 6.ODD RESTART VALUES SHOULD GO HERE
010447,000404:
010448,000405: 01,2325 00144 6.3SPOT DEC 100 B-14
010449,000406: 01,2326 E7,1412 EBANK= TIG
010450,000407: 01,2326 74552 27710 -2CADR CLOKTASK
010451,000408:
010452,000409: 01,2330 30000 6.5SPOT OCT 30000 # PROTECT INCREMENTING OF TIME2,TIME1 BY
010453,000410: 01,2331 E3,1706 EBANK= TEPHEM # P27NUPDATE PROGRAM)
010454,000411: 01,2331 03575 56063 2CADR TIMEDIDR
010455,000412:
010456,000413: 01,2333 50777 6.7SPOT OCT 50777 # PRIO 27 NOVAC
010457,000414: 01,2334 E6,1473 EBANK= CSMMASS
010458,000415: 01,2334 03365 50066 2CADR V97TJOB
010459,000416:
010460,000417: 01,2336 76052 6.11SPOT -GENADR CM/GYMDT # PROTECT TASK TO READ CDUS.
010461,000418: 01,2337 E6,1725 EBANK= CM/GYMDT # FOR ENTRY DAP
010462,000419: 01,2337 75714 45711 -2CADR READGYMB
010463,000420:
|
|
Page 237 |
010465,000422:
010466,000423: # PROGRAM DESCRIPTION: NEWPHASE DATE: 11 NOV 1966
010467,000424: # MOD: 1 ASSEMBLY: SUNBURST REV
010468,000425: # MOD BY: COPPS LOG SECTION: PHASE TABLE MAINTENANCE
010469,000426:
010470,000427: # FUNCTIONAL DESCRIPTION:
010471,000428:
010472,000429: # NEWPHASE IS THE QUICK WAY TO MAKE A NON VARIABLE PHASE CHANGE. IT INCLUDES THE OPTION OF SETTING
010473,000430: # TBASE OF THE GROUP. IF TBASE IS TO BE SET, -C(TIME1) IS STORED IN THE TBASE TABLE AS FOLLOWS:
010474,000431:
010475,000432: # (L-1) TBASE0
010476,000433: # (L) TBASE1 (IF GROUP=1)
010477,000434: # (L+1)
010478,000435: # (L+2) TBASE2 (IF GROUP=2)
010479,000436: # -----
010480,000437: # (L+6) TBASE4 (IF GROUP=4)
010481,000438: # (L+7)
010482,000439: # (L+8) TBASE5 (IF GROUP=5)
010483,000440:
010484,000441: # IN ANY CASE, THE NEGATIVE OF THE PHASE, FOLLOWED (IN THE NEXT REGISTER) BY THE PHASE, IS STORED IN THE
010485,000442: # PHASE TABLE AS FOLLOWS:
010486,000443:
010487,000444: # (L) -PHASE1 (IF GROUP=1)
010488,000445: # (L+1) PHASE1
010489,000446: # (L+2) -PHASE2 (IF GROUP=2)
010490,000447: # (L+3) PHASE2
010491,000448: # -----
010492,000449: # (L+7) PHASE4
010493,000450: # (L+8) -PHASE5 (IF GROUP=5)
010494,000451: # (L+9) PHASE5
010495,000452:
010496,000453: # CALLING SEQUENCE:
010497,000454:
010498,000455: # EXAMPLE IS FOR PLACING A PHASE OF FIVE INTO GROUP THREE:
010499,000456:
010500,000457: # 1) IF TBASE IS NOT TO BE SET:
010501,000458: # L-1 CA FIVE
010502,000459: # L TC NEWPHASE
010503,000460: # L+1 OCT 00003
010504,000461:
010505,000462: # 2) IF TBASE IS TO BE SET:
010506,000463: # L-1 CS FIVE
010507,000464: # L TC NEWPHASE
010508,000465: # L+1 OCT 00003
010509,000466:
010510,000467: # SUBROUTINES CALLED: NONE
010511,000468:
010512,000469: # NORMAL EXIT MODE: AT L+2 OF CALLING SEQUENCE
010513,000470:
010514,000471: # ALARM OR ABORT EXITS: NONE
010515,000472:
010516,000473: # OUTPUT: PHASE TABLE AND TBASE TABLE UPDATED
010517,000474:
010518,000475: # ERASABLE INITIALIZATION REQ,D: NONE
|
|
Page 238 |
010520,000477: # DEBRIS: A,L,TEMPG
010521,000478:
010522,000479: # *** WARNING *** THIS PROGRAM IS TO BE PLACED IN FIXED-FIXED AND UNSWITCHED ERASABLE.
010523,000480:
010524,000481: 4000 SETLOC FFTAG1
010525,000482: 4000 BANK
010526,000483:
010527,000484: 4126 COUNT* $$/PHASE
010528,000485:
010529,000486: 4126 00004 NEWPHASE INHINT
010530,000487:
010531,000488: 4127 54001 TS L # SAVE FOR FURTHER USE
010532,000489:
010533,000490: 4130 50002 NDX Q # OBTAIN THE GROUP NUMBER
010534,000491: 4131 30000 CA 0
010535,000492: 4132 24002 INCR Q # OBTAIN THE RETURN ADDRESS
010536,000493: 4133 60000 DOUBLE # SAVE THE GROUP IN A FORM USED FOR
010537,000494: 4134 54061 TS TEMPG # INDEXING
010538,000495:
010539,000496: 4135 10001 CCS L # SEE IF WE ARE TO SET TBASE
010540,000497: 4136 14145 TCF +7 # NO, THE DELTA T WAS POSITIVE
010541,000498: 4137 14145 TCF +6
010542,000499:
010543,000500: 4140 24000 NUFAZ+10 INCR A # SET TBASE AND STORE PHASE CORRECTLY
010544,000501: 4141 54001 TS L
010545,000502:
010546,000503: 4142 40025 CS TIME1 # SET TBASE
010547,000504: 4143 50061 NDX TEMPG
010548,000505: 4144 55255 TS TBASE1 -2
010549,000506:
010550,000507: 4145 40001 CS L # NOW PUT THE PHASE IN THE RIGHT TABLE LOC
010551,000508: 4146 50061 NDX TEMPG
010552,000509: 4147 53154 DXCH -PHASE1 -2
010553,000510:
010554,000511: 4150 15642 TCF REQ # NOW RETURN TO CALL
010555,000512:
010556,000513:
End of include-file RESTART_TABLES.agc. Parent file is MAIN.agc