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