Source Code
|
These source-code files were transcribed from a printout in Don Eyles's personal
collection, scanned by archive.org, and financially sponsored by Peter McDermott.
A team of volunteers performed the transcription and proof-reading. The scanned
page images are available at
the Virtual AGC Project website, as well as higher-quality (but much larger)
images at
the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating
"issues" at
the Virtual AGC Project's GitHub Repository. Notations on the program listing read, in part:
YUL SYSTEM FOR AGC: NEW PROGRAM SHEPATIN BY EYLES
DEC 13, 1966
THIS PROGRAM WAS ASSEMBLED AS A VERSION OF REVISION 37
OF PROGRAM SUNBURST BY LEM GROUP
Note that the date is the date of the printout, not the date of the program revision.
|
015438,000002: ## Copyright: Public domain.
015439,000003: ## Filename: IMU_PERFORMANCE_TESTS_1.agc
015440,000004: ## Purpose: A section of Sunburst revision 37, or Shepatin revision 0.
015441,000005: ## It is part of an early development version of the software
015442,000006: ## for Apollo Guidance Computer (AGC) on the unmanned Lunar
015443,000007: ## Module (LM) flight Apollo 5. Sunburst 37 was the program
015444,000008: ## upon which Don Eyles's offline development program Shepatin
015445,000009: ## was based; the listing herein transcribed was actually for
015446,000010: ## the equivalent revision 0 of Shepatin.
015447,000011: ## This file is intended to be a faithful transcription, except
015448,000012: ## that the code format has been changed to conform to the
015449,000013: ## requirements of the yaYUL assembler rather than the
015450,000014: ## original YUL assembler.
015451,000015: ## Reference: pp. 361-390
015452,000016: ## Assembler: yaYUL
015453,000017: ## Contact: Ron Burkey <info@sandroid.org>.
015454,000018: ## Website: www.ibiblio.org/apollo/index.html
015455,000019: ## Mod history: 2017-05-24 MAS Created from Sunburst 120.
015456,000020: ## 2017-06-08 RSB Transcribed.
015457,000021: ## 2017-06-22 RSB Proofed comment text with
015458,000022: ## octopus/ProoferComments.
015459,000023:
|
|
Page 361 |
015461,000025: 14,2000 BANK 14
015462,000026: 14,2000 E5,1400 EBANK= XSM
015463,000027:
015464,000028:
015465,000029:
015466,000030: 14,2000 37755 AOTNBIMU CAF ONE # AOT-NB-IMU FINE ALIGNMENT TEST
015467,000031: 14,2001 55512 TS EROPTN # ... TEST CAPABILITY ...
015468,000032:
015469,000033: 14,2002 05224 TC BANKCALL
015470,000034: 14,2003 26000 CADR IMUZERO # IMU ZERO ENCODER MODE
015471,000035: 14,2004 06103 TC INTPRET
015472,000036: 14,2005 77624 CALL
015473,000037: 14,2006 30532 LATAZCHK # TO LOAD AZIMUTH (SM) AND LATITUDE
015474,000038: 14,2007 77624 CALL
015475,000039: 14,2010 30325 MAKEXSMD # TO SET UP A STABLE MEMBER DESIRED MATRIX
015476,000040: 14,2011 45014 SET CALL
015477,000041: 14,2012 00065 COAROFIN # FOR COARSE OR FINE ALIGN MARKS
015478,000042: 14,2013 30407 ERTHRVSE # TO CALCULATE EARTH RATE VECTOR
015479,000043: 14,2014 77776 EXIT
015480,000044:
015481,000045: 14,2015 33657 POSLOAD CAF V24N30E # R1 0000X ENTER POSITION 1,2, OR 3
015482,000046: 14,2016 04646 TC NVSBWAIT # R2 00000 ENTER 00001 FOR LAB OPTION
015483,000047: 14,2017 04464 TC ENDIDLE
015484,000048: 14,2020 12747 TCF ENDTEST
015485,000049: 14,2021 12015 TCF -4
015486,000050: 14,2022 56337 XCH DSPTEM1 # DO NOT USE POSITION 3 WITH NAV BASE AT
015487,000051: 14,2023 55544 TS POSITON # ZERO DEGREE TILT ANGLE. (GIMBAL LOCK)
015488,000052:
015489,000053: 14,2024 10340 CCS DSPTEM1 +1
015490,000054: 14,2025 12762 TCF LEMLAB # SPECIAL LAB TEST TO BYPASS MARKS
015491,000055:
015492,000056: 14,2026 02600 TC POSNJUMP # SET UP STABLE MEMBER DESIRED COORDINATES
015493,000057:
015494,000058: 14,2027 02503 TC OPTDATA # TARGETS 1,2 AZIMUTH AND ELEVATION
015495,000059:
015496,000060: 14,2030 02135 TC FINDNAVB # COARSE ALIGN MARKS
015497,000061:
015498,000062: 14,2031 05224 TC BANKCALL
015499,000063: 14,2032 26762 CADR IMUSTALL # INSURE IMUZERO COMPLETION
015500,000064: 14,2033 12747 TCF ENDTEST
015501,000065:
015502,000066: 14,2034 02247 TC PUTPOSX # TO COARSE ALIGN STABLE MEMBER
015503,000067:
015504,000068: 14,2035 02741 TC GMLCKCHK # CHECK FOR GIMBAL LOCK BEFORE FINE ALIGN
015505,000069: 14,2036 02731 TC OGCZERO # FOR EARTH RATE COMPENSATION
015506,000070:
015507,000071: 14,2037 05224 TC BANKCALL
015508,000072: 14,2040 26251 CADR IMUFINE # FINE ALIGN MODE
015509,000073: 14,2041 05224 TC BANKCALL
015510,000074: 14,2042 26762 CADR IMUSTALL
|
|
Page 362 |
015512,000076: 14,2043 12747 TCF ENDTEST
015513,000077:
015514,000078: 14,2044 02135 TC FINDNAVB # FINE ALIGN MARKS
015515,000079:
015516,000080: 14,2045 04713 TC FREEDSP # FREE DISPLAY SYSTEM
015517,000081:
015518,000082: 14,2046 02263 TC SMDCALC # TO FINE ALIGN STABLE MEMBER
015519,000083:
015520,000084: 14,2047 05224 ERFINAL TC BANKCALL # LAST EARTH RATE SHOT
015521,000085: 14,2050 30424 CADR EARTHR
015522,000086: 14,2051 11512 CCS EROPTN # IF DESIRED TO COMPENSATE CONTINUALLY
015523,000087: 14,2052 12065 TCF MONSTART # CHANGE BY V21 N02 E XXXXX E 00000 E
015524,000088: 14,2053 12047 TCF ERFINAL
015525,000089: 14,2054 12747 TCF ENDTEST
015526,000090:
015527,000091: 14,2055 55512 TS EROPTN
015528,000092: 14,2056 00004 INHINT
015529,000093: 14,2057 35662 CAF PRIO21 # PRIORITY 1 HIGHER THAN SXTNBIMU
015530,000094: 14,2060 05534 TC FINDVAC
015531,000095: 14,2061 E5,1400 EBANK= XSM
015532,000096: 14,2061 03064 30005 2CADR RDR37511
015533,000097:
015534,000098: 14,2063 00003 RELINT
015535,000099: 14,2064 02047 TC ERFINAL
015536,000100:
015537,000101: 14,2065 05015 MONSTART TC FINETIME # TIME AT INITIAL MISALIGNMENT
015538,000102: 14,2066 52145 DXCH MPAC
015539,000103: 14,2067 00003 RELINT
015540,000104: 14,2070 37761 CAF ZERO # ZERO PIPA COUNTERS
015541,000105: 14,2071 54037 TS PIPAX
015542,000106: 14,2072 54040 TS PIPAY
015543,000107: 14,2073 54041 TS PIPAZ
015544,000108: 14,2074 55551 TS STOREPL
015545,000109: 14,2075 55537 TS NDXCTR
015546,000110: 14,2076 02456 TC STORRSLT # STORE T(INITIAL) AND PIPAI = 0
015547,000111:
015548,000112: 14,2077 00004 INHINT
015549,000113: 14,2100 33670 CAF 60SEC # INSURE PIPAI VARIES IN ONE DIRECTION
015550,000114:
015551,000115: 14,2101 05701 TC WAITLIST
015552,000116: 14,2102 E5,1400 EBANK= XSM
015553,000117: 14,2102 02106 30005 2CADR PIP1
015554,000118:
015555,000119: 14,2104 32134 CAF PIP2ADR
015556,000120: 14,2105 05563 TC JOBSLEEP
015557,000121:
015558,000122: 14,2106 32134 PIP1 CAF PIP2ADR
015559,000123: 14,2107 05567 TC JOBWAKE
015560,000124: 14,2110 05745 TC TASKOVER
015561,000125:
015562,000126: 14,2111 31542 PIP2 CAE PIPNDX
015563,000127: 14,2112 55541 TS PIPINDEX # POS1 PIPAY POS2 PIPAX POS3 PIPAX
|
|
Page 363 |
015565,000129: 14,2113 05224 TC BANKCALL
015566,000130: 14,2114 50773 CADR CHECKG # SYNC ON PIPA PULSE
015567,000131:
015568,000132: 14,2115 00003 RELINT
015569,000133: 14,2116 02456 TC STORRSLT # STORE TIME AND PIPAI
015570,000134:
015571,000135: 14,2117 31543 CAE PIPNDX +1
015572,000136: 14,2120 55541 TS PIPINDEX # POS1 PIPAZ POS2 PIPAY POS3 PIPAZ
015573,000137: 14,2121 05224 TC BANKCALL
015574,000138: 14,2122 50773 CADR CHECKG # SYNC ON PIPA PULSE
015575,000139:
015576,000140: 14,2123 00003 RELINT
015577,000141: 14,2124 02456 TC STORRSLT # STORE TIME AND PIPAI
015578,000142:
015579,000143: 14,2125 00004 INHINT
015580,000144: 14,2126 33667 CAF 30SEC # MONITOR PIPAS AT 30 SECOND INTERVALS
015581,000145: 14,2127 05701 TC WAITLIST
015582,000146: 14,2130 E5,1400 EBANK= XSM
015583,000147: 14,2130 02106 30005 2CADR PIP1
015584,000148:
015585,000149: 14,2132 32134 CAF PIP2ADR
015586,000150: 14,2133 05563 TC JOBSLEEP
015587,000151: 14,2134 30111 PIP2ADR CADR PIP2
015588,000152:
|
|
Page 364 |
015590,000154: 14,2135 00006 FINDNAVB EXTEND # MARKS * CALC NB OR SM WRT EARTH REF
015591,000155: 14,2136 23546 QXCH QPLACE
015592,000156:
015593,000157: 14,2137 05224 TC BANKCALL
015594,000158: 14,2140 27060 CADR MKRELEAS # RELEASE MARK SYSTEM
015595,000159: 14,2141 37755 CAF ONE
015596,000160: 14,2142 54337 TS DSPTEM1
015597,000161: 14,2143 33653 CAF V01N30E # DISPLAY 00001 IN R1
015598,000162: 14,2144 04646 TC NVSBWAIT
015599,000163: 14,2145 37761 CAF ZERO # TO INDICATE GROUND MARKS
015600,000164: 14,2146 05224 TC BANKCALL
015601,000165: 14,2147 27017 CADR AOTMARK # MARK ON TARGET 1
015602,000166:
015603,000167: 14,2150 05224 TC BANKCALL
015604,000168: 14,2151 26760 CADR OPTSTALL # INSURE SUCCESSFUL MARK
015605,000169: 14,2152 12747 TCF ENDTEST
015606,000170: 14,2153 00006 EXTEND
015607,000171: 14,2154 50373 INDEX MARKSTAT
015608,000172: 14,2155 30001 DCA 0
015609,000173: 14,2156 53565 DXCH TMARK # TIME(PRES) FOR EARTH RATE COMPENSATION
015610,000174:
015611,000175: 14,2157 02242 TC GIMANGS1
015612,000176:
015613,000177: 14,2160 06103 TC INTPRET
015614,000178: 14,2161 45140 LXC,1 CALL
015615,000179: 14,2162 00373 MARKSTAT # BASE ADDRESS VAC AREA FOR AOTNB
015616,000180:
015617,000181: 14,2163 33161 AOTNB # OPTICS TO NAV BASE COORDINATE FRAME
015618,000182: 14,2164 45014 BON CALL
015619,000183: 14,2165 00305 COAROFIN # COARSE MARKS = 0 FINE MARKS = 1
015620,000184: 14,2166 30170 +2
015621,000185: 14,2167 32622 NBSM # NAV BASE DIRECT TO STABLE MEMBER
015622,000186: 14,2170 02445 STORE STARAD # TARGET 1 WRT NAV BASE OR STABLE MEMBER
015623,000187: 14,2171 02601 STORE LOS1 # ...FOR K...
015624,000188: 14,2172 77776 EXIT
015625,000189:
015626,000190: 14,2173 05224 TC BANKCALL
015627,000191: 14,2174 27060 CADR MKRELEAS # RELEASE MARK SYSTEM
015628,000192: 14,2175 37754 CAF TWO
015629,000193: 14,2176 54337 TS DSPTEM1
015630,000194: 14,2177 33653 CAF V01N30E # DISPLAY 00002 IN R1
015631,000195: 14,2200 04646 TC NVSBWAIT
015632,000196: 14,2201 37761 CAF ZERO # TO INDICATE GROUND MARKS
015633,000197: 14,2202 05224 TC BANKCALL
015634,000198: 14,2203 27017 CADR AOTMARK # MARK ON TARGET 2
015635,000199:
015636,000200: 14,2204 37744 CAF BIT10
015637,000201: 14,2205 70074 MASK STATE # BIT10 = COAROFIN
015638,000202: 14,2206 10000 CCS A
015639,000203: 14,2207 12215 TCF EARRTCOM +5 # IF COARSE ALIGN MARKS
015640,000204:
|
|
Page 365 |
015642,000206: 14,2210 05224 EARRTCOM TC BANKCALL # EARTH RATE COMPENSATION BETWEEN MARKS
015643,000207: 14,2211 30424 CADR EARTHR
015644,000208: 14,2212 10370 CCS OPTCADR # +0 IF MARK BUTTON NOT DEPRESSED
015645,000209: 14,2213 12216 TCF +3
015646,000210: 14,2214 12210 TCF EARRTCOM # CONTINUE TO COMPENSATE FOR EARTH RATE
015647,000211: 14,2215 12216 TCF +1
015648,000212: 14,2216 05224 TC BANKCALL
015649,000213: 14,2217 26760 CADR OPTSTALL # INSURE SUCCESSFUL MARK
015650,000214:
015651,000215: 14,2220 12747 TCF ENDTEST
015652,000216:
015653,000217: 14,2221 02242 TC GIMANGS1
015654,000218:
015655,000219: 14,2222 06103 TC INTPRET
015656,000220: 14,2223 45140 LXC,1 CALL
015657,000221: 14,2224 00373 MARKSTAT # BASE ADDRESS VAC AREA FOR AOTNB
015658,000222: 14,2225 33161 AOTNB # OPTICS TO NAV BASE COORDINATE FRAME
015659,000223: 14,2226 45014 BONCLR CALL # SET TO ZERO FOR FINE ALIGN MARKS
015660,000224: 14,2227 00205 COAROFIN # COARSE MARKS = 0 FINE MARKS = 1
015661,000225: 14,2230 30232 +2
015662,000226: 14,2231 32622 NBSM # NAV BASE DIRECT TO STABLE MEMBER
015663,000227: 14,2232 02453 STORE STARAD +6 # TARGET 2 WRT NAV BASE OR STABLE MEMBER
015664,000228: 14,2233 02607 STORE LOS2 # ...FOR K...
015665,000229:
015666,000230: 14,2234 77624 MAXDET CALL
015667,000231: 14,2235 30350 TAR/EREF # TARGETS 1,2 WRT EARTH REF FRAME
015668,000232: 14,2236 77624 CALL
015669,000233: 14,2237 33006 AXISGEN # NAV BASE OR SM WRT EARTH REF FRAME
015670,000234: 14,2240 77776 EXIT
015671,000235: 14,2241 01546 TC QPLACE
015672,000236:
015673,000237:
015674,000238:
015675,000239: 14,2242 37754 GIMANGS1 CAF TWO # BASE ADDRESS GIMBAL ANGLES FOR NBSM
015676,000240: 14,2243 60373 AD MARKSTAT
015677,000241: 14,2244 50110 INDEX FIXLOC
015678,000242: 14,2245 54050 TS S1
015679,000243: 14,2246 00002 TC Q
015680,000244:
|
|
Page 366 |
015682,000246: 14,2247 00006 PUTPOSX EXTEND # COARSE ALIGNS STABLE MEMBER
015683,000247: 14,2250 23546 QXCH QPLACE
015684,000248:
015685,000249: 14,2251 06103 TC INTPRET
015686,000250: 14,2252 77624 CALL
015687,000251: 14,2253 32722 CALCGA # CALCULATE COARSE ALIGN GIMBAL ANGLES
015688,000252: 14,2254 77776 EXIT
015689,000253:
015690,000254: 14,2255 05224 TC BANKCALL
015691,000255: 14,2256 26065 CADR IMUCOARS # COARSE ALIGN MODE
015692,000256: 14,2257 05224 TC BANKCALL
015693,000257: 14,2260 26762 CADR IMUSTALL
015694,000258: 14,2261 12747 TCF ENDTEST
015695,000259: 14,2262 01546 TC QPLACE
015696,000260:
015697,000261:
015698,000262:
015699,000263:
015700,000264: 14,2263 00006 SMDCALC EXTEND # FINE ALIGNS STABLE MEMBER
015701,000265: 14,2264 23546 QXCH QPLACE
015702,000266:
015703,000267: 14,2265 06103 TC INTPRET
015704,000268: 14,2266 64375 VLOAD MXV
015705,000269: 14,2267 02401 XSM # XSM DESIRED WRT EARTH REF FRAME
015706,000270: 14,2270 02445 STARAD # THEN TO SM PRESENT OR NAV BASE FRAME
015707,000271: 14,2271 43172 VSL1 BOFF
015708,000272: 14,2272 00345 COAROFIN # BIT10 FOR LEMLAB TEST
015709,000273: 14,2273 30276 +3
015710,000274: 14,2274 34041 STCALL 32D
015711,000275: 14,2275 32622 NBSM # THEN TO SM PRESENT FRAME
015712,000276: 14,2276 26423 STOVL XDC
015713,000277: 14,2277 02407 YSM # YSM DESIRED WRT EARTH REF FRAME
015714,000278:
015715,000279: 14,2300 76521 MXV VSL1
015716,000280: 14,2301 02445 STARAD # THEN TO SM PRESENT OR NAV BASE FRAME
015717,000281: 14,2302 77614 BOFF
015718,000282: 14,2303 00345 COAROFIN # BIT10 FOR LEMLAB TEST
015719,000283: 14,2304 30307 +3
015720,000284: 14,2305 34041 STCALL 32D
015721,000285: 14,2306 32622 NBSM # THEN TO SM PRESENT FRAME
015722,000286: 14,2307 26431 STOVL YDC
015723,000287: 14,2310 02423 XDC
015724,000288:
015725,000289: 14,2311 76435 VXV VSL1
015726,000290: 14,2312 02431 YDC
015727,000291: 14,2313 36437 STCALL ZDC # ZSM DESIRED WRT SM PRESENT FRAME
015728,000292: 14,2314 32472 CALCGTA # CALCULATE FINE ALIGN TORQUING ANGLES
015729,000293:
015730,000294: 14,2315 47170 AXT,1 RTB
015731,000295:
|
|
Page 367 |
015733,000297: 14,2316 02500 ECADR OGC # X1 = BASE ADDRESS OF TORQUING ANGLES
015734,000298: 14,2317 33674 PULSEIMU # TO PUT OUT GYRO TORQUING PULSES
015735,000299: 14,2320 77776 EXIT
015736,000300:
015737,000301: 14,2321 05224 TC BANKCALL
015738,000302: 14,2322 26762 CADR IMUSTALL # WAIT FOR PULSES TO GET OUT
015739,000303: 14,2323 12747 TCF ENDTEST
015740,000304: 14,2324 01546 TC QPLACE
015741,000305:
|
|
Page 368 |
015743,000307: 14,2325 77776 MAKEXSMD EXIT # XSM V YSM SW ZSM SE
015744,000308:
015745,000309: 14,2326 33662 CAF 17DEC # ZERO XSM, YSM, AND ZSM
015746,000310: 14,2327 55777 TS ZERONDX
015747,000311: 14,2330 33700 CAF XSMADRX
015748,000312: 14,2331 05224 TC BANKCALL
015749,000313: 14,2332 51240 CADR ZEROING # VERT SOUTH EAST
015750,000314:
015751,000315: 14,2333 37740 CAF HALF # XSM * +1 0 0 *
015752,000316: 14,2334 55400 TS XSM # * *
015753,000317: 14,2335 06103 TC INTPRET # * *
015754,000318: 14,2336 73545 DLOAD SIN # YSM * 0 +SIN(AZ) +COS(AZ) *
015755,000319: 14,2337 02507 AZIMUTH # * *
015756,000320: 14,2340 02411 STORE XSM +8D # * *
015757,000321: 14,2341 16421 STODL XSM +16D # ZSM * 0 -COS(AZ) +SIN(AZ) *
015758,000322: 14,2342 02507 AZIMUTH
015759,000323: 14,2343 77746 COS
015760,000324: 14,2344 02413 STORE XSM +10D
015761,000325: 14,2345 77676 DCOMP
015762,000326: 14,2346 02417 STORE XSM +14D
015763,000327: 14,2347 77616 RVQ
015764,000328:
015765,000329:
015766,000330:
015767,000331: 14,2350 77170 TAR/EREF AXT,1 AXT,2 # TARGET VECTOR
015768,000332: 14,2351 00002 2 # SIN(EL) -COS(AZ)COS(EL) SIN(AZ)COS(EL)
015769,000333: 14,2352 00014 12D
015770,000334: 14,2353 77731 SSP
015771,000335: 14,2354 00052 S2
015772,000336: 14,2355 00006 6 # TARGET 1 TARGET 2
015773,000337:
015774,000338: 14,2356 60533 TAR1 SLOAD* SR2 # X1=2 X2=12 S2=6 . X1=0 X2=6 S2=6
015775,000339: 14,2357 02557 TAZEL1 +3,1
015776,000340: 14,2360 00001 STORE 0 # PD00 ELEVATION PD00
015777,000341: 14,2361 77756 SIN
015778,000342: 14,2362 10023 STORE 18D,2 # PD06 *** SIN(EL) *** PD12
015779,000343: 14,2363 77745 DLOAD
015780,000344: 14,2364 00001 0
015781,000345: 14,2365 41546 COS PUSH # PDOO COS(EL) PD00
015782,000346: 14,2366 47133 SLOAD* RTB
015783,000347: 14,2367 02556 TAZEL1 +2,1
015784,000348: 14,2370 33524 CDULOGIC
015785,000349: 14,2371 00003 STORE 2 # PD02 AZIMUTH PD02
015786,000350: 14,2372 41356 SIN DMP
015787,000351: 14,2373 00001 0
015788,000352: 14,2374 77752 SL1
015789,000353: 14,2375 10027 STORE 22D,2 # PD10 *** +SIN(AZ)COS(EL) *** PD16
015790,000354: 14,2376 77745 DLOAD
015791,000355: 14,2377 00003 2
015792,000356: 14,2400 41346 COS DMP
|
|
Page 369 |
015794,000358: 14,2401 57552 SL1 DCOMP
015795,000359: 14,2402 10025 STORE 20D,2 # PD08 *** -COS(AZ)COS(EL) *** PD14
015796,000360:
015797,000361: 14,2403 61170 AXT,1 TIX,2
015798,000362: 14,2404 00000 0
015799,000363: 14,2405 30356 TAR1
015800,000364: 14,2406 77616 RVQ
015801,000365:
|
|
Page 370 |
015803,000367: 14,2407 65345 ERTHRVSE DLOAD PDDL
015804,000368: 14,2410 33152 ZERODP # PD24 = (SIN -COS 0)(OMEG/MS)
015805,000369: 14,2411 02511 LATITUDE
015806,000370: 14,2412 57546 COS DCOMP
015807,000371: 14,2413 73525 PDDL SIN
015808,000372: 14,2414 02511 LATITUDE # EARTH RATE = .1504 ARCSEC / 10 MSEC
015809,000373: 14,2415 74266 VDEF VXSC # 1.618 GYRO PULSES = 1 ARCSEC
015810,000374: 14,2416 31704 OMEG/MS # OMEG/MS = .243... GYRO PULSES / 10 MSEC
015811,000375: 14,2417 02514 STORE ERVECTOR
015812,000376:
015813,000377: 14,2420 77634 RTB
015814,000378: 14,2421 33521 LOADTIME
015815,000379: 14,2422 02565 STORE TMARK # TIME FOR GYRO DRIFT - PIPA SCALE FACTOR
015816,000380: 14,2423 77616 RVQ
015817,000381:
015818,000382:
015819,000383:
015820,000384: 14,2424 05253 EARTHR TC MAKECADR # CALCULATES AND COMPENSATES EARTH RATE
015821,000385: 14,2425 55547 TS QPLACES
015822,000386:
015823,000387: 14,2426 06103 TC INTPRET
015824,000388: 14,2427 77634 RTB
015825,000389: 14,2430 33521 LOADTIME # T(PRESENT)
015826,000390: 14,2431 02562 STORE TEMPTIME
015827,000391: 14,2432 54225 DSU SL
015828,000392: 14,2433 02565 TMARK # T(PRES) - T(PREV) = DT SCALED 10 MSEC
015829,000393: 14,2434 20212 9D # 2 TO 21ST POWER = 1 REVOLUTION
015830,000394: 14,2435 64361 VXSC MXV
015831,000395: 14,2436 02514 ERVECTOR # VT = (SIN -COS 0)(OMEG/MS)(DT)
015832,000396: 14,2437 02401 XSM # (XSM)(VT) = EARTH RATE COMPENSATION
015833,000397: 14,2440 77655 VAD
015834,000398: 14,2441 02772 ERCOMP
015835,000399: 14,2442 16772 STODL ERCOMP
015836,000400: 14,2443 02562 TEMPTIME
015837,000401: 14,2444 02565 STORE TMARK # T(PREVIOUS)
015838,000402:
015839,000403: 14,2445 47170 AXT,1 RTB
015840,000404: 14,2446 02771 ECADR ERCOMP
015841,000405: 14,2447 33674 PULSEIMU # TO PUT OUT GYRO TORQUING PULSES
015842,000406: 14,2450 77776 EXIT
015843,000407:
015844,000408: 14,2451 05224 TC BANKCALL
015845,000409: 14,2452 26762 CADR IMUSTALL # WAIT FOR PULSES TO GET OUT
015846,000410: 14,2453 12747 TCF ENDTEST
015847,000411: 14,2454 31547 CAE QPLACES
015848,000412: 14,2455 15246 TCF BANKJUMP
015849,000413:
|
|
Page 371 |
015851,000415: 14,2456 00006 STORRSLT EXTEND
015852,000416: 14,2457 23546 QXCH QPLACE
015853,000417:
015854,000418: 14,2460 06103 TC INTPRET # DP TIME IN MPAC SCALED .312(5) MSEC
015855,000419: 14,2461 54340 LXC,1 SL
015856,000420: 14,2462 02537 NDXCTR
015857,000421: 14,2463 20204 3
015858,000422: 14,2464 47005 DMP RTB
015859,000423: 14,2465 31702 SCALFTR
015860,000424: 14,2466 33565 SGNAGREE
015861,000425: 14,2467 06571 STORE GENPL,1 # STORE DP TIME
015862,000426: 14,2470 77776 EXIT
015863,000427:
015864,000428: 14,2471 57551 XCH STOREPL # CONTAINS C(PIPAI)
015865,000429: 14,2472 51537 INDEX NDXCTR
015866,000430: 14,2473 55572 TS GENPL +2 # STORE PIPA COUNTER READING
015867,000431: 14,2474 41537 CS NDXCTR
015868,000432: 14,2475 63666 AD 72DEC
015869,000433: 14,2476 00006 EXTEND
015870,000434:
015871,000435: 14,2477 63125 BZMF MISALIGN # TO CALCULATE MISALIGNMENT
015872,000436: 14,2500 36301 CAF THREE
015873,000437: 14,2501 27537 ADS NDXCTR
015874,000438: 14,2502 01546 TC QPLACE
015875,000439:
015876,000440: 14,2503 00006 OPTDATA EXTEND # CALLS FOR AZIMUTH AND ELEVATION OF
015877,000441: 14,2504 23546 QXCH QPLACE # TARGET 1, THEN TARGET 2
015878,000442:
015879,000443: 14,2505 37755 CAF BIT1 # AZIMUTH CLOCKWISE FROM NORTH TO TARGET
015880,000444: 14,2506 22007 ZL # ELEVATION MEASURED FROM HORIZONTAL
015881,000445: 14,2507 23550 LXCH RUN
015882,000446: 14,2510 54341 TS DSPTEM1 +2
015883,000447: 14,2511 33654 CAF V05N30E # DISPLAY TARGET NUMBER IN R3
015884,000448: 14,2512 04646 TC NVSBWAIT
015885,000449: 14,2513 51550 INDEX RUN
015886,000450: 14,2514 53554 DXCH TAZEL1
015887,000451: 14,2515 52340 DXCH DSPTEM1
015888,000452:
015889,000453: 14,2516 02556 TC CHECKLD # R1 +- XXX.XX AZIMUTH IN DEGREES
015890,000454: 14,2517 00661 OCT 00661 # R2 +- XX.XXX ELEVATION IN DEGREES
015891,000455: 14,2520 12747 TCF ENDTEST # R3 0000X TARGET NUMBER 1 OR 2
015892,000456:
015893,000457: 14,2521 52340 DXCH DSPTEM1 # TAZEL1 TARGET 1 AZIMUTH
015894,000458:
015895,000459: 14,2522 51550 INDEX RUN
015896,000460: 14,2523 53554 DXCH TAZEL1 # TAZEL1 +2 TARGET 2 AZIMUTH
015897,000461: 14,2524 11550 CCS RUN
015898,000462: 14,2525 12531 TCF +4
015899,000463: 14,2526 37754 OPTRDRIN CAF TWO # SPECIAL ENTRY FOR RDR37511
015900,000464: 14,2527 54001 TS L
015901,000465: 14,2530 12507 TCF OPTDATA +4 # MPAC 1ST PASS = 0 2ND PASS = 2
015902,000466: 14,2531 01546 TC QPLACE
015903,000467:
|
|
Page 372 |
015905,000469: 14,2532 62545 LATAZCHK DLOAD SL2 # CALLS FOR AZIMUTH (SM) AND LATITUDE
015906,000470: 14,2533 02511 LATITUDE
015907,000471:
015908,000472: 14,2534 14341 STODL DSPTEM1 +1
015909,000473: 14,2535 02507 AZIMUTH # ...NOT REALLY...
015910,000474:
015911,000475: 14,2536 77434 RTB EXIT
015912,000476: 14,2537 33567 1STO2S # FRACTION OF REVOLUTION TO 2S COMPLEMENT
015913,000477:
015914,000478: 14,2540 56144 XCH MPAC # AZIMUTH MUST BE 135 DEGREES R1 = +13500
015915,000479: 14,2541 54337 TS DSPTEM1 # FOR SXT-NB-IMU FINE ALIGNMENT TEST
015916,000480: 14,2542 02556 TC CHECKLD # R1 +- XXX.XX AZIMUTH IN DEGREES (SM)
015917,000481: 14,2543 00661 OCT 00661 # R2 +- XX.XXX LATITUDE IN DEGREES
015918,000482: 14,2544 12747 TCF ENDTEST # R3 NOT USED
015919,000483:
015920,000484: 14,2545 06103 TC INTPRET
015921,000485: 14,2546 47135 SLOAD RTB
015922,000486: 14,2547 00340 DSPTEM1
015923,000487: 14,2550 33524 CDULOGIC # BACK TO FRACTION OF REVOLUTION
015924,000488: 14,2551 02507 STORE AZIMUTH
015925,000489:
015926,000490: 14,2552 60535 SLOAD SR2
015927,000491: 14,2553 00341 DSPTEM1 +1
015928,000492: 14,2554 02511 STORE LATITUDE
015929,000493: 14,2555 77616 RVQ
015930,000494:
015931,000495:
015932,000496: 14,2556 00006 CHECKLD EXTEND
015933,000497: 14,2557 23545 QXCH QPLAC
015934,000498:
015935,000499: 14,2560 51545 INDEX QPLAC
015936,000500: 14,2561 30000 CA A
015937,000501: 14,2562 04433 TC NVSUB
015938,000502: 14,2563 12575 TCF CHECKLD1
015939,000503:
015940,000504: 14,2564 04611 TC FLASHON
015941,000505:
015942,000506: 14,2565 04464 TC ENDIDLE # CHANGE R1 V21 N61 E +- XXX.XX E
015943,000507: 14,2566 12571 TCF +3 # CHANGE R2 V22 N61 E +- XX.XXX E
015944,000508: 14,2567 12573 TCF +4 # VERIFY, THEN PROCEED WITH VERB 33 ENTER
015945,000509: 14,2570 12560 TCF CHECKLD +2
015946,000510: 14,2571 51545 INDEX QPLAC
015947,000511: 14,2572 00001 TC 1
015948,000512: 14,2573 51545 INDEX QPLAC
015949,000513: 14,2574 00002 TC 2
015950,000514:
015951,000515: 14,2575 32577 CHECKLD1 CAF CHECKLD2
015952,000516: 14,2576 04643 TC NVSUBUSY
015953,000517: 14,2577 30560 CHECKLD2 CADR CHECKLD +2
015954,000518:
|
|
Page 373 |
015956,000520: 14,2600 00006 POSNJUMP EXTEND # POSITIONS FOR SXTNBIMU
015957,000521: 14,2601 23546 QXCH QPLACE
015958,000522:
015959,000523: 14,2602 51544 INDEX POSITON
015960,000524: 14,2603 12604 TCF +1
015961,000525: 14,2604 12747 TCF ENDTEST
015962,000526: 14,2605 12612 TCF POS1
015963,000527: 14,2606 12617 TCF POS2
015964,000528:
015965,000529: 14,2607 12635 TCF POS3
015966,000530: 14,2610 12656 TCF POS4
015967,000531: 14,2611 12710 TCF POS5
015968,000532:
015969,000533:
015970,000534:
015971,000535: 14,2612 37755 POS1 CAF ONE # XSM = V YSM = SW ZSM = SE
015972,000536: 14,2613 55542 TS PIPNDX
015973,000537: 14,2614 37754 CAF TWO
015974,000538: 14,2615 55543 TS PIPNDX +1 # MONITOR PIPAY AND PIPAZ
015975,000539: 14,2616 01546 TC QPLACE
015976,000540:
015977,000541:
015978,000542:
015979,000543: 14,2617 06103 POS2 TC INTPRET # XSM = SE YSM = SW ZSM = -V
015980,000544: 14,2620 57575 VLOAD VCOMP
015981,000545: 14,2621 02401 XSM
015982,000546: 14,2622 77715 PDVL
015983,000547: 14,2623 02415 ZSM
015984,000548: 14,2624 26401 STOVL XSM
015985,000549: 14,2625 77626 STADR
015986,000550: 14,2626 75362 STORE ZSM
015987,000551: 14,2627 77776 EXIT
015988,000552:
015989,000553: 14,2630 37761 CAF ZERO
015990,000554: 14,2631 55542 TS PIPNDX
015991,000555: 14,2632 37755 CAF ONE
015992,000556: 14,2633 55543 TS PIPNDX +1 # MONITOR PIPAX AND PIPAY
015993,000557: 14,2634 01546 TC QPLACE
015994,000558:
015995,000559:
015996,000560:
015997,000561: 14,2635 06103 POS3 TC INTPRET # XSM = SE YSM = V ZSM = SW
015998,000562: 14,2636 63375 VLOAD PDVL
015999,000563: 14,2637 02401 XSM
016000,000564: 14,2640 02407 YSM
016001,000565: 14,2641 77715 PDVL
016002,000566: 14,2642 02415 ZSM
016003,000567: 14,2643 26401 STOVL XSM
016004,000568:
016005,000569: 14,2644 77626 STADR
016006,000570: 14,2645 51362 STOVL ZSM
016007,000571:
|
|
Page 374 |
016009,000573: 14,2646 77626 STADR
016010,000574: 14,2647 75370 STORE YSM
016011,000575: 14,2650 77776 EXIT
016012,000576: 14,2651 37761 CAF ZERO
016013,000577: 14,2652 55542 TS PIPNDX
016014,000578: 14,2653 37754 CAF TWO
016015,000579: 14,2654 55543 TS PIPNDX +1 # MONITOR PIPAX AND PIPAZ
016016,000580: 14,2655 01546 TC QPLACE
016017,000581:
016018,000582:
016019,000583:
016020,000584: 14,2656 37751 POS4 CAF BIT5 # OPTION TO ALIGN SM TO SPECIFIED ANGLES
016021,000585: 14,2657 60110 AD FIXLOC
016022,000586: 14,2660 50110 INDEX FIXLOC
016023,000587:
016024,000588: 14,2661 54050 TS S1 # BASE ADDRESS GIMBAL ANGLES
016025,000589: 14,2662 33660 CAF V25N22E # R1 +- XXX.XX OUTER GIMBAL ANGLE
016026,000590: 14,2663 04646 TC NVSBWAIT # R2 +- XXX.XX INNER GIMBAL ANGLE
016027,000591: 14,2664 04464 TC ENDIDLE # R3 +- XXX.XX MIDDLE GIMBAL ANGLE
016028,000592: 14,2665 12747 TCF ENDTEST
016029,000593: 14,2666 12662 TCF -4
016030,000594: 14,2667 30400 CA THETAD # SET UP ANGLES FOR SMNB
016031,000595: 14,2670 50110 INDEX FIXLOC
016032,000596: 14,2671 54024 TS 24
016033,000597: 14,2672 30401 CA THETAD +1
016034,000598: 14,2673 50110 INDEX FIXLOC
016035,000599: 14,2674 54020 TS 20
016036,000600: 14,2675 30402 CA THETAD +2
016037,000601: 14,2676 50110 INDEX FIXLOC
016038,000602: 14,2677 54022 TS 22
016039,000603:
016040,000604: 14,2700 06103 TC INTPRET
016041,000605: 14,2701 45034 RTB CALL
016042,000606: 14,2702 33076 TRANSPSE # EARTH REF WRT NAV BASE
016043,000607: 14,2703 33110 SMD/EREF # STABLE MEMBER DESIRED WRT EARTH REF
016044,000608: 14,2704 77634 RTB
016045,000609: 14,2705 33076 TRANSPSE # BACK TO NAV BASE WRT TO EARTH REF
016046,000610: 14,2706 77776 EXIT
016047,000611:
016048,000612: 14,2707 01546 TC QPLACE
016049,000613:
|
|
Page 375 |
016051,000615: 14,2710 31546 POS5 CA QPLACE # OPTION TO ALIGN SM TO ANY ORIENTATION
016052,000616: 14,2711 55551 TS STOREPL # WRT EARTH REFERENCE FRAME
016053,000617:
016054,000618: 14,2712 02503 TC OPTDATA # LOAD YSM AND ZSM AZIMUTH AND ELEVATION
016055,000619:
016056,000620: 14,2713 06103 TC INTPRET
016057,000621: 14,2714 77624 CALL
016058,000622: 14,2715 30350 TAR/EREF # CALC YSM AND ZSM WRT EARTH REF. FRAME
016059,000623: 14,2716 41575 VLOAD PUSH
016060,000624: 14,2717 00007 6D
016061,000625: 14,2720 02407 STORE YSM
016062,000626: 14,2721 76435 VXV VSL1
016063,000627: 14,2722 00015 12D
016064,000628: 14,2723 02401 STORE XSM # XSM = (YSM) X (ZSM)
016065,000629: 14,2724 76435 VXV VSL1
016066,000630: 14,2725 77626 STADR
016067,000631: 14,2726 75362 STORE ZSM # ZSM = (XSM) X (YSM)
016068,000632: 14,2727 77776 EXIT
016069,000633:
016070,000634: 14,2730 01551 TC STOREPL
|
|
Page 376 |
016072,000636: 14,2731 00006 OGCZERO EXTEND # ZERO EARTH RATE TORQUING ANGLES
016073,000637: 14,2732 23546 QXCH QPLACE
016074,000638:
016075,000639: 14,2733 06103 TC INTPRET
016076,000640: 14,2734 77775 VLOAD
016077,000641: 14,2735 33152 ZERODP # VECTOR IN THIS CASE
016078,000642: 14,2736 02772 STORE ERCOMP
016079,000643: 14,2737 77776 EXIT
016080,000644: 14,2740 01546 TC QPLACE
016081,000645:
016082,000646:
016083,000647:
016084,000648: 14,2741 37750 GMLCKCHK CAF BIT6 # CHECK FOR GIMBAL LOCK (MGA GREATER 70)
016085,000649: 14,2742 70326 MASK DSPTAB +11D
016086,000650: 14,2743 00006 EXTEND
016087,000651: 14,2744 12746 BZF +2
016088,000652: 14,2745 12747 TCF ENDTEST
016089,000653: 14,2746 00002 TC Q
016090,000654:
016091,000655:
016092,000656:
016093,000657: 14,2747 37746 ENDTEST CA IMUSEFLG # BIT8
016094,000658:
016095,000659: 14,2750 67747 AD RRUSEFLG # BIT7
016096,000660: 14,2751 40000 CS A
016097,000661: 14,2752 00004 INHINT
016098,000662: 14,2753 70074 MASK STATE
016099,000663: 14,2754 54074 TS STATE
016100,000664:
016101,000665: 14,2755 04105 TC NEWMODEX
016102,000666: 14,2756 00000 OCT 00000
016103,000667:
016104,000668: 14,2757 05224 TC BANKCALL
016105,000669: 14,2760 27060 CADR MKRELEAS # RELEASE MARK SYSTEM
016106,000670: 14,2761 05604 TC EJFREE
016107,000671:
|
|
Page 377 |
016109,000673: 14,2762 06103 LEMLAB TC INTPRET
016110,000674: 14,2763 57575 VLOAD VCOMP
016111,000675: 14,2764 33146 YUNIT
016112,000676:
016113,000677: 14,2765 02437 STORE ZNB # XNB MATRIX USED IN CALCGA
016114,000678: 14,2766 26461 STOVL STARAD +12D # STARAD MATRIX USED IN AXISGEN * SMDCALC
016115,000679: 14,2767 33150 XUNIT
016116,000680:
016117,000681: 14,2770 02423 STORE XNB # *XNB* *1 0 0* *V*
016118,000682: 14,2771 26445 STOVL STARAD # * * * * * *
016119,000683: 14,2772 33144 ZUNIT # *YNB* = *0 0 1* *S*
016120,000684: 14,2773 02431 STORE YNB # * * * * * *
016121,000685: 14,2774 02453 STORE STARAD +6 # *ZNB* *0 -1 0* *E*
016122,000686: 14,2775 77776 EXIT
016123,000687:
016124,000688: 14,2776 41544 CS POSITON
016125,000689: 14,2777 66301 AD THREE
016126,000690: 14,3000 00006 EXTEND
016127,000691: 14,3001 13003 BZF +2
016128,000692: 14,3002 13016 TCF LEMLAB1
016129,000693:
016130,000694: 14,3003 06103 TC INTPRET
016131,000695: 14,3004 57575 VLOAD VCOMP
016132,000696: 14,3005 02423 XNB
016133,000697: 14,3006 77715 PDVL # *XNB* * 0 -1 0* *V*
016134,000698: 14,3007 02437 ZNB # * * * * * *
016135,000699: 14,3010 02423 STORE XNB # *YNB* = * 0 0 1* *S*
016136,000700: 14,3011 26445 STOVL STARAD # * * * * * *
016137,000701: 14,3012 77626 STADR # *ZNB* *-1 0 0* * *
016138,000702: 14,3013 75340 STORE ZNB
016139,000703: 14,3014 02461 STORE STARAD +12D
016140,000704: 14,3015 77776 EXIT
016141,000705:
016142,000706: 14,3016 05224 LEMLAB1 TC BANKCALL
016143,000707: 14,3017 26762 CADR IMUSTALL # INSURE IMUZERO COMPLETION
016144,000708:
016145,000709: 14,3020 12747 TCF ENDTEST
016146,000710:
016147,000711: 14,3021 02600 TC POSNJUMP # SET UP STABLE MEMBER DESIRED COORDINATES
016148,000712: 14,3022 04713 TC FREEDSP # FREE DISPLAY SYSTEM
016149,000713: 14,3023 02247 TC PUTPOSX # TO COARSE ALIGN STABLE MEMBER
016150,000714:
016151,000715: 14,3024 02741 TC GMLCKCHK
016152,000716:
016153,000717: 14,3025 05224 TC BANKCALL
016154,000718: 14,3026 26251 CADR IMUFINE # FINE ALIGN MODE
016155,000719: 14,3027 05224 TC BANKCALL
016156,000720: 14,3030 26762 CADR IMUSTALL
016157,000721: 14,3031 12747 TCF ENDTEST
016158,000722:
|
|
Page 378 |
016160,000724: 14,3032 30032 CA CDUX
016161,000725: 14,3033 50110 INDEX FIXLOC
016162,000726: 14,3034 54024 TS 24
016163,000727: 14,3035 30033 CA CDUY
016164,000728: 14,3036 50110 INDEX FIXLOC
016165,000729: 14,3037 54020 TS 20
016166,000730: 14,3040 30034 CA CDUZ
016167,000731: 14,3041 50110 INDEX FIXLOC
016168,000732: 14,3042 54022 TS 22
016169,000733:
016170,000734: 14,3043 37751 CAF BIT5
016171,000735: 14,3044 60110 AD FIXLOC
016172,000736: 14,3045 50110 INDEX FIXLOC
016173,000737: 14,3046 54050 TS S1
016174,000738:
016175,000739: 14,3047 02263 TC SMDCALC # TO FINE ALIGN STABLE MEMBER
016176,000740:
016177,000741: 14,3050 06103 TC INTPRET # IF EARTH RATE COMPENSATION DESIRED
016178,000742: 14,3051 77634 RTB
016179,000743: 14,3052 33521 LOADTIME
016180,000744: 14,3053 02565 STORE TMARK
016181,000745: 14,3054 77776 EXIT
016182,000746:
016183,000747: 14,3055 41512 CS EROPTN
016184,000748: 14,3056 67754 AD TWO
016185,000749: 14,3057 00006 EXTEND
016186,000750: 14,3060 13062 BZF +2
016187,000751:
016188,000752: 14,3061 12051 TCF ERFINAL +2
016189,000753:
016190,000754: 14,3062 05224 TC BANKCALL
016191,000755: 14,3063 47237 CADR SAMODRTN # RETURN TO SEMI-AUTOMATIC MODING TEST
016192,000756:
|
|
Page 379 |
016194,000758: 14,3064 33676 RDR37511 CAF RDRRETN # RENDEZVOUS RADAR AND ANTENNA TRACKING
016195,000759: 14,3065 55546 TS QPLACE # TO RETURN FROM OPTDATA
016196,000760:
016197,000761: 14,3066 05224 TC BANKCALL
016198,000762: 14,3067 20247 CADR RRZERO
016199,000763:
016200,000764: 14,3070 05224 TC BANKCALL
016201,000765: 14,3071 22765 CADR AURLOKON # OPERATOR DECISION TO LOCK ON OR NOT
016202,000766:
016203,000767: 14,3072 12526 RDR1 TCF OPTRDRIN # CALL FOR AZIMUTH AND ELEVATION
016204,000768:
016205,000769: 14,3073 05224 TC BANKCALL
016206,000770: 14,3074 26756 CADR RADSTALL
016207,000771: 14,3075 15605 TCF ENDOFJOB
016208,000772:
016209,000773: 14,3076 06103 TC INTPRET
016210,000774: 14,3077 77170 AXT,1 AXT,2 # SET UP X1 AND X2 FOR TAR/EREF
016211,000775: 14,3100 00000 0
016212,000776: 14,3101 00006 6
016213,000777: 14,3102 77624 CALL
016214,000778: 14,3103 30353 TAR/EREF +3 # LINE-OF-SIGHT WRT EARTH REF FRAME
016215,000779: 14,3104 64375 VLOAD MXV
016216,000780: 14,3105 00015 12D # LINE-OF-SIGHT WRT EARTH REF FRAME
016217,000781: 14,3106 02401 XSM # TO STABLE MEMBER PRESENT FRAME
016218,000782: 14,3107 77772 VSL1
016219,000783: 14,3110 34416 STCALL RRTARGET
016220,000784: 14,3111 20306 RRDESSM
016221,000785:
016222,000786: 14,3112 13117 TCF 37511ALM
016223,000787: 14,3113 05224 TC BANKCALL
016224,000788: 14,3114 26756 CADR RADSTALL
016225,000789: 14,3115 15605 TCF ENDOFJOB
016226,000790: 14,3116 15605 TCF ENDOFJOB
016227,000791:
016228,000792:
016229,000793:
016230,000794: 14,3117 04744 37511ALM TC ALARM
016231,000795: 14,3120 00524 OCT 524
016232,000796: 14,3121 15605 TCF ENDOFJOB
016233,000797:
016234,000798:
016235,000799:
016236,000800: 14,3122 47761 RDRINIT CS ZERO
016237,000801: 14,3123 55512 TS EROPTN
016238,000802: 14,3124 12002 TCF AOTNBIMU +2
016239,000803:
|
|
Page 380 |
016241,000805: 14,3125 04633 MISALIGN TC GRABWAIT # DISPLAY SYSTEM WAS FREED
016242,000806: 14,3126 37761 CAF ZERO
016243,000807:
016244,000808: 14,3127 55537 TS NDXCTR
016245,000809: 14,3130 51537 BBBB INDEX NDXCTR
016246,000810: 14,3131 41674 CS GENPL +68D
016247,000811: 14,3132 51537 INDEX NDXCTR
016248,000812: 14,3133 27702 ADS GENPL +74D
016249,000813: 14,3134 33664 CAF 63DEC
016250,000814: 14,3135 61537 AD NDXCTR
016251,000815: 14,3136 10000 CCS A
016252,000816: 14,3137 46301 CS THREE
016253,000817: 14,3140 27537 ADS NDXCTR
016254,000818: 14,3141 13130 TCF BBBB
016255,000819: 14,3142 55537 TS NDXCTR
016256,000820:
016257,000821:
016258,000822:
016259,000823: 14,3143 06103 CCCC TC INTPRET
016260,000824: 14,3144 70750 LXA,1 DLOAD*
016261,000825: 14,3145 02537 NDXCTR
016262,000826: 14,3146 02701 GENPL +72D,1
016263,000827: 14,3147 77625 DSU
016264,000828: 14,3150 02571 GENPL
016265,000829: 14,3151 06701 STORE GENPL +72D,1
016266,000830: 14,3152 77776 EXIT
016267,000831:
016268,000832: 14,3153 41537 CS NDXCTR
016269,000833: 14,3154 63665 AD 69DEC
016270,000834: 14,3155 10000 CCS A
016271,000835: 14,3156 36301 CAF THREE
016272,000836: 14,3157 27537 ADS NDXCTR
016273,000837: 14,3160 13143 TCF CCCC
016274,000838: 14,3161 55550 TS RUN
016275,000839: 14,3162 36301 CAF THREE
016276,000840: 14,3163 55537 TS NDXCTR
016277,000841:
016278,000842:
016279,000843:
016280,000844: 14,3164 06103 DDDD TC INTPRET
016281,000845: 14,3165 77775 VLOAD
016282,000846: 14,3166 33152 ZERODP
016283,000847: 14,3167 00031 STORE 24D
016284,000848: 14,3170 00037 STORE 30D
016285,000849: 14,3171 77735 SLOAD
016286,000850: 14,3172 31662 11DEC
016287,000851: 14,3173 00041 STORE 32D
016288,000852: 14,3174 77776 EXIT
016289,000853:
016290,000854: 14,3175 06103 DDDD1 TC INTPRET
016291,000855:
016292,000856: 14,3176 70750 LXA,1 DLOAD*
016293,000857: 14,3177 02537 NDXCTR
016294,000858:
|
|
Page 381 |
016296,000860: 14,3200 02701 GENPL +72D,1
016297,000861: 14,3201 41423 DSU* PUSH
016298,000862: 14,3202 02673 GENPL +66D,1
016299,000863: 14,3203 42742 SR1 DAD*
016300,000864: 14,3204 02673 GENPL +66D,1
016301,000865: 14,3205 06701 STORE GENPL +72D,1
016302,000866:
016303,000867: 14,3206 43312 SL2 DAD
016304,000868:
016305,000869: 14,3207 00031 24D
016306,000870: 14,3210 20031 STODL* 24D
016307,000871: 14,3211 02701 GENPL +72D,1
016308,000872: 14,3212 63412 SL4 DSQ
016309,000873: 14,3213 77615 DAD
016310,000874: 14,3214 00033 26D
016311,000875: 14,3215 00033 STORE 26D
016312,000876: 14,3216 77776 EXIT
016313,000877: 14,3217 31550 CAE RUN
016314,000878: 14,3220 61537 AD NDXCTR
016315,000879: 14,3221 40000 COM
016316,000880: 14,3222 63664 AD 63DEC
016317,000881: 14,3223 10000 CCS A
016318,000882: 14,3224 36276 CAF SIX
016319,000883: 14,3225 27537 ADS NDXCTR
016320,000884: 14,3226 13175 TCF DDDD1
016321,000885: 14,3227 61550 AD RUN
016322,000886: 14,3230 55537 TS NDXCTR
016323,000887:
016324,000888:
016325,000889:
016326,000890: 14,3231 06103 EEEE TC INTPRET
016327,000891: 14,3232 66740 LXC,1 SLOAD*
016328,000892:
016329,000893: 14,3233 02537 NDXCTR
016330,000894: 14,3234 02604 GENPL +11D,1
016331,000895: 14,3235 00043 STORE 34D
016332,000896: 14,3236 77745 DLOAD
016333,000897: 14,3237 54206 PUSH SL
016334,000898: 14,3240 20211 8D
016335,000899: 14,3241 43265 BDDV DAD
016336,000900: 14,3242 00043 34D
016337,000901: 14,3243 00035 28D
016338,000902: 14,3244 14035 STODL 28D
016339,000903: 14,3245 55261 SL BDDV
016340,000904: 14,3246 20207 6
016341,000905: 14,3247 00043 34D
016342,000906: 14,3250 42523 PDDL* SL4
016343,000907: 14,3251 02602 GENPL +9D,1
016344,000908: 14,3252 77605 DMP
016345,000909: 14,3253 77615 DAD
016346,000910: 14,3254 00037 30D
016347,000911: 14,3255 00037 STORE 30D
016348,000912:
|
|
Page 382 |
016350,000914: 14,3256 77776 EXIT
016351,000915: 14,3257 41537 CS NDXCTR
016352,000916: 14,3260 63663 AD 60DEC
016353,000917: 14,3261 61550 AD RUN
016354,000918: 14,3262 10000 CCS A
016355,000919: 14,3263 36276 CAF SIX
016356,000920: 14,3264 27537 ADS NDXCTR
016357,000921: 14,3265 13231 TCF EEEE
016358,000922:
016359,000923:
016360,000924:
016361,000925: 14,3266 06103 TC INTPRET
016362,000926: 14,3267 41345 DLOAD DMP
016363,000927: 14,3270 00031 24D
016364,000928:
016365,000929: 14,3271 00037 30D
016366,000930: 14,3272 41325 PDDL DMP
016367,000931: 14,3273 00033 26D
016368,000932: 14,3274 00035 28D
016369,000933: 14,3275 77625 DSU
016370,000934: 14,3276 63525 PDDL DSQ
016371,000935: 14,3277 00031 24D
016372,000936: 14,3300 65342 SR1 PDDL
016373,000937: 14,3301 00041 32D
016374,000938: 14,3302 41261 SL DMP
016375,000939: 14,3303 20212 11
016376,000940: 14,3304 00033 26D
016377,000941: 14,3305 55225 DSU BDDV
016378,000942: 14,3306 54205 DMP SL
016379,000943: 14,3307 31675 KKKK
016380,000944: 14,3310 20204 3
016381,000945: 14,3311 00343 STORE DSPTEM2
016382,000946: 14,3312 77776 EXIT
016383,000947:
016384,000948: 14,3313 31544 CA POSITON
016385,000949: 14,3314 54344 TS DSPTEM2 +2
016386,000950:
016387,000951: 14,3315 33656 CAF V06N66E
016388,000952:
016389,000953: 14,3316 04646 TC NVSBWAIT
016390,000954: 14,3317 04611 TC FLASHON
016391,000955: 14,3320 04464 TC ENDIDLE
016392,000956: 14,3321 12747 TCF ENDTEST
016393,000957: 14,3322 36301 CAF THREE
016394,000958: 14,3323 55550 TS RUN
016395,000959: 14,3324 37761 CAF ZERO
016396,000960: 14,3325 13163 TCF DDDD -1
016397,000961:
|
|
Page 383 |
016399,000963: # THIS REVISION REFLECTS CHANGES AS OF
016400,000964: # 1/31/66
016401,000965: # ENGINE ON/OFF NOW IN CHANNEL ELEVEN. THE BITS FOR EACH CHANNEL GET TURNED ON ALL AT ONCE. THEY STAY ON UNTIL
016402,000966: # :ENTER:IS PUSHED. THEN THEY ALL GO OUT AND THE NEXT CHANNEL:S BITS ARE TURNED ON.
016403,000967: # CHANNEL 5 BITS 1-8
016404,000968: # CHANNEL 6 BITS 1-8
016405,000969: # CHANNEL 11 BITS 13,14
016406,000970: # CHANNEL 12 BITS 9-14
016407,000971: # FOLLOWING THE CHANNEL 12 TESTS ENTER IS PRESSED. CHANNEL 12 IS SET TO ZERO AND THE NEXT TEST BEGUN. LOW9
016408,000972: # GOES IN LOCATION (COUNTER) 55.
016409,000973: # INCREASE THROTTLE RATE DESCENT ENGINE
016410,000974: # :ENTER: NOW CAUSES THE CONTENTS OF 55 TO BE MADE NEGATIVE
016411,000975: # DECREASE THROTTLE RATE DESCENT ENGINE
016412,000976: # THE NEXT :ENTER: ZEROS THE REGISTER AND SENDS A PULSE TRAIN (HERE ALTERN
016413,000977: # ZEROS FOR CLARITY) TO THE ALTITUDE METER.
016414,000978: # THE NEXT :ENTER: WILL ADVANCE THE TEST TO THE ALTITUDE RATE METER TEST.
016415,000979: # THE NEXT :ENTER : WILL TERMINATE THE TEST.
016416,000980:
016417,000981:
016418,000982:
016419,000983: 14,3326 37735 SAUTOIFS CA POSMAX
016420,000984: 14,3327 55576 TS NOBITS
016421,000985: 14,3330 37761 CA ZERO
016422,000986: 14,3331 55577 TS CHAN
016423,000987: 14,3332 55575 TS TEMP
016424,000988: 14,3333 03335 TC DINO
016425,000989: 14,3334 25577 BACK1 INCR CHAN
016426,000990:
016427,000991: 14,3335 51577 DINO INDEX CHAN
016428,000992: 14,3336 33340 CA SAUTLOCS
016429,000993: 14,3337 15230 TCF SWCALL
016430,000994: 14,3340 31354 SAUTLOCS CADR CHAN5D
016431,000995: 14,3341 31372 CADR CHAN6D
016432,000996: 14,3342 31400 CADR CHAN11D
016433,000997: 14,3343 31412 CADR CHAN12D
016434,000998: 14,3344 31424 CADR PTITRDE
016435,000999: 14,3345 31451 CADR PTDTRDE
016436,001000: 14,3346 31526 CADR ALTMET
016437,001001: 14,3347 31553 CADR ALTRMET
016438,001002: 14,3350 30747 CADR ENDTEST
016439,001003: 14,3351 31456 THROTADD CADR PTDTRDE +5
016440,001004: 14,3352 31531 METERADD CADR ALTMET +3
016441,001005: 14,3353 31556 MRATEADD CADR ALTRMET +3
016442,001006:
016443,001007: 14,3354 37760 CHAN5D CA FIVE
016444,001008: 14,3355 54337 TS DSPTEM1
016445,001009: 14,3356 34553 2ENTRY CA LOW8 # CHANNEL 6 RETURNS HERE
016446,001010: 14,3357 54340 TS DSPTEM1 +1
016447,001011: 14,3360 00006 EXTEND
016448,001012: 14,3361 51575 INDEX TEMP
016449,001013: 14,3362 01005 WRITE 5
016450,001014:
|
|
Page 384 |
016452,001016: 14,3363 33645 3ENTRY CA V04N30D # CH11,12 RETURN HERE TO USE THE DISPLAY
016453,001017: 14,3364 04646 TC NVSBWAIT
016454,001018:
016455,001019: 14,3365 33652 4ENTRY CAF WAITER # WAITER IS 03300
016456,001020: 14,3366 04646 TC NVSBWAIT
016457,001021: 14,3367 04464 TC ENDIDLE
016458,001022: 14,3370 02747 TC ENDTEST
016459,001023: 14,3371 03334 TC BACK1
016460,001024:
016461,001025: 14,3372 25575 CHAN6D INCR TEMP
016462,001026: 14,3373 24337 INCR DSPTEM1
016463,001027: 14,3374 37761 CAF ZERO
016464,001028: 14,3375 00006 EXTEND
016465,001029: 14,3376 01005 WRITE 5 # GET RID OF CHANNEL 5 BITS
016466,001030: 14,3377 03356 TC 2ENTRY
016467,001031: 14,3400 34517 CHAN11D CA OCT11
016468,001032: 14,3401 54337 TS DSPTEM1
016469,001033: 14,3402 35226 CA BIT13-14
016470,001034: 14,3403 54340 TS DSPTEM1 +1
016471,001035: 14,3404 00006 EXTEND
016472,001036: 14,3405 05011 WOR 11 # WOR IS NON EXCLUSIVE OR
016473,001037: 14,3406 37761 CAF ZERO
016474,001038: 14,3407 00006 EXTEND
016475,001039: 14,3410 01006 WRITE 6
016476,001040: 14,3411 03363 TC 3ENTRY
016477,001041: 14,3412 34557 CHAN12D CA OCT12
016478,001042:
016479,001043: 14,3413 54337 TS DSPTEM1
016480,001044: 14,3414 45226 CS BIT13-14
016481,001045: 14,3415 00006 EXTEND
016482,001046: 14,3416 03011 WAND 11
016483,001047: 14,3417 33650 CA CH12BITS
016484,001048: 14,3420 54340 TS DSPTEM1 +1
016485,001049: 14,3421 00006 EXTEND
016486,001050: 14,3422 05012 WOR 12
016487,001051: 14,3423 03363 TC 3ENTRY
016488,001052: 14,3424 43650 PTITRDE CS CH12BITS
016489,001053: 14,3425 00006 EXTEND
016490,001054: 14,3426 03012 WAND 12
016491,001055: 14,3427 37761 CA ZERO
016492,001056: 14,3430 54337 TS DSPTEM1
016493,001057: 14,3431 54340 TS DSPTEM1 +1
016494,001058: 14,3432 55575 TS TEMP
016495,001059: 14,3433 37755 CA BIT1
016496,001060: 14,3434 55576 TS NOBITS
016497,001061: 14,3435 00004 PIT INHINT
016498,001062: 14,3436 05701 TC WAITLIST
016499,001063: 14,3437 E5,1400 EBANK= XSM
016500,001064: 14,3437 03462 30005 2CADR THROTASK
016501,001065:
016502,001066: 14,3441 00003 RELINT
016503,001067: 14,3442 33652 CA WAITER
|
|
Page 385 |
016505,001069: 14,3443 04646 TC NVSBWAIT
016506,001070: 14,3444 04464 TC ENDIDLE
016507,001071: 14,3445 02747 TC ENDTEST
016508,001072: 14,3446 37761 CA ZERO
016509,001073: 14,3447 55576 TS NOBITS
016510,001074: 14,3450 03334 TC BACK1
016511,001075:
016512,001076: 14,3451 37761 PTDTRDE CA ZERO
016513,001077:
016514,001078: 14,3452 54055 TS THRUST
016515,001079: 14,3453 33351 CA THROTADD
016516,001080: 14,3454 55574 TS TEMPADD
016517,001081: 14,3455 05563 TC JOBSLEEP # THIS INHIBITS THE NEXT TASK UNTIL
016518,001082: # CURRENT TASK HAS BEEN COMPLETED
016519,001083: 14,3456 37735 CA POSMAX
016520,001084: 14,3457 55575 TS TEMP
016521,001085: 14,3460 37747 CA BIT7
016522,001086: 14,3461 03435 TC PIT
016523,001087: 14,3462 11576 THROTASK CCS NOBITS # IS THIS TASK STILL REQ
016524,001088: 14,3463 03470 TC +5 # YES
016525,001089: 14,3464 31574 CA TEMPADD # NO
016526,001090: 14,3465 55576 TS NOBITS
016527,001091: 14,3466 05567 TC JOBWAKE
016528,001092: 14,3467 05745 TC TASKOVER
016529,001093: 14,3470 11575 CCS TEMP
016530,001094: 14,3471 03504 TC SOMETIME
016531,001095: 14,3472 34552 CA LOW11
016532,001096: 14,3473 54055 ALWAYS TS THRUST
016533,001097: 14,3474 37752 CA BIT4
016534,001098: 14,3475 00006 EXTEND # A SMERZH FIX.
016535,001099: 14,3476 05014 WOR 14
016536,001100: 14,3477 37750 CA BIT6 # 320 MS.DELAY
016537,001101:
016538,001102: 14,3500 05701 TC WAITLIST
016539,001103: 14,3501 E5,1400 EBANK= XSM
016540,001104: 14,3501 03462 30005 2CADR THROTASK
016541,001105:
016542,001106: 14,3503 05745 TC TASKOVER
016543,001107: 14,3504 44552 SOMETIME CS LOW11
016544,001108: 14,3505 03473 TC ALWAYS
016545,001109: 14,3506 11576 ALTASK CCS NOBITS # IS TASK STILL REQ
016546,001110: 14,3507 03514 TC +5
016547,001111: 14,3510 31574 CA TEMPADD # NO
016548,001112: 14,3511 55576 TS NOBITS # ENABLES NEXT TASK
016549,001113: 14,3512 05567 TC JOBWAKE
016550,001114: 14,3513 05745 TC TASKOVER
016551,001115: 14,3514 33646 CA ALBITS # ACTUAL TASK STARTS HERE
016552,001116: 14,3515 54060 TS ALTM
016553,001117: 14,3516 37753 CA BIT3
016554,001118: 14,3517 00006 EXTEND
016555,001119: 14,3520 05014 WOR 14
016556,001120: 14,3521 37750 CA BIT6 # 320 MS. DELAY
|
|
Page 386 |
016558,001122: 14,3522 05701 TC WAITLIST
016559,001123: 14,3523 E5,1400 EBANK= XSM
016560,001124: 14,3523 03506 30005 2CADR ALTASK
016561,001125:
016562,001126: 14,3525 05745 TC TASKOVER
016563,001127: 14,3526 33352 ALTMET CA METERADD
016564,001128: 14,3527 55574 TS TEMPADD
016565,001129: 14,3530 05563 TC JOBSLEEP
016566,001130: 14,3531 37761 CA ZERO
016567,001131: 14,3532 55575 TS TEMP
016568,001132: 14,3533 47752 CS BIT4
016569,001133: 14,3534 00006 EXTEND
016570,001134: 14,3535 03014 WAND 14
016571,001135: 14,3536 00004 INHINT
016572,001136:
016573,001137: 14,3537 37755 CA ONE
016574,001138: 14,3540 05701 TC WAITLIST
016575,001139: 14,3541 E5,1400 EBANK= XSM
016576,001140: 14,3541 03506 30005 2CADR ALTASK
016577,001141:
016578,001142: 14,3543 00003 RELINT
016579,001143: 14,3544 33652 CA WAITER
016580,001144: 14,3545 04646 TC NVSBWAIT
016581,001145: 14,3546 04464 TC ENDIDLE
016582,001146: 14,3547 02747 TC ENDTEST
016583,001147: 14,3550 37761 CA ZERO
016584,001148: 14,3551 55576 TS NOBITS
016585,001149: 14,3552 03334 TC BACK1
016586,001150:
016587,001151: 14,3553 33353 ALTRMET CA MRATEADD
016588,001152: 14,3554 55574 TS TEMPADD
016589,001153: 14,3555 05563 TC JOBSLEEP
016590,001154: 14,3556 37755 CA ONE
016591,001155: 14,3557 55575 TS TEMP # TEMP WILL BE INDEXED TO ACQUIRE BIT2 INS
016592,001156: # TEAD OF BIT3
016593,001157: 14,3560 37754 CA BIT2
016594,001158: 14,3561 00006 EXTEND
016595,001159: 14,3562 05014 WOR 14
016596,001160:
016597,001161: 14,3563 03536 TC ALTMET +8D
016598,001162:
|
|
Page 387 |
016600,001164: # THE AOT ANGLE CHECKING PROGRAM PROVIDES A SIMPLE VERIFICATION OF THE ACCURACY OF THE AOT. THE IDEA IS TO
016601,001165: # COMPUTE THE ANGLE BETWEEN TWO LINES OF SIGHT AS INDICATED BY THE AOT, WHICH IS WHAT THIS PROGRAM DOES.
016602,001166: # INDEPENDENT KNOWLEDGE OF THE INCLUDED ANGLE PROVIDES A COMPARISON AND THUS A MEASURE OF THE AOT ACCURACY.
016603,001167: # THE ISS NEED NOT BE ON TO RUN THIS PROGRAM.
016604,001168:
016605,001169:
016606,001170: 14,3564 06103 AOTANGCK TC INTPRET
016607,001171: 14,3565 77414 SET EXIT # IN CASE THE ISS IS OFF.
016608,001172: 14,3566 00065 COAROFIN
016609,001173: 14,3567 02135 TC FINDNAVB # FOR LOS1 AND LOS2.
016610,001174: 14,3570 06103 TC INTPRET
016611,001175: 14,3571 47375 VLOAD VXV
016612,001176: 14,3572 02601 LOS1
016613,001177: 14,3573 02607 LOS2
016614,001178: 14,3574 77646 ABVAL
016615,001179: 14,3575 24023 STOVL SINTH # SINTH = ABVAL (VXV ).
016616,001180: 14,3576 02601 LOS1
016617,001181: 14,3577 77641 DOT
016618,001182: 14,3600 02607 LOS2
016619,001183: 14,3601 34021 STCALL COSTH # COSTH = V.V
016620,001184: 14,3602 32543 ARCTRIG
016621,001185: 14,3603 77634 RTB
016622,001186: 14,3604 33567 1STO2S # DP 1S COMP TO SP 2S COMP.
016623,001187: 14,3605 00025 STORE THETA
016624,001188: 14,3606 77776 EXIT
016625,001189: 14,3607 33677 CAF THETAADR
016626,001190: 14,3610 60110 AD FIXLOC
016627,001191: 14,3611 54146 TS MPAC +2
016628,001192: 14,3612 33655 CAF V06N03E # XXX.XX DEGREES IN R1.
016629,001193: 14,3613 04646 TC NVSBWAIT
016630,001194: 14,3614 12747 TCF ENDTEST
016631,001195:
|
|
Page 388 |
016633,001197: 14,3615 E3,1400 EBANK= 1400
016634,001198: 14,3615 00004 ZEROERAS INHINT # PROGRAM BY MUNTZ TO ZERO ERASEABLE
016635,001199:
016636,001200: 14,3616 37761 CAF ZERO
016637,001201: 14,3617 54026 TS TIME3
016638,001202: 14,3620 33644 CAF OCT27
016639,001203: 14,3621 54003 TS EBANK
016640,001204: 14,3622 22007 ZEROLP ZL
016641,001205: 14,3623 50000 INDEX A
016642,001206: 14,3624 23401 LXCH 1401
016643,001207: 14,3625 67754 AD TWO
016644,001208: 14,3626 26003 ADS EBANK
016645,001209: 14,3627 74553 MASK LOW8
016646,001210: 14,3630 10000 CCS A
016647,001211: 14,3631 13622 TCF ZEROLP
016648,001212: 14,3632 10003 CCS EBANK
016649,001213: 14,3633 13636 TCF ZEROLP1
016650,001214: 14,3634 05243 TC POSTJUMP
016651,001215: 14,3635 02000 CADR SLAP1
016652,001216: 14,3636 00003 ZEROLP1 RELINT
016653,001217: 14,3637 37761 CAF ZERO # KEEP T4RUPT GOING, BUT NOT CYCLING.
016654,001218: 14,3640 54347 TS DSRUPTSW
016655,001219: 14,3641 00004 INHINT
016656,001220: 14,3642 47755 CS ONE
016657,001221: 14,3643 13622 TCF ZEROLP
016658,001222: 14,3644 00027 OCT27 OCT 27
016659,001223:
|
|
Page 389 |
016661,001225: 14,3645 E5,1500 EBANK= OGC
016662,001226: 14,3645 00430 V04N30D OCT 00430
016663,001227: 14,3646 52525 ALBITS OCT 52525
016664,001228: 14,3647 70707 THRSBITS OCT 70707
016665,001229: 14,3650 4557 OCT12 = TEN
016666,001230: 14,3650 4517 OCT11 = NINE
016667,001231: 14,3650 37400 CH12BITS OCT 37400
016668,001232: 14,3651 00130 V01N30D OCT 00130
016669,001233:
016670,001234: 14,3652 03300 WAITER OCT 03300
016671,001235:
016672,001236:
016673,001237: 14,3653 00130 V01N30E OCT 00130 # FOR FINDNAVB
016674,001238: 14,3654 00530 V05N30E OCT 00530 # FOR OPTDATA
016675,001239: 14,3655 00603 V06N03E OCT 00603
016676,001240: 14,3656 00666 V06N66E OCT 00666
016677,001241: 14,3657 02430 V24N30E OCT 02430 # FOR POSITION LOAD
016678,001242: 14,3660 02522 V25N22E OCT 02522 # FOR POS4
016679,001243:
016680,001244: 14,3661 00013 11DEC DEC 11 B-14
016681,001245: 14,3662 00021 17DEC DEC 17 B-14
016682,001246: 14,3663 00074 60DEC DEC 60 B-14
016683,001247: 14,3664 00077 63DEC DEC 63 B-14
016684,001248: 14,3665 00105 69DEC DEC 69 B-14 # FOR MISALIGN
016685,001249: 14,3666 00110 72DEC DEC 72 B-14 # FOR STORRSLT
016686,001250:
016687,001251: 14,3667 05670 30SEC DEC 3000 B-14 # 3000 X 10 MSEC
016688,001252: 14,3670 13560 60SEC DEC 6000 B-14 # 6000 X 10 MSEC
016689,001253:
016690,001254: 14,3671 01500 OGCADR ADRES OGC # FOR ZEROING
016691,001255: 14,3672 01570 GENPLAD1 ADRES GENPL
016692,001256: 14,3673 02570 GENPLADR ECADR GENPL # FOR POS4
016693,001257: 14,3674 00322 14366 KKKK 2DEC 210.39 B-14 # 1230 B-14 FOR CSM
016694,001258:
016695,001259: 14,3676 03073 RDRRETN ADRES RDR1 +1 # FOR RDR37511
016696,001260: 14,3677 00024 THETAADR ECADR THETA
016697,001261: 14,3700 01400 XSMADRX ADRES XSM # FOR MAKEXSMD
016698,001262:
016699,001263: 14,3701 24365 30244 SCALFTR 2DEC .64 # FOR STORRSLT
016700,001264:
016701,001265: 14,3703 07623 26552 OMEG/MS 2DEC .24339048 # GYRO PULSES / 10 MSEC
016702,001266:
|
|
Page 390 |
016704,001268: # THE FOLLOWING ROUTINE READS THE CLOCK AND SCALAR (CHANNELS 3 AND 4) INTO A AND L, INSURING THAT THE
016705,001269: # DATA WAS NOT IN TRANSITION WHEN IT WAS READ.
016706,001270:
016707,001271: 5015 BLOCK 02
016708,001272: 5015 00004 FINETIME INHINT # RETURNS WITH INTERRUPT INHIBITED.
016709,001273: 5016 00006 EXTEND
016710,001274: 5017 00004 READ LOSCALAR
016711,001275: 5020 54001 TS L
016712,001276:
016713,001277: 5021 00006 EXTEND # SEE IF 2 READINGS AGREE. IF NOT, READ
016714,001278: 5022 06004 RXOR LOSCALAR # LOSCALAR AGAIN.
016715,001279: 5023 00006 EXTEND
016716,001280: 5024 15030 BZF +4
016717,001281:
016718,001282: 5025 00006 EXTEND # IF CLOCK RIPPLED BEFORE, IT WONT NOW.
016719,001283: 5026 00004 READ LOSCALAR
016720,001284: 5027 54001 TS L
016721,001285:
016722,001286: 5030 47735 +4 CS POSMAX # IF LOW PART CONTAINS SOMETHING LESS THAN
016723,001287: 5031 60001 AD L # POSMAX, THE HIGH PART CAN BE READ SAFELY
016724,001288: 5032 00006 EXTEND
016725,001289: 5033 15016 BZF FINETIME +1 # TRY AGAIN - CONDITION WILL DISAPPEAR.
016726,001290:
016727,001291: 5034 00006 EXTEND
016728,001292: 5035 00003 READ HISCALAR
016729,001293: 5036 00002 TC Q
016730,001294:
016731,001295: 14,3705 SETLOC OMEG/MS +2
016732,001296: 14,3705 05224 REDYTORK TC BANKCALL
016733,001297: 14,3706 26762 CADR IMUSTALL
016734,001298: 14,3707 12747 TCF ENDTEST
016735,001299:
016736,001300: 14,3710 02731 TC OGCZERO
016737,001301:
016738,001302: 14,3711 06103 TC INTPRET
016739,001303: 14,3712 77624 CALL
016740,001304: 14,3713 30407 ERTHRVSE # SETS UP EARTHRATE ANGLES AND TIME
016741,001305: 14,3714 77776 EXIT
016742,001306:
016743,001307: 14,3715 31617 CA OPTNREG # INITIALIZE CDUNDX FOR PULSE CATCHING
016744,001308: 14,3716 65355 AD NEG2 # C(K) WAS 4 2 1 NOW C(A) IS 2 0 -1
016745,001309: 14,3717 55616 TS GYTOBETQ # C(K) = 2,0,-1 FOR X,Y,Z.
016746,001310: 14,3720 00006 EXTEND
016747,001311: 14,3721 13724 BZF +3
016748,001312: 14,3722 37754 CAF TWO
016749,001313: 14,3723 03725 TC +2
016750,001314: 14,3724 37755 CAF ONE
016751,001315: 14,3725 55672 TS CDUNDX # C(K) = 1 FOR Y, 2 FOR Z CDU SELECT
016752,001316: 14,3726 05224 TC BANKCALL
016753,001317: 14,3727 50547 CADR ENABLE
End of include-file IMU_PERFORMANCE_TESTS_1.agc. Parent file is MAIN.agc