Source Code
|
These source-code files are part of a reconstructed copy of Comanche 67, the
Apollo Guidance Computer (AGC) Command Module (CM) software for Apollo 12.
They have been adapted from sources files for Comanche 55, and updated via
disassembly of binary dumps of original core rope memory modules, part numbers
2003972-1081, 2003972-1091, 2003972-1111, 2003972-1121, 2003972-1131, and 2003972-1141.
Since only binary dumps (rather than listings) of Comanche 67 are available as source material,
all comments and labels are approximate.
They have been taken from other AGC programs where possible, or, in some places, written
from scratch to match what we believe would have been in the original listing.
|
055360,000002: ## Copyright: Public domain.
055361,000003: ## Filename: ORBITAL_INTEGRATION.agc
055362,000004: ## Purpose: A section of Comanche revision 067.
055363,000005: ## It is part of the reconstructed source code for the flight
055364,000006: ## software for the Command Module's (CM) Apollo Guidance Computer
055365,000007: ## (AGC) for Apollo 12. No original listings of this program are
055366,000008: ## available; instead, this file was created via dissassembly of
055367,000009: ## dumps of Comanche 067 core rope modules and comparison with
055368,000010: ## other AGC programs.
055369,000011: ## Assembler: yaYUL
055370,000012: ## Contact: Ron Burkey <info@sandroid.org>.
055371,000013: ## Website: www.ibiblio.org/apollo/index.html
055372,000014: ## Mod history: 2023-08-16 MAS Created from Comanche 055.
055373,000015: ## 2024-05-13 MAS Updated for Comanche 067.
055374,000016:
055375,000017: # DELETE
055376,000018: 13,3724 BANK 13
055377,000019: 11,2000 SETLOC ORBITAL
055378,000020: 11,2000 BANK
055379,000021: 11,2321 COUNT 11/ORBIT
055380,000022:
055381,000023: # DELETE
055382,000024: 11,2321 40354 KEPPREP LXA,2 SETPD
055383,000025: 11,2322 02150 PBODY
055384,000026: 11,2323 00001 0
055385,000027: 11,2324 75543 DLOAD* SQRT # SQRT(MU) (+18 OR +15) 0D PL 2D
055386,000028: 11,2325 50032 MUEARTH,2
055387,000029: 11,2326 53515 PDVL UNIT # PL 8D
055388,000030: 11,2327 01535 RCV
055389,000031: 11,2330 60325 PDDL NORM # NORM R (+29 OR +27 - N1) 2D PL 4D
055390,000032: 11,2331 00045 36D
055391,000033: 11,2332 00047 X1
055392,000034: 11,2333 77715 PDVL
055393,000035: 11,2334 65241 DOT PDDL # F*SQRT(MU) (+7 OR +5) 4D PL 6D
055394,000036: 11,2335 01543 VCV
055395,000037: 11,2336 02312 TAU. # (+28)
055396,000038: 11,2337 60225 DSU NORM
055397,000039: 11,2340 01551 TC
055398,000040: 11,2341 00051 S1
055399,000041: 11,2342 77742 SR1
055400,000042: 11,2343 65271 DDV PDDL
055401,000043: 11,2344 00003 2D
055402,000044: 11,2345 41405 DMP PUSH # FS (+6 +N1-N2) 6D PL 8D
055403,000045: 11,2346 00005 4D
055404,000046: 11,2347 65316 DSQ PDDL # (FS)SQ (+12 +2(N1-N2)) 8D PL 10D
055405,000047: 11,2350 00005 4D
055406,000048: 11,2351 64716 DSQ PDDL* # SSQ/MU (-2 OR +2(N1-N2)) 10D PL 12D
055407,000049: 11,2352 50032 MUEARTH,2
055408,000050: 11,2353 40442 SR3 SR4
055409,000051: 11,2354 47515 PDVL VSQ # PREALIGN MU (+43 OR +37) 12D PL 14D
055410,000052: 11,2355 01543 VCV
055411,000053: 11,2356 44205 DMP BDSU # PL 12D
055412,000054: 11,2357 00045 36D
055413,000055: 11,2360 41271 DDV DMP # PL 10D
055414,000056: 11,2361 00003 2D # -(1/R-ALPHA) (+12 +3N1-2N2)
055415,000057: 11,2362 53605 DMP SL*
055416,000058: 11,2363 23756 DP2/3
055417,000059: 11,2364 20176 0 -3,1 # 10L(1/R-ALPHA) (+13 +2(N1-N2))
055418,000060: 11,2365 43260 XSU,1 DAD # 2(FS)SQ - ETCETRA PL 8D
055419,000061: 11,2366 00050 S1 # X1 = N2-N1
055420,000062: 11,2367 45257 SL* DSU # -FS+2(FS)SQ ETC (+6 +N1-N2) PL 6D
055421,000063: 11,2370 20211 8D,1
055422,000064: 11,2371 41205 DMP DMP
055423,000065: 11,2372 00001 0D
055424,000066: 11,2373 00005 4D
055425,000067: 11,2374 53657 SL* SL*
055426,000068: 11,2375 20211 8D,1
055427,000069: 11,2376 20201 0,1 # S(-FS(1-2FS)-1/6...) (+17 OR +16)
055428,000070: 11,2377 65215 DAD PDDL # PL 6D
055429,000071: 11,2400 01553 XKEP
055430,000072: 11,2401 53605 DMP SL* # S(+17 OR +16)
055431,000073: 11,2402 00001 0D
055432,000074: 11,2403 20202 1,1
055433,000075: 11,2404 43204 BOVB DAD
055434,000076: 11,2405 57353 TCDANZIG
055435,000077: 11,2406 77626 STADR
055436,000078: 11,2407 75471 STORE XKEPNEW
055437,000079: 11,2410 74020 STQ AXC,1
055438,000080: 11,2411 02270 KEPRTN
055439,000081: 11,2412 00012 DEC 10 B-14
055440,000082: 11,2413 74014 BON AXC,1
055441,000083: 11,2414 00303 MOONFLAG
055442,000084: 11,2415 24042 KEPLERN
055443,000085: 11,2416 00002 DEC 2 B-14
055444,000086: 11,2417 77650 GOTO
055445,000087: 11,2420 24042 KEPLERN
055446,000088:
055447,000089: 11,2421 66350 FBR3 LXA,1 SSP
055448,000090: 11,2422 01500 DIFEQCNT
055449,000091: 11,2423 00051 S1
055450,000092: 11,2424 77762 DEC -13 B-14
055451,000093: 11,2425 54345 DLOAD SR
055452,000094: 11,2426 02314 DT/2
055453,000095: 11,2427 20612 9D
055454,000096: 11,2430 61500 TIX,1 ROUND
055455,000097: 11,2431 22432 +1
055456,000098: 11,2432 43206 PUSH DAD
055457,000099: 11,2433 01551 TC
055458,000100: 11,2434 16312 STODL TAU.
055459,000101: 11,2435 77615 DAD
055460,000102: 11,2436 01517 TET
055461,000103: 11,2437 35517 STCALL TET
055462,000104: 11,2440 22321 KEPPREP
055463,000105:
055464,000106: # AGC ROUTINE TO COMPUTE ACCELERATION COMPONENTS.
055465,000107:
055466,000108: 11,2441 73150 ACCOMP LXA,1 LXA,2
055467,000109: 11,2442 02150 PBODY
055468,000110: 11,2443 02150 PBODY
055469,000111: 11,2444 77775 VLOAD
055470,000112: 11,2445 11566 ZEROVEC
055471,000113: 11,2446 26202 STOVL FV
055472,000114: 11,2447 02152 ALPHAV
055473,000115: 11,2450 53257 VSL* VAD
055474,000116: 11,2451 57605 0 -7,2
055475,000117: 11,2452 01535 RCV
055476,000118: 11,2453 02160 STORE BETAV
055477,000119: 11,2454 65014 BOF XCHX,2
055478,000120: 11,2455 01756 DIM0FLAG
055479,000121: 11,2456 22463 +5
055480,000122: 11,2457 01500 DIFEQCNT
055481,000123: 11,2460 12217 STORE VECTAB,2
055482,000124: 11,2461 77724 XCHX,2
055483,000125: 11,2462 01500 DIFEQCNT
055484,000126: 11,2463 53575 VLOAD UNIT
055485,000127: 11,2464 02152 ALPHAV
055486,000128: 11,2465 16152 STODL ALPHAV
055487,000129: 11,2466 00045 36D
055488,000130: 11,2467 02310 STORE ALPHAM
055489,000131: 11,2470 77624 CALL
055490,000132: 11,2471 22565 GAMCOMP
055491,000133: 11,2472 66175 VLOAD SXA,1
055492,000134: 11,2473 02160 BETAV
055493,000135: 11,2474 00051 S2
055494,000136: 11,2475 16152 STODL ALPHAV
055495,000137: 11,2476 02210 BETAM
055496,000138: 11,2477 02310 STORE ALPHAM
055497,000139: 11,2500 71214 BOF DLOAD
055498,000140: 11,2501 00342 MIDFLAG
055499,000141: 11,2502 22737 OBLATE
055500,000142: 11,2503 01517 TET
055501,000143: 11,2504 77624 CALL
055502,000144: 11,2505 54110 LSPOS
055503,000145: 11,2506 72174 AXT,2 LXA,1
055504,000146: 11,2507 00002 2
055505,000147: 11,2510 00051 S2
055506,000148: 11,2511 77614 BOF
055507,000149: 11,2512 00343 MOONFLAG
055508,000150: 11,2513 22516 +3
055509,000151: 11,2514 77076 VCOMP AXT,2
055510,000152: 11,2515 00000 0
055511,000153: 11,2516 02160 STORE BETAV
055512,000154: 11,2517 26263 STOVL RPQV
055513,000155: 11,2520 00003 2D
055514,000156: 11,2521 02300 STORE RPSV
055515,000157: 11,2522 77214 BOF VLOAD
055516,000158: 11,2523 01756 DIM0FLAG
055517,000159: 11,2524 22537 GETRPSV
055518,000160: 11,2525 02152 ALPHAV
055519,000161: 11,2526 53761 VXSC VSR*
055520,000162: 11,2527 02310 ALPHAM
055521,000163: 11,2530 57175 1,2
055522,000164: 11,2531 65051 VSU XCHX,2
055523,000165: 11,2532 02160 BETAV
055524,000166: 11,2533 01500 DIFEQCNT
055525,000167: 11,2534 12225 STORE VECTAB +6,2
055526,000168: 11,2535 77724 XCHX,2
055527,000169: 11,2536 01500 DIFEQCNT
055528,000170: 11,2537 62175 GETRPSV VLOAD INCR,1
055529,000171: 11,2540 02263 RPQV
055530,000172: 11,2541 00004 4
055531,000173: 11,2542 43014 CLEAR BOF
055532,000174: 11,2543 04260 RPQFLAG
055533,000175: 11,2544 00343 MOONFLAG
055534,000176: 11,2545 22552 +5
055535,000177: 11,2546 53261 VSR VAD
055536,000178: 11,2547 20612 9D
055537,000179: 11,2550 02300 RPSV
055538,000180: 11,2551 02300 STORE RPSV
055539,000181: 11,2552 77624 CALL
055540,000182: 11,2553 22565 GAMCOMP
055541,000183: 11,2554 62174 AXT,2 INCR,1
055542,000184: 11,2555 00004 4
055543,000185: 11,2556 00004 4
055544,000186: 11,2557 77775 VLOAD
055545,000187: 11,2560 02300 RPSV
055546,000188: 11,2561 36160 STCALL BETAV
055547,000189: 11,2562 22565 GAMCOMP
055548,000190: 11,2563 77650 GOTO
055549,000191: 11,2564 22737 OBLATE
055550,000192: 11,2565 74575 GAMCOMP VLOAD VSR1
055551,000193: 11,2566 02160 BETAV
055552,000194: 11,2567 40236 VSQ SETPD
055553,000195: 11,2570 00001 0
055554,000196: 11,2571 61501 NORM ROUND
055555,000197: 11,2572 00040 31D
055556,000198: 11,2573 60325 PDDL NORM # NORMED B SQUARED TO PD LIST
055557,000199: 11,2574 02310 ALPHAM # NORMALIZE (LESS ONE) LENGTH OF ALPHA
055558,000200: 11,2575 00041 32D # SAVING NORM SCALE FACTOR IN X1
055559,000201: 11,2576 63342 SR1 PDVL
055560,000202: 11,2577 02160 BETAV # C(PDL+2) = ALMOST NORMED ALPHA
055561,000203: 11,2600 77656 UNIT
055562,000204: 11,2601 16160 STODL BETAV
055563,000205: 11,2602 00045 36D
055564,000206: 11,2603 02210 STORE BETAM
055565,000207: 11,2604 55301 NORM BDDV # FORM NORMALIZED QUOTIENT ALPHAM/BETAM
055566,000208: 11,2605 00042 33D
055567,000209: 11,2606 41562 SR1R PUSH # C(PDL+2) = ALMOST NORMALIZED RHO.
055568,000210: 11,2607 77743 DLOAD*
055569,000211: 11,2610 27737 ASCALE,1
055570,000212: 11,2611 00051 STORE S1
055571,000213: 11,2612 57124 XCHX,2 XAD,2
055572,000214: 11,2613 00050 S1
055573,000215: 11,2614 00040 32D
055574,000216: 11,2615 71264 XSU,2 DLOAD
055575,000217: 11,2616 00041 33D
055576,000218: 11,2617 00003 2D
055577,000219: 11,2620 65057 SR* XCHX,2
055578,000220: 11,2621 57177 0 -1,2
055579,000221: 11,2622 00050 S1
055580,000222: 11,2623 74406 PUSH SR1R # RHO/4 TO 4D
055581,000223: 11,2624 50315 PDVL DOT
055582,000224: 11,2625 02152 ALPHAV
055583,000225: 11,2626 02160 BETAV
055584,000226: 11,2627 44372 SL1R BDSU # (RHO/4) - 2(ALPHAV/2.BETAV/2)
055585,000227: 11,2630 57206 PUSH DMPR # TO PDL+6
055586,000228: 11,2631 00005 4
055587,000229: 11,2632 77752 SL1
055588,000230: 11,2633 43206 PUSH DAD
055589,000231: 11,2634 23740 DQUARTER
055590,000232: 11,2635 75406 PUSH SQRT
055591,000233: 11,2636 41475 DMPR PUSH
055592,000234: 11,2637 00013 10D
055593,000235: 11,2640 43352 SL1 DAD
055594,000236: 11,2641 23740 DQUARTER
055595,000237: 11,2642 43325 PDDL DAD # (1/4)+2((Q+1)/4) TO PD+14D
055596,000238: 11,2643 00013 10D
055597,000239: 11,2644 11564 HALFDP
055598,000240: 11,2645 72475 DMPR SL1
055599,000241: 11,2646 00011 8D
055600,000242: 11,2647 56215 DAD DDV
055601,000243: 11,2650 23732 THREE/8
055602,000244: 11,2651 00017 14D
055603,000245: 11,2652 74275 DMPR VXSC
055604,000246: 11,2653 00007 6
055605,000247: 11,2654 02160 BETAV # -
055606,000248: 11,2655 64515 PDVL VSR3 # (G/2)(C(PD+4))B/2 TO PD+16D
055607,000249: 11,2656 02152 ALPHAV
055608,000250: 11,2657 41455 VAD PUSH # A12 + C(PD+16D) TO PD+16D
055609,000251: 11,2660 41345 DLOAD DMP
055610,000252: 11,2661 00001 0
055611,000253: 11,2662 00015 12D # -
055612,000254: 11,2663 61501 NORM ROUND
055613,000255: 11,2664 00037 30D
055614,000256: 11,2665 40665 BDDV DMP*
055615,000257: 11,2666 00003 2
055616,000258: 11,2667 50032 MUEARTH,2
055617,000259: 11,2670 74276 DCOMP VXSC
055618,000260: 11,2671 57124 XCHX,2 XAD,2
055619,000261: 11,2672 00050 S1
055620,000262: 11,2673 00051 S2
055621,000263: 11,2674 55064 XSU,2 XSU,2
055622,000264: 11,2675 00036 30D
055623,000265: 11,2676 00037 31D
055624,000266: 11,2677 77600 BOV # CLEAR OVIND
055625,000267: 11,2700 22701 +1
055626,000268: 11,2701 65057 VSR* XCHX,2
055627,000269: 11,2702 57177 0 -1,2
055628,000270: 11,2703 00050 S1
055629,000271: 11,2704 77655 VAD
055630,000272: 11,2705 02202 FV
055631,000273: 11,2706 02202 STORE FV
055632,000274: 11,2707 43400 BOV RVQ # RETURN IF NO OVERFLOW
055633,000275: 11,2710 22711 +1
055634,000276: 11,2711 51575 GOBAQUE VLOAD ABVAL
055635,000277: 11,2712 01521 TDELTAV
055636,000278: 11,2713 77654 BZE
055637,000279: 11,2714 22734 INT-ABRT
055638,000280: 11,2715 54345 DLOAD SR
055639,000281: 11,2716 02212 H
055640,000282: 11,2717 20612 9D
055641,000283: 11,2720 44206 PUSH BDSU
055642,000284: 11,2721 01551 TC
055643,000285: 11,2722 16312 STODL TAU.
055644,000286: 11,2723 01517 TET
055645,000287: 11,2724 45425 DSU STADR
055646,000288: 11,2725 42260 STCALL TET
055647,000289: 11,2726 22321 KEPPREP
055648,000290: 11,2727 77624 CALL
055649,000291: 11,2730 23403 RECTIFY
055650,000292: 11,2731 77614 SETGO
055651,000293: 11,2732 04020 RPQFLAG
055652,000294: 11,2733 27315 TESTLOOP
055653,000295:
055654,000296: 11,2734 77776 INT-ABRT EXIT
055655,000297: 11,2735 05725 TC POODOO
055656,000298: 11,2736 20430 OCT 20430 # SUB-SURFACE STATE VECTOR
055657,000299:
055658,000300: # THE OBLATE ROUTINE COMPUTES THE ACCELERATION DUE TO OBLATENESS. IT USES THE UNIT OF THE VEHICLE
055659,000301: # POSITION VECTOR FOUND IN ALPHAV AND THE DISTANCE TO THE CENTER IN ALPHAM. THIS IS ADDED TO THE SUM OF THE
055660,000302: # DISTURBING ACCELERATIONS IN FV AND THE PROPER DIFEQ STAGE IS CALLED VIA X1.
055661,000303:
055662,000304: 11,2737 71354 OBLATE LXA,2 DLOAD
055663,000305: 11,2740 02150 PBODY
055664,000306: 11,2741 02310 ALPHAM
055665,000307: 11,2742 44601 SETPD DSU*
055666,000308: 11,2743 00001 0
055667,000309: 11,2744 50002 RDE,2
055668,000310: 11,2745 43044 BPL BOF # GET URPV
055669,000311: 11,2746 23175 NBRANCH
055670,000312: 11,2747 00343 MOONFLAG
055671,000313: 11,2750 23204 COSPHIE
055672,000314: 11,2751 65375 VLOAD PDDL
055673,000315: 11,2752 02152 ALPHAV
055674,000316: 11,2753 01517 TET
055675,000317: 11,2754 45125 PDDL CALL
055676,000318: 11,2755 23730 3/5
055677,000319: 11,2756 55370 R-TO-RP
055678,000320: 11,2757 24017 STOVL URPV # RP/R B-1 IN PLANETARY COORDINATES
055679,000321: 11,2760 11560 ZUNIT
055680,000322: 11,2761 45006 PUSH CALL # ZUNIT B-1 IN PLANETARY COORDL AT 00D
055681,000323: 11,2762 23212 MATRIX
055682,000324: 11,2763 77715 PDVL # UZ B-2 IN INERT COORD AT 00D
055683,000325: 11,2764 11564 XUNIT
055684,000326: 11,2765 45006 PUSH CALL # XUNIT B-1 IN PLANETARY COORD. AT 06D
055685,000327: 11,2766 23212 MATRIX
055686,000328: 11,2767 77772 VSL1
055687,000329: 11,2770 24041 STOVL 32D # UX B-1 IN INERT. COORD AT 32D
055688,000330: 11,2771 77772 VSL1
055689,000331: 11,2772 14025 COMTERM STODL UZ # UZ B-1 IN INERTIAL COORD AT 20D
055690,000332: 11,2773 00023 COSPHI/2 # ' Z-COMPONENT OF URPV
055691,000333: 11,2774 65275 DMPR PDDL # P B-6 , 3COSPHI/64 AT 00D
055692,000334: 11,2775 23742 3/32 # 2
055693,000335: 11,2776 00023 COSPHI/2
055694,000336: 11,2777 57316 DSQ DMPR
055695,000337: 11,3000 23744 15/16 # ' 2
055696,000338: 11,3001 41425 DSU PUSH # P B-5 ,(1/2)(15COSPHI -3) AT 02D
055697,000339: 11,3002 23736 3/64 # 3
055698,000340: 11,3003 41275 DMPR DMP
055699,000341: 11,3004 00023 COSPHI/2
055700,000342: 11,3005 23750 7/12
055701,000343: 11,3006 65372 SL1R PDDL
055702,000344: 11,3007 00001 0D
055703,000345: 11,3010 44275 DMPR BDSU
055704,000346: 11,3011 23756 2/3 # ' ' '
055705,000347: 11,3012 57206 PUSH DMPR # P B-7 ,(1/3)(7COSPHI P -4P ) AT 04D
055706,000348: 11,3013 00023 COSPHI/2 # 4 3 2
055707,000349: 11,3014 65275 DMPR PDDL
055708,000350: 11,3015 23752 9/16
055709,000351: 11,3016 00003 2D # ' ' '
055710,000352: 11,3017 44275 DMPR BDSU # P B-10 ,(1/4)(9COSPHI P -5P )
055711,000353: 11,3020 23754 5/128 # 5 4 3
055712,000354: 11,3021 56203 DMP* DDV # '
055713,000355: 11,3022 50026 J4REQ/J3,2 # B- ,(J RP/J R)P
055714,000356: 11,3023 02310 ALPHAM
055715,000357: 11,3024 56615 DAD DMPR*
055716,000358: 11,3025 00005 4D # 2 2 ' '
055717,000359: 11,3026 50022 2J3RE/J2,2 # B ,(2J RP /J2 R )P +(2J RP/J2R)P
055718,000360: 11,3027 43271 DDV DAD # 4 5 3 4
055719,000361: 11,3030 02310 ALPHAM # - 2 ' 2 ' '
055720,000362: 11,3031 00003 2D # (R/R)(J RP P /R + 2J RP P / + J P )
055721,000363: 11,3032 77761 VXSC # 4 5 3 4 2 2 3
055722,000364: 11,3033 02152 ALPHAV # 4 2 ' -
055723,000365: 11,3034 14033 STODL TVEC # B-6,(SUM((J /R )P (COSPHI))UR)
055724,000366: 11,3035 70403 DMP* SR1 # I=2 I I+1
055725,000367: 11,3036 50026 J4REQ/J3,2 # '
055726,000368: 11,3037 43271 DDV DAD # (J RP/J R)P
055727,000369: 11,3040 02310 ALPHAM # 4 3 4
055728,000370: 11,3041 50473 DMPR* SR3 # 2 2 ' '
055729,000371: 11,3042 50022 2J3RE/J2,2 # (2J RP /J R )P +(2J RP/J R)P
055730,000372: 11,3043 43271 DDV DAD # 4 2 4 3 2 3
055731,000373: 11,3044 02310 ALPHAM
055732,000374: 11,3045 76561 VXSC VSL1 # 4 ' -
055733,000375: 11,3046 00025 UZ # B-6 SUM(P(COSPHI))UZ
055734,000376: 11,3047 77645 BVSU # I=2 I
055735,000377: 11,3050 00033 TVEC # 4 I-2 ' -
055736,000378: 11,3051 14033 STODL TVEC # SUM((MU J (RP/R) )(P (COSPHI)UR -
055737,000379: 11,3052 02310 ALPHAM # I=2 I I+2
055738,000380: 11,3053 63501 NORM DSQ # P (COSPHI)UZ)) B-6 AT 20D
055739,000381: 11,3054 00047 X1 # I
055740,000382: 11,3055 60316 DSQ NORM
055741,000383: 11,3056 00051 S1 # 4
055742,000384: 11,3057 54606 PUSH BDDV* # NORMED R TO 0D
055743,000385: 11,3060 50016 J2REQSQ,2
055744,000386: 11,3061 40161 VXSC BOV
055745,000387: 11,3062 00033 TVEC
055746,000388: 11,3063 23064 +1 # (RESET OVERFLOW INDICATOR)
055747,000389: 11,3064 56070 XAD,1 XAD,1
055748,000390: 11,3065 00046 X1
055749,000391: 11,3066 00046 X1
055750,000392: 11,3067 53670 XAD,1 VSL*
055751,000393: 11,3070 00050 S1
055752,000394: 11,3071 20153 0 -22D,1
055753,000395: 11,3072 40055 VAD BOV
055754,000396: 11,3073 02202 FV
055755,000397: 11,3074 22711 GOBAQUE
055756,000398: 11,3075 16202 STODL FV # B+16 FOR EARTH , B+20 FOR MOON
055757,000399: 11,3076 00017 URPV # B-1 X-COMPONENT OF POSITION IN
055758,000400: 11,3077 41414 BOF PUSH # PLANETORY COORD. AT 02D
055759,000401: 11,3100 00343 MOONFLAG
055760,000402: 11,3101 23175 NBRANCH # 2
055761,000403: 11,3102 65316 DSQ PDDL # B-2 X AT 04D
055762,000404: 11,3103 00021 URPV +2 # B-1 Y-COMPONENT
055763,000405: 11,3104 45316 DSQ DSU
055764,000406: 11,3105 74205 DMP VXSC
055765,000407: 11,3106 27763 5/8 # 2 2 -
055766,000408: 11,3107 02152 ALPHAV # B-6 5(Y -X )UR 2 2 -
055767,000409: 11,3110 65332 VSL3 PDDL # B-3 5(Y -X )UR AT 02D
055768,000410: 11,3111 53361 VXSC VAD
055769,000411: 11,3112 00041 32D # 2 2 - 2 -
055770,000412: 11,3113 47315 PDVL VXV # (5(Y.-X )UR/R ) +(2X/R)UX AT 02D
055771,000413: 11,3114 00041 32D # B-1 UX
055772,000414: 11,3115 00025 UZ # B-2 -UY =(UX * UZ)
055773,000415: 11,3116 74372 VSL1 VXSC # B-3 -(2Y/R)UY
055774,000416: 11,3117 00021 URPV +2 # 2 2 - 2 -
055775,000417: 11,3120 41455 VAD PUSH # B-3 (5(X -Y )UR/R )+(2X/R)UX -(
055776,000418: 11,3121 77745 DLOAD # -
055777,000419: 11,3122 00023 COSPHI/2 # 2Y/R)UY AT 02D
055778,000420: 11,3123 41516 DSQ PUSH # B-2 (Z.COMPONENT) AT 08D
055779,000421: 11,3124 65205 DMP PDDL # 2
055780,000422: 11,3125 27763 5/8 # B-5 5COSPHI/2 AT 08D
055781,000423: 11,3126 43302 SR2 DAD
055782,000424: 11,3127 00011 08D
055783,000425: 11,3130 41221 BDSU DMP # 2
055784,000426: 11,3131 11616 D1/32 # B-5 (1 - 7COSPHI )
055785,000427: 11,3132 00017 URPV
055786,000428: 11,3133 74205 DMP VXSC
055787,000429: 11,3134 27763 5/8
055788,000430: 11,3135 02152 ALPHAV # 2 -
055789,000431: 11,3136 65272 VSL5 PDDL # B-5 (5X/R)(1-7COSPHI )UR AT 08D
055790,000432: 11,3137 74225 DSU VXSC
055791,000433: 11,3140 11616 D1/32
055792,000434: 11,3141 00041 32D
055793,000435: 11,3142 53372 VSL1 VAD # 2 - -
055794,000436: 11,3143 41325 PDDL DMP # B-5 (5X/R)(1-7COSPHI )UR +(5COSPHI
055795,000437: 11,3144 00017 URPV # -
055796,000438: 11,3145 00023 URPV +4 # -1)UX AT 08D
055797,000439: 11,3146 74205 DMP VXSC
055798,000440: 11,3147 27763 5/8 # B-5 5X Y
055799,000441: 11,3150 00025 UZ # M M
055800,000442: 11,3151 53352 VSL2 VAD # 2 - 2
055801,000443: 11,3152 60325 PDDL NORM # B-5 (5X/R)(1-7COSPHI )UR +(5COSPHI
055802,000444: 11,3153 02310 ALPHAM # - 2 -
055803,000445: 11,3154 00050 X2 # -1)UX +(10XZ/R )UZ AT 08D
055804,000446: 11,3155 67206 PUSH SLOAD
055805,000447: 11,3156 02000 E32C31RM
055806,000448: 11,3157 74271 DDV VXSC
055807,000449: 11,3160 63257 VSL* PDVL
055808,000450: 11,3161 57601 0 -3,2
055809,000451: 11,3162 67206 PUSH SLOAD
055810,000452: 11,3163 01777 E3J22R2M
055811,000453: 11,3164 53361 VXSC VAD
055812,000454: 11,3165 70257 VSL* V/SC
055813,000455: 11,3166 20146 0 -27D,1 # B+16 OR B+20 (J + C )
055814,000456: 11,3167 40055 VAD BOV # 22 31
055815,000457: 11,3170 02202 FV
055816,000458: 11,3171 22711 GOBAQUE
055817,000459: 11,3172 02202 STORE FV
055818,000460: 11,3173 77754 LXA,2
055819,000461: 11,3174 02150 PBODY
055820,000462: 11,3175 72135 NBRANCH SLOAD LXA,1
055821,000463: 11,3176 01501 DIFEQCNT
055822,000464: 11,3177 00154 MPAC
055823,000465: 11,3200 73205 DMP CGOTO
055824,000466: 11,3201 27765 -1/12
055825,000467: 11,3202 00155 MPAC
055826,000468: 11,3203 23217 DIFEQTAB
055827,000469: 11,3204 77745 COSPHIE DLOAD
055828,000470: 11,3205 02156 ALPHAV +4
055829,000471: 11,3206 24023 STOVL COSPHI/2
055830,000472: 11,3207 11560 ZUNIT
055831,000473: 11,3210 77650 GOTO
055832,000474: 11,3211 22772 COMTERM
055833,000475: 11,3212 57435 MATRIX VXV VCOMP
055834,000476: 11,3213 02012 504LM # ROUTINE TRANSLATES FROM PLANETARY
055835,000477: 11,3214 77655 VAD # TO INERTIAL COORDINATES
055836,000478: 11,3215 43505 VXM RVQ
055837,000479: 11,3216 00025 MMATRIX
055838,000480: 11,3217 23430 DIFEQTAB CADR DIFEQ+0
055839,000481: 11,3220 23434 CADR DIFEQ+1
055840,000482: 11,3221 23445 CADR DIFEQ+2
055841,000483:
055842,000484: 11,3222 45014 TIMESTEP BOF CALL
055843,000485: 11,3223 00342 MIDFLAG
055844,000486: 11,3224 23230 RECTEST # SKIP ORIGIN CHANGE LOGIC
055845,000487: 11,3225 23302 CHKSWTCH
055846,000488: 11,3226 77640 BMN
055847,000489: 11,3227 23337 DOSWITCH
055848,000490:
055849,000491: 11,3230 51575 RECTEST VLOAD ABVAL # RECTIFY IF
055850,000492: 11,3231 01521 TDELTAV
055851,000493: 11,3232 77600 BOV
055852,000494: 11,3233 23256 CALLRECT
055853,000495: 11,3234 51025 DSU BPL # 1) EITHER TDELTAV OR TNUV EQUALS OR
055854,000496: 11,3235 23746 3/4 # EXCEEDS 3/4 IN MAGNITUDE
055855,000497: 11,3236 23256 CALLRECT
055856,000498: 11,3237 53615 DAD SL* # OR
055857,000499: 11,3240 23746 3/4
055858,000500: 11,3241 57605 0 -7,2 # 2) ABVAL(TDELTAV) EQUALS OR EXCEEDS
055859,000501: 11,3242 45271 DDV DSU # .01(ABVAL(RCV))
055860,000502: 11,3243 00013 10D
055861,000503: 11,3244 27767 RECRATIO
055862,000504: 11,3245 77244 BPL VLOAD
055863,000505: 11,3246 23256 CALLRECT
055864,000506: 11,3247 01527 TNUV
055865,000507: 11,3250 45246 ABVAL DSU
055866,000508: 11,3251 23746 3/4
055867,000509: 11,3252 77600 BOV
055868,000510: 11,3253 23256 CALLRECT
055869,000511: 11,3254 77640 BMN
055870,000512: 11,3255 23260 INTGRATE
055871,000513: 11,3256 77624 CALLRECT CALL
055872,000514: 11,3257 23403 RECTIFY
055873,000515: 11,3260 77775 INTGRATE VLOAD
055874,000516: 11,3261 01527 TNUV
055875,000517: 11,3262 25120 STOVL ZV
055876,000518: 11,3263 01521 TDELTAV
055877,000519: 11,3264 01112 STORE YV
055878,000520: 11,3265 77614 CLEAR
055879,000521: 11,3266 00261 JSWITCH
055880,000522: 11,3267 66375 DIFEQ0 VLOAD SSP
055881,000523: 11,3270 01112 YV
055882,000524: 11,3271 01501 DIFEQCNT
055883,000525: 11,3272 00000 0
055884,000526: 11,3273 16152 STODL ALPHAV
055885,000527: 11,3274 11566 DPZERO
055886,000528: 11,3275 02212 STORE H # START H AT ZERO. GOES 0(DELT/2)DELT.
055887,000529: 11,3276 52014 BON GOTO
055888,000530: 11,3277 00301 JSWITCH
055889,000531: 11,3300 23647 DOW..
055890,000532: 11,3301 22441 ACCOMP
055891,000533:
055892,000534: 11,3302 43020 CHKSWTCH STQ BOF
055893,000535: 11,3303 02270 ORIGEX
055894,000536: 11,3304 04340 RPQFLAG
055895,000537: 11,3305 23315 RPQOK # MOON POSITION IS AVAILABLE
055896,000538: 11,3306 45145 DLOAD CALL
055897,000539: 11,3307 01517 TET
055898,000540: 11,3310 54115 LUNPOS # GET MOON POSITION
055899,000541: 11,3311 57414 BOF VCOMP
055900,000542: 11,3312 00343 MOONFLAG
055901,000543: 11,3313 23314 +1
055902,000544: 11,3314 02263 STORE RPQV
055903,000545:
055904,000546: 11,3315 77354 RPQOK LXA,2 VLOAD # RESTORE X2 AFTER USING LUNPOS
055905,000547: 11,3316 02150 PBODY
055906,000548: 11,3317 01521 TDELTAV # -
055907,000549: 11,3320 53257 VSL* VAD # |RQC|-RSPHERE WHEN OUTSIDE THE SPHERE.
055908,000550: 11,3321 57605 0 -7,2 # - - -
055909,000551: 11,3322 01535 RCV # R = RDEVIATION + RCONIC
055910,000552: 11,3323 51414 BOF ABVAL
055911,000553: 11,3324 00343 MOONFLAG
055912,000554: 11,3325 23332 EARSPH
055913,000555: 11,3326 44302 SR2 BDSU # INSIDE
055914,000556: 11,3327 27771 RSPHERE
055915,000557: 11,3330 77650 GOTO
055916,000558: 11,3331 02270 ORIGEX
055917,000559: 11,3332 51451 EARSPH VSU ABVAL # OUTSIDE
055918,000560: 11,3333 02263 RPQV
055919,000561: 11,3334 52025 DSU GOTO
055920,000562: 11,3335 27771 RSPHERE
055921,000563: 11,3336 02270 ORIGEX
055922,000564:
055923,000565: 11,3337 77624 DOSWITCH CALL
055924,000566: 11,3340 23343 ORIGCHNG
055925,000567: 11,3341 77650 GOTO
055926,000568: 11,3342 23260 INTGRATE
055927,000569:
055928,000570: 11,3343 45020 ORIGCHNG STQ CALL
055929,000571: 11,3344 02270 ORIGEX
055930,000572: 11,3345 23403 RECTIFY
055931,000573: 11,3346 53775 VLOAD VSL*
055932,000574: 11,3347 01535 RCV
055933,000575: 11,3350 57576 0,2
055934,000576: 11,3351 53651 VSU VSL*
055935,000577: 11,3352 02263 RPQV
055936,000578: 11,3353 57574 2,2
055937,000579: 11,3354 01503 STORE RRECT
055938,000580: 11,3355 15535 STODL RCV
055939,000581: 11,3356 01517 TET
055940,000582: 11,3357 77624 CALL
055941,000583: 11,3360 54120 LUNVEL
055942,000584: 11,3361 57414 BOF VCOMP
055943,000585: 11,3362 00343 MOONFLAG
055944,000586: 11,3363 23364 +1
055945,000587: 11,3364 53715 PDVL VSL*
055946,000588: 11,3365 01543 VCV
055947,000589: 11,3366 57576 0,2
055948,000590: 11,3367 77651 VSU
055949,000591: 11,3370 77657 VSL*
055950,000592: 11,3371 57574 0 +2,2
055951,000593: 11,3372 01511 STORE VRECT
055952,000594: 11,3373 01543 STORE VCV
055953,000595: 11,3374 67154 LXA,2 SXA,2
055954,000596: 11,3375 02270 ORIGEX
055955,000597: 11,3376 00052 QPRET
055956,000598: 11,3377 52014 BON GOTO
055957,000599: 11,3400 00303 MOONFLAG
055958,000600: 11,3401 26745 CLRMOON
055959,000601: 11,3402 26752 SETMOON
055960,000602: # THE RECTIFY SUBROUTINE IS CALLED BY THE INTEGRATION PROGRAM AND OCCASIONALLY BY THE MEASUREMENT INCORPORATION
055961,000603: # ROUTINES TO ESTABLISH A NEW CONIC.
055962,000604:
055963,000605: 11,3403 77354 RECTIFY LXA,2 VLOAD
055964,000606: 11,3404 02150 PBODY
055965,000607: 11,3405 01521 TDELTAV
055966,000608: 11,3406 53257 VSL* VAD
055967,000609: 11,3407 57605 0 -7,2
055968,000610: 11,3410 01535 RCV
055969,000611: 11,3411 01503 STORE RRECT
055970,000612: 11,3412 25535 STOVL RCV
055971,000613: 11,3413 01527 TNUV
055972,000614: 11,3414 53257 VSL* VAD
055973,000615: 11,3415 57602 0 -4,2
055974,000616: 11,3416 01543 VCV
055975,000617: 11,3417 01511 MINIRECT STORE VRECT
055976,000618: 11,3420 25543 STOVL VCV
055977,000619: 11,3421 11566 ZEROVEC
055978,000620: 11,3422 01521 STORE TDELTAV
055979,000621: 11,3423 15527 STODL TNUV
055980,000622: 11,3424 11566 ZEROVEC
055981,000623: 11,3425 01551 STORE TC
055982,000624: 11,3426 01553 STORE XKEP
055983,000625: 11,3427 77616 RVQ
055984,000626:
055985,000627: # THE THREE DIFEQ ROUTINES - DIFEQ+0, DIFEQ+12, AND DIFEQ+24 - ARE ENTEREDTO PROCESS THE CONTRIBUTIONS AT THE
055986,000628: # BEGINNING, MIDDLE, AND END OF THE TIMESTEP, RESPECTIVELY. THE UPDATING IS DONE BY THE NYSTROM METHOD.
055987,000629:
055988,000630: 11,3430 64575 DIFEQ+0 VLOAD VSR3
055989,000631: 11,3431 02202 FV
055990,000632: 11,3432 36166 STCALL PHIV
055991,000633: 11,3433 23610 DIFEQCOM
055992,000634: 11,3434 74575 DIFEQ+1 VLOAD VSR1
055993,000635: 11,3435 02202 FV
055994,000636: 11,3436 53206 PUSH VAD
055995,000637: 11,3437 02166 PHIV
055996,000638: 11,3440 26174 STOVL PSIV
055997,000639: 11,3441 53362 VSR1 VAD
055998,000640: 11,3442 02166 PHIV
055999,000641: 11,3443 36166 STCALL PHIV
056000,000642: 11,3444 23610 DIFEQCOM
056001,000643: 11,3445 57345 DIFEQ+2 DLOAD DMPR
056002,000644: 11,3446 02212 H
056003,000645: 11,3447 23756 DP2/3
056004,000646: 11,3450 74206 PUSH VXSC
056005,000647: 11,3451 02166 PHIV
056006,000648: 11,3452 53372 VSL1 VAD
056007,000649: 11,3453 01120 ZV
056008,000650: 11,3454 53361 VXSC VAD
056009,000651: 11,3455 02212 H
056010,000652: 11,3456 01112 YV
056011,000653: 11,3457 25112 STOVL YV
056012,000654: 11,3460 02202 FV
056013,000655: 11,3461 53322 VSR3 VAD
056014,000656: 11,3462 02174 PSIV
056015,000657: 11,3463 76561 VXSC VSL1
056016,000658: 11,3464 77655 VAD
056017,000659: 11,3465 01120 ZV
056018,000660: 11,3466 01120 STORE ZV
056019,000661: 11,3467 45014 BOFF CALL
056020,000662: 11,3470 00341 JSWITCH
056021,000663: 11,3471 23541 ENDSTATE
056022,000664: 11,3472 56751 GRP2PC
056023,000665: 11,3473 77354 LXA,2 VLOAD
056024,000666: 11,3474 01102 COLREG
056025,000667: 11,3475 01120 ZV
056026,000668: 11,3476 77732 VSL3 # ADJUST W-POSITION FOR STORAGE
056027,000669: 11,3477 12467 STORE W +54D,2
056028,000670: 11,3500 77775 VLOAD
056029,000671: 11,3501 01112 YV
056030,000672: 11,3502 40132 VSL3 BOV
056031,000673: 11,3503 23633 WMATEND
056032,000674: 11,3504 12401 STORE W,2
056033,000675:
056034,000676: 11,3505 77624 CALL
056035,000677: 11,3506 56751 GRP2PC
056036,000678: 11,3507 66354 LXA,2 SSP
056037,000679: 11,3510 01102 COLREG
056038,000680: 11,3511 00052 S2
056039,000681: 11,3512 00000 0
056040,000682: 11,3513 67114 INCR,2 SXA,2
056041,000683: 11,3514 00006 6
056042,000684: 11,3515 01111 YV
056043,000685: 11,3516 45104 TIX,2 CALL
056044,000686: 11,3517 23604 RELOADSV
056045,000687: 11,3520 56751 GRP2PC
056046,000688: 11,3521 67154 LXA,2 SXA,2
056047,000689: 11,3522 01111 YV
056048,000690: 11,3523 01102 COLREG
056049,000691:
056050,000692: 11,3524 77624 NEXTCOL CALL
056051,000693: 11,3525 56751 GRP2PC
056052,000694: 11,3526 76754 LXA,2 VLOAD*
056053,000695: 11,3527 01102 COLREG
056054,000696: 11,3530 75376 W,2
056055,000697: 11,3531 77722 VSR3 # ADJUST W-POSITION FOR INTEGRATION
056056,000698: 11,3532 01112 STORE YV
056057,000699: 11,3533 76173 VLOAD* AXT,1
056058,000700: 11,3534 75310 W +54D,2
056059,000701: 11,3535 00000 0
056060,000702: 11,3536 77722 VSR3 # ADJUST W-VELOCITY FOR INTEGRATION
056061,000703: 11,3537 35120 STCALL ZV
056062,000704: 11,3540 23267 DIFEQ0
056063,000705:
056064,000706: 11,3541 77200 ENDSTATE BOV VLOAD
056065,000707: 11,3542 22711 GOBAQUE
056066,000708: 11,3543 01120 ZV
056067,000709: 11,3544 25527 STOVL TNUV
056068,000710: 11,3545 01112 YV
056069,000711: 11,3546 01521 STORE TDELTAV
056070,000712: 11,3547 43014 BON BOFF
056071,000713: 11,3550 04715 MIDAVFLG
056072,000714: 11,3551 27643 CKMID2 # CHECK FOR MID2 BEFORE GOING TO TIMEINC
056073,000715: 11,3552 01756 DIM0FLAG
056074,000716: 11,3553 27315 TESTLOOP
056075,000717: 11,3554 77776 EXIT
056076,000718: 11,3555 05426 TC PHASCHNG
056077,000719: 11,3556 04022 OCT 04022 # PHASE 1
056078,000720: 11,3557 05562 TC UPFLAG # PHASE CHANGE HAS OCCURRED BETWEEN
056079,000721: 11,3560 00236 ADRES REINTFLG # INTSTALL AND INTWAKE
056080,000722: 11,3561 06006 TC INTPRET
056081,000723: 11,3562 77731 SSP
056082,000724: 11,3563 00053 QPRET
056083,000725: 11,3564 23571 AMOVED
056084,000726: 11,3565 52014 BON GOTO
056085,000727: 11,3566 01714 VINTFLAG
056086,000728: 11,3567 26715 ATOPCSM
056087,000729: 11,3570 26770 ATOPLEM
056088,000730: 11,3571 66214 AMOVED SET SSP
056089,000731: 11,3572 00061 JSWITCH
056090,000732: 11,3573 01103 COLREG
056091,000733: 11,3574 77741 DEC -30 B-14
056092,000734: 11,3575 66214 BOFF SSP
056093,000735: 11,3576 01755 D6OR9FLG
056094,000736: 11,3577 23524 NEXTCOL
056095,000737: 11,3600 01103 COLREG
056096,000738: 11,3601 77717 DEC -48 B-14
056097,000739: 11,3602 77650 GOTO
056098,000740: 11,3603 23524 NEXTCOL
056099,000741:
056100,000742: 11,3604 77745 RELOADSV DLOAD # RELOAD TEMPORARY STATE VECTOR
056101,000743: 11,3605 01101 TDEC # FROM PERMANENT IN CASE OF
056102,000744: 11,3606 34041 STCALL TDEC1
056103,000745: 11,3607 27177 INTEGRV2 # BY STARTING AT INTEGRV2.
056104,000746: 11,3610 43345 DIFEQCOM DLOAD DAD # INCREMENT H AND DIFEQCNT.
056105,000747: 11,3611 02314 DT/2
056106,000748: 11,3612 02212 H
056107,000749: 11,3613 66110 INCR,1 SXA,1
056108,000750: 11,3614 77763 DEC -12 B-14
056109,000751: 11,3615 01500 DIFEQCNT # DIFEQCNT SET FOR NEXT ENTRY.
056110,000752: 11,3616 02212 STORE H
056111,000753: 11,3617 74561 VXSC VSR1
056112,000754: 11,3620 02202 FV
056113,000755: 11,3621 74255 VAD VXSC
056114,000756: 11,3622 01120 ZV
056115,000757: 11,3623 02212 H
056116,000758: 11,3624 77655 VAD
056117,000759: 11,3625 01112 YV
056118,000760: 11,3626 02152 STORE ALPHAV
056119,000761: 11,3627 52014 BON GOTO
056120,000762: 11,3630 00301 JSWITCH
056121,000763: 11,3631 23647 DOW..
056122,000764: 11,3632 22421 FBR3
056123,000765:
056124,000766: 11,3633 43014 WMATEND CLEAR CLEAR
056125,000767: 11,3634 01676 DIM0FLAG # DONT INTEGRATE W THIS TIME
056126,000768: 11,3635 01671 ORBWFLAG # INVALIDATE W
056127,000769: 11,3636 77614 CLEAR
056128,000770: 11,3637 02676 RENDWFLG
056129,000771: 11,3640 77414 SET EXIT
056130,000772: 11,3641 01472 STATEFLG # PICK UP STATE VECTOR UPDATE
056131,000773: 11,3642 05664 TC ALARM
056132,000774: 11,3643 00421 OCT 421
056133,000775: 11,3644 06006 TC INTPRET
056134,000776: 11,3645 77650 GOTO
056135,000777: 11,3646 27315 TESTLOOP # FINISH INTEGRATING STATE VECTOR
056136,000778:
056137,000779: # ORBITAL ROUTINE FOR EXTRAPOLATION OF THE W MATRIX. IT COMPUTES THE SECOND DERIVATIVE OF EACH COLUMN POSITION
056138,000780: # VECTOR OF THE MATRIX AND CALLS THE NYSTROM INTEGRATION ROUTINES TO SOLVE THE DIFFERENTIAL EQUATIONS. THE PROGRAM
056139,000781: # USES A TABLE OF VEHICLE POSITION VECTORS COMPUTED DURING THE INTEGRATION OF THE VEHICLES POSITION AND VELOCITY.
056140,000782:
056141,000783: 11,3647 70754 DOW.. LXA,2 DLOAD*
056142,000784: 11,3650 02150 PBODY
056143,000785: 11,3651 50032 MUEARTH,2
056144,000786: 11,3652 36210 STCALL BETAM
056145,000787: 11,3653 23675 DOW..1
056146,000788: 11,3654 02202 STORE FV
056147,000789: 11,3655 62014 BOF INCR,1
056148,000790: 11,3656 00342 MIDFLAG
056149,000791: 11,3657 23175 NBRANCH
056150,000792: 11,3660 77771 DEC -6 B-14
056151,000793: 11,3661 70744 LXC,2 DLOAD*
056152,000794: 11,3662 02150 PBODY
056153,000795: 11,3663 50034 MUEARTH -2,2
056154,000796: 11,3664 36210 STCALL BETAM
056155,000797: 11,3665 23675 DOW..1
056156,000798: 11,3666 50414 BON VSR6
056157,000799: 11,3667 00303 MOONFLAG
056158,000800: 11,3670 23671 +1
056159,000801: 11,3671 77655 VAD
056160,000802: 11,3672 02202 FV
056161,000803: 11,3673 36202 STCALL FV
056162,000804: 11,3674 23175 NBRANCH
056163,000805: 11,3675 60575 DOW..1 VLOAD VSR4
056164,000806: 11,3676 02152 ALPHAV
056165,000807: 11,3677 53513 PDVL* UNIT
056166,000808: 11,3700 02217 VECTAB,1
056167,000809: 11,3701 46315 PDVL VPROJ
056168,000810: 11,3702 02152 ALPHAV
056169,000811: 11,3703 52361 VXSC VSU
056170,000812: 11,3704 23746 3/4
056171,000813: 11,3705 60325 PDDL NORM
056172,000814: 11,3706 00045 36D
056173,000815: 11,3707 00052 S2
056174,000816: 11,3710 63406 PUSH DSQ
056175,000817: 11,3711 77605 DMP
056176,000818: 11,3712 65301 NORM PDDL
056177,000819: 11,3713 00043 34D
056178,000820: 11,3714 02210 BETAM
056179,000821: 11,3715 56342 SR1 DDV
056180,000822: 11,3716 77761 VXSC
056181,000823: 11,3717 57154 LXA,2 XAD,2
056182,000824: 11,3720 00051 S2
056183,000825: 11,3721 00051 S2
056184,000826: 11,3722 57074 XAD,2 XAD,2
056185,000827: 11,3723 00051 S2
056186,000828: 11,3724 00042 34D
056187,000829: 11,3725 43457 VSL* RVQ
056188,000830: 11,3726 57606 0 -8D,2
056189,000831:
056190,000832: 11,2000 SETLOC ORBITAL1
056191,000833: 11,2000 BANK
056192,000834:
056193,000835: 11,3727 04631 23146 3/5 2DEC .6 B-2
056194,000836: 11,3731 14000 00000 THREE/8 2DEC .375
056195,000837: 11,3733 02314 31463 .3D 2DEC .3 B-2
056196,000838: 11,3735 01400 00000 3/64 2DEC 3 B-6
056197,000839: 11,3737 10000 00000 DP1/4 2DEC .25
056198,000840: 11,3741 11,3737 DQUARTER EQUALS DP1/4
056199,000841: 11,3741 11,3737 POS1/4 EQUALS DP1/4
056200,000842: 11,3741 03000 00000 3/32 2DEC 3 B-5
056201,000843: 11,3743 36000 00000 15/16 2DEC 15. B-4
056202,000844: 11,3745 30000 00000 3/4 2DEC 3.0 B-2
056203,000845: 11,3747 22525 12525 7/12 2DEC .5833333333
056204,000846: 11,3751 22000 00000 9/16 2DEC 9 B-4
056205,000847: 11,3753 01200 00000 5/128 2DEC 5 B-7
056206,000848: 11,3755 04,3565 DPZERO EQUALS ZEROVEC
056207,000849: 11,3755 25252 25253 DP2/3 2DEC .6666666667
056208,000850: 11,3757 11,3755 2/3 EQUALS DP2/3
056209,000851: 11,3757 00027 OCT27 OCT 27
056210,000852: # LM504 IS TEMPORARY
056211,000853: 13,3724 BANK 13
056212,000854: 13,2000 SETLOC ORBITAL2
056213,000855: 13,2000 BANK
056214,000856: # IT IS VITAL THAT THE FOLLOWING CONSTANTS NOT BE SHUFFLED
056215,000857: 13,3724 77764 DEC -11 B-14
056216,000858: 13,3725 77775 DEC -2 B-14
056217,000859: 13,3726 77766 DEC -9 B-14
056218,000860: 13,3727 77771 DEC -6 B-14
056219,000861: 13,3730 77775 DEC -2 B-14
056220,000862: 13,3731 77775 DEC -2 B-14
056221,000863: 13,3732 00000 DEC 0 B-14
056222,000864: 13,3733 77763 DEC -12 B-14
056223,000865: 13,3734 77766 DEC -9 B-14
056224,000866: 13,3735 77773 DEC -4 B-14
056225,000867: 13,3736 77770 ASCALE DEC -7 B-14
056226,000868: 13,3737 77771 DEC -6 B-14
056227,000869: 13,3740 27446 14620 2DEC* 1.32715445 E16 B-54* # S
056228,000870: 13,3742 16471 01352 2DEC* 4.9027780 E8 B-30* # M
056229,000871: 13,3744 22437 16067 MUEARTH 2DEC* 3.986032 E10 B-36*
056230,000872: 13,3746 00000 00000 2DEC 0 B-28
056231,000873: 13,3750 02302 24736 J4REQ/J3 2DEC* .4991607391 E7 B-26*
056232,000874: 13,3752 77651 76237 2DEC -176236.02 B-25
056233,000875: 13,3754 77776 53032 2J3RE/J2 2DEC* -.1355426363 E5 B-27*
056234,000876: 13,3756 10407 05344 2DEC* .3067493316 E18 B-60*
056235,000877: 13,3760 13710 35320 J2REQSQ 2DEC* 1.75501139 E21 B-72*
056236,000878: 13,3762 24000 00000 5/8 2DEC 5 B-3
056237,000879: 13,3764 74631 63145 -1/12 2DEC -.1
056238,000880: 13,3766 13,3742 MUM = MUEARTH -2
056239,000881: 13,3766 00243 32703 RECRATIO 2DEC .01
056240,000882: 13,3770 03654 21000 RSPHERE 2DEC 64373.76 E3 B-29
056241,000883: 13,3772 03654 21000 RDM 2DEC 16093.44 E3 B-27
056242,000884: 13,3774 04627 25200 RDE 2DEC 80467.20 E3 B-29
056243,000885: 13,3776 RATT EQUALS 00
056244,000886: 13,3776 VATT EQUALS 6D
056245,000887: 13,3776 TAT EQUALS 12D
056246,000888: 13,3776 RATT1 EQUALS 14D
056247,000889: 13,3776 VATT1 EQUALS 20D
056248,000890: 13,3776 MU(P) EQUALS 26D
056249,000891: 13,3776 TDEC1 EQUALS 32D
056250,000892: 13,3776 URPV EQUALS 14D
056251,000893: 13,3776 0022 COSPHI/2 EQUALS URPV +4
056252,000894: 13,3776 UZ EQUALS 20D
056253,000895: 13,3776 TVEC EQUALS 26D
056254,000896:
056255,000897:
056256,000898:
End of include-file ORBITAL_INTEGRATION.agc. Parent file is MAIN.agc