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. |
017635,000002: ## Copyright: Public domain.
017636,000003: ## Filename: IMU_PERFORMANCE_TESTS_1.agc
017637,000004: ## Purpose: A section of Aurora 88.
017638,000005: ## It is part of the reconstructed source code for the final
017639,000006: ## release of the Lunar Module system test software. No original
017640,000007: ## listings of this program are available; instead, this file
017641,000008: ## was created via disassembly of dumps of Aurora 88 core rope
017642,000009: ## modules and comparison with other AGC programs.
017643,000010: ## Assembler: yaYUL
017644,000011: ## Contact: Ron Burkey <info@sandroid.org>.
017645,000012: ## Website: www.ibiblio.org/apollo/index.html
017646,000013: ## Mod history: 2023-06-30 MAS Created from Aurora 12.
017647,000014: ## 2023-07-12 MAS Updated for Aurora 88.
017648,000015:
017649,000016:
017650,000017: 14,2000 BANK 14
017651,000018: 14,2000 E5,1400 EBANK= XSM
017652,000019:
017653,000020:
017654,000021:
017655,000022: 14,2000 37652 AOTNBIMU CAF ONE # AOT-NB-IMU FINE ALIGNMENT TEST
017656,000023: 14,2001 55512 TS EROPTN # ... TEST CAPABILITY ...
017657,000024:
017658,000025: 14,2002 04063 TC BANKCALL
017659,000026: 14,2003 26000 CADR IMUZERO # IMU ZERO ENCODER MODE
017660,000027: 14,2004 06000 TC INTPRET
017661,000028: 14,2005 77634 CALL
017662,000029: 14,2006 30535 LATAZCHK # TO LOAD AZIMUTH (SM) AND LATITUDE
017663,000030: 14,2007 77634 CALL
017664,000031: 14,2010 30332 MAKEXSMD # TO SET UP A STABLE MEMBER DESIRED MATRIX
017665,000032: 14,2011 47014 SET CALL
017666,000033: 14,2012 00065 COAROFIN # FOR COARSE OR FINE ALIGN MARKS
017667,000034: 14,2013 30412 ERTHRVSE # TO CALCULATE EARTH RATE VECTOR
017668,000035: 14,2014 77776 EXIT
017669,000036:
017670,000037: 14,2015 33657 POSLOAD CAF V24N30E # R1 0000X ENTER POSITION 1,2, OR 3
017671,000038: 14,2016 05234 TC NVSBWAIT # R2 00000 ENTER 00001 FOR LAB OPTION
017672,000039: 14,2017 05042 TC ENDIDLE
017673,000040: 14,2020 12752 TCF ENDTEST
017674,000041: 14,2021 12015 TCF -4
017675,000042: 14,2022 56333 XCH DSPTEM1 # DO NOT USE POSITION 3 WITH NAV BASE AT
017676,000043: 14,2023 55544 TS POSITON # ZERO DEGREE TILT ANGLE. (GIMBAL LOCK)
017677,000044:
017678,000045: 14,2024 10334 CCS DSPTEM1 +1
017679,000046: 14,2025 12765 TCF LEMLAB # SPECIAL LAB TEST TO BYPASS MARKS
017680,000047:
017681,000048: 14,2026 02603 TC POSNJUMP # SET UP STABLE MEMBER DESIRED COORDINATES
017682,000049:
017683,000050: 14,2027 02506 TC OPTDATA # TARGETS 1,2 AZIMUTH AND ELEVATION
017684,000051:
017685,000052: 14,2030 02135 TC FINDNAVB # COARSE ALIGN MARKS
017686,000053:
017687,000054: 14,2031 04063 TC BANKCALL
017688,000055: 14,2032 26716 CADR IMUSTALL # INSURE IMUZERO COMPLETION
017689,000056: 14,2033 12752 TCF ENDTEST
017690,000057:
017691,000058: 14,2034 02254 TC PUTPOSX # TO COARSE ALIGN STABLE MEMBER
017692,000059:
017693,000060: 14,2035 02744 TC GMLCKCHK # CHECK FOR GIMBAL LOCK BEFORE FINE ALIGN
017694,000061: 14,2036 02734 TC OGCZERO # FOR EARTH RATE COMPENSATION
017695,000062:
017696,000063: 14,2037 04063 TC BANKCALL
017697,000064: 14,2040 26227 CADR IMUFINE # FINE ALIGN MODE
017698,000065: 14,2041 04063 TC BANKCALL
017699,000066: 14,2042 26716 CADR IMUSTALL
017700,000067: 14,2043 12752 TCF ENDTEST
017701,000068:
017702,000069: 14,2044 02135 TC FINDNAVB # FINE ALIGN MARKS
017703,000070:
017704,000071: 14,2045 05303 TC FREEDSP # FREE DISPLAY SYSTEM
017705,000072:
017706,000073: 14,2046 02270 TC SMDCALC # TO FINE ALIGN STABLE MEMBER
017707,000074:
017708,000075: 14,2047 04063 ERFINAL TC BANKCALL # LAST EARTH RATE SHOT
017709,000076: 14,2050 30427 CADR EARTHR
017710,000077: 14,2051 11512 CCS EROPTN # IF DESIRED TO COMPENSATE CONTINUALLY
017711,000078: 14,2052 12065 TCF MONSTART # CHANGE BY V21 N02 E XXXXX E 00000 E
017712,000079: 14,2053 12047 TCF ERFINAL
017713,000080: 14,2054 12752 TCF ENDTEST
017714,000081: 14,2055 55512 TS EROPTN
017715,000082: 14,2056 00004 INHINT
017716,000083: 14,2057 34432 CAF PRIO21 # PRIORITY 1 HIGHER THAN SXTNBIMU
017717,000084: 14,2060 04307 TC FINDVAC
017718,000085: 14,2061 03067 30005 2CADR RDR37511
017719,000086: 14,2063 00003 RELINT
017720,000087: 14,2064 02047 TC ERFINAL
017721,000088:
017722,000089: 14,2065 05372 MONSTART TC FINETIME # TIME AT INITIAL MISALIGNMENT
017723,000090: 14,2066 52141 DXCH MPAC
017724,000091: 14,2067 00003 RELINT
017725,000092: 14,2070 37657 CAF ZERO # ZERO PIPA COUNTERS
017726,000093: 14,2071 54037 TS PIPAX
017727,000094: 14,2072 54040 TS PIPAY
017728,000095: 14,2073 54041 TS PIPAZ
017729,000096: 14,2074 55551 TS STOREPL
017730,000097: 14,2075 55537 TS NDXCTR
017731,000098: 14,2076 02461 TC STORRSLT # STORE T(INITIAL) AND PIPAI = 0
017732,000099:
017733,000100: 14,2077 00004 INHINT
017734,000101: 14,2100 33670 CAF 60SEC # INSURE PIPAI VARIES IN ONE DIRECTION
017735,000102: 14,2101 04451 TC WAITLIST
017736,000103: 14,2102 02106 30005 2CADR PIP1
017737,000104:
017738,000105: 14,2104 32134 CAF PIP2ADR
017739,000106: 14,2105 04331 TC JOBSLEEP
017740,000107:
017741,000108: 14,2106 32134 PIP1 CAF PIP2ADR
017742,000109: 14,2107 04335 TC JOBWAKE
017743,000110: 14,2110 04505 TC TASKOVER
017744,000111:
017745,000112: 14,2111 31542 PIP2 CAE PIPNDX
017746,000113: 14,2112 55541 TS PIPINDEX # POS1 PIPAY POS2 PIPAX POS3 PIPAX
017747,000114: 14,2113 04063 TC BANKCALL
017748,000115: 14,2114 36774 CADR CHECKG # SYNC ON PIPA PULSE
017749,000116:
017750,000117: 14,2115 00003 RELINT
017751,000118:
017752,000119: 14,2116 02461 TC STORRSLT # STORE TIME AND PIPAI
017753,000120:
017754,000121: 14,2117 31543 CAE PIPNDX +1
017755,000122: 14,2120 55541 TS PIPINDEX # POS1 PIPAZ POS2 PIPAY POS3 PIPAZ
017756,000123: 14,2121 04063 TC BANKCALL
017757,000124: 14,2122 36774 CADR CHECKG # SYNC ON PIPA PULSE
017758,000125:
017759,000126: 14,2123 00003 RELINT
017760,000127: 14,2124 02461 TC STORRSLT # STORE TIME AND PIPAI
017761,000128:
017762,000129: 14,2125 00004 INHINT
017763,000130: 14,2126 33667 CAF 30SEC # MONITOR PIPAS AT 30 SECOND INTERVALS
017764,000131: 14,2127 04451 TC WAITLIST
017765,000132: 14,2130 02106 30005 2CADR PIP1
017766,000133: 14,2132 32134 CAF PIP2ADR
017767,000134: 14,2133 04331 TC JOBSLEEP
017768,000135: 14,2134 30111 PIP2ADR CADR PIP2
017769,000136:
017770,000137: 14,2135 00006 FINDNAVB EXTEND # MARKS * CALC NB OR SM WRT EARTH REF
017771,000138: 14,2136 23546 QXCH QPLACE
017772,000139:
017773,000140: 14,2137 11212 CCS LOTSFLAG
017774,000141: 14,2140 12142 TCF +2
017775,000142: 14,2141 12144 TCF +3
017776,000143: 14,2142 04063 TC BANKCALL
017777,000144: 14,2143 16004 CADR LOTMARKB
017778,000145:
017779,000146: 14,2144 04063 TC BANKCALL
017780,000147: 14,2145 27014 CADR MKRELEAS # RELEASE MARK SYSTEM
017781,000148: 14,2146 37652 CAF ONE
017782,000149: 14,2147 54333 TS DSPTEM1
017783,000150: 14,2150 33653 CAF V01N30E # DISPLAY 00001 IN R1
017784,000151: 14,2151 05234 TC NVSBWAIT
017785,000152: 14,2152 37657 CAF ZERO # TO INDICATE GROUND MARKS
017786,000153: 14,2153 04063 TC BANKCALL
017787,000154: 14,2154 26753 CADR AOTMARK # MARK ON TARGET 1
017788,000155:
017789,000156: 14,2155 04063 TC BANKCALL
017790,000157: 14,2156 26714 CADR OPTSTALL # INSURE SUCCESSFUL MARK
017791,000158: 14,2157 12752 TCF ENDTEST
017792,000159: 14,2160 00006 EXTEND
017793,000160: 14,2161 50374 INDEX MARKSTAT
017794,000161: 14,2162 30001 DCA 0
017795,000162: 14,2163 53565 DXCH TMARK # TIME(PRES) FOR EARTH RATE COMPENSATION
017796,000163:
017797,000164: 14,2164 02247 TC GIMANGS1
017798,000165:
017799,000166: 14,2165 06000 TC INTPRET
017800,000167: 14,2166 47140 LXC,1 CALL
017801,000168: 14,2167 00374 MARKSTAT # BASE ADDRESS VAC AREA FOR AOTNB
017802,000169: 14,2170 33167 AOTNB # OPTICS TO NAV BASE COORDINATE FRAME
017803,000170: 14,2171 47014 BON CALL
017804,000171: 14,2172 00305 COAROFIN # COARSE MARKS = 0 FINE MARKS = 1
017805,000172: 14,2173 30175 +2
017806,000173: 14,2174 32517 NBSM # NAV BASE DIRECT TO STABLE MEMBER
017807,000174: 14,2175 01445 STORE STARAD # TARGET 1 WRT NAV BASE OR STABLE MEMBER
017808,000175: 14,2176 01602 STORE LOS1 # ...FOR K...
017809,000176: 14,2177 77776 EXIT
017810,000177:
017811,000178: 14,2200 04063 TC BANKCALL
017812,000179: 14,2201 27014 CADR MKRELEAS # RELEASE MARK SYSTEM
017813,000180: 14,2202 37651 CAF TWO
017814,000181: 14,2203 54333 TS DSPTEM1
017815,000182: 14,2204 33653 CAF V01N30E # DISPLAY 00002 IN R1
017816,000183: 14,2205 05234 TC NVSBWAIT
017817,000184: 14,2206 37657 CAF ZERO # TO INDICATE GROUND MARKS
017818,000185: 14,2207 04063 TC BANKCALL
017819,000186: 14,2210 26753 CADR AOTMARK # MARK ON TARGET 2
017820,000187:
017821,000188: 14,2211 37641 CAF BIT10
017822,000189: 14,2212 70061 MASK STATE # BIT10 = COAROFIN
017823,000190: 14,2213 10000 CCS A
017824,000191: 14,2214 12222 TCF EARRTCOM +5 # IF COARSE ALIGN MARKS
017825,000192:
017826,000193: 14,2215 04063 EARRTCOM TC BANKCALL # EARTH RATE COMPENSATION BETWEEN MARKS
017827,000194: 14,2216 30427 CADR EARTHR
017828,000195: 14,2217 10372 CCS OPTCADR # +0 IF MARK BUTTON NOT DEPRESSED
017829,000196: 14,2220 12223 TCF +3
017830,000197: 14,2221 12215 TCF EARRTCOM # CONTINUE TO COMPENSATE FOR EARTH RATE
017831,000198: 14,2222 12223 TCF +1
017832,000199: 14,2223 04063 TC BANKCALL
017833,000200: 14,2224 26714 CADR OPTSTALL # INSURE SUCCESSFUL MARK
017834,000201: 14,2225 12752 TCF ENDTEST
017835,000202:
017836,000203: 14,2226 02247 TC GIMANGS1
017837,000204:
017838,000205: 14,2227 06000 TC INTPRET
017839,000206: 14,2230 47140 LXC,1 CALL
017840,000207: 14,2231 00374 MARKSTAT # BASE ADDRESS VAC AREA FOR AOTNB
017841,000208: 14,2232 33167 AOTNB # OPTICS TO NAV BASE COORDINATE FRAME
017842,000209: 14,2233 47014 BONCLR CALL # SET TO ZERO FOR FINE ALIGN MARKS
017843,000210: 14,2234 00205 COAROFIN # COARSE MARKS = 0 FINE MARKS = 1
017844,000211: 14,2235 30237 +2
017845,000212: 14,2236 32517 NBSM # NAV BASE DIRECT TO STABLE MEMBER
017846,000213: 14,2237 01453 STORE STARAD +6 # TARGET 2 WRT NAV BASE OR STABLE MEMBER
017847,000214: 14,2240 01610 STORE LOS2 # ...FOR K...
017848,000215:
017849,000216: 14,2241 77634 MAXDET CALL
017850,000217: 14,2242 30355 TAR/EREF # TARGETS 1,2 WRT EARTH REF FRAME
017851,000218: 14,2243 77634 CALL
017852,000219: 14,2244 32677 AXISGEN # NAV BASE OR SM WRT EARTH REF FRAME
017853,000220: 14,2245 77776 EXIT
017854,000221: 14,2246 01546 TC QPLACE
017855,000222:
017856,000223:
017857,000224:
017858,000225: 14,2247 37651 GIMANGS1 CAF TWO # BASE ADDRESS GIMBAL ANGLES FOR NBSM
017859,000226: 14,2250 60374 AD MARKSTAT
017860,000227: 14,2251 50104 INDEX FIXLOC
017861,000228: 14,2252 54050 TS S1
017862,000229: 14,2253 00002 TC Q
017863,000230:
017864,000231: 14,2254 00006 PUTPOSX EXTEND # COARSE ALIGNS STABLE MEMBER
017865,000232: 14,2255 23546 QXCH QPLACE
017866,000233:
017867,000234: 14,2256 06000 TC INTPRET
017868,000235: 14,2257 77634 CALL
017869,000236: 14,2260 32615 CALCGA # CALCULATE COARSE ALIGN GIMBAL ANGLES
017870,000237: 14,2261 77776 EXIT
017871,000238:
017872,000239: 14,2262 04063 TC BANKCALL
017873,000240: 14,2263 26055 CADR IMUCOARS # COARSE ALIGN MODE
017874,000241: 14,2264 04063 TC BANKCALL
017875,000242: 14,2265 26716 CADR IMUSTALL
017876,000243: 14,2266 12752 TCF ENDTEST
017877,000244: 14,2267 01546 TC QPLACE
017878,000245:
017879,000246:
017880,000247:
017881,000248:
017882,000249: 14,2270 00006 SMDCALC EXTEND # FINE ALIGNS STABLE MEMBER
017883,000250: 14,2271 23546 QXCH QPLACE
017884,000251:
017885,000252: 14,2272 06000 TC INTPRET
017886,000253: 14,2273 64375 VLOAD MXV
017887,000254: 14,2274 01401 XSM # XSM DESIRED WRT EARTH REF FRAME
017888,000255: 14,2275 01445 STARAD # THEN TO SM PRESENT OR NAV BASE FRAME
017889,000256: 14,2276 43172 VSL1 BOFF
017890,000257: 14,2277 00345 COAROFIN # BIT10 FOR LEMLAB TEST
017891,000258: 14,2300 30303 +3
017892,000259: 14,2301 36041 STCALL 32D
017893,000260: 14,2302 32517 NBSM # THEN TO SM PRESENT FRAME
017894,000261: 14,2303 23423 STOVL XDC
017895,000262: 14,2304 01407 YSM # YSM DESIRED WRT EARTH REF FRAME
017896,000263:
017897,000264: 14,2305 76521 MXV VSL1
017898,000265: 14,2306 01445 STARAD # THEN TO SM PRESENT OR NAV BASE FRAME
017899,000266: 14,2307 77614 BOFF
017900,000267: 14,2310 00345 COAROFIN # BIT10 FOR LEMLAB TEST
017901,000268: 14,2311 30314 +3
017902,000269: 14,2312 36041 STCALL 32D
017903,000270: 14,2313 32517 NBSM # THEN TO SM PRESENT FRAME
017904,000271: 14,2314 23431 STOVL YDC
017905,000272: 14,2315 01423 XDC
017906,000273:
017907,000274: 14,2316 76435 VXV VSL1
017908,000275: 14,2317 01431 YDC
017909,000276: 14,2320 37437 STCALL ZDC # ZSM DESIRED WRT SM PRESENT FRAME
017910,000277: 14,2321 32367 CALCGTA # CALCULATE FINE ALIGN TORQUING ANGLES
017911,000278:
017912,000279: 14,2322 45170 AXT,1 RTB
017913,000280:
017914,000281: 14,2323 02500 ECADR OGC # X1 = BASE ADDRESS OF TORQUING ANGLES
017915,000282: 14,2324 33633 PULSEIMU # TO PUT OUT GYRO TORQUING PULSES
017916,000283: 14,2325 77776 EXIT
017917,000284:
017918,000285: 14,2326 04063 TC BANKCALL
017919,000286: 14,2327 26716 CADR IMUSTALL # WAIT FOR PULSES TO GET OUT
017920,000287: 14,2330 12752 TCF ENDTEST
017921,000288: 14,2331 01546 TC QPLACE
017922,000289:
017923,000290: 14,2332 77776 MAKEXSMD EXIT # XSM V YSM SW ZSM SE
017924,000291: 14,2333 33662 CAF 17DEC # ZERO XSM, YSM, AND ZSM
017925,000292: 14,2334 55747 TS ZERONDX
017926,000293: 14,2335 33700 CAF XSMADRX
017927,000294: 14,2336 04063 TC BANKCALL
017928,000295: 14,2337 37241 CADR ZEROING # VERT SOUTH EAST
017929,000296:
017930,000297: 14,2340 37635 CAF HALF # XSM * +1 0 0 *
017931,000298: 14,2341 55400 TS XSM # * *
017932,000299: 14,2342 06000 TC INTPRET # * *
017933,000300: 14,2343 73545 DLOAD SIN # YSM * 0 +SIN(AZ) +COS(AZ) *
017934,000301: 14,2344 01507 AZIMUTH # * *
017935,000302: 14,2345 01411 STORE XSM +8D # * *
017936,000303: 14,2346 07421 STODL XSM +16D # ZSM * 0 -COS(AZ) +SIN(AZ) *
017937,000304: 14,2347 01507 AZIMUTH
017938,000305: 14,2350 77746 COS
017939,000306: 14,2351 01413 STORE XSM +10D
017940,000307: 14,2352 77676 DCOMP
017941,000308: 14,2353 01417 STORE XSM +14D
017942,000309: 14,2354 77616 RVQ
017943,000310:
017944,000311:
017945,000312:
017946,000313: 14,2355 77170 TAR/EREF AXT,1 AXT,2 # TARGET VECTOR
017947,000314: 14,2356 00002 2 # SIN(EL) -COS(AZ)COS(EL) SIN(AZ)COS(EL)
017948,000315: 14,2357 00014 12D
017949,000316: 14,2360 77731 SSP
017950,000317: 14,2361 00052 S2
017951,000318: 14,2362 00006 6 # TARGET 1 TARGET 2
017952,000319:
017953,000320: 14,2363 60533 TAR1 SLOAD* SR2 # X1=2 X2=12 S2=6 . X1=0 X2=6 S2=6
017954,000321: 14,2364 01557 TAZEL1 +3,1
017955,000322: 14,2365 00001 STORE 0 # PD00 ELEVATION PD00
017956,000323: 14,2366 77756 SIN
017957,000324: 14,2367 12023 STODL 18D,2 # PD06 *** SIN(EL) *** PD12
017958,000325:
017959,000326: 14,2370 00001 0
017960,000327: 14,2371 41546 COS PUSH # PDOO COS(EL) PD00
017961,000328: 14,2372 45133 SLOAD* RTB
017962,000329: 14,2373 01556 TAZEL1 +2,1
017963,000330: 14,2374 33463 CDULOGIC
017964,000331: 14,2375 00003 STORE 2 # PD02 AZIMUTH PD02
017965,000332: 14,2376 41356 SIN DMP
017966,000333: 14,2377 00001 0
017967,000334: 14,2400 77752 SL1
017968,000335: 14,2401 12027 STODL 22D,2 # PD10 *** +SIN(AZ)COS(EL) *** PD16
017969,000336:
017970,000337: 14,2402 00003 2
017971,000338: 14,2403 41346 COS DMP
017972,000339: 14,2404 57552 SL1 DCOMP
017973,000340: 14,2405 04025 STORE 20D,2 # PD08 *** -COS(AZ)COS(EL) *** PD14
017974,000341:
017975,000342: 14,2406 61170 AXT,1 TIX,2
017976,000343: 14,2407 00000 0
017977,000344: 14,2410 30363 TAR1
017978,000345: 14,2411 77616 RVQ
017979,000346:
017980,000347: 14,2412 65345 ERTHRVSE DLOAD PDDL
017981,000348: 14,2413 33160 ZERODP # PD24 = (SIN -COS 0)(OMEG/MS)
017982,000349: 14,2414 01511 LATITUDE
017983,000350: 14,2415 57546 COS DCOMP
017984,000351: 14,2416 73525 PDDL SIN
017985,000352: 14,2417 01511 LATITUDE # EARTH RATE = .1504 ARCSEC / 10 MSEC
017986,000353: 14,2420 74266 VDEF VXSC # 1.618 GYRO PULSES = 1 ARCSEC
017987,000354: 14,2421 31704 OMEG/MS # OMEG/MS = .243... GYRO PULSES / 10 MSEC
017988,000355: 14,2422 01514 STORE ERVECTOR
017989,000356:
017990,000357: 14,2423 77624 RTB
017991,000358: 14,2424 33460 LOADTIME
017992,000359: 14,2425 01565 STORE TMARK # TIME FOR GYRO DRIFT - PIPA SCALE FACTOR
017993,000360: 14,2426 77616 RVQ
017994,000361:
017995,000362:
017996,000363:
017997,000364:
017998,000365:
017999,000366: 14,2427 04112 EARTHR TC MAKECADR # CLACULATES AND COMPENSATES EARTH RATE
018000,000367: 14,2430 55547 TS QPLACES
018001,000368:
018002,000369: 14,2431 06000 TC INTPRET
018003,000370: 14,2432 77624 RTB
018004,000371: 14,2433 33460 LOADTIME # T(PRESENT)
018005,000372: 14,2434 01562 STORE TEMPTIME
018006,000373: 14,2435 54225 DSU SL
018007,000374: 14,2436 01565 TMARK # T(PRES) - T(PREV) = DT SCALED 10 MSEC
018008,000375: 14,2437 00212 9D # 2 TO 21ST POWER = 1 REVOLUTION
018009,000376: 14,2440 64361 VXSC MXV
018010,000377: 14,2441 01514 ERVECTOR # VT = (SIN -COS 0)(OMEG/MS)(DT)
018011,000378: 14,2442 01401 XSM # (XSM)(VT) = EARTH RATE COMPENSATION
018012,000379: 14,2443 77655 VAD
018013,000380: 14,2444 01501 ERCOMP
018014,000381: 14,2445 07501 STODL ERCOMP
018015,000382: 14,2446 01562 TEMPTIME
018016,000383: 14,2447 01565 STORE TMARK # T(PREVIOUS)
018017,000384:
018018,000385: 14,2450 45170 AXT,1 RTB
018019,000386: 14,2451 02500 ECADR ERCOMP
018020,000387: 14,2452 33633 PULSEIMU # TO PUT OUT GYRO TORQUING PULSES
018021,000388: 14,2453 77776 EXIT
018022,000389:
018023,000390: 14,2454 04063 TC BANKCALL
018024,000391: 14,2455 26716 CADR IMUSTALL # WAIT FOR PULSES TO GET OUT
018025,000392: 14,2456 12752 TCF ENDTEST
018026,000393: 14,2457 31547 CAE QPLACES
018027,000394: 14,2460 14105 TCF BANKJUMP
018028,000395:
018029,000396: 14,2461 00006 STORRSLT EXTEND
018030,000397: 14,2462 23546 QXCH QPLACE
018031,000398:
018032,000399: 14,2463 06000 TC INTPRET # DP TIME IN MPAC SCALED .312(5) MSEC
018033,000400: 14,2464 54340 LXC,1 SL
018034,000401: 14,2465 01537 NDXCTR
018035,000402: 14,2466 00204 3
018036,000403: 14,2467 45005 DMP RTB
018037,000404: 14,2470 31702 SCALFTR
018038,000405: 14,2471 33524 SGNAGREE
018039,000406: 14,2472 03572 STORE GENPL,1 # STORE DP TIME
018040,000407: 14,2473 77776 EXIT
018041,000408:
018042,000409: 14,2474 57551 XCH STOREPL # CONTAINS C(PIPAI)
018043,000410: 14,2475 51537 INDEX NDXCTR
018044,000411: 14,2476 55573 TS GENPL +2 # STORE PIPA COUNTER READING
018045,000412: 14,2477 41537 CS NDXCTR
018046,000413: 14,2500 63666 AD 72DEC
018047,000414: 14,2501 00006 EXTEND
018048,000415: 14,2502 63130 BZMF MISALIGN # TO CALCULATE MISALIGNMENT
018049,000416: 14,2503 36165 CAF THREE
018050,000417: 14,2504 27537 ADS NDXCTR
018051,000418: 14,2505 01546 TC QPLACE
018052,000419:
018053,000420: 14,2506 00006 OPTDATA EXTEND # CALLS FOR AZIMUTH AND ELEVATION OF
018054,000421: 14,2507 23546 QXCH QPLACE # TARGET 1, THEN TARGET 2
018055,000422:
018056,000423: 14,2510 37652 CAF BIT1 # AZIMUTH CLOCKWISE FROM NORTH TO TARGET
018057,000424: 14,2511 22007 ZL # ELEVATION MEASURED FROM HORIZONTAL
018058,000425: 14,2512 23550 LXCH RUN
018059,000426: 14,2513 54335 TS DSPTEM1 +2
018060,000427: 14,2514 33654 CAF V05N30E # DISPLAY TARGET NUMBER IN R3
018061,000428: 14,2515 05234 TC NVSBWAIT
018062,000429: 14,2516 51550 INDEX RUN
018063,000430: 14,2517 53554 DXCH TAZEL1
018064,000431: 14,2520 52334 DXCH DSPTEM1
018065,000432:
018066,000433: 14,2521 02561 TC CHECKLD # R1 +- XXX.XX AZIMUTH IN DEGREES
018067,000434: 14,2522 00661 OCT 00661 # R2 +- XX.XXX ELEVATION IN DEGREES
018068,000435: 14,2523 12752 TCF ENDTEST # R3 0000X TARGET NUMBER 1 OR 2
018069,000436:
018070,000437: 14,2524 52334 DXCH DSPTEM1 # TAZEL1 TARGET 1 AZIMUTH
018071,000438: 14,2525 51550 INDEX RUN
018072,000439: 14,2526 53554 DXCH TAZEL1 # TAZEL1 +2 TARGET 2 AZIMUTH
018073,000440: 14,2527 11550 CCS RUN
018074,000441: 14,2530 12534 TCF +4
018075,000442: 14,2531 37651 OPTRDRIN CAF TWO # SPECIAL ENTRY FOR RDR37511
018076,000443: 14,2532 54001 TS L
018077,000444: 14,2533 12512 TCF OPTDATA +4 # MPAC 1ST PASS = 0 2ND PASS = 2
018078,000445: 14,2534 01546 TC QPLACE
018079,000446:
018080,000447: 14,2535 62545 LATAZCHK DLOAD SL2 # CALLS FOR AZIMUTH (SM) AND LATITUDE
018081,000448: 14,2536 01511 LATITUDE
018082,000449: 14,2537 06335 STODL DSPTEM1 +1
018083,000450: 14,2540 01507 AZIMUTH # ...NOT REALLY...
018084,000451:
018085,000452: 14,2541 77424 RTB EXIT
018086,000453: 14,2542 33526 1STO2S # FRACTION OF REVOLUTION TO 2S COMPLEMENT
018087,000454:
018088,000455: 14,2543 56140 XCH MPAC # AZIMUTH MUST BE 135 DEGREES R1 = .13500
018089,000456: 14,2544 54333 TS DSPTEM1 # FOR SXT-NB-IMU FINE ALIGNMENT TEST
018090,000457: 14,2545 02561 TC CHECKLD # R1 +- XXX.XX AZIMUTH IN DEGREES (SM)
018091,000458: 14,2546 00661 OCT 00661 # R2 +- XX.XXX LATITUDE IN DEGREES
018092,000459: 14,2547 12752 TCF ENDTEST # R3 NOT USED
018093,000460:
018094,000461: 14,2550 06000 TC INTPRET
018095,000462: 14,2551 45135 SLOAD RTB
018096,000463: 14,2552 00334 DSPTEM1
018097,000464: 14,2553 33463 CDULOGIC # BACK TO FRACTION OF REVOLUTION
018098,000465: 14,2554 01507 STORE AZIMUTH
018099,000466:
018100,000467: 14,2555 60535 SLOAD SR2
018101,000468: 14,2556 00335 DSPTEM1 +1
018102,000469: 14,2557 01511 STORE LATITUDE
018103,000470: 14,2560 77616 RVQ
018104,000471:
018105,000472:
018106,000473: 14,2561 00006 CHECKLD EXTEND
018107,000474: 14,2562 23545 QXCH QPLAC
018108,000475:
018109,000476: 14,2563 51545 INDEX QPLAC
018110,000477: 14,2564 30000 CA A
018111,000478: 14,2565 05011 TC NVSUB
018112,000479: 14,2566 12600 TCF CHECKLD1
018113,000480:
018114,000481: 14,2567 05176 TC FLASHON
018115,000482:
018116,000483: 14,2570 05042 TC ENDIDLE # CHANGE R1 V21 N61 E +- XXX.XX E
018117,000484: 14,2571 12574 TCF +3 # CHANGE R2 V22 N61 E +- XX.XXX E
018118,000485: 14,2572 12576 TCF +4 # VERIFY, THEN PROCEED WITH VERB 33 ENTER
018119,000486: 14,2573 12563 TCF CHECKLD +2
018120,000487: 14,2574 51545 INDEX QPLAC
018121,000488: 14,2575 00001 TC 1
018122,000489: 14,2576 51545 INDEX QPLAC
018123,000490: 14,2577 00002 TC 2
018124,000491:
018125,000492: 14,2600 32602 CHECKLD1 CAF CHECKLD2
018126,000493: 14,2601 05231 TC NVSUBUSY
018127,000494: 14,2602 30563 CHECKLD2 CADR CHECKLD +2
018128,000495:
018129,000496: 14,2603 00006 POSNJUMP EXTEND # POSITIONS FOR SXTNBIMU
018130,000497: 14,2604 23546 QXCH QPLACE
018131,000498:
018132,000499: 14,2605 51544 INDEX POSITON
018133,000500: 14,2606 12607 TCF +1
018134,000501: 14,2607 12752 TCF ENDTEST
018135,000502: 14,2610 12615 TCF POS1
018136,000503: 14,2611 12622 TCF POS2
018137,000504: 14,2612 12640 TCF POS3
018138,000505: 14,2613 12661 TCF POS4
018139,000506: 14,2614 12713 TCF POS5
018140,000507:
018141,000508:
018142,000509:
018143,000510: 14,2615 37652 POS1 CAF ONE # XSM = V YSM = SW ZSM = SE
018144,000511: 14,2616 55542 TS PIPNDX
018145,000512: 14,2617 37651 CAF TWO
018146,000513: 14,2620 55543 TS PIPNDX +1 # MONITOR PIPAY AND PIPAZ
018147,000514: 14,2621 01546 TC QPLACE
018148,000515:
018149,000516:
018150,000517:
018151,000518: 14,2622 06000 POS2 TC INTPRET # XSM = SE YSM = SW ZSM = -V
018152,000519: 14,2623 57575 VLOAD VCOMP
018153,000520: 14,2624 01401 XSM
018154,000521: 14,2625 77715 PDVL
018155,000522: 14,2626 01415 ZSM
018156,000523: 14,2627 23401 STOVL XSM
018157,000524: 14,2630 77626 STADR
018158,000525: 14,2631 76362 STORE ZSM
018159,000526: 14,2632 77776 EXIT
018160,000527: 14,2633 37657 CAF ZERO
018161,000528: 14,2634 55542 TS PIPNDX
018162,000529: 14,2635 37652 CAF ONE
018163,000530: 14,2636 55543 TS PIPNDX +1 # MONITOR PIPAX AND PIPAY
018164,000531: 14,2637 01546 TC QPLACE
018165,000532:
018166,000533:
018167,000534:
018168,000535: 14,2640 06000 POS3 TC INTPRET # XSM = SE YSM = V ZSM = SW
018169,000536: 14,2641 63375 VLOAD PDVL
018170,000537: 14,2642 01401 XSM
018171,000538: 14,2643 01407 YSM
018172,000539: 14,2644 77715 PDVL
018173,000540: 14,2645 01415 ZSM
018174,000541: 14,2646 23401 STOVL XSM
018175,000542:
018176,000543: 14,2647 77626 STADR
018177,000544: 14,2650 54362 STOVL ZSM
018178,000545:
018179,000546: 14,2651 77626 STADR
018180,000547: 14,2652 76370 STORE YSM
018181,000548: 14,2653 77776 EXIT
018182,000549: 14,2654 37657 CAF ZERO
018183,000550: 14,2655 55542 TS PIPNDX
018184,000551: 14,2656 37651 CAF TWO
018185,000552: 14,2657 55543 TS PIPNDX +1 # MONITOR PIPAX AND PIPAZ
018186,000553: 14,2660 01546 TC QPLACE
018187,000554:
018188,000555:
018189,000556:
018190,000557: 14,2661 37646 POS4 CAF BIT5 # OPTION TO ALIGN SM TO SPECIFIED ANGLES
018191,000558: 14,2662 60104 AD FIXLOC
018192,000559: 14,2663 50104 INDEX FIXLOC
018193,000560: 14,2664 54050 TS S1 # BASE ADDRESS GIMBAL ANGLES
018194,000561: 14,2665 33660 CAF V25N22E # R1 +- XXX.XX OUTER GIMBAL ANGLE
018195,000562: 14,2666 05234 TC NVSBWAIT # R2 +- XXX.XX INNER GIMBAL ANGLE
018196,000563: 14,2667 05042 TC ENDIDLE # R3 +- XXX.XX MIDDLE GIMBAL ANGLE
018197,000564: 14,2670 12752 TCF ENDTEST
018198,000565: 14,2671 12665 TCF -4
018199,000566: 14,2672 30400 CA THETAD # SET UP ANGLES FOR SMNB
018200,000567: 14,2673 50104 INDEX FIXLOC
018201,000568: 14,2674 54024 TS 24
018202,000569: 14,2675 30401 CA THETAD +1
018203,000570: 14,2676 50104 INDEX FIXLOC
018204,000571: 14,2677 54020 TS 20
018205,000572: 14,2700 30402 CA THETAD +2
018206,000573: 14,2701 50104 INDEX FIXLOC
018207,000574: 14,2702 54022 TS 22
018208,000575:
018209,000576: 14,2703 06000 TC INTPRET
018210,000577: 14,2704 47024 RTB CALL
018211,000578: 14,2705 33104 TRANSPSE # EARTH REF WRT NAV BASE
018212,000579: 14,2706 33116 SMD/EREF # STABLE MEMBER DESIRED WRT EARTH REF
018213,000580: 14,2707 77624 RTB
018214,000581: 14,2710 33104 TRANSPSE # BACK TO NAV BASE WRT TO EARTH REF
018215,000582: 14,2711 77776 EXIT
018216,000583: 14,2712 01546 TC QPLACE
018217,000584:
018218,000585: 14,2713 31546 POS5 CA QPLACE # OPTION TO ALIGN SM TO ANY ORIENTATION
018219,000586: 14,2714 55551 TS STOREPL # WRT EARTH REFERENCE FRAME
018220,000587:
018221,000588: 14,2715 02506 TC OPTDATA # LOAD YSM AND ZSM AZIMUTH AND ELEVATION
018222,000589:
018223,000590: 14,2716 06000 TC INTPRET
018224,000591: 14,2717 77634 CALL
018225,000592: 14,2720 30355 TAR/EREF # CALC YSM AND ZSM WRT EARTH REF. FRAME
018226,000593: 14,2721 41575 VLOAD PUSH
018227,000594: 14,2722 00007 6D
018228,000595: 14,2723 01407 STORE YSM
018229,000596: 14,2724 76435 VXV VSL1
018230,000597: 14,2725 00015 12D
018231,000598: 14,2726 01401 STORE XSM # XSM = (YSM) X (ZSM)
018232,000599: 14,2727 76435 VXV VSL1
018233,000600: 14,2730 77626 STADR
018234,000601: 14,2731 76362 STORE ZSM # ZSM = (XSM) X (YSM)
018235,000602: 14,2732 77776 EXIT
018236,000603:
018237,000604: 14,2733 01551 TC STOREPL
018238,000605: 14,2734 00006 OGCZERO EXTEND # ZERO EARTH RATE TORQUING ANGLES
018239,000606: 14,2735 23546 QXCH QPLACE
018240,000607:
018241,000608: 14,2736 06000 TC INTPRET
018242,000609: 14,2737 77775 VLOAD
018243,000610: 14,2740 33160 ZERODP # VECTOR IN THIS CASE
018244,000611: 14,2741 01501 STORE ERCOMP
018245,000612: 14,2742 77776 EXIT
018246,000613: 14,2743 01546 TC QPLACE
018247,000614:
018248,000615:
018249,000616:
018250,000617:
018251,000618:
018252,000619: 14,2744 37645 GMLCKCHK CAF BIT6 # CHECK FOR GIMBAL LOCK (MGA GREATER 70)
018253,000620: 14,2745 70322 MASK DSPTAB +11D
018254,000621: 14,2746 00006 EXTEND
018255,000622: 14,2747 12751 BZF +2
018256,000623: 14,2750 12752 TCF ENDTEST
018257,000624: 14,2751 00002 TC Q
018258,000625:
018259,000626:
018260,000627:
018261,000628:
018262,000629:
018263,000630: 14,2752 37643 ENDTEST CA IMUSEFLG # BIT8
018264,000631: 14,2753 67644 AD RRUSEFLG # BIT7
018265,000632: 14,2754 40000 CS A
018266,000633: 14,2755 00004 INHINT
018267,000634: 14,2756 70061 MASK STATE
018268,000635: 14,2757 54061 TS STATE
018269,000636:
018270,000637: 14,2760 04572 TC NEWMODEX
018271,000638: 14,2761 00000 OCT 00000
018272,000639:
018273,000640: 14,2762 04063 TC BANKCALL
018274,000641: 14,2763 27014 CADR MKRELEAS # RELEASE MARK SYSTEM
018275,000642: 14,2764 04352 TC EJFREE
018276,000643:
018277,000644: 14,2765 06000 LEMLAB TC INTPRET
018278,000645: 14,2766 57575 VLOAD VCOMP
018279,000646: 14,2767 33154 YUNIT
018280,000647:
018281,000648: 14,2770 01437 STORE ZNB # XNB MATRIX USED IN CALCGA
018282,000649: 14,2771 23461 STOVL STARAD +12D # STARAD MATRIX USED IN AXISGEN * SMDCALC
018283,000650: 14,2772 33156 XUNIT
018284,000651:
018285,000652: 14,2773 01423 STORE XNB # *XNB* *1 0 0* *V*
018286,000653: 14,2774 23445 STOVL STARAD # * * * * * *
018287,000654: 14,2775 33152 ZUNIT # *YNB* = *0 0 1* *S*
018288,000655: 14,2776 01431 STORE YNB # * * * * * *
018289,000656: 14,2777 01453 STORE STARAD +6 # *ZNB* *0 -1 0* *E*
018290,000657: 14,3000 77776 EXIT
018291,000658:
018292,000659: 14,3001 41544 CS POSITON
018293,000660: 14,3002 66165 AD THREE
018294,000661: 14,3003 00006 EXTEND
018295,000662: 14,3004 13006 BZF +2
018296,000663: 14,3005 13021 TCF LEMLAB1
018297,000664:
018298,000665: 14,3006 06000 TC INTPRET
018299,000666: 14,3007 57575 VLOAD VCOMP
018300,000667: 14,3010 01423 XNB
018301,000668: 14,3011 77715 PDVL # *XNB* * 0 -1 0* *V*
018302,000669: 14,3012 01437 ZNB # * * * * * *
018303,000670: 14,3013 01423 STORE XNB # *YNB* = * 0 0 1* *S*
018304,000671: 14,3014 23445 STOVL STARAD # * * * * * *
018305,000672: 14,3015 77626 STADR # *ZNB* *-1 0 0* * *
018306,000673: 14,3016 76340 STORE ZNB
018307,000674: 14,3017 01461 STORE STARAD +12D
018308,000675: 14,3020 77776 EXIT
018309,000676:
018310,000677: 14,3021 04063 LEMLAB1 TC BANKCALL
018311,000678: 14,3022 26716 CADR IMUSTALL # INSURE IMUZERO COMPLETION
018312,000679:
018313,000680: 14,3023 12752 TCF ENDTEST
018314,000681:
018315,000682: 14,3024 02603 TC POSNJUMP # SET UP STABLE MEMBER DESIRED COORDINATES
018316,000683: 14,3025 05303 TC FREEDSP # FREE DISPLAY SYSTEM
018317,000684: 14,3026 02254 TC PUTPOSX # TO COARSE ALIGN STABLE MEMBER
018318,000685:
018319,000686: 14,3027 02744 TC GMLCKCHK
018320,000687:
018321,000688: 14,3030 04063 TC BANKCALL
018322,000689: 14,3031 26227 CADR IMUFINE # FINE ALIGN MODE
018323,000690: 14,3032 04063 TC BANKCALL
018324,000691: 14,3033 26716 CADR IMUSTALL
018325,000692: 14,3034 12752 TCF ENDTEST
018326,000693:
018327,000694: 14,3035 30032 CA CDUX
018328,000695: 14,3036 50104 INDEX FIXLOC
018329,000696: 14,3037 54024 TS 24
018330,000697: 14,3040 30033 CA CDUY
018331,000698: 14,3041 50104 INDEX FIXLOC
018332,000699: 14,3042 54020 TS 20
018333,000700: 14,3043 30034 CA CDUZ
018334,000701: 14,3044 50104 INDEX FIXLOC
018335,000702: 14,3045 54022 TS 22
018336,000703:
018337,000704: 14,3046 37646 CAF BIT5
018338,000705: 14,3047 60104 AD FIXLOC
018339,000706: 14,3050 50104 INDEX FIXLOC
018340,000707: 14,3051 54050 TS S1
018341,000708:
018342,000709: 14,3052 02270 TC SMDCALC # TO FINE ALIGN STABLE MEMBER
018343,000710:
018344,000711: 14,3053 06000 TC INTPRET # IF EARTH RATE COMPENSATION DESIRED
018345,000712: 14,3054 77624 RTB
018346,000713: 14,3055 33460 LOADTIME
018347,000714: 14,3056 01565 STORE TMARK
018348,000715: 14,3057 77776 EXIT
018349,000716:
018350,000717: 14,3060 41512 CS EROPTN
018351,000718: 14,3061 67651 AD TWO
018352,000719: 14,3062 00006 EXTEND
018353,000720: 14,3063 13065 BZF +2
018354,000721:
018355,000722: 14,3064 12051 TCF ERFINAL +2
018356,000723:
018357,000724: 14,3065 04063 TC BANKCALL
018358,000725: 14,3066 43622 CADR SAMODRTN # RETURN TO SEMI-AUTOMATIC MODING TEST
018359,000726:
018360,000727: 14,3067 33676 RDR37511 CAF RDRRETN # RENDEZVOUS RADAR AND ANTENNA TRACKING
018361,000728: 14,3070 55546 TS QPLACE # TO RETURN FROM OPTDATA
018362,000729:
018363,000730: 14,3071 04063 TC BANKCALL
018364,000731: 14,3072 20246 CADR RRZERO
018365,000732:
018366,000733: 14,3073 04063 TC BANKCALL
018367,000734: 14,3074 23022 CADR AURLOKON # OPERATOR DECISION TO LOCK ON OR NOT
018368,000735:
018369,000736: 14,3075 12531 RDR1 TCF OPTRDRIN # CALL FOR AZIMUTH AND ELEVATION
018370,000737:
018371,000738: 14,3076 04063 TC BANKCALL
018372,000739: 14,3077 26712 CADR RADSTALL
018373,000740: 14,3100 14353 TCF ENDOFJOB
018374,000741:
018375,000742: 14,3101 06000 TC INTPRET
018376,000743: 14,3102 77170 AXT,1 AXT,2 # SET UP X1 AND X2 FOR TAR/EREF
018377,000744: 14,3103 00000 0
018378,000745: 14,3104 00006 6
018379,000746: 14,3105 77634 CALL
018380,000747: 14,3106 30360 TAR/EREF +3 # LINE-OF-SIGHT WRT EARTH REF FRAME
018381,000748: 14,3107 64375 VLOAD MXV
018382,000749: 14,3110 00015 12D # LINE-OF-SIGHT WRT EARTH REF FRAME
018383,000750: 14,3111 01401 XSM # TO STABLE MEMBER PRESENT FRAME
018384,000751: 14,3112 77772 VSL1
018385,000752: 14,3113 36416 STCALL RRTARGET
018386,000753: 14,3114 20305 RRDESSM
018387,000754:
018388,000755: 14,3115 13122 TCF 37511ALM
018389,000756: 14,3116 04063 TC BANKCALL
018390,000757: 14,3117 26712 CADR RADSTALL
018391,000758: 14,3120 14353 TCF ENDOFJOB
018392,000759: 14,3121 14353 TCF ENDOFJOB
018393,000760:
018394,000761:
018395,000762:
018396,000763:
018397,000764:
018398,000765: 14,3122 05315 37511ALM TC ALARM
018399,000766: 14,3123 00524 OCT 524
018400,000767: 14,3124 14353 TCF ENDOFJOB
018401,000768:
018402,000769:
018403,000770:
018404,000771:
018405,000772:
018406,000773: 14,3125 47657 RDRINIT CS ZERO
018407,000774: 14,3126 55512 TS EROPTN
018408,000775: 14,3127 12002 TCF AOTNBIMU +2
018409,000776:
018410,000777: 14,3130 05221 MISALIGN TC GRABWAIT # DISPLAY SYSTEM WAS FREED
018411,000778: 14,3131 37657 CAF ZERO
018412,000779: 14,3132 55537 TS NDXCTR
018413,000780: 14,3133 51537 BBBB INDEX NDXCTR
018414,000781: 14,3134 41675 CS GENPL +68D
018415,000782: 14,3135 51537 INDEX NDXCTR
018416,000783: 14,3136 27703 ADS GENPL +74D
018417,000784: 14,3137 33664 CAF 63DEC
018418,000785: 14,3140 61537 AD NDXCTR
018419,000786: 14,3141 10000 CCS A
018420,000787: 14,3142 46165 CS THREE
018421,000788: 14,3143 27537 ADS NDXCTR
018422,000789: 14,3144 13133 TCF BBBB
018423,000790: 14,3145 55537 TS NDXCTR
018424,000791:
018425,000792:
018426,000793:
018427,000794: 14,3146 06000 CCCC TC INTPRET
018428,000795: 14,3147 70750 LXA,1 DLOAD*
018429,000796: 14,3150 01537 NDXCTR
018430,000797: 14,3151 01702 GENPL +72D,1
018431,000798: 14,3152 77625 DSU
018432,000799: 14,3153 01572 GENPL
018433,000800: 14,3154 03702 STORE GENPL +72D,1
018434,000801: 14,3155 77776 EXIT
018435,000802: 14,3156 41537 CS NDXCTR
018436,000803: 14,3157 63665 AD 69DEC
018437,000804: 14,3160 10000 CCS A
018438,000805: 14,3161 36165 CAF THREE
018439,000806: 14,3162 27537 ADS NDXCTR
018440,000807: 14,3163 13146 TCF CCCC
018441,000808: 14,3164 55550 TS RUN
018442,000809: 14,3165 36165 CAF THREE
018443,000810: 14,3166 55537 TS NDXCTR
018444,000811:
018445,000812:
018446,000813:
018447,000814: 14,3167 06000 DDDD TC INTPRET
018448,000815: 14,3170 77775 VLOAD
018449,000816: 14,3171 33160 ZERODP
018450,000817: 14,3172 00031 STORE 24D
018451,000818: 14,3173 00037 STORE 30D
018452,000819: 14,3174 77735 SLOAD
018453,000820: 14,3175 31662 11DEC
018454,000821: 14,3176 00041 STORE 32D
018455,000822: 14,3177 77776 EXIT
018456,000823:
018457,000824: 14,3200 06000 DDDD1 TC INTPRET
018458,000825: 14,3201 70750 LXA,1 DLOAD*
018459,000826: 14,3202 01537 NDXCTR
018460,000827:
018461,000828: 14,3203 01702 GENPL +72D,1
018462,000829: 14,3204 41423 DSU* PUSH
018463,000830: 14,3205 01674 GENPL +66D,1
018464,000831: 14,3206 42742 SR1 DAD*
018465,000832: 14,3207 01674 GENPL +66D,1
018466,000833: 14,3210 03702 STORE GENPL +72D,1
018467,000834:
018468,000835: 14,3211 43312 SL2 DAD
018469,000836: 14,3212 00031 24D
018470,000837: 14,3213 14031 STODL* 24D
018471,000838: 14,3214 01702 GENPL +72D,1
018472,000839: 14,3215 63412 SL4 DSQ
018473,000840: 14,3216 77615 DAD
018474,000841: 14,3217 00033 26D
018475,000842: 14,3220 00033 STORE 26D
018476,000843: 14,3221 77776 EXIT
018477,000844: 14,3222 31550 CAE RUN
018478,000845: 14,3223 61537 AD NDXCTR
018479,000846: 14,3224 40000 COM
018480,000847: 14,3225 63664 AD 63DEC
018481,000848: 14,3226 10000 CCS A
018482,000849: 14,3227 36162 CAF SIX
018483,000850: 14,3230 27537 ADS NDXCTR
018484,000851: 14,3231 13200 TCF DDDD1
018485,000852: 14,3232 61550 AD RUN
018486,000853: 14,3233 55537 TS NDXCTR
018487,000854:
018488,000855:
018489,000856:
018490,000857: 14,3234 06000 EEEE TC INTPRET
018491,000858: 14,3235 66740 LXC,1 SLOAD*
018492,000859: 14,3236 01537 NDXCTR
018493,000860: 14,3237 01605 GENPL +11D,1
018494,000861: 14,3240 00043 STORE 34D
018495,000862: 14,3241 77745 DLOAD
018496,000863: 14,3242 54206 PUSH SL
018497,000864: 14,3243 00211 8D
018498,000865: 14,3244 43265 BDDV DAD
018499,000866: 14,3245 00043 34D
018500,000867: 14,3246 00035 28D
018501,000868: 14,3247 06035 STODL 28D
018502,000869: 14,3250 55261 SL BDDV
018503,000870: 14,3251 00207 6
018504,000871: 14,3252 00043 34D
018505,000872: 14,3253 42523 PDDL* SL4
018506,000873: 14,3254 01603 GENPL +9D,1
018507,000874: 14,3255 77605 DMP
018508,000875: 14,3256 77615 DAD
018509,000876: 14,3257 00037 30D
018510,000877: 14,3260 00037 STORE 30D
018511,000878:
018512,000879: 14,3261 77776 EXIT
018513,000880: 14,3262 41537 CS NDXCTR
018514,000881: 14,3263 63663 AD 60DEC
018515,000882: 14,3264 61550 AD RUN
018516,000883: 14,3265 10000 CCS A
018517,000884: 14,3266 36162 CAF SIX
018518,000885: 14,3267 27537 ADS NDXCTR
018519,000886: 14,3270 13234 TCF EEEE
018520,000887:
018521,000888:
018522,000889:
018523,000890: 14,3271 06000 TC INTPRET
018524,000891: 14,3272 41345 DLOAD DMP
018525,000892: 14,3273 00031 24D
018526,000893: 14,3274 00037 30D
018527,000894: 14,3275 41325 PDDL DMP
018528,000895: 14,3276 00033 26D
018529,000896: 14,3277 00035 28D
018530,000897: 14,3300 77625 DSU
018531,000898: 14,3301 63525 PDDL DSQ
018532,000899: 14,3302 00031 24D
018533,000900: 14,3303 65342 SR1 PDDL
018534,000901: 14,3304 00041 32D
018535,000902: 14,3305 41261 SL DMP
018536,000903: 14,3306 00212 11
018537,000904: 14,3307 00033 26D
018538,000905: 14,3310 55225 DSU BDDV
018539,000906: 14,3311 54205 DMP SL
018540,000907: 14,3312 31675 KKKK
018541,000908: 14,3313 00204 3
018542,000909: 14,3314 00337 STORE DSPTEM2
018543,000910: 14,3315 77776 EXIT
018544,000911:
018545,000912: 14,3316 31544 CA POSITON
018546,000913: 14,3317 54340 TS DSPTEM2 +2
018547,000914:
018548,000915: 14,3320 33656 CAF V06N66E
018549,000916: 14,3321 05234 TC NVSBWAIT
018550,000917: 14,3322 05176 TC FLASHON
018551,000918: 14,3323 05042 TC ENDIDLE
018552,000919: 14,3324 12752 TCF ENDTEST
018553,000920: 14,3325 36165 CAF THREE
018554,000921: 14,3326 55550 TS RUN
018555,000922: 14,3327 37657 CAF ZERO
018556,000923: 14,3330 13166 TCF DDDD -1
018557,000924:
018558,000925: # THIS REVISION REFLECTS CHANGES AS OF
018559,000926: # 1/31/66
018560,000927: # ENGINE ON/OFF NOW IN CHANNEL ELEVEN. THE BITS FOR EACH CHANNEL GET TURNED ON ALL AT ONCE. THEY STAY ON UNTIL
018561,000928: # :ENTER:IS PUSHED. THEN THEY ALL GO OUT AND THE NEXT CHANNEL:S BITS ARE TURNED ON.
018562,000929: # CHANNEL 5 BITS 1-8
018563,000930: # CHANNEL 6 BITS 1-8
018564,000931: # CHANNEL 11 BITS 13,14
018565,000932: # CHANNEL 12 BITS 9-14
018566,000933: # FOLLOWING THE CHANNEL 12 TESTS ENTER IS PRESSED. CHANNEL 12 IS SET TO ZERO AND THE NEXT TEST BEGUN. LOW9
018567,000934: # GOES IN LOCATION (COUNTER) 55.
018568,000935: # INCREASE THROTTLE RATE DESCENT ENGINE
018569,000936: # :ENTER: NOW CAUSES THE CONTENTS OF 55 TO BE MADE NEGATIVE
018570,000937: # DECREASE THROTTLE RATE DESCENT ENGINE
018571,000938: # THE NEXT :ENTER: ZEROS THE REGISTER AND SENDS A PULSE TRAIN (HERE ALTERN
018572,000939: # ZEROS FOR CLARITY) TO THE ALTITUDE METER.
018573,000940: # THE NEXT :ENTER: WILL ADVANCE THE TEST TO THE ALTITUDE RATE METER TEST.
018574,000941: # THE NEXT :ENTER : WILL TERMINATE THE TEST.
018575,000942:
018576,000943:
018577,000944:
018578,000945: 14,3331 37632 SAUTOIFS CA POSMAX
018579,000946: 14,3332 55577 TS NOBITS
018580,000947: 14,3333 37657 CA ZERO
018581,000948: 14,3334 55600 TS CHAN
018582,000949: 14,3335 55576 TS TEMP
018583,000950: 14,3336 03340 TC DINO
018584,000951: 14,3337 25600 BACK1 INCR CHAN
018585,000952:
018586,000953: 14,3340 51600 DINO INDEX CHAN
018587,000954: 14,3341 33343 CA SAUTLOCS
018588,000955: 14,3342 14067 TCF SWCALL
018589,000956: 14,3343 31357 SAUTLOCS CADR CHAN5D
018590,000957: 14,3344 31375 CADR CHAN6D
018591,000958: 14,3345 31403 CADR CHAN11D
018592,000959: 14,3346 31415 CADR CHAN12D
018593,000960: 14,3347 31427 CADR PTITRDE
018594,000961: 14,3350 31454 CADR PTDTRDE
018595,000962: 14,3351 31531 CADR ALTMET
018596,000963: 14,3352 31556 CADR ALTRMET
018597,000964: 14,3353 30752 CADR ENDTEST
018598,000965: 14,3354 31461 THROTADD CADR PTDTRDE +5
018599,000966: 14,3355 31534 METERADD CADR ALTMET +3
018600,000967: 14,3356 31561 MRATEADD CADR ALTRMET +3
018601,000968: 14,3357 37227 CHAN5D CA FIVE
018602,000969: 14,3360 54333 TS DSPTEM1
018603,000970: 14,3361 35137 2ENTRY CA LOW8 # CHANNEL 6 RETURNS HERE
018604,000971: 14,3362 54334 TS DSPTEM1 +1
018605,000972: 14,3363 00006 EXTEND
018606,000973: 14,3364 51576 INDEX TEMP
018607,000974: 14,3365 01005 WRITE 5
018608,000975:
018609,000976: 14,3366 33645 3ENTRY CA V04N30D # CH11,12 RETURN HERE TO USE THE DISPLAY
018610,000977: 14,3367 05234 TC NVSBWAIT
018611,000978: 14,3370 33652 4ENTRY CAF WAITER # WAITER IS 03300
018612,000979: 14,3371 05234 TC NVSBWAIT
018613,000980: 14,3372 05042 TC ENDIDLE
018614,000981: 14,3373 02752 TC ENDTEST
018615,000982: 14,3374 03337 TC BACK1
018616,000983:
018617,000984: 14,3375 25576 CHAN6D INCR TEMP
018618,000985: 14,3376 24333 INCR DSPTEM1
018619,000986: 14,3377 37657 CAF ZERO
018620,000987: 14,3400 00006 EXTEND
018621,000988: 14,3401 01005 WRITE 5 # GET RID OF CHANNEL 5 BITS
018622,000989: 14,3402 03361 TC 2ENTRY
018623,000990: 14,3403 37655 CHAN11D CA OCT11
018624,000991: 14,3404 54333 TS DSPTEM1
018625,000992: 14,3405 33644 CA BIT13-14
018626,000993: 14,3406 54334 TS DSPTEM1 +1
018627,000994: 14,3407 00006 EXTEND
018628,000995: 14,3410 05011 WOR 11 # WOR IS NON EXCLUSIVE OR
018629,000996: 14,3411 37657 CAF ZERO
018630,000997: 14,3412 00006 EXTEND
018631,000998: 14,3413 01006 WRITE 6
018632,000999: 14,3414 03366 TC 3ENTRY
018633,001000: 14,3415 37654 CHAN12D CA OCT12
018634,001001: 14,3416 54333 TS DSPTEM1
018635,001002: 14,3417 43644 CS BIT13-14
018636,001003: 14,3420 00006 EXTEND
018637,001004: 14,3421 03011 WAND 11
018638,001005: 14,3422 33650 CA CH12BITS
018639,001006: 14,3423 54334 TS DSPTEM1 +1
018640,001007: 14,3424 00006 EXTEND
018641,001008: 14,3425 05012 WOR 12
018642,001009: 14,3426 03366 TC 3ENTRY
018643,001010: 14,3427 43650 PTITRDE CS CH12BITS
018644,001011: 14,3430 00006 EXTEND
018645,001012: 14,3431 03012 WAND 12
018646,001013: 14,3432 37657 CA ZERO
018647,001014: 14,3433 54333 TS DSPTEM1
018648,001015: 14,3434 54334 TS DSPTEM1 +1
018649,001016: 14,3435 55576 TS TEMP
018650,001017: 14,3436 37652 CA BIT1
018651,001018: 14,3437 55577 TS NOBITS
018652,001019: 14,3440 00004 PIT INHINT
018653,001020: 14,3441 04451 TC WAITLIST
018654,001021: 14,3442 03465 30005 2CADR THROTASK
018655,001022:
018656,001023: 14,3444 00003 RELINT
018657,001024: 14,3445 33652 CA WAITER
018658,001025: 14,3446 05234 TC NVSBWAIT
018659,001026:
018660,001027: 14,3447 05042 TC ENDIDLE
018661,001028: 14,3450 02752 TC ENDTEST
018662,001029: 14,3451 37657 CA ZERO
018663,001030: 14,3452 55577 TS NOBITS
018664,001031: 14,3453 03337 TC BACK1
018665,001032:
018666,001033: 14,3454 37657 PTDTRDE CA ZERO
018667,001034: 14,3455 54055 TS THRUST
018668,001035: 14,3456 33354 CA THROTADD
018669,001036: 14,3457 55575 TS TEMPADD
018670,001037: 14,3460 04331 TC JOBSLEEP # THIS INHIBITS THE NEXT TASK UNTIL
018671,001038: # CURRENT TASK HAS BEEN COMPLETED
018672,001039: 14,3461 37632 CA POSMAX
018673,001040: 14,3462 55576 TS TEMP
018674,001041: 14,3463 37644 CA BIT7
018675,001042: 14,3464 03440 TC PIT
018676,001043: 14,3465 11577 THROTASK CCS NOBITS # IS THIS TASK STILL REQ
018677,001044: 14,3466 03473 TC +5 # YES
018678,001045: 14,3467 31575 CA TEMPADD # NO
018679,001046: 14,3470 55577 TS NOBITS
018680,001047: 14,3471 04335 TC JOBWAKE
018681,001048: 14,3472 04505 TC TASKOVER
018682,001049: 14,3473 11576 CCS TEMP
018683,001050: 14,3474 03507 TC SOMETIME
018684,001051: 14,3475 35136 CA LOW11
018685,001052: 14,3476 54055 ALWAYS TS THRUST
018686,001053: 14,3477 37647 CA BIT4
018687,001054: 14,3500 00006 EXTEND # A SMERZH FIX.
018688,001055: 14,3501 05014 WOR 14
018689,001056: 14,3502 37645 CA BIT6 # 320 MS.DELAY
018690,001057: 14,3503 04451 TC WAITLIST
018691,001058: 14,3504 03465 30005 2CADR THROTASK
018692,001059: 14,3506 04505 TC TASKOVER
018693,001060: 14,3507 45136 SOMETIME CS LOW11
018694,001061: 14,3510 03476 TC ALWAYS
018695,001062: 14,3511 11577 ALTASK CCS NOBITS # IS TASK STILL REQ
018696,001063: 14,3512 03517 TC +5
018697,001064: 14,3513 31575 CA TEMPADD # NO
018698,001065: 14,3514 55577 TS NOBITS # ENABLES NEXT TASK
018699,001066: 14,3515 04335 TC JOBWAKE
018700,001067: 14,3516 04505 TC TASKOVER
018701,001068: 14,3517 33646 CA ALBITS # ACTUAL TASK STARTS HERE
018702,001069: 14,3520 54060 TS ALTM
018703,001070: 14,3521 37650 CA BIT3
018704,001071: 14,3522 00006 EXTEND
018705,001072: 14,3523 05014 WOR 14
018706,001073: 14,3524 37645 CA BIT6 # 320 MS. DELAY
018707,001074: 14,3525 04451 TC WAITLIST
018708,001075: 14,3526 03511 30005 2CADR ALTASK
018709,001076:
018710,001077: 14,3530 04505 TC TASKOVER
018711,001078: 14,3531 33355 ALTMET CA METERADD
018712,001079: 14,3532 55575 TS TEMPADD
018713,001080: 14,3533 04331 TC JOBSLEEP
018714,001081: 14,3534 37657 CA ZERO
018715,001082: 14,3535 55576 TS TEMP
018716,001083: 14,3536 47647 CS BIT4
018717,001084: 14,3537 00006 EXTEND
018718,001085: 14,3540 03014 WAND 14
018719,001086: 14,3541 00004 INHINT
018720,001087: 14,3542 37652 CA ONE
018721,001088: 14,3543 04451 TC WAITLIST
018722,001089: 14,3544 03511 30005 2CADR ALTASK
018723,001090: 14,3546 00003 RELINT
018724,001091: 14,3547 33652 CA WAITER
018725,001092: 14,3550 05234 TC NVSBWAIT
018726,001093: 14,3551 05042 TC ENDIDLE
018727,001094: 14,3552 02752 TC ENDTEST
018728,001095: 14,3553 37657 CA ZERO
018729,001096: 14,3554 55577 TS NOBITS
018730,001097: 14,3555 03337 TC BACK1
018731,001098:
018732,001099: 14,3556 33356 ALTRMET CA MRATEADD
018733,001100: 14,3557 55575 TS TEMPADD
018734,001101: 14,3560 04331 TC JOBSLEEP
018735,001102: 14,3561 37652 CA ONE
018736,001103: 14,3562 55576 TS TEMP # TEMP WILL BE INDEXED TO ACQUIRE BIT2 INS
018737,001104: # TEAD OF BIT3
018738,001105: 14,3563 37651 CA BIT2
018739,001106: 14,3564 00006 EXTEND
018740,001107: 14,3565 05014 WOR 14
018741,001108: 14,3566 03541 TC ALTMET +8D
018742,001109:
018743,001110: # THE AOT ANGLE CHECKING PROGRAM PROVIDES A SIMPLE VERIFICATION OF THE ACCURACY OF THE AOT, THE IDEA IS TO
018744,001111: # COMPUTE THE ANGLE BETWEEN TWO LINES OF SIGHT AS INDICATED BY THE AOT, WHICH IS WHAT THIS PROGRAM DOES.
018745,001112: # INDEPENDENT KNOWLEDGE OF THE INCLUDED ANGLE PROVIDES A COMPARISON AND THUS A MEASURE OF THE AOT ACCURACY.
018746,001113: # THE ISS NEED NOT BE ON TO RUN THIS PROGRAM.
018747,001114:
018748,001115:
018749,001116:
018750,001117: 14,3567 06000 AOTANGCK TC INTPRET
018751,001118: 14,3570 77414 SET EXIT # IN CASE THE ISS IS OFF.
018752,001119: 14,3571 00065 COAROFIN
018753,001120: 14,3572 02135 TC FINDNAVB # FOR LOS1 AND LOS2.
018754,001121: 14,3573 06000 TC INTPRET
018755,001122: 14,3574 47375 VLOAD VXV
018756,001123: 14,3575 01602 LOS1
018757,001124: 14,3576 01610 LOS2
018758,001125: 14,3577 77646 ABVAL
018759,001126: 14,3600 22023 STOVL SINTH # SINTH = ABVAL (VXV ).
018760,001127: 14,3601 01602 LOS1
018761,001128: 14,3602 77641 DOT
018762,001129: 14,3603 01610 LOS2
018763,001130: 14,3604 36021 STCALL COSTH # COSTH = V.V
018764,001131: 14,3605 32440 ARCTRIG
018765,001132: 14,3606 77624 RTB
018766,001133: 14,3607 33526 1STO2S # DP 1S COMP TO SP 2S COMP.
018767,001134: 14,3610 00025 STORE THETA
018768,001135: 14,3611 77776 EXIT
018769,001136: 14,3612 33677 CAF THETAADR
018770,001137: 14,3613 60104 AD FIXLOC
018771,001138: 14,3614 54142 TS MPAC +2
018772,001139: 14,3615 33655 CAF V06N03E # XXX.XX DEGREES IN R1.
018773,001140: 14,3616 05234 TC NVSBWAIT
018774,001141: 14,3617 12752 TCF ENDTEST
018775,001142:
018776,001143: 14,3620 E3,1400 EBANK= 1400
018777,001144: 14,3620 00004 ZEROERAS INHINT # PROGRAM BY MUNTZ TO ZERO ERASEABLE
018778,001145: 14,3621 13730 TCF ZEROERS1
018779,001146: 14,3622 54003 TS EBANK
018780,001147: 14,3623 22007 ZEROLP ZL
018781,001148: 14,3624 50000 INDEX A
018782,001149: 14,3625 23401 LXCH 1401
018783,001150: 14,3626 67651 AD TWO
018784,001151: 14,3627 26003 ADS EBANK
018785,001152: 14,3630 75137 MASK LOW8
018786,001153: 14,3631 10000 CCS A
018787,001154: 14,3632 13623 TCF ZEROLP
018788,001155: 14,3633 10003 CCS EBANK
018789,001156: 14,3634 13637 TCF ZEROLP1
018790,001157: 14,3635 04102 TC POSTJUMP
018791,001158: 14,3636 24000 CADR SLAP1
018792,001159: 14,3637 00003 ZEROLP1 RELINT
018793,001160: 14,3640 47652 CS ONE
018794,001161: 14,3641 00004 INHINT
018795,001162: 14,3642 13623 TCF ZEROLP
018796,001163: 14,3643 00025 OCT25 OCT 25
018797,001164:
018798,001165: 14,3644 E5,1500 EBANK= OGC
018799,001166: 14,3644 30000 BIT13-14 OCT 30000
018800,001167: 14,3645 00430 V04N30D OCT 00430
018801,001168: 14,3646 52525 ALBITS OCT 52525
018802,001169: 14,3647 70707 THRSBITS OCT 70707
018803,001170: 14,3650 7654 OCT12 = TEN
018804,001171: 14,3650 7655 OCT11 = NINE
018805,001172: 14,3650 37400 CH12BITS OCT 37400
018806,001173: 14,3651 00130 V01N30D OCT 00130
018807,001174: 14,3652 03300 WAITER OCT 03300
018808,001175:
018809,001176:
018810,001177:
018811,001178:
018812,001179:
018813,001180: 14,3653 00130 V01N30E OCT 00130 # FOR FINDNAVB
018814,001181: 14,3654 00530 V05N30E OCT 00530 # FOR OPTDATA
018815,001182: 14,3655 00603 V06N03E OCT 00603
018816,001183: 14,3656 00666 V06N66E OCT 00666
018817,001184: 14,3657 02430 V24N30E OCT 02430 # FOR POSITION LOAD
018818,001185: 14,3660 02522 V25N22E OCT 02522 # FOR POS4
018819,001186:
018820,001187: 14,3661 00013 11DEC DEC 11 B-14
018821,001188: 14,3662 00021 17DEC DEC 17 B-14
018822,001189: 14,3663 00074 60DEC DEC 60 B-14
018823,001190: 14,3664 00077 63DEC DEC 63 B-14
018824,001191: 14,3665 00105 69DEC DEC 69 B-14 # FOR MISALIGN
018825,001192: 14,3666 00110 72DEC DEC 72 B-14 # FOR STORRSLT
018826,001193:
018827,001194: 14,3667 05670 30SEC DEC 3000 B-14 # 3000 X 10 MSEC
018828,001195: 14,3670 13560 60SEC DEC 6000 B-14 # 6000 X 10 MSEC
018829,001196:
018830,001197: 14,3671 01500 OGCADR ADRES OGC # FOR ZEROING
018831,001198: 14,3672 01571 GENPLAD1 ADRES GENPL
018832,001199: 14,3673 02571 GENPLADR ECADR GENPL # FOR POS4
018833,001200: 14,3674 00322 14366 KKKK 2DEC 210.39 B-14 # 1230 B-14 FOR CSM
018834,001201:
018835,001202: 14,3676 03076 RDRRETN ADRES RDR1 +1 # FOR RDR37511
018836,001203: 14,3677 00024 THETAADR ECADR THETA
018837,001204: 14,3700 01400 XSMADRX ADRES XSM # FOR MAKEXSMD
018838,001205:
018839,001206: 14,3701 24365 30244 SCALFTR 2DEC .64 # FOR STORRSLT
018840,001207:
018841,001208: 14,3703 07623 26552 OMEG/MS 2DEC .24339048 # GYRO PULSES / 10 MSEC
018842,001209:
018843,001210: # THE FOLLOWING ROUTINE READS THE CLOCK AND SCALAR (CHANNELS 3 AND 4) INTO A AND L, INSURING THAT THE
018844,001211: # DATA WAS NOT IN TRANSITION WHEN IT WAS READ.
018845,001212: 5372 SETLOC ENDFAILF
018846,001213: 5372 00004 FINETIME INHINT # RETURNS WITH INTERRUPT INHIBITED.
018847,001214: 5373 00006 EXTEND
018848,001215: 5374 00004 READ LOSCALAR
018849,001216: 5375 54001 TS L
018850,001217:
018851,001218: 5376 00006 EXTEND # SEE IF 2 READINGS AGREE. IF NOT, READ
018852,001219: 5377 06004 RXOR LOSCALAR # LOSCALAR AGAIN.
018853,001220: 5400 00006 EXTEND
018854,001221: 5401 15405 BZF +4
018855,001222:
018856,001223: 5402 00006 EXTEND # IF CLOCK RIPPLED BEFORE, IT WONT NOW.
018857,001224: 5403 00004 READ LOSCALAR
018858,001225: 5404 54001 TS L
018859,001226:
018860,001227: 5405 47632 +4 CS POSMAX # IF LOW PART CONTAINS SOMETHING LESS THAN
018861,001228: 5406 60001 AD L # POSMAX, THE HIGH PART CAN BE READ SAFELY
018862,001229: 5407 00006 EXTEND
018863,001230: 5410 15373 BZF FINETIME +1 # TRY AGAIN - CONDITION WILL DISAPPEAR.
018864,001231:
018865,001232: 5411 00006 EXTEND
018866,001233: 5412 00003 READ HISCALAR
018867,001234: 5413 00002 TC Q
018868,001235:
018869,001236: 5414 ENDIMUF =
018870,001237:
018871,001238: 14,3705 SETLOC OMEG/MS +2
018872,001239: 14,3705 04063 REDYTORK TC BANKCALL
018873,001240: 14,3706 26716 CADR IMUSTALL
018874,001241: 14,3707 12752 TCF ENDTEST
018875,001242:
018876,001243: 14,3710 02734 TC OGCZERO
018877,001244:
018878,001245: 14,3711 06000 TC INTPRET
018879,001246: 14,3712 77634 CALL
018880,001247: 14,3713 30412 ERTHRVSE # SETS UP EARTHRATE ANGLES AND TIME
018881,001248: 14,3714 77776 EXIT
018882,001249: 14,3715 31620 CA OPTNREG # INITIALIZE CDUNDX FOR PULSE CATCHING
018883,001250: 14,3716 67662 AD NEG2 # C(K) WAS 4 2 1 NOW C(A) IS 2 0 -1
018884,001251: 14,3717 55617 TS GYTOBETQ # C(K) = 2,0,-1 FOR X,Y,Z.
018885,001252: 14,3720 00006 EXTEND
018886,001253: 14,3721 13724 BZF +3
018887,001254: 14,3722 37651 CAF TWO
018888,001255: 14,3723 03725 TC +2
018889,001256: 14,3724 37652 CAF ONE
018890,001257: 14,3725 55673 TS CDUNDX # C(K) = 1 FOR Y, 2 FOR Z CDU SELECT
018891,001258: 14,3726 04063 TC BANKCALL
018892,001259: 14,3727 36552 CADR ENABLE
018893,001260:
018894,001261:
|
|
MAS 2023: The following chunk of code (down to ENDIMUS1) was added as a patch between Aurora 85 and Aurora 88. It was placed here at the end of the bank so as to not change addresses of existing symbols. |
018898,001265:
018899,001266: 14,3730 37657 ZEROERS1 CAF ZERO
018900,001267: 14,3731 54026 TS TIME3
018901,001268: 14,3732 33734 CAF OCT27
018902,001269: 14,3733 13622 TCF ZEROERAS +2
018903,001270:
018904,001271: 14,3734 00027 OCT27 OCT 27
018905,001272:
018906,001273: 14,3735 ENDIMUS1 EQUALS
End of include-file IMU_PERFORMANCE_TESTS_1.agc. Parent file is MAIN.agc