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