Source Code
![]() |
These source-code files were obtained by digitally photographing
an Artemis 72 (Apollo 15-17 Command Module) program listing from a private
collection and then
modifying pre-existing Comanche 55 (Apollo 11) source files to
incorporate changes. Photography was by Ron Burkey, and transcription
was performed by a team of volunteers. Note that the page images
presented online are of reduced quality, and that additional images
may be available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS BY NASA 2021114-011 11:40 FEB. 26, 1971Note that the date is the date of the printout, not the date of the program revision. |
024378,000002: ## Copyright: Public domain.
024379,000003: ## Filename: P20-P25.agc
024380,000004: ## Purpose: Part of the source code for Artemis (i.e., Colossus 3),
024381,000005: ## build 072. This is for the Command Module's (CM)
024382,000006: ## Apollo Guidance Computer (AGC), for
024383,000007: ## Apollo 15-17.
024384,000008: ## Assembler: yaYUL
024385,000009: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
024386,000010: ## Website: www.ibiblio.org/apollo/index.html
024387,000011: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Artemis072/
024388,000012: ## Mod history: 2010-01-26 JL Started Artemis072 conversion based on Comanche055
024389,000013: ## module.
024390,000014: ## 2010-01-31 JL Finished Artemis072 conversion. Fixed build errors.
024391,000015: ## 2010-02-01 JL Fixed build errors.
024392,000016: ## 2010-02-02 JL Fixed page numbers. Removed duplicated code section
024393,000017: ## on page 611.
024394,000018: ## 2010-02-06 JL Added missing "DEC 18" instruction. Added missing
024395,000019: ## code on page 618. Added missing line on page 601.
024396,000020: ## Fixed line 5 on p580, which is overprinted in the
024397,000021: ## scan. Fixed an EQUALS on p589. Removed spurious
024398,000022: ## PUSH on p598.
024399,000023: ## 2010-02-13 JL Fixed errors on pages 563, 589, 604, 619, 629.
024400,000024: ## 2010-02-20 RSB Un-##'d this header.
024401,000025: ## 2017-02-05 RSB Proofed comment text by diff'ing vs Comanche 55
024402,000026: ## and corrected errors found, but only through about
024403,000027: ## p. 571 so far. Note that while P20 is supposedly an
024404,000028: ## identical rev in the the two AGC versions, in fact
024405,000029: ## the comments are rather different, so that portion
024406,000030: ## was proofed by traditional means, and the same is
024407,000031: ## true of a lesser degree to the rest of it as well.
024408,000032: ## 2017-02-06 RSB Completed comment-text proofing. In the end, half or
024409,000033: ## more of the file was proofed "traditionally", which
024410,000034: ## has proven to be a pretty hit-and-miss process, so
024411,000035: ## I'd judge that it probably needs still more proofing.
024412,000036: ## 2017-02-06 RSB Re-proofed comment text using octopus/ProoferComments.
024413,000037: ## The print- and/or scan-quality is so poor that it's
024414,000038: ## tough to feel much confidence in this method, but
024415,000039: ## combined with the manual proofing already-done, I
024416,000040: ## feel much more confident of the results now.
024417,000041: ## 2017-03-17 RSB Comment-text fixes identified by 4-way diff'ing
024418,000042: ## of Colossus 237 & 249, Comanche 55, and Artemis 72.
024419,000043: ## 2021-05-30 ABS NOUTINPT -> NDUTINPT
024420,000044:
![]() |
Page 552 |
024422,000046:
024423,000047: # RENDEZVOUS NAVIGATION PROGRAM 20
024424,000048: # PROGRAM DESCRIPTION
024425,000049: # MOD NO -1
024426,000050: # MOD BY - N.BRODEUR
024427,000051:
024428,000052: # FUNCTIONAL DESCRIPTION
024429,000053:
024430,000054: # TO INITIALIZE THE RENDEZVOUS NAVIGATION SUBROUTINES R22, R61CSM, AND
024431,000055: # R52, WHICH IN TURN CONTROL THE CSM ATTITUDE AND OPTICS POSITIONING,
024432,000056: # PROCESS BOTH OPTICS AND VHF TRACKING DATA, AND UPDATE EITHER THE LM
024433,000057: # OR THE CSM STATE VECTORS.
024434,000058:
024435,000059: # CALLING SEQUENCE
024436,000060: # V37E20E
024437,000061:
024438,000062: # SUBROUTINES CALLED
024439,000063: # R22 (RENDEZVOUS TRACK DATA PROCESSING)
024440,000064: # R52 (AUTO OPTICS POSITIONING)
024441,000065: # R61CSM (PREFERRED TRACKING ATTITUDE)
024442,000066: # R02BOTH BANKCALL UPFLAG
024443,000067: # DOWNFLAG 2PHSCHNG LOADTIME
024444,000068: # PRIOCHNG UPSTATE INTPRET
024445,000069: # ENDOFJOB MKRLEES FINDVAC
024446,000070:
024447,000071: # NORMAL EXIT MODES
024448,000072: # RENDEZVOUS NAVIGATION MAY BE TERMINATED BY THE SELECTION OF
024449,000073: # P00, P06, P22, P23, V34E FROM R60, AND V56E
024450,000074:
024451,000075: # ALARM OR ABORT EXIT MODES
024452,000076: # NONE DIRECTLY FROM P20
024453,000077:
024454,000078: # OUTPUT
024455,000079: # NONE DIRECTLY FROM P20
024456,000080:
024457,000081: # FLAGS SET + RESET
024458,000082: # RNDVZFLG, VEHUPFLG, UPDATFLG, TRACKFLG, TARG1FLG
024459,000083: # PRFTRKAT, V50N18FL
024460,000084:
024461,000085: 36,2000 SETLOC P20S7
024462,000086: 36,2000 BANK
024463,000087:
024464,000088: 36,2016 E6,1774 EBANK= R61CNTR
024465,000089: 36,2016 COUNT* $$/P20
024466,000090:
024467,000091: 36,2016 04636 PROG20 TC BANKCALL
024468,000092: 36,2017 03731 CADR R02BOTH # IMU STATUS CHECK
024469,000093: # BLOCKING OF UPLINK IS DONE BY UPLINK PRG
024470,000094: 36,2020 31655 CA ADB
024471,000095: 36,2021 55773 TS DBPTC
![]() |
Page 553 |
024473,000097: 36,2022 06006 TC INTPRET
024474,000098: 36,2023 43014 CLEAR SET
024475,000099: 36,2024 00667 VEHUPFLG # UPDATE LM
024476,000100: 36,2025 01460 V50N18FL
024477,000101: 36,2026 66214 SET SSP
024478,000102: 36,2027 00472 TRACKFLG
024479,000103: 36,2030 00777 OPTION2
024480,000104: 36,2031 00000 0
024481,000105: 36,2032 77414 BON EXIT
024482,000106: 36,2033 05310 AUTOSEQ
024483,000107: 36,2034 74050 PRELOD78 # MINKEY (PRELOAD N78)
024484,000108: 36,2035 34124 CAF OCT24
024485,000109: 36,2036 04636 TC BANKCALL
024486,000110: 36,2037 21074 CADR GOPERF4
024487,000111: 36,2040 04103 TC GOTOPOOH
024488,000112: 36,2041 12043 TCF +2
024489,000113: 36,2042 12035 TCF -5
024490,000114:
024491,000115: 36,2043 30776 CA OPTION2
024492,000116: 36,2044 76214 MASK THREE
024493,000117: 36,2045 10000 CCS A
024494,000118: 36,2046 02061 TC DOV6N78 # OPTIONS 1,2,5 (DO NOT PRELOAD N78)
024495,000119: 36,2047 06006 TC INTPRET # OPTIONS 0,4 (PRELOAD N78)
024496,000120: 36,2050 77745 PRELOD78 DLOAD
024497,000121: 36,2051 34467 35DEGANG
024498,000122: 36,2052 17740 STODL UTPIT
024499,000123: 36,2053 15336 ZEROVECS
024500,000124: 36,2054 03742 STORE UTYAW
024501,000125: 36,2055 01353 STORE AZIMANGL
024502,000126: 36,2056 77414 BON EXIT
024503,000127: 36,2057 05310 AUTOSEQ
024504,000128: 36,2060 74104 P20OPT # MINKEY, BYPASS V04N06 AND V06N78
024505,000129: 36,2061 32470 DOV6N78 CAF V06N78UT
024506,000130: 36,2062 05535 TC VNFLASH
024507,000131: 36,2063 32472 CAF V06N79UT
024508,000132: 36,2064 05540 TC VNFLASHR
024509,000133:
024510,000134: 36,2065 12075 TCF ENDV6N79
024511,000135:
024512,000136: 36,2066 30776 CA OPTION2
024513,000137: 36,2067 74767 MASK BIT2
024514,000138: 36,2070 10000 CCS A
024515,000139: 36,2071 05205 TC ENDOFJOB # OPTION 2, BLANK ONLY R31
024516,000140: 36,2072 34773 CAF FIVE # BLANK BOTH R1,R3
024517,000141: 36,2073 05516 TC BLANKET
024518,000142: 36,2074 05205 TC ENDOFJOB
024519,000143: 36,2075 30776 ENDV6N79 CA OPTION2
024520,000144: 36,2076 74766 MASK BIT3
024521,000145: 36,2077 00006 EXTEND
024522,000146: 36,2100 12105 BZF NOAZIM
![]() |
Page 554 |
024524,000148: 36,2101 05547 TC UPFLAG
024525,000149: 36,2102 00254 ADRES AZIMFLAG
024526,000150:
024527,000151: 36,2103 12107 TCF COMAZM
024528,000152:
024529,000153: 36,2104 77776 P20OPT EXIT
024530,000154: 36,2105 05561 NOAZIM TC DOWNFLAG
024531,000155: 36,2106 00254 ADRES AZIMFLAG
024532,000156:
024533,000157: 36,2107 30776 COMAZM CA OPTION2
024534,000158: 36,2110 76214 MASK THREE
024535,000159: 36,2111 10000 CCS A
024536,000160: 36,2112 12220 TCF UTKINPUT
024537,000161: 36,2113 05561 TC DOWNFLAG
024538,000162: 36,2114 00176 ADRES UTFLAG
024539,000163:
024540,000164: 36,2115 05547 TC UPFLAG
024541,000165: 36,2116 00027 ADRES UPDATFLG
024542,000166:
024543,000167: 36,2117 05362 NDUTINPT TC 2PHSCHNG
024544,000168: 36,2120 00004 OCT 00004
024545,000169: 36,2121 05022 OCT 05022
024546,000170: 36,2122 26000 OCT 26000
024547,000171: 36,2123 34760 CAF UTBIT
024548,000172: 36,2124 70104 MASK FLAGWRD8
024549,000173: 36,2125 10000 CCS A
024550,000174: 36,2126 12150 TCF INTSETUP
024551,000175:
024552,000176: 36,2127 06006 TC INTPRET
024553,000177: 36,2130 77634 RTB
024554,000178: 36,2131 51751 LOADTIME
024555,000179: 36,2132 35062 STCALL MARKTIME
024556,000180: 36,2133 60435 UPSTATE
024557,000181: 36,2134 77776 EXIT
024558,000182:
024559,000183: 36,2135 05547 TC UPFLAG
024560,000184: 36,2136 00010 ADRES RNDVZFLG
024561,000185:
024562,000186: 36,2137 37650 CAF PRIO26
024563,000187: 36,2140 05135 TC FINDVAC
024564,000188: 36,2141 E7,1722 EBANK= MRKBUF1
024565,000189: 36,2141 02625 70067 2CADR R22
024566,000190: 36,2143 05362 TC 2PHSCHNG
024567,000191: 36,2144 00072 OCT 00072
024568,000192: 36,2145 00111 OCT 00111
024569,000193: 36,2146 01,2025 1P11SPT3 = 1.11SPOT
024570,000194: 36,2146 01,2041 2P7SPT1 = 2.7SPOT
024571,000195: 36,2146 04112 TC AUTOCHK
![]() |
Page 555 |
024573,000197: 36,2147 12157 TCF PIKUP20
024574,000198:
024575,000199: 36,2150 35047 INTSETUP CAF PRIO5
024576,000200: 36,2151 05135 TC FINDVAC
024577,000201: 36,2152 E3,1554 EBANK= RRECTCSM
024578,000202: 36,2152 02711 26063 2CADR STATINT1
024579,000203:
024580,000204: 36,2154 05362 TC 2PHSCHNG
024581,000205: 36,2155 00052 OCT 0052
024582,000206: 36,2156 00111 OCT 00111
024583,000207:
024584,000208: 36,2157 01,2025 1P11SPT4 = 1.11SPOT
024585,000209: 36,2157 01,2036 2P5SPT3 = 2.5SPOT
024586,000210: 36,2157 35053 PIKUP20 CAF PRIO14 # ALLOW HIGHER PRIO THAN LAMBERT
024587,000211: 36,2160 05176 TC PRIOCHNG
024588,000212: 36,2161 34764 CAF TRACKBIT
024589,000213: 36,2162 70075 MASK FLAGWRD1 # IS TRACK FLAG SET
024590,000214: 36,2163 00006 EXTEND
024591,000215: 36,2164 12416 BZF FIXDB
024592,000216: 36,2165 34754 CAF REFSMBIT
024593,000217: 36,2166 70077 MASK FLAGWRD3 # IS REFSMFLAG SET
024594,000218: 36,2167 00006 EXTEND
024595,000219: 36,2170 12416 BZF FIXDB
024596,000220:
024597,000221: 36,2171 34772 CAF ZERO
024598,000222: 36,2172 55774 TS R61CNTR # INITIALIZE R61 COUNTER
024599,000223: 36,2173 30104 CA FLAGWRD8
024600,000224: 36,2174 74760 MASK UTBIT
024601,000225: 36,2175 10000 CCS A
024602,000226: 36,2176 02263 TC CALLR6X
024603,000227:
024604,000228: 36,2177 05547 TC UPFLAG
024605,000229: 36,2200 00037 ADRES R21MARK
024606,000230: 36,2201 04636 TC BANKCALL
024607,000231: 36,2202 76333 CADR R61CSM
024608,000232: 36,2203 40106 CS FLGWRD10 # CHECK IF PC MANEUVER TO TRACK
024609,000233: 36,2204 74752 MASK PCMANBIT # ATTITUDE
024610,000234: 36,2205 00006 EXTEND
024611,000235: 36,2206 14116 BZF AUTOCHK1
024612,000236: 36,2207 05547 P20TRACK TC UPFLAG # SET TARG FLAG TO LEM FOR R52
024613,000237: 36,2210 00024 ADRES TARG1FLG # BIT 10 FLAG 1
024614,000238: 36,2211 06006 P20R52JB TC INTPRET
024615,000239: 36,2212 77624 CALL
024616,000240: 36,2213 31005 R52 # SET UP AUTO OPTICS JOB
024617,000241: 36,2214 77776 EXIT
024618,000242: 36,2215 04636 TC BANKCALL
024619,000243: 36,2216 16073 CADR MKRLEES
024620,000244: 36,2217 12416 TCF FIXDB
024621,000245:
024622,000246: 36,2220 55351 UTKINPUT TS OPTNTYPE
![]() |
Page 556 |
024624,000248: 36,2221 05547 TC UPFLAG
024625,000249: 36,2222 00176 ADRES UTFLAG
024626,000250:
024627,000251: 36,2223 05561 TC DOWNFLAG
024628,000252: 36,2224 00010 ADRES RNDVZFLG
024629,000253:
024630,000254: 36,2225 11351 CCS OPTNTYPE
024631,000255: 36,2226 02255 TC TYPE2IN
024632,000256:
024633,000257: 36,2227 32471 V1N70DSP CAF V01N70UT
024634,000258: 36,2230 05535 TC VNFLASH
024635,000259: 36,2231 11140 CCS STARCODE
024636,000260: 36,2232 62475 AD NEG47UT
024637,000261: 36,2233 10000 CCS A
024638,000262: 36,2234 12253 TCF NOGOOD
024639,000263:
024640,000264: 36,2235 12237 TCF +2
024641,000265: 36,2236 12237 TCF +1
024642,000266: 36,2237 31140 CA STARCODE
024643,000267: 36,2240 55355 TS UTSTARNO
024644,000268:
024645,000269: 36,2241 10000 CCS A
024646,000270: 36,2242 12117 TCF NDUTINPT
024647,000271:
024648,000272: 36,2243 35035 CAF V06N88UT
024649,000273: 36,2244 05535 TC VNFLASH
024650,000274: 36,2245 06006 TC INTPRET
024651,000275: 36,2246 77775 VLOAD
024652,000276: 36,2247 03705 STARSAV3
024653,000277: 36,2250 03732 STORE PLANVCUT
024654,000278: 36,2251 77776 EXIT
024655,000279: 36,2252 02117 TC NDUTINPT
024656,000280:
024657,000281: 36,2253 04362 NOGOOD TC FALTON
024658,000282: 36,2254 02227 TC V1N70DSP
024659,000283:
024660,000284: 36,2255 35027 TYPE2IN CAF V06N34UT
024661,000285: 36,2256 05535 TC VNFLASH
024662,000286: 36,2257 00006 EXTEND
024663,000287: 36,2260 31251 DCA DSPTEM1
024664,000288: 36,2261 53356 DXCH R67TIME
024665,000289: 36,2262 12117 TCF NDUTINPT
024666,000290:
024667,000291: 36,2263 05561 CALLR6X TC DOWNFLAG
024668,000292: 36,2264 00037 ADRES R21MARK
024669,000293:
024670,000294: 36,2265 11351 CCS OPTNTYPE
024671,000295: 36,2266 12271 TCF TYPE2
024672,000296:
024673,000297: 36,2267 04655 TC POSTJUMP
![]() |
Page 557 |
024675,000299: 36,2270 74454 CADR R66CSM
024676,000300:
024677,000301: 36,2271 00006 TYPE2 EXTEND
024678,000302: 36,2272 40025 DCS TIME2
024679,000303: 36,2273 52155 DXCH MPAC
024680,000304: 36,2274 00006 EXTEND
024681,000305: 36,2275 31356 DCA R67TIME
024682,000306: 36,2276 20155 DAS MPAC
024683,000307: 36,2277 07224 TC DPAGREE
024684,000308: 36,2300 10154 CCS MPAC
024685,000309: 36,2301 12314 TCF DODELAY
024686,000310:
024687,000311: 36,2302 12305 TCF +3
024688,000312: 36,2303 34772 CAF ZERO
024689,000313: 36,2304 54155 TS MPAC +1
024690,000314: 36,2305 10155 CCS MPAC +1
024691,000315: 36,2306 12307 TCF +1
024692,000316: 36,2307 64770 AD ONE
024693,000317: 36,2310 05233 TC WAITLIST
024694,000318: 36,2311 E6,1774 EBANK= R61CNTR
024695,000319: 36,2311 02320 74066 2CADR R67
024696,000320:
024697,000321: 36,2313 05205 TC ENDOFJOB
024698,000322:
024699,000323: 36,2314 34750 DODELAY CAF POSMAX
024700,000324: 36,2315 04636 TC BANKCALL
024701,000325: 36,2316 01731 CADR DELAYJOB
024702,000326: 36,2317 12271 TCF TYPE2
024703,000327:
024704,000328: 36,2320 37650 R67 CAF PRIO26
024705,000329: 36,2321 05135 TC FINDVAC
024706,000330: 36,2322 E6,1774 EBANK= R61CNTR
024707,000331: 36,2322 02327 74066 2CADR R67START
024708,000332:
024709,000333: 36,2324 05547 TC UPFLAG
024710,000334: 36,2325 00205 ADRES R67FLAG
024711,000335:
024712,000336: 36,2326 05314 TC TASKOVER
024713,000337:
024714,000338: 36,2327 06006 R67START TC INTPRET
024715,000339: 36,2330 47014 BON RTB
024716,000340: 36,2331 00701 STIKFLAG
024717,000341: 36,2332 44717 NOGOM3
024718,000342: 36,2333 44370 READCDUK
024719,000343: 36,2334 37262 STCALL BCDU
024720,000344: 36,2335 74437 UTPRFAX
024721,000345: 36,2336 03343 STORE COF
024722,000346: 36,2337 77776 EXIT
024723,000347:
024724,000348: 36,2340 00004 INHINT
![]() |
Page 558 |
024726,000350: 36,2341 35007 CAF MINDB
024727,000351: 36,2342 55655 TS ADB
024728,000352: 36,2343 11773 CCS DBPTC
024729,000353: 36,2344 64770 AD ONE
024730,000354: 36,2345 02347 TC +2
024731,000355: 36,2346 64770 AD ONE
024732,000356: 36,2347 00006 EXTEND
024733,000357: 36,2350 12352 BZF +2
024734,000358: 36,2351 55655 TS ADB
024735,000359:
024736,000360: 36,2352 06006 TC INTPRET
024737,000361: 36,2353 41335 SLOAD DMP
024738,000362: 36,2354 03373 RATEPTC
024739,000363: 36,2355 34474 TUFITS # SCALING FACTOR(.4 DEC)
024740,000364: 36,2356 45002 SR4 CALL # COMPUTE THE INCREMENTAL ROTATION MATRIX
024741,000365: 36,2357 44522 DELCOMP # DEL CORRESPONDING TO A 1 SEC ROTATION
024742,000366: 36,2360 41335 SLOAD DMP # ABOUT COF
024743,000367: 36,2361 03373 RATEPTC
024744,000368: 36,2362 34474 TUFITS
024745,000369: 36,2363 64361 VXSC MXV
024746,000370: 36,2364 03343 COF
024747,000371: 36,2365 05014 QUADROT
024748,000372: 36,2366 27311 STOVL BRATE
024749,000373: 36,2367 15336 ZEROVECS
024750,000374: 36,2370 03275 STORE BIASTEMP
024751,000375: 36,2371 77776 EXIT
024752,000376:
024753,000377: 36,2372 05402 TC PHASCHNG
024754,000378: 36,2373 00131 OCT 00131
024755,000379:
024756,000380: 36,2374 01,2030 1P13SPT1 = 1.13SPOT
024757,000381: 36,2374 30075 R67RSTRT CA FLAGWRD1
024758,000382: 36,2375 74764 MASK TRACKBIT
024759,000383: 36,2376 00006 EXTEND
024760,000384: 36,2377 12416 BZF FIXDB
024761,000385: 36,2400 34755 CAF BIT12
024762,000386: 36,2401 55774 TS R61CNTR
024763,000387:
024764,000388: 36,2402 37650 CAF PRIO26
024765,000389: 36,2403 05176 TC PRIOCHNG
024766,000390:
024767,000391: 36,2404 06006 TC INTPRET
024768,000392: 36,2405 72364 AXC,2 TLOAD
024769,000393: 36,2406 03320 MIS
024770,000394: 36,2407 03262 BCDU
024771,000395: 36,2410 45014 SET CALL
024772,000396: 36,2411 04075 R67FLAG
024773,000397: 36,2412 44377 CDUTODCM
024774,000398: 36,2413 77614 SETGO
024775,000399: 36,2414 01035 CALCMAN2 # SET CALCMAN2 TO START MANEUVER
![]() |
Page 559 |
024777,000401: 36,2415 45053 NEWANGL +1
024778,000402:
024779,000403: 36,2416 30105 FIXDB CA FLAGWRD9 # RESTORE DAP DEADBAND
024780,000404: 36,2417 00004 INHINT
024781,000405: 36,2420 74755 MASK MAXDBBIT
024782,000406: 36,2421 10000 CCS A
024783,000407: 36,2422 12426 TCF +4
024784,000408:
024785,000409: 36,2423 04636 TC BANKCALL
024786,000410: 36,2424 51203 CADR SETMINDB
024787,000411: 36,2425 12430 TCF +3
024788,000412:
024789,000413: 36,2426 04636 TC BANKCALL
024790,000414: 36,2427 51217 CADR SETMAXDB
024791,000415:
024792,000416: 36,2430 05561 TC DOWNFLAG
024793,000417: 36,2431 00205 ADRES R67FLAG
024794,000418: 36,2432 05402 TC PHASCHNG
024795,000419: 36,2433 00111 OCT 00111
024796,000420: 36,2434 01,2025 1P11SPT5 = 1.11SPOT
024797,000421: 36,2434 00004 STOPVEH INHINT
024798,000422: 36,2435 04463 TC STOPRATE
024799,000423: 36,2436 15205 TCF ENDOFJOB
024800,000424:
024801,000425: 36,2437 73545 UTPRFAX DLOAD SIN # COMPUTE PREFERRED UNIT VECTOR
024802,000426: 36,2440 03740 UTPIT # MPAC =COS(P)COS(Y)
024803,000427: 36,2441 65276 DCOMP PDDL # PDX=-SIN(P) MPAC +2=COS(P)SIN(Y)
024804,000428: 36,2442 03740 UTPIT # MPAC +4=-SIN(P)
024805,000429: 36,2443 41546 COS PUSH # PDX+2=COS(P) USED WITH SECOND DMP BELOW
024806,000430: 36,2444 73525 PDDL SIN # PDX+4=COS(P) USED WITH FIRST DMP BELOW
024807,000431: 36,2445 03742 UTYAW
024808,000432: 36,2446 72405 DMP SL1 # MPAC=COS(P)SIN(Y)
024809,000433: 36,2447 77725 PDDL # REPLACE PDX+2 WITH COS"P)SIN(Y)
024810,000434: 36,2450 71525 PDDL COS # REPLACE PDX+4 WITH COS(P) IN ORDER TO
024811,000435: 36,2451 03742 UTYAW # POSITION PD COUNTER FOR DMP
024812,000436: 36,2452 72405 DMP SL1
024813,000437: 36,2453 43466 VDEF RVQ # PUSHUP FOR Y,Z COMPONENTS
024814,000438:
024815,000439: 36,2454 40075 R66CSM CS FLAGWRD1 # R66 CONTROL
024816,000440: 36,2455 74764 MASK TRACKBIT
024817,000441: 36,2456 10000 CCS A
024818,000442: 36,2457 12416 TCF FIXDB
024819,000443:
024820,000444: 36,2460 04636 TC BANKCALL # TRACKFLG SET, CONTINUE R66
024821,000445: 36,2461 76333 CADR R61CSM # CALL R61
024822,000446:
024823,000447: 36,2462 35011 CAF .5SEC
024824,000448: 36,2463 04636 TC BANKCALL # WAIT .5 SEC AND REPEAT
024825,000449: 36,2464 01731 CADR DELAYJOB
![]() |
Page 560 |
024827,000451: 36,2465 02454 TC R66CSM
024828,000452:
024829,000453: 36,2466 74707 43433 35DEGANG 2DEC -.097222222222
024830,000454: 36,2470 01516 V06N78UT VN 0678
024831,000455: 36,2471 00306 V01N70UT VN 0170
024832,000456: 36,2472 5035 V06N88UT = V06N88
024833,000457: 36,2472 01517 V06N79UT VN 0679
024834,000458: 36,2473 5027 V06N34UT = V06N34
024835,000459: 36,2473 14631 23146 TUFITS 2DEC .4
024836,000460: 36,2475 77730 NEG47UT OCT 77730
024837,000461:
![]() |
Page 561 |
024839,000463: # ORBITAL NAVIGATION PROGRAM 22
024840,000464: 30,2000 SETLOC P20S1
024841,000465: 30,2000 BANK
024842,000466:
024843,000467: 30,2153 E7,1751 EBANK= LANDMARK
024844,000468: 30,2153 COUNT* $$/P22
024845,000469:
024846,000470: 30,2153 04636 PROG22 TC BANKCALL
024847,000471: 30,2154 03731 CADR R02BOTH
024848,000472: 30,2155 06006 TC INTPRET
024849,000473: 30,2156 43014 BOFF SET
024850,000474: 30,2157 04346 UTFLAG
024851,000475: 30,2160 60162 +2
024852,000476: 30,2161 00472 TRACKFLG
024853,000477: 30,2162 47014 CLEAR RTB
024854,000478: 30,2163 00270 RNDVZFLG
024855,000479: 30,2164 51751 LOADTIME
024856,000480: 30,2165 34041 STCALL TDEC1
024857,000481: 30,2166 27170 CSMCONIC # INTEGRATE TO PRESENT TIME
024858,000482: 30,2167 47375 VLOAD VXV # CROSS PRODUCT BETWEEN V AND R
024859,000483: 30,2170 00007 VATT
024860,000484: 30,2171 00001 RATT
024861,000485: 30,2172 50256 UNIT DOT
024862,000486: 30,2173 01742 REFSMMAT +6
024863,000487: 30,2174 77646 ABS
024864,000488: 30,2175 65552 SL1 ARCCOS
024865,000489: 30,2176 03626 STORE +MGA
024866,000490: 30,2177 77776 EXIT
024867,000491: 30,2200 32257 CAF V06N45B
024868,000492: 30,2201 05540 TC VNFLASHR
024869,000493: 30,2202 02206 TC PROG22A
024870,000494: 30,2203 36214 CAF THREE
024871,000495: 30,2204 05516 TC BLANKET # BLANK OUT R1 + R2
024872,000496: 30,2205 05205 TC ENDOFJOB
024873,000497: 30,2206 45051 PROG22A CS PRIO7 # RESULT=70777 SET OFFSET NO.=0
024874,000498: 30,2207 71751 MASK LANDMARK
024875,000499: 30,2210 55751 TS LANDMARK
024876,000500: 30,2211 05362 TC 2PHSCHNG
024877,000501: 30,2212 00004 OCT 00004
024878,000502: 30,2213 05022 OCT 05022
024879,000503: 30,2214 13000 OCT 13000
024880,000504: 30,2215 05547 TC UPFLAG
024881,000505: 30,2216 00025 ADRES TARG2FLG # SET =1 FOR SIGHTING LMK
024882,000506: 30,2217 05547 TC UPFLAG
024883,000507: 30,2220 00026 ADRES VEHUPFLG # VEH.=CSM
024884,000508: 30,2221 06006 TC INTPRET
024885,000509: 30,2222 43014 CLEAR CLEAR
024886,000510: 30,2223 01663 LUNAFLAG
024887,000511: 30,2224 01664 P22MKFLG
024888,000512: 30,2225 43014 SET BOFF
![]() |
Page 562 |
024890,000514: 30,2226 00462 ERADFLAG
024891,000515: 30,2227 04343 CMOONFLG
024892,000516: 30,2230 60240 PROG22B # EARTH
024893,000517: 30,2231 77614 SET # MOON
024894,000518: 30,2232 01463 LUNAFLAG
024895,000519: 30,2233 45145 DLOAD CALL # MPAC=V05N70,MPAC+1=NONZERO FOR N70
024896,000520: 30,2234 23513 V05N7022
024897,000521: 30,2235 60332 S22N7071
024898,000522: 30,2236 77650 GOTO
024899,000523: 30,2237 60242 CALLR52
024900,000524: 30,2240 77624 PROG22B CALL # GET LAT/LONG/ALT FROM ASTRO
024901,000525: 30,2241 60304 P22SUBRB
024902,000526: 30,2242 77624 CALLR52 CALL
024903,000527: 30,2243 31005 R52
024904,000528: 30,2244 45135 DOV5N71 SLOAD CALL # MPAC=V05N71,MPAC+1=0 FOR N71
024905,000529: 30,2245 23514 V05N7122
024906,000530: 30,2246 60332 S22N7071
024907,000531: 30,2247 66214 PROG22C SET SSP
024908,000532: 30,2250 01464 P22MKFLG # FOR DOWNLINK
024909,000533: 30,2251 03746 8KK
024910,000534: 30,2252 00001 DEC 1 B-14
024911,000535: 30,2253 77531 SSP EXIT
024912,000536: 30,2254 03751 S22LOC
024913,000537: 30,2255 03537 ECADR SVMRKDAT
024914,000538: 30,2256 02466 TC S22.1
024915,000539:
024916,000540: 30,2257 01455 V06N45B VN 0645
024917,000541: 30,2260 31,3512 V05N7022 = V05N70
024918,000542: 30,2260 31,3513 V05N7122 = V05N71
024919,000543: 30,2260 77634 S22LSITE RTB # CONVERT RLS FROM MOON-FIXED TO BASIC REF
024920,000544: 30,2261 51751 LOADTIME
024921,000545: 30,2262 24007 STOVL 6D # 6-7D= TIME
024922,000546: 30,2263 02026 RLS
024923,000547: 30,2264 14001 STODL 0D # 0-5D= LANDING SITE VECTOR
024924,000548: 30,2265 15334 HIDPHALF # MPAC= ANY NON-ZERO FOR MOON
024925,000549: 30,2266 77624 CALL
024926,000550: 30,2267 55345 RP-TO-R # RLS IN BASIC REF B-27 IN MPAC
024927,000551: 30,2270 77742 VSR2 # LUNAFLAG AND ERADFLAG SET ABOVE
024928,000552: 30,2271 02152 STORE ALPHAV # SCALE RLS B-29 FOR LAT-LONG
024929,000553: 30,2272 77634 RTB
024930,000554: 30,2273 51751 LOADTIME # SET PRESENT TIME IN MPAC FOR LAT-LONG
024931,000555: 30,2274 77624 CALL
024932,000556: 30,2275 26453 LAT-LONG
024933,000557: 30,2276 77650 GOTO
024934,000558: 30,2277 03667 S22TOFF # EXIT
024935,000559: 30,2300 77624 OBTAINLL CALL # GET LAT/LONG/ALT FROM ASTRO
024936,000560: 30,2301 60304 P22SUBRB
024937,000561: 30,2302 77650 GOTO
024938,000562: 30,2303 03667 S22TOFF # EXIT
024939,000563: 30,2304 77420 P22SUBRB STQ EXIT # GET LAT/LONG/ALT FROM ASTRO
![]() |
Page 563 |
024941,000565: 30,2305 03670 S22TOFF +1
024942,000566: 30,2306 35036 +2 CAF V06N89B
024943,000567: 30,2307 05535 TC VNFLASH
024944,000568: 30,2310 06006 TC INTPRET
024945,000569: 30,2311 51545 DLOAD ABS # TEST LAT/LONG GREATER THAN 90
024946,000570: 30,2312 00747 LANDLAT
024947,000571: 30,2313 50021 BDSU BMN # 1/4 REV - LAT
024948,000572: 30,2314 15326 DP1/4TH
024949,000573: 30,2315 60323 N89ERRX
024950,000574: 30,2316 51545 DLOAD ABS
024951,000575: 30,2317 02351 LANDLONG
024952,000576: 30,2320 51021 BDSU BPL
024953,000577: 30,2321 15326 DP1/4TH
024954,000578: 30,2322 60326 N89ERRX +3
024955,000579: 30,2323 77776 N89ERRX EXIT
024956,000580: 30,2324 04362 TC FALTON
024957,000581: 30,2325 02306 TC P22SUBRB +2 # LONG GR. THAN 90 REDISPLAY
024958,000582: 30,2326 77624 +3 CALL
024959,000583: 30,2327 62371 LLASRDA
024960,000584: 30,2330 77650 GOTO
024961,000585: 30,2331 03670 S22TOFF +1 # EXIT
024962,000586: 30,2332 03746 S22N7071 STORE 8KK # 8KK=V05N71,V05N70 8KK+1=0 N71,NOT 0 N70
024963,000587: 30,2333 77420 STQ EXIT
024964,000588: 30,2334 03667 S22TOFF
024965,000589: 30,2335 31745 S22DSPPA CA 8KK # V05N70 OR V05N71
024966,000590: 30,2336 05540 TC VNFLASHR
024967,000591: 30,2337 02343 TC +4
024968,000592: 30,2340 34773 CAF FIVE # IMMEDIATE RETURN BLANK OUT R1,R3
024969,000593: 30,2341 05516 TC BLANKET
024970,000594: 30,2342 05205 TC ENDOFJOB
024971,000595: 30,2343 31751 CA LANDMARK
024972,000596: 30,2344 75051 MASK PRIO7 # 07000
024973,000597: 30,2345 00006 EXTEND
024974,000598: 30,2346 74763 MP BIT6
024975,000599: 30,2347 55744 TS CXOFF # 08000 = OFFSET INDICATOR
024976,000600: 30,2350 44773 CS FIVE
024977,000601: 30,2351 61744 AD CXOFF
024978,000602: 30,2352 00006 EXTEND
024979,000603: 30,2353 62355 BZMF +2 # OFF=0 THRU 5 OK
024980,000604: 30,2354 02367 TC S22DSPP # OFF=6,7 ILLEGAL REDISPLAY
024981,000605: 30,2355 05561 TC DOWNFLAG
024982,000606: 30,2356 00141 ADRES KNOWNFLG # CLEAR KNOWNFLG
024983,000607: 30,2357 31751 CA LANDMARK # MASK A FROM ABCDE
024984,000608: 30,2360 77673 MASK 13,14,15
024985,000609: 30,2361 00006 EXTEND
024986,000610: 30,2362 62367 BZMF S22DSPP # A=0,4,5,6,7 ILLEGAL REDISPLAY
024987,000611: 30,2363 55743 TS 22SUBSCL # TEMP
024988,000612: 30,2364 44753 CS BIT14
024989,000613: 30,2365 61743 AD 22SUBSCL
024990,000614: 30,2366 10000 CCS A
![]() |
Page 564 |
024992,000616: 30,2367 04362 S22DSPP TC FALTON # + A=3 ILLEGAL REDISPLAY
024993,000617: 30,2370 02335 TC S22DSPPA # COMMON ERROR EXIT BACK TO DISPLAY
024994,000618: 30,2371 02373 TC +2 # - A=1 KNOWN LMK CHECK DE
024995,000619: 30,2372 02417 TC S22ABDE # -0 A=2 UNKNOWN LMK,DE MEANINGLESS
024996,000620: 30,2373 05547 TC UPFLAG
024997,000621: 30,2374 00141 ADRES KNOWNFLG # SET KNOWNFLG
024998,000622: 30,2375 47677 CS HIGH9 # RESULT= 00077
024999,000623: 30,2376 71751 MASK LANDMARK
025000,000624: 30,2377 55743 TS 22SUBSCL # 000DE
025001,000625: 30,2400 44770 CS BIT1
025002,000626: 30,2401 61743 AD 22SUBSCL
025003,000627: 30,2402 00006 EXTEND
025004,000628: 30,2403 62417 BZMF S22ABDE # DE=0,1 OK FOR BOTH N70,N71
025005,000629: 30,2404 31746 CA 8KK +1 # =0 FOR N71, NOT =0 FOR N70
025006,000630: 30,2405 00006 EXTEND
025007,000631: 30,2406 12367 BZF S22DSPP # N71 REDISPLAY DE MUST= 0 OR 1
025008,000632: 30,2407 34764 CA BIT5 # N70 TEST DE= 50-57 OCTAL FOR ADV. ORBIT
025009,000633: 30,2410 65004 AD OCT50 # SUM=00070
025010,000634: 30,2411 71743 MASK 22SUBSCL # 00D0
025011,000635: 30,2412 40000 CS A
025012,000636: 30,2413 65004 AD OCT50
025013,000637: 30,2414 00006 EXTEND
025014,000638: 30,2415 12427 BZF DE-GR-50 # D=5 OR DE=50-57,OK FOR N70
025015,000639: 30,2416 02367 TC S22DSPP # DE NOT 50-57 ILLEGAL,REDISPLAY
025016,000640: 30,2417 06006 S22ABDE TC INTPRET
025017,000641: 30,2420 67214 BOFF SLOAD
025018,000642: 30,2421 03347 KNOWNFLG # UNKNOWN LMK, DE MEANINGLESS
025019,000643: 30,2422 03667 S22TOFF
025020,000644: 30,2423 03744 22SUBSCL # =0 GET LLA FROM ASTRO,NOT=0 USE RLS
025021,000645: 30,2424 52030 BHIZ GOTO
025022,000646: 30,2425 60300 OBTAINLL # GET LAT/LONG/ALT FROM ASTRO N89
025023,000647: 30,2426 60260 S22LSITE # GET LAT/LONG/ALT FROM RLS
025024,000648: 30,2427 06006 DE-GR-50 TC INTPRET # ADVANCED ORBIT OPTION IN R52
025025,000649: 30,2430 45014 SET CALL # ADVANCED ORBIT ENTRANCE TO R52
025026,000650: 30,2431 04065 ADVTRK
025027,000651: 30,2432 31007 R52VRB
025028,000652: 30,2433 77650 GOTO
025029,000653: 30,2434 60244 DOV5N71
025030,000654: 13,2000 SETLOC P24PROG
025031,000655: 13,2000 BANK
025032,000656:
![]() |
Page 565 |
025034,000658: 13,2254 COUNT* $$/P24
025035,000659: 13,2254 30737 PROG24 CA NO.PASS
025036,000660: 13,2255 55131 TS PASSCNT
025037,000661: 13,2256 05362 TC 2PHSCHNG
025038,000662: 13,2257 00004 OCT 00004
025039,000663: 13,2260 05022 OCT 05022
025040,000664: 13,2261 13000 OCT 13000
025041,000665: 13,2262 04636 TC BANKCALL
025042,000666: 13,2263 03731 CADR R02BOTH # IMU STATUS CHECK
025043,000667: 13,2264 06006 TC INTPRET
025044,000668: 13,2265 43014 BOFF SET
025045,000669: 13,2266 04346 UTFLAG
025046,000670: 13,2267 26271 +2
025047,000671: 13,2270 00472 TRACKFLG
025048,000672: 13,2271 43014 CLEAR CLEAR
025049,000673: 13,2272 01274 P24MKFLG
025050,000674: 13,2273 04261 NEWLMFLG
025051,000675: 13,2274 43014 CLEAR CLEAR
025052,000676: 13,2275 01671 ORBWFLAG
025053,000677: 13,2276 02676 RENDWFLG
025054,000678: 13,2277 76131 SSP AXT,1 # ZERO P22 DOWNLIST MARK BUFFER
025055,000679: 13,2300 00051 S1
025056,000680: 13,2301 00006 DEC 6 B-14
025057,000681: 13,2302 00044 DEC 36 B-14
025058,000682: 13,2303 77214 SET VLOAD
025059,000683: 13,2304 04461 P24FLAG
025060,000684: 13,2305 11762 ZEROVEC
025061,000685: 13,2306 07604 ZERODNLK STORE SVMRKDAT +36D,1
025062,000686: 13,2307 43100 TIX,1 CLEAR
025063,000687: 13,2310 26306 ZERODNLK
025064,000688: 13,2311 01664 P22MKFLG
025065,000689: 13,2312 47014 CLEAR RTB
025066,000690: 13,2313 00270 RNDVZFLG
025067,000691: 13,2314 51751 LOADTIME
025068,000692: 13,2315 35062 STCALL MARKTIME
025069,000693: 13,2316 56462 SETINTG
025070,000694: 13,2317 77624 CALL
025071,000695: 13,2320 27236 INTEGRV # UPDATE STATE VEC TO CURRENT TIME
025072,000696: 13,2321 43014 SET CLEAR
025073,000697: 13,2322 00462 ERADFLAG
025074,000698: 13,2323 01663 LUNAFLAG
025075,000699: 13,2324 43014 BOFF SET
025076,000700: 13,2325 04343 CMOONFLG
025077,000701: 13,2326 26330 +2
025078,000702: 13,2327 01463 LUNAFLAG
025079,000703: 13,2330 77624 CALL
025080,000704: 13,2331 60304 P22SUBRB
025081,000705: 13,2332 77776 EXIT
025082,000706: 13,2333 05362 TC 2PHSCHNG
![]() |
Page 566 |
025084,000708: 13,2334 00004 OCT 00004
025085,000709: 13,2335 05022 OCT 05022
025086,000710: 13,2336 13000 OCT 13000
025087,000711: 13,2337 06006 TC INTPRET
025088,000712: 13,2340 45014 SET CALL
025089,000713: 13,2341 00466 TARG2FLG
025090,000714: 13,2342 31005 R52
025091,000715: 13,2343 77776 EXIT
025092,000716: 13,2344 04103 TC GOTOPOOH
025093,000717:
![]() |
Page 567 |
025095,000719:
025096,000720: # PROGRAM NAME- OPTICS CALIBRATION ROUTINE
025097,000721: # MOD NO- 1
025098,000722: # MOD BY- TOM KNATT
025099,000723:
025100,000724: # FUNCTIONAL DESCRIPTION- TO MEASURE THE EFFECT OF SOLAR RADIATION ON
025101,000725: # THE SXT TRUNNION ANGLE AND TO STORE THE MEASURED TRUNNION BIAS FOR P23
025102,000726:
025103,000727: # CALLING SEQUENCE- CALL
025104,000728: # R57
025105,000729:
025106,000730: # SUBROUTINES CALLED- DISPLAY ROUTINES
025107,000731:
025108,000732: # NORMAL EXIT MODES-VIA EGRESS
025109,000733:
025110,000734: # ALARMS- NONE
025111,000735:
025112,000736: # ABORT MODES- P23ABORT IF MARKING SYSTEM OR EXTENDED VERB ACTIVE
025113,000737: # INPUT- NONE REQUIRED, NORMALLY CALLED BY P23
025114,000738: # OUTPUT- TRUNNION BIAS ANGLE- ANGLE DETERMINED WHEN SHAFT LINE OF SIGHT
025115,000739: # (SLOS) AND LANDMARK LINE OF SIGHT (LLOS) ARE SUPERIMPOSED. THIS ANGLE
025116,000740: # MAY NOT BE EXACTLY ZERO BECAUSE OF UNEVEN HEATING OF THE OPTICS,FOR
025117,000741: # EXAMPLE.
025118,000742:
025119,000743: # ERASABLE INITIALIZATION REQUIRED- MRKBUF1, EXTVBACT
025120,000744:
025121,000745: # DEBRIS- RUPTREGS USED BY MARKRUPT AND ERASABLES USED BY DISPLAYS
025122,000746: 37,2000 SETLOC P20S
025123,000747: 37,2000 BANK
025124,000748: 37,2167 COUNT* $$/R57
025125,000749: 37,2167 E7,1722 EBANK= MRKBUF1
025126,000750: 37,2167 77420 R57 STQ EXIT
025127,000751: 37,2170 02310 EGRESS
025128,000752: 37,2171 40077 R57A CS FLAGWRD3 # IS THE IMU ALIGNED
025129,000753: 37,2172 74754 MASK REFSMBIT
025130,000754: 37,2173 10000 CCS A
025131,000755: 37,2174 12213 TCF R57C # NO
025132,000756: 37,2175 34776 CAF ALRM15 # YES SHOULD AUTO ACQUISITION OF STAR
025133,000757: 37,2176 04636 TC BANKCALL # BE PERFORMED
025134,000758: 37,2177 21067 CADR GOPERF1
025135,000759: 37,2200 04103 TC GOTOPOOH # TERM
025136,000760: 37,2201 02203 TC +2 # PRO YES
025137,000761: 37,2202 02213 TC R57C # ENTER NO
025138,000762: 37,2203 06006 TC INTPRET
025139,000763: 37,2204 77624 CALL
025140,000764: 37,2205 30761 R51DSPA
025141,000765: 37,2206 77624 CALL
025142,000766: 37,2207 62756 DOR60
025143,000767: 37,2210 77776 EXIT
025144,000768: 37,2211 05402 TC PHASCHNG
025145,000769: 37,2212 04022 OCT 04022
![]() |
Page 568 |
025147,000771: 37,2213 04636 R57C TC BANKCALL
025148,000772: 37,2214 16062 CADR TESTMARK
025149,000773: 37,2215 05547 TC UPFLAG # SET V59FLAG(BIT 12 FLAG 5) TO INDICATE
025150,000774: 37,2216 00116 ADRES V59FLAG # CALIBRATION MARK
025151,000775: 37,2217 32260 CAF V59NB
025152,000776: 37,2220 04636 TC BANKCALL
025153,000777: 37,2221 20607 CADR GOMARKFR
025154,000778: 37,2222 04103 TC GOTOPOOH # TERMINATE
025155,000779: 37,2223 02247 TC ENDR57
025156,000780: 37,2224 02247 TC ENDR57
025157,000781: 37,2225 34774 CAF SEVEN
025158,000782: 37,2226 05516 TC BLANKET # BLANK OUT R1,R2,R3
025159,000783: 37,2227 05205 TC ENDOFJOB
025160,000784: # STORE TRUNNION ANGLE (OCDU)
025161,000785: 37,2230 32257 MARKDISP CAF V06N87NB
025162,000786: 37,2231 04636 TC BANKCALL
025163,000787: 37,2232 20607 CADR GOMARKFR
025164,000788: 37,2233 04103 TC GOTOPOOH # TERMINATE
025165,000789: 37,2234 02241 TC R57B # PROCEED
025166,000790: 37,2235 02255 TC R57D # RECYCLE
025167,000791: 37,2236 34773 CAF FIVE
025168,000792: 37,2237 05516 TC BLANKET # BLANK OUT R1,R3
025169,000793: 37,2240 05205 TC ENDOFJOB
025170,000794: 37,2241 32262 R57B CA 19.77DEG # PUT FIXED INTO ERASABLE FOR MSU
025171,000795: 37,2242 54001 TS L # INSTRUCTION COMING UP
025172,000796: 37,2243 31727 CA MRKBUF1 +5 # CONTAINS TRUNNION
025173,000797: 37,2244 00006 EXTEND
025174,000798: 37,2245 20001 MSU L # CORRECTS TRUNBIAS FROM 2'S TO 1'S
025175,000799: 37,2246 55024 TS TRUNBIAS
025176,000800: 37,2247 05561 ENDR57 TC DOWNFLAG # RESET V59FLAG
025177,000801: 37,2250 00116 ADRES V59FLAG # BIT 12 FLAG 5
025178,000802: 37,2251 05527 TC CLEARMRK # ALLOW R53 IN
025179,000803:
025180,000804: 37,2252 06006 TC INTPRET
025181,000805: 37,2253 77650 GOTO
025182,000806: 37,2254 02310 EGRESS
025183,000807: 37,2255 05527 R57D TC CLEARMRK
025184,000808: 37,2256 12171 TCF R57A
025185,000809: 37,2257 01527 V06N87NB VN 0687
025186,000810: 37,2260 16600 V59NB VN 5900
025187,000811: 37,2261 14655 V51N45 VN 5145
025188,000812: 37,2262 61740 19.77DEG OCT 61740
025189,000813:
![]() |
Page 569 |
025191,000815:
025192,000816: # RENDEZVOUS TRACKING SIGHTING MARK ROUTINE (R21)
025193,000817: # AND BACKUP SIGHTING MARK ROUTINE (R23)
025194,000818:
025195,000819: # PROGRAM DESCRIPTION
025196,000820: # MOD NO - 1
025197,000821: # MOD BY - N.BRODEUR
025198,000822: # FUNCTIONAL DESCRIPTION
025199,000823:
025200,000824: # TO PERFORM SIGHTING MARKS IN CONJUNCTION WITH THE RENDEZVOUS NAVIG-
025201,000825: # ATION PROGRAM. CALLED BY ASTRONAUT VIA EXTENDED VERB
025202,000826: # CALLING SEQUENCE -
025203,000827: # R21 VIA V 57
025204,000828: # R23 VIA V 54
025205,000829: # SUBROUTINES CALLED -
025206,000830: # FLAGUP FLAGDOWN BANKCALL
025207,000831: # ENDOFJOB GOMARK2 GOMARKF
025208,000832: # INTPRET GENTRAN KLEENEX
025209,000833: # ENDMARK
025210,000834: # NORMAL EXIT MODES-
025211,000835: # MARKRUPT USED BY SXTMARK HAS BEEN MODIFIED TO STORE MARK IN MRKBUF2
025212,000836: # FOR USE BY R22. WHEN ASTRONAUT IS FINISHED TAKING MARKS, HE HITS AN
025213,000837: # PROCEED , R21 IS TERMINATED THUS CAUSING THE FINAL MARK TO BE TRANSFRD
025214,000838: # TO MRKBUF2 FOR PROCESSING BY R22
025215,000839: # ALARM OR ABORT EXIT MODES -
025216,000840: # NONE
025217,000841: # OUTPUT -
025218,000842: # 7 REGISTER MRKBUF2 CONTAINING TIME2,TIME1,CDUY,OPTICS X,CDUZ, OPTICS Y,
025219,000843: # CDUX.
025220,000844: # ERASABLE INITIALIZATION REQUIRED
025221,000845: # FLAGS SET AND RESET
025222,000846: # R21MARK (COMMUNICATION TO MARKRUPT TO STORE MARKS IN MRKBUF1 + 2)
025223,000847: # R23FLG INDICATES COAS MARKING
025224,000848: # DEBRIS
025225,000849: 37,2263 E7,1722 EBANK= MRKBUF1
025226,000850: 37,2000 SETLOC RENDEZ
025227,000851: 37,2000 BANK
025228,000852:
025229,000853: 37,2263 COUNT* $$/R23
025230,000854:
025231,000855: 37,2263 05561 R23CSM TC DOWNFLAG
025232,000856: 37,2264 00037 ADRES R21MARK
025233,000857: 37,2265 37702 CAF NEGONE
025234,000858: 37,2266 55722 TS MRKBUF1
025235,000859: 37,2267 37651 CAF PRIO27
025236,000860: 37,2270 05176 TC PRIOCHNG # HIGHER THAN R22
025237,000861:
025238,000862: 37,2271 32332 CAF V0694 # R23 BACKUP MARKING
025239,000863: 37,2272 04636 TC BANKCALL # DISPLAY SHAFT + TRUNNION
025240,000864: 37,2273 20576 CADR GOMARKF
025241,000865: 37,2274 02320 TC R21END # TERM
025242,000866: 37,2275 02277 TC +2 # PROC
![]() |
Page 570 |
025244,000868: 37,2276 02271 TC -5 # ENTER
025245,000869: 37,2277 32331 R23CSM1 CAF V53N45 # PERFORM ALT LOS SIGHT MARK
025246,000870: 37,2300 04636 TC BANKCALL
025247,000871: 37,2301 20612 CADR MARKMONR
025248,000872: 37,2302 02320 TC R21END # V34-TERMINATE R23
025249,000873: 37,2303 12320 TCF R21END # PRO END BACK-UP MARKING (R23)
025250,000874: 37,2304 00004 INHINT
025251,000875: 37,2305 00006 EXTEND
025252,000876: 37,2306 30025 DCA TIME2
025253,000877: 37,2307 53723 DXCH MRKBUF1 # READ TIME
025254,000878: 37,2310 30033 CA CDUY # READ CDU ANGLES
025255,000879: 37,2311 55724 TS MRKBUF1 +2
025256,000880: 37,2312 30034 CA CDUZ
025257,000881: 37,2313 55726 TS MRKBUF1 +4
025258,000882: 37,2314 30032 CA CDUX
025259,000883: 37,2315 55730 TS MRKBUF1 +6
025260,000884: 37,2316 00003 RELINT
025261,000885: 37,2317 02277 TC R23CSM1
025262,000886: 37,2320 04636 R21END TC BANKCALL
025263,000887: 37,2321 20575 CADR KLEENEX
025264,000888: 37,2322 37702 CA NEGONE
025265,000889: 37,2323 55722 TS MRKBUF1 # CLEAR BUFFERS FOR REGULAR MARKING
025266,000890: 37,2324 35055 CAF PRIO16
025267,000891: 37,2325 05176 TC PRIOCHNG # LOWER THAN R22
025268,000892:
025269,000893: 37,2326 05547 TC UPFLAG # SET R21MARK TO ALLOW REG OPTICS MARKING
025270,000894: 37,2327 00037 ADRES R21MARK # BIT 14 FLAG 2
025271,000895: 37,2330 05524 TC ENDMARK # END MARKING AND ENDJOB
025272,000896: 37,2331 15255 V53N45 VN 5345
025273,000897: 37,2332 01536 V0694 VN 0694
025274,000898:
![]() |
Page 571 |
025276,000900:
025277,000901: # PREFERRED TRACKING ATTITUDE ROUTINE R61CSM
025278,000902: # PROGRAM DESCRIPTION
025279,000903: # MOD NO - 2
025280,000904: # MOD BY - N.BRODEUR
025281,000905: # FUNCTIONAL DESCRIPTION-
025282,000906: # TO COMPUTE THE PREFERRED TRACKING ATTITUDE OF THE CSM TO ENABLE OPTICS
025283,000907: # TRACKING OF THE LM AND TO PERFORM THE MANEUVER TO THE PREFERRED
025284,000908: # OR X-AXIS TRACKING ATTITUDE.
025285,000909: # CALLING SEQUENCE-
025286,000910: # TC BANKCALL
025287,000911: # CADR R61CSM
025288,000912: # SUBROUTINES CALLED
025289,000913: # MAKECADR BANKCALL
025290,000914: # INTPRET FLAGUP FLAGDOWN
025291,000915: # BANKJUMP CRS61.1 R60CSM
025292,000916: # PHASCHNG
025293,000917: # NORMAL EXIT MODES-
025294,000918: # NORMAL RETURN IS TO CALLER + 1
025295,000919: # OUTPUT -
025296,000920: # SEE OUTPUT FOR CRS61.1 & ATTITUDE MANEUVER ROUTINE (R60CSM)
025297,000921: # ERASABLE INITIALIZATION REQUIRED
025298,000922: # GENRET USED TO SAVE Q FOR RETURN
025299,000923: # R61CNTR MUST BE PRESET TO ZERO
025300,000924: # FLAGS SET + RESET
025301,000925: # 3-AXIS FLAG
025302,000926: # DEBRIS
025303,000927: # SEE SUBROUTINES
025304,000928: 37,2333 E6,1770 EBANK= GENRET
025305,000929: 37,2333 COUNT* $$/R61 # ROUTINES - NAVIGATION - PREF. TR. 9TT=
025306,000930:
025307,000931: 37,2333 04611 R61CSM TC E6SETTER # SWITCH TO E6 - RETURNS WITH OLD SETTING
025308,000932: 37,2334 55771 TS SAVBNK # SAVE EBANK
025309,000933: 37,2335 04665 TC MAKECADR
025310,000934: 37,2336 55770 TS GENRET
025311,000935: 37,2337 11774 CCS R61CNTR # TEST R61CNTR
025312,000936: 37,2340 02416 TC DECRM61 # NOT READY TO DO R61.
025313,000937: 37,2341 02343 TC +2 # DO R61
025314,000938: 37,2342 02417 TC DECRM61 +1
025315,000939: 37,2343 00004 INHINT
025316,000940: 37,2344 35007 CAF MINDB
025317,000941: 37,2345 55655 TS ADB
025318,000942: 37,2346 11773 CCS DBPTC
025319,000943: 37,2347 64770 AD ONE
025320,000944: 37,2350 12352 TCF +2
025321,000945: 37,2351 64770 AD ONE
025322,000946: 37,2352 00006 EXTEND
025323,000947: 37,2353 12355 BZF +2 # IGNOR ZERO DEADBAND
025324,000948: 37,2354 55655 TS ADB
025325,000949:
025326,000950: 37,2355 06006 TC INTPRET
![]() |
Page 572 |
025328,000952: 37,2356 77624 CALL
025329,000953: 37,2357 71432 CRS61.1 # LOS DETERMINATION + VEH ATTITUDE
025330,000954: 37,2360 77776 R61DMPTG EXIT # DEFINE TAG FOR P20 EDIT DUMP
025331,000955: 37,2361 05561 TC DOWNFLAG # RESET FLAG TO INHIBIT FURTHER R60
025332,000956: 37,2362 00055 ADRES V50N18FL # ATTITUDE MANEUVERS
025333,000957: 37,2363 50154 INDEX MPAC
025334,000958: 37,2364 02365 TC +1
025335,000959: 37,2365 02415 TC R61END # SUBROUTINE DRIVING DAP (EXIT R61)
025336,000960: # OR AUTO MODE NOT SET (EXIT R61)
025337,000961: # OR STIKFLAG SET (EXIT R61)
025338,000962: 37,2366 05561 R61C1 TC DOWNFLAG # RESET 3-AXIS FLAG
025339,000963: 37,2367 00124 ADRES 3AXISFLG # BIT 6 FLAG 5
025340,000964: 37,2370 40107 CS FLGWRD11
025341,000965: 37,2371 74761 MASK AZIMBIT
025342,000966: 37,2372 10000 CCS A
025343,000967: 37,2373 02376 TC +3 # AZIMFLAG NOT SET,CLEAR 3AXISFLA7
025344,000968:
025345,000969: 37,2374 05547 TC UPFLAG # AZIMFLAG SET ,SET 3AXISFLAG
025346,000970: 37,2375 00124 ADRES 3AXISFLG
025347,000971:
025348,000972: 37,2376 44770 CS ONE # SET R61CNTR NEG. TO INDICATE KALCMANU
025349,000973: 37,2377 55774 TS R61CNTR
025350,000974:
025351,000975: 37,2400 05547 TC UPFLAG # SET FLAG FOR PROIRITY DISPLAYS FOR R60
025352,000976: 37,2401 00077 ADRES PDSPFLAG # BIT 12 FLAG 4
025353,000977: 37,2402 04636 TC BANKCALL
025354,000978: 37,2403 56074 CADR R60CSM
025355,000979: 37,2404 05561 TC DOWNFLAG # RESET FLAG FOR PRIORITY DISPLAYS IN R60
025356,000980: 37,2405 00077 ADRES PDSPFLAG # BIT 12 FLAG 4
025357,000981: 37,2406 34772 CAF ZERO
025358,000982: 37,2407 04636 TC BANKCALL
025359,000983: 37,2410 20753 CADR PRIODSP # RELEASE DISPLAY
025360,000984: 37,2411 05402 TC PHASCHNG
025361,000985: 37,2412 00111 OCT 00111
025362,000986: 37,2413 01,2025 1P11SPT6 = 1.11SPOT
025363,000987: 37,2413 34772 CAF ZERO
025364,000988: 37,2414 02416 TC DECRM61
025365,000989: 37,2415 36214 R61END CAF THREE
025366,000990:
025367,000991: 37,2416 55774 DECRM61 TS R61CNTR
025368,000992:
025369,000993: 37,2417 31770 +1 CAE GENRET
025370,000994: 37,2420 22000 LXCH A # RETURN IS IN L
025371,000995: 37,2421 31771 CA SAVBNK # RESTORE EBANK
025372,000996: 37,2422 56003 XCH EBANK
025373,000997: 37,2423 22000 LXCH A # RETURN IS NOW BACK IN A
025374,000998: 37,2424 04660 TC BANKJUMP # EXIT R61
025375,000999: 23,2000 SETLOC P20S2
025376,001000: 23,2000 BANK
![]() |
Page 573 |
025378,001002: 23,2756 E7,1722 EBANK= MRKBUF1
025379,001003:
![]() |
Page 574 |
025381,001005:
025382,001006: # BVECTOR PERFORMS COMPUTATIONS FOR
025383,001007: # DELTAQ,THE MEASURED DEVIATION BASED ON THE DIFFERENCE BETWEEN THE CSM-LE
025384,001008: # M STATE VECTOR ESTIMATES AND THE ACTUAL TRACKING MEASUREMENT.
025385,001009: # US,THE MODIFIED FICTITIOUS STAR DIRECTION VECTOR
025386,001010: # GEOMETRY VECTOR B ASSOCIATED WITH EACH TRACKING MEASUREMENT.
025387,001011: # INPUT
025388,001012: # UM,1/2 UNIT VECTOR ALONG THE CSM-LM LINE OF SIGHT (BASIC REF.SYSTEM)
025389,001013: # USTAR,FICTITIOUS STAR DIRECTION (1/2 UNIT VECTOR)
025390,001014: # RCLP,RELATIVE CSM TO LM POSITION VECTOR
025391,001015: # OUTPUT
025392,001016: # USTAR,MODIFIED FICTITOUS STAR DIRECTION (1/2 UNIT VECTOR)
025393,001017: # BVECTOR = 9 DIMENSIONAL BVECTOR (1/2 UNIT VEC.)
025394,001018: # DELTAQ = MEASURED DEVIATION
025395,001019: # CALLING SEQUENCE
025396,001020: # L CALL BVECTORS
025397,001021: # NORMAL EXIT
025398,001022: # L+1 OF CALLING SEQUENCE
025399,001023:
025400,001024: 23,2756 COUNT* $$/INCOR
025401,001025: 23,2756 77620 BVECTORS STQ
025402,001026: 23,2757 02310 EGRESS
025403,001027: 23,2760 53575 VLOAD UNIT
025404,001028: 23,2761 03531 RCLP # RELATIVE POSITION VECTOR
025405,001029: 23,2762 14033 STODL 26D # RCLP UNIT VEC
025406,001030: 23,2763 00045 36D # RCLP ABS VALUE
025407,001031: 23,2764 25136 STOVL TEMPOR1 # MOVE TO SAFE LOCATION
025408,001032: 23,2765 01102 USTAR
025409,001033: 23,2766 53435 VXV UNIT
025410,001034: 23,2767 00033 26D # USTAR = UNIT(US X UCL)
025411,001035: 23,2770 37502 STCALL BVECTOR
025412,001036: 23,2771 22327 GRP2PC # PHASE CHANGE
025413,001037: 23,2772 77775 VLOAD
025414,001038: 23,2773 03502 BVECTOR
025415,001039: 23,2774 01102 STORE USTAR
025416,001040: 23,2775 72441 DOT SL1
025417,001041: 23,2776 01072 UM # USTAR DOT UM
025418,001042: 23,2777 45326 ACOS DSU
025419,001043: 23,3000 15326 DP1/4TH
025420,001044: 23,3001 41301 NORM DMP
025421,001045: 23,3002 00047 X1
025422,001046: 23,3003 07016 PI/4.0
025423,001047: 23,3004 53605 DMP SRR*
025424,001048: 23,3005 01136 TEMPOR1 # RCLP ABS VALUE
025425,001049: 23,3006 21576 0 -3,1 # ADJUST SCALING
025426,001050: 23,3007 27524 STOVL DELTAQ
025427,001051: 23,3010 15336 ZEROVECS
025428,001052: 23,3011 03510 STORE BVECTOR +6
025429,001053: 23,3012 03516 STORE BVECTOR +12D
025430,001054: 23,3013 77650 GOTO
025431,001055: 23,3014 02310 EGRESS
![]() |
Page 575 |
025433,001057: 23,3015 31103 36652 PI/4.0 2DEC .785398164
025434,001058:
![]() |
Page 576 |
025436,001060:
025437,001061: # GETUM-DETERMINES THE LINE OF SIGHT UNIT VECTOR UM IN THE BASIC REFERENC
025438,001062: # E COORDINATE SYSTEM FROM THE OPTICS SHAFT AND TRUNNION ANGLES AND THE IM
025439,001063: # U GIMBAL ANGLES.
025440,001064: # INPUT
025441,001065: # MARKDATA,BASE ADDRESS OF MARK DATA
025442,001066: # REFSMMAT,ROTATION MATRIX FROM STABLE MEMBER TO BASIC REF.COORD.SYSTEM
025443,001067:
025444,001068: # SUBROUTINES CALLED-
025445,001069: # SXTNB - SEXT. ANGULAR READINGS TO NAV. BASE COOR.
025446,001070: # NBSM - TRANSFORM FROM NAV. BASE TO STABLE MEMBER
025447,001071: # OUTPUT
025448,001072: # MPAC = LINE OF SIGHT 1/2 UNIT VECTOR IN BASIC REFERENCE SYSTEM
025449,001073: # CALLING SEQUENCE
025450,001074: # L CALL GETUM
025451,001075:
025452,001076: # NORMAL EXIT
025453,001077: # L+1 OF CALLING SEQUENCE
025454,001078:
025455,001079: 23,3017 40220 GETUM STQ SETPD
025456,001080: 23,3020 02310 EGRESS
025457,001081: 23,3021 00001 0
025458,001082: 23,3022 77624 CALL
025459,001083: 23,3023 36057 SXTSM1
025460,001084: 23,3024 76505 VXM VSL1
025461,001085: 23,3025 01734 REFSMMAT
025462,001086: 23,3026 77650 GOTO # MPAC = (UM)LINE OF SIGHT VECTOR
025463,001087: 23,3027 02310 EGRESS # EXIT
025464,001088:
![]() |
Page 577 |
025466,001090:
025467,001091: # RENDEZVOUS TRACKING DATA PROCESSING ROUTINE (R22)
025468,001092:
025469,001093: # FUNCTIONAL DESCRIPTION
025470,001094:
025471,001095: # TO PROCESS RENDEZVOUS SIGHTING MARK AND VHF RANGING DATA TO UPDATE
025472,001096: # THE STATE VECTOR OF EITHER THE CSM OR LM AS DEFINED BY VEHUPFLG.
025473,001097: # (VEHUPFLG IS SET TO LM BY P20, CSM BY V81E, AND LM BY V80E.)
025474,001098:
025475,001099: # CALLING SEQUENCE
025476,001100: # AUTOMATICALLY SELECTED BY P20
025477,001101:
025478,001102: # SUBROUTINES CALLED
025479,001103: # PRIOCHNG INTPRET GRP2PC
025480,001104: # GETUM BVECTORS INCORP1
025481,001105: # INCORP2 INTEGRV PHASCHNG
025482,001106: # NOVAC BANKCALL GOTOV56
025483,001107: # ENDOFJOB INSTALL DOWNFLAG
025484,001108: # TRFAILOF TRFAILON TASKOVER
025485,001109: # POSTJUMP
025486,001110:
025487,001111: # NORMAL EXIT MODES
025488,001112: # RENDEZVOUS NAVIGATION MAY BE TERMINATED BY THE SELECTION OF
025489,001113: # P00, P06, P22, P23, V34E FROM R60, AND V56E
025490,001114:
025491,001115: # ALARMS OR ABORT EXIT MODES
025492,001116: # NONE
025493,001117:
025494,001118: # INPUT
025495,001119: # MARK DATA, SEE R21 AND R23
025496,001120: # VHF RANGING DATA
025497,001121:
025498,001122: # OUTPUT
025499,001123: # TRKMKCNT, NO OF RENDEZVOUS TRACKING MARKS INCORPORATED (COUNTER)
025500,001124: # VHFCNT, NO OF VHF RANGING MARKS INCORPORATED (COUNTER)
025501,001125: # V06N49, EXCESSIVE UPDATE PARAMETERS-DELTA R AND DELTA V
025502,001126:
025503,001127: # FLAGS SET + RESET
025504,001128: # SOURCFLG, VINTFLAG, DIM0FLAG, INCORFLG, ORBWFLAG, RENDWFLG
025505,001129: # STATEFLG, D6OR9FLG, SKIPVHF, DMENFLG AT THE INTERRUPTED DISPLAY.
025506,001130:
025507,001131: 34,2000 SETLOC P20S3
025508,001132: 34,2000 BANK
025509,001133:
025510,001134: 34,2625 COUNT* $$/R22
025511,001135: 34,2625 37650 R22 CAF PRIO26
025512,001136: 34,2626 55262 TS PHSPRDT2
025513,001137: 34,2627 05176 TC PRIOCHNG
025514,001138: 34,2630 37700 CA NEG3
025515,001139: 34,2631 55722 TS MRKBUF1
025516,001140: 34,2632 06006 TC INTPRET
![]() |
Page 578 |
025518,001142: 34,2633 77634 RTB
025519,001143: 34,2634 51751 LOADTIME
025520,001144: 34,2635 01010 STORE VHFTIME # PRESENT TIME
025521,001145: 34,2636 77624 REND1 CALL
025522,001146: 34,2637 22327 GRP2PC
025523,001147: 34,2640 77624 CALL
025524,001148: 34,2641 56523 WAITONE
025525,001149: 34,2642 77776 REND1A EXIT
025526,001150: 34,2643 31722 CA MRKBUF1
025527,001151: 34,2644 00006 EXTEND
025528,001152: 34,2645 12650 BZF REND2
025529,001153: 34,2646 00006 EXTEND
025530,001154: 34,2647 62666 BZMF REND3A
025531,001155: 34,2650 36211 REND2 CAF SIX
025532,001156: 34,2651 05607 TC GENTRAN
025533,001157: 34,2652 01722 ADRES MRKBUF1
025534,001158: 34,2653 01061 ADRES MARKTIME # MARKTIME MUST BE CONTIGUOUS WITH VTEMP
025535,001159: 34,2654 37700 CAF NEG3 # NEG VALUE TO INDICATE VALUES USED
025536,001160: 34,2655 55722 TS MRKBUF1
025537,001161: 34,2656 05547 TC UPFLAG # SET FLAG TO INDICATE THAT OPTICS MARK IS
025538,001162: 34,2657 00217 ADRES R22CAFLG # BEING PROCESSED (TESTED IN MARK REJCT)
025539,001163: 34,2660 06006 TC INTPRET
025540,001164: 34,2661 45014 CLEAR CALL
025541,001165: 34,2662 04667 SOURCFLG # 0 = OPTICS DATA
025542,001166: 34,2663 22327 GRP2PC # PHASE CHANGE
025543,001167: 34,2664 77650 GOTO
025544,001168: 34,2665 70761 REND4
025545,001169: 34,2666 06006 REND3A TC INTPRET
025546,001170: 34,2667 77624 REND3 CALL
025547,001171: 34,2670 22327 GRP2PC
025548,001172: 34,2671 77624 CALL
025549,001173: 34,2672 56523 WAITONE
025550,001174: 34,2673 43014 BOFF BOFF
025551,001175: 34,2674 04746 VHFRFLAG
025552,001176: 34,2675 70642 REND1A
025553,001177: 34,2676 05346 RANGFLAG # RANGE > 200 N.M. DONT READ
025554,001178: 34,2677 70642 REND1A
025555,001179: 34,2700 77634 RTB
025556,001180: 34,2701 51751 LOADTIME # PRESENT TIME
025557,001181: 34,2702 45225 DSU DSU
025558,001182: 34,2703 14651 60SECDP # 1 MIN
025559,001183: 34,2704 01010 VHFTIME # LAST READING OF RADAR
025560,001184: 34,2705 77440 BMN EXIT
025561,001185: 34,2706 70642 REND1A
025562,001186: 34,2707 00004 RANGER0 INHINT # READ RADAR RANGE
025563,001187: 34,2710 44777 CS OCT17
025564,001188: 34,2711 00006 EXTEND
025565,001189: 34,2712 03013 WAND CHAN13 # ZERO OUT BITS 1-4 OF CHANNEL 13
025566,001190: 34,2713 00006 RADSTART EXTEND
025567,001191: 34,2714 00004 READ LOSCALAR # READ PRESENT TIME
![]() |
Page 579 |
025569,001193: 34,2715 54001 TS L
025570,001194:
025571,001195: 34,2716 74342 MASK LOW5 # ONLY THE 5 BITS MATTER
025572,001196: 34,2717 40000 COM
025573,001197: 34,2720 64763 AD BIT6 # COMPUTE DELTA TIME TO NEXT T5 TICK
025574,001198: 34,2721 74342 MASK LOW5
025575,001199:
025576,001200: 34,2722 55064 TS RADDEL
025577,001201: 34,2723 67701 AD NEG2 # IF A TICK OF T5 IS NEAR, WAIT TILL IT
025578,001202: 34,2724 00006 EXTEND # HAS TICKED. MAX DELAY HERE IS
025579,001203: 34,2725 62713 BZMF RADSTART # 937.5 MICROSEC.
025580,001204:
025581,001205: 34,2726 34322 CA OCT11 # SET RADAD BITS NOW
025582,001206: 34,2727 00006 EXTEND
025583,001207: 34,2730 05013 WOR CHAN13
025584,001208: 34,2731 40001 CS L
025585,001209: 34,2732 55063 TS RADTIME # SAVE NEG TIME OF READ
025586,001210:
025587,001211: 34,2733 00003 RELINT
025588,001212: 34,2734 00006 EXTEND
025589,001213: 34,2735 30025 DCA TIME2
025590,001214: 34,2736 53062 DXCH MARKTIME # READ PRESENT TIME
025591,001215: 34,2737 05561 TC DOWNFLAG
025592,001216: 34,2740 00043 ADRES SKIPVHF # CLEAR VHF RESTART FLAG
025593,001217: 34,2741 05205 TC ENDOFJOB # WAIT FOR RADAR READ
025594,001218: 34,2742 05632 RANGERD1 TC TRFAILOF # TURN TRACKER LIGHT OFF
025595,001219: 34,2743 11703 CCS RM # 15 BIT UNSIGNED RANGE
025596,001220: 34,2744 02750 TC RANGERD4 # GR + 0
025597,001221: 34,2745 03424 TC LIGHTON +4 # = + 0
025598,001222: 34,2746 03406 TC RANGERD3 # L - 0
025599,001223: 34,2747 03406 TC RANGERD3 # = - 0
025600,001224: 34,2750 06006 RANGERD4 TC INTPRET
025601,001225: 34,2751 41335 SLOAD DMP
025602,001226: 34,2752 03704 RM
025603,001227: 34,2753 16535 CONVRNGE # CONVERT RANGE TO METERS B-27
025604,001228: 34,2754 01114 RANGERD2 STORE VHFRANGE
025605,001229: 34,2755 71214 SET DLOAD
025606,001230: 34,2756 04467 SOURCFLG # SOURCE OF DATA TO VHF RADAR
025607,001231: 34,2757 01062 MARKTIME
025608,001232: 34,2760 01010 STORE VHFTIME # FOR DOWNLINK
025609,001233: 34,2761 77624 REND4 CALL
025610,001234: 34,2762 60435 UPSTATE # INTEGRATE CSM,LM,W MATRIX
025611,001235: 34,2763 77624 CALL
025612,001236: 34,2764 56603 SHIFTNDX # SET EARTH MOON SCALING INDEX
025613,001237: 34,2765 45014 CLEAR CALL
025614,001238: 34,2766 01671 ORBWFLAG # CLEAR FOR P22 AND P23
025615,001239: 34,2767 71327 CMPOS # SET CSM POSITION
025616,001240: 34,2770 45014 SET CALL
025617,001241: 34,2771 02464 INCORFLG # SET FOR FIRST PASS
025618,001242: 34,2772 71336 LMPOS # SET LM POSITION
![]() |
Page 580 |
025620,001244: 34,2773 77614 BON
025621,001245: 34,2774 05310 AUTOSEQ
025622,001246: 34,2775 47030 AUTOW # AUTOMATIC W MATRIX REINITIALIZATION
025623,001247: 34,2776 77614 REND5B BON
025624,001248: 34,2777 02716 RENDWFLG
025625,001249: 34,3000 71017 REND6
025626,001250: 34,3001 77745 REND5C DLOAD
025627,001251: 34,3002 15336 ZEROVECS
025628,001252: 34,3003 14772 STODL VHFCNT # ZERO OUT VHFCNT AND TRKMKCNT
025629,001253: 34,3004 02001 WRENDPOS
025630,001254: 34,3005 34001 STCALL 0 # 0=WRENDPOS 1=WRENDVEL
025631,001255: 34,3006 56612 INITIALW # INITIALIZE W MATRIX
025632,001256: 34,3007 71214 CLEAR DLOAD
025633,001257: 34,3010 05267 P35FLAG
025634,001258: 34,3011 01062 MARKTIME
025635,001259: 34,3012 03736 STORE AGEOFW
025636,001260: 34,3013 66214 CLEAR SSP
025637,001261: 34,3014 05273 PTV93FLG
025638,001262: 34,3015 02551 COUNT3MK
025639,001263: 34,3016 00001 1
025640,001264: 34,3017 77614 REND6 SET
025641,001265: 34,3020 02476 RENDWFLG
025642,001266: 34,3021 52375 REND7 VLOAD VSU
025643,001267: 34,3022 01054 LEMPOS
025644,001268: 34,3023 01046 CSMPOS
025645,001269: 34,3024 03531 STORE RCLP # LM - CSM
025646,001270: 34,3025 43056 UNIT BON
025647,001271: 34,3026 04707 SOURCFLG
025648,001272: 34,3027 71251 REND14 # BRANCH IF DATA IS RADAR
025649,001273: 34,3030 01130 STORE UCL
025650,001274: 34,3031 74014 BOFF AXC,1
025651,001275: 34,3032 02744 INCORFLG
025652,001276: 34,3033 71047 REND9
025653,001277: 34,3034 01061 MARKTIME
025654,001278: 34,3035 77624 CALL
025655,001279: 34,3036 47017 GETUM # CALCULATE UM LINE OF SIGHT
025656,001280: 34,3037 25072 STOVL UM
025657,001281: 34,3040 01130 UCL
025658,001282: 34,3041 40035 VXV BOV
025659,001283: 34,3042 01072 UM # UCL X UM
025660,001284: 34,3043 71044 REND8
025661,001285: 34,3044 40056 REND8 UNIT BOV
025662,001286: 34,3045 71375 RENDISP3 # IGNORE MARK RESET FLAGS FOR REJECT
025663,001287: 34,3046 01102 STORE USTAR
025664,001288: 34,3047 77624 REND9 CALL
025665,001289: 34,3050 46756 BVECTORS
025666,001290: 34,3051 77214 BON VLOAD
025667,001291: 34,3052 00707 VEHUPFLG
025668,001292: 34,3053 71057 REND9A
025669,001293: 34,3054 03502 BVECTOR
![]() |
Page 581 |
025671,001295: 34,3055 77676 VCOMP
025672,001296: 34,3056 03502 STORE BVECTOR
025673,001297: 34,3057 77624 REND9A CALL
025674,001298: 34,3060 22327 GRP2PC
025675,001299: 34,3061 77614 BOFF
025676,001300: 34,3062 01341 R21MARK
025677,001301: 34,3063 71302 REND15 # BRANCH IF BACKUP OPTICS (R23 WORKING)
025678,001302: 34,3064 43345 DLOAD DAD
025679,001303: 34,3065 16457 SXTVAR
025680,001304: 34,3066 16461 IMUVAR
025681,001305: 34,3067 27526 REND10 STOVL VARIANCE # TEMP STORAGE FOR VARIANCE CALC.
025682,001306: 34,3070 03531 RCLP
025683,001307: 34,3071 60246 ABVAL NORM
025684,001308: 34,3072 00047 X1
025685,001309: 34,3073 41316 DSQ DMP
025686,001310: 34,3074 03526 VARIANCE
025687,001311: 34,3075 45070 XAD,1 CALL
025688,001312: 34,3076 00046 X1
025689,001313: 34,3077 56603 SHIFTNDX # GET EARTH MOON SCALING INDEX
025690,001314: 34,3100 56070 XAD,1 XAD,1
025691,001315: 34,3101 00047 X2
025692,001316: 34,3102 00047 X2
025693,001317: 34,3103 72257 SR* TLOAD
025694,001318: 34,3104 20577 0 -2,1 # ADJUST SCALING TO B-40
025695,001319: 34,3105 00155 MPAC
025696,001320: 34,3106 03526 STORE VARIANCE
025697,001321: 34,3107 54335 SLOAD SR
025698,001322: 34,3110 02400 INTVAR # INTEGRATION VARIANCE SCALED B-15
025699,001323: 34,3111 20632 25D # SCALE IT B-40
025700,001324: 34,3112 47171 TAD RTB
025701,001325: 34,3113 03526 VARIANCE
025702,001326: 34,3114 45657 TPMODE
025703,001327: 34,3115 03526 STORE VARIANCE
025704,001328: 34,3116 76214 BOFF TAD
025705,001329: 34,3117 04747 SOURCFLG # BRANCH IF NOT VHF RADAR
025706,001330: 34,3120 71127 REND10A
025707,001331: 34,3121 03005 RVARMIN # VHF RADAR MIN. VARIANCE
025708,001332: 34,3122 72244 BPL TLOAD
025709,001333: 34,3123 71127 REND10A
025710,001334: 34,3124 03005 RVARMIN
025711,001335: 34,3125 77646 ABS # MIN. VALUE WAS STORED AS NEG.
025712,001336: 34,3126 03526 STORE VARIANCE # STORE MIN. VALUE
025713,001337: 34,3127 45014 REND10A CLEAR CALL
025714,001338: 34,3130 02666 DMENFLG # CLEAR FOR 6 X 6 W MATRIX
025715,001339: 34,3131 75260 INCORP1 # CALCULATE UPDATE
025716,001340: 34,3132 77624 CALL
025717,001341: 34,3133 22327 GRP2PC
025718,001342: 34,3134 45014 BOFF CALL
025719,001343: 34,3135 02744 INCORFLG
025720,001344: 34,3136 71176 REND12
![]() |
Page 582 |
025722,001346: 34,3137 56603 SHIFTNDX # GET EARTH MOON SCALING INDEX
025723,001347: 34,3140 51575 VLOAD ABVAL
025724,001348: 34,3141 01122 DELTAX +6
025725,001349: 34,3142 77657 SR*
025726,001350: 34,3143 57176 0,2
025727,001351: 34,3144 27504 STOVL N49DISP +2
025728,001352: 34,3145 01114 DELTAX
025729,001353: 34,3146 53646 ABVAL SR*
025730,001354: 34,3147 57176 0,2
025731,001355: 34,3150 03502 STORE N49DISP
025732,001356: 34,3151 43131 SSP BON
025733,001357: 34,3152 03506 N49DISP +4
025734,001358: 34,3153 00002 OCT 2
025735,001359: 34,3154 04707 SOURCFLG
025736,001360: 34,3155 71163 REND10B # VHF MARK CODE
025737,001361: 34,3156 66214 BON SSP
025738,001362: 34,3157 05303 REJCTFLG
025739,001363: 34,3160 71375 RENDISP3
025740,001364: 34,3161 03506 N49DISP +4 # OPTICS MARK CODE
025741,001365: 34,3162 00001 OCT 1
025742,001366: 34,3163 77735 REND10B SLOAD
025743,001367: 34,3164 02003 RMAX
025744,001368: 34,3165 45261 SR DSU
025745,001369: 34,3166 20613 10D
025746,001370: 34,3167 03502 N49DISP
025747,001371: 34,3170 67240 BMN SLOAD
025748,001372: 34,3171 71345 RENDISP # BRANCH IF POS UP.GREATER THAN MAX.
025749,001373: 34,3172 02004 VMAX
025750,001374: 34,3173 50025 DSU BMN
025751,001375: 34,3174 03504 N49DISP +2
025752,001376: 34,3175 71345 RENDISP # BRANCH IF VEL.UPDATE GREATER THAN MAX.
025753,001377: 34,3176 77624 REND12 CALL
025754,001378: 34,3177 75472 INCORP2 # INCORPORATE UPDATE VALUES INTO STATE VEC
025755,001379: 34,3200 71214 BOFF DLOAD
025756,001380: 34,3201 02744 INCORFLG
025757,001381: 34,3202 71217 REND12A # BRANCH IF 1ST PASS OPTICS
025758,001382: 34,3203 01062 MARKTIME
025759,001383: 34,3204 03734 STORE OLDMKTME # SAVE OLD MARK TIME
025760,001384: 34,3205 67214 CLEAR SLOAD
025761,001385: 34,3206 05272 MANEUFLG # CLEAR MANEUVER FLAG
025762,001386: 34,3207 02551 COUNT3MK
025763,001387: 34,3210 45254 BZE DSU
025764,001388: 34,3211 71217 REND12A
025765,001389: 34,3212 07142 HIGH3 # CHECK IF 3 MARKS TAKEN
025766,001390: 34,3213 66240 BMN SSP
025767,001391: 34,3214 71237 REND13A # BRANCH IF NOT 3 YET
025768,001392: 34,3215 02551 COUNT3MK # SET COUNT EQUAL TO 0
025769,001393: 34,3216 00000 DEC 0 B-14
025770,001394: 34,3217 43014 REND12A BON BOFF
025771,001395: 34,3220 04707 SOURCFLG
![]() |
Page 583 |
025773,001397: 34,3221 71307 REND16 # BRANCH IF DATA IS RADAR
025774,001398: 34,3222 02744 INCORFLG
025775,001399: 34,3223 71315 REND17
025776,001400: 34,3224 77624 CALL
025777,001401: 34,3225 56603 SHIFTNDX # GET EARTH MOON SCALING INDEX
025778,001402: 34,3226 45014 BON CALL
025779,001403: 34,3227 00707 VEHUPFLG
025780,001404: 34,3230 71323 REND18 # BRANCH IF CSM UPDATE
025781,001405: 34,3231 71336 LMPOS # GET LM POSITION
025782,001406: 34,3232 77624 REND13 CALL
025783,001407: 34,3233 22327 GRP2PC # PHASE CHANGE
025784,001408: 34,3234 77614 CLRGO
025785,001409: 34,3235 02624 INCORFLG
025786,001410: 34,3236 71021 REND7 # BRANCH FOR 2ND PASS THIS OPTICS MARK
025787,001411: 34,3237 77735 REND13A SLOAD
025788,001412: 34,3240 02551 COUNT3MK
025789,001413: 34,3241 37732 STCALL CNT3TEMP
025790,001414: 34,3242 22327 GRP2PC
025791,001415: 34,3243 62150 LXA,1 INCR,1
025792,001416: 34,3244 03731 CNT3TEMP
025793,001417: 34,3245 00001 DEC 1 B-14 # ADD ONE TO MARK COUNT
025794,001418: 34,3246 52130 SXA,1 GOTO
025795,001419: 34,3247 02550 COUNT3MK
025796,001420: 34,3250 71217 REND12A
025797,001421: 30,2000 SETLOC P20S1
025798,001422: 30,2000 BANK
025799,001423:
025800,001424: 30,2435 COUNT* $$/R22
025801,001425: 30,2435 45020 UPSTATE STQ CALL # INTEGRATE NON-UPDATED VEHICLE STATE
025802,001426: 30,2436 01006 POINTEX # VECTOR
025803,001427: 30,2437 56462 SETINTG # SET INTEGRV FLAGS VINTFLAG=1 FOR CSM
025804,001428: 30,2440 43014 BOFF CLEAR
025805,001429: 30,2441 00747 VEHUPFLG # 0=LM 1=CSM FOR UPDATE VEHICLE
025806,001430: 30,2442 60444 REND4A # INTEGRATE CSM
025807,001431: 30,2443 01674 VINTFLAG # INTEGRATE LM
025808,001432: 30,2444 77624 REND4A CALL
025809,001433: 30,2445 27236 INTEGRV
025810,001434: 30,2446 77624 CALL
025811,001435: 30,2447 22327 GRP2PC # PHASE CHANGE
025812,001436: 30,2450 77624 CALL # INTEGRATE UPDATED VEHICLE
025813,001437: 30,2451 56462 SETINTG # SET INTEGRV FLAGS VINTFLAG=1 FOR CSM
025814,001438: 30,2452 43014 BOFF SET
025815,001439: 30,2453 02756 RENDWFLG
025816,001440: 30,2454 60456 REND5 # IF FLAG=0 DO NOT INTEGRATE W MATRIX
025817,001441: 30,2455 01476 DIM0FLAG # INTEGRATE VALID W MATRIX
025818,001442: 30,2456 43014 REND5 BON CLEAR
025819,001443: 30,2457 00707 VEHUPFLG
025820,001444: 30,2460 60462 REND5A # INTEGRATE CSM
025821,001445: 30,2461 01674 VINTFLAG # INTEGRATE LM
025822,001446: 30,2462 77624 REND5A CALL
![]() |
Page 584 |
025824,001448: 30,2463 27236 INTEGRV
025825,001449: 30,2464 77650 GOTO
025826,001450: 30,2465 01006 POINTEX
025827,001451: 34,2000 SETLOC P20S3
025828,001452: 34,2000 BANK
025829,001453:
025830,001454: 34,3251 COUNT* $$/R22
025831,001455: 34,3251 27502 REND14 STOVL BVECTOR # VHF RADAR BVECTOR
025832,001456: 34,3252 15336 ZEROVECS
025833,001457: 34,3253 03510 STORE BVECTOR +6
025834,001458: 34,3254 27516 STOVL BVECTOR +12D
025835,001459: 34,3255 03531 RCLP
025836,001460: 34,3256 71256 UNIT DLOAD
025837,001461: 34,3257 01114 VHFRANGE # VHFRANGE SCALED B-27
025838,001462: 34,3260 60414 BON SR2
025839,001463: 34,3261 04303 MOONTHIS
025840,001464: 34,3262 71263 +1
025841,001465: 34,3263 43025 DSU SET
025842,001466: 34,3264 00045 36D # ABVAL (RCLP)
025843,001467: 34,3265 02464 INCORFLG
025844,001468: 34,3266 03524 STORE DELTAQ
025845,001469: 34,3267 77214 BOFF VLOAD
025846,001470: 34,3270 00747 VEHUPFLG
025847,001471: 34,3271 71275 REND14A
025848,001472: 34,3272 03502 BVECTOR
025849,001473: 34,3273 77676 VCOMP
025850,001474: 34,3274 03502 STORE BVECTOR
025851,001475: 34,3275 77624 REND14A CALL
025852,001476: 34,3276 22327 GRP2PC
025853,001477: 34,3277 52145 DLOAD GOTO
025854,001478: 34,3300 03003 RVAR
025855,001479: 34,3301 71067 REND10
025856,001480: 34,3302 43335 REND15 SLOAD DAD # GET ALT LOS VARIANCE
025857,001481: 34,3303 01350 ALTVAR # BACKUP OPTICS
025858,001482: 34,3304 16461 IMUVAR # IMU VARIANCE
025859,001483: 34,3305 77650 GOTO
025860,001484: 34,3306 71067 REND10
025861,001485: 34,3307 62150 REND16 LXA,1 INCR,1
025862,001486: 34,3310 00771 VHFCNT # VHF RADAR UPDATE COUNT
025863,001487: 34,3311 00001 DEC 1 B-14
025864,001488: 34,3312 52130 SXA,1 GOTO
025865,001489: 34,3313 00771 VHFCNT # UPDATE COUNT
025866,001490: 34,3314 71375 RENDISP3
025867,001491: 34,3315 62150 REND17 LXA,1 INCR,1
025868,001492: 34,3316 00772 TRKMKCNT # OPTICS MARK COUNT
025869,001493: 34,3317 00001 DEC 1 B-14
025870,001494: 34,3320 52130 SXA,1 GOTO
025871,001495: 34,3321 00772 TRKMKCNT # UPDATE COUNT
025872,001496: 34,3322 71375 RENDISP3
025873,001497: 34,3323 77624 REND18 CALL
![]() |
Page 585 |
025875,001499: 34,3324 71327 CMPOS # GET CSM POSITION
025876,001500: 34,3325 77650 GOTO
025877,001501: 34,3326 71232 REND13
025878,001502: 34,2000 SETLOC P20S3
025879,001503: 34,2000 BANK
025880,001504:
025881,001505: 34,3327 COUNT* $$/R22
025882,001506: 34,3327 53775 CMPOS VLOAD VSR*
025883,001507: 34,3330 01573 DELTACSM
025884,001508: 34,3331 57167 7,2
025885,001509: 34,3332 77655 VAD
025886,001510: 34,3333 01607 RCVCSM
025887,001511: 34,3334 01046 STORE CSMPOS # CSM POSITION SCALED B-27 OR B-29
025888,001512: 34,3335 77616 RVQ
025889,001513: 34,3336 53775 LMPOS VLOAD VSR*
025890,001514: 34,3337 01645 DELTALEM
025891,001515: 34,3340 57167 7,2
025892,001516: 34,3341 77655 VAD
025893,001517: 34,3342 01661 RCVLEM
025894,001518: 34,3343 01054 STORE LEMPOS # LM POSITION SCALED B-27 OR B-29
025895,001519: 34,3344 77616 RVQ
025896,001520: 34,2000 SETLOC P20S3
025897,001521: 34,2000 BANK
025898,001522:
025899,001523: 34,3345 COUNT* $$/R22
025900,001524: 34,3345 77776 RENDISP EXIT
025901,001525: 34,3346 34772 CAF ZERO # SET TEMPOR1 > ZERO TO INDICATE
025902,001526: 34,3347 55135 TS TEMPOR1 # V06 N49 DISPLAY HASNT BEEN ANSWERED
025903,001527: 34,3350 05402 TC PHASCHNG
025904,001528: 34,3351 04022 OCT 04022
025905,001529: 34,3352 37651 CAF PRIO27 # SET UP DISPLAY JOB WITH HIGHER PRIORITY
025906,001530: 34,3353 05121 TC NOVAC
025907,001531: 34,3354 E7,1722 EBANK= MRKBUF1 # THAN PRESENT JOB
025908,001532: 34,3354 03366 70067 2CADR RENDISP2
025909,001533:
025910,001534: 34,3356 06006 RENDISP7 TC INTPRET
025911,001535: 34,3357 00155 STORE MPAC
025912,001536: 34,3360 53135 SLOAD BZE
025913,001537: 34,3361 01136 TEMPOR1
025914,001538: 34,3362 71357 RENDISP7 +1 # DISPLAY HAS NOT BEEN ANSWERED YET
025915,001539: 34,3363 52040 BMN GOTO
025916,001540: 34,3364 71176 REND12 # NEG INDICATES PROCEED
025917,001541: 34,3365 71375 RENDISP3 # POS INDICATES RECYCLE
025918,001542: 34,3366 35030 RENDISP2 CAF V06N49
025919,001543: 34,3367 04636 TC BANKCALL
025920,001544: 34,3370 20753 CADR PRIODSP
025921,001545: 34,3371 04546 TC GOTOV56 # TERM EXIT P20 VIA V56
025922,001546: 34,3372 44770 CS ONE # NEG INDICATES PROCEED RENDISP7 JOB
025923,001547: 34,3373 55135 TS TEMPOR1 # POS INDICATES RECYCLE RENDISP7 JOB
025924,001548: 34,3374 05205 TC ENDOFJOB # GO COMPLETE ABOVE JOB
![]() |
Page 586 |
025926,001550: 34,3375 77624 RENDISP3 CALL
025927,001551: 34,3376 22327 GRP2PC
025928,001552: 34,3377 43014 CLEAR CLEAR # RESET FLAGS
025929,001553: 34,3400 04670 R22CAFLG
025930,001554: 34,3401 05263 REJCTFLG
025931,001555: 34,3402 52014 BON GOTO
025932,001556: 34,3403 04707 SOURCFLG
025933,001557: 34,3404 70636 REND1 # DATA WAS RADAR GO LOOK FOR OPTICS NEXT
025934,001558: 34,3405 70667 REND3
025935,001559: 23,2000 SETLOC P20S2
025936,001560: 23,2000 BANK
025937,001561:
025938,001562: 23,3030 COUNT* $$/R22
025939,001563:
025940,001564: 23,3030 67214 AUTOW BON SLOAD
025941,001565: 23,3031 05312 MANEUFLG # MANEUVER DONE IF SET
025942,001566: 23,3032 50104 AUTOW3
025943,001567: 23,3033 02551 COUNT3MK # COUNT OF MARKS SINCE W REINITIALIZED
025944,001568: 23,3034 52054 BZE GOTO
025945,001569: 23,3035 47037 AUTOW1A
025946,001570: 23,3036 47133 AUTOW2
025947,001571: 23,3037 77614 AUTOW1A BOFF
025948,001572: 23,3040 05354 TPIMNFLG # NOT AFTER TPI
025949,001573: 23,3041 47046 AUTOW1 # NOT AFTER TPI
025950,001574: 23,3042 52014 BOFF GOTO
025951,001575: 23,3043 05347 P35FLAG
025952,001576: 23,3044 47133 AUTOW2
025953,001577: 23,3045 71001 REND5C
025954,001578: 23,3046 71201 AUTOW1 SETPD DLOAD # PUT TIG
025955,001579: 23,3047 00001 0 # OR
025956,001580: 23,3050 03413 TIG # TCDH IF P. C.
025957,001581: 23,3051 71214 BOFF DLOAD
025958,001582: 23,3052 05356 PCFLAG # PUSH LIST 0
025959,001583: 23,3053 47055 AUTOW11
025960,001584: 23,3054 02461 TCDH
025961,001585: 23,3055 67206 AUTOW11 PUSH SLOAD # PD 0,1 = TIG OR TCDH IF P C
025962,001586: 23,3056 02372 WRDTIME
025963,001587: 23,3057 67206 PUSH SLOAD # PD 2,3 = WRDTIME
025964,001588: 23,3060 02373 MINBLKTM
025965,001589: 23,3061 67206 PUSH SLOAD # PD 4,5 = MINBLKTM
025966,001590: 23,3062 02374 TBEFCOMP
025967,001591: 23,3063 67206 PUSH SLOAD # PD 6,7 = TBEFCOMP
025968,001592: 23,3064 02375 BRNBLKTM
025969,001593: 23,3065 67206 PUSH SLOAD # PD 8,9 = BRNBLKTM
025970,001594: 23,3066 02376 MAXWTIME
025971,001595: 23,3067 67206 PUSH SLOAD # PD 10,11 == MAXWTIME
025972,001596: 23,3070 02377 FINCMPTM
025973,001597: 23,3071 71206 PUSH DLOAD # PD 12,13 = FINCMPTM
025974,001598: 23,3072 01062 MARKTIME
025975,001599: 23,3073 45225 DSU DSU
025976,001600: 23,3074 00003 2 # WRDTIME
![]() |
Page 587 |
025978,001602: 23,3075 03736 AGEOFW
025979,001603: 23,3076 71240 BMN DLOAD
025980,001604: 23,3077 47133 AUTOW2 # AGEOFW GR WRDTIME
025981,001605: 23,3100 03734 OLDMKTME
025982,001606: 23,3101 43225 DSU DAD
025983,001607: 23,3102 01062 MARKTIME # MARK TIME
025984,001608: 23,3103 00005 4 # MINBLKTM
025985,001609: 23,3104 71240 BMN DLOAD
025986,001610: 23,3105 50114 AUTOW4 # (TIME - OLDMKTME) GR MIN
025987,001611: 23,3106 01062 MARKTIME
025988,001612: 23,3107 51025 DSU BPL
025989,001613: 23,3110 00001 0D # TIG
025990,001614: 23,3111 50120 AUTOW5 # REINITIALIZE - TIG IS IN THE PAST
025991,001615: 23,3112 77615 DAD
025992,001616: 23,3113 00015 12D # FINCMPTM
025993,001617: 23,3114 50015 DAD BMN
025994,001618: 23,3115 00007 6D # TBEFCOMP
025995,001619: 23,3116 50120 AUTOW5 # (FINCMPTM - TIME) GR TBEFCOMP
025996,001620: 23,3117 43345 DLOAD DAD
025997,001621: 23,3120 00001 0
025998,001622: 23,3121 07137 3MINCON # 3 MIN CONSTANT (APPROX)
025999,001623: 23,3122 43225 DSU DAD
026000,001624: 23,3123 00015 12D # FINCMPTM
026001,001625: 23,3124 00011 8D # BRNBLKTM
026002,001626: 23,3125 45225 DSU DSU
026003,001627: 23,3126 03736 AGEOFW
026004,001628: 23,3127 00013 10D # MAXWTIME
026005,001629: 23,3130 43040 BMN SET
026006,001630: 23,3131 47133 AUTOW2 # FINCOM + BRNBLK+3MIN+AGE GR MAXWTIME
026007,001631: 23,3132 05073 PTV93FLG # POST BURN V93 REQUEST FLAG
026008,001632: 23,3133 52014 AUTOW2 CLEAR GOTO
026009,001633: 23,3134 01671 ORBWFLAG # P22 W MATRIX FLAG
026010,001634: 23,3135 70776 REND5B
026011,001635: 23,3136 00001 3MINCON DEC 1.0 B-14 # 2.74 MIN
026012,001636: 23,3137 00002 00000 HIGH2 2DEC 2.0 B-14
026013,001637: 23,3141 00003 00000 HIGH3 2DEC 3.0 B-14
026014,001638:
026015,001639: 24,2000 SETLOC P20S5
026016,001640: 24,2000 BANK
026017,001641:
026018,001642: 24,2104 COUNT* $$/R22
026019,001643: 24,2104 43014 AUTOW3 BON BOFF
026020,001644: 24,2105 05313 PTV93FLG
026021,001645: 24,2106 71001 REND5C
026022,001646: 24,2107 05354 TPIMNFLG
026023,001647: 24,2110 50114 AUTOW4
026024,001648: 24,2111 77614 BOFF
026025,001649: 24,2112 05355 FULTKFLG
026026,001650: 24,2113 71001 REND5C # BRANCH IF VHF AND OPTICS MARKING
![]() |
Page 588 |
026028,001652: 24,2114 52131 AUTOW4 SSP GOTO
026029,001653: 24,2115 02551 COUNT3MK # SET 3 MARK COUNTER EQ 1
026030,001654: 24,2116 00001 DEC 1 B-14
026031,001655: 24,2117 47133 AUTOW2 # BYPASS REINITIALIZING W MATRIX
026032,001656: 24,2120 52014 AUTOW5 CLEAR GOTO
026033,001657: 24,2121 05273 PTV93FLG
026034,001658: 24,2122 71001 REND5C
026035,001659:
026036,001660: 27,2000 SETLOC R22S1
026037,001661: 27,2000 BANK
026038,001662:
026039,001663: 27,2456 COUNT* $$/R22
026040,001664: 27,2456 00052 36307 SXTVAR 2DEC 0.04 E-6 B+16 # SXT ERROR VARIANCE = .04 (MR)SQ
026041,001665: 27,2460 00052 36307 IMUVAR 2DEC 0.04 E-6 B+16 # IMU ERROR VARIANCE = .04 (MR)SQ
026042,001666: 27,2462 45020 SETINTG STQ CALL
026043,001667: 27,2463 02310 EGRESS
026044,001668: 27,2464 27516 INTSTALL # RESERVE INTEGRATION
026045,001669: 27,2465 43145 DLOAD SET
026046,001670: 27,2466 01062 MARKTIME
026047,001671: 27,2467 01472 STATEFLG
026048,001672: 27,2470 00041 STORE TDEC1 # MARKTIME
026049,001673: 27,2471 43014 CLEAR CLEAR
026050,001674: 27,2472 01673 INTYPFLG # PRECISION INTEGRATION
026051,001675: 27,2473 01676 DIM0FLAG
026052,001676: 27,2474 43014 SET CLRGO
026053,001677: 27,2475 01474 VINTFLAG # SET VEHICLE EQ. CSM
026054,001678: 27,2476 01635 D6OR9FLG # SET W MATRIX DIM. EQ 6
026055,001679: 27,2477 02310 EGRESS # EXIT
026056,001680: 27,2500 43014 CONTCHK BOFF BOFF
026057,001681: 27,2501 00350 RNDVZFLG
026058,001682: 27,2502 31263 ENDPLAC
026059,001683:
026060,001684: 27,2503 01742 REFSMFLG # BRANCH TO END OF JOB IF REFSMMAT NO GOOD
026061,001685: 27,2504 31263 ENDPLAC
026062,001686: 27,2505 50135 SLOAD BMN
026063,001687: 27,2506 03375 R61CNTR
026064,001688: 27,2507 56525 WAITONE1
026065,001689: 27,2510 43014 BON BOFF # IS TRACK FLAG SET
026066,001690: 27,2511 00710 UPDATFLG
026067,001691: 27,2512 01006 POINTEX
026068,001692: 27,2513 00752 TRACKFLG
026069,001693: 27,2514 31263 ENDPLAC
026070,001694: 27,2515 77776 EXIT
026071,001695: 27,2516 05402 REDOR22 TC PHASCHNG
026072,001696: 27,2517 00132 OCT 00132
026073,001697: 27,2520 01,2047 2P13SPT1 = 2.13SPOT
026074,001698: 27,2520 37650 CAF PRIO26
026075,001699: 27,2521 05176 TC PRIOCHNG
![]() |
Page 589 |
026077,001701: 27,2522 12526 TCF WAITONE1 +1
026078,001702:
026079,001703: 27,2523 77620 WAITONE STQ
026080,001704: 27,2524 01006 POINTEX
026081,001705: 27,2525 77776 WAITONE1 EXIT
026082,001706: 27,2526 35020 +1 CAF 4SECS # WAIT 4 SECS.
026083,001707: 27,2527 04636 TC BANKCALL
026084,001708: 27,2530 01731 CADR DELAYJOB
026085,001709: 27,2531 06006 TC INTPRET
026086,001710: 27,2532 77650 GOTO
026087,001711: 27,2533 56500 CONTCHK # CHECK AGAIN NOW
026088,001712: 34,2000 SETLOC P20S3
026089,001713: 34,2000 BANK
026090,001714:
026091,001715: 34,3406 COUNT* $$/R22
026092,001716: 34,3406 31703 RANGERD3 CA RM
026093,001717: 34,3407 74750 MASK POSMAX
026094,001718: 34,3410 54154 TS MPAC # MASK OUT NEG. SIGN BIT
026095,001719: 34,3411 06006 TC INTPRET
026096,001720: 34,3412 41335 SLOAD DMP
026097,001721: 34,3413 00155 MPAC # CLEAR MPAC +1
026098,001722: 34,3414 16535 CONVRNGE # CONVERT FROM NM TO METERS AND SCALE B-27
026099,001723: 34,3415 52015 DAD GOTO
026100,001724: 34,3416 16535 CONVRNGE # VALUE IN METERS OF SIGN BIT SCALED B-27
026101,001725: 34,3417 70754 RANGERD2
026102,001726: 34,3420 31113 LIGHTON CA VHFRANGE
026103,001727: 34,3421 00006 EXTEND
026104,001728: 34,3422 13424 BZF +2
026105,001729: 34,3423 05644 TC TRFAILON
026106,001730: 34,3424 06006 +4 TC INTPRET
026107,001731: 34,3425 77745 DLOAD
026108,001732: 34,3426 01062 MARKTIME
026109,001733: 34,3427 01010 STORE VHFTIME
026110,001734: 34,3430 77650 GOTO
026111,001735: 34,3431 70636 REND1
026112,001736: 34,3432 4777 OCT17 EQUALS LOW4
026113,001737: 27,2000 SETLOC R22S1
026114,001738: 27,2000 BANK
026115,001739:
026116,001740: 27,2534 COUNT* $$/R22
026117,001741: 27,2534 00045 01217 CONVRNGE 2DEC 18.52 B-13 # VHF INPUT RANGE CONV.FROM.01 NM TO M
026118,001742: # AND 16384 X 18.52 = METERS FOR SIGN BIT
026119,001743: 27,2536 00006 VHFREAD EXTEND
026120,001744: 27,2537 04007 ROR SUPERBNK # MUST SAVE SBANK BECAUSE OF RUPT
026121,001745: 27,2540 54016 TS BANKRUPT # EXITS VIA RESUME, LIGHTON, RANGERD1
026122,001746: 27,2541 00006 EXTEND
026123,001747: 27,2542 22012 QXCH QRUPT
026124,001748: 27,2543 40076 CS FLAGWRD2
026125,001749: 27,2544 74757 MASK SKIPVBIT # SKIPVHF FLAG
![]() |
Page 590 |
026127,001751: 27,2545 00006 EXTEND
026128,001752: 27,2546 15323 BZF RESUME # BRANCH IF VHF RESTART BIT SET
026129,001753: 27,2547 34762 CAF UPDATBIT
026130,001754: 27,2550 70075 MASK FLAGWRD1 # UPDATFLG
026131,001755: 27,2551 00006 EXTEND
026132,001756: 27,2552 12574 BZF BYPASS1
026133,001757: 27,2553 40100 CS FLAGWRD4
026134,001758: 27,2554 74755 MASK PDSPFBIT # PDSPFLAG
026135,001759: 27,2555 00006 EXTEND
026136,001760: 27,2556 12574 BZF BYPASS1
026137,001761: 27,2557 30046 CA RNRAD
026138,001762: 27,2560 55703 TS RM # SAVE RANGE
026139,001763: 27,2561 34767 CAF BIT2
026140,001764: 27,2562 00006 EXTEND
026141,001765: 27,2563 02033 RAND CHAN33 # READ DATA GOOD BIT
026142,001766: 27,2564 00006 EXTEND
026143,001767: 27,2565 12576 BZF VHFGOOD # BRANCH IF DATA GOOD BIT EQUALS GOOD
026144,001768: 27,2566 55113 BYPASS TS VHFRANGE # STORE NON ZERO VALUE
026145,001769: 27,2567 37650 CAF PRIO26
026146,001770: 27,2570 05135 TC FINDVAC
026147,001771: 27,2571 E7,1722 EBANK= MRKBUF1
026148,001772: 27,2571 03420 70067 2CADR LIGHTON
026149,001773:
026150,001774: 27,2573 05323 TC RESUME
026151,001775:
026152,001776: 27,2574 34772 BYPASS1 CAF ZERO
026153,001777: 27,2575 02566 TC BYPASS
026154,001778: 27,2576 37650 VHFGOOD CAF PRIO26
026155,001779: 27,2577 05135 TC FINDVAC
026156,001780: 27,2600 E7,1722 EBANK= MRKBUF1
026157,001781: 27,2600 02742 70067 2CADR RANGERD1
026158,001782:
026159,001783: 27,2602 05323 TC RESUME
026160,001784:
026161,001785: 27,2603 77774 SHIFTNDX AXT,2
026162,001786: 27,2604 00000 0
026163,001787: 27,2605 43414 BON RVQ
026164,001788: 27,2606 04303 CMOONFLG # MOON ORB.
026165,001789: 27,2607 56610 +1
026166,001790: 27,2610 43514 INCR,2 RVQ
026167,001791: 27,2611 77775 DEC -2 B-14
026168,001792: 27,2612 66370 INITIALW AXT,1 SSP
026169,001793: 27,2613 00044 36D
026170,001794: 27,2614 00051 S1
026171,001795: 27,2615 00006 6
026172,001796: 27,2616 77775 VLOAD
026173,001797: 27,2617 15336 ZEROVECS
026174,001798: 27,2620 06445 INITA STORE W +36D,1 # CLEAR 0 - 35
026175,001799: 27,2621 06533 STORE W +90D,1 # CLEAR 54-89
026176,001800: 27,2622 67300 TIX,1 SLOAD
![]() |
Page 591 |
026178,001802: 27,2623 56620 INITA
026179,001803: 27,2624 00001 0 # POSITION VALUE
026180,001804: 27,2625 02401 STORE W # INITIALIZE DIAGONAL W POSITION
026181,001805: 27,2626 02411 STORE W +8D
026182,001806: 27,2627 02421 STORE W +16D
026183,001807: 27,2630 77735 SLOAD
026184,001808: 27,2631 00002 1 # VELOCITY VALUE
026185,001809: 27,2632 02511 STORE W +72D # INITIALIZE DIAGONAL W VELOCITY
026186,001810: 27,2633 02521 STORE W +80D
026187,001811: 27,2634 02531 STORE W +88D
026188,001812: 27,2635 77616 RVQ
026189,001813:
![]() |
Page 592 |
026191,001815:
026192,001816: # STALL ROUTINE FOR USERS OF CHANNEL 13.
026193,001817:
026194,001818:
026195,001819: 4000 SETLOC FFTAG12
026196,001820: 4000 BANK
026197,001821:
026198,001822: 4542 COUNT* $$/CHN13
026199,001823: 4542 34754 C13STALL CAF PRIO10 # = BANK 04
026200,001824: 4543 56004 XCH FBANK
026201,001825: 4544 54071 TS RUPTREG2
026202,001826: 4545 13251 TCF C13STAL1
026203,001827: 04,2000 SETLOC C13BANK
026204,001828: 04,2000 BANK
026205,001829:
026206,001830: 04,3251 COUNT* $$/CHN13
026207,001831: 04,3251 34765 C13STAL1 CAF BIT4
026208,001832: 04,3252 00006 EXTEND
026209,001833: 04,3253 02013 RAND CHAN13
026210,001834: 04,3254 00006 EXTEND
026211,001835: 04,3255 13276 BZF TCQSTAL # NO RADAR ACTIVITY. OK TO WRITE.
026212,001836:
026213,001837: 04,3256 13257 C13SLOOP NOOP # TO PREVENT TC TRAP
026214,001838: 04,3257 00006 EXTEND
026215,001839: 04,3260 00004 READ LOSCALAR
026216,001840: 04,3261 61063 AD RADTIME # COMPUTE DELTA T SINCE LAST RADAR READ
026217,001841: 04,3262 64753 AD HALF
026218,001842: 04,3263 64753 AD HALF # FOR OVERFLOW
026219,001843: 04,3264 56001 XCH L
026220,001844:
026221,001845: 04,3265 33301 CA 90MSCALR
026222,001846: 04,3266 61064 AD RADDEL
026223,001847: 04,3267 00006 EXTEND
026224,001848: 04,3270 60001 SU L
026225,001849:
026226,001850: 04,3271 00006 EXTEND
026227,001851: 04,3272 63276 BZMF TCQSTAL # GR THAN 90 MS. OK
026228,001852:
026229,001853: 04,3273 63302 AD -DTSCALR
026230,001854: 04,3274 00006 EXTEND
026231,001855: 04,3275 63256 BZMF C13SLOOP # IN FORBIDDEN PERIOD. LOOP UNTIL OK
026232,001856:
026233,001857: 04,3276 30071 TCQSTAL CA RUPTREG2
026234,001858: 04,3277 22002 LXCH Q
026235,001859: 04,3300 52005 DTCF
026236,001860:
026237,001861: 04,3301 00440 90MSCALR OCT 440 # 90 MILLISEC IN SCALAR
026238,001862: 04,3302 77754 -DTSCALR OCT 77754 # -5.9375 MS IN SCALAR
026239,001863:
026240,001864: # CRS61.1 4/10/68
026241,001865: # TO COMPUTE THE PREFERRED TRACKING ATTITUDE OF THE CSM WHICH ENABLES
![]() |
Page 593 |
026243,001867: # OPTICS TRACKING OF THE LM AND LM TRACKING OF THE CSM RADAR TRANSPONDER
026244,001868: # AND TO COMPUTE THE &X-AXIS TRACKING ATTITUDE OF THE CSM WHICH ENABLES
026245,001869: # COAS TRACKING OF THE LM.
026246,001870: # TO PERFORM THE MANEUVER TO THE SELECTED TRACKING ATTITUDE IF THE
026247,001871: # MANEUVER IS LESS THAN 10 DEGREES BUT TO CALL R60 IF THE MANEUVER IS
026248,001872: # GREATER THAN 10 DEGREES OR IF THE R60FLAG IS SET.
026249,001873: # (1) EXTRAPOLATE LM AND CSM STATE VECTORS TO PRESENT TIME USING
026250,001874: # CONIC EQUATIONS.
026251,001875:
026252,001876: # (2) CALCULATE LOS FROM CSM TO LM = RL - RC.
026253,001877:
026254,001878: # (3) THE PREFERRED TRACKING ATTITUDE IS DEFINED AS FOLLOWS:
026255,001879: # THE TRACK AXIS (I) IS ALIGNED ALONG THE LOS TO THE LM. THE
026256,001880: # TRACK AXIS (I) IS DEFINED AS:
026257,001881:
026258,001882: # UNIT(I)=UNIT(Z )COS55 &UNIT(X )SIN55
026259,001883: # - -SC -SC
026260,001884: # (4) COMPUTE DESIRED CDU ANGLES, USING VECPOINT.
026261,001885: # (7) FORM DIFFERENCE BETWEEN DESIRED AND ACTUAL CDUS.
026262,001886: # IF ANY OF THE THREE ANGLE DIFFERENCES EXCEEDS 10 DEGREES,
026263,001887: # GROSS MANEUVER IS REQUIRED. SIGNAL R61 (SET MPAC=1) TO
026264,001888: # OPERATE KALCMANU AND EXIT CRS61.1.
026265,001889: # IF ALL DIFFERENCES ARE LESS THAN 10 DEGREES, CONTINUE.
026266,001890:
026267,001891: # (8) CALCULATE ORTHOGONAL LOS RATE IN REF COORDS AS
026268,001892:
026269,001893: # OMEGATH = (UNITLOS(B1) X UNITDV(B1))(ABSDV(B7)/ABSLOS(B29))
026270,001894: # CONVERSION FACTOR OF 100/2PI (B4) REV CSEC PER RAD SEC IS
026271,001895: # APPLIED TO YIELD UNITS OF REVS/SEC. SCALE IS CARRIED AS
026272,001896: # B+1+1+7-29+4+1 PLUS RESULTS OF NORMALIZING ABSDV, ABSLOS.
026273,001897: # THE EXTRA B+1 RESULTS FROM RESCALING ABSDV B8 AFTER NORM
026274,001898: # TO AVOID OVFLOW ON DIVIDE.
026275,001899:
026276,001900: # UNITLOS = UNIT( RL - RC) B1.
026277,001901: # UNITDY = UNIT( VL - VC) B1.
026278,001902: # ABSLOS = LENGTH OF LOS, METERS B29.
026279,001903: # ABSDV = LENGTH OF DV , METERS/CSEC B7.
026280,001904:
026281,001905: # (9) OBTAIN RATE IN SM COORDS.
026282,001906:
026283,001907: # OMEGATHSM = (REFSMMAT)(OMEGATH).
026284,001908:
026285,001909: # (10)OBTAIN GIMBAL ANGLE INCREMENTS FOR 0.1 SECOND.
026286,001910:
026287,001911: # DTHETASM = (0.1)(OMEGATHSM)
026288,001912:
026289,001913: # (11)OBTAIN DELCDUX,Y,Z USING SUBR SMCDURES.
026290,001914: # INPUT CONSISTS OF
026291,001915:
026292,001916: # (A) VECTOR OF ANGULAR INCREMENTS, DTHETASM, STORED
![]() |
Page 594 |
026294,001918: # IN V(DTHETASM).
026295,001919:
026296,001920: # (B) SIN,COS CDUX,Y,Z FROM SUBR CDUTRIG.
026297,001921:
026298,001922: # TRANSFER OUTPUT OF SMCDURES FROM V(DCDU) TO VAC14D.
026299,001923:
026300,001924: # (12)CALCULATE ANG LOS RATE IN BODY(NB) COORDS USING SUBR SMNB.
026301,001925:
026302,001926: # OMEGANB = (SMNB)(OMEGATHSM)
026303,001927:
026304,001928: # SUBR SMNB REQUIRES OMEGATHSM IN V(VAC32D) AND ACTUAL CDUS
026305,001929: # (Y,X,Z ORDER) IN V(VAC20D) WITH S1 OF VAC = BASE ADDRESS
026306,001930: # OF CDUS (FIXLOC + 20D).
026307,001931:
026308,001932: # (13)CALCULATE ANG LOS RATE IN CONTROL COORDS AS FOLLOWS
026309,001933:
026310,001934: # WBODY = (MBDYTCTL)(OMEGANB) UNITS=REVS/SEC(B0).
026311,001935:
026312,001936: # ( 0.5 0 0 ) BODY TO
026313,001937: # MBDYTCTL(B1) = ( 0 COS(7.25)B1 -SIN(7.25)B1 )=CONTROL
026314,001938: # ( 0 SIN(7.25)B1 COS(7.25)B1 ) AXES
026315,001939: # CONVERSION
026316,001940: # MATRIX
026317,001941:
026318,001942: # (14)RESCALE WBODY TO UNITS OF 450 DEG/SEC BY APPLYING FACTOR
026319,001943: # OF 0.8 TO REVS/SEC.
026320,001944:
026321,001945: # (15)ADDRESS LIVE AUTOPILOT REGISTERS IN BASIC (UNDER INHINT).
026322,001946:
026323,001947: # TRANSFER DESIRED CDUS, SCALED 180 DEGREES, FROM T(SAVEDCDU)
026324,001948: # TO V(CDUXD).
026325,001949: # TRANSFER DELCDUS, SCALED 180 DEG, FROM V(VAC14D)
026326,001950: # TO V(DELCDUX).
026327,001951: # TRANSFER OMEGA CONTROL, SCALED 450 DEG/SEC, FROM V(MPAC)
026328,001952: # TO V(WBODY).
026329,001953: # RELINT, SET MPAC=0, EXIT CRS61.1
026330,001954:
026331,001955: # CALL L CALL CRS61.1
026332,001956:
026333,001957: # RETURNS ALL TO L+1.
026334,001958:
026335,001959: # (1) S(MPAC)=0. NORMAL EXIT. 3 SETS OF INPUTS FED TO DAP.
026336,001960: # (2) S(MPAC)=1. CALCULATED DESIRED CDUS,SP, SET IN T(CPHI)
026337,001961: # FOR KALCMANU. ABS(ACDU - DCDU) EXCEEDS 10 DEGREES.
026338,001962: # (3) S(MPAC)=2. GNCS AUTO MODE NOT SELECTED (BIT10=1).
026339,001963: # (4) S(MPAC)=3. DAP HOLD FLAG (HOLDFLAG) NOT EQUAL -1.
026340,001964:
026341,001965: # INPUT (1) TIME2,TIME1. COMPUTER CLOCK TIME,DP, CENTISEC B28.
026342,001966: # (2) CDUX,Y,Z. PRESENT CDU ANGLES,SP,2S COMPL HALF-REVS B0.
026343,001967: # (3) M(REFSMMAT),STABLE MEMBER COORDS B1.
![]() |
Page 595 |
026345,001969:
026346,001970: # OUTPUT NORMAL. EXIT WITH S(MPAC) = 0.
026347,001971:
026348,001972: # (1) CDUXD,CDUYD,CDUZD, DESIRED OUTER, INNER, MIDDLE CDU ANGLES,
026349,001973: # DP, 1S COMPL, SCALED 180 DEGREES (HALF-REVS B0).
026350,001974: # (2) DELCDUX,DELCDUY,DELCDUZ. 0.1 SEC DCU ANGULAR INCREMENTS,
026351,001975: # DP, 1S COMPL, SCALED 180 DEG.
026352,001976: # (3) WBODY,WBODY1,WBODY2. LOS ANGULAR RATE IN CONTROL COORDS,
026353,001977: # DP, 1S COMPL, SCALED 450 DEG/SEC.
026354,001978:
026355,001979: # SPECIAL. EXIT WITH S(MPAC) = 1.
026356,001980:
026357,001981: # (1) CPHI,CTHETA,CPSI. DESIRED OUTER, INNER, MIDDLE CDU ANGLES,
026358,001982: # SP, 2S COMPL, SCALED 180 DEGREES.
026359,001983:
026360,001984: # EXTERNAL SUBROUTINES USED (B)=BASIC
026361,001985:
026362,001986: # (1) CALCGA (5) LOADTIME(B) (9) SMNB
026363,001987: # (2) CDUTRIG (6) MATMOVE
026364,001988: # (3) CSMCONIC (7) RDCDUS(B)
026365,001989: # (4) LEMCONIC (8) SMCDURES
026366,001990:
026367,001991: # ERASABLE (1) S(Q611),EBANK7 CRS61.1 EXIT .
026368,001992: # (2) S(Q6111)EBANK7 CALCDCDU EXIT.
026369,001993: # (3) T(SAVEDCDU) E6 SP VECTOR OF CDUDS.
026370,001994: # (4) V(SAVEPOS) E7 CSM POS VEC AND D(SAVEPOS)= LENGTH OF LOS.
026371,001995: # (5) V(SAVEVEL) E7 CSM VEL VEC.
026372,001996:
026373,001997: # FLAGWDS HOLDFLAG. USED, NOT SET.
026374,001998:
026375,001999: # MISC (1) ERASABLE ITEMP1 USED TO TEMP STORE EBANK UNDER INHINT.
026376,002000: # (2) ERASABLE P21TIME USED AS TEMP STORE DURING CRS61.1
026377,002001: # (3) ERAS DTHETASM USED AS TEMP STORE DURING EARLY CRS61.1
026378,002002:
026379,002003: # DEBRIS - CURRENT VAC AREA, CRS61.1 ERASABLES, ITEMP1, P21TIME
026380,002004:
026381,002005: 34,2000 SETLOC P20S4
026382,002006: 34,2000 BANK
026383,002007:
026384,002008: 34,3432 E6,1646 EBANK= CDUXD
026385,002009: 34,3432 COUNT* $$/CRS61
026386,002010:
026387,002011: 34,3432 40220 CRS61.1 STQ SETPD
026388,002012: 34,3433 03704 Q611
026389,002013: 34,3434 00001 0
026390,002014: 34,3435 77634 RTB
026391,002015: 34,3436 51751 LOADTIME # LOAD CLOCK TIME2,1 INTO MPAC.
026392,002016:
026393,002017: 34,3437 36307 STORT STCALL R63TIME # STORE CLOCK TIME FOR SUBR R63
026394,002018: 34,3440 73171 R63 # SUBR TO CALC DCDU(T=PRESENT,PASS1)
026395,002019: 34,3441 71214 CLEAR DLOAD
![]() |
Page 596 |
026397,002021: 34,3442 05266 RANGFLAG
026398,002022: 34,3443 02307 R63TIME
026399,002023: 34,3444 51025 DSU BPL
026400,002024: 34,3445 33161 328NM
026401,002025: 34,3446 71451 +3
026402,002026: 34,3447 77614 SET
026403,002027: 34,3450 05066 RANGFLAG
026404,002028: 34,3451 77776 +3 EXIT
026405,002029: 34,3452 05354 STEP2CK TC CHECKMM # CHECK MAJOR MODE = 27 (UPDATE PROG)
026406,002030: 34,3453 00033 MM 27 B-14
026407,002031: 34,3454 04415 TC UPACTOFF # NO TURN OFF UPLINK LITE
026408,002032: # YES LEAVE UPLINK AS IS
026409,002033: 34,3455 11340 CCS HOLDFLAG
026410,002034: 34,3456 03560 TC ASET # EXIT IF HOLDFLAG IS + NONZERO
026411,002035: 34,3457 03461 TC +2
026412,002036: 34,3460 03461 TC +1
026413,002037: 34,3461 40107 CS FLGWRD11
026414,002038: 34,3462 74761 MASK AZIMBIT
026415,002039: 34,3463 10000 CCS A
026416,002040: 34,3464 03505 TC NOAZFLG1 # AZIMFLAG NOT SET
026417,002041:
026418,002042: 34,3465 34767 CAF TWO # AZIMFLAG SET
026419,002043: 34,3466 55611 CDULOOP TS DTHETASM
026420,002044: 34,3467 51611 INDEX DTHETASM
026421,002045: 34,3470 30032 CA CDUX
026422,002046: 34,3471 00006 EXTEND
026423,002047: 34,3472 51611 INDEX DTHETASM
026424,002048: 34,3473 21307 MSU THETAD
026425,002049: 34,3474 54154 TS MPAC
026426,002050:
026427,002051: 34,3475 06006 TC INTPRET
026428,002052: 34,3476 45246 ABS DSU
026429,002053: 34,3477 16645 DEGREE10
026430,002054: 34,3500 77444 BPL EXIT
026431,002055: 34,3501 71566 STKTEST
026432,002056:
026433,002057: 34,3502 11611 CCS DTHETASM
026434,002058: 34,3503 03466 TC CDULOOP
026435,002059:
026436,002060: 34,3504 03545 TC AUTOCK
026437,002061:
026438,002062: 34,3505 31572 NOAZFLG1 CA THETADX
026439,002063: 34,3506 55175 TS CDUSPOT +4
026440,002064: 34,3507 31573 CA THETADY
026441,002065: 34,3510 55171 TS CDUSPOT
026442,002066: 34,3511 31574 CA THETADZ
026443,002067: 34,3512 55173 TS CDUSPOT +2 # STORE IN CDUSPOT FOR TRG*NBSM
026444,002068: 34,3513 06006 TC INTPRET
026445,002069: 34,3514 45175 VLOAD CALL
026446,002070: 34,3515 03351 SCAXIS
![]() |
Page 597 |
026448,002072: 34,3516 47642 TRG*NBSM
026449,002073: 34,3517 50206 PUSH DOT # PD 0-5
026450,002074: 34,3520 03357 POINTVSM
026451,002075: 34,3521 50025 DSU BMN # BRANCH IF GR. 10 DEG.
026452,002076: 34,3522 16641 COSTEN
026453,002077: 34,3523 71566 STKTEST
026454,002078: 34,3524 47375 VLOAD VXV
026455,002079: 34,3525 00001 0 # SCAXIS IN S.M.
026456,002080: 34,3526 03357 POINTVSM
026457,002081: 34,3527 41561 VXSC PUSH # PD 6-11 B2
026458,002082: 34,3530 16644 DELTYME # 1/(DELTA TIME) B-2
026459,002083: 34,3531 45246 ABVAL DSU
026460,002084: 34,3532 16642 MAXRATE # .1 DEG. / SEC. B0
026461,002085: 34,3533 77240 BMN VLOAD # PUSH UP 6-11
026462,002086: 34,3534 71540 STEP2CKB # BRANCH IF LESS .1 DEG./SEC.
026463,002087: 34,3535 74256 UNIT VXSC
026464,002088: 34,3536 16642 MAXRATE
026465,002089: 34,3537 41572 VSL1 PUSH # PD 6-11 .1 DEG./SEC DISTRIBUTED
026466,002090: 34,3540 74375 STEP2CKB VLOAD VXSC
026467,002091: 34,3541 00007 6
026468,002092: 34,3542 16637 RADTOREV # RAD. TO REV. B0
026469,002093: 34,3543 03212 STORE DTHETASM # B0
026470,002094: 34,3544 77776 EXIT
026471,002095: 34,3545 37673 AUTOCK CAF FURST3 # BITS 15,14,13 OF CHAN31 = 011
026472,002096: 34,3546 05654 TC C31BTCHK # FOR AUTO AND G&N CONTROL
026473,002097: 34,3547 13550 TCF +1
026474,002098: 34,3550 67671 AD NEG30000
026475,002099: 34,3551 00006 EXTEND # AUTO MODE SELECTED (BITS 15-13=011)
026476,002100: 34,3552 13554 BZF DAPCK # YES-CONTINUE.
026477,002101: 34,3553 03560 TC ASET
026478,002102: 34,3554 40075 DAPCK CS FLAGWRD1 # IS STIKFLAG SET (I.E. IS SOMEONE ON RHC)
026479,002103: 34,3555 74753 MASK STIKBIT
026480,002104: 34,3556 10000 CCS A
026481,002105: 34,3557 03600 TC STEP3CK
026482,002106: 34,3560 06006 ASET TC INTPRET
026483,002107: 34,3561 77614 CLEAR
026484,002108: 34,3562 00273 CYC61FLG
026485,002109: 34,3563 52135 SLOAD GOTO
026486,002110: 34,3564 15336 ZEROVECS
026487,002111: 34,3565 03704 Q611
026488,002112: 34,3566 77614 STKTEST BOFINV
026489,002113: 34,3567 00153 CYC61FLG
026490,002114: 34,3570 44001 KALCMAN3 +1
026491,002115: 34,3571 77414 BON EXIT
026492,002116: 34,3572 01700 V50N18FL
026493,002117: 34,3573 73166 MANUEXIT
026494,002118: 34,3574 34766 CAF BIT3
026495,002119: 34,3575 00006 EXTEND # STIKFLG IS SET
026496,002120: 34,3576 05011 WOR DSALMOUT # TURN ON UPACTY LIGHT
![]() |
Page 598 |
026498,002122: 34,3577 03560 TC ASET # EXIT AND SET R61CNTR
026499,002123: 34,3600 06006 STEP3CK TC INTPRET
026500,002124: 34,3601 43001 SETPD BOFF
026501,002125: 34,3602 00001 0D
026502,002126: 34,3603 04346 UTFLAG
026503,002127: 34,3604 71610 CRS61.2 # NORMAL P-20 (OPTION 0) IF UTFLAG NOT SET
026504,002128:
026505,002129: 34,3605 53145 DLOAD BZE # OPTION 1,TEST FOR STAR OR PLANET
026506,002130: 34,3606 02307 R63TIME # =0 IF STAR
026507,002131: 34,3607 73162 UTSTAR1
026508,002132: # USE NORMAL P20 PATH FOR PLANET
026509,002133: # WITH VL AND RL = 0
026510,002134: # NOW HAVE DCDUS STORED IN T(SAVEDCDU).
026511,002135: # GO CALC OTHER DAP INPUTS (DELCDU,WBODY)
026512,002136: 34,3610 52375 CRS61.2 VLOAD VSU
026513,002137: 34,3611 03204 DCDU
026514,002138: 34,3612 03715 SAVEVEL # DV = VL - VC
026515,002139: 34,3613 57456 UNIT VCOMP # V(MPAC)=-UNITDV.VAC36D=ABSDV.
026516,002140: 34,3614 74235 VXV VXSC # (-UNITDV)CROSS(UNITLOS).
026517,002141: 34,3615 03707 SAVEPOS
026518,002142: 34,3616 16646 RVCS/RDS # (UNITLOS B1)(UNITDV B1)(CONST B4)=CROSS.
026519,002143: 34,3617 60325 PDDL NORM
026520,002144: 34,3620 02307 R63TIME # R63TIME IS TEMP STORE FOR ABS(LOS)
026521,002145: 34,3621 00047 X1
026522,002146: 34,3622 60325 PDDL NORM
026523,002147: 34,3623 00045 36D # NORM ABS VALUE OF DV(NUM).
026524,002148: 34,3624 00051 S1
026525,002149:
026526,002150: 34,3625 70460 XSU,1 SR1 # X1 = X1(N DENOM)-S1(N NUM).
026527,002151: 34,3626 00050 S1 # SR1 TO AVOID OFLOW ON DDV.
026528,002152: 34,3627 74271 DDV VXSC # ABSDV(MPAC)/ABSLOS(PUSH1) = QUOT.
026529,002153: 34,3630 53721 MXV VSL*
026530,002154: 34,3631 01734 REFSMMAT
026531,002155: 34,3632 20163 0 -14D,1 # UNNORMALIZE,ADJUST FOR REF. AND SCALE B0
026532,002156: 34,3633 53214 BON VAD
026533,002157: 34,3634 05707 AZIMFLAG
026534,002158: 34,3635 71637 +2
026535,002159: 34,3636 03212 DTHETASM # SCALED B0
026536,002160: 34,3637 00025 STORE 20D
026537,002161: 34,3640 77761 VXSC
026538,002162: 34,3641 16650 TENTH
026539,002163: 34,3642 37212 STCALL DTHETASM # STORE SM INCREM. ANGLES FOR SMCDURES
026540,002164: 34,3643 47530 CDUTRIG # OBTAIN SIN,COSCDUS FOR SMCDURES.
026541,002165: 34,3644 45001 SETPD CALL # SMCDURES USES PUSH
026542,002166: 34,3645 00001 0
026543,002167: 34,3646 47743 SMCDURES # OBTAIN DELCDU IN V(DCDU).
026544,002168: 34,3647 70575 VLOAD VSR2
026545,002169: 34,3650 03204 DCDU
026546,002170: 34,3651 34017 STCALL 14D
026547,002171: 34,3652 47530 CDUTRIG
![]() |
Page 599 |
026549,002173: 34,3653 45175 VLOAD CALL # LOAD VECTOR AND CALL TRANSFORMATION
026550,002174: 34,3654 00025 20D # VECTOR FOR TRG*SMNB INTO MPAC
026551,002175: 34,3655 47633 *SMNB* # OBTAIN ANG. RATE REFERRED TO NB (BODY)
026552,002176: 34,3656 77721 MXV
026553,002177: 34,3657 16652 MBDYTCTL # CONVERT RATE(OMEGA) TO CONTROL COORDS.
026554,002178: 34,3660 76561 VXSC VSL1 # MULT. BY 0.8 TO RESCALE REVS TO 450 DEG.
026555,002179: 34,3661 15272 POINT8
026556,002180:
026557,002181: 34,3662 77776 CRS61.2A EXIT
026558,002182: 34,3663 00004 INHINT
026559,002183: 34,3664 40107 CS FLGWRD11
026560,002184: 34,3665 74761 MASK AZIMBIT
026561,002185: 34,3666 10000 CCS A
026562,002186: 34,3667 03710 TC THTDXYZ # AZIMFLAG NOT SET,USE THETADX,Y,Z
026563,002187:
026564,002188: 34,3670 34767 CAF TWO # AZIMFLAG SET, MODIFY DELCDUS
026565,002189: 34,3671 55611 DCDULOOP TS DTHETASM
026566,002190: 34,3672 60000 DOUBLE
026567,002191: 34,3673 60120 AD FIXLOC
026568,002192: 34,3674 55612 TS DTHETASM +1
026569,002193: 34,3675 51611 INDEX DTHETASM
026570,002194: 34,3676 31307 CA THETAD
026571,002195: 34,3677 00006 EXTEND
026572,002196: 34,3700 51611 INDEX DTHETASM
026573,002197: 34,3701 21572 MSU THETADX
026574,002198: 34,3702 00006 EXTEND
026575,002199: 34,3703 73755 MP 1/200
026576,002200: 34,3704 51612 INDEX DTHETASM +1
026577,002201: 34,3705 20017 DAS 14D
026578,002202: 34,3706 11611 CCS DTHETASM
026579,002203: 34,3707 13671 TCF DCDULOOP
026580,002204: 34,3710 31572 THTDXYZ CA THETADX
026581,002205: 34,3711 55646 TS CDUXD
026582,002206: 34,3712 31573 CA THETADY
026583,002207: 34,3713 55650 TS CDUYD
026584,002208: 34,3714 31574 CA THETADZ
026585,002209: 34,3715 55652 TS CDUZD
026586,002210:
026587,002211: 34,3716 00006 THTD123 EXTEND # TRANSFER OMEGA CONTROL (ANG LOS RATE)
026588,002212: 34,3717 30155 DCA MPAC # FROM V(MPAC) TO V(WBODY ).
026589,002213: 34,3720 53526 DXCH WBODY
026590,002214: 34,3721 00006 EXTEND
026591,002215: 34,3722 30160 DCA MPAC +3
026592,002216: 34,3723 53530 DXCH WBODY1
026593,002217: 34,3724 00006 EXTEND
026594,002218: 34,3725 30162 DCA MPAC +5
026595,002219: 34,3726 53532 DXCH WBODY2
026596,002220:
026597,002221: 34,3727 00006 EXTEND # TRANSFER CDU INCREMENTS
026598,002222: 34,3730 50120 INDEX FIXLOC # FROM V(VAC14D) TO V(DELCDUX).
![]() |
Page 600 |
026600,002224: 34,3731 30017 DCA 14D
026601,002225: 34,3732 53576 DXCH DELCDUX
026602,002226: 34,3733 00006 EXTEND
026603,002227: 34,3734 50120 INDEX FIXLOC
026604,002228: 34,3735 30021 DCA 16D
026605,002229: 34,3736 53600 DXCH DELCDUY
026606,002230: 34,3737 00006 EXTEND
026607,002231: 34,3740 50120 INDEX FIXLOC
026608,002232: 34,3741 30023 DCA 18D
026609,002233: 34,3742 53602 DXCH DELCDUZ
026610,002234: 34,3743 44770 CS ONE # NOW DAP VARIABLES LOADED. SET HOLDFLAG.
026611,002235: 34,3744 55340 TS HOLDFLAG # TO -1.
026612,002236: 34,3745 00003 RELINT
026613,002237: 34,3746 03560 TC ASET
026614,002238:
026615,002239: 34,3747 43234 RCYCLR61 RTB DAD
026616,002240: 34,3750 51751 LOADTIME
026617,002241: 34,3751 33574 20.48SEC
026618,002242: 34,3752 52015 DAD GOTO
026619,002243: 34,3753 03317 TM
026620,002244: 34,3754 71437 STORT
026621,002245: 34,3755 35,3573 20.48SEC EQUALS 1RTEB17
026622,002246: 34,3755 00122 1/200 DEC .005
026623,002247: 35,2000 SETLOC P20S8
026624,002248: 35,2000 BANK
026625,002249:
026626,002250: 35,3160 COUNT* $$/CRS61
026627,002251: 35,3160 00022 20476 328NM 2DEC 606844.84 B-29 # 327.67 N.M.
026628,002252: 35,3162 77775 UTSTAR1 VLOAD # STAR, N88 PATH SET WCA, DELTA GA = 0
026629,002253: 35,3163 15336 ZEROVECS
026630,002254: 35,3164 34017 STCALL 14D # DELTA GA AT PD1J (INCR GIMB CHANGES)
026631,002255: 35,3165 71662 CRS61.2A # WCA IS IN MPAC (LOS RATE). SET RCS DAP
026632,002256:
026633,002257: 35,3166 52135 MANUEXIT SLOAD GOTO
026634,002258: 35,3167 16674 LOONE # OCTAL 00001
026635,002259: 35,3170 03704 Q611
026636,002260:
026637,002261: 35,3171 71220 R63 STQ DLOAD # SUBR TO CALL DESIRED CDUS(T)
026638,002262: 35,3172 03705 Q6111
026639,002263: 35,3173 02307 R63TIME
026640,002264: 35,3174 34041 STCALL TDEC1
026641,002265: 35,3175 27170 CSMCONIC
026642,002266: 35,3176 77775 VLOAD # SAVE CSM POSITION AND VEL
026643,002267: 35,3177 00001 RATT # RC B-29
026644,002268: 35,3200 27707 STOVL SAVEPOS
026645,002269: 35,3201 00007 VATT # VC B-7
026646,002270: 35,3202 03715 STORE SAVEVEL
026647,002271: 35,3203 77635 VXV
026648,002272: 35,3204 03707 SAVEPOS
![]() |
Page 601 |
026650,002274: 35,3205 03357 STORE POINTVSM # SAVE VXR
026651,002275: 35,3206 71214 BON DLOAD
026652,002276: 35,3207 04306 UTFLAG
026653,002277: 35,3210 76425 UTAREA1 # UT OPTION 1 PROCESSING
026654,002278: 35,3211 02307 R63TIME # NORMAL P-20 PATH
026655,002279: 35,3212 34041 STCALL TDEC1
026656,002280: 35,3213 27202 LEMCONIC
026657,002281: 35,3214 77775 VLOAD # SAVE LM VEL
026658,002282: 35,3215 00007 VATT # VL B-7
026659,002283: 35,3216 27204 STOVL DCDU
026660,002284: 35,3217 00001 RATT # RL B-29
026661,002285: 35,3220 53451 VSU UNIT
026662,002286: 35,3221 03707 SAVEPOS
026663,002287: 35,3222 17707 STODL SAVEPOS # SAVE UNITLOS FOR CRS61.2 RATE CALC.
026664,002288: 35,3223 00045 36D
026665,002289: 35,3224 26307 STOVL R63TIME # SAVE ABS VAL OF LOS FOR CRS61.2
026666,002290: 35,3225 03707 SAVEPOS
026667,002291: 35,3226 77614 R63COM1 BON
026668,002292: 35,3227 05707 AZIMFLAG
026669,002293: 35,3230 76462 UTOPT45 # OPTIONS 4,5
026670,002294: 35,3231 76521 MXV VSL1 # COMMON PATH NORMAL P20,OPTION 1
026671,002295: 35,3232 01734 REFSMMAT
026672,002296: 35,3233 37357 STCALL POINTVSM # ULOS IN STABLE MEM
026673,002297: 35,3234 74437 UTPRFAX # COMPUTE UNIT PREFERRED VECTOR
026674,002298: 35,3235 37351 STCALL SCAXIS
026675,002299: 35,3236 56225 VECPOINT
026676,002300: 35,3237 01310 STORE THETAD # DESIRED GIMBALS
026677,002301: 35,3240 77650 GOTO
026678,002302: 35,3241 03705 Q6111
026679,002303:
026680,002304: 37,2000 SETLOC P20S
026681,002305: 37,2000 BANK
026682,002306:
026683,002307: 37,2425 COUNT* $$/CRS61
026684,002308: 37,2425 45145 UTAREA1 DLOAD CALL # UT OPTION 1 PATH
026685,002309: 37,2426 02307 R63TIME
026686,002310: 37,2427 54136 LSPOS
026687,002311: 37,2430 00017 STORE 14D # RM B-29
026688,002312: 37,2431 52214 BON VSU
026689,002313: 37,2432 04303 CMOONFLG
026690,002314: 37,2433 76445 UTMNCNTR
026691,002315: 37,2434 03707 SAVEPOS # RC B-29
026692,002316: 37,2435 77656 UNIT
026693,002317: 37,2436 27351 STOVL SCAXIS # VMOON = UNIT(RM-RC)
026694,002318: 37,2437 03707 SAVEPOS
026695,002319: 37,2440 57456 UNIT VCOMP
026696,002320: 37,2441 24011 STOVL 8D # VEARTH=-UNIT(RC)
026697,002321: 37,2442 00003 2D # RS B-38
026698,002322: 37,2443 52056 UNIT GOTO
026699,002323: 37,2444 76460 SAVEVSUN # VSUN = UNIT(RS)
![]() |
Page 602 |
026701,002325: 37,2445 53455 UTMNCNTR VAD UNIT # MOON PATH
026702,002326: 37,2446 03707 SAVEPOS
026703,002327: 37,2447 77676 VCOMP
026704,002328: 37,2450 24011 STOVL 8D # VEARTH = -UNIT(RM+RC)
026705,002329: 37,2451 03707 SAVEPOS
026706,002330: 37,2452 57456 UNIT VCOMP
026707,002331: 37,2453 27351 STOVL SCAXIS # VMOON = -UNIT(RC)
026708,002332: 37,2454 00017 14D # RM B-29
026709,002333: 37,2455 74402 VSR8 VSR1 # SCALE RM B-38
026710,002334: 37,2456 53445 BVSU UNIT # VSUN = UNIT(RS-RM)
026711,002335: 37,2457 00003 2D
026712,002336: 37,2460 34003 SAVEVSUN STCALL 2D
026713,002337: 37,2461 32000 SAVESTAR
026714,002338:
026715,002339: 15,2000 SETLOC STARTAB
026716,002340: 15,2000 BANK
026717,002341:
026718,002342: 15,2000 COUNT* $$/CRS61
026719,002343: 15,2000 47201 SAVESTAR SETPD VXV
026720,002344: 15,2001 00001 0D
026721,002345: 15,2002 34644 ECLIPOL
026722,002346: 15,2003 27452 STOVL VEL/C
026723,002347: 15,2004 03715 SAVEVEL
026724,002348: 15,2005 53361 VXSC VAD
026725,002349: 15,2006 34642 1/C
026726,002350: 15,2007 03452 VEL/C
026727,002351: 15,2010 27452 STOVL VEL/C
026728,002352: 15,2011 11762 ZEROVEC
026729,002353: 15,2012 27204 STOVL DCDU # VL=0 FOR STAR AND PLANET
026730,002354: 15,2013 03707 SAVEPOS
026731,002355: 15,2014 53476 VCOMP UNIT
026732,002356: 15,2015 17707 STODL SAVEPOS # UNIT(0-RC) FOR PLANET
026733,002357: 15,2016 00045 36D
026734,002358: 15,2017 02307 STORE R63TIME # ABS(O-RC) FOR PLANET
026735,002359: 15,2020 41535 SLOAD PUSH # PD0= STARCODE
026736,002360: 15,2021 01356 UTSTARNO # STARCODE
026737,002361: 15,2022 67254 BZE SLOAD
026738,002362: 15,2023 73257 UTVIAN88 # UNITLOS WAS VIA N88
026739,002363: 15,2024 32050 UTSP46
026740,002364: 15,2025 77621 BDSU # STARCODE-46(OCTAL)
026741,002365: 15,2026 77244 BPL VLOAD # BRANCH IF STARCODE=46,47,50 OCTAL
026742,002366: 15,2027 73242 UTST4650
026743,002367: 15,2030 11762 ZEROVEC
026744,002368: 15,2031 17715 STODL SAVEVEL # VC=0 FOR STAR
026745,002369: 15,2032 11762 ZEROVEC
026746,002370: 15,2033 02307 STORE R63TIME # STAR INDICATOR USED LATER IN CRS61.2
026747,002371: 15,2034 41335 SLOAD DMP
026748,002372: 15,2035 32047 UTSP6
026749,002373: 15,2036 00001 0D # 0D STILL = STARCODE
026750,002374: 15,2037 76750 LXA,1 VLOAD*
![]() |
Page 603 |
026752,002376: 15,2040 00155 MPAC +1 # STARCODE*6
026753,002377: 15,2041 33776 CATLOG,1 # MPAC= UNIT STAR VECTOR
026754,002378: 15,2042 53455 UTABERR VAD UNIT # CORRECT FOR ABERRATION
026755,002379: 15,2043 03452 VEL/C
026756,002380: 15,2044 77650 GOTO # GOTO COMMON AREA
026757,002381: 15,2045 73226 R63COM1
026758,002382:
026759,002383: 15,2046 00006 UTSP6 OCT 6 # SINGLE PRE 6 FOR MULT STARCODE
026760,002384: 15,2047 00046 UTSP46 OCT 46 # SINGLE PRE 46 FOR DETERMINING PLANET
026761,002385:
026762,002386: 35,2000 SETLOC P20S8
026763,002387: 35,2000 BANK
026764,002388:
026765,002389: 35,3242 COUNT* $$/CRS61
026766,002390: 35,3242 70454 UTST4650 BZE SR1 # SUN,EARTH,MOON OR PLANET PATH
026767,002391: 35,3243 73251 UTSUN # STARCODE=46 OCTAL (SUN)
026768,002392: 35,3244 77230 BHIZ VLOAD
026769,002393: 35,3245 73254 UTEARTH # STARCODE=47 OCTAL (EARTH)
026770,002394: 35,3246 03351 SCAXIS # VMOON STARCODE= 50 OCTAL
026771,002395: 35,3247 77650 GOTO
026772,002396: 35,3250 32042 UTABERR
026773,002397:
026774,002398: 35,3251 52175 UTSUN VLOAD GOTO
026775,002399: 35,3252 00003 2D # VSUN
026776,002400: 35,3253 32042 UTABERR
026777,002401:
026778,002402: 35,3254 52175 UTEARTH VLOAD GOTO
026779,002403: 35,3255 00011 8D # VEARTH
026780,002404: 35,3256 32042 UTABERR
026781,002405:
026782,002406: 35,3257 77775 UTVIAN88 VLOAD # UNITLOS IN STARSAV3 VIA N88
026783,002407: 35,3260 15336 ZEROVECS
026784,002408: 35,3261 17715 STODL SAVEVEL # VC = 0 FOR N88 VECTOR
026785,002409: 35,3262 15336 ZEROVECS
026786,002410: 35,3263 26307 STOVL R63TIME # STAR INDICATOR USED LATER IN CRS61.2
026787,002411: 35,3264 03732 PLANVCUT # N88 UNIT VECTOR BAS REF
026788,002412: 35,3265 53561 VXSC UNIT
026789,002413: 35,3266 33272 1/SQRT3
026790,002414: 35,3267 77650 GOTO
026791,002415: 35,3270 32042 UTABERR
026792,002416:
026793,002417: 35,3271 22363 11623 1/SQRT3 2DEC .57735021 # 1/SQUARE ROOT 3 B-0
026794,002418:
026795,002419:
026796,002420: 37,2000 SETLOC P20S
026797,002421: 37,2000 BANK
026798,002422:
026799,002423: 37,2462 COUNT* $$/CRS61
026800,002424: 37,2462 23,3526 UT166 EQUALS .166...
![]() |
Page 604 |
026802,002426: 37,2462 UTSAP = 0D # SA PRIME
026803,002427: 37,2462 UTSBP = 6D # SB PRIME
026804,002428: 37,2462 UTSA = 18D # SA
026805,002429: 37,2462 UTSB = 24D # SB
026806,002430: 37,2462 UTUXP = 0D # UX PRIME
026807,002431: 37,2462 UTUYP = 6D # UY PRIME
026808,002432: 37,2462 UTUZP = 12D # UZ PRIME
026809,002433: 37,2462 UTUX = 18D # UX
026810,002434: 37,2462 UTUY = 24D # UY
026811,002435: 37,2462 UTUZ = 30D # UZ
026812,002436: # UTX = SCAXIS X
026813,002437: # UTY = POINTVSM Y
026814,002438: 37,2462 UTZ = 0D # Z AFTER UNIT
026815,002439: 37,2462 UTZINIT = 36D # Z BEFORE UNIT
026816,002440: 37,2462 UTAMG = 6D # AMG
026817,002441: 37,2462 UTOGA = 24D # OGA REVS B-0
026818,002442: 37,2462 0032 UTIGA = UTOGA +2 # IGA REVS B-0
026819,002443: 37,2462 0034 UTMGA = UTOGA +4 # MGA REVS B-0
026820,002444:
026821,002445: 37,2462 34031 UTOPT45 STCALL UTSB # SB= ULOS BASIC REF. IN MPAC B-1
026822,002446: 37,2463 74437 UTPRFAX
026823,002447: 37,2464 00007 STORE UTSBP # SB PRIME NAV BASE B-1
026824,002448:
026825,002449: 37,2465 53435 VXV UNIT
026826,002450: 37,2466 15332 UNITY
026827,002451: 37,2467 24001 STOVL UTSAP # SA PRIME=(SB PRIME)X(0,1,0) B-1 NAV B
026828,002452: 37,2470 00031 UTSB
026829,002453: 37,2471 53435 VXV UNIT
026830,002454: 37,2472 03357 POINTVSM # VXR SAVED ABOVE
026831,002455: 37,2473 17357 STODL POINTVSM # ULOS X (VXR) B-1
026832,002456: 37,2474 01353 AZIMANGL
026833,002457: 37,2475 74346 COS VXSC
026834,002458: 37,2476 03357 POINTVSM
026835,002459: 37,2477 27351 STOVL SCAXIS # B-2
026836,002460: 37,2500 00031 UTSB
026837,002461: 37,2501 53435 VXV UNIT
026838,002462: 37,2502 03357 POINTVSM
026839,002463: 37,2503 17357 STODL POINTVSM # ULOS X (ULOS X (VXR)) B-1
026840,002464: 37,2504 01353 AZIMANGL
026841,002465: 37,2505 74356 SIN VXSC # B-2
026842,002466: 37,2506 03357 POINTVSM
026843,002467: 37,2507 76455 VAD VSL1
026844,002468: 37,2510 03351 SCAXIS
026845,002469: 37,2511 24023 STOVL UTSA # SA B-1
026846,002470: 37,2512 00001 UTSAP # START AXISGEN
026847,002471: 37,2513 53435 VXV UNIT # UX PRIME ALREADY IN UTUXP B-1
026848,002472: 37,2514 00007 UTSBP # UY ALREADY IN UTUX B-1
026849,002473: 37,2515 24007 STOVL UTUYP # UZ PRIME B-1
026850,002474: 37,2516 00001 UTUXP
026851,002475: 37,2517 76435 VXV VSL1
![]() |
Page 605 |
026853,002477: 37,2520 00007 UTUYP
026854,002478: 37,2521 24015 STOVL UTUZP # UZ PRIME B-1
026855,002479: 37,2522 00023 UTSA
026856,002480: 37,2523 53435 VXV UNIT
026857,002481: 37,2524 00031 UTSB
026858,002482: 37,2525 24031 STOVL UTUY # UY B-1
026859,002483: 37,2526 00023 UTUX
026860,002484: 37,2527 76435 VXV VSL1
026861,002485: 37,2530 00031 UTUY
026862,002486: 37,2531 24037 STOVL UTUZ # UZ B-1
026863,002487: 37,2532 00023 UTUX
026864,002488: 37,2533 77761 VXSC
026865,002489: 37,2534 00001 UTUXP
026866,002490: 37,2535 37351 STCALL UTX
026867,002491: 37,2536 73273 UTOPT45A
026868,002492:
026869,002493: 35,2000 SETLOC P20S8
026870,002494: 35,2000 BANK
026871,002495:
026872,002496: 35,3273 COUNT* $$/CRS61
026873,002497: 35,3273 77775 UTOPT45A VLOAD
026874,002498: 35,3274 00031 UTUY
026875,002499: 35,3275 53361 VXSC VAD
026876,002500: 35,3276 00007 UTUYP
026877,002501: 35,3277 03351 UTX
026878,002502: 35,3300 27351 STOVL UTX
026879,002503: 35,3301 00037 UTUZ
026880,002504: 35,3302 53361 VXSC VAD
026881,002505: 35,3303 00015 UTUZP
026882,002506: 35,3304 03351 UTX
026883,002507: 35,3305 27351 STOVL UTX # UX NOT UNIT YET
026884,002508: 35,3306 00023 UTUX
026885,002509: 35,3307 77761 VXSC
026886,002510: 35,3310 00003 UTUXP +2
026887,002511: 35,3311 27357 STOVL UTY
026888,002512: 35,3312 00031 UTUY
026889,002513: 35,3313 53361 VXSC VAD
026890,002514: 35,3314 00011 UTUYP +2
026891,002515: 35,3315 03357 UTY
026892,002516: 35,3316 27357 STOVL UTY
026893,002517: 35,3317 00037 UTUZ
026894,002518: 35,3320 53361 VXSC VAD
026895,002519: 35,3321 00017 UTUZP +2
026896,002520: 35,3322 03357 UTY
026897,002521: 35,3323 27357 STOVL UTY # UY NOT UNIT YET
026898,002522: 35,3324 00023 UTUX
026899,002523: 35,3325 77761 VXSC
026900,002524: 35,3326 00005 UTUXP +4
026901,002525: 35,3327 24045 STOVL UTZINIT
026902,002526: 35,3330 00031 UTUY
![]() |
Page 606 |
026904,002528: 35,3331 53361 VXSC VAD
026905,002529: 35,3332 00013 UTUYP +4
026906,002530: 35,3333 00045 UTZINIT
026907,002531: 35,3334 24045 STOVL UTZINIT
026908,002532: 35,3335 00037 UTUZ
026909,002533: 35,3336 53361 VXSC VAD
026910,002534: 35,3337 00021 UTUZP +4
026911,002535: 35,3340 00045 UTZINIT
026912,002536: 35,3341 77656 UNIT # UTUZ AND UTZINIT ARE CLOBBERED BY UNIT
026913,002537: 35,3342 24001 STOVL UTZ # UZ B-1
026914,002538: 35,3343 03357 UTY
026915,002539: 35,3344 77656 UNIT
026916,002540: 35,3345 27357 STOVL UTY # UY B-1
026917,002541: 35,3346 03351 UTX
026918,002542: 35,3347 77656 UNIT
026919,002543: 35,3350 03351 STORE UTX # UX B-1 END AXISGEN
026920,002544: 35,3351 53435 VXV UNIT # STATR CALCGA
026921,002545: 35,3352 01742 REFSMMAT +6 # YSM
026922,002546: 35,3353 00007 STORE UTAMG # AMG B-1
026923,002547: 35,3354 77641 DOT
026924,002548: 35,3355 00001 UTZ
026925,002549: 35,3356 24021 STOVL COSTH # COS(OGA)= AMG.ZNB B-2
026926,002550: 35,3357 00007 UTAMG
026927,002551: 35,3360 77641 DOT
026928,002552: 35,3361 03357 UTY
026929,002553: 35,3362 34023 STCALL SINTH # SIN(OGA)= AMG.YNB B-2
026930,002554: 35,3363 47311 ARCTRIG
026931,002555: 35,3364 24031 STOVL UTOGA # OGA REVS B-0
026932,002556: 35,3365 00007 UTAMG
026933,002557: 35,3366 50235 VXV DOT
026934,002558: 35,3367 03351 UTX
026935,002559: 35,3370 01742 REFSMMAT +6
026936,002560: 35,3371 77752 SL1
026937,002561: 35,3372 24021 STOVL COSTH # COS(MGA)= YSM.(AMG X XNB) B-2
026938,002562: 35,3373 01742 REFSMMAT +6
026939,002563: 35,3374 77641 DOT
026940,002564: 35,3375 03351 UTX
026941,002565: 35,3376 34023 STCALL SINTH # SIN(MGS)= YSM.XNB B-2
026942,002566: 35,3377 47311 ARCTRIG
026943,002567: 35,3400 00035 STORE UTMGA # MGA REVS B-0
026944,002568: 35,3401 45246 ABS DSU
026945,002569: 35,3402 07527 UT166
026946,002570: 35,3403 77644 BPL
026947,002571: 35,3404 73425 UTGMLOCK
026948,002572: 35,3405 50375 UTCGA1 VLOAD DOT
026949,002573: 35,3406 01750 REFSMMAT +12D
026950,002574: 35,3407 00007 UTAMG
026951,002575: 35,3410 24021 STOVL COSTH # COS(IGA)= AMG.ZSM B-2
026952,002576: 35,3411 01734 REFSMMAT
026953,002577: 35,3412 77641 DOT
![]() |
Page 607 |
026955,002579: 35,3413 00007 UTAMG
026956,002580: 35,3414 34023 STCALL SINTH # SIN(IGA)= ANG.XSM B-2
026957,002581: 35,3415 47311 ARCTRIG
026958,002582: 35,3416 00033 STORE UTIGA # IGA REVS B-0
026959,002583: 35,3417 47175 VLOAD RTB
026960,002584: 35,3420 00031 UTOGA # CONVERT TO 2S COMP
026961,002585: 35,3421 45644 V1STO2S # ORDER IS OGA,IGA,MGA
026962,002586: 35,3422 01310 STORE THETAD # TRIPLE PREC
026963,002587: 35,3423 77650 GOTO
026964,002588: 35,3424 03705 Q6111 # EXIT R63
026965,002589:
026966,002590: 35,3425 77776 UTGMLOCK EXIT # GIMBAL LOCK HAS OCCURED
026967,002591: 35,3426 05671 TC ALARM
026968,002592: 35,3427 00401 OCT 00401
026969,002593:
026970,002594: 35,3430 06006 TC INTPRET
026971,002595: 35,3431 77650 GOTO
026972,002596: 35,3432 73405 UTCGA1
026973,002597:
026974,002598: 27,2000 SETLOC R22S1
026975,002599: 27,2000 BANK
026976,002600:
026977,002601: 27,2636 COUNT* $$/CRS61
026978,002602: 27,2636 05057 23015 RADTOREV 2DEC 0.15915494 # RADIANS TO REV
026979,002603: 27,2640 07702 COSTEN DEC 0.98481 B-2 # COSINE OF 10 DEG.
026980,002604: 27,2641 00034 20206 MAXRATE 2DEC 0.00174 # .1 DEG./SEC. RATE
026981,002605: 27,2643 06315 DELTYME DEC 0.05 B2 # 1/DELTA TIME = 1/20 SEC
026982,002606: 27,2644 01616 DEGREE10 DEC .05556 # 10 DEG IN REV
026983,002607: 27,2645 37651 16721 RVCS/RDS 2DEC 15.915494 B-4 # 100/2PI REV-CSEC/RAD-SEC.
026984,002608: 27,2647 31463 06315 TENTH 2DEC .1 B+3 # .1 B-3 (TO SCALE ANG.RATE TO .1 INREMS)
026985,002609: 27,2651 20000 00000 MBDYTCTL 2DEC .5 # 7.25 DEG NEGATIVE
026986,002610: 27,2653 00000 00000 2DEC 0 B-28 # X-AXIS ROTATION MATRIX
026987,002611: 27,2655 00000 00000 2DEC 0 B-28 # CONVERTS BODY TO CTL
026988,002612: 27,2657 00000 00000 2DEC 0 B-28 # AXES. SAME AS QUADROT
026989,002613: 27,2661 17676 20113 2DEC .99200495 B-1 # COS7.25 B1 BUT SCALED B1
026990,002614: 27,2663 75766 45544 2DEC -.12619897 B-1 # -SIN7.25 B1
026991,002615: 27,2665 00000 00000 2DEC 0 B-28
026992,002616: 27,2667 02011 32233 2DEC .12619897 B-1 # SIN7.25 B1
![]() |
Page 608 |
026994,002618: 27,2671 17676 20113 2DEC .99200495 B-1 # COS7.25 B1
026995,002619: 27,2673 00001 LOONE OCT 00001 # TO SET MPAC = 00001 FOR SPECIAL EXIT.
026996,002620: 27,2674 7673 FURST3 EQUALS 13,14,15 # CONSTANT FOR AUTOCK (OCT 70000).
026997,002621:
![]() |
Page 609 |
026999,002623:
027000,002624: # ..... S22.1 ORBITAL NAVIGATION ROUTINE
027001,002625: # MOD 1
027002,002626:
027003,002627: # FUNCTIONAL DESCRIPTION
027004,002628: # 1. UPDATE CSM STATE VECTOR
027005,002629: # 2. UPDATE LANDMARK POSITION
027006,002630: # 3. CONVERT W MATRIX FROM 9 TO 6 DIMENSIONS
027007,002631:
027008,002632: # SUBROUTINES CALLED
027009,002633: # INTSTALL,INTEGRV,GETUM,SETRE,R-TO-TP,RP-TO-R,BVECTORS,INCORP1,INCORP2
027010,002634: # LALOTORV,S22F2410,LAT-LONG,ROWDOT
027011,002635:
027012,002636: # ERASABLE INITIALIZATION
027013,002637: # W=9X9 MATRIX
027014,002638: # ORBWFLAG=0 FOR INVALID W MATRIX,=1 FOR VALID W MATRIX
027015,002639: # ASTRONAUT ENTRY OF KNOWN,L,OFF
027016,002640: # 8NN= NUMBER OF MARKS DECIMAL INTEGER B-14
027017,002641: # REFSMMAT= TRANSFORMATION MATRIX
027018,002642: # MARKSTAT= ADDRESS OF START OF MARK DATA (MARK DATA OF EACH MARK IS
027019,002643: # STORED AS FOLLOWS, TIME,AIG,SA,AMG,PA,AOG) TIME IS IN DOUBLE
027020,002644: # PRECISION,ALL OTHERS ARE IN SINGLE PRECISION
027021,002645: # CSM STATE VECTOR
027022,002646:
027023,002647: # OUTPUT
027024,002648: # UPDATED CSM STATE VECTOR
027025,002649: # UPDATED LANDMARK POSITION
027026,002650: # NEW 6 DIMENSIONAL W MATRIX
027027,002651:
027028,002652: # DEBRIS
027029,002653: # PUSH LIST,CSMPOS,ALPHAV,ERADM,UM,RCLP,USTAR,VARIANCE,X789,BVECTOR,8KK,
027030,002654: # S22LOC,SVMRKDAT TABLE,22SUBSCL,LANDMARK,CXOFF,S22C,LAT,LONG,ALT,
027031,002655: # TEMPOR1,S22TOFF,S221OFF,DSPTEM1,S22EORM,S22TPRIM
027032,002656:
027033,002657: 30,2000 SETLOC P20S6
027034,002658: 30,2000 BANK
027035,002659:
027036,002660: 30,2466 E7,1751 EBANK= LANDMARK
027037,002661: 30,2466 COUNT* $$/P22
027038,002662: 30,2466 05362 S22.1 TC 2PHSCHNG
027039,002663: 30,2467 00004 OCT 00004
027040,002664: 30,2470 05022 OCT 05022
027041,002665: 30,2471 13000 OCT 13000
027042,002666: 30,2472 06006 TC INTPRET
027043,002667: 30,2473 45001 SETPD CALL
027044,002668: 30,2474 00001 0D
027045,002669: 30,2475 56603 SHIFTNDX
027046,002670: 30,2476 45134 FIG2EXIT SXA,2 CALL
027047,002671: 30,2477 03673 S22EORM # SET =0 EARTH,=2 MOON FOR SHIFTING
027048,002672: 30,2500 56462 SETINTG
027049,002673: # FLOWCHART D=0 THEN DIM0FLAG=0 D6OR9FLG NOT TESTED
![]() |
Page 610 |
027051,002675: # FLOWCHART D=6 THEN DIM0FLAG=1 D6OR9FLG=0
027052,002676: # FLOWCHART D=9 THEN DIM0FLAG=1 D6OR9FLG=1
027053,002677:
027054,002678: 30,2501 43014 BOFF SETGO
027055,002679: 30,2502 01751 ORBWFLAG
027056,002680: 30,2503 60506 SETWW5D # BRANCH TO SET W0-W5,ORBWFLAG,D
027057,002681: 30,2504 01436 DIM0FLAG # FLOWCHART D=6 PATH
027058,002682: 30,2505 60513 SETVANDI
027059,002683: 30,2506 71214 SETWW5D CLEAR DLOAD
027060,002684: 30,2507 02676 RENDWFLG # FLOWCHART D=0 PATH
027061,002685: 30,2510 02005 WORBPOS
027062,002686: 30,2511 34001 STCALL 0
027063,002687: 30,2512 56612 INITIALW
027064,002688: 30,2513 77370 SETVANDI AXT,1 VLOAD
027065,002689: 30,2514 00022 DEC 18 B-14
027066,002690: 30,2515 15336 ZEROVECS
027067,002691: 30,2516 77731 SSP
027068,002692: 30,2517 00051 S1
027069,002693: 30,2520 00006 DEC 6 B-14
027070,002694: 30,2521 06467 NEXTW2W8 STORE W +54D,1 # CLEAR W2
027071,002695: 30,2522 06555 STORE W +108D,1 # W5
027072,002696: 30,2523 06577 STORE W +126D,1 # W6
027073,002697: 30,2524 06621 STORE W +144D,1 # W7
027074,002698: 30,2525 06643 STORE W +162D,1 # W8
027075,002699: 30,2526 43100 TIX,1 CLEAR
027076,002700: 30,2527 60521 NEXTW2W8
027077,002701: 30,2530 02666 DMENFLG # 0=6X6W, 1=9X9W
027078,002702: 30,2531 77624 S22NXTIN CALL
027079,002703: 30,2532 62357 GETTF
027080,002704: 30,2533 34041 STCALL TDEC1
027081,002705: 30,2534 27236 INTEGRV
027082,002706: 30,2535 45154 LXA,2 CALL
027083,002707: 30,2536 03673 S22EORM
027084,002708: 30,2537 71327 CMPOS
027085,002709: 30,2540 45140 LXC,1 CALL
027086,002710: 30,2541 03750 S22LOC # SETUP ADDR. OF MARK DATA FOR GETUM SUBR.
027087,002711: 30,2542 47017 S2GETUM GETUM
027088,002712: 30,2543 01072 STORE UM
027089,002713: 30,2544 41535 DMPINTEG SLOAD PUSH # TEST OFF=I
027090,002714: 30,2545 03746 8KK
027091,002715: 30,2546 45335 SLOAD DSU
027092,002716: 30,2547 03745 CXOFF # BEFORE SUBT.
027093,002717: 30,2550 43030 BHIZ BON
027094,002718: 30,2551 61042 S22OFF=I # BRANCH HERE IF OFF=I
027095,002719: 30,2552 02706 DMENFLG # 0=6X6W, 1=9X9W
027096,002720: 30,2553 61050 S22D=9
027097,002721: 30,2554 77624 CALL
027098,002722: 30,2555 22327 GRP2PC
027099,002723: 30,2556 77614 SET
027100,002724: 30,2557 01471 ORBWFLAG
![]() |
Page 611 |
027102,002726: 30,2560 43014 SET SET
027103,002727: 30,2561 02466 DMENFLG # =0 ON FIRST PASS THRU HERE FOR D=0,OR6
027104,002728: 30,2562 01062 22DSPFLG # =1 TO DISPLAY DR,DV ON FIRST PASS
027105,002729: 30,2563 77614 BON
027106,002730: 30,2564 03307 KNOWNFLG
027107,002731: 30,2565 61204 S22BOX22
027108,002732: 30,2566 53575 VLOAD UNIT # UNIT ALSO PUTS ABVAL(RC) IN 36D
027109,002733: 30,2567 01046 CSMPOS
027110,002734: 30,2570 36152 STCALL ALPHAV # ALPHAV +4=SINL FOR SETRE
027111,002735: 30,2571 26654 SETRE # ERADM= R0 METERS B-29 BOTH EARTH/MOON
027112,002736: 30,2572 77624 CALL # COMPUTE RL FROM EQUATION 2.4.10
027113,002737: 30,2573 61331 S22F2410 # STORED IN X789,MPAC B-27,B-29
027114,002738: 30,2574 70414 BOFF VSR2 # SCALE RL B-29 FOR BOTH EARTH/MOON
027115,002739: 30,2575 04343 CMOONFLG
027116,002740: 30,2576 60577 +1
027117,002741: 30,2577 02555 STORE S22RL
027118,002742: 30,2600 72441 DOT SL1
027119,002743: 30,2601 01072 UM
027120,002744: 30,2602 24037 STOVL S22D # D= UM.RL B-29
027121,002745: 30,2603 15336 ZEROVECS
027122,002746: 30,2604 41401 SETPD PUSH
027123,002747: 30,2605 00001 0D
027124,002748: 30,2606 65206 PUSH PDDL # SET 0-18D = I BACKWARDS
027125,002749: 30,2607 15334 HIDPHALF # PD 18
027126,002750: 30,2610 77702 SR2 # B-3
027127,002751: 30,2611 00005 STORE 4D
027128,002752: 30,2612 00011 STORE 8D
027129,002753: 30,2613 24015 STOVL 12D
027130,002754: 30,2614 01072 UM # B-1
027131,002755: 30,2615 24023 STOVL S223X1
027132,002756: 30,2616 02555 S22RL # B-29
027133,002757: 30,2617 77624 CALL # (UM)(RL T) B-30 STORED IN S22UMRL THRU
027134,002758: 30,2620 62340 S2231X13 # S22UMRL +17D
027135,002759: 30,2621 66370 AXT,1 SSP
027136,002760: 30,2622 00022 DEC 18 B-14
027137,002761: 30,2623 00051 S1
027138,002762: 30,2624 00006 DEC 6 B-14
027139,002763: 30,2625 70573 S22NXTU VLOAD* VSR2 # (UM)(RL T) B-32
027140,002764: 30,2626 03524 S22UMRL +18D,1
027141,002765: 30,2627 77741 V/SC
027142,002766: 30,2630 00037 S22D # D B-29
027143,002767: 30,2631 45445 BVSU STADR # SUBTRACT FROM I B-3
027144,002768: 30,2632 70253 STORE S22UMRL +18D,1 # U MATRIX B-3
027145,002769: 30,2633 76100 TIX,1 AXT,1 # PD 0 AFTER TIX
027146,002770: 30,2634 60625 S22NXTU
027147,002771: 30,2635 00044 DEC 36 B-14 # S1 STILL 6 FROM ABOVE
027148,002772: 30,2636 64373 S22NXTWI VLOAD* MXV
027149,002773: 30,2637 02445 W +36D,1 # B-19
027150,002774: 30,2640 03502 S22UMRL # B-3
027151,002775: 30,2641 77732 VSL3
![]() |
Page 612 |
027153,002777: 30,2642 06621 STORE W +144D,1 # W(I+18)= UW(I) B-19
027154,002778: 30,2643 71300 TIX,1 DLOAD
027155,002779: 30,2644 60636 S22NXTWI
027156,002780: 30,2645 00041 S22RHO # B-28,B-30
027157,002781: 30,2646 60414 BOFF SR2 # MAKE RHO B-30
027158,002782: 30,2647 04343 CMOONFLG
027159,002783: 30,2650 60651 +1
027160,002784: 30,2651 57101 NORM XAD,2
027161,002785: 30,2652 00050 X2
027162,002786: 30,2653 00047 X2
027163,002787: 30,2654 41316 DSQ DMP
027164,002788: 30,2655 24024 SCTVAR # B+18
027165,002789: 30,2656 76142 SR1 AXT,1 # ACCOUNTS FOR 1/2 IN NEXT FORMULA
027166,002790: 30,2657 00022 DEC 18 B-14
027167,002791: 30,2660 00041 STORE S22RHO # 1/2(RHO SQ)(VARSCT)
027168,002792: 30,2661 64373 S22NXXA VLOAD* MXV
027169,002793: 30,2662 03524 S22UMRL +18D,1 # B-3
027170,002794: 30,2663 03502 S22UMRL # B-3
027171,002795: 30,2664 53761 VXSC VSR*
027172,002796: 30,2665 00041 S22RHO
027173,002797: 30,2666 57212 0 -12D,2 # WITH VARRP SCALED B-28
027174,002798: 30,2667 05136 STORE S22UUT +18D,1 # 1/2(RHO SQ)(VARSCT)(U)(U T)
027175,002799: 30,2670 77300 TIX,1 VLOAD
027176,002800: 30,2671 60661 S22NXXA
027177,002801: 30,2672 01072 UM
027178,002802: 30,2673 34023 STCALL S223X1 # UM ALSO IN MPAC FOR S2231X13 SUBR.
027179,002803: 30,2674 62340 S2231X13 # (UM)(UM T) B-2 IN S22UMRL,P17D
027180,002804: 30,2675 50545 DLOAD SR3
027181,002805: 30,2676 02240 ERADM # R0 B-29
027182,002806: 30,2677 63471 DDV DSQ
027183,002807: 30,2700 00037 S22D # B-29
027184,002808: 30,2701 76005 DMP AXT,1
027185,002809: 30,2702 02010 RPVAR # ***** METERS SQ
027186,002810: 30,2703 00022 DEC 18 B-14
027187,002811: 30,2704 00041 STORE S22RHO # TEMP (VARRP)(R0/D)
027188,002812: 30,2705 74373 S22NXXB VLOAD* VXSC
027189,002813: 30,2706 03524 S22UMRL +18D,1 # (UM)(UM T) B-2
027190,002814: 30,2707 00041 S22RHO
027191,002815: 30,2710 77653 VAD*
027192,002816: 30,2711 01136 S22UUT +18D,1
027193,002817: 30,2712 05136 STORE S22UUT +18D,1 # SMALL E MATRIX
027194,002818: 30,2713 40100 TIX,1 BOV
027195,002819: 30,2714 60705 S22NXXB
027196,002820: 30,2715 60716 +1
027197,002821: 30,2716 50145 DLOAD BMN
027198,002822: 30,2717 01134 S22UUT +16D # E5
027199,002823: 30,2720 60741 S22W76X
027200,002824: 30,2721 53166 SQRT BZE
027201,002825: 30,2722 60741 S22W76X
027202,002826: 30,2723 77742 SR1 # B-19
![]() |
Page 613 |
027204,002828: 30,2724 16625 STODL W +148D # W74= SQ ROOT E5
027205,002829: 30,2725 01132 S22UUT +14D # E4
027206,002830: 30,2726 40071 DDV BOV
027207,002831: 30,2727 02625 W +148D
027208,002832: 30,2730 60733 S22W72X
027209,002833: 30,2731 77702 SR2 # B-19
027210,002834: 30,2732 02623 STORE W +146D # W73= E4/W74
027211,002835: 30,2733 56345 S22W72X DLOAD DDV
027212,002836: 30,2734 01130 S22UUT +12D # E3
027213,002837: 30,2735 02625 W +148D
027214,002838: 30,2736 40102 SR2 BOV # B-19
027215,002839: 30,2737 60741 S22W76X
027216,002840: 30,2740 02621 STORE W +144D # W72= E3/W74
027217,002841: 30,2741 63545 S22W76X DLOAD DSQ
027218,002842: 30,2742 02623 W +146D
027219,002843: 30,2743 44312 SL2 BDSU
027220,002844: 30,2744 01124 S22UUT +8D # E2
027221,002845: 30,2745 75440 BMN SQRT
027222,002846: 30,2746 60763 S22W78X
027223,002847: 30,2747 70454 BZE SR1 # B-19
027224,002848: 30,2750 60763 S22W78X
027225,002849: 30,2751 16631 STODL W +152D # W76= SQ ROOT (E2-W73 SQ)
027226,002850: 30,2752 02621 W +144D # W72
027227,002851: 30,2753 62405 DMP SL2
027228,002852: 30,2754 02623 W +146D # W73
027229,002853: 30,2755 56221 BDSU DDV
027230,002854: 30,2756 01122 S22UUT +6D # E1
027231,002855: 30,2757 02631 W +152D # W76
027232,002856: 30,2760 60400 BOV SR2 # B-19
027233,002857: 30,2761 60763 S22W78X
027234,002858: 30,2762 02627 STORE W +150D # W75= (E1-W72W73)/W76
027235,002859: 30,2763 63545 S22W78X DLOAD DSQ
027236,002860: 30,2764 02627 W +150D
027237,002861: 30,2765 63525 PDDL DSQ
027238,002862: 30,2766 02621 W +144D # W72
027239,002863: 30,2767 62415 DAD SL2
027240,002864: 30,2770 50021 BDSU BMN
027241,002865: 30,2771 01114 S22UUT # E0
027242,002866: 30,2772 60775 S22SAVET
027243,002867: 30,2773 70566 SQRT SR1 # B-19
027244,002868: 30,2774 02635 STORE W +156D # W78= SQ RT(E0-W72 SQ-W75 SQ)
027245,002869: 30,2775 77624 S22SAVET CALL
027246,002870: 30,2776 62357 GETTF
027247,002871: 30,2777 03672 STORE S22TPRIM # SAVE PRESENT TIME FOR PIOS
027248,002872: 30,3000 77776 S22I=N EXIT # TEST I=N
027249,002873: 30,3001 05402 TC PHASCHNG
027250,002874: 30,3002 04022 OCT 04022
027251,002875: 30,3003 41745 CS 8KK
027252,002876: 30,3004 61747 AD 8NN
027253,002877: 30,3005 00006 EXTEND
![]() |
Page 614 |
027255,002879: 30,3006 63222 BZMF S22F244X # EXIT TO FIGURE 2.4-4
027256,002880: 30,3007 31745 CA 8KK # I=I+1
027257,002881: 30,3010 64770 AD ONE
027258,002882: 30,3011 55135 TS TEMPOR1
027259,002883: 30,3012 31750 CA S22LOC # ADD 7 TO LOC TO GET ADDR. OF NEXT MARK
027260,002884: 30,3013 64774 AD SEVEN
027261,002885: 30,3014 55136 TS TEMPOR1 +1
027262,002886: 30,3015 05402 TC PHASCHNG
027263,002887: 30,3016 04022 OCT 04022
027264,002888: 30,3017 31135 CA TEMPOR1
027265,002889: 30,3020 55745 TS 8KK
027266,002890: 30,3021 31136 CA TEMPOR1 +1
027267,002891: 30,3022 55750 TS S22LOC
027268,002892: 30,3023 06006 TC INTPRET
027269,002893: 30,3024 77624 CALL # FOR ALL INTEGRATIONS OTHER THAN FIRST
027270,002894: 30,3025 56462 S2INTS1 SETINTG
027271,002895: 30,3026 43014 BOFF SET
027272,002896: 30,3027 02746 DMENFLG # =0 D=0 OR 6, =1 D=9
027273,002897: 30,3030 61035 S22D6Z
027274,002898: 30,3031 01476 DIM0FLAG
027275,002899: 30,3032 77614 SETGO # D=9 PATH
027276,002900: 30,3033 01435 D6OR9FLG
027277,002901: 30,3034 60531 S22NXTIN # RETURN ALWAYS EXCEPT OFFSET POINT MARK 1
027278,002902: 30,3035 43014 S22D6Z BOFF SETGO
027279,002903: 30,3036 01751 ORBWFLAG
027280,002904: 30,3037 60531 S22NXTIN # D=0,OFFSET MARK 1,NO W INTEGRATION
027281,002905: 30,3040 01436 DIM0FLAG
027282,002906: 30,3041 60531 S22NXTIN # D=6,OFFSET MARK 1, INTEGRATE W 6X6
027283,002907: 30,3042 77624 S22OFF=I CALL
027284,002908: 30,3043 62357 GETTF
027285,002909: 30,3044 27670 STOVL S22TOFF # TIME SUB OFF
027286,002910: 30,3045 01072 UM
027287,002911: 30,3046 35054 STCALL S22UOFF # U SUB OFF
027288,002912: 30,3047 61000 S22I=N # TEST I=N
027289,002913: 30,3050 77775 S22D=9 VLOAD # D=9 PATH
027290,002914: 30,3051 01701 X789
027291,002915: 30,3052 14001 STODL 0D # CALL PIOS TWICE TO TRANSFORM RL TO TIME
027292,002916: 30,3053 03672 S22TPRIM # T(SUB F) FROM TIME T PRIME
027293,002917: 30,3054 00007 STORE 6D
027294,002918: 30,3055 45135 SLOAD CALL
027295,002919: 30,3056 03674 S22EORM # 0=EARTH, NON-ZERO=MOON
027296,002920: 30,3057 55370 S2RTRP R-TO-RP
027297,002921: 30,3060 45006 PUSH CALL # R-TO-RP LEAVES PUSHLOC AT 0
027298,002922: 30,3061 62357 GETTF
027299,002923: 30,3062 00007 STORE 6D
027300,002924: 30,3063 45135 SLOAD CALL
027301,002925: 30,3064 03674 S22EORM
027302,002926: 30,3065 55345 S2RPTR RP-TO-R
027303,002927: 30,3066 01701 S22BOX32 STORE X789
027304,002928: 30,3067 40014 SET BOV
![]() |
Page 615 |
027306,002930: 30,3070 02464 INCORFLG # FLAG=1
027307,002931: 30,3071 61072 +1 # CLEAR OVERFLOW
027308,002932: 30,3072 77651 VSU
027309,002933: 30,3073 01046 CSMPOS
027310,002934: 30,3074 03531 STORE RCLP # RCL=RL-RC
027311,002935: 30,3075 47256 UNIT VXV # USTAR=UNIT(UNIT(RCL)XUM)
027312,002936: 30,3076 01072 UM
027313,002937: 30,3077 40056 UNIT BOV
027314,002938: 30,3100 60775 S22SAVET # COMPUTATION OVERFLOW,SAVE TF
027315,002939: 30,3101 01102 STORE USTAR
027316,002940: 30,3102 43345 S22BOX12 DLOAD DAD
027317,002941: 30,3103 24024 SCTVAR # B+18
027318,002942: 30,3104 24026 IMUVARR # B+18
027319,002943: 30,3105 27526 STOVL VARIANCE
027320,002944: 30,3106 03531 RCLP # B-29 OR B-27
027321,002945: 30,3107 60246 ABVAL NORM
027322,002946: 30,3110 00047 X1
027323,002947: 30,3111 41316 DSQ DMP
027324,002948: 30,3112 03526 VARIANCE
027325,002949: 30,3113 56070 XAD,1 XAD,1
027326,002950: 30,3114 00046 X1 # DOUBLE NORM SHIFT SINCE RCLP WAS SQUARED
027327,002951: 30,3115 03673 S22EORM # DOUBLE EARTH OR MOON SHIFT,SAME REASON
027328,002952: 30,3116 53670 XAD,1 SR*
027329,002953: 30,3117 03673 S22EORM
027330,002954: 30,3120 20601 0,1 # SCALE VARIANCE B-40 FOR BOTH EARTH,MOON
027331,002955: 30,3121 77751 TLOAD # CHANGE MODE TO TRIPLE
027332,002956: 30,3122 00155 MPAC
027333,002957: 30,3123 37526 STCALL VARIANCE # CALC B0,B1,DELTAQ, NEW USTAR
027334,002958: 30,3124 46756 S2BVTRS BVECTORS
027335,002959: 30,3125 57575 VLOAD VCOMP
027336,002960: 30,3126 03502 BVECTOR
027337,002961: 30,3127 37516 STCALL BVECTOR +12D # B2=-B0
027338,002962: 30,3130 75260 S2INCP1 INCORP1
027339,002963: 30,3131 77624 CALL
027340,002964: 30,3132 22327 GRP2PC
027341,002965: 30,3133 45014 BOFCLR CALL
027342,002966: 30,3134 01242 22DSPFLG # =1 DISPLAY DELTA R,V =0 DO NOT
027343,002967: 30,3135 61164 S22BOX42
027344,002968: 30,3136 22327 GRP2PC
027345,002969: 30,3137 51575 VLOAD ABVAL
027346,002970: 30,3140 01114 DELTAX # DELTA R
027347,002971: 30,3141 53750 LXA,1 SR*
027348,002972: 30,3142 03673 S22EORM # SCALE DELTA R ALWAYS METERS B-29
027349,002973: 30,3143 20601 0,1
027350,002974: 30,3144 27502 STOVL N49DISP
027351,002975: 30,3145 01122 DELTAX +6 # DELTA V
027352,002976: 30,3146 53646 ABVAL SR* # DELTA V=METERS/CSEC B-7 ALWAYS
027353,002977: 30,3147 20601 0,1
027354,002978: 30,3150 03504 STORE N49DISP +2
027355,002979: 30,3151 77776 EXIT
![]() |
Page 616 |
027357,002981: 30,3152 35030 CAF V06N49EE
027358,002982: 30,3153 04636 TC BANKCALL
027359,002983: 30,3154 21101 CADR GOFLASHR
027360,002984: 30,3155 04103 TC GOTOPOOH # V34E TERMINATE
027361,002985: 30,3156 03163 TC +5 # INCORPORATE CHANGES
027362,002986: 30,3157 03321 TC P22OVER +1 # V32E RECYCLE WITHOUT CONVERTING W
027363,002987: 30,3160 34766 CAF BIT3
027364,002988: 30,3161 05516 TC BLANKET
027365,002989: 30,3162 05205 TC ENDOFJOB
027366,002990: 30,3163 06006 TC INTPRET
027367,002991: 30,3164 77624 S22BOX42 CALL
027368,002992: 30,3165 75472 INCORP2
027369,002993: 30,3166 45154 LXA,2 CALL
027370,002994: 30,3167 03673 S22EORM
027371,002995: 30,3170 71327 CMPOS
027372,002996: 30,3171 45014 DMPINCP2 BOFF CALL
027373,002997: 30,3172 02744 INCORFLG
027374,002998: 30,3173 60775 S22SAVET # SAVE TF AND TEST I=N
027375,002999: 30,3174 22327 GRP2PC
027376,003000: 30,3175 77214 CLEAR VLOAD
027377,003001: 30,3176 02664 INCORFLG # FLAG=0
027378,003002: 30,3177 01701 X789
027379,003003: 30,3200 77651 VSU
027380,003004: 30,3201 01046 CSMPOS
027381,003005: 30,3202 37531 STCALL RCLP # RCL=RL-RC
027382,003006: 30,3203 61102 S22BOX12
027383,003007: 30,3204 77735 S22BOX22 SLOAD
027384,003008: 30,3205 02007 S22WSUBL
027385,003009: 30,3206 02621 STORE W +144D
027386,003010: 30,3207 02631 STORE W +152D
027387,003011: 30,3210 36641 STCALL W +160D
027388,003012: 30,3211 62357 GETTF
027389,003013: 30,3212 77624 CALL # COMPUTE RL
027390,003014: 30,3213 26524 LALOTORV
027391,003015: 30,3214 43175 VLOAD BOFF
027392,003016: 30,3215 02152 ALPHAV # RL B-29
027393,003017: 30,3216 04343 CMOONFLG
027394,003018: 30,3217 61066 S22BOX32
027395,003019: 30,3220 52152 VSL2 GOTO # SCALE RL B-27 FOR MOON
027396,003020: 30,3221 61066 S22BOX32
027397,003021: 30,3222 06006 S22F244X TC INTPRET
027398,003022: 30,3223 46135 S22F244 SLOAD BHIZ # FIG 2.4-4 TEST OFF=0
027399,003023: 30,3224 03745 CXOFF
027400,003024: 30,3225 61256 S22BOX44
027401,003025: 30,3226 67206 PUSH SLOAD
027402,003026: 30,3227 03750 8NN
027403,003027: 30,3230 77625 DSU
027404,003028: 30,3231 45040 BMN CALL # OFFSET GR. NO. MARKS, FORGET IT
027405,003029: 30,3232 61256 S22BOX44
027406,003030: 30,3233 22327 GRP2PC # GROUP 2 PHASE CHANGE
![]() |
Page 617 |
027408,003032: 30,3234 77745 DLOAD
027409,003033: 30,3235 03670 S22TOFF
027410,003034: 30,3236 34041 STCALL TDEC1 # CALC RC AT OFFSET TIME
027411,003035: 30,3237 27145 CSMPREC
027412,003036: 30,3240 77775 VLOAD
027413,003037: 30,3241 00017 RATT1 # RC METERS B-29 OR B-27
027414,003038: 30,3242 25046 STOVL CSMPOS
027415,003039: 30,3243 01054 S22UOFF
027416,003040: 30,3244 25072 STOVL UM # U=UOFF
027417,003041: 30,3245 01701 X789
027418,003042: 30,3246 43046 ABVAL BOFF
027419,003043: 30,3247 04343 CMOONFLG
027420,003044: 30,3250 61252 +2
027421,003045: 30,3251 77702 SR2 # SCALE MOON R0 B-29 FOR S22F2410 SUBR
027422,003046: 30,3252 36240 STCALL ERADM
027423,003047: 30,3253 61331 S22F2410
027424,003048: 30,3254 77650 GOTO
027425,003049: 30,3255 61261 S22BX44A
027426,003050: 30,3256 77624 S22BOX44 CALL
027427,003051: 30,3257 62357 GETTF
027428,003052: 30,3260 03670 STORE S22TOFF # PRESENT TIME FOR LAT-LONG SETUP
027429,003053: 30,3261 43175 S22BX44A VLOAD BOFF
027430,003054: 30,3262 01701 X789
027431,003055: 30,3263 04343 CMOONFLG
027432,003056: 30,3264 61266 S22BX44B
027433,003057: 30,3265 77742 VSR2 # SCALE RL MOON B-29 FOR LAT-LONG
027434,003058: 30,3266 16152 S22BX44B STODL ALPHAV # RL SCALED B-29 FOR LAT-LONG
027435,003059: 30,3267 03670 S22TOFF # EITHER PRESENT OR OFFSET TIME
027436,003060: 30,3270 77624 CALL
027437,003061: 30,3271 26453 LAT-LONG # **** ALT OUTPUT ALWAYS B-29
027438,003062: 30,3272 77624 CALL # DISPLAY LAT/LONG/ALT
027439,003063: 30,3273 62363 LLASRD
027440,003064: 30,3274 77776 EXIT
027441,003065: 30,3275 35036 CAF V06N89B
027442,003066: 30,3276 04636 TC BANKCALL
027443,003067: 30,3277 20743 CADR GOFLASH
027444,003068: 30,3300 03324 TC S22GTP # V34E TERMINATE
027445,003069: 30,3301 03315 TC S22.981X # PROCEED POINT A IN IN GSOP
027446,003070: 30,3302 06006 TC INTPRET # RECYCLE SAVE LANDING SITE COORD
027447,003071: 30,3303 77745 DLOAD
027448,003072: 30,3304 03670 S22TOFF # EITHER PRESENT OR OFFSET TIME
027449,003073: 30,3305 24007 STOVL 6D # 6-7D= LANDING SITE TIME FOR R-TO-RP
027450,003074: 30,3306 01701 X789
027451,003075: 30,3307 00001 STORE 0D # 0-5D= LANDING SITE VEC FOR R-TO-RP
027452,003076: 30,3310 45135 SLOAD CALL
027453,003077: 30,3311 15334 HIDPHALF # ANY NON-ZERO FOR MOON
027454,003078: 30,3312 55370 R-TO-RP # CONVERT RLS TO MOON-FIXED COORD
027455,003079: 30,3313 02026 STORE RLS # LANDING SITE VECTOR
027456,003080: 30,3314 77776 EXIT
027457,003081: 30,3315 06006 S22.981X TC INTPRET
![]() |
Page 618 |
027459,003083: 30,3316 77624 CALL
027460,003084: 30,3317 61363 9DWTO6DW
027461,003085: 30,3320 77776 P22OVER EXIT
027462,003086: 30,3321 05402 TC PHASCHNG
027463,003087: 30,3322 04022 OCT 04022
027464,003088: 30,3323 02206 TC PROG22A
027465,003089: 30,3324 06006 S22GTP TC INTPRET # CONVERT W BEFORE TC GOTOPOOH
027466,003090: 30,3325 77624 CALL
027467,003091: 30,3326 61363 9DWTO6DW
027468,003092: 30,3327 77776 EXIT
027469,003093: 30,3330 04103 TC GOTOPOOH
027470,003094: 30,3331 77201 S22F2410 SETPD VLOAD # COMPUTE FORMULA 2.4.10
027471,003095: 30,3332 00001 0D
027472,003096: 30,3333 01046 CSMPOS # RC B-29 EARTH,B-27 MOON
027473,003097: 30,3334 50256 UNIT DOT # UNIT ALSO SETS 36D=ABVAL(RC) USED BELOW
027474,003098: 30,3335 01072 UM
027475,003099: 30,3336 57552 SL1 DCOMP # GSOP CHANGE 8/18/67
027476,003100: 30,3337 63406 PUSH DSQ # PD 2D 0D=COSA=-(UM.RC)/ABVAL(RC) B-1
027477,003101: 30,3340 65221 BDSU PDDL # PD 4D 2D=1-COSA SQ=SINA SQ B-2
027478,003102: 30,3341 15326 DEC1B2
027479,003103: 30,3342 02240 ERADM # R0 ALWAYS B-29 FROM SETRE
027480,003104: 30,3343 62414 BOFF SL2 # SCALE R0 B-27 FOR MOON
027481,003105: 30,3344 04343 CMOONFLG
027482,003106: 30,3345 61346 +1
027483,003107: 30,3346 56362 SR1R DDV # (R0/RC) B-1
027484,003108: 30,3347 00045 36D
027485,003109: 30,3350 45316 DSQ DSU # PD 2D (R0/RC) SQ - SINA SQ B-2
027486,003110: 30,3351 44366 SQRT BDSU # PD 0D COSA-SQRT((R0/RC)SQ-SINA SQ) B-1
027487,003111: 30,3352 77605 DMP # DMP RESULT B-28 MOON,B-30 EARTH
027488,003112: 30,3353 00045 36D # VXSC RESULT B-29 MOON, B-31 EARTH
027489,003113: 30,3354 00041 STORE S22RHO # RHO FOR W INIT. OF UNKNOWN LMK B-28,B-30
027490,003114: 30,3355 77761 VXSC
027491,003115: 30,3356 01072 UM
027492,003116: 30,3357 53352 VSL2 VAD # SCALE B-27 MOON,B-29 EARTH AND ADD RC
027493,003117: 30,3360 01046 CSMPOS
027494,003118: 30,3361 01701 STORE X789
027495,003119: 30,3362 77616 RVQ # B-27 FOR EARTH OR B-29 FOR MOON
027496,003120: 31,2000 SETLOC P22S
027497,003121: 31,2000 BANK
027498,003122:
027499,003123: 31,2340 COUNT* $$/P22
027500,003124: 31,2340 00031 S2231X13 STORE S221X3 # MULT 3X1 BY 1X3,STORE RESULTING 3X3 IN
027501,003125: 31,2341 77131 SSP AXT,2 # S22UMRL- S22UMRL +17D
027502,003126: 31,2342 00052 S2
027503,003127: 31,2343 00002 DEC 2 B-14
027504,003128: 31,2344 00006 DEC 6 B-14
027505,003129: 31,2345 77770 AXT,1
027506,003130: 31,2346 00022 DEC 18 B-14
027507,003131: 31,2347 73775 S2231NXT VLOAD VXSC*
027508,003132: 31,2350 00031 S221X3
![]() |
Page 619 |
027510,003134: 31,2351 77746 S223X1 +6,2
027511,003135: 31,2352 07524 STORE S22UMRL +18D,1
027512,003136: 31,2353 61110 INCR,1 TIX,2
027513,003137: 31,2354 77771 DEC -6 B-14
027514,003138: 31,2355 62347 S2231NXT
027515,003139: 31,2356 77616 RVQ
027516,003140: 31,2357 70740 GETTF LXC,1 DLOAD* # SET MPAC= TF
027517,003141: 31,2360 03750 S22LOC
027518,003142: 31,2361 00001 0,1
027519,003143: 31,2362 77616 RVQ
027520,003144:
027521,003145: # SUBROUTINE TO MODIFY ALT AND STORE LAT TO LAT+5 IN LANDLAT TO LANDLAT+5
027522,003146: # PRIOR TO DISPLAY.
027523,003147:
027524,003148: 31,2363 70545 LLASRD DLOAD SR1
027525,003149: 31,2364 00751 LONG
027526,003150: 31,2365 16351 STODL LANDLONG
027527,003151: 31,2366 00753 ALT
027528,003152: 31,2367 02353 STORE LANDALT
027529,003153: 31,2370 77616 RVQ
027530,003154: # SUBROUTINE TO MODIFY LANDALT AND STORE LANDALT TO LANDALT+5 IN LAT TO
027531,003155: # LAT+5 AFTER LMK DATA LOADED BY ASTRONAUT.
027532,003156:
027533,003157: 31,2371 72545 LLASRDA DLOAD SL1
027534,003158: 31,2372 02351 LANDLONG
027535,003159: 31,2373 14751 STODL LONG
027536,003160: 31,2374 02353 LANDALT
027537,003161: 31,2375 00753 STORE ALT
027538,003162: 31,2376 77616 RVQ
027539,003163: 30,2000 SETLOC P20S6
027540,003164: 30,2000 BANK
027541,003165:
027542,003166: 30,3363 COUNT* $$/P22
027543,003167: 30,3363 40220 9DWTO6DW STQ SETPD
027544,003168: 30,3364 01053 9DWXX
027545,003169: 30,3365 00001 0D
027546,003170: 30,3366 41575 VLOAD PUSH # CLEAR WORKING AREA OF PUSHLIST
027547,003171: 30,3367 15336 HI6ZEROS # INCLUDING P
027548,003172: 30,3370 41406 PUSH PUSH # PD 18D
027549,003173: 30,3371 77731 SSP
027550,003174: 30,3372 00017 9DWJ # J=29 USE 2*29 FOR DP WORDS
027551,003175: 30,3373 00072 DEC 58 B-14
027552,003176: 30,3374 66150 9DWI=J LXA,1 SXA,1 # SET I=J
027553,003177: 30,3375 00016 9DWJ
027554,003178: 30,3376 00012 9DWI
027555,003179: 30,3377 77624 9DWEPCAL CALL
027556,003180: 30,3400 61613 ROWDOT
027557,003181: 30,3401 77750 LXA,1 # P VARIES 0-20 INSTEAD OF 20-0
027558,003182: 30,3402 00010 9DWP
027559,003183: 30,3403 06641 STORE EMATRIX +40D,1
![]() |
Page 620 |
027561,003185: 30,3404 66110 INCR,1 SXA,1
027562,003186: 30,3405 00002 DEC 2 B-14
027563,003187: 30,3406 00010 9DWP
027564,003188: 30,3407 46135 SLOAD BHIZ # TEST I=0
027565,003189: 30,3410 00013 9DWI
027566,003190: 30,3411 61426 9DWTESTJ
027567,003191: 30,3412 77625 DSU # I=I-1
027568,003192: 30,3413 24022 9DWID
027569,003193: 30,3414 00013 STORE 9DWI
027570,003194: 30,3415 46025 DSU BHIZ # TEST I=26
027571,003195: 30,3416 24020 9DW26D
027572,003196: 30,3417 61422 9DWSETI2
027573,003197: 30,3420 77650 GOTO # NEXT E SUB P
027574,003198: 30,3421 61377 9DWEPCAL
027575,003199: 30,3422 52131 9DWSETI2 SSP GOTO # I=2
027576,003200: 30,3423 00013 9DWI
027577,003201: 30,3424 00004 DEC 4 B-14
027578,003202: 30,3425 61377 9DWEPCAL
027579,003203: 30,3426 46135 9DWTESTJ SLOAD BHIZ # TEST J=0
027580,003204: 30,3427 00017 9DWJ
027581,003205: 30,3430 61445 9DWFIG6
027582,003206: 30,3431 77625 DSU
027583,003207: 30,3432 24022 9DWID
027584,003208: 30,3433 00017 STORE 9DWJ # J=J-1
027585,003209: 30,3434 46025 DSU BHIZ # TEST J=26
027586,003210: 30,3435 24020 9DW26D
027587,003211: 30,3436 61441 9DWSETJ2
027588,003212: 30,3437 77650 GOTO
027589,003213: 30,3440 61374 9DWI=J
027590,003214: 30,3441 52131 9DWSETJ2 SSP GOTO # SET J=2
027591,003215: 30,3442 00017 9DWJ
027592,003216: 30,3443 00004 DEC 4 B-14
027593,003217: 30,3444 61374 9DWI=J
027594,003218: 30,3445 77624 9DWFIG6 CALL
027595,003219: 30,3446 22327 GRP2PC
027596,003220: 30,3447 77331 SSP VLOAD # START OF FIGURE 2.4-6
027597,003221: 30,3450 00017 9DWJ # J=29
027598,003222: 30,3451 00072 DEC 58 B-14
027599,003223: 30,3452 15336 HI6ZEROS
027600,003224: 30,3453 00011 STORE 9DWP # P,N,I=0
027601,003225: 30,3454 66370 AXT,1 SSP
027602,003226: 30,3455 00154 DEC 108 B-14 # CLEAR WO TO W54
027603,003227: 30,3456 00051 S1
027604,003228: 30,3457 00006 6
027605,003229: 30,3460 06555 CLEARW54 STORE W +108D,1
027606,003230: 30,3461 77700 TIX,1
027607,003231: 30,3462 61460 CLEARW54
027608,003232: 30,3463 66150 9DWI=JA LXA,1 SXA,1 # I=J
027609,003233: 30,3464 00016 9DWJ
027610,003234: 30,3465 00012 9DWI
![]() |
Page 621 |
027612,003236: 30,3466 77624 CALL
027613,003237: 30,3467 61613 ROWDOT
027614,003238: 30,3470 43750 LXA,1 BDSU*
027615,003239: 30,3471 00010 9DWP
027616,003240: 30,3472 02641 EMATRIX +40D,1
027617,003241: 30,3473 66110 INCR,1 SXA,1 # -(P+1)
027618,003242: 30,3474 00002 2
027619,003243: 30,3475 00010 9DWP
027620,003244: 30,3476 54140 LXC,1 XSU,1 # -(I+N)
027621,003245: 30,3477 00012 9DWI
027622,003246: 30,3500 00014 9DWN
027623,003247: 30,3501 71244 BPL DLOAD # TEST WSQ LTE 0
027624,003248: 30,3502 61504 9DWAAA
027625,003249: 30,3503 15336 HI6ZEROS # W=0
027626,003250: 30,3504 77766 9DWAAA SQRT # W= SQRT(WSQ)
027627,003251: 30,3505 06401 9DWAAB STORE W,1
027628,003252: 30,3506 14001 STODL WORKW
027629,003253: 30,3507 00017 9DWJ # TEST J=0
027630,003254: 30,3510 77630 BHIZ
027631,003255: 30,3511 61577 9DWEXITX # EXIT
027632,003256: 30,3512 46135 TST2I=0 SLOAD BHIZ # TEST I=0
027633,003257: 30,3513 00013 9DWI
027634,003258: 30,3514 61555 9DWN=N+3
027635,003259: 30,3515 77625 DSU
027636,003260: 30,3516 24022 9DWID
027637,003261: 30,3517 00013 STORE 9DWI # I=I-1
027638,003262: 30,3520 46025 DSU BHIZ # TEST I=26
027639,003263: 30,3521 24020 9DW26D
027640,003264: 30,3522 61525 9DWAAC
027641,003265: 30,3523 77650 GOTO
027642,003266: 30,3524 61530 9DWNEXEP
027643,003267: 30,3525 77731 9DWAAC SSP # I=2
027644,003268: 30,3526 00013 9DWI
027645,003269: 30,3527 00004 4
027646,003270: 30,3530 77624 9DWNEXEP CALL
027647,003271: 30,3531 61613 ROWDOT
027648,003272: 30,3532 43750 LXA,1 BDSU* # (EP-ROWI*ROWJ)/W
027649,003273: 30,3533 00010 9DWP
027650,003274: 30,3534 02641 EMATRIX +40D,1
027651,003275: 30,3535 62071 DDV INCR,1 # P=P+1
027652,003276: 30,3536 00001 WORKW
027653,003277: 30,3537 00002 2
027654,003278: 30,3540 70130 SXA,1 LXC,1
027655,003279: 30,3541 00010 9DWP
027656,003280: 30,3542 00012 9DWI
027657,003281: 30,3543 40060 XSU,1 BOV # -(I+N)
027658,003282: 30,3544 00014 9DWN
027659,003283: 30,3545 61550 SETWIN=0
027660,003284: 30,3546 77650 GOTO
027661,003285: 30,3547 61552 9DWSETWX
![]() |
Page 622 |
027663,003287: 30,3550 77745 SETWIN=0 DLOAD # W(I+N)=0
027664,003288: 30,3551 15336 HI6ZEROS
027665,003289: 30,3552 06401 9DWSETWX STORE W,1
027666,003290: 30,3553 77650 GOTO
027667,003291: 30,3554 61512 TST2I=0
027668,003292: 30,3555 62150 9DWN=N+3 LXA,1 INCR,1 # N=N+3
027669,003293: 30,3556 00014 9DWN
027670,003294: 30,3557 00006 6
027671,003295: 30,3560 67330 SXA,1 SLOAD # J=J-1
027672,003296: 30,3561 00014 9DWN
027673,003297: 30,3562 00017 9DWJ
027674,003298: 30,3563 77625 DSU
027675,003299: 30,3564 24022 9DWID
027676,003300: 30,3565 00017 STORE 9DWJ
027677,003301: 30,3566 46025 DSU BHIZ # TEST J=26
027678,003302: 30,3567 24020 9DW26D
027679,003303: 30,3570 61573 SETJ=2A
027680,003304: 30,3571 77650 GOTO
027681,003305: 30,3572 61463 9DWI=JA
027682,003306: 30,3573 52131 SETJ=2A SSP GOTO # J=2
027683,003307: 30,3574 00017 9DWJ
027684,003308: 30,3575 00004 4
027685,003309: 30,3576 61463 9DWI=JA
027686,003310: 30,3577 77624 9DWEXITX CALL
027687,003311: 30,3600 22327 GRP2PC
027688,003312: 30,3601 66370 AXT,1 SSP # CLEAR W6,W7,W8 USED TEMP FOR EMATRIX
027689,003313: 30,3602 00066 DEC 54 B-14
027690,003314: 30,3603 00051 S1
027691,003315: 30,3604 00006 6
027692,003316: 30,3605 77775 VLOAD
027693,003317: 30,3606 15336 HI6ZEROS
027694,003318: 30,3607 06643 9DWEXXXA STORE W +162D,1
027695,003319: 30,3610 52100 TIX,1 GOTO
027696,003320: 30,3611 61607 9DWEXXXA
027697,003321: 30,3612 01053 9DWXX
027698,003322: 30,3613 40131 ROWDOT SSP BOV
027699,003323: 30,3614 00007 XTMP1
027700,003324: 30,3615 00377 OCT 377
027701,003325: 30,3616 61617 +1
027702,003326: 30,3617 71140 LXC,1 LXC,2
027703,003327: 30,3620 00012 9DWI
027704,003328: 30,3621 00016 9DWJ
027705,003329: 30,3622 41545 DLOAD PUSH
027706,003330: 30,3623 15336 HI6ZEROS
027707,003331: 30,3624 56743 ROWDOT1 DLOAD* DMPR*
027708,003332: 30,3625 02401 W,1
027709,003333: 30,3626 75376 W,2
027710,003334: 30,3627 41415 DAD PUSH
027711,003335: 30,3630 62000 BOV INCR,1
027712,003336: 30,3631 61645 ROWDOT3
![]() |
Page 623 |
027714,003338: 30,3632 77771 DEC -6 B-14
027715,003339: 30,3633 67314 INCR,2 SLOAD
027716,003340: 30,3634 77771 DEC -6 B-14
027717,003341: 30,3635 00007 XTMP1
027718,003342: 30,3636 70430 BHIZ SR1
027719,003343: 30,3637 61643 ROWDOT2
027720,003344: 30,3640 00007 STORE XTMP1
027721,003345: 30,3641 77650 GOTO
027722,003346: 30,3642 61624 ROWDOT1
027723,003347: 30,3643 77745 ROWDOT2 DLOAD
027724,003348: 30,3644 77616 RVQ
027725,003349: 30,3645 77614 ROWDOT3 CLRGO
027726,003350: 30,3646 01631 ORBWFLAG
027727,003351: 30,3647 61643 ROWDOT2
027728,003352: 30,3650 WORKW = 0D
027729,003353: 30,3650 XTMP1 = 6D
027730,003354: 30,3650 9DWP = 8D # P
027731,003355: 30,3650 9DWI = 10D # I
027732,003356: 30,3650 9DWN = 12D # N
027733,003357: 30,3650 9DWJ = 14D # J
027734,003358: 30,3650 S223X1 = 18D # 6
027735,003359: 30,3650 S221X3 = 24D # 6
027736,003360: 30,3650 S22D = 30D # 2
027737,003361: 30,3650 S22RHO = 32D # 2
027738,003362: 32,2000 SETLOC P20S9
027739,003363: 32,2000 BANK
027740,003364:
027741,003365: 32,2017 COUNT* $$/P22
027742,003366: 32,2017 00064 00000 9DW26D 2DEC 52 B-14
027743,003367: 32,2021 00002 00000 9DWID 2DEC 2 B-14
027744,003368: 32,2023 10306 36750 SCTVAR 2DEC 1.0 E-6 B+18
027745,003369: 32,2025 00253 31436 IMUVARR 2DEC 0.04 E-6 B+18
027746,003370: 32,2027 26,3325 DEC1B2 = DP1/4TH # 1 B-2
027747,003371: 32,2027 5030 V06N49EE = V06N49
027748,003372: 32,2027 5036 V06N89B = V06N89
027749,003373: 23,2000 SETLOC P20S2
027750,003374: 23,2000 BANK
027751,003375: 23,3143 COUNT* $$/R63
![]() |
Page 624 Empty page. |
027754,003378:
![]() |
Page 625 |
027756,003380:
027757,003381: # SUBROUTINE NAME: V89CALL
027758,003382: # MOD NO: 0 DATE: 8 FEB 1968
027759,003383: # MOD BY: DIGITAL DEVEL GROUP LOG SECTION: P20-P25
027760,003384:
027761,003385: # FUNCTIONAL DESCRIPTION:
027762,003386:
027763,003387: # CALLED BY VERB 89 ENTER DURING P00. PRIO 10 USED. CALCULATES AND
027764,003388: # DISPLAYS FINAL GIMBAL ANGLES TO POINT CSM +X AXIS OR PREFERRED AXIS
027765,003389: # (UNIT(Z)COS55 DEG + UNIT(X)SIN55 DEG) AT LM.
027766,003390:
027767,003391: # 1. KEY IN V 89 E ONLY IF IN PROG 00. IF NOT IN P00, OPERATOR ERROR AND
027768,003392: # EXIT R63, OTHERWISE CONTINUE.
027769,003393:
027770,003394: # 2. IF IN P00, DO IMU STATUS CHECK (R02BOTH). IF IMU ON AND ITS
027771,003395: # ORIENTATION KNOWN TO CGC, CONTINUE.
027772,003396:
027773,003397: # 3. FLASH DISPLAY V 04 N 06. R2 INDICATES WHICH SPACECRAFT AXIS IS TO
027774,003398: # BE POINTED AT LM. INITIAL CHOICE IS PREFERRED AXIS. (R2=1).
027775,003399: # ASTRONAUT CAN CHANGE TO (+X) AXIS (R2 NOT= 1) BY V22 E 2 E. CONTINUE
027776,003400: # AFTER KEYING IN PROCEED.
027777,003401:
027778,003402: # 4. SET PREFERRED ATTITUDE FLAG ACCORDING TO OPTION DESIRED. SET FLAG
027779,003403: # FOR PREFERRED AXIS. RESET FLAG FOR X AXIS.
027780,003404:
027781,003405: # 5. CURRENT TIME IS STORED AND R63COMP IS CALLED
027782,003406:
027783,003407: # R63COMP JOB:
027784,003408: #
027785,003409: # UPDATES CSM AND LM STATE VECTORS USING CONIC EQUATIONS
027786,003410:
027787,003411: # CALCULATES BOTH PREFERRED AND X AXIS TRACKING ATT FROM 3SM TO LM.
027788,003412:
027789,003413: # DESIRED GIMBAL ANGLES AS INDICATED BY PREFERRED ATTITUDE FLAG
027790,003414: # ARE STORED FOR LATER R60CSM CALL.
027791,003415:
027792,003416: # 6. FLASH DISPLAY V 06 N18 AND AWAIT RESPONSE.
027793,003417:
027794,003418: # 7. RECYCLE- RETURN TO STEP 5.
027795,003419: # TERMINATE- EXIT R63 ROUTINE
027796,003420: # PROCEED- RESET 3AXISFLG AND CALL R60CSM FOR ATTITUDE MANEUVER.
027797,003421:
027798,003422:
027799,003423: # CALLING SEQUENCE: V 89 E
027800,003424:
027801,003425: # SUBROUTINES CALLED: CHKPOOH, R02BOTH, GOXDSPF, R63COMP, R60CSM
027802,003426:
027803,003427: # ALARMS 1. OPERATOR ERROR IF NOT IN P00
027804,003428: # 2. PROGRAM ALARM IF IMU IS OFF
027805,003429: # 3. PROGRAM ALARM IF IMU ORIENTATION IS UNKNOWN
![]() |
Page 626 |
027807,003431:
027808,003432: # ERASABLE INITIALIZATION REQUIRED: NONE
027809,003433:
027810,003434: # DEBRIS: OPTION1, OPTION1+1, PRFTRKAT(PREF ATT FLAG),P21TIME, 3AXISFLG
027811,003435:
027812,003436: 23,3143 00000 13560 DP1MIN 2DEC 6000 B-28
027813,003437:
027814,003438: 23,3145 E4,1706 EBANK= R63TIME
027815,003439: 31,2000 SETLOC V89TAG
027816,003440: 31,2000 BANK
027817,003441: 31,2377 COUNT* $$/R63
027818,003442:
027819,003443:
027820,003444: 31,2377 04636 V89CALL TC BANKCALL # IMU STATUS CHECK. RETURNS IF ORIENTATION
027821,003445: 31,2400 03731 CADR R02BOTH # KNOWN. ALARMS IF NOT.
027822,003446: 31,2401 06006 TC INTPRET
027823,003447: 31,2402 71214 CLEAR DLOAD
027824,003448: 31,2403 05667 AZIMFLAG
027825,003449: 31,2404 15336 ZEROVECS
027826,003450: 31,2405 03740 STORE UTPIT
027827,003451: 31,2406 03742 STORE UTYAW
027828,003452: 31,2407 77776 EXIT
027829,003453:
027830,003454: 31,2410 32443 CAF VB06N78
027831,003455: 31,2411 04636 TC BANKCALL
027832,003456: 31,2412 21101 CADR GOFLASHR
027833,003457: 31,2413 05524 TC ENDEXT
027834,003458: 31,2414 12421 TCF V89RECL
027835,003459: 31,2415 02410 TC -5
027836,003460:
027837,003461: 31,2416 34766 CAF BIT3
027838,003462: 31,2417 05516 TC BLANKET
027839,003463: 31,2420 05205 TC ENDOFJOB
027840,003464:
027841,003465: 31,2421 06006 V89RECL TC INTPRET
027842,003466: 31,2422 43234 RTB DAD
027843,003467: 31,2423 51751 LOADTIME # READ PRESENT TIME
027844,003468: 31,2424 07144 DP1MIN # INTEGRATE TO 1 MIN FROM NOW
027845,003469: 31,2425 36307 STCALL R63TIME # STORE TIME FOR CALL TO R63COMP. R63COMP
027846,003470: 31,2426 73171 R63COMP # LEAVES DESIRED GIM ANGS IN THETAD,LOS IN
027847,003471: 31,2427 77776 EXIT # POINTVSM, AND SELECTED AXIS IN SCAXIS.
027848,003472: 31,2430 35031 CAF VB06N18 # V 06 N 18
027849,003473: 31,2431 04636 TC BANKCALL # NOUN 18 REFERS TO THE DESIRED GIMBAL
027850,003474: 31,2432 20743 CADR GOFLASH
027851,003475: 31,2433 05524 TC ENDEXT # TERMINATE
027852,003476: 31,2434 02436 TC +2 # PROCEED
027853,003477: 31,2435 02421 TC V89RECL # RECYCLE
027854,003478: 31,2436 05561 TC DOWNFLAG # RESET 3 AXIS FLAG
![]() |
Page 627 |
027856,003480: 31,2437 00124 ADRES 3AXISFLG # RESET BIT 6 FLAG 5
027857,003481: 31,2440 04636 TC BANKCALL # PERFORMS CSM MANEUVER TO ALIGN SELECTED
027858,003482: 31,2441 56074 CADR R60CSM # SPACECRAFT AXIS TO LOS.
027859,003483: 31,2442 15524 TCF ENDEXT
027860,003484:
027861,003485:
027862,003486: 31,2443 01516 VB06N78 VN 0678
027863,003487:
027864,003488: 31,2444 5031 VB06N18 = V06N18
027865,003489:
027866,003490: 31,2444 35,3171 R63COMP EQUALS R63
027867,003491:
![]() |
Page 628 |
027869,003493:
027870,003494: # PROGRAM NAME- P23 CISLUNAR MIDCOURSE NAVIGATION
027871,003495: # MOD NO
027872,003496: # MOD BY- TOM KNATT
027873,003497: # FUNCTIONAL DESCRIPTION- DO MIDCOURSE NAVIGATION BY INCORPORATION OF STAR
027874,003498: # /EARTH AND STAR/MOON OPTICAL MEASUREMENTS.
027875,003499: # CALLING SEQUENCE- ASTRONAUT OPERATED
027876,003500: # SUBROUTINES CALLED-R52,R53,R57,R60,ORBITAL INTEGRATION (INTEGRV)
027877,003501: # INCORP1,INCORP2,LALOTORV,LUNPOS ,AND DISPLAY INTERFACE ROUTINES.
027878,003502: # NORMAL EXIT MODES- VIA ROO
027879,003503: # ALARMS- NONE
027880,003504: # ABORT MODES- NONE
027881,003505: # ERASABLE INITIALIZATION REQUIRED- PAD-LOADED ERASABLES,ORBWFLAG RESET,
027882,003506: # REFSMFLG=0 IF IMU OFF AND REFSMFLG=1 IF IMU ON
027883,003507: # INPUTS BY USER REQUIRED- STAR NUMBER,LANDMARK LAT,LONG/2,ALT
027884,003508: # IF LANDMARK IS USED, NEAR OR FAR HORIZON IF HORIZON IS USED, AND
027885,003509: # BODY TO BE MARKED ON (EARTH OR MOON). SEE GSOP CHAPT 4.
027886,003510: # OUTPUT-UPDATED CMC STATE VECTOR. VECTOR FROM S/C TO HORIZON OR LANDMARK
027887,003511: # IN POINTAXS. POINTAXS CAN BE USED TO GENERATE THIS VECTOR APART FROM
027888,003512: # P23 IF DESIRED.
027889,003513: # DEBRIS-NO USABLE DEBRIS IS GENERATED. RENDWFLG IS RESET FOR P20 UPON
027890,003514: # ENTRY INTO P23. RUPTREGS AND ERASABLES USED BY DISPLAYS ARE DEBRIS
027891,003515: 31,2000 SETLOC RT23
027892,003516: 31,2000 BANK
027893,003517: 31,2444 COUNT* $$/P23
027894,003518: 31,2444 E7,1722 EBANK= MRKBUF1
027895,003519: 31,2444 05561 P23 TC DOWNFLAG
027896,003520: 31,2445 00010 ADRES RNDVZFLG
027897,003521:
027898,003522: 31,2446 05362 TC 2PHSCHNG
027899,003523: 31,2447 00004 OCT 00004 # LEAVE GROUP 4
027900,003524: 31,2450 00012 OCT 00012 # ENTER GROUP 2
027901,003525: 31,2451 35052 CAF PRIO13
027902,003526: 31,2452 55262 TS PHSPRDT2
027903,003527: 31,2453 05561 TC DOWNFLAG
027904,003528: 31,2454 00131 ADRES RENDWFLG
027905,003529: 31,2455 06006 P23.00 TC INTPRET
027906,003530: 31,2456 45014 BON CALL
027907,003531: 31,2457 01702 REFSMFLG # SET NOW AS INPUT, NORMALLY EXTERNAL CONT
027908,003532: 31,2460 62466 P23.05 # WHEN ALIGNED,PERFORM MEASUREMENT
027909,003533: 31,2461 76167 R57 # DO OPTICS CALIBRATION IF IMU NOT ALIGNED
027910,003534: 31,2462 77624 CALL
027911,003535: 31,2463 31571 R53
027912,003536: 31,2464 77650 GOTO
027913,003537: 31,2465 62567 P23.60
027914,003538: 31,2466 45014 P23.05 CLEAR CALL
027915,003539: 31,2467 04665 SAVECFLG
027916,003540: 31,2470 76167 R57 # PERFORM MARK CALIBRATION
027917,003541: 31,2471 45135 P23.06 SLOAD CALL
027918,003542: 31,2472 23513 V05N70
027919,003543: 31,2473 63355 P23N7071
![]() |
Page 629 |
027921,003545: 31,2474 77634 V94ENTER RTB
027922,003546: 31,2475 51751 LOADTIME # READ CLOCK
027923,003547: 31,2476 35062 STCALL MARKTIME
027924,003548: 31,2477 63002 POINTAXS # RETURN LOS IN MPAC
027925,003549: 31,2500 03642 STORE UCLSTAR # TEMP
027926,003550: 31,2501 77776 EXIT
027927,003551: 31,2502 33514 CAF V50N25P
027928,003552: 31,2503 04636 TC BANKCALL
027929,003553: 31,2504 21067 CADR GOPERF1 # GOPERF1 BLANKS OUT R2 AND R3.
027930,003554: 31,2505 04103 TC GOTOPOOH
027931,003555: 31,2506 02510 TC +2 # PRO DO 3AXIS MANEUVER
027932,003556: 31,2507 02552 TC DOVECPT # ENTER DO VECPOINT MANEUVER
027933,003557: 31,2510 06006 TC INTPRET
027934,003558: 31,2511 53575 VLOAD UNIT
027935,003559: 31,2512 03642 UCLSTAR
027936,003560: 31,2513 36706 STCALL ZSM # UCL
027937,003561: 31,2514 62614 R23.55 # COMPUTE STAR VECTOR AND LEAVE IN MPAC
027938,003562:
027939,003563: 31,2515 53435 OCCLCOMP VXV UNIT # COMPUTE CONSTRAINED BRSB MATRIX(SHAFT
027940,003564: 31,2516 02706 ZSM # =180)
027941,003565: 31,2517 02700 STORE YSM # UNIT(US* X UCL)
027942,003566: 31,2520 53435 VXV UNIT
027943,003567: 31,2521 02706 ZSM
027944,003568: 31,2522 02672 STORE XSM # UNIT(UNIT(US* X UCL) X UCL)
027945,003569: 31,2523 76131 SSP AXT,1
027946,003570: 31,2524 00051 S1
027947,003571: 31,2525 00006 6
027948,003572: 31,2526 00022 18D
027949,003573: 31,2527 61373 NEXTVEC1 VLOAD* VXM # COMPUTE BRNB = (SBNB)(BRSB)
027950,003574: 31,2530 06322 NB1NB2 +18D,1
027951,003575: 31,2531 02672 XSM
027952,003576: 31,2532 77656 UNIT
027953,003577: 31,2533 06736 STORE XNB +18D,1 # STORE IN XNB FOR CALCGA
027954,003578: 31,2534 76100 TIX,1 AXT,1
027955,003579: 31,2535 62527 NEXTVEC1
027956,003580: 31,2536 00022 18D
027957,003581: 31,2537 77773 NEXTVEC2 VLOAD* # LOAD REFSMMAT INTO XSM FOR CALCGA
027958,003582: 31,2540 01756 REFSMMAT +18D,1
027959,003583: 31,2541 06714 STORE XSM +18D,1
027960,003584: 31,2542 45100 TIX,1 CALL
027961,003585: 31,2543 62537 NEXTVEC2
027962,003586: 31,2544 47344 CALCGA # COMPUTE DESIRED CDUS
027963,003587: 31,2545 45014 SET CALL
027964,003588: 31,2546 02471 3AXISFLG
027965,003589: 31,2547 62765 DOR60B
027966,003590: 31,2550 77650 GOTO
027967,003591: 31,2551 62556 P23.57A
027968,003592: 31,2552 06006 DOVECPT TC INTPRET
027969,003593: 31,2553 45175 VLOAD CALL
027970,003594: 31,2554 03642 UCLSTAR
![]() |
Page 630 |
027972,003596: 31,2555 62756 DOR60
027973,003597: 31,2556 77624 P23.57A CALL
027974,003598: 31,2557 22327 GRP2PC
027975,003599: 31,2560 43014 P23.57 CLEAR SET
027976,003600: 31,2561 00666 TARG2FLG
027977,003601: 31,2562 04464 V94FLAG
027978,003602: 31,2563 77624 CALL
027979,003603: 31,2564 31005 R52
027980,003604: 31,2565 77614 CLEAR
027981,003605: 31,2566 04664 V94FLAG
027982,003606: 31,2567 77776 P23.60 EXIT
027983,003607: 31,2570 00004 INHINT
027984,003608: 31,2571 00006 EXTEND
027985,003609: 31,2572 31723 DCA MRKBUF1
027986,003610: 31,2573 53062 DXCH MARKTIME
027987,003611: 31,2574 31727 CA MRKBUF1 +5
027988,003612: 31,2575 57754 XCH TRUNION
027989,003613: 31,2576 00003 RELINT
027990,003614: 31,2577 36211 CAF SIX
027991,003615: 31,2600 05607 TC GENTRAN
027992,003616: 31,2601 01722 ADRES MRKBUF1
027993,003617: 31,2602 01674 ADRES MARKDOWN
027994,003618: 31,2603 06006 TC INTPRET
027995,003619: 31,2604 45014 SET CALL
027996,003620: 31,2605 04465 SAVECFLG
027997,003621: 31,2606 22327 GRP2PC
027998,003622: 31,2607 45135 SLOAD CALL
027999,003623: 31,2610 23514 V05N71
028000,003624: 31,2611 63355 P23N7071
028001,003625: 31,2612 77624 P23.85 CALL
028002,003626: 31,2613 63002 POINTAXS
028003,003627: 31,2614 63256 R23.55 UNIT PDVL # RCLL IS IN MPAC
028004,003628: 31,2615 00043 34D # RCLL * RCLL
028005,003629: 31,2616 24037 STOVL 30D # PUSH 30-31 =RCLL*RCLL 32-33=ABVAL RCLL
028006,003630: 31,2617 03634 VZC
028007,003631: 31,2620 54361 VXSC VSR
028008,003632: 31,2621 23475 ONE/C
028009,003633: 31,2622 20620 15D
028010,003634: 31,2623 77655 VAD # PUSH UP RCLL(UNIT)
028011,003635: 31,2624 77656 UNIT
028012,003636: 31,2625 27642 STOVL UCLSTAR
028013,003637: 31,2626 03634 VZC
028014,003638: 31,2627 52342 VSR2 VSU
028015,003639: 31,2630 02141 VESO
028016,003640: 31,2631 54361 VXSC VSR
028017,003641: 31,2632 23475 ONE/C
028018,003642: 31,2633 20616 13D
028019,003643: 31,2634 53455 VAD UNIT
028020,003644: 31,2635 02617 US
028021,003645: 31,2636 77614 BOFF
![]() |
Page 631 |
028023,003647: 31,2637 04745 SAVECFLG
028024,003648: 31,2640 62515 OCCLCOMP
028025,003649: 31,2641 03650 STORE USSTAR
028026,003650: 31,2642 72441 DOT SL1
028027,003651: 31,2643 03642 UCLSTAR
028028,003652: 31,2644 74315 PDVL VXSC # PD 0,1 = USSTAR(DOT)UCLSTAR
028029,003653: 31,2645 03642 UCLSTAR
028030,003654: 31,2646 51372 VSL1 BVSU
028031,003655: 31,2647 03650 USSTAR
028032,003656: 31,2650 77656 UNIT
028033,003657: 31,2651 27502 STOVL BVECTOR # USSTAR - COSQ(UCLSTAR
028034,003658: 31,2652 15336 ZEROVECS
028035,003659: 31,2653 03510 STORE BVECTOR +6
028036,003660: 31,2654 17516 STODL BVECTOR +12D
028037,003661: 31,2655 00001 0
028038,003662: 31,2656 57526 ACOS DCOMP
028039,003663: 31,2657 77525 PDDL EXIT
028040,003664: 31,2660 15336 ZEROVECS
028041,003665: 31,2661 33505 CA VARSUBL # PUT FIXED INTO ERASABLE FOR MSU
028042,003666: 31,2662 54001 TS L # INSTRUCTION COMING UP
028043,003667: 31,2663 31754 CA TRUNION # REQUIRED TO CHANGE 2:S COMPLEMENT
028044,003668: 31,2664 00006 EXTEND # TRUNION TO 1:S COMPLEMENT
028045,003669: 31,2665 20001 MSU L # TRUNION (2'S)-00000 CONVERTS TRUNION TO
028046,003670: 31,2666 54154 TS MPAC # 1:S. VARSUBL=00000
028047,003671: 31,2667 06006 TC INTPRET
028048,003672: 31,2670 67206 PUSH SLOAD # PUSH IS DP. WHEN BDSU IS EXECUTED, 2ND
028049,003673: 31,2671 01025 TRUNBIAS # HALF OF PUSHLIST IS GUARANTEED ZERO FROM
028050,003674: 31,2672 77621 BDSU # DLOAD ZEROVECS ABOVE
028051,003675: 31,2673 43242 SR3 DAD
028052,003676: 31,2674 41215 DAD DMP
028053,003677: 31,2675 23505 TRUN19
028054,003678: 31,2676 00041 32D
028055,003679: 31,2677 52405 DMP SL3
028056,003680: 31,2700 07016 PI/4.0
028057,003681: 31,2701 62414 BOFF SL2
028058,003682: 31,2702 04343 CMOONFLG
028059,003683: 31,2703 62704 R23.51
028060,003684: 31,2704 17524 R23.51 STODL DELTAQ
028061,003685: 31,2705 00037 30D # RCLL * RCLL
028062,003686: 31,2706 47005 DMP RTB
028063,003687: 31,2707 23511 TRUNVAR
028064,003688: 31,2710 45657 TPMODE
028065,003689: 31,2711 43171 TAD CLEAR
028066,003690: 31,2712 23506 VARSUBL
028067,003691: 31,2713 02666 DMENFLG
028068,003692: 31,2714 37526 STCALL VARIANCE
028069,003693: 31,2715 75260 INCORP1
028070,003694: 31,2716 77624 CALL
028071,003695: 31,2717 22327 GRP2PC
028072,003696: 31,2720 51575 VLOAD ABVAL
![]() |
Page 632 |
028074,003698: 31,2721 01122 DELTAX +6
028075,003699: 31,2722 60414 BOF SR2 # DISPLAY IS 2-27 IF IN LUNAR SPHERE
028076,003700: 31,2723 04343 CMOONFLG
028077,003701: 31,2724 62725 R23.52
028078,003702: 31,2725 27504 R23.52 STOVL N49DISP +2
028079,003703: 31,2726 01114 DELTAX
028080,003704: 31,2727 77646 ABVAL
028081,003705: 31,2730 60414 BOF SR2
028082,003706: 31,2731 04343 CMOONFLG
028083,003707: 31,2732 62733 R23.53
028084,003708: 31,2733 03502 R23.53 STORE N49DISP
028085,003709: 31,2734 77776 EXIT
028086,003710: 31,2735 35030 R23.6 CAF V06N49
028087,003711: 31,2736 04636 TC BANKCALL
028088,003712: 31,2737 21101 CADR GOFLASHR
028089,003713: 31,2740 04103 TC GOTOPOOH
028090,003714: 31,2741 02750 TC R23.7 # INCORPORATE DATA
028091,003715: 31,2742 04103 TC GOTOPOOH
028092,003716: 31,2743 34766 CAF BIT3 # BLANK OUT R3
028093,003717: 31,2744 05516 TC BLANKET
028094,003718: 31,2745 05402 TC PHASCHNG
028095,003719: 31,2746 00012 OCT 00012
028096,003720: 31,2747 05205 TC ENDOFJOB
028097,003721: 31,2750 06006 R23.7 TC INTPRET
028098,003722: 31,2751 45014 R23.8 SET CALL
028099,003723: 31,2752 00467 VEHUPFLG
028100,003724: 31,2753 75472 INCORP2
028101,003725: 31,2754 77776 EXIT
028102,003726: 31,2755 04103 R23.END TC GOTOPOOH
028103,003727: 31,2756 53521 DOR60 MXV UNIT
028104,003728: 31,2757 01734 REFSMMAT
028105,003729: 31,2760 27357 STOVL POINTVSM
028106,003730: 31,2761 23517 JCAXIS
028107,003731: 31,2762 03351 STORE SCAXIS
028108,003732: 31,2763 77614 CLEAR
028109,003733: 31,2764 02671 3AXISFLG # SET UP FOR VECPOINT IN R60
028110,003734: 31,2765 77420 DOR60B STQ EXIT
028111,003735: 31,2766 02657 SRTEMP
028112,003736: 31,2767 33524 CAF R60ADRS
028113,003737: 31,2770 54373 TS TEMPFLSH
028114,003738: 31,2771 05402 TC PHASCHNG
028115,003739: 31,2772 00012 OCT 00012
028116,003740: 31,2773 04611 R60CALL TC E6SETTER
028117,003741: 31,2774 04636 TC BANKCALL
028118,003742: 31,2775 56074 CADR R60CSM
028119,003743: 31,2776 04606 +3 TC E7SETTER
028120,003744: 31,2777 06006 TC INTPRET
028121,003745: 31,3000 77650 GOTO
028122,003746: 31,3001 02657 SRTEMP
![]() |
Page 633 |
028124,003748:
028125,003749: # POINTAXIS SUBROUTINE
028126,003750:
028127,003751: 31,3002 77620 POINTAXS STQ
028128,003752: 31,3003 01006 POINTEX
028129,003753: 31,3004 71214 R23.05 BON DLOAD
028130,003754: 31,3005 01711 ORBWFLAG
028131,003755: 31,3006 63012 R23.1
028132,003756: 31,3007 03001 WMIDPOS
028133,003757: 31,3010 34001 STCALL 0
028134,003758: 31,3011 56612 INITIALW # INITIALIZE W-MATRIX FIRST PASS IN P23
028135,003759: 31,3012 77624 R23.1 CALL
028136,003760: 31,3013 56462 SETINTG # SETUP FOR CSM INTEGRATION
028137,003761: 31,3014 43014 BOFSET SET
028138,003762: 31,3015 01451 ORBWFLAG
028139,003763: 31,3016 63020 R23.2
028140,003764: 31,3017 01476 DIM0FLAG
028141,003765: 31,3020 77624 R23.2 CALL
028142,003766: 31,3021 27236 INTEGRV # INTEGRATE CSM STATE VEC. TO MARKTIME
028143,003767: 31,3022 77776 EXIT
028144,003768: 31,3023 05402 TC PHASCHNG
028145,003769: 31,3024 04022 OCT 04022
028146,003770: 31,3025 06006 TC INTPRET
028147,003771: 31,3026 77014 RECT.1 BOFF AXT,2 # SR TO SET ZMEASURE = 0 IF MEASUREMENT
028148,003772: 31,3027 04343 CMOONFLG # PLANET AND PRIMARY PLANET ARE THE SAME
028149,003773: 31,3030 63040 RECT.3 # OTHERWISE = 1
028150,003774: 31,3031 77775 DEC -2 B-14
028151,003775: 31,3032 77614 BOFF # VEC. AND SCALE B29 AND B7
028152,003776: 31,3033 01743 LUNAFLAG
028153,003777: 31,3034 63044 RECT.4
028154,003778: 31,3035 52014 RECT.2 CLEAR GOTO
028155,003779: 31,3036 00265 ZMEASURE
028156,003780: 31,3037 63046 RECT.5
028157,003781: 31,3040 43174 RECT.3 AXT,2 BOFF
028158,003782: 31,3041 00000 0
028159,003783: 31,3042 01743 LUNAFLAG
028160,003784: 31,3043 63035 RECT.2
028161,003785: 31,3044 77614 RECT.4 SET
028162,003786: 31,3045 00065 ZMEASURE
028163,003787: 31,3046 44575 RECT.5 VLOAD VSR7
028164,003788: 31,3047 01573 DELTACSM # SCALED B22 OR B18
028165,003789: 31,3050 53257 VSR* VAD
028166,003790: 31,3051 57176 0,2
028167,003791: 31,3052 01607 RCVCSM # SCALED B29 OR B27
028168,003792: 31,3053 77657 VSR*
028169,003793: 31,3054 57176 0,2
028170,003794: 31,3055 27626 STOVL RZC # NOW SCALED B29
028171,003795: 31,3056 01601 NUVCSM # SCALED B3 OR B-1
028172,003796: 31,3057 53702 VSR4 VSR*
028173,003797: 31,3060 57176 0,2
028174,003798: 31,3061 53655 VAD VSR*
![]() |
Page 634 |
028176,003800: 31,3062 01615 VCVCSM # SCALED B7 OR B5
028177,003801: 31,3063 57176 0,2
028178,003802: 31,3064 03634 STORE VZC # NOW SCALED B7
028179,003803: 31,3065 77614 BOFF
028180,003804: 31,3066 00345 ZMEASURE # IN SPHERE OF INFLUENCE OF PRIMARY BODY
028181,003805: 31,3067 63101 R23.3
028182,003806: 31,3070 45145 DLOAD CALL
028183,003807: 31,3071 01062 MARKTIME
028184,003808: 31,3072 54141 LUNPOS
028185,003809: 31,3073 57414 BON VCOMP
028186,003810: 31,3074 04303 CMOONFLG
028187,003811: 31,3075 63076 +1
028188,003812: 31,3076 77655 VAD
028189,003813: 31,3077 03626 RZC
028190,003814: 31,3100 03626 STORE RZC
028191,003815: 31,3101 67201 R23.3 SETPD SLOAD
028192,003816: 31,3102 00001 0
028193,003817: 31,3103 03752 LANDMARK # IF LANDMARK = 0, USE HORIZ SUBR
028194,003818: 31,3104 43030 BHIZ SET
028195,003819: 31,3105 63114 R23.4
028196,003820: 31,3106 00462 ERADFLAG
028197,003821: 31,3107 45145 DLOAD CALL
028198,003822: 31,3110 01062 MARKTIME
028199,003823: 31,3111 26524 LALOTORV
028200,003824: 31,3112 77650 GOTO
028201,003825: 31,3113 63337 R23.5
028202,003826: 31,3114 65345 R23.4 DLOAD PDDL # PUSH 0-1 = -AYO SCALED B0
028203,003827: 31,3115 01712 -AYO
028204,003828: 31,3116 01714 AXO
028205,003829: 31,3117 63325 PDDL PDVL # PUSH 2-3 = +AX SCALED B0
028206,003830: 31,3120 15344 DPPOSMAX
028207,003831: 31,3121 02617 US
028208,003832: 31,3122 53435 VXV UNIT
028209,003833: 31,3123 03626 RZC
028210,003834: 31,3124 27620 STOVL UBAR2
028211,003835: 31,3125 53435 VXV UNIT # PUSH UP
028212,003836: 31,3126 03620 UBAR2
028213,003837: 31,3127 27604 STOVL UBAR0
028214,003838: 31,3130 03620 UBAR2
028215,003839: 31,3131 53435 VXV UNIT
028216,003840: 31,3132 03604 UBAR0
028217,003841: 31,3133 03612 STORE UBAR1
028218,003842: 31,3134 50214 BON DOT
028219,003843: 31,3135 01703 LUNAFLAG
028220,003844: 31,3136 63324 HORIZ.6
028221,003845: 31,3137 00001 0 # UBAR1 DOT UZ
028222,003846: 31,3140 26156 STOVL ALPHAV +4
028223,003847: 31,3141 03626 RZC
028224,003848: 31,3142 41246 ABVAL DMP
028225,003849: 31,3143 03376 HORISLP
![]() |
Page 635 |
028227,003851: 31,3144 43276 DCOMP DAD
028228,003852: 31,3145 01346 HORIZALT
028229,003853: 31,3146 34772 STCALL RATETEMP
028230,003854: 31,3147 26570 GETERAD
028231,003855: 31,3150 65215 DAD PDDL # MPAC HAS RADIUS OF FISHER SLLIPSOID
028232,003856: 31,3151 00772 RATETEMP # PUSH 0-1 = BH SCALED B29
028233,003857: 31,3152 23477 AEARTH
028234,003858: 31,3153 41415 DAD PUSH # PUSH 2-3 = AH B29
028235,003859: 31,3154 00772 RATETEMP
028236,003860: 31,3155 64375 HORIZ.1 VLOAD MXV
028237,003861: 31,3156 03626 RZC # B29
028238,003862: 31,3157 03604 UBAR0 # B1
028239,003863: 31,3160 63372 VSL1 PDVL # PUSH 4-9 = RH(XH,YH,ZH) B29
028240,003864: 31,3161 02617 US
028241,003865: 31,3162 76521 MXV VSL1
028242,003866: 31,3163 03604 UBAR0
028243,003867: 31,3164 77725 PDDL # PUSH 10-15 = USH B1
028244,003868: 31,3165 00003 2 # AH
028245,003869: 31,3166 14043 STODL 34D
028246,003870: 31,3167 00005 4 # XH
028247,003871: 31,3170 77624 CALL
028248,003872: 31,3171 63344 DIVIDE
028249,003873: 31,3172 63457 SR* DSQ
028250,003874: 31,3173 20611 8D,1 # NOW SCALED B9
028251,003875: 31,3174 14037 STODL 30D
028252,003876: 31,3175 00001 0
028253,003877: 31,3176 14043 STODL 34D
028254,003878: 31,3177 00007 6 # YH
028255,003879: 31,3200 77624 CALL
028256,003880: 31,3201 63344 DIVIDE
028257,003881: 31,3202 63457 SR* DSQ
028258,003882: 31,3203 20611 8D,1 # B9
028259,003883: 31,3204 41415 DAD PUSH # PUSH 16-17 =A SCALED B18
028260,003884: 31,3205 00037 30D
028261,003885: 31,3206 75425 DSU SQRT
028262,003886: 31,3207 23503 1.0B18
028263,003887: 31,3210 77725 PDDL # PUSH 18-19 SQRT(A-1) B9
028264,003888: 31,3211 00021 16D
028265,003889: 31,3212 14043 STODL 34D
028266,003890: 31,3213 00005 4 # XH
028267,003891: 31,3214 77624 CALL
028268,003892: 31,3215 63344 DIVIDE
028269,003893: 31,3216 65257 SR* PDDL
028270,003894: 31,3217 20622 17D,1 # PUSH 20-21 = XH/A B29
028271,003895: 31,3220 00007 6 # YH
028272,003896: 31,3221 77624 CALL
028273,003897: 31,3222 63344 DIVIDE
028274,003898: 31,3223 65257 SR* PDDL
028275,003899: 31,3224 20622 17D,1 # PUSH 22-23 = YH/A B29
028276,003900: 31,3225 00023 18D # SQRT(A-1)
![]() |
Page 636 |
028278,003902: 31,3226 77624 CALL
028279,003903: 31,3227 63344 DIVIDE
028280,003904: 31,3230 77657 SR*
028281,003905: 31,3231 20611 8D,1
028282,003906: 31,3232 14035 STODL 28D
028283,003907: 31,3233 00001 0 # BH
028284,003908: 31,3234 14043 STODL 34D
028285,003909: 31,3235 00003 2 # AH
028286,003910: 31,3236 77624 CALL
028287,003911: 31,3237 63344 DIVIDE
028288,003912: 31,3240 41257 SR* DMP # AH/BH SCALED B1
028289,003913: 31,3241 20601 0,1
028290,003914: 31,3242 00035 28D # SQRT(A-1)/A
028291,003915: 31,3243 72405 DMP SL1
028292,003916: 31,3244 00007 6 # YH
028293,003917: 31,3245 77725 PDDL
028294,003918: 31,3246 00003 2 # AH
028295,003919: 31,3247 14043 STODL 34D
028296,003920: 31,3250 00001 0
028297,003921: 31,3251 77624 CALL
028298,003922: 31,3252 63344 DIVIDE
028299,003923: 31,3253 41257 SR* DMP # BH/AH SCALED B1
028300,003924: 31,3254 20601 0,1
028301,003925: 31,3255 00035 28D # SQRT (A-1)/A
028302,003926: 31,3256 72405 DMP SL1
028303,003927: 31,3257 00005 4 # XH
028304,003928: 31,3260 43325 PDDL DAD
028305,003929: 31,3261 00025 20D # XH/A
028306,003930: 31,3262 00031 24D # ALPHA
028307,003931: 31,3263 45325 PDDL DSU
028308,003932: 31,3264 00027 22D # YH/A
028309,003933: 31,3265 00033 26D # BETA
028310,003934: 31,3266 40206 PUSH SETPD
028311,003935: 31,3267 00021 16D
028312,003936: 31,3270 45345 DLOAD DSU
028313,003937: 31,3271 00025 20D # XH/A
028314,003938: 31,3272 00031 24D # ALPHA
028315,003939: 31,3273 43325 PDDL DAD
028316,003940: 31,3274 00027 22D # YH/A
028317,003941: 31,3275 00033 26D # BETA
028318,003942: 31,3276 41525 PDDL PUSH
028319,003943: 31,3277 15336 ZEROVECS
028320,003944: 31,3300 24041 STOVL 32D # ZERO THIRD COMP. OF T-0 VECTOR
028321,003945: 31,3301 00035 28D
028322,003946: 31,3302 53451 VSU UNIT
028323,003947: 31,3303 00005 4 # RH VECTOR
028324,003948: 31,3304 63241 DOT PDVL # PUSH 22-23 A-SUB-ZERO
028325,003949: 31,3305 00013 10D # USH VECTOR
028326,003950: 31,3306 00021 16D # T1 VECTOR
028327,003951: 31,3307 53451 VSU UNIT
![]() |
Page 637 |
028329,003953: 31,3310 00005 4 # RH VECTOR
028330,003954: 31,3311 41441 DOT PUSH # PUSH 24-25 A-SUB-ONE
028331,003955: 31,3312 00013 10D
028332,003956: 31,3313 50021 BDSU BMN
028333,003957: 31,3314 00027 22D # A-SUB-ZERO
028334,003958: 31,3315 63330 HORIZ.3
028335,003959: 31,3316 77614 BON
028336,003960: 31,3317 00304 NORFHOR
028337,003961: 31,3320 63333 HORIZ.4
028338,003962: 31,3321 52175 HORIZ.2 VLOAD GOTO
028339,003963: 31,3322 00035 28D # T-0 VECTOR
028340,003964: 31,3323 63335 HORIZ.5
028341,003965: 31,3324 41545 HORIZ.6 DLOAD PUSH
028342,003966: 31,3325 23501 RADMOON
028343,003967: 31,3326 52006 PUSH GOTO
028344,003968: 31,3327 63155 HORIZ.1
028345,003969: 31,3330 77614 HORIZ.3 BON
028346,003970: 31,3331 00304 NORFHOR
028347,003971: 31,3332 63321 HORIZ.2
028348,003972: 31,3333 77775 HORIZ.4 VLOAD
028349,003973: 31,3334 00021 16D # T1 VECTOR
028350,003974: 31,3335 76505 HORIZ.5 VXM VSL1
028351,003975: 31,3336 03604 UBAR0
028352,003976: 31,3337 40251 R23.5 VSU SETPD
028353,003977: 31,3340 03626 RZC
028354,003978: 31,3341 00001 0
028355,003979: 31,3342 77650 GOTO
028356,003980: 31,3343 01006 POINTEX
028357,003981: 31,3344 70501 DIVIDE NORM SR1
028358,003982: 31,3345 00047 X1
028359,003983: 31,3346 14045 STODL 36D
028360,003984: 31,3347 00043 34D
028361,003985: 31,3350 55301 NORM BDDV
028362,003986: 31,3351 00051 S1
028363,003987: 31,3352 00045 36D
028364,003988: 31,3353 43460 XSU,1 RVQ
028365,003989: 31,3354 00050 S1
028366,003990: 31,3355 03744 P23N7071 STORE 22SUBSCL
028367,003991: 31,3356 77420 STQ EXIT
028368,003992: 31,3357 01006 POINTEX
028369,003993: 31,3360 31743 DISP7071 CA 22SUBSCL
028370,003994: 31,3361 05535 TC VNFLASH
028371,003995: 31,3362 05547 P23.15 TC UPFLAG
028372,003996: 31,3363 00060 ADRES LUNAFLAG
028373,003997: 31,3364 31751 CA LANDMARK # IF C=2,LUNAFLAG=1. IF C=1,LUNAFLAG=0
028374,003998: 31,3365 00006 EXTEND
028375,003999: 31,3366 13375 BZF P23.151
028376,004000: 31,3367 31752 CA HORIZON
028377,004001: 31,3370 00006 EXTEND
028378,004002: 31,3371 13373 BZF +2
![]() |
Page 638 |
028380,004004: 31,3372 03445 TC R23.10 # OPERATOR DSKY ERROR
028381,004005: 31,3373 31751 CA LANDMARK
028382,004006: 31,3374 03400 TC P23.152
028383,004007: 31,3375 31752 P23.151 CA HORIZON
028384,004008: 31,3376 00006 EXTEND
028385,004009: 31,3377 13445 BZF R23.10
028386,004010: 31,3400 73526 P23.152 MASK BITS7-9 # IS C EQUAL TO 1 OR 2
028387,004011: 31,3401 65221 AD NEG100
028388,004012: 31,3402 00006 EXTEND
028389,004013: 31,3403 13410 BZF P23.16
028390,004014: 31,3404 65221 AD NEG100
028391,004015: 31,3405 00006 EXTEND
028392,004016: 31,3406 13412 BZF P23.176
028393,004017: 31,3407 03445 TC R23.10
028394,004018: 31,3410 05561 P23.16 TC DOWNFLAG
028395,004019: 31,3411 00060 ADRES LUNAFLAG
028396,004020: 31,3412 05547 P23.176 TC UPFLAG
028397,004021: 31,3413 00004 ADRES NORFHOR
028398,004022: 31,3414 31752 CA HORIZON
028399,004023: 31,3415 00006 EXTEND
028400,004024: 31,3416 13427 BZF P23.20
028401,004025: 31,3417 73527 MASK BITS4-6
028402,004026: 31,3420 66171 AD -OCT10
028403,004027: 31,3421 00006 EXTEND
028404,004028: 31,3422 13433 BZF P23.18
028405,004029: 31,3423 66171 AD -OCT10
028406,004030: 31,3424 00006 EXTEND
028407,004031: 31,3425 13435 BZF P23.30
028408,004032: 31,3426 03445 TC R23.10
028409,004033: 31,3427 06006 P23.20 TC INTPRET
028410,004034: 31,3430 77624 CALL
028411,004035: 31,3431 60304 P22SUBRB
028412,004036: 31,3432 77776 EXIT
028413,004037: 31,3433 05561 P23.18 TC DOWNFLAG
028414,004038: 31,3434 00004 ADRES NORFHOR
028415,004039: 31,3435 31140 P23.30 CA STARCODE # IS STARCODE GREATER THAN OR
028416,004040: 31,3436 00006 EXTEND # EQUAL TO 0 AND LESS THAN 37
028417,004041: 31,3437 13464 BZF LDPLANET
028418,004042: 31,3440 00006 EXTEND
028419,004043: 31,3441 63445 BZMF R23.10
028420,004044: 31,3442 63525 AD NEG37
028421,004045: 31,3443 00006 EXTEND
028422,004046: 31,3444 63447 BZMF P23.170
028423,004047: 31,3445 04362 R23.10 TC FALTON
028424,004048: 31,3446 03360 TC DISP7071
028425,004049: 31,3447 06006 P23.170 TC INTPRET
028426,004050: 31,3450 41535 P23.17 SLOAD PUSH
028427,004051: 31,3451 01141 STARCODE
028428,004052: 31,3452 41335 SLOAD DMP
028429,004053: 31,3453 23516 SPSIX
![]() |
Page 639 |
028431,004055: 31,3454 66150 LXA,1 SXA,1
028432,004056: 31,3455 00155 MPAC +1
028433,004057: 31,3456 00302 BESTI # BESTI = 6XSTAR NUMBER
028434,004058: 31,3457 77624 CALL
028435,004059: 31,3460 30000 LOWMEMRY # NEEDED TO RETRIEVE STAR VECTOR FROM LOW
028436,004060: 31,3461 02617 P23.31 STORE STARSAV2 # STORE FOR R53,P23. US(IN P23)=STARSAV2
028437,004061: 31,3462 77650 GOTO
028438,004062: 31,3463 01006 POINTEX
028439,004063: 31,3464 35035 LDPLANET CAF V06N88
028440,004064: 31,3465 05535 TC VNFLASH
028441,004065: 31,3466 06006 TC INTPRET
028442,004066: 31,3467 74375 VLOAD VXSC
028443,004067: 31,3470 03705 STARSAV3
028444,004068: 31,3471 23531 1DSQR3
028445,004069: 31,3472 52056 UNIT GOTO
028446,004070: 31,3473 63461 P23.31
028447,004071: 31,3474 26305 05432 ONE/C 2DEC* .333564049 E-6 B+21*
028448,004072: 31,3476 00302 24533 AEARTH 2DEC 6378166 B-29 # A AXIS OF EARTH(METERS B-29)
028449,004073: 31,3500 00065 01265 RADMOON 2DEC 1738090 B-29 # RADIUS OF MOON IN METERS
028450,004074: 31,3502 00000 02000 1.0B18 2DEC 1.0 B-18
028451,004075: 31,3504 01604 TRUN19 OCT 01604
028452,004076: 31,3505 00000 VARSUBL DEC 0 B-14
028453,004077: 31,3506 01505 14100 VARSUBL3 2DEC* 3.4299040 E+6 B-26*
028454,004078: 31,3510 00012 27462 TRUNVAR 2DEC 2.5 E-9 B+18
028455,004079: 31,3512 01306 V05N70 VN 0570
028456,004080: 31,3513 01307 V05N71 VN 0571
028457,004081: 31,3514 00202 V50N25P OCT 00202
028458,004082: 31,3515 00006 SPSIX OCT 00006
028459,004083: 31,3516 10464 12467 JCAXIS 2DEC .2688190620 # 1/2(SIN 32.523 DEG) TRACK AXIS
028460,004084: 31,3520 00000 00000 2DEC 0 B-28
028461,004085: 31,3522 15373 11346 2DEC .4215878460 # 1/2(COS 32.523 DEG)
028462,004086: 31,3524 62776 R60ADRS CADR R60CALL +3
028463,004087: 31,3525 77732 NEG37 DEC -37 B-14
028464,004088: 31,3526 00700 BITS7-9 OCT 700
028465,004089: 31,3527 00070 BITS4-6 OCT 70
028466,004090: 31,3530 22363 11623 1DSQR3 2DEC 0.57735021
028467,004091:
028468,004092: 31,3532 06006 V94NTR TC INTPRET
028469,004093: 31,3533 77650 GOTO
028470,004094: 31,3534 62474 V94ENTER
028471,004095: 14,2000 SETLOC RT53
![]() |
Page 640 |
028473,004097: 14,2000 BANK
028474,004098: 14,2000 COUNT* $$/STARS
028475,004099: 14,2000 43573 LOWMEMRY VLOAD* RVQ
028476,004100: 14,2001 33776 CATLOG,1
028477,004101: 4000 SETLOC FFTAG2
028478,004102: 4000 BANK
028479,004103:
028480,004104: 4546 COUNT* $$/R22
028481,004105: 4546 00006 GOTOV56 EXTEND # P20 TERMINATES BY GOTOV56 INSTEAD OF
028482,004106: 4547 34552 DCA VB56CADR # GOTOPOOH
028483,004107: 4550 15214 TCF SUPDXCHZ
028484,004108: 4551 0003777 EBANK= WHOCARES
028485,004109: 4551 02641 66107 VB56CADR 2CADR TRACKTRM
028486,004110:
028487,004111: 40,2000 SETLOC PINBALL1
028488,004112: 40,2000 BANK
028489,004113: 40,3636 COUNT* $$/EXTVB
028490,004114: 40,3636 06006 V67CALL TC INTPRET
028491,004115: 40,3637 77624 CALL
028492,004116: 40,3640 61706 V67WW
028493,004117: 40,3641 77776 EXIT
028494,004118: 40,3642 33770 V06N99DS CAF V06N99A
028495,004119: 40,3643 04636 TC BANKCALL
028496,004120: 40,3644 20576 CADR GOXDSPF
028497,004121: 40,3645 15524 TCF ENDEXT
028498,004122: 40,3646 03650 TC V06N9933
028499,004123: 40,3647 03642 TC V06N99DS
028500,004124: 40,3650 06006 V06N9933 TC INTPRET
028501,004125: 40,3651 46135 SLOAD BHIZ # IF R3 OF V67 = 0 EXIT
028502,004126: 40,3652 02316 WWOPT
028503,004127: 40,3653 61704 V67COMEX
028504,004128: 40,3654 73150 V6N99INP LXA,1 LXA,2
028505,004129: 40,3655 02311 WWPOS
028506,004130: 40,3656 02313 WWVEL
028507,004131: 40,3657 45335 SLOAD DSU
028508,004132: 40,3660 02316 WWOPT
028509,004133: 40,3661 21774 V67DEC2
028510,004134: 40,3662 51030 BHIZ BPL
028511,004135: 40,3663 61672 V67WORB
028512,004136: 40,3664 61677 V67WMID
028513,004137: 40,3665 67130 SXA,1 SXA,2
028514,004138: 40,3666 02000 WRENDPOS
028515,004139: 40,3667 02001 WRENDVEL
028516,004140: 40,3670 77650 GOTO
028517,004141: 40,3671 61702 V67EXITX
028518,004142: 40,3672 67130 V67WORB SXA,1 SXA,2
028519,004143: 40,3673 02004 WORBPOS
028520,004144: 40,3674 02005 WORBVEL
028521,004145: 40,3675 77650 GOTO
028522,004146: 40,3676 61702 V67EXITX
![]() |
Page 641 |
028524,004148: 40,3677 67130 V67WMID SXA,1 SXA,2
028525,004149: 40,3700 03000 WMIDPOS
028526,004150: 40,3701 03001 WMIDVEL
028527,004151: 40,3702 77614 V67EXITX CLEAR
028528,004152: 40,3703 01671 ORBWFLAG
028529,004153: 40,3704 77776 V67COMEX EXIT
028530,004154: 40,3705 15524 TCF ENDEXT
028531,004155: 40,3706 40020 V67WW STQ BOV
028532,004156: 40,3707 00051 S2
028533,004157: 40,3710 61711 +1
028534,004158: 40,3711 77624 CALL
028535,004159: 40,3712 27516 INTSTALL
028536,004160: 40,3713 71331 SSP DLOAD
028537,004161: 40,3714 00051 S1
028538,004162: 40,3715 00006 DEC 6 B-14
028539,004163: 40,3716 15336 ZEROVECS
028540,004164: 40,3717 02312 STORE WWPOS
028541,004165: 40,3720 02314 STORE WWVEL
028542,004166: 40,3721 02316 STORE WWOPT
028543,004167: 40,3722 77770 AXT,1
028544,004168: 40,3723 00044 DEC 36 B-14
028545,004169: 40,3724 47573 NXPOSVEL VLOAD* VSQ
028546,004170: 40,3725 02445 W +36D,1
028547,004171: 40,3726 77615 DAD
028548,004172: 40,3727 02312 WWPOS
028549,004173: 40,3730 02312 STORE WWPOS
028550,004174: 40,3731 47573 VLOAD* VSQ
028551,004175: 40,3732 02533 W +90D,1
028552,004176: 40,3733 77615 DAD
028553,004177: 40,3734 02314 WWVEL
028554,004178: 40,3735 02314 STORE WWVEL
028555,004179: 40,3736 75500 TIX,1 SQRT
028556,004180: 40,3737 61724 NXPOSVEL
028557,004181: 40,3740 16314 STODL WWVEL
028558,004182: 40,3741 02312 WWPOS
028559,004183: 40,3742 77766 SQRT
028560,004184: 40,3743 02312 STORE WWPOS
028561,004185: 40,3744 52000 BOV GOTO
028562,004186: 40,3745 61747 +2
028563,004187: 40,3746 61753 V67XXX
028564,004188: 40,3747 77745 DLOAD
028565,004189: 40,3750 15344 DPPOSMAX
028566,004190: 40,3751 02312 STORE WWPOS
028567,004191: 40,3752 02314 STORE WWVEL
028568,004192: 40,3753 45345 V67XXX DLOAD DSU
028569,004193: 40,3754 02312 WWPOS
028570,004194: 40,3755 21772 FT99999
028571,004195: 40,3756 71240 BMN DLOAD
028572,004196: 40,3757 61762 +3
028573,004197: 40,3760 21772 FT99999
![]() |
Page 642 |
028575,004199: 40,3761 02312 STORE WWPOS
028576,004200: 40,3762 66150 LXA,1 SXA,1
028577,004201: 40,3763 00051 S2
028578,004202: 40,3764 00052 QPRET
028579,004203: 40,3765 77776 EXIT
028580,004204: 40,3766 04655 TC POSTJUMP
028581,004205: 40,3767 27527 CADR INTWAKE
028582,004206: 40,3770 01543 V06N99A VN 0699
028583,004207: 40,3771 01670 17000 FT99999 2DEC 30479 B-19
028584,004208: 40,3773 00002 00000 V67DEC2 2DEC 2 B-14
028585,004209: 40,3775 30,2000 SBANK= LOWSUPER
End of include-file P20-P25.agc. Parent file is MAIN.agc