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