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