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