473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP NOV 10, 1966
Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source code files have been transcribed or otherwise adapted from
digitized images of a hardcopy from the private collection of
Don Eyles. The digitization was performed by archive.org, and
transcription was performed by a team of volunteers.
Note that the page images
presented online are of reduced quality, and that the original
high-quality images are available at archive.org.
Report any conversion errors or legibility problems in page images to info@sandroid.org.
Notations on the program listing read, in part:
473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP NOV 10, 1966
Note that the date is the date of the printout, not the date of the program revision.
|
005704,000002: ## Copyright: Public domain.
005705,000003: ## Filename: FRESH_START_AND_RESTART.agc
005706,000004: ## Purpose: Part of the source code for Aurora (revision 12).
005707,000005: ## Assembler: yaYUL
005708,000006: ## Contact: Ron Burkey <info@sandroid.org>.
005709,000007: ## Website: https://www.ibiblio.org/apollo.
005710,000008: ## Pages: 151-159
005711,000009: ## Mod history: 2016-09-20 JL Created.
005712,000010: ## 2016-10-04 HG Added missed IDLEADR
005713,000011: ## 2016-10-16 HG Fix operand T4L``INIT -> T4LINIT
005714,000012: ## ENDRSTART -> ENDRSTRT
005715,000013: ## 2016-12-08 RSB Proofed comments with octopus/ProoferComments
005716,000014: ## and fixed the errors found.
005717,000015:
005718,000016: ## This source code has been transcribed or otherwise adapted from
005719,000017: ## digitized images of a hardcopy from the private collection of
005720,000018: ## Don Eyles. The digitization was performed by archive.org.
005721,000019:
005722,000020: ## Notations on the hardcopy document read, in part:
005723,000021:
005724,000022: ## 473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP
005725,000023: ## NOV 10, 1966
005726,000024:
005727,000025: ## [Note that this is the date the hardcopy was made, not the
005728,000026: ## date of the program revision or the assembly.]
005729,000027:
005730,000028: ## The scan images (with suitable reduction in storage size and consequent
005731,000029: ## reduction in image quality) are available online at
005732,000030: ## https://www.ibiblio.org/apollo.
005733,000031: ## The original high-quality digital images are available at archive.org:
005734,000032: ## https://archive.org/details/aurora00dapg
|
|
Page 151 |
005736,000034: 12,2000 BANK 12
005737,000035: 12,2000 E3,1400 EBANK= LST1
005738,000036:
005739,000037: 12,2000 00004 SLAP1 INHINT # FRESH START. COMES HERE FROM PINBALL.
005740,000038: 12,2001 02214 TC STARTSUB # SUBROUTINE DOES MOST OF THE WORK.
005741,000039:
005742,000040: 12,2002 37641 CAF BIT15 # TURN OFF ALL DSPTAB +11D LAMPS ONLY ON
005743,000041: 12,2003 54322 TS DSPTAB +11D # REQUESTED FRESH START.
005744,000042:
005745,000043: 12,2004 37665 CAF ZERO # SAME STORY ON ZEROING FAILREG.
005746,000044: 12,2005 55363 TS FAILREG
005747,000045:
005748,000046: 12,2006 37665 DOFSTART CAF ZERO # DO A FRESH START,
005749,000047: 12,2007 55361 TS SMODE
005750,000048: 12,2010 54276 TS MODREG
005751,000049: 12,2011 54412 TS AGSWORD # ALLOW AGS INITIALIZATION
005752,000050: 12,2012 54342 TS UPLOCK # FREE UPLINK INTERLOCK
005753,000051:
005754,000052: 12,2013 54032 TS CDUX # ZERO CDUS SO MATRIX COMPUTATION IN T4
005755,000053: 12,2014 54033 TS CDUY # WONT OVERFLOW.
005756,000054: 12,2015 54034 TS CDUZ
005757,000055:
005758,000056: 12,2016 55072 TS PHASE0 # INITIALIZE PHASE TABLE - NO MISSION
005759,000057: 12,2017 55074 TS PHASE1 # PROGRAMS RUNNING.
005760,000058: 12,2020 55076 TS PHASE2
005761,000059: 12,2021 55100 TS PHASE3
005762,000060: 12,2022 55102 TS PHASE4
005763,000061: 12,2023 55104 TS PHASE5
005764,000062:
005765,000063: 12,2024 40000 COM
005766,000064: 12,2025 55071 TS -PHASE0
005767,000065: 12,2026 55073 TS -PHASE1
005768,000066: 12,2027 55075 TS -PHASE2
005769,000067: 12,2030 55077 TS -PHASE3
005770,000068: 12,2031 55101 TS -PHASE4
005771,000069: 12,2032 55103 TS -PHASE5
005772,000070:
005773,000071: 12,2033 32433 CAF IM30INIF # FRESH START IMU INITIALIZATION.
005774,000072: 12,2034 54367 TS IMODES30
005775,000073:
005776,000074: 12,2035 37646 CAF BIT10 # REMOVE IMU FAIL INHIBIT IN 5 SECS.
005777,000075: 12,2036 04536 TC WAITLIST
005778,000076: 12,2037 02247 26003 2CADR IFAILOK
005779,000077: 12,2041 00006 EXTEND # SETTING T5RUPT FOR SETIDLER PROGRAM
005780,000078: 12,2042 32443 DCA SETADR # THE SETIDLER PROGRAM ASSURES 1 SECOND
005781,000079: 12,2043 52346 DXCH T5ADR # DELAY BEFORE THE DAPIDLER BEGINS.
005782,000080:
005783,000081: 12,2044 32450 CAF OCT04012 # INITIALIZE DAPBOOLS
005784,000082: 12,2045 54765 TS DAPBOOLS
|
|
Page 152 |
005786,000084: 12,2046 00006 EXTEND # INITIALIZE SWITCHES ONLY ON FRESH START.
005787,000085: 12,2047 32445 DCA SWINIT
005788,000086: 12,2050 52062 DXCH STATE
005789,000087: 12,2051 00006 EXTEND
005790,000088: 12,2052 32447 DCA SWINIT +2
005791,000089: 12,2053 52064 DXCH STATE +2
005792,000090:
005793,000091: 12,2054 37652 ENDRSTRT CAF BIT6 # IF GIMBAL LOCK LAMP IS STILL ON,
005794,000092: 12,2055 70322 MASK DSPTAB +11D # IMU WAS FOUND IN GIMBAL LOCK IN RESTART
005795,000093: 12,2056 10000 CCS A # AND LEFT IN COARSE ALIGN. IN THIS CASE
005796,000094: 12,2057 47647 CS BIT9 # SET ISS OPERATE BIT IN IMODES30 TO
005797,000095: 12,2060 26367 ADS IMODES30 # OPERATE SO T4 INBIT MONITOR WONT ZERO
005798,000096:
005799,000097: 12,2061 00003 RELINT # THE CDUS AS IT DOES IN FRESH START.
005800,000098: 12,2062 04063 TC BANKCALL # DISPLAY MAJOR MODE.
005801,000099: 12,2063 12001 CADR DSPMM
005802,000100:
005803,000101: 12,2064 14452 STARTSW TCF DUMMYJOB +2 # PATCH FOR SIMULATION.
005804,000102:
005805,000103: 12,2065 37642 STARTSIM CAF BIT14
005806,000104: 12,2066 04374 TC FINDVAC
005807,000105: 12,2067 77777 OCT 77777 # FATAL IF NOT PATCHED AS ABOVE.
005808,000106: 12,2070 77777 OCT 77777
005809,000107:
005810,000108: 12,2071 14452 TCF DUMMYJOB +2 # DONT ZERO NEWJOB
005811,000109:
|
|
Page 153 |
005813,000111: # COMES HERE FROM LOCATION 4000, GOJAM. RESTART ANY PROGRAMS WHICH MAY HAVE BEEN RUNNING AT THE TIME.
005814,000112:
005815,000113: 12,2072 25362 GOPROG INCR REDOCTR # ADVANCE RESTART COUNTER.
005816,000114:
005817,000115: 12,2073 02214 TC STARTSUB # COMMON INITIALIZATION ROUTINE.
005818,000116:
005819,000117: 12,2074 32436 CAF 9,6 # LEAVE PROGRAM ALARM AND GIMBAL LOCK
005820,000118: 12,2075 70322 MASK DSPTAB +11D # LAMPS INTACT ON RESTART.
005821,000119: 12,2076 67641 AD BIT15
005822,000120: 12,2077 56322 XCH DSPTAB +11D
005823,000121: 12,2100 77652 MASK BIT6
005824,000122: 12,2101 10000 CCS A # IF GIMBAL LOCK LAMP WAS ON, LEAVE ISS IN
005825,000123: 12,2102 37654 CAF BIT4 # COARSE ALIGN.
005826,000124: 12,2103 00006 EXTEND
005827,000125: 12,2104 05012 WOR 12
005828,000126:
005829,000127: 12,2105 00006 EXTEND # SETTING T5RUPT FOR DAPIDLER PROGRAM
005830,000128: 12,2106 32441 DCA IDLEADR
005831,000129: 12,2107 52346 DXCH T5ADR
005832,000130: 12,2110 34535 CAF PRIO37 # DISPLAY FAILREG AS INDICATION OF RESTART
005833,000131: 12,2111 04363 TC NOVAC # OR TO DISPLAY ABORT CODE AS ABOVE.
005834,000132: 12,2112 02773 02003 2CADR DOALARM
005835,000133: 12,2114 00006 EXTEND # DONT TRY TO RESTART IF ERROR LIGHT RESET
005836,000134: 12,2115 00015 READ 15 # AND MARK REJECT BUTTONS DEPRESSED.
005837,000135: 12,2116 62431 AD -ELR
005838,000136: 12,2117 00006 EXTEND
005839,000137: 12,2120 12122 BZF +2
005840,000138: 12,2121 12130 TCF PCLOOP -1 # VERIFY PHASE TABLE.
005841,000139:
005842,000140: 12,2122 37653 CAF BIT5
005843,000141: 12,2123 00006 EXTEND
005844,000142: 12,2124 02016 RAND 16
005845,000143: 12,2125 62432 AD -MKREJ
005846,000144: 12,2126 00006 EXTEND
005847,000145: 12,2127 12006 BZF DOFSTART
005848,000146:
005849,000147: 12,2130 37664 -1 CAF NUMGRPS # VERIFY PHASE TABLE AGREEMENT.
005850,000148: 12,2131 54145 PCLOOP TS MPAC +5
005851,000149: 12,2132 60000 DOUBLE
005852,000150: 12,2133 00006 EXTEND
005853,000151: 12,2134 50000 INDEX A
005854,000152: 12,2135 31072 DCA -PHASE0 # COMPLEMENT INTO A - DIRECT INTO L.
005855,000153: 12,2136 00006 EXTEND
005856,000154: 12,2137 06001 RXOR L # RESULT MUST BE -0 FOR AGREEMENT.
005857,000155: 12,2140 10000 CCS A
005858,000156: 12,2141 12203 TCF PTBAD # RESTART FAILURE.
005859,000157: 12,2142 12203 TCF PTBAD
005860,000158: 12,2143 12203 TCF PTBAD
|
|
Page 154 |
005862,000160: 12,2144 10145 CCS MPAC +5 # PROCESS ALL RESTART GROUPS.
005863,000161: 12,2145 12131 TCF PCLOOP
005864,000162:
005865,000163: 12,2146 54146 TS MPAC +6 # SET TO +0.
005866,000164: 12,2147 37664 CAF NUMGRPS # SEE IF ANY GROUPS RUNNING.
005867,000165: 12,2150 54145 NXTRST TS MPAC +5
005868,000166: 12,2151 60000 DOUBLE
005869,000167: 12,2152 50000 INDEX A
005870,000168: 12,2153 11072 CCS PHASE0
005871,000169: 12,2154 12177 TCF PACTIVE # PNZ - GROUP ACTIVE.
005872,000170: 12,2155 12172 TCF PINACT # +0 - GROUP NOT RUNNING.
005873,000171:
005874,000172: 12,2156 54140 PTERM TS MPAC # NNZ - TERMINATE REQUEST.
005875,000173: 12,2157 50145 INDEX MPAC +5 # PICK UP RESTART TERMINATE CADR.
005876,000174: 12,2160 32423 CAF RTERMCAD
005877,000175:
005878,000176: 12,2161 54001 PACT2 TS L
005879,000177: 12,2162 24140 INCR MPAC # ABS OF PHASE.
005880,000178: 12,2163 46027 CS LOW7 # SEE THAT MAG IS LESS THAN 128.
005881,000179: 12,2164 70140 MASK MPAC
005882,000180: 12,2165 10000 CCS A
005883,000181: 12,2166 12203 TCF PTBAD # BAD DATA.
005884,000182:
005885,000183: 12,2167 24146 INCR MPAC +6 # INDICATE GROUP DEMANDS PRESENT.
005886,000184: 12,2170 30001 CA L
005887,000185: 12,2171 04067 TC SWCALL # MUST RETURN TO SWRETURN.
005888,000186:
005889,000187: 12,2172 10145 PINACT CCS MPAC +5 # PROCESS ALL RESTART GROUPS.
005890,000188: 12,2173 12150 TCF NXTRST
005891,000189:
005892,000190: 12,2174 10146 TSTMPAC6 CCS MPAC +6 # IF NO GROUPS ACTIVE THIS REQUEST, DO A
005893,000191: 12,2175 12207 TCF DORSTART
005894,000192: 12,2176 12006 TCF DOFSTART # FRESH START
005895,000193:
005896,000194: 12,2177 54140 PACTIVE TS MPAC
005897,000195: 12,2200 50145 INDEX MPAC +5 # SELECT RESTART ACTIVE CADR.
005898,000196: 12,2201 32415 CAF RACTCADR
005899,000197: 12,2202 12161 TCF PACT2
005900,000198:
005901,000199: 12,2203 32206 PTBAD CAF OCT1107 # SET ADDITIONAL FAILURE TO SHOW PHASE
005902,000200: 12,2204 55364 TS SFAIL # TABLE DISAGREEMENT (WILL BE DISPLAYED
005903,000201: 12,2205 12006 TCF DOFSTART # IN R2).
005904,000202:
005905,000203: 12,2206 01107 OCT1107 OCT 1107 # ADDITIONAL ALARM CODE.
005906,000204:
005907,000205: 12,2207 32404 DORSTART CAF IFAILINH # LEAVE IMUFAILURE INHIBITS INTACT ON
005908,000206: 12,2210 70367 MASK IMODES30 # RESTART, RESETTING ALL FAILURE CODES.
005909,000207: 12,2211 62434 AD IM30INIR
005910,000208: 12,2212 54367 TS IMODES30
|
|
Page 155 |
005912,000210: 12,2213 12054 TCF ENDRSTRT
|
|
Page 156 |
005914,000212: # INITIALIZATION COMMON TO BOTH FRESH START AND RESTART.
005915,000213:
005916,000214: 12,2214 56002 STARTSUB XCH Q
005917,000215: 12,2215 54114 TS BUF # EXEC TEMPS ARE AVAILABLE TO US.
005918,000216:
005919,000217: 12,2216 37665 CAF ZERO # ZERO OUTBITS WITHIN 3MS OF RESTART.
005920,000218: 12,2217 00006 EXTEND
005921,000219: 12,2220 01012 WRITE 12
005922,000220: 12,2221 00006 EXTEND
005923,000221: 12,2222 01014 WRITE 14
005924,000222: 12,2223 00006 EXTEND
005925,000223: 12,2224 01011 WRITE 11
005926,000224: 12,2225 34532 CAF PRIO34 # ENABLE INTERRUPTS.
005927,000225: 12,2226 00006 EXTEND
005928,000226: 12,2227 01013 WRITE 13
005929,000227:
005930,000228: 12,2230 37637 CAF POSMAX # T3 AND T4 OVERFLOW AS SOON AS POSSIBLE.
005931,000229: 12,2231 54030 TS TIME5 # SO DOES T5.
005932,000230: 12,2232 54026 TS TIME3 # (POSMAX IS PSEUDO INTERRUPT SIGNAL IN
005933,000231: 12,2233 54027 TS TIME4 # CASE RUPT SIGNALLED BEFORE TS TIME3).
005934,000232:
005935,000233: 12,2234 32414 CAF STARTEB
005936,000234: 12,2235 54003 TS EBANK # SET FOR E3
005937,000235:
005938,000236: 12,2236 37640 CAF NEG1/2 # INITIALIZE WAITLIST DELTA-TS.
005939,000237: 12,2237 55407 TS LST1 +7
005940,000238: 12,2240 55406 TS LST1 +6
005941,000239: 12,2241 55405 TS LST1 +5
005942,000240: 12,2242 55404 TS LST1 +4
005943,000241: 12,2243 55403 TS LST1 +3
005944,000242: 12,2244 55402 TS LST1 +2
005945,000243: 12,2245 55401 TS LST1 +1
005946,000244: 12,2246 55400 TS LST1
005947,000245:
005948,000246: 12,2247 44567 CS ENDTASK
005949,000247: 12,2250 55410 TS LST2
005950,000248: 12,2251 55412 TS LST2 +2
005951,000249: 12,2252 55414 TS LST2 +4
005952,000250: 12,2253 55416 TS LST2 +6
005953,000251: 12,2254 55420 TS LST2 +8D
005954,000252: 12,2255 55422 TS LST2 +10D
005955,000253: 12,2256 55424 TS LST2 +12D
005956,000254: 12,2257 55426 TS LST2 +14D
005957,000255: 12,2260 55430 TS LST2 +16D
005958,000256: 12,2261 44570 CS ENDTASK +1
005959,000257: 12,2262 55411 TS LST2 +1
005960,000258: 12,2263 55413 TS LST2 +3
005961,000259: 12,2264 55415 TS LST2 +5
005962,000260: 12,2265 55417 TS LST2 +7
005963,000261: 12,2266 55421 TS LST2 +9D
|
|
Page 157 |
005965,000263: 12,2267 55423 TS LST2 +11D
005966,000264: 12,2270 55425 TS LST2 +13D
005967,000265: 12,2271 55427 TS LST2 +15D
005968,000266: 12,2272 55431 TS LST2 +17D
005969,000267:
005970,000268: 12,2273 47665 CS ZERO # MAKE ALL EXECUTIVE REGISTER SETS
005971,000269: 12,2274 54153 TS PRIORITY # AVAILABLE.
005972,000270: 12,2275 54167 TS PRIORITY +12D
005973,000271: 12,2276 54203 TS PRIORITY +24D
005974,000272: 12,2277 54217 TS PRIORITY +36D
005975,000273: 12,2300 54233 TS PRIORITY +48D
005976,000274: 12,2301 54247 TS PRIORITY +60D
005977,000275: 12,2302 54263 TS PRIORITY +72D
005978,000276:
005979,000277: 12,2303 54067 TS NEWJOB # SHOWS NO ACTIVE JOBS.
005980,000278:
005981,000279: 12,2304 32412 CAF VAC1ADRC # MAKE ALL VAC AREAS AVAILABLE.
005982,000280: 12,2305 54431 TS VAC1USE
005983,000281: 12,2306 62413 AD LTHVACA
005984,000282: 12,2307 54505 TS VAC2USE
005985,000283: 12,2310 62413 AD LTHVACA
005986,000284: 12,2311 54561 TS VAC3USE
005987,000285: 12,2312 62413 AD LTHVACA
005988,000286: 12,2313 54635 TS VAC4USE
005989,000287: 12,2314 62413 AD LTHVACA
005990,000288: 12,2315 54711 TS VAC5USE
005991,000289:
005992,000290: 12,2316 37661 CAF TEN # TURN OFF ALL DISPLAY SYSTEM RELAYS.
005993,000291: 12,2317 54351 TS DIDFLG # DISPLAY INERTIAL DATA FLAG.
005994,000292: 12,2320 54140 DSPOFF TS MPAC
005995,000293: 12,2321 47644 CS BIT12
005996,000294: 12,2322 50140 INDEX MPAC
005997,000295: 12,2323 54307 TS DSPTAB
005998,000296: 12,2324 10140 CCS MPAC
005999,000297: 12,2325 02320 TC DSPOFF
006000,000298:
006001,000299: 12,2326 54045 TS INLINK
006002,000300: 12,2327 54341 TS DSPCNT
006003,000301: 12,2330 54366 TS LMPCMD
006004,000302: 12,2331 54323 TS CADRSTOR
006005,000303: 12,2332 54300 TS REQRET
006006,000304: 12,2333 54302 TS CLPASS
006007,000305: 12,2334 54277 TS DSPLOCK
006008,000306: 12,2335 54305 TS MONSAVE # KILL MONITOR
006009,000307: 12,2336 54306 TS MONSAVE1
006010,000308: 12,2337 54324 TS GRABLOCK
006011,000309: 12,2340 54266 TS VERBREG
006012,000310: 12,2341 54267 TS NOUNREG
006013,000311: 12,2342 54327 TS DSPLIST
006014,000312: 12,2343 54330 TS DSPLIST +1
|
|
Page 158 |
006016,000314: 12,2344 54331 TS DSPLIST +2
006017,000315:
006018,000316: 12,2345 54374 TS MARKSTAT
006019,000317: 12,2346 54332 TS EXTVBACT # MAKE EXTENDED VERBS AVAILABLE
006020,000318: 12,2347 54371 TS IMUCADR
006021,000319: 12,2350 54372 TS OPTCADR
006022,000320: 12,2351 54373 TS RADCADR
006023,000321: 12,2352 54357 TS LGYRO
006024,000322: 12,2353 54350 TS DSRUPTSW
006025,000323: 12,2354 37660 CAF NOUTCON
006026,000324: 12,2355 54303 TS NOUT
006027,000325:
006028,000326: 12,2356 47657 CS ONE # NO RADAR DESIGNATION.
006029,000327: 12,2357 54414 TS SAMPLIM # NO RADAR RUPTS EXPECTED.
006030,000328:
006031,000329: 12,2360 32411 CAF T4LINIT
006032,000330: 12,2361 54347 TS T4LOC
006033,000331:
006034,000332: 12,2362 32435 CAF IM33INIT # NO PIP OR TM FAILS.
006035,000333: 12,2363 54370 TS IMODES33
006036,000334:
006037,000335: 12,2364 37652 CAF BIT6 # SET LR POS.
006038,000336: 12,2365 00006 EXTEND
006039,000337: 12,2366 02033 RAND 33
006040,000338: 12,2367 62437 AD RMODINIT
006041,000339: 12,2370 54413 TS RADMODES
006042,000340:
006043,000341: 12,2371 32410 CAF LESCHK # SELF CHECK GO-TO REGISTER.
006044,000342: 12,2372 55360 TS SELFRET
006045,000343: 12,2373 45237 CS VD1
006046,000344: 12,2374 54264 TS DSPCOUNT
006047,000345: 12,2375 E7,1401 EBANK= DNTMGOTO
006048,000346:
006049,000347: 12,2375 32406 CAF LDNTMGO # SET UP TM PROGRAM.
006050,000348: 12,2376 54003 TS EBANK
006051,000349:
006052,000350: 12,2377 32405 CAF LDNPHAS1
006053,000351: 12,2400 55401 TS DNTMGOTO
006054,000352:
006055,000353: 12,2401 32407 CAF NOMTMLST # SET UP NOMINAL DOWNLINK LIST.
006056,000354: 12,2402 54411 TS DNLSTADR
006057,000355:
006058,000356: 12,2403 00114 TC BUF
006059,000357:
006060,000358: 12,2404 00035 IFAILINH OCT 35 # ISS FAILURE INHIBIT BITS.
006061,000359: 12,2405 02052 LDNPHAS1 GENADR DNPHASE1
006062,000360: 12,2406 03401 LDNTMGO ECADR DNTMGOTO
006063,000361: 12,2407 02321 NOMTMLST GENADR NOMDNLST
006064,000362: 12,2410 02101 LESCHK GENADR SELFCHK
006065,000363: 12,2411 04730 T4LINIT ADRES DSKYRSET
|
|
Page 159 |
006067,000365: 12,2412 00431 VAC1ADRC ADRES VAC1USE
006068,000366: 12,2413 00054 LTHVACA DEC 44 B-14
006069,000367:
006070,000368: 12,2414 01400 STARTEB ECADR LST1
006071,000369: 12,2415 7664 NUMGRPS EQUALS FIVE # SIX GROUPS CURRENTLY.
006072,000370:
006073,000371: # WHERE TO GO ON RESTART IF GROUP ACTIVE:
006074,000372:
006075,000373: 12,2415 00000 RACTCADR CADR 10000 # AVAILABLE FOR USE-NEXT ONE USED
006076,000374: 12,2416 42764 CADR OPTMSTRT # RESTARTS DURING OPTM ALIGN CALIBRATION
006077,000375: 12,2417 00000 CADR 10000
006078,000376: 12,2420 00000 CADR 10000
006079,000377: 12,2421 00000 CADR 10000
006080,000378: 12,2422 00000 CADR 10000
006081,000379:
006082,000380: # WHERE TO GO ON RESTART IF TERMINATE REQUESTED.
006083,000381:
006084,000382: 12,2423 00000 RTERMCAD CADR 10000
006085,000383: 12,2424 00000 CADR 10000
006086,000384: 12,2425 00000 CADR 10000
006087,000385: 12,2426 00000 CADR 10000
006088,000386: 12,2427 00000 CADR 10000
006089,000387: 12,2430 00000 CADR 10000
006090,000388:
006091,000389: 12,2431 77755 -ELR OCT -22 # -ERROR LIGHT RESET KEY CODE.
006092,000390: 12,2432 77757 -MKREJ OCT -20 # - MARK REJECT.
006093,000391: 12,2433 37411 IM30INIF OCT 37411 # INHIBITS IMU FAIL FOR 5 SEC AND PIP ISSW
006094,000392: 12,2434 37400 IM30INIR OCT 37400 # LEAVE FAIL INHIBITS ALONE.
006095,000393: 12,2435 16000 IM33INIT OCT 16000 # NO PIP OR TM FAIL SIGNALS.
006096,000394: 12,2436 00440 9,6 OCT 440 # MASK FOR PROG ALARM AND GIMBAL LOCK.
006097,000395: 12,2437 00102 RMODINIT OCT 00102
006098,000396:
006099,000397: 12,2440 E6,1551 EBANK= DT
006100,000398: 12,2440 03141 46006 IDLEADR 2CADR DAPIDLER
006101,000399: 12,2442 E6,1551 EBANK= DT
006102,000400: 12,2442 03115 46006 SETADR 2CADR SETIDLE
006103,000401: 12,2444 00000 SWINIT OCT 0
006104,000402: 12,2445 00000 OCT 0
006105,000403: 12,2446 00000 OCT 0
006106,000404: 12,2447 00000 OCT 0
006107,000405:
006108,000406: 12,2450 04012 OCT04012 OCTAL 04012 # INITIAL VALUE OF DAPBOOLS
006109,000407: 12,2451 ENDFRESS EQUALS
End of include-file FRESH_START_AND_RESTART.agc. Parent file is MAIN.agc