Source Code
056339,000001: # Copyright: Public domain.
056340,000002: # Filename: ORBITAL_INTEGRATION.agc
056341,000003: # Purpose: Part of the source code for Colossus, build 249.
056342,000004: # It is part of the source code for the Command Module's (CM)
056343,000005: # Apollo Guidance Computer (AGC), possibly for Apollo 8 and 9.
056344,000006: # Assembler: yaYUL
056345,000007: # Reference: p. 1314 of 1701.pdf.
056346,000008: # Contact: Ron Burkey <info@sandroid.org>.
056347,000009: # Website: www.ibiblio.org/apollo.
056348,000010: # Mod history: 08/29/04 RSB. Began adapting from correspoinding Luminary131 file.
056349,000011:
056350,000012: # The contents of the "Colossus249" files, in general, are transcribed
056351,000013: # from a scanned document obtained from MIT's website,
056352,000014: # http://hrst.mit.edu/hrs/apollo/public/archive/1701.pdf. Notations on this
056353,000015: # document read, in part:
056354,000016:
056355,000017: # Assemble revision 249 of AGC program Colossus by NASA
056356,000018: # 2021111-041. October 28, 1968.
056357,000019:
056358,000020: # This AGC program shall also be referred to as
056359,000021: # Colossus 1A
056360,000022:
056361,000023: # Prepared by
056362,000024: # Massachusetts Institute of Technology
056363,000025: # 75 Cambridge Parkway
056364,000026: # Cambridge, Massachusetts
056365,000027: # under NASA contract NAS 9-4065.
056366,000028:
056367,000029: # Refer directly to the online document mentioned above for further information.
056368,000030: # Please report any errors (relative to 1701.pdf) to info@sandroid.org.
056369,000031:
056370,000032: # In some cases, where the source code for Luminary 131 overlaps that of
056371,000033: # Colossus 249, this code is instead copied from the corresponding Luminary 131
056372,000034: # source file, and then is proofed to incorporate any changes.
056373,000035:
056374,000036: # Page 1314
056375,000037: # ORBITAL INTEGRATION
056376,000038:
056377,000039: # DELETE
056378,000040: 13,3715 BANK 13
056379,000041: 11,2000 SETLOC ORBITAL
056380,000042: 11,2000 BANK
056381,000043: 11,2310 COUNT 11/ORBIT
056382,000044:
056383,000045: # DELETE
056384,000046: 11,2310 40354 KEPPREP LXA,2 SETPD
056385,000047: 11,2311 02150 PBODY
056386,000048: 11,2312 00001 0
056387,000049: 11,2313 75543 DLOAD* SQRT # SQRT(MU) (+18 OR +15) 0D PL 2D
056388,000050: 11,2314 50041 MUEARTH,2
056389,000051: 11,2315 53515 PDVL UNIT # PL 8D
056390,000052: 11,2316 01535 RCV
056391,000053: 11,2317 60325 PDDL NORM # NORM R (+29 OR +27 - N1) 2D PL 4D
056392,000054: 11,2320 00045 36D
056393,000055: 11,2321 00047 X1
056394,000056: 11,2322 77715 PDVL
056395,000057: 11,2323 65241 DOT PDDL # F*SQRT(MU) (+7 OR +5) 4D PL 6D
056396,000058: 11,2324 01543 VCV
056397,000059: 11,2325 02312 TAU. # (+28)
056398,000060: 11,2326 60225 DSU NORM
056399,000061: 11,2327 01551 TC
056400,000062: 11,2330 00051 S1
056401,000063: 11,2331 77742 SR1
056402,000064: 11,2332 65271 DDV PDDL
056403,000065: 11,2333 00003 2D
056404,000066: 11,2334 41405 DMP PUSH # FS (+6 +N1-N2) 6D PL 8D
056405,000067: 11,2335 00005 4D
056406,000068: 11,2336 65316 DSQ PDDL # (FS)SQ (+12 +2(N1-N2)) 8D PL 10D
056407,000069: 11,2337 00005 4D
056408,000070: 11,2340 64716 DSQ PDDL* # SSQ/MU (-20R +2(N1-N2)) 10D PL 12D
056409,000071: 11,2341 50041 MUEARTH,2
056410,000072: 11,2342 40442 SR3 SR4
056411,000073: 11,2343 47515 PDVL VSQ # PREALIGN MU (+43 OR +37) 12D PL 14D
056412,000074: 11,2344 01543 VCV
056413,000075: 11,2345 44205 DMP BDSU # PL 12D
056414,000076: 11,2346 00045 36D
056415,000077: 11,2347 41271 DDV DMP # PL 10D
056416,000078: 11,2350 00003 2D # -(1/R-ALPHA) (+12 +3N1-2N2)
056417,000079: 11,2351 53605 DMP SL*
056418,000080: 11,2352 23717 DP2/3
056419,000081: 11,2353 20176 0 -3,1 # 10L(1/R-ALPHA) (+13 +2(N1-N2))
056420,000082: 11,2354 43260 XSU,1 DAD # 2(FS)SQ - ETCETERA PL 8D
056421,000083: 11,2355 00050 S1 # X1 = N2-N1
056422,000084: 11,2356 45257 SL* DSU # -FS+2(FS)SQ ETC (+6 +N1-N2) PL 6D
056423,000085: 11,2357 20211 8D,1
056424,000086: 11,2360 41205 DMP DMP
056425,000087: 11,2361 00001 0D
056426,000088: 11,2362 00005 4D
056427,000089: 11,2363 53657 SL* SL*
056428,000090: # Page 1315
056429,000091: 11,2364 20211 8D,1
056430,000092: 11,2365 20201 0,1 # S(-FS(1-2FS)-1/6...) (+17 OR +16)
056431,000093: 11,2366 65215 DAD PDDL # PL 6D
056432,000094: 11,2367 01553 XKEP
056433,000095: 11,2370 53605 DMP SL* # S(+17 OR +16)
056434,000096: 11,2371 00001 0D
056435,000097: 11,2372 20202 1,1
056436,000098: 11,2373 43204 BOVB DAD
056437,000099: 11,2374 57343 TCDANZIG
056438,000100: 11,2375 77626 STADR
056439,000101: 11,2376 75471 STORE XKEPNEW
056440,000102: 11,2377 74020 STQ AXC,1
056441,000103: 11,2400 02270 KEPRTN
056442,000104: 11,2401 00012 DEC 10 B-14
056443,000105: 11,2402 74014 BON AXC,1
056444,000106: 11,2403 00303 MOONFLAG
056445,000107: 11,2404 24000 KEPLERN
056446,000108: 11,2405 00002 DEC 2 B-14
056447,000109: 11,2406 77650 GOTO
056448,000110: 11,2407 24000 KEPLERN
056449,000111:
056450,000112: # Page 1316
056451,000113: 11,2410 66350 FBR3 LXA,1 SSP
056452,000114: 11,2411 01500 DIFEQCNT
056453,000115: 11,2412 00051 S1
056454,000116: 11,2413 77762 DEC -13 B-14
056455,000117: 11,2414 54345 DLOAD SR
056456,000118: 11,2415 02314 DT/2
056457,000119: 11,2416 20612 9D
056458,000120: 11,2417 61500 TIX,1 ROUND
056459,000121: 11,2420 22421 +1
056460,000122: 11,2421 43206 PUSH DAD
056461,000123: 11,2422 01551 TC
056462,000124: 11,2423 16312 STODL TAU.
056463,000125: 11,2424 77615 DAD
056464,000126: 11,2425 01517 TET
056465,000127: 11,2426 35517 STCALL TET
056466,000128: 11,2427 22310 KEPPREP
056467,000129:
056468,000130: # Page 1317
056469,000131: # AGC ROUTINE TO COMPUTE ACCELERATION COMPONENTS.
056470,000132:
056471,000133: 11,2430 73150 ACCOMP LXA,1 LXA,2
056472,000134: 11,2431 02150 PBODY
056473,000135: 11,2432 02150 PBODY
056474,000136: 11,2433 77775 VLOAD
056475,000137: 11,2434 11456 ZEROVEC
056476,000138: 11,2435 26202 STOVL FV
056477,000139: 11,2436 02152 ALPHAV
056478,000140: 11,2437 53257 VSL* VAD
056479,000141: 11,2440 57605 0 -7,2
056480,000142: 11,2441 01535 RCV
056481,000143: 11,2442 02160 STORE BETAV
056482,000144: 11,2443 65014 BOF XCHX,2
056483,000145: 11,2444 01756 DIM0FLAG
056484,000146: 11,2445 22452 +5
056485,000147: 11,2446 01500 DIFEQCNT
056486,000148: 11,2447 12217 STORE VECTAB,2
056487,000149: 11,2450 77724 XCHX,2
056488,000150: 11,2451 01500 DIFEQCNT
056489,000151: 11,2452 53575 VLOAD UNIT
056490,000152: 11,2453 02152 ALPHAV
056491,000153: 11,2454 16152 STODL ALPHAV
056492,000154: 11,2455 00045 36D
056493,000155: 11,2456 02310 STORE ALPHAM
056494,000156: 11,2457 77624 CALL
056495,000157: 11,2460 22562 GAMCOMP
056496,000158: 11,2461 66175 VLOAD SXA,1
056497,000159: 11,2462 02160 BETAV
056498,000160: 11,2463 00051 S2
056499,000161: 11,2464 16152 STODL ALPHAV
056500,000162: 11,2465 02210 BETAM
056501,000163: 11,2466 02310 STORE ALPHAM
056502,000164: 11,2467 71214 BOF DLOAD
056503,000165: 11,2470 00342 MIDFLAG
056504,000166: 11,2471 22725 OBLATE
056505,000167: 11,2472 01517 TET
056506,000168: 11,2473 77624 CALL
056507,000169: 11,2474 54110 LSPOS
056508,000170: 11,2475 72174 AXT,2 LXA,1
056509,000171: 11,2476 00002 2
056510,000172: 11,2477 00051 S2
056511,000173: 11,2500 77614 BOF
056512,000174: 11,2501 00343 MOONFLAG
056513,000175: 11,2502 22505 +3
056514,000176: 11,2503 77076 VCOMP AXT,2
056515,000177: 11,2504 00000 0
056516,000178: 11,2505 02160 STORE BETAV
056517,000179: 11,2506 26263 STOVL RPQV
056518,000180: # Page 1318
056519,000181: 11,2507 00003 2D
056520,000182: 11,2510 02300 STORE RPSV
056521,000183: 11,2511 45335 SLOAD DSU
056522,000184: 11,2512 01012 MODREG
056523,000185: 11,2513 23721 OCT27
056524,000186: 11,2514 43030 BHIZ BOF
056525,000187: 11,2515 22520 +3
056526,000188: 11,2516 01756 DIM0FLAG
056527,000189: 11,2517 22534 GETRPSV
056528,000190: 11,2520 74375 VLOAD VXSC
056529,000191: 11,2521 02152 ALPHAV
056530,000192: 11,2522 02310 ALPHAM
056531,000193: 11,2523 52257 VSR* VSU
056532,000194: 11,2524 57175 1,2
056533,000195: 11,2525 02160 BETAV
056534,000196: 11,2526 77724 XCHX,2
056535,000197: 11,2527 01500 DIFEQCNT
056536,000198: 11,2530 12225 STORE VECTAB +6,2
056537,000199: 11,2531 02272 STORE RQVV
056538,000200: 11,2532 77724 XCHX,2
056539,000201: 11,2533 01500 DIFEQCNT
056540,000202: 11,2534 62175 GETRPSV VLOAD INCR,1
056541,000203: 11,2535 02263 RPQV
056542,000204: 11,2536 00004 4
056543,000205: 11,2537 43014 CLEAR BOF
056544,000206: 11,2540 04260 RPQFLAG
056545,000207: 11,2541 00343 MOONFLAG
056546,000208: 11,2542 22547 +5
056547,000209: 11,2543 53261 VSR VAD
056548,000210: 11,2544 20612 9D
056549,000211: 11,2545 02300 RPSV
056550,000212: 11,2546 02300 STORE RPSV
056551,000213: 11,2547 77624 CALL
056552,000214: 11,2550 22562 GAMCOMP
056553,000215: 11,2551 62174 AXT,2 INCR,1
056554,000216: 11,2552 00004 4
056555,000217: 11,2553 00004 4
056556,000218: 11,2554 77775 VLOAD
056557,000219: 11,2555 02300 RPSV
056558,000220: 11,2556 36160 STCALL BETAV
056559,000221: 11,2557 22562 GAMCOMP
056560,000222: 11,2560 77650 GOTO
056561,000223: 11,2561 22725 OBLATE
056562,000224: 11,2562 74575 GAMCOMP VLOAD VSR1
056563,000225: 11,2563 02160 BETAV
056564,000226: 11,2564 40236 VSQ SETPD
056565,000227: 11,2565 00001 0
056566,000228: 11,2566 61501 NORM ROUND
056567,000229: 11,2567 00040 31D
056568,000230: 11,2570 60325 PDDL NORM # NORMED B SQUARED TO PD LIST
056569,000231: # Page 1319
056570,000232: 11,2571 02310 ALPHAM # NORMALIZE (LESS ONE) LENGTH OF ALPHA
056571,000233: 11,2572 00041 32D # SAVING NORM SCALE FACTOR IN X1
056572,000234: 11,2573 63342 SR1 PDVL
056573,000235: 11,2574 02160 BETAV # C(PDL+2) = ALMOST NORMED ALPHA
056574,000236: 11,2575 77656 UNIT
056575,000237: 11,2576 16160 STODL BETAV
056576,000238: 11,2577 00045 36D
056577,000239: 11,2600 02210 STORE BETAM
056578,000240: 11,2601 55301 NORM BDDV # FORM NORMALIZE QUOTIEN ALPHAM/BETAM
056579,000241: 11,2602 00042 33D
056580,000242: 11,2603 41562 SR1R PUSH # C(PDL+2) = ALMOST NORMALIZE RHO.
056581,000243: 11,2604 77743 DLOAD*
056582,000244: 11,2605 27730 ASCALE,1
056583,000245: 11,2606 00051 STORE S1
056584,000246: 11,2607 57124 XCHX,2 XAD,2
056585,000247: 11,2610 00050 S1
056586,000248: 11,2611 00040 32D
056587,000249: 11,2612 71264 XSU,2 DLOAD
056588,000250: 11,2613 00041 33D
056589,000251: 11,2614 00003 2D
056590,000252: 11,2615 65057 SR* XCHX,2
056591,000253: 11,2616 57177 0 -1,2
056592,000254: 11,2617 00050 S1
056593,000255: 11,2620 74406 PUSH SR1R # RHO/4 TO 4D
056594,000256: 11,2621 50315 PDVL DOT
056595,000257: 11,2622 02152 ALPHAV
056596,000258: 11,2623 02160 BETAV
056597,000259: 11,2624 44372 SL1R BDSU # (RHO/4) - 2(ALPHAV/2.BETAV/2)
056598,000260: 11,2625 57206 PUSH DMPR # TO PDL+6
056599,000261: 11,2626 00005 4
056600,000262: 11,2627 77752 SL1
056601,000263: 11,2630 43206 PUSH DAD
056602,000264: 11,2631 23701 DQUARTER
056603,000265: 11,2632 75406 PUSH SQRT
056604,000266: 11,2633 41475 DMPR PUSH
056605,000267: 11,2634 00013 10D
056606,000268: 11,2635 43352 SL1 DAD
056607,000269: 11,2636 23701 DQUARTER
056608,000270: 11,2637 43325 PDDL DAD # (1/4)+2((Q+1)/4) TO PD+14D
056609,000271: 11,2640 00013 10D
056610,000272: 11,2641 11454 HALFDP
056611,000273: 11,2642 72475 DMPR SL1
056612,000274: 11,2643 00011 8D
056613,000275: 11,2644 56215 DAD DDV
056614,000276: 11,2645 23673 THREE/8
056615,000277: 11,2646 00017 14D
056616,000278: 11,2647 74275 DMPR VXSC
056617,000279: 11,2650 00007 6
056618,000280: 11,2651 02160 BETAV
056619,000281: 11,2652 64515 PDVL VSR3 # (G/2)(C(PD+4))B/2 TO PD+16D
056620,000282: # Page 1320
056621,000283: 11,2653 02152 ALPHAV
056622,000284: 11,2654 41455 VAD PUSH # A12 + C(PD+16D) TO PD+16D
056623,000285: 11,2655 41345 DLOAD DMP
056624,000286: 11,2656 00001 0
056625,000287: 11,2657 00015 12D
056626,000288: 11,2660 61501 NORM ROUND
056627,000289: 11,2661 00037 30D
056628,000290: 11,2662 40665 BDDV DMP*
056629,000291: 11,2663 00003 2
056630,000292: 11,2664 50041 MUEARTH,2
056631,000293: 11,2665 74276 DCOMP VXSC
056632,000294: 11,2666 57124 XCHX,2 XAD,2
056633,000295: 11,2667 00050 S1
056634,000296: 11,2670 00051 S2
056635,000297: 11,2671 55064 XSU,2 XSU,2
056636,000298: 11,2672 00036 30D
056637,000299: 11,2673 00037 31D
056638,000300: 11,2674 77600 BOV # CLEAR OVIND
056639,000301: 11,2675 22676 +1
056640,000302: 11,2676 65057 VSR* XCHX,2
056641,000303: 11,2677 57177 0 -1,2
056642,000304: 11,2700 00050 S1
056643,000305: 11,2701 77655 VAD
056644,000306: 11,2702 02202 FV
056645,000307: 11,2703 02202 STORE FV
056646,000308: 11,2704 43400 BOV RVQ # RETURN IF NO OVERFLOW
056647,000309: 11,2705 22706 +1
056648,000310: 11,2706 54345 GOBAQUE DLOAD SR
056649,000311: 11,2707 02212 H
056650,000312: 11,2710 20612 9D
056651,000313: 11,2711 44206 PUSH BDSU
056652,000314: 11,2712 01551 TC
056653,000315: 11,2713 16312 STODL TAU.
056654,000316: 11,2714 01517 TET
056655,000317: 11,2715 45425 DSU STADR
056656,000318: 11,2716 42260 STCALL TET
056657,000319: 11,2717 22310 KEPPREP
056658,000320: 11,2720 77624 CALL
056659,000321: 11,2721 23344 RECTIFY
056660,000322: 11,2722 77614 SETGO
056661,000323: 11,2723 04020 RPQFLAG
056662,000324: 11,2724 27234 TESTLOOP
056663,000325:
056664,000326: # Page 1321
056665,000327: # THE OBLATE ROUTINE COMPUTES THE ACCELERATION DUE TO OBLATENESS. IT USES THE UNIT OF THE VEHICLE
056666,000328: # POSITION VECTOR FOUND IN ALPHAV AND THE DISTANCE TO THE CENTER IN ALPHAM. THIS IS ADDED TO THE SUM OF THE
056667,000329: # DISTURBING ACCELERATIONS IN FV AND THE PROPER DIFEQ STAGE IS CALLED VIA X1.
056668,000330:
056669,000331: 11,2725 71354 OBLATE LXA,2 DLOAD
056670,000332: 11,2726 02150 PBODY
056671,000333: 11,2727 02310 ALPHAM
056672,000334: 11,2730 44601 SETPD DSU*
056673,000335: 11,2731 00001 0
056674,000336: 11,2732 50007 RDE,2
056675,000337: 11,2733 43044 BPL BOF # GET URPV
056676,000338: 11,2734 23135 NBRANCH
056677,000339: 11,2735 00343 MOONFLAG
056678,000340: 11,2736 23144 COSPHIE
056679,000341: 11,2737 65375 VLOAD PDDL
056680,000342: 11,2740 02152 ALPHAV
056681,000343: 11,2741 01517 TET
056682,000344: 11,2742 45125 PDDL CALL
056683,000345: 11,2743 23671 3/5
056684,000346: 11,2744 55366 R-TO-RP
056685,000347: 11,2745 00017 STORE URPV
056686,000348: 11,2746 47375 VLOAD VXV
056687,000349: 11,2747 02012 504LM
056688,000350: 11,2750 11450 ZUNIT
056689,000351: 11,2751 61255 VAD VXM
056690,000352: 11,2752 11450 ZUNIT
056691,000353: 11,2753 00025 MMATRIX
056692,000354: 11,2754 77656 UNIT # PROBABLY UNNECESSARY.
056693,000355: 11,2755 00025 COMTERM STORE UZ
056694,000356: 11,2756 57345 DLOAD DMPR
056695,000357: 11,2757 00023 COSPHI/2
056696,000358: 11,2760 23703 3/32
056697,000359: 11,2761 63525 PDDL DSQ # P2/64 TO PD0
056698,000360: 11,2762 00023 COSPHI/2
056699,000361: 11,2763 45275 DMPR DSU
056700,000362: 11,2764 23705 15/16
056701,000363: 11,2765 23677 3/64
056702,000364: 11,2766 57206 PUSH DMPR # P3/32 TO PD2
056703,000365: 11,2767 00023 COSPHI/2
056704,000366: 11,2770 76405 DMP SL1R
056705,000367: 11,2771 23711 7/12
056706,000368: 11,2772 57325 PDDL DMPR
056707,000369: 11,2773 00001 0
056708,000370: 11,2774 23717 2/3
056709,000371: 11,2775 41421 BDSU PUSH # P4/128 TO PD4
056710,000372: 11,2776 57275 DMPR DMPR
056711,000373: 11,2777 00023 COSPHI/2 # BEGIN COMPUTING P5/1024
056712,000374: 11,3000 23713 9/16
056713,000375: 11,3001 57325 PDDL DMPR
056714,000376: 11,3002 00003 2
056715,000377: 11,3003 23715 5/128
056716,000378: # Page 1322
056717,000379: 11,3004 77621 BDSU
056718,000380: 11,3005 77603 DMP*
056719,000381: 11,3006 50035 J4REQ/J3,2
056720,000382: 11,3007 43271 DDV DAD # -3
056721,000383: 11,3010 02310 ALPHAM # (((P5/256)B 2 /R+P4/32) /R+P3/8)ALPHAV
056722,000384: 11,3011 00005 4 # 4 3
056723,000385: 11,3012 56273 DMPR* DDV
056724,000386: 11,3013 50031 2J3RE/J2,2
056725,000387: 11,3014 02310 ALPHAM
056726,000388: 11,3015 74215 DAD VXSC
056727,000389: 11,3016 00003 2
056728,000390: 11,3017 02152 ALPHAV
056729,000391: 11,3020 14033 STODL TVEC
056730,000392: 11,3021 70403 DMP* SR1
056731,000393: 11,3022 50035 J4REQ/J3,2
056732,000394: 11,3023 43271 DDV DAD
056733,000395: 11,3024 02310 ALPHAM
056734,000396: 11,3025 50473 DMPR* SR3
056735,000397: 11,3026 50031 2J3RE/J2,2
056736,000398: 11,3027 43271 DDV DAD
056737,000399: 11,3030 02310 ALPHAM
056738,000400: 11,3031 76561 VXSC VSL1
056739,000401: 11,3032 00025 UZ
056740,000402: 11,3033 77645 BVSU
056741,000403: 11,3034 00033 TVEC
056742,000404: 11,3035 14033 STODL TVEC
056743,000405: 11,3036 02310 ALPHAM
056744,000406: 11,3037 63501 NORM DSQ
056745,000407: 11,3040 00047 X1
056746,000408: 11,3041 60316 DSQ NORM
056747,000409: 11,3042 00051 S1
056748,000410: 11,3043 54606 PUSH BDDV*
056749,000411: 11,3044 50025 J2REQSQ,2
056750,000412: 11,3045 77761 VXSC
056751,000413: 11,3046 00033 TVEC
056752,000414: 11,3047 00033 STORE TVEC
056753,000415: 11,3050 56070 XAD,1 XAD,1
056754,000416: 11,3051 00046 X1
056755,000417: 11,3052 00046 X1
056756,000418: 11,3053 43070 XAD,1 BOF
056757,000419: 11,3054 00050 S1
056758,000420: 11,3055 00343 MOONFLAG
056759,000421: 11,3056 23125 NBRANCH1
056760,000422: 11,3057 63545 DLOAD DSQ # 2
056761,000423: 11,3060 00017 URPV # X B-2 TO 2D
056762,000424: 11,3061 63525 PDDL DSQ
056763,000425: 11,3062 00021 URPV +2 # 2 2
056764,000426: 11,3063 65215 DAD PDDL # Y +X B-2 TO 2D
056765,000427: 11,3064 00003 2D
056766,000428: 11,3065 45352 SL1 DSU
056767,000429: # Page 1323
056768,000430: 11,3066 00003 2D
056769,000431: 11,3067 41525 PDDL PUSH # X -Y B-2 TO 4D COSPHI 2 TO 6D
056770,000432: 11,3070 00023 COSPHI/2
056771,000433: 11,3071 65361 VXSC PDDL # 2COSPHI(UZ) B-3 TO 6D
056772,000434: 11,3072 00025 UZ
056773,000435: 11,3073 45316 DSQ DSU
056774,000436: 11,3074 23671 3/5 # 2 2 2
056775,000437: 11,3075 52405 DMP SL3 # (X -Y )((5COS (PHI)-3)UR 2COS(PHI)UZ
056776,000438: 11,3076 27756 5/8
056777,000439: 11,3077 52361 VXSC VSU # B-3 TO 4D
056778,000440: 11,3100 02152 ALPHAV
056779,000441: 11,3101 72561 VXSC VSL2
056780,000442: 11,3102 77725 PDDL
056781,000443: 11,3103 00017 URPV
056782,000444: 11,3104 63205 DMP PDVL # XY B-2 TO 10D
056783,000445: 11,3105 00021 URPV +2
056784,000446: 11,3106 02152 ALPHAV
056785,000447: 11,3107 74235 VXV VXSC
056786,000448: 11,3110 00025 UZ
056787,000449: 11,3111 53332 VSL3 VAD # 4XY(UR X UZ) + D( 4D) B-3
056788,000450: 11,3112 77725 PDDL
056789,000451: 11,3113 41301 NORM DMP
056790,000452: 11,3114 00050 X2
056791,000453: 11,3115 00001 0D # 3J22R2MU/(X + Y)R
056792,000454: 11,3116 74265 BDDV VXSC
056793,000455: 11,3117 27754 3J22R2MU
056794,000456: 11,3120 53257 VSL* VAD
056795,000457: 11,3121 57605 0 -7,2
056796,000458: 11,3122 00033 TVEC
056797,000459: 11,3123 77754 LXA,2
056798,000460: 11,3124 02150 PBODY
056799,000461:
056800,000462: 11,3125 77600 NBRANCH1 BOV
056801,000463: 11,3126 23127 +1
056802,000464: 11,3127 53257 VSL* VAD
056803,000465: 11,3130 20153 0 -22D,1
056804,000466: 11,3131 02202 FV
056805,000467: 11,3132 02202 STORE FV
056806,000468: 11,3133 77600 BOV
056807,000469: 11,3134 22706 GOBAQUE
056808,000470:
056809,000471: 11,3135 72135 NBRANCH SLOAD LXA,1
056810,000472: 11,3136 01501 DIFEQCNT
056811,000473: 11,3137 00154 MPAC
056812,000474: 11,3140 73205 DMP CGOTO
056813,000475: 11,3141 27760 -1/12
056814,000476: 11,3142 00155 MPAC
056815,000477: 11,3143 23152 DIFEQTAB
056816,000478: 11,3144 77745 COSPHIE DLOAD
056817,000479: 11,3145 02156 ALPHAV +4
056818,000480: 11,3146 24023 STOVL COSPHI/2
056819,000481: 11,3147 11450 ZUNIT
056820,000482: # Page 1324
056821,000483: 11,3150 77650 GOTO
056822,000484: 11,3151 22755 COMTERM
056823,000485: 11,3152 23371 DIFEQTAB CADR DIFEQ+0
056824,000486: 11,3153 23375 CADR DIFEQ+1
056825,000487: 11,3154 23406 CADR DIFEQ+2
056826,000488: 11,3155 77214 TIMESTEP BOF VLOAD
056827,000489: 11,3156 00342 MIDFLAG
056828,000490: 11,3157 23206 RECTEST
056829,000491: 11,3160 01535 RCV
056830,000492: 11,3161 41241 DOT DMP
056831,000493: 11,3162 01543 VCV
056832,000494: 11,3163 02314 DT/2 # (R.V) X (DELTA T)
056833,000495: 11,3164 77640 BMN
056834,000496: 11,3165 23206 RECTEST
056835,000497: 11,3166 43014 BON BOF
056836,000498: 11,3167 00303 MOONFLAG
056837,000499: 11,3170 23263 LUNSPH
056838,000500: 11,3171 04340 RPQFLAG
056839,000501: 11,3172 23260 EARSPH
056840,000502: 11,3173 45145 DLOAD CALL
056841,000503: 11,3174 01517 TET
056842,000504: 11,3175 54110 LSPOS # RPQV IN MPAC
056843,000505: 11,3176 02263 STORE RPQV # RPQV
056844,000506: 11,3177 77754 LXA,2
056845,000507: 11,3200 02150 PBODY
056846,000508: 11,3201 51445 INLUNCHK BVSU ABVAL
056847,000509: 11,3202 01535 RCV
056848,000510: 11,3203 50025 DSU BMN
056849,000511: 11,3204 27764 RSPHERE
056850,000512: 11,3205 23300 DOSWITCH
056851,000513: 11,3206 51575 RECTEST VLOAD ABVAL # RECTIFY IF
056852,000514: 11,3207 01521 TDELTAV
056853,000515: 11,3210 77600 BOV
056854,000516: 11,3211 23234 CALLRECT
056855,000517: 11,3212 51025 DSU BPL # 1) EITHER TDELTAV OR TNUV EQUALS OR
056856,000518: 11,3213 23707 3/4 # EXCEEDS 3/4 IN MAGNITUDE
056857,000519: 11,3214 23234 CALLRECT
056858,000520: 11,3215 53615 DAD SL* # OR
056859,000521: 11,3216 23707 3/4
056860,000522: 11,3217 57605 0 -7,2 # 2) ABVAL(TDELTAV) EQUALS OR EXCEEDS
056861,000523: 11,3220 45271 DDV DSU # .01(ABVAL(RCV))
056862,000524: 11,3221 00013 10D
056863,000525: 11,3222 27762 RECRATIO
056864,000526: 11,3223 77244 BPL VLOAD
056865,000527: 11,3224 23234 CALLRECT
056866,000528: 11,3225 01527 TNUV
056867,000529: 11,3226 45246 ABVAL DSU
056868,000530: 11,3227 23707 3/4
056869,000531: 11,3230 77600 BOV
056870,000532: 11,3231 23234 CALLRECT
056871,000533: # Page 1325
056872,000534: 11,3232 77640 BMN
056873,000535: 11,3233 23236 INTGRATE
056874,000536: 11,3234 77624 CALLRECT CALL
056875,000537: 11,3235 23344 RECTIFY
056876,000538: 11,3236 77775 INTGRATE VLOAD
056877,000539: 11,3237 01527 TNUV
056878,000540: 11,3240 25120 STOVL ZV
056879,000541: 11,3241 01521 TDELTAV
056880,000542: 11,3242 01112 STORE YV
056881,000543: 11,3243 77614 CLEAR
056882,000544: 11,3244 00261 JSWITCH
056883,000545: 11,3245 66375 DIFEQ0 VLOAD SSP
056884,000546: 11,3246 01112 YV
056885,000547: 11,3247 01501 DIFEQCNT
056886,000548: 11,3250 00000 0
056887,000549: 11,3251 16152 STODL ALPHAV
056888,000550: 11,3252 11456 DPZERO
056889,000551: 11,3253 02212 STORE H # START H AT ZERO. GOES 0(DELT/2)DELT.
056890,000552: 11,3254 52014 BON GOTO
056891,000553: 11,3255 00301 JSWITCH
056892,000554: 11,3256 23610 DOW..
056893,000555: 11,3257 22430 ACCOMP
056894,000556: 11,3260 52175 EARSPH VLOAD GOTO
056895,000557: 11,3261 02263 RPQV
056896,000558: 11,3262 23201 INLUNCHK
056897,000559: 11,3263 60545 LUNSPH DLOAD SR2
056898,000560: 11,3264 00013 10D
056899,000561: 11,3265 50025 DSU BMN
056900,000562: 11,3266 27764 RSPHERE
056901,000563: 11,3267 23206 RECTEST
056902,000564: 11,3270 71214 BOF DLOAD
056903,000565: 11,3271 04340 RPQFLAG
056904,000566: 11,3272 23300 DOSWITCH
056905,000567: 11,3273 01517 TET
056906,000568: 11,3274 77624 CALL
056907,000569: 11,3275 54115 LUNPOS
056908,000570: 11,3276 77676 VCOMP
056909,000571: 11,3277 02263 STORE RPQV
056910,000572: 11,3300 77624 DOSWITCH CALL
056911,000573: 11,3301 23304 ORIGCHNG
056912,000574: 11,3302 77650 GOTO
056913,000575: 11,3303 23236 INTGRATE
056914,000576: 11,3304 45020 ORIGCHNG STQ CALL
056915,000577: 11,3305 02270 ORIGEX
056916,000578: 11,3306 23344 RECTIFY
056917,000579: 11,3307 53775 VLOAD VSL*
056918,000580: 11,3310 01535 RCV
056919,000581: 11,3311 57576 0,2
056920,000582: 11,3312 53651 VSU VSL*
056921,000583: 11,3313 02263 RPQV
056922,000584: # Page 1326
056923,000585: 11,3314 57574 2,2
056924,000586: 11,3315 01503 STORE RRECT
056925,000587: 11,3316 15535 STODL RCV
056926,000588: 11,3317 01517 TET
056927,000589: 11,3320 77624 CALL
056928,000590: 11,3321 54120 LUNVEL
056929,000591: 11,3322 57414 BOF VCOMP
056930,000592: 11,3323 00343 MOONFLAG
056931,000593: 11,3324 23325 +1
056932,000594: 11,3325 53715 PDVL VSL*
056933,000595: 11,3326 01543 VCV
056934,000596: 11,3327 57576 0,2
056935,000597: 11,3330 77651 VSU
056936,000598: 11,3331 77657 VSL*
056937,000599: 11,3332 57574 0 +2,2
056938,000600: 11,3333 01511 STORE VRECT
056939,000601: 11,3334 01543 STORE VCV
056940,000602: 11,3335 67154 LXA,2 SXA,2
056941,000603: 11,3336 02270 ORIGEX
056942,000604: 11,3337 00052 QPRET
056943,000605: 11,3340 52014 BON GOTO
056944,000606: 11,3341 00303 MOONFLAG
056945,000607: 11,3342 26666 CLRMOON
056946,000608: 11,3343 26673 SETMOON
056947,000609: # Page 1327
056948,000610: # THE RECTIFY SUBROUTINE IS CALLED BY THE INTEGRATION PROGRAM AND OCCIASIONALLY BY THE MEASUREMENT INCORPORATION
056949,000611: # ROUTINES TO ESTABLISH A NEW CONIC.
056950,000612:
056951,000613: 11,3344 77354 RECTIFY LXA,2 VLOAD
056952,000614: 11,3345 02150 PBODY
056953,000615: 11,3346 01521 TDELTAV
056954,000616: 11,3347 53257 VSL* VAD
056955,000617: 11,3350 57605 0 -7,2
056956,000618: 11,3351 01535 RCV
056957,000619: 11,3352 01503 STORE RRECT
056958,000620: 11,3353 25535 STOVL RCV
056959,000621: 11,3354 01527 TNUV
056960,000622: 11,3355 53257 VSL* VAD
056961,000623: 11,3356 57602 0 -4,2
056962,000624: 11,3357 01543 VCV
056963,000625: 11,3360 01511 MINIRECT STORE VRECT
056964,000626: 11,3361 25543 STOVL VCV
056965,000627: 11,3362 11456 ZEROVEC
056966,000628: 11,3363 01521 STORE TDELTAV
056967,000629: 11,3364 15527 STODL TNUV
056968,000630: 11,3365 11456 ZEROVEC
056969,000631: 11,3366 01551 STORE TC
056970,000632: 11,3367 01553 STORE XKEP
056971,000633: 11,3370 77616 RVQ
056972,000634:
056973,000635: # Page 1328
056974,000636: # THE THREE DIFEQ ROUTINES -- DIFEQ+0, DIFEQ+12, DIFEQ+24 -- ARE ENTERED TO PROCESS THE CONTRIBUTIONS AT THE
056975,000637: # BEGINNING, MIDDLE, AND END OF THE TIMESTEP, RESPECTIVELY. THE UPDATING IS DONE BY THE NYSTROM METHOD.
056976,000638:
056977,000639: 11,3371 64575 DIFEQ+0 VLOAD VSR3
056978,000640: 11,3372 02202 FV
056979,000641: 11,3373 36166 STCALL PHIV
056980,000642: 11,3374 23551 DIFEQCOM
056981,000643: 11,3375 74575 DIFEQ+1 VLOAD VSR1
056982,000644: 11,3376 02202 FV
056983,000645: 11,3377 53206 PUSH VAD
056984,000646: 11,3400 02166 PHIV
056985,000647: 11,3401 26174 STOVL PSIV
056986,000648: 11,3402 53362 VSR1 VAD
056987,000649: 11,3403 02166 PHIV
056988,000650: 11,3404 36166 STCALL PHIV
056989,000651: 11,3405 23551 DIFEQCOM
056990,000652: 11,3406 57345 DIFEQ+2 DLOAD DMPR
056991,000653: 11,3407 02212 H
056992,000654: 11,3410 23717 DP2/3
056993,000655: 11,3411 74206 PUSH VXSC
056994,000656: 11,3412 02166 PHIV
056995,000657: 11,3413 53372 VSL1 VAD
056996,000658: 11,3414 01120 ZV
056997,000659: 11,3415 53361 VXSC VAD
056998,000660: 11,3416 02212 H
056999,000661: 11,3417 01112 YV
057000,000662: 11,3420 25112 STOVL YV
057001,000663: 11,3421 02202 FV
057002,000664: 11,3422 53322 VSR3 VAD
057003,000665: 11,3423 02174 PSIV
057004,000666: 11,3424 76561 VXSC VSL1
057005,000667: 11,3425 77655 VAD
057006,000668: 11,3426 01120 ZV
057007,000669: 11,3427 01120 STORE ZV
057008,000670: 11,3430 45014 BOFF CALL
057009,000671: 11,3431 00341 JSWITCH
057010,000672: 11,3432 23502 ENDSTATE
057011,000673: 11,3433 56741 GRP2PC
057012,000674: 11,3434 77354 LXA,2 VLOAD
057013,000675: 11,3435 01102 COLREG
057014,000676: 11,3436 01120 ZV
057015,000677: 11,3437 77732 VSL3 # ADJUST W-POSITION FOR STORAGE
057016,000678: 11,3440 12467 STORE W +54D,2
057017,000679: 11,3441 77775 VLOAD
057018,000680: 11,3442 01112 YV
057019,000681: 11,3443 40132 VSL3 BOV
057020,000682: 11,3444 23574 WMATEND
057021,000683: 11,3445 12401 STORE W,2
057022,000684:
057023,000685: 11,3446 77624 CALL
057024,000686: 11,3447 56741 GRP2PC
057025,000687: # Page 1329
057026,000688: 11,3450 66354 LXA,2 SSP
057027,000689: 11,3451 01102 COLREG
057028,000690: 11,3452 00052 S2
057029,000691: 11,3453 00000 0
057030,000692: 11,3454 67114 INCR,2 SXA,2
057031,000693: 11,3455 00006 6
057032,000694: 11,3456 01111 YV
057033,000695: 11,3457 45104 TIX,2 CALL
057034,000696: 11,3460 23545 RELOADSV
057035,000697: 11,3461 56741 GRP2PC
057036,000698: 11,3462 67154 LXA,2 SXA,2
057037,000699: 11,3463 01111 YV
057038,000700: 11,3464 01102 COLREG
057039,000701:
057040,000702: 11,3465 77624 NEXTCOL CALL
057041,000703: 11,3466 56741 GRP2PC
057042,000704: 11,3467 76754 LXA,2 VLOAD*
057043,000705: 11,3470 01102 COLREG
057044,000706: 11,3471 75376 W,2
057045,000707: 11,3472 77722 VSR3 # ADJUST W-POSITION FOR INTEGRATION
057046,000708: 11,3473 01112 STORE YV
057047,000709: 11,3474 76173 VLOAD* AXT,1
057048,000710: 11,3475 75310 W +54D,2
057049,000711: 11,3476 00000 0
057050,000712: 11,3477 77722 VSR3 # ADJUST W-VELOCITY FOR INTEGRATION
057051,000713: 11,3500 35120 STCALL ZV
057052,000714: 11,3501 23245 DIFEQ0
057053,000715:
057054,000716: 11,3502 77200 ENDSTATE BOV VLOAD
057055,000717: 11,3503 22706 GOBAQUE
057056,000718: 11,3504 01120 ZV
057057,000719: 11,3505 25527 STOVL TNUV
057058,000720: 11,3506 01112 YV
057059,000721: 11,3507 01521 STORE TDELTAV
057060,000722: 11,3510 43014 BON BOFF
057061,000723: 11,3511 04715 MIDAVFLG
057062,000724: 11,3512 27653 CKMID2 # CHECK FOR MID2 BEFORE GOING TO TIMEINC
057063,000725: 11,3513 01756 DIM0FLAG
057064,000726: 11,3514 27234 TESTLOOP
057065,000727: 11,3515 77776 EXIT
057066,000728: 11,3516 05301 TC PHASCHNG
057067,000729: 11,3517 04022 OCT 04022 # PHASE 1
057068,000730: 11,3520 05435 TC UPFLAG # PHASE CHANGE HAS OCCURRED BETWEEN
057069,000731: 11,3521 00236 ADRES REINTFLG # INTSTALL AND INTWAKE
057070,000732: 11,3522 06006 TC INTPRET
057071,000733: 11,3523 77731 SSP
057072,000734: 11,3524 00053 QPRET
057073,000735: 11,3525 23532 AMOVED
057074,000736: 11,3526 52014 BON GOTO
057075,000737: 11,3527 01714 VINTFLAG
057076,000738: # Page 1330
057077,000739: 11,3530 26636 ATOPCSM
057078,000740: 11,3531 26711 ATOPLEM
057079,000741: 11,3532 66214 AMOVED SET SSP
057080,000742: 11,3533 00061 JSWITCH
057081,000743: 11,3534 01103 COLREG
057082,000744: 11,3535 77741 DEC -30 B-14
057083,000745: 11,3536 66214 BOFF SSP
057084,000746: 11,3537 01755 D6OR9FLG
057085,000747: 11,3540 23465 NEXTCOL
057086,000748: 11,3541 01103 COLREG
057087,000749: 11,3542 77717 DEC -48 B-14
057088,000750: 11,3543 77650 GOTO
057089,000751: 11,3544 23465 NEXTCOL
057090,000752:
057091,000753: 11,3545 77745 RELOADSV DLOAD # RELOAD TEMPORARY STATE VECTOR
057092,000754: 11,3546 01101 TDEC # FROM PERMANENT IN CASE OF
057093,000755: 11,3547 34041 STCALL TDEC1
057094,000756: 11,3550 27120 INTEGRV2 # BY STARTING AT INTEGRV2.
057095,000757: 11,3551 43345 DIFEQCOM DLOAD DAD # INCREMENT H AND DIFEQCNT.
057096,000758: 11,3552 02314 DT/2
057097,000759: 11,3553 02212 H
057098,000760: 11,3554 66110 INCR,1 SXA,1
057099,000761: 11,3555 77763 DEC -12 B-14
057100,000762: 11,3556 01500 DIFEQCNT # DIFEQCNT SET FOR NEXT ENTRY.
057101,000763: 11,3557 02212 STORE H
057102,000764: 11,3560 74561 VXSC VSR1
057103,000765: 11,3561 02202 FV
057104,000766: 11,3562 74255 VAD VXSC
057105,000767: 11,3563 01120 ZV
057106,000768: 11,3564 02212 H
057107,000769: 11,3565 77655 VAD
057108,000770: 11,3566 01112 YV
057109,000771: 11,3567 02152 STORE ALPHAV
057110,000772: 11,3570 52014 BON GOTO
057111,000773: 11,3571 00301 JSWITCH
057112,000774: 11,3572 23610 DOW..
057113,000775: 11,3573 22410 FBR3
057114,000776:
057115,000777: 11,3574 43014 WMATEND CLEAR CLEAR
057116,000778: 11,3575 01676 DIM0FLAG # DON'T INTEGRATE W THIS TIME
057117,000779: 11,3576 01671 ORBWFLAG # INVALIDATE W
057118,000780: 11,3577 77614 CLEAR
057119,000781: 11,3600 02676 RENDWFLG
057120,000782: 11,3601 77414 SET EXIT
057121,000783: 11,3602 01472 STATEFLG # PICK UP STATE VECTOR UPDATE
057122,000784: 11,3603 05537 TC ALARM
057123,000785: 11,3604 00421 OCT 421
057124,000786: 11,3605 06006 TC INTPRET
057125,000787: # Page 1331
057126,000788: 11,3606 77650 GOTO
057127,000789: 11,3607 27234 TESTLOOP # FINISH INTEGRATING STATE VECTOR
057128,000790:
057129,000791: # Page 1332
057130,000792: # ORBITAL ROUTINE FOR EXTRAPOLATION OF THE W MATRIX. IT COMPUTES THE SECOND DERIVATIVE OF EACH COLUMN POSITION
057131,000793: # VECTOR OF THE MATRIX AND CALLS THE NYSTROM INTEGRATION ROUTINES TO SOLVE THE DIFFERENTIAL EQUATIONS. THE PROGRAM
057132,000794: # USES A TABLE OF VEHICL POSITION VECTORS COMPUTED DURING THE INTEGRATION OF THE VEHICLE'S POSITION AND VELOCITY.
057133,000795:
057134,000796: 11,3610 70754 DOW.. LXA,2 DLOAD*
057135,000797: 11,3611 02150 PBODY
057136,000798: 11,3612 50041 MUEARTH,2
057137,000799: 11,3613 36210 STCALL BETAM
057138,000800: 11,3614 23636 DOW..1
057139,000801: 11,3615 02202 STORE FV
057140,000802: 11,3616 62014 BOF INCR,1
057141,000803: 11,3617 00342 MIDFLAG
057142,000804: 11,3620 23135 NBRANCH
057143,000805: 11,3621 77771 DEC -6 B-14
057144,000806: 11,3622 70744 LXC,2 DLOAD*
057145,000807: 11,3623 02150 PBODY
057146,000808: 11,3624 50043 MUEARTH -2,2
057147,000809: 11,3625 36210 STCALL BETAM
057148,000810: 11,3626 23636 DOW..1
057149,000811: 11,3627 50414 BON VSR6
057150,000812: 11,3630 00303 MOONFLAG
057151,000813: 11,3631 23632 +1
057152,000814: 11,3632 77655 VAD
057153,000815: 11,3633 02202 FV
057154,000816: 11,3634 36202 STCALL FV
057155,000817: 11,3635 23135 NBRANCH
057156,000818: 11,3636 60575 DOW..1 VLOAD VSR4
057157,000819: 11,3637 02152 ALPHAV
057158,000820: 11,3640 53513 PDVL* UNIT
057159,000821: 11,3641 02217 VECTAB,1
057160,000822: 11,3642 46315 PDVL VPROJ
057161,000823: 11,3643 02152 ALPHAV
057162,000824: 11,3644 52361 VXSC VSU
057163,000825: 11,3645 23707 3/4
057164,000826: 11,3646 60325 PDDL NORM
057165,000827: 11,3647 00045 36D
057166,000828: 11,3650 00052 S2
057167,000829: 11,3651 63406 PUSH DSQ
057168,000830: 11,3652 77605 DMP
057169,000831: 11,3653 65301 NORM PDDL
057170,000832: 11,3654 00043 34D
057171,000833: 11,3655 02210 BETAM
057172,000834: 11,3656 56342 SR1 DDV
057173,000835: 11,3657 77761 VXSC
057174,000836: 11,3660 57154 LXA,2 XAD,2
057175,000837: 11,3661 00051 S2
057176,000838: 11,3662 00051 S2
057177,000839: 11,3663 57074 XAD,2 XAD,2
057178,000840: 11,3664 00051 S2
057179,000841: 11,3665 00042 34D
057180,000842: 11,3666 43457 VSL* RVQ
057181,000843: # Page 1333
057182,000844: 11,3667 57606 0 -8D,2
057183,000845:
057184,000846: 11,2000 SETLOC ORBITAL1
057185,000847: 11,2000 BANK
057186,000848:
057187,000849: 11,3670 04631 23146 3/5 2DEC .6 B-2
057188,000850: 11,3672 14000 00000 THREE/8 2DEC .375
057189,000851: 11,3674 02314 31463 .3D 2DEC .3 B-2
057190,000852: 11,3676 01400 00000 3/64 2DEC 3 B-6
057191,000853: 11,3700 10000 00000 DP1/4 2DEC .25
057192,000854: 11,3702 11,3700 DQUARTER EQUALS DP1/4
057193,000855: 11,3702 11,3700 POS1/4 EQUALS DP1/4
057194,000856: 11,3702 03000 00000 3/32 2DEC 3 B-5
057195,000857: 11,3704 36000 00000 15/16 2DEC 15. B-4
057196,000858: 11,3706 30000 00000 3/4 2DEC 3.0 B-2
057197,000859: 11,3710 22525 12525 7/12 2DEC .5833333333
057198,000860: 11,3712 22000 00000 9/16 2DEC 9 B-4
057199,000861: 11,3714 01200 00000 5/128 2DEC 5 B-7
057200,000862: 11,3716 04,3455 DPZERO EQUALS ZEROVEC
057201,000863: 11,3716 25252 25253 DP2/3 2DEC .6666666667
057202,000864: 11,3720 11,3716 2/3 EQUALS DP2/3
057203,000865: 11,3720 00027 OCT27 OCT 27
057204,000866:
057205,000867: 13,3715 BANK 13
057206,000868: 13,2000 SETLOC ORBITAL2
057207,000869: 13,2000 BANK
057208,000870: # IT IS VITAL THAT THE FOLLOWING CONSTANTS NOT BE SHUFFLED
057209,000871: 13,3715 77764 DEC -11 B-14
057210,000872: 13,3716 77775 DEC -2 B-14
057211,000873: 13,3717 77766 DEC -9 B-14
057212,000874: 13,3720 77771 DEC -6 B-14
057213,000875: 13,3721 77775 DEC -2 B-14
057214,000876: 13,3722 77775 DEC -2 B-14
057215,000877: 13,3723 00000 DEC 0 B-14
057216,000878: 13,3724 77763 DEC -12 B-14
057217,000879: 13,3725 77766 DEC -9 B-14
057218,000880: 13,3726 77773 DEC -4 B-14
057219,000881: 13,3727 77770 ASCALE DEC -7 B-14
057220,000882: 13,3730 77771 DEC -6 B-14
057221,000883: # Page 1334
057222,000884: 13,3731 27446 14620 2DEC* 1.32715445 E16 B-54* # S
057223,000885: 13,3733 16471 01352 2DEC* 4.9027780 E8 B-30* # M
057224,000886: 13,3735 22437 16067 MUEARTH 2DEC* 3.986032 E10 B-36*
057225,000887: 13,3737 00000 00000 2DEC 0 B-28
057226,000888: 13,3741 02302 24736 J4REQ/J3 2DEC* .4991607391 E7 B-26*
057227,000889: 13,3743 00000 00000 2DEC 0 B-28
057228,000890: 13,3745 77776 53032 2J3RE/J2 2DEC* -.1355426363 E5 B-27*
057229,000891: 13,3747 10407 05344 2DEC* .3067493316 E18 B-60*
057230,000892: 13,3751 13710 35320 J2REQSQ 2DEC* 1.75501139 E21 B-72*
057231,000893: 13,3753 12160 12124 3J22R2MU 2DEC* 9.20479048 E16 B-58*
057232,000894:
057233,000895: 13,3755 24000 00000 5/8 2DEC 5 B-3
057234,000896: 13,3757 74631 63145 -1/12 2DEC -.1
057235,000897: 13,3761 13,3733 MUM = MUEARTH -2
057236,000898: 13,3761 00243 32703 RECRATIO 2DEC .01
057237,000899: 13,3763 03654 21000 RSPHERE 2DEC 64373.76 E3 B-29
057238,000900: 13,3765 03654 21000 RDM 2DEC 16093.44 E3 B-27
057239,000901: 13,3767 04627 25200 RDE 2DEC 80467.20 E3 B-29
057240,000902:
057241,000903: 13,3771 RATT EQUALS 00
057242,000904: 13,3771 VATT EQUALS 6D
057243,000905: 13,3771 TAT EQUALS 12D
057244,000906: 13,3771 RATT1 EQUALS 14D
057245,000907: 13,3771 VATT1 EQUALS 20D
057246,000908: 13,3771 MU(P) EQUALS 26D
057247,000909: 13,3771 TDEC1 EQUALS 32D
057248,000910: 13,3771 URPV EQUALS 14D
057249,000911: 13,3771 0000022 COSPHI/2 EQUALS URPV +4
057250,000912: 13,3771 UZ EQUALS 20D
057251,000913: 13,3771 TVEC EQUALS 26D
057252,000914:
057253,000915:
057254,000916:
End of include-file ORBITAL_INTEGRATION.agc. Parent file is MAIN.agc