GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS BY NASA 2021114-011 11:40 FEB. 26, 1971Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were obtained by digitally photographing
an Artemis 72 (Apollo 15-17 Command Module) program listing from a private
collection and then
modifying pre-existing Comanche 55 (Apollo 11) source files to
incorporate changes. Photography was by Ron Burkey, and transcription
was performed by a team of volunteers. Note that the page images
presented online are of reduced quality, and that additional images
may be available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS BY NASA 2021114-011 11:40 FEB. 26, 1971Note that the date is the date of the printout, not the date of the program revision. |
057230,000002: ## Copyright: Public domain.
057231,000003: ## Filename: ORBITAL_INTEGRATION.agc
057232,000004: ## Purpose: Part of the source code for Artemis (i.e., Colossus 3),
057233,000005: ## build 072. This is for the Command Module's (CM)
057234,000006: ## Apollo Guidance Computer (AGC), for
057235,000007: ## Apollo 15-17.
057236,000008: ## Assembler: yaYUL
057237,000009: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
057238,000010: ## Website: www.ibiblio.org/apollo/index.html
057239,000011: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Artemis072/
057240,000012: ## Mod history: 2009-08-21 JL Adapted from corresponding Comanche 055 file.
057241,000013: ## 2010-02-20 RSB Un-##'d this header.
057242,000014: ## 2017-02-05 RSB Proofed comment text by diff'ing vs Comanche 55
057243,000015: ## and corrected errors found.
057244,000016: ## 2017-03-17 RSB Comment-text fixes identified by 4-way diff'ing
057245,000017: ## of Colossus 237 & 249, Comanche 55, and Artemis 72.
057246,000018:
|
|
Page 1333 |
057248,000020: # DELETE
057249,000021: 11,2000 SETLOC ORBITAL
057250,000022: 11,2000 BANK
057251,000023: 11,2336 COUNT* $$/ORBIT
057252,000024:
057253,000025: # DELETE
057254,000026: 11,2336 40354 KEPPREP LXA,2 SETPD
057255,000027: 11,2337 02150 PBODY
057256,000028: 11,2340 00001 0
057257,000029: 11,2341 75543 DLOAD* SQRT # SQRT(MU) (+18 OR +15) 0D PL 2D
057258,000030: 11,2342 50037 MUEARTH,2
057259,000031: 11,2343 53515 PDVL UNIT # PL 8D
057260,000032: 11,2344 01535 RCV
057261,000033: 11,2345 60325 PDDL NORM # NORM R (+29 OR +27 - N1) 2D PL 4D
057262,000034: 11,2346 00045 36D
057263,000035: 11,2347 00047 X1
057264,000036: 11,2350 77715 PDVL
057265,000037: 11,2351 65241 DOT PDDL # F*SQRT(MU) (+7 OR +5) 4D PL 6D
057266,000038: 11,2352 01543 VCV
057267,000039: 11,2353 02303 TAU. # (+28)
057268,000040: 11,2354 60225 DSU NORM
057269,000041: 11,2355 01551 TC
057270,000042: 11,2356 00051 S1
057271,000043: 11,2357 77742 SR1
057272,000044: 11,2360 65271 DDV PDDL
057273,000045: 11,2361 00003 2D
057274,000046: 11,2362 41405 DMP PUSH # FS (+6 +N1-N2) 6D PL 8D
057275,000047: 11,2363 00005 4D
057276,000048: 11,2364 65316 DSQ PDDL # (FS)SQ (+12 +2(N1-N2)) 8D PL 10D
057277,000049: 11,2365 00005 4D
057278,000050: 11,2366 64716 DSQ PDDL* # SSQ/MU (-2 OR +2(N1-N2)) 10D PL 12D
057279,000051: 11,2367 50037 MUEARTH,2
057280,000052: 11,2370 40442 SR3 SR4
057281,000053: 11,2371 47515 PDVL VSQ # PREALIGN MU (+43 OR +37) 12D PL 14D
057282,000054: 11,2372 01543 VCV
057283,000055: 11,2373 44205 DMP BDSU # PL 12D
057284,000056: 11,2374 00045 36D
057285,000057: 11,2375 41271 DDV DMP # PL 10D
057286,000058: 11,2376 00003 2D # -(1/R-ALPHA) (+12 +3N1-2N2)
057287,000059: 11,2377 53605 DMP SL*
057288,000060: 11,2400 23771 DP2/3
057289,000061: 11,2401 20176 0 -3,1 # 10L(1/R-ALPHA) (+13 +2(N1-N2))
057290,000062: 11,2402 43260 XSU,1 DAD # 2(FS)SQ - ETCETRA PL 8D
057291,000063: 11,2403 00050 S1 # X1 = N2-N1
057292,000064: 11,2404 45257 SL* DSU # -FS+2(FS)SQ ETC (+6 +N1-N2) PL 6D
057293,000065: 11,2405 20211 8D,1
057294,000066: 11,2406 41205 DMP DMP
057295,000067: 11,2407 00001 0D
057296,000068: 11,2410 00005 4D
057297,000069: 11,2411 53657 SL* SL*
057298,000070: 11,2412 20211 8D,1
|
|
Page 1334 |
057300,000072: 11,2413 20201 0,1 # S(-FS(1-2FS)-1/6...) (+17 OR +16)
057301,000073: 11,2414 65215 DAD PDDL # PL 6D
057302,000074: 11,2415 01553 XKEP
057303,000075: 11,2416 53605 DMP SL* # S(+17 OR +16)
057304,000076: 11,2417 00001 0D
057305,000077: 11,2420 20202 1,1
057306,000078: 11,2421 43204 BOVB DAD
057307,000079: 11,2422 57544 TCDANZIG
057308,000080: 11,2423 77626 STADR
057309,000081: 11,2424 75500 STORE XKEPNEW
057310,000082: 11,2425 74020 STQ AXC,1
057311,000083: 11,2426 02267 KEPRTN
057312,000084: 11,2427 00012 DEC 10 B-14
057313,000085: 11,2430 74014 BON AXC,1
057314,000086: 11,2431 00303 MOONFLAG
057315,000087: 11,2432 24077 KEPLERN
057316,000088: 11,2433 00002 DEC 2 B-14
057317,000089: 11,2434 77650 GOTO
057318,000090: 11,2435 24077 KEPLERN
057319,000091:
|
|
Page 1335 |
057321,000093: 11,2436 66350 FBR3 LXA,1 SSP
057322,000094: 11,2437 01500 DIFEQCNT
057323,000095: 11,2440 00051 S1
057324,000096: 11,2441 77762 DEC -13 B-14
057325,000097: 11,2442 54345 DLOAD SR
057326,000098: 11,2443 02305 DT/2
057327,000099: 11,2444 20612 9D
057328,000100: 11,2445 61500 TIX,1 ROUND
057329,000101: 11,2446 22447 +1
057330,000102: 11,2447 43206 PUSH DAD
057331,000103: 11,2450 01551 TC
057332,000104: 11,2451 16303 STODL TAU.
057333,000105: 11,2452 77615 DAD
057334,000106: 11,2453 01517 TET
057335,000107: 11,2454 35517 STCALL TET
057336,000108: 11,2455 22336 KEPPREP
057337,000109:
|
|
Page 1336 |
057339,000111:
057340,000112: # AGC ROUTINE TO COMPUTE ACCELERATION COMPONENTS.
057341,000113:
057342,000114: 11,2456 73150 ACCOMP LXA,1 LXA,2
057343,000115: 11,2457 02150 PBODY
057344,000116: 11,2460 02150 PBODY
057345,000117: 11,2461 77775 VLOAD
057346,000118: 11,2462 11762 ZEROVEC
057347,000119: 11,2463 26202 STOVL FV
057348,000120: 11,2464 02152 ALPHAV
057349,000121: 11,2465 53257 VSL* VAD
057350,000122: 11,2466 57605 0 -7,2
057351,000123: 11,2467 01535 RCV
057352,000124: 11,2470 02160 STORE BETAV
057353,000125: 11,2471 65014 BOF XCHX,2
057354,000126: 11,2472 01756 DIM0FLAG
057355,000127: 11,2473 22500 +5
057356,000128: 11,2474 01500 DIFEQCNT
057357,000129: 11,2475 12216 STORE VECTAB,2
057358,000130: 11,2476 77724 XCHX,2
057359,000131: 11,2477 01500 DIFEQCNT
057360,000132: 11,2500 53575 VLOAD UNIT
057361,000133: 11,2501 02152 ALPHAV
057362,000134: 11,2502 16152 STODL ALPHAV
057363,000135: 11,2503 00045 36D
057364,000136: 11,2504 02301 STORE ALPHAM
057365,000137: 11,2505 77624 CALL
057366,000138: 11,2506 22602 GAMCOMP
057367,000139: 11,2507 66175 VLOAD SXA,1
057368,000140: 11,2510 02160 BETAV
057369,000141: 11,2511 00051 S2
057370,000142: 11,2512 16152 STODL ALPHAV
057371,000143: 11,2513 02210 BETAM
057372,000144: 11,2514 02301 STORE ALPHAM
057373,000145: 11,2515 71214 BOF DLOAD
057374,000146: 11,2516 00342 MIDFLAG
057375,000147: 11,2517 22754 OBLATE
057376,000148: 11,2520 01517 TET
057377,000149: 11,2521 77624 CALL
057378,000150: 11,2522 54136 LSPOS
057379,000151: 11,2523 72174 AXT,2 LXA,1
057380,000152: 11,2524 00002 2
057381,000153: 11,2525 00051 S2
057382,000154: 11,2526 77614 BOF
057383,000155: 11,2527 00343 MOONFLAG
057384,000156: 11,2530 22533 +3
057385,000157: 11,2531 77076 VCOMP AXT,2
057386,000158: 11,2532 00000 0
057387,000159: 11,2533 02160 STORE BETAV
057388,000160: 11,2534 26262 STOVL RPQV
|
|
Page 1337 |
057390,000162: 11,2535 00003 2D
057391,000163: 11,2536 02271 STORE RPSV
057392,000164: 11,2537 77214 BOF VLOAD
057393,000165: 11,2540 01756 DIM0FLAG
057394,000166: 11,2541 22554 GETRPSV
057395,000167: 11,2542 02152 ALPHAV
057396,000168: 11,2543 53761 VXSC VSR*
057397,000169: 11,2544 02301 ALPHAM
057398,000170: 11,2545 57175 1,2
057399,000171: 11,2546 65051 VSU XCHX,2
057400,000172: 11,2547 02160 BETAV
057401,000173: 11,2550 01500 DIFEQCNT
057402,000174: 11,2551 12224 STORE VECTAB +6,2
057403,000175: 11,2552 77724 XCHX,2
057404,000176: 11,2553 01500 DIFEQCNT
057405,000177: 11,2554 62175 GETRPSV VLOAD INCR,1
057406,000178: 11,2555 02262 RPQV
057407,000179: 11,2556 00004 4
057408,000180: 11,2557 43014 CLEAR BOF
057409,000181: 11,2560 04260 RPQFLAG
057410,000182: 11,2561 00343 MOONFLAG
057411,000183: 11,2562 22567 +5
057412,000184: 11,2563 53261 VSR VAD
057413,000185: 11,2564 20612 9D
057414,000186: 11,2565 02271 RPSV
057415,000187: 11,2566 02271 STORE RPSV
057416,000188: 11,2567 77624 CALL
057417,000189: 11,2570 22602 GAMCOMP
057418,000190: 11,2571 62174 AXT,2 INCR,1
057419,000191: 11,2572 00004 4
057420,000192: 11,2573 00004 4
057421,000193: 11,2574 77775 VLOAD
057422,000194: 11,2575 02271 RPSV
057423,000195: 11,2576 36160 STCALL BETAV
057424,000196: 11,2577 22602 GAMCOMP
057425,000197: 11,2600 77650 GOTO
057426,000198: 11,2601 22754 OBLATE
057427,000199: 11,2602 74575 GAMCOMP VLOAD VSR1
057428,000200: 11,2603 02160 BETAV
057429,000201: 11,2604 40236 VSQ SETPD
057430,000202: 11,2605 00001 0
057431,000203: 11,2606 61501 NORM ROUND
057432,000204: 11,2607 00040 31D
057433,000205: 11,2610 60325 PDDL NORM # NORMED B SQUARED TO PD LIST
057434,000206: 11,2611 02301 ALPHAM # NORMALIZE (LESS ONE) LENGTH OF ALPHA
057435,000207: 11,2612 00041 32D # SAVING NORM SCALE FACTOR IN X1
057436,000208: 11,2613 63342 SR1 PDVL
057437,000209: 11,2614 02160 BETAV # C(PDL+2) = ALMOST NORMED ALPHA
057438,000210: 11,2615 77656 UNIT
057439,000211: 11,2616 16160 STODL BETAV
|
|
Page 1338 |
057441,000213: 11,2617 00045 36D
057442,000214: 11,2620 02210 STORE BETAM
057443,000215: 11,2621 55301 NORM BDDV # FORM NORMALIZED QUOTIENT ALPHAM/BETAM
057444,000216: 11,2622 00042 33D
057445,000217: 11,2623 41562 SR1R PUSH # C(PDL+2) = ALMOST NORMALIZED RHO.
057446,000218: 11,2624 77743 DLOAD*
057447,000219: 11,2625 27732 ASCALE,1
057448,000220: 11,2626 00051 STORE S1
057449,000221: 11,2627 57124 XCHX,2 XAD,2
057450,000222: 11,2630 00050 S1
057451,000223: 11,2631 00040 32D
057452,000224: 11,2632 71264 XSU,2 DLOAD
057453,000225: 11,2633 00041 33D
057454,000226: 11,2634 00003 2D
057455,000227: 11,2635 65057 SR* XCHX,2
057456,000228: 11,2636 57177 0 -1,2
057457,000229: 11,2637 00050 S1
057458,000230: 11,2640 74406 PUSH SR1R # RHO/4 TO 4D
057459,000231: 11,2641 50315 PDVL DOT
057460,000232: 11,2642 02152 ALPHAV
057461,000233: 11,2643 02160 BETAV
057462,000234: 11,2644 44372 SL1R BDSU # (RHO/4) - 2(ALPHAV/2.BETAV/2)
057463,000235: 11,2645 57206 PUSH DMPR # TO PDL+6
057464,000236: 11,2646 00005 4
057465,000237: 11,2647 77752 SL1
057466,000238: 11,2650 43206 PUSH DAD
057467,000239: 11,2651 33412 DQUARTER
057468,000240: 11,2652 75406 PUSH SQRT
057469,000241: 11,2653 41475 DMPR PUSH
057470,000242: 11,2654 00013 10D
057471,000243: 11,2655 43352 SL1 DAD
057472,000244: 11,2656 33412 DQUARTER
057473,000245: 11,2657 43325 PDDL DAD # (1/4)+2((Q+1)/4) TO PD+14D
057474,000246: 11,2660 00013 10D
057475,000247: 11,2661 11760 HALFDP
057476,000248: 11,2662 72475 DMPR SL1
057477,000249: 11,2663 00011 8D
057478,000250: 11,2664 56215 DAD DDV
057479,000251: 11,2665 23747 THREE/8
057480,000252: 11,2666 00017 14D
057481,000253: 11,2667 74275 DMPR VXSC
057482,000254: 11,2670 00007 6
057483,000255: 11,2671 02160 BETAV # -
057484,000256: 11,2672 64515 PDVL VSR3 # (G/2)(C(PD+4))B/2 TO PD+16D
057485,000257: 11,2673 02152 ALPHAV
057486,000258: 11,2674 41455 VAD PUSH # A12 + C(PD+16D) TO PD+16D
057487,000259: 11,2675 41345 DLOAD DMP
057488,000260: 11,2676 00001 0
057489,000261: 11,2677 00015 12D # -
057490,000262: 11,2700 61501 NORM ROUND
|
|
Page 1339 |
057492,000264: 11,2701 00037 30D
057493,000265: 11,2702 40665 BDDV DMP*
057494,000266: 11,2703 00003 2
057495,000267: 11,2704 50037 MUEARTH,2
057496,000268: 11,2705 74276 DCOMP VXSC
057497,000269: 11,2706 57124 XCHX,2 XAD,2
057498,000270: 11,2707 00050 S1
057499,000271: 11,2710 00051 S2
057500,000272: 11,2711 55064 XSU,2 XSU,2
057501,000273: 11,2712 00036 30D
057502,000274: 11,2713 00037 31D
057503,000275: 11,2714 77600 BOV # CLEAR OVIND
057504,000276: 11,2715 22716 +1
057505,000277: 11,2716 65057 VSR* XCHX,2
057506,000278: 11,2717 57177 0 -1,2
057507,000279: 11,2720 00050 S1
057508,000280: 11,2721 77655 VAD
057509,000281: 11,2722 02202 FV
057510,000282: 11,2723 02202 STORE FV
057511,000283: 11,2724 43400 BOV RVQ # RETURN IF NO OVERFLOW
057512,000284: 11,2725 22726 +1
057513,000285: 11,2726 51575 GOBAQUE VLOAD ABVAL
057514,000286: 11,2727 01521 TDELTAV
057515,000287: 11,2730 77654 BZE
057516,000288: 11,2731 22751 INT-ABRT
057517,000289: 11,2732 54345 DLOAD SR
057518,000290: 11,2733 02212 H
057519,000291: 11,2734 20612 9D
057520,000292: 11,2735 44206 PUSH BDSU
057521,000293: 11,2736 01551 TC
057522,000294: 11,2737 16303 STODL TAU.
057523,000295: 11,2740 01517 TET
057524,000296: 11,2741 45425 DSU STADR
057525,000297: 11,2742 42260 STCALL TET
057526,000298: 11,2743 22336 KEPPREP
057527,000299: 11,2744 77624 CALL
057528,000300: 11,2745 23420 RECTIFY
057529,000301: 11,2746 77614 SETGO
057530,000302: 11,2747 04020 RPQFLAG
057531,000303: 11,2750 27364 TESTLOOP
057532,000304:
057533,000305: 11,2751 77776 INT-ABRT EXIT
057534,000306: 11,2752 05726 TC POODOO
057535,000307: 11,2753 20430 OCT 20430 # SUB-SURFACE STATE VECTOR
057536,000308:
|
|
Page 1340 |
057538,000310:
057539,000311: # THE OBLATE ROUTINE COMPUTES THE ACCELERATION DUE TO OBLATENESS. IT USES THE UNIT OF THE VEHICLE
057540,000312: # POSITION VECTOR FOUND IN ALPHAV AND THE DISTANCE TO THE CENTER IN ALPHAM. THIS IS ADDED TO THE SUM OF THE
057541,000313: # DISTURBING ACCELERATIONS IN FV AND THE PROPER DIFEQ STAGE IS CALLED VIA X1.
057542,000314:
057543,000315: 11,2754 71354 OBLATE LXA,2 DLOAD
057544,000316: 11,2755 02150 PBODY
057545,000317: 11,2756 02301 ALPHAM
057546,000318: 11,2757 44601 SETPD DSU*
057547,000319: 11,2760 00001 0
057548,000320: 11,2761 50007 RDE,2
057549,000321: 11,2762 43044 BPL BOF # GET URPV
057550,000322: 11,2763 23212 NBRANCH
057551,000323: 11,2764 00343 MOONFLAG
057552,000324: 11,2765 23221 COSPHIE
057553,000325: 11,2766 65375 VLOAD PDDL
057554,000326: 11,2767 02152 ALPHAV
057555,000327: 11,2770 01517 TET
057556,000328: 11,2771 45125 PDDL CALL
057557,000329: 11,2772 23745 3/5
057558,000330: 11,2773 55370 R-TO-RP
057559,000331: 11,2774 24017 STOVL URPV # RP/R B-1 IN PLANETARY COORDINATES
057560,000332: 11,2775 11754 ZUNIT
057561,000333: 11,2776 45006 PUSH CALL # ZUNIT B-1 IN PLANETARY COORDL AT 00D
057562,000334: 11,2777 23227 MATRIX
057563,000335: 11,3000 77715 PDVL # UZ B-2 IN INERT COORD AT 00D
057564,000336: 11,3001 11760 XUNIT
057565,000337: 11,3002 45006 PUSH CALL # XUNIT B-1 IN PLANETARY COORD. AT 06D
057566,000338: 11,3003 23227 MATRIX
057567,000339: 11,3004 77772 VSL1
057568,000340: 11,3005 24041 STOVL 32D # UX B-1 IN INERT. COORD AT 32D
057569,000341: 11,3006 77772 VSL1
057570,000342: 11,3007 14025 COMTERM STODL UZ # UZ B-1 IN INERTIAL COORD AT 20D
057571,000343: 11,3010 00023 COSPHI/2 # ' Z-COMPONENT OF URPV
057572,000344: 11,3011 65275 DMPR PDDL # P B-6 , 3COSPHI/64 AT 00D
057573,000345: 11,3012 23755 3/32 # 2
057574,000346: 11,3013 00023 COSPHI/2
057575,000347: 11,3014 57316 DSQ DMPR
057576,000348: 11,3015 23757 15/16 # ' 2
057577,000349: 11,3016 41425 DSU PUSH # P B-5 ,(1/2)(15COSPHI -3) AT 02D
057578,000350: 11,3017 23753 3/64 # 3
057579,000351: 11,3020 41275 DMPR DMP
057580,000352: 11,3021 00023 COSPHI/2
057581,000353: 11,3022 23763 7/12
057582,000354: 11,3023 65372 SL1R PDDL
057583,000355: 11,3024 00001 0D
057584,000356: 11,3025 44275 DMPR BDSU
057585,000357: 11,3026 23771 2/3 # ' ' '
057586,000358: 11,3027 57206 PUSH DMPR # P B-7 ,(1/3)(7COSPHI P -4P ) AT 04D
057587,000359: 11,3030 00023 COSPHI/2 # 4 3 2
057588,000360: 11,3031 65275 DMPR PDDL
057589,000361: 11,3032 23765 9/16
|
|
Page 1341 |
057591,000363: 11,3033 00003 2D # ' ' '
057592,000364: 11,3034 44275 DMPR BDSU # P B-10 ,(1/4)(9COSPHI P -5P )
057593,000365: 11,3035 23767 5/128 # 5 4 3
057594,000366: 11,3036 56203 DMP* DDV # '
057595,000367: 11,3037 50033 J4REQ/J3,2 # B- ,(J RP/J R)P
057596,000368: 11,3040 02301 ALPHAM # 4 3 5
057597,000369: 11,3041 56615 DAD DMPR*
057598,000370: 11,3042 00005 4D # 2 2 ' '
057599,000371: 11,3043 50027 2J3RE/J2,2 # B ,(2J RP /J2 R )P +(2J RP/J2R)P
057600,000372: 11,3044 43271 DDV DAD # 4 5 3 4
057601,000373: 11,3045 02301 ALPHAM # - 2 ' 2 ' '
057602,000374: 11,3046 00003 2D # (R/R)(J RP P /R + 2J RP P / + J P )
057603,000375: 11,3047 77761 VXSC # 4 5 3 4 2 2 3
057604,000376: 11,3050 02152 ALPHAV # 4 2 ' -
057605,000377: 11,3051 14033 STODL TVEC # B-6 , (SUM((J /R )P (COSPHI))UR)
057606,000378: 11,3052 70403 DMP* SR1 # I=2 I I+1
057607,000379: 11,3053 50033 J4REQ/J3,2 # '
057608,000380: 11,3054 43271 DDV DAD # (J RP/J R)P
057609,000381: 11,3055 02301 ALPHAM # 4 3 4
057610,000382: 11,3056 50473 DMPR* SR3 # 2 2 ' '
057611,000383: 11,3057 50027 2J3RE/J2,2 # (2J RP /J R )P +(2J RP/J R)P
057612,000384: 11,3060 43271 DDV DAD # 4 2 4 3 2 3
057613,000385: 11,3061 02301 ALPHAM #
057614,000386: 11,3062 76561 VXSC VSL1 # 4 ' -
057615,000387: 11,3063 00025 UZ # B-6 SUM(P(COSPHI))UZ
057616,000388: 11,3064 77645 BVSU # I=2 I
057617,000389: 11,3065 00033 TVEC # 4 I-2 ' -
057618,000390: 11,3066 14033 STODL TVEC # SUM((MU J (RP/R) )(P (COSPHI)UR -
057619,000391: 11,3067 02301 ALPHAM # I=2 I I+2
057620,000392: 11,3070 63501 NORM DSQ # P (COSPHI)UZ)) B-6 AT 20D
057621,000393: 11,3071 00047 X1 # I
057622,000394: 11,3072 60316 DSQ NORM
057623,000395: 11,3073 00051 S1 # 4
057624,000396: 11,3074 54606 PUSH BDDV* # NORMALIZED R AT 00D
057625,000397: 11,3075 50023 J2REQSQ,2
057626,000398: 11,3076 40161 VXSC BOV
057627,000399: 11,3077 00033 TVEC
057628,000400: 11,3100 23101 +1 # B+38 FOR EARTH, B+42 FOR MOON
057629,000401: 11,3101 56070 XAD,1 XAD,1
057630,000402: 11,3102 00046 X1
057631,000403: 11,3103 00046 X1
057632,000404: 11,3104 53670 XAD,1 VSL*
057633,000405: 11,3105 00050 S1
057634,000406: 11,3106 20153 0 -22D,1
057635,000407: 11,3107 40055 VAD BOV
057636,000408: 11,3110 02202 FV
057637,000409: 11,3111 22726 GOBAQUE
057638,000410: 11,3112 16202 STODL FV # B+16 FOR EARTH, B+20 FOR MOON
057639,000411: 11,3113 00017 URPV # B-1 X-COMPONENT OF POSITION IN
057640,000412: 11,3114 41414 BOF PUSH # PLANETORY COORD. AT 02D
|
|
Page 1342 |
057642,000414: 11,3115 00343 MOONFLAG
057643,000415: 11,3116 23212 NBRANCH # 2
057644,000416: 11,3117 65316 DSQ PDDL # B-2 X AT 04D
057645,000417: 11,3120 00021 URPV +2 # B-1 Y-COMPONENT
057646,000418: 11,3121 45316 DSQ DSU
057647,000419: 11,3122 74205 DMP VXSC
057648,000420: 11,3123 27756 5/8 # 2 2 -
057649,000421: 11,3124 02152 ALPHAV # B-6 5(Y -X )UR 2 2 -
057650,000422: 11,3125 65332 VSL3 PDDL # B-3 5(Y -X )UR AT 02D
057651,000423: 11,3126 53361 VXSC VAD
057652,000424: 11,3127 00041 32D # 2 2 - 2 -
057653,000425: 11,3130 47315 PDVL VXV # (5(Y.-X )UR/R ) +(2X/R)UX AT 02D
057654,000426: 11,3131 00041 32D # B-1 UX
057655,000427: 11,3132 00025 UZ # B-2 -UY =(UX * UZ)
057656,000428: 11,3133 74372 VSL1 VXSC # B-3 -(2Y/R)UY
057657,000429: 11,3134 00021 URPV +2 # 2 2 - 2 -
057658,000430: 11,3135 41455 VAD PUSH # B-3 (5(X -Y )UR/R )+(2X/R)UX -(
057659,000431: 11,3136 77745 DLOAD # -
057660,000432: 11,3137 00023 COSPHI/2 # 2Y/R)UY AT 02D
057661,000433: 11,3140 41516 DSQ PUSH # B-2 (Z.COMPONENT) AT 08D
057662,000434: 11,3141 65205 DMP PDDL # 2
057663,000435: 11,3142 27756 5/8 # B-5 5COSPHI/2 AT 08D
057664,000436: 11,3143 43302 SR2 DAD
057665,000437: 11,3144 00011 08D
057666,000438: 11,3145 41221 BDSU DMP # 2
057667,000439: 11,3146 33416 D1/32 # B-5 (1 - 7COSPHI )
057668,000440: 11,3147 00017 URPV
057669,000441: 11,3150 74205 DMP VXSC
057670,000442: 11,3151 27756 5/8
057671,000443: 11,3152 02152 ALPHAV # 2 -
057672,000444: 11,3153 65272 VSL5 PDDL # B-5 (5X/R)(1-7COSPHI )UR AT 08D
057673,000445: 11,3154 74225 DSU VXSC
057674,000446: 11,3155 33416 D1/32
057675,000447: 11,3156 00041 32D
057676,000448: 11,3157 53372 VSL1 VAD # 2 - -
057677,000449: 11,3160 41325 PDDL DMP # B-5 (5X/R)(1-7COSPHI )UR +(5COSPHI
057678,000450: 11,3161 00017 URPV # -
057679,000451: 11,3162 00023 URPV +4 # -1)UX AT 08D
057680,000452: 11,3163 74205 DMP VXSC
057681,000453: 11,3164 27756 5/8 # B-5 5X Y
057682,000454: 11,3165 00025 UZ # M M
057683,000455: 11,3166 53352 VSL2 VAD # 2 2
057684,000456: 11,3167 60325 PDDL NORM # B-5 (5X/R)(1-7COSPHI )UR +(5COSPHI
057685,000457: 11,3170 02301 ALPHAM # - 2 -
057686,000458: 11,3171 00050 X2 # -1)UX +(10XZ/R )UZ AT 08D
057687,000459: 11,3172 67206 PUSH SLOAD
057688,000460: 11,3173 01770 E32C31RM
057689,000461: 11,3174 74271 DDV VXSC
057690,000462: 11,3175 63257 VSL* PDVL
057691,000463: 11,3176 57601 0 -3,2
|
|
Page 1343 |
057693,000465: 11,3177 67206 PUSH SLOAD
057694,000466: 11,3200 01767 E3J22R2M
057695,000467: 11,3201 53361 VXSC VAD
057696,000468: 11,3202 70257 VSL* V/SC
057697,000469: 11,3203 20146 0 -27D,1 # B+16 OR B+20 (J + C )
057698,000470: 11,3204 40055 VAD BOV # 22 31
057699,000471: 11,3205 02202 FV
057700,000472: 11,3206 22726 GOBAQUE
057701,000473: 11,3207 02202 STORE FV
057702,000474: 11,3210 77754 LXA,2
057703,000475: 11,3211 02150 PBODY
057704,000476: 11,3212 72135 NBRANCH SLOAD LXA,1
057705,000477: 11,3213 01501 DIFEQCNT
057706,000478: 11,3214 00154 MPAC
057707,000479: 11,3215 73205 DMP CGOTO
057708,000480: 11,3216 27760 -1/12
057709,000481: 11,3217 00155 MPAC
057710,000482: 11,3220 23234 DIFEQTAB
057711,000483: 11,3221 77745 COSPHIE DLOAD
057712,000484: 11,3222 02156 ALPHAV +4
057713,000485: 11,3223 24023 STOVL COSPHI/2
057714,000486: 11,3224 11754 ZUNIT
057715,000487: 11,3225 77650 GOTO
057716,000488: 11,3226 23007 COMTERM
057717,000489:
057718,000490: 11,3227 57435 MATRIX VXV VCOMP
057719,000491: 11,3230 02012 504LM # ROUTINE TRANSLATES FROM PLANETARY
057720,000492: 11,3231 77655 VAD # TO INERTIAL COORDINATES
057721,000493: 11,3232 43505 VXM RVQ
057722,000494: 11,3233 00025 MMATRIX
057723,000495:
057724,000496: 11,3234 23445 DIFEQTAB CADR DIFEQ+0
057725,000497: 11,3235 23451 CADR DIFEQ+1
057726,000498: 11,3236 23462 CADR DIFEQ+2
057727,000499:
057728,000500: 11,3237 45014 TIMESTEP BOF CALL
057729,000501: 11,3240 00342 MIDFLAG
057730,000502: 11,3241 23245 RECTEST # SKIP ORIGIN CHANGE LOGIC
057731,000503: 11,3242 23317 CHKSWTCH
057732,000504: 11,3243 77640 BMN
057733,000505: 11,3244 23354 DOSWITCH
057734,000506:
057735,000507: 11,3245 51575 RECTEST VLOAD ABVAL # RECTIFY IF
057736,000508: 11,3246 01521 TDELTAV
057737,000509: 11,3247 77600 BOV
057738,000510: 11,3250 23273 CALLRECT
057739,000511: 11,3251 51025 DSU BPL # 1) EITHER TDELTAV OR TNUV EQUALS OR
057740,000512: 11,3252 23761 3/4 # EXCEEDS 3/4 IN MAGNITUDE
057741,000513: 11,3253 23273 CALLRECT
057742,000514: 11,3254 53615 DAD SL* # OR
|
|
Page 1344 |
057744,000516: 11,3255 23761 3/4
057745,000517: 11,3256 57605 0 -7,2 # 2) ABVAL(TDELTAV) EQUALS OR EXCEEDS
057746,000518: 11,3257 45271 DDV DSU # .01(ABVAL(RCV))
057747,000519: 11,3260 00013 10D
057748,000520: 11,3261 27762 RECRATIO
057749,000521: 11,3262 77244 BPL VLOAD
057750,000522: 11,3263 23273 CALLRECT
057751,000523: 11,3264 01527 TNUV
057752,000524: 11,3265 45246 ABVAL DSU
057753,000525: 11,3266 23761 3/4
057754,000526: 11,3267 77600 BOV
057755,000527: 11,3270 23273 CALLRECT
057756,000528: 11,3271 77640 BMN
057757,000529: 11,3272 23275 INTGRATE
057758,000530: 11,3273 77624 CALLRECT CALL
057759,000531: 11,3274 23420 RECTIFY
057760,000532: 11,3275 77775 INTGRATE VLOAD
057761,000533: 11,3276 01527 TNUV
057762,000534: 11,3277 24763 STOVL ZV
057763,000535: 11,3300 01521 TDELTAV
057764,000536: 11,3301 00755 STORE YV
057765,000537: 11,3302 77614 CLEAR
057766,000538: 11,3303 00261 JSWITCH
057767,000539: 11,3304 66375 DIFEQ0 VLOAD SSP
057768,000540: 11,3305 00755 YV
057769,000541: 11,3306 01501 DIFEQCNT
057770,000542: 11,3307 00000 0
057771,000543: 11,3310 16152 STODL ALPHAV
057772,000544: 11,3311 11762 DPZERO
057773,000545: 11,3312 02212 STORE H # START H AT ZERO. GOES 0(DELT/2)DELT.
057774,000546: 11,3313 52014 BON GOTO
057775,000547: 11,3314 00301 JSWITCH
057776,000548: 11,3315 23664 DOW..
057777,000549: 11,3316 22456 ACCOMP
057778,000550:
057779,000551: 11,3317 43020 CHKSWTCH STQ BOF
057780,000552: 11,3320 02267 ORIGEX
057781,000553: 11,3321 04340 RPQFLAG
057782,000554: 11,3322 23332 RPQOK # MOON POSITION IS AVAILABLE
057783,000555: 11,3323 45145 DLOAD CALL
057784,000556: 11,3324 01517 TET
057785,000557: 11,3325 54141 LUNPOS # GET MOON POSITION
057786,000558: 11,3326 57414 BOF VCOMP
057787,000559: 11,3327 00343 MOONFLAG
057788,000560: 11,3330 23331 +1
057789,000561: 11,3331 02262 STORE RPQV
057790,000562: 11,3332 77354 RPQOK LXA,2 VLOAD # RESTORE X2 AFTER USING LUNPOS
057791,000563: 11,3333 02150 PBODY
057792,000564: 11,3334 01521 TDELTAV # -
057793,000565: 11,3335 53257 VSL* VAD # |RQC|-RSPHERE WHEN OUTSIDE THE SPHERE.
|
|
Page 1345 |
057795,000567: 11,3336 57605 0 -7,2 # - - -
057796,000568: 11,3337 01535 RCV # R = RDEVIATION + RCONIC
057797,000569: 11,3340 51414 BOF ABVAL
057798,000570: 11,3341 00343 MOONFLAG
057799,000571: 11,3342 23347 EARSPH
057800,000572: 11,3343 44302 SR2 BDSU # INSIDE
057801,000573: 11,3344 27764 RSPHERE
057802,000574: 11,3345 77650 GOTO
057803,000575: 11,3346 02267 ORIGEX
057804,000576: 11,3347 51451 EARSPH VSU ABVAL # OUTSIDE
057805,000577: 11,3350 02262 RPQV
057806,000578: 11,3351 52025 DSU GOTO
057807,000579: 11,3352 27764 RSPHERE
057808,000580: 11,3353 02267 ORIGEX
057809,000581: 11,3354 77624 DOSWITCH CALL
057810,000582: 11,3355 23360 ORIGCHNG
057811,000583: 11,3356 77650 GOTO
057812,000584: 11,3357 23275 INTGRATE
057813,000585: 11,3360 45020 ORIGCHNG STQ CALL
057814,000586: 11,3361 02267 ORIGEX
057815,000587: 11,3362 23420 RECTIFY
057816,000588: 11,3363 53775 VLOAD VSL*
057817,000589: 11,3364 01535 RCV
057818,000590: 11,3365 57576 0,2
057819,000591: 11,3366 53651 VSU VSL*
057820,000592: 11,3367 02262 RPQV
057821,000593: 11,3370 57574 2,2
057822,000594: 11,3371 01503 STORE RRECT
057823,000595: 11,3372 15535 STODL RCV
057824,000596: 11,3373 01517 TET
057825,000597: 11,3374 77624 CALL
057826,000598: 11,3375 54144 LUNVEL
057827,000599: 11,3376 57414 BOF VCOMP
057828,000600: 11,3377 00343 MOONFLAG
057829,000601: 11,3400 23401 +1
057830,000602: 11,3401 53715 PDVL VSL*
057831,000603: 11,3402 01543 VCV
057832,000604: 11,3403 57576 0,2
057833,000605: 11,3404 77651 VSU
057834,000606: 11,3405 77657 VSL*
057835,000607: 11,3406 57574 0 +2,2
057836,000608: 11,3407 01511 STORE VRECT
057837,000609: 11,3410 01543 STORE VCV
057838,000610: 11,3411 67154 LXA,2 SXA,2
057839,000611: 11,3412 02267 ORIGEX
057840,000612: 11,3413 00052 QPRET
057841,000613: 11,3414 52014 BON GOTO
057842,000614: 11,3415 00303 MOONFLAG
057843,000615: 11,3416 27011 CLRMOON
057844,000616: 11,3417 27016 SETMOON
057845,000617:
|
|
Page 1346 |
057847,000619:
057848,000620: # THE RECTIFY SUBROUTINE IS CALLED BY THE INTEGRATION PROGRAM AND OCCASIONALLY BY THE MEASUREMENT INCORPORATION
057849,000621: # ROUTINES TO ESTABLISH A NEW CONIC.
057850,000622:
057851,000623: 11,3420 77354 RECTIFY LXA,2 VLOAD
057852,000624: 11,3421 02150 PBODY
057853,000625: 11,3422 01521 TDELTAV
057854,000626: 11,3423 53257 VSL* VAD
057855,000627: 11,3424 57605 0 -7,2
057856,000628: 11,3425 01535 RCV
057857,000629: 11,3426 01503 STORE RRECT
057858,000630: 11,3427 25535 STOVL RCV
057859,000631: 11,3430 01527 TNUV
057860,000632: 11,3431 53257 VSL* VAD
057861,000633: 11,3432 57602 0 -4,2
057862,000634: 11,3433 01543 VCV
057863,000635: 11,3434 01511 MINIRECT STORE VRECT
057864,000636: 11,3435 25543 TINIRECT STOVL VCV
057865,000637: 11,3436 11762 ZEROVEC
057866,000638: 11,3437 01521 STORE TDELTAV
057867,000639: 11,3440 15527 STODL TNUV
057868,000640: 11,3441 11762 ZEROVEC
057869,000641: 11,3442 01551 STORE TC
057870,000642: 11,3443 01553 STORE XKEP
057871,000643: 11,3444 77616 RVQ
057872,000644:
|
|
Page 1347 |
057874,000646:
057875,000647: # THE THREE DIFEQ ROUTINES - DIFEQ+0, DIFEQ+12, AND DIFEQ+24 - ARE ENTEREDTO PROCESS THE CONTRIBUTIONS AT THE
057876,000648: # BEGINNING, MIDDLE, AND END OF THE TIMESTEP, RESPECTIVELY. THE UPDATING IS DONE BY THE NYSTROM METHOD.
057877,000649:
057878,000650: 11,3445 64575 DIFEQ+0 VLOAD VSR3
057879,000651: 11,3446 02202 FV
057880,000652: 11,3447 36166 STCALL PHIV
057881,000653: 11,3450 23625 DIFEQCOM
057882,000654: 11,3451 74575 DIFEQ+1 VLOAD VSR1
057883,000655: 11,3452 02202 FV
057884,000656: 11,3453 53206 PUSH VAD
057885,000657: 11,3454 02166 PHIV
057886,000658: 11,3455 26174 STOVL PSIV
057887,000659: 11,3456 53362 VSR1 VAD
057888,000660: 11,3457 02166 PHIV
057889,000661: 11,3460 36166 STCALL PHIV
057890,000662: 11,3461 23625 DIFEQCOM
057891,000663: 11,3462 57345 DIFEQ+2 DLOAD DMPR
057892,000664: 11,3463 02212 H
057893,000665: 11,3464 23771 DP2/3
057894,000666: 11,3465 74206 PUSH VXSC
057895,000667: 11,3466 02166 PHIV
057896,000668: 11,3467 53372 VSL1 VAD
057897,000669: 11,3470 00763 ZV
057898,000670: 11,3471 53361 VXSC VAD
057899,000671: 11,3472 02212 H
057900,000672: 11,3473 00755 YV
057901,000673: 11,3474 24755 STOVL YV
057902,000674: 11,3475 02202 FV
057903,000675: 11,3476 53322 VSR3 VAD
057904,000676: 11,3477 02174 PSIV
057905,000677: 11,3500 76561 VXSC VSL1
057906,000678: 11,3501 77655 VAD
057907,000679: 11,3502 00763 ZV
057908,000680: 11,3503 00763 STORE ZV
057909,000681: 11,3504 45014 BOFF CALL
057910,000682: 11,3505 00341 JSWITCH
057911,000683: 11,3506 23556 ENDSTATE
057912,000684: 11,3507 22327 GRP2PC
057913,000685: 11,3510 77354 LXA,2 VLOAD
057914,000686: 11,3511 00770 COLREG
057915,000687: 11,3512 00763 ZV
057916,000688: 11,3513 77732 VSL3 # ADJUST W-POSITION FOR STORAGE
057917,000689: 11,3514 12467 STORE W +54D,2
057918,000690: 11,3515 77775 VLOAD
057919,000691: 11,3516 00755 YV
057920,000692: 11,3517 40132 VSL3 BOV
057921,000693: 11,3520 23650 WMATEND
057922,000694: 11,3521 12401 STORE W,2
057923,000695:
057924,000696: 11,3522 77624 CALL
057925,000697: 11,3523 22327 GRP2PC
|
|
Page 1348 |
057927,000699: 11,3524 66354 LXA,2 SSP
057928,000700: 11,3525 00770 COLREG
057929,000701: 11,3526 00052 S2
057930,000702: 11,3527 00000 0
057931,000703: 11,3530 67114 INCR,2 SXA,2
057932,000704: 11,3531 00006 6
057933,000705: 11,3532 00754 YV
057934,000706: 11,3533 45104 TIX,2 CALL
057935,000707: 11,3534 23621 RELOADSV
057936,000708: 11,3535 22327 GRP2PC
057937,000709: 11,3536 67154 LXA,2 SXA,2
057938,000710: 11,3537 00754 YV
057939,000711: 11,3540 00770 COLREG
057940,000712:
057941,000713: 11,3541 77624 NEXTCOL CALL
057942,000714: 11,3542 22327 GRP2PC
057943,000715: 11,3543 76754 LXA,2 VLOAD*
057944,000716: 11,3544 00770 COLREG
057945,000717: 11,3545 75376 W,2
057946,000718: 11,3546 77722 VSR3 # ADJUST W-POSITION FOR INTEGRATION
057947,000719: 11,3547 00755 STORE YV
057948,000720: 11,3550 76173 VLOAD* AXT,1
057949,000721: 11,3551 75310 W +54D,2
057950,000722: 11,3552 00000 0
057951,000723: 11,3553 77722 VSR3 # ADJUST W-VELOCITY FOR INTEGRATION
057952,000724: 11,3554 34763 STCALL ZV
057953,000725: 11,3555 23304 DIFEQ0
057954,000726:
057955,000727: 11,3556 77200 ENDSTATE BOV VLOAD
057956,000728: 11,3557 22726 GOBAQUE
057957,000729: 11,3560 00763 ZV
057958,000730: 11,3561 25527 STOVL TNUV
057959,000731: 11,3562 00755 YV
057960,000732: 11,3563 01521 STORE TDELTAV
057961,000733: 11,3564 43014 BON BOFF
057962,000734: 11,3565 04715 MIDAVFLG
057963,000735: 11,3566 27656 CKMID2 # CHECK FOR MID2 BEFORE GOING TO TIMEINC
057964,000736: 11,3567 01756 DIM0FLAG
057965,000737: 11,3570 27364 TESTLOOP
057966,000738: 11,3571 77776 EXIT
057967,000739: 11,3572 05402 TC PHASCHNG
057968,000740: 11,3573 04022 OCT 04022 # PHASE 1
057969,000741: 11,3574 05547 TC UPFLAG # PHASE CHANGE HAS OCCURRED BETWEEN
057970,000742: 11,3575 00230 ADRES REINTFLG # INTSTALL AND INTWAKE
057971,000743: 11,3576 06006 TC INTPRET
057972,000744: 11,3577 77731 SSP
057973,000745: 11,3600 00053 QPRET
057974,000746: 11,3601 23606 AMOVED
057975,000747: 11,3602 52014 BON GOTO
057976,000748: 11,3603 01714 VINTFLAG
|
|
Page 1349 |
057978,000750: 11,3604 26761 ATOPCSM
057979,000751: 11,3605 27034 ATOPLEM
057980,000752: 11,3606 66214 AMOVED SET SSP
057981,000753: 11,3607 00061 JSWITCH
057982,000754: 11,3610 00771 COLREG
057983,000755: 11,3611 77741 DEC -30 B-14
057984,000756: 11,3612 66214 BOFF SSP
057985,000757: 11,3613 01755 D6OR9FLG
057986,000758: 11,3614 23541 NEXTCOL
057987,000759: 11,3615 00771 COLREG
057988,000760: 11,3616 77717 DEC -48 B-14
057989,000761: 11,3617 77650 GOTO
057990,000762: 11,3620 23541 NEXTCOL
057991,000763:
057992,000764:
057993,000765: 11,3621 77745 RELOADSV DLOAD # RELOAD TEMPORARY STATE VECTOR
057994,000766: 11,3622 00745 TDEC # FROM PERMANENT IN CASE OF
057995,000767: 11,3623 34041 STCALL TDEC1
057996,000768: 11,3624 27243 INTEGRV2 # BY STARTING AT INTEGRV2.
057997,000769: 11,3625 43345 DIFEQCOM DLOAD DAD # INCREMENT H AND DIFEQCNT.
057998,000770: 11,3626 02305 DT/2
057999,000771: 11,3627 02212 H
058000,000772: 11,3630 66110 INCR,1 SXA,1
058001,000773: 11,3631 77763 DEC -12 B-14
058002,000774: 11,3632 01500 DIFEQCNT # DIFEQCNT SET FOR NEXT ENTRY.
058003,000775: 11,3633 02212 STORE H
058004,000776: 11,3634 74561 VXSC VSR1
058005,000777: 11,3635 02202 FV
058006,000778: 11,3636 74255 VAD VXSC
058007,000779: 11,3637 00763 ZV
058008,000780: 11,3640 02212 H
058009,000781: 11,3641 77655 VAD
058010,000782: 11,3642 00755 YV
058011,000783: 11,3643 02152 STORE ALPHAV
058012,000784: 11,3644 52014 BON GOTO
058013,000785: 11,3645 00301 JSWITCH
058014,000786: 11,3646 23664 DOW..
058015,000787: 11,3647 22436 FBR3
058016,000788:
058017,000789: 11,3650 43014 WMATEND CLEAR CLEAR
058018,000790: 11,3651 01676 DIM0FLAG # DONT INTEGRATE W THIS TIME
058019,000791: 11,3652 01671 ORBWFLAG # INVALIDATE W
058020,000792: 11,3653 77614 CLEAR
058021,000793: 11,3654 02676 RENDWFLG
058022,000794: 11,3655 77414 SET EXIT
058023,000795: 11,3656 01472 STATEFLG # PICK UP STATE VECTOR UPDATE
058024,000796: 11,3657 05671 TC ALARM
058025,000797: 11,3660 00421 OCT 421
058026,000798: 11,3661 06006 TC INTPRET
|
|
Page 1350 |
058028,000800: 11,3662 77650 GOTO
058029,000801: 11,3663 27364 TESTLOOP # FINISH INTEGRATING STATE VECTOR
058030,000802:
|
|
Page 1351 |
058032,000804:
058033,000805: # ORBITAL ROUTINE FOR EXTRAPOLATION OF THE W MATRIX. IT COMPUTES THE SECOND DERIVATIVE OF EACH COLUMN POSITION
058034,000806: # VECTOR OF THE MATRIX AND CALLS THE NYSTROM INTEGRATION ROUTINES TO SOLVE THE DIFFERENTIAL EQUATIONS. THE PROGRAM
058035,000807: # USES A TABLE OF VEHICLE POSITION VECTORS COMPUTED DURING THE INTEGRATION OF THE VEHICLES POSITION AND VELOCITY.
058036,000808:
058037,000809: 11,3664 70754 DOW.. LXA,2 DLOAD*
058038,000810: 11,3665 02150 PBODY
058039,000811: 11,3666 50037 MUEARTH,2
058040,000812: 11,3667 36210 STCALL BETAM
058041,000813: 11,3670 23712 DOW..1
058042,000814: 11,3671 02202 STORE FV
058043,000815: 11,3672 62014 BOF INCR,1
058044,000816: 11,3673 00342 MIDFLAG
058045,000817: 11,3674 23212 NBRANCH
058046,000818: 11,3675 77771 DEC -6 B-14
058047,000819: 11,3676 70744 LXC,2 DLOAD*
058048,000820: 11,3677 02150 PBODY
058049,000821: 11,3700 50041 MUEARTH -2,2
058050,000822: 11,3701 36210 STCALL BETAM
058051,000823: 11,3702 23712 DOW..1
058052,000824: 11,3703 50414 BON VSR6
058053,000825: 11,3704 00303 MOONFLAG
058054,000826: 11,3705 23706 +1
058055,000827: 11,3706 77655 VAD
058056,000828: 11,3707 02202 FV
058057,000829: 11,3710 36202 STCALL FV
058058,000830: 11,3711 23212 NBRANCH
058059,000831: 11,3712 60575 DOW..1 VLOAD VSR4
058060,000832: 11,3713 02152 ALPHAV
058061,000833: 11,3714 53513 PDVL* UNIT
058062,000834: 11,3715 02216 VECTAB,1
058063,000835: 11,3716 46315 PDVL VPROJ
058064,000836: 11,3717 02152 ALPHAV
058065,000837: 11,3720 52361 VXSC VSU
058066,000838: 11,3721 23761 3/4
058067,000839: 11,3722 60325 PDDL NORM
058068,000840: 11,3723 00045 36D
058069,000841: 11,3724 00052 S2
058070,000842: 11,3725 63406 PUSH DSQ
058071,000843: 11,3726 77605 DMP
058072,000844: 11,3727 65301 NORM PDDL
058073,000845: 11,3730 00043 34D
058074,000846: 11,3731 02210 BETAM
058075,000847: 11,3732 56342 SR1 DDV
058076,000848: 11,3733 77761 VXSC
058077,000849: 11,3734 57154 LXA,2 XAD,2
058078,000850: 11,3735 00051 S2
058079,000851: 11,3736 00051 S2
058080,000852: 11,3737 57074 XAD,2 XAD,2
058081,000853: 11,3740 00051 S2
058082,000854: 11,3741 00042 34D
058083,000855: 11,3742 43457 VSL* RVQ
|
|
Page 1352 |
058085,000857: 11,3743 57606 0 -8D,2
058086,000858:
058087,000859: 11,2000 SETLOC ORBITAL1
058088,000860: 11,2000 BANK
058089,000861:
058090,000862: 11,3744 COUNT* $$/ORBIT
058091,000863: 11,3744 04631 23146 3/5 2DEC .6 B-2
058092,000864:
058093,000865: 11,3746 14000 00000 THREE/8 2DEC .375
058094,000866:
058095,000867: 11,3750 02314 31463 .3D 2DEC .3 B-2
058096,000868:
058097,000869: 11,3752 01400 00000 3/64 2DEC 3 B-6
058098,000870:
058099,000871: 11,3754 15,3411 DP1/4 = D1/4 # 1 B-2
058100,000872: 11,3754 15,3411 DQUARTER EQUALS DP1/4
058101,000873: 11,3754 03000 00000 3/32 2DEC 3 B-5
058102,000874:
058103,000875: 11,3756 36000 00000 15/16 2DEC 15. B-4
058104,000876:
058105,000877: 11,3760 30000 00000 3/4 2DEC 3.0 B-2
058106,000878:
058107,000879: 11,3762 22525 12525 7/12 2DEC .5833333333
058108,000880:
058109,000881: 11,3764 22000 00000 9/16 2DEC 9 B-4
058110,000882:
058111,000883: 11,3766 01200 00000 5/128 2DEC 5 B-7
058112,000884:
058113,000885: 11,3770 04,3761 DPZERO EQUALS ZEROVEC
058114,000886: 11,3770 25252 25253 DP2/3 2DEC .6666666667
058115,000887:
058116,000888: 11,3772 11,3770 2/3 EQUALS DP2/3
058117,000889: # LM504 IS TEMPORARY
058118,000890: 13,2000 SETLOC ORBITAL2
058119,000891: 13,2000 BANK
058120,000892: 13,3717 COUNT* $$/ORBIT
058121,000893: # IT IS VITAL THAT THE FOLLOWING CONSTANTS NOT BE SHUFFLED
058122,000894: 13,3717 77764 DEC -11 B-14
058123,000895: 13,3720 77775 DEC -2 B-14
058124,000896: 13,3721 77766 DEC -9 B-14
058125,000897: 13,3722 77771 DEC -6 B-14
058126,000898: 13,3723 77775 DEC -2 B-14
058127,000899: 13,3724 77775 DEC -2 B-14
058128,000900: 13,3725 00000 DEC 0 B-14
058129,000901: 13,3726 77763 DEC -12 B-14
058130,000902: 13,3727 77766 DEC -9 B-14
058131,000903: 13,3730 77773 DEC -4 B-14
058132,000904: 13,3731 77770 ASCALE DEC -7 B-14
058133,000905: 13,3732 77771 DEC -6 B-14
058134,000906: 13,3733 27446 14620 2DEC* 1.32715445 E16 B-54* # S
058135,000907:
|
|
Page 1353 |
058137,000909: 13,3735 16471 01352 2DEC* 4.9027780 E8 B-30* # M
058138,000910:
058139,000911: 13,3737 22437 16067 MUEARTH 2DEC* 3.986032 E10 B-36*
058140,000912:
058141,000913: 13,3741 00000 00000 2DEC 0 B-28
058142,000914:
058143,000915: 13,3743 02302 24736 J4REQ/J3 2DEC* .4991607391 E7 B-26*
058144,000916:
058145,000917: 13,3745 77651 76237 2DEC -176236.02 B-25
058146,000918:
058147,000919: 13,3747 77776 53032 2J3RE/J2 2DEC* -.1355426363 E5 B-27*
058148,000920:
058149,000921: 13,3751 10407 05344 2DEC* .3067493316 E18 B-60*
058150,000922:
058151,000923: 13,3753 13710 35320 J2REQSQ 2DEC* 1.75501139 E21 B-72*
058152,000924:
058153,000925: 13,3755 24000 00000 5/8 2DEC 5 B-3
058154,000926:
058155,000927: 13,3757 74631 63145 -1/12 2DEC -.1
058156,000928:
058157,000929: 13,3761 13,3735 MUM = MUEARTH -2
058158,000930: 13,3761 00243 32703 RECRATIO 2DEC .01
058159,000931:
058160,000932: 13,3763 03654 21000 RSPHERE 2DEC 64373.76 E3 B-29
058161,000933:
058162,000934: 13,3765 03654 21000 RDM 2DEC 16093.44 E3 B-27
058163,000935:
058164,000936: 13,3767 04627 25200 RDE 2DEC 80467.20 E3 B-29
058165,000937:
058166,000938: 13,3771 RATT EQUALS 00
058167,000939: 13,3771 VATT EQUALS 6D
058168,000940: 13,3771 TAT EQUALS 12D
058169,000941: 13,3771 RATT1 EQUALS 14D
058170,000942: 13,3771 VATT1 EQUALS 20D
058171,000943: 13,3771 MU(P) EQUALS 26D
058172,000944: 13,3771 TDEC1 EQUALS 32D
058173,000945: 13,3771 URPV EQUALS 14D
058174,000946: 13,3771 0022 COSPHI/2 EQUALS URPV +4
058175,000947: 13,3771 UZ EQUALS 20D
058176,000948: 13,3771 TVEC EQUALS 26D
End of include-file ORBITAL_INTEGRATION.agc. Parent file is MAIN.agc