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