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