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