Source Code
![]() |
These source code files have been transcribed or otherwise adapted from
digitized images of a hardcopy from the private collection of
Don Eyles. The digitization was performed by archive.org, and
transcription was performed by a team of volunteers.
Note that the page images
presented online are of reduced quality, and that the original
high-quality images are available at archive.org.
Report any conversion errors or legibility problems in page images to info@sandroid.org.
Notations on the program listing read, in part:473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP NOV 10, 1966Note that the date is the date of the printout, not the date of the program revision. |
018254,000002: ## Copyright: Public domain.
018255,000003: ## Filename: IMU_PERFORMANCE_TESTS_1.agc
018256,000004: ## Purpose: Part of the source code for Aurora (revision 12).
018257,000005: ## Assembler: yaYUL
018258,000006: ## Contact: Hartmuth Gutsche <hgutsche@xplornet.com>.
018259,000007: ## Website: https://www.ibiblio.org/apollo.
018260,000008: ## Pages: 444-474
018261,000009: ## Mod history: 2016-09-20 JL Created.
018262,000010: ## 2016-09-25 HG Start transfer from scan
018263,000011: ## 2016-10-08 HG Fix INPRET->INTPRET
018264,000012: ## 2016-10-11 HG Fix PIPZ -> PIPAZ
018265,000013: ## DSTEMP1 -> DSPTEM1
018266,000014: ## DSTEM1 -> DSPTEM1
018267,000015: ## 2016-10-18 HG Fix operand TAZEL -> TAZEL1
018268,000016: ## 2016-12-08 RSB Proofed comments with octopus/ProoferComments
018269,000017: ## and fixed the errors found.
018270,000018:
018271,000019: ## This source code has been transcribed or otherwise adapted from
018272,000020: ## digitized images of a hardcopy from the private collection of
018273,000021: ## Don Eyles. The digitization was performed by archive.org.
018274,000022:
018275,000023: ## Notations on the hardcopy document read, in part:
018276,000024:
018277,000025: ## 473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP
018278,000026: ## NOV 10, 1966
018279,000027:
018280,000028: ## [Note that this is the date the hardcopy was made, not the
018281,000029: ## date of the program revision or the assembly.]
018282,000030:
018283,000031: ## The scan images (with suitable reduction in storage size and consequent
018284,000032: ## reduction in image quality) are available online at
018285,000033: ## https://www.ibiblio.org/apollo.
018286,000034: ## The original high-quality digital images are available at archive.org:
018287,000035: ## https://archive.org/details/aurora00dapg
018288,000036:
![]() |
Page 444 |
018290,000038: 14,2000 BANK 14
018291,000039: 14,2000 E5,1400 EBANK= XSM
018292,000040:
018293,000041:
018294,000042:
018295,000043: 14,2000 37657 AOTNBIMU CAF ONE # AOT-NB-IMU FINE ALIGNMENT TEST
018296,000044: 14,2001 55512 TS EROPTN # ... TEST CAPABILITY ...
018297,000045:
018298,000046: 14,2002 04063 TC BANKCALL
018299,000047: 14,2003 26000 CADR IMUZERO # IMU ZERO ENCODER MODE
018300,000048: 14,2004 06000 TC INTPRET
018301,000049: 14,2005 77634 CALL
018302,000050: 14,2006 30530 LATAZCHK # TO LOAD AZIMUTH (SM) AND LATITUDE
018303,000051: 14,2007 77634 CALL
018304,000052: 14,2010 30325 MAKEXSMD # TO SET UP A STABLE MEMBER DESIRED MATRIX
018305,000053: 14,2011 47014 SET CALL
018306,000054: 14,2012 00065 COAROFIN # FOR COARSE OR FINE ALIGN MARKS
018307,000055: 14,2013 30405 ERTHRVSE # TO CALCULATE EARTH RATE VECTOR
018308,000056: 14,2014 77776 EXIT
018309,000057:
018310,000058: 14,2015 33655 POSLOAD CAF V24N30E # R1 0000X ENTER POSITION 1,2, OR 3
018311,000059: 14,2016 05332 TC NVSBWAIT # R2 00000 ENTER 00001 FOR LAB OPTION
018312,000060: 14,2017 05140 TC ENDIDLE
018313,000061: 14,2020 12745 TCF ENDTEST
018314,000062: 14,2021 12015 TCF -4
018315,000063: 14,2022 56333 XCH DSPTEM1 # DO NOT USE POSITION 3 WITH NAV BASE AT
018316,000064: 14,2023 55544 TS POSITON # ZERO DEGREE TILT ANGLE. (GIMBAL LOCK)
018317,000065:
018318,000066: 14,2024 10334 CCS DSPTEM1 +1
018319,000067: 14,2025 12760 TCF LEMLAB # SPECIAL LAB TEST TO BYPASS MARKS
018320,000068:
018321,000069: 14,2026 02576 TC POSNJUMP # SET UP STABLE MEMBER DESIRED COORDINATES
018322,000070:
018323,000071: 14,2027 02501 TC OPTDATA # TARGETS 1,2 AZIMUTH AND ELEVATION
018324,000072:
018325,000073: 14,2030 02135 TC FINDNAVB # COARSE ALIGN MARKS
018326,000074:
018327,000075: 14,2031 04063 TC BANKCALL
018328,000076: 14,2032 26716 CADR IMUSTALL # INSURE IMUZERO COMPLETION
018329,000077: 14,2033 12745 TCF ENDTEST
018330,000078:
018331,000079: 14,2034 02247 TC PUTPOSX # TO COARSE ALIGN STABLE MEMBER
018332,000080:
018333,000081: 14,2035 02737 TC GMLCKCHK # CHECK FOR GIMBAL LOCK BEFORE FINE ALIGN
018334,000082: 14,2036 02727 TC OGCZERO # FOR EARTH RATE COMPENSATION
018335,000083:
018336,000084: 14,2037 04063 TC BANKCALL
018337,000085: 14,2040 26227 CADR IMUFINE # FINE ALIGN MODE
018338,000086: 14,2041 04063 TC BANKCALL
018339,000087: 14,2042 26716 CADR IMUSTALL
018340,000088: 14,2043 12745 TCF ENDTEST
018341,000089:
![]() |
Page 445 |
018343,000091: 14,2044 02135 TC FINDNAVB # FINE ALIGN MARKS
018344,000092:
018345,000093: 14,2045 05401 TC FREEDSP # FREE DISPLAY SYSTEM
018346,000094:
018347,000095: 14,2046 02263 TC SMDCALC # TO FINE ALIGN STABLE MEMBER
018348,000096:
018349,000097: 14,2047 04063 ERFINAL TC BANKCALL # LAST EARTH RATE SHOT
018350,000098: 14,2050 30422 CADR EARTHR
018351,000099: 14,2051 11512 CCS EROPTN # IF DESIRED TO COMPENSATE CONTINUALLY
018352,000100: 14,2052 12065 TCF MONSTART # CHANGE BY V21 N02 E XXXXX E 00000 E
018353,000101: 14,2053 12047 TCF ERFINAL
018354,000102: 14,2054 12745 TCF ENDTEST
018355,000103: 14,2055 55512 TS EROPTN
018356,000104: 14,2056 00004 INHINT
018357,000105: 14,2057 34517 CAF PRIO21 # PRIORITY 1 HIGHER THAN SXTNBIMU
018358,000106: 14,2060 04374 TC FINDVAC
018359,000107: 14,2061 03062 30005 2CADR RDR37511
018360,000108: 14,2063 00003 RELINT
018361,000109: 14,2064 02047 TC ERFINAL
018362,000110:
018363,000111: 14,2065 05470 MONSTART TC FINETIME # TIME AT INITIAL MISALIGNMENT
018364,000112: 14,2066 52141 DXCH MPAC
018365,000113: 14,2067 00003 RELINT
018366,000114: 14,2070 37665 CAF ZERO # ZERO PIPA COUNTERS
018367,000115: 14,2071 54037 TS PIPAX
018368,000116: 14,2072 54040 TS PIPAY
018369,000117: 14,2073 54041 TS PIPAZ
018370,000118: 14,2074 55551 TS STOREPL
018371,000119: 14,2075 55537 TS NDXCTR
018372,000120: 14,2076 02454 TC STORRSLT # STORE T(INITIAL) AND PIPAI = 0
018373,000121:
018374,000122: 14,2077 00004 INHINT
018375,000123: 14,2100 33666 CAF 60SEC # INSURE PIPAI VARIES IN ONE DIRECTION
018376,000124: 14,2101 04536 TC WAITLIST
018377,000125: 14,2102 02106 30005 2CADR PIP1
018378,000126:
018379,000127: 14,2104 32134 CAF PIP2ADR
018380,000128: 14,2105 04416 TC JOBSLEEP
018381,000129:
018382,000130: 14,2106 32134 PIP1 CAF PIP2ADR
018383,000131: 14,2107 04422 TC JOBWAKE
018384,000132: 14,2110 04602 TC TASKOVER
018385,000133:
018386,000134: 14,2111 31542 PIP2 CAE PIPNDX
018387,000135: 14,2112 55541 TS PIPINDEX # POS1 PIPAY POS2 PIPAX POS3 PIPAX
018388,000136: 14,2113 04063 TC BANKCALL
018389,000137: 14,2114 36771 CADR CHECKG # SYNC ON PIPA PULSE
018390,000138:
018391,000139: 14,2115 00003 RELINT
018392,000140:
![]() |
Page 446 |
018394,000142: 14,2116 02454 TC STORRSLT # STORE TIME AND PIPAI
018395,000143:
018396,000144: 14,2117 31543 CAE PIPNDX +1
018397,000145: 14,2120 55541 TS PIPINDEX # POS1 PIPAZ POS2 PIPAY POS3 PIPAZ
018398,000146: 14,2121 04063 TC BANKCALL
018399,000147: 14,2122 36771 CADR CHECKG # SYNC ON PIPA PULSE
018400,000148:
018401,000149: 14,2123 00003 RELINT
018402,000150: 14,2124 02454 TC STORRSLT # STORE TIME AND PIPAI
018403,000151:
018404,000152: 14,2125 00004 INHINT
018405,000153: 14,2126 33665 CAF 30SEC # MONITOR PIPAS AT 30 SECOND INTERVALS
018406,000154: 14,2127 04536 TC WAITLIST
018407,000155: 14,2130 02106 30005 2CADR PIP1
018408,000156: 14,2132 32134 CAF PIP2ADR
018409,000157: 14,2133 04416 TC JOBSLEEP
018410,000158: 14,2134 30111 PIP2ADR CADR PIP2
018411,000159:
![]() |
Page 447 |
018413,000161: 14,2135 00006 FINDNAVB EXTEND # MARKS * CALC NB OR SM WRT EARTH REF
018414,000162: 14,2136 23546 QXCH QPLACE
018415,000163:
018416,000164: 14,2137 04063 TC BANKCALL
018417,000165: 14,2140 27014 CADR MKRELEAS # RELEASE MARK SYSTEM
018418,000166: 14,2141 37657 CAF ONE
018419,000167: 14,2142 54333 TS DSPTEM1
018420,000168: 14,2143 33651 CAF V01N30E # DISPLAY 00001 IN R1
018421,000169: 14,2144 05332 TC NVSBWAIT
018422,000170: 14,2145 37665 CAF ZERO # TO INDICATE GROUND MARKS
018423,000171: 14,2146 04063 TC BANKCALL
018424,000172: 14,2147 26753 CADR AOTMARK # MARK ON TARGET 1
018425,000173:
018426,000174: 14,2150 04063 TC BANKCALL
018427,000175: 14,2151 26714 CADR OPTSTALL # INSURE SUCCESSFUL MARK
018428,000176: 14,2152 12745 TCF ENDTEST
018429,000177: 14,2153 00006 EXTEND
018430,000178: 14,2154 50374 INDEX MARKSTAT
018431,000179: 14,2155 30001 DCA 0
018432,000180: 14,2156 53565 DXCH TMARK # TIME(PRES) FOR EARTH RATE COMPENSATION
018433,000181:
018434,000182: 14,2157 02242 TC GIMANGS1
018435,000183:
018436,000184: 14,2160 06000 TC INTPRET
018437,000185: 14,2161 47140 LXC,1 CALL
018438,000186: 14,2162 00374 MARKSTAT # BASE ADDRESS VAC AREA FOR AOTNB
018439,000187: 14,2163 33051 AOTNB # OPTICS TO NAV BASE COORDINATE FRAME
018440,000188: 14,2164 47014 BON CALL
018441,000189: 14,2165 00305 COAROFIN # COARSE MARKS = 0 FINE MARKS = 1
018442,000190: 14,2166 30170 +2
018443,000191: 14,2167 32517 NBSM # NAV BASE DIRECT TO STABLE MEMBER
018444,000192: 14,2170 01445 STORE STARAD # TARGET 1 WRT NAV BASE OR STABLE MEMBER
018445,000193: 14,2171 01601 STORE LOS1 # ...FOR K...
018446,000194: 14,2172 77776 EXIT
018447,000195:
018448,000196: 14,2173 04063 TC BANKCALL
018449,000197: 14,2174 27014 CADR MKRELEAS # RELEASE MARK SYSTEM
018450,000198: 14,2175 37656 CAF TWO
018451,000199: 14,2176 54333 TS DSPTEM1
018452,000200: 14,2177 33651 CAF V01N30E # DISPLAY 00002 IN R1
018453,000201: 14,2200 05332 TC NVSBWAIT
018454,000202: 14,2201 37665 CAF ZERO # TO INDICATE GROUND MARKS
018455,000203: 14,2202 04063 TC BANKCALL
018456,000204: 14,2203 26753 CADR AOTMARK # MARK ON TARGET 2
018457,000205:
018458,000206: 14,2204 37646 CAF BIT10
018459,000207: 14,2205 70061 MASK STATE # BIT10 = COAROFIN
018460,000208: 14,2206 10000 CCS A
018461,000209: 14,2207 12215 TCF EARRTCOM +5 # IF COARSE ALIGN MARKS
018462,000210:
![]() |
Page 448 |
018464,000212: 14,2210 04063 EARRTCOM TC BANKCALL # EARTH RATE COMPENSATION BETWEEN MARKS
018465,000213: 14,2211 30422 CADR EARTHR
018466,000214: 14,2212 10372 CCS OPTCADR # +0 IF MARK BUTTON NOT DEPRESSED
018467,000215: 14,2213 12216 TCF +3
018468,000216: 14,2214 12210 TCF EARRTCOM # CONTINUE TO COMPENSATE FOR EARTH RATE
018469,000217: 14,2215 12216 TCF +1
018470,000218: 14,2216 04063 TC BANKCALL
018471,000219: 14,2217 26714 CADR OPTSTALL # INSURE SUCCESSFUL MARK
018472,000220: 14,2220 12745 TCF ENDTEST
018473,000221:
018474,000222: 14,2221 02242 TC GIMANGS1
018475,000223:
018476,000224: 14,2222 06000 TC INTPRET
018477,000225: 14,2223 47140 LXC,1 CALL
018478,000226: 14,2224 00374 MARKSTAT # BASE ADDRESS VAC AREA FOR AOTNB
018479,000227: 14,2225 33051 AOTNB # OPTICS TO NAV BASE COORDINATE FRAME
018480,000228: 14,2226 47014 BONCLR CALL # SET TO ZERO FOR FINE ALIGN MARKS
018481,000229: 14,2227 00205 COAROFIN # COARSE MARKS = 0 FINE MARKS = 1
018482,000230: 14,2230 30232 +2
018483,000231: 14,2231 32517 NBSM # NAV BASE DIRECT TO STABLE MEMBER
018484,000232: 14,2232 01453 STORE STARAD +6 # TARGET 2 WRT NAV BASE OR STABLE MEMBER
018485,000233: 14,2233 01607 STORE LOS2 # ...FOR K...
018486,000234:
018487,000235: 14,2234 77634 MAXDET CALL
018488,000236: 14,2235 30350 TAR/EREF # TARGETS 1,2 WRT EARTH REF FRAME
018489,000237: 14,2236 77634 CALL
018490,000238: 14,2237 32677 AXISGEN # NAV BASE OR SM WRT EARTH REF FRAME
018491,000239: 14,2240 77776 EXIT
018492,000240: 14,2241 01546 TC QPLACE
018493,000241:
018494,000242:
018495,000243:
018496,000244: 14,2242 37656 GIMANGS1 CAF TWO # BASE ADDRESS GIMBAL ANGLES FOR NBSM
018497,000245: 14,2243 60374 AD MARKSTAT
018498,000246: 14,2244 50104 INDEX FIXLOC
018499,000247: 14,2245 54050 TS S1
018500,000248: 14,2246 00002 TC Q
018501,000249:
![]() |
Page 449 |
018503,000251: 14,2247 00006 PUTPOSX EXTEND # COARSE ALIGNS STABLE MEMBER
018504,000252: 14,2250 23546 QXCH QPLACE
018505,000253:
018506,000254: 14,2251 06000 TC INTPRET
018507,000255: 14,2252 77634 CALL
018508,000256: 14,2253 32615 CALCGA # CALCULATE COARSE ALIGN GIMBAL ANGLES
018509,000257: 14,2254 77776 EXIT
018510,000258:
018511,000259: 14,2255 04063 TC BANKCALL
018512,000260: 14,2256 26055 CADR IMUCOARS # COARSE ALIGN MODE
018513,000261: 14,2257 04063 TC BANKCALL
018514,000262: 14,2260 26716 CADR IMUSTALL
018515,000263: 14,2261 12745 TCF ENDTEST
018516,000264: 14,2262 01546 TC QPLACE
018517,000265:
018518,000266:
018519,000267:
018520,000268:
018521,000269: 14,2263 00006 SMDCALC EXTEND # FINE ALIGNS STABLE MEMBER
018522,000270: 14,2264 23546 QXCH QPLACE
018523,000271:
018524,000272: 14,2265 06000 TC INTPRET
018525,000273: 14,2266 64375 VLOAD MXV
018526,000274: 14,2267 01401 XSM # XSM DESIRED WRT EARTH REF FRAME
018527,000275: 14,2270 01445 STARAD # THEN TO SM PRESENT OR NAV BASE FRAME
018528,000276: 14,2271 43172 VSL1 BOFF
018529,000277: 14,2272 00345 COAROFIN # BIT10 FOR LEMLAB TEST
018530,000278: 14,2273 30276 +3
018531,000279: 14,2274 36041 STCALL 32D
018532,000280: 14,2275 32517 NBSM # THEN TO SM PRESENT FRAME
018533,000281: 14,2276 23423 STOVL XDC
018534,000282: 14,2277 01407 YSM # YSM DESIRED WRT EARTH REF FRAME
018535,000283:
018536,000284: 14,2300 76521 MXV VSL1
018537,000285: 14,2301 01445 STARAD # THEN TO SM PRESENT OR NAV BASE FRAME
018538,000286: 14,2302 77614 BOFF
018539,000287: 14,2303 00345 COAROFIN # BIT10 FOR LEMLAB TEST
018540,000288: 14,2304 30307 +3
018541,000289: 14,2305 36041 STCALL 32D
018542,000290: 14,2306 32517 NBSM # THEN TO SM PRESENT FRAME
018543,000291: 14,2307 23431 STOVL YDC
018544,000292: 14,2310 01423 XDC
018545,000293:
018546,000294: 14,2311 76435 VXV VSL1
018547,000295: 14,2312 01431 YDC
018548,000296: 14,2313 37437 STCALL ZDC # ZSM DESIRED WRT SM PRESENT FRAME
018549,000297: 14,2314 32367 CALCGTA # CALCULATE FINE ALIGN TORQUING ANGLES
018550,000298:
018551,000299: 14,2315 45170 AXT,1 RTB
018552,000300:
![]() |
Page 450 |
018554,000302: 14,2316 02500 ECADR OGC # X1 = BASE ADDRESS OF TORQUING ANGLES
018555,000303: 14,2317 33515 PULSEIMU # TO PUT OUT GYRO TORQUING PULSES
018556,000304: 14,2320 77776 EXIT
018557,000305:
018558,000306: 14,2321 04063 TC BANKCALL
018559,000307: 14,2322 26716 CADR IMUSTALL # WAIT FOR PULSES TO GET OUT
018560,000308: 14,2323 12745 TCF ENDTEST
018561,000309: 14,2324 01546 TC QPLACE
018562,000310:
![]() |
Page 451 |
018564,000312: 14,2325 77776 MAKEXSMD EXIT # XSM V YSM SW ZSM SE
018565,000313: 14,2326 33660 CAF 17DEC # ZERO XSM, YSM, AND ZSM
018566,000314: 14,2327 55776 TS ZERONDX
018567,000315: 14,2330 33676 CAF XSMADRX
018568,000316: 14,2331 04063 TC BANKCALL
018569,000317: 14,2332 37236 CADR ZEROING # VERT SOUTH EAST
018570,000318:
018571,000319: 14,2333 37642 CAF HALF # XSM * +1 0 0 *
018572,000320: 14,2334 55400 TS XSM # * *
018573,000321: 14,2335 06000 TC INTPRET # * *
018574,000322: 14,2336 73545 DLOAD SIN # YSM * 0 +SIN(AZ) +COS(AZ) *
018575,000323: 14,2337 01507 AZIMUTH # * *
018576,000324: 14,2340 01411 STORE XSM +8D # * *
018577,000325: 14,2341 07421 STODL XSM +16D # ZSM * 0 -COS(AZ) +SIN(AZ) *
018578,000326: 14,2342 01507 AZIMUTH
018579,000327: 14,2343 77746 COS
018580,000328: 14,2344 01413 STORE XSM +10D
018581,000329: 14,2345 77676 DCOMP
018582,000330: 14,2346 01417 STORE XSM +14D
018583,000331: 14,2347 77616 RVQ
018584,000332:
018585,000333:
018586,000334:
018587,000335: 14,2350 77170 TAR/EREF AXT,1 AXT,2 # TARGET VECTOR
018588,000336: 14,2351 00002 2 # SIN(EL) -COS(AZ)COS(EL) SIN(AZ)COS(EL)
018589,000337: 14,2352 00014 12D
018590,000338: 14,2353 77731 SSP
018591,000339: 14,2354 00052 S2
018592,000340: 14,2355 00006 6 # TARGET 1 TARGET 2
018593,000341:
018594,000342: 14,2356 60533 TAR1 SLOAD* SR2 # X1=2 X2=12 S2=6 . X1=0 X2=6 S2=6
018595,000343: 14,2357 01557 TAZEL1 +3,1
018596,000344: 14,2360 00001 STORE 0 # PD00 ELEVATION PD00
018597,000345: 14,2361 77756 SIN
018598,000346: 14,2362 12023 STODL 18D,2 # PD06 *** SIN(EL) *** PD12
018599,000347:
018600,000348: 14,2363 00001 0
018601,000349: 14,2364 41546 COS PUSH # PDOO COS(EL) PD00
018602,000350: 14,2365 45133 SLOAD* RTB
018603,000351: 14,2366 01556 TAZEL1 +2,1
018604,000352: 14,2367 33345 CDULOGIC
018605,000353: 14,2370 00003 STORE 2 # PD02 AZIMUTH PD02
018606,000354: 14,2371 41356 SIN DMP
018607,000355: 14,2372 00001 0
018608,000356: 14,2373 77752 SL1
018609,000357: 14,2374 12027 STODL 22D,2 # PD10 *** +SIN(AZ)COS(EL) *** PD16
018610,000358:
018611,000359: 14,2375 00003 2
018612,000360: 14,2376 41346 COS DMP
![]() |
Page 452 |
018614,000362: 14,2377 57552 SL1 DCOMP
018615,000363: 14,2400 04025 STORE 20D,2 # PD08 *** -COS(AZ)COS(EL) *** PD14
018616,000364:
018617,000365: 14,2401 61170 AXT,1 TIX,2
018618,000366: 14,2402 00000 0
018619,000367: 14,2403 30356 TAR1
018620,000368: 14,2404 77616 RVQ
018621,000369:
![]() |
Page 453 |
018623,000371: 14,2405 65345 ERTHRVSE DLOAD PDDL
018624,000372: 14,2406 33042 ZERODP # PD24 = (SIN -COS 0)(OMEG/MS)
018625,000373: 14,2407 01511 LATITUDE
018626,000374: 14,2410 57546 COS DCOMP
018627,000375: 14,2411 73525 PDDL SIN
018628,000376: 14,2412 01511 LATITUDE # EARTH RATE = .1504 ARCSEC / 10 MSEC
018629,000377: 14,2413 74266 VDEF VXSC # 1.618 GYRO PULSES = 1 ARCSEC
018630,000378: 14,2414 31702 OMEG/MS # OMEG/MS = .243... GYRO PULSES / 10 MSEC
018631,000379: 14,2415 01514 STORE ERVECTOR
018632,000380:
018633,000381: 14,2416 77624 RTB
018634,000382: 14,2417 33342 LOADTIME
018635,000383: 14,2420 01565 STORE TMARK # TIME FOR GYRO DRIFT - PIPA SCALE FACTOR
018636,000384: 14,2421 77616 RVQ
018637,000385:
018638,000386:
018639,000387:
018640,000388:
018641,000389:
018642,000390: 14,2422 04112 EARTHR TC MAKECADR # CLACULATES AND COMPENSATES EARTH RATE
018643,000391: 14,2423 55547 TS QPLACES
018644,000392:
018645,000393: 14,2424 06000 TC INTPRET
018646,000394: 14,2425 77624 RTB
018647,000395: 14,2426 33342 LOADTIME # T(PRESENT)
018648,000396: 14,2427 01562 STORE TEMPTIME
018649,000397: 14,2430 54225 DSU SL
018650,000398: 14,2431 01565 TMARK # T(PRES) - T(PREV) = DT SCALED 10 MSEC
018651,000399: 14,2432 00212 9D # 2 TO 21ST POWER = 1 REVOLUTION
018652,000400: 14,2433 64361 VXSC MXV
018653,000401: 14,2434 01514 ERVECTOR # VT = (SIN -COS 0)(OMEG/MS)(DT)
018654,000402: 14,2435 01401 XSM # (XSM)(VT) = EARTH RATE COMPENSATION
018655,000403: 14,2436 77655 VAD
018656,000404: 14,2437 01772 ERCOMP
018657,000405: 14,2440 07772 STODL ERCOMP
018658,000406: 14,2441 01562 TEMPTIME
018659,000407: 14,2442 01565 STORE TMARK # T(PREVIOUS)
018660,000408:
018661,000409: 14,2443 45170 AXT,1 RTB
018662,000410: 14,2444 02771 ECADR ERCOMP
018663,000411: 14,2445 33515 PULSEIMU # TO PUT OUT GYRO TORQUING PULSES
018664,000412: 14,2446 77776 EXIT
018665,000413:
018666,000414: 14,2447 04063 TC BANKCALL
018667,000415: 14,2450 26716 CADR IMUSTALL # WAIT FOR PULSES TO GET OUT
018668,000416: 14,2451 12745 TCF ENDTEST
018669,000417: 14,2452 31547 CAE QPLACES
018670,000418: 14,2453 14105 TCF BANKJUMP
018671,000419:
![]() |
Page 454 |
018673,000421: 14,2454 00006 STORRSLT EXTEND
018674,000422: 14,2455 23546 QXCH QPLACE
018675,000423:
018676,000424: 14,2456 06000 TC INTPRET # DP TIME IN MPAC SCALED .312(5) MSEC
018677,000425: 14,2457 54340 LXC,1 SL
018678,000426: 14,2460 01537 NDXCTR
018679,000427: 14,2461 00204 3
018680,000428: 14,2462 45005 DMP RTB
018681,000429: 14,2463 31700 SCALFTR
018682,000430: 14,2464 33406 SGNAGREE
018683,000431: 14,2465 03571 STORE GENPL,1 # STORE DP TIME
018684,000432: 14,2466 77776 EXIT
018685,000433:
018686,000434: 14,2467 57551 XCH STOREPL # CONTAINS C(PIPAI)
018687,000435: 14,2470 51537 INDEX NDXCTR
018688,000436: 14,2471 55572 TS GENPL +2 # STORE PIPA COUNTER READING
018689,000437: 14,2472 41537 CS NDXCTR
018690,000438: 14,2473 63664 AD 72DEC
018691,000439: 14,2474 00006 EXTEND
018692,000440: 14,2475 63123 BZMF MISALIGN # TO CALCULATE MISALIGNMENT
018693,000441: 14,2476 36165 CAF THREE
018694,000442: 14,2477 27537 ADS NDXCTR
018695,000443: 14,2500 01546 TC QPLACE
018696,000444:
018697,000445: 14,2501 00006 OPTDATA EXTEND # CALLS FOR AZIMUTH AND ELEVATION OF
018698,000446: 14,2502 23546 QXCH QPLACE # TARGET 1, THEN TARGET 2
018699,000447:
018700,000448: 14,2503 37657 CAF BIT1 # AZIMUTH CLOCKWISE FROM NORTH TO TARGET
018701,000449: 14,2504 22007 ZL # ELEVATION MEASURED FROM HORIZONTAL
018702,000450: 14,2505 23550 LXCH RUN
018703,000451: 14,2506 54335 TS DSPTEM1 +2
018704,000452: 14,2507 33652 CAF V05N30E # DISPLAY TARGET NUMBER IN R3
018705,000453: 14,2510 05332 TC NVSBWAIT
018706,000454: 14,2511 51550 INDEX RUN
018707,000455: 14,2512 53554 DXCH TAZEL1
018708,000456: 14,2513 52334 DXCH DSPTEM1
018709,000457:
018710,000458: 14,2514 02554 TC CHECKLD # R1 +- XXX.XX AZIMUTH IN DEGREES
018711,000459: 14,2515 00661 OCT 00661 # R2 +- XX.XXX ELEVATION IN DEGREES
018712,000460: 14,2516 12745 TCF ENDTEST # R3 0000X TARGET NUMBER 1 OR 2
018713,000461:
018714,000462: 14,2517 52334 DXCH DSPTEM1 # TAZEL1 TARGET 1 AZIMUTH
018715,000463: 14,2520 51550 INDEX RUN
018716,000464: 14,2521 53554 DXCH TAZEL1 # TAZEL1 +2 TARGET 2 AZIMUTH
018717,000465: 14,2522 11550 CCS RUN
018718,000466: 14,2523 12527 TCF +4
018719,000467: 14,2524 37656 OPTRDRIN CAF TWO # SPECIAL ENTRY FOR RDR37511
018720,000468: 14,2525 54001 TS L
018721,000469: 14,2526 12505 TCF OPTDATA +4 # MPAC 1ST PASS = 0 2ND PASS = 2
018722,000470: 14,2527 01546 TC QPLACE
018723,000471:
![]() |
Page 455 |
018725,000473: 14,2530 62545 LATAZCHK DLOAD SL2 # CALLS FOR AZIMUTH (SM) AND LATITUDE
018726,000474: 14,2531 01511 LATITUDE
018727,000475: 14,2532 06335 STODL DSPTEM1 +1
018728,000476: 14,2533 01507 AZIMUTH # ...NOT REALLY...
018729,000477:
018730,000478: 14,2534 77424 RTB EXIT
018731,000479: 14,2535 33410 1STO2S # FRACTION OF REVOLUTION TO 2S COMPLEMENT
018732,000480:
018733,000481: 14,2536 56140 XCH MPAC # AZIMUTH MUST BE 135 DEGREES R1 = .13500
018734,000482: 14,2537 54333 TS DSPTEM1 # FOR SXT-NB-IMU FINE ALIGNMENT TEST
018735,000483: 14,2540 02554 TC CHECKLD # R1 +- XXX.XX AZIMUTH IN DEGREES (SM)
018736,000484: 14,2541 00661 OCT 00661 # R2 +- XX.XXX LATITUDE IN DEGREES
018737,000485: 14,2542 12745 TCF ENDTEST # R3 NOT USED
018738,000486:
018739,000487: 14,2543 06000 TC INTPRET
018740,000488: 14,2544 45135 SLOAD RTB
018741,000489: 14,2545 00334 DSPTEM1
018742,000490: 14,2546 33345 CDULOGIC # BACK TO FRACTION OF REVOLUTION
018743,000491: 14,2547 01507 STORE AZIMUTH
018744,000492:
018745,000493: 14,2550 60535 SLOAD SR2
018746,000494: 14,2551 00335 DSPTEM1 +1
018747,000495: 14,2552 01511 STORE LATITUDE
018748,000496: 14,2553 77616 RVQ
018749,000497:
018750,000498:
018751,000499: 14,2554 00006 CHECKLD EXTEND
018752,000500: 14,2555 23545 QXCH QPLAC
018753,000501:
018754,000502: 14,2556 51545 INDEX QPLAC
018755,000503: 14,2557 30000 CA A
018756,000504: 14,2560 05107 TC NVSUB
018757,000505: 14,2561 12573 TCF CHECKLD1
018758,000506:
018759,000507: 14,2562 05274 TC FLASHON
018760,000508:
018761,000509: 14,2563 05140 TC ENDIDLE # CHANGE R1 V21 N61 E +- XXX.XX E
018762,000510: 14,2564 12567 TCF +3 # CHANGE R2 V22 N61 E +- XX.XXX E
018763,000511: 14,2565 12571 TCF +4 # VERIFY, THEN PROCEED WITH VERB 33 ENTER
018764,000512: 14,2566 12556 TCF CHECKLD +2
018765,000513: 14,2567 51545 INDEX QPLAC
018766,000514: 14,2570 00001 TC 1
018767,000515: 14,2571 51545 INDEX QPLAC
018768,000516: 14,2572 00002 TC 2
018769,000517:
018770,000518: 14,2573 32575 CHECKLD1 CAF CHECKLD2
018771,000519: 14,2574 05327 TC NVSUBUSY
018772,000520: 14,2575 30556 CHECKLD2 CADR CHECKLD +2
018773,000521:
![]() |
Page 456 |
018775,000523: 14,2576 00006 POSNJUMP EXTEND # POSITIONS FOR SXTNBIMU
018776,000524: 14,2577 23546 QXCH QPLACE
018777,000525:
018778,000526: 14,2600 51544 INDEX POSITON
018779,000527: 14,2601 12602 TCF +1
018780,000528: 14,2602 12745 TCF ENDTEST
018781,000529: 14,2603 12610 TCF POS1
018782,000530: 14,2604 12615 TCF POS2
018783,000531: 14,2605 12633 TCF POS3
018784,000532: 14,2606 12654 TCF POS4
018785,000533: 14,2607 12706 TCF POS5
018786,000534:
018787,000535:
018788,000536:
018789,000537: 14,2610 37657 POS1 CAF ONE # XSM = V YSM = SW ZSM = SE
018790,000538: 14,2611 55542 TS PIPNDX
018791,000539: 14,2612 37656 CAF TWO
018792,000540: 14,2613 55543 TS PIPNDX +1 # MONITOR PIPAY AND PIPAZ
018793,000541: 14,2614 01546 TC QPLACE
018794,000542:
018795,000543:
018796,000544:
018797,000545: 14,2615 06000 POS2 TC INTPRET # XSM = SE YSM = SW ZSM = -V
018798,000546: 14,2616 57575 VLOAD VCOMP
018799,000547: 14,2617 01401 XSM
018800,000548: 14,2620 77715 PDVL
018801,000549: 14,2621 01415 ZSM
018802,000550: 14,2622 23401 STOVL XSM
018803,000551: 14,2623 77626 STADR
018804,000552: 14,2624 76362 STORE ZSM
018805,000553: 14,2625 77776 EXIT
018806,000554: 14,2626 37665 CAF ZERO
018807,000555: 14,2627 55542 TS PIPNDX
018808,000556: 14,2630 37657 CAF ONE
018809,000557: 14,2631 55543 TS PIPNDX +1 # MONITOR PIPAX AND PIPAY
018810,000558: 14,2632 01546 TC QPLACE
018811,000559:
018812,000560:
018813,000561:
018814,000562: 14,2633 06000 POS3 TC INTPRET # XSM = SE YSM = V ZSM = SW
018815,000563: 14,2634 63375 VLOAD PDVL
018816,000564: 14,2635 01401 XSM
018817,000565: 14,2636 01407 YSM
018818,000566: 14,2637 77715 PDVL
018819,000567: 14,2640 01415 ZSM
018820,000568: 14,2641 23401 STOVL XSM
018821,000569:
018822,000570: 14,2642 77626 STADR
018823,000571: 14,2643 54362 STOVL ZSM
018824,000572:
![]() |
Page 457 |
018826,000574: 14,2644 77626 STADR
018827,000575: 14,2645 76370 STORE YSM
018828,000576: 14,2646 77776 EXIT
018829,000577: 14,2647 37665 CAF ZERO
018830,000578: 14,2650 55542 TS PIPNDX
018831,000579: 14,2651 37656 CAF TWO
018832,000580: 14,2652 55543 TS PIPNDX +1 # MONITOR PIPAX AND PIPAZ
018833,000581: 14,2653 01546 TC QPLACE
018834,000582:
018835,000583:
018836,000584:
018837,000585: 14,2654 37653 POS4 CAF BIT5 # OPTION TO ALIGN SM TO SPECIFIED ANGLES
018838,000586: 14,2655 60104 AD FIXLOC
018839,000587: 14,2656 50104 INDEX FIXLOC
018840,000588: 14,2657 54050 TS S1 # BASE ADDRESS GIMBAL ANGLES
018841,000589: 14,2660 33656 CAF V25N22E # R1 +- XXX.XX OUTER GIMBAL ANGLE
018842,000590: 14,2661 05332 TC NVSBWAIT # R2 +- XXX.XX INNER GIMBAL ANGLE
018843,000591: 14,2662 05140 TC ENDIDLE # R3 +- XXX.XX MIDDLE GIMBAL ANGLE
018844,000592: 14,2663 12745 TCF ENDTEST
018845,000593: 14,2664 12660 TCF -4
018846,000594: 14,2665 30400 CA THETAD # SET UP ANGLES FOR SMNB
018847,000595: 14,2666 50104 INDEX FIXLOC
018848,000596: 14,2667 54024 TS 24
018849,000597: 14,2670 30401 CA THETAD +1
018850,000598: 14,2671 50104 INDEX FIXLOC
018851,000599: 14,2672 54020 TS 20
018852,000600: 14,2673 30402 CA THETAD +2
018853,000601: 14,2674 50104 INDEX FIXLOC
018854,000602: 14,2675 54022 TS 22
018855,000603:
018856,000604: 14,2676 06000 TC INTPRET
018857,000605: 14,2677 47024 RTB CALL
018858,000606: 14,2700 32766 TRANSPSE # EARTH REF WRT NAV BASE
018859,000607: 14,2701 33000 SMD/EREF # STABLE MEMBER DESIRED WRT EARTH REF
018860,000608: 14,2702 77624 RTB
018861,000609: 14,2703 32766 TRANSPSE # BACK TO NAV BASE WRT TO EARTH REF
018862,000610: 14,2704 77776 EXIT
018863,000611: 14,2705 01546 TC QPLACE
018864,000612:
![]() |
Page 458 |
018866,000614: 14,2706 31546 POS5 CA QPLACE # OPTION TO ALIGN SM TO ANY ORIENTATION
018867,000615: 14,2707 55551 TS STOREPL # WRT EARTH REFERENCE FRAME
018868,000616:
018869,000617: 14,2710 02501 TC OPTDATA # LOAD YSM AND ZSM AZIMUTH AND ELEVATION
018870,000618:
018871,000619: 14,2711 06000 TC INTPRET
018872,000620: 14,2712 77634 CALL
018873,000621: 14,2713 30350 TAR/EREF # CALC YSM AND ZSM WRT EARTH REF. FRAME
018874,000622: 14,2714 41575 VLOAD PUSH
018875,000623: 14,2715 00007 6D
018876,000624: 14,2716 01407 STORE YSM
018877,000625: 14,2717 76435 VXV VSL1
018878,000626: 14,2720 00015 12D
018879,000627: 14,2721 01401 STORE XSM # XSM = (YSM) X (ZSM)
018880,000628: 14,2722 76435 VXV VSL1
018881,000629: 14,2723 77626 STADR
018882,000630: 14,2724 76362 STORE ZSM # ZSM = (XSM) X (YSM)
018883,000631: 14,2725 77776 EXIT
018884,000632:
018885,000633: 14,2726 01551 TC STOREPL
![]() |
Page 459 |
018887,000635: 14,2727 00006 OGCZERO EXTEND # ZERO EARTH RATE TORQUING ANGLES
018888,000636: 14,2730 23546 QXCH QPLACE
018889,000637:
018890,000638: 14,2731 06000 TC INTPRET
018891,000639: 14,2732 77775 VLOAD
018892,000640: 14,2733 33042 ZERODP # VECTOR IN THIS CASE
018893,000641: 14,2734 01772 STORE ERCOMP
018894,000642: 14,2735 77776 EXIT
018895,000643: 14,2736 01546 TC QPLACE
018896,000644:
018897,000645:
018898,000646:
018899,000647:
018900,000648:
018901,000649: 14,2737 37652 GMLCKCHK CAF BIT6 # CHECK FOR GIMBAL LOCK (MGA GREATER 70)
018902,000650: 14,2740 70322 MASK DSPTAB +11D
018903,000651: 14,2741 00006 EXTEND
018904,000652: 14,2742 12744 BZF +2
018905,000653: 14,2743 12745 TCF ENDTEST
018906,000654: 14,2744 00002 TC Q
018907,000655:
018908,000656:
018909,000657:
018910,000658:
018911,000659:
018912,000660: 14,2745 37650 ENDTEST CA IMUSEFLG # BIT8
018913,000661: 14,2746 67651 AD RRUSEFLG # BIT7
018914,000662: 14,2747 40000 CS A
018915,000663: 14,2750 00004 INHINT
018916,000664: 14,2751 70061 MASK STATE
018917,000665: 14,2752 54061 TS STATE
018918,000666:
018919,000667: 14,2753 04667 TC NEWMODEX
018920,000668: 14,2754 00000 OCT 00000
018921,000669:
018922,000670: 14,2755 04063 TC BANKCALL
018923,000671: 14,2756 27014 CADR MKRELEAS # RELEASE MARK SYSTEM
018924,000672: 14,2757 04437 TC EJFREE
018925,000673:
![]() |
Page 460 |
018927,000675: 14,2760 06000 LEMLAB TC INTPRET
018928,000676: 14,2761 57575 VLOAD VCOMP
018929,000677: 14,2762 33036 YUNIT
018930,000678:
018931,000679: 14,2763 01437 STORE ZNB # XNB MATRIX USED IN CALCGA
018932,000680: 14,2764 23461 STOVL STARAD +12D # STARAD MATRIX USED IN AXISGEN * SMDCALC
018933,000681: 14,2765 33040 XUNIT
018934,000682:
018935,000683: 14,2766 01423 STORE XNB # *XNB* *1 0 0* *V*
018936,000684: 14,2767 23445 STOVL STARAD # * * * * * *
018937,000685: 14,2770 33034 ZUNIT # *YNB* = *0 0 1* *S*
018938,000686: 14,2771 01431 STORE YNB # * * * * * *
018939,000687: 14,2772 01453 STORE STARAD +6 # *ZNB* *0 -1 0* *E*
018940,000688: 14,2773 77776 EXIT
018941,000689:
018942,000690: 14,2774 41544 CS POSITON
018943,000691: 14,2775 66165 AD THREE
018944,000692: 14,2776 00006 EXTEND
018945,000693: 14,2777 13001 BZF +2
018946,000694: 14,3000 13014 TCF LEMLAB1
018947,000695:
018948,000696: 14,3001 06000 TC INTPRET
018949,000697: 14,3002 57575 VLOAD VCOMP
018950,000698: 14,3003 01423 XNB
018951,000699: 14,3004 77715 PDVL # *XNB* * 0 -1 0* *V*
018952,000700: 14,3005 01437 ZNB # * * * * * *
018953,000701: 14,3006 01423 STORE XNB # *YNB* = * 0 0 1* *S*
018954,000702: 14,3007 23445 STOVL STARAD # * * * * * *
018955,000703: 14,3010 77626 STADR # *ZNB* *-1 0 0* * *
018956,000704: 14,3011 76340 STORE ZNB
018957,000705: 14,3012 01461 STORE STARAD +12D
018958,000706: 14,3013 77776 EXIT
018959,000707:
018960,000708: 14,3014 04063 LEMLAB1 TC BANKCALL
018961,000709: 14,3015 26716 CADR IMUSTALL # INSURE IMUZERO COMPLETION
018962,000710:
018963,000711: 14,3016 12745 TCF ENDTEST
018964,000712:
018965,000713: 14,3017 02576 TC POSNJUMP # SET UP STABLE MEMBER DESIRED COORDINATES
018966,000714: 14,3020 05401 TC FREEDSP # FREE DISPLAY SYSTEM
018967,000715: 14,3021 02247 TC PUTPOSX # TO COARSE ALIGN STABLE MEMBER
018968,000716:
018969,000717: 14,3022 02737 TC GMLCKCHK
018970,000718:
018971,000719: 14,3023 04063 TC BANKCALL
018972,000720: 14,3024 26227 CADR IMUFINE # FINE ALIGN MODE
018973,000721: 14,3025 04063 TC BANKCALL
018974,000722: 14,3026 26716 CADR IMUSTALL
018975,000723: 14,3027 12745 TCF ENDTEST
018976,000724:
![]() |
Page 461 |
018978,000726: 14,3030 30032 CA CDUX
018979,000727: 14,3031 50104 INDEX FIXLOC
018980,000728: 14,3032 54024 TS 24
018981,000729: 14,3033 30033 CA CDUY
018982,000730: 14,3034 50104 INDEX FIXLOC
018983,000731: 14,3035 54020 TS 20
018984,000732: 14,3036 30034 CA CDUZ
018985,000733: 14,3037 50104 INDEX FIXLOC
018986,000734: 14,3040 54022 TS 22
018987,000735:
018988,000736: 14,3041 37653 CAF BIT5
018989,000737: 14,3042 60104 AD FIXLOC
018990,000738: 14,3043 50104 INDEX FIXLOC
018991,000739: 14,3044 54050 TS S1
018992,000740:
018993,000741: 14,3045 02263 TC SMDCALC # TO FINE ALIGN STABLE MEMBER
018994,000742:
018995,000743: 14,3046 06000 TC INTPRET # IF EARTH RATE COMPENSATION DESIRED
018996,000744: 14,3047 77624 RTB
018997,000745: 14,3050 33342 LOADTIME
018998,000746: 14,3051 01565 STORE TMARK
018999,000747: 14,3052 77776 EXIT
019000,000748:
019001,000749: 14,3053 41512 CS EROPTN
019002,000750: 14,3054 67656 AD TWO
019003,000751: 14,3055 00006 EXTEND
019004,000752: 14,3056 13060 BZF +2
019005,000753:
019006,000754: 14,3057 12051 TCF ERFINAL +2
019007,000755:
019008,000756: 14,3060 04063 TC BANKCALL
019009,000757: 14,3061 35235 CADR SAMODRTN # RETURN TO SEMI-AUTOMATIC MODING TEST
019010,000758:
![]() |
Page 462 |
019012,000760: 14,3062 33674 RDR37511 CAF RDRRETN # RENDEZVOUS RADAR AND ANTENNA TRACKING
019013,000761: 14,3063 55546 TS QPLACE # TO RETURN FROM OPTDATA
019014,000762:
019015,000763: 14,3064 04063 TC BANKCALL
019016,000764: 14,3065 20247 CADR RRZERO
019017,000765:
019018,000766: 14,3066 04063 TC BANKCALL
019019,000767: 14,3067 23001 CADR AURLOKON # OPERATOR DECISION TO LOCK ON OR NOT
019020,000768:
019021,000769: 14,3070 12524 RDR1 TCF OPTRDRIN # CALL FOR AZIMUTH AND ELEVATION
019022,000770:
019023,000771: 14,3071 04063 TC BANKCALL
019024,000772: 14,3072 26712 CADR RADSTALL
019025,000773: 14,3073 14440 TCF ENDOFJOB
019026,000774:
019027,000775: 14,3074 06000 TC INTPRET
019028,000776: 14,3075 77170 AXT,1 AXT,2 # SET UP X1 AND X2 FOR TAR/EREF
019029,000777: 14,3076 00000 0
019030,000778: 14,3077 00006 6
019031,000779: 14,3100 77634 CALL
019032,000780: 14,3101 30353 TAR/EREF +3 # LINE-OF-SIGHT WRT EARTH REF FRAME
019033,000781: 14,3102 64375 VLOAD MXV
019034,000782: 14,3103 00015 12D # LINE-OF-SIGHT WRT EARTH REF FRAME
019035,000783: 14,3104 01401 XSM # TO STABLE MEMBER PRESENT FRAME
019036,000784: 14,3105 77772 VSL1
019037,000785: 14,3106 36416 STCALL RRTARGET
019038,000786: 14,3107 20306 RRDESSM
019039,000787:
019040,000788: 14,3110 13115 TCF 37511ALM
019041,000789: 14,3111 04063 TC BANKCALL
019042,000790: 14,3112 26712 CADR RADSTALL
019043,000791: 14,3113 14440 TCF ENDOFJOB
019044,000792: 14,3114 14440 TCF ENDOFJOB
019045,000793:
019046,000794:
019047,000795:
019048,000796:
019049,000797:
019050,000798: 14,3115 05413 37511ALM TC ALARM
019051,000799: 14,3116 00524 OCT 524
019052,000800: 14,3117 14440 TCF ENDOFJOB
019053,000801:
019054,000802:
019055,000803:
019056,000804:
019057,000805:
019058,000806: 14,3120 47665 RDRINIT CS ZERO
019059,000807: 14,3121 55512 TS EROPTN
019060,000808: 14,3122 12002 TCF AOTNBIMU +2
019061,000809:
![]() |
Page 463 |
019063,000811: 14,3123 05317 MISALIGN TC GRABWAIT # DISPLAY SYSTEM WAS FREED
019064,000812: 14,3124 37665 CAF ZERO
019065,000813: 14,3125 55537 TS NDXCTR
019066,000814: 14,3126 51537 BBBB INDEX NDXCTR
019067,000815: 14,3127 41674 CS GENPL +68D
019068,000816: 14,3130 51537 INDEX NDXCTR
019069,000817: 14,3131 27702 ADS GENPL +74D
019070,000818: 14,3132 33662 CAF 63DEC
019071,000819: 14,3133 61537 AD NDXCTR
019072,000820: 14,3134 10000 CCS A
019073,000821: 14,3135 46165 CS THREE
019074,000822: 14,3136 27537 ADS NDXCTR
019075,000823: 14,3137 13126 TCF BBBB
019076,000824: 14,3140 55537 TS NDXCTR
019077,000825:
019078,000826:
019079,000827:
019080,000828: 14,3141 06000 CCCC TC INTPRET
019081,000829: 14,3142 70750 LXA,1 DLOAD*
019082,000830: 14,3143 01537 NDXCTR
019083,000831: 14,3144 01701 GENPL +72D,1
019084,000832: 14,3145 77625 DSU
019085,000833: 14,3146 01571 GENPL
019086,000834: 14,3147 03701 STORE GENPL +72D,1
019087,000835: 14,3150 77776 EXIT
019088,000836: 14,3151 41537 CS NDXCTR
019089,000837: 14,3152 63663 AD 69DEC
019090,000838: 14,3153 10000 CCS A
019091,000839: 14,3154 36165 CAF THREE
019092,000840: 14,3155 27537 ADS NDXCTR
019093,000841: 14,3156 13141 TCF CCCC
019094,000842: 14,3157 55550 TS RUN
019095,000843: 14,3160 36165 CAF THREE
019096,000844: 14,3161 55537 TS NDXCTR
019097,000845:
019098,000846:
019099,000847:
019100,000848: 14,3162 06000 DDDD TC INTPRET
019101,000849: 14,3163 77775 VLOAD
019102,000850: 14,3164 33042 ZERODP
019103,000851: 14,3165 00031 STORE 24D
019104,000852: 14,3166 00037 STORE 30D
019105,000853: 14,3167 77735 SLOAD
019106,000854: 14,3170 31660 11DEC
019107,000855: 14,3171 00041 STORE 32D
019108,000856: 14,3172 77776 EXIT
019109,000857:
019110,000858: 14,3173 06000 DDDD1 TC INTPRET
019111,000859: 14,3174 70750 LXA,1 DLOAD*
019112,000860: 14,3175 01537 NDXCTR
019113,000861:
![]() |
Page 464 |
019115,000863: 14,3176 01701 GENPL +72D,1
019116,000864: 14,3177 41423 DSU* PUSH
019117,000865: 14,3200 01673 GENPL +66D,1
019118,000866: 14,3201 42742 SR1 DAD*
019119,000867: 14,3202 01673 GENPL +66D,1
019120,000868: 14,3203 03701 STORE GENPL +72D,1
019121,000869:
019122,000870: 14,3204 43312 SL2 DAD
019123,000871: 14,3205 00031 24D
019124,000872: 14,3206 14031 STODL* 24D
019125,000873: 14,3207 01701 GENPL +72D,1
019126,000874: 14,3210 63412 SL4 DSQ
019127,000875: 14,3211 77615 DAD
019128,000876: 14,3212 00033 26D
019129,000877: 14,3213 00033 STORE 26D
019130,000878: 14,3214 77776 EXIT
019131,000879: 14,3215 31550 CAE RUN
019132,000880: 14,3216 61537 AD NDXCTR
019133,000881: 14,3217 40000 COM
019134,000882: 14,3220 63662 AD 63DEC
019135,000883: 14,3221 10000 CCS A
019136,000884: 14,3222 36162 CAF SIX
019137,000885: 14,3223 27537 ADS NDXCTR
019138,000886: 14,3224 13173 TCF DDDD1
019139,000887: 14,3225 61550 AD RUN
019140,000888: 14,3226 55537 TS NDXCTR
019141,000889:
019142,000890:
019143,000891:
019144,000892: 14,3227 06000 EEEE TC INTPRET
019145,000893: 14,3230 66740 LXC,1 SLOAD*
019146,000894: 14,3231 01537 NDXCTR
019147,000895: 14,3232 01604 GENPL +11D,1
019148,000896: 14,3233 00043 STORE 34D
019149,000897: 14,3234 77745 DLOAD
019150,000898: 14,3235 54206 PUSH SL
019151,000899: 14,3236 00211 8D
019152,000900: 14,3237 43265 BDDV DAD
019153,000901: 14,3240 00043 34D
019154,000902: 14,3241 00035 28D
019155,000903: 14,3242 06035 STODL 28D
019156,000904: 14,3243 55261 SL BDDV
019157,000905: 14,3244 00207 6
019158,000906: 14,3245 00043 34D
019159,000907: 14,3246 42523 PDDL* SL4
019160,000908: 14,3247 01602 GENPL +9D,1
019161,000909: 14,3250 77605 DMP
019162,000910: 14,3251 77615 DAD
019163,000911: 14,3252 00037 30D
019164,000912: 14,3253 00037 STORE 30D
019165,000913:
![]() |
Page 465 |
019167,000915: 14,3254 77776 EXIT
019168,000916: 14,3255 41537 CS NDXCTR
019169,000917: 14,3256 63661 AD 60DEC
019170,000918: 14,3257 61550 AD RUN
019171,000919: 14,3260 10000 CCS A
019172,000920: 14,3261 36162 CAF SIX
019173,000921: 14,3262 27537 ADS NDXCTR
019174,000922: 14,3263 13227 TCF EEEE
019175,000923:
019176,000924:
019177,000925:
019178,000926: 14,3264 06000 TC INTPRET
019179,000927: 14,3265 41345 DLOAD DMP
019180,000928: 14,3266 00031 24D
019181,000929: 14,3267 00037 30D
019182,000930: 14,3270 41325 PDDL DMP
019183,000931: 14,3271 00033 26D
019184,000932: 14,3272 00035 28D
019185,000933: 14,3273 77625 DSU
019186,000934: 14,3274 63525 PDDL DSQ
019187,000935: 14,3275 00031 24D
019188,000936: 14,3276 65342 SR1 PDDL
019189,000937: 14,3277 00041 32D
019190,000938: 14,3300 41261 SL DMP
019191,000939: 14,3301 00212 11
019192,000940: 14,3302 00033 26D
019193,000941: 14,3303 55225 DSU BDDV
019194,000942: 14,3304 54205 DMP SL
019195,000943: 14,3305 31673 KKKK
019196,000944: 14,3306 00204 3
019197,000945: 14,3307 00337 STORE DSPTEM2
019198,000946: 14,3310 77776 EXIT
019199,000947:
019200,000948: 14,3311 31544 CA POSITON
019201,000949: 14,3312 54340 TS DSPTEM2 +2
019202,000950:
019203,000951: 14,3313 33654 CAF V06N66E
019204,000952: 14,3314 05332 TC NVSBWAIT
019205,000953: 14,3315 05274 TC FLASHON
019206,000954: 14,3316 05140 TC ENDIDLE
019207,000955: 14,3317 12745 TCF ENDTEST
019208,000956: 14,3320 36165 CAF THREE
019209,000957: 14,3321 55550 TS RUN
019210,000958: 14,3322 37665 CAF ZERO
019211,000959: 14,3323 13161 TCF DDDD -1
019212,000960:
![]() |
Page 466 |
019214,000962: # THIS REVISION REFLECTS CHANGES AS OF
019215,000963: # 1/31/66
019216,000964: # ENGINE ON/OFF NOW IN CHANNEL ELEVEN. THE BITS FOR EACH CHANNEL GET TURNED ON ALL AT ONCE. THEY STAY ON UNTIL
019217,000965: # :ENTER:IS PUSHED. THEN THEY ALL GO OUT AND THE NEXT CHANNEL:S BITS ARE TURNED ON.
019218,000966: # CHANNEL 5 BITS 1-8
019219,000967: # CHANNEL 6 BITS 1-8
019220,000968: # CHANNEL 11 BITS 13,14
019221,000969: # CHANNEL 12 BITS 9-14
019222,000970: # FOLLOWING THE CHANNEL 12 TESTS ENTER IS PRESSED. CHANNEL 12 IS SET TO ZERO AND THE NEXT TEST BEGUN. LOW9
019223,000971: # GOES IN LOCATION (COUNTER) 55.
019224,000972: # INCREASE THROTTLE RATE DESCENT ENGINE
019225,000973: # :ENTER: NOW CAUSES THE CONTENTS OF 55 TO BE MADE NEGATIVE
019226,000974: # DECREASE THROTTLE RATE DESCENT ENGINE
019227,000975: # THE NEXT :ENTER: ZEROS THE REGISTER AND SENDS A PULSE TRAIN (HERE ALTERN
019228,000976: # ZEROS FOR CLARITY) TO THE ALTITUDE METER.
019229,000977: # THE NEXT :ENTER: WILL ADVANCE THE TEST TO THE ALTITUDE RATE METER TEST.
019230,000978: # THE NEXT :ENTER : WILL TERMINATE THE TEST.
019231,000979:
019232,000980:
019233,000981:
019234,000982: 14,3324 37637 SAUTOIFS CA POSMAX
019235,000983: 14,3325 55576 TS NOBITS
019236,000984: 14,3326 37665 CA ZERO
019237,000985: 14,3327 55577 TS CHAN
019238,000986: 14,3330 55575 TS TEMP
019239,000987: 14,3331 03333 TC DINO
019240,000988: 14,3332 25577 BACK1 INCR CHAN
019241,000989:
019242,000990: 14,3333 51577 DINO INDEX CHAN
019243,000991: 14,3334 33336 CA SAUTLOCS
019244,000992: 14,3335 14067 TCF SWCALL
019245,000993: 14,3336 31352 SAUTLOCS CADR CHAN5D
019246,000994: 14,3337 31370 CADR CHAN6D
019247,000995: 14,3340 31376 CADR CHAN11D
019248,000996: 14,3341 31410 CADR CHAN12D
019249,000997: 14,3342 31422 CADR PTITRDE
019250,000998: 14,3343 31447 CADR PTDTRDE
019251,000999: 14,3344 31524 CADR ALTMET
019252,001000: 14,3345 31551 CADR ALTRMET
019253,001001: 14,3346 30745 CADR ENDTEST
019254,001002: 14,3347 31454 THROTADD CADR PTDTRDE +5
019255,001003: 14,3350 31527 METERADD CADR ALTMET +3
019256,001004: 14,3351 31554 MRATEADD CADR ALTRMET +3
019257,001005: 14,3352 37664 CHAN5D CA FIVE
019258,001006: 14,3353 54333 TS DSPTEM1
019259,001007: 14,3354 35235 2ENTRY CA LOW8 # CHANNEL 6 RETURNS HERE
019260,001008: 14,3355 54334 TS DSPTEM1 +1
019261,001009: 14,3356 00006 EXTEND
019262,001010: 14,3357 51575 INDEX TEMP
019263,001011: 14,3360 01005 WRITE 5
019264,001012:
![]() |
Page 467 |
019266,001014: 14,3361 33643 3ENTRY CA V04N30D # CH11,12 RETURN HERE TO USE THE DISPLAY
019267,001015: 14,3362 05332 TC NVSBWAIT
019268,001016: 14,3363 33650 4ENTRY CAF WAITER # WAITER IS 03300
019269,001017: 14,3364 05332 TC NVSBWAIT
019270,001018: 14,3365 05140 TC ENDIDLE
019271,001019: 14,3366 02745 TC ENDTEST
019272,001020: 14,3367 03332 TC BACK1
019273,001021:
019274,001022: 14,3370 25575 CHAN6D INCR TEMP
019275,001023: 14,3371 24333 INCR DSPTEM1
019276,001024: 14,3372 37665 CAF ZERO
019277,001025: 14,3373 00006 EXTEND
019278,001026: 14,3374 01005 WRITE 5 # GET RID OF CHANNEL 5 BITS
019279,001027: 14,3375 03354 TC 2ENTRY
019280,001028: 14,3376 37662 CHAN11D CA OCT11
019281,001029: 14,3377 54333 TS DSPTEM1
019282,001030: 14,3400 37700 CA BIT13-14
019283,001031: 14,3401 54334 TS DSPTEM1 +1
019284,001032: 14,3402 00006 EXTEND
019285,001033: 14,3403 05011 WOR 11 # WOR IS NON EXCLUSIVE OR
019286,001034: 14,3404 37665 CAF ZERO
019287,001035: 14,3405 00006 EXTEND
019288,001036: 14,3406 01006 WRITE 6
019289,001037: 14,3407 03361 TC 3ENTRY
019290,001038: 14,3410 37661 CHAN12D CA OCT12
019291,001039: 14,3411 54333 TS DSPTEM1
019292,001040: 14,3412 47700 CS BIT13-14
019293,001041: 14,3413 00006 EXTEND
019294,001042: 14,3414 03011 WAND 11
019295,001043: 14,3415 33646 CA CH12BITS
019296,001044: 14,3416 54334 TS DSPTEM1 +1
019297,001045: 14,3417 00006 EXTEND
019298,001046: 14,3420 05012 WOR 12
019299,001047: 14,3421 03361 TC 3ENTRY
019300,001048: 14,3422 43646 PTITRDE CS CH12BITS
019301,001049: 14,3423 00006 EXTEND
019302,001050: 14,3424 03012 WAND 12
019303,001051: 14,3425 37665 CA ZERO
019304,001052: 14,3426 54333 TS DSPTEM1
019305,001053: 14,3427 54334 TS DSPTEM1 +1
019306,001054: 14,3430 55575 TS TEMP
019307,001055: 14,3431 37657 CA BIT1
019308,001056: 14,3432 55576 TS NOBITS
019309,001057: 14,3433 00004 PIT INHINT
019310,001058: 14,3434 04536 TC WAITLIST
019311,001059: 14,3435 03460 30005 2CADR THROTASK
019312,001060:
019313,001061: 14,3437 00003 RELINT
019314,001062: 14,3440 33650 CA WAITER
019315,001063: 14,3441 05332 TC NVSBWAIT
019316,001064:
![]() |
Page 468 |
019318,001066: 14,3442 05140 TC ENDIDLE
019319,001067: 14,3443 02745 TC ENDTEST
019320,001068: 14,3444 37665 CA ZERO
019321,001069: 14,3445 55576 TS NOBITS
019322,001070: 14,3446 03332 TC BACK1
019323,001071:
019324,001072: 14,3447 37665 PTDTRDE CA ZERO
019325,001073: 14,3450 54055 TS THRUST
019326,001074: 14,3451 33347 CA THROTADD
019327,001075: 14,3452 55574 TS TEMPADD
019328,001076: 14,3453 04416 TC JOBSLEEP # THIS INHIBITS THE NEXT TASK UNTIL
019329,001077: # CURRENT TASK HAS BEEN COMPLETED
019330,001078: 14,3454 37637 CA POSMAX
019331,001079: 14,3455 55575 TS TEMP
019332,001080: 14,3456 37651 CA BIT7
019333,001081: 14,3457 03433 TC PIT
019334,001082: 14,3460 11576 THROTASK CCS NOBITS # IS THIS TASK STILL REQ
019335,001083: 14,3461 03466 TC +5 # YES
019336,001084: 14,3462 31574 CA TEMPADD # NO
019337,001085: 14,3463 55576 TS NOBITS
019338,001086: 14,3464 04422 TC JOBWAKE
019339,001087: 14,3465 04602 TC TASKOVER
019340,001088: 14,3466 11575 CCS TEMP
019341,001089: 14,3467 03502 TC SOMETIME
019342,001090: 14,3470 35234 CA LOW11
019343,001091: 14,3471 54055 ALWAYS TS THRUST
019344,001092: 14,3472 37654 CA BIT4
019345,001093: 14,3473 00006 EXTEND # A SMERZH FIX.
019346,001094: 14,3474 05014 WOR 14
019347,001095: 14,3475 37652 CA BIT6 # 320 MS.DELAY
019348,001096: 14,3476 04536 TC WAITLIST
019349,001097: 14,3477 03460 30005 2CADR THROTASK
019350,001098: 14,3501 04602 TC TASKOVER
019351,001099: 14,3502 45234 SOMETIME CS LOW11
019352,001100: 14,3503 03471 TC ALWAYS
019353,001101: 14,3504 11576 ALTASK CCS NOBITS # IS TASK STILL REQ
019354,001102: 14,3505 03512 TC +5
019355,001103: 14,3506 31574 CA TEMPADD # NO
019356,001104: 14,3507 55576 TS NOBITS # ENABLES NEXT TASK
019357,001105: 14,3510 04422 TC JOBWAKE
019358,001106: 14,3511 04602 TC TASKOVER
019359,001107: 14,3512 33644 CA ALBITS # ACTUAL TASK STARTS HERE
019360,001108: 14,3513 54060 TS ALTM
019361,001109: 14,3514 37655 CA BIT3
019362,001110: 14,3515 00006 EXTEND
019363,001111: 14,3516 05014 WOR 14
019364,001112: 14,3517 37652 CA BIT6 # 320 MS. DELAY
019365,001113: 14,3520 04536 TC WAITLIST
019366,001114: 14,3521 03504 30005 2CADR ALTASK
019367,001115:
![]() |
Page 469 |
019369,001117: 14,3523 04602 TC TASKOVER
019370,001118: 14,3524 33350 ALTMET CA METERADD
019371,001119: 14,3525 55574 TS TEMPADD
019372,001120: 14,3526 04416 TC JOBSLEEP
019373,001121: 14,3527 37665 CA ZERO
019374,001122: 14,3530 55575 TS TEMP
019375,001123: 14,3531 47654 CS BIT4
019376,001124: 14,3532 00006 EXTEND
019377,001125: 14,3533 03014 WAND 14
019378,001126: 14,3534 00004 INHINT
019379,001127: 14,3535 37657 CA ONE
019380,001128: 14,3536 04536 TC WAITLIST
019381,001129: 14,3537 03504 30005 2CADR ALTASK
019382,001130: 14,3541 00003 RELINT
019383,001131: 14,3542 33650 CA WAITER
019384,001132: 14,3543 05332 TC NVSBWAIT
019385,001133: 14,3544 05140 TC ENDIDLE
019386,001134: 14,3545 02745 TC ENDTEST
019387,001135: 14,3546 37665 CA ZERO
019388,001136: 14,3547 55576 TS NOBITS
019389,001137: 14,3550 03332 TC BACK1
019390,001138:
019391,001139: 14,3551 33351 ALTRMET CA MRATEADD
019392,001140: 14,3552 55574 TS TEMPADD
019393,001141: 14,3553 04416 TC JOBSLEEP
019394,001142: 14,3554 37657 CA ONE
019395,001143: 14,3555 55575 TS TEMP # TEMP WILL BE INDEXED TO ACQUIRE BIT2 INS
019396,001144: # TEAD OF BIT3
019397,001145: 14,3556 37656 CA BIT2
019398,001146: 14,3557 00006 EXTEND
019399,001147: 14,3560 05014 WOR 14
019400,001148: 14,3561 03534 TC ALTMET +8D
019401,001149:
![]() |
Page 470 |
019403,001151: # THE AOT ANGLE CHECKING PROGRAM PROVIDES A SIMPLE VERIFICATION OF THE ACCURACY OF THE AOT, THE IDEA IS TO
019404,001152: # COMPUTE THE ANGLE BETWEEN TWO LINES OF SIGHT AS INDICATED BY THE AOT, WHICH IS WHAT THIS PROGRAM DOES.
019405,001153: # INDEPENDENT KNOWLEDGE OF THE INCLUDED ANGLE PROVIDES A COMPARISON AND THUS A MEASURE OF THE AOT ACCURACY.
019406,001154: # THE ISS NEED NOT BE ON TO RUN THIS PROGRAM.
019407,001155:
019408,001156:
019409,001157:
019410,001158: 14,3562 06000 AOTANGCK TC INTPRET
019411,001159: 14,3563 77414 SET EXIT # IN CASE THE ISS IS OFF.
019412,001160: 14,3564 00065 COAROFIN
019413,001161: 14,3565 02135 TC FINDNAVB # FOR LOS1 AND LOS2.
019414,001162: 14,3566 06000 TC INTPRET
019415,001163: 14,3567 47375 VLOAD VXV
019416,001164: 14,3570 01601 LOS1
019417,001165: 14,3571 01607 LOS2
019418,001166: 14,3572 77646 ABVAL
019419,001167: 14,3573 22023 STOVL SINTH # SINTH = ABVAL (VXV ).
019420,001168: 14,3574 01601 LOS1
019421,001169: 14,3575 77641 DOT
019422,001170: 14,3576 01607 LOS2
019423,001171: 14,3577 36021 STCALL COSTH # COSTH = V.V
019424,001172: 14,3600 32440 ARCTRIG
019425,001173: 14,3601 77624 RTB
019426,001174: 14,3602 33410 1STO2S # DP 1S COMP TO SP 2S COMP.
019427,001175: 14,3603 00025 STORE THETA
019428,001176: 14,3604 77776 EXIT
019429,001177: 14,3605 33675 CAF THETAADR
019430,001178: 14,3606 60104 AD FIXLOC
019431,001179: 14,3607 54142 TS MPAC +2
019432,001180: 14,3610 33653 CAF V06N03E # XXX.XX DEGREES IN R1.
019433,001181: 14,3611 05332 TC NVSBWAIT
019434,001182: 14,3612 12745 TCF ENDTEST
019435,001183:
![]() |
Page 471 |
019437,001185: 14,3613 E3,1400 EBANK= 1400
019438,001186: 14,3613 00004 ZEROERAS INHINT # PROGRAM BY MUNTZ TO ZERO ERASEABLE
019439,001187: 14,3614 37665 CAF ZERO
019440,001188: 14,3615 54026 TS TIME3
019441,001189: 14,3616 33642 CAF OCT27
019442,001190: 14,3617 54003 TS EBANK
019443,001191: 14,3620 22007 ZEROLP ZL
019444,001192: 14,3621 50000 INDEX A
019445,001193: 14,3622 23401 LXCH 1401
019446,001194: 14,3623 67656 AD TWO
019447,001195: 14,3624 26003 ADS EBANK
019448,001196: 14,3625 75235 MASK LOW8
019449,001197: 14,3626 10000 CCS A
019450,001198: 14,3627 13620 TCF ZEROLP
019451,001199: 14,3630 10003 CCS EBANK
019452,001200: 14,3631 13634 TCF ZEROLP1
019453,001201: 14,3632 04102 TC POSTJUMP
019454,001202: 14,3633 24000 CADR SLAP1
019455,001203: 14,3634 00003 ZEROLP1 RELINT
019456,001204: 14,3635 37665 CAF ZERO # KEEP T4RUPT GOING, BUT NOT CYCLING.
019457,001205: 14,3636 54350 TS DSRUPTSW
019458,001206: 14,3637 00004 INHINT
019459,001207: 14,3640 47657 CS ONE
019460,001208: 14,3641 13620 TCF ZEROLP
019461,001209: 14,3642 00027 OCT27 OCT 27
019462,001210:
![]() |
Page 472 |
019464,001212: 14,3643 E5,1500 EBANK= OGC
019465,001213: 14,3643 00430 V04N30D OCT 00430
019466,001214: 14,3644 52525 ALBITS OCT 52525
019467,001215: 14,3645 70707 THRSBITS OCT 70707
019468,001216: 14,3646 7661 OCT12 = TEN
019469,001217: 14,3646 7662 OCT11 = NINE
019470,001218: 14,3646 37400 CH12BITS OCT 37400
019471,001219: 14,3647 00130 V01N30D OCT 00130
019472,001220: 14,3650 03300 WAITER OCT 03300
019473,001221:
019474,001222:
019475,001223:
019476,001224:
019477,001225:
019478,001226: 14,3651 00130 V01N30E OCT 00130 # FOR FINDNAVB
019479,001227: 14,3652 00530 V05N30E OCT 00530 # FOR OPTDATA
019480,001228: 14,3653 00603 V06N03E OCT 00603
019481,001229: 14,3654 00666 V06N66E OCT 00666
019482,001230: 14,3655 02430 V24N30E OCT 02430 # FOR POSITION LOAD
019483,001231: 14,3656 02522 V25N22E OCT 02522 # FOR POS4
019484,001232:
019485,001233: 14,3657 00013 11DEC DEC 11 B-14
019486,001234: 14,3660 00021 17DEC DEC 17 B-14
019487,001235: 14,3661 00074 60DEC DEC 60 B-14
019488,001236: 14,3662 00077 63DEC DEC 63 B-14
019489,001237: 14,3663 00105 69DEC DEC 69 B-14 # FOR MISALIGN
019490,001238: 14,3664 00110 72DEC DEC 72 B-14 # FOR STORRSLT
019491,001239:
019492,001240: 14,3665 05670 30SEC DEC 3000 B-14 # 3000 X 10 MSEC
019493,001241: 14,3666 13560 60SEC DEC 6000 B-14 # 6000 X 10 MSEC
019494,001242:
019495,001243: 14,3667 01500 OGCADR ADRES OGC # FOR ZEROING
019496,001244: 14,3670 01570 GENPLAD1 ADRES GENPL
019497,001245: 14,3671 02570 GENPLADR ECADR GENPL # FOR POS4
019498,001246: 14,3672 00322 14366 KKKK 2DEC 210.39 B-14 # 1230 B-14 FOR CSM
019499,001247:
019500,001248: 14,3674 03071 RDRRETN ADRES RDR1 +1 # FOR RDR37511
019501,001249: 14,3675 00024 THETAADR ECADR THETA
019502,001250: 14,3676 01400 XSMADRX ADRES XSM # FOR MAKEXSMD
019503,001251:
019504,001252: 14,3677 24365 30244 SCALFTR 2DEC .64 # FOR STORRSLT
019505,001253:
019506,001254: 14,3701 07623 26552 OMEG/MS 2DEC .24339048 # GYRO PULSES / 10 MSEC
019507,001255:
![]() |
Page 473 |
019509,001257: # THE FOLLOWING ROUTINE READS THE CLOCK AND SCALAR (CHANNELS 3 AND 4) INTO A AND L, INSURING THAT THE
019510,001258: # DATA WAS NOT IN TRANSITION WHEN IT WAS READ.
019511,001259: 5470 SETLOC ENDFAILF
019512,001260: 5470 00004 FINETIME INHINT # RETURNS WITH INTERRUPT INHIBITED.
019513,001261: 5471 00006 EXTEND
019514,001262: 5472 00004 READ LOSCALAR
019515,001263: 5473 54001 TS L
019516,001264:
019517,001265: 5474 00006 EXTEND # SEE IF 2 READINGS AGREE. IF NOT, READ
019518,001266: 5475 06004 RXOR LOSCALAR # LOSCALAR AGAIN.
019519,001267: 5476 00006 EXTEND
019520,001268: 5477 15503 BZF +4
019521,001269:
019522,001270: 5500 00006 EXTEND # IF CLOCK RIPPLED BEFORE, IT WONT NOW.
019523,001271: 5501 00004 READ LOSCALAR
019524,001272: 5502 54001 TS L
019525,001273:
019526,001274: 5503 47637 +4 CS POSMAX # IF LOW PART CONTAINS SOMETHING LESS THAN
019527,001275: 5504 60001 AD L # POSMAX, THE HIGH PART CAN BE READ SAFELY
019528,001276: 5505 00006 EXTEND
019529,001277: 5506 15471 BZF FINETIME +1 # TRY AGAIN - CONDITION WILL DISAPPEAR.
019530,001278:
019531,001279: 5507 00006 EXTEND
019532,001280: 5510 00003 READ HISCALAR
019533,001281: 5511 00002 TC Q
019534,001282:
019535,001283: 5512 ENDIMUF =
019536,001284:
![]() |
Page 474 |
019538,001286: 14,3703 SETLOC OMEG/MS +2
019539,001287: 14,3703 04063 REDYTORK TC BANKCALL
019540,001288: 14,3704 26716 CADR IMUSTALL
019541,001289: 14,3705 12745 TCF ENDTEST
019542,001290:
019543,001291: 14,3706 02727 TC OGCZERO
019544,001292:
019545,001293: 14,3707 06000 TC INTPRET
019546,001294: 14,3710 77634 CALL
019547,001295: 14,3711 30405 ERTHRVSE # SETS UP EARTHRATE ANGLES AND TIME
019548,001296: 14,3712 77776 EXIT
019549,001297: 14,3713 31617 CA OPTNREG # INITIALIZE CDUNDX FOR PULSE CATCHING
019550,001298: 14,3714 67670 AD NEG2 # C(K) WAS 4 2 1 NOW C(A) IS 2 0 -1
019551,001299: 14,3715 55616 TS GYTOBETQ # C(K) = 2,0,-1 FOR X,Y,Z.
019552,001300: 14,3716 00006 EXTEND
019553,001301: 14,3717 13722 BZF +3
019554,001302: 14,3720 37656 CAF TWO
019555,001303: 14,3721 03723 TC +2
019556,001304: 14,3722 37657 CAF ONE
019557,001305: 14,3723 55672 TS CDUNDX # C(K) = 1 FOR Y, 2 FOR Z CDU SELECT
019558,001306: 14,3724 04063 TC BANKCALL
019559,001307: 14,3725 36545 CADR ENABLE
019560,001308: 14,3726 ENDIMUS1 EQUALS
019561,001309:
End of include-file IMU_PERFORMANCE_TESTS_1.agc. Parent file is MAIN.agc