Source Code
|
These source-code files are part of a reconstructed copy of Aurora 88, the
final release of the Lunar Module (LM) Apollo Guidance Computer (AGC) system
test software.
They have been created via disassembly of binary dumps of original core rope memory modules, part numbers 2003972-011, 2003972-091, and 2003972-111, belonging to Steve Jurvetson. Since only binary dumps (rather than listings) of Aurora 88 are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing. |
005313,000002: ## Copyright: Public domain. 005314,000003: ## Filename: FRESH_START_AND_RESTART.agc 005315,000004: ## Purpose: A section of Aurora 88. 005316,000005: ## It is part of the reconstructed source code for the final 005317,000006: ## release of the Lunar Module system test software. No original 005318,000007: ## listings of this program are available; instead, this file 005319,000008: ## was created via disassembly of dumps of Aurora 88 core rope 005320,000009: ## modules and comparison with other AGC programs. 005321,000010: ## Assembler: yaYUL 005322,000011: ## Contact: Ron Burkey <info@sandroid.org>. 005323,000012: ## Website: www.ibiblio.org/apollo/index.html 005324,000013: ## Mod history: 2023-06-30 MAS Created from Aurora 12. 005325,000014: ## 2023-07-12 MAS Updated for Aurora 88. 005326,000015: 005327,000016: 005328,000017: 12,2000 BANK 12 005329,000018: 12,2000 E3,1400 EBANK= LST1 005330,000019: 005331,000020: 12,2000 00004 SLAP1 INHINT # FRESH START. COMES HERE FROM PINBALL. 005332,000021: 005333,000022: 12,2001 37657 CAF ZERO 005334,000023: 12,2002 55111 TS LOTMODES 005335,000024: 12,2003 55212 SLAP2 TS LOTSFLAG 005336,000025: 005337,000026: 12,2004 02240 TC STARTSUB # SUBROUTINE DOES MOST OF THE WORK. 005338,000027: 005339,000028: 12,2005 37634 CAF BIT15 # TURN OFF ALL DSPTAB +11D LAMPS ONLY ON 005340,000029: 12,2006 54322 TS DSPTAB +11D # REQUESTED FRESH START. 005341,000030: 005342,000031: 12,2007 37657 CAF ZERO # SAME STORY ON ZEROING FAILREG. 005343,000032: 12,2010 55363 TS FAILREG 005344,000033: 005345,000034: 12,2011 37657 CAF ZERO 005346,000035: 12,2012 55204 TS UNK1204 005347,000036: 12,2013 55131 TS UNK1131 005348,000037: 005349,000038: 12,2014 37635 CAF BIT14 005350,000039: 12,2015 71111 MASK LOTMODES 005351,000040: 12,2016 55111 TS LOTMODES 005352,000041: 005353,000042: 12,2017 37657 DOFSTART CAF ZERO # DO A FRESH START, 005354,000043: 12,2020 55361 TS SMODE 005355,000044: 12,2021 54276 TS MODREG 005356,000045: 12,2022 54412 TS AGSWORD # ALLOW AGS INITIALIZATION 005357,000046: 12,2023 54342 TS UPLOCK # FREE UPLINK INTERLOCK 005358,000047: 005359,000048: 12,2024 55073 TS PHASE0 # INITIALIZE PHASE TABLE - NO MISSION 005360,000049: 12,2025 55075 TS PHASE1 # PROGRAMS RUNNING. 005361,000050: 12,2026 55077 TS PHASE2 005362,000051: 12,2027 55101 TS PHASE3 005363,000052: 12,2030 55103 TS PHASE4 005364,000053: 12,2031 55105 TS PHASE5 005365,000054: 005366,000055: 12,2032 40000 COM 005367,000056: 12,2033 55072 TS -PHASE0 005368,000057: 12,2034 55074 TS -PHASE1 005369,000058: 12,2035 55076 TS -PHASE2 005370,000059: 12,2036 55100 TS -PHASE3 005371,000060: 12,2037 55102 TS -PHASE4 005372,000061: 12,2040 55104 TS -PHASE5 005373,000062: 005374,000063: 12,2041 32463 CAF IM30INIF # FRESH START IMU INITIALIZATION. 005375,000064: 12,2042 54367 TS IMODES30 005376,000065: 005377,000066: 12,2043 37641 CAF BIT10 # REMOVE IMU FAIL INHIBIT IN 5 SECS. 005378,000067: 12,2044 04451 TC WAITLIST 005379,000068: 12,2045 02247 26003 2CADR IFAILOK 005380,000069: 12,2047 00006 EXTEND # SETTING T5RUPT FOR SETIDLER PROGRAM 005381,000070: 12,2050 32433 DCA SETADR # THE SETIDLER PROGRAM ASSURES 1 SECOND 005382,000071: 12,2051 52346 DXCH T5ADR # DELAY BEFORE THE DAPIDLER BEGINS. 005383,000072: 005384,000073: 12,2052 00006 EXTEND # INITIALIZE SWITCHES ONLY ON FRESH START. 005385,000074: 12,2053 32471 DCA SWINIT 005386,000075: 12,2054 52062 DXCH STATE 005387,000076: 12,2055 00006 EXTEND 005388,000077: 12,2056 32473 DCA SWINIT +2 005389,000078: 12,2057 52064 DXCH STATE +2 005390,000079: 005391,000080: 12,2060 37645 ENDRSTRT CAF BIT6 # IF GIMBAL LOCK LAMP IS STILL ON, 005392,000081: 12,2061 70322 MASK DSPTAB +11D # IMU WAS FOUND IN GIMBAL LOCK IN RESTART 005393,000082: 12,2062 10000 CCS A # AND LEFT IN COARSE ALIGN. IN THIS CASE 005394,000083: 12,2063 47642 CS BIT9 # SET ISS OPERATE BIT IN IMODES30 TO 005395,000084: 12,2064 26367 ADS IMODES30 # OPERATE SO T4 INBIT MONITOR WONT ZERO 005396,000085: 005397,000086: 12,2065 00003 RELINT # THE CDUS AS IT DOES IN FRESH START. 005398,000087: 12,2066 04063 TC BANKCALL # DISPLAY MAJOR MODE. 005399,000088: 12,2067 12001 CADR DSPMM 005400,000089: 005401,000090: 12,2070 14365 STARTSW TCF DUMMYJOB +2 # PATCH FOR SIMULATION. 005402,000091: 005403,000092: 12,2071 37635 STARTSIM CAF BIT14 005404,000093: 12,2072 04307 TC FINDVAC 005405,000094: 12,2073 77777 OCT 77777 # FATAL IF NOT PATCHED AS ABOVE. 005406,000095: 12,2074 77777 OCT 77777 005407,000096: 005408,000097: 12,2075 14365 TCF DUMMYJOB +2 # DONT ZERO NEWJOB 005409,000098: 005410,000099: # COMES HERE FROM LOCATION 4000, GOJAM. RESTART ANY PROGRAMS WHICH MAY HAVE BEEN RUNNING AT THE TIME. 005411,000100: 005412,000101: 12,2076 03723 GOPROG TC GOPROG1 005413,000102: 005414,000103: 12,2077 02240 TC STARTSUB # COMMON INITIALIZATION ROUTINE. 005415,000104: 005416,000105: 12,2100 32466 CAF 9,6 # LEAVE PROGRAM ALARM AND GIMBAL LOCK 005417,000106: 12,2101 70322 MASK DSPTAB +11D # LAMPS INTACT ON RESTART. 005418,000107: 12,2102 67634 AD BIT15 005419,000108: 12,2103 56322 XCH DSPTAB +11D 005420,000109: 12,2104 77645 MASK BIT6 005421,000110: 12,2105 10000 CCS A # IF GIMBAL LOCK LAMP WAS ON, LEAVE ISS IN 005422,000111: 12,2106 37647 CAF BIT4 # COARSE ALIGN. 005423,000112: 12,2107 00006 EXTEND 005424,000113: 12,2110 05012 WOR 12 005425,000114: 005426,000115: 12,2111 34450 CAF PRIO37 # DISPLAY FAILREG AS INDICATION OF RESTART 005427,000116: 12,2112 04276 TC NOVAC # OR TO DISPLAY ABORT CODE AS ABOVE. 005428,000117: 12,2113 02773 02003 2CADR DOALARM 005429,000118: 12,2115 00006 EXTEND # DONT TRY TO RESTART IF ERROR LIGHT RESET 005430,000119: 12,2116 00015 READ 15 # AND MARK REJECT BUTTONS DEPRESSED. 005431,000120: 12,2117 62461 AD -ELR 005432,000121: 12,2120 00006 EXTEND 005433,000122: 12,2121 12123 BZF +2 005434,000123: 12,2122 12131 TCF PCLOOP -1 # VERIFY PHASE TABLE. 005435,000124: 005436,000125: 12,2123 37646 CAF BIT5 005437,000126: 12,2124 00006 EXTEND 005438,000127: 12,2125 02016 RAND 16 005439,000128: 12,2126 62462 AD -MKREJ 005440,000129: 12,2127 00006 EXTEND 005441,000130: 12,2130 12232 BZF DOFSTRT1 005442,000131: 005443,000132: 12,2131 37227 -1 CAF NUMGRPS # VERIFY PHASE TABLE AGREEMENT. 005444,000133: 12,2132 54145 PCLOOP TS MPAC +5 005445,000134: 12,2133 60000 DOUBLE 005446,000135: 12,2134 00006 EXTEND 005447,000136: 12,2135 50000 INDEX A 005448,000137: 12,2136 31073 DCA -PHASE0 # COMPLEMENT INTO A - DIRECT INTO L. 005449,000138: 12,2137 00006 EXTEND 005450,000139: 12,2140 06001 RXOR L # RESULT MUST BE -0 FOR AGREEMENT. 005451,000140: 12,2141 10000 CCS A 005452,000141: 12,2142 12221 TCF PTBAD # RESTART FAILURE. 005453,000142: 12,2143 12221 TCF PTBAD 005454,000143: 12,2144 12221 TCF PTBAD 005455,000144: 12,2145 10145 CCS MPAC +5 # PROCESS ALL RESTART GROUPS. 005456,000145: 12,2146 12132 TCF PCLOOP 005457,000146: 005458,000147: 12,2147 54146 TS MPAC +6 # SET TO +0. 005459,000148: 12,2150 37227 CAF NUMGRPS # SEE IF ANY GROUPS RUNNING. 005460,000149: 12,2151 54145 NXTRST TS MPAC +5 005461,000150: 12,2152 60000 DOUBLE 005462,000151: 12,2153 50000 INDEX A 005463,000152: 12,2154 11073 CCS PHASE0 005464,000153: 12,2155 12215 TCF PACTIVE # PNZ - GROUP ACTIVE. 005465,000154: 12,2156 12173 TCF PINACT # +0 - GROUP NOT RUNNING. 005466,000155: 005467,000156: 12,2157 54140 PTERM TS MPAC # NNZ - TERMINATE REQUEST. 005468,000157: 12,2160 50145 INDEX MPAC +5 # PICK UP RESTART TERMINATE CADR. 005469,000158: 12,2161 32453 CAF RTERMCAD 005470,000159: 005471,000160: 12,2162 54001 PACT2 TS L 005472,000161: 12,2163 24140 INCR MPAC # ABS OF PHASE. 005473,000162: 12,2164 46027 CS LOW7 # SEE THAT MAG IS LESS THAN 128. 005474,000163: 12,2165 70140 MASK MPAC 005475,000164: 12,2166 10000 CCS A 005476,000165: 12,2167 12221 TCF PTBAD # BAD DATA. 005477,000166: 005478,000167: 12,2170 24146 INCR MPAC +6 # INDICATE GROUP DEMANDS PRESENT. 005479,000168: 12,2171 30001 CA L 005480,000169: 12,2172 04067 TC SWCALL # MUST RETURN TO SWRETURN. 005481,000170: 005482,000171: 12,2173 10145 PINACT CCS MPAC +5 # PROCESS ALL RESTART GROUPS. 005483,000172: 12,2174 12151 TCF NXTRST 005484,000173: 005485,000174: 12,2175 47652 CS ONE 005486,000175: 12,2176 61212 AD LOTSFLAG 005487,000176: 12,2177 00006 EXTEND 005488,000177: 12,2200 12202 BZF +2 005489,000178: 12,2201 12212 TCF TSTMPAC6 005490,000179: 005491,000180: 12,2202 37635 CAF BIT14 005492,000181: 12,2203 71111 MASK LOTMODES 005493,000182: 12,2204 00006 EXTEND 005494,000183: 12,2205 12212 BZF TSTMPAC6 005495,000184: 005496,000185: 12,2206 37635 CAF PRIO20 005497,000186: 12,2207 04276 TC NOVAC 005498,000187: 12,2210 1212 EBANK= LOTSFLAG 005499,000188: 12,2210 02003 16002 2CADR LOTSTOWB 005500,000189: 005501,000190: 12,2212 10146 TSTMPAC6 CCS MPAC +6 # IF NO GROUPS ACTIVE THIS REQUEST, DO A 005502,000191: 12,2213 12225 TCF DORSTART 005503,000192: 12,2214 12017 TCF DOFSTART # FRESH START 005504,000193: 005505,000194: 12,2215 54140 PACTIVE TS MPAC 005506,000195: 12,2216 50145 INDEX MPAC +5 # SELECT RESTART ACTIVE CADR. 005507,000196: 12,2217 32445 CAF RACTCADR 005508,000197: 12,2220 12162 TCF PACT2 005509,000198: 005510,000199: 12,2221 32224 PTBAD CAF OCT1107 # SET ADDITIONAL FAILURE TO SHOW PHASE 005511,000200: 12,2222 55364 TS SFAIL # TABLE DISAGREEMENT (WILL BE DISPLAYED 005512,000201: 12,2223 12017 TCF DOFSTART # IN R2). 005513,000202: 005514,000203: 12,2224 01107 OCT1107 OCT 1107 # ADDITIONAL ALARM CODE. 005515,000204: 005516,000205: 12,2225 32434 DORSTART CAF IFAILINH # LEAVE IMUFAILURE INHIBITS INTACT ON 005517,000206: 12,2226 70367 MASK IMODES30 # RESTART, RESETTING ALL FAILURE CODES. 005518,000207: 12,2227 62464 AD IM30INIR 005519,000208: 12,2230 54367 TS IMODES30 005520,000209: 12,2231 12060 TCF ENDRSTRT 005521,000210: 005522,000211: 12,2232 37657 DOFSTRT1 CAF ZERO 005523,000212: 12,2233 55111 TS LOTMODES 005524,000213: 12,2234 55204 TS UNK1204 005525,000214: 12,2235 55131 TS UNK1131 005526,000215: 12,2236 55212 TS LOTSFLAG 005527,000216: 12,2237 12017 TCF DOFSTART 005528,000217: 005529,000218: # INITIALIZATION COMMON TO BOTH FRESH START AND RESTART. 005530,000219: 005531,000220: 12,2240 56002 STARTSUB XCH Q 005532,000221: 12,2241 54114 TS BUF # EXEC TEMPS ARE AVAILABLE TO US. 005533,000222: 005534,000223: 12,2242 37657 CAF ZERO # ZERO OUTBITS WITHIN 3MS OF RESTART. 005535,000224: 12,2243 00006 EXTEND 005536,000225: 12,2244 01012 WRITE 12 005537,000226: 12,2245 00006 EXTEND 005538,000227: 12,2246 01014 WRITE 14 005539,000228: 12,2247 00006 EXTEND 005540,000229: 12,2250 01011 WRITE 11 005541,000230: 12,2251 03734 TC STARTSB1 005542,000231: 12,2252 00006 STARTSB2 EXTEND 005543,000232: 12,2253 01013 WRITE 13 005544,000233: 005545,000234: 12,2254 37632 CAF POSMAX # T3 AND T4 OVERFLOW AS SOON AS POSSIBLE. 005546,000235: 12,2255 54030 TS TIME5 # SO DOES T5. 005547,000236: 12,2256 54026 TS TIME3 # (POSMAX IS PSEUDO INTERRUPT SIGNAL IN 005548,000237: 12,2257 54027 TS TIME4 # CASE RUPT SIGNALLED BEFORE TS TIME3). 005549,000238: 005550,000239: 12,2260 32444 CAF STARTEB 005551,000240: 12,2261 54003 TS EBANK # SET FOR E3 005552,000241: 005553,000242: 12,2262 37633 CAF NEG1/2 # INITIALIZE WAITLIST DELTA-TS. 005554,000243: 12,2263 55407 TS LST1 +7 005555,000244: 12,2264 55406 TS LST1 +6 005556,000245: 12,2265 55405 TS LST1 +5 005557,000246: 12,2266 55404 TS LST1 +4 005558,000247: 12,2267 55403 TS LST1 +3 005559,000248: 12,2270 55402 TS LST1 +2 005560,000249: 12,2271 55401 TS LST1 +1 005561,000250: 12,2272 55400 TS LST1 005562,000251: 005563,000252: 12,2273 44502 CS ENDTASK 005564,000253: 12,2274 55410 TS LST2 005565,000254: 12,2275 55412 TS LST2 +2 005566,000255: 12,2276 55414 TS LST2 +4 005567,000256: 12,2277 55416 TS LST2 +6 005568,000257: 12,2300 55420 TS LST2 +8D 005569,000258: 12,2301 55422 TS LST2 +10D 005570,000259: 12,2302 55424 TS LST2 +12D 005571,000260: 12,2303 55426 TS LST2 +14D 005572,000261: 12,2304 55430 TS LST2 +16D 005573,000262: 12,2305 44503 CS ENDTASK +1 005574,000263: 12,2306 55411 TS LST2 +1 005575,000264: 12,2307 55413 TS LST2 +3 005576,000265: 12,2310 55415 TS LST2 +5 005577,000266: 12,2311 55417 TS LST2 +7 005578,000267: 12,2312 55421 TS LST2 +9D 005579,000268: 12,2313 55423 TS LST2 +11D 005580,000269: 12,2314 55425 TS LST2 +13D 005581,000270: 12,2315 55427 TS LST2 +15D 005582,000271: 12,2316 55431 TS LST2 +17D 005583,000272: 005584,000273: 12,2317 47657 CS ZERO # MAKE ALL EXECUTIVE REGISTER SETS 005585,000274: 12,2320 54153 TS PRIORITY # AVAILABLE. 005586,000275: 12,2321 54167 TS PRIORITY +12D 005587,000276: 12,2322 54203 TS PRIORITY +24D 005588,000277: 12,2323 54217 TS PRIORITY +36D 005589,000278: 12,2324 54233 TS PRIORITY +48D 005590,000279: 12,2325 54247 TS PRIORITY +60D 005591,000280: 12,2326 54263 TS PRIORITY +72D 005592,000281: 005593,000282: 12,2327 54067 TS NEWJOB # SHOWS NO ACTIVE JOBS. 005594,000283: 005595,000284: 12,2330 32442 CAF VAC1ADRC # MAKE ALL VAC AREAS AVAILABLE. 005596,000285: 12,2331 54431 TS VAC1USE 005597,000286: 12,2332 62443 AD LTHVACA 005598,000287: 12,2333 54505 TS VAC2USE 005599,000288: 12,2334 62443 AD LTHVACA 005600,000289: 12,2335 54561 TS VAC3USE 005601,000290: 12,2336 62443 AD LTHVACA 005602,000291: 12,2337 54635 TS VAC4USE 005603,000292: 12,2340 62443 AD LTHVACA 005604,000293: 12,2341 54711 TS VAC5USE 005605,000294: 005606,000295: 12,2342 37654 CAF TEN # TURN OFF ALL DISPLAY SYSTEM RELAYS. 005607,000296: 12,2343 54351 TS DIDFLG # DISPLAY INERTIAL DATA FLAG. 005608,000297: 12,2344 54140 DSPOFF TS MPAC 005609,000298: 12,2345 47637 CS BIT12 005610,000299: 12,2346 50140 INDEX MPAC 005611,000300: 12,2347 54307 TS DSPTAB 005612,000301: 12,2350 10140 CCS MPAC 005613,000302: 12,2351 02344 TC DSPOFF 005614,000303: 005615,000304: 12,2352 54045 TS INLINK 005616,000305: 12,2353 54341 TS DSPCNT 005617,000306: 12,2354 54366 TS LMPCMD 005618,000307: 12,2355 54323 TS CADRSTOR 005619,000308: 12,2356 54300 TS REQRET 005620,000309: 12,2357 54302 TS CLPASS 005621,000310: 12,2360 54277 TS DSPLOCK 005622,000311: 12,2361 54305 TS MONSAVE # KILL MONITOR 005623,000312: 12,2362 54306 TS MONSAVE1 005624,000313: 12,2363 54324 TS GRABLOCK 005625,000314: 12,2364 54266 TS VERBREG 005626,000315: 12,2365 54267 TS NOUNREG 005627,000316: 12,2366 54327 TS DSPLIST 005628,000317: 12,2367 54330 TS DSPLIST +1 005629,000318: 12,2370 54331 TS DSPLIST +2 005630,000319: 005631,000320: 12,2371 54374 TS MARKSTAT 005632,000321: 12,2372 54332 TS EXTVBACT # MAKE EXTENDED VERBS AVAILABLE 005633,000322: 12,2373 54371 TS IMUCADR 005634,000323: 12,2374 54372 TS OPTCADR 005635,000324: 12,2375 54373 TS RADCADR 005636,000325: 12,2376 54357 TS LGYRO 005637,000326: 12,2377 54350 TS DSRUPTSW 005638,000327: 12,2400 37653 CAF NOUTCON 005639,000328: 12,2401 54303 TS NOUT 005640,000329: 005641,000330: 12,2402 47652 CS ONE # NO RADAR DESIGNATION. 005642,000331: 12,2403 54414 TS SAMPLIM # NO RADAR RUPTS EXPECTED. 005643,000332: 005644,000333: 12,2404 32441 CAF T4LINIT 005645,000334: 12,2405 54347 TS T4LOC 005646,000335: 005647,000336: 12,2406 32465 CAF IM33INIT # NO PIP OR TM FAILS. 005648,000337: 12,2407 54370 TS IMODES33 005649,000338: 005650,000339: 12,2410 37645 CAF BIT6 # SET LR POS. 005651,000340: 12,2411 00006 EXTEND 005652,000341: 12,2412 02033 RAND 33 005653,000342: 12,2413 62467 AD RMODINIT 005654,000343: 12,2414 54413 TS RADMODES 005655,000344: 005656,000345: 12,2415 32440 CAF LESCHK # SELF CHECK GO-TO REGISTER. 005657,000346: 12,2416 55360 TS SELFRET 005658,000347: 12,2417 45141 CS VD1 005659,000348: 12,2420 54264 TS DSPCOUNT 005660,000349: 12,2421 E7,1401 EBANK= DNTMGOTO 005661,000350: 005662,000351: 12,2421 32436 CAF LDNTMGO # SET UP TM PROGRAM. 005663,000352: 12,2422 54003 TS EBANK 005664,000353: 005665,000354: 12,2423 32435 CAF LDNPHAS1 005666,000355: 12,2424 55401 TS DNTMGOTO 005667,000356: 005668,000357: 12,2425 32437 CAF NOMTMLST # SET UP NOMINAL DOWNLINK LIST. 005669,000358: 12,2426 54411 TS DNLSTADR 005670,000359: 005671,000360: 12,2427 00114 TC BUF 005672,000361: 005673,000362: 12,2430 30001 SETIDLE CA L 005674,000363: 12,2431 14514 TCF RESUME +3 005675,000364: 005676,000365: 12,2432 02430 24007 SETADR 2CADR SETIDLE 005677,000366: 005678,000367: 12,2434 00035 IFAILINH OCT 35 # ISS FAILURE INHIBIT BITS. 005679,000368: 12,2435 02052 LDNPHAS1 GENADR DNPHASE1 005680,000369: 12,2436 03401 LDNTMGO ECADR DNTMGOTO 005681,000370: 12,2437 02321 NOMTMLST GENADR NOMDNLST 005682,000371: 12,2440 02100 LESCHK GENADR SELFCHK 005683,000372: 12,2441 04633 T4LINIT ADRES DSKYRSET 005684,000373: 12,2442 00431 VAC1ADRC ADRES VAC1USE 005685,000374: 12,2443 00054 LTHVACA DEC 44 B-14 005686,000375: 005687,000376: 12,2444 01400 STARTEB ECADR LST1 005688,000377: 12,2445 7227 NUMGRPS EQUALS FIVE # SIX GROUPS CURRENTLY. 005689,000378: 005690,000379: # WHERE TO GO ON RESTART IF GROUP ACTIVE: 005691,000380: 005692,000381: 12,2445 35260 RACTCADR CADR PRELGO # RESTARTS DURING PRELAUNCH ALIGNMENT 005693,000382: 12,2446 00000 CADR 10000 005694,000383: 12,2447 00000 CADR 10000 005695,000384: 12,2450 00000 CADR 10000 005696,000385: 12,2451 00000 CADR 10000 005697,000386: 12,2452 00000 CADR 10000 005698,000387: 005699,000388: # WHERE TO GO ON RESTART IF TERMINATE REQUESTED. 005700,000389: 005701,000390: 12,2453 00000 RTERMCAD CADR 10000 005702,000391: 12,2454 00000 CADR 10000 005703,000392: 12,2455 00000 CADR 10000 005704,000393: 12,2456 00000 CADR 10000 005705,000394: 12,2457 00000 CADR 10000 005706,000395: 12,2460 00000 CADR 10000 005707,000396: 005708,000397: 12,2461 77755 -ELR OCT -22 # -ERROR LIGHT RESET KEY CODE. 005709,000398: 12,2462 77757 -MKREJ OCT -20 # - MARK REJECT. 005710,000399: 12,2463 37411 IM30INIF OCT 37411 # INHIBITS IMU FAIL FOR 5 SEC AND PIP ISSW 005711,000400: 12,2464 37400 IM30INIR OCT 37400 # LEAVE FAIL INHIBITS ALONE. 005712,000401: 12,2465 16000 IM33INIT OCT 16000 # NO PIP OR TM FAIL SIGNALS. 005713,000402: 12,2466 00440 9,6 OCT 440 # MASK FOR PROG ALARM AND GIMBAL LOCK. 005714,000403: 12,2467 00102 RMODINIT OCT 00102 005715,000404: 005716,000405: 12,2470 00000 SWINIT OCT 0 005717,000406: 12,2471 00000 OCT 0 005718,000407: 12,2472 00000 OCT 0 005719,000408: 12,2473 00000 OCT 0 005720,000409: 005721,000410: 12,2474 ENDFRESS EQUALS End of include-file FRESH_START_AND_RESTART.agc. Parent file is MAIN.agc