Source Code
|
These source-code files were transcribed from scans made from Don Eyles's personal
copy of BURST120 (SUNBURST 120). They were scanned at archive.org's Boston
facility, and the scanning was sponsored by Mike Stewart. The code was transcribed
from these scans by a team of volunteers who are referenced in the program
comments. Comments from the original source code are in ALL-CAPS, whereas
comments added later in transcription are in Mixed-Case. In some cases, where
similar code blocks exist in previously-transcribed AGC programs (primarily
Luminary 99, from Apollo 11) those code blocks were used as a starting point and
then corrected to agree with the BURST120 scans. The full scans are available
at the Virtual AGC
project's collection at archive.org, while more-convenient reduced-size (but reduced-quality)
images are available at
the main Virtual AGC website. Report any errors noted by creating an
issue report at the Virtual AGC
project's GitHub repository. Notations on the program listing read, in part:YUL SYSTEM FOR AGC: REVISION 0 OF PROGRAM BURST120 BY NASA 2021106-031 DEC 7, 1967 THIS LISTING IS A COPY OF A VERSION OF THE PROGRAM INTENDED FOR USE IN THE ON-BOARD PRIMARY GUIDANCE COMPUTER IN THE UNMANNED FLIGHT OF APOLLO LUNAR MODULE 1 --- THE AS206 MISSION.Note that the date is the date of the printout, not the date of the program revision. |
003827,000002: ## Copyright: Public domain.
003828,000003: ## Filename: FRESH_START_AND_RESTART.agc
003829,000004: ## Purpose: A module for revision 0 of BURST120 (Sunburst). It
003830,000005: ## is part of the source code for the Lunar Module's
003831,000006: ## (LM) Apollo Guidance Computer (AGC) for Apollo 5.
003832,000007: ## Assembler: yaYUL
003833,000008: ## Contact: Ron Burkey <info@sandroid.org>.
003834,000009: ## Website: www.ibiblio.org/apollo/index.html
003835,000010: ## Mod history: 2016-09-30 RSB Created draft version.
003836,000011: ## 2016-10-05 RSB Finished transcription.
003837,000012: ## 2016-10-30 MAS A bunch of small corrections, and some missing lines.
003838,000013: ## 2016-11-01 RSB More typos.
003839,000014: ## 2016-12-03 RSB Fixed various typos using octopus/ProoferComments, but
003840,000015: ## there are still a couple of pages that are problematic
003841,000016: ## with respect to octopus, so the process isn't completed.
003842,000017: ## 2016-12-05 RSB octopus/ProoferComments based comment-proofing completed;
003843,000018: ## some corrections made.
003844,000019: ## 2017-03-13 RSB Comment-text fixes noted in proofing Luminary 116.
003845,000020: ## 2017-06-03 MAS Replaced some instances of P00H with POOH.
003846,000021:
|
|
Page 88 |
003848,000023: 01,2000 BANK 01
003849,000024: 01,2000 E3,1400 EBANK= LST1
003850,000025:
003851,000026: 01,2000 00004 SLAP1 INHINT # FRESH START. COMES HERE FROM PINBALL.
003852,000027: 01,2001 02357 TC STARTSUB # SUBROUTINE DOES MOST OF THE WORK.
003853,000028:
003854,000029: 01,2002 12007 STARTSW TCF GOON # PATCH FOR SIMULATIONS
003855,000030:
003856,000031: 01,2003 37746 STARTSIM CAF BIT14
003857,000032:
003858,000033: 01,2004 05516 TC FINDVAC
003859,000034: 01,2005 0061 EBANK= ITEMP1
003860,000035: 01,2005 03546 72060 2CADR BEGIN206
003861,000036:
003862,000037: 01,2007 37745 GOON CAF BIT15 # TURN OFF ALL DSPTAB +11D LAMPS ONLY ON
003863,000038: 01,2010 54326 TS DSPTAB +11D # REQUESTED FRESH START.
003864,000039:
003865,000040: 01,2011 47767 CS ZERO
003866,000041: 01,2012 55127 TS RSTRTWRD
003867,000042: 01,2013 54055 TS THRUST # INITIALIZE THROTTLE COUNTER.
003868,000043: 01,2014 55345 TS DAPOFFDT # OVERWRITE IN ERASABLE LOAD IF DESIRED.
003869,000044: 01,2015 55162 TS JETRESET # PROPERTY OF RCSMONIT.
003870,000045:
003871,000046: 01,2016 35661 CA EBANK5
003872,000047: 01,2017 54001 TS L
003873,000048: 01,2020 22003 LXCH EBANK
003874,000049: 01,2021 E5,1534 EBANK= ABDELV
003875,000050: 01,2021 37767 CA ZERO
003876,000051: 01,2022 55534 TS ABDELV # FOR DAP INITIALIZATION
003877,000052: 01,2023 55535 TS ABDELV +1
003878,000053: 01,2024 E3,1400 EBANK= LST1
003879,000054: 01,2024 22003 LXCH EBANK
003880,000055:
003881,000056: 01,2025 55163 TS THISCH32
003882,000057: 01,2026 54101 TS LMPJFAIL
003883,000058: 01,2027 54102 TS CH5MASK
003884,000059: 01,2030 54103 TS CH6MASK
003885,000060:
003886,000061: 01,2031 55356 TS REDOCTR
003887,000062: 01,2032 55360 TS FAILREG
003888,000063: 01,2033 55361 TS FAILREG +1
003889,000064: 01,2034 55362 TS FAILREG +2
003890,000065:
003891,000066: 01,2035 37762 CA TWO # SET UP VALUES FOR DVCNTR. THESE MAY
003892,000067: 01,2036 55337 TS STARTDVC # BE OVERWRITTEN IN ERASABLE LOAD IF
003893,000068: 01,2037 55340 TS STOPDVC # ANYBODY WANTS TO.
003894,000069:
003895,000070: 01,2040 37743 CA POSMAX # TENTATIVELY LOAD WITH INFINITY. MAY
003896,000071: 01,2041 55336 TS SLOSHCTR # BE REPLACED VIA ERASABLE LOAD.
003897,000072:
|
|
Page 89 |
003899,000074: 01,2042 47767 DOFSTART CS ZERO # MAKE ALL MTIMER/MPHASE PAIRS AVAILABLE.
003900,000075: 01,2043 55164 TS MTIMER4
003901,000076: 01,2044 55165 TS MTIMER3
003902,000077: 01,2045 55166 TS MTIMER2
003903,000078: 01,2046 55167 TS MTIMER1
003904,000079: 01,2047 55170 TS MPHASE4
003905,000080: 01,2050 55171 TS MPHASE3
003906,000081: 01,2051 55172 TS MPHASE2
003907,000082: 01,2052 55173 TS MPHASE1
003908,000083:
003909,000084: 01,2053 47763 CS ONE
003910,000085: 01,2054 55145 TS LMPOUTT
003911,000086:
003912,000087: # INITIALIZE SWITCH REGISTERS INCLUDING DAPBOOLS:
003913,000088:
003914,000089: 01,2055 37761 CA FOUR # INITIALIZE STATE THRU STATE +4 ONLY.
003915,000090: 01,2056 54001 INITSW TS L
003916,000091: 01,2057 50001 INDEX L
003917,000092: 01,2060 32576 CA SWINIT
003918,000093: 01,2061 50001 INDEX L
003919,000094: 01,2062 54074 TS STATE
003920,000095: 01,2063 10001 CCS L
003921,000096: 01,2064 12056 TCF INITSW
003922,000097:
003923,000098: 01,2065 55355 TS SMODE
003924,000099: 01,2066 55353 TS ERESTORE
003925,000100: 01,2067 55133 TS LMPCMD # RESET LMP COMMAND AREA.
003926,000101: 01,2070 55134 TS LMPCMD +1
003927,000102: 01,2071 55135 TS LMPCMD +2
003928,000103: 01,2072 55136 TS LMPCMD +3
003929,000104: 01,2073 55137 TS LMPCMD +4
003930,000105: 01,2074 55140 TS LMPCMD +5
003931,000106: 01,2075 55141 TS LMPCMD +6
003932,000107: 01,2076 55142 TS LMPCMD +7
003933,000108: 01,2077 55143 TS LMPIN
003934,000109: 01,2100 55144 TS LMPOUT
003935,000110:
003936,000111: 01,2101 00006 EXTEND # TURN THE RCS JETS OFF.
003937,000112: 01,2102 01005 WRITE 5
003938,000113: 01,2103 00006 EXTEND
003939,000114: 01,2104 01006 WRITE 6
003940,000115:
003941,000116: 01,2105 32570 CAF IM30INIF # FRESH START IMU INITIALIZATION.
003942,000117: 01,2106 54365 TS IMODES30
003943,000118:
003944,000119: 01,2107 37752 CAF BIT10 # REMOVE IMU FAIL INHIBIT IN 5 SECS.
003945,000120: 01,2110 05663 TC WAITLIST
003946,000121: 01,2111 E3,1400 EBANK= LST1
003947,000122: 01,2111 02273 26063 2CADR IFAILOK
003948,000123:
|
|
Page 90 |
003950,000125: 01,2113 00006 EXTEND # SETTING T5RUPT FOR SETIDLER PROGRAM
003951,000126: 01,2114 32606 DCA SETADR # THE SETIDLER PROGRAM ASSURES 1 SECOND
003952,000127: 01,2115 53001 DXCH T5ADR # DELAY BEFORE THE DAPIDLER BEGINS.
003953,000128:
003954,000129: 01,2116 34276 CAF LNORMT4
003955,000130: 01,2117 54346 TS T4LOC
003956,000131:
003957,000132: 01,2120 32554 CA LDNTMGO
003958,000133: 01,2121 54001 TS L
003959,000134: 01,2122 22003 LXCH EBANK
003960,000135:
003961,000136: 01,2123 E7,1401 EBANK= DNTMGOTO
003962,000137:
003963,000138: 01,2123 32553 CA LDNPHAS1
003964,000139: 01,2124 55401 TS DNTMGOTO
003965,000140:
003966,000141: 01,2125 32556 CA SETCDULM
003967,000142: 01,2126 55405 TS CDULMIT # OVERWRITE IN ERASABLE LOAD IF DESIRED.
003968,000143:
003969,000144: 01,2127 32557 CA IDNCDUN
003970,000145: 01,2130 55404 TS DNCDUN # OVERWRITE IN ERASABLE LOAD IF DESIRED.
003971,000146:
003972,000147: 01,2131 22003 LXCH EBANK
003973,000148:
003974,000149: 01,2132 E3,1400 EBANK= LST1
003975,000150:
003976,000151: 01,2132 02151 TC MR.CLEAN # DEACTIVATE ALL RESTART GROUPS.
003977,000152:
003978,000153: 01,2133 00003 RELINT # LET AN INTERRUPT IN.
003979,000154: 01,2134 12135 NOOP
003980,000155: 01,2135 00004 INHINT
003981,000156:
003982,000157: 01,2136 05270 TC IBNKCALL
003983,000158: 01,2137 40315 CADR 1STENGOF
003984,000159:
003985,000160: 01,2140 37767 POOH3 CA ZERO
003986,000161: 01,2141 54302 TS MODREG
003987,000162: 01,2142 54764 TS PHASENUM
003988,000163:
003989,000164: 01,2143 00003 ENDRSTRT RELINT
003990,000165: 01,2144 05206 TC BANKCALL # DISPLAY MAJOR MODE.
003991,000166: 01,2145 12001 CADR DSPMM
003992,000167:
003993,000168: 01,2146 06051 TC FLAG1UP # TURN ON RESTARTABILITY FLAG.
003994,000169: 01,2147 04000 OCT 4000
003995,000170:
003996,000171: 01,2150 15600 TCF DUMMYJOB +2 # DONT ZERO NEWJOB
003997,000172:
|
|
Page 91 |
003999,000174: 01,2151 37764 MR.CLEAN CAF ELEVEN # INITIALIZE PHASE TABLE. DO IT THIS WAY
004000,000175: 01,2152 54120 +1 TS BUF # TO MINIMIZE THE TIME OF PHASE TABLE
004001,000176:
004002,000177: 01,2153 47767 CS ZERO # DISAGREEMENT.
004003,000178: 01,2154 22007 ZL
004004,000179: 01,2155 50120 INDEX BUF
004005,000180: 01,2156 53077 DXCH -PHASE1 -1
004006,000181:
004007,000182: 01,2157 10120 CCS BUF
004008,000183: 01,2160 10000 CCS A
004009,000184: 01,2161 12152 TCF MR.CLEAN +1
004010,000185:
004011,000186: 01,2162 00002 TC Q
004012,000187:
|
|
Page 92 |
004014,000189: # COMES HERE FROM LOCATION 4000, GOJAM. RESTART ANY PROGRAMS WHICH MAY HAVE BEEN RUNNING AT THE TIME.
004015,000190:
004016,000191: 01,2163 25356 GOPROG INCR REDOCTR # ANOTHER RESTART.
004017,000192:
004018,000193: 01,2164 22002 LXCH Q
004019,000194: 01,2165 53775 DXCH RSBB&Q # SAVE BBANK & Q FOR RESTART ANALYSIS.
004020,000195:
004021,000196: 01,2166 02357 TC STARTSUB
004022,000197:
004023,000198: 01,2167 37745 CA BIT15 # TEST THE OSC FAIL BIT TO SEE IF WE HAVE
004024,000199: 01,2170 00006 EXTEND # HAD A POWER TRANSIENT. IF SO, ATTEMPT
004025,000200: 01,2171 03033 WAND 33 # A RESTART. IF NOT, CHECK THE PRESENT
004026,000201: 01,2172 00006 EXTEND # STATE OF AGC WARNING.
004027,000202: 01,2173 12201 BZF LIGHTSET
004028,000203:
004029,000204: 01,2174 37746 CA BIT14 # IF AGC WARNING ON (BIT = 0), DO A FRESH
004030,000205: 01,2175 00006 EXTEND # START ON THE ASSUMPTION THAT WE'RE IN A
004031,000206: 01,2176 02033 RAND 33 # RESTART LOOP.
004032,000207: 01,2177 00006 EXTEND
004033,000208: 01,2200 12042 BZF DOFSTART
004034,000209:
004035,000210: 01,2201 00006 LIGHTSET EXTEND # DONT TRY TO RESTART IF ERROR
004036,000211: 01,2202 00015 READ 15 # AND MARK REJECT BUTTONS DEPRESSED.
004037,000212: 01,2203 62565 AD -ELR
004038,000213: 01,2204 00006 EXTEND
004039,000214: 01,2205 12207 BZF +2
004040,000215: 01,2206 12215 TCF +7
004041,000216:
004042,000217: 01,2207 37757 CAF BIT5
004043,000218: 01,2210 00006 EXTEND
004044,000219: 01,2211 02016 RAND 16
004045,000220: 01,2212 62566 AD -MKREJ
004046,000221: 01,2213 00006 EXTEND
004047,000222: 01,2214 12042 BZF DOFSTART
004048,000223:
004049,000224: 01,2215 31353 CA ERESTORE # IF SELF-CHECK ERASABLE-MEMORY TEST WAS
004050,000225: 01,2216 00006 EXTEND # INTERRUPTED BY A RESTART, DOUBT ERASABLE
004051,000226: 01,2217 12221 BZF +2 # AND DO A FRESH START.
004052,000227: 01,2220 12042 TCF DOFSTART
004053,000228:
004054,000229: 01,2221 32574 CA 9,6,4 # LEAVE PROG ALARM, GIMBAL LOCK & NO ATT
004055,000230: 01,2222 70326 MASK DSPTAB +11D # LAMPS INTACT ON RESTART.
004056,000231: 01,2223 67745 AD BIT15
004057,000232: 01,2224 56326 XCH DSPTAB +11D # IF NO ATT LAMP WAS ON, LEAVE ISS IN
004058,000233: 01,2225 77760 MASK BIT4 # COARSE ALIGN.
004059,000234: 01,2226 00006 EXTEND
004060,000235: 01,2227 05012 WOR 12
004061,000236:
004062,000237: 01,2230 32571 CAF IFAILINH # LEAVE IMU FAILURE INHIBITS INTACT ON
004063,000238: 01,2231 70365 MASK IMODES30 # RESTART, RESETTING ALL FAILURE CODES.
004064,000239:
|
|
Page 93 |
004066,000241: 01,2232 62572 AD IM30INIR # THE RECORD OF THE ISS OPERATE BIT IS
004067,000242: 01,2233 54365 TS IMODES30 # ALSO LEFT ALONE (206 ONLY).
004068,000243:
004069,000244: 01,2234 00006 EXTEND # SETTING T5RUPT FOR DAPIDLER PROGRAM
004070,000245: 01,2235 32604 DCA IDLEADR
004071,000246: 01,2236 53001 DXCH T5ADR
004072,000247:
004073,000248: 01,2237 35660 CAF PRIO37 # DISPLAY FAILREG AS INDICATION OF RESTART
004074,000249: 01,2240 05505 TC NOVAC # OR TO DISPLAY ABORT CODE AS ABOVE.
004075,000250: 01,2241 E3,1400 EBANK= LST1
004076,000251: 01,2241 02106 16063 2CADR DOALARM
004077,000252:
004078,000253: 01,2243 40346 CS T4LOC # SEE IF LMP COMMAND WAS SITTING IN CH 10
004079,000254: 01,2244 62561 AD LLMPRS2 # WHEN RESTART OCCURRED. IF SO, SET BIT 15
004080,000255: 01,2245 00006 EXTEND # BACK TO ZERO SO THE COMMAND WILL BE
004081,000256: 01,2246 12255 BZF LMPRUPT # RESENT.
004082,000257:
004083,000258: 01,2247 11145 CCS LMPOUTT # IF NOT, SEE IF UPDATE OF REFERENCE
004084,000259: 01,2250 67763 AD ONE # POINTER (LMPOUT) WAS IN PROCESS. IF SO,
004085,000260: 01,2251 55144 TS LMPOUT # LMPOUTT IS NON-NEGATIVE.
004086,000261: 01,2252 47763 CS ONE # SHOW LMPOUT UPDATED.
004087,000262: 01,2253 55145 TS LMPOUTT
004088,000263: 01,2254 12262 TCF T4LOCRST
004089,000264:
004090,000265: 01,2255 51144 LMPRUPT INDEX LMPOUT
004091,000266: 01,2256 41133 CS LMPCMD
004092,000267: 01,2257 77745 MASK BIT15
004093,000268: 01,2260 51144 INDEX LMPOUT
004094,000269: 01,2261 27133 ADS LMPCMD
004095,000270:
004096,000271: 01,2262 34276 T4LOCRST CAF LNORMT4
004097,000272: 01,2263 54346 TS T4LOC
004098,000273:
004099,000274: 01,2264 37760 CA BIT4 # TURN THROTTLE COUNTER ON. (IF EMPTY,
004100,000275: 01,2265 00006 EXTEND # NO HARM DONE. IF NON-EMPTY, ASSUME
004101,000276: 01,2266 05014 WOR 14 # CONTENTS ARE VALID.)
004102,000277:
004103,000278: 01,2267 37750 CAF BIT12 # TEST THE RESTARTABILITY FLAG.
004104,000279: 01,2270 70075 MASK FLAGWRD1
004105,000280: 01,2271 10000 CCS A
004106,000281: 01,2272 12275 TCF +3 # RESTARTABLE.
004107,000282: 01,2273 05225 TC POSTJUMP # NOT RESTARTABLE. DO A FAKESTART.
004108,000283: 01,2274 16000 CADR FAKESTRT
004109,000284:
004110,000285: 01,2275 00003 GOPROG2 RELINT
004111,000286: 01,2276 12277 NOOP
004112,000287: 01,2277 00004 INHINT # LET AN INTERRUPT IN
004113,000288:
004114,000289: 01,2300 37766 CAF NUMGRPS # VERIFY PHASE TABLE AGREEMENT.
004115,000290: 01,2301 54151 PCLOOP TS MPAC +5
|
|
Page 94 |
004117,000292: 01,2302 60000 DOUBLE
004118,000293: 01,2303 00006 EXTEND
004119,000294: 01,2304 50000 INDEX A
004120,000295: 01,2305 31100 DCA -PHASE1 # COMPLEMENT INTO A, DIRECT INTO L.
004121,000296: 01,2306 00006 EXTEND
004122,000297: 01,2307 06001 RXOR L # RESULT MUST BE -0 FOR AGREEMENT.
004123,000298: 01,2310 10000 CCS A
004124,000299: 01,2311 12347 TCF PTBAD # RESTART FAILURE.
004125,000300: 01,2312 12347 TCF PTBAD
004126,000301: 01,2313 12347 TCF PTBAD
004127,000302:
004128,000303: 01,2314 10151 CCS MPAC +5 # PROCESS ALL RESTART GROUPS.
004129,000304: 01,2315 12301 TCF PCLOOP
004130,000305:
004131,000306: 01,2316 54152 TS MPAC +6 # SET TO +0.
004132,000307:
004133,000308: 01,2317 37766 CAF NUMGRPS # SEE IF ANY GROUPS RUNNING.
004134,000309: 01,2320 54151 NXTRST TS MPAC +5
004135,000310: 01,2321 60000 DOUBLE
004136,000311: 01,2322 50000 INDEX A
004137,000312: 01,2323 11100 CCS PHASE1
004138,000313: 01,2324 12326 TCF PACTIVE # PNZ - GROUP ACTIVE.
004139,000314: 01,2325 12333 TCF PINACT # +0 - GROUP NOT RUNNING.
004140,000315:
004141,000316: 01,2326 54144 PACTIVE TS MPAC
004142,000317: 01,2327 24144 INCR MPAC # ABS OF PHASE.
004143,000318: 01,2330 24152 INCR MPAC +6 # INDICATE GROUP DEMANDS PRESENT.
004144,000319: 01,2331 32353 CA RACTCADR # GO TO RESTARTS AND PROCESS PHASE INFO.
004145,000320: 01,2332 05212 TC SWCALL # MUST RETURN TO SWRETURN.
004146,000321:
004147,000322: 01,2333 10151 PINACT CCS MPAC +5 # PROCESS ALL RESTART GROUPS.
004148,000323: 01,2334 12320 TCF NXTRST
004149,000324:
004150,000325: 01,2335 10152 CCS MPAC +6 # SEE IF ANY GROUPS WERE ACTIVE.
004151,000326: 01,2336 12143 TCF ENDRSTRT # YES, THERE WERE.
004152,000327:
004153,000328: 01,2337 04755 TC ALARM # RESTART WITH NO ACTIVE GROUPS.
004154,000329: 01,2340 01110 OCT 1110
004155,000330:
004156,000331: 01,2341 40075 CS FLAGWRD1 # WAS THE RESTARTABILITY FLAG SET?
004157,000332: 01,2342 77750 MASK BIT12
004158,000333: 01,2343 10000 CCS A
004159,000334: 01,2344 12607 TCF POOH2 # NO.
004160,000335: 01,2345 54302 TS MODREG # YES. SET MAJOR MODE TO 00.
004161,000336: 01,2346 12143 TCF ENDRSTRT
004162,000337:
004163,000338: 01,2347 04755 PTBAD TC ALARM # SET ALARM TO SHOW PHASE TABLE FAILURE.
004164,000339: 01,2350 01107 OCT 1107
004165,000340:
004166,000341: 01,2351 00004 INHINT
|
|
Page 95 |
004168,000343: 01,2352 12042 TCF DOFSTART
004169,000344:
004170,000345: 01,2353 14377 RACTCADR CADR RESTARTS
004171,000346:
004172,000347: 01,2354 00004 ENEMA INHINT # HAVING PRESET PHASE REGISTERS, DO A
004173,000348: 01,2355 02374 TC STARTSB2 # PSEUDO-RESTART. (THE RESTARTABILITY
004174,000349: 01,2356 12275 TCF GOPROG2 # FLAG MUST BE SET WHEN ENEMA IS CALLED.)
004175,000350:
|
|
Page 96 |
004177,000352: # INITIALIZATION COMMON TO BOTH FRESH START AND RESTART.
004178,000353:
004179,000354: 01,2357 37767 STARTSUB CA ZERO
004180,000355: 01,2360 00006 EXTEND # TURN THE RCS JETS OFF.
004181,000356: 01,2361 01005 WRITE 5
004182,000357: 01,2362 00006 EXTEND
004183,000358: 01,2363 01006 WRITE 6
004184,000359:
004185,000360: 01,2364 00006 EXTEND
004186,000361: 01,2365 01012 WRITE 12 # TURN OFF TRIM GIMBAL.
004187,000362:
004188,000363: 01,2366 37743 CA POSMAX
004189,000364: 01,2367 54026 TS TIME3 # 37777 TO TIME3.
004190,000365: 01,2370 65336 AD MINUS2
004191,000366: 01,2371 54027 TS TIME4 # 37775 TO TIME4.
004192,000367: 01,2372 67771 AD NEGONE
004193,000368: 01,2373 54030 TS TIME5 # 37774 TO TIME5.
004194,000369:
004195,000370: 01,2374 37767 STARTSB2 CAF ZERO # ENTRY FROM P00 AND FORGETIT.
004196,000371: 01,2375 00006 EXTEND
004197,000372: 01,2376 01007 WRITE 7 # NOTHING IN SUNBURST IS IN BANKS 40 - 43.
004198,000373: 01,2377 00006 EXTEND
004199,000374: 01,2400 01011 WRITE 11
004200,000375: 01,2401 00006 EXTEND
004201,000376: 01,2402 01014 WRITE 14
004202,000377:
004203,000378: 01,2403 32567 CA TRIMGIMB # TURN OFF ALL BITS BUT TRIM GIMBAL.
004204,000379: 01,2404 00006 EXTEND
004205,000380: 01,2405 03012 WAND 12
004206,000381:
004207,000382: 01,2406 35655 CAF PRIO34 # ENABLE INTERRUPTS.
004208,000383: 01,2407 00006 EXTEND
004209,000384: 01,2410 01013 WRITE 13
004210,000385:
004211,000386: 01,2411 E3,1400 EBANK= LST1
004212,000387:
004213,000388: 01,2411 32564 CAF STARTEB
004214,000389: 01,2412 54003 TS EBANK # SET FOR E3
004215,000390:
004216,000391: 01,2413 37744 CAF NEG1/2 # INITIALIZE WAITLIST DELTA-TS.
004217,000392: 01,2414 55407 TS LST1 +7
004218,000393: 01,2415 55406 TS LST1 +6
004219,000394: 01,2416 55405 TS LST1 +5
004220,000395: 01,2417 55404 TS LST1 +4
004221,000396: 01,2420 55403 TS LST1 +3
004222,000397: 01,2421 55402 TS LST1 +2
004223,000398: 01,2422 55401 TS LST1 +1
004224,000399: 01,2423 55400 TS LST1
004225,000400:
004226,000401: 01,2424 45714 CS ENDTASK
|
|
Page 97 |
004228,000403: 01,2425 55410 TS LST2
004229,000404: 01,2426 55412 TS LST2 +2
004230,000405: 01,2427 55414 TS LST2 +4
004231,000406: 01,2430 55416 TS LST2 +6
004232,000407: 01,2431 55420 TS LST2 +8D
004233,000408: 01,2432 55422 TS LST2 +10D
004234,000409: 01,2433 55424 TS LST2 +12D
004235,000410: 01,2434 55426 TS LST2 +14D
004236,000411: 01,2435 55430 TS LST2 +16D
004237,000412: 01,2436 45715 CS ENDTASK +1
004238,000413: 01,2437 55411 TS LST2 +1
004239,000414: 01,2440 55413 TS LST2 +3
004240,000415: 01,2441 55415 TS LST2 +5
004241,000416: 01,2442 55417 TS LST2 +7
004242,000417: 01,2443 55421 TS LST2 +9D
004243,000418: 01,2444 55423 TS LST2 +11D
004244,000419: 01,2445 55425 TS LST2 +13D
004245,000420: 01,2446 55427 TS LST2 +15D
004246,000421: 01,2447 55431 TS LST2 +17D
004247,000422:
004248,000423: 01,2450 47767 CS ZERO # MAKE ALL EXECUTIVE REGISTER SETS
004249,000424: 01,2451 54157 TS PRIORITY # AVAILABLE.
004250,000425: 01,2452 54173 TS PRIORITY +12D
004251,000426: 01,2453 54207 TS PRIORITY +24D
004252,000427: 01,2454 54223 TS PRIORITY +36D
004253,000428: 01,2455 54237 TS PRIORITY +48D
004254,000429: 01,2456 54253 TS PRIORITY +60D
004255,000430: 01,2457 54267 TS PRIORITY +72D
004256,000431:
004257,000432: 01,2460 54067 TS NEWJOB # SHOWS NO ACTIVE JOBS.
004258,000433:
004259,000434: 01,2461 32562 CAF VAC1ADRC # MAKE ALL VAC AREAS AVAILABLE.
004260,000435: 01,2462 54430 TS VAC1USE
004261,000436: 01,2463 62563 AD LTHVACA
004262,000437: 01,2464 54504 TS VAC2USE
004263,000438: 01,2465 62563 AD LTHVACA
004264,000439: 01,2466 54560 TS VAC3USE
004265,000440: 01,2467 62563 AD LTHVACA
004266,000441: 01,2470 54634 TS VAC4USE
004267,000442: 01,2471 62563 AD LTHVACA
004268,000443: 01,2472 54710 TS VAC5USE
004269,000444:
004270,000445: 01,2473 34570 CAF TEN # TURN OFF ALL DISPLAY SYSTEM RELAYS.
004271,000446: 01,2474 54350 TS DIDFLG # DISPLAY INERTIAL DATA FLAG.
004272,000447: 01,2475 54144 DSPOFF TS MPAC
004273,000448: 01,2476 47750 CS BIT12
004274,000449: 01,2477 50144 INDEX MPAC
004275,000450: 01,2500 54313 TS DSPTAB
004276,000451: 01,2501 10144 CCS MPAC
004277,000452: 01,2502 12475 TCF DSPOFF
|
|
Page 98 |
004279,000454: 01,2503 54045 TS INLINK
004280,000455: 01,2504 54345 TS DSPCNT
004281,000456: 01,2505 54327 TS CADRSTOR
004282,000457: 01,2506 54304 TS REQRET
004283,000458: 01,2507 54306 TS CLPASS
004284,000459: 01,2510 54303 TS DSPLOCK
004285,000460: 01,2511 54311 TS MONSAVE # KILL MONITOR
004286,000461: 01,2512 54312 TS MONSAVE1
004287,000462: 01,2513 54330 TS GRABLOCK
004288,000463: 01,2514 54272 TS VERBREG
004289,000464: 01,2515 54273 TS NOUNREG
004290,000465: 01,2516 54333 TS DSPLIST
004291,000466: 01,2517 54334 TS DSPLIST +1
004292,000467: 01,2520 54335 TS DSPLIST +2
004293,000468:
004294,000469: 01,2521 54373 TS MARKSTAT
004295,000470: 01,2522 54336 TS EXTVBACT # MAKE EXTENDED VERBS AVAILABLE
004296,000471: 01,2523 54367 TS IMUCADR
004297,000472: 01,2524 54370 TS OPTCADR
004298,000473: 01,2525 54371 TS RADCADR
004299,000474: 01,2526 54372 TS ATTCADR
004300,000475: 01,2527 54356 TS LGYRO
004301,000476: 01,2530 54347 TS DSRUPTSW
004302,000477: 01,2531 37764 CAF NOUTCON
004303,000478: 01,2532 54307 TS NOUT
004304,000479:
004305,000480: 01,2533 47763 CS ONE # NO RADAR DESIGNATION.
004306,000481: 01,2534 54413 TS SAMPLIM # NO RADAR RUPTS EXPECTED.
004307,000482:
004308,000483: 01,2535 32573 CAF IM33INIT # NO PIP OR TM FAILS.
004309,000484: 01,2536 54366 TS IMODES33
004310,000485:
004311,000486: 01,2537 37756 CAF BIT6 # SET LR POS.
004312,000487: 01,2540 00006 EXTEND
004313,000488: 01,2541 02033 RAND 33
004314,000489: 01,2542 62575 AD RMODINIT
004315,000490: 01,2543 54412 TS RADMODES
004316,000491:
004317,000492: 01,2544 32560 CAF LESCHK # SELF CHECK GO-TO REGISTER.
004318,000493: 01,2545 55354 TS SELFRET
004319,000494:
004320,000495: 01,2546 44565 CS VD1
004321,000496: 01,2547 54270 TS DSPCOUNT
004322,000497:
004323,000498: 01,2550 32555 CAF NOMTMLST # SET UP NOMINAL DOWNLINK LIST.
004324,000499: 01,2551 54411 TS DNLSTADR
004325,000500:
004326,000501: 01,2552 00002 TC Q
004327,000502:
004328,000503: 01,2553 02006 LDNPHAS1 GENADR DNPHASE1
|
|
Page 99 |
004330,000505: 01,2554 03401 LDNTMGO ECADR DNTMGOTO
004331,000506: 01,2555 02236 NOMTMLST GENADR NOMDNLST
004332,000507: 01,2556 01616 SETCDULM DEC 0.055555555 # 10 DEGREES, SCALED IN HALF-REVS.
004333,000508: 01,2557 00306 IDNCDUN DEC 198 B-14 # 199 CDU SAMPLES + ONE ID = 4 SECS.
004334,000509: 01,2560 02115 LESCHK GENADR SELFCHK
004335,000510: 01,2561 02013 LLMPRS2 GENADR LMPRESET
004336,000511: 01,2562 00430 VAC1ADRC ADRES VAC1USE
004337,000512: 01,2563 00054 LTHVACA DEC 44 B-14
004338,000513: 01,2564 01400 STARTEB ECADR LST1
004339,000514: 01,2565 7766 NUMGRPS EQUALS FIVE # SIX GROUPS CURRENTLY.
004340,000515: 01,2565 77755 -ELR OCT -22 # -ERROR LIGHT RESET KEY CODE.
004341,000516: 01,2566 77757 -MKREJ OCT -20 # - MARK REJECT.
004342,000517: 01,2567 07400 TRIMGIMB OCT 07400 # TRIM GIMBAL DRIVE BITS IN CHANNEL 12.
004343,000518: 01,2570 37411 IM30INIF OCT 37411 # INHIBITS IMU FAIL FOR 5 SEC AND PIP ISSW
004344,000519: 01,2571 00435 IFAILINH OCT 435 # ISS OPERATE, & FAILURE INHIBIT BITS.
004345,000520: 01,2572 37000 IM30INIR OCT 37000 # LEAVE FAIL INHIBITS & OPERATE ALONE.
004346,000521: 01,2573 16000 IM33INIT OCT 16000 # NO PIP OR TM FAIL SIGNALS.
004347,000522: 01,2574 00450 9,6,4 OCT 450
004348,000523: 01,2575 00102 RMODINIT OCT 00102
004349,000524:
004350,000525: 01,2576 00000 SWINIT OCT 0
004351,000526: 01,2577 00000 OCT 0
004352,000527: 01,2600 00005 OCT 00005
004353,000528: 01,2601 40512 DAPINIT OCT 40512 # DB SET IN SETIDLE
004354,000529: 01,2602 00000 OCT 0
004355,000530:
004356,000531: 01,2603 E6,1542 EBANK= DT
004357,000532: 01,2603 02037 34066 IDLEADR 2CADR DAPIDLER
004358,000533:
004359,000534: 01,2605 E6,1542 EBANK= DT
004360,000535: 01,2605 03606 34066 SETADR 2CADR SETIDLE
004361,000536:
|
|
Page 100 |
004363,000538: # PROGRAM TO REVERT TO IDLING MODE (P 00).
004364,000539:
004365,000540: # CALLING SEQUENCE: TC (OR TCF) POOH UNDER EXEC (NOT INTERRUPTED).
004366,000541:
004367,000542: 4272 BLOCK 2
004368,000543:
004369,000544: 4272 05225 POOH TC POSTJUMP
004370,000545: 4273 02607 CADR POOH2 # DO A PARTIAL FRESH START.
004371,000546:
004372,000547:
004373,000548: 01,2607 BANK 01
004374,000549: 01,2607 00004 POOH2 INHINT
004375,000550: 01,2610 02374 TC STARTSB2
004376,000551:
004377,000552: 01,2611 05270 TC IBNKCALL
004378,000553: 01,2612 40114 CADR STOPRATE
004379,000554:
004380,000555: 01,2613 05270 TC IBNKCALL
004381,000556: 01,2614 40054 CADR SETMAXDB
004382,000557:
004383,000558: 01,2615 06067 TC FLAG1DWN # FOR A MOMENT, INDICATE NON-RESTART-
004384,000559: 01,2616 04000 OCT 4000 # ABILITY, SO A RESTART HERE WILL DO POOH.
004385,000560:
004386,000561: 01,2617 06076 TC FLAG2DWN
004387,000562: 01,2620 00020 OCT 20 # TURN OFF MISSION TIMER FLAG.
004388,000563:
004389,000564: 01,2621 00004 INHINT
004390,000565: 01,2622 02151 TC MR.CLEAN # DEACTIVATE ALL RESTART GROUPS.
004391,000566:
004392,000567: 01,2623 32625 CA LPOOH3 # PICK UP RETURN FOR MSTART.
004393,000568: 01,2624 05161 TC MSTART -1 # START MISSION TIMERS COUNTING.
004394,000569: # WE GET A RELINT AT MSTART.
004395,000570:
004396,000571:
004397,000572: 01,2625 02140 LPOOH3 ADRES POOH3
004398,000573:
|
|
Page 101 |
004400,000575: # FAKESTRT IS ENTERED FROM GOPROG WHEN A RESTART OCCURS AND THE RESTARTABILITY FLAG IS OFF.
004401,000576:
004402,000577: 07,2000 BANK 7
004403,000578: 07,2000 04755 FAKESTRT TC ALARM
004404,000579: 07,2001 00316 OCT 0316 # FAKESTRT ALARM
004405,000580:
004406,000581: 07,2002 12014 TCF FORGET2
004407,000582:
004408,000583:
004409,000584: # FORGETIT IS ENTERED FROM:
004410,000585: # 1) FAKESTRT (VIA FORGET2).
004411,000586: # 2) VERB 74 UPLINK COMMAND.
004412,000587: # 3) ILLEGAL MISSION PHASE COMES DUE IN MISSION SCHEDULING ROUTINE.
004413,000588: # 4) ENGINE FAILURE, ETC.
004414,000589:
004415,000590: 07,2003 00004 DOV74 INHINT
004416,000591: 07,2004 05270 TC IBNKCALL
004417,000592: 07,2005 02374 CADR STARTSB2
004418,000593:
004419,000594: 07,2006 12014 TCF FORGET2 # BYPASS THE PROGRAM ALARM & 315 DISPLAY.
004420,000595:
004421,000596: 07,2007 00004 FORGETIT INHINT
004422,000597: 07,2010 05270 TC IBNKCALL
004423,000598: 07,2011 02374 CADR STARTSB2
004424,000599:
004425,000600: 07,2012 04755 TC ALARM
004426,000601: 07,2013 00315 OCT 315 # UNIQUE ALARM FOR FORGETIT.
004427,000602:
004428,000603: 07,2014 06067 FORGET2 TC FLAG1DWN # ENTRY FROM FAKESTRT.
004429,000604: 07,2015 04000 OCT 04000 # KNOCK DOWN RESTART FLAG TO PERMIT POOH.
004430,000605:
004431,000606: 07,2016 00004 INHINT
004432,000607: 07,2017 00006 EXTEND
004433,000608: 07,2020 32102 DCA KILLCAD
004434,000609: 07,2021 53075 DXCH DVMNEXIT
004435,000610:
004436,000611: 07,2022 00006 EXTEND
004437,000612: 07,2023 32100 DCA CADAVER
004438,000613: 07,2024 53073 DXCH AVGEXIT
004439,000614:
004440,000615: 07,2025 32076 CAF PINGSMON
004441,000616: 07,2026 55346 TS OLDDVSEL
004442,000617: 07,2027 55310 TS DVSELECT
004443,000618:
004444,000619: 07,2030 05270 TC IBNKCALL
004445,000620: 07,2031 40263 CADR ENGINOFF
004446,000621:
004447,000622: 07,2032 05270 TC IBNKCALL
004448,000623: 07,2033 40114 CADR STOPRATE
004449,000624:
|
|
Page 102 |
004451,000626: 07,2034 05270 TC IBNKCALL
004452,000627: 07,2035 40066 CADR NOULLAGE
004453,000628:
004454,000629: 07,2036 05270 TC IBNKCALL
004455,000630: 07,2037 40054 CADR SETMAXDB
004456,000631:
004457,000632: 07,2040 42075 CS BGIMBALS # TURN OFF TRIM GIMBALS
004458,000633: 07,2041 00006 EXTEND
004459,000634: 07,2042 03012 WAND 12
004460,000635:
004461,000636: 07,2043 47767 CS ZERO # MAKE ALL RESTART PHASES INACTIVE EXCEPT
004462,000637: 07,2044 22007 ZL # SERVICER AND STATE VECTOR COPY.
004463,000638: 07,2045 53102 DXCH -PHASE2
004464,000639: 07,2046 47767 CS ZERO
004465,000640: 07,2047 22007 ZL
004466,000641: 07,2050 53104 DXCH -PHASE3
004467,000642: 07,2051 47767 CS ZERO
004468,000643: 07,2052 22007 ZL
004469,000644: 07,2053 53106 DXCH -PHASE4
004470,000645: 07,2054 47767 CS ZERO
004471,000646: 07,2055 22007 ZL
004472,000647: 07,2056 53112 DXCH -PHASE6
004473,000648:
004474,000649: 07,2057 47767 CS ZERO
004475,000650: 07,2060 55173 TS MPHASE1 # SET TIMER/PHASE PAIRS TO IDLE STATE
004476,000651: 07,2061 55172 TS MPHASE2
004477,000652: 07,2062 55171 TS MPHASE3
004478,000653: 07,2063 55170 TS MPHASE4
004479,000654: 07,2064 55164 TS MTIMER4
004480,000655: 07,2065 55165 TS MTIMER3
004481,000656: 07,2066 55166 TS MTIMER2
004482,000657: 07,2067 55167 TS MTIMER1
004483,000658:
004484,000659: 07,2070 05225 TC POSTJUMP
004485,000660: 07,2071 02275 CADR GOPROG2
004486,000661:
004487,000662:
004488,000663: 07,2072 06067 AVEGKILL TC FLAG1DWN # COMES HERE WHEN ENGINE OFF
004489,000664: 07,2073 00041 OCT 00041 # KNOCK DOWN POOH FLAG AND AVERAGEG FLAG
004490,000665:
004491,000666: 07,2074 15567 TCF ENDOFJOB
004492,000667:
004493,000668:
004494,000669: 07,2075 07400 BGIMBALS OCT 7400
004495,000670:
004496,000671: 07,2076 02237 PINGSMON GENADR PGNCSMON
004497,000672: 07,2077 E3,1400 EBANK= LST1
004498,000673: 07,2077 02324 60063 CADAVER 2CADR SERVEXIT
004499,000674:
|
|
Page 103 |
004501,000676: 07,2101 E3,1400 EBANK= LST1
004502,000677: 07,2101 02072 16063 KILLCAD 2CADR AVEGKILL
End of include-file FRESH_START_AND_RESTART.agc. Parent file is MAIN.agc