Source Code
![]() |
YAYUL: ASSEMBLE REVISION 5 OF PROGRAM BOREALIS BY MSTEWART MAR. 27,2017This is a modern AGC system self-test program, though based on the Apollo-era AURORA 12 program, and was not written by the original AGC developers, but rather by Mike Stewart. All of the original AURORA 12 DAP code added by the DAP Group has been removed, and extensive new system test code has been added in its place. This allows more in-depth testing of CPU behavior, both in AGC software simulations and hardware simulations. |
019122,000002: ## Copyright: Public domain.
019123,000003: ## Filename: IMU_PERFORMANCE_TESTS_1.agc
019124,000004: ## Purpose: This program is designed to extensively test the Apollo Guidance Computer
019125,000005: ## (specifically the LM instantiation of it). It is built on top of a heavily
019126,000006: ## stripped-down Aurora 12, with all code ostensibly added by the DAP Group
019127,000007: ## removed. Instead Borealis expands upon the tests provided by Aurora,
019128,000008: ## including corrected tests from Retread 44 and tests from Ron Burkey's
019129,000009: ## Validation.
019130,000010: ## Assembler: yaYUL
019131,000011: ## Contact: Mike Stewart <mastewar1@gmail.com>.
019132,000012: ## Website: www.ibiblio.org/apollo/index.html
019133,000013: ## Mod history: 2016-12-20 MAS Created from Aurora 12 (with much DAP stuff removed).
019134,000014:
019135,000015: 14,2000 BANK 14
019136,000016: 14,2000 E5,1400 EBANK= XSM
019137,000017:
019138,000018:
019139,000019:
019140,000020: 14,2000 37657 AOTNBIMU CAF ONE # AOT-NB-IMU FINE ALIGNMENT TEST
019141,000021: 14,2001 55512 TS EROPTN # ... TEST CAPABILITY ...
019142,000022:
019143,000023: 14,2002 04065 TC BANKCALL
019144,000024: 14,2003 26000 CADR IMUZERO # IMU ZERO ENCODER MODE
019145,000025: 14,2004 06000 TC INTPRET
019146,000026: 14,2005 77634 CALL
019147,000027: 14,2006 30530 LATAZCHK # TO LOAD AZIMUTH (SM) AND LATITUDE
019148,000028: 14,2007 77634 CALL
019149,000029: 14,2010 30325 MAKEXSMD # TO SET UP A STABLE MEMBER DESIRED MATRIX
019150,000030: 14,2011 47014 SET CALL
019151,000031: 14,2012 00065 COAROFIN # FOR COARSE OR FINE ALIGN MARKS
019152,000032: 14,2013 30405 ERTHRVSE # TO CALCULATE EARTH RATE VECTOR
019153,000033: 14,2014 77776 EXIT
019154,000034:
019155,000035: 14,2015 33655 POSLOAD CAF V24N30E # R1 0000X ENTER POSITION 1,2, OR 3
019156,000036: 14,2016 05324 TC NVSBWAIT # R2 00000 ENTER 00001 FOR LAB OPTION
019157,000037: 14,2017 05132 TC ENDIDLE
019158,000038: 14,2020 12745 TCF ENDTEST
019159,000039: 14,2021 12015 TCF -4
019160,000040: 14,2022 56333 XCH DSPTEM1 # DO NOT USE POSITION 3 WITH NAV BASE AT
019161,000041: 14,2023 55544 TS POSITON # ZERO DEGREE TILT ANGLE. (GIMBAL LOCK)
019162,000042:
019163,000043: 14,2024 10334 CCS DSPTEM1 +1
019164,000044: 14,2025 12760 TCF LEMLAB # SPECIAL LAB TEST TO BYPASS MARKS
019165,000045:
019166,000046: 14,2026 02576 TC POSNJUMP # SET UP STABLE MEMBER DESIRED COORDINATES
019167,000047:
019168,000048: 14,2027 02501 TC OPTDATA # TARGETS 1,2 AZIMUTH AND ELEVATION
019169,000049:
019170,000050: 14,2030 02135 TC FINDNAVB # COARSE ALIGN MARKS
019171,000051:
019172,000052: 14,2031 04065 TC BANKCALL
019173,000053: 14,2032 26716 CADR IMUSTALL # INSURE IMUZERO COMPLETION
019174,000054: 14,2033 12745 TCF ENDTEST
019175,000055:
019176,000056: 14,2034 02247 TC PUTPOSX # TO COARSE ALIGN STABLE MEMBER
019177,000057:
019178,000058: 14,2035 02737 TC GMLCKCHK # CHECK FOR GIMBAL LOCK BEFORE FINE ALIGN
019179,000059: 14,2036 02727 TC OGCZERO # FOR EARTH RATE COMPENSATION
019180,000060:
019181,000061: 14,2037 04065 TC BANKCALL
019182,000062: 14,2040 26227 CADR IMUFINE # FINE ALIGN MODE
019183,000063: 14,2041 04065 TC BANKCALL
019184,000064: 14,2042 26716 CADR IMUSTALL
019185,000065: 14,2043 12745 TCF ENDTEST
019186,000066:
019187,000067: 14,2044 02135 TC FINDNAVB # FINE ALIGN MARKS
019188,000068:
019189,000069: 14,2045 05373 TC FREEDSP # FREE DISPLAY SYSTEM
019190,000070:
019191,000071: 14,2046 02263 TC SMDCALC # TO FINE ALIGN STABLE MEMBER
019192,000072:
019193,000073: 14,2047 04065 ERFINAL TC BANKCALL # LAST EARTH RATE SHOT
019194,000074: 14,2050 30422 CADR EARTHR
019195,000075: 14,2051 11512 CCS EROPTN # IF DESIRED TO COMPENSATE CONTINUALLY
019196,000076: 14,2052 12065 TCF MONSTART # CHANGE BY V21 N02 E XXXXX E 00000 E
019197,000077: 14,2053 12047 TCF ERFINAL
019198,000078: 14,2054 12745 TCF ENDTEST
019199,000079: 14,2055 55512 TS EROPTN
019200,000080: 14,2056 00004 INHINT
019201,000081: 14,2057 34500 CAF PRIO21 # PRIORITY 1 HIGHER THAN SXTNBIMU
019202,000082: 14,2060 04355 TC FINDVAC
019203,000083: 14,2061 03062 30005 2CADR RDR37511
019204,000084: 14,2063 00003 RELINT
019205,000085: 14,2064 02047 TC ERFINAL
019206,000086:
019207,000087: 14,2065 05462 MONSTART TC FINETIME # TIME AT INITIAL MISALIGNMENT
019208,000088: 14,2066 52141 DXCH MPAC
019209,000089: 14,2067 00003 RELINT
019210,000090: 14,2070 37665 CAF ZERO # ZERO PIPA COUNTERS
019211,000091: 14,2071 54037 TS PIPAX
019212,000092: 14,2072 54040 TS PIPAY
019213,000093: 14,2073 54041 TS PIPAZ
019214,000094: 14,2074 55551 TS STOREPL
019215,000095: 14,2075 55537 TS NDXCTR
019216,000096: 14,2076 02454 TC STORRSLT # STORE T(INITIAL) AND PIPAI = 0
019217,000097:
019218,000098: 14,2077 00004 INHINT
019219,000099: 14,2100 33666 CAF 60SEC # INSURE PIPAI VARIES IN ONE DIRECTION
019220,000100: 14,2101 04517 TC WAITLIST
019221,000101: 14,2102 02106 30005 2CADR PIP1
019222,000102:
019223,000103: 14,2104 32134 CAF PIP2ADR
019224,000104: 14,2105 04377 TC JOBSLEEP
019225,000105:
019226,000106: 14,2106 32134 PIP1 CAF PIP2ADR
019227,000107: 14,2107 04403 TC JOBWAKE
019228,000108: 14,2110 04563 TC TASKOVER
019229,000109:
019230,000110: 14,2111 31542 PIP2 CAE PIPNDX
019231,000111: 14,2112 55541 TS PIPINDEX # POS1 PIPAY POS2 PIPAX POS3 PIPAX
019232,000112: 14,2113 04065 TC BANKCALL
019233,000113: 14,2114 36771 CADR CHECKG # SYNC ON PIPA PULSE
019234,000114:
019235,000115: 14,2115 00003 RELINT
019236,000116:
019237,000117: 14,2116 02454 TC STORRSLT # STORE TIME AND PIPAI
019238,000118:
019239,000119: 14,2117 31543 CAE PIPNDX +1
019240,000120: 14,2120 55541 TS PIPINDEX # POS1 PIPAZ POS2 PIPAY POS3 PIPAZ
019241,000121: 14,2121 04065 TC BANKCALL
019242,000122: 14,2122 36771 CADR CHECKG # SYNC ON PIPA PULSE
019243,000123:
019244,000124: 14,2123 00003 RELINT
019245,000125: 14,2124 02454 TC STORRSLT # STORE TIME AND PIPAI
019246,000126:
019247,000127: 14,2125 00004 INHINT
019248,000128: 14,2126 33665 CAF 30SEC # MONITOR PIPAS AT 30 SECOND INTERVALS
019249,000129: 14,2127 04517 TC WAITLIST
019250,000130: 14,2130 02106 30005 2CADR PIP1
019251,000131: 14,2132 32134 CAF PIP2ADR
019252,000132: 14,2133 04377 TC JOBSLEEP
019253,000133: 14,2134 30111 PIP2ADR CADR PIP2
019254,000134:
019255,000135: 14,2135 00006 FINDNAVB EXTEND # MARKS * CALC NB OR SM WRT EARTH REF
019256,000136: 14,2136 23546 QXCH QPLACE
019257,000137:
019258,000138: 14,2137 04065 TC BANKCALL
019259,000139: 14,2140 27014 CADR MKRELEAS # RELEASE MARK SYSTEM
019260,000140: 14,2141 37657 CAF ONE
019261,000141: 14,2142 54333 TS DSPTEM1
019262,000142: 14,2143 33651 CAF V01N30E # DISPLAY 00001 IN R1
019263,000143: 14,2144 05324 TC NVSBWAIT
019264,000144: 14,2145 37665 CAF ZERO # TO INDICATE GROUND MARKS
019265,000145: 14,2146 04065 TC BANKCALL
019266,000146: 14,2147 26753 CADR AOTMARK # MARK ON TARGET 1
019267,000147:
019268,000148: 14,2150 04065 TC BANKCALL
019269,000149: 14,2151 26714 CADR OPTSTALL # INSURE SUCCESSFUL MARK
019270,000150: 14,2152 12745 TCF ENDTEST
019271,000151: 14,2153 00006 EXTEND
019272,000152: 14,2154 50374 INDEX MARKSTAT
019273,000153: 14,2155 30001 DCA 0
019274,000154: 14,2156 53565 DXCH TMARK # TIME(PRES) FOR EARTH RATE COMPENSATION
019275,000155:
019276,000156: 14,2157 02242 TC GIMANGS1
019277,000157:
019278,000158: 14,2160 06000 TC INTPRET
019279,000159: 14,2161 47140 LXC,1 CALL
019280,000160: 14,2162 00374 MARKSTAT # BASE ADDRESS VAC AREA FOR AOTNB
019281,000161: 14,2163 33051 AOTNB # OPTICS TO NAV BASE COORDINATE FRAME
019282,000162: 14,2164 47014 BON CALL
019283,000163: 14,2165 00305 COAROFIN # COARSE MARKS = 0 FINE MARKS = 1
019284,000164: 14,2166 30170 +2
019285,000165: 14,2167 32517 NBSM # NAV BASE DIRECT TO STABLE MEMBER
019286,000166: 14,2170 01445 STORE STARAD # TARGET 1 WRT NAV BASE OR STABLE MEMBER
019287,000167: 14,2171 01601 STORE LOS1 # ...FOR K...
019288,000168: 14,2172 77776 EXIT
019289,000169:
019290,000170: 14,2173 04065 TC BANKCALL
019291,000171: 14,2174 27014 CADR MKRELEAS # RELEASE MARK SYSTEM
019292,000172: 14,2175 37656 CAF TWO
019293,000173: 14,2176 54333 TS DSPTEM1
019294,000174: 14,2177 33651 CAF V01N30E # DISPLAY 00002 IN R1
019295,000175: 14,2200 05324 TC NVSBWAIT
019296,000176: 14,2201 37665 CAF ZERO # TO INDICATE GROUND MARKS
019297,000177: 14,2202 04065 TC BANKCALL
019298,000178: 14,2203 26753 CADR AOTMARK # MARK ON TARGET 2
019299,000179:
019300,000180: 14,2204 37646 CAF BIT10
019301,000181: 14,2205 70061 MASK STATE # BIT10 = COAROFIN
019302,000182: 14,2206 10000 CCS A
019303,000183: 14,2207 12215 TCF EARRTCOM +5 # IF COARSE ALIGN MARKS
019304,000184:
019305,000185: 14,2210 04065 EARRTCOM TC BANKCALL # EARTH RATE COMPENSATION BETWEEN MARKS
019306,000186: 14,2211 30422 CADR EARTHR
019307,000187: 14,2212 10372 CCS OPTCADR # +0 IF MARK BUTTON NOT DEPRESSED
019308,000188: 14,2213 12216 TCF +3
019309,000189: 14,2214 12210 TCF EARRTCOM # CONTINUE TO COMPENSATE FOR EARTH RATE
019310,000190: 14,2215 12216 TCF +1
019311,000191: 14,2216 04065 TC BANKCALL
019312,000192: 14,2217 26714 CADR OPTSTALL # INSURE SUCCESSFUL MARK
019313,000193: 14,2220 12745 TCF ENDTEST
019314,000194:
019315,000195: 14,2221 02242 TC GIMANGS1
019316,000196:
019317,000197: 14,2222 06000 TC INTPRET
019318,000198: 14,2223 47140 LXC,1 CALL
019319,000199: 14,2224 00374 MARKSTAT # BASE ADDRESS VAC AREA FOR AOTNB
019320,000200: 14,2225 33051 AOTNB # OPTICS TO NAV BASE COORDINATE FRAME
019321,000201: 14,2226 47014 BONCLR CALL # SET TO ZERO FOR FINE ALIGN MARKS
019322,000202: 14,2227 00205 COAROFIN # COARSE MARKS = 0 FINE MARKS = 1
019323,000203: 14,2230 30232 +2
019324,000204: 14,2231 32517 NBSM # NAV BASE DIRECT TO STABLE MEMBER
019325,000205: 14,2232 01453 STORE STARAD +6 # TARGET 2 WRT NAV BASE OR STABLE MEMBER
019326,000206: 14,2233 01607 STORE LOS2 # ...FOR K...
019327,000207:
019328,000208: 14,2234 77634 MAXDET CALL
019329,000209: 14,2235 30350 TAR/EREF # TARGETS 1,2 WRT EARTH REF FRAME
019330,000210: 14,2236 77634 CALL
019331,000211: 14,2237 32677 AXISGEN # NAV BASE OR SM WRT EARTH REF FRAME
019332,000212: 14,2240 77776 EXIT
019333,000213: 14,2241 01546 TC QPLACE
019334,000214:
019335,000215:
019336,000216:
019337,000217: 14,2242 37656 GIMANGS1 CAF TWO # BASE ADDRESS GIMBAL ANGLES FOR NBSM
019338,000218: 14,2243 60374 AD MARKSTAT
019339,000219: 14,2244 50104 INDEX FIXLOC
019340,000220: 14,2245 54050 TS S1
019341,000221: 14,2246 00002 TC Q
019342,000222:
019343,000223: 14,2247 00006 PUTPOSX EXTEND # COARSE ALIGNS STABLE MEMBER
019344,000224: 14,2250 23546 QXCH QPLACE
019345,000225:
019346,000226: 14,2251 06000 TC INTPRET
019347,000227: 14,2252 77634 CALL
019348,000228: 14,2253 32615 CALCGA # CALCULATE COARSE ALIGN GIMBAL ANGLES
019349,000229: 14,2254 77776 EXIT
019350,000230:
019351,000231: 14,2255 04065 TC BANKCALL
019352,000232: 14,2256 26055 CADR IMUCOARS # COARSE ALIGN MODE
019353,000233: 14,2257 04065 TC BANKCALL
019354,000234: 14,2260 26716 CADR IMUSTALL
019355,000235: 14,2261 12745 TCF ENDTEST
019356,000236: 14,2262 01546 TC QPLACE
019357,000237:
019358,000238:
019359,000239:
019360,000240:
019361,000241: 14,2263 00006 SMDCALC EXTEND # FINE ALIGNS STABLE MEMBER
019362,000242: 14,2264 23546 QXCH QPLACE
019363,000243:
019364,000244: 14,2265 06000 TC INTPRET
019365,000245: 14,2266 64375 VLOAD MXV
019366,000246: 14,2267 01401 XSM # XSM DESIRED WRT EARTH REF FRAME
019367,000247: 14,2270 01445 STARAD # THEN TO SM PRESENT OR NAV BASE FRAME
019368,000248: 14,2271 43172 VSL1 BOFF
019369,000249: 14,2272 00345 COAROFIN # BIT10 FOR LEMLAB TEST
019370,000250: 14,2273 30276 +3
019371,000251: 14,2274 36041 STCALL 32D
019372,000252: 14,2275 32517 NBSM # THEN TO SM PRESENT FRAME
019373,000253: 14,2276 23423 STOVL XDC
019374,000254: 14,2277 01407 YSM # YSM DESIRED WRT EARTH REF FRAME
019375,000255:
019376,000256: 14,2300 76521 MXV VSL1
019377,000257: 14,2301 01445 STARAD # THEN TO SM PRESENT OR NAV BASE FRAME
019378,000258: 14,2302 77614 BOFF
019379,000259: 14,2303 00345 COAROFIN # BIT10 FOR LEMLAB TEST
019380,000260: 14,2304 30307 +3
019381,000261: 14,2305 36041 STCALL 32D
019382,000262: 14,2306 32517 NBSM # THEN TO SM PRESENT FRAME
019383,000263: 14,2307 23431 STOVL YDC
019384,000264: 14,2310 01423 XDC
019385,000265:
019386,000266: 14,2311 76435 VXV VSL1
019387,000267: 14,2312 01431 YDC
019388,000268: 14,2313 37437 STCALL ZDC # ZSM DESIRED WRT SM PRESENT FRAME
019389,000269: 14,2314 32367 CALCGTA # CALCULATE FINE ALIGN TORQUING ANGLES
019390,000270:
019391,000271: 14,2315 45170 AXT,1 RTB
019392,000272:
019393,000273: 14,2316 02500 ECADR OGC # X1 = BASE ADDRESS OF TORQUING ANGLES
019394,000274: 14,2317 33515 PULSEIMU # TO PUT OUT GYRO TORQUING PULSES
019395,000275: 14,2320 77776 EXIT
019396,000276:
019397,000277: 14,2321 04065 TC BANKCALL
019398,000278: 14,2322 26716 CADR IMUSTALL # WAIT FOR PULSES TO GET OUT
019399,000279: 14,2323 12745 TCF ENDTEST
019400,000280: 14,2324 01546 TC QPLACE
019401,000281:
019402,000282: 14,2325 77776 MAKEXSMD EXIT # XSM V YSM SW ZSM SE
019403,000283: 14,2326 33660 CAF 17DEC # ZERO XSM, YSM, AND ZSM
019404,000284: 14,2327 55776 TS ZERONDX
019405,000285: 14,2330 33676 CAF XSMADRX
019406,000286: 14,2331 04065 TC BANKCALL
019407,000287: 14,2332 37236 CADR ZEROING # VERT SOUTH EAST
019408,000288:
019409,000289: 14,2333 37642 CAF HALF # XSM * +1 0 0 *
019410,000290: 14,2334 55400 TS XSM # * *
019411,000291: 14,2335 06000 TC INTPRET # * *
019412,000292: 14,2336 73545 DLOAD SIN # YSM * 0 +SIN(AZ) +COS(AZ) *
019413,000293: 14,2337 01507 AZIMUTH # * *
019414,000294: 14,2340 01411 STORE XSM +8D # * *
019415,000295: 14,2341 07421 STODL XSM +16D # ZSM * 0 -COS(AZ) +SIN(AZ) *
019416,000296: 14,2342 01507 AZIMUTH
019417,000297: 14,2343 77746 COS
019418,000298: 14,2344 01413 STORE XSM +10D
019419,000299: 14,2345 77676 DCOMP
019420,000300: 14,2346 01417 STORE XSM +14D
019421,000301: 14,2347 77616 RVQ
019422,000302:
019423,000303:
019424,000304:
019425,000305: 14,2350 77170 TAR/EREF AXT,1 AXT,2 # TARGET VECTOR
019426,000306: 14,2351 00002 2 # SIN(EL) -COS(AZ)COS(EL) SIN(AZ)COS(EL)
019427,000307: 14,2352 00014 12D
019428,000308: 14,2353 77731 SSP
019429,000309: 14,2354 00052 S2
019430,000310: 14,2355 00006 6 # TARGET 1 TARGET 2
019431,000311:
019432,000312: 14,2356 60533 TAR1 SLOAD* SR2 # X1=2 X2=12 S2=6 . X1=0 X2=6 S2=6
019433,000313: 14,2357 01557 TAZEL1 +3,1
019434,000314: 14,2360 00001 STORE 0 # PD00 ELEVATION PD00
019435,000315: 14,2361 77756 SIN
019436,000316: 14,2362 12023 STODL 18D,2 # PD06 *** SIN(EL) *** PD12
019437,000317:
019438,000318: 14,2363 00001 0
019439,000319: 14,2364 41546 COS PUSH # PDOO COS(EL) PD00
019440,000320: 14,2365 45133 SLOAD* RTB
019441,000321: 14,2366 01556 TAZEL1 +2,1
019442,000322: 14,2367 33345 CDULOGIC
019443,000323: 14,2370 00003 STORE 2 # PD02 AZIMUTH PD02
019444,000324: 14,2371 41356 SIN DMP
019445,000325: 14,2372 00001 0
019446,000326: 14,2373 77752 SL1
019447,000327: 14,2374 12027 STODL 22D,2 # PD10 *** +SIN(AZ)COS(EL) *** PD16
019448,000328:
019449,000329: 14,2375 00003 2
019450,000330: 14,2376 41346 COS DMP
019451,000331: 14,2377 57552 SL1 DCOMP
019452,000332: 14,2400 04025 STORE 20D,2 # PD08 *** -COS(AZ)COS(EL) *** PD14
019453,000333:
019454,000334: 14,2401 61170 AXT,1 TIX,2
019455,000335: 14,2402 00000 0
019456,000336: 14,2403 30356 TAR1
019457,000337: 14,2404 77616 RVQ
019458,000338:
019459,000339: 14,2405 65345 ERTHRVSE DLOAD PDDL
019460,000340: 14,2406 33042 ZERODP # PD24 = (SIN -COS 0)(OMEG/MS)
019461,000341: 14,2407 01511 LATITUDE
019462,000342: 14,2410 57546 COS DCOMP
019463,000343: 14,2411 73525 PDDL SIN
019464,000344: 14,2412 01511 LATITUDE # EARTH RATE = .1504 ARCSEC / 10 MSEC
019465,000345: 14,2413 74266 VDEF VXSC # 1.618 GYRO PULSES = 1 ARCSEC
019466,000346: 14,2414 31702 OMEG/MS # OMEG/MS = .243... GYRO PULSES / 10 MSEC
019467,000347: 14,2415 01514 STORE ERVECTOR
019468,000348:
019469,000349: 14,2416 77624 RTB
019470,000350: 14,2417 33342 LOADTIME
019471,000351: 14,2420 01565 STORE TMARK # TIME FOR GYRO DRIFT - PIPA SCALE FACTOR
019472,000352: 14,2421 77616 RVQ
019473,000353:
019474,000354:
019475,000355:
019476,000356:
019477,000357:
019478,000358: 14,2422 04114 EARTHR TC MAKECADR # CLACULATES AND COMPENSATES EARTH RATE
019479,000359: 14,2423 55547 TS QPLACES
019480,000360:
019481,000361: 14,2424 06000 TC INTPRET
019482,000362: 14,2425 77624 RTB
019483,000363: 14,2426 33342 LOADTIME # T(PRESENT)
019484,000364: 14,2427 01562 STORE TEMPTIME
019485,000365: 14,2430 54225 DSU SL
019486,000366: 14,2431 01565 TMARK # T(PRES) - T(PREV) = DT SCALED 10 MSEC
019487,000367: 14,2432 00212 9D # 2 TO 21ST POWER = 1 REVOLUTION
019488,000368: 14,2433 64361 VXSC MXV
019489,000369: 14,2434 01514 ERVECTOR # VT = (SIN -COS 0)(OMEG/MS)(DT)
019490,000370: 14,2435 01401 XSM # (XSM)(VT) = EARTH RATE COMPENSATION
019491,000371: 14,2436 77655 VAD
019492,000372: 14,2437 01772 ERCOMP
019493,000373: 14,2440 07772 STODL ERCOMP
019494,000374: 14,2441 01562 TEMPTIME
019495,000375: 14,2442 01565 STORE TMARK # T(PREVIOUS)
019496,000376:
019497,000377: 14,2443 45170 AXT,1 RTB
019498,000378: 14,2444 02771 ECADR ERCOMP
019499,000379: 14,2445 33515 PULSEIMU # TO PUT OUT GYRO TORQUING PULSES
019500,000380: 14,2446 77776 EXIT
019501,000381:
019502,000382: 14,2447 04065 TC BANKCALL
019503,000383: 14,2450 26716 CADR IMUSTALL # WAIT FOR PULSES TO GET OUT
019504,000384: 14,2451 12745 TCF ENDTEST
019505,000385: 14,2452 31547 CAE QPLACES
019506,000386: 14,2453 14107 TCF BANKJUMP
019507,000387:
019508,000388: 14,2454 00006 STORRSLT EXTEND
019509,000389: 14,2455 23546 QXCH QPLACE
019510,000390:
019511,000391: 14,2456 06000 TC INTPRET # DP TIME IN MPAC SCALED .312(5) MSEC
019512,000392: 14,2457 54340 LXC,1 SL
019513,000393: 14,2460 01537 NDXCTR
019514,000394: 14,2461 00204 3
019515,000395: 14,2462 45005 DMP RTB
019516,000396: 14,2463 31700 SCALFTR
019517,000397: 14,2464 33406 SGNAGREE
019518,000398: 14,2465 03571 STORE GENPL,1 # STORE DP TIME
019519,000399: 14,2466 77776 EXIT
019520,000400:
019521,000401: 14,2467 57551 XCH STOREPL # CONTAINS C(PIPAI)
019522,000402: 14,2470 51537 INDEX NDXCTR
019523,000403: 14,2471 55572 TS GENPL +2 # STORE PIPA COUNTER READING
019524,000404: 14,2472 41537 CS NDXCTR
019525,000405: 14,2473 63664 AD 72DEC
019526,000406: 14,2474 00006 EXTEND
019527,000407: 14,2475 63123 BZMF MISALIGN # TO CALCULATE MISALIGNMENT
019528,000408: 14,2476 36165 CAF THREE
019529,000409: 14,2477 27537 ADS NDXCTR
019530,000410: 14,2500 01546 TC QPLACE
019531,000411:
019532,000412: 14,2501 00006 OPTDATA EXTEND # CALLS FOR AZIMUTH AND ELEVATION OF
019533,000413: 14,2502 23546 QXCH QPLACE # TARGET 1, THEN TARGET 2
019534,000414:
019535,000415: 14,2503 37657 CAF BIT1 # AZIMUTH CLOCKWISE FROM NORTH TO TARGET
019536,000416: 14,2504 22007 ZL # ELEVATION MEASURED FROM HORIZONTAL
019537,000417: 14,2505 23550 LXCH RUN
019538,000418: 14,2506 54335 TS DSPTEM1 +2
019539,000419: 14,2507 33652 CAF V05N30E # DISPLAY TARGET NUMBER IN R3
019540,000420: 14,2510 05324 TC NVSBWAIT
019541,000421: 14,2511 51550 INDEX RUN
019542,000422: 14,2512 53554 DXCH TAZEL1
019543,000423: 14,2513 52334 DXCH DSPTEM1
019544,000424:
019545,000425: 14,2514 02554 TC CHECKLD # R1 +- XXX.XX AZIMUTH IN DEGREES
019546,000426: 14,2515 00661 OCT 00661 # R2 +- XX.XXX ELEVATION IN DEGREES
019547,000427: 14,2516 12745 TCF ENDTEST # R3 0000X TARGET NUMBER 1 OR 2
019548,000428:
019549,000429: 14,2517 52334 DXCH DSPTEM1 # TAZEL1 TARGET 1 AZIMUTH
019550,000430: 14,2520 51550 INDEX RUN
019551,000431: 14,2521 53554 DXCH TAZEL1 # TAZEL1 +2 TARGET 2 AZIMUTH
019552,000432: 14,2522 11550 CCS RUN
019553,000433: 14,2523 12527 TCF +4
019554,000434: 14,2524 37656 OPTRDRIN CAF TWO # SPECIAL ENTRY FOR RDR37511
019555,000435: 14,2525 54001 TS L
019556,000436: 14,2526 12505 TCF OPTDATA +4 # MPAC 1ST PASS = 0 2ND PASS = 2
019557,000437: 14,2527 01546 TC QPLACE
019558,000438:
019559,000439: 14,2530 62545 LATAZCHK DLOAD SL2 # CALLS FOR AZIMUTH (SM) AND LATITUDE
019560,000440: 14,2531 01511 LATITUDE
019561,000441: 14,2532 06335 STODL DSPTEM1 +1
019562,000442: 14,2533 01507 AZIMUTH # ...NOT REALLY...
019563,000443:
019564,000444: 14,2534 77424 RTB EXIT
019565,000445: 14,2535 33410 1STO2S # FRACTION OF REVOLUTION TO 2S COMPLEMENT
019566,000446:
019567,000447: 14,2536 56140 XCH MPAC # AZIMUTH MUST BE 135 DEGREES R1 = .13500
019568,000448: 14,2537 54333 TS DSPTEM1 # FOR SXT-NB-IMU FINE ALIGNMENT TEST
019569,000449: 14,2540 02554 TC CHECKLD # R1 +- XXX.XX AZIMUTH IN DEGREES (SM)
019570,000450: 14,2541 00661 OCT 00661 # R2 +- XX.XXX LATITUDE IN DEGREES
019571,000451: 14,2542 12745 TCF ENDTEST # R3 NOT USED
019572,000452:
019573,000453: 14,2543 06000 TC INTPRET
019574,000454: 14,2544 45135 SLOAD RTB
019575,000455: 14,2545 00334 DSPTEM1
019576,000456: 14,2546 33345 CDULOGIC # BACK TO FRACTION OF REVOLUTION
019577,000457: 14,2547 01507 STORE AZIMUTH
019578,000458:
019579,000459: 14,2550 60535 SLOAD SR2
019580,000460: 14,2551 00335 DSPTEM1 +1
019581,000461: 14,2552 01511 STORE LATITUDE
019582,000462: 14,2553 77616 RVQ
019583,000463:
019584,000464:
019585,000465: 14,2554 00006 CHECKLD EXTEND
019586,000466: 14,2555 23545 QXCH QPLAC
019587,000467:
019588,000468: 14,2556 51545 INDEX QPLAC
019589,000469: 14,2557 30000 CA A
019590,000470: 14,2560 05101 TC NVSUB
019591,000471: 14,2561 12573 TCF CHECKLD1
019592,000472:
019593,000473: 14,2562 05266 TC FLASHON
019594,000474:
019595,000475: 14,2563 05132 TC ENDIDLE # CHANGE R1 V21 N61 E +- XXX.XX E
019596,000476: 14,2564 12567 TCF +3 # CHANGE R2 V22 N61 E +- XX.XXX E
019597,000477: 14,2565 12571 TCF +4 # VERIFY, THEN PROCEED WITH VERB 33 ENTER
019598,000478: 14,2566 12556 TCF CHECKLD +2
019599,000479: 14,2567 51545 INDEX QPLAC
019600,000480: 14,2570 00001 TC 1
019601,000481: 14,2571 51545 INDEX QPLAC
019602,000482: 14,2572 00002 TC 2
019603,000483:
019604,000484: 14,2573 32575 CHECKLD1 CAF CHECKLD2
019605,000485: 14,2574 05321 TC NVSUBUSY
019606,000486: 14,2575 30556 CHECKLD2 CADR CHECKLD +2
019607,000487:
019608,000488: 14,2576 00006 POSNJUMP EXTEND # POSITIONS FOR SXTNBIMU
019609,000489: 14,2577 23546 QXCH QPLACE
019610,000490:
019611,000491: 14,2600 51544 INDEX POSITON
019612,000492: 14,2601 12602 TCF +1
019613,000493: 14,2602 12745 TCF ENDTEST
019614,000494: 14,2603 12610 TCF POS1
019615,000495: 14,2604 12615 TCF POS2
019616,000496: 14,2605 12633 TCF POS3
019617,000497: 14,2606 12654 TCF POS4
019618,000498: 14,2607 12706 TCF POS5
019619,000499:
019620,000500:
019621,000501:
019622,000502: 14,2610 37657 POS1 CAF ONE # XSM = V YSM = SW ZSM = SE
019623,000503: 14,2611 55542 TS PIPNDX
019624,000504: 14,2612 37656 CAF TWO
019625,000505: 14,2613 55543 TS PIPNDX +1 # MONITOR PIPAY AND PIPAZ
019626,000506: 14,2614 01546 TC QPLACE
019627,000507:
019628,000508:
019629,000509:
019630,000510: 14,2615 06000 POS2 TC INTPRET # XSM = SE YSM = SW ZSM = -V
019631,000511: 14,2616 57575 VLOAD VCOMP
019632,000512: 14,2617 01401 XSM
019633,000513: 14,2620 77715 PDVL
019634,000514: 14,2621 01415 ZSM
019635,000515: 14,2622 23401 STOVL XSM
019636,000516: 14,2623 77626 STADR
019637,000517: 14,2624 76362 STORE ZSM
019638,000518: 14,2625 77776 EXIT
019639,000519: 14,2626 37665 CAF ZERO
019640,000520: 14,2627 55542 TS PIPNDX
019641,000521: 14,2630 37657 CAF ONE
019642,000522: 14,2631 55543 TS PIPNDX +1 # MONITOR PIPAX AND PIPAY
019643,000523: 14,2632 01546 TC QPLACE
019644,000524:
019645,000525:
019646,000526:
019647,000527: 14,2633 06000 POS3 TC INTPRET # XSM = SE YSM = V ZSM = SW
019648,000528: 14,2634 63375 VLOAD PDVL
019649,000529: 14,2635 01401 XSM
019650,000530: 14,2636 01407 YSM
019651,000531: 14,2637 77715 PDVL
019652,000532: 14,2640 01415 ZSM
019653,000533: 14,2641 23401 STOVL XSM
019654,000534:
019655,000535: 14,2642 77626 STADR
019656,000536: 14,2643 54362 STOVL ZSM
019657,000537:
019658,000538: 14,2644 77626 STADR
019659,000539: 14,2645 76370 STORE YSM
019660,000540: 14,2646 77776 EXIT
019661,000541: 14,2647 37665 CAF ZERO
019662,000542: 14,2650 55542 TS PIPNDX
019663,000543: 14,2651 37656 CAF TWO
019664,000544: 14,2652 55543 TS PIPNDX +1 # MONITOR PIPAX AND PIPAZ
019665,000545: 14,2653 01546 TC QPLACE
019666,000546:
019667,000547:
019668,000548:
019669,000549: 14,2654 37653 POS4 CAF BIT5 # OPTION TO ALIGN SM TO SPECIFIED ANGLES
019670,000550: 14,2655 60104 AD FIXLOC
019671,000551: 14,2656 50104 INDEX FIXLOC
019672,000552: 14,2657 54050 TS S1 # BASE ADDRESS GIMBAL ANGLES
019673,000553: 14,2660 33656 CAF V25N22E # R1 +- XXX.XX OUTER GIMBAL ANGLE
019674,000554: 14,2661 05324 TC NVSBWAIT # R2 +- XXX.XX INNER GIMBAL ANGLE
019675,000555: 14,2662 05132 TC ENDIDLE # R3 +- XXX.XX MIDDLE GIMBAL ANGLE
019676,000556: 14,2663 12745 TCF ENDTEST
019677,000557: 14,2664 12660 TCF -4
019678,000558: 14,2665 30400 CA THETAD # SET UP ANGLES FOR SMNB
019679,000559: 14,2666 50104 INDEX FIXLOC
019680,000560: 14,2667 54024 TS 24
019681,000561: 14,2670 30401 CA THETAD +1
019682,000562: 14,2671 50104 INDEX FIXLOC
019683,000563: 14,2672 54020 TS 20
019684,000564: 14,2673 30402 CA THETAD +2
019685,000565: 14,2674 50104 INDEX FIXLOC
019686,000566: 14,2675 54022 TS 22
019687,000567:
019688,000568: 14,2676 06000 TC INTPRET
019689,000569: 14,2677 47024 RTB CALL
019690,000570: 14,2700 32766 TRANSPSE # EARTH REF WRT NAV BASE
019691,000571: 14,2701 33000 SMD/EREF # STABLE MEMBER DESIRED WRT EARTH REF
019692,000572: 14,2702 77624 RTB
019693,000573: 14,2703 32766 TRANSPSE # BACK TO NAV BASE WRT TO EARTH REF
019694,000574: 14,2704 77776 EXIT
019695,000575: 14,2705 01546 TC QPLACE
019696,000576:
019697,000577: 14,2706 31546 POS5 CA QPLACE # OPTION TO ALIGN SM TO ANY ORIENTATION
019698,000578: 14,2707 55551 TS STOREPL # WRT EARTH REFERENCE FRAME
019699,000579:
019700,000580: 14,2710 02501 TC OPTDATA # LOAD YSM AND ZSM AZIMUTH AND ELEVATION
019701,000581:
019702,000582: 14,2711 06000 TC INTPRET
019703,000583: 14,2712 77634 CALL
019704,000584: 14,2713 30350 TAR/EREF # CALC YSM AND ZSM WRT EARTH REF. FRAME
019705,000585: 14,2714 41575 VLOAD PUSH
019706,000586: 14,2715 00007 6D
019707,000587: 14,2716 01407 STORE YSM
019708,000588: 14,2717 76435 VXV VSL1
019709,000589: 14,2720 00015 12D
019710,000590: 14,2721 01401 STORE XSM # XSM = (YSM) X (ZSM)
019711,000591: 14,2722 76435 VXV VSL1
019712,000592: 14,2723 77626 STADR
019713,000593: 14,2724 76362 STORE ZSM # ZSM = (XSM) X (YSM)
019714,000594: 14,2725 77776 EXIT
019715,000595:
019716,000596: 14,2726 01551 TC STOREPL
019717,000597: 14,2727 00006 OGCZERO EXTEND # ZERO EARTH RATE TORQUING ANGLES
019718,000598: 14,2730 23546 QXCH QPLACE
019719,000599:
019720,000600: 14,2731 06000 TC INTPRET
019721,000601: 14,2732 77775 VLOAD
019722,000602: 14,2733 33042 ZERODP # VECTOR IN THIS CASE
019723,000603: 14,2734 01772 STORE ERCOMP
019724,000604: 14,2735 77776 EXIT
019725,000605: 14,2736 01546 TC QPLACE
019726,000606:
019727,000607:
019728,000608:
019729,000609:
019730,000610:
019731,000611: 14,2737 37652 GMLCKCHK CAF BIT6 # CHECK FOR GIMBAL LOCK (MGA GREATER 70)
019732,000612: 14,2740 70322 MASK DSPTAB +11D
019733,000613: 14,2741 00006 EXTEND
019734,000614: 14,2742 12744 BZF +2
019735,000615: 14,2743 12745 TCF ENDTEST
019736,000616: 14,2744 00002 TC Q
019737,000617:
019738,000618:
019739,000619:
019740,000620:
019741,000621:
019742,000622: 14,2745 37650 ENDTEST CA IMUSEFLG # BIT8
019743,000623: 14,2746 67651 AD RRUSEFLG # BIT7
019744,000624: 14,2747 40000 CS A
019745,000625: 14,2750 00004 INHINT
019746,000626: 14,2751 70061 MASK STATE
019747,000627: 14,2752 54061 TS STATE
019748,000628:
019749,000629: 14,2753 04650 TC NEWMODEX
019750,000630: 14,2754 00000 OCT 00000
019751,000631:
019752,000632: 14,2755 04065 TC BANKCALL
019753,000633: 14,2756 27014 CADR MKRELEAS # RELEASE MARK SYSTEM
019754,000634: 14,2757 04420 TC EJFREE
019755,000635:
019756,000636: 14,2760 06000 LEMLAB TC INTPRET
019757,000637: 14,2761 57575 VLOAD VCOMP
019758,000638: 14,2762 33036 YUNIT
019759,000639:
019760,000640: 14,2763 01437 STORE ZNB # XNB MATRIX USED IN CALCGA
019761,000641: 14,2764 23461 STOVL STARAD +12D # STARAD MATRIX USED IN AXISGEN * SMDCALC
019762,000642: 14,2765 33040 XUNIT
019763,000643:
019764,000644: 14,2766 01423 STORE XNB # *XNB* *1 0 0* *V*
019765,000645: 14,2767 23445 STOVL STARAD # * * * * * *
019766,000646: 14,2770 33034 ZUNIT # *YNB* = *0 0 1* *S*
019767,000647: 14,2771 01431 STORE YNB # * * * * * *
019768,000648: 14,2772 01453 STORE STARAD +6 # *ZNB* *0 -1 0* *E*
019769,000649: 14,2773 77776 EXIT
019770,000650:
019771,000651: 14,2774 41544 CS POSITON
019772,000652: 14,2775 66165 AD THREE
019773,000653: 14,2776 00006 EXTEND
019774,000654: 14,2777 13001 BZF +2
019775,000655: 14,3000 13014 TCF LEMLAB1
019776,000656:
019777,000657: 14,3001 06000 TC INTPRET
019778,000658: 14,3002 57575 VLOAD VCOMP
019779,000659: 14,3003 01423 XNB
019780,000660: 14,3004 77715 PDVL # *XNB* * 0 -1 0* *V*
019781,000661: 14,3005 01437 ZNB # * * * * * *
019782,000662: 14,3006 01423 STORE XNB # *YNB* = * 0 0 1* *S*
019783,000663: 14,3007 23445 STOVL STARAD # * * * * * *
019784,000664: 14,3010 77626 STADR # *ZNB* *-1 0 0* * *
019785,000665: 14,3011 76340 STORE ZNB
019786,000666: 14,3012 01461 STORE STARAD +12D
019787,000667: 14,3013 77776 EXIT
019788,000668:
019789,000669: 14,3014 04065 LEMLAB1 TC BANKCALL
019790,000670: 14,3015 26716 CADR IMUSTALL # INSURE IMUZERO COMPLETION
019791,000671:
019792,000672: 14,3016 12745 TCF ENDTEST
019793,000673:
019794,000674: 14,3017 02576 TC POSNJUMP # SET UP STABLE MEMBER DESIRED COORDINATES
019795,000675: 14,3020 05373 TC FREEDSP # FREE DISPLAY SYSTEM
019796,000676: 14,3021 02247 TC PUTPOSX # TO COARSE ALIGN STABLE MEMBER
019797,000677:
019798,000678: 14,3022 02737 TC GMLCKCHK
019799,000679:
019800,000680: 14,3023 04065 TC BANKCALL
019801,000681: 14,3024 26227 CADR IMUFINE # FINE ALIGN MODE
019802,000682: 14,3025 04065 TC BANKCALL
019803,000683: 14,3026 26716 CADR IMUSTALL
019804,000684: 14,3027 12745 TCF ENDTEST
019805,000685:
019806,000686: 14,3030 30032 CA CDUX
019807,000687: 14,3031 50104 INDEX FIXLOC
019808,000688: 14,3032 54024 TS 24
019809,000689: 14,3033 30033 CA CDUY
019810,000690: 14,3034 50104 INDEX FIXLOC
019811,000691: 14,3035 54020 TS 20
019812,000692: 14,3036 30034 CA CDUZ
019813,000693: 14,3037 50104 INDEX FIXLOC
019814,000694: 14,3040 54022 TS 22
019815,000695:
019816,000696: 14,3041 37653 CAF BIT5
019817,000697: 14,3042 60104 AD FIXLOC
019818,000698: 14,3043 50104 INDEX FIXLOC
019819,000699: 14,3044 54050 TS S1
019820,000700:
019821,000701: 14,3045 02263 TC SMDCALC # TO FINE ALIGN STABLE MEMBER
019822,000702:
019823,000703: 14,3046 06000 TC INTPRET # IF EARTH RATE COMPENSATION DESIRED
019824,000704: 14,3047 77624 RTB
019825,000705: 14,3050 33342 LOADTIME
019826,000706: 14,3051 01565 STORE TMARK
019827,000707: 14,3052 77776 EXIT
019828,000708:
019829,000709: 14,3053 41512 CS EROPTN
019830,000710: 14,3054 67656 AD TWO
019831,000711: 14,3055 00006 EXTEND
019832,000712: 14,3056 13060 BZF +2
019833,000713:
019834,000714: 14,3057 12051 TCF ERFINAL +2
019835,000715:
019836,000716: 14,3060 04065 TC BANKCALL
019837,000717: 14,3061 35235 CADR SAMODRTN # RETURN TO SEMI-AUTOMATIC MODING TEST
019838,000718:
019839,000719: 14,3062 33674 RDR37511 CAF RDRRETN # RENDEZVOUS RADAR AND ANTENNA TRACKING
019840,000720: 14,3063 55546 TS QPLACE # TO RETURN FROM OPTDATA
019841,000721:
019842,000722: 14,3064 04065 TC BANKCALL
019843,000723: 14,3065 20247 CADR RRZERO
019844,000724:
019845,000725: 14,3066 04065 TC BANKCALL
019846,000726: 14,3067 22776 CADR AURLOKON # OPERATOR DECISION TO LOCK ON OR NOT
019847,000727:
019848,000728: 14,3070 12524 RDR1 TCF OPTRDRIN # CALL FOR AZIMUTH AND ELEVATION
019849,000729:
019850,000730: 14,3071 04065 TC BANKCALL
019851,000731: 14,3072 26712 CADR RADSTALL
019852,000732: 14,3073 14421 TCF ENDOFJOB
019853,000733:
019854,000734: 14,3074 06000 TC INTPRET
019855,000735: 14,3075 77170 AXT,1 AXT,2 # SET UP X1 AND X2 FOR TAR/EREF
019856,000736: 14,3076 00000 0
019857,000737: 14,3077 00006 6
019858,000738: 14,3100 77634 CALL
019859,000739: 14,3101 30353 TAR/EREF +3 # LINE-OF-SIGHT WRT EARTH REF FRAME
019860,000740: 14,3102 64375 VLOAD MXV
019861,000741: 14,3103 00015 12D # LINE-OF-SIGHT WRT EARTH REF FRAME
019862,000742: 14,3104 01401 XSM # TO STABLE MEMBER PRESENT FRAME
019863,000743: 14,3105 77772 VSL1
019864,000744: 14,3106 36416 STCALL RRTARGET
019865,000745: 14,3107 20306 RRDESSM
019866,000746:
019867,000747: 14,3110 13115 TCF 37511ALM
019868,000748: 14,3111 04065 TC BANKCALL
019869,000749: 14,3112 26712 CADR RADSTALL
019870,000750: 14,3113 14421 TCF ENDOFJOB
019871,000751: 14,3114 14421 TCF ENDOFJOB
019872,000752:
019873,000753:
019874,000754:
019875,000755:
019876,000756:
019877,000757: 14,3115 05405 37511ALM TC ALARM
019878,000758: 14,3116 00524 OCT 524
019879,000759: 14,3117 14421 TCF ENDOFJOB
019880,000760:
019881,000761:
019882,000762:
019883,000763:
019884,000764:
019885,000765: 14,3120 47665 RDRINIT CS ZERO
019886,000766: 14,3121 55512 TS EROPTN
019887,000767: 14,3122 12002 TCF AOTNBIMU +2
019888,000768:
019889,000769: 14,3123 05311 MISALIGN TC GRABWAIT # DISPLAY SYSTEM WAS FREED
019890,000770: 14,3124 37665 CAF ZERO
019891,000771: 14,3125 55537 TS NDXCTR
019892,000772: 14,3126 51537 BBBB INDEX NDXCTR
019893,000773: 14,3127 41674 CS GENPL +68D
019894,000774: 14,3130 51537 INDEX NDXCTR
019895,000775: 14,3131 27702 ADS GENPL +74D
019896,000776: 14,3132 33662 CAF 63DEC
019897,000777: 14,3133 61537 AD NDXCTR
019898,000778: 14,3134 10000 CCS A
019899,000779: 14,3135 46165 CS THREE
019900,000780: 14,3136 27537 ADS NDXCTR
019901,000781: 14,3137 13126 TCF BBBB
019902,000782: 14,3140 55537 TS NDXCTR
019903,000783:
019904,000784:
019905,000785:
019906,000786: 14,3141 06000 CCCC TC INTPRET
019907,000787: 14,3142 70750 LXA,1 DLOAD*
019908,000788: 14,3143 01537 NDXCTR
019909,000789: 14,3144 01701 GENPL +72D,1
019910,000790: 14,3145 77625 DSU
019911,000791: 14,3146 01571 GENPL
019912,000792: 14,3147 03701 STORE GENPL +72D,1
019913,000793: 14,3150 77776 EXIT
019914,000794: 14,3151 41537 CS NDXCTR
019915,000795: 14,3152 63663 AD 69DEC
019916,000796: 14,3153 10000 CCS A
019917,000797: 14,3154 36165 CAF THREE
019918,000798: 14,3155 27537 ADS NDXCTR
019919,000799: 14,3156 13141 TCF CCCC
019920,000800: 14,3157 55550 TS RUN
019921,000801: 14,3160 36165 CAF THREE
019922,000802: 14,3161 55537 TS NDXCTR
019923,000803:
019924,000804:
019925,000805:
019926,000806: 14,3162 06000 DDDD TC INTPRET
019927,000807: 14,3163 77775 VLOAD
019928,000808: 14,3164 33042 ZERODP
019929,000809: 14,3165 00031 STORE 24D
019930,000810: 14,3166 00037 STORE 30D
019931,000811: 14,3167 77735 SLOAD
019932,000812: 14,3170 31660 11DEC
019933,000813: 14,3171 00041 STORE 32D
019934,000814: 14,3172 77776 EXIT
019935,000815:
019936,000816: 14,3173 06000 DDDD1 TC INTPRET
019937,000817: 14,3174 70750 LXA,1 DLOAD*
019938,000818: 14,3175 01537 NDXCTR
019939,000819:
019940,000820: 14,3176 01701 GENPL +72D,1
019941,000821: 14,3177 41423 DSU* PUSH
019942,000822: 14,3200 01673 GENPL +66D,1
019943,000823: 14,3201 42742 SR1 DAD*
019944,000824: 14,3202 01673 GENPL +66D,1
019945,000825: 14,3203 03701 STORE GENPL +72D,1
019946,000826:
019947,000827: 14,3204 43312 SL2 DAD
019948,000828: 14,3205 00031 24D
019949,000829: 14,3206 14031 STODL* 24D
019950,000830: 14,3207 01701 GENPL +72D,1
019951,000831: 14,3210 63412 SL4 DSQ
019952,000832: 14,3211 77615 DAD
019953,000833: 14,3212 00033 26D
019954,000834: 14,3213 00033 STORE 26D
019955,000835: 14,3214 77776 EXIT
019956,000836: 14,3215 31550 CAE RUN
019957,000837: 14,3216 61537 AD NDXCTR
019958,000838: 14,3217 40000 COM
019959,000839: 14,3220 63662 AD 63DEC
019960,000840: 14,3221 10000 CCS A
019961,000841: 14,3222 36162 CAF SIX
019962,000842: 14,3223 27537 ADS NDXCTR
019963,000843: 14,3224 13173 TCF DDDD1
019964,000844: 14,3225 61550 AD RUN
019965,000845: 14,3226 55537 TS NDXCTR
019966,000846:
019967,000847:
019968,000848:
019969,000849: 14,3227 06000 EEEE TC INTPRET
019970,000850: 14,3230 66740 LXC,1 SLOAD*
019971,000851: 14,3231 01537 NDXCTR
019972,000852: 14,3232 01604 GENPL +11D,1
019973,000853: 14,3233 00043 STORE 34D
019974,000854: 14,3234 77745 DLOAD
019975,000855: 14,3235 54206 PUSH SL
019976,000856: 14,3236 00211 8D
019977,000857: 14,3237 43265 BDDV DAD
019978,000858: 14,3240 00043 34D
019979,000859: 14,3241 00035 28D
019980,000860: 14,3242 06035 STODL 28D
019981,000861: 14,3243 55261 SL BDDV
019982,000862: 14,3244 00207 6
019983,000863: 14,3245 00043 34D
019984,000864: 14,3246 42523 PDDL* SL4
019985,000865: 14,3247 01602 GENPL +9D,1
019986,000866: 14,3250 77605 DMP
019987,000867: 14,3251 77615 DAD
019988,000868: 14,3252 00037 30D
019989,000869: 14,3253 00037 STORE 30D
019990,000870:
019991,000871: 14,3254 77776 EXIT
019992,000872: 14,3255 41537 CS NDXCTR
019993,000873: 14,3256 63661 AD 60DEC
019994,000874: 14,3257 61550 AD RUN
019995,000875: 14,3260 10000 CCS A
019996,000876: 14,3261 36162 CAF SIX
019997,000877: 14,3262 27537 ADS NDXCTR
019998,000878: 14,3263 13227 TCF EEEE
019999,000879:
020000,000880:
020001,000881:
020002,000882: 14,3264 06000 TC INTPRET
020003,000883: 14,3265 41345 DLOAD DMP
020004,000884: 14,3266 00031 24D
020005,000885: 14,3267 00037 30D
020006,000886: 14,3270 41325 PDDL DMP
020007,000887: 14,3271 00033 26D
020008,000888: 14,3272 00035 28D
020009,000889: 14,3273 77625 DSU
020010,000890: 14,3274 63525 PDDL DSQ
020011,000891: 14,3275 00031 24D
020012,000892: 14,3276 65342 SR1 PDDL
020013,000893: 14,3277 00041 32D
020014,000894: 14,3300 41261 SL DMP
020015,000895: 14,3301 00212 11
020016,000896: 14,3302 00033 26D
020017,000897: 14,3303 55225 DSU BDDV
020018,000898: 14,3304 54205 DMP SL
020019,000899: 14,3305 31673 KKKK
020020,000900: 14,3306 00204 3
020021,000901: 14,3307 00337 STORE DSPTEM2
020022,000902: 14,3310 77776 EXIT
020023,000903:
020024,000904: 14,3311 31544 CA POSITON
020025,000905: 14,3312 54340 TS DSPTEM2 +2
020026,000906:
020027,000907: 14,3313 33654 CAF V06N66E
020028,000908: 14,3314 05324 TC NVSBWAIT
020029,000909: 14,3315 05266 TC FLASHON
020030,000910: 14,3316 05132 TC ENDIDLE
020031,000911: 14,3317 12745 TCF ENDTEST
020032,000912: 14,3320 36165 CAF THREE
020033,000913: 14,3321 55550 TS RUN
020034,000914: 14,3322 37665 CAF ZERO
020035,000915: 14,3323 13161 TCF DDDD -1
020036,000916:
020037,000917: # THIS REVISION REFLECTS CHANGES AS OF
020038,000918: # 1/31/66
020039,000919: # ENGINE ON/OFF NOW IN CHANNEL ELEVEN. THE BITS FOR EACH CHANNEL GET TURNED ON ALL AT ONCE. THEY STAY ON UNTIL
020040,000920: # :ENTER:IS PUSHED. THEN THEY ALL GO OUT AND THE NEXT CHANNEL:S BITS ARE TURNED ON.
020041,000921: # CHANNEL 5 BITS 1-8
020042,000922: # CHANNEL 6 BITS 1-8
020043,000923: # CHANNEL 11 BITS 13,14
020044,000924: # CHANNEL 12 BITS 9-14
020045,000925: # FOLLOWING THE CHANNEL 12 TESTS ENTER IS PRESSED. CHANNEL 12 IS SET TO ZERO AND THE NEXT TEST BEGUN. LOW9
020046,000926: # GOES IN LOCATION (COUNTER) 55.
020047,000927: # INCREASE THROTTLE RATE DESCENT ENGINE
020048,000928: # :ENTER: NOW CAUSES THE CONTENTS OF 55 TO BE MADE NEGATIVE
020049,000929: # DECREASE THROTTLE RATE DESCENT ENGINE
020050,000930: # THE NEXT :ENTER: ZEROS THE REGISTER AND SENDS A PULSE TRAIN (HERE ALTERN
020051,000931: # ZEROS FOR CLARITY) TO THE ALTITUDE METER.
020052,000932: # THE NEXT :ENTER: WILL ADVANCE THE TEST TO THE ALTITUDE RATE METER TEST.
020053,000933: # THE NEXT :ENTER : WILL TERMINATE THE TEST.
020054,000934:
020055,000935:
020056,000936:
020057,000937: 14,3324 37637 SAUTOIFS CA POSMAX
020058,000938: 14,3325 55576 TS NOBITS
020059,000939: 14,3326 37665 CA ZERO
020060,000940: 14,3327 55577 TS CHAN
020061,000941: 14,3330 55575 TS TEMP
020062,000942: 14,3331 03333 TC DINO
020063,000943: 14,3332 25577 BACK1 INCR CHAN
020064,000944:
020065,000945: 14,3333 51577 DINO INDEX CHAN
020066,000946: 14,3334 33336 CA SAUTLOCS
020067,000947: 14,3335 14071 TCF SWCALL
020068,000948: 14,3336 31352 SAUTLOCS CADR CHAN5D
020069,000949: 14,3337 31370 CADR CHAN6D
020070,000950: 14,3340 31376 CADR CHAN11D
020071,000951: 14,3341 31410 CADR CHAN12D
020072,000952: 14,3342 31422 CADR PTITRDE
020073,000953: 14,3343 31447 CADR PTDTRDE
020074,000954: 14,3344 31524 CADR ALTMET
020075,000955: 14,3345 31551 CADR ALTRMET
020076,000956: 14,3346 30745 CADR ENDTEST
020077,000957: 14,3347 31454 THROTADD CADR PTDTRDE +5
020078,000958: 14,3350 31527 METERADD CADR ALTMET +3
020079,000959: 14,3351 31554 MRATEADD CADR ALTRMET +3
020080,000960: 14,3352 37664 CHAN5D CA FIVE
020081,000961: 14,3353 54333 TS DSPTEM1
020082,000962: 14,3354 35227 2ENTRY CA LOW8 # CHANNEL 6 RETURNS HERE
020083,000963: 14,3355 54334 TS DSPTEM1 +1
020084,000964: 14,3356 00006 EXTEND
020085,000965: 14,3357 51575 INDEX TEMP
020086,000966: 14,3360 01005 WRITE 5
020087,000967:
020088,000968: 14,3361 33643 3ENTRY CA V04N30D # CH11,12 RETURN HERE TO USE THE DISPLAY
020089,000969: 14,3362 05324 TC NVSBWAIT
020090,000970: 14,3363 33650 4ENTRY CAF WAITER # WAITER IS 03300
020091,000971: 14,3364 05324 TC NVSBWAIT
020092,000972: 14,3365 05132 TC ENDIDLE
020093,000973: 14,3366 02745 TC ENDTEST
020094,000974: 14,3367 03332 TC BACK1
020095,000975:
020096,000976: 14,3370 25575 CHAN6D INCR TEMP
020097,000977: 14,3371 24333 INCR DSPTEM1
020098,000978: 14,3372 37665 CAF ZERO
020099,000979: 14,3373 00006 EXTEND
020100,000980: 14,3374 01005 WRITE 5 # GET RID OF CHANNEL 5 BITS
020101,000981: 14,3375 03354 TC 2ENTRY
020102,000982: 14,3376 37662 CHAN11D CA OCT11
020103,000983: 14,3377 54333 TS DSPTEM1
020104,000984: 14,3400 37700 CA BIT13-14
020105,000985: 14,3401 54334 TS DSPTEM1 +1
020106,000986: 14,3402 00006 EXTEND
020107,000987: 14,3403 05011 WOR 11 # WOR IS NON EXCLUSIVE OR
020108,000988: 14,3404 37665 CAF ZERO
020109,000989: 14,3405 00006 EXTEND
020110,000990: 14,3406 01006 WRITE 6
020111,000991: 14,3407 03361 TC 3ENTRY
020112,000992: 14,3410 37661 CHAN12D CA OCT12
020113,000993: 14,3411 54333 TS DSPTEM1
020114,000994: 14,3412 47700 CS BIT13-14
020115,000995: 14,3413 00006 EXTEND
020116,000996: 14,3414 03011 WAND 11
020117,000997: 14,3415 33646 CA CH12BITS
020118,000998: 14,3416 54334 TS DSPTEM1 +1
020119,000999: 14,3417 00006 EXTEND
020120,001000: 14,3420 05012 WOR 12
020121,001001: 14,3421 03361 TC 3ENTRY
020122,001002: 14,3422 43646 PTITRDE CS CH12BITS
020123,001003: 14,3423 00006 EXTEND
020124,001004: 14,3424 03012 WAND 12
020125,001005: 14,3425 37665 CA ZERO
020126,001006: 14,3426 54333 TS DSPTEM1
020127,001007: 14,3427 54334 TS DSPTEM1 +1
020128,001008: 14,3430 55575 TS TEMP
020129,001009: 14,3431 37657 CA BIT1
020130,001010: 14,3432 55576 TS NOBITS
020131,001011: 14,3433 00004 PIT INHINT
020132,001012: 14,3434 04517 TC WAITLIST
020133,001013: 14,3435 03460 30005 2CADR THROTASK
020134,001014:
020135,001015: 14,3437 00003 RELINT
020136,001016: 14,3440 33650 CA WAITER
020137,001017: 14,3441 05324 TC NVSBWAIT
020138,001018:
020139,001019: 14,3442 05132 TC ENDIDLE
020140,001020: 14,3443 02745 TC ENDTEST
020141,001021: 14,3444 37665 CA ZERO
020142,001022: 14,3445 55576 TS NOBITS
020143,001023: 14,3446 03332 TC BACK1
020144,001024:
020145,001025: 14,3447 37665 PTDTRDE CA ZERO
020146,001026: 14,3450 54055 TS THRUST
020147,001027: 14,3451 33347 CA THROTADD
020148,001028: 14,3452 55574 TS TEMPADD
020149,001029: 14,3453 04377 TC JOBSLEEP # THIS INHIBITS THE NEXT TASK UNTIL
020150,001030: # CURRENT TASK HAS BEEN COMPLETED
020151,001031: 14,3454 37637 CA POSMAX
020152,001032: 14,3455 55575 TS TEMP
020153,001033: 14,3456 37651 CA BIT7
020154,001034: 14,3457 03433 TC PIT
020155,001035: 14,3460 11576 THROTASK CCS NOBITS # IS THIS TASK STILL REQ
020156,001036: 14,3461 03466 TC +5 # YES
020157,001037: 14,3462 31574 CA TEMPADD # NO
020158,001038: 14,3463 55576 TS NOBITS
020159,001039: 14,3464 04403 TC JOBWAKE
020160,001040: 14,3465 04563 TC TASKOVER
020161,001041: 14,3466 11575 CCS TEMP
020162,001042: 14,3467 03502 TC SOMETIME
020163,001043: 14,3470 35226 CA LOW11
020164,001044: 14,3471 54055 ALWAYS TS THRUST
020165,001045: 14,3472 37654 CA BIT4
020166,001046: 14,3473 00006 EXTEND # A SMERZH FIX.
020167,001047: 14,3474 05014 WOR 14
020168,001048: 14,3475 37652 CA BIT6 # 320 MS.DELAY
020169,001049: 14,3476 04517 TC WAITLIST
020170,001050: 14,3477 03460 30005 2CADR THROTASK
020171,001051: 14,3501 04563 TC TASKOVER
020172,001052: 14,3502 45226 SOMETIME CS LOW11
020173,001053: 14,3503 03471 TC ALWAYS
020174,001054: 14,3504 11576 ALTASK CCS NOBITS # IS TASK STILL REQ
020175,001055: 14,3505 03512 TC +5
020176,001056: 14,3506 31574 CA TEMPADD # NO
020177,001057: 14,3507 55576 TS NOBITS # ENABLES NEXT TASK
020178,001058: 14,3510 04403 TC JOBWAKE
020179,001059: 14,3511 04563 TC TASKOVER
020180,001060: 14,3512 33644 CA ALBITS # ACTUAL TASK STARTS HERE
020181,001061: 14,3513 54060 TS ALTM
020182,001062: 14,3514 37655 CA BIT3
020183,001063: 14,3515 00006 EXTEND
020184,001064: 14,3516 05014 WOR 14
020185,001065: 14,3517 37652 CA BIT6 # 320 MS. DELAY
020186,001066: 14,3520 04517 TC WAITLIST
020187,001067: 14,3521 03504 30005 2CADR ALTASK
020188,001068:
020189,001069: 14,3523 04563 TC TASKOVER
020190,001070: 14,3524 33350 ALTMET CA METERADD
020191,001071: 14,3525 55574 TS TEMPADD
020192,001072: 14,3526 04377 TC JOBSLEEP
020193,001073: 14,3527 37665 CA ZERO
020194,001074: 14,3530 55575 TS TEMP
020195,001075: 14,3531 47654 CS BIT4
020196,001076: 14,3532 00006 EXTEND
020197,001077: 14,3533 03014 WAND 14
020198,001078: 14,3534 00004 INHINT
020199,001079: 14,3535 37657 CA ONE
020200,001080: 14,3536 04517 TC WAITLIST
020201,001081: 14,3537 03504 30005 2CADR ALTASK
020202,001082: 14,3541 00003 RELINT
020203,001083: 14,3542 33650 CA WAITER
020204,001084: 14,3543 05324 TC NVSBWAIT
020205,001085: 14,3544 05132 TC ENDIDLE
020206,001086: 14,3545 02745 TC ENDTEST
020207,001087: 14,3546 37665 CA ZERO
020208,001088: 14,3547 55576 TS NOBITS
020209,001089: 14,3550 03332 TC BACK1
020210,001090:
020211,001091: 14,3551 33351 ALTRMET CA MRATEADD
020212,001092: 14,3552 55574 TS TEMPADD
020213,001093: 14,3553 04377 TC JOBSLEEP
020214,001094: 14,3554 37657 CA ONE
020215,001095: 14,3555 55575 TS TEMP # TEMP WILL BE INDEXED TO ACQUIRE BIT2 INS
020216,001096: # TEAD OF BIT3
020217,001097: 14,3556 37656 CA BIT2
020218,001098: 14,3557 00006 EXTEND
020219,001099: 14,3560 05014 WOR 14
020220,001100: 14,3561 03534 TC ALTMET +8D
020221,001101:
020222,001102: # THE AOT ANGLE CHECKING PROGRAM PROVIDES A SIMPLE VERIFICATION OF THE ACCURACY OF THE AOT, THE IDEA IS TO
020223,001103: # COMPUTE THE ANGLE BETWEEN TWO LINES OF SIGHT AS INDICATED BY THE AOT, WHICH IS WHAT THIS PROGRAM DOES.
020224,001104: # INDEPENDENT KNOWLEDGE OF THE INCLUDED ANGLE PROVIDES A COMPARISON AND THUS A MEASURE OF THE AOT ACCURACY.
020225,001105: # THE ISS NEED NOT BE ON TO RUN THIS PROGRAM.
020226,001106:
020227,001107:
020228,001108:
020229,001109: 14,3562 06000 AOTANGCK TC INTPRET
020230,001110: 14,3563 77414 SET EXIT # IN CASE THE ISS IS OFF.
020231,001111: 14,3564 00065 COAROFIN
020232,001112: 14,3565 02135 TC FINDNAVB # FOR LOS1 AND LOS2.
020233,001113: 14,3566 06000 TC INTPRET
020234,001114: 14,3567 47375 VLOAD VXV
020235,001115: 14,3570 01601 LOS1
020236,001116: 14,3571 01607 LOS2
020237,001117: 14,3572 77646 ABVAL
020238,001118: 14,3573 22023 STOVL SINTH # SINTH = ABVAL (VXV ).
020239,001119: 14,3574 01601 LOS1
020240,001120: 14,3575 77641 DOT
020241,001121: 14,3576 01607 LOS2
020242,001122: 14,3577 36021 STCALL COSTH # COSTH = V.V
020243,001123: 14,3600 32440 ARCTRIG
020244,001124: 14,3601 77624 RTB
020245,001125: 14,3602 33410 1STO2S # DP 1S COMP TO SP 2S COMP.
020246,001126: 14,3603 00025 STORE THETA
020247,001127: 14,3604 77776 EXIT
020248,001128: 14,3605 33675 CAF THETAADR
020249,001129: 14,3606 60104 AD FIXLOC
020250,001130: 14,3607 54142 TS MPAC +2
020251,001131: 14,3610 33653 CAF V06N03E # XXX.XX DEGREES IN R1.
020252,001132: 14,3611 05324 TC NVSBWAIT
020253,001133: 14,3612 12745 TCF ENDTEST
020254,001134:
020255,001135: 14,3613 E3,1400 EBANK= 1400
020256,001136: 14,3613 00004 ZEROERAS INHINT # PROGRAM BY MUNTZ TO ZERO ERASEABLE
020257,001137: 14,3614 37665 CAF ZERO
020258,001138: 14,3615 54026 TS TIME3
020259,001139: 14,3616 33642 CAF OCT27
020260,001140: 14,3617 54003 TS EBANK
020261,001141: 14,3620 22007 ZEROLP ZL
020262,001142: 14,3621 50000 INDEX A
020263,001143: 14,3622 23401 LXCH 1401
020264,001144: 14,3623 67656 AD TWO
020265,001145: 14,3624 26003 ADS EBANK
020266,001146: 14,3625 75227 MASK LOW8
020267,001147: 14,3626 10000 CCS A
020268,001148: 14,3627 13620 TCF ZEROLP
020269,001149: 14,3630 10003 CCS EBANK
020270,001150: 14,3631 13634 TCF ZEROLP1
020271,001151: 14,3632 04104 TC POSTJUMP
020272,001152: 14,3633 24000 CADR SLAP1
020273,001153: 14,3634 00003 ZEROLP1 RELINT
020274,001154: 14,3635 37665 CAF ZERO # KEEP T4RUPT GOING, BUT NOT CYCLING.
020275,001155: 14,3636 54350 TS DSRUPTSW
020276,001156: 14,3637 00004 INHINT
020277,001157: 14,3640 47657 CS ONE
020278,001158: 14,3641 13620 TCF ZEROLP
020279,001159: 14,3642 00027 OCT27 OCT 27
020280,001160:
020281,001161: 14,3643 E5,1500 EBANK= OGC
020282,001162: 14,3643 00430 V04N30D OCT 00430
020283,001163: 14,3644 52525 ALBITS OCT 52525
020284,001164: 14,3645 70707 THRSBITS OCT 70707
020285,001165: 14,3646 7661 OCT12 = TEN
020286,001166: 14,3646 7662 OCT11 = NINE
020287,001167: 14,3646 37400 CH12BITS OCT 37400
020288,001168: 14,3647 00130 V01N30D OCT 00130
020289,001169: 14,3650 03300 WAITER OCT 03300
020290,001170:
020291,001171:
020292,001172:
020293,001173:
020294,001174:
020295,001175: 14,3651 00130 V01N30E OCT 00130 # FOR FINDNAVB
020296,001176: 14,3652 00530 V05N30E OCT 00530 # FOR OPTDATA
020297,001177: 14,3653 00603 V06N03E OCT 00603
020298,001178: 14,3654 00666 V06N66E OCT 00666
020299,001179: 14,3655 02430 V24N30E OCT 02430 # FOR POSITION LOAD
020300,001180: 14,3656 02522 V25N22E OCT 02522 # FOR POS4
020301,001181:
020302,001182: 14,3657 00013 11DEC DEC 11 B-14
020303,001183: 14,3660 00021 17DEC DEC 17 B-14
020304,001184: 14,3661 00074 60DEC DEC 60 B-14
020305,001185: 14,3662 00077 63DEC DEC 63 B-14
020306,001186: 14,3663 00105 69DEC DEC 69 B-14 # FOR MISALIGN
020307,001187: 14,3664 00110 72DEC DEC 72 B-14 # FOR STORRSLT
020308,001188:
020309,001189: 14,3665 05670 30SEC DEC 3000 B-14 # 3000 X 10 MSEC
020310,001190: 14,3666 13560 60SEC DEC 6000 B-14 # 6000 X 10 MSEC
020311,001191:
020312,001192: 14,3667 01500 OGCADR ADRES OGC # FOR ZEROING
020313,001193: 14,3670 01570 GENPLAD1 ADRES GENPL
020314,001194: 14,3671 02570 GENPLADR ECADR GENPL # FOR POS4
020315,001195: 14,3672 00322 14366 KKKK 2DEC 210.39 B-14 # 1230 B-14 FOR CSM
020316,001196:
020317,001197: 14,3674 03071 RDRRETN ADRES RDR1 +1 # FOR RDR37511
020318,001198: 14,3675 00024 THETAADR ECADR THETA
020319,001199: 14,3676 01400 XSMADRX ADRES XSM # FOR MAKEXSMD
020320,001200:
020321,001201: 14,3677 24365 30244 SCALFTR 2DEC .64 # FOR STORRSLT
020322,001202:
020323,001203: 14,3701 07623 26552 OMEG/MS 2DEC .24339048 # GYRO PULSES / 10 MSEC
020324,001204:
020325,001205: # THE FOLLOWING ROUTINE READS THE CLOCK AND SCALAR (CHANNELS 3 AND 4) INTO A AND L, INSURING THAT THE
020326,001206: # DATA WAS NOT IN TRANSITION WHEN IT WAS READ.
020327,001207: 5462 SETLOC ENDFAILF
020328,001208: 5462 00004 FINETIME INHINT # RETURNS WITH INTERRUPT INHIBITED.
020329,001209: 5463 00006 EXTEND
020330,001210: 5464 00004 READ LOSCALAR
020331,001211: 5465 54001 TS L
020332,001212:
020333,001213: 5466 00006 EXTEND # SEE IF 2 READINGS AGREE. IF NOT, READ
020334,001214: 5467 06004 RXOR LOSCALAR # LOSCALAR AGAIN.
020335,001215: 5470 00006 EXTEND
020336,001216: 5471 15475 BZF +4
020337,001217:
020338,001218: 5472 00006 EXTEND # IF CLOCK RIPPLED BEFORE, IT WONT NOW.
020339,001219: 5473 00004 READ LOSCALAR
020340,001220: 5474 54001 TS L
020341,001221:
020342,001222: 5475 47637 +4 CS POSMAX # IF LOW PART CONTAINS SOMETHING LESS THAN
020343,001223: 5476 60001 AD L # POSMAX, THE HIGH PART CAN BE READ SAFELY
020344,001224: 5477 00006 EXTEND
020345,001225: 5500 15463 BZF FINETIME +1 # TRY AGAIN - CONDITION WILL DISAPPEAR.
020346,001226:
020347,001227: 5501 00006 EXTEND
020348,001228: 5502 00003 READ HISCALAR
020349,001229: 5503 00002 TC Q
020350,001230:
020351,001231: 5504 ENDIMUF =
020352,001232:
020353,001233: 14,3703 SETLOC OMEG/MS +2
020354,001234: 14,3703 04065 REDYTORK TC BANKCALL
020355,001235: 14,3704 26716 CADR IMUSTALL
020356,001236: 14,3705 12745 TCF ENDTEST
020357,001237:
020358,001238: 14,3706 02727 TC OGCZERO
020359,001239:
020360,001240: 14,3707 06000 TC INTPRET
020361,001241: 14,3710 77634 CALL
020362,001242: 14,3711 30405 ERTHRVSE # SETS UP EARTHRATE ANGLES AND TIME
020363,001243: 14,3712 77776 EXIT
020364,001244: 14,3713 31617 CA OPTNREG # INITIALIZE CDUNDX FOR PULSE CATCHING
020365,001245: 14,3714 67670 AD NEG2 # C(K) WAS 4 2 1 NOW C(A) IS 2 0 -1
020366,001246: 14,3715 55616 TS GYTOBETQ # C(K) = 2,0,-1 FOR X,Y,Z.
020367,001247: 14,3716 00006 EXTEND
020368,001248: 14,3717 13722 BZF +3
020369,001249: 14,3720 37656 CAF TWO
020370,001250: 14,3721 03723 TC +2
020371,001251: 14,3722 37657 CAF ONE
020372,001252: 14,3723 55672 TS CDUNDX # C(K) = 1 FOR Y, 2 FOR Z CDU SELECT
020373,001253: 14,3724 04065 TC BANKCALL
020374,001254: 14,3725 36545 CADR ENABLE
020375,001255: 14,3726 ENDIMUS1 EQUALS
020376,001256:
End of include-file IMU_PERFORMANCE_TESTS_1.agc. Parent file is MAIN.agc