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