Source Code
![]() |
YAYUL: ASSEMBLE REVISION 6 OF PROGRAM BOREALIS BY MSTEWART JUN. 28,2017This is a modern AGC system self-test program, though based on the Apollo-era AURORA 12 program, and was not written by the original AGC developers, but rather by Mike Stewart. All of the original AURORA 12 DAP code added by the DAP Group has been removed, and extensive new system test code has been added in its place. This allows more in-depth testing of CPU behavior, both in AGC software simulations and hardware simulations. |
005443,000002: ## Copyright: Public domain.
005444,000003: ## Filename: FRESH_START_AND_RESTART.agc
005445,000004: ## Purpose: This program is designed to extensively test the Apollo Guidance Computer
005446,000005: ## (specifically the LM instantiation of it). It is built on top of a heavily
005447,000006: ## stripped-down Aurora 12, with all code ostensibly added by the DAP Group
005448,000007: ## removed. Instead Borealis expands upon the tests provided by Aurora,
005449,000008: ## including corrected tests from Retread 44 and tests from Ron Burkey's
005450,000009: ## Validation.
005451,000010: ## Assembler: yaYUL
005452,000011: ## Contact: Mike Stewart <mastewar1@gmail.com>.
005453,000012: ## Website: www.ibiblio.org/apollo/index.html
005454,000013: ## Mod history: 2016-12-20 MAS Created from Aurora 12 (with much DAP stuff removed).
005455,000014: ## 2016-12-22 MAS Added the hardware alarm test restart group.
005456,000015: ## 2017-01-04 MAS Added init/checking of ERESTORE for the updated
005457,000016: ## erasable check from Sunburst.
005458,000017: ## 2017-01-27 MAS Added an instruction I missed pulling from Sunburst.
005459,000018:
005460,000019: 12,2000 BANK 12
005461,000020: 12,2000 E3,1400 EBANK= LST1
005462,000021:
005463,000022: 12,2000 00004 SLAP1 INHINT # FRESH START. COMES HERE FROM PINBALL.
005464,000023: 12,2001 02212 TC STARTSUB # SUBROUTINE DOES MOST OF THE WORK.
005465,000024:
005466,000025: 12,2002 37653 CAF BIT15 # TURN OFF ALL DSPTAB +11D LAMPS ONLY ON
005467,000026: 12,2003 54322 TS DSPTAB +11D # REQUESTED FRESH START.
005468,000027:
005469,000028: 12,2004 37675 CAF ZERO # SAME STORY ON ZEROING FAILREG.
005470,000029: 12,2005 55363 TS FAILREG
005471,000030:
005472,000031: 12,2006 37675 DOFSTART CAF ZERO # DO A FRESH START,
005473,000032: 12,2007 55361 TS SMODE
005474,000033: 12,2010 55111 TS ERESTORE # Added from Sunburst.
005475,000034: 12,2011 54276 TS MODREG
005476,000035: 12,2012 54412 TS AGSWORD # ALLOW AGS INITIALIZATION
005477,000036: 12,2013 54342 TS UPLOCK # FREE UPLINK INTERLOCK
005478,000037: 12,2014 55113 TS T4TEMP
005479,000038:
005480,000039: 12,2015 54032 TS CDUX # ZERO CDUS SO MATRIX COMPUTATION IN T4
005481,000040: 12,2016 54033 TS CDUY # WONT OVERFLOW.
005482,000041: 12,2017 54034 TS CDUZ
005483,000042:
005484,000043: 12,2020 55072 TS PHASE0 # INITIALIZE PHASE TABLE - NO MISSION
005485,000044: 12,2021 55074 TS PHASE1 # PROGRAMS RUNNING.
005486,000045: 12,2022 55076 TS PHASE2
005487,000046: 12,2023 55100 TS PHASE3
005488,000047: 12,2024 55102 TS PHASE4
005489,000048: 12,2025 55104 TS PHASE5
005490,000049:
005491,000050: 12,2026 40000 COM
005492,000051: 12,2027 55071 TS -PHASE0
005493,000052: 12,2030 55073 TS -PHASE1
005494,000053: 12,2031 55075 TS -PHASE2
005495,000054: 12,2032 55077 TS -PHASE3
005496,000055: 12,2033 55101 TS -PHASE4
005497,000056: 12,2034 55103 TS -PHASE5
005498,000057:
005499,000058: 12,2035 32431 CAF IM30INIF # FRESH START IMU INITIALIZATION.
005500,000059: 12,2036 54367 TS IMODES30
005501,000060:
005502,000061: 12,2037 37660 CAF BIT10 # REMOVE IMU FAIL INHIBIT IN 5 SECS.
005503,000062: 12,2040 04517 TC WAITLIST
005504,000063: 12,2041 02247 26003 2CADR IFAILOK
005505,000064:
005506,000065: 12,2043 00006 EXTEND # INITIALIZE SWITCHES ONLY ON FRESH START.
005507,000066: 12,2044 32437 DCA SWINIT
005508,000067: 12,2045 52062 DXCH STATE
005509,000068: 12,2046 00006 EXTEND
005510,000069: 12,2047 32441 DCA SWINIT +2
005511,000070: 12,2050 52064 DXCH STATE +2
005512,000071:
005513,000072: 12,2051 37664 ENDRSTRT CAF BIT6 # IF GIMBAL LOCK LAMP IS STILL ON,
005514,000073: 12,2052 70322 MASK DSPTAB +11D # IMU WAS FOUND IN GIMBAL LOCK IN RESTART
005515,000074: 12,2053 10000 CCS A # AND LEFT IN COARSE ALIGN. IN THIS CASE
005516,000075: 12,2054 47661 CS BIT9 # SET ISS OPERATE BIT IN IMODES30 TO
005517,000076: 12,2055 26367 ADS IMODES30 # OPERATE SO T4 INBIT MONITOR WONT ZERO
005518,000077:
005519,000078: 12,2056 00003 RELINT # THE CDUS AS IT DOES IN FRESH START.
005520,000079: 12,2057 04065 TC BANKCALL # DISPLAY MAJOR MODE.
005521,000080: 12,2060 12001 CADR DSPMM
005522,000081:
005523,000082: 12,2061 14433 STARTSW TCF DUMMYJOB +2 # PATCH FOR SIMULATION.
005524,000083:
005525,000084: 12,2062 37654 STARTSIM CAF BIT14
005526,000085: 12,2063 04355 TC FINDVAC
005527,000086: 12,2064 77777 OCT 77777 # FATAL IF NOT PATCHED AS ABOVE.
005528,000087: 12,2065 77777 OCT 77777
005529,000088:
005530,000089: 12,2066 14433 TCF DUMMYJOB +2 # DONT ZERO NEWJOB
005531,000090:
005532,000091: # COMES HERE FROM LOCATION 4000, GOJAM. RESTART ANY PROGRAMS WHICH MAY HAVE BEEN RUNNING AT THE TIME.
005533,000092:
005534,000093: 12,2067 25362 GOPROG INCR REDOCTR # ADVANCE RESTART COUNTER.
005535,000094:
005536,000095: 12,2070 02212 TC STARTSUB # COMMON INITIALIZATION ROUTINE.
005537,000096:
005538,000097: 12,2071 32434 CAF 9,6 # LEAVE PROGRAM ALARM AND GIMBAL LOCK
005539,000098: 12,2072 70322 MASK DSPTAB +11D # LAMPS INTACT ON RESTART.
005540,000099: 12,2073 67653 AD BIT15
005541,000100: 12,2074 56322 XCH DSPTAB +11D
005542,000101: 12,2075 77664 MASK BIT6
005543,000102: 12,2076 10000 CCS A # IF GIMBAL LOCK LAMP WAS ON, LEAVE ISS IN
005544,000103: 12,2077 37666 CAF BIT4 # COARSE ALIGN.
005545,000104: 12,2100 00006 EXTEND
005546,000105: 12,2101 05012 WOR 12
005547,000106:
005548,000107: 12,2102 34516 CAF PRIO37 # DISPLAY FAILREG AS INDICATION OF RESTART
005549,000108: 12,2103 04344 TC NOVAC # OR TO DISPLAY ABORT CODE AS ABOVE.
005550,000109: 12,2104 03010 02003 2CADR DOALARM
005551,000110: 12,2106 00006 EXTEND # DONT TRY TO RESTART IF ERROR LIGHT RESET
005552,000111: 12,2107 00015 READ 15 # AND MARK REJECT BUTTONS DEPRESSED.
005553,000112: 12,2110 62427 AD -ELR
005554,000113: 12,2111 00006 EXTEND
005555,000114: 12,2112 12114 BZF +2
005556,000115: 12,2113 12126 TCF PCLOOP -1 # VERIFY PHASE TABLE.
005557,000116:
005558,000117: # This check is pulled back from Sunburst.
005559,000118: 12,2114 31111 CA ERESTORE # IF SELF-CHECK ERASABLE-MEMORY TEST WAS
005560,000119: 12,2115 00006 EXTEND # INTERRUPTED BY A RESTART, DOUBT ERASABLE
005561,000120: 12,2116 12120 BZF +2 # AND DO A FRESH START.
005562,000121: 12,2117 12006 TCF DOFSTART
005563,000122:
005564,000123: 12,2120 37665 CAF BIT5
005565,000124: 12,2121 00006 EXTEND
005566,000125: 12,2122 02016 RAND 16
005567,000126: 12,2123 62430 AD -MKREJ
005568,000127: 12,2124 00006 EXTEND
005569,000128: 12,2125 12006 BZF DOFSTART
005570,000129:
005571,000130: 12,2126 37674 -1 CAF NUMGRPS # VERIFY PHASE TABLE AGREEMENT.
005572,000131: 12,2127 54145 PCLOOP TS MPAC +5
005573,000132: 12,2130 60000 DOUBLE
005574,000133: 12,2131 00006 EXTEND
005575,000134: 12,2132 50000 INDEX A
005576,000135: 12,2133 31072 DCA -PHASE0 # COMPLEMENT INTO A - DIRECT INTO L.
005577,000136: 12,2134 00006 EXTEND
005578,000137: 12,2135 06001 RXOR L # RESULT MUST BE -0 FOR AGREEMENT.
005579,000138: 12,2136 10000 CCS A
005580,000139: 12,2137 12201 TCF PTBAD # RESTART FAILURE.
005581,000140: 12,2140 12201 TCF PTBAD
005582,000141: 12,2141 12201 TCF PTBAD
005583,000142: 12,2142 10145 CCS MPAC +5 # PROCESS ALL RESTART GROUPS.
005584,000143: 12,2143 12127 TCF PCLOOP
005585,000144:
005586,000145: 12,2144 54146 TS MPAC +6 # SET TO +0.
005587,000146: 12,2145 37674 CAF NUMGRPS # SEE IF ANY GROUPS RUNNING.
005588,000147: 12,2146 54145 NXTRST TS MPAC +5
005589,000148: 12,2147 60000 DOUBLE
005590,000149: 12,2150 50000 INDEX A
005591,000150: 12,2151 11072 CCS PHASE0
005592,000151: 12,2152 12175 TCF PACTIVE # PNZ - GROUP ACTIVE.
005593,000152: 12,2153 12170 TCF PINACT # +0 - GROUP NOT RUNNING.
005594,000153:
005595,000154: 12,2154 54140 PTERM TS MPAC # NNZ - TERMINATE REQUEST.
005596,000155: 12,2155 50145 INDEX MPAC +5 # PICK UP RESTART TERMINATE CADR.
005597,000156: 12,2156 32421 CAF RTERMCAD
005598,000157:
005599,000158: 12,2157 54001 PACT2 TS L
005600,000159: 12,2160 24140 INCR MPAC # ABS OF PHASE.
005601,000160: 12,2161 46025 CS LOW7 # SEE THAT MAG IS LESS THAN 128.
005602,000161: 12,2162 70140 MASK MPAC
005603,000162: 12,2163 10000 CCS A
005604,000163: 12,2164 12201 TCF PTBAD # BAD DATA.
005605,000164:
005606,000165: 12,2165 24146 INCR MPAC +6 # INDICATE GROUP DEMANDS PRESENT.
005607,000166: 12,2166 30001 CA L
005608,000167: 12,2167 04071 TC SWCALL # MUST RETURN TO SWRETURN.
005609,000168:
005610,000169: 12,2170 10145 PINACT CCS MPAC +5 # PROCESS ALL RESTART GROUPS.
005611,000170: 12,2171 12146 TCF NXTRST
005612,000171:
005613,000172: 12,2172 10146 TSTMPAC6 CCS MPAC +6 # IF NO GROUPS ACTIVE THIS REQUEST, DO A
005614,000173: 12,2173 12205 TCF DORSTART
005615,000174: 12,2174 12006 TCF DOFSTART # FRESH START
005616,000175:
005617,000176: 12,2175 54140 PACTIVE TS MPAC
005618,000177: 12,2176 50145 INDEX MPAC +5 # SELECT RESTART ACTIVE CADR.
005619,000178: 12,2177 32413 CAF RACTCADR
005620,000179: 12,2200 12157 TCF PACT2
005621,000180:
005622,000181: 12,2201 32204 PTBAD CAF OCT1107 # SET ADDITIONAL FAILURE TO SHOW PHASE
005623,000182: 12,2202 55364 TS SFAIL # TABLE DISAGREEMENT (WILL BE DISPLAYED
005624,000183: 12,2203 12006 TCF DOFSTART # IN R2).
005625,000184:
005626,000185: 12,2204 01107 OCT1107 OCT 1107 # ADDITIONAL ALARM CODE.
005627,000186:
005628,000187: 12,2205 32402 DORSTART CAF IFAILINH # LEAVE IMUFAILURE INHIBITS INTACT ON
005629,000188: 12,2206 70367 MASK IMODES30 # RESTART, RESETTING ALL FAILURE CODES.
005630,000189: 12,2207 62432 AD IM30INIR
005631,000190: 12,2210 54367 TS IMODES30
005632,000191: 12,2211 12051 TCF ENDRSTRT
005633,000192: # INITIALIZATION COMMON TO BOTH FRESH START AND RESTART.
005634,000193:
005635,000194: 12,2212 56002 STARTSUB XCH Q
005636,000195: 12,2213 54114 TS BUF # EXEC TEMPS ARE AVAILABLE TO US.
005637,000196:
005638,000197: 12,2214 37675 CAF ZERO # ZERO OUTBITS WITHIN 3MS OF RESTART.
005639,000198: 12,2215 00006 EXTEND
005640,000199: 12,2216 01012 WRITE 12
005641,000200: 12,2217 00006 EXTEND
005642,000201: 12,2220 01014 WRITE 14
005643,000202: 12,2221 00006 EXTEND
005644,000203: 12,2222 01011 WRITE 11
005645,000204: 12,2223 34513 CAF PRIO34 # ENABLE INTERRUPTS.
005646,000205: 12,2224 00006 EXTEND
005647,000206: 12,2225 01013 WRITE 13
005648,000207:
005649,000208: 12,2226 37651 CAF POSMAX # T3 AND T4 OVERFLOW AS SOON AS POSSIBLE.
005650,000209: 12,2227 54030 TS TIME5 # SO DOES T5.
005651,000210: 12,2230 54026 TS TIME3 # (POSMAX IS PSEUDO INTERRUPT SIGNAL IN
005652,000211: 12,2231 54027 TS TIME4 # CASE RUPT SIGNALLED BEFORE TS TIME3).
005653,000212:
005654,000213: 12,2232 32412 CAF STARTEB
005655,000214: 12,2233 54003 TS EBANK # SET FOR E3
005656,000215:
005657,000216: 12,2234 37652 CAF NEG1/2 # INITIALIZE WAITLIST DELTA-TS.
005658,000217: 12,2235 55407 TS LST1 +7
005659,000218: 12,2236 55406 TS LST1 +6
005660,000219: 12,2237 55405 TS LST1 +5
005661,000220: 12,2240 55404 TS LST1 +4
005662,000221: 12,2241 55403 TS LST1 +3
005663,000222: 12,2242 55402 TS LST1 +2
005664,000223: 12,2243 55401 TS LST1 +1
005665,000224: 12,2244 55400 TS LST1
005666,000225:
005667,000226: 12,2245 44550 CS ENDTASK
005668,000227: 12,2246 55410 TS LST2
005669,000228: 12,2247 55412 TS LST2 +2
005670,000229: 12,2250 55414 TS LST2 +4
005671,000230: 12,2251 55416 TS LST2 +6
005672,000231: 12,2252 55420 TS LST2 +8D
005673,000232: 12,2253 55422 TS LST2 +10D
005674,000233: 12,2254 55424 TS LST2 +12D
005675,000234: 12,2255 55426 TS LST2 +14D
005676,000235: 12,2256 55430 TS LST2 +16D
005677,000236: 12,2257 44551 CS ENDTASK +1
005678,000237: 12,2260 55411 TS LST2 +1
005679,000238: 12,2261 55413 TS LST2 +3
005680,000239: 12,2262 55415 TS LST2 +5
005681,000240: 12,2263 55417 TS LST2 +7
005682,000241: 12,2264 55421 TS LST2 +9D
005683,000242: 12,2265 55423 TS LST2 +11D
005684,000243: 12,2266 55425 TS LST2 +13D
005685,000244: 12,2267 55427 TS LST2 +15D
005686,000245: 12,2270 55431 TS LST2 +17D
005687,000246:
005688,000247: 12,2271 47675 CS ZERO # MAKE ALL EXECUTIVE REGISTER SETS
005689,000248: 12,2272 54153 TS PRIORITY # AVAILABLE.
005690,000249: 12,2273 54167 TS PRIORITY +12D
005691,000250: 12,2274 54203 TS PRIORITY +24D
005692,000251: 12,2275 54217 TS PRIORITY +36D
005693,000252: 12,2276 54233 TS PRIORITY +48D
005694,000253: 12,2277 54247 TS PRIORITY +60D
005695,000254: 12,2300 54263 TS PRIORITY +72D
005696,000255:
005697,000256: 12,2301 54067 TS NEWJOB # SHOWS NO ACTIVE JOBS.
005698,000257:
005699,000258: 12,2302 32410 CAF VAC1ADRC # MAKE ALL VAC AREAS AVAILABLE.
005700,000259: 12,2303 54431 TS VAC1USE
005701,000260: 12,2304 62411 AD LTHVACA
005702,000261: 12,2305 54505 TS VAC2USE
005703,000262: 12,2306 62411 AD LTHVACA
005704,000263: 12,2307 54561 TS VAC3USE
005705,000264: 12,2310 62411 AD LTHVACA
005706,000265: 12,2311 54635 TS VAC4USE
005707,000266: 12,2312 62411 AD LTHVACA
005708,000267: 12,2313 54711 TS VAC5USE
005709,000268:
005710,000269: 12,2314 35234 CAF TEN # TURN OFF ALL DISPLAY SYSTEM RELAYS.
005711,000270: 12,2315 54351 TS DIDFLG # DISPLAY INERTIAL DATA FLAG.
005712,000271: 12,2316 54140 DSPOFF TS MPAC
005713,000272: 12,2317 47656 CS BIT12
005714,000273: 12,2320 50140 INDEX MPAC
005715,000274: 12,2321 54307 TS DSPTAB
005716,000275: 12,2322 10140 CCS MPAC
005717,000276: 12,2323 02316 TC DSPOFF
005718,000277:
005719,000278: 12,2324 54045 TS INLINK
005720,000279: 12,2325 54341 TS DSPCNT
005721,000280: 12,2326 54366 TS LMPCMD
005722,000281: 12,2327 54323 TS CADRSTOR
005723,000282: 12,2330 54300 TS REQRET
005724,000283: 12,2331 54302 TS CLPASS
005725,000284: 12,2332 54277 TS DSPLOCK
005726,000285: 12,2333 54305 TS MONSAVE # KILL MONITOR
005727,000286: 12,2334 54306 TS MONSAVE1
005728,000287: 12,2335 54324 TS GRABLOCK
005729,000288: 12,2336 54266 TS VERBREG
005730,000289: 12,2337 54267 TS NOUNREG
005731,000290: 12,2340 54327 TS DSPLIST
005732,000291: 12,2341 54330 TS DSPLIST +1
005733,000292: 12,2342 54331 TS DSPLIST +2
005734,000293:
005735,000294: 12,2343 54374 TS MARKSTAT
005736,000295: 12,2344 54332 TS EXTVBACT # MAKE EXTENDED VERBS AVAILABLE
005737,000296: 12,2345 54371 TS IMUCADR
005738,000297: 12,2346 54372 TS OPTCADR
005739,000298: 12,2347 54373 TS RADCADR
005740,000299: 12,2350 54357 TS LGYRO
005741,000300: 12,2351 54350 TS DSRUPTSW
005742,000301: 12,2352 37672 CAF NOUTCON
005743,000302: 12,2353 54303 TS NOUT
005744,000303:
005745,000304: 12,2354 47671 CS ONE # NO RADAR DESIGNATION.
005746,000305: 12,2355 54414 TS SAMPLIM # NO RADAR RUPTS EXPECTED.
005747,000306:
005748,000307: 12,2356 32407 CAF T4LINIT
005749,000308: 12,2357 54347 TS T4LOC
005750,000309:
005751,000310: 12,2360 32433 CAF IM33INIT # NO PIP OR TM FAILS.
005752,000311: 12,2361 54370 TS IMODES33
005753,000312:
005754,000313: 12,2362 37664 CAF BIT6 # SET LR POS.
005755,000314: 12,2363 00006 EXTEND
005756,000315: 12,2364 02033 RAND 33
005757,000316: 12,2365 62435 AD RMODINIT
005758,000317: 12,2366 54413 TS RADMODES
005759,000318:
005760,000319: 12,2367 32406 CAF LESCHK # SELF CHECK GO-TO REGISTER.
005761,000320: 12,2370 55360 TS SELFRET
005762,000321: 12,2371 45231 CS VD1
005763,000322: 12,2372 54264 TS DSPCOUNT
005764,000323: 12,2373 E7,1401 EBANK= DNTMGOTO
005765,000324:
005766,000325: 12,2373 32404 CAF LDNTMGO # SET UP TM PROGRAM.
005767,000326: 12,2374 54003 TS EBANK
005768,000327:
005769,000328: 12,2375 32403 CAF LDNPHAS1
005770,000329: 12,2376 55401 TS DNTMGOTO
005771,000330:
005772,000331: 12,2377 32405 CAF NOMTMLST # SET UP NOMINAL DOWNLINK LIST.
005773,000332: 12,2400 54411 TS DNLSTADR
005774,000333:
005775,000334: 12,2401 00114 TC BUF
005776,000335:
005777,000336: 12,2402 00035 IFAILINH OCT 35 # ISS FAILURE INHIBIT BITS.
005778,000337: 12,2403 02052 LDNPHAS1 GENADR DNPHASE1
005779,000338: 12,2404 03401 LDNTMGO ECADR DNTMGOTO
005780,000339: 12,2405 02321 NOMTMLST GENADR NOMDNLST
005781,000340: 12,2406 02033 LESCHK GENADR SELFCHK
005782,000341: 12,2407 04722 T4LINIT ADRES DSKYRSET
005783,000342: 12,2410 00431 VAC1ADRC ADRES VAC1USE
005784,000343: 12,2411 00054 LTHVACA DEC 44 B-14
005785,000344:
005786,000345: 12,2412 01400 STARTEB ECADR LST1
005787,000346: 12,2413 7674 NUMGRPS EQUALS FIVE # SIX GROUPS CURRENTLY.
005788,000347:
005789,000348: # WHERE TO GO ON RESTART IF GROUP ACTIVE:
005790,000349:
005791,000350: 12,2413 00000 RACTCADR CADR 10000 # AVAILABLE FOR USE-NEXT ONE USED
005792,000351: 12,2414 42764 CADR OPTMSTRT # RESTARTS DURING OPTM ALIGN CALIBRATION
005793,000352: 12,2415 03163 CADR ALRMSTRT
005794,000353: 12,2416 00000 CADR 10000
005795,000354: 12,2417 00000 CADR 10000
005796,000355: 12,2420 00000 CADR 10000
005797,000356:
005798,000357: # WHERE TO GO ON RESTART IF TERMINATE REQUESTED.
005799,000358:
005800,000359: 12,2421 00000 RTERMCAD CADR 10000
005801,000360: 12,2422 00000 CADR 10000
005802,000361: 12,2423 00000 CADR 10000
005803,000362: 12,2424 00000 CADR 10000
005804,000363: 12,2425 00000 CADR 10000
005805,000364: 12,2426 00000 CADR 10000
005806,000365:
005807,000366: 12,2427 77755 -ELR OCT -22 # -ERROR LIGHT RESET KEY CODE.
005808,000367: 12,2430 77757 -MKREJ OCT -20 # - MARK REJECT.
005809,000368: 12,2431 37411 IM30INIF OCT 37411 # INHIBITS IMU FAIL FOR 5 SEC AND PIP ISSW
005810,000369: 12,2432 37400 IM30INIR OCT 37400 # LEAVE FAIL INHIBITS ALONE.
005811,000370: 12,2433 16000 IM33INIT OCT 16000 # NO PIP OR TM FAIL SIGNALS.
005812,000371: 12,2434 00440 9,6 OCT 440 # MASK FOR PROG ALARM AND GIMBAL LOCK.
005813,000372: 12,2435 00102 RMODINIT OCT 00102
005814,000373:
005815,000374: 12,2436 00000 SWINIT OCT 0
005816,000375: 12,2437 00000 OCT 0
005817,000376: 12,2440 00000 OCT 0
005818,000377: 12,2441 00000 OCT 0
005819,000378:
005820,000379: 12,2442 ENDFRESS EQUALS
End of include-file FRESH_START_AND_RESTART.agc. Parent file is MAIN.agc