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