Source Code
|
These source-code files were transcribed from scans made from Don Eyles's personal
copy of BURST120 (SUNBURST 120). They were scanned at archive.org's Boston
facility, and the scanning was sponsored by Mike Stewart. The code was transcribed
from these scans by a team of volunteers who are referenced in the program
comments. Comments from the original source code are in ALL-CAPS, whereas
comments added later in transcription are in Mixed-Case. In some cases, where
similar code blocks exist in previously-transcribed AGC programs (primarily
Luminary 99, from Apollo 11) those code blocks were used as a starting point and
then corrected to agree with the BURST120 scans. The full scans are available
at the Virtual AGC
project's collection at archive.org, while more-convenient reduced-size (but reduced-quality)
images are available at
the main Virtual AGC website. Report any errors noted by creating an
issue report at the Virtual AGC
project's GitHub repository. Notations on the program listing read, in part:YUL SYSTEM FOR AGC: REVISION 0 OF PROGRAM BURST120 BY NASA 2021106-031 DEC 7, 1967 THIS LISTING IS A COPY OF A VERSION OF THE PROGRAM INTENDED FOR USE IN THE ON-BOARD PRIMARY GUIDANCE COMPUTER IN THE UNMANNED FLIGHT OF APOLLO LUNAR MODULE 1 --- THE AS206 MISSION.Note that the date is the date of the printout, not the date of the program revision. |
032938,000002: ## Copyright: Public domain.
032939,000003: ## Filename: INTEGRATION_INITIALIZATION.agc
032940,000004: ## Purpose: A module for revision 0 of BURST120 (Sunburst). It
032941,000005: ## is part of the source code for the Lunar Module's
032942,000006: ## (LM) Apollo Guidance Computer (AGC) for Apollo 5.
032943,000007: ## Assembler: yaYUL
032944,000008: ## Contact: Ron Burkey <info@sandroid.org>.
032945,000009: ## Website: www.ibiblio.org/apollo/index.html
032946,000010: ## Mod history: 2016-09-30 RSB Created draft version.
032947,000011: ## 2016-10-29 MAS Transcribed.
032948,000012: ## 2016-10-31 RSB Typos.
032949,000013: ## 2016-12-06 RSB Comments proofed using octopus/ProoferComments,
032950,000014: ## changes made.
032951,000015:
|
|
Page 766 |
032953,000017: # AVETOMID PERFORMS THE TRANSITION FROM A THRUSTING PHASE TO A COASTING PHASE. THE ROUTINE INITIALIZES THE
032954,000018: # ORBITAL INTEGRATION PROGRAM AND RESCALES AND TRANSFORMS LEMS STATE VECTOR FROM THE STABLE MEMBER COORDINATE
032955,000019: # SYSTEM USED IN AVERAGEG TO THE REFERENCE SYSTEM USED IN ORBITAL INTEGRATION DURING COAST
032956,000020: # INPUT - LEM STATE VECTOR IN SM COORDINATE SYSTEM AND TIME
032957,000021: # RN, POSITION IN METERS SCALED AT 2(+24)
032958,000022: # VN, VELOCITY IN M/CSEC SCALED AT 2(+7)
032959,000023: # PIPTIME, TIME IN CSEC CORRESPONDING TO RN, VN
032960,000024:
032961,000025: # OUTPUT - LEM STATE VECTOR IN REF. COORDINATE SYSTEM AND TIME
032962,000026: # RRECT AND RCV, POSITION IN KM SCALED AT 2(+14)
032963,000027: # VRECT AND VCV, VELOCITY IN 1/SQRT(KM) SCALED AT 2(-6)
032964,000028: # TET, TIME IN CSEC
032965,000029: # P-MEMORY (REFRRECT TO REFRRECT + 42)
032966,000030:
032967,000031: # AVETOMID CALLING SEQUENCE
032968,000032: # L-2 EXTEND
032969,000033: # L-1 DCA (2CADR OF AVETOMID)
032970,000034: # L DXCH Z
032971,000035: # DELETE
032972,000036:
032973,000037: # NORMAL EXIT
032974,000038: # AT L+1 OF CALLING SEQUENCE
032975,000039:
032976,000040: 07,2116 BANK 07
032977,000041: 07,2116 E4,1400 EBANK= AMEMORY
032978,000042: 07,2116 53631 AVETOMID DXCH AVMIDRTN
032979,000043: 07,2117 06112 TC INTPRET
032980,000044: 07,2120 77624 CALL # ORBITAL INTEGRATION INITIALIZATION
032981,000045: 07,2121 16324 INITINT
032982,000046: 07,2122 77775 VLOAD
032983,000047: 07,2123 16226 ZEROVEC
032984,000048: 07,2124 02015 STORE TDELTAV # ZERO POS DEVIATIONS
032985,000049: 07,2125 02023 STORE TNUV # ZERO VEL DEVIATIONS
032986,000050: 07,2126 02045 STORE TC # ALSO CLEARS TET AND XKEP
032987,000051:
032988,000052: 07,2127 66370 SMTOREF AXT,1 SSP # SET UP TIX LOOP FOR STATE VEC TRANSFORM
032989,000053: 07,2130 00014 12D
032990,000054: 07,2131 00051 S1
032991,000055: 07,2132 00006 6
032992,000056: 07,2133 73773 SMTOREF1 VLOAD* VXSC* # TRANSFORM STATE FROM SM TO REF SYSTEM
032993,000057: 07,2134 01025 RN +12D,1
032994,000058: 07,2135 16250 SCLRAVMD +12D,1
032995,000059: 07,2136 72505 VXM VSL2
032996,000060: 07,2137 01263 REFSMMAT
032997,000061: 07,2140 06015 STORE RRECT +12D,1
032998,000062: 07,2141 06045 STORE RCV +12D,1
032999,000063:
033000,000064: 07,2142 77500 TIX,1 EXIT
033001,000065: 07,2143 16133 SMTOREF1
033002,000066: 07,2144 00006 EXTEND
|
|
Page 767 |
033004,000068: 07,2145 31307 DCA PIPTIME # SAVE PIPTIME
033005,000069: 07,2146 53447 DXCH TET # PIPTIME UN TET
033006,000070:
033007,000071: 07,2147 02276 TC MOVETEMP # TRANSFER STATE AND INIT. DATA TO P-MEM
033008,000072: 07,2150 53631 DXCH AVMIDRTN
033009,000073: 07,2151 52006 DXCH Z
033010,000074: 07,2152 02400 PIPEBANK OCT 02400 # EBANK 05
033011,000075: 07,2153 77776 TESTLOOP EXIT # FOR DUMP.
033012,000076:
033013,000077: 07,2154 06112 TC INTPRET
033014,000078:
033015,000079: 07,2155 40145 DLOAD BOV
033016,000080: 07,2156 02167 TDEC
033017,000081: 07,2157 16160 +1 # CLEAR OVERFLOW INDICATOR
033018,000082: 07,2160 47025 DSU RTB
033019,000083: 07,2161 02047 TET
033020,000084: 07,2162 33520 SGNAGREE
033021,000085: 07,2163 56261 SL DDV
033022,000086: 07,2164 20214 11D
033023,000087: 07,2165 17755 EARTHTAB +9D
033024,000088: 07,2166 02163 STORE DT/2
033025,000089: 07,2167 51400 BOV ABS
033026,000090: 07,2170 16206 GETMAXDT
033027,000091: 07,2171 50025 DSU BMN
033028,000092: 07,2172 16236 DT/2MIN
033029,000093: 07,2173 16354 DECISION # INTEGRATION FINISHED-DECIDE WHERE TO GO
033030,000094: 07,2174 45215 DAD DSU
033031,000095: 07,2175 16236 DT/2MIN
033032,000096: 07,2176 16244 DT/2MAX
033033,000097: 07,2177 77640 BMN
033034,000098: 07,2200 17450 TIMESTEP
033035,000099: 07,2201 75345 USEMAXDT DLOAD SIGN
033036,000100: 07,2202 16244 DT/2MAX
033037,000101: 07,2203 02163 DT/2
033038,000102: 07,2204 36163 STCALL DT/2
033039,000103: 07,2205 17450 TIMESTEP
033040,000104: 07,2206 77634 GETMAXDT RTB
033041,000105: 07,2207 73501 SIGNMPAC
033042,000106: 07,2210 36163 STCALL DT/2
033043,000107: 07,2211 16201 USEMAXDT
033044,000108:
033045,000109:
033046,000110:
033047,000111: 07,2212 00016 SCALER DEC 14 B-14
033048,000112: 07,2213 00004 SCALDELT DEC 4 B-14
033049,000113: 07,2214 00022 SCALEDT DEC 18 B-14
033050,000114: 07,2215 00000 05360 28SECS 2DEC 2800 B-28
033051,000115:
033052,000116: 07,2217 00001 24570 270SECS 2DEC 27000 B-28
033053,000117:
|
|
Page 768 |
033055,000119: 07,2221 00000 00310 2SECS 2DEC 200 B-28
033056,000120:
033057,000121: 07,2223 00000 05670 30SECS 2DEC 3000 B-28 # USED ONLY FOR LOGIC IN IGN+28 * 206 ONLY
033058,000122:
033059,000123: 07,2225 00000 00000 ZEROVEC 2DEC 0 B-28
033060,000124:
033061,000125: 07,2227 00000 00000 2DEC 0 B-28
033062,000126:
033063,000127: 07,2231 00000 00000 2DEC 0 B-28
033064,000128:
033065,000129: # THE ORDER OF THE SIX FOLLOWING CONSTANTS CANNOT BE CHANGED
033066,000130:
033067,000131: 07,2233 20304 23351 SCLRAVMD 2DEC .512 # METERS TO KM 1/2(1024/1000)
033068,000132:
033069,000133: 07,2235 00000 17565 DT/2MIN 2DEC .00003
033070,000134:
033071,000135: 07,2237 37200 00000 SCLRMDAV 2DEC 1000 B-10 # KM TO METERS
033072,000136:
033073,000137: 07,2241 24605 15301 SCLVAVMD 2DEC .64876819 # METERS/CSEC TO 1/SQR(KM)
033074,000138:
033075,000139: 07,2243 12317 00451 DT/2MAX 2DEC .65027077 B-1 # 270 SEC MAX TIME STEP
033076,000140:
033077,000141: 07,2245 30523 00147 SCLVMDAV 2DEC .7706913 # 1/SQR(KM) TO METERS/CSEC
033078,000142:
|
|
Page 769 |
033080,000144: # STATEINT IS CALLED UP UNDER A JOB EVERY 539 SECONDS DURING A COASTING PHASE BY THE MISSION SCHEDULING
033081,000145: # MAINTENANCE ROUTINE TO MAINTAIN THE LEMS STATE VECTOR WITHIN TWO INTEGRATION STEPS (540 SECONDS) OF THE CURRENT
033082,000146: # TIME (TIME2). THE ROUTINE COMPARES TIME2 WITH TET (THAT TIME CORRESPONDING TO THE STATE VECTOR IN STORAGE).
033083,000147: # IF TET LAGS BY 270 SECONDS OR MORE, THE ORBITAL INTEGRATION PROGRAM IS CALLED UP AND THE STATE IS UPDATED TO
033084,000148: # TIME2. IF TET DOES NOT LAG, STATEINT IS TERMINATED BY ENDOFJOB.
033085,000149:
033086,000150: # INPUT-STATEINT ASSUMES THAT THE COASTING IN PROGRESS WAS INITIALIZED BY
033087,000151: # THE AVETOMID ROUTINE.
033088,000152:
033089,000153: 07,2247 00006 STATEINT EXTEND
033090,000154: 07,2250 30025 DCA TIME2 # GET CURRENT TIME IN TDEC
033091,000155: 07,2251 53567 DXCH TDEC
033092,000156: 07,2252 06060 TC FLAG2UP # SET ORBITAL INTEGRATION FLAG
033093,000157: 07,2253 00100 OCT 100
033094,000158: 07,2254 02311 TC MOVEPERM # BRING STATE FROM PMEMORY
033095,000159: 07,2255 06112 TC INTPRET
033096,000160:
033097,000161: 07,2256 45345 DLOAD DSU # FORM TDEC-TET
033098,000162: 07,2257 02167 TDEC
033099,000163: 07,2260 02047 TET
033100,000164: 07,2261 45240 BMN DSU # IS STATE LAGGING
033101,000165: 07,2262 16274 NOINT # NO, TET GREATER THAN TDEC
033102,000166: 07,2263 16220 270SECS
033103,000167: 07,2264 66240 BMN SSP
033104,000168: 07,2265 16274 NOINT # NO, TET GREATER THAN TDEC-270 SECS.
033105,000169: 07,2266 02201 MEASMODE # BRING TO CURRENT TIME-SET MEASMODE (-1)
033106,000170: 07,2267 77776 DEC -1 B-14
033107,000171: 07,2270 77624 CALL
033108,000172: 07,2271 16324 INITINT # INITIALIZE BRANCH REGS
033109,000173: 07,2272 77650 GOTO
033110,000174: 07,2273 16153 TESTLOOP # START INTEGRATION FROM TET TO TDEC
033111,000175: 07,2274 77776 NOINT EXIT # TEMPORARY STATEINT EXIT
033112,000176: 07,2275 12544 TCF INTOUT # NO INTEGRATION, TERMINATE THIS JOB
033113,000177:
|
|
Page 770 |
033115,000179: # MOVETEMP TRANSFERS RRECT TO RRECT +42 FROM A-MEMORY TO P-MEMORY
033116,000180:
033117,000181: # CALLING SEQUENCE
033118,000182: # L TC MOVETEMP
033119,000183:
033120,000184: # NORMAL EXIT AT L+1
033121,000185:
033122,000186: 07,2276 00006 MOVETEMP EXTEND
033123,000187: 07,2277 23627 QXCH PBODY # TEMP. HERE-PBODY INITIALIZED BEFORE INT
033124,000188: 07,2300 32370 CAF FORTYTWO
033125,000189: 07,2301 55605 MTEMPLUP TS DIFEQCNT # INITIALIZE INDEX
033126,000190: 07,2302 51605 INDEX DIFEQCNT
033127,000191: 07,2303 31400 CA RRECT # PICK UP RRECT TO RRECT +42 FROM A-MEMORY
033128,000192: 07,2304 51605 INDEX DIFEQCNT
033129,000193: 07,2305 55210 TS REFRRECT # STORE IN REFRRECT TO REFRRECT +42 IN P-M
033130,000194: 07,2306 11605 CCS DIFEQCNT # IS TRANSFER COMPLETE
033131,000195: 07,2307 12301 TCF MTEMPLUP # NO --- LOOP AGAIN.
033132,000196: 07,2310 01627 TC PBODY
033133,000197:
033134,000198: # MOVEPERM TRANSFERS REFRRECT TO REFRRECT +42 FROM PMEMORY TO A-MEMORY
033135,000199:
033136,000200: 07,2311 00006 MOVEPERM EXTEND
033137,000201: 07,2312 23627 QXCH PBODY # TEMP. HERE-PBODY INIT. BEFORE INTEGRATIO
033138,000202: 07,2313 32370 CAF FORTYTWO
033139,000203: 07,2314 55605 MPERMLUP TS DIFEQCNT
033140,000204: 07,2315 51605 INDEX DIFEQCNT
033141,000205: 07,2316 31210 CA REFRRECT
033142,000206: 07,2317 51605 INDEX DIFEQCNT
033143,000207: 07,2320 55400 TS RRECT
033144,000208: 07,2321 11605 CCS DIFEQCNT
033145,000209: 07,2322 12314 TCF MPERMLUP
033146,000210: 07,2323 01627 TC PBODY
033147,000211:
033148,000212: 07,2324 66331 INITINT SSP SSP
033149,000213: 07,2325 02230 PBODY # EARTHTAB INTO PBOAY
033150,000214: 07,2326 17743 EARTHTAB
033151,000215: 07,2327 02205 STEPEXIT # TESTLOOP INTO STEPEXIT
033152,000216: 07,2330 16153 TESTLOOP
033153,000217: 07,2331 43014 CLEAR CLEAR
033154,000218: 07,2332 00262 MIDFLAG # ZERO ON 206
033155,000219: 07,2333 00263 MOONFLAG # ZERO ON 206
033156,000220: 07,2334 43414 CLEAR RVQ
033157,000221: 07,2335 00260 WMATFLAG # W-MATRIX NOT USED ON 206
033158,000222:
|
|
Page 771 |
033160,000224: # MIDTOAVE PERFORMS THE STATE VECTOR TRANSITION FROM A COASTING PHASE
033161,000225: # USING THE ORBITAL INTEGRATION PROGRAMS TO A TRUSTING PHASE WHICH USES
033162,000226: # AVERAGEG INTEGRATION. THE ROUTINE RESCALES AND TRANSFORMS THE STATE
033163,000227: # VECTOR AT TIGN-30, TIGN-2 AND TIGN FROM REFERENCE COORDINATES TO
033164,000228: # STABLE MEMBER COORDINATES AS DIRECTED BY THE DECISION ROUTINE
033165,000229:
033166,000230: # INPUT-MIDTOAVE ASSUMES THAT THE COASTING INTEGRATION WAS INITIALIZED
033167,000231: # BY THE AVETOMID ROUTINE, STATE IN REF. COORD. IN PMEMORY.
033168,000232:
033169,000233: # RRECT, RCV-POSITION IN KM SCALED AT 2(+14)
033170,000234: # VRECT, VCV- VELOCITY IN 1/SQRT(KM) SCALED AT 2(-6)
033171,000235: # TET, TIME IN CSECS.
033172,000236:
033173,000237: # OUTPUT-STATE IN STABLE MEMBER COORDINATES
033174,000238: # AT TIGN-30
033175,000239: # RAVEGON, POSITION IN METERS SCALED IN 2(+24)
033176,000240: # VAVEGON, VELOCITY IN METERS/CSEC SCALED AT 2(+7)
033177,000241:
033178,000242: # AT TIGN-2
033179,000243: # RIG-2SEC, POSITION IN METERS SCALED AT 2(+24)
033180,000244:
033181,000245: # AT TIGN
033182,000246:
033183,000247: # RIGNTION, POSITION IN METERS SCALED AT 2(+24)
033184,000248: # VIGNTION, VELOCITY IN METERS/CSEC SCALED AT 2(+7)
033185,000249:
033186,000250: # CALLING SEQUENCE
033187,000251: # (COMPUTE TDEC=TIME OF IGNITION-30 SECS.)
033188,000252: # L-2 EXTEND
033189,000253: # L-1 DCA (2CADR OF MIDTOAVE)
033190,000254: # L DXCH Z
033191,000255:
033192,000256: # NORMAL EXIT
033193,000257: # L+1 OF CALLING SEQUENCE
033194,000258:
033195,000259: 07,2336 53631 RVUPDATE DXCH AVMIDRTN
033196,000260: 07,2337 37763 CAF BIT1 # SET MEASMODE TO +1 TO INTEGRATE STATE
033197,000261: 07,2340 12343 TCF MIDTOAVE +2 # TO TDEC AND STORED IN RIGNTION ONLY
033198,000262:
033199,000263: 07,2341 53631 MIDTOAVE DXCH AVMIDRTN
033200,000264: 07,2342 37770 CA NEG0
033201,000265: 07,2343 55600 TS MEASMODE # SET MEASMODE (-0) TO INTEGRATE TO IG-30
033202,000266: 07,2344 06060 TC FLAG2UP # SET ORBITAL INTEGRATION FLAG
033203,000267: 07,2345 00100 OCT 100
033204,000268: 07,2346 02311 TC MOVEPERM # BRING STATE FROM PMEMORY
033205,000269: 07,2347 06112 TC INTPRET
033206,000270: 07,2350 77624 CALL # INITIALIZE ORBITAL INTEGRATION REGS
033207,000271: 07,2351 16324 INITINT
033208,000272: 07,2352 77650 GOTO
033209,000273: 07,2353 16153 TESTLOOP # GO TO ORBITAL INTEGRATION
033210,000274:
|
|
Page 772 |
033212,000276: # THE DECISION ROUTINE DETERMINES THE ACTION TO BE TAKEN AFTER ORBITAL
033213,000277: # INTEGRATION HAS UPDATED THE STATE VECTOR TO THE TIME INDICATED
033214,000278: # BY TDEC. THE ACTION TAKEN IS BASED ON THE CONTENTS OF MEASMODE,
033215,000279:
033216,000280: # C(MEASMODE)=(-0), STATE INTEGRATED (REF. COORD.) TO TIGN-30, SET
033217,000281: # MEASMODE=(+0), SET TDEC=TIGN-2SECS.
033218,000282: # C(MEASMODE)=(+0), POSITION VECTOR INTEGRATED TO TIGN-2, SET MEASMODE=,+1
033219,000283: # SET TDEC=TIGN
033220,000284: # C(MEASMODE)=(+1), STATE INTEGRATED TO TIGN, TRANSFORM STATE FROM REF TO
033221,000285: # SM COORD. SYSTEM AND RETURN TO MISSION PROGRAM
033222,000286: # C(MEASMODE)=(-1), STATE INTEGRATED TO TDEC DURING COAST PHASE, TERMINATE
033223,000287: # STATEINT JOB INITIATED BY MISSION SCHEDULING PACKAGE
033224,000288:
033225,000289: 07,2354 77776 DECISION EXIT
033226,000290: 07,2355 11600 CCS MEASMODE
033227,000291: 07,2356 12361 TCF +3 # STATE IN REF COOR AT IGN
033228,000292: 07,2357 12361 TCF +2 # STATE IN REF COORD AT IGN-2
033229,000293: 07,2360 12471 TCF COASTINT # COAST INTEGRATION STEP COMPLETE
033230,000294: 07,2361 06112 TC INTPRET
033231,000295: 07,2362 77624 CALL
033232,000296: 07,2363 17500 RECTIFY # RECTIFY AT IGN-30,IGN-2,IGN
033233,000297:
033234,000298: 07,2364 77776 EXIT
033235,000299: 07,2365 11600 CCS MEASMODE
033236,000300: 07,2366 12445 TCF REFTOSM # STATE AT TIGN-FINISH UP MIDTOAVE
033237,000301: 07,2367 12421 TCF IGN-2SEC # POS AT TIGN-2, DO TIGN NEXT
033238,000302: 07,2370 00051 FORTYTWO DEC 41 B-14
033239,000303: 07,2371 12372 TCF AVEGON # STATE AT TIGN-30, DO TIGN-2 NEXT
033240,000304:
033241,000305: 07,2372 06112 AVEGON TC INTPRET
033242,000306: 07,2373 66370 AXT,1 SSP # SET LOOP
033243,000307: 07,2374 00014 12D
033244,000308: 07,2375 00051 S1
033245,000309: 07,2376 00006 6
033246,000310: 07,2377 73773 SPECPLS1 VLOAD* VXSC*
033247,000311: 07,2400 02015 RRECT +12D,1
033248,000312: 07,2401 16254 SCLRMDAV +12D,1 # REF TO SM SCALE FACTOR
033249,000313: 07,2402 76521 MXV VSL1
033250,000314: 07,2403 01263 REFSMMAT
033251,000315: 07,2404 06131 STORE RAVEGON +12D,1
033252,000316: 07,2405 71300 TIX,1 DLOAD
033253,000317: 07,2406 16377 SPECPLS1
033254,000318: 07,2407 02167 TDEC # TDEC NOW=TIGN-30
033255,000319: 07,2410 01307 STORE PIPTIME # SAVE TIGN-30 IN PIPTIME FOR AVERAGEG
033256,000320: 07,2411 02111 STORE TAVEGON # TIME TIG-30 FOR DWNLINK IN NORMLIZE
033257,000321: 07,2412 77615 DAD
033258,000322: 07,2413 16216 28SECS # TDEC + 28SECS
033259,000323: 07,2414 02167 STORE TDEC # TDEC SET TIGN-2
033260,000324: 07,2415 52131 SSP GOTO
033261,000325: 07,2416 02201 MEASMODE # SET MEASMODE=(+0)
|
|
Page 773 |
033263,000327: 07,2417 00000 0
033264,000328: 07,2420 16153 TESTLOOP # GO INTEGRATE STATE TO IGN-2
033265,000329:
033266,000330: 07,2421 06112 IGN-2SEC TC INTPRET
033267,000331: 07,2422 74375 VLOAD VXSC # TRANSFORM POS AT IGN-2 FROM REF TO SM
033268,000332: 07,2423 02001 RRECT
033269,000333: 07,2424 16240 SCLRMDAV
033270,000334: 07,2425 76521 MXV VSL1
033271,000335: 07,2426 01263 REFSMMAT
033272,000336: 07,2427 16131 STODL RIG-2SEC # POS IN SM COORD. AT IGN-2
033273,000337: 07,2430 02167 TDEC
033274,000338: 07,2431 43214 BONCLR DAD
033275,000339: 07,2432 02212 INTEGRSW # IF SET, FINAL TESTLOOP GIVES IGN+28 STAT
033276,000340: 07,2433 16442 IGN+28 # INSTEAD OF IGN STATE - FOR MP 4 ONLY.
033277,000341: 07,2434 16222 2SECS
033278,000342: 07,2435 02167 TDECSTOR STORE TDEC
033279,000343: 07,2436 52131 SSP GOTO
033280,000344: 07,2437 02201 MEASMODE # SET MEASMODE=(+1)
033281,000345: 07,2440 00001 1
033282,000346: 07,2441 16153 TESTLOOP # GO INTEGRATE STATE TO IGN OR IGN+28
033283,000347:
033284,000348: 07,2442 52015 IGN+28 DAD GOTO
033285,000349: 07,2443 16224 30SECS # FOR MP4. REMOVE AFTER FLIGHT 206.
033286,000350: 07,2444 16435 TDECSTOR
033287,000351:
033288,000352: 07,2445 06076 REFTOSM TC FLAG2DWN # REMOVE ORBITAL INTEGRATION GLAG
033289,000353: 07,2446 00100 OCT 100
033290,000354: 07,2447 06112 TC INTPRET
033291,000355: 07,2450 66370 AXT,1 SSP # SET UP TIX LOOP
033292,000356: 07,2451 00014 12D # 12 IN X1
033293,000357: 07,2452 00051 S1 # 6 IN S1
033294,000358: 07,2453 00006 6
033295,000359: 07,2454 73773 REFTOSM1 VLOAD* VXSC* # TRANSFORM STATE AT TIGN FROM REF TO SM
033296,000360: 07,2455 02015 RRECT +12D,1
033297,000361: 07,2456 16254 SCLRMDAV +12D,1 # REF TO SM SCALE FACTOR
033298,000362: 07,2457 76521 MXV VSL1
033299,000363: 07,2460 01263 REFSMMAT
033300,000364: 07,2461 06015 STORE RIGNTION +12D,1 # STATE AT TIGN IN SM COORDINATES
033301,000365: 07,2462 77500 TIX,1 EXIT
033302,000366: 07,2463 16454 REFTOSM1
033303,000367: 07,2464 00006 EXTEND # PLAY SAFE WITH BASIC********************
033304,000368: 07,2465 31447 DCA TET # ****************************************
033305,000369: 07,2466 53777 DXCH TIGNTION # STATE TIME FOR DOWNLINK IN VPATCHER
033306,000370: 07,2467 53631 DXCH AVMIDRTN
033307,000371: 07,2470 52006 DXCH Z
033308,000372: # THE COASTINT ROUTINE TERMINATES THE ORBITAL INTEGRATION JOB SET BY
033309,000373: # MISSION SCHEDULING ROUTINE EVERY 539 SECONDS DURING COASTING PHASES.
033310,000374: # THE ROUTINE TRANSFERS THE STATE VECTOR AND ALL OTHER ORBITAL INTEGRATION
033311,000375: # QUANTITIES TO P-MEMORY. IT FORMS A TOTAL STATE VECTOR AND TRANSFORMS IT
033312,000376: # TO STABLE MEMBER COORDINATES AND STORES IT WITH TIME IN RN, VN AND
|
|
Page 774 |
033314,000378: # STATIME FOR DOWNLINK. THE ROUTINE THEN REMOVES THE INTEGRATION FLAG
033315,000379: # TO ALLOW GROUND UPDATE OF THE STATE VECTOR AND DOES ENDOFJOB.
033316,000380:
033317,000381: 07,2471 04161 COASTINT TC PHASCHNG
033318,000382: 07,2472 05021 OCT 05021
033319,000383: 07,2473 05000 OCT 05000
033320,000384:
033321,000385: 07,2474 02276 TC MOVETEMP
033322,000386:
033323,000387: 07,2475 04161 UPDATINT TC PHASCHNG
033324,000388: 07,2476 05021 OCT 05021
033325,000389: 07,2477 05000 OCT 05000
033326,000390:
033327,000391: 07,2500 06112 TC INTPRET
033328,000392: 07,2501 40575 VLOAD VSR8 # FORM TOTAL STATE VECTOR
033329,000393: 07,2502 01225 DELTAV
033330,000394: 07,2503 53342 VSR2 VAD
033331,000395: 07,2504 01241 REFRCV
033332,000396: 07,2505 26001 STOVL RRECT
033333,000397: 07,2506 01233 NUV
033334,000398: 07,2507 53202 VSR8 VAD
033335,000399: 07,2510 01247 REFVCV
033336,000400: 07,2511 02007 STORE VRECT # TOTAL VEL. VECTOR
033337,000401:
033338,000402: 07,2512 66370 AXT,1 SSP # SET TIX LOOP TO TRANSFORM STATE TO SM
033339,000403: 07,2513 00014 12D
033340,000404: 07,2514 00051 S1
033341,000405: 07,2515 00006 6
033342,000406: 07,2516 73773 TRANTOSM VLOAD* VXSC* # TRANSFORM STATE AND RE-STORE IN RRECT
033343,000407: 07,2517 02015 RRECT +12D,1
033344,000408: 07,2520 16254 SCLRMDAV +12D,1
033345,000409: 07,2521 76521 MXV VSL1
033346,000410: 07,2522 01263 REFSMMAT
033347,000411: 07,2523 06015 STORE RRECT +12D,1 # STATE IN SM SYSTEM
033348,000412: 07,2524 77700 TIX,1
033349,000413: 07,2525 16516 TRANTOSM
033350,000414: 07,2526 77776 EXIT
033351,000415:
033352,000416: 07,2527 00004 INHINT # INHIBIT INTERUPT TO STORE STATE IN RN
033353,000417: 07,2530 37764 CAF ELEVEN # INITIALIZE INDEX TO DEC 11
033354,000418: 07,2531 54070 STATORN TS RUPTREG1
033355,000419: 07,2532 50070 INDEX RUPTREG1
033356,000420: 07,2533 31400 CA RRECT # PICK RRECT + NEXT 11 REGS
033357,000421: 07,2534 50070 INDEX RUPTREG1
033358,000422: 07,2535 55010 TS RN # JAM IN RN TO RN+11 FOR DOWNLINK
033359,000423: 07,2536 10070 CCS RUPTREG1
033360,000424: 07,2537 12531 TCF STATORN
033361,000425: 07,2540 00006 EXTEND
033362,000426: 07,2541 31257 DCA TE # GET STATE TIME
033363,000427: 07,2542 53327 DXCH STATIME
033364,000428:
|
|
Page 775 |
033366,000430: 07,2543 00003 RELINT # STATE AND TIME IN DOWNLINK REGS
033367,000431:
033368,000432: 07,2544 06076 INTOUT TC FLAG2DWN # REMOVE ORBITAL INTEGRATION FLAG
033369,000433: 07,2545 00100 OCT 100
033370,000434:
033371,000435: 07,2546 04161 TC PHASCHNG
033372,000436: 07,2547 00001 OCT 00001
033373,000437:
033374,000438: 07,2550 05567 TC ENDOFJOB
End of include-file INTEGRATION_INITIALIZATION.agc. Parent file is MAIN.agc