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