Source Code
|
These source-code files were transcribed from scans made from Don Eyles's personal
copy of BURST120 (SUNBURST 120). They were scanned at archive.org's Boston
facility, and the scanning was sponsored by Mike Stewart. The code was transcribed
from these scans by a team of volunteers who are referenced in the program
comments. Comments from the original source code are in ALL-CAPS, whereas
comments added later in transcription are in Mixed-Case. In some cases, where
similar code blocks exist in previously-transcribed AGC programs (primarily
Luminary 99, from Apollo 11) those code blocks were used as a starting point and
then corrected to agree with the BURST120 scans. The full scans are available
at the Virtual AGC
project's collection at archive.org, while more-convenient reduced-size (but reduced-quality)
images are available at
the main Virtual AGC website. Report any errors noted by creating an
issue report at the Virtual AGC
project's GitHub repository. Notations on the program listing read, in part:YUL SYSTEM FOR AGC: REVISION 0 OF PROGRAM BURST120 BY NASA 2021106-031 DEC 7, 1967 THIS LISTING IS A COPY OF A VERSION OF THE PROGRAM INTENDED FOR USE IN THE ON-BOARD PRIMARY GUIDANCE COMPUTER IN THE UNMANNED FLIGHT OF APOLLO LUNAR MODULE 1 --- THE AS206 MISSION.Note that the date is the date of the printout, not the date of the program revision. |
015651,000002: ## Copyright: Public domain.
015652,000003: ## Filename: IMU_PERFORMANCE_TESTS_1.agc
015653,000004: ## Purpose: A module for revision 0 of BURST120 (Sunburst). It
015654,000005: ## is part of the source code for the Lunar Module's
015655,000006: ## (LM) Apollo Guidance Computer (AGC) for Apollo 5.
015656,000007: ## Assembler: yaYUL
015657,000008: ## Contact: Ron Burkey <info@sandroid.org>.
015658,000009: ## Website: www.ibiblio.org/apollo/index.html
015659,000010: ## Mod history: 2016-09-30 RSB Created draft version.
015660,000011: ## 2016-10-18 RSB Corrected against AURORA 12 version. (Mostly
015661,000012: ## identical, but there was a small amount of code
015662,000013: ## added.
015663,000014: ## 2016-10-31 RSB Typos.
015664,000015: ## 2016-12-05 RSB Comment-proofing with octopus/ProoferComments
015665,000016: ## completed, changes made.
015666,000017: ## 2017-06-08 RSB Some corrections (mostly comments, mostly whitespace)
015667,000018: ## discovered while transcribing SUNBURST 37.
015668,000019:
|
|
Page 380 |
015670,000021: 14,2000 BANK 14
015671,000022: 14,2000 E5,1400 EBANK= XSM
015672,000023:
015673,000024:
015674,000025:
015675,000026: 14,2000 37763 AOTNBIMU CAF ONE # AOT-NB-IMU FINE ALIGNMENT TEST
015676,000027: 14,2001 55512 TS EROPTN # ... TEST CAPABILITY ...
015677,000028:
015678,000029: 14,2002 05206 TC BANKCALL
015679,000030: 14,2003 26000 CADR IMUZERO # IMU ZERO ENCODER MODE
015680,000031: 14,2004 06112 TC INTPRET
015681,000032: 14,2005 77624 CALL
015682,000033: 14,2006 30553 LATAZCHK # TO LOAD AZIMUTH (SM) AND LATITUDE
015683,000034: 14,2007 77624 CALL
015684,000035: 14,2010 30325 MAKEXSMD # TO SET UP A STABLE MEMBER DESIRED MATRIX
015685,000036: 14,2011 45014 SET CALL
015686,000037: 14,2012 00065 COAROFIN # FOR COARSE OR FINE ALIGN MARKS
015687,000038: 14,2013 30407 ERTHRVSE # TO CALCULATE EARTH RATE VECTOR
015688,000039: 14,2014 77776 EXIT
015689,000040:
015690,000041: 14,2015 33700 POSLOAD CAF V24N30E # R1 0000X ENTER POSITION 1,2, OR 3
015691,000042: 14,2016 04657 TC NVSBWAIT # R2 00000 ENTER 00001 FOR LAB OPTION
015692,000043: 14,2017 04475 TC ENDIDLE
015693,000044: 14,2020 12770 TCF ENDTEST
015694,000045: 14,2021 12015 TCF -4
015695,000046: 14,2022 56337 XCH DSPTEM1 # DO NOT USE POSITION 3 WITH NAV BASE AT
015696,000047: 14,2023 55544 TS POSITON # ZERO DEGREE TILT ANGLE. (GIMBAL LOCK)
015697,000048:
015698,000049: 14,2024 10340 CCS DSPTEM1 +1
015699,000050: 14,2025 13003 TCF LEMLAB # SPECIAL LAB TEST TO BYPASS MARKS
015700,000051:
015701,000052: 14,2026 02621 TC POSNJUMP # SET UP STABLE MEMBER DESIRED COORDINATES
015702,000053:
015703,000054: 14,2027 02524 TC OPTDATA # TARGETS 1,2 AZIMUTH AND ELEVATION
015704,000055:
015705,000056: 14,2030 02135 TC FINDNAVB # COARSE ALIGN MARKS
015706,000057:
015707,000058: 14,2031 05206 TC BANKCALL
015708,000059: 14,2032 26751 CADR IMUSTALL # INSURE IMUZERO COMPLETION
015709,000060: 14,2033 12770 TCF ENDTEST
015710,000061:
015711,000062: 14,2034 02247 TC PUTPOSX # TO COARSE ALIGN STABLE MEMBER
015712,000063:
015713,000064: 14,2035 02762 TC GMLCKCHK # CHECK FOR GIMBAL LOCK BEFORE FINE ALIGN
015714,000065: 14,2036 02752 TC OGCZERO # FOR EARTH RATE COMPENSATION
015715,000066:
015716,000067: 14,2037 05206 TC BANKCALL
015717,000068: 14,2040 26252 CADR IMUFINE # FINE ALIGN MODE
015718,000069: 14,2041 05206 TC BANKCALL
015719,000070: 14,2042 26751 CADR IMUSTALL
|
|
Page 381 |
015721,000072: 14,2043 12770 TCF ENDTEST
015722,000073:
015723,000074: 14,2044 02135 TC FINDNAVB # FINE ALIGN MARKS
015724,000075:
015725,000076: 14,2045 04724 TC FREEDSP # FREE DISPLAY SYSTEM
015726,000077:
015727,000078: 14,2046 02263 TC SMDCALC # TO FINE ALIGN STABLE MEMBER
015728,000079:
015729,000080: 14,2047 05206 ERFINAL TC BANKCALL # LAST EARTH RATE SHOT
015730,000081: 14,2050 30424 CADR EARTHR
015731,000082: 14,2051 11512 CCS EROPTN # IF DESIRED TO COMPENSATE CONTINUALLY
015732,000083: 14,2052 12065 TCF MONSTART # CHANGE BY V21 N02 E XXXXX E 00000 E
015733,000084: 14,2053 12047 TCF ERFINAL
015734,000085: 14,2054 12770 TCF ENDTEST
015735,000086: 14,2055 55512 TS EROPTN
015736,000087: 14,2056 00004 INHINT
015737,000088: 14,2057 35644 CAF PRIO21 # PRIORITY 1 HIGHER THAN SXTNBIMU
015738,000089: 14,2060 05516 TC FINDVAC
015739,000090: 14,2061 E5,1400 EBANK= XSM
015740,000091: 14,2061 03105 30065 2CADR RDR37511
015741,000092:
015742,000093: 14,2063 00003 RELINT
015743,000094: 14,2064 02047 TC ERFINAL
015744,000095:
015745,000096: 14,2065 05026 MONSTART TC FINETIME # TIME AT INITIAL MISALIGNMENT
015746,000097: 14,2066 52145 DXCH MPAC
015747,000098: 14,2067 00003 RELINT
015748,000099: 14,2070 37767 CAF ZERO # ZERO PIPA COUNTERS
015749,000100: 14,2071 54037 TS PIPAX
015750,000101: 14,2072 54040 TS PIPAY
015751,000102: 14,2073 54041 TS PIPAZ
015752,000103: 14,2074 55551 TS STOREPL
015753,000104: 14,2075 55537 TS NDXCTR
015754,000105: 14,2076 02477 TC STORRSLT # STORE T(INITIAL) AND PIPAI = 0
015755,000106:
015756,000107: 14,2077 00004 INHINT
015757,000108: 14,2100 33711 CAF 60SEC # INSURE PIPAI VARIES IN ONE DIRECTION
015758,000109: 14,2101 05663 TC WAITLIST
015759,000110: 14,2102 E5,1400 EBANK= XSM
015760,000111: 14,2102 02106 30065 2CADR PIP1
015761,000112:
015762,000113: 14,2104 32134 CAF PIP2ADR
015763,000114: 14,2105 05545 TC JOBSLEEP
015764,000115:
015765,000116: 14,2106 32134 PIP1 CAF PIP2ADR
015766,000117: 14,2107 05551 TC JOBWAKE
015767,000118: 14,2110 05727 TC TASKOVER
015768,000119:
015769,000120: 14,2111 31542 PIP2 CAE PIPNDX
015770,000121: 14,2112 55541 TS PIPINDEX # POS1 PIPAY POS2 PIPAX POS3 PIPAX
|
|
Page 382 |
015772,000123: 14,2113 05206 TC BANKCALL
015773,000124: 14,2114 51737 CADR DOCHECKG # SYNC ON PIPA PULSE
015774,000125:
015775,000126: 14,2115 00003 RELINT
015776,000127: 14,2116 02477 TC STORRSLT # STORE TIME AND PIPAI
015777,000128:
015778,000129: 14,2117 31543 CAE PIPNDX +1
015779,000130: 14,2120 55541 TS PIPINDEX # POS1 PIPAZ POS2 PIPAY POS3 PIPAZ
015780,000131: 14,2121 05206 TC BANKCALL
015781,000132: 14,2122 51737 CADR DOCHECKG # SYNC ON PIPA PULSE
015782,000133:
015783,000134: 14,2123 00003 RELINT
015784,000135: 14,2124 02477 TC STORRSLT # STORE TIME AND PIPAI
015785,000136:
015786,000137: 14,2125 00004 INHINT
015787,000138: 14,2126 33710 CAF 30SEC # MONITOR PIPAS AT 30 SECOND INTERVALS
015788,000139: 14,2127 05663 TC WAITLIST
015789,000140: 14,2130 E5,1400 EBANK= XSM
015790,000141: 14,2130 02106 30065 2CADR PIP1
015791,000142:
015792,000143: 14,2132 32134 CAF PIP2ADR
015793,000144: 14,2133 05545 TC JOBSLEEP
015794,000145: 14,2134 30111 PIP2ADR CADR PIP2
015795,000146:
|
|
Page 383 |
015797,000148: 14,2135 00006 FINDNAVB EXTEND # MARKS * CALC NB OR SM WRT EARTH REF
015798,000149: 14,2136 23546 QXCH QPLACE
015799,000150:
015800,000151: 14,2137 05206 TC BANKCALL
015801,000152: 14,2140 27046 CADR MKRELEAS # RELEASE MARK SYSTEM
015802,000153: 14,2141 37763 CAF ONE
015803,000154: 14,2142 54337 TS DSPTEM1
015804,000155: 14,2143 33674 CAF V01N30E # DISPLAY 00001 IN R1
015805,000156: 14,2144 04657 TC NVSBWAIT
015806,000157: 14,2145 37767 CAF ZERO # TO INDICATE GROUND MARKS
015807,000158: 14,2146 05206 TC BANKCALL
015808,000159: 14,2147 27005 CADR AOTMARK # MARK ON TARGET 1
015809,000160:
015810,000161: 14,2150 05206 TC BANKCALL
015811,000162: 14,2151 26747 CADR OPTSTALL # INSURE SUCCESSFUL MARK
015812,000163: 14,2152 12770 TCF ENDTEST
015813,000164: 14,2153 00006 EXTEND
015814,000165: 14,2154 50373 INDEX MARKSTAT
015815,000166: 14,2155 30001 DCA 0
015816,000167: 14,2156 53565 DXCH TMARK # TIME(PRES) FOR EARTH RATE COMPENSATION
015817,000168:
015818,000169: 14,2157 02242 TC GIMANGS1
015819,000170:
015820,000171: 14,2160 06112 TC INTPRET
015821,000172: 14,2161 45140 LXC,1 CALL
015822,000173: 14,2162 00373 MARKSTAT # BASE ADDRESS VAC AREA FOR AOTNB
015823,000174: 14,2163 33114 AOTNB # OPTICS TO NAV BASE COORDINATE FRAME
015824,000175: 14,2164 45014 BON CALL
015825,000176: 14,2165 00305 COAROFIN # COARSE MARKS = 0 FINE MARKS = 1
015826,000177: 14,2166 30170 +2
015827,000178: 14,2167 32555 NBSM # NAV BASE DIRECT TO STABLE MEMBER
015828,000179: 14,2170 02445 STORE STARAD # TARGET 1 WRT NAV BASE OR STABLE MEMBER
015829,000180: 14,2171 02601 STORE LOS1 # ...FOR K...
015830,000181: 14,2172 77776 EXIT
015831,000182:
015832,000183: 14,2173 05206 TC BANKCALL
015833,000184: 14,2174 27046 CADR MKRELEAS # RELEASE MARK SYSTEM
015834,000185: 14,2175 37762 CAF TWO
015835,000186: 14,2176 54337 TS DSPTEM1
015836,000187: 14,2177 33674 CAF V01N30E # DISPLAY 00002 IN R1
015837,000188: 14,2200 04657 TC NVSBWAIT
015838,000189: 14,2201 37767 CAF ZERO # TO INDICATE GROUND MARKS
015839,000190: 14,2202 05206 TC BANKCALL
015840,000191: 14,2203 27005 CADR AOTMARK # MARK ON TARGET 2
015841,000192:
015842,000193: 14,2204 37752 CAF BIT10
015843,000194: 14,2205 70074 MASK STATE # BIT10 = COAROFIN
015844,000195: 14,2206 10000 CCS A
015845,000196: 14,2207 12215 TCF EARRTCOM +5 # IF COARSE ALIGN MARKS
015846,000197:
|
|
Page 384 |
015848,000199: 14,2210 05206 EARRTCOM TC BANKCALL # EARTH RATE COMPENSATION BETWEEN MARKS
015849,000200: 14,2211 30424 CADR EARTHR
015850,000201: 14,2212 10370 CCS OPTCADR # +0 IF MARK BUTTON NOT DEPRESSED
015851,000202: 14,2213 12216 TCF +3
015852,000203: 14,2214 12210 TCF EARRTCOM # CONTINUE TO COMPENSATE FOR EARTH RATE
015853,000204: 14,2215 12216 TCF +1
015854,000205: 14,2216 05206 TC BANKCALL
015855,000206: 14,2217 26747 CADR OPTSTALL # INSURE SUCCESSFUL MARK
015856,000207: 14,2220 12770 TCF ENDTEST
015857,000208:
015858,000209: 14,2221 02242 TC GIMANGS1
015859,000210:
015860,000211: 14,2222 06112 TC INTPRET
015861,000212: 14,2223 45140 LXC,1 CALL
015862,000213: 14,2224 00373 MARKSTAT # BASE ADDRESS VAC AREA FOR AOTNB
015863,000214: 14,2225 33114 AOTNB # OPTICS TO NAV BASE COORDINATE FRAME
015864,000215: 14,2226 45014 BONCLR CALL # SET TO ZERO FOR FINE ALIGN MARKS
015865,000216: 14,2227 00205 COAROFIN # COARSE MARKS = 0 FINE MARKS = 1
015866,000217: 14,2230 30232 +2
015867,000218: 14,2231 32555 NBSM # NAV BASE DIRECT TO STABLE MEMBER
015868,000219: 14,2232 02453 STORE STARAD +6 # TARGET 2 WRT NAV BASE OR STABLE MEMBER
015869,000220: 14,2233 02607 STORE LOS2 # ...FOR K...
015870,000221:
015871,000222: 14,2234 77624 MAXDET CALL
015872,000223: 14,2235 30350 TAR/EREF # TARGETS 1,2 WRT EARTH REF FRAME
015873,000224: 14,2236 77624 CALL
015874,000225: 14,2237 32741 AXISGEN # NAV BASE OR SM WRT EARTH REF FRAME
015875,000226: 14,2240 77776 EXIT
015876,000227: 14,2241 01546 TC QPLACE
015877,000228:
015878,000229:
015879,000230:
015880,000231: 14,2242 37762 GIMANGS1 CAF TWO # BASE ADDRESS GIMBAL ANGLES FOR NBSM
015881,000232: 14,2243 60373 AD MARKSTAT
015882,000233: 14,2244 50110 INDEX FIXLOC
015883,000234: 14,2245 54050 TS S1
015884,000235: 14,2246 00002 TC Q
015885,000236:
|
|
Page 385 |
015887,000238: 14,2247 00006 PUTPOSX EXTEND # COARSE ALIGNS STABLE MEMBER
015888,000239: 14,2250 23546 QXCH QPLACE
015889,000240:
015890,000241: 14,2251 06112 TC INTPRET
015891,000242: 14,2252 77624 CALL
015892,000243: 14,2253 32655 CALCGA # CALCULATE COARSE ALIGN GIMBAL ANGLES
015893,000244: 14,2254 77776 EXIT
015894,000245:
015895,000246: 14,2255 05206 TC BANKCALL
015896,000247: 14,2256 26065 CADR IMUCOARS # COARSE ALIGN MODE
015897,000248: 14,2257 05206 TC BANKCALL
015898,000249: 14,2260 26751 CADR IMUSTALL
015899,000250: 14,2261 12770 TCF ENDTEST
015900,000251: 14,2262 01546 TC QPLACE
015901,000252:
015902,000253:
015903,000254:
015904,000255:
015905,000256: 14,2263 00006 SMDCALC EXTEND # FINE ALIGNS STABLE MEMBER
015906,000257: 14,2264 23546 QXCH QPLACE
015907,000258:
015908,000259: 14,2265 06112 TC INTPRET
015909,000260: 14,2266 64375 VLOAD MXV
015910,000261: 14,2267 02401 XSM # XSM DESIRED WRT EARTH REF FRAME
015911,000262: 14,2270 02445 STARAD # THEN TO SM PRESENT OR NAV BASE FRAME
015912,000263: 14,2271 43172 VSL1 BOFF
015913,000264: 14,2272 00345 COAROFIN # BIT10 FOR LEMLAB TEST
015914,000265: 14,2273 30276 +3
015915,000266: 14,2274 34041 STCALL 32D
015916,000267: 14,2275 32555 NBSM # THEN TO SM PRESENT FRAME
015917,000268: 14,2276 26423 STOVL XDC
015918,000269: 14,2277 02407 YSM # YSM DESIRED WRT EARTH REF FRAME
015919,000270:
015920,000271: 14,2300 76521 MXV VSL1
015921,000272: 14,2301 02445 STARAD # THEN TO SM PRESENT OR NAV BASE FRAME
015922,000273: 14,2302 77614 BOFF
015923,000274: 14,2303 00345 COAROFIN # BIT10 FOR LEMLAB TEST
015924,000275: 14,2304 30307 +3
015925,000276: 14,2305 34041 STCALL 32D
015926,000277: 14,2306 32555 NBSM # THEN TO SM PRESENT FRAME
015927,000278: 14,2307 26431 STOVL YDC
015928,000279: 14,2310 02423 XDC
015929,000280:
015930,000281: 14,2311 76435 VXV VSL1
015931,000282: 14,2312 02431 YDC
015932,000283: 14,2313 36437 STCALL ZDC # ZSM DESIRED WRT SM PRESENT FRAME
015933,000284: 14,2314 32425 CALCGTA # CALCULATE FINE ALIGN TORQUING ANGLES
015934,000285:
015935,000286: 14,2315 47170 AXT,1 RTB
015936,000287:
|
|
Page 386 |
015938,000289: 14,2316 02500 ECADR OGC # X1 = BASE ADDRESS OF TORQUING ANGLES
015939,000290: 14,2317 33627 PULSEIMU # TO PUT OUT GYRO TORQUING PULSES
015940,000291: 14,2320 77776 EXIT
015941,000292:
015942,000293: 14,2321 05206 TC BANKCALL
015943,000294: 14,2322 26751 CADR IMUSTALL # WAIT FOR PULSES TO GET OUT
015944,000295: 14,2323 12770 TCF ENDTEST
015945,000296: 14,2324 01546 TC QPLACE
015946,000297:
|
|
Page 387 |
015948,000299: 14,2325 77776 MAKEXSMD EXIT # XSM V YSM SW ZSM SE
015949,000300:
015950,000301: 14,2326 33703 CAF 17DEC # ZERO XSM, YSM, AND ZSM
015951,000302: 14,2327 55777 TS ZERONDX
015952,000303: 14,2330 33721 CAF XSMADRX
015953,000304: 14,2331 05206 TC BANKCALL
015954,000305: 14,2332 51245 CADR ZEROING # VERT SOUTH EAST
015955,000306:
015956,000307: 14,2333 37746 CAF HALF # XSM * +1 0 0 *
015957,000308: 14,2334 55400 TS XSM # * *
015958,000309: 14,2335 06112 TC INTPRET # * *
015959,000310: 14,2336 73545 DLOAD SIN # YSM * 0 +SIN(AZ) +COS(AZ) *
015960,000311: 14,2337 02507 AZIMUTH # * *
015961,000312: 14,2340 02411 STORE XSM +8D # * *
015962,000313: 14,2341 16421 STODL XSM +16D # ZSM * 0 -COS(AZ) +SIN(AZ) *
015963,000314: 14,2342 02507 AZIMUTH
015964,000315: 14,2343 77746 COS
015965,000316: 14,2344 02413 STORE XSM +10D
015966,000317: 14,2345 77676 DCOMP
015967,000318: 14,2346 02417 STORE XSM +14D
015968,000319: 14,2347 77616 RVQ
015969,000320:
015970,000321:
015971,000322:
015972,000323: 14,2350 77170 TAR/EREF AXT,1 AXT,2 # TARGET VECTOR
015973,000324: 14,2351 00002 2 # SIN(EL) -COS(AZ)COS(EL) SIN(AZ)COS(EL)
015974,000325: 14,2352 00014 12D
015975,000326: 14,2353 77731 SSP
015976,000327: 14,2354 00052 S2
015977,000328: 14,2355 00006 6 # TARGET 1 TARGET 2
015978,000329:
015979,000330: 14,2356 60533 TAR1 SLOAD* SR2 # X1=2 X2=12 S2=6 . X1=0 X2=6 S2=6
015980,000331: 14,2357 02557 TAZEL1 +3,1
015981,000332: 14,2360 00001 STORE 0 # PD00 ELEVATION PD00
015982,000333: 14,2361 77756 SIN
015983,000334: 14,2362 10023 STORE 18D,2 # PD06 *** SIN(EL) *** PD12
015984,000335: 14,2363 77745 DLOAD
015985,000336: 14,2364 00001 0
015986,000337: 14,2365 41546 COS PUSH # PDOO COS(EL) PD00
015987,000338: 14,2366 47133 SLOAD* RTB
015988,000339: 14,2367 02556 TAZEL1 +2,1
015989,000340: 14,2370 33457 CDULOGIC
015990,000341: 14,2371 00003 STORE 2 # PD02 AZIMUTH PD02
015991,000342: 14,2372 41356 SIN DMP
015992,000343: 14,2373 00001 0
015993,000344: 14,2374 77752 SL1
015994,000345: 14,2375 10027 STORE 22D,2 # PD10 *** +SIN(AZ)COS(EL) *** PD16
015995,000346: 14,2376 77745 DLOAD
015996,000347: 14,2377 00003 2
015997,000348: 14,2400 41346 COS DMP
|
|
Page 388 |
015999,000350: 14,2401 57552 SL1 DCOMP
016000,000351: 14,2402 10025 STORE 20D,2 # PD08 *** -COS(AZ)COS(EL) *** PD14
016001,000352:
016002,000353: 14,2403 61170 AXT,1 TIX,2
016003,000354: 14,2404 00000 0
016004,000355: 14,2405 30356 TAR1
016005,000356: 14,2406 77616 RVQ
016006,000357:
|
|
Page 389 |
016008,000359: 14,2407 65345 ERTHRVSE DLOAD PDDL
016009,000360: 14,2410 33105 ZERODP # PD24 = (SIN -COS 0)(OMEG/MS)
016010,000361: 14,2411 02511 LATITUDE
016011,000362: 14,2412 57546 COS DCOMP
016012,000363: 14,2413 73525 PDDL SIN
016013,000364: 14,2414 02511 LATITUDE # EARTH RATE = .1504 ARCSEC / 10 MSEC
016014,000365: 14,2415 74266 VDEF VXSC # 1.618 GYRO PULSES = 1 ARCSEC
016015,000366: 14,2416 31725 OMEG/MS # OMEG/MS = .243... GYRO PULSES / 10 MSEC
016016,000367: 14,2417 02514 STORE ERVECTOR
016017,000368:
016018,000369: 14,2420 77634 RTB
016019,000370: 14,2421 33454 LOADTIME
016020,000371: 14,2422 02565 STORE TMARK # TIME FOR GYRO DRIFT - PIPA SCALE FACTOR
016021,000372: 14,2423 77616 RVQ
016022,000373:
016023,000374:
016024,000375:
016025,000376: 14,2424 05235 EARTHR TC MAKECADR # CALCULATES AND COMPENSATES EARTH RATE
016026,000377: 14,2425 55547 TS QPLACES
016027,000378:
016028,000379: 14,2426 04133 TC CHECKMM # TEST FOR MAJOR MODE 4
016029,000380: 14,2427 00004 OCT 4 # IS PRELAUNCH OVER ?
016030,000381: 14,2430 12440 TCF GETPLTIM # NO
016031,000382: 14,2431 00004 INHINT # YES,
016032,000383: 14,2432 37763 CA BIT1 # SET UP MP2TASK NOW
016033,000384: 14,2433 05663 TC WAITLIST
016034,000385: 14,2434 E3,1736 EBANK= TGRR
016035,000386: 14,2434 02003 56063 2CADR MP2TASK
016036,000387:
016037,000388: 14,2436 32476 CA 3.27CADR # SET UP RETURN TO BYPASS PRELAUNCH
016038,000389: 14,2437 55547 TS QPLACES
016039,000390:
016040,000391: 14,2440 00006 GETPLTIM EXTEND # GET CURRENT TIME
016041,000392: 14,2441 30025 DCA TIME2
016042,000393: 14,2442 52145 DXCH MPAC
016043,000394: 14,2443 00006 EXTEND
016044,000395: 14,2444 30145 DCA MPAC
016045,000396: 14,2445 53562 DXCH TEMPTIME # STORE IN TEMPTIME BEFORE RELINT
016046,000397: 14,2446 00003 RELINT
016047,000398:
016048,000399: 14,2447 37767 CAF ZERO # DECLARE DP MODE.
016049,000400: 14,2450 54153 TS MODE
016050,000401: 14,2451 06112 TC INTPRET
016051,000402: 14,2452 54225 DSU SL
016052,000403: 14,2453 02565 TMARK # T(PRES) - T(PREV) = DT SCALED 10 MSEC
016053,000404: 14,2454 20212 9D # 2 TO 21ST POWER = 1 REVOLUTION
016054,000405: 14,2455 64361 VXSC MXV
016055,000406: 14,2456 02514 ERVECTOR # VT = (SIN -COS 0)(OMEG/MS)(DT)
|
|
Page 390 |
016057,000408: 14,2457 02401 XSM # (XSM)(VT) = EARTH RATE COMPENSATION
016058,000409: 14,2460 77655 VAD
016059,000410: 14,2461 02772 ERCOMP
016060,000411: 14,2462 16772 STODL ERCOMP
016061,000412: 14,2463 02562 TEMPTIME
016062,000413: 14,2464 02565 STORE TMARK # T(PREVIOUS)
016063,000414:
016064,000415: 14,2465 47170 AXT,1 RTB
016065,000416: 14,2466 02771 ECADR ERCOMP
016066,000417: 14,2467 33627 PULSEIMU # TO PUT OUT GYRO TORQUING PULSES
016067,000418: 14,2470 77776 EXIT
016068,000419:
016069,000420: 14,2471 05206 TC BANKCALL
016070,000421: 14,2472 26751 CADR IMUSTALL # WAIT FOR PULSES TO GET OUT
016071,000422: 14,2473 12770 TCF ENDTEST
016072,000423: 14,2474 31547 CAE QPLACES
016073,000424: 14,2475 15230 TCF BANKJUMP
016074,000425:
016075,000426: 14,2476 72651 3.27CADR CADR REDO3.27
016076,000427:
016077,000428:
016078,000429: 14,2477 00006 STORRSLT EXTEND
016079,000430: 14,2500 23546 QXCH QPLACE
016080,000431:
016081,000432: 14,2501 06112 TC INTPRET # DP TIME IN MPAC SCALED .312(5) MSEC
016082,000433: 14,2502 54340 LXC,1 SL
016083,000434: 14,2503 02537 NDXCTR
016084,000435: 14,2504 20204 3
016085,000436: 14,2505 47005 DMP RTB
016086,000437: 14,2506 31723 SCALFTR
016087,000438: 14,2507 33520 SGNAGREE
016088,000439: 14,2510 06571 STORE GENPL,1 # STORE DP TIME
016089,000440: 14,2511 77776 EXIT
016090,000441:
016091,000442: 14,2512 57551 XCH STOREPL # CONTAINS C(PIPAI)
016092,000443: 14,2513 51537 INDEX NDXCTR
016093,000444: 14,2514 55572 TS GENPL +2 # STORE PIPA COUNTER READING
016094,000445: 14,2515 41537 CS NDXCTR
016095,000446: 14,2516 63707 AD 72DEC
016096,000447: 14,2517 00006 EXTEND
016097,000448: 14,2520 63146 BZMF MISALIGN # TO CALCULATE MISALIGNMENT
016098,000449: 14,2521 36311 CAF THREE
016099,000450: 14,2522 27537 ADS NDXCTR
016100,000451: 14,2523 01546 TC QPLACE
016101,000452:
016102,000453: 14,2524 00006 OPTDATA EXTEND # CALLS FOR AZIMUTH AND ELEVATION OF
016103,000454: 14,2525 23546 QXCH QPLACE # TARGET 1, THEN TARGET 2
016104,000455:
016105,000456: 14,2526 37763 CAF BIT1 # AZIMUTH CLOCKWISE FROM NORTH TO TARGET
|
|
Page 391 |
016107,000458: 14,2527 22007 ZL # ELEVATION MEASURED FROM HORIZONTAL
016108,000459: 14,2530 23550 LXCH RUN
016109,000460: 14,2531 54341 TS DSPTEM1 +2
016110,000461: 14,2532 33675 CAF V05N30E # DISPLAY TARGET NUMBER IN R3
016111,000462: 14,2533 04657 TC NVSBWAIT
016112,000463: 14,2534 51550 INDEX RUN
016113,000464: 14,2535 53554 DXCH TAZEL1
016114,000465: 14,2536 52340 DXCH DSPTEM1
016115,000466:
016116,000467: 14,2537 02577 TC CHECKLD # R1 +- XXX.XX AZIMUTH IN DEGREES
016117,000468: 14,2540 00661 OCT 00661 # R2 +- XX.XXX ELEVATION IN DEGREES
016118,000469: 14,2541 12770 TCF ENDTEST # R3 0000X TARGET NUMBER 1 OR 2
016119,000470:
016120,000471: 14,2542 52340 DXCH DSPTEM1 # TAZEL1 TARGET 1 AZIMUTH
016121,000472: 14,2543 51550 INDEX RUN
016122,000473: 14,2544 53554 DXCH TAZEL1 # TAZEL1 +2 TARGET 2 AZIMUTH
016123,000474: 14,2545 11550 CCS RUN
016124,000475: 14,2546 12552 TCF +4
016125,000476: 14,2547 37762 OPTRDRIN CAF TWO # SPECIAL ENTRY FOR RDR37511
016126,000477: 14,2550 54001 TS L
016127,000478: 14,2551 12530 TCF OPTDATA +4 # MPAC 1ST PASS = 0 2ND PASS = 2
016128,000479: 14,2552 01546 TC QPLACE
016129,000480:
|
|
Page 392 |
016131,000482: 14,2553 62545 LATAZCHK DLOAD SL2 # CALLS FOR AZIMUTH (SM) AND LATITUDE
016132,000483: 14,2554 02511 LATITUDE
016133,000484: 14,2555 14341 STODL DSPTEM1 +1
016134,000485: 14,2556 02507 AZIMUTH # ...NOT REALLY...
016135,000486:
016136,000487: 14,2557 77434 RTB EXIT
016137,000488: 14,2560 33522 1STO2S # FRACTION OF REVOLUTION TO 2S COMPLEMENT
016138,000489:
016139,000490: 14,2561 56144 XCH MPAC # AZIMUTH MUST BE 135 DEGREES R1 = +13500
016140,000491: 14,2562 54337 TS DSPTEM1 # FOR SXT-NB-IMU FINE ALIGNMENT TEST
016141,000492: 14,2563 02577 TC CHECKLD # R1 +- XXX.XX AZIMUTH IN DEGREES (SM)
016142,000493: 14,2564 00661 OCT 00661 # R2 +- XX.XXX LATITUDE IN DEGREES
016143,000494: 14,2565 12770 TCF ENDTEST # R3 NOT USED
016144,000495:
016145,000496: 14,2566 06112 TC INTPRET
016146,000497: 14,2567 47135 SLOAD RTB
016147,000498: 14,2570 00340 DSPTEM1
016148,000499: 14,2571 33457 CDULOGIC # BACK TO FRACTION OF REVOLUTION
016149,000500: 14,2572 02507 STORE AZIMUTH
016150,000501:
016151,000502: 14,2573 60535 SLOAD SR2
016152,000503: 14,2574 00341 DSPTEM1 +1
016153,000504: 14,2575 02511 STORE LATITUDE
016154,000505: 14,2576 77616 RVQ
016155,000506:
016156,000507:
016157,000508: 14,2577 00006 CHECKLD EXTEND
016158,000509: 14,2600 23545 QXCH QPLAC
016159,000510:
016160,000511: 14,2601 51545 INDEX QPLAC
016161,000512: 14,2602 30000 CA A
016162,000513: 14,2603 04444 TC NVSUB
016163,000514: 14,2604 12616 TCF CHECKLD1
016164,000515:
016165,000516: 14,2605 04622 TC FLASHON
016166,000517:
016167,000518: 14,2606 04475 TC ENDIDLE # CHANGE R1 V21 N61 E +- XXX.XX E
016168,000519: 14,2607 12612 TCF +3 # CHANGE R2 V22 N61 E +- XX.XXX E
016169,000520: 14,2610 12614 TCF +4 # VERIFY, THEN PROCEED WITH VERB 33 ENTER
016170,000521: 14,2611 12601 TCF CHECKLD +2
016171,000522: 14,2612 51545 INDEX QPLAC
016172,000523: 14,2613 00001 TC 1
016173,000524: 14,2614 51545 INDEX QPLAC
016174,000525: 14,2615 00002 TC 2
016175,000526:
016176,000527: 14,2616 32620 CHECKLD1 CAF CHECKLD2
016177,000528: 14,2617 04654 TC NVSUBUSY
016178,000529: 14,2620 30601 CHECKLD2 CADR CHECKLD +2
016179,000530:
|
|
Page 393 |
016181,000532: 14,2621 00006 POSNJUMP EXTEND # POSITIONS FOR SXTNBIMU
016182,000533: 14,2622 23546 QXCH QPLACE
016183,000534:
016184,000535: 14,2623 51544 INDEX POSITON
016185,000536: 14,2624 12625 TCF +1
016186,000537: 14,2625 12770 TCF ENDTEST
016187,000538: 14,2626 12633 TCF POS1
016188,000539: 14,2627 12640 TCF POS2
016189,000540: 14,2630 12656 TCF POS3
016190,000541: 14,2631 12677 TCF POS4
016191,000542: 14,2632 12731 TCF POS5
016192,000543:
016193,000544:
016194,000545:
016195,000546: 14,2633 37763 POS1 CAF ONE # XSM = V YSM = SW ZSM = SE
016196,000547: 14,2634 55542 TS PIPNDX
016197,000548: 14,2635 37762 CAF TWO
016198,000549: 14,2636 55543 TS PIPNDX +1 # MONITOR PIPAY AND PIPAZ
016199,000550: 14,2637 01546 TC QPLACE
016200,000551:
016201,000552:
016202,000553:
016203,000554: 14,2640 06112 POS2 TC INTPRET # XSM = SE YSM = SW ZSM = -V
016204,000555: 14,2641 57575 VLOAD VCOMP
016205,000556: 14,2642 02401 XSM
016206,000557: 14,2643 77715 PDVL
016207,000558: 14,2644 02415 ZSM
016208,000559: 14,2645 26401 STOVL XSM
016209,000560: 14,2646 77626 STADR
016210,000561: 14,2647 75362 STORE ZSM
016211,000562: 14,2650 77776 EXIT
016212,000563: 14,2651 37767 CAF ZERO
016213,000564: 14,2652 55542 TS PIPNDX
016214,000565: 14,2653 37763 CAF ONE
016215,000566: 14,2654 55543 TS PIPNDX +1 # MONITOR PIPAX AND PIPAY
016216,000567: 14,2655 01546 TC QPLACE
016217,000568:
016218,000569:
016219,000570:
016220,000571: 14,2656 06112 POS3 TC INTPRET # XSM = SE YSM = V ZSM = SW
016221,000572: 14,2657 63375 VLOAD PDVL
016222,000573: 14,2660 02401 XSM
016223,000574: 14,2661 02407 YSM
016224,000575: 14,2662 77715 PDVL
016225,000576: 14,2663 02415 ZSM
016226,000577: 14,2664 26401 STOVL XSM
016227,000578:
016228,000579: 14,2665 77626 STADR
016229,000580: 14,2666 51362 STOVL ZSM
016230,000581:
|
|
Page 394 |
016232,000583: 14,2667 77626 STADR
016233,000584: 14,2670 75370 STORE YSM
016234,000585: 14,2671 77776 EXIT
016235,000586: 14,2672 37767 CAF ZERO
016236,000587: 14,2673 55542 TS PIPNDX
016237,000588: 14,2674 37762 CAF TWO
016238,000589: 14,2675 55543 TS PIPNDX +1 # MONITOR PIPAX AND PIPAZ
016239,000590: 14,2676 01546 TC QPLACE
016240,000591:
016241,000592:
016242,000593:
016243,000594: 14,2677 37757 POS4 CAF BIT5 # OPTION TO ALIGN SM TO SPECIFIED ANGLES
016244,000595: 14,2700 60110 AD FIXLOC
016245,000596: 14,2701 50110 INDEX FIXLOC
016246,000597: 14,2702 54050 TS S1 # BASE ADDRESS GIMBAL ANGLES
016247,000598: 14,2703 33701 CAF V25N22E # R1 +- XXX.XX OUTER GIMBAL ANGLE
016248,000599: 14,2704 04657 TC NVSBWAIT # R2 +- XXX.XX INNER GIMBAL ANGLE
016249,000600: 14,2705 04475 TC ENDIDLE # R3 +- XXX.XX MIDDLE GIMBAL ANGLE
016250,000601: 14,2706 12770 TCF ENDTEST
016251,000602: 14,2707 12703 TCF -4
016252,000603: 14,2710 30400 CA THETAD # SET UP ANGLES FOR SMNB
016253,000604: 14,2711 50110 INDEX FIXLOC
016254,000605: 14,2712 54024 TS 24
016255,000606: 14,2713 30401 CA THETAD +1
016256,000607: 14,2714 50110 INDEX FIXLOC
016257,000608: 14,2715 54020 TS 20
016258,000609: 14,2716 30402 CA THETAD +2
016259,000610: 14,2717 50110 INDEX FIXLOC
016260,000611: 14,2720 54022 TS 22
016261,000612:
016262,000613: 14,2721 06112 TC INTPRET
016263,000614: 14,2722 45034 RTB CALL
016264,000615: 14,2723 33031 TRANSPSE # EARTH REF WRT NAV BASE
016265,000616: 14,2724 33043 SMD/EREF # STABLE MEMBER DESIRED WRT EARTH REF
016266,000617: 14,2725 77634 RTB
016267,000618: 14,2726 33031 TRANSPSE # BACK TO NAV BASE WRT TO EARTH REF
016268,000619: 14,2727 77776 EXIT
016269,000620: 14,2730 01546 TC QPLACE
016270,000621:
|
|
Page 395 |
016272,000623: 14,2731 31546 POS5 CA QPLACE # OPTION TO ALIGN SM TO ANY ORIENTATION
016273,000624: 14,2732 55551 TS STOREPL # WRT EARTH REFERENCE FRAME
016274,000625:
016275,000626: 14,2733 02524 TC OPTDATA # LOAD YSM AND ZSM AZIMUTH AND ELEVATION
016276,000627:
016277,000628: 14,2734 06112 TC INTPRET
016278,000629: 14,2735 77624 CALL
016279,000630: 14,2736 30350 TAR/EREF # CALC YSM AND ZSM WRT EARTH REF. FRAME
016280,000631: 14,2737 41575 VLOAD PUSH
016281,000632: 14,2740 00007 6D
016282,000633: 14,2741 02407 STORE YSM
016283,000634: 14,2742 76435 VXV VSL1
016284,000635: 14,2743 00015 12D
016285,000636: 14,2744 02401 STORE XSM # XSM = (YSM) X (ZSM)
016286,000637: 14,2745 76435 VXV VSL1
016287,000638: 14,2746 77626 STADR
016288,000639: 14,2747 75362 STORE ZSM # ZSM = (XSM) X (YSM)
016289,000640: 14,2750 77776 EXIT
016290,000641:
016291,000642: 14,2751 01551 TC STOREPL
|
|
Page 396 |
016293,000644: 14,2752 00006 OGCZERO EXTEND # ZERO EARTH RATE TORQUING ANGLES
016294,000645: 14,2753 23546 QXCH QPLACE
016295,000646:
016296,000647: 14,2754 06112 TC INTPRET
016297,000648: 14,2755 77775 VLOAD
016298,000649: 14,2756 33105 ZERODP # VECTOR IN THIS CASE
016299,000650: 14,2757 02772 STORE ERCOMP
016300,000651: 14,2760 77776 EXIT
016301,000652: 14,2761 01546 TC QPLACE
016302,000653:
016303,000654:
016304,000655:
016305,000656: 14,2762 37756 GMLCKCHK CAF BIT6 # CHECK FOR GIMBAL LOCK (MGA GREATER 70)
016306,000657: 14,2763 70326 MASK DSPTAB +11D
016307,000658: 14,2764 00006 EXTEND
016308,000659: 14,2765 12767 BZF +2
016309,000660: 14,2766 12770 TCF ENDTEST
016310,000661: 14,2767 00002 TC Q
016311,000662:
016312,000663:
016313,000664:
016314,000665: 14,2770 37754 ENDTEST CA IMUSEFLG # BIT8
016315,000666: 14,2771 67755 AD RRUSEFLG # BIT7
016316,000667: 14,2772 40000 CS A
016317,000668: 14,2773 00004 INHINT
016318,000669: 14,2774 70074 MASK STATE
016319,000670: 14,2775 54074 TS STATE
016320,000671:
016321,000672: 14,2776 04117 TC NEWMODEX
016322,000673: 14,2777 00000 OCT 00000
016323,000674:
016324,000675: 14,3000 05206 TC BANKCALL
016325,000676: 14,3001 27046 CADR MKRELEAS # RELEASE MARK SYSTEM
016326,000677: 14,3002 05566 TC EJFREE
016327,000678:
|
|
Page 397 |
016329,000680: 14,3003 06112 LEMLAB TC INTPRET
016330,000681: 14,3004 57575 VLOAD VCOMP
016331,000682: 14,3005 33101 YUNIT
016332,000683:
016333,000684: 14,3006 02437 STORE ZNB # XNB MATRIX USED IN CALCGA
016334,000685: 14,3007 26461 STOVL STARAD +12D # STARAD MATRIX USED IN AXISGEN * SMDCALC
016335,000686: 14,3010 33103 XUNIT
016336,000687:
016337,000688: 14,3011 02423 STORE XNB # *XNB* *1 0 0* *V*
016338,000689: 14,3012 26445 STOVL STARAD # * * * * * *
016339,000690: 14,3013 33077 ZUNIT # *YNB* = *0 0 1* *S*
016340,000691: 14,3014 02431 STORE YNB # * * * * * *
016341,000692: 14,3015 02453 STORE STARAD +6 # *ZNB* *0 -1 0* *E*
016342,000693: 14,3016 77776 EXIT
016343,000694:
016344,000695: 14,3017 41544 CS POSITON
016345,000696: 14,3020 66311 AD THREE
016346,000697: 14,3021 00006 EXTEND
016347,000698: 14,3022 13024 BZF +2
016348,000699: 14,3023 13037 TCF LEMLAB1
016349,000700:
016350,000701: 14,3024 06112 TC INTPRET
016351,000702: 14,3025 57575 VLOAD VCOMP
016352,000703: 14,3026 02423 XNB
016353,000704: 14,3027 77715 PDVL # *XNB* * 0 -1 0* *V*
016354,000705: 14,3030 02437 ZNB # * * * * * *
016355,000706: 14,3031 02423 STORE XNB # *YNB* = * 0 0 1* *S*
016356,000707: 14,3032 26445 STOVL STARAD # * * * * * *
016357,000708: 14,3033 77626 STADR # *ZNB* *-1 0 0* * *
016358,000709: 14,3034 75340 STORE ZNB
016359,000710: 14,3035 02461 STORE STARAD +12D
016360,000711: 14,3036 77776 EXIT
016361,000712:
016362,000713: 14,3037 05206 LEMLAB1 TC BANKCALL
016363,000714: 14,3040 26751 CADR IMUSTALL # INSURE IMUZERO COMPLETION
016364,000715:
016365,000716: 14,3041 12770 TCF ENDTEST
016366,000717:
016367,000718: 14,3042 02621 TC POSNJUMP # SET UP STABLE MEMBER DESIRED COORDINATES
016368,000719: 14,3043 04724 TC FREEDSP # FREE DISPLAY SYSTEM
016369,000720: 14,3044 02247 TC PUTPOSX # TO COARSE ALIGN STABLE MEMBER
016370,000721:
016371,000722: 14,3045 02762 TC GMLCKCHK
016372,000723:
016373,000724: 14,3046 05206 TC BANKCALL
016374,000725: 14,3047 26252 CADR IMUFINE # FINE ALIGN MODE
016375,000726: 14,3050 05206 TC BANKCALL
016376,000727: 14,3051 26751 CADR IMUSTALL
016377,000728: 14,3052 12770 TCF ENDTEST
016378,000729:
|
|
Page 398 |
016380,000731: 14,3053 30032 CA CDUX
016381,000732: 14,3054 50110 INDEX FIXLOC
016382,000733: 14,3055 54024 TS 24
016383,000734: 14,3056 30033 CA CDUY
016384,000735: 14,3057 50110 INDEX FIXLOC
016385,000736: 14,3060 54020 TS 20
016386,000737: 14,3061 30034 CA CDUZ
016387,000738: 14,3062 50110 INDEX FIXLOC
016388,000739: 14,3063 54022 TS 22
016389,000740:
016390,000741: 14,3064 37757 CAF BIT5
016391,000742: 14,3065 60110 AD FIXLOC
016392,000743: 14,3066 50110 INDEX FIXLOC
016393,000744: 14,3067 54050 TS S1
016394,000745:
016395,000746: 14,3070 02263 TC SMDCALC # TO FINE ALIGN STABLE MEMBER
016396,000747:
016397,000748: 14,3071 06112 TC INTPRET # IF EARTH RATE COMPENSATION DESIRED
016398,000749: 14,3072 77634 RTB
016399,000750: 14,3073 33454 LOADTIME
016400,000751: 14,3074 02565 STORE TMARK
016401,000752: 14,3075 77776 EXIT
016402,000753:
016403,000754: 14,3076 41512 CS EROPTN
016404,000755: 14,3077 67762 AD TWO
016405,000756: 14,3100 00006 EXTEND
016406,000757: 14,3101 13103 BZF +2
016407,000758:
016408,000759: 14,3102 12051 TCF ERFINAL +2
016409,000760:
016410,000761: 14,3103 05206 TC BANKCALL
016411,000762: 14,3104 47236 CADR SAMODRTN # RETURN TO SEMI-AUTOMATIC MODING TEST
016412,000763:
|
|
Page 399 |
016414,000765: 14,3105 33717 RDR37511 CAF RDRRETN # RENDEZVOUS RADAR AND ANTENNA TRACKING
016415,000766: 14,3106 55546 TS QPLACE # TO RETURN FROM OPTDATA
016416,000767:
016417,000768: 14,3107 05206 TC BANKCALL
016418,000769: 14,3110 20250 CADR RRZERO
016419,000770:
016420,000771: 14,3111 05206 TC BANKCALL
016421,000772: 14,3112 22760 CADR AURLOKON # OPERATOR DECISION TO LOCK ON OR NOT
016422,000773:
016423,000774: 14,3113 12547 RDR1 TCF OPTRDRIN # CALL FOR AZIMUTH AND ELEVATION
016424,000775:
016425,000776: 14,3114 05206 TC BANKCALL
016426,000777: 14,3115 26745 CADR RADSTALL
016427,000778: 14,3116 15567 TCF ENDOFJOB
016428,000779:
016429,000780: 14,3117 06112 TC INTPRET
016430,000781: 14,3120 77170 AXT,1 AXT,2 # SET UP X1 AND X2 FOR TAR/EREF
016431,000782: 14,3121 00000 0
016432,000783: 14,3122 00006 6
016433,000784: 14,3123 77624 CALL
016434,000785: 14,3124 30353 TAR/EREF +3 # LINE-OF-SIGHT WRT EARTH REF FRAME
016435,000786: 14,3125 64375 VLOAD MXV
016436,000787: 14,3126 00015 12D # LINE-OF-SIGHT WRT EARTH REF FRAME
016437,000788: 14,3127 02401 XSM # TO STABLE MEMBER PRESENT FRAME
016438,000789: 14,3130 77772 VSL1
016439,000790: 14,3131 34415 STCALL RRTARGET
016440,000791: 14,3132 20307 RRDESSM
016441,000792:
016442,000793: 14,3133 13140 TCF 37511ALM
016443,000794: 14,3134 05206 TC BANKCALL
016444,000795: 14,3135 26745 CADR RADSTALL
016445,000796: 14,3136 15567 TCF ENDOFJOB
016446,000797: 14,3137 15567 TCF ENDOFJOB
016447,000798:
016448,000799:
016449,000800:
016450,000801: 14,3140 04755 37511ALM TC ALARM
016451,000802: 14,3141 00524 OCT 524
016452,000803: 14,3142 15567 TCF ENDOFJOB
016453,000804:
016454,000805:
016455,000806:
016456,000807: 14,3143 47767 RDRINIT CS ZERO
016457,000808: 14,3144 55512 TS EROPTN
016458,000809: 14,3145 12002 TCF AOTNBIMU +2
016459,000810:
|
|
Page 400 |
016461,000812: 14,3146 04644 MISALIGN TC GRABWAIT # DISPLAY SYSTEM WAS FREED
016462,000813: 14,3147 37767 CAF ZERO
016463,000814: 14,3150 55537 TS NDXCTR
016464,000815: 14,3151 51537 BBBB INDEX NDXCTR
016465,000816: 14,3152 41674 CS GENPL +68D
016466,000817: 14,3153 51537 INDEX NDXCTR
016467,000818: 14,3154 27702 ADS GENPL +74D
016468,000819: 14,3155 33705 CAF 63DEC
016469,000820: 14,3156 61537 AD NDXCTR
016470,000821: 14,3157 10000 CCS A
016471,000822: 14,3160 46311 CS THREE
016472,000823: 14,3161 27537 ADS NDXCTR
016473,000824: 14,3162 13151 TCF BBBB
016474,000825: 14,3163 55537 TS NDXCTR
016475,000826:
016476,000827:
016477,000828:
016478,000829: 14,3164 06112 CCCC TC INTPRET
016479,000830: 14,3165 70750 LXA,1 DLOAD*
016480,000831: 14,3166 02537 NDXCTR
016481,000832: 14,3167 02701 GENPL +72D,1
016482,000833: 14,3170 77625 DSU
016483,000834: 14,3171 02571 GENPL
016484,000835: 14,3172 06701 STORE GENPL +72D,1
016485,000836: 14,3173 77776 EXIT
016486,000837: 14,3174 41537 CS NDXCTR
016487,000838: 14,3175 63706 AD 69DEC
016488,000839: 14,3176 10000 CCS A
016489,000840: 14,3177 36311 CAF THREE
016490,000841: 14,3200 27537 ADS NDXCTR
016491,000842: 14,3201 13164 TCF CCCC
016492,000843: 14,3202 55550 TS RUN
016493,000844: 14,3203 36311 CAF THREE
016494,000845: 14,3204 55537 TS NDXCTR
016495,000846:
016496,000847:
016497,000848:
016498,000849: 14,3205 06112 DDDD TC INTPRET
016499,000850: 14,3206 77775 VLOAD
016500,000851: 14,3207 33105 ZERODP
016501,000852: 14,3210 00031 STORE 24D
016502,000853: 14,3211 00037 STORE 30D
016503,000854: 14,3212 77735 SLOAD
016504,000855: 14,3213 31703 11DEC
016505,000856: 14,3214 00041 STORE 32D
016506,000857: 14,3215 77776 EXIT
016507,000858:
016508,000859: 14,3216 06112 DDDD1 TC INTPRET
016509,000860: 14,3217 70750 LXA,1 DLOAD*
016510,000861: 14,3220 02537 NDXCTR
016511,000862:
|
|
Page 401 |
016513,000864: 14,3221 02701 GENPL +72D,1
016514,000865: 14,3222 41423 DSU* PUSH
016515,000866: 14,3223 02673 GENPL +66D,1
016516,000867: 14,3224 42742 SR1 DAD*
016517,000868: 14,3225 02673 GENPL +66D,1
016518,000869: 14,3226 06701 STORE GENPL +72D,1
016519,000870:
016520,000871: 14,3227 43312 SL2 DAD
016521,000872: 14,3230 00031 24D
016522,000873: 14,3231 20031 STODL* 24D
016523,000874: 14,3232 02701 GENPL +72D,1
016524,000875: 14,3233 63412 SL4 DSQ
016525,000876: 14,3234 77615 DAD
016526,000877: 14,3235 00033 26D
016527,000878: 14,3236 00033 STORE 26D
016528,000879: 14,3237 77776 EXIT
016529,000880: 14,3240 31550 CAE RUN
016530,000881: 14,3241 61537 AD NDXCTR
016531,000882: 14,3242 40000 COM
016532,000883: 14,3243 63705 AD 63DEC
016533,000884: 14,3244 10000 CCS A
016534,000885: 14,3245 36306 CAF SIX
016535,000886: 14,3246 27537 ADS NDXCTR
016536,000887: 14,3247 13216 TCF DDDD1
016537,000888: 14,3250 61550 AD RUN
016538,000889: 14,3251 55537 TS NDXCTR
016539,000890:
016540,000891:
016541,000892:
016542,000893: 14,3252 06112 EEEE TC INTPRET
016543,000894: 14,3253 66740 LXC,1 SLOAD*
016544,000895: 14,3254 02537 NDXCTR
016545,000896: 14,3255 02604 GENPL +11D,1
016546,000897: 14,3256 00043 STORE 34D
016547,000898: 14,3257 77745 DLOAD
016548,000899: 14,3260 54206 PUSH SL
016549,000900: 14,3261 20211 8D
016550,000901: 14,3262 43265 BDDV DAD
016551,000902: 14,3263 00043 34D
016552,000903: 14,3264 00035 28D
016553,000904: 14,3265 14035 STODL 28D
016554,000905: 14,3266 55261 SL BDDV
016555,000906: 14,3267 20207 6
016556,000907: 14,3270 00043 34D
016557,000908: 14,3271 42523 PDDL* SL4
016558,000909: 14,3272 02602 GENPL +9D,1
016559,000910: 14,3273 77605 DMP
016560,000911: 14,3274 77615 DAD
016561,000912: 14,3275 00037 30D
016562,000913: 14,3276 00037 STORE 30D
016563,000914:
|
|
Page 402 |
016565,000916: 14,3277 77776 EXIT
016566,000917: 14,3300 41537 CS NDXCTR
016567,000918: 14,3301 63704 AD 60DEC
016568,000919: 14,3302 61550 AD RUN
016569,000920: 14,3303 10000 CCS A
016570,000921: 14,3304 36306 CAF SIX
016571,000922: 14,3305 27537 ADS NDXCTR
016572,000923: 14,3306 13252 TCF EEEE
016573,000924:
016574,000925:
016575,000926:
016576,000927: 14,3307 06112 TC INTPRET
016577,000928: 14,3310 41345 DLOAD DMP
016578,000929: 14,3311 00031 24D
016579,000930: 14,3312 00037 30D
016580,000931: 14,3313 41325 PDDL DMP
016581,000932: 14,3314 00033 26D
016582,000933: 14,3315 00035 28D
016583,000934: 14,3316 77625 DSU
016584,000935: 14,3317 63525 PDDL DSQ
016585,000936: 14,3320 00031 24D
016586,000937: 14,3321 65342 SR1 PDDL
016587,000938: 14,3322 00041 32D
016588,000939: 14,3323 41261 SL DMP
016589,000940: 14,3324 20212 11
016590,000941: 14,3325 00033 26D
016591,000942: 14,3326 55225 DSU BDDV
016592,000943: 14,3327 54205 DMP SL
016593,000944: 14,3330 31716 KKKK
016594,000945: 14,3331 20204 3
016595,000946: 14,3332 00343 STORE DSPTEM2
016596,000947: 14,3333 77776 EXIT
016597,000948:
016598,000949: 14,3334 31544 CA POSITON
016599,000950: 14,3335 54344 TS DSPTEM2 +2
016600,000951:
016601,000952: 14,3336 33677 CAF V06N66E
016602,000953: 14,3337 04657 TC NVSBWAIT
016603,000954: 14,3340 04622 TC FLASHON
016604,000955: 14,3341 04475 TC ENDIDLE
016605,000956: 14,3342 12770 TCF ENDTEST
016606,000957: 14,3343 36311 CAF THREE
016607,000958: 14,3344 55550 TS RUN
016608,000959: 14,3345 37767 CAF ZERO
016609,000960: 14,3346 13204 TCF DDDD -1
016610,000961:
|
|
Page 403 |
016612,000963: # THIS REVISION REFLECTS CHANGES AS OF
016613,000964: # 1/31/66
016614,000965: # ENGINE ON/OFF NOW IN CHANNEL ELEVEN. THE BITS FOR EACH CHANNEL GET TURNED ON ALL AT ONCE. THEY STAY ON UNTIL
016615,000966: # :ENTER:IS PUSHED. THEN THEY ALL GO OUT AND THE NEXT CHANNEL:S BITS ARE TURNED ON.
016616,000967: # CHANNEL 5 BITS 1-8
016617,000968: # CHANNEL 6 BITS 1-8
016618,000969: # CHANNEL 11 BITS 13,14
016619,000970: # CHANNEL 12 BITS 9-14
016620,000971: # FOLLOWING THE CHANNEL 12 TESTS ENTER IS PRESSED. CHANNEL 12 IS SET TO ZERO AND THE NEXT TEST BEGUN. LOW9
016621,000972: # GOES IN LOCATION (COUNTER) 55.
016622,000973: # INCREASE THROTTLE RATE DESCENT ENGINE
016623,000974: # :ENTER: NOW CAUSES THE CONTENTS OF 55 TO BE MADE NEGATIVE
016624,000975: # DECREASE THROTTLE RATE DESCENT ENGINE
016625,000976: # THE NEXT :ENTER: ZEROS THE REGISTER AND SENDS A PULSE TRAIN (HERE ALTERN
016626,000977: # ZEROS FOR CLARITY) TO THE ALTITUDE METER.
016627,000978: # THE NEXT :ENTER: WILL ADVANCE THE TEST TO THE ALTITUDE RATE METER TEST.
016628,000979: # THE NEXT :ENTER : WILL TERMINATE THE TEST.
016629,000980:
016630,000981:
016631,000982:
016632,000983: 14,3347 37743 SAUTOIFS CA POSMAX
016633,000984: 14,3350 55576 TS NOBITS
016634,000985: 14,3351 37767 CA ZERO
016635,000986: 14,3352 55577 TS CHAN
016636,000987: 14,3353 55575 TS TEMP
016637,000988: 14,3354 03356 TC DINO
016638,000989: 14,3355 25577 BACK1 INCR CHAN
016639,000990:
016640,000991: 14,3356 51577 DINO INDEX CHAN
016641,000992: 14,3357 33361 CA SAUTLOCS
016642,000993: 14,3360 15212 TCF SWCALL
016643,000994: 14,3361 31375 SAUTLOCS CADR CHAN5D
016644,000995: 14,3362 31413 CADR CHAN6D
016645,000996: 14,3363 31421 CADR CHAN11D
016646,000997: 14,3364 31433 CADR CHAN12D
016647,000998: 14,3365 31445 CADR PTITRDE
016648,000999: 14,3366 31472 CADR PTDTRDE
016649,001000: 14,3367 31547 CADR ALTMET
016650,001001: 14,3370 31574 CADR ALTRMET
016651,001002: 14,3371 30770 CADR ENDTEST
016652,001003: 14,3372 31477 THROTADD CADR PTDTRDE +5
016653,001004: 14,3373 31552 METERADD CADR ALTMET +3
016654,001005: 14,3374 31577 MRATEADD CADR ALTRMET +3
016655,001006: 14,3375 37766 CHAN5D CA FIVE
016656,001007: 14,3376 54337 TS DSPTEM1
016657,001008: 14,3377 34564 2ENTRY CA LOW8 # CHANNEL 6 RETURNS HERE
016658,001009: 14,3400 54340 TS DSPTEM1 +1
016659,001010: 14,3401 00006 EXTEND
016660,001011: 14,3402 51575 INDEX TEMP
016661,001012: 14,3403 01005 WRITE 5
016662,001013:
|
|
Page 404 |
016664,001015: 14,3404 33666 3ENTRY CA V04N30D # CH11,12 RETURN HERE TO USE THE DISPLAY
016665,001016: 14,3405 04657 TC NVSBWAIT
016666,001017: 14,3406 33673 4ENTRY CAF WAITER # WAITER IS 03300
016667,001018: 14,3407 04657 TC NVSBWAIT
016668,001019: 14,3410 04475 TC ENDIDLE
016669,001020: 14,3411 02770 TC ENDTEST
016670,001021: 14,3412 03355 TC BACK1
016671,001022:
016672,001023: 14,3413 25575 CHAN6D INCR TEMP
016673,001024: 14,3414 24337 INCR DSPTEM1
016674,001025: 14,3415 37767 CAF ZERO
016675,001026: 14,3416 00006 EXTEND
016676,001027: 14,3417 01005 WRITE 5 # GET RID OF CHANNEL 5 BITS
016677,001028: 14,3420 03377 TC 2ENTRY
016678,001029: 14,3421 34530 CHAN11D CA OCT11
016679,001030: 14,3422 54337 TS DSPTEM1
016680,001031: 14,3423 35210 CA BIT13-14
016681,001032: 14,3424 54340 TS DSPTEM1 +1
016682,001033: 14,3425 00006 EXTEND
016683,001034: 14,3426 05011 WOR 11 # WOR IS NON EXCLUSIVE OR
016684,001035: 14,3427 37767 CAF ZERO
016685,001036: 14,3430 00006 EXTEND
016686,001037: 14,3431 01006 WRITE 6
016687,001038: 14,3432 03404 TC 3ENTRY
016688,001039: 14,3433 34570 CHAN12D CA OCT12
016689,001040: 14,3434 54337 TS DSPTEM1
016690,001041: 14,3435 45210 CS BIT13-14
016691,001042: 14,3436 00006 EXTEND
016692,001043: 14,3437 03011 WAND 11
016693,001044: 14,3440 33671 CA CH12BITS
016694,001045: 14,3441 54340 TS DSPTEM1 +1
016695,001046: 14,3442 00006 EXTEND
016696,001047: 14,3443 05012 WOR 12
016697,001048: 14,3444 03404 TC 3ENTRY
016698,001049: 14,3445 43671 PTITRDE CS CH12BITS
016699,001050: 14,3446 00006 EXTEND
016700,001051: 14,3447 03012 WAND 12
016701,001052: 14,3450 37767 CA ZERO
016702,001053: 14,3451 54337 TS DSPTEM1
016703,001054: 14,3452 54340 TS DSPTEM1 +1
016704,001055: 14,3453 55575 TS TEMP
016705,001056: 14,3454 37763 CA BIT1
016706,001057: 14,3455 55576 TS NOBITS
016707,001058: 14,3456 00004 PIT INHINT
016708,001059: 14,3457 05663 TC WAITLIST
016709,001060: 14,3460 E5,1400 EBANK= XSM
016710,001061: 14,3460 03503 30065 2CADR THROTASK
016711,001062:
016712,001063: 14,3462 00003 RELINT
016713,001064: 14,3463 33673 CA WAITER
|
|
Page 405 |
016715,001066: 14,3464 04657 TC NVSBWAIT
016716,001067:
016717,001068: 14,3465 04475 TC ENDIDLE
016718,001069: 14,3466 02770 TC ENDTEST
016719,001070: 14,3467 37767 CA ZERO
016720,001071: 14,3470 55576 TS NOBITS
016721,001072: 14,3471 03355 TC BACK1
016722,001073:
016723,001074: 14,3472 37767 PTDTRDE CA ZERO
016724,001075: 14,3473 54055 TS THRUST
016725,001076: 14,3474 33372 CA THROTADD
016726,001077: 14,3475 55574 TS TEMPADD
016727,001078: 14,3476 05545 TC JOBSLEEP # THIS INHIBITS THE NEXT TASK UNTIL
016728,001079: # CURRENT TASK HAS BEEN COMPLETED
016729,001080: 14,3477 37743 CA POSMAX
016730,001081: 14,3500 55575 TS TEMP
016731,001082: 14,3501 37755 CA BIT7
016732,001083: 14,3502 03456 TC PIT
016733,001084: 14,3503 11576 THROTASK CCS NOBITS # IS THIS TASK STILL REQ
016734,001085: 14,3504 03511 TC +5 # YES
016735,001086: 14,3505 31574 CA TEMPADD # NO
016736,001087: 14,3506 55576 TS NOBITS
016737,001088: 14,3507 05551 TC JOBWAKE
016738,001089: 14,3510 05727 TC TASKOVER
016739,001090: 14,3511 11575 CCS TEMP
016740,001091: 14,3512 03525 TC SOMETIME
016741,001092: 14,3513 34563 CA LOW11
016742,001093: 14,3514 54055 ALWAYS TS THRUST
016743,001094: 14,3515 37760 CA BIT4
016744,001095: 14,3516 00006 EXTEND # A SMERZH FIX.
016745,001096: 14,3517 05014 WOR 14
016746,001097: 14,3520 37756 CA BIT6 # 320 MS.DELAY
016747,001098: 14,3521 05663 TC WAITLIST
016748,001099: 14,3522 E5,1400 EBANK= XSM
016749,001100: 14,3522 03503 30065 2CADR THROTASK
016750,001101:
016751,001102: 14,3524 05727 TC TASKOVER
016752,001103: 14,3525 44563 SOMETIME CS LOW11
016753,001104: 14,3526 03514 TC ALWAYS
016754,001105: 14,3527 11576 ALTASK CCS NOBITS # IS TASK STILL REQ
016755,001106: 14,3530 03535 TC +5
016756,001107: 14,3531 31574 CA TEMPADD # NO
016757,001108: 14,3532 55576 TS NOBITS # ENABLES NEXT TASK
016758,001109: 14,3533 05551 TC JOBWAKE
016759,001110: 14,3534 05727 TC TASKOVER
016760,001111: 14,3535 33667 CA ALBITS # ACTUAL TASK STARTS HERE
016761,001112: 14,3536 54060 TS ALTM
016762,001113: 14,3537 37761 CA BIT3
016763,001114: 14,3540 00006 EXTEND
016764,001115: 14,3541 05014 WOR 14
016765,001116: 14,3542 37756 CA BIT6 # 320 MS. DELAY
|
|
Page 406 |
016767,001118: 14,3543 05663 TC WAITLIST
016768,001119: 14,3544 E5,1400 EBANK= XSM
016769,001120: 14,3544 03527 30065 2CADR ALTASK
016770,001121:
016771,001122: 14,3546 05727 TC TASKOVER
016772,001123: 14,3547 33373 ALTMET CA METERADD
016773,001124: 14,3550 55574 TS TEMPADD
016774,001125: 14,3551 05545 TC JOBSLEEP
016775,001126: 14,3552 37767 CA ZERO
016776,001127: 14,3553 55575 TS TEMP
016777,001128: 14,3554 47760 CS BIT4
016778,001129: 14,3555 00006 EXTEND
016779,001130: 14,3556 03014 WAND 14
016780,001131: 14,3557 00004 INHINT
016781,001132: 14,3560 37763 CA ONE
016782,001133: 14,3561 05663 TC WAITLIST
016783,001134: 14,3562 E5,1400 EBANK= XSM
016784,001135: 14,3562 03527 30065 2CADR ALTASK
016785,001136:
016786,001137: 14,3564 00003 RELINT
016787,001138: 14,3565 33673 CA WAITER
016788,001139: 14,3566 04657 TC NVSBWAIT
016789,001140: 14,3567 04475 TC ENDIDLE
016790,001141: 14,3570 02770 TC ENDTEST
016791,001142: 14,3571 37767 CA ZERO
016792,001143: 14,3572 55576 TS NOBITS
016793,001144: 14,3573 03355 TC BACK1
016794,001145:
016795,001146: 14,3574 33374 ALTRMET CA MRATEADD
016796,001147: 14,3575 55574 TS TEMPADD
016797,001148: 14,3576 05545 TC JOBSLEEP
016798,001149: 14,3577 37763 CA ONE
016799,001150: 14,3600 55575 TS TEMP # TEMP WILL BE INDEXED TO ACQUIRE BIT2 INS
016800,001151: # TEAD OF BIT3
016801,001152: 14,3601 37762 CA BIT2
016802,001153: 14,3602 00006 EXTEND
016803,001154: 14,3603 05014 WOR 14
016804,001155: 14,3604 03557 TC ALTMET +8D
016805,001156:
|
|
Page 407 |
016807,001158: # THE AOT ANGLE CHECKING PROGRAM PROVIDES A SIMPLE VERIFICATION OF THE ACCURACY OF THE AOT. THE IDEA IS TO
016808,001159: # COMPUTE THE ANGLE BETWEEN TWO LINES OF SIGHT AS INDICATED BY THE AOT, WHICH IS WHAT THIS PROGRAM DOES.
016809,001160: # INDEPENDENT KNOWLEDGE OF THE INCLUDED ANGLE PROVIDES A COMPARISON AND THUS A MEASURE OF THE AOT ACCURACY.
016810,001161: # THE ISS NEED NOT BE ON TO RUN THIS PROGRAM.
016811,001162:
016812,001163:
016813,001164: 14,3605 06112 AOTANGCK TC INTPRET
016814,001165: 14,3606 77414 SET EXIT # IN CASE THE ISS IS OFF.
016815,001166: 14,3607 00065 COAROFIN
016816,001167: 14,3610 02135 TC FINDNAVB # FOR LOS1 AND LOS2.
016817,001168: 14,3611 06112 TC INTPRET
016818,001169: 14,3612 47375 VLOAD VXV
016819,001170: 14,3613 02601 LOS1
016820,001171: 14,3614 02607 LOS2
016821,001172: 14,3615 77646 ABVAL
016822,001173: 14,3616 24023 STOVL SINTH # SINTH = ABVAL (VXV ).
016823,001174: 14,3617 02601 LOS1
016824,001175: 14,3620 77641 DOT
016825,001176: 14,3621 02607 LOS2
016826,001177: 14,3622 34021 STCALL COSTH # COSTH = V.V
016827,001178: 14,3623 32476 ARCTRIG
016828,001179: 14,3624 77634 RTB
016829,001180: 14,3625 33522 1STO2S # DP 1S COMP TO SP 2S COMP.
016830,001181: 14,3626 00025 STORE THETA
016831,001182: 14,3627 77776 EXIT
016832,001183: 14,3630 33720 CAF THETAADR
016833,001184: 14,3631 60110 AD FIXLOC
016834,001185: 14,3632 54146 TS MPAC +2
016835,001186: 14,3633 33676 CAF V06N03E # XXX.XX DEGREES IN R1.
016836,001187: 14,3634 04657 TC NVSBWAIT
016837,001188: 14,3635 12770 TCF ENDTEST
016838,001189:
|
|
Page 408 |
016840,001191: 14,3636 E3,1400 EBANK= 1400
016841,001192: 14,3636 00004 ZEROERAS INHINT # PROGRAM BY MUNTZ TO ZERO ERASEABLE
016842,001193: 14,3637 37767 CAF ZERO
016843,001194: 14,3640 54026 TS TIME3
016844,001195: 14,3641 33665 CAF OCT27
016845,001196: 14,3642 54003 TS EBANK
016846,001197: 14,3643 22007 ZEROLP ZL
016847,001198: 14,3644 50000 INDEX A
016848,001199: 14,3645 23401 LXCH 1401
016849,001200: 14,3646 67762 AD TWO
016850,001201: 14,3647 26003 ADS EBANK
016851,001202: 14,3650 74564 MASK LOW8
016852,001203: 14,3651 10000 CCS A
016853,001204: 14,3652 13643 TCF ZEROLP
016854,001205: 14,3653 10003 CCS EBANK
016855,001206: 14,3654 13657 TCF ZEROLP1
016856,001207: 14,3655 05225 TC POSTJUMP
016857,001208: 14,3656 02000 CADR SLAP1
016858,001209: 14,3657 00003 ZEROLP1 RELINT
016859,001210: 14,3660 37767 CAF ZERO # KEEP T4RUPT GOING, BUT NOT CYCLING.
016860,001211: 14,3661 54347 TS DSRUPTSW
016861,001212: 14,3662 00004 INHINT
016862,001213: 14,3663 47763 CS ONE
016863,001214: 14,3664 13643 TCF ZEROLP
016864,001215: 14,3665 00027 OCT27 OCT 27
016865,001216:
|
|
Page 409 |
016867,001218: 14,3666 E5,1500 EBANK= OGC
016868,001219: 14,3666 00430 V04N30D OCT 00430
016869,001220: 14,3667 52525 ALBITS OCT 52525
016870,001221: 14,3670 70707 THRSBITS OCT 70707
016871,001222: 14,3671 4570 OCT12 = TEN
016872,001223: 14,3671 4530 OCT11 = NINE
016873,001224: 14,3671 37400 CH12BITS OCT 37400
016874,001225: 14,3672 00130 V01N30D OCT 00130
016875,001226: 14,3673 03300 WAITER OCT 03300
016876,001227:
016877,001228:
016878,001229: 14,3674 00130 V01N30E OCT 00130 # FOR FINDNAVB
016879,001230: 14,3675 00530 V05N30E OCT 00530 # FOR OPTDATA
016880,001231: 14,3676 00603 V06N03E OCT 00603
016881,001232: 14,3677 00666 V06N66E OCT 00666
016882,001233: 14,3700 02430 V24N30E OCT 02430 # FOR POSITION LOAD
016883,001234: 14,3701 02522 V25N22E OCT 02522 # FOR POS4
016884,001235:
016885,001236: 14,3702 00013 11DEC DEC 11 B-14
016886,001237: 14,3703 00021 17DEC DEC 17 B-14
016887,001238: 14,3704 00074 60DEC DEC 60 B-14
016888,001239: 14,3705 00077 63DEC DEC 63 B-14
016889,001240: 14,3706 00105 69DEC DEC 69 B-14 # FOR MISALIGN
016890,001241: 14,3707 00110 72DEC DEC 72 B-14 # FOR STORRSLT
016891,001242:
016892,001243: 14,3710 05670 30SEC DEC 3000 B-14 # 3000 X 10 MSEC
016893,001244: 14,3711 13560 60SEC DEC 6000 B-14 # 6000 X 10 MSEC
016894,001245:
016895,001246: 14,3712 01500 OGCADR ADRES OGC # FOR ZEROING
016896,001247: 14,3713 01570 GENPLAD1 ADRES GENPL
016897,001248: 14,3714 02570 GENPLADR ECADR GENPL # FOR POS4
016898,001249: 14,3715 00322 14366 KKKK 2DEC 210.39 B-14 # 1230 B-14 FOR CSM
016899,001250:
016900,001251: 14,3717 03114 RDRRETN ADRES RDR1 +1 # FOR RDR37511
016901,001252: 14,3720 00024 THETAADR ECADR THETA
016902,001253: 14,3721 01400 XSMADRX ADRES XSM # FOR MAKEXSMD
016903,001254:
016904,001255: 14,3722 24365 30244 SCALFTR 2DEC .64 # FOR STORRSLT
016905,001256:
016906,001257: 14,3724 07623 26552 OMEG/MS 2DEC .24339048 # GYRO PULSES / 10 MSEC
016907,001258:
|
|
Page 410 |
016909,001260: # THE FOLLOWING ROUTINE READS THE CLOCK AND SCALAR (CHANNELS 3 AND 4) INTO A AND L, INSURING THAT THE
016910,001261: # DATA WAS NOT IN TRANSITION WHEN IT WAS READ.
016911,001262:
016912,001263: 5026 BLOCK 02
016913,001264: 5026 00004 FINETIME INHINT # RETURNS WITH INTERRUPT INHIBITED.
016914,001265: 5027 00006 EXTEND
016915,001266: 5030 00004 READ LOSCALAR
016916,001267: 5031 54001 TS L
016917,001268:
016918,001269: 5032 00006 EXTEND # SEE IF 2 READINGS AGREE. IF NOT, READ
016919,001270: 5033 06004 RXOR LOSCALAR # LOSCALAR AGAIN.
016920,001271: 5034 00006 EXTEND
016921,001272: 5035 15041 BZF +4
016922,001273:
016923,001274: 5036 00006 EXTEND # IF CLOCK RIPPLED BEFORE, IT WONT NOW.
016924,001275: 5037 00004 READ LOSCALAR
016925,001276: 5040 54001 TS L
016926,001277:
016927,001278: 5041 47743 +4 CS POSMAX # IF LOW PART CONTAINS SOMETHING LESS THAN
016928,001279: 5042 60001 AD L # POSMAX, THE HIGH PART CAN BE READ SAFELY
016929,001280: 5043 00006 EXTEND
016930,001281: 5044 15027 BZF FINETIME +1 # TRY AGAIN - CONDITION WILL DISAPPEAR.
016931,001282:
016932,001283: 5045 00006 EXTEND
016933,001284: 5046 00003 READ HISCALAR
016934,001285: 5047 00002 TC Q
016935,001286:
016936,001287: 14,3726 SETLOC OMEG/MS +2
016937,001288: 14,3726 05206 REDYTORK TC BANKCALL
016938,001289: 14,3727 26751 CADR IMUSTALL
016939,001290: 14,3730 12770 TCF ENDTEST
016940,001291:
016941,001292: 14,3731 02752 TC OGCZERO
016942,001293:
016943,001294: 14,3732 06112 TC INTPRET
016944,001295: 14,3733 77624 CALL
016945,001296: 14,3734 30407 ERTHRVSE # SETS UP EARTHRATE ANGLES AND TIME
016946,001297: 14,3735 77776 EXIT
016947,001298: 14,3736 31617 CA OPTNREG # INITIALIZE CDUNDX FOR PULSE CATCHING
016948,001299: 14,3737 65336 AD NEG2 # C(K) WAS 4 2 1 NOW C(A) IS 2 0 -1
016949,001300: 14,3740 55616 TS GYTOBETQ # C(K) = 2,0,-1 FOR X,Y,Z.
016950,001301: 14,3741 00006 EXTEND
016951,001302: 14,3742 13745 BZF +3
016952,001303: 14,3743 37762 CAF TWO
016953,001304: 14,3744 03746 TC +2
016954,001305: 14,3745 37763 CAF ONE
016955,001306: 14,3746 55672 TS CDUNDX # C(K) = 1 FOR Y, 2 FOR Z CDU SELECT
016956,001307: 14,3747 05206 TC BANKCALL
016957,001308: 14,3750 50551 CADR ENABLE
016958,001309: 14,3751 37777 CHKSUM14 OCT 37777
End of include-file IMU_PERFORMANCE_TESTS_1.agc. Parent file is MAIN.agc