Source Code
![]() |
This is the source-code for the Apollo 9 Command Module's Guidance Computer.
These files were derived originally from the scan from MIT's Dibner Institute's
now-discontinued website titled "History of Recent Science and Technology", which
in turn was originally created by Gary Neff, though his high-quality scans were
unfortunately reduced in legibility when presented online.
The markings on the front of the
printout imply that it was the original AGC developer Norm Brodeur's copy.
A scan by Ron Burkey has superceded it, made from a more-legible copy from the collection of original
AGC developer Fred Martin. The source code was transcribed from
those images by Ron Burkey. Note that the page images
presented online are of reduced quality, and that higher-quality images
are available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041 20'35 OCT. 28,1968Note that the date is the date of the printout, not the date of the program revision. |
024487,000002: ## Copyright: Public domain.
024488,000003: ## Filename: P20-P25.agc
024489,000004: ## Purpose: Part of the source code for Colossus, build 249.
024490,000005: ## It is part of the source code for the Command Module's (CM)
024491,000006: ## Apollo Guidance Computer (AGC), for Apollo 9.
024492,000007: ## Assembler: yaYUL
024493,000008: ## Reference: pp. 552-625.
024494,000009: ## Contact: Ron Burkey <info@sandroid.org>.
024495,000010: ## Website: www.ibiblio.org/apollo.
024496,000011: ## Mod history: 08/14/04 RSB Began transcribing. (While there is a somewhat-
024497,000012: ## similar source file for Luminary131, there is
024498,000013: ## almost useful overlap between the two.)
024499,000014: ## 2010-10-24 JL Fixed page number.
024500,000015: ## 2011-05-07 JL Flag SBANK= workarounds for future removal.
024501,000016: ## 2017-01-06 RSB Page numbers now agree with those on the
024502,000017: ## original harcopy, as opposed to the PDF page
024503,000018: ## numbers in 1701.pdf.
024504,000019: ## 2017-01-15 RSB Cross-diff'd comment text (not whitespace)
024505,000020: ## vs the already-proofed corresponding Colossus
024506,000021: ## 237 and Comanche 55 source-code files
024507,000022: ## and corrected errors found.
024508,000023: ## 2017-02-06 RSB Fixed comment-text errors noted while proofing
024509,000024: ## Artemis 72.
024510,000025: ## 2017-03-17 RSB Comment-text fixes identified by 4-way diff'ing
024511,000026: ## of Colossus 237 & 249, Comanche 55, and Artemis 72.
024512,000027:
024513,000028: ## The contents of the "Colossus249" files, in general, are transcribed
024514,000029: ## from a scanned copy of the program listing. Notations on this
024515,000030: ## document read, in part:
024516,000031: ##
024517,000032: ## Assemble revision 249 of AGC program Colossus by NASA
024518,000033: ## 2021111-041. October 28, 1968.
024519,000034: ##
024520,000035: ## This AGC program shall also be referred to as
024521,000036: ## Colossus 1A
024522,000037: ##
024523,000038: ## Prepared by
024524,000039: ## Massachusetts Institute of Technology
024525,000040: ## 75 Cambridge Parkway
024526,000041: ## Cambridge, Massachusetts
024527,000042: ## under NASA contract NAS 9-4065.
024528,000043: ##
024529,000044: ## Refer directly to the online document mentioned above for further information.
024530,000045: ## Please report any errors (relative to the scanned pages) to info@sandroid.org.
024531,000046: ##
024532,000047: ## In some cases, where the source code for Luminary 131 overlaps that of
024533,000048: ## Colossus 249, this code is instead copied from the corresponding Luminary 131
024534,000049: ## source file, and then is proofed to incorporate any changes.
024535,000050:
![]() |
Page 552 |
024537,000052: # RENDEZVOUS NAVIGATION PROGRAM 20
024538,000053:
024539,000054: # PROGRAM DESCRIPTION
024540,000055:
024541,000056: # MOD NO - 1
024542,000057: # MOD BY - N. BRODEUR
024543,000058:
024544,000059: # FUNCTIONAL DESCRIPTION
024545,000060:
024546,000061: # TO CONTROL THE CSM ATTITUDE AND OPTICS TO ACQUIRE THE LEM IN THE S+T
024547,000062: # FIELD AND TO POINT THE CSM TRANSPONDER AT THE LEM. TO UPDATE EITHER THE
024548,000063: # LEM OR CSM STATE VECTOR (AS SPECIFIED BY THE ASTRONAUT BY THE DSKY
024549,000064: # ENTRY) ON THE BASIS OF OPTICAL TRACKING DATA (REQUESTED BY DSKY)
024550,000065:
024551,000066: # CALLING SEQUENCE -
024552,000067:
024553,000068: # ASTRONAUT REQUEST THROUGH DSKY V37E20E
024554,000069:
024555,000070: # SUBROUTINES CALLED-
024556,000071:
024557,000072: # R02BOTH (IMU STATUS CHECK) BANKCALL
024558,000073: # FLAGUP 2PHSCHNG LOADTIME
024559,000074: # R61CSM (PREFERRED TRACKING ATTITUDE) FLAGDOWN
024560,000075: # R52 (AUTO OPTICS POSITIONING ROUT) SETINTG
024561,000076: # R22 (REND TRACK DATA PROC ROUT) PRIOCHNG
024562,000077: # ENDOFJOB INTEGRV GRP2PC
024563,000078: # INTPRET MKRLEES FINDVAC
024564,000079:
024565,000080: # NORMAL EXIT MODES -
024566,000081:
024567,000082: # P20 MAY BE TERMINATED IN TWO WAYS - ASTRONAUT SELECTION OF IDLING
024568,000083: # PROGRAM (P00) BY KEYING V37E00E OR BY KEYING IN V56E
024569,000084:
024570,000085: # ALARM OR ABORT EXIT MODES -
024571,000086:
024572,000087: # NONE DIRECTLY FROM P20
024573,000088:
024574,000089: # OUTPUT
024575,000090:
024576,000091: # TRKMKCNT = NO OF RENDEZVOUS TRACKING MARKS TAKEN (COUNTER)
024577,000092: # VHFCNT = NO OF VHF RANGING MARKS INCORPORATED (COUNTER)
024578,000093:
024579,000094: # FLAGS SET + RESET
024580,000095:
024581,000096: # RNDVZFLG,VEHUPFLG,UPDATFLG,TRACKFLG,TARG1FLG
024582,000097: # HOLDFLAG,WBODY,WBODY1,WBODY2,DELCDUX,DELCDUY,DELCDUZ
024583,000098: # STIKFLAG,PRFTRKAT,VINTFLAG,DIM0FLAG,R60FLAG,R61CNTR
024584,000099:
024585,000100: 33,3772 BANK 33
024586,000101: 37,2000 SETLOC P20S
024587,000102: 37,2000 BANK
024588,000103:
024589,000104: 37,2207 E6,1412 EBANK= ESTROKER
024590,000105: 37,2207 COUNT* $$/P20
024591,000106:
024592,000107: 37,2207 04555 PROG20 TC BANKCALL
024593,000108: 37,2210 17573 CADR R02BOTH # IMU STATUS CHECK
024594,000109: # BLOCKING OF UPLINK IS DONE BY UPLINK PRG
024595,000110: 37,2211 34714 CAF ZERO
024596,000111: 37,2212 55126 TS TRKMKCNT # ZERO REND TRACKING MARK COUNTER
024597,000112: 37,2213 55125 TS VHFCNT # ZERO REND VHF RNG MRK COUNTER
024598,000113: 37,2214 05435 TC UPFLAG # SET PREF TRACK ATT FLAG
024599,000114: 37,2215 00120 ADRES PRFTRKAT # BIT 10 FLAG 5
024600,000115: 37,2216 05447 TC DOWNFLAG # LEM TO BE UPDATED. VEHUPFLG RESET.
024601,000116: 37,2217 00026 ADRES VEHUPFLG # BIT 8 FLAG 1
![]() |
Page 553 |
024603,000118: 37,2220 05435 TC UPFLAG # SET TRACKFLAG
024604,000119: 37,2221 00031 ADRES TRACKFLG # BIT 5 FLAG 1
024605,000120: 37,2222 05435 TC UPFLAG # SET UPDATFLG
024606,000121: 37,2223 00027 ADRES UPDATFLG # BIT 7 FLAG 1
024607,000122: 37,2224 05435 TC UPFLAG # SET RNDVZFLG
024608,000123: 37,2225 00010 ADRES RNDVZFLG # BIT 7 FLAG 0
024609,000124: 37,2226 05261 TC 2PHSCHNG
024610,000125: 37,2227 00004 OCT 4
024611,000126: 37,2230 05022 OCT 05022
024612,000127: 37,2231 26000 OCT 26000
024613,000128: 37,2232 06006 TC INTPRET
024614,000129: 37,2233 77634 RTB
024615,000130: 37,2234 45505 LOADTIME
024616,000131: 37,2235 35225 STCALL MARKTIME
024617,000132: 37,2236 56343 SETINTG # SET INTEGRATION FLAGS
024618,000133: 37,2237 43014 BOFF SET
024619,000134: 37,2240 02756 RENDWFLG
024620,000135: 37,2241 76243 P20.1
024621,000136: 37,2242 01476 DIM0FLAG # SET TO INTEGRATE THE W MATRIX
024622,000137: 37,2243 43014 P20.1 BON CLEAR
024623,000138: 37,2244 00707 VEHUPFLG
024624,000139: 37,2245 76247 P20.2
024625,000140: 37,2246 01674 VINTFLAG # SET FOR LM INTEGRATION
024626,000141: 37,2247 77624 P20.2 CALL
024627,000142: 37,2250 27113 INTEGRV
024628,000143: 37,2251 77624 CALL
024629,000144: 37,2252 56741 GRP2PC # GROUP 2 PHASE CHANGE
024630,000145: 37,2253 77624 CALL
024631,000146: 37,2254 56343 SETINTG # SET INTEGRATION FLAGS
024632,000147: 37,2255 43014 BOFF CLEAR
024633,000148: 37,2256 00747 VEHUPFLG
024634,000149: 37,2257 76261 P20.3
024635,000150: 37,2260 01674 VINTFLAG # SET FOR LM INTEGRATION
024636,000151: 37,2261 77624 P20.3 CALL
024637,000152: 37,2262 27113 INTEGRV
024638,000153: 37,2263 77776 EXIT
024639,000154: 37,2264 37663 CAF PRIO26
024640,000155: 37,2265 05042 TC FINDVAC
![]() |
[WORKAROUND] RSB 2004 |
024642,000157: 37,2266 30,2000 SBANK= LOWSUPER
024643,000158: 37,2266 E7,1734 EBANK= MRKBUF2
024644,000159: 37,2266 02512 70067 2CADR R22
024645,000160:
024646,000161: 37,2270 05261 TC 2PHSCHNG
024647,000162: 37,2271 00072 OCT 00072
024648,000163: 37,2272 00111 OCT 00111
024649,000164: 37,2273 34761 PIKUP20 CAF PRIO14 # ALLOW HIGHER PRIO THAN LAMBERT
024650,000165: 37,2274 05103 TC PRIOCHNG
024651,000166: 37,2275 34706 CAF BIT5 # IS TRACK FLAG SET
024652,000167: 37,2276 70075 MASK STATE +1
024653,000168: 37,2277 00006 EXTEND
024654,000169: 37,2300 15112 BZF ENDOFJOB # NO
![]() |
Page 554 |
024656,000171: 37,2301 34676 CAF BIT13
024657,000172: 37,2302 70077 MASK STATE +3 # IS REFSMFLG SET
024658,000173: 37,2303 00006 EXTEND
024659,000174: 37,2304 15112 BZF ENDOFJOB
024660,000175: 37,2305 34714 CAF ZERO
024661,000176: 37,2306 55775 TS R61CNTR # INITIALIZE R61 COUNTER
024662,000177: 37,2307 05435 TC UPFLAG # SET R60FLAG
024663,000178: 37,2310 00126 ADRES R60FLAG # BIT 4 FLAG 5
024664,000179: 37,2311 04555 TC BANKCALL
024665,000180: 37,2312 76536 CADR R61CSM
024666,000181: 37,2313 05447 TC DOWNFLAG # RESET R60FLAG
024667,000182: 37,2314 00126 ADRES R60FLAG # BIT 4 FLAG 5
024668,000183: 37,2315 E5,1777 EBANK= QMIN
024669,000184: 37,2315 34751 CAF EBANK5
024670,000185: 37,2316 54003 TS EBANK
024671,000186: 37,2317 05435 TC UPFLAG # SET TARGET FLAG TO LEM
024672,000187: 37,2320 00024 ADRES TARG1FLG # BIT 10 FLAG 1
024673,000188: 37,2321 06006 P20R52JB TC INTPRET
024674,000189: 37,2322 77624 CALL
024675,000190: 37,2323 30002 R52 # SET UP AUTO OPTICS JOB
024676,000191: 37,2324 77776 EXIT
024677,000192: 37,2325 04555 TC BANKCALL
024678,000193: 37,2326 16070 CADR MKRLEES
024679,000194: 37,2327 34712 CAF ONE # HOLD PRESENT ATTITUDE
024680,000195: 37,2330 55332 TS HOLDFLAG
024681,000196: 37,2331 05112 TC ENDOFJOB
024682,000197: 37,2332 00203 OCT203 OCT 00203
024683,000198: 37,2333 7707 FIRST3 EQUALS FURST3
024684,000199:
![]() |
Page 555 |
024686,000201: # ORBITAL NAVIGATION PROGRAM 22
024687,000202:
024688,000203: 31,2021 BANK 31
024689,000204: 30,2000 SETLOC P20S1
024690,000205: 30,2000 BANK
024691,000206:
024692,000207: 30,2000 E5,1751 EBANK= LANDMARK
024693,000208: 30,2000 COUNT* $$/P22
024694,000209:
024695,000210: 30,2000 05447 PROG22 TC DOWNFLAG # RESET RNDVZFLG BIT 7 FLAG 0
024696,000211: 30,2001 00010 ADRES RNDVZFLG
024697,000212: 30,2002 05435 TC UPFLAG
024698,000213: 30,2003 00025 ADRES TARG2FLG
024699,000214: 30,2004 04555 TC BANKCALL
024700,000215: 30,2005 17573 CADR R02BOTH # IMU STATUS CHECK
024701,000216: 30,2006 06006 TC INTPRET # COMPUTE ANGLE BETWEEN Y AND VXR SM
024702,000217: 30,2007 77634 RTB
024703,000218: 30,2010 45505 LOADTIME
024704,000219: 30,2011 34041 STCALL TDEC1
024705,000220: 30,2012 27045 CSMCONIC # INTEGRATE TO PRESENT TIME
024706,000221: 30,2013 47375 VLOAD VXV # CROSS PRODUCT BETWEEN V AND R
024707,000222: 30,2014 00007 VATT
024708,000223: 30,2015 00001 RATT
024709,000224: 30,2016 50256 UNIT DOT
024710,000225: 30,2017 01744 REFSMMAT +6
024711,000226: 30,2020 77646 ABS
024712,000227: 30,2021 65552 SL1 ARCCOS
024713,000228: 30,2022 03626 STORE +MGA
024714,000229: 30,2023 77414 CLEAR EXIT
024715,000230: 30,2024 02676 RENDWFLG
024716,000231: 30,2025 32162 CAF V06N45B
024717,000232: 30,2026 04555 TC BANKCALL
024718,000233: 30,2027 20763 CADR GOFLASHR
024719,000234: 30,2030 04106 TC GOTOPOOH # TERM P22
024720,000235: 30,2031 02036 TC PROG22A # PROC
024721,000236: 30,2032 02025 TC -5 # ENTER
024722,000237: 30,2033 36214 CAF THREE
024723,000238: 30,2034 05415 TC BLANKET # BLANK OUT R1 + R2
024724,000239: 30,2035 05112 TC ENDOFJOB
024725,000240: 30,2036 42172 PROG22A CS OCTL7000 # SET OFFSET NO.=0
024726,000241: 30,2037 71751 MASK LANDMARK
024727,000242: 30,2040 55751 TS LANDMARK
024728,000243: 30,2041 06006 TC INTPRET
024729,000244: 30,2042 77614 CLEAR
024730,000245: 30,2043 01664 P22MKFLG
024731,000246: 30,2044 43014 SET BOFF
024732,000247: 30,2045 00462 ERADFLAG
024733,000248: 30,2046 04343 CMOONFLG
024734,000249: 30,2047 60113 PROG22B # EARTH
024735,000250: 30,2050 77614 SET # MOON
024736,000251: 30,2051 01463 LUNAFLAG
![]() |
Page 556 |
024738,000253: 30,2052 77776 EXIT
024739,000254: 30,2053 32163 CAF V05N7022
024740,000255: 30,2054 04555 TC BANKCALL
024741,000256: 30,2055 20763 CADR GOFLASHR
024742,000257: 30,2056 04106 TC GOTOPOOH # TERMINATE
024743,000258: 30,2057 02064 TC +5 # PROCEED UNPACK ABCDE
024744,000259: 30,2060 02053 TC -5 # RECYCLE
024745,000260: 30,2061 34715 CAF FIVE # IMMEDIATE RETURN BLANK OUT R1,R2
024746,000261: 30,2062 05415 TC BLANKET
024747,000262: 30,2063 05112 TC ENDOFJOB
024748,000263: 30,2064 34715 CAF FIVE
024749,000264: 30,2065 54301 TS MARKINDX
024750,000265: 30,2066 06006 TC INTPRET
024751,000266: 30,2067 77624 CALL # UNPACK ABCDE FROM LANDMARK
024752,000267: 30,2070 60234 UNPACKAE
024753,000268: 30,2071 45335 SLOAD DSU
024754,000269: 30,2072 02745 22SUBSCL
024755,000270: 30,2073 20166 P22MAXDE
024756,000271: 30,2074 45044 BPL CALL
024757,000272: 30,2075 60101 DE-GR-50 # DE GREATER THAN MAX
024758,000273: 30,2076 76333 P22SUBRA # SUBROUTINE A SETS LAT/LONG/ALT
024759,000274: 30,2077 77650 GOTO
024760,000275: 30,2100 60120 CALLR52
024761,000276: 30,2101 77624 DE-GR-50 CALL # CALL ADVANCED ORBIT ROUTINE
024762,000277: 30,2102 30206 ADVORB
024763,000278: 30,2103 77776 EXIT
024764,000279: 30,2104 05261 TC 2PHSCHNG
024765,000280: 30,2105 00004 OCT 00004
024766,000281: 30,2106 05022 OCT 05022
024767,000282: 30,2107 13000 OCT 13000
024768,000283: 30,2110 06006 TC INTPRET
024769,000284: 30,2111 77650 GOTO
024770,000285: 30,2112 60132 DOV5N71
024771,000286: 30,2113 43014 PROG22B CLEAR SET # EARTH ORBIT
024772,000287: 30,2114 01663 LUNAFLAG
024773,000288: 30,2115 03067 KNOWNFLG
024774,000289: 30,2116 77624 CALL # GET LAT/LONG/ALT FROM ASTRO
024775,000290: 30,2117 60217 P22SUBRB
024776,000291: 30,2120 77776 CALLR52 EXIT
024777,000292: 30,2121 05261 TC 2PHSCHNG
024778,000293: 30,2122 00004 OCT 00004
024779,000294: 30,2123 05022 OCT 05022
024780,000295: 30,2124 13000 OCT 13000
024781,000296: 30,2125 34715 CAF FIVE
024782,000297: 30,2126 54301 TS MARKINDX # SET MARK INDEX=5 FOR R52
024783,000298: 30,2127 06006 TC INTPRET
024784,000299: 30,2130 77624 CALL
024785,000300: 30,2131 30002 R52
024786,000301: 30,2132 77776 DOV5N71 EXIT
024787,000302: 30,2133 32164 CAF V05N7122
![]() |
Page 557 |
024789,000304: 30,2134 04555 TC BANKCALL
024790,000305: 30,2135 20763 CADR GOFLASHR
024791,000306: 30,2136 04106 TC GOTOPOOH # TERMINATE
024792,000307: 30,2137 02144 TC +5 # PROCEED UNPACK ABCDE
024793,000308: 30,2140 02133 TC -5 # RECYCLE
024794,000309: 30,2141 34715 CAF FIVE # IMMEDIATE ENTRY BLANK OUT R1,R3
024795,000310: 30,2142 05415 TC BLANKET
024796,000311: 30,2143 05112 TC ENDOFJOB
024797,000312: 30,2144 06006 TC INTPRET
024798,000313: 30,2145 77624 CALL
024799,000314: 30,2146 60234 UNPACKAE
024800,000315: 30,2147 77624 CALL # SET LAT/LANG/ALT
024801,000316: 30,2150 76333 P22SUBRA
024802,000317: 30,2151 66744 PROG22C LXC,2 SLOAD*
024803,000318: 30,2152 01330 MARKSTAT
024804,000319: 30,2153 77724 QPRET,2
024805,000320: 30,2154 36750 STCALL 8NN
024806,000321: 30,2155 60255 S22.1 # ESTABLISH LANDMARK - COMPUTE ORBITAL
024807,000322: 30,2156 77776 P22OVER EXIT
024808,000323: 30,2157 05301 TC PHASCHNG
024809,000324: 30,2160 04022 OCT 04022
024810,000325: 30,2161 02036 TC PROG22A # POINT A ON GSOP
024811,000326: 30,2162 01455 V06N45B VN 0645
024812,000327: 30,2163 01306 V05N7022 VN 00570
024813,000328: 30,2164 01307 V05N7122 VN 00571
024814,000329: 30,2165 00033 00000 P22MAXDE 2DEC 27 B-14
024815,000330:
024816,000331: 30,2167 01531 V06N89 VN 00689
024817,000332: 30,2170 00077 OCTL77 OCT 77 # DE MASK OF ABCDE
024818,000333: 30,2171 00700 OCTL700 OCT 700 # C MASK OF ABCDE
024819,000334: 30,2172 07000 OCTL7000 OCT 7000 # B MASK OF ABCDE
024820,000335: 37,2000 SETLOC P20S
024821,000336: 37,2000 BANK
024822,000337:
024823,000338: 37,2333 43020 P22SUBRA STQ BOFF # SET LAT/LONG/ALT FOR KNOWN LANDMARK
024824,000339: 37,2334 03667 S22TOFF
024825,000340: 37,2335 03347 KNOWNFLG
024826,000341: 37,2336 03667 S22TOFF # UNKNOWN LANKMARK, EXIT
024827,000342: 37,2337 46135 SLOAD BHIZ
024828,000343: 37,2340 02745 22SUBSCL
024829,000344: 37,2341 60213 OBTAINLL # GET LAT/LONG/ALT FROM ASTRO
024830,000345: 37,2342 50025 DSU BMN
024831,000346: 37,2343 21646 9DWID # 2 B-14
024832,000347: 37,2344 60173 S22LSITE # GET LAT/LONG/ALT FROM RLS (LANDING SITE)
024833,000348: 37,2345 70152 SL1 LXC,1 # GET LAT/LONG/ALT FROM TABLES
024834,000349: 37,2346 00154 MPAC
024835,000350: 37,2347 70601 SETPD DLOAD*
024836,000351: 37,2350 00001 0D
024837,000352: 37,2351 23705 ALTTAB,1
024838,000353: 37,2352 64723 PDDL* PDDL*
![]() |
Page 558 |
024840,000355: 37,2353 23623 LONGTAB,1
024841,000356: 37,2354 23541 LATTAB,1
024842,000357: 37,2355 77666 VDEF
024843,000358: 37,2356 35104 STCALL LAT
024844,000359: 37,2357 03667 S22TOFF # EXIT
024845,000360: 30,2000 SETLOC P20S1
024846,000361: 30,2000 BANK
024847,000362:
024848,000363: 30,2173 77634 S22LSITE RTB # CONVERT RLS FROM MOON-FIXED TO BASIC REF
024849,000364: 30,2174 45505 LOADTIME
024850,000365: 30,2175 24007 STOVL 6D # 6-7D= TIME
024851,000366: 30,2176 02026 RLS
024852,000367: 30,2177 14001 STODL 0D # 0-5D= LANDING SITE VECTOR
024853,000368: 30,2200 15330 HIDPHALF # MPAC= ANY NON-ZERO FOR MOON
024854,000369: 30,2201 77624 CALL
024855,000370: 30,2202 55341 RP-TO-R # RLS IN BASIC REF B-27 IN MPAC
024856,000371: 30,2203 77742 VSR2 # LUNAFLAG AND ERADFLAG SET ABOVE
024857,000372: 30,2204 02152 STORE ALPHAV # SCALE RLS B-29 FOR LAT-LONG
024858,000373: 30,2205 77634 RTB
024859,000374: 30,2206 45505 LOADTIME # SET PRESENT TIME IN MPAC FOR LAT-LONG
024860,000375: 30,2207 77624 CALL
024861,000376: 30,2210 26322 LAT-LONG
024862,000377: 30,2211 77650 GOTO
024863,000378: 30,2212 03667 S22TOFF # EXIT
024864,000379: 30,2213 77624 OBTAINLL CALL # GET LAT/LONG/ALT FROM ASTRO
024865,000380: 30,2214 60217 P22SUBRB
024866,000381: 30,2215 77650 GOTO
024867,000382: 30,2216 03667 S22TOFF # EXIT
024868,000383: 30,2217 77420 P22SUBRB STQ EXIT # GET LAT/LONG/ALT FROM ASTRO
024869,000384: 30,2220 03670 S22TOFF +1
024870,000385: 30,2221 33656 CAF V06N89B
024871,000386: 30,2222 04555 TC BANKCALL
024872,000387: 30,2223 20624 CADR GOFLASH
024873,000388: 30,2224 04106 TC GOTOPOOH # TERMINATE
024874,000389: 30,2225 02227 TC +2 # PROCEED
024875,000390: 30,2226 02221 TC -5 # ENTER OR RECYCLE
024876,000391: 30,2227 06006 TC INTPRET
024877,000392: 30,2230 77624 CALL
024878,000393: 30,2231 61345 LLASRDA
024879,000394: 30,2232 77650 GOTO
024880,000395: 30,2233 03670 S22TOFF +1 # EXIT
024881,000396: 30,2234 77776 UNPACKAE EXIT # UNPACK LANDMARK INTO ABCDE
024882,000397: 30,2235 31751 CA LANDMARK
024883,000398: 30,2236 72170 MASK OCTL77
024884,000399: 30,2237 55744 TS 22SUBSCL # DE=L=LMK ID NO. N 00,01,02-26
024885,000400: 30,2240 31751 CA LANDMARK
024886,000401: 30,2241 72172 MASK OCTL7000
024887,000402: 30,2242 55745 TS CXOFF # B= OFFSET INDICATOR
024888,000403: 30,2243 05435 TC UPFLAG # SET KNOWNFLG
024889,000404: 30,2244 00141 ADRES KNOWNFLG # BIT 8 FLAG 6
![]() |
Page 559 |
024891,000406: 30,2245 31751 CA LANDMARK
024892,000407: 30,2246 74675 MASK BIT14 # IF BIT14 OF LANDMARK=1, A=2 OTHERWISE A=1
024893,000408: 30,2247 00006 EXTEND
024894,000409: 30,2250 12253 BZF +3 # A=1 LEAVE KNOWNFLAG SET FOR KNOWN LMK
024895,000410: 30,2251 05447 TC DOWNFLAG # A=2 CLEAR KNOWNFLG (BIT 8 FLAG 6) FOR
024896,000411: 30,2252 00141 ADRES KNOWNFLG # UNKNOWN LMK
024897,000412: 30,2253 06006 TC INTPRET
024898,000413: 30,2254 77616 RVQ
024899,000414:
![]() |
Page 560 |
024901,000416: # PROGRAM NAME- OPTICS CALIBRATION ROUTINE
024902,000417: # MOD NO- 1
024903,000418: # MOD BY- TOM KNATT
024904,000419:
024905,000420: # FUNCTIONAL DESCRIPTION- TO MEASURE THE EFFECT OF SOLAR RADIATION ON
024906,000421: # THE SXT TRUNNION ANGLE AND TO STORE THE MEASURED TRUNNION BIAS FOR P23
024907,000422:
024908,000423: # CALLING SEQUENCE- CALL
024909,000424: # R57
024910,000425:
024911,000426: # SUBROUTINES CALLED- DISPLAY ROUTINES
024912,000427:
024913,000428: # NORMAL EXIT MODES- VIA EGRESS
024914,000429:
024915,000430: # ALARMS- NONE
024916,000431:
024917,000432: # ABORT MODES- P23 ABORT IF MARKING SYSTEM OR EXTENDED VERB ACTIVE
024918,000433:
024919,000434: # INPUT- NONE REQUIRED, NORMALLY CALLED BY P23
024920,000435:
024921,000436: # OUTPUT- TRUNNION BIAS ANGLE- ANGLE DETERMINED WHEN SHAFT LINE OF SIGHT
024922,000437: # (SLOS) AND LANDMARK LINE OF SIGHT (LLOS) ARE SUPERIMPOSED. THIS ANGLE
024923,000438: # MAY NOT BE EXACTLY ZERO BECAUSE OF UNEVEN HEATING OF THE OPTICS, FOR
024924,000439: # EXAMPLE.
024925,000440:
024926,000441: # ERASABLE INITIALIZATION REQUIRED- MRKBUF1, EXTVBACT
024927,000442:
024928,000443: # DEBRIS- RUPTREGS USED BY MARKRUPT AND ERASABLES USED BY DISPLAYS
024929,000444:
024930,000445: 33,3772 BANK 33
024931,000446: 37,2000 SETLOC P20S
024932,000447: 37,2000 BANK
024933,000448: 37,2360 COUNT* $$/R57
024934,000449: 37,2360 E7,1725 EBANK= MRKBUF1
024935,000450: 37,2360 77420 R57 STQ EXIT
024936,000451: 37,2361 02317 EGRESS
024937,000452: 37,2362 34753 CAF EBANK7
024938,000453: 37,2363 54003 TS EBANK
024939,000454: 37,2364 36211 CAF SIX # BIT2 = MARKING SYSTEM IN USE
024940,000455: 37,2365 71044 MASK EXTVBACT # BIT3 = EXTENDED VERB IN PROGRESS
024941,000456: 37,2366 10000 CCS A
024942,000457: 37,2367 02437 TC P23ABRT # SET, THEREFORE ABORT
024943,000458: 37,2370 34711 CAF BIT2 # NOT SET
024944,000459: 37,2371 27044 ADS EXTVBACT # SET IT
024945,000460: 37,2372 05435 R57A TC UPFLAG # SET V59FLAG (BIT 12 FLAG 5) TO INDICATE
024946,000461: 37,2373 00116 ADRES V59FLAG # CALIBRATION MARK
024947,000462: 37,2374 32442 CAF V59NB
024948,000463: 37,2375 04555 TC BANKCALL
024949,000464: 37,2376 20504 CADR GOMARKFR
024950,000465: 37,2377 04106 TC GOTOPOOH # TERMINATE
024951,000466: 37,2400 02424 TC ENDR57
024952,000467: 37,2401 02424 TC ENDR57
024953,000468: 37,2402 34716 CAF SEVEN
![]() |
Page 561 |
024955,000470: 37,2403 05415 TC BLANKET # BLANK OUT R1,R2,R3
024956,000471: 37,2404 05112 TC ENDOFJOB
024957,000472: # STORE TRUNNION ANGLE (OCDU)
024958,000473: 37,2405 32441 MARKDISP CAF V06N87NB
024959,000474: 37,2406 04555 TC BANKCALL
024960,000475: 37,2407 20504 CADR GOMARKFR
024961,000476: 37,2410 04106 TC GOTOPOOH # TERMINATE
024962,000477: 37,2411 02416 TC R57B # PROCEED
024963,000478: 37,2412 02372 TC R57A # ENTER (RECYCLE)
024964,000479: 37,2413 34715 CAF FIVE
024965,000480: 37,2414 05415 TC BLANKET # BLANK OUT R1,R3
024966,000481: 37,2415 05112 TC ENDOFJOB
024967,000482: 37,2416 32444 R57B CA 19.77DEG # PUT FIXED INTO ERASABLE FOR MSU
024968,000483: 37,2417 54001 TS L # INSTRUCTION COMING UP
024969,000484: 37,2420 31732 CA MRKBUF1 +5 # CONTAINS TRUNNION
024970,000485: 37,2421 00006 EXTEND
024971,000486: 37,2422 20001 MSU L # CORRECTS TRUNBIAS FROM 2'S TO 1'S
024972,000487: 37,2423 55342 TS TRUNBIAS
024973,000488: 37,2424 05447 ENDR57 TC DOWNFLAG # RESET V59FLAG
024974,000489: 37,2425 00116 ADRES V59FLAG # BIT 12 FLAG 5
024975,000490: 37,2426 34751 CAF EBANK5
024976,000491: 37,2427 54003 TS EBANK
024977,000492: 37,2430 34761 CAF PRIO14
024978,000493: 37,2431 05027 TC NOVAC # THIS JOB CLEARS BIT IN
024979,000494: 37,2432 1330 EBANK= MARKSTAT
024980,000495: 37,2432 05423 04062 2CADR ENDMARK # MARKING IN R57 SO R53 CAN TAKE OVER
024981,000496:
024982,000497: 37,2434 06006 TC INTPRET
024983,000498: 37,2435 77650 GOTO
024984,000499: 37,2436 02317 EGRESS
024985,000500: 37,2437 05604 P23ABRT TC BAILOUT
024986,000501: 37,2440 01211 OCT 01211
024987,000502: 37,2441 01527 V06N87NB VN 0687
024988,000503: 37,2442 16600 V59NB VN 5900
024989,000504: 37,2443 14600 V51NB VN 5100
024990,000505: 37,2444 61740 19.77DEG OCT 61740
024991,000506:
![]() |
Page 562 |
024993,000508: # PROGRAM DESCRIPTION
024994,000509: # MOD NO- 1
024995,000510: # MOD BY- N. BRODEUR
024996,000511:
024997,000512: # FUNCTIONAL DESCRIPTION
024998,000513:
024999,000514: # TO PERFORM SIGHTING MARKS IN CONJUNCTION WITH THE RENDEZVOUS NAVIG-
025000,000515: # ATION PROGRAM. CALLED BY ASTRONAUT VIA EXTENDED VERB
025001,000516:
025002,000517: # CALLING SEQUENCE-
025003,000518:
025004,000519: # R21 VIA V57
025005,000520: # R23 VIA V 54
025006,000521:
025007,000522: # SUBROUTINES CALLED-
025008,000523:
025009,000524: # FLAGUP FLAGDOWN BANKCALL
025010,000525: # ENDOFJOB GOMARK2 GOMARKF
025011,000526: # INTPRET GENTRAN KLEENEX
025012,000527: # ENDMARK
025013,000528:
025014,000529: # NORMAL EXIT MODES-
025015,000530:
025016,000531: # MARKRUPT USED BY SXTMARK HAS BEEN MODIFIED TO STORE MARK IN MRKBUF2
025017,000532: # FOR USE BY R22. WHEN ASTRONAUT IS FINISHED TAKING MARKS, HE HITS AN
025018,000533: # PROCEED, R21 IS TERMINATED THUS CAUSING THE FINAL MARK TO BE TRANSFRD
025019,000534: # TO MRKBUF2 FOR PROCESSING BY R22
025020,000535:
025021,000536: # ALARM OR ABORT EXIT MODES-
025022,000537:
025023,000538: # NONE
025024,000539:
025025,000540: # OUTPUT-
025026,000541:
025027,000542: # 7 REGISTER MRKBUF2 CONTAINING TIME2,TIME1,CDUY,OPTICS X,CDUZ, OPTICS Y,
025028,000543: # CDUX.
025029,000544:
025030,000545: # ERASABLE INITIALIZATION REQUIRED
025031,000546:
025032,000547: # FLAGS SET AND RESET
025033,000548: # R21MARK (COMMUNICATION TO MARKRUPT TO STORE MARKS IN MRKBUF1 +2)
025034,000549: # R23FLG INDICATES COAS MARKING
025035,000550:
025036,000551: # DEBRIS
025037,000552:
025038,000553: 37,2445 E7,1725 EBANK= MRKBUF1
025039,000554: 37,2000 SETLOC RENDEZ
025040,000555: 37,2000 BANK
025041,000556:
025042,000557: 37,2445 COUNT* $$/R21
025043,000558:
025044,000559: 37,2445 05435 R21CSM TC UPFLAG # SET R21MARK
025045,000560: 37,2446 00037 ADRES R21MARK # BIT 14 FLAG 2
025046,000561: 37,2447 37716 R23CSM CA NEGONE
025047,000562: 37,2450 55725 TS MRKBUF1
025048,000563: 37,2451 55734 TS MRKBUF2
025049,000564: 37,2452 30075 CA FLAGWRD1
025050,000565: 37,2453 74702 MASK BIT9 # TEST R23FLG
025051,000566: 37,2454 00006 EXTEND
025052,000567: 37,2455 12510 BZF R21C1 # NOT SET REGULAR R21 MARKING
025053,000568: 37,2456 32535 CAF V0694 # R23 BACKUP MARKING
025054,000569: 37,2457 04555 TC BANKCALL # DISPLAY SHAFT + TRUNNION
025055,000570: 37,2460 20465 CADR GOMARKF
025056,000571: 37,2461 02527 TC R21END # TERM
025057,000572: 37,2462 02464 TC +2 # PROC
![]() |
Page 563 |
025059,000574: 37,2463 02456 TC -5 # ENTER
025060,000575: 37,2464 32534 R23CSM1 CAF V53 # PERFORM ALT LOS SIGHT MARK
025061,000576: 37,2465 04555 TC BANKCALL
025062,000577: 37,2466 20470 CADR GOMARK2
025063,000578: 37,2467 02527 TC R21END # V34- TERMINATE R23
025064,000579: 37,2470 12516 TCF R21CSMA # PROCEED- END BACK UP MARKING (R23)
025065,000580: 37,2471 36211 CAF SIX # TRANSFER MRKBUF1 TO MRKBUF2
025066,000581: 37,2472 05475 TC GENTRAN
025067,000582: 37,2473 01725 ADRES MRKBUF1
025068,000583: 37,2474 01734 ADRES MRKBUF2
025069,000584: 37,2475 00006 EXTEND
025070,000585: 37,2476 30025 DCA TIME2
025071,000586: 37,2477 53726 DXCH MRKBUF1 # READ TIME
025072,000587: 37,2500 30033 CA CDUY # READ CDU ANGLES
025073,000588: 37,2501 55727 TS MRKBUF1 +2
025074,000589: 37,2502 30034 CA CDUZ
025075,000590: 37,2503 55731 TS MRKBUF1 +4
025076,000591: 37,2504 30032 CA CDUX
025077,000592: 37,2505 55733 TS MRKBUF1 +6
025078,000593: 37,2506 00003 RELINT
025079,000594: 37,2507 02464 TC R23CSM1
025080,000595: 37,2510 32443 R21C1 CAF V51NB
025081,000596: 37,2511 04555 TC BANKCALL
025082,000597: 37,2512 20470 CADR GOMARK2
025083,000598: 37,2513 02527 TC R21END # V34- TERMINATE R21
025084,000599: 37,2514 12516 TCF R21CSMA # PROCEED- END R21
025085,000600: 37,2515 12510 TCF R21C1 # RECYCLE
025086,000601:
025087,000602: 37,2516 31725 R21CSMA CA MRKBUF1 # IF -1 NO MARK
025088,000603: 37,2517 64712 AD ONE
025089,000604: 37,2520 00006 EXTEND
025090,000605: 37,2521 12527 BZF R21END # ZERO = NO MARK
025091,000606: 37,2522 36211 CAF SIX # MARK THEREFORE TRANSFER IT TO MRKBUF2
025092,000607: 37,2523 05475 R21CSM1 TC GENTRAN # TRANSFER MRKBUF1 TO MRKBUF2
025093,000608: 37,2524 01725 ADRES MRKBUF1
025094,000609: 37,2525 01734 ADRES MRKBUF2
025095,000610: 37,2526 00003 RELINT
025096,000611: 37,2527 04555 R21END TC BANKCALL
025097,000612: 37,2530 20464 CADR KLEENEX
025098,000613: 37,2531 05447 TC DOWNFLAG # RESET R21MARK
025099,000614: 37,2532 00037 ADRES R21MARK # BIT 14 FLAG 2
025100,000615: 37,2533 05423 TC ENDMARK # END MARKING AND ENDJOB
025101,000616: 37,2534 15200 V53 VN 5300
025102,000617: 37,2535 01536 V0694 VN 0694
025103,000618:
![]() |
Page 564 |
025105,000620: # PREFERRED TRACKING ATTITUDE ROUTINE R61CSM
025106,000621:
025107,000622: # PROGRAM DESCRIPTION
025108,000623: # MOD NO- 2
025109,000624: # MOD BY- N. BRODEUR
025110,000625:
025111,000626: # FUNCTIONAL DESCRIPTION-
025112,000627:
025113,000628: # TO COMPUTE THE PREFERRED TRACKING ATTITUDE OF THE CSM TO ENABLE OPTICS
025114,000629: # TRACKING OF THE LM AND TO PERFORM THE MANEUVER TO THE PREFERRED
025115,000630: # OR X-AXIS TRACKING ATTITUDE.
025116,000631:
025117,000632: # CALLING SEQUENCE-
025118,000633:
025119,000634: # TC BANKCALL
025120,000635: # CADR R61CSM
025121,000636:
025122,000637: # SUBROUTINES CALLED
025123,000638:
025124,000639: # MAKECADR BANKCALL
025125,000640: # INTPRET FLAGUP FLAGDOWN
025126,000641: # BANKJUMP CRS61.1 R60CSM
025127,000642: # PHASCHNG
025128,000643:
025129,000644: # NORMAL EXIT MODES-
025130,000645:
025131,000646: # NORMAL RETURN IS TO CALLER + 1
025132,000647:
025133,000648: # OUTPUT-
025134,000649:
025135,000650: # SEE OUTPUT FOR CRS61.1 & ATTITUDE MANEUVER ROUTINE (R60CSM)
025136,000651:
025137,000652: # ERASABLE INITIALIZATION REQUIRED
025138,000653:
025139,000654: # GENRET USED TO SAVE Q FOR RETURN
025140,000655: # R61CNTR MUST BE PRESET TO ZERO
025141,000656:
025142,000657: # FLAGS SET + RESET
025143,000658:
025144,000659: # 3-AXIS FLAG
025145,000660:
025146,000661: # DEBRIS
025147,000662:
025148,000663: # SEE SUBROUTINES
025149,000664:
025150,000665: 37,2536 E6,1770 EBANK= GENRET
025151,000666: 37,2536 COUNT* $$/R61 # ROUTINES - NAVIGATION - PREF. TR. 9TT=
025152,000667:
025153,000668: 37,2536 34752 R61CSM CAF EBANK6 # SWITCH TO EBANK 6
025154,000669: 37,2537 56003 XCH EBANK
025155,000670: 37,2540 55771 TS SAVBNK # SAVE EBANK
025156,000671: 37,2541 04604 TC MAKECADR
025157,000672: 37,2542 55770 TS GENRET
025158,000673: 37,2543 11775 CCS R61CNTR # TEST R61CNTR
025159,000674: 37,2544 02575 TC DECRM61 # NOT READY TO DO R61.
025160,000675: 37,2545 02547 TC +2 # DO R61
025161,000676: 37,2546 02576 TC DECRM61 +1
025162,000677: 37,2547 06006 TC INTPRET
025163,000678: 37,2550 77624 CALL
025164,000679: 37,2551 71225 CRS61.1 # LOS DETERMINATION + VEH ATTITUDE
025165,000680: 37,2552 77776 EXIT
025166,000681: 37,2553 50154 INDEX MPAC
025167,000682: 37,2554 02555 TC +1
025168,000683: 37,2555 02574 TC R61END # SUBROUTINE DRIVING DAP (EXIT R61)
025169,000684: # OR AUTO MODE NOT SET (EXIT R61)
025170,000685: # OR STIKFLAG SET (EXIT R61)
025171,000686: 37,2556 05447 R61C1 TC DOWNFLAG # RESET 3-AXIS FLAG
025172,000687: 37,2557 00124 ADRES 3AXISFLG # BIT 6 FLAG 5
![]() |
Page 565 |
025174,000689: 37,2560 44712 CS ONE # SET R61CNTR NEG. TO INDICATE KALCMANU
025175,000690: 37,2561 55775 TS R61CNTR
025176,000691:
025177,000692: 37,2562 05435 TC UPFLAG # SET FLAG FOR PROIRITY DISPLAYS FOR R60
025178,000693: 37,2563 00077 ADRES PDSPFLAG # BIT 12 FLAG 4
025179,000694: 37,2564 04555 TC BANKCALL
025180,000695: 37,2565 56000 CADR R60CSM
025181,000696: 37,2566 05447 TC DOWNFLAG # RESET FLAG FOR PRIORITY DISPLAYS IN R60
025182,000697: 37,2567 00077 ADRES PDSPFLAG # BIT 12 FLAG 4
025183,000698: 37,2570 05301 TC PHASCHNG
025184,000699: 37,2571 00111 OCT 00111
025185,000700: 37,2572 34714 CAF ZERO
025186,000701: 37,2573 02575 TC DECRM61
025187,000702: 37,2574 36214 R61END CAF THREE
025188,000703:
025189,000704: 37,2575 55775 DECRM61 TS R61CNTR
025190,000705:
025191,000706: 37,2576 31770 CAE GENRET
025192,000707: 37,2577 22000 LXCH A # RETURN IS IN L
025193,000708: 37,2600 31771 CA SAVBNK # RESTORE EBANK
025194,000709: 37,2601 56003 XCH EBANK
025195,000710: 37,2602 22000 LXCH A # RETURN IS NOW BACK IN A
025196,000711: 37,2603 04577 TC BANKJUMP # EXIT R61
025197,000712: 13,2176 BANK 13
025198,000713: 23,2000 SETLOC P20S2
025199,000714: 23,2000 BANK
025200,000715:
025201,000716: 23,3047 E7,1725 EBANK= MRKBUF1
![]() |
Page 566 |
025203,000718: # BVECTOR PERFORMS COMPUTATIONS FOR
025204,000719:
025205,000720: # DELTAQ, THE MEASURED DEVIATION BASED ON THE DIFFERENCE BETWEEN THE CSM-LE
025206,000721: # M STATE VECTOR ESTIMATES AND THE ACTUAL TRACKING MEASUREMENT.
025207,000722:
025208,000723: # US, THE MODIFIED FICTITIOUS STAR DIRECTION VECTOR
025209,000724: # GEOMETRY VECTOR B ASSOCIATED WITH EACH TRACKING MEASUREMENT.
025210,000725:
025211,000726: # INPUT
025212,000727:
025213,000728: # UM, 1/2 UNIT VECTOR ALONG THE CSM-LM LINE OF SIGHT (BASIC REF. SYSTEM)
025214,000729:
025215,000730: # USTAR, FICTITIOUS STAR DIRECTION (1/2 UNIT VECTOR)
025216,000731:
025217,000732: # RCLP, RELATIVE CSM TO LM POSITION VECTOR
025218,000733:
025219,000734: # OUTPUT
025220,000735:
025221,000736: # USTAR, MODIFIED FICTITOUS STAR DIRECTION (1/2 UNIT VECTOR)
025222,000737:
025223,000738: # BVECTOR = 9 DIMENSIONAL BVECTOR (1/2 UNIT VEC.)
025224,000739:
025225,000740: # DELTAQ = MEASURED DEVIATION
025226,000741:
025227,000742: # CALLING SEQUENCE
025228,000743:
025229,000744: # L CALL BVECTORS
025230,000745:
025231,000746: # NORMAL EXIT
025232,000747:
025233,000748: # L+1 OF CALLING SEQUENCE
025234,000749:
025235,000750: 23,3047 COUNT 23/20SUB
025236,000751:
025237,000752: 23,3047 77620 BVECTORS STQ
025238,000753: 23,3050 02317 EGRESS
025239,000754: 23,3051 53575 VLOAD UNIT
025240,000755: 23,3052 03531 RCLP # RELATIVE POSITION VECTOR
025241,000756: 23,3053 14033 STODL 26D # RCLP UNIT VEC
025242,000757: 23,3054 00045 36D # RCLP ABS VALUE
025243,000758: 23,3055 25301 STOVL TEMPOR1 # MOVE TO SAFE LOCATION
025244,000759: 23,3056 01245 USTAR
025245,000760: 23,3057 53435 VXV UNIT
025246,000761: 23,3060 00033 26D # USTAR = UNIT(US X UCL)
025247,000762: 23,3061 37502 STCALL BVECTOR
025248,000763: 23,3062 56741 GRP2PC # PHASE CHANGE
025249,000764: 23,3063 77775 VLOAD
025250,000765: 23,3064 03502 BVECTOR
025251,000766: 23,3065 01245 STORE USTAR
025252,000767: 23,3066 72441 DOT SL1
025253,000768: 23,3067 01235 UM # USTAR DOT UM
025254,000769: 23,3070 45326 ACOS DSU
025255,000770: 23,3071 15322 DP1/4TH
025256,000771: 23,3072 41301 NORM DMP
025257,000772: 23,3073 00047 X1
025258,000773: 23,3074 07107 PI/4.0
025259,000774: 23,3075 53605 DMP SRR*
025260,000775: 23,3076 01301 TEMPOR1 # RCLP ABS VALUE
025261,000776: 23,3077 21576 0 -3,1 # ADJUST SCALING
025262,000777: 23,3100 27524 STOVL DELTAQ
025263,000778: 23,3101 15332 ZEROVECS
025264,000779: 23,3102 03510 STORE BVECTOR +6
025265,000780: 23,3103 03516 STORE BVECTOR +12D
025266,000781: 23,3104 77650 GOTO
![]() |
Page 567 |
025268,000783: 23,3105 02317 EGRESS
025269,000784: 23,3106 31103 36652 PI/4.0 2DEC .785398164
025270,000785:
![]() |
Page 568 |
025272,000787: # GETUM-DETERMINES THE LINE OF SIGHT UNIT VECTOR UM IN THE BASIC REFERENC
025273,000788: # E COORDINATE SYSTEM FROM THE OPTICS SHAFT AND TRUNNION ANGLES AND THE IM
025274,000789: # U GIMBAL ANGLES.
025275,000790:
025276,000791: # INPUT
025277,000792:
025278,000793: # MARKDATA, BASE ADDRESS OF MARK DATA
025279,000794:
025280,000795: # REFSMMAT, ROTATION MATRIX FROM STABLE MEMBER TO BASIC REF. COORD. SYSTEM
025281,000796:
025282,000797: # SUBROUTINES CALLED-
025283,000798:
025284,000799: # SXTNB - SEXT. ANGULAR READINGS TO NAV. BASE COOR.
025285,000800:
025286,000801: # NBSM - TRANSFORM FROM NAV. BASE TO STABLE MEMBER
025287,000802:
025288,000803: # OUTPUT
025289,000804:
025290,000805: # MPAC = LINE OF SIGHT 1/2 UNIT VECTOR IN BASIC REFERENCE SYSTEM
025291,000806:
025292,000807: # CALLING SEQUENCE
025293,000808:
025294,000809: # L CALL GETUM
025295,000810:
025296,000811: # NORMAL EXIT
025297,000812:
025298,000813: # L+1 OF CALLING SEQUENCE
025299,000814:
025300,000815: 23,3110 40220 GETUM STQ SETPD
025301,000816: 23,3111 02317 EGRESS
025302,000817: 23,3112 00001 0
025303,000818: 23,3113 76740 LXC,1 VLOAD*
025304,000819: 23,3114 01242 MARKDATA # CONTAINS ADDRESS OF MARK DATA
025305,000820: 23,3115 00002 1,1
025306,000821: 23,3116 23676 STODL* MARKDOWN +1 # TRANSFER DATA FROM WORKING STORAGE
025307,000822: 23,3117 00001 0,1 # TO MARKDOWN ARRAY FOR DOWNLINK
025308,000823: 23,3120 03675 STORE MARKDOWN
025309,000824: 23,3121 77774 AXT,2
025310,000825: 23,3122 00002 2
025311,000826: 23,3123 67064 XSU,2 SXA,2
025312,000827: 23,3124 00046 X1 # X1 = MARKDATA
025313,000828: 23,3125 00050 S1 # S1 = MARKDATA(ADR) +2
025314,000829: 23,3126 77624 CALL
025315,000830: 23,3127 46000 SXTNB # SEXT. ANGULAR READINGS TO NAV. BASE COOR.
025316,000831: 23,3130 77624 CALL
025317,000832: 23,3131 47541 NBSM # TRANSFORM FROM NAV. BASE TO STABLE MEM.
025318,000833: 23,3132 76505 VXM VSL1
025319,000834: 23,3133 01736 REFSMMAT
025320,000835: 23,3134 77650 GOTO # MPAC = (UM) LINE OF SIGHT VECTOR
025321,000836: 23,3135 02317 EGRESS # EXIT
025322,000837:
![]() |
Page 569 |
025324,000839: # RENDEZVOUS TRACKING DATA PROCESSING ROUTINE (R22)
025325,000840:
025326,000841: # PURPOSE (1) TO PROCESS RENDEZVOUS SIGHTING MARK DATA TO UPDATE THE STATE VECTOR OF EITHER THE CSM OR LM AS
025327,000842: # DEFINED BY THE RENDEZVOUS NAVIGATION PROGRAM (P20).
025328,000843:
025329,000844: # ASSUMPTIONS (1) THIS ROUTINE IS MANUALLY SELECTED BY THE ASTRONAUT BY V55E WHENEVER RENDEZVOUS SIGHTING MARKS
025330,000845: # ARE DESIRED. ITS SELECTION HOWEVER IS LIMITED TO PERIODS WHEN THE CMC IS HOLDING FOR A V/N FLASHING
025331,000846: # DATA DISPLAY. THIS ROUTINE RETURNS TO THE ORIGINAL PROGRAM AT THE INTERRUPTED DISPLAY.
025332,000847:
025333,000848: 34,2512 BANK 34
025334,000849: 34,2000 SETLOC P20S3
025335,000850: 34,2000 BANK
025336,000851:
025337,000852: 34,2512 COUNT 34/R22
025338,000853:
025339,000854: 34,2512 37663 R22 CAF PRIO26
025340,000855: 34,2513 55056 TS PHSPRDT2
025341,000856: 34,2514 05103 TC PRIOCHNG
025342,000857: 34,2515 37714 CA NEG3
025343,000858: 34,2516 55734 TS MRKBUF2
025344,000859: 34,2517 06006 TC INTPRET
025345,000860: 34,2520 77634 RTB
025346,000861: 34,2521 45505 LOADTIME
025347,000862: 34,2522 01152 STORE VHFTIME # PRESENT TIME
025348,000863: 34,2523 77624 REND1 CALL
025349,000864: 34,2524 56741 GRP2PC
025350,000865: 34,2525 77624 CALL
025351,000866: 34,2526 56404 WAITONE
025352,000867: 34,2527 77776 REND1A EXIT
025353,000868: 34,2530 31734 CA MRKBUF2
025354,000869: 34,2531 00006 EXTEND
025355,000870: 34,2532 12535 BZF REND2
025356,000871: 34,2533 00006 EXTEND
025357,000872: 34,2534 62554 BZMF REND3A
025358,000873: 34,2535 36211 REND2 CAF SIX
025359,000874: 34,2536 05475 TC GENTRAN
025360,000875: 34,2537 01734 ADRES MRKBUF2
025361,000876: 34,2540 01224 ADRES MARKTIME # MARKTIME MUST BE CONTIGUOUS WITH VTEMP
025362,000877: 34,2541 37714 CAF NEG3 # NEG VALUE TO INDICATE VALUES USED
025363,000878: 34,2542 55734 TS MRKBUF2
025364,000879: 34,2543 00003 RELINT
025365,000880: 34,2544 06006 TC INTPRET
025366,000881: 34,2545 45014 CLEAR CALL
025367,000882: 34,2546 04667 SOURCFLG # 0 = OPTICS DATA
025368,000883: 34,2547 56741 GRP2PC # PHASE CHANGE
025369,000884: 34,2550 52131 SSP GOTO
025370,000885: 34,2551 01243 MARKDATA
025371,000886: 34,2552 01224 ECADR VTEMP -2
025372,000887: 34,2553 70577 REND4
025373,000888: 34,2554 06006 REND3A TC INTPRET
025374,000889: 34,2555 77624 REND3 CALL
![]() |
Page 570 |
025376,000891: 34,2556 56741 GRP2PC
025377,000892: 34,2557 77624 CALL
025378,000893: 34,2560 56404 WAITONE
025379,000894: 34,2561 77614 BOFF
025380,000895: 34,2562 04746 VHFRFLAG
025381,000896: 34,2563 70527 REND1A
025382,000897: 34,2564 77634 RTB
025383,000898: 34,2565 45505 LOADTIME # PRESENT TIME
025384,000899: 34,2566 45225 DSU DSU
025385,000900: 34,2567 14647 60SECDP # 1 MIN
025386,000901: 34,2570 01152 VHFTIME # LAST READING OF RADAR
025387,000902: 34,2571 45040 BMN CALL
025388,000903: 34,2572 70527 REND1A
025389,000904: 34,2573 56415 RANGERD # READ RADAR RANGE
025390,000905: 34,2574 77745 DLOAD
025391,000906: 34,2575 01225 MARKTIME
025392,000907: 34,2576 01152 STORE VHFTIME # FOR DOWNLINK
025393,000908: 34,2577 77624 REND4 CALL
025394,000909: 34,2600 56343 SETINTG # SET INTEGRV FLAGS
025395,000910: 34,2601 45014 BON CALL
025396,000911: 34,2602 00707 VEHUPFLG
025397,000912: 34,2603 71034 CSMUPP # BRANCH IF CSM UPDATE
025398,000913: 34,2604 27113 INTEGRV
025399,000914: 34,2605 77624 CALL
025400,000915: 34,2606 56741 GRP2PC # PHASE CHANGE
025401,000916: 34,2607 77624 CALL
025402,000917: 34,2610 56343 SETINTG # SET INTEGRV FLAGS
025403,000918: 34,2611 77614 CLEAR
025404,000919: 34,2612 01674 VINTFLAG # SET INTEGRATION VEHICLE TO LM
025405,000920: 34,2613 43014 REND5 BOFF SET
025406,000921: 34,2614 02756 RENDWFLG
025407,000922: 34,2615 70617 REND5A # DO NOT INTEGRATE W IF FLAG = 0
025408,000923: 34,2616 01476 DIM0FLAG
025409,000924: 34,2617 77624 REND5A CALL
025410,000925: 34,2620 27113 INTEGRV
025411,000926: 34,2621 77624 CALL
025412,000927: 34,2622 56526 SHIFTNDX # SET EARTH MOON SCALING INDEX
025413,000928: 34,2623 77624 CALL
025414,000929: 34,2624 71123 CMPOS # SET CSM POSITION
025415,000930: 34,2625 45014 SET CALL
025416,000931: 34,2626 02464 INCORFLG # SET FOR 1ST PASS
025417,000932: 34,2627 71132 LMPOS # SET LM POSITION
025418,000933: 34,2630 43014 CLEAR BON
025419,000934: 34,2631 01671 ORBWFLAG # CLEAR FOR ORBITAL AND CISLUNAR
025420,000935: 34,2632 02716 RENDWFLG
025421,000936: 34,2633 70643 REND6
025422,000937: 34,2634 77745 DLOAD
025423,000938: 34,2635 02001 WRENDPOS
025424,000939: 34,2636 34001 STCALL 0 # 0 = WRENDPOS 1 = WRENDVEL
025425,000940: 34,2637 56544 INITIALW # INITIALIZE W MATRIX
![]() |
Page 571 |
025427,000942: 34,2640 77745 DLOAD
025428,000943: 34,2641 15332 ZEROVECS
025429,000944: 34,2642 01126 STORE VHFCNT # ZERO OUT VHFCNT AND TRKMKCNT
025430,000945: 34,2643 77614 REND6 SET
025431,000946: 34,2644 02476 RENDWFLG
025432,000947: 34,2645 52375 VLOAD VSU
025433,000948: 34,2646 01215 LEMPOS
025434,000949: 34,2647 01207 CSMPOS
025435,000950: 34,2650 03531 STORE RCLP # LM - CSM
025436,000951: 34,2651 43056 REND7 UNIT BON
025437,000952: 34,2652 04707 SOURCFLG
025438,000953: 34,2653 71045 REND14 # BRANCH IF DATA IS RADAR
025439,000954: 34,2654 01273 STORE UCL
025440,000955: 34,2655 45014 BOFF CALL
025441,000956: 34,2656 02744 INCORFLG
025442,000957: 34,2657 70671 REND9
025443,000958: 34,2660 47110 GETUM # CALCULATE UM LINE OF SIGHT
025444,000959: 34,2661 25235 STOVL UM
025445,000960: 34,2662 01273 UCL
025446,000961: 34,2663 40035 VXV BOV
025447,000962: 34,2664 01235 UM # UCL X UM
025448,000963: 34,2665 70666 REND8
025449,000964: 34,2666 40056 REND8 UNIT BOV
025450,000965: 34,2667 70555 REND3 # BRANCH IF OVERFLOW IGNORE MARK
025451,000966: 34,2670 01245 STORE USTAR
025452,000967: 34,2671 77624 REND9 CALL
025453,000968: 34,2672 47047 BVECTORS
025454,000969: 34,2673 77214 BON VLOAD
025455,000970: 34,2674 00707 VEHUPFLG
025456,000971: 34,2675 70701 REND9A
025457,000972: 34,2676 03502 BVECTOR
025458,000973: 34,2677 77676 VCOMP
025459,000974: 34,2700 03502 STORE BVECTOR
025460,000975: 34,2701 77624 REND9A CALL
025461,000976: 34,2702 56741 GRP2PC
025462,000977: 34,2703 77614 BON
025463,000978: 34,2704 00706 R23FLG
025464,000979: 34,2705 71076 REND15 # BRANCH IF BACKUP OPTICS (R23 WORKING)
025465,000980: 34,2706 43345 DLOAD DAD
025466,000981: 34,2707 31220 SXTVAR
025467,000982: 34,2710 31222 IMUVAR
025468,000983: 34,2711 27526 REND10 STOVL VARIANCE # TEMP STORAGE FOR VARIANCE CALC.
025469,000984: 34,2712 03531 RCLP
025470,000985: 34,2713 60246 ABVAL NORM
025471,000986: 34,2714 00047 X1
025472,000987: 34,2715 41316 DSQ DMP
025473,000988: 34,2716 03526 VARIANCE
025474,000989: 34,2717 45070 XAD,1 CALL
025475,000990: 34,2720 00046 X1
025476,000991: 34,2721 56526 SHIFTNDX # GET EARTH MOON SCALING INDEX
![]() |
Page 572 |
025478,000993: 34,2722 56070 XAD,1 XAD,1
025479,000994: 34,2723 00047 X2
025480,000995: 34,2724 00047 X2
025481,000996: 34,2725 72257 SR* TLOAD
025482,000997: 34,2726 20577 0 -2,1 # ADJUST SCALING TO B-40
025483,000998: 34,2727 00155 MPAC
025484,000999: 34,2730 03526 STORE VARIANCE
025485,001000: 34,2731 54335 SLOAD SR
025486,001001: 34,2732 02400 INTVAR # INTEGRATION VARIANCE SCALED B-15
025487,001002: 34,2733 20632 25D # SCALE IT B-40
025488,001003: 34,2734 47171 TAD RTB
025489,001004: 34,2735 03526 VARIANCE
025490,001005: 34,2736 45562 TPMODE
025491,001006: 34,2737 03526 STORE VARIANCE
025492,001007: 34,2740 76214 BOFF TAD
025493,001008: 34,2741 04747 SOURCFLG # BRANCH IF NOT VHF RADAR
025494,001009: 34,2742 70751 REND10A
025495,001010: 34,2743 03005 RVARMIN # VHF RADAR MIN. VARIANCE
025496,001011: 34,2744 72244 BPL TLOAD
025497,001012: 34,2745 70751 REND10A
025498,001013: 34,2746 03005 RVARMIN
025499,001014: 34,2747 77646 ABS # MIN. VALUE WAS STORED AS NEG.
025500,001015: 34,2750 03526 STORE VARIANCE # STORE MIN. VALUE
025501,001016: 34,2751 45014 REND10A CLEAR CALL
025502,001017: 34,2752 02666 DMENFLG # CLEAR FOR 6 X 6 W MATRIX
025503,001018: 34,2753 75250 INCORP1 # CALCULATE UPDATE
025504,001019: 34,2754 77624 CALL
025505,001020: 34,2755 56741 GRP2PC
025506,001021: 34,2756 45014 BOFF CALL
025507,001022: 34,2757 02744 INCORFLG
025508,001023: 34,2760 71006 REND12
025509,001024: 34,2761 56526 SHIFTNDX # GET EARTH MOON SCALING INDEX
025510,001025: 34,2762 51575 VLOAD ABVAL
025511,001026: 34,2763 01265 DELTAX +6
025512,001027: 34,2764 77657 SR*
025513,001028: 34,2765 57176 0,2
025514,001029: 34,2766 27504 STOVL N49DISP +2
025515,001030: 34,2767 01257 DELTAX
025516,001031: 34,2770 53646 ABVAL SR*
025517,001032: 34,2771 57176 0,2
025518,001033: 34,2772 03502 STORE N49DISP
025519,001034: 34,2773 77735 SLOAD
025520,001035: 34,2774 02003 RMAX
025521,001036: 34,2775 45261 SR DSU
025522,001037: 34,2776 20613 10D
025523,001038: 34,2777 03502 N49DISP
025524,001039: 34,3000 67240 BMN SLOAD
025525,001040: 34,3001 71141 RENDISP # BRANCH IF POS UP. GREATER THAN MAX.
025526,001041: 34,3002 02004 VMAX
025527,001042: 34,3003 50025 DSU BMN
![]() |
Page 573 |
025529,001044: 34,3004 03504 N49DISP +2
025530,001045: 34,3005 71141 RENDISP # BRANCH IF VEL. UPDATE GREATER THAN MAX.
025531,001046: 34,3006 77624 REND12 CALL
025532,001047: 34,3007 75462 INCORP2 # INCORPORATE UPDATE VALUES INTO STATE VEC
025533,001048: 34,3010 43014 BON BOFF
025534,001049: 34,3011 04707 SOURCFLG
025535,001050: 34,3012 71103 REND16 # BRANCH IF DATA IS RADAR
025536,001051: 34,3013 02744 INCORFLG
025537,001052: 34,3014 71111 REND17
025538,001053: 34,3015 77624 CALL
025539,001054: 34,3016 56526 SHIFTNDX # GET EARTH MOON SCALING INDEX
025540,001055: 34,3017 45014 BON CALL
025541,001056: 34,3020 00707 VEHUPFLG
025542,001057: 34,3021 71117 REND18 # BRANCH IF CSM UPDATE
025543,001058: 34,3022 71132 LMPOS # GET LM POSITION
025544,001059: 34,3023 77624 REND13 CALL
025545,001060: 34,3024 56741 GRP2PC # PHASE CHANGE
025546,001061: 34,3025 52375 VLOAD VSU
025547,001062: 34,3026 01215 LEMPOS
025548,001063: 34,3027 01207 CSMPOS
025549,001064: 34,3030 03531 STORE RCLP # LM - CSM
025550,001065: 34,3031 77614 CLRGO
025551,001066: 34,3032 02624 INCORFLG
025552,001067: 34,3033 70651 REND7 # BRANCH FOR 2ND PASS THIS OPTICS MARK
025553,001068: 34,3034 45014 CSMUPP CLEAR CALL
025554,001069: 34,3035 01674 VINTFLAG # SET INTEGRATION VEHICLE EQ LM
025555,001070: 34,3036 27113 INTEGRV
025556,001071: 34,3037 77624 CALL
025557,001072: 34,3040 56741 GRP2PC # PHASE CHANGE
025558,001073: 34,3041 77624 CALL
025559,001074: 34,3042 56343 SETINTG # SET FLAGS FOR INTEGRATION
025560,001075: 34,3043 77650 GOTO
025561,001076: 34,3044 70613 REND5
025562,001077: 34,3045 27502 REND14 STOVL BVECTOR # VHF RADAR BVECTOR
025563,001078: 34,3046 15332 ZEROVECS
025564,001079: 34,3047 03510 STORE BVECTOR +6
025565,001080: 34,3050 27516 STOVL BVECTOR +12D
025566,001081: 34,3051 03531 RCLP
025567,001082: 34,3052 71256 UNIT DLOAD
025568,001083: 34,3053 01257 VHFRANGE # VHFRANGE SCALED B-27
025569,001084: 34,3054 60414 BON SR2
025570,001085: 34,3055 04303 MOONTHIS
025571,001086: 34,3056 71057 +1
025572,001087: 34,3057 43025 DSU SET
025573,001088: 34,3060 00045 36D # ABVAL (RCLP)
025574,001089: 34,3061 02464 INCORFLG
025575,001090: 34,3062 03524 STORE DELTAQ
025576,001091: 34,3063 77214 BOFF VLOAD
025577,001092: 34,3064 00747 VEHUPFLG
025578,001093: 34,3065 71071 REND14A
![]() |
Page 574 |
025580,001095: 34,3066 03502 BVECTOR
025581,001096: 34,3067 77676 VCOMP
025582,001097: 34,3070 03502 STORE BVECTOR
025583,001098: 34,3071 77624 REND14A CALL
025584,001099: 34,3072 56741 GRP2PC
025585,001100: 34,3073 52145 DLOAD GOTO
025586,001101: 34,3074 03003 RVAR
025587,001102: 34,3075 70711 REND10
025588,001103: 34,3076 43335 REND15 SLOAD DAD # GET ALT LOS VARIANCE
025589,001104: 34,3077 01357 ALTVAR # BACKUP OPTICS
025590,001105: 34,3100 31222 IMUVAR # IMU VARIANCE
025591,001106: 34,3101 77650 GOTO
025592,001107: 34,3102 70711 REND10
025593,001108: 34,3103 62150 REND16 LXA,1 INCR,1
025594,001109: 34,3104 01125 VHFCNT # VHF RADAR UPDATE COUNT
025595,001110: 34,3105 00001 DEC 1 B-14
025596,001111: 34,3106 52130 SXA,1 GOTO
025597,001112: 34,3107 01125 VHFCNT # UPDATE COUNT
025598,001113: 34,3110 70523 REND1
025599,001114: 34,3111 62150 REND17 LXA,1 INCR,1
025600,001115: 34,3112 01126 TRKMKCNT # OPTICS MARK COUNT
025601,001116: 34,3113 00001 DEC 1 B-14
025602,001117: 34,3114 52130 SXA,1 GOTO
025603,001118: 34,3115 01126 TRKMKCNT # UPDATE COUNT
025604,001119: 34,3116 70555 REND3
025605,001120: 34,3117 77624 REND18 CALL
025606,001121: 34,3120 71123 CMPOS # GET CSM POSITION
025607,001122: 34,3121 77650 GOTO
025608,001123: 34,3122 71023 REND13
025609,001124: 34,3123 53775 CMPOS VLOAD VSR*
025610,001125: 34,3124 01573 DELTACSM
025611,001126: 34,3125 57167 7,2
025612,001127: 34,3126 77655 VAD
025613,001128: 34,3127 01607 RCVCSM
025614,001129: 34,3130 01207 STORE CSMPOS # CSM POSITION SCALED B-27 OR B-29
025615,001130: 34,3131 77616 RVQ
025616,001131: 34,3132 53775 LMPOS VLOAD VSR*
025617,001132: 34,3133 01645 DELTALEM
025618,001133: 34,3134 57167 7,2
025619,001134: 34,3135 77655 VAD
025620,001135: 34,3136 01661 RCVLEM
025621,001136: 34,3137 01215 STORE LEMPOS # LM POSITION SCALED B-27 OR B-29
025622,001137: 34,3140 77616 RVQ
025623,001138: 34,3141 77776 RENDISP EXIT
025624,001139: 34,3142 30105 CA FLAGWRD9
025625,001140: 34,3143 74703 MASK BIT8
025626,001141: 34,3144 00006 EXTEND
025627,001142: 34,3145 13150 BZF +3
025628,001143: 34,3146 34711 CA BIT2
025629,001144: 34,3147 03151 TC +2
![]() |
Page 575 |
025631,001146: 34,3150 34712 CA BIT1
025632,001147: 34,3151 55505 TS N49DISP +4
025633,001148: 34,3152 34714 CAF ZERO # SET TEMPOR1 > ZERO TO INDICATE
025634,001149: 34,3153 55300 TS TEMPOR1 # V06 N49 DISPLAY HASNT BEEN ANSWERED
025635,001150: 34,3154 05301 TC PHASCHNG
025636,001151: 34,3155 04022 OCT 04022
025637,001152: 34,3156 37664 CAF PRIO27 # SET UP DISPLAY JOB WITH HIGHER PRIORITY
025638,001153: 34,3157 05027 TC NOVAC
![]() |
[WORKAROUND] RSB 2004 |
025640,001155: 34,3160 30,2000 SBANK= LOWSUPER
025641,001156: 34,3160 E7,1725 EBANK= MRKBUF1 # THAN PRESENT JOB
025642,001157: 34,3160 03172 70067 2CADR RENDISP2
025643,001158:
025644,001159: 34,3162 06006 RENDISP7 TC INTPRET
025645,001160: 34,3163 00155 STORE MPAC
025646,001161: 34,3164 53135 SLOAD BZE
025647,001162: 34,3165 01301 TEMPOR1
025648,001163: 34,3166 71163 RENDISP7 +1 # DISPLAY HAS NOT BEEN ANSWERED YET
025649,001164: 34,3167 52040 BMN GOTO
025650,001165: 34,3170 71006 REND12 # NEG INDICATES PROCEED
025651,001166: 34,3171 71201 RENDISP3 # POS INDICATES RECYCLE
025652,001167: 34,3172 33223 RENDISP2 CAF V06N49
025653,001168: 34,3173 04555 TC BANKCALL
025654,001169: 34,3174 20635 CADR PRIODSP
025655,001170: 34,3175 04550 TC GOTOV56 # TERM EXIT P20 VIA V56
025656,001171: 34,3176 44712 CS ONE # NEG INDICATES PROCEED RENDISP7 JOB
025657,001172: 34,3177 55300 TS TEMPOR1 # POS INDICATES RECYCLE RENDISP7 JOB
025658,001173: 34,3200 05112 TC ENDOFJOB # GO COMPLETE ABOVE JOB
025659,001174: 34,3201 77614 RENDISP3 BON
025660,001175: 34,3202 04707 SOURCFLG
025661,001176: 34,3203 70523 REND1 # DATA WAS RADAR GO LOOK FOR OPTICS NEXT
025662,001177: 34,3204 77776 EXIT
025663,001178: 34,3205 E7,1725 EBANK= MRKBUF1
025664,001179: 34,3205 00004 INHINT
025665,001180: 34,3206 33224 CAF BUFBANK
025666,001181: 34,3207 54006 TS BBANK
025667,001182: 34,3210 37716 CA NEGONE
025668,001183: 34,3211 55725 TS MRKBUF1 # ERASE MARK ONE BUFFER
025669,001184: 34,3212 55734 TS MRKBUF2 # ERASE MARK TWO BUFFER
025670,001185: 34,3213 00003 RELINT
025671,001186: 34,3214 06006 RENDISP4 TC INTPRET
025672,001187: 34,3215 77650 GOTO
025673,001188: 34,3216 70555 REND3
025674,001189: 34,3217 00052 36307 SXTVAR 2DEC 0.04 E-6 B+16 # SXT ERROR VARIANCE = .04 (MR)SQ
025675,001190: 34,3221 00052 36307 IMUVAR 2DEC 0.04 E-6 B+16 # IMU ERROR VARIANCE = .04 (MR)SQ
025676,001191: 34,3223 01461 V06N49 VN 0649
025677,001192: 34,3224 E7,1725 EBANK= MRKBUF1
025678,001193: 34,3224 70067 BUFBANK BBCON RENDISP3
025679,001194: 31,2021 BANK 31
025680,001195: 27,2000 SETLOC R22S1
![]() |
Page 576 |
025682,001197: 27,2000 BANK
025683,001198: 27,2343 45020 SETINTG STQ CALL
025684,001199: 27,2344 02317 EGRESS
025685,001200: 27,2345 27371 INTSTALL # RESERVE INTEGRATION
025686,001201: 27,2346 43145 DLOAD SET
025687,001202: 27,2347 01225 MARKTIME
025688,001203: 27,2350 01472 STATEFLG
025689,001204: 27,2351 00041 STORE TDEC1 # MARKTIME
025690,001205: 27,2352 43014 CLEAR CLEAR
025691,001206: 27,2353 01673 INTYPFLG # PRECISION INTEGRATION
025692,001207: 27,2354 01676 DIM0FLAG
025693,001208: 27,2355 43014 SET CLRGO
025694,001209: 27,2356 01474 VINTFLAG # SET VEHICLE EQ. CSM
025695,001210: 27,2357 01635 D6OR9FLG # SET W MATRIX DIM. EQ 6
025696,001211: 27,2360 02317 EGRESS # EXIT
025697,001212: 27,2361 77620 CNTCHK STQ
025698,001213: 27,2362 01150 POINTEX
025699,001214: 27,2363 77614 CONTCHK BOFF
025700,001215: 27,2364 01742 REFSMFLG # BRANCH TO END OF JOB IF REFSMMAT NO GOOD
025701,001216: 27,2365 30147 ENDPLAC
025702,001217: 27,2366 50135 SLOAD BMN
025703,001218: 27,2367 03376 R61CNTR
025704,001219: 27,2370 56406 WAITONE1
025705,001220: 27,2371 43014 BON BOFF # IS TRACK FLAG SET
025706,001221: 27,2372 00710 UPDATFLG
025707,001222: 27,2373 01150 POINTEX
025708,001223: 27,2374 00752 TRACKFLG
025709,001224: 27,2375 30147 ENDPLAC
025710,001225: 27,2376 77776 EXIT
025711,001226: 27,2377 05301 REDOR22 TC PHASCHNG
025712,001227: 27,2400 00132 OCT 00132
025713,001228: 27,2401 37663 CAF PRIO26
025714,001229: 27,2402 05103 TC PRIOCHNG
025715,001230: 27,2403 02407 TC WAITONE +3
025716,001231: 27,2404 77620 WAITONE STQ
025717,001232: 27,2405 01150 POINTEX
025718,001233: 27,2406 77776 WAITONE1 EXIT
025719,001234: 27,2407 34740 CAF 4SECS # WAIT 4 SECS.
025720,001235: 27,2410 04555 TC BANKCALL
025721,001236: 27,2411 01732 CADR DELAYJOB
025722,001237: 27,2412 06006 TC INTPRET
025723,001238: 27,2413 77650 GOTO
025724,001239: 27,2414 56363 CONTCHK # CHECK AGAIN NOW
025725,001240: 27,2415 77776 RANGERD EXIT
025726,001241: 27,2416 00004 INHINT
025727,001242: 27,2417 42472 CS OCT17
025728,001243: 27,2420 00006 EXTEND
025729,001244: 27,2421 03013 WAND CHAN13 # ZERO OUT BITS 1-4 OF CHANNEL 13
025730,001245: 27,2422 34334 CAF OCT11
025731,001246: 27,2423 00006 EXTEND
![]() |
Page 577 |
025733,001248: 27,2424 05013 WOR CHAN13 # GENERATE SHIFT PULSES TO RADR, SET R. BIT
025734,001249: 27,2425 00003 RELINT
025735,001250: 27,2426 00006 EXTEND
025736,001251: 27,2427 30025 DCA TIME2
025737,001252: 27,2430 53225 DXCH MARKTIME # READ PRESENT TIME
025738,001253: 27,2431 04555 TC BANKCALL
025739,001254: 27,2432 17514 CADR RADSTALL # WAIT FOR RANGE COMPLETE
025740,001255: 27,2433 02461 TC LIGHTON # BAD DATA GOOD BIT
025741,001256: 27,2434 05520 TC TRFAILOF # TURN TRACKER LIGHT OFF
025742,001257: 27,2435 06006 RANGERD1 TC INTPRET
025743,001258: 27,2436 50135 SLOAD BMN
025744,001259: 27,2437 03704 RM
025745,001260: 27,2440 56447 RANGERD3
025746,001261: 27,2441 77605 DMP
025747,001262: 27,2442 16475 CONVRNGE # CONVERT RANGE TO METERS B-27
025748,001263: 27,2443 77614 RANGERD2 SET
025749,001264: 27,2444 04467 SOURCFLG # SOURCE OF DATA TO VHF RADAR
025750,001265: 27,2445 01257 STORE VHFRANGE
025751,001266: 27,2446 77616 RVQ
025752,001267: 27,2447 77776 RANGERD3 EXIT
025753,001268: 27,2450 30154 CA MPAC
025754,001269: 27,2451 74672 MASK POSMAX
025755,001270: 27,2452 54154 TS MPAC # MASK OUT NEG. SIGN BIT
025756,001271: 27,2453 06006 TC INTPRET
025757,001272: 27,2454 77605 DMP
025758,001273: 27,2455 16475 CONVRNGE # CONVERT FROM NM TO METERS AND SCALE B-27
025759,001274: 27,2456 52015 DAD GOTO
025760,001275: 27,2457 16471 RANGEB14 # VALUE IN METERS OF SIGN BIT SCALED B-27
025761,001276: 27,2460 56443 RANGERD2
025762,001277: 27,2461 05532 LIGHTON TC TRFAILON # TURN TRACKER LIGHT ON
025763,001278: 27,2462 06006 TC INTPRET
025764,001279: 27,2463 77745 DLOAD
025765,001280: 27,2464 01225 MARKTIME
025766,001281: 27,2465 01152 STORE VHFTIME
025767,001282: 27,2466 77650 GOTO
025768,001283: 27,2467 70523 REND1
025769,001284: 27,2470 00045 01217 RANGEB14 2DEC 303431.7 B-27 # 16384 X 18.52 SCALED B-27
025770,001285:
025771,001286: 27,2472 00017 OCT17 OCT 00017
025772,001287: 27,2473 40200 OC40200 OCT 40200
025773,001288: 27,2474 00045 01217 CONVRNGE 2DEC 18.52 B-13 # VHF INPUT RANGE CONV. FROM .01 NM TO M
025774,001289:
025775,001290: 27,2476 00006 VHFREAD EXTEND
025776,001291: 27,2477 04007 ROR SUPERBNK # MUST SAVE SBANK BECAUSE OF RUPT
025777,001292: 27,2500 54016 TS BANKRUPT # EXITS VIA TASKOVER BADEND OR GOODEND
025778,001293: 27,2501 44714 CS ZERO
025779,001294: 27,2502 54734 TS RUPTAGN
025780,001295: 27,2503 00006 EXTEND
025781,001296: 27,2504 22012 QXCH QRUPT
025782,001297: 27,2505 34704 CAF BIT7
![]() |
Page 578 |
025784,001299: 27,2506 70075 MASK STATE +1 # UPDATE FLAG
025785,001300: 27,2507 00006 EXTEND
025786,001301: 27,2510 12520 BZF BYPASS
025787,001302: 27,2511 30046 CA RNRAD
025788,001303: 27,2512 55703 TS RM # SAVE RANGE
025789,001304: 27,2513 34711 CAF BIT2
025790,001305: 27,2514 00006 EXTEND
025791,001306: 27,2515 02033 RAND CHAN33 # READ DATA GOOD BIT
025792,001307: 27,2516 00006 EXTEND
025793,001308: 27,2517 12523 BZF VHFGOOD # BRANCH IF DATA GOOD BIT EQUALS GOOD
025794,001309: 27,2520 34711 BYPASS CAF TWO
025795,001310: 27,2521 04574 TC POSTJUMP
025796,001311: 27,2522 17464 CADR BADEND
025797,001312: 27,2523 34711 VHFGOOD CAF TWO
025798,001313: 27,2524 04574 TC POSTJUMP
025799,001314: 27,2525 17467 CADR GOODEND
025800,001315: 27,2526 43174 SHIFTNDX AXT,2 BON
025801,001316: 27,2527 00000 0
025802,001317: 27,2530 00707 VEHUPFLG
025803,001318: 27,2531 56537 SHIFTA # VEHICLE IS CSM
025804,001319: 27,2532 43414 BON RVQ
025805,001320: 27,2533 04304 LMOONFLG
025806,001321: 27,2534 56535 +1
025807,001322: 27,2535 43514 INCR,2 RVQ
025808,001323: 27,2536 77775 DEC -2 B-14
025809,001324: 27,2537 43414 SHIFTA BON RVQ
025810,001325: 27,2540 04303 CMOONFLG
025811,001326: 27,2541 56542 +1 # MOON ORB.
025812,001327: 27,2542 43514 INCR,2 RVQ
025813,001328: 27,2543 77775 DEC -2 B-14
025814,001329: 27,2544 66370 INITIALW AXT,1 SSP
025815,001330: 27,2545 00044 36D
025816,001331: 27,2546 00051 S1
025817,001332: 27,2547 00006 6
025818,001333: 27,2550 77775 VLOAD
025819,001334: 27,2551 15332 ZEROVECS
025820,001335: 27,2552 06445 INITA STORE W +36D,1 # CLEAR 0 - 35
025821,001336: 27,2553 76100 TIX,1 AXT,1
025822,001337: 27,2554 56552 INITA
025823,001338: 27,2555 00044 36D
025824,001339: 27,2556 06533 INITB STORE W +90D,1 # CLEAR 54 - 89
025825,001340: 27,2557 67300 TIX,1 SLOAD
025826,001341: 27,2560 56556 INITB
025827,001342: 27,2561 00001 0 # POSITION VALUE
025828,001343: 27,2562 02401 STORE W # INITIALIZE DIAGONAL W POSITION
025829,001344: 27,2563 02411 STORE W +8D
025830,001345: 27,2564 02421 STORE W +16D
025831,001346: 27,2565 77735 SLOAD
025832,001347: 27,2566 00002 1 # VELOCITY VALUE
025833,001348: 27,2567 02511 STORE W +72D # INITIALIZE DIAGONAL W VELOCITY
![]() |
Page 579 |
025835,001350: 27,2570 02521 STORE W +80D
025836,001351: 27,2571 02531 STORE W +88D
025837,001352: 27,2572 77616 RVQ
![]() |
Page 580 |
025839,001354: # CRS61.1 4/10/68
025840,001355:
025841,001356: # TO COMPUTE THE PREFERRED TRACKING ATTITUDE OF THE CSM WHICH ENABLES
025842,001357: # OPTICS TRACKING OF THE LM AND LM TRACKING OF THE CSM RADAR TRANSPONDER
025843,001358: # AND TO COMPUTE THE &X-AXIS TRACKING ATTITUDE OF THE CSM WHICH ENABLES
025844,001359: # COAS TRACKING OF THE LM.
025845,001360:
025846,001361: # TO PERFORM THE MANEUVER TO THE SELECTED TRACKING ATTITUDE IF THE
025847,001362: # MANEUVER IS LESS THAN 10 DEGREES BUT TO CALL R60 IF THE MANEUVER IS
025848,001363: # GREATER THAN 10 DEGREES OR IF THE R60 FLAG IS SET.
025849,001364:
025850,001365: # (1) EXTRAPOLATE LM AND CSM STATE VECTORS TO PRESENT TIME USING
025851,001366: # CONIC EQUATIONS.
025852,001367:
025853,001368: # (2) CALCULATE LOS FROM CSM TO LM = RL - RC.
025854,001369:
025855,001370: # (3) THE PREFERRED TRACKING ATTITUDE IS DEFINED AS FOLLOWS:
025856,001371: # THE TRACK AXIS (I) IS ALIGNED ALONG THE LOS TO THE LM. THE
025857,001372: # TRACK AXIS (I) IS DEFINED AS:
025858,001373:
025859,001374: # UNIT(I)=UNIT(Z )COS55 & UNIT(X )SIN55
025860,001375: # - -SC -SC
025861,001376:
025862,001377: # (4) COMPUTE DESIRED CDU ANGLES, USING VECPOINT.
025863,001378:
![]() |
(Sorry, I don't know where (5) and (6) are. — RSB 2004.) |
025865,001380: # (7) FORM DIFFERENCE BETWEEN DESIRED AND ACTUAL CDUS.
025866,001381: # IF ANY OF THE THREE ANGLE DIFFERENCES EXCEEDS 10 DEGREES,
025867,001382: # GROSS MANEUVER IS REQUIRED. SIGNAL R61 (SET MPAC=1) TO
025868,001383: # OPERATE KALCMANU AND EXIT CRS61.1.
025869,001384: # IF ALL DIFFERENCES ARE LESS THAN 10 DEGREES, CONTINUE.
025870,001385:
025871,001386: # (8) CALCULATE ORTHOGONAL LOS RATE IN REF COORDS AS
025872,001387:
025873,001388: # OMEGATH = (UNITLOS(B1) X UNITDV(B1))(ABSDV(B7)/ABSLOS(B29))
025874,001389:
025875,001390: # CONVERSION FACTOR OF 100/2PI (B4) REV CSEC PER RAD SEC IS
025876,001391: # APPLIED TO YIELD UNITS OF REVS/SEC. SCALE IS CARRIED AS
025877,001392: # B+1+1+7-29+4+1 PLUS RESULTS OF NORMALIZING ABSDV, ABSLOS.
025878,001393: # THE EXTRA B+1 RESULTS FROM RESCALING ABSDV B8 AFTER NORM
025879,001394: # TO AVOID OVFLOW ON DIVIDE.
025880,001395:
025881,001396: # UNITLOS = UNIT( RL - RC ) B1.
025882,001397: # UNITDY = UNIT( VL - VC ) B1.
025883,001398: # ABSLOS = LENGTH OF LOS, METERS B29.
025884,001399: # ABSDV = LENGTH OF DV, METERS/CSEC B7.
025885,001400:
025886,001401: # (9) OBTAIN RATE IN SM COORDS.
025887,001402:
025888,001403: # OMEGATHSM = (REFSMMAT)(OMEGATH).
025889,001404:
025890,001405: # (10) OBTAIN GIMBAL ANGLE INCREMENTS FOR 0.1 SECOND.
025891,001406:
025892,001407: # DTHETASM = (0.1)(OMEGATHSM)
025893,001408:
025894,001409: # (11) OBTAIN DELCDUX,Y,Z USING SUBR SMCDURES.
![]() |
Page 581 |
025896,001411: # INPUT CONSISTS OF
025897,001412:
025898,001413: # (A) VECTOR OF ANGULAR INCREMENTS, DTHETASM, STORED
025899,001414: # IN V(DTHETASM).
025900,001415: # (B) SIN,COS CDUX,Y,Z FROM SUBR CDUTRIG.
025901,001416:
025902,001417: # TRANSFER OUTPUT OF SMCDURES FROM V(DCDU) TO VAC14D.
025903,001418:
025904,001419: # (12) CALCULATE ANG LOS RATE IN BODY(NB) COORDS USING SUBR SMNB.
025905,001420:
025906,001421: # OMEGANB = (SMNB)(OMEGATHSM)
025907,001422:
025908,001423: # SUBR SMNB REQUIRES OMEGATHSM IN V(VAC32D) AND ACTUAL CDUS
025909,001424: # (Y,X,Z ORDER) IN V(VAC20D) WITH S1 OF VAC = BASE ADDRESS
025910,001425: # OF CDUS (FIXLOC + 20D).
025911,001426:
025912,001427: # (13) CALCULATE ANG LOS RATE IN CONTROL COORDS AS FOLLOWS
025913,001428:
025914,001429: # WBODY = (MBDYTCTL)(OMEGANB) UNITS=REVS/SEC(B0).
025915,001430:
025916,001431: # ( 0.5 0 0 ) BODY TO
025917,001432: # MBDYTCTL(B1) = ( 0 COS(7.25)B1 -SIN(7.25)B1 ) = CONTROL
025918,001433: # ( 0 SIN(7.25)B1 COS(7.25)B1 ) AXES
025919,001434: # CONVERSION
025920,001435: # MATRIX
025921,001436:
025922,001437: # (14) RESCALE WBODY TO UNITS OF 450 DEG/SEC BY APPLYING FACTOR
025923,001438: # OF 0.8 TO REVS/SEC.
025924,001439:
025925,001440: # (15) ADDRESS LIVE AUTOPILOT REGISTERS IN BASIC (UNDER INHINT).
025926,001441:
025927,001442: # TRANSFER DESIRED CDUS, SCALED 180 DEGREES, FROM T(SAVEDCDU)
025928,001443: # TO V(CDUXD).
025929,001444:
025930,001445: # TRANSFER DELCDUS, SCALED 180 DEG, FROM V(VAC14D)
025931,001446: # TO V(DELCDUX).
025932,001447:
025933,001448: # TRANSFER OMEGA CONTROL, SCALED 450 DEG/SEC, FROM V(MPAC)
025934,001449: # TO V(WBODY).
025935,001450:
025936,001451: # RELINT, SET MPAC=0, EXIT CRS61.1
025937,001452:
025938,001453: # CALL L CALL CRS61.1
025939,001454:
025940,001455: # RETURNS ALL TO L+1.
025941,001456:
025942,001457: # (1) S(MPAC)=0. NORMAL EXIT. 3 SETS OF INPUTS FED TO DAP.
025943,001458: # (2) S(MPAC)=1. CALCULATED DESIRED CDUS,SP, SET IN T(CPHI)
025944,001459: # FOR KALCMANU. ABS(ACDU - DCDU) EXCEEDS 10 DEGREES.
025945,001460: # (3) S(MPAC)=2. GNCS AUTO MODE NOT SELECTED (BIT10=1).
025946,001461: # (4) S(MPAC)=3. DAP HOLD FLAG (HOLDFLAG) NOT EQUAL -1.
![]() |
Page 582 |
025948,001463:
025949,001464: # INPUT (1) TIME2,TIME1. COMPUTER CLOCK TIME,DP, CENTISEC B28.
025950,001465: # (2) CDUX,Y,Z. PRESENT CDU ANGLES,SP,2S COMPL HALF-REVS B0.
025951,001466: # (3) M(REFSMMAT), STABLE MEMBER COORDS B1.
025952,001467:
025953,001468: # OUTPUT NORMAL. EXIT WITH S(MPAC) = 0.
025954,001469:
025955,001470: # (1) CDUXD,CDUYD,CDUZD, DESIRED OUTER, INNER, MIDDLE CDU ANGLES,
025956,001471: # DP, 1S COMPL, SCALED 180 DEGREES (HALF-REVS B0).
025957,001472: # (2) DELCDUX,DELCDUY,DELCDUZ. 0.1 SEC DCU ANGULAR INCREMENTS,
025958,001473: # DP, 1S COMPL, SCALED 180 DEG.
025959,001474: # (3) WBODY,WBODY1,WBODY2. LOS ANGULAR RATE IN CONTROL COORDS,
025960,001475: # DP, 1S COMPL, SCALED 450 DEG/SEC.
025961,001476:
025962,001477: # SPECIAL. EXIT WITH S(MPAC) = 1.
025963,001478:
025964,001479: # (1) CPHI,CTHETA,CPSI. DESIRED OUTER, INNER, MIDDLE CDU ANGLES,
025965,001480: # SP, 2S COMPL, SCALED 180 DEGREES.
025966,001481:
025967,001482: # EXTERNAL SUBROUTINES USED (B)=BASIC
025968,001483:
025969,001484: # (1) CALCGA (5) LOADTIME(B) (9) SMNB
025970,001485: # (2) CDUTRIG (6) MATMOVE
025971,001486: # (3) CSMCONIC (7) RDCDUS(B)
025972,001487: # (4) LEMCONIC (8) SMCDURES
025973,001488:
025974,001489: # ERASABLE (1) S(Q611),EBANK7 CRS61.1 EXIT .
025975,001490: # (2) S(Q6111)EBANK7 CALCDCDU EXIT.
025976,001491: # (3) T(SAVEDCDU) E6 SP VECTOR OF CDUDS.
025977,001492: # (4) V(SAVEPOS) E7 CSM POS VEC AND D(SAVEPOS)= LENGTH OF LOS.
025978,001493: # (5) V(SAVEVEL) E7 CSM VEL VEC.
025979,001494:
025980,001495: # FLAGWDS HOLDFLAG. USED, NOT SET.
025981,001496:
025982,001497: # MISC (1) ERASABLE ITEMP1 USED TO TEMP STORE EBANK UNDER INHINT.
025983,001498: # (2) ERASABLE P21TIME USED AS TEMP STORE DURING CRS61.1
025984,001499: # (3) ERAS DTHETASM USED AS TEMP STORE DURING EARLY CRS61.1
025985,001500:
025986,001501: # DEBRIS - CURRENT VAC AREA, CRS61.1 ERASABLES, ITEMP1, P21TIME
025987,001502:
025988,001503: 24,2002 BANK 24
025989,001504: 34,2000 SETLOC P20S4
025990,001505: 34,2000 BANK
025991,001506:
025992,001507: 34,3225 E6,1646 EBANK= CDUXD
025993,001508: 34,3225 COUNT* $/CRS61
025994,001509:
025995,001510: 34,3225 40220 CRS61.1 STQ SETPD
025996,001511: 34,3226 03704 Q611
025997,001512: 34,3227 00001 0
025998,001513: 34,3230 77634 RTB
![]() |
Page 583 |
026000,001515: 34,3231 45505 LOADTIME # LOAD CLOCK TIME2,1 INTO MPAC.
026001,001516:
026002,001517: 34,3232 36316 STORT STCALL P21TIME # STORE CLOCK TIME FOR SUBR R63
026003,001518: 34,3233 71461 R63 # SUBR TO CALC DCDU (T=PRESENT,PASS1)
026004,001519: 34,3234 77751 TLOAD
026005,001520: 34,3235 01156 THETAD # SAVE DCDU(T) FROM CALCDCDU FOR STEP4.
026006,001521: 34,3236 03373 STORE SAVEDCDU
026007,001522:
026008,001523: 34,3237 77776 EXIT
026009,001524: 34,3240 03265 TC STEP2CK +4 # ELIMINATE FORCED R60 MANEUVER
026010,001525: 34,3241 34371 AUTOCK CAF PRIO30
026011,001526: 34,3242 00006 EXTEND
026012,001527: 34,3243 06031 RXOR CHAN31
026013,001528: 34,3244 77707 MASK FURST3
026014,001529: 34,3245 00006 EXTEND # AUTO MODE SELECTED (BITS 15-13=011)
026015,001530: 34,3246 13250 BZF DAPCK # YES - CONTINUE.
026016,001531: 34,3247 03254 TC ASET
026017,001532:
026018,001533: 34,3250 40075 DAPCK CS FLAGWRD1 # IS STIKFLAG SET (I.E. IS SOMEONE ON RHC)
026019,001534: 34,3251 74675 MASK BIT14
026020,001535: 34,3252 10000 CCS A
026021,001536: 34,3253 03320 TC STEP3CK
026022,001537: 34,3254 34714 ASET CAF ZERO
026023,001538: 34,3255 54154 TS MPAC
026024,001539: 34,3256 06006 TC INTPRET # EXIT CRS61.1
026025,001540: 34,3257 77650 GOTO
026026,001541: 34,3260 03704 Q611
026027,001542:
026028,001543: 34,3261 40101 STEP2CK CS FLAGWRD5 # IS R60FLAG SET
026029,001544: 34,3262 74707 MASK BIT4
026030,001545: 34,3263 00006 EXTEND
026031,001546: 34,3264 13452 BZF MANUEXIS # YES, DO R60
026032,001547: 34,3265 04555 TC BANKCALL
026033,001548: 34,3266 57750 CADR UPACTOFF
026034,001549:
026035,001550: 34,3267 34711 CAF TWO # SET TEMPORARY INDEX DTHETASM = 2
026036,001551: 34,3270 55611 CDULOOP TS DTHETASM
026037,001552: 34,3271 51611 INDEX DTHETASM
026038,001553: 34,3272 30032 CA CDUX # SET A = ACTUAL CDU (ACDU).
026039,001554: 34,3273 00006 EXTEND
026040,001555: 34,3274 51611 INDEX DTHETASM # SET INDEX TO ACCESS DESIRED CDU (DCDU).
026041,001556: 34,3275 21155 MSU THETAD # A = DIFF = ACDU - DCDU.
026042,001557: 34,3276 54154 TS MPAC # RETURN TO INTERPRETER FOR 10 DEGREE CK.
026043,001558: 34,3277 06006 TC INTPRET # (DP APPROX SP OK FOR ROUGH CHECK)
026044,001559: 34,3300 45246 ABS DSU
026045,001560: 34,3301 31550 DEGREE10 # IS (ACDU - DCDU) MORE THAN 10 DEGREES.
026046,001561: 34,3302 77444 BPL EXIT # NO - OK, CONTINUE CHECKING OTHER ANGLES.
026047,001562: 34,3303 71307 STKTEST # TEST STICK FLAG
026048,001563: 34,3304 11611 CCS DTHETASM # HAVE ALL 3 ANGLE DIFFS BEEN CHECKED.
026049,001564: 34,3305 03270 TC CDULOOP # NO - DIM COUNT, CHECK NEXT ANGLE DIFF.
![]() |
Page 584 |
026051,001566: 34,3306 03241 TC AUTOCK
026052,001567: 34,3307 77776 STKTEST EXIT
026053,001568: 34,3310 40075 CS FLAGWRD1
026054,001569: 34,3311 74675 MASK BIT14
026055,001570: 34,3312 10000 CCS A
026056,001571: 34,3313 03452 TC MANUEXIS # STIKFLAG IS NOT SET (DO R63)
026057,001572: 34,3314 34710 CAF BIT3
026058,001573: 34,3315 00006 EXTEND # STIKFLG IS SET
026059,001574: 34,3316 05011 WOR DSALMOUT # TURN ON UPACTY LIGHT
026060,001575:
026061,001576: 34,3317 03254 TC ASET # EXIT AND SET R61CNTR
026062,001577: 34,3320 06006 STEP3CK TC INTPRET
026063,001578: 34,3321 77601 SETPD
026064,001579: 34,3322 00001 0 # *
026065,001580: # NOW HAVE DCDUS STORED IN T(SAVEDCDU).
026066,001581: # GO CALC OTHER DAP INPUTS (DELCDU,WBODY)
026067,001582: 34,3323 52375 CRS61.2 VLOAD VSU
026068,001583: 34,3324 03204 DCDU
026069,001584: 34,3325 03715 SAVEVEL # DV = VL - VC
026070,001585: 34,3326 57456 UNIT VCOMP # V(MPAC)=-UNITDV. VAC36D=ABSDV.
026071,001586: 34,3327 74235 VXV VXSC # (-UNITDV)CROSS(UNITLOS).
026072,001587: 34,3330 03707 SAVEPOS
026073,001588: 34,3331 31551 RVCS/RDS # (UNITLOS B1)(UNITDV B1)(CONST B4)=CROSS.
026074,001589: 34,3332 77606 PUSH # HOLD CROSS IN PUSHLIST0. SCALED B6.
026075,001590: 34,3333 60345 DLOAD NORM # OBTAIN ABS VALUE OF LOS.
026076,001591: 34,3334 02316 P21TIME # P21TIME IS TEMP STORE FOR ABSLOS.
026077,001592: 34,3335 00047 X1
026078,001593: 34,3336 77606 PUSH # NORM ABSLOS(DENOM) AND HOLD IN PUSH1.
026079,001594:
026080,001595: 34,3337 60345 DLOAD NORM
026081,001596: 34,3340 00045 36D # NORM ABS VALUE OF DV(NUM).
026082,001597: 34,3341 00051 S1
026083,001598:
026084,001599: 34,3342 70460 XSU,1 SR1 # X1 = X1(N DENOM)-S1(N NUM).
026085,001600: 34,3343 00050 S1 # SR1 TO AVOID OFLOW ON DDV.
026086,001601: 34,3344 74271 DDV VXSC # ABSDV(MPAC)/ABSLOS(PUSH1) = QUOT.
026087,001602: 34,3345 77730 SXA,1 # QUOT(MPAC) X CROSS(PUSH0)
026088,001603: 34,3346 03705 Q6111 # SAVE SCALE OF RESULT (R-15,1X).
026089,001604: # X1= NORM OF QUOT. QUOT SCALE B7-B29=B-22
026090,001605: # CROSS IS SCALED B6. NEED SL1 TO RECOVER
026091,001606: # SR1 SO THAT -22+6+1=-15. MPAC NOW HOLDS
026092,001607: # ORTHO LOS RATE (OMEGA TH, B-15,X1).
026093,001608: 34,3347 76521 MXV VSL1 # OBTAIN RATE IN SM COORDS (OMEGTHSM) AND
026094,001609: 34,3350 01736 REFSMMAT # ADJUST FOR REFSMMAT SCALE OF B1.
026095,001610: 34,3351 00025 STORE 20D # OMEGTHSM = VAC20D
026096,001611: # DELTA THETA SM = OMEGTHSM * .1B-3.
026097,001612: 34,3352 77761 VXSC
026098,001613: 34,3353 31553 TENTH
026099,001614: 34,3354 03212 STORE DTHETASM # STORE SM INCREM ANGLES FOR SMCDURES.
026100,001615: 34,3355 77624 CALL
![]() |
Page 585 |
026102,001617: 34,3356 47432 CDUTRIG # OBTAIN SIN,COSCDUS FOR SMCDURES.
026103,001618: 34,3357 45001 SETPD CALL # SMCDURES USES PUSH
026104,001619: 34,3360 00001 0
026105,001620: 34,3361 47675 SMCDURES # OBTAIN DELCDU IN V(DCDU).
026106,001621: 34,3362 77750 LXA,1 # RELOAD X1
026107,001622: 34,3363 03705 Q6111
026108,001623: 34,3364 53775 VLOAD VSL* # RECOVER SCALE.
026109,001624: 34,3365 03204 DCDU # (B-15,X1) + TENTH(B-3) + HALFREVS(B1)
026110,001625: 34,3366 20160 0 -17D,1 # EQUALS B-17D,1 TO OBTAIN HALFREVS B0.
026111,001626: 34,3367 00017 STORE 14D # HOLD DELS IN V(VAC14D) FOR AUTOPILOT.
026112,001627:
026113,001628: 34,3370 77624 CALL # COMPUTES SINES AND COSINES FOR *SMNB*
026114,001629: 34,3371 47432 CDUTRIG
026115,001630: 34,3372 45175 VLOAD CALL # LOAD VECTOR AND CALL TRANSFORMATION
026116,001631: 34,3373 00025 20D # VECTOR FOR TRG*SMNB INTO MPAC
026117,001632: 34,3374 47577 *SMNB* # OBTAIN ANG. RATE REFERRED TO NB (BODY)
026118,001633: 34,3375 77721 MXV
026119,001634: 34,3376 31557 MBDYTCTL # CONVERT RATE(OMEGA) TO CONTROL COORDS.
026120,001635: 34,3377 77761 VXSC # MULT. BY 0.8 TO RESCALE REVS TO 450 DEG.
026121,001636: 34,3400 15270 POINT8 # RECOVER SCALE.
026122,001637: 34,3401 53750 LXA,1 VSL* # RELOAD X1 TO RECOVER NORMALIZ.
026123,001638: 34,3402 03705 Q6111 # (B-15,X1) + MBDYTCTL(B1) = B-14D,1 TO
026124,001639: 34,3403 20163 0 -14D,1 # OBTAIN REVS SCALED AT 450 DEGREES.
026125,001640:
026126,001641: 34,3404 77776 CRS61.2A EXIT
026127,001642: 34,3405 00004 INHINT
026128,001643: 34,3406 34714 CAF ZERO # TRANSFER DESIRED GIMBAL ANGLES
026129,001644: 34,3407 55647 TS CDUXD +1 # FROM T(SAVEDCDU) TO V(CDUXD).
026130,001645: 34,3410 55651 TS CDUYD +1
026131,001646: 34,3411 55653 TS CDUZD +1
026132,001647: 34,3412 31772 CA SAVEDCDU
026133,001648: 34,3413 55646 TS CDUXD
026134,001649: 34,3414 31773 CA SAVEDCDU +1
026135,001650: 34,3415 55650 TS CDUYD
026136,001651: 34,3416 31774 CA SAVEDCDU +2
026137,001652: 34,3417 55652 TS CDUZD
026138,001653:
026139,001654: 34,3420 00006 EXTEND # TRANSFER OMEGA CONTROL (ANG. LOS RATE)
026140,001655: 34,3421 30155 DCA MPAC # FROM V(MPAC) TO V(WBODY).
026141,001656: 34,3422 53526 DXCH WBODY
026142,001657: 34,3423 00006 EXTEND
026143,001658: 34,3424 30160 DCA MPAC +3
026144,001659: 34,3425 53530 DXCH WBODY1
026145,001660: 34,3426 00006 EXTEND
026146,001661: 34,3427 30162 DCA MPAC +5
026147,001662: 34,3430 53532 DXCH WBODY2
026148,001663:
026149,001664: 34,3431 00006 EXTEND # TRANSFER CDU INCREMENTS
026150,001665: 34,3432 50120 INDEX FIXLOC # FROM V(VAC14D) TO V(DELCDUX).
026151,001666: 34,3433 30017 DCA 14D
![]() |
Page 586 |
026153,001668: 34,3434 53576 DXCH DELCDUX
026154,001669: 34,3435 00006 EXTEND
026155,001670: 34,3436 50120 INDEX FIXLOC
026156,001671: 34,3437 30021 DCA 16D
026157,001672: 34,3440 53600 DXCH DELCDUY
026158,001673: 34,3441 00006 EXTEND
026159,001674: 34,3442 50120 INDEX FIXLOC
026160,001675: 34,3443 30023 DCA 18D
026161,001676: 34,3444 53602 DXCH DELCDUZ
026162,001677: 34,3445 44712 CS ONE # NOW DAP VARIABLES LOADED. SET HOLDFLAG.
026163,001678: 34,3446 55332 TS HOLDFLAG # TO -1.
026164,001679: 34,3447 00003 RELINT
026165,001680: 34,3450 34714 CAF ZERO # NORMAL RETURN (MPAC = 0)
026166,001681: 34,3451 03254 TC ASET
026167,001682: 34,3452 06006 MANUEXIS TC INTPRET
026168,001683: 34,3453 77751 MANUEXIT TLOAD # ENTER FROM STEP2. ACDU-DCDU EXCEEDS
026169,001684: 34,3454 03373 SAVEDCDU # 10 DEG. STORE DCDU(T) IN CPHI,CTHETA,
026170,001685: 34,3455 01156 STORE CPHI # CPSI FOR KALCMANU.
026171,001686: 34,3456 52135 SLOAD GOTO # SPECIAL RETURN (MPAC+0 = 1
026172,001687: 34,3457 31601 LOONE # OCTAL 00001
026173,001688: 34,3460 03704 Q611
026174,001689:
026175,001690: 34,3461 71220 R63 STQ DLOAD # SUBR TO CALC DCDUS(T)
026176,001691: 34,3462 03705 Q6111
026177,001692: 34,3463 02316 P21TIME
026178,001693: 34,3464 34041 STCALL TDEC1
026179,001694: 34,3465 27045 CSMCONIC
026180,001695: 34,3466 77775 HOLDATT VLOAD # HOLD EXTRAPOLATED CSM POSITION AND
026181,001696: 34,3467 00001 RATT # VELOCITY
026182,001697: 34,3470 27707 STOVL SAVEPOS
026183,001698: 34,3471 00007 VATT
026184,001699: 34,3472 03715 STORE SAVEVEL
026185,001700: 34,3473 77745 CALCLEM DLOAD # EXTRAPOLATE LEM STATE VECTOR TO SAME
026186,001701: 34,3474 02316 P21TIME # TIME AS CSM USING LEMCONIC.
026187,001702: 34,3475 34041 STCALL TDEC1
026188,001703: 34,3476 27057 LEMCONIC
026189,001704: 34,3477 77775 VLOAD
026190,001705: 34,3500 00007 VATT
026191,001706: 34,3501 27204 STOVL DCDU # STORE VATT IN DCDU TEMPORARILY
026192,001707: 34,3502 00001 RATT # LOS = RL RC
026193,001708: 34,3503 53451 VSU UNIT
026194,001709: 34,3504 03707 SAVEPOS
026195,001710: 34,3505 03707 STORE SAVEPOS # SAVE UNITLOS FOR CRS61.2 RATE CALC.
026196,001711: 34,3506 76521 MXV VSL1
026197,001712: 34,3507 01736 REFSMMAT # CONVERT TO STABLE MEMBER
026198,001713: 34,3510 17357 STODL POINTVSM
026199,001714: 34,3511 00045 36D # HOLD ABS VAL OF LOS (VAC 36D)
026200,001715: 34,3512 02316 STORE P21TIME # IN D(P21TIME) FOR CRS61.2 RATE CALC.
026201,001716: 34,3513 77775 VLOAD
026202,001717: 34,3514 15330 UNITX
![]() |
Page 587 |
026204,001719: 34,3515 37351 STCALL SCAXIS # TRACK AXIS UNIT VECTOR
026205,001720: 34,3516 56126 VECPOINT # FOR +X-AXIS TRACKING ATTITUDE
026206,001721: 34,3517 01334 STORE CPHIX # STORE ANGLES FOR N96 DISPLAY
026207,001722: 34,3520 77775 VLOAD
026208,001723: 34,3521 31542 PRFUNIT
026209,001724: 34,3522 37351 STCALL SCAXIS
026210,001725: 34,3523 56126 VECPOINT
026211,001726: 34,3524 03723 STORE PRAXIS # STORE ANGLES FOR N95 DISPLAY
026212,001727: 34,3525 77614 BOFF
026213,001728: 34,3526 02745 PRFTRKAT
026214,001729: 34,3527 71533 CRSTOR1
026215,001730: 34,3530 01156 CRSTOR STORE THETAD # STORE ANGLES FOR N18 DISPLAY
026216,001731: 34,3531 77650 GOTO
026217,001732: 34,3532 03705 Q6111
026218,001733: 34,3533 77775 CRSTOR1 VLOAD
026219,001734: 34,3534 15330 UNITX
026220,001735: 34,3535 03351 STORE SCAXIS
026221,001736: 34,3536 52151 TLOAD GOTO
026222,001737: 34,3537 01334 CPHIX
026223,001738: 34,3540 71530 CRSTOR
026224,001739:
026225,001740: 34,3541 15066 17626 PRFUNIT 2DEC .40957602 # 55 DEG TRACK AXIS UNIT VECTOR
026226,001741: 34,3543 00000 00000 2DEC 0.0 # FOR USE WITH VECPOINT
026227,001742: 34,3545 11132 27477 2DEC .28678822
026228,001743: 34,3547 01616 DEGREE10 DEC .05556 # 10 DEG IN REVS STEP2
026229,001744: 34,3550 37651 16721 RVCS/RDS 2DEC 15.915494 B-4 # 100/2PI REV-CSEC/RAD-SEC.
026230,001745: 34,3552 31463 06315 TENTH 2DEC .1 B+3 # .1 B-3 (TO SCALE ANG. RATE TO .1 INREMS)
026231,001746: 34,3554 20000 00000 MAT1B1 2DEC 1.0 B-1
026232,001747: 34,3556 20000 00000 MBDYTCTL 2DEC .5 # 7.25 DEG NEGATIVE
026233,001748: 34,3560 00000 00000 2DEC 0 B-28 # X-AXIS ROTATION MATRIX
026234,001749: 34,3562 00000 00000 2DEC 0 B-28 # CONVERTS BODY TO CTL
026235,001750: 34,3564 00000 00000 2DEC 0 B-28 # AXES. SAME AS QUADROT
026236,001751: 34,3566 17676 20113 2DEC .99200495 B-1 # COS7.25 B1 BUT SCALED B1
026237,001752: 34,3570 75766 45544 2DEC -.12619897 B-1 # -SIN7.25 B1
026238,001753: 34,3572 00000 00000 2DEC 0 B-28
026239,001754: 34,3574 02011 32233 2DEC .12619897 B-1 # SIN7.25 B1
026240,001755: 34,3576 17676 20113 2DEC .99200495 B-1 # COS7.25 B1
![]() |
Page 588 |
026242,001757: 34,3600 00001 LOONE OCT 00001 # TO SET MPAC = 00001 FOR SPECIAL EXIT.
026243,001758: 34,3601 7707 FURST3 EQUALS 13,14,15 # CONSTANT FOR AUTOCK (OCT 70000).
026244,001759:
![]() |
Page 589 |
026246,001761: # ..... S22.1 ORBITAL NAVIGATION ROUTINE
026247,001762: # MOD 1
026248,001763:
026249,001764: # FUNCTIONAL DESCRIPTION
026250,001765: # 1. UPDATE CSM STATE VECTOR
026251,001766: # 2. UPDATE LANDMARK POSITION
026252,001767: # 3. CONVERT W MATRIX FROM 9 TO 6 DIMENSIONS
026253,001768:
026254,001769: # SUBROUTINES CALLED
026255,001770: # INTSTALL,INTEGRV,GETUM,SETRE,R-TO-TP,RP-TO-R,BVECTORS,INCORP1,INCORP2
026256,001771: # LALOTORV,S22F2410,LAT-LONG,ROWDOT
026257,001772:
026258,001773: # ERASABLE INITIALIZATION
026259,001774: # W=9X9 MATRIX
026260,001775: # ORBWFLAG=0 FOR INVALID W MATRIX, =1 FOR VALID W MATRIX
026261,001776: # ASTRONAUT ENTRY OF KNOWN,L,OFF
026262,001777: # 8NN= NUMBER OF MARKS DECIMAL INTEGER B-14
026263,001778: # REFSMMAT= TRANSFORMATION MATRIX
026264,001779: # MARKSTAT= ADDRESS OF START OF MARK DATA (MARK DATA OF EACH MARK IS
026265,001780: # STORED AS FOLLOWS, TIME,AIG,SA,AMG,PA,AOG) TIME IS IN DOUBLE
026266,001781: # PRECISION, ALL OTHERS ARE IN SINGLE PRECISION
026267,001782: # CSM STATE VECTOR
026268,001783:
026269,001784: # OUTPUT
026270,001785: # UPDATED CSM STATE VECTOR
026271,001786: # UPDATED LANDMARK POSITION
026272,001787: # NEW 6 DIMENSIONAL W MATRIX
026273,001788:
026274,001789: # DEBRIS
026275,001790: # PUSH LIST,CSMPOS,ALPHAV,ERADM,UM,RCLP,USTAR,VARIANCE,X789,BVECTOR,8KK,
026276,001791: # S22LOC,SVMRKDAT TABLE,22SUBSCL,LANDMARK,CXOFF,S22C,LAT,LONG,ALT,
026277,001792: # TEMPOR1,S22TOFF,S221OFF,DSPTEM1,S22EORM,S22TPRIM
026278,001793:
026279,001794: 13,2176 BANK 13
026280,001795:
026281,001796: 30,2000 SETLOC P20S6
026282,001797: 30,2000 BANK
026283,001798:
026284,001799: 30,2255 E5,1751 EBANK= LANDMARK
026285,001800: 30,2255 COUNT 35/LUORB
026286,001801:
026287,001802: 30,2255 66220 S22.1 STQ SSP
026288,001803: 30,2256 03703 S22RTNEX
026289,001804: 30,2257 00051 S1
026290,001805: 30,2260 00006 DEC 6 B-14
026291,001806: 30,2261 66331 SSP SSP # SET I=1 ITEM 8KK IS I
026292,001807: 30,2262 02747 8KK
026293,001808: 30,2263 00001 DEC 1 B-14
026294,001809: 30,2264 02751 S22LOC
026295,001810: 30,2265 03537 ECADR SVMRKDAT # SET MARK DATA ADDRESS INTO S22LOC
![]() |
Page 590 |
026297,001812: 30,2266 76144 LXC,2 AXT,1
026298,001813: 30,2267 01330 MARKSTAT
026299,001814: 30,2270 00044 DEC 36 B-14
026300,001815: 30,2271 77773 S22.111 VLOAD* # MOVE MARK DATA (5 SETS) FROM ADDR. IN
026301,001816: 30,2272 77776 0,2 # MARKSTAT TO SVMRKDAT TABLE TO AVOID LOSS
026302,001817: 30,2273 07604 STORE SVMRKDAT +36D,1 # IF RESTART OCCURS
026303,001818: 30,2274 60114 INCR,2 TIX,1
026304,001819: 30,2275 77771 DEC -6 B-14
026305,001820: 30,2276 60271 S22.111
026306,001821: 30,2277 77414 SET EXIT
026307,001822: 30,2300 01464 P22MKFLG # DOWNLINKED SVMRKDAT HOLDS PRESENT MARKS
026308,001823: 30,2301 04555 TC BANKCALL # RELEASE VAC AREA WHERE MARK DATA WAS
026309,001824: 30,2302 16063 CADR MKRELEAS
026310,001825: 30,2303 05261 TC 2PHSCHNG
026311,001826: 30,2304 00004 OCT 00004
026312,001827: 30,2305 05022 OCT 05022
026313,001828: 30,2306 13000 OCT 13000
026314,001829: 30,2307 06006 TC INTPRET
026315,001830: 30,2310 43170 AXT,1 BOFF
026316,001831: 30,2311 00000 0D
026317,001832: 30,2312 04343 CMOONFLG # =0 EARTH, =1 MOON
026318,001833: 30,2313 60316 S22SHIFT
026319,001834: 30,2314 77710 INCR,1
026320,001835: 30,2315 77775 DEC -2 B-14
026321,001836: 30,2316 40330 S22SHIFT SXA,1 SETPD
026322,001837: 30,2317 03673 S22EORM # SET =0 EARTH, =-2 MOON FOR SHIFTING
026323,001838: 30,2320 00001 0D
026324,001839: 30,2321 77624 FIG2EXIT CALL
026325,001840: 30,2322 27371 INTSTALL
026326,001841: 30,2323 77624 CALL
026327,001842: 30,2324 61326 S22FLGS
026328,001843: # FLOWCHART D=0 THEN DIM0FLAG=0 D6OR9FLG NOT TESTED
026329,001844: # FLOWCHART D=6 THEN DIM0FLAG=1 D6OR9FLG=0
026330,001845: # FLOWCHART D=9 THEN DIM0FLAG=1 D6OR9FLG=1
026331,001846:
026332,001847: 30,2325 43014 BOFF CLRGO
026333,001848: 30,2326 01751 ORBWFLAG
026334,001849: 30,2327 60332 SETWW5D # BRANCH TO SET W0-W5, ORBWFLAG,D
026335,001850: 30,2330 01635 D6OR9FLG # FLOWCHART D=6 PATH
026336,001851: 30,2331 60357 SETVANDI
026337,001852: 30,2332 77614 SETWW5D CLEAR
026338,001853: 30,2333 01676 DIM0FLAG # FLOWCHART D=0 PATH
026339,001854: 30,2334 66370 AXT,1 SSP
026340,001855: 30,2335 00154 DEC 108 B-14
026341,001856: 30,2336 00051 S1
026342,001857: 30,2337 00006 DEC 6 B-14
026343,001858: 30,2340 77214 CLEAR VLOAD
026344,001859: 30,2341 02676 RENDWFLG # GSOP CHANGE 8/18/67
026345,001860: 30,2342 15332 ZEROVECS
026346,001861: 30,2343 06555 CLEARWW5 STORE W +108D,1
![]() |
Page 591 |
026348,001863: 30,2344 67300 TIX,1 SLOAD
026349,001864: 30,2345 60343 CLEARWW5
026350,001865: 30,2346 02005 WORBPOS
026351,001866: 30,2347 02401 STORE W # SET DIAGONALS OF W0
026352,001867: 30,2350 02411 STORE W +8D
026353,001868: 30,2351 02421 STORE W +16D
026354,001869: 30,2352 77735 SLOAD
026355,001870: 30,2353 02006 WORBVEL
026356,001871: 30,2354 02511 STORE W +72D # SET DIAGONALS OF W4
026357,001872: 30,2355 02521 STORE W +80D
026358,001873: 30,2356 02531 STORE W +88D
026359,001874: 30,2357 77614 SETVANDI CLEAR
026360,001875: 30,2360 02666 DMENFLG # 0=6X6W, 1=9X9W
026361,001876: 30,2361 77624 S22NXTIN CALL
026362,001877: 30,2362 61322 GETTF
026363,001878: 30,2363 34041 STCALL TDEC1
026364,001879: 30,2364 27113 INTEGRV
026365,001880: 30,2365 77624 CALL
026366,001881: 30,2366 61273 S22CALRC # CALC. RC B-29 OR B-27 (CSMPOS)
026367,001882: 30,2367 66150 LXA,1 SXA,1
026368,001883: 30,2370 02750 S22LOC # SETUP ADDR. OF MARK DATA FOR GETUM SUBR.
026369,001884: 30,2371 01242 MARKDATA
026370,001885: 30,2372 77624 CALL # COMPUTE UM
026371,001886: 30,2373 47110 S2GETUM GETUM
026372,001887: 30,2374 01235 STORE UM
026373,001888: 30,2375 41535 DMPINTEG SLOAD PUSH # TEST OFF=I
026374,001889: 30,2376 02747 8KK
026375,001890: 30,2377 50535 SLOAD SR3 # CXOFF SCALED B-5, MUST MOVE TO B-14
026376,001891: 30,2400 02746 CXOFF # BEFORE SUBT.
026377,001892: 30,2401 50442 SR3 SR3
026378,001893: 30,2402 77625 DSU
026379,001894: 30,2403 43030 BHIZ BON
026380,001895: 30,2404 60720 S22OFF=I # BRANCH HERE IF OFF=I
026381,001896: 30,2405 02706 DMENFLG # 0=6X6W, 1=9X9W
026382,001897: 30,2406 60726 S22D=9
026383,001898: 30,2407 77624 CALL
026384,001899: 30,2410 56741 GRP2PC
026385,001900: 30,2411 77614 SET
026386,001901: 30,2412 01471 ORBWFLAG
026387,001902: 30,2413 43014 SET SET
026388,001903: 30,2414 02466 DMENFLG # =0 ON FIRST PASS THRU HERE FOR D=0, OR 6
026389,001904: 30,2415 01062 22DSPFLG # =1 TO DISPLAY DR,DV ON FIRST PASS
026390,001905: 30,2416 43014 SET BON
026391,001906: 30,2417 00462 ERADFLAG # =1 TO COMPUTE FISCHER RADIUS
026392,001907: 30,2420 03307 KNOWNFLG
026393,001908: 30,2421 61070 S22BOX22
026394,001909: 30,2422 53575 VLOAD UNIT # UNIT ALSO PUTS ABVAL(RC) IN 36D
026395,001910: 30,2423 01207 CSMPOS
026396,001911: 30,2424 02152 STORE ALPHAV # ALPHAV +4=SINL FOR SETRE
026397,001912: 30,2425 43014 CLEAR BOFF
![]() |
Page 592 |
026399,001914: 30,2426 01663 LUNAFLAG
026400,001915: 30,2427 04343 CMOONFLG
026401,001916: 30,2430 60433 S22C=I
026402,001917: 30,2431 77614 SET
026403,001918: 30,2432 01463 LUNAFLAG
026404,001919: 30,2433 77624 S22C=I CALL # ERADM= R0 METERS B-29 BOTH EARTH/MOON
026405,001920: 30,2434 26533 SETRE
026406,001921: 30,2435 77624 CALL # COMPUTE RL FROM EQUATION 2.4.10
026407,001922: 30,2436 61240 S22F2410 # STORED IN X789,MPAC B-27,B-29
026408,001923: 30,2437 70414 BOFF VSR2 # SCALE RL B-29 FOR BOTH EARTH/MOON
026409,001924: 30,2440 04343 CMOONFLG
026410,001925: 30,2441 60442 +1
026411,001926: 30,2442 02635 STORE S22RL
026412,001927: 30,2443 72441 DOT SL1
026413,001928: 30,2444 01235 UM
026414,001929: 30,2445 24037 STOVL S22D # D=UM.RL B-29
026415,001930: 30,2446 15332 ZEROVECS
026416,001931: 30,2447 41401 SETPD PUSH
026417,001932: 30,2450 00001 0D
026418,001933: 30,2451 65206 PUSH PDDL # SET 0-18D = I BACKWARDS
026419,001934: 30,2452 15330 HIDPHALF # PD 18
026420,001935: 30,2453 77702 SR2 # B-3
026421,001936: 30,2454 00005 STORE 4D
026422,001937: 30,2455 00011 STORE 8D
026423,001938: 30,2456 24015 STOVL 12D
026424,001939: 30,2457 01235 UM # B-1
026425,001940: 30,2460 24023 STOVL S223X1
026426,001941: 30,2461 02635 S22RL # B-29
026427,001942: 30,2462 77624 CALL # (UM)(RL T) B-30 STORED IN S22UMRL THRU
026428,001943: 30,2463 61303 S2231X13 # S22UMRL +17D
026429,001944: 30,2464 66370 AXT,1 SSP
026430,001945: 30,2465 00022 DEC 18 B-14
026431,001946: 30,2466 00051 S1
026432,001947: 30,2467 00006 DEC 6 B-14
026433,001948: 30,2470 70573 S22NXTU VLOAD* VSR2 # (UM)(RL T) B-32
026434,001949: 30,2471 03524 S22UMRL +18D,1
026435,001950: 30,2472 77741 V/SC
026436,001951: 30,2473 00037 S22D # D B-29
026437,001952: 30,2474 45445 BVSU STADR # SUBTRACT FROM I B-3
026438,001953: 30,2475 70253 STORE S22UMRL +18D,1 # U MATRIX B-3
026439,001954: 30,2476 76100 TIX,1 AXT,1 # PD 0 AFTER TIX
026440,001955: 30,2477 60470 S22NXTU
026441,001956: 30,2500 00044 DEC 36 B-14 # S1 STILL 6 FROM ABOVE
026442,001957: 30,2501 64373 S22NXTWI VLOAD* MXV
026443,001958: 30,2502 02445 W +36D,1 # B-19
026444,001959: 30,2503 03502 S22UMRL # B-3
026445,001960: 30,2504 77732 SL2R
026446,001961: 30,2505 06621 STORE W +144D,1 # W(I+18)= UW(I) B-19
026447,001962: 30,2506 71300 TIX,1 DLOAD
026448,001963: 30,2507 60501 S22NXTWI
![]() |
Page 593 |
026450,001965: 30,2510 00041 S22RHO # B-28,B-30
026451,001966: 30,2511 60414 BOFF SR2 # MAKE RHO B-30
026452,001967: 30,2512 04343 CMOONFLG
026453,001968: 30,2513 60514 +1
026454,001969: 30,2514 57101 NORM XAD,2
026455,001970: 30,2515 00050 X2
026456,001971: 30,2516 00047 X2
026457,001972: 30,2517 41316 DSQ DMP
026458,001973: 30,2520 21650 SCTVAR # B+18
026459,001974: 30,2521 77742 SR1 # ACCOUNTS FOR 1/2 IN NEXT FORMULA
026460,001975: 30,2522 00041 STORE S22RHO # 1/2(RHO SQ)(VARSCT)
026461,001976: 30,2523 77770 AXT,1
026462,001977: 30,2524 00022 DEC 18 B-14 # S1 STILL 6 FROM ABOVE
026463,001978: 30,2525 64373 S22NXXA VLOAD* MXV
026464,001979: 30,2526 03524 S22UMRL +18D,1 # B-3
026465,001980: 30,2527 03502 S22UMRL # B-3
026466,001981: 30,2530 53761 VXSC VSR*
026467,001982: 30,2531 00041 S22RHO
026468,001983: 30,2532 57212 0 -12D,2 # WITH VARRP SCALED B-28
026469,001984: 30,2533 05301 STORE S22UUT +18D,1 # 1/2(RHO SQ)(VARSCT)(U)(U T)
026470,001985: 30,2534 77300 TIX,1 VLOAD
026471,001986: 30,2535 60525 S22NXXA
026472,001987: 30,2536 01235 UM
026473,001988: 30,2537 34023 STCALL S223X1 # UM ALSO IN MPAC FOR S2231X13 SUBR.
026474,001989: 30,2540 61303 S2231X13 # (UM)(UM T) B-2 IN S22UMRL,P17D
026475,001990: 30,2541 50545 DLOAD SR3
026476,001991: 30,2542 02241 ERADM # R0 B-29
026477,001992: 30,2543 63471 DDV DSQ
026478,001993: 30,2544 00037 S22D # B-29
026479,001994: 30,2545 77605 DMP
026480,001995: 30,2546 02010 RPVAR # ***** METERS SQ
026481,001996: 30,2547 00041 STORE S22RHO # TEMP (VARRP)(R0/D)
026482,001997: 30,2550 77770 AXT,1
026483,001998: 30,2551 00022 DEC 18 B-14 # S1 STILL 6 FROM ABOVE
026484,001999: 30,2552 74373 S22NXXB VLOAD* VXSC
026485,002000: 30,2553 03524 S22UMRL +18D,1 # (UM)(UM T) B-2
026486,002001: 30,2554 00041 S22RHO
026487,002002: 30,2555 77653 VAD*
026488,002003: 30,2556 01301 S22UUT +18D,1
026489,002004: 30,2557 05301 STORE S22UUT +18D,1 # SMALL E MATRIX
026490,002005: 30,2560 77775 VLOAD
026491,002006: 30,2561 15332 ZEROVECS
026492,002007: 30,2562 06643 STORE W +162D,1 # CLEAR W8
026493,002008: 30,2563 40100 TIX,1 BOV
026494,002009: 30,2564 60552 S22NXXB
026495,002010: 30,2565 60566 +1
026496,002011: 30,2566 50145 DLOAD BMN
026497,002012: 30,2567 01277 S22UUT +16D # E5
026498,002013: 30,2570 60607 S22W76X
026499,002014: 30,2571 53166 SQRT BZE
![]() |
Page 594 |
026501,002016: 30,2572 60607 S22W76X
026502,002017: 30,2573 16625 STODL W +148D # W74= SQ ROOT E5
026503,002018: 30,2574 01275 S22UUT +14D # E4
026504,002019: 30,2575 40071 DDV BOV
026505,002020: 30,2576 02625 W +148D
026506,002021: 30,2577 60601 S22W72X
026507,002022: 30,2600 02623 STORE W +146D # W73= E4/W74
026508,002023: 30,2601 56345 S22W72X DLOAD DDV
026509,002024: 30,2602 01273 S22UUT +12D # E3
026510,002025: 30,2603 02625 W +148D
026511,002026: 30,2604 77600 BOV
026512,002027: 30,2605 60607 S22W76X
026513,002028: 30,2606 02621 STORE W +144D # W72= E4/W74
026514,002029: 30,2607 63545 S22W76X DLOAD DSQ
026515,002030: 30,2610 02623 W +146D # W73
026516,002031: 30,2611 50021 BDSU BMN
026517,002032: 30,2612 01267 S22UUT +8D # E2
026518,002033: 30,2613 60627 S22W78X
026519,002034: 30,2614 53166 SQRT BZE
026520,002035: 30,2615 60627 S22W78X
026521,002036: 30,2616 16631 STODL W +152D # W76= SQ ROOT (E2-W73 SQ)
026522,002037: 30,2617 02621 W +144D # W72
026523,002038: 30,2620 44205 DMP BDSU
026524,002039: 30,2621 02623 W +146D # W73
026525,002040: 30,2622 01265 S22UUT +6D # E1
026526,002041: 30,2623 40071 DDV BOV
026527,002042: 30,2624 02631 W +152D # W76
026528,002043: 30,2625 60627 S22W78X
026529,002044: 30,2626 02627 STORE W +150D # W75= (E1-W72W73)/W76
026530,002045: 30,2627 63545 S22W78X DLOAD DSQ
026531,002046: 30,2630 02627 W +150D
026532,002047: 30,2631 63525 PDDL DSQ
026533,002048: 30,2632 02621 W +144D # W72
026534,002049: 30,2633 77615 DAD
026535,002050: 30,2634 50021 BDSU BMN
026536,002051: 30,2635 01257 S22UUT # E0
026537,002052: 30,2636 60641 S22SCLW
026538,002053: 30,2637 77766 SQRT
026539,002054: 30,2640 02635 STORE W +156D # W78= SQ RT(E0-W72 SQ-W75 SQ)
026540,002055: 30,2641 74575 S22SCLW VLOAD VSR1 # SCALE W6 METERS B-19
026541,002056: 30,2642 02621 W +144D
026542,002057: 30,2643 26621 STOVL W +144D
026543,002058: 30,2644 02627 W +150D
026544,002059: 30,2645 77762 VSR1
026545,002060: 30,2646 26627 STOVL W +150D
026546,002061: 30,2647 02635 W +156D
026547,002062: 30,2650 77762 VSR1
026548,002063: 30,2651 02635 STORE W +156D
026549,002064: 30,2652 77624 S22SAVET CALL
026550,002065: 30,2653 61322 GETTF
![]() |
Page 595 |
026552,002067: 30,2654 03672 STORE S22TPRIM # SAVE PRESENT TIME FOR PIOS
026553,002068: 30,2655 77776 S22I=N EXIT # TEST I=N
026554,002069: 30,2656 05301 TC PHASCHNG
026555,002070: 30,2657 04022 OCT 04022
026556,002071: 30,2660 41746 CS 8KK
026557,002072: 30,2661 61747 AD 8NN
026558,002073: 30,2662 00006 EXTEND
026559,002074: 30,2663 63126 BZMF S22F244X # EXIT TO FIGURE 2.4-4
026560,002075: 30,2664 31746 CA 8KK # I=I+1
026561,002076: 30,2665 64712 AD ONE
026562,002077: 30,2666 55300 TS TEMPOR1
026563,002078: 30,2667 31750 CA S22LOC # ADD 7 TO LOC TO GET ADDR. OF NEXT MARK
026564,002079: 30,2670 64716 AD SEVEN
026565,002080: 30,2671 55301 TS TEMPOR1 +1
026566,002081: 30,2672 05301 TC PHASCHNG
026567,002082: 30,2673 04022 OCT 04022
026568,002083: 30,2674 31300 CA TEMPOR1
026569,002084: 30,2675 55746 TS 8KK
026570,002085: 30,2676 31301 CA TEMPOR1 +1
026571,002086: 30,2677 55750 TS S22LOC
026572,002087: 30,2700 06006 TC INTPRET
026573,002088: 30,2701 77624 CALL # FOR ALL INTEGRATIONS OTHER THAN FIRST
026574,002089: 30,2702 27371 S2INTS1 INTSTALL
026575,002090: 30,2703 77624 CALL
026576,002091: 30,2704 61326 S22FLGS
026577,002092: 30,2705 43014 BON CLEAR
026578,002093: 30,2706 02706 DMENFLG
026579,002094: 30,2707 60361 S22NXTIN # RETURN ALWAYS EXCEPT OFFSET POINT MARK 1
026580,002095: 30,2710 01676 DIM0FLAG
026581,002096: 30,2711 43014 BOFF SET
026582,002097: 30,2712 01751 ORBWFLAG
026583,002098: 30,2713 60361 S22NXTIN # OFFSET POINT MARK 1, NO W INTEGRATION
026584,002099: 30,2714 01476 DIM0FLAG
026585,002100: 30,2715 77614 CLRGO
026586,002101: 30,2716 01635 D6OR9FLG
026587,002102: 30,2717 60361 S22NXTIN # OFFSET POINT MARK 1, INTEGRATE W 6X6
026588,002103: 30,2720 77624 S22OFF=I CALL
026589,002104: 30,2721 61322 GETTF
026590,002105: 30,2722 27670 STOVL S22TOFF # TIME SUB OFF
026591,002106: 30,2723 01235 UM
026592,002107: 30,2724 35215 STCALL S22UOFF # U SUB OFF
026593,002108: 30,2725 60655 S22I=N # TEST I=N
026594,002109: 30,2726 77775 S22D=9 VLOAD # D=9 PATH
026595,002110: 30,2727 01701 X789
026596,002111: 30,2730 14001 STODL 0D # CALL PIOS TWICE TO TRANSFORM RL TO TIME
026597,002112: 30,2731 03672 S22TPRIM # T(SUB F) FROM TIME T PRIME
026598,002113: 30,2732 00007 STORE 6D
026599,002114: 30,2733 45135 SLOAD CALL
026600,002115: 30,2734 03674 S22EORM # 0=EARTH, NON-ZERO=MOON
026601,002116: 30,2735 55366 S2RTRP R-TO-RP
![]() |
Page 596 |
026603,002118: 30,2736 45006 PUSH CALL # R-TO-RP LEAVES PUSHLOC AT 0
026604,002119: 30,2737 61322 GETTF
026605,002120: 30,2740 00007 STORE 6D
026606,002121: 30,2741 45135 SLOAD CALL
026607,002122: 30,2742 03674 S22EORM
026608,002123: 30,2743 55341 S2RPTR RP-TO-R
026609,002124: 30,2744 01701 S22BOX32 STORE X789
026610,002125: 30,2745 40014 SET BOV
026611,002126: 30,2746 02464 INCORFLG # FLAG=1
026612,002127: 30,2747 60750 +1 # CLEAR OVERFLOW
026613,002128: 30,2750 77651 VSU
026614,002129: 30,2751 01207 CSMPOS
026615,002130: 30,2752 03531 STORE RCLP # RCL=RL-RC
026616,002131: 30,2753 47256 UNIT VXV # USTAR=UNIT(UNIT(RCL)XUM)
026617,002132: 30,2754 01235 UM
026618,002133: 30,2755 40056 UNIT BOV
026619,002134: 30,2756 60652 S22SAVET # COMPUTATION OVERFLOW, SAVE TF
026620,002135: 30,2757 01245 STORE USTAR
026621,002136: 30,2760 43014 S22BOX12 SET SET
026622,002137: 30,2761 02466 DMENFLG # =1 FOR 9X9 W
026623,002138: 30,2762 00467 VEHUPFLG # =1 FOR CSM
026624,002139: 30,2763 43345 DLOAD DAD
026625,002140: 30,2764 21650 SCTVAR # B+18
026626,002141: 30,2765 21652 IMUVARR # B+18
026627,002142: 30,2766 27526 STOVL VARIANCE
026628,002143: 30,2767 03531 RCLP # B-29 OR B-27
026629,002144: 30,2770 60246 ABVAL NORM
026630,002145: 30,2771 00047 X1
026631,002146: 30,2772 41316 DSQ DMP
026632,002147: 30,2773 03526 VARIANCE
026633,002148: 30,2774 56070 XAD,1 XAD,1
026634,002149: 30,2775 00046 X1 # DOUBLE NORM SHIFT SINCE RCLP WAS SQUARED
026635,002150: 30,2776 03673 S22EORM # DOUBLE EARTH OR MOON SHIFT, SAME REASON
026636,002151: 30,2777 53670 XAD,1 SR*
026637,002152: 30,3000 03673 S22EORM
026638,002153: 30,3001 20601 0,1 # SCALE VARIANCE B-40 FOR BOTH EARTH, MOON
026639,002154: 30,3002 77751 TLOAD # CHANGE MODE TO TRIPLE
026640,002155: 30,3003 00155 MPAC
026641,002156: 30,3004 37526 STCALL VARIANCE # CALC B0,B1,DELTAQ, NEW USTAR
026642,002157: 30,3005 47047 S2BVTRS BVECTORS
026643,002158: 30,3006 57575 VLOAD VCOMP
026644,002159: 30,3007 03502 BVECTOR
026645,002160: 30,3010 37516 STCALL BVECTOR +12D # B2=-B0
026646,002161: 30,3011 75250 S2INCP1 INCORP1
026647,002162: 30,3012 77624 CALL
026648,002163: 30,3013 56741 GRP2PC
026649,002164: 30,3014 43014 BOFF CLEAR
026650,002165: 30,3015 01342 22DSPFLG # =1 DISPLAY DELTA R,V =0 DO NOT
026651,002166: 30,3016 61047 S22BOX42
026652,002167: 30,3017 01262 22DSPFLG
![]() |
Page 597 |
026654,002169: 30,3020 77624 CALL
026655,002170: 30,3021 56741 GRP2PC
026656,002171: 30,3022 51575 VLOAD ABVAL
026657,002172: 30,3023 01257 DELTAX # DELTA R
026658,002173: 30,3024 53750 LXA,1 SR*
026659,002174: 30,3025 03673 S22EORM # SCALE DELTA R ALWAYS METERS B-29
026660,002175: 30,3026 20601 0,1
026661,002176: 30,3027 27502 STOVL N49DISP
026662,002177: 30,3030 01265 DELTAX +6 # DELTA V
026663,002178: 30,3031 53646 ABVAL SR* # DELTA V=METERS/CSEC B-7 ALWAYS
026664,002179: 30,3032 20601 0,1
026665,002180: 30,3033 03504 STORE N49DISP +2
026666,002181: 30,3034 77776 EXIT
026667,002182: 30,3035 33655 CAF V06N49EE
026668,002183: 30,3036 04555 TC BANKCALL
026669,002184: 30,3037 20763 CADR GOFLASHR
026670,002185: 30,3040 04106 TC GOTOPOOH # V34E TERMINATE
026671,002186: 30,3041 03046 TC +5 # INCORPORATE CHANGES
026672,002187: 30,3042 03230 TC S22EXEX # V32E RECYCLE
026673,002188: 30,3043 34710 CAF BIT3
026674,002189: 30,3044 05415 TC BLANKET
026675,002190: 30,3045 05112 TC ENDOFJOB
026676,002191: 30,3046 06006 TC INTPRET
026677,002192: 30,3047 77624 S22BOX42 CALL
026678,002193: 30,3050 75462 INCORP2
026679,002194: 30,3051 77624 CALL # CSMPOS=RC B-29 OR B-27
026680,002195: 30,3052 61273 S22CALRC
026681,002196: 30,3053 77414 DMPINCP2 BOFF EXIT
026682,002197: 30,3054 02744 INCORFLG
026683,002198: 30,3055 60652 S22SAVET # SAVE TF AND TEST I=N
026684,002199: 30,3056 05301 TC PHASCHNG
026685,002200: 30,3057 04022 OCT 04022
026686,002201: 30,3060 06006 TC INTPRET
026687,002202: 30,3061 77214 CLEAR VLOAD
026688,002203: 30,3062 02664 INCORFLG # FLAG=0
026689,002204: 30,3063 01701 X789
026690,002205: 30,3064 77651 VSU
026691,002206: 30,3065 01207 CSMPOS
026692,002207: 30,3066 37531 STCALL RCLP # RCL=RL-RC
026693,002208: 30,3067 60760 S22BOX12
026694,002209: 30,3070 66370 S22BOX22 AXT,1 SSP # CLEAR W6,W7,W8 (27 ELEMENTS 54 REGS)
026695,002210: 30,3071 00066 DEC 54 B-14
026696,002211: 30,3072 00051 S1
026697,002212: 30,3073 00006 DEC 6 B-14
026698,002213: 30,3074 77775 VLOAD
026699,002214: 30,3075 15332 ZEROVECS
026700,002215: 30,3076 06643 CLRW678 STORE W +162D,1
026701,002216: 30,3077 67300 TIX,1 SLOAD
026702,002217: 30,3100 61076 CLRW678
026703,002218: 30,3101 02007 S22WSUBL
![]() |
Page 598 |
026705,002220: 30,3102 02621 STORE W +144D
026706,002221: 30,3103 02631 STORE W +152D
026707,002222: 30,3104 02641 STORE W +160D
026708,002223: 30,3105 43014 CLEAR BOFF # SET LUNAFLAG, TIME FOR LALOTORV
026709,002224: 30,3106 01663 LUNAFLAG # ERADFLAG,LAT,LONG,ALT SET PREVIOUSLY
026710,002225: 30,3107 04343 CMOONFLG # CHECK SCALING OF ITEMS,ALT INPUT AND
026711,002226: 30,3110 61113 S22BX22A # RL OUTPUT IN ALPHAV BOTH B-29
026712,002227: 30,3111 77614 SET
026713,002228: 30,3112 01463 LUNAFLAG
026714,002229: 30,3113 77624 S22BX22A CALL
026715,002230: 30,3114 61322 GETTF
026716,002231: 30,3115 77624 CALL # COMPUTE RL
026717,002232: 30,3116 26373 LALOTORV
026718,002233: 30,3117 43175 VLOAD BOFF
026719,002234: 30,3120 02152 ALPHAV # RL B-29
026720,002235: 30,3121 04343 CMOONFLG
026721,002236: 30,3122 61124 S22BX22B
026722,002237: 30,3123 77752 VSL2 # SCALE RL B-27 FOR MOON
026723,002238: 30,3124 77650 S22BX22B GOTO
026724,002239: 30,3125 60744 S22BOX32
026725,002240: 30,3126 06006 S22F244X TC INTPRET
026726,002241: 30,3127 46135 S22F244 SLOAD BHIZ # FIG 2.4-4 TEST OFF=0
026727,002242: 30,3130 02746 CXOFF
026728,002243: 30,3131 61160 S22BOX44
026729,002244: 30,3132 77776 EXIT
026730,002245: 30,3133 05301 TC PHASCHNG
026731,002246: 30,3134 04022 OCT 04022
026732,002247: 30,3135 06006 TC INTPRET
026733,002248: 30,3136 77745 DLOAD
026734,002249: 30,3137 03670 S22TOFF
026735,002250: 30,3140 34041 STCALL TDEC1 # CALC RC AT OFFSET TIME
026736,002251: 30,3141 27022 CSMPREC
026737,002252: 30,3142 77775 VLOAD
026738,002253: 30,3143 00017 RATT1 # RC METERS B-29 OR B-27
026739,002254: 30,3144 25207 STOVL CSMPOS
026740,002255: 30,3145 01215 S22UOFF
026741,002256: 30,3146 25235 STOVL UM # U=UOFF
026742,002257: 30,3147 01701 X789
026743,002258: 30,3150 43046 ABVAL BOFF
026744,002259: 30,3151 04343 CMOONFLG
026745,002260: 30,3152 61154 +2
026746,002261: 30,3153 77702 SR2 # SCALE MOON R0 B-29 FOR S22F2410 SUBR
026747,002262: 30,3154 36241 STCALL ERADM
026748,002263: 30,3155 61240 S22F2410
026749,002264: 30,3156 77650 GOTO
026750,002265: 30,3157 61163 S22BX44A
026751,002266: 30,3160 77624 S22BOX44 CALL
026752,002267: 30,3161 61322 GETTF
026753,002268: 30,3162 03670 STORE S22TOFF # PRESENT TIME FOR LAT-LONG SETUP
026754,002269: 30,3163 77214 S22BX44A CLEAR VLOAD
![]() |
Page 599 |
026756,002271: 30,3164 01663 LUNAFLAG
026757,002272: 30,3165 01701 X789
026758,002273: 30,3166 43014 BOFF SET
026759,002274: 30,3167 04343 CMOONFLG
026760,002275: 30,3170 61173 S22BX44B
026761,002276: 30,3171 01463 LUNAFLAG # SET = 1 FOR LAT-LONG
026762,002277: 30,3172 77742 VSR2 # SCALE RL MOON B-29 FOR LAT-LONG
026763,002278: 30,3173 16152 S22BX44B STODL ALPHAV # RL SCALED B-29 FOR LAT-LONG
026764,002279: 30,3174 03670 S22TOFF # EITHER PRESENT OR OFFSET TIME
026765,002280: 30,3175 77624 CALL
026766,002281: 30,3176 26322 LAT-LONG # **** ALT OUTPUT ALWAYS B-29
026767,002282: 30,3177 77624 CALL # DISPLAY LAT/LONG/ALT
026768,002283: 30,3200 61336 LLASRD
026769,002284: 30,3201 77776 EXIT
026770,002285: 30,3202 33656 CAF V06N89B
026771,002286: 30,3203 04555 TC BANKCALL
026772,002287: 30,3204 20624 CADR GOFLASH
026773,002288: 30,3205 03233 TC S22GTP # V34E TERMINATE
026774,002289: 30,3206 03210 TC +2 # PROCEED SAVE LANDING SITE COORD
026775,002290: 30,3207 03224 TC S22.981X # RECYCLE POINT A IN GSOP
026776,002291: 30,3210 06006 TC INTPRET
026777,002292: 30,3211 70740 LXC,1 DLOAD*
026778,002293: 30,3212 02750 S22LOC
026779,002294: 30,3213 00001 0,1
026780,002295: 30,3214 24007 STOVL 6D # 6-7D= LANDING SITE TIME FOR R-TO-RP
026781,002296: 30,3215 01701 X789
026782,002297: 30,3216 00001 STORE 0D # 0-5D= LANDING SITE VEC FOR R-TO-RP
026783,002298: 30,3217 45135 SLOAD CALL
026784,002299: 30,3220 15330 HIDPHALF # ANY NON-ZERO FOR MOON
026785,002300: 30,3221 55366 R-TO-RP # CONVERT RLS TO MOON-FIXED COORD
026786,002301: 30,3222 02026 STORE RLS # LANDING SITE VECTOR
026787,002302: 30,3223 77776 EXIT
026788,002303: 30,3224 06006 S22.981X TC INTPRET
026789,002304: 30,3225 77624 CALL
026790,002305: 30,3226 61354 9DWTO6DW
026791,002306: 30,3227 77776 EXIT # GO TO POINT A IN CHAPTER 5
026792,002307: 30,3230 06006 S22EXEX TC INTPRET # WITHOUT CONVERTING W
026793,002308: 30,3231 77650 GOTO
026794,002309: 30,3232 03703 S22RTNEX
026795,002310:
026796,002311: 30,3233 06006 S22GTP TC INTPRET # CONVERT W BEFORE TC GOTOPOOH
026797,002312: 30,3234 77624 CALL
026798,002313: 30,3235 61354 9DWTO6DW
026799,002314: 30,3236 77776 EXIT
026800,002315: 30,3237 04106 TC GOTOPOOH
026801,002316: 30,3240 77201 S22F2410 SETPD VLOAD # COMPUTE FORMULA 2.4.10
026802,002317: 30,3241 00001 0D
026803,002318: 30,3242 01207 CSMPOS # RC B-29 EARTH, B-27 MOON
026804,002319: 30,3243 50256 UNIT DOT # UNIT ALSO SETS 36D=ABVAL(RC) USED BELOW
026805,002320: 30,3244 01235 UM
![]() |
Page 600 |
026807,002322: 30,3245 57552 SL1 DCOMP # GSOP CHANGE 8/18/67
026808,002323: 30,3246 77606 PUSH # PD 2D 0D=COSA=-(UM.RC)/ABVAL(RC) B-1
026809,002324: 30,3247 44316 DSQ BDSU
026810,002325: 30,3250 21654 DEC1B2
026811,002326: 30,3251 43125 PDDL BOFF # PD 4D 2D=1-COSA SQ=SINA SQ B-2
026812,002327: 30,3252 02241 ERADM # R0 ALWAYS B-29 FROM SETRE
026813,002328: 30,3253 04343 CMOONFLG
026814,002329: 30,3254 61256 +2
026815,002330: 30,3255 77712 SL2 # SCALE R0 B-27 FOR MOON
026816,002331: 30,3256 56362 SR1R DDV # (R0/RC) B-1
026817,002332: 30,3257 00045 36D
026818,002333: 30,3260 45316 DSQ DSU # PD 2D (R0/RC) SQ - SINA SQ B-2
026819,002334: 30,3261 44366 SQRT BDSU # PD 0D COSA-SQRT((R0/RC)SQ-SINA SQ) B-1
026820,002335: 30,3262 77605 DMP # DMP RESULT B-28 MOON, B-30 EARTH
026821,002336: 30,3263 00045 36D # VXSC RESULT B-29 MOON, B-31 EARTH
026822,002337: 30,3264 00041 STORE S22RHO # RHO FOR W INIT. OF UNKNOWN LMK B-28,B-30
026823,002338: 30,3265 77761 VXSC
026824,002339: 30,3266 01235 UM
026825,002340: 30,3267 53352 VSL2 VAD # SCALE B-27 MOON, B-29 EARTH AND ADD RC
026826,002341: 30,3270 01207 CSMPOS
026827,002342: 30,3271 01701 STORE X789
026828,002343: 30,3272 77616 RVQ # B-27 FOR EARTH OR B-29 FOR MOON
026829,002344: 30,3273 77350 S22CALRC LXA,1 VLOAD # COMPUTE RC B-29 OR B-27
026830,002345: 30,3274 03673 S22EORM # =0 FOR EARTH, -2 FOR MOON
026831,002346: 30,3275 01573 DELTACSM
026832,002347: 30,3276 53257 VSR* VAD
026833,002348: 30,3277 20610 7,1
026834,002349: 30,3300 01607 RCVCSM
026835,002350: 30,3301 01207 STORE CSMPOS
026836,002351: 30,3302 77616 RVQ
026837,002352: 30,3303 00031 S2231X13 STORE S221X3 # MULT 3X1 BY 1X3, STORE RESULTING 3X3 IN
026838,002353: 30,3304 77131 SSP AXT,2 # S22UMRL - S22UMRL+17D
026839,002354: 30,3305 00052 S2
026840,002355: 30,3306 00002 DEC 2 B-14
026841,002356: 30,3307 00006 DEC 6 B-14
026842,002357: 30,3310 77770 AXT,1
026843,002358: 30,3311 00022 DEC 18 B-14
026844,002359: 30,3312 73775 S2231NXT VLOAD VXSC*
026845,002360: 30,3313 00031 S221X3
026846,002361: 30,3314 77746 S223X1 +6,2
026847,002362: 30,3315 07524 STORE S22UMRL +18D,1
026848,002363: 30,3316 61110 INCR,1 TIX,2
026849,002364: 30,3317 77771 DEC -6 B-14
026850,002365: 30,3320 61312 S2231NXT
026851,002366: 30,3321 77616 RVQ
026852,002367: 30,3322 70740 GETTF LXC,1 DLOAD* # SET MPAC= TF
026853,002368: 30,3323 02750 S22LOC
026854,002369: 30,3324 00001 0,1
026855,002370: 30,3325 77616 RVQ
![]() |
Page 601 |
026857,002372: 30,3326 43014 S22FLGS SET SET # INTEGRATION FLAGS
026858,002373: 30,3327 01476 DIM0FLAG
026859,002374: 30,3330 01475 D6OR9FLG
026860,002375: 30,3331 43014 SET SET
026861,002376: 30,3332 01474 VINTFLAG
026862,002377: 30,3333 01472 STATEFLG
026863,002378: 30,3334 43414 CLEAR RVQ
026864,002379: 30,3335 01673 INTYPFLG
026865,002380:
026866,002381: # SUBROUTINE TO MODIFY ALT AND STORE LAT TO LAT+5 IN LANDLAT TO LANDLAT+5
026867,002382: # PRIOR TO DISPLAY.
026868,002383:
026869,002384: 30,3336 77745 LLASRD DLOAD # ALT, LANDALT METERS B-29
026870,002385: 30,3337 01110 ALT
026871,002386: 30,3340 16362 STODL LANDALT
026872,002387: 30,3341 01106 LONG
026873,002388: 30,3342 77742 SR1
026874,002389: 30,3343 02360 STORE LANDLONG
026875,002390: 30,3344 77616 RVQ
026876,002391:
026877,002392: # SUBROUTINE TO MODIFY LANDALT AND STORE LANDALT TO LANDALT+5 IN LAT TO
026878,002393: # LAT+5 AFTER LMK DATA LOADED BY ASTRONAUT.
026879,002394:
026880,002395: 30,3345 77745 LLASRDA DLOAD # ALT, LANDALT METERS B-29
026881,002396: 30,3346 02362 LANDALT
026882,002397: 30,3347 15110 STODL ALT
026883,002398: 30,3350 02360 LANDLONG
026884,002399: 30,3351 77752 SL1
026885,002400: 30,3352 01106 STORE LONG
026886,002401: 30,3353 77616 RVQ
026887,002402: 30,3354 40220 9DWTO6DW STQ SETPD
026888,002403: 30,3355 01214 9DWXX
026889,002404: 30,3356 00001 0D
026890,002405: 30,3357 41575 VLOAD PUSH # CLEAR WORKING AREA OF PUSHLIST
026891,002406: 30,3360 15332 HI6ZEROS # INCLUDING P
026892,002407: 30,3361 41406 PUSH PUSH # PD 18D
026893,002408: 30,3362 77731 SSP
026894,002409: 30,3363 00017 9DWJ # J=29 USE 2*29 FOR DP WORDS
026895,002410: 30,3364 00072 DEC 58 B-14
026896,002411: 30,3365 66150 9DWI=J LXA,1 SXA,1 # SET I=J
026897,002412: 30,3366 00016 9DWJ
026898,002413: 30,3367 00012 9DWI
026899,002414: 30,3370 77624 9DWEPCAL CALL
026900,002415: 30,3371 61606 ROWDOT
026901,002416: 30,3372 77750 LXA,1 # P VARIES 0-20 INSTEAD OF 20-0
026902,002417: 30,3373 00010 9DWP
026903,002418: 30,3374 06641 STORE EMATRIX +40D,1
026904,002419: 30,3375 66110 INCR,1 SXA,1
026905,002420: 30,3376 00002 DEC 2 B-14
026906,002421: 30,3377 00010 9DWP
026907,002422: 30,3400 46135 SLOAD BHIZ # TEST I=0
![]() |
Page 602 |
026909,002424: 30,3401 00013 9DWI
026910,002425: 30,3402 61417 9DWTESTJ
026911,002426: 30,3403 77625 DSU # I=I-1
026912,002427: 30,3404 21646 9DWID
026913,002428: 30,3405 00013 STORE 9DWI
026914,002429: 30,3406 46025 DSU BHIZ # TEST I=26
026915,002430: 30,3407 21644 9DW26D
026916,002431: 30,3410 61413 9DWSETI2
026917,002432: 30,3411 77650 GOTO # NEXT E SUB P
026918,002433: 30,3412 61370 9DWEPCAL
026919,002434: 30,3413 52131 9DWSETI2 SSP GOTO # I=2
026920,002435: 30,3414 00013 9DWI
026921,002436: 30,3415 00004 DEC 4 B-14
026922,002437: 30,3416 61370 9DWEPCAL
026923,002438: 30,3417 46135 9DWTESTJ SLOAD BHIZ # TEST J=0
026924,002439: 30,3420 00017 9DWJ
026925,002440: 30,3421 61436 9DWFIG6
026926,002441: 30,3422 77625 DSU
026927,002442: 30,3423 21646 9DWID
026928,002443: 30,3424 00017 STORE 9DWJ # J=J-1
026929,002444: 30,3425 46025 DSU BHIZ # TEST J=26
026930,002445: 30,3426 21644 9DW26D
026931,002446: 30,3427 61432 9DWSETJ2
026932,002447: 30,3430 77650 GOTO
026933,002448: 30,3431 61365 9DWI=J
026934,002449: 30,3432 52131 9DWSETJ2 SSP GOTO # SET J=2
026935,002450: 30,3433 00017 9DWJ
026936,002451: 30,3434 00004 DEC 4 B-14
026937,002452: 30,3435 61365 9DWI=J
026938,002453: 30,3436 77624 9DWFIG6 CALL
026939,002454: 30,3437 56741 GRP2PC
026940,002455: 30,3440 77331 SSP VLOAD # START OF FIGURE 2.4-6
026941,002456: 30,3441 00017 9DWJ # J=29
026942,002457: 30,3442 00072 DEC 58 B-14
026943,002458: 30,3443 15332 HI6ZEROS
026944,002459: 30,3444 00011 STORE 9DWP # P,N,I=0
026945,002460: 30,3445 66370 AXT,1 SSP
026946,002461: 30,3446 00154 DEC 108 B-14 # CLEAR WO TO W54
026947,002462: 30,3447 00051 S1
026948,002463: 30,3450 00006 6
026949,002464: 30,3451 06555 CLEARW54 STORE W +108D,1
026950,002465: 30,3452 77700 TIX,1
026951,002466: 30,3453 61451 CLEARW54
026952,002467: 30,3454 66150 9DWI=JA LXA,1 SXA,1 # I=J
026953,002468: 30,3455 00016 9DWJ
026954,002469: 30,3456 00012 9DWI
026955,002470: 30,3457 77624 CALL
026956,002471: 30,3460 61606 ROWDOT
026957,002472: 30,3461 43750 LXA,1 BDSU*
026958,002473: 30,3462 00010 9DWP
![]() |
Page 603 |
026960,002475: 30,3463 02641 EMATRIX +40D,1
026961,002476: 30,3464 66110 INCR,1 SXA,1 # -(P+1)
026962,002477: 30,3465 00002 2
026963,002478: 30,3466 00010 9DWP
026964,002479: 30,3467 54140 LXC,1 XSU,1 # -(I+N)
026965,002480: 30,3470 00012 9DWI
026966,002481: 30,3471 00014 9DWN
026967,002482: 30,3472 71244 BPL DLOAD # TEST WSQ LTE 0
026968,002483: 30,3473 61477 9DWAAA
026969,002484: 30,3474 15332 HI6ZEROS # W=0
026970,002485: 30,3475 77650 GOTO
026971,002486: 30,3476 61500 9DWAAB
026972,002487: 30,3477 77766 9DWAAA SQRT # W= SQRT(WSQ)
026973,002488: 30,3500 06401 9DWAAB STORE W,1
026974,002489: 30,3501 14001 STODL WORKW
026975,002490: 30,3502 00017 9DWJ # TEST J=0
026976,002491: 30,3503 77630 BHIZ
026977,002492: 30,3504 61572 9DWEXITX # EXIT
026978,002493: 30,3505 46135 TST2I=0 SLOAD BHIZ # TEST I=0
026979,002494: 30,3506 00013 9DWI
026980,002495: 30,3507 61550 9DWN=N+3
026981,002496: 30,3510 77625 DSU
026982,002497: 30,3511 21646 9DWID
026983,002498: 30,3512 00013 STORE 9DWI # I=I-1
026984,002499: 30,3513 46025 DSU BHIZ # TEST I=26
026985,002500: 30,3514 21644 9DW26D
026986,002501: 30,3515 61520 9DWAAC
026987,002502: 30,3516 77650 GOTO
026988,002503: 30,3517 61523 9DWNEXEP
026989,002504: 30,3520 77731 9DWAAC SSP # I=2
026990,002505: 30,3521 00013 9DWI
026991,002506: 30,3522 00004 4
026992,002507: 30,3523 77624 9DWNEXEP CALL
026993,002508: 30,3524 61606 ROWDOT
026994,002509: 30,3525 43750 LXA,1 BDSU* # (EP-ROWI*ROWJ)/W
026995,002510: 30,3526 00010 9DWP
026996,002511: 30,3527 02641 EMATRIX +40D,1
026997,002512: 30,3530 62071 DDV INCR,1 # P=P+1
026998,002513: 30,3531 00001 WORKW
026999,002514: 30,3532 00002 2
027000,002515: 30,3533 70130 SXA,1 LXC,1
027001,002516: 30,3534 00010 9DWP
027002,002517: 30,3535 00012 9DWI
027003,002518: 30,3536 40060 XSU,1 BOV # -(I+N)
027004,002519: 30,3537 00014 9DWN
027005,002520: 30,3540 61543 SETWIN=0
027006,002521: 30,3541 77650 GOTO
027007,002522: 30,3542 61545 9DWSETWX
027008,002523: 30,3543 77745 SETWIN=0 DLOAD # W(I+N)=0
027009,002524: 30,3544 15332 HI6ZEROS
![]() |
Page 604 |
027011,002526: 30,3545 06401 9DWSETWX STORE W,1
027012,002527: 30,3546 77650 GOTO
027013,002528: 30,3547 61505 TST2I=0
027014,002529: 30,3550 62150 9DWN=N+3 LXA,1 INCR,1 # N=N+3
027015,002530: 30,3551 00014 9DWN
027016,002531: 30,3552 00006 6
027017,002532: 30,3553 67330 SXA,1 SLOAD # J=J-1
027018,002533: 30,3554 00014 9DWN
027019,002534: 30,3555 00017 9DWJ
027020,002535: 30,3556 77625 DSU
027021,002536: 30,3557 21646 9DWID
027022,002537: 30,3560 00017 STORE 9DWJ
027023,002538: 30,3561 46025 DSU BHIZ # TEST J=26
027024,002539: 30,3562 21644 9DW26D
027025,002540: 30,3563 61566 SETJ=2A
027026,002541: 30,3564 77650 GOTO
027027,002542: 30,3565 61454 9DWI=JA
027028,002543: 30,3566 52131 SETJ=2A SSP GOTO # J=2
027029,002544: 30,3567 00017 9DWJ
027030,002545: 30,3570 00004 4
027031,002546: 30,3571 61454 9DWI=JA
027032,002547: 30,3572 77624 9DWEXITX CALL
027033,002548: 30,3573 56741 GRP2PC
027034,002549: 30,3574 66370 AXT,1 SSP # CLEAR W6,W7,W8 USED TEMP FOR EMATRIX
027035,002550: 30,3575 00066 DEC 54 B-14
027036,002551: 30,3576 00051 S1
027037,002552: 30,3577 00006 6
027038,002553: 30,3600 77775 VLOAD
027039,002554: 30,3601 15332 HI6ZEROS
027040,002555: 30,3602 06643 9DWEXXXA STORE W +162D,1
027041,002556: 30,3603 52100 TIX,1 GOTO
027042,002557: 30,3604 61602 9DWEXXXA
027043,002558: 30,3605 01214 9DWXX
027044,002559: 30,3606 40131 ROWDOT SSP BOV
027045,002560: 30,3607 00007 XTMP1
027046,002561: 30,3610 00377 OCT 377
027047,002562: 30,3611 61612 +1
027048,002563: 30,3612 71140 LXC,1 LXC,2
027049,002564: 30,3613 00012 9DWI
027050,002565: 30,3614 00016 9DWJ
027051,002566: 30,3615 41545 DLOAD PUSH
027052,002567: 30,3616 15332 HI6ZEROS
027053,002568: 30,3617 56743 ROWDOT1 DLOAD* DMPR*
027054,002569: 30,3620 02401 W,1
027055,002570: 30,3621 75376 W,2
027056,002571: 30,3622 41415 DAD PUSH
027057,002572: 30,3623 62000 BOV INCR,1
027058,002573: 30,3624 61640 ROWDOT3
027059,002574: 30,3625 77771 DEC -6 B-14
027060,002575: 30,3626 67314 INCR,2 SLOAD
![]() |
Page 605 |
027062,002577: 30,3627 77771 DEC -6 B-14
027063,002578: 30,3630 00007 XTMP1
027064,002579: 30,3631 70430 BHIZ SR1
027065,002580: 30,3632 61636 ROWDOT2
027066,002581: 30,3633 00007 STORE XTMP1
027067,002582: 30,3634 77650 GOTO
027068,002583: 30,3635 61617 ROWDOT1
027069,002584: 30,3636 77745 ROWDOT2 DLOAD
027070,002585: 30,3637 77616 RVQ
027071,002586: 30,3640 77614 ROWDOT3 CLRGO
027072,002587: 30,3641 01631 ORBWFLAG
027073,002588: 30,3642 61636 ROWDOT2
027074,002589: 30,3643 WORKW = 0D
027075,002590: 30,3643 XTMP1 = 6D
027076,002591: 30,3643 9DWP = 8D # P
027077,002592: 30,3643 9DWI = 10D # I
027078,002593: 30,3643 9DWN = 12D # N
027079,002594: 30,3643 9DWJ = 14D # J
027080,002595: 30,3643 1214 9DWXX = S22UOFF
027081,002596: 30,3643 E7,1501 S22UMRL = BVECTOR # 18
027082,002597: 30,3643 1256 S22UUT = DELTAX # 18
027083,002598: 30,3643 S223X1 = 18D # 6
027084,002599: 30,3643 S221X3 = 24D # 6
027085,002600: 30,3643 S22D = 30D # 2
027086,002601: 30,3643 S22RHO = 32D # 2
027087,002602: 30,3643 E5,1634 S22RL = W +156D # 6
027088,002603:
027089,002604: 30,3643 00064 00000 9DW26D 2DEC 52 B-14
027090,002605: 30,3645 00002 00000 9DWID 2DEC 2 B-14
027091,002606: 30,3647 10306 36750 SCTVAR 2DEC 1.0 E-6 B+18
027092,002607: 30,3651 00253 31436 IMUVARR 2DEC 0.04 E-6 B+18
027093,002608: 30,3653 10000 00000 DEC1B2 2DEC 1 B-2
027094,002609:
027095,002610: 30,3655 01461 V06N49EE VN 00649
027096,002611: 30,3656 01531 V06N89B VN 00689
027097,002612: 30,3657 1214 S22UOFF = LEMPOS # 6 U SUB OFF
027098,002613: 23,2000 SETLOC P20S2
027099,002614: 23,2000 BANK
![]() |
Page 606 Nothing on this page. — RSB 2004. |
027102,002617:
![]() |
Page 607 |
027104,002619: # SUBROUTINE NAME: V89CALL
027105,002620: # MOD NO: 0 DATE: 8 FEB 1968
027106,002621: # MOD BY: DIGITAL DEVEL GROUP LOG SECTION: P20-P25
027107,002622:
027108,002623: # FUNCTIONAL DESCRIPTION:
027109,002624:
027110,002625: # CALLED BY VERB 89 ENTER DURING P00. PRIO 10 USED. CALCULATES AND
027111,002626: # DISPLAYS FINAL GIMBAL ANGLES TO POINT CSM +X AXIS OR PREFERRED AXIS
027112,002627: # (UNIT(Z)COS55 DEG + UNIT(X)SIN55 DEG) AT LM.
027113,002628:
027114,002629: # 1. KEY IN V89 E ONLY IF IN PROG 00. IF NOT IN P00, OPERATOR ERROR AND
027115,002630: # EXIT R63, OTHERWISE CONTINUE.
027116,002631:
027117,002632: # 2. IF IN P00, DO IMU STATUS CHECK (R02BOTH). IF IMU ON AND ITS
027118,002633: # ORIENTATION KNOWN TO CGC, CONTINUE.
027119,002634:
027120,002635: # 3. FLASH DISPLAY V 04 N 06. R2 INDICATES WHICH SPACECRAFT AXIS IS TO
027121,002636: # BE POINTED AT LM. INITIAL CHOICE IS PREFERRED AXIS. (R2=1).
027122,002637: # ASTRONAUT CAN CHANGE TO (+X) AXIS (R2 NOT= 1) BY V22 E 2 E. CONTINUE
027123,002638: # AFTER KEYING IN PROCEED.
027124,002639:
027125,002640: # 4. SET PREFERRED ATTITUDE FLAG ACCORDING TO OPTION DESIRED. SET FLAG
027126,002641: # FOR PREFERRED AXIS. RESET FLAG FOR X AXIS.
027127,002642:
027128,002643: # 5. CURRENT TIME IS STORED AND R63COMP IS CALLED
027129,002644:
027130,002645: # R63COMP JOB:
027131,002646: #
027132,002647: # UPDATES CSM AND LM STATE VECTORS USING CONIC EQUATIONS
027133,002648:
027134,002649: # CALCULATES BOTH PREFERRED AND X AXIS TRACKING ATT FROM 3SM TO LM.
027135,002650:
027136,002651: # DESIRED GIMBAL ANGLES AS INDICATED BY PREFERRED ATTITUDE FLAG
027137,002652: # ARE STORED FOR LATER R60CSM CALL.
027138,002653:
027139,002654: # 6. FLASH DISPLAY V 06 N18 AND AWAIT RESPONSE.
027140,002655:
027141,002656: # 7. RECYCLE- RETURN TO STEP 5.
027142,002657: # TERMINATE- EXIT R63 ROUTINE
027143,002658: # PROCEED- RESET 3AXISFLG AND CALL R60CSM FOR ATTITUDE MANEUVER.
027144,002659:
027145,002660: # CALLING SEQUENCE: V 89 E
027146,002661:
027147,002662: # SUBROUTINES CALLED: CHKPOOH, R02BOTH, GOXDSPF, R63COMP, R60CSM
027148,002663:
027149,002664: # ALARMS 1. OPERATOR ERROR IF NOT IN P00
027150,002665: # 2. PROGRAM ALARM IF IMU IS OFF
027151,002666: # 3. PROGRAM ALARM IF IMU ORIENTATION IS UNKNOWN
![]() |
Page 608 |
027153,002668:
027154,002669: # ERASABLE INITIALIZATION REQUIRED: NONE
027155,002670:
027156,002671: # DEBRIS: OPTION1, OPTION1+1, PRFTRKAT(PREF ATT FLAG), P21TIME, 3AXISFLG
027157,002672:
027158,002673: 23,3136 00000 13560 DP1MIN 2DEC 6000 B-28
027159,002674:
027160,002675: 23,3140 E4,1715 EBANK= P21TIME
027161,002676: 34,3601 BANK 34
027162,002677: 34,2000 SETLOC P20S4
027163,002678: 34,2000 BANK
027164,002679: 34,3601 COUNT* $$/R63
027165,002680: 34,3601 04555 V89CALL TC BANKCALL # IMU STATUS CHECK. RETURNS IF ORIENTATION
027166,002681: 34,3602 17573 CADR R02BOTH # KNOWN. ALARMS IF NOT.
027167,002682: 34,3603 36214 CAF THREE # ALLOW ASTRONAUT TO SELECT DESIRED
027168,002683: 34,3604 55131 TS OPTION1 # TRACKING ATTITUDE AXIS.
027169,002684: 34,3605 34712 CAF ONE
027170,002685: 34,3606 55132 TS OPTION1 +1
027171,002686: 34,3607 33650 CAF VB04N06 # V 04 N 06
027172,002687: 34,3610 04555 TC BANKCALL
027173,002688: 34,3611 20624 CADR GOFLASH
027174,002689: 34,3612 05423 TC ENDEXT # TERMINATE
027175,002690: 34,3613 03615 TC +2 # PROCEED
027176,002691: 34,3614 03607 TC -5 # DATA IN. OPTION1 +1 = 1 FOR PREF AXIS
027177,002692: # = 2 FOR X AXIS
027178,002693: 34,3615 41132 CS OPTION1 +1 # 1 FOR PREF AXIS. 2 FOR X AXIS.
027179,002694: 34,3616 64712 AD ONE
027180,002695: 34,3617 00006 EXTEND
027181,002696: 34,3620 13645 BZF SETPAF
027182,002697: 34,3621 05447 RSTPAF TC DOWNFLAG # RESET PREF ATT FLAG FOR R63COMP
027183,002698: 34,3622 00120 ADRES RNGSCFLG # TO DO X AXIS. RESET BIT 10 FLAG 5
027184,002699: 34,3623 06006 V89RECL TC INTPRET
027185,002700: 34,3624 43234 RTB DAD
027186,002701: 34,3625 45505 LOADTIME # READ PRESENT TIME
027187,002702: 34,3626 07137 DP1MIN # INTEGRATE TO 1 MIN FROM NOW
027188,002703: 34,3627 36316 STCALL P21TIME # STORE TIME FOR CALL TO R63COMP. R63COMP
027189,002704: 34,3630 71461 R63COMP # LEAVES DESIRED GIM ANGS IN THETAD, LOS IN
027190,002705: 34,3631 77776 EXIT # POINTVSM, AND SELECTED AXIS IN SCAXIS.
027191,002706: 34,3632 33651 CAF VB06N18 # V 06 N 18
027192,002707: 34,3633 04555 TC BANKCALL # NOUN 18 REFERS TO THE DESIRED GIMBAL
027193,002708: 34,3634 20624 CADR GOFLASH
027194,002709: 34,3635 05423 TC ENDEXT # TERMINATE
027195,002710: 34,3636 03640 TC +2 # PROCEED
027196,002711: 34,3637 03623 TC V89RECL # RECYCLE
027197,002712: 34,3640 05447 TC DOWNFLAG # RESET 3 AXIS FLAG
027198,002713: 34,3641 00124 ADRES 3AXISFLG # RESET BIT 6 FLAG 5
![]() |
Page 609 |
027200,002715: 34,3642 04555 TC BANKCALL # PERFORMS CSM MANEUVER TO ALIGN SELECTED
027201,002716: 34,3643 56000 CADR R60CSM # SPACECRAFT AXIS TO LOS.
027202,002717: 34,3644 15423 TCF ENDEXT
027203,002718: 34,3645 05435 SETPAF TC UPFLAG # SET PREFERRED ATT FLAG FOR R63COMP
027204,002719: 34,3646 00120 ADRES RNGSCFLG # TO DO PREF AXIS. SET BIT 10 FLAG 5.
027205,002720: 34,3647 03623 TC V89RECL
027206,002721: 34,3650 01006 VB04N06 VN 0406
027207,002722: 34,3651 01422 VB06N18 VN 0618
027208,002723:
027209,002724: 34,3652 34,3461 R63COMP EQUALS R63
027210,002725:
![]() |
Page 610 |
027212,002727: # PROGRAM NAME- P23 CISLUNAR MIDCOURSE NAVIGATION
027213,002728: # MOD NO
027214,002729: # MOD BY- TOM KNATT
027215,002730:
027216,002731: # FUNCTIONAL DESCRIPTION- DO MIDCOURSE NAVIGATION BY INCORPORATION OF STAR
027217,002732: # /EARTH AND STAR/MOON OPTICAL MEASUREMENTS.
027218,002733:
027219,002734: # CALLING SEQUENCE- ASTRONAUT OPERATED
027220,002735:
027221,002736: # SUBROUTINES CALLED- R52,R53,R57,R60,ORBITAL INTEGRATION (INTEGRV)
027222,002737: # INCORP1,INCORP2,LALOTORV,LUNLMKLD, AND DISPLAY INTERFACE ROUTINES.
027223,002738:
027224,002739: # NORMAL EXIT MODES- VIA ROO
027225,002740:
027226,002741: # ALARMS- NONE
027227,002742:
027228,002743: # ABORT MODES- NONE
027229,002744:
027230,002745: # ERASABLE INITIALIZATION REQUIRED- PAD-LOADED ERASABLES, ORBWFLAG RESET,
027231,002746: # REFSMFLG=0 IF IMU OFF AND REFSMFLG=1 IF IMU ON
027232,002747:
027233,002748: # INPUTS BY USER REQUIRED- STAR NUMBER, LANDMARK LAT, LONG/2, ALT OR ID NUMB.
027234,002749: # IF LANDMARK IS USED, NEAR OR FAR HORIZON IF HORIZON IS USED, AND
027235,002750: # BODY TO BE MARKED ON (EARTH OR MOON). SEE GSOP CHAPT 4.
027236,002751:
027237,002752: # OUTPUT- UPDATED CMC STATE VECTOR. VECTOR FROM S/C TO HORIZON OR LANDMARK
027238,002753: # IN POINTAXS. POINTAXS CAN BE USED TO GENERATE THIS VECTOR APART FROM
027239,002754: # P23 IF DESIRED.
027240,002755:
027241,002756: # DEBRIS- NO USABLE DEBRIS IS GENERATED. RENDWFLG IS RESET FOR P20 UPON
027242,002757: # COMPLETION OF P23. RUPTREGS AND ERASABLES USED BY DISPLAYS ARE DEBRIS
027243,002758:
027244,002759: 31,2021 BANK 31
027245,002760: 31,2000 SETLOC RT23
027246,002761: 31,2000 BANK
027247,002762: 31,2021 COUNT 31/S23
027248,002763: 31,2021 E5,1400 EBANK= W
027249,002764: 31,2021 05447 P23 TC DOWNFLAG
027250,002765: 31,2022 00010 ADRES RNDVZFLG
027251,002766:
027252,002767: 31,2023 05261 TC 2PHSCHNG
027253,002768: 31,2024 00004 OCT 00004 # LEAVE GROUP 4
027254,002769: 31,2025 00012 OCT 00012 # ENTER GROUP 2
027255,002770: 31,2026 34760 CAF PRIO13
027256,002771: 31,2027 55056 TS PHSPRDT2
027257,002772: 31,2030 06006 TC INTPRET
027258,002773: 31,2031 43131 SSP CLEAR
027259,002774: 31,2032 00302 MARKINDX
027260,002775: 31,2033 00001 1
027261,002776: 31,2034 00666 TARG2FLG # TARGET FLAG USED BY R52 AND R53
027262,002777: 31,2035 66214 CLEAR SSP
027263,002778: 31,2036 00665 TARG1FLG
027264,002779: 31,2037 00305 STARIND
027265,002780: 31,2040 00000 0
027266,002781: 31,2041 43131 SSP CLEAR
027267,002782: 31,2042 00303 BESTI
027268,002783: 31,2043 00000 0
027269,002784: 31,2044 03267 R57FLAG # SET = DO NOT REPERFORM R57
027270,002785: 31,2045 77414 CLEAR EXIT
027271,002786: 31,2046 04664 V94FLAG # SET = ALLOW V94
027272,002787: 31,2047 06006 P23.00 TC INTPRET
![]() |
Page 611 |
027274,002789: 31,2050 45014 BON CALL
027275,002790: 31,2051 01702 REFSMFLG # SET NOW AS INPUT, NORMALLY EXTERNAL CONT
027276,002791: 31,2052 62060 P23.05 # WHEN ALIGNED, PERFORM MEASUREMENT
027277,002792: 31,2053 76360 R57 # DO OPTICS CALIBRATION IF IMU NOT ALIGNED
027278,002793: 31,2054 77624 CALL
027279,002794: 31,2055 31322 R53
027280,002795: 31,2056 77650 GOTO
027281,002796: 31,2057 62236 P23.60
027282,002797: 31,2060 77414 P23.05 CLEAR EXIT
027283,002798: 31,2061 04665 SAVECFLG # USED TO SAVE SPACE IN P23.65
027284,002799: 31,2062 33050 CAF V05N70 # REQUEST RESPONSE AND DISPLAY MEASUREMENT
027285,002800: 31,2063 04555 TC BANKCALL # IDENTIFICATION- STAR, LMK, HOR IDENT.
027286,002801: 31,2064 20624 CADR GOFLASH
027287,002802: 31,2065 04106 TC GOTOPOOH # TERMINATE
027288,002803: 31,2066 02070 TC P23.15
027289,002804: 31,2067 02062 TC -5 # REDISPLAY
027290,002805: 31,2070 31751 P23.15 CA LANDMARK # IF C=2, LUNAFLAG=1. IF C=1, LUNAFLAG=0
027291,002806: 31,2071 00006 EXTEND
027292,002807: 31,2072 12074 BZF +2
027293,002808: 31,2073 02075 TC +2
027294,002809: 31,2074 31752 CA HORIZON # SET LUNAFLAG FROM HORIZON OR LANDMARK
027295,002810: 31,2075 74703 MASK BIT8
027296,002811: 31,2076 00006 EXTEND
027297,002812: 31,2077 12104 BZF P23.16
027298,002813: 31,2100 06006 TC INTPRET
027299,002814: 31,2101 52014 SET GOTO
027300,002815: 31,2102 01463 LUNAFLAG
027301,002816: 31,2103 62107 P23.17
027302,002817: 31,2104 06006 P23.16 TC INTPRET
027303,002818: 31,2105 77614 CLEAR
027304,002819: 31,2106 01663 LUNAFLAG
027305,002820: 31,2107 41535 P23.17 SLOAD PUSH
027306,002821: 31,2110 00736 STARCODE
027307,002822: 31,2111 41335 SLOAD DMP
027308,002823: 31,2112 23055 SPSIX
027309,002824: 31,2113 66150 LXA,1 SXA,1
027310,002825: 31,2114 00155 MPAC +1
027311,002826: 31,2115 00302 BESTI # BESTI = 6 X STAR NUMBER
027312,002827: 31,2116 77624 CALL
027313,002828: 31,2117 30000 LOWMEMRY # NEEDED TO RETRIEVE STAR VECTOR FROM LOW
027314,002829: 31,2120 02617 STORE STARSAV2 # STORE FOR R53,P23. US(IN P23)=STARSAV2
027315,002830: 31,2121 77776 EXIT
027316,002831: 31,2122 31751 CA LANDMARK
027317,002832: 31,2123 73052 MASK OCT00077
027318,002833: 31,2124 55753 TS IDOFLMK # FOR R3(DE) LUNAFLAG ALREADY SET
027319,002834: 31,2125 31752 CA HORIZON
027320,002835: 31,2126 00006 EXTEND
027321,002836: 31,2127 12144 BZF P23.12
027322,002837: 31,2130 74706 MASK BIT5 # IF D=1,NORFHOR=0(NEAR). D=2,NORFHOR=1,FAR
027323,002838: 31,2131 00006 EXTEND
![]() |
Page 612 |
027325,002840: 31,2132 12137 BZF P23.18
027326,002841: 31,2133 06006 TC INTPRET
027327,002842: 31,2134 52014 SET GOTO
027328,002843: 31,2135 00064 NORFHOR
027329,002844: 31,2136 62142 P23.19
027330,002845: 31,2137 06006 P23.18 TC INTPRET
027331,002846: 31,2140 77614 CLEAR
027332,002847: 31,2141 00264 NORFHOR
027333,002848: 31,2142 77776 P23.19 EXIT
027334,002849: 31,2143 02156 TC P23.30
027335,002850: 31,2144 31753 P23.12 CA IDOFLMK # IF R2(DE) NONZERO, LMK IS IDENTIFIED
027336,002851: 31,2145 00006 EXTEND
027337,002852: 31,2146 12150 BZF P23.20 # LANDMARK NOT IDENTIFIED
027338,002853: 31,2147 02156 TC P23.30 # LANDMARK IS IDENTIFIED
027339,002854: 31,2150 33047 P23.20 CAF V6N89 # REQUEST RESPONSE AND DISPLAY LMK DATA
027340,002855: 31,2151 04555 TC BANKCALL # R1=LAT,R2=LONG/2,R3=ALT
027341,002856: 31,2152 20624 CADR GOFLASH
027342,002857: 31,2153 04106 TC GOTOPOOH # TERMINATE
027343,002858: 31,2154 02156 TC P23.30
027344,002859: 31,2155 02150 TC P23.20 # STORE NEW DATA AND REDISPLAY
027345,002860: 31,2156 06006 P23.30 TC INTPRET
027346,002861: 31,2157 77414 BON EXIT
027347,002862: 31,2160 04705 SAVECFLG
027348,002863: 31,2161 62265 P23.85
027349,002864: 31,2162 33053 CAF V50N25P
027350,002865: 31,2163 04555 TC BANKCALL
027351,002866: 31,2164 20751 CADR GOPERF1 # GOPERF1 BLANKS OUT R2 AND R3.
027352,002867: 31,2165 04106 TC GOTOPOOH
027353,002868: 31,2166 02173 TC V94ENTER # PROCEED. AUTOCONTROL CMC
027354,002869: 31,2167 02170 TC P23.55 # ENTER. MANUAL CONTROL
027355,002870: 31,2170 06006 P23.55 TC INTPRET
027356,002871: 31,2171 77650 GOTO
027357,002872: 31,2172 62224 P23.56
027358,002873:
027359,002874: # VERB 94 BEGINS HERE
027360,002875: 31,2173 06006 V94ENTER TC INTPRET
027361,002876: 31,2174 77634 RTB
027362,002877: 31,2175 45505 LOADTIME # READ CLOCK
027363,002878: 31,2176 35225 STCALL MARKTIME
027364,002879: 31,2177 62272 POINTAXS # RETURN LOS IN RCLL AND MPAC
027365,002880: 31,2200 53521 MXV UNIT
027366,002881: 31,2201 01736 REFSMMAT
027367,002882: 31,2202 27357 STOVL POINTVSM
027368,002883: 31,2203 23056 JCAXIS
027369,002884: 31,2204 03351 STORE SCAXIS
027370,002885: 31,2205 77776 EXIT
027371,002886: 31,2206 05447 TC DOWNFLAG # CLEAR AND GO TO VECPOINT IN R60
027372,002887: 31,2207 00124 ADRES 3AXISFLG # BIT 6 FLAG 5
027373,002888: 31,2210 33063 CAF R60ADRS
027374,002889: 31,2211 54374 TS TEMPFLSH
027375,002890: 31,2212 05301 TC PHASCHNG
![]() |
Page 613 |
027377,002892: 31,2213 00012 OCT 00012
027378,002893: 31,2214 04555 R60CALL TC BANKCALL
027379,002894: 31,2215 56000 CADR R60CSM
027380,002895: 31,2216 05301 TC PHASCHNG
027381,002896: 31,2217 04022 OCT 04022
027382,002897: 31,2220 06006 TC INTPRET
027383,002898: 31,2221 77614 BON
027384,002899: 31,2222 03307 R57FLAG
027385,002900: 31,2223 62226 P23.57 # DO NOT REPERFORM R57
027386,002901: 31,2224 77624 P23.56 CALL
027387,002902: 31,2225 76360 R57
027388,002903: 31,2226 43014 P23.57 SET SET
027389,002904: 31,2227 04464 V94FLAG
027390,002905: 31,2230 03067 R57FLAG
027391,002906: 31,2231 77624 CALL
027392,002907: 31,2232 30002 R52
027393,002908: 31,2233 43014 CLEAR CLEAR
027394,002909: 31,2234 04664 V94FLAG
027395,002910: 31,2235 03267 R57FLAG
027396,002911: 31,2236 77776 P23.60 EXIT
027397,002912: 31,2237 00004 INHINT
027398,002913: 31,2240 31330 CA MARKSTAT
027399,002914: 31,2241 74747 MASK LOW10
027400,002915: 31,2242 55242 TS MARKDATA
027401,002916: 31,2243 00006 EXTEND
027402,002917: 31,2244 51242 INDEX MARKDATA
027403,002918: 31,2245 30001 DCA 0
027404,002919: 31,2246 53225 DXCH MARKTIME
027405,002920: 31,2247 51242 INDEX MARKDATA
027406,002921: 31,2250 30005 CA 5
027407,002922: 31,2251 57754 XCH TRUNION
027408,002923: 31,2252 00003 RELINT
027409,002924: 31,2253 33051 CAF V05N71
027410,002925: 31,2254 04555 TC BANKCALL
027411,002926: 31,2255 20624 CADR GOFLASH
027412,002927: 31,2256 04106 TC GOTOPOOH # TERMINATE
027413,002928: 31,2257 02261 TC P23.65 # STORE DATA
027414,002929: 31,2260 02253 TC -5 # REDISPLAY
027415,002930: 31,2261 06006 P23.65 TC INTPRET
027416,002931: 31,2262 77414 SET EXIT
027417,002932: 31,2263 04465 SAVECFLG
027418,002933: 31,2264 02070 TC P23.15
027419,002934: 31,2265 45014 P23.85 CLEAR CALL
027420,002935: 31,2266 02676 RENDWFLG
027421,002936: 31,2267 62272 POINTAXS
027422,002937: 31,2270 77650 GOTO
027423,002938: 31,2271 62364 R23.55
027424,002939:
027425,002940: # WE BEGIN CALCULATIONS HERE
027426,002941: # POINTAXIS SUBROUTINE
027427,002942:
027428,002943: 31,2272 67220 POINTAXS STQ SLOAD
![]() |
Page 614 |
027430,002945: 31,2273 01150 POINTEX
027431,002946: 31,2274 02752 LANDMARK # IF LANDMARK=0 HORIZON IS DESIRED.
027432,002947: 31,2275 67230 BHIZ SLOAD # DO NOT PICK UP LMK VALUES FROM TABLE
027433,002948: 31,2276 62307 R23.05 # OR DISPLAY IN HORIZON CASE
027434,002949: 31,2277 02754 IDOFLMK
027435,002950: 31,2300 45030 BHIZ CALL
027436,002951: 31,2301 62305 R23.0
027437,002952: 31,2302 63064 LUNLMKLD
027438,002953: 31,2303 77650 GOTO
027439,002954: 31,2304 62307 R23.05
027440,002955: 31,2305 77624 R23.0 CALL # MUST BE DONE 2ND TIME, TO ALLOW CHANGES
027441,002956: 31,2306 61345 LLASRDA
027442,002957: 31,2307 71214 R23.05 BON DLOAD
027443,002958: 31,2310 01711 ORBWFLAG
027444,002959: 31,2311 62315 R23.1
027445,002960: 31,2312 03001 WMIDPOS
027446,002961: 31,2313 34001 STCALL 0
027447,002962: 31,2314 56544 INITIALW # INITIALIZE W-MATRIX FIRST PASS IN P23
027448,002963: 31,2315 77624 R23.1 CALL
027449,002964: 31,2316 56343 SETINTG # SETUP FOR CSM INTEGRATION
027450,002965: 31,2317 43014 BOF SET
027451,002966: 31,2320 01751 ORBWFLAG
027452,002967: 31,2321 62323 R23.2
027453,002968: 31,2322 01476 DIM0FLAG
027454,002969: 31,2323 45014 R23.2 SET CALL
027455,002970: 31,2324 01471 ORBWFLAG
027456,002971: 31,2325 27113 INTEGRV # INTEGRATE CSM STATE VEC. TO MARKTIME
027457,002972: 31,2326 77776 EXIT
027458,002973: 31,2327 05301 TC PHASCHNG
027459,002974: 31,2330 04022 OCT 04022
027460,002975: 31,2331 06006 TC INTPRET
027461,002976: 31,2332 77624 CALL
027462,002977: 31,2333 62767 RECT.1 # PICKUP CSM STATE VECTOR FROM PERM
027463,002978: 31,2334 77214 BOFF VLOAD
027464,002979: 31,2335 00345 ZMEASURE # IN SPHERE OF INFLUENCE OF PRIMARY BODY
027465,002980: 31,2336 62341 R23.3
027466,002981: 31,2337 02272 RQVV # CALCULATED BY INTEGRATION B29
027467,002982: 31,2340 03627 STORE RZC
027468,002983: 31,2341 46135 R23.3 SLOAD BHIZ
027469,002984: 31,2342 02752 LANDMARK # IF LANDMARK = 0, USE HORIZ SUBR
027470,002985: 31,2343 62353 R23.4
027471,002986: 31,2344 77614 SET
027472,002987: 31,2345 00462 ERADFLAG
027473,002988: 31,2346 45145 DLOAD CALL
027474,002989: 31,2347 01225 MARKTIME
027475,002990: 31,2350 26373 LALOTORV
027476,002991: 31,2351 77650 GOTO
027477,002992: 31,2352 62355 R23.5
027478,002993: 31,2353 77624 R23.4 CALL
027479,002994: 31,2354 62527 HORIZ
![]() |
Page 615 |
027481,002996: 31,2355 03665 R23.5 STORE RL
027482,002997: 31,2356 40251 VSU SETPD
027483,002998: 31,2357 03627 RZC
027484,002999: 31,2360 00001 0
027485,003000: 31,2361 03657 STORE RCLL
027486,003001: 31,2362 77650 GOTO
027487,003002: 31,2363 01150 POINTEX
![]() |
Page 616 |
027489,003004: 31,2364 41456 R23.55 UNIT PUSH # RCLL IS IN MPAC
027490,003005: 31,2365 77775 VLOAD
027491,003006: 31,2366 00043 34D # RCLL * RCLL
027492,003007: 31,2367 24037 STOVL 30D # PUSH 30-31 =RCLL*RCLL 32-33=ABVAL RCLL
027493,003008: 31,2370 03635 VZC
027494,003009: 31,2371 54361 VXSC VSR
027495,003010: 31,2372 23030 ONE/C
027496,003011: 31,2373 20620 15D
027497,003012: 31,2374 77655 VAD # PUSH UP RCLL(UNIT)
027498,003013: 31,2375 77656 UNIT
027499,003014: 31,2376 27643 STOVL UCLSTAR
027500,003015: 31,2377 03635 VZC
027501,003016: 31,2400 52342 VSR2 VSU
027502,003017: 31,2401 02141 VESO
027503,003018: 31,2402 54361 VXSC VSR
027504,003019: 31,2403 23030 ONE/C
027505,003020: 31,2404 20616 13D
027506,003021: 31,2405 53455 VAD UNIT
027507,003022: 31,2406 02617 US
027508,003023: 31,2407 03651 STORE USSTAR
027509,003024: 31,2410 72441 DOT SL1
027510,003025: 31,2411 03643 UCLSTAR
027511,003026: 31,2412 77206 PUSH VLOAD # PD 0,1 = USSTAR(DOT)UCLSTAR
027512,003027: 31,2413 03643 UCLSTAR
027513,003028: 31,2414 57561 VXSC VCOMP
027514,003029: 31,2415 53372 VSL1 VAD
027515,003030: 31,2416 03651 USSTAR
027516,003031: 31,2417 77656 UNIT
027517,003032: 31,2420 27502 STOVL BVECTOR # USSTAR - COSQ(UCLSTAR
027518,003033: 31,2421 15332 ZEROVECS
027519,003034: 31,2422 03510 STORE BVECTOR +6
027520,003035: 31,2423 17516 STODL BVECTOR +12D
027521,003036: 31,2424 00001 0
027522,003037: 31,2425 57526 ACOS DCOMP
027523,003038: 31,2426 71206 PUSH DLOAD
027524,003039: 31,2427 15332 ZEROVECS
027525,003040: 31,2430 77776 EXIT
027526,003041: 31,2431 33041 CA VARSUBL # PUT FIXED INTO ERASABLE FOR MSU
027527,003042: 31,2432 54001 TS L # INSTRUCTION COMING UP
027528,003043: 31,2433 31754 CA TRUNION # REQUIRED TO CHANGE 2:S COMPLEMENT
027529,003044: 31,2434 00006 EXTEND # TRUNION TO 1:S COMPLEMENT
027530,003045: 31,2435 20001 MSU L # TRUNION (2'S)-00000 CONVERTS TRUNION TO
027531,003046: 31,2436 54154 TS MPAC # 1:S. VARSUBL=00000
027532,003047: 31,2437 06006 TC INTPRET
027533,003048: 31,2440 67206 PUSH SLOAD # PUSH IS DP. WHEN BDSU IS EXECUTED, 2ND
027534,003049: 31,2441 01343 TRUNBIAS # HALF OF PUSHLIST IS GUARANTEED ZERO FROM
027535,003050: 31,2442 77621 BDSU # DLOAD ZEROVECS ABOVE
027536,003051: 31,2443 43242 SR3 DAD
027537,003052: 31,2444 41215 DAD DMP
![]() |
Page 617 |
027539,003054: 31,2445 23036 TRUN19
027540,003055: 31,2446 00041 32D
027541,003056: 31,2447 52405 DMP SL3
027542,003057: 31,2450 07107 PI/4.0
027543,003058: 31,2451 62414 BOFF SL2
027544,003059: 31,2452 04343 CMOONFLG
027545,003060: 31,2453 62454 R23.51
027546,003061: 31,2454 17524 R23.51 STODL DELTAQ
027547,003062: 31,2455 00037 30D # RCLL * RCLL
027548,003063: 31,2456 47005 DMP RTB
027549,003064: 31,2457 23045 TRUNVAR
027550,003065: 31,2460 45562 TPMODE
027551,003066: 31,2461 77771 TAD
027552,003067: 31,2462 23042 VARSUBL
027553,003068: 31,2463 03526 STORE VARIANCE
027554,003069: 31,2464 45014 CLEAR CALL
027555,003070: 31,2465 02666 DMENFLG
027556,003071: 31,2466 75250 INCORP1
027557,003072: 31,2467 77624 CALL
027558,003073: 31,2470 56741 GRP2PC
027559,003074: 31,2471 51575 VLOAD ABVAL
027560,003075: 31,2472 01265 DELTAX +6
027561,003076: 31,2473 60414 BOF SR2 # DISPLAY IS 2-27 IF IN LUNAR SPHERE
027562,003077: 31,2474 04343 CMOONFLG
027563,003078: 31,2475 62476 R23.52
027564,003079: 31,2476 27504 R23.52 STOVL N49DISP +2
027565,003080: 31,2477 01257 DELTAX
027566,003081: 31,2500 77646 ABVAL
027567,003082: 31,2501 60414 BOF SR2
027568,003083: 31,2502 04343 CMOONFLG
027569,003084: 31,2503 62504 R23.53
027570,003085: 31,2504 03502 R23.53 STORE N49DISP
027571,003086: 31,2505 77776 EXIT
027572,003087: 31,2506 33046 R23.6 CAF V6N49
027573,003088: 31,2507 04555 TC BANKCALL
027574,003089: 31,2510 20763 CADR GOFLASHR
027575,003090: 31,2511 02506 TC R23.6 # DONT ALLOW
027576,003091: 31,2512 02521 TC R23.7 # INCORPORATE DATA
027577,003092: 31,2513 02047 TC P23.00 # RECYCLE FOR ANOTHER MARK
027578,003093: 31,2514 34710 CAF BIT3 # BLANK OUT R3
027579,003094: 31,2515 05415 TC BLANKET
027580,003095: 31,2516 05301 TC PHASCHNG
027581,003096: 31,2517 00012 OCT 00012
027582,003097: 31,2520 05112 TC ENDOFJOB
027583,003098: 31,2521 06006 R23.7 TC INTPRET
027584,003099: 31,2522 45014 R23.8 SET CALL
027585,003100: 31,2523 00467 VEHUPFLG
027586,003101: 31,2524 75462 INCORP2
027587,003102: 31,2525 77776 EXIT
027588,003103: 31,2526 04106 R23.END TC GOTOPOOH
027589,003104:
![]() |
Page 618 |
027591,003106: 31,2527 40220 HORIZ STQ SETPD
027592,003107: 31,2530 03672 SRRETURN
027593,003108: 31,2531 00001 0
027594,003109: 31,2532 65345 DLOAD PDDL # PUSH 0-1 = -AYO SCALED B0
027595,003110: 31,2533 01714 -AYO
027596,003111: 31,2534 01716 AXO
027597,003112: 31,2535 63325 PDDL PDVL # PUSH 2-3 = +AX SCALED B0
027598,003113: 31,2536 15340 DPPOSMAX
027599,003114: 31,2537 02617 US
027600,003115: 31,2540 53435 VXV UNIT
027601,003116: 31,2541 03627 RZC
027602,003117: 31,2542 27621 STOVL UBAR2
027603,003118: 31,2543 53435 VXV UNIT # PUSH UP
027604,003119: 31,2544 03621 UBAR2
027605,003120: 31,2545 27605 STOVL UBAR0
027606,003121: 31,2546 03621 UBAR2
027607,003122: 31,2547 53435 VXV UNIT
027608,003123: 31,2550 03605 UBAR0
027609,003124: 31,2551 03613 STORE UBAR1
027610,003125: 31,2552 50214 BON DOT
027611,003126: 31,2553 01703 LUNAFLAG
027612,003127: 31,2554 62752 HORIZ.6
027613,003128: 31,2555 00001 0 # UBAR1 DOT UZ
027614,003129: 31,2556 36156 STCALL ALPHAV +4
027615,003130: 31,2557 26437 GETERAD
027616,003131: 31,2560 65215 DAD PDDL # MPAC HAS RADIUS OF FISHER SLLIPSOID
027617,003132: 31,2561 01355 HORIZALT # PUSH 0-1 = BH SCALED B29
027618,003133: 31,2562 23032 AEARTH
027619,003134: 31,2563 41415 DAD PUSH # PUSH 2-3 = AH B29
027620,003135: 31,2564 01355 HORIZALT
027621,003136: 31,2565 64375 HORIZ.1 VLOAD MXV
027622,003137: 31,2566 03627 RZC # B29
027623,003138: 31,2567 03605 UBAR0 # B1
027624,003139: 31,2570 63372 VSL1 PDVL # PUSH 4-9 = RH(XH,YH,ZH) B29
027625,003140: 31,2571 02617 US
027626,003141: 31,2572 76521 MXV VSL1
027627,003142: 31,2573 03605 UBAR0
027628,003143: 31,2574 77725 PDDL # PUSH 10-15 = USH B1
027629,003144: 31,2575 00003 2 # AH
027630,003145: 31,2576 14043 STODL 34D
027631,003146: 31,2577 00005 4 # XH
027632,003147: 31,2600 77624 CALL
027633,003148: 31,2601 62756 DIVIDE
027634,003149: 31,2602 41257 SR* DMP
027635,003150: 31,2603 20611 8D,1 # NOW SCALED B9
027636,003151: 31,2604 00155 MPAC
027637,003152: 31,2605 14037 STODL 30D
027638,003153: 31,2606 00001 0
027639,003154: 31,2607 14043 STODL 34D
027640,003155: 31,2610 00007 6 # YH
![]() |
Page 619 |
027642,003157: 31,2611 77624 CALL
027643,003158: 31,2612 62756 DIVIDE
027644,003159: 31,2613 41257 SR* DMP
027645,003160: 31,2614 20611 8D,1 # B9
027646,003161: 31,2615 00155 MPAC # B18
027647,003162: 31,2616 41415 DAD PUSH # PUSH 16-17 =A SCALED B18
027648,003163: 31,2617 00037 30D
027649,003164: 31,2620 75425 DSU SQRT
027650,003165: 31,2621 23040 1.0B18
027651,003166: 31,2622 77725 PDDL # PUSH 18-19 SQRT(A-1) B9
027652,003167: 31,2623 00021 16D
027653,003168: 31,2624 14043 STODL 34D
027654,003169: 31,2625 00005 4 # XH
027655,003170: 31,2626 77624 CALL
027656,003171: 31,2627 62756 DIVIDE
027657,003172: 31,2630 65257 SR* PDDL
027658,003173: 31,2631 20622 17D,1 # PUSH 20-21 = XH/A B29
027659,003174: 31,2632 00007 6 # YH
027660,003175: 31,2633 77624 CALL
027661,003176: 31,2634 62756 DIVIDE
027662,003177: 31,2635 65257 SR* PDDL
027663,003178: 31,2636 20622 17D,1 # PUSH 22-23 = YH/A B29
027664,003179: 31,2637 00021 16D # A
027665,003180: 31,2640 14043 STODL 34D
027666,003181: 31,2641 00023 18D # SQRT(A-1)
027667,003182: 31,2642 77624 CALL
027668,003183: 31,2643 62756 DIVIDE
027669,003184: 31,2644 77657 SR*
027670,003185: 31,2645 20611 8D,1
027671,003186: 31,2646 14035 STODL 28D
027672,003187: 31,2647 00001 0 # BH
027673,003188: 31,2650 14043 STODL 34D
027674,003189: 31,2651 00003 2 # AH
027675,003190: 31,2652 77624 CALL
027676,003191: 31,2653 62756 DIVIDE
027677,003192: 31,2654 41257 SR* DMP # AH/BH SCALED B1
027678,003193: 31,2655 20601 0,1
027679,003194: 31,2656 00035 28D # SQRT(A-1)/A
027680,003195: 31,2657 72405 DMP SL1
027681,003196: 31,2660 00007 6 # YH
027682,003197: 31,2661 77725 PDDL
027683,003198: 31,2662 00003 2 # AH
027684,003199: 31,2663 14043 STODL 34D
027685,003200: 31,2664 00001 0
027686,003201: 31,2665 77624 CALL
027687,003202: 31,2666 62756 DIVIDE
027688,003203: 31,2667 41257 SR* DMP # BH/AH SCALED B1
027689,003204: 31,2670 20601 0,1
027690,003205: 31,2671 00035 28D # SQRT (A-1)/A
027691,003206: 31,2672 72405 DMP SL1
![]() |
Page 620 |
027693,003208: 31,2673 00005 4 # XH
027694,003209: 31,2674 43325 PDDL DAD
027695,003210: 31,2675 00025 20D # XH/A
027696,003211: 31,2676 00031 24D # ALPHA
027697,003212: 31,2677 45325 PDDL DSU
027698,003213: 31,2700 00027 22D # YH/A
027699,003214: 31,2701 00033 26D # BETA
027700,003215: 31,2702 40206 PUSH SETPD
027701,003216: 31,2703 00021 16D
027702,003217: 31,2704 45345 DLOAD DSU
027703,003218: 31,2705 00025 20D # XH/A
027704,003219: 31,2706 00031 24D # ALPHA
027705,003220: 31,2707 43325 PDDL DAD
027706,003221: 31,2710 00027 22D # YH/A
027707,003222: 31,2711 00033 26D # BETA
027708,003223: 31,2712 41525 PDDL PUSH
027709,003224: 31,2713 15332 ZEROVECS
027710,003225: 31,2714 24041 STOVL 32D # ZERO THIRD COMP. OF T-0 VECTOR
027711,003226: 31,2715 00035 28D
027712,003227: 31,2716 53451 VSU UNIT
027713,003228: 31,2717 00005 4 # RH VECTOR
027714,003229: 31,2720 63241 DOT PDVL # PUSH 22-23 A-SUB-ZERO
027715,003230: 31,2721 00013 10D # USH VECTOR
027716,003231: 31,2722 00021 16D # T1 VECTOR
027717,003232: 31,2723 53451 VSU UNIT
027718,003233: 31,2724 00005 4 # RH VECTOR
027719,003234: 31,2725 41441 DOT PUSH # PUSH 24-25 A-SUB-ONE
027720,003235: 31,2726 00013 10D
027721,003236: 31,2727 50021 BDSU BMN
027722,003237: 31,2730 00027 22D # A-SUB-ZERO
027723,003238: 31,2731 62740 HORIZ.3
027724,003239: 31,2732 77614 BON
027725,003240: 31,2733 00304 NORFHOR
027726,003241: 31,2734 62744 HORIZ.4
027727,003242: 31,2735 52175 HORIZ.2 VLOAD GOTO
027728,003243: 31,2736 00035 28D # T-0 VECTOR
027729,003244: 31,2737 62746 HORIZ.5
027730,003245: 31,2740 52014 HORIZ.3 BON GOTO
027731,003246: 31,2741 00304 NORFHOR
027732,003247: 31,2742 62735 HORIZ.2
027733,003248: 31,2743 62744 HORIZ.4
027734,003249: 31,2744 77775 HORIZ.4 VLOAD
027735,003250: 31,2745 00021 16D # T1 VECTOR
027736,003251: 31,2746 76505 HORIZ.5 VXM VSL1
027737,003252: 31,2747 03605 UBAR0
027738,003253: 31,2750 77650 GOTO
027739,003254: 31,2751 03672 SRRETURN
027740,003255: 31,2752 41545 HORIZ.6 DLOAD PUSH
027741,003256: 31,2753 23034 RADMOON
027742,003257: 31,2754 52006 PUSH GOTO
![]() |
Page 621 |
027744,003259: 31,2755 62565 HORIZ.1
027745,003260: 31,2756 70501 DIVIDE NORM SR1
027746,003261: 31,2757 00047 X1
027747,003262: 31,2760 14045 STODL 36D
027748,003263: 31,2761 00043 34D
027749,003264: 31,2762 55301 NORM BDDV
027750,003265: 31,2763 00051 S1
027751,003266: 31,2764 00045 36D
027752,003267: 31,2765 43460 XSU,1 RVQ
027753,003268: 31,2766 00050 S1
027754,003269: 31,2767 77014 RECT.1 BOFF AXT,2 # SR TO SET ZMEASURE = 0 IF MEASUREMENT
027755,003270: 31,2770 04343 CMOONFLG # PLANET AND PRIMARY PLANET ARE THE SAME
027756,003271: 31,2771 63001 RECT.3 # OTHERWISE = 1
027757,003272: 31,2772 77775 DEC -2 B-14
027758,003273: 31,2773 77614 BOFF # VEC. AND SCALE B29 AND B7
027759,003274: 31,2774 01743 LUNAFLAG
027760,003275: 31,2775 63005 RECT.4
027761,003276: 31,2776 52014 RECT.2 CLEAR GOTO
027762,003277: 31,2777 00265 ZMEASURE
027763,003278: 31,3000 63007 RECT.5
027764,003279: 31,3001 43174 RECT.3 AXT,2 BOFF
027765,003280: 31,3002 00000 0
027766,003281: 31,3003 01743 LUNAFLAG
027767,003282: 31,3004 62776 RECT.2
027768,003283: 31,3005 77614 RECT.4 SET
027769,003284: 31,3006 00065 ZMEASURE
027770,003285: 31,3007 44575 RECT.5 VLOAD VSR7
027771,003286: 31,3010 01573 DELTACSM # SCALED B22 OR B18
027772,003287: 31,3011 53257 VSR* VAD
027773,003288: 31,3012 57176 0,2
027774,003289: 31,3013 01607 RCVCSM # SCALED B29 OR B27
027775,003290: 31,3014 77657 VSR*
027776,003291: 31,3015 57176 0,2
027777,003292: 31,3016 27627 STOVL RZC # NOW SCALED B29
027778,003293: 31,3017 01601 NUVCSM # SCALED B3 OR B-1
027779,003294: 31,3020 53702 VSR4 VSR*
027780,003295: 31,3021 57176 0,2
027781,003296: 31,3022 53655 VAD VSR*
027782,003297: 31,3023 01615 VCVCSM # SCALED B7 OR B5
027783,003298: 31,3024 57176 0,2
027784,003299: 31,3025 03635 STORE VZC # NOW SCALED B7
027785,003300: 31,3026 77616 RVQ
027786,003301:
027787,003302: 31,3027 26305 05432 ONE/C 2DEC* .333564049 E-6 B+21*
027788,003303: 31,3031 00302 24533 AEARTH 2DEC 6378166 B-29 # A AXIS OF EARTH (METERS B-29)
027789,003304: 31,3033 00065 01265 RADMOON 2DEC 1738090 B-29 # RADIUS OF MOON IN METERS
027790,003305: 31,3035 01604 TRUN19 OCT 01604
027791,003306: 31,3036 00000 TRUN19A OCT 00000
![]() |
Page 622 |
027793,003308: 31,3037 00000 02000 1.0B18 2DEC 1.0 B-18
027794,003309: 31,3041 00000 VARSUBL DEC 0 B-14
027795,003310: 31,3042 01505 14100 VARSUBL3 2DEC* 3.4299040 E+6 B-26*
027796,003311: 31,3044 00012 27462 TRUNVAR 2DEC 2.5 E-9 B+18
027797,003312: 31,3046 01461 V6N49 VN 0649
027798,003313: 31,3047 01531 V6N89 VN 0689
027799,003314: 31,3050 01306 V05N70 VN 0570
027800,003315: 31,3051 01307 V05N71 VN 0571
027801,003316: 31,3052 00077 OCT00077 OCT 00077
027802,003317: 31,3053 00202 V50N25P OCT 00202
027803,003318: 31,3054 00006 SPSIX OCT 00006
027804,003319: 31,3055 10461 21675 JCAXIS 2DEC .268649805 # TRACK AXIS
027805,003320: 31,3057 00000 00000 2DEC 0 B-28
027806,003321: 31,3061 15375 02004 2DEC .421695725
027807,003322:
027808,003323: 31,3063 62217 R60ADRS CADR R60CALL +3
027809,003324: 31,3064 77735 LUNLMKLD SLOAD
027810,003325: 31,3065 02754 IDOFLMK
027811,003326: 31,3066 45230 BHIZ DSU
027812,003327: 31,3067 63101 LNLMKEND
027813,003328: 31,3070 21646 9DWID
027814,003329: 31,3071 70152 SL1 LXC,1
027815,003330: 31,3072 00154 MPAC
027816,003331: 31,3073 64743 DLOAD* PDDL*
027817,003332: 31,3074 23705 ALTTAB,1
027818,003333: 31,3075 23623 LONGTAB,1
027819,003334: 31,3076 55523 PDDL* VDEF
027820,003335: 31,3077 23541 LATTAB,1
027821,003336: 31,3100 01104 STORE LAT
027822,003337: 31,3101 77616 LNLMKEND RVQ
027823,003338: 14,2000 SETLOC RT53
027824,003339: 14,2000 BANK
027825,003340: 14,2000 43573 LOWMEMRY VLOAD* RVQ
027826,003341: 14,2001 31744 CATLOG,1
027827,003342: 4550 BLOCK 02
027828,003343: 4550 00006 GOTOV56 EXTEND # P20 TERMINATES BY GOTOV56 INSTEAD OF
027829,003344: 4551 34554 DCA VB56CADR # GOTOPOOH
027830,003345: 4552 15122 TCF SUPDXCHZ
027831,003346: 4553 E7,1777 EBANK= WHOCARES
027832,003347: 4553 02637 66107 VB56CADR 2CADR TRACKTRM
027833,003348:
027834,003349: 4000 SETLOC FFTAG2
027835,003350: 4000 BANK
027836,003351: 4555 COUNT* $$/P20
027837,003352: 40,3574 BANK 40
![]() |
Page 623 |
027839,003354: 40,3574 SETLOC ENDPINS1
027840,003355: 40,3574 BANK
027841,003356: 40,3574 COUNT* $$/EXTVB
027842,003357: 40,3574 06006 V67CALL TC INTPRET
027843,003358: 40,3575 77624 CALL
027844,003359: 40,3576 61656 V67WW
027845,003360: 40,3577 77776 EXIT
027846,003361: 40,3600 33732 V06N99DS CAF V06N99A
027847,003362: 40,3601 04555 TC BANKCALL
027848,003363: 40,3602 20465 CADR GOXDSPF
027849,003364: 40,3603 15423 TCF ENDEXT
027850,003365: 40,3604 03610 TC V06N9933
027851,003366: 40,3605 05435 TC UPFLAG
027852,003367: 40,3606 00210 ADRES V67FLAG
027853,003368: 40,3607 03600 TC V06N99DS
027854,003369: 40,3610 06006 V06N9933 TC INTPRET
027855,003370: 40,3611 77414 BON EXIT
027856,003371: 40,3612 04701 V67FLAG
027857,003372: 40,3613 61615 +2
027858,003373: 40,3614 15423 TCF ENDEXT
027859,003374: 40,3615 41345 DLOAD DMP
027860,003375: 40,3616 02321 WWPOS
027861,003376: 40,3617 21734 1/SQRT3
027862,003377: 40,3620 71350 LXA,1 DLOAD
027863,003378: 40,3621 00154 MPAC
027864,003379: 40,3622 02323 WWVEL
027865,003380: 40,3623 73005 DMP LXA,2
027866,003381: 40,3624 21734 1/SQRT3
027867,003382: 40,3625 00154 MPAC
027868,003383: 40,3626 45335 SLOAD DSU
027869,003384: 40,3627 02325 WWOPT
027870,003385: 40,3630 21736 V67DEC2
027871,003386: 40,3631 51030 BHIZ BPL
027872,003387: 40,3632 61641 V67WORB
027873,003388: 40,3633 61646 V67WMID
027874,003389: 40,3634 67130 SXA,1 SXA,2
027875,003390: 40,3635 02000 WRENDPOS
027876,003391: 40,3636 02001 WRENDVEL
027877,003392: 40,3637 77650 GOTO
027878,003393: 40,3640 61651 V67EXITX
027879,003394: 40,3641 67130 V67WORB SXA,1 SXA,2
027880,003395: 40,3642 02004 WORBPOS
027881,003396: 40,3643 02005 WORBVEL
027882,003397: 40,3644 77650 GOTO
027883,003398: 40,3645 61651 V67EXITX
027884,003399: 40,3646 67130 V67WMID SXA,1 SXA,2
027885,003400: 40,3647 03000 WMIDPOS
027886,003401: 40,3650 03001 WMIDVEL
027887,003402: 40,3651 43014 V67EXITX CLEAR CLEAR
027888,003403: 40,3652 01671 ORBWFLAG
![]() |
Page 624 |
027890,003405: 40,3653 02676 RENDWFLG
027891,003406: 40,3654 77776 EXIT
027892,003407: 40,3655 15423 TCF ENDEXT
027893,003408: 40,3656 40020 V67WW STQ BOV
027894,003409: 40,3657 00051 S2
027895,003410: 40,3660 61661 +1
027896,003411: 40,3661 45014 CLEAR CALL
027897,003412: 40,3662 04661 V67FLAG
027898,003413: 40,3663 27371 INTSTALL
027899,003414: 40,3664 71331 SSP DLOAD
027900,003415: 40,3665 00051 S1
027901,003416: 40,3666 00006 DEC 6 B-14
027902,003417: 40,3667 15332 ZEROVECS
027903,003418: 40,3670 02321 STORE WWPOS
027904,003419: 40,3671 02323 STORE WWVEL
027905,003420: 40,3672 02325 STORE WWOPT
027906,003421: 40,3673 77770 AXT,1
027907,003422: 40,3674 00044 DEC 36 B-14
027908,003423: 40,3675 47573 NXPOSVEL VLOAD* VSQ
027909,003424: 40,3676 02445 W +36D,1
027910,003425: 40,3677 77615 DAD
027911,003426: 40,3700 02321 WWPOS
027912,003427: 40,3701 02321 STORE WWPOS
027913,003428: 40,3702 47573 VLOAD* VSQ
027914,003429: 40,3703 02533 W +90D,1
027915,003430: 40,3704 77615 DAD
027916,003431: 40,3705 02323 WWVEL
027917,003432: 40,3706 02323 STORE WWVEL
027918,003433: 40,3707 75500 TIX,1 SQRT
027919,003434: 40,3710 61675 NXPOSVEL
027920,003435: 40,3711 16323 STODL WWVEL
027921,003436: 40,3712 02321 WWPOS
027922,003437: 40,3713 77766 SQRT
027923,003438: 40,3714 02321 STORE WWPOS
027924,003439: 40,3715 52000 BOV GOTO
027925,003440: 40,3716 61720 +2
027926,003441: 40,3717 61724 V67XXX
027927,003442: 40,3720 77745 DLOAD
027928,003443: 40,3721 15340 DPPOSMAX
027929,003444: 40,3722 02321 STORE WWPOS
027930,003445: 40,3723 02323 STORE WWVEL
027931,003446: 40,3724 66150 V67XXX LXA,1 SXA,1
027932,003447: 40,3725 00051 S2
027933,003448: 40,3726 00052 QPRET
027934,003449: 40,3727 77776 EXIT
027935,003450: 40,3730 04574 TC POSTJUMP
027936,003451: 40,3731 27406 CADR INTWAKE
027937,003452: 40,3732 E4,1720 WWPOS = RANGE
027938,003453: 40,3732 E4,1722 WWVEL = RRATE
027939,003454: 40,3732 E4,1724 WWOPT = RTHETA
![]() |
Page 625 |
027941,003456: 40,3732 01543 V06N99A VN 0699
027942,003457: 40,3733 22363 11620 1/SQRT3 2DEC 0.5773502
027943,003458: 40,3735 00002 00000 V67DEC2 2DEC 2 B-14
027944,003459:
End of include-file P20-P25.agc. Parent file is MAIN.agc