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