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