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