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