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