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