Source Code

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