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