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