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