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