Source Code
![]() |
These source-code files were transcribed from a printout in Don Eyles's personal
collection, scanned by archive.org, and financially sponsored by Peter McDermott.
A team of volunteers performed the transcription and proof-reading. The scanned
page images are available at
the Virtual AGC Project website, as well as higher-quality (but much larger)
images at
the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating
"issues" at
the Virtual AGC Project's GitHub Repository. Notations on the program listing read, in part: YUL SYSTEM FOR AGC: NEW PROGRAM SHEPATIN BY EYLES DEC 13, 1966 THIS PROGRAM WAS ASSEMBLED AS A VERSION OF REVISION 37 OF PROGRAM SUNBURST BY LEM GROUPNote that the date is the date of the printout, not the date of the program revision. |
032323,000002: ## Copyright: Public domain.
032324,000003: ## Filename: INTEGRATION_INITIALIZATION.agc
032325,000004: ## Purpose: A section of Sunburst revision 37, or Shepatin revision 0.
032326,000005: ## It is part of an early development version of the software
032327,000006: ## for Apollo Guidance Computer (AGC) on the unmanned Lunar
032328,000007: ## Module (LM) flight Apollo 5. Sunburst 37 was the program
032329,000008: ## upon which Don Eyles's offline development program Shepatin
032330,000009: ## was based; the listing herein transcribed was actually for
032331,000010: ## the equivalent revision 0 of Shepatin.
032332,000011: ## This file is intended to be a faithful transcription, except
032333,000012: ## that the code format has been changed to conform to the
032334,000013: ## requirements of the yaYUL assembler rather than the
032335,000014: ## original YUL assembler.
032336,000015: ## Reference: pp. 713-722
032337,000016: ## Assembler: yaYUL
032338,000017: ## Contact: Ron Burkey <info@sandroid.org>.
032339,000018: ## Website: www.ibiblio.org/apollo/index.html
032340,000019: ## Mod history: 2017-05-24 MAS Created from Sunburst 120.
032341,000020: ## 2017-06-13 HG Transcribed
032342,000021: ## 2017-06-23 RSB Proofed comment text with
032343,000022: ## octopus/ProoferComments.
032344,000023:
![]() |
Page 713 |
032346,000025: # AVETOMID PERFORMS THE TRANSITION FROM A THRUSTING PHASE TO A COASTING PHASE. THE ROUTINE INITIALIZES THE
032347,000026: # ORBITAL INTEGRATION PROGRAM AND RESCALES AND TRANSFORMS LEMS STATE VECTOR FROM THE STABLE MEMBER COORDINATE
032348,000027: # SYSTEM USED IN AVERAGEG TO THE REFERENCE SYSTEM USED IN ORBITAL INTEGRATION DURING COAST
032349,000028: # INPUT - LEM STATE VECTOR IN SM COORDINATE SYSTEM AND TIME
032350,000029: # RN, POSITION IN METERS SCALED AT 2(+24)
032351,000030: # VN, VELOCITY IN M/CSEC SCALED AT 2(+7)
032352,000031: # PIPTIME, TIME IN CSEC CORRESPONDING TO RN, VN
032353,000032:
032354,000033: # OUTPUT - LEM STATE VECTOR IN REF. COORDINATE SYSTEM AND TIME
032355,000034: # RRECT AND RCV, POSITION IN KM SCALED AT 2(+14)
032356,000035: # VRECT AND VCV, VELOCITY IN 1/SQRT(KM) SCALED AT 2(-6)
032357,000036: # TET, TIME IN CSEC
032358,000037: # P-MEMORY (REFRRECT TO REFRRECT + 42)
032359,000038:
032360,000039: # AVETOMID CALLING SEQUENCE
032361,000040: # L-2 EXTEND
032362,000041: # L-1 DCA (2CADR OF AVETOMID)
032363,000042: # L DXCH Z
032364,000043: # DELETE
032365,000044:
032366,000045: # NORMAL EXIT
032367,000046: # AT L+1 OF CALLING SEQUENCE
032368,000047:
032369,000048: 07,2073 BANK 07
032370,000049: 07,2073 E4,1400 EBANK= AMEMORY
032371,000050: 07,2073 53631 AVETOMID DXCH AVMIDRTN
032372,000051: 07,2074 06103 TC INTPRET
032373,000052: 07,2075 77624 CALL # ORBITAL INTEGRATION INITIALIZATION
032374,000053: 07,2076 16267 INITINT
032375,000054: 07,2077 77775 VLOAD
032376,000055: 07,2100 16175 ZEROVEC
032377,000056: 07,2101 02015 STORE TDELTAV # ZERO POS DEVIATIONS
032378,000057:
032379,000058: 07,2102 02023 STORE TNUV # ZERO VEL DEVIATIONS
032380,000059: 07,2103 02045 STORE TC # ALSO CLEARS TET AND XKEP
032381,000060:
032382,000061: 07,2104 66370 SMTOREF AXT,1 SSP # SET UP TIX LOOP FOR STATE VEC TRANSFORM
032383,000062: 07,2105 00014 12D
032384,000063: 07,2106 00051 S1
032385,000064: 07,2107 00006 6
032386,000065: 07,2110 73773 SMTOREF1 VLOAD* VXSC* # TRANSFORM STATE FROM SM TO REF SYSTEM
032387,000066: 07,2111 01025 RN +12D,1
032388,000067: 07,2112 16217 SCLRAVMD +12D,1
032389,000068: 07,2113 72505 VXM VSL2
032390,000069: 07,2114 01275 REFSMMAT
032391,000070: 07,2115 06015 STORE RRECT +12D,1
032392,000071: 07,2116 06045 STORE RCV +12D,1
032393,000072:
032394,000073: 07,2117 77500 TIX,1 EXIT
032395,000074: 07,2120 16110 SMTOREF1
032396,000075: 07,2121 00006 EXTEND
![]() |
Page 714 |
032398,000077: 07,2122 31321 DCA PIPTIME # SAVE PIPTIME
032399,000078: 07,2123 53447 DXCH TET # PIPTIME UN TET
032400,000079:
032401,000080: 07,2124 02245 TC MOVETEMP # TRANSFER STATE AND INIT. DATA TO P-MEM
032402,000081: 07,2125 53631 DXCH AVMIDRTN
032403,000082: 07,2126 52006 DXCH Z
032404,000083: 07,2127 02400 PIPEBANK OCT 02400 # EBANK 05
032405,000084: 07,2130 77776 TESTLOOP EXIT # FOR DUMP.
032406,000085:
032407,000086: 07,2131 06103 TC INTPRET
032408,000087:
032409,000088: 07,2132 40145 DLOAD BOV
032410,000089: 07,2133 02167 TDEC
032411,000090: 07,2134 16135 +1 # CLEAR OVERFLOW INDICATOR
032412,000091:
032413,000092: 07,2135 47025 DSU RTB
032414,000093: 07,2136 02047 TET
032415,000094: 07,2137 33565 SGNAGREE
032416,000095: 07,2140 56261 SL DDV
032417,000096: 07,2141 20214 11D
032418,000097: 07,2142 17703 EARTHTAB +9D
032419,000098: 07,2143 02163 STORE DT/2
032420,000099: 07,2144 51400 BOV ABS
032421,000100: 07,2145 16156 USEMAXDT
032422,000101: 07,2146 50025 DSU BMN
032423,000102: 07,2147 16205 DT/2MIN
032424,000103: 07,2150 16317 DECISION # INTEGRATION FINISHED-DECIDE WHERE TO GO
032425,000104: 07,2151 45215 DAD DSU
032426,000105: 07,2152 16205 DT/2MIN
032427,000106: 07,2153 16213 DT/2MAX
032428,000107: 07,2154 77640 BMN
032429,000108: 07,2155 17376 TIMESTEP
032430,000109: 07,2156 75345 USEMAXDT DLOAD SIGN
032431,000110: 07,2157 16213 DT/2MAX
032432,000111: 07,2160 02163 DT/2
032433,000112: 07,2161 36163 STCALL DT/2
032434,000113: 07,2162 17376 TIMESTEP
032435,000114: 07,2163 00016 SCALER DEC 14 B-14
032436,000115:
032437,000116: 07,2164 00004 SCALDELT DEC 4 B-14
032438,000117: 07,2165 00022 SCALEDT DEC 18 B-14
032439,000118: 07,2166 00000 05360 28SECS 2DEC 2800 B-28
032440,000119:
032441,000120: 07,2170 00001 24570 270SECS 2DEC 27000 B-28
032442,000121:
032443,000122: 07,2172 00000 00310 2SECS 2DEC 200 B-28
032444,000123:
032445,000124: 07,2174 00000 00000 ZEROVEC 2DEC 0 B-28
032446,000125:
032447,000126: 07,2176 00000 00000 2DEC 0 B-28
032448,000127:
032449,000128: 07,2200 00000 00000 2DEC 0 B-28
032450,000129:
![]() |
Page 715 |
032452,000131: # THE ORDER OF THE SIX FOLLOWING CONSTANTS CANNOT BE CHANGED
032453,000132:
032454,000133: 07,2202 20304 23351 SCLRAVMD 2DEC .512 # METERS TO KM 1/2(1024/1000)
032455,000134:
032456,000135: 07,2204 00000 17565 DT/2MIN 2DEC .00003
032457,000136:
032458,000137: 07,2206 37200 00000 SCLRMDAV 2DEC 1000 B-10 # KM TO METERS
032459,000138:
032460,000139: 07,2210 24605 15301 SCLVAVMD 2DEC .64876819 # METERS/CSEC TO 1/SQR(KM)
032461,000140:
032462,000141: 07,2212 12317 00451 DT/2MAX 2DEC .65027077 B-1 # 270 SEC MAX TIME STEP
032463,000142:
032464,000143: 07,2214 30523 00147 SCLVMDAV 2DEC .7706913 # 1/SQR(KM) TO METERS/CSEC
032465,000144:
![]() |
Page 716 |
032467,000146: # STATEINT IS CALLED UP UNDER A JOB EVERY 539 SECONDS DURING A COASTING PHASE BY THE MISSION SCHEDULING
032468,000147: # MAINTENANCE ROUTINE TO MAINTAIN THE LEMS STATE VECTOR WITHIN TWO INTEGRATION STEPS (540 SECONDS) OF THE CURRENT
032469,000148:
032470,000149: # TIME (TIME2). THE ROUTINE COMPARES TIME2 WITH TET (THAT TIME CORRESPONDING TO THE STATE VECTOR IN STORAGE).
032471,000150: # IF TET LAGS BY 270 SECONDS OR MORE, THE ORBITAL INTEGRATION PROGRAM IS CALLED UP AND THE STATE IS UPDATED TO
032472,000151: # TIME2. IF TET DOES NOT LAG, STATEINT IS TERMINATED BY ENDOFJOB.
032473,000152:
032474,000153: # INPUT-STATEINT ASSUMES THAT THE COASTING IN PROGRESS WAS INITIALIZED BY
032475,000154: # THE AVETOMID ROUTINE.
032476,000155:
032477,000156: 07,2216 00006 STATEINT EXTEND
032478,000157: 07,2217 30025 DCA TIME2 # GET CURRENT TIME IN TDEC
032479,000158: 07,2220 53567 DXCH TDEC
032480,000159: 07,2221 06027 TC FLAG2UP # SET ORBITAL INTEGRATION FLAG
032481,000160: 07,2222 00100 OCT 100
032482,000161: 07,2223 02256 TC MOVEPERM # BRING STATE FROM PMEMORY
032483,000162: 07,2224 06103 TC INTPRET
032484,000163:
032485,000164: 07,2225 45345 DLOAD DSU # FORM TDEC-TET
032486,000165: 07,2226 02167 TDEC
032487,000166: 07,2227 02047 TET
032488,000167: 07,2230 45240 BMN DSU # IS STATE LAGGING
032489,000168: 07,2231 16243 NOINT # NO, TET GREATER THAN TDEC
032490,000169: 07,2232 16171 270SECS
032491,000170: 07,2233 66240 BMN SSP
032492,000171: 07,2234 16243 NOINT # NO, TET GREATER THAN TDEC-270 SECS.
032493,000172:
032494,000173: 07,2235 02201 MEASMODE # BRING TO CURRENT TIME-SET MEASMODE (-1)
032495,000174: 07,2236 77776 DEC -1 B-14
032496,000175: 07,2237 77624 CALL
032497,000176: 07,2240 16267 INITINT # INITIALIZE BRANCH REGS
032498,000177: 07,2241 77650 GOTO
032499,000178: 07,2242 16130 TESTLOOP # START INTEGRATION FROM TET TO TDEC
032500,000179: 07,2243 77776 NOINT EXIT # TEMPORARY STATEINT EXIT
032501,000180: 07,2244 12474 TCF INTOUT # NO INTEGRATION, TERMINATE THIS JOB
032502,000181:
![]() |
Page 717 |
032504,000183: # MOVETEMP TRANSFERS RRECT TO RRECT +42 FROM A-MEMORY TO P-MEMORY
032505,000184:
032506,000185: # CALLING SEQUENCE
032507,000186: # L TC MOVETEMP
032508,000187:
032509,000188: # NORMAL EXIT AT L+1
032510,000189: 07,2245 32333 MOVETEMP CAF FORTYTWO
032511,000190: 07,2246 55605 TS DIFEQCNT # INITIALIZE INDEX
032512,000191:
032513,000192: 07,2247 51605 INDEX DIFEQCNT
032514,000193: 07,2250 31400 CA RRECT # PICK UP RRECT TO RRECT +42 FROM A-MEMORY
032515,000194: 07,2251 51605 INDEX DIFEQCNT
032516,000195: 07,2252 55222 TS REFRRECT # STORE IN REFRRECT TO REFRRECT +42 IN P-M
032517,000196: 07,2253 11605 CCS DIFEQCNT # IS TRANSFER COMPLETE
032518,000197: 07,2254 12246 TCF MOVETEMP +1 # NO-LOOP AGAIN
032519,000198: 07,2255 00002 TC Q # TRANSFER COMPLETE-RETURN
032520,000199:
032521,000200: # MOVEPERM TRANSFERS REFRRECT TO REFRRECT +42 FROM PMEMORY TO A-MEMORY
032522,000201:
032523,000202: 07,2256 32333 MOVEPERM CAF FORTYTWO
032524,000203: 07,2257 55605 TS DIFEQCNT
032525,000204: 07,2260 51605 INDEX DIFEQCNT
032526,000205: 07,2261 31222 CA REFRRECT
032527,000206: 07,2262 51605 INDEX DIFEQCNT
032528,000207: 07,2263 55400 TS RRECT
032529,000208: 07,2264 11605 CCS DIFEQCNT
032530,000209: 07,2265 12257 TCF MOVEPERM +1
032531,000210: 07,2266 00002 TC Q
032532,000211:
032533,000212: 07,2267 66331 INITINT SSP SSP
032534,000213: 07,2270 02230 PBODY # EARTHTAB INTO PBOAY
032535,000214: 07,2271 17671 EARTHTAB
032536,000215:
032537,000216: 07,2272 02205 STEPEXIT # TESTLOOP INTO STEPEXIT
032538,000217: 07,2273 16130 TESTLOOP
032539,000218: 07,2274 43014 CLEAR CLEAR
032540,000219: 07,2275 00262 MIDFLAG # ZERO ON 206
032541,000220: 07,2276 00263 MOONFLAG # ZERO ON 206
032542,000221: 07,2277 43414 CLEAR RVQ
032543,000222: 07,2300 00260 WMATFLAG # W-MATRIX NOT USED ON 206
032544,000223:
![]() |
Page 718 |
032546,000225: # MIDTOAVE PERFORMS THE STATE VECTOR TRANSITION FROM A COASTING PHASE
032547,000226: # USING THE ORBITAL INTEGRATION PROGRAMS TO A TRUSTING PHASE WHICH USES
032548,000227: # AVERAGEG INTEGRATION. THE ROUTINE RESCALES AND TRANSFORMS THE STATE
032549,000228: # VECTOR AT TIGN-30, TIGN-2 AND TIGN FROM REFERENCE COORDINATES TO
032550,000229: # STABLE MEMBER COORDINATES AS DIRECTED BY THE DECISION ROUTINE
032551,000230:
032552,000231: # INPUT-MIDTOAVE ASSUMES THAT THE COASTING INTEGRATION WAS INITIALIZED
032553,000232: # BY THE AVETOMID ROUTINE, STATE IN REF. COORD. IN PMEMORY.
032554,000233:
032555,000234: # RRECT, RCV-POSITION IN KM SCALED AT 2(+14)
032556,000235: # VRECT, VCV- VELOCITY IN 1/SQRT(KM) SCALED AT 2(-6)
032557,000236: # TET, TIME IN CSECS.
032558,000237:
032559,000238: # OUTPUT-STATE IN STABLE MEMBER COORDINATES
032560,000239:
032561,000240: # AT TIGN-30
032562,000241: # RAVEGON, POSITION IN METERS SCALED IN 2(+24)
032563,000242: # VAVEGON, VELOCITY IN METERS/CSEC SCALED AT 2(+7)
032564,000243:
032565,000244: # AT TIGN-2
032566,000245: # RIG-2SEC, POSITION IN METERS SCALED AT 2(+24)
032567,000246:
032568,000247: # AT TIGN
032569,000248:
032570,000249: # RIGNTION, POSITION IN METERS SCALED AT 2(+24)
032571,000250: # VIGNTION, VELOCITY IN METERS/CSEC SCALED AT 2(+7)
032572,000251:
032573,000252: # CALLING SEQUENCE
032574,000253: # (COMPUTE TDEC=TIME OF IGNITION-30 SECS.)
032575,000254: # L-2 EXTEND
032576,000255: # L-1 DCA (2CADR OF MIDTOAVE)
032577,000256: # L DXCH Z
032578,000257:
032579,000258: # NORMAL EXIT
032580,000259: # L+1 OF CALLING SEQUENCE
032581,000260:
032582,000261: 07,2301 53631 RVUPDATE DXCH AVMIDRTN
032583,000262: 07,2302 37755 CAF BIT1 # SET MEASMODE TO +1 TO INTEGRATE STATE
032584,000263:
032585,000264: 07,2303 12306 TCF MIDTOAVE +2 # TO TDEC AND STORED IN RIGNTION ONLY
032586,000265:
032587,000266: 07,2304 53631 MIDTOAVE DXCH AVMIDRTN
032588,000267: 07,2305 37762 CA NEG0
032589,000268: 07,2306 55600 TS MEASMODE # SET MEASMODE (-0) TO INTEGRATE TO IG-30
032590,000269: 07,2307 06027 TC FLAG2UP # SET ORBITAL INTEGRATION FLAG
032591,000270: 07,2310 00100 OCT 100
032592,000271: 07,2311 02256 TC MOVEPERM # BRING STATE FROM PMEMORY
032593,000272: 07,2312 06103 TC INTPRET
032594,000273: 07,2313 77624 CALL # INITIALIZE ORBITAL INTEGRATION REGS
032595,000274: 07,2314 16267 INITINT
032596,000275: 07,2315 77650 GOTO
032597,000276: 07,2316 16130 TESTLOOP # GO TO ORBITAL INTEGRATION
032598,000277:
![]() |
Page 719 |
032600,000279: # THE DECISION ROUTINE DETERMINES THE ACTION TO BE TAKEN AFTER ORBITAL
032601,000280: # INTEGRATION HAS UPDATED THE STATE VECTOR TO THE TIME INDICATED
032602,000281: # BY TDEC. THE ACTION TAKEN IS BASED ON THE CONTENTS OF MEASMODE,
032603,000282:
032604,000283: # C(MEASMODE)=(-0), STATE INTEGRATED (REF. COORD.) TO TIGN-30, SET
032605,000284: # MEASMODE=(+0), SET TDEC=TIGN-2SECS.
032606,000285: # C(MEASMODE)=(+0), POSITION VECTOR INTEGRATED TO TIGN-2, SET MEASMODE=,+1
032607,000286: # SET TDEC=TIGN
032608,000287: # C(MEASMODE)=(+1), STATE INTEGRATED TO TIGN, TRANSFORM STATE FROM REF TO
032609,000288: # SM COORD. SYSTEM AND RETURN TO MISSION PROGRAM
032610,000289: # C(MEASMODE)=(-1), STATE INTEGRATED TO TDEC DURING COAST PHASE, TERMINATE
032611,000290: # STATEINT JOB INITIATED BY MISSION SCHEDULING PACKAGE
032612,000291:
032613,000292: 07,2317 77776 DECISION EXIT
032614,000293: 07,2320 11600 CCS MEASMODE
032615,000294: 07,2321 12324 TCF +3 # STATE IN REF COOR AT IGN
032616,000295: 07,2322 12324 TCF +2 # STATE IN REF COORD AT IGN-2
032617,000296: 07,2323 12427 TCF COASTINT # COAST INTEGRATION STEP COMPLETE
032618,000297: 07,2324 06103 TC INTPRET
032619,000298: 07,2325 77624 CALL
032620,000299:
032621,000300: 07,2326 17426 RECTIFY # RECTIFY AT IGN-30,IGN-2,IGN
032622,000301:
032623,000302: 07,2327 77776 EXIT
032624,000303: 07,2330 11600 CCS MEASMODE
032625,000304: 07,2331 12403 TCF REFTOSM # STATE AT TIGN-FINISH UP MIDTOAVE
032626,000305: 07,2332 12364 TCF IGN-2SEC # POS AT TIGN-2, DO TIGN NEXT
032627,000306: 07,2333 00051 FORTYTWO DEC 41 B-14
032628,000307: 07,2334 12335 TCF AVEGON # STATE AT TIGN-30, DO TIGN-2 NEXT
032629,000308:
032630,000309: 07,2335 06103 AVEGON TC INTPRET
032631,000310: 07,2336 66370 AXT,1 SSP # SET LOOP
032632,000311: 07,2337 00014 12D
032633,000312: 07,2340 00051 S1
032634,000313: 07,2341 00006 6
032635,000314: 07,2342 73773 SPECPLS1 VLOAD* VXSC*
032636,000315: 07,2343 02015 RRECT +12D,1
032637,000316: 07,2344 16223 SCLRMDAV +12D,1 # REF TO SM SCALE FACTOR
032638,000317: 07,2345 76521 MXV VSL1
032639,000318: 07,2346 01275 REFSMMAT
032640,000319: 07,2347 06131 STORE RAVEGON +12D,1
032641,000320: 07,2350 71300 TIX,1 DLOAD
032642,000321: 07,2351 16342 SPECPLS1
032643,000322: 07,2352 02167 TDEC # TDEC NOW=TIGN-30
032644,000323:
032645,000324: 07,2353 01321 STORE PIPTIME # SAVE TIGN-30 IN PIPTIME FOR AVERAGEG
032646,000325: 07,2354 02111 STORE TAVEGON # TIME TIG-30 FOR DWNLINK IN NORMLIZE
032647,000326: 07,2355 77615 DAD
032648,000327: 07,2356 16167 28SECS # TDEC + 28SECS
032649,000328: 07,2357 02167 STORE TDEC # TDEC SET TIGN-2
032650,000329: 07,2360 52131 SSP GOTO
032651,000330: 07,2361 02201 MEASMODE # SET MEASMODE=(+0)
032652,000331:
![]() |
Page 720 |
032654,000333: 07,2362 00000 0
032655,000334: 07,2363 16130 TESTLOOP # GO INTEGRATE STATE TO IGN-2
032656,000335:
032657,000336: 07,2364 06103 IGN-2SEC TC INTPRET
032658,000337: 07,2365 74375 VLOAD VXSC # TRANSFORM POS AT IGN-2 FROM REF TO SM
032659,000338: 07,2366 02001 RRECT
032660,000339: 07,2367 16207 SCLRMDAV
032661,000340: 07,2370 76521 MXV VSL1
032662,000341: 07,2371 01275 REFSMMAT
032663,000342: 07,2372 16131 STODL RIG-2SEC # POS IN SM COORD. AT IGN-2
032664,000343: 07,2373 02167 TDEC
032665,000344: 07,2374 77615 DAD
032666,000345: 07,2375 16173 2SECS
032667,000346: 07,2376 02167 STORE TDEC # TDEC SET TIGN
032668,000347: 07,2377 52131 SSP GOTO
032669,000348: 07,2400 02201 MEASMODE # SET MEASMODE=(+1)
032670,000349: 07,2401 00001 1
032671,000350: 07,2402 16130 TESTLOOP # GO INTEGRATE STATE TO TIGN
032672,000351:
![]() |
Page 721 |
032674,000353:
032675,000354: 07,2403 06045 REFTOSM TC FLAG2DWN # REMOVE ORBITAL INTEGRATION GLAG
032676,000355: 07,2404 00100 OCT 100
032677,000356: 07,2405 06103 TC INTPRET
032678,000357: 07,2406 66370 AXT,1 SSP # SET UP TIX LOOP
032679,000358: 07,2407 00014 12D # 12 IN X1
032680,000359: 07,2410 00051 S1 # 6 IN S1
032681,000360: 07,2411 00006 6
032682,000361: 07,2412 73773 REFTOSM1 VLOAD* VXSC* # TRANSFORM STATE AT TIGN FROM REF TO SM
032683,000362:
032684,000363: 07,2413 02015 RRECT +12D,1
032685,000364: 07,2414 16223 SCLRMDAV +12D,1 # REF TO SM SCALE FACTOR
032686,000365: 07,2415 76521 MXV VSL1
032687,000366: 07,2416 01275 REFSMMAT
032688,000367: 07,2417 06015 STORE RIGNTION +12D,1 # STATE AT TIGN IN SM COORDINATES
032689,000368: 07,2420 77500 TIX,1 EXIT
032690,000369: 07,2421 16412 REFTOSM1
032691,000370: 07,2422 00006 EXTEND # PLAY SAFE WITH BASIC********************
032692,000371: 07,2423 31447 DCA TET # ****************************************
032693,000372: 07,2424 53670 DXCH TIGN # STATE TIME FOR DWNLINK IN VPATCHER
032694,000373: 07,2425 53631 DXCH AVMIDRTN
032695,000374: 07,2426 52006 DXCH Z
032696,000375: # THE COASTINT ROUTINE TERMINATES THE ORBITAL INTEGRATION JOB SET BY
032697,000376: # MISSION SCHEDULING ROUTINE EVERY 539 SECONDS DURING COASTING PHASES.
032698,000377: # THE ROUTINE TRANSFERS THE STATE VECTOR AND ALL OTHER ORBITAL INTEGRATION
032699,000378: # QUANTITIES TO P-MEMORY. IT FORMS A TOTAL STATE VECTOR AND TRANSFORMS IT
032700,000379: # TO STABLE MEMBER COORDINATES AND STORES IT WITH TIME IN RN, VN AND
032701,000380: # STATIME FOR DOWNLINK. THE ROUTINE THEN REMOVES THE INTEGRATION FLAG
032702,000381: # TO ALLOW GROUND UPDATE OF THE STATE VECTOR AND DOES ENDOFJOB.
032703,000382:
032704,000383: 07,2427 02245 COASTINT TC MOVETEMP
032705,000384: 07,2430 06103 TC INTPRET
032706,000385: 07,2431 40575 VLOAD VSR8 # FORM TOTAL STATE VECTOR
032707,000386:
032708,000387: 07,2432 01237 DELTAV
032709,000388: 07,2433 53342 VSR2 VAD
032710,000389: 07,2434 01253 REFRCV
032711,000390: 07,2435 26001 STOVL RRECT
032712,000391: 07,2436 01245 NUV
032713,000392: 07,2437 53202 VSR8 VAD
032714,000393: 07,2440 01261 REFVCV
032715,000394: 07,2441 02007 STORE VRECT # TOTAL VEL. VECTOR
032716,000395:
032717,000396: 07,2442 66370 AXT,1 SSP # SET TIX LOOP TO TRANSFORM STATE TO SM
032718,000397: 07,2443 00014 12D
032719,000398: 07,2444 00051 S1
032720,000399: 07,2445 00006 6
032721,000400: 07,2446 73773 TRANTOSM VLOAD* VXSC* # TRANSFORM STATE AND RE-STORE IN RRECT
032722,000401: 07,2447 02015 RRECT +12D,1
032723,000402: 07,2450 16223 SCLRMDAV +12D,1
032724,000403: 07,2451 76521 MXV VSL1
032725,000404: 07,2452 01275 REFSMMAT
032726,000405: 07,2453 06015 STORE RRECT +12D,1 # STATE IN SM SYSTEM
032727,000406:
![]() |
Page 722 |
032729,000408: 07,2454 77700 TIX,1
032730,000409: 07,2455 16446 TRANTOSM
032731,000410: 07,2456 77776 EXIT
032732,000411:
032733,000412: 07,2457 00004 INHINT # INHIBIT INTERUPT TO STORE STATE IN RN
032734,000413: 07,2460 37756 CAF ELEVEN # INITIALIZE INDEX TO DEC 11
032735,000414: 07,2461 54070 STATORN TS RUPTREG1
032736,000415: 07,2462 50070 INDEX RUPTREG1
032737,000416: 07,2463 31400 CA RRECT # PICK RRECT + NEXT 11 REGS
032738,000417: 07,2464 50070 INDEX RUPTREG1
032739,000418: 07,2465 55010 TS RN # JAM IN RN TO RN+11 FOR DOWNLINK
032740,000419: 07,2466 10070 CCS RUPTREG1
032741,000420: 07,2467 12461 TCF STATORN
032742,000421: 07,2470 00006 EXTEND
032743,000422:
032744,000423: 07,2471 31271 DCA TE # GET STATE TIME
032745,000424: 07,2472 53341 DXCH STATIME
032746,000425: 07,2473 00003 RELINT # STATE AND TIME IN DOWNLINK REGS
032747,000426:
032748,000427: 07,2474 06045 INTOUT TC FLAG2DWN # REMOVE ORBITAL INTEGRATION FLAG
032749,000428: 07,2475 00100 OCT 100
032750,000429:
032751,000430: 07,2476 05605 TC ENDOFJOB
End of include-file INTEGRATION_INITIALIZATION.agc. Parent file is MAIN.agc