Source Code
057713,000001: # Copyright: Public domain.
057714,000002: # Filename: ORBITAL_INTEGRATION.agc
057715,000003: # Purpose: Part of the source code for Colossus 2A, AKA Comanche 055.
057716,000004: # It is part of the source code for the Command Module's (CM)
057717,000005: # Apollo Guidance Computer (AGC), for Apollo 11.
057718,000006: # Assembler: yaYUL
057719,000007: # Contact: Ron Burkey <info@sandroid.org>.
057720,000008: # Website: www.ibiblio.org/apollo.
057721,000009: # Pages: 1334-1354
057722,000010: # Mod history: 2009-05-14 RSB Adapted from the Colossus249/ file of the
057723,000011: # same name, using Comanche055 page images.
057724,000012: # 2009-05-20 RSB Corrections: DAT -> DAD in one place,
057725,000013: # BWM -> BMN, DEFEQCNT -> DIFEQCNT.
057726,000014: # 2010-08-27 JL Fixed some indentation, whitespace.
057727,000015:
057728,000016: # This source code has been transcribed or otherwise adapted from digitized
057729,000017: # images of a hardcopy from the MIT Museum. The digitization was performed
057730,000018: # by Paul Fjeld, and arranged for by Deborah Douglas of the Museum. Many
057731,000019: # thanks to both. The images (with suitable reduction in storage size and
057732,000020: # consequent reduction in image quality as well) are available online at
057733,000021: # www.ibiblio.org/apollo. If for some reason you find that the images are
057734,000022: # illegible, contact me at info@sandroid.org about getting access to the
057735,000023: # (much) higher-quality images which Paul actually created.
057736,000024:
057737,000025: # Notations on the hardcopy document read, in part:
057738,000026:
057739,000027: # Assemble revision 055 of AGC program Comanche by NASA
057740,000028: # 2021113-051. 10:28 APR. 1, 1969
057741,000029:
057742,000030: # This AGC program shall also be referred to as
057743,000031: # Colossus 2A
057744,000032:
057745,000033: # Page 1334
057746,000034: # ORBITAL INTEGRATION
057747,000035:
057748,000036: # DELETE
057749,000037: 13,3714 BANK 13
057750,000038: 11,2000 SETLOC ORBITAL
057751,000039: 11,2000 BANK
057752,000040: 11,2372 COUNT 11/ORBIT
057753,000041:
057754,000042: # DELETE
057755,000043: 11,2372 40354 KEPPREP LXA,2 SETPD
057756,000044: 11,2373 02150 PBODY
057757,000045: 11,2374 00001 0
057758,000046: 11,2375 75543 DLOAD* SQRT # SQRT(MU) (+18 OR +15) 0D PL 2D
057759,000047: 11,2376 50042 MUEARTH,2
057760,000048: 11,2377 53515 PDVL UNIT # PL 8D
057761,000049: 11,2400 01535 RCV
057762,000050: 11,2401 60325 PDDL NORM # NORM R (+29 OR +27 - N1) 2D PL 4D
057763,000051: 11,2402 00045 36D
057764,000052: 11,2403 00047 X1
057765,000053: 11,2404 77715 PDVL
057766,000054: 11,2405 65241 DOT PDDL # F*SQRT(MU) (+7 OR +5) 4D PL 6D
057767,000055: 11,2406 01543 VCV
057768,000056: 11,2407 02312 TAU. # (+28)
057769,000057: 11,2410 60225 DSU NORM
057770,000058: 11,2411 01551 TC
057771,000059: 11,2412 00051 S1
057772,000060: 11,2413 77742 SR1
057773,000061: 11,2414 65271 DDV PDDL
057774,000062: 11,2415 00003 2D
057775,000063: 11,2416 41405 DMP PUSH # FS (+6 +N1-N2) 6D PL 8D
057776,000064: 11,2417 00005 4D
057777,000065: 11,2420 65316 DSQ PDDL # (FS)SQ (+12 +2(N1-N2)) 8D PL 10D
057778,000066: 11,2421 00005 4D
057779,000067: 11,2422 64716 DSQ PDDL* # SSQ/MU (-2 OR +2(N1-N2)) 10D PL 12D
057780,000068: 11,2423 50042 MUEARTH,2
057781,000069: 11,2424 40442 SR3 SR4
057782,000070: 11,2425 47515 PDVL VSQ # PREALIGN MU (+43 OR +37) 12D PL 14D
057783,000071: 11,2426 01543 VCV
057784,000072: 11,2427 44205 DMP BDSU # PL 12D
057785,000073: 11,2430 00045 36D
057786,000074: 11,2431 41271 DDV DMP # PL 10D
057787,000075: 11,2432 00003 2D # -(1/R-ALPHA) (+12 +3N1-2N2)
057788,000076: 11,2433 53605 DMP SL*
057789,000077: 11,2434 23774 DP2/3
057790,000078: 11,2435 20176 0 -3,1 # 10L(1/R-ALPHA) (+13 +2(N1-N2))
057791,000079: 11,2436 43260 XSU,1 DAD # 2(FS)SQ - ETCETERA PL 8D
057792,000080: 11,2437 00050 S1 # X1 = N2-N1
057793,000081: 11,2440 45257 SL* DSU # -FS+2(FS)SQ ETC (+6 +N1-N2) PL 6D
057794,000082: 11,2441 20211 8D,1
057795,000083: 11,2442 41205 DMP DMP
057796,000084: 11,2443 00001 0D
057797,000085: 11,2444 00005 4D
057798,000086: 11,2445 53657 SL* SL*
057799,000087: # Page 1335
057800,000088: 11,2446 20211 8D,1
057801,000089: 11,2447 20201 0,1 # S(-FS(1-2FS)-1/6...) (+17 OR +16)
057802,000090: 11,2450 65215 DAD PDDL # PL 6D
057803,000091: 11,2451 01553 XKEP
057804,000092: 11,2452 53605 DMP SL* # S(+17 OR +16)
057805,000093: 11,2453 00001 0D
057806,000094: 11,2454 20202 1,1
057807,000095: 11,2455 43204 BOVB DAD
057808,000096: 11,2456 57352 TCDANZIG
057809,000097: 11,2457 77626 STADR
057810,000098: 11,2460 75471 STORE XKEPNEW
057811,000099: 11,2461 74020 STQ AXC,1
057812,000100: 11,2462 02270 KEPRTN
057813,000101: 11,2463 00012 DEC 10 B-14
057814,000102: 11,2464 74014 BON AXC,1
057815,000103: 11,2465 00303 MOONFLAG
057816,000104: 11,2466 24042 KEPLERN
057817,000105: 11,2467 00002 DEC 2 B-14
057818,000106: 11,2470 77650 GOTO
057819,000107: 11,2471 24042 KEPLERN
057820,000108:
057821,000109: # Page 1336
057822,000110: 11,2472 66350 FBR3 LXA,1 SSP
057823,000111: 11,2473 01500 DIFEQCNT
057824,000112: 11,2474 00051 S1
057825,000113: 11,2475 77762 DEC -13 B-14
057826,000114: 11,2476 54345 DLOAD SR
057827,000115: 11,2477 02314 DT/2
057828,000116: 11,2500 20612 9D
057829,000117: 11,2501 61500 TIX,1 ROUND
057830,000118: 11,2502 22503 +1
057831,000119: 11,2503 43206 PUSH DAD
057832,000120: 11,2504 01551 TC
057833,000121: 11,2505 16312 STODL TAU.
057834,000122: 11,2506 77615 DAD
057835,000123: 11,2507 01517 TET
057836,000124: 11,2510 35517 STCALL TET
057837,000125: 11,2511 22372 KEPPREP
057838,000126:
057839,000127: # Page 1337
057840,000128: # AGC ROUTINE TO COMPUTE ACCELERATION COMPONENTS.
057841,000129:
057842,000130: 11,2512 73150 ACCOMP LXA,1 LXA,2
057843,000131: 11,2513 02150 PBODY
057844,000132: 11,2514 02150 PBODY
057845,000133: 11,2515 77775 VLOAD
057846,000134: 11,2516 11566 ZEROVEC
057847,000135: 11,2517 26202 STOVL FV
057848,000136: 11,2520 02152 ALPHAV
057849,000137: 11,2521 53257 VSL* VAD
057850,000138: 11,2522 57605 0 -7,2
057851,000139: 11,2523 01535 RCV
057852,000140: 11,2524 02160 STORE BETAV
057853,000141: 11,2525 65014 BOF XCHX,2
057854,000142: 11,2526 01756 DIM0FLAG
057855,000143: 11,2527 22534 +5
057856,000144: 11,2530 01500 DIFEQCNT
057857,000145: 11,2531 12217 STORE VECTAB,2
057858,000146: 11,2532 77724 XCHX,2
057859,000147: 11,2533 01500 DIFEQCNT
057860,000148: 11,2534 53575 VLOAD UNIT
057861,000149: 11,2535 02152 ALPHAV
057862,000150: 11,2536 16152 STODL ALPHAV
057863,000151: 11,2537 00045 36D
057864,000152: 11,2540 02310 STORE ALPHAM
057865,000153: 11,2541 77624 CALL
057866,000154: 11,2542 22636 GAMCOMP
057867,000155: 11,2543 66175 VLOAD SXA,1
057868,000156: 11,2544 02160 BETAV
057869,000157: 11,2545 00051 S2
057870,000158: 11,2546 16152 STODL ALPHAV
057871,000159: 11,2547 02210 BETAM
057872,000160: 11,2550 02310 STORE ALPHAM
057873,000161: 11,2551 71214 BOF DLOAD
057874,000162: 11,2552 00342 MIDFLAG
057875,000163: 11,2553 23010 OBLATE
057876,000164: 11,2554 01517 TET
057877,000165: 11,2555 77624 CALL
057878,000166: 11,2556 54110 LSPOS
057879,000167: 11,2557 72174 AXT,2 LXA,1
057880,000168: 11,2560 00002 2
057881,000169: 11,2561 00051 S2
057882,000170: 11,2562 77614 BOF
057883,000171: 11,2563 00343 MOONFLAG
057884,000172: 11,2564 22567 +3
057885,000173: 11,2565 77076 VCOMP AXT,2
057886,000174: 11,2566 00000 0
057887,000175: 11,2567 02160 STORE BETAV
057888,000176: 11,2570 26263 STOVL RPQV
057889,000177: # Page 1338
057890,000178: 11,2571 00003 2D
057891,000179: 11,2572 02300 STORE RPSV
057892,000180: 11,2573 77214 BOF VLOAD
057893,000181: 11,2574 01756 DIM0FLAG
057894,000182: 11,2575 22610 GETRPSV
057895,000183: 11,2576 02152 ALPHAV
057896,000184: 11,2577 53761 VXSC VSR*
057897,000185: 11,2600 02310 ALPHAM
057898,000186: 11,2601 57175 1,2
057899,000187: 11,2602 65051 VSU XCHX,2
057900,000188: 11,2603 02160 BETAV
057901,000189: 11,2604 01500 DIFEQCNT
057902,000190: 11,2605 12225 STORE VECTAB +6,2
057903,000191: 11,2606 77724 XCHX,2
057904,000192: 11,2607 01500 DIFEQCNT
057905,000193: 11,2610 62175 GETRPSV VLOAD INCR,1
057906,000194: 11,2611 02263 RPQV
057907,000195: 11,2612 00004 4
057908,000196: 11,2613 43014 CLEAR BOF
057909,000197: 11,2614 04260 RPQFLAG
057910,000198: 11,2615 00343 MOONFLAG
057911,000199: 11,2616 22623 +5
057912,000200: 11,2617 53261 VSR VAD
057913,000201: 11,2620 20612 9D
057914,000202: 11,2621 02300 RPSV
057915,000203: 11,2622 02300 STORE RPSV
057916,000204: 11,2623 77624 CALL
057917,000205: 11,2624 22636 GAMCOMP
057918,000206: 11,2625 62174 AXT,2 INCR,1
057919,000207: 11,2626 00004 4
057920,000208: 11,2627 00004 4
057921,000209: 11,2630 77775 VLOAD
057922,000210: 11,2631 02300 RPSV
057923,000211: 11,2632 36160 STCALL BETAV
057924,000212: 11,2633 22636 GAMCOMP
057925,000213: 11,2634 77650 GOTO
057926,000214: 11,2635 23010 OBLATE
057927,000215: 11,2636 74575 GAMCOMP VLOAD VSR1
057928,000216: 11,2637 02160 BETAV
057929,000217: 11,2640 40236 VSQ SETPD
057930,000218: 11,2641 00001 0
057931,000219: 11,2642 61501 NORM ROUND
057932,000220: 11,2643 00040 31D
057933,000221: 11,2644 60325 PDDL NORM # NORMED B SQUARED TO PD LIST
057934,000222: 11,2645 02310 ALPHAM # NORMALIZE (LESS ONE) LENGTH OF ALPHA
057935,000223: 11,2646 00041 32D # SAVING NORM SCALE FACTOR IN X1
057936,000224: 11,2647 63342 SR1 PDVL
057937,000225: 11,2650 02160 BETAV # C(PDL+2) = ALMOST NORMED ALPHA
057938,000226: 11,2651 77656 UNIT
057939,000227: 11,2652 16160 STODL BETAV
057940,000228: # Page 1339
057941,000229: 11,2653 00045 36D
057942,000230: 11,2654 02210 STORE BETAM
057943,000231: 11,2655 55301 NORM BDDV # FORM NORMALIZE QUOTIEN ALPHAM/BETAM
057944,000232: 11,2656 00042 33D
057945,000233: 11,2657 41562 SR1R PUSH # C(PDL+2) = ALMOST NORMALIZE RHO.
057946,000234: 11,2660 77743 DLOAD*
057947,000235: 11,2661 27727 ASCALE,1
057948,000236: 11,2662 00051 STORE S1
057949,000237: 11,2663 57124 XCHX,2 XAD,2
057950,000238: 11,2664 00050 S1
057951,000239: 11,2665 00040 32D
057952,000240: 11,2666 71264 XSU,2 DLOAD
057953,000241: 11,2667 00041 33D
057954,000242: 11,2670 00003 2D
057955,000243: 11,2671 65057 SR* XCHX,2
057956,000244: 11,2672 57177 0 -1,2
057957,000245: 11,2673 00050 S1
057958,000246: 11,2674 74406 PUSH SR1R # RHO/4 TO 4D
057959,000247: 11,2675 50315 PDVL DOT
057960,000248: 11,2676 02152 ALPHAV
057961,000249: 11,2677 02160 BETAV
057962,000250: 11,2700 44372 SL1R BDSU # (RHO/4) - 2(ALPHAV/2.BETAV/2)
057963,000251: 11,2701 57206 PUSH DMPR # TO PDL+6
057964,000252: 11,2702 00005 4
057965,000253: 11,2703 77752 SL1
057966,000254: 11,2704 43206 PUSH DAD
057967,000255: 11,2705 23756 DQUARTER
057968,000256: 11,2706 75406 PUSH SQRT
057969,000257: 11,2707 41475 DMPR PUSH
057970,000258: 11,2710 00013 10D
057971,000259: 11,2711 43352 SL1 DAD
057972,000260: 11,2712 23756 DQUARTER
057973,000261: 11,2713 43325 PDDL DAD # (1/4)+2((Q+1)/4) TO PD+14D
057974,000262: 11,2714 00013 10D
057975,000263: 11,2715 11564 HALFDP
057976,000264: 11,2716 72475 DMPR SL1
057977,000265: 11,2717 00011 8D
057978,000266: 11,2720 56215 DAD DDV
057979,000267: 11,2721 23750 THREE/8
057980,000268: 11,2722 00017 14D
057981,000269: 11,2723 74275 DMPR VXSC
057982,000270: 11,2724 00007 6
057983,000271: 11,2725 02160 BETAV
057984,000272: 11,2726 64515 PDVL VSR3 # (G/2)(C(PD+4))B/2 TO PD+16D
057985,000273: 11,2727 02152 ALPHAV
057986,000274: 11,2730 41455 VAD PUSH # A12 + C(PD+16D) TO PD+16D
057987,000275: 11,2731 41345 DLOAD DMP
057988,000276: 11,2732 00001 0
057989,000277: 11,2733 00015 12D
057990,000278: 11,2734 61501 NORM ROUND
057991,000279: # Page 1340
057992,000280: 11,2735 00037 30D
057993,000281: 11,2736 40665 BDDV DMP*
057994,000282: 11,2737 00003 2
057995,000283: 11,2740 50042 MUEARTH,2
057996,000284: 11,2741 74276 DCOMP VXSC
057997,000285: 11,2742 57124 XCHX,2 XAD,2
057998,000286: 11,2743 00050 S1
057999,000287: 11,2744 00051 S2
058000,000288: 11,2745 55064 XSU,2 XSU,2
058001,000289: 11,2746 00036 30D
058002,000290: 11,2747 00037 31D
058003,000291: 11,2750 77600 BOV # CLEAR OVIND
058004,000292: 11,2751 22752 +1
058005,000293: 11,2752 65057 VSR* XCHX,2
058006,000294: 11,2753 57177 0 -1,2
058007,000295: 11,2754 00050 S1
058008,000296: 11,2755 77655 VAD
058009,000297: 11,2756 02202 FV
058010,000298: 11,2757 02202 STORE FV
058011,000299: 11,2760 43400 BOV RVQ # RETURN IF NO OVERFLOW
058012,000300: 11,2761 22762 +1
058013,000301: 11,2762 51575 GOBAQUE VLOAD ABVAL
058014,000302: 11,2763 01521 TDELTAV
058015,000303: 11,2764 77654 BZE
058016,000304: 11,2765 23005 INT-ABRT
058017,000305: 11,2766 54345 DLOAD SR
058018,000306: 11,2767 02212 H
058019,000307: 11,2770 20612 9D
058020,000308: 11,2771 44206 PUSH BDSU
058021,000309: 11,2772 01551 TC
058022,000310: 11,2773 16312 STODL TAU.
058023,000311: 11,2774 01517 TET
058024,000312: 11,2775 45425 DSU STADR
058025,000313: 11,2776 42260 STCALL TET
058026,000314: 11,2777 22372 KEPPREP
058027,000315: 11,3000 77624 CALL
058028,000316: 11,3001 23421 RECTIFY
058029,000317: 11,3002 77614 SETGO
058030,000318: 11,3003 04020 RPQFLAG
058031,000319: 11,3004 27305 TESTLOOP
058032,000320:
058033,000321: 11,3005 77776 INT-ABRT EXIT
058034,000322: 11,3006 05721 TC P00DOO
058035,000323: 11,3007 00430 OCT 00430
058036,000324:
058037,000325: # Page 1341
058038,000326: # THE OBLATE ROUTINE COMPUTES THE ACCELERATION DUE TO OBLATENESS. IT USES THE UNIT OF THE VEHICLE
058039,000327: # POSITION VECTOR FOUND IN ALPHAV AND THE DISTANCE TO THE CENTER IN ALPHAM. THIS IS ADDED TO THE SUM OF THE
058040,000328: # DISTURBING ACCELERATIONS IN FV AND THE PROPER DIFEQ STAGE IS CALLED VIA X1.
058041,000329:
058042,000330: 11,3010 71354 OBLATE LXA,2 DLOAD
058043,000331: 11,3011 02150 PBODY
058044,000332: 11,3012 02310 ALPHAM
058045,000333: 11,3013 44601 SETPD DSU*
058046,000334: 11,3014 00001 0
058047,000335: 11,3015 50010 RDE,2
058048,000336: 11,3016 43044 BPL BOF # GET URPV
058049,000337: 11,3017 23220 NBRANCH
058050,000338: 11,3020 00343 MOONFLAG
058051,000339: 11,3021 23227 COSPHIE
058052,000340: 11,3022 65375 VLOAD PDDL
058053,000341: 11,3023 02152 ALPHAV
058054,000342: 11,3024 01517 TET
058055,000343: 11,3025 45125 PDDL CALL
058056,000344: 11,3026 23746 3/5
058057,000345: 11,3027 55371 R-TO-RP
058058,000346: 11,3030 00017 STORE URPV
058059,000347: 11,3031 47375 VLOAD VXV
058060,000348: 11,3032 02012 504LM
058061,000349: 11,3033 11560 ZUNIT
058062,000350: 11,3034 61255 VAD VXM
058063,000351: 11,3035 11560 ZUNIT
058064,000352: 11,3036 00025 MMATRIX
058065,000353: 11,3037 77656 UNIT # PROBABLY UNNECESSARY.
058066,000354: 11,3040 00025 COMTERM STORE UZ
058067,000355: 11,3041 57345 DLOAD DMPR
058068,000356: 11,3042 00023 COSPHI/2
058069,000357: 11,3043 23760 3/32
058070,000358: 11,3044 63525 PDDL DSQ # P2/64 TO PD0
058071,000359: 11,3045 00023 COSPHI/2
058072,000360: 11,3046 45275 DMPR DSU
058073,000361: 11,3047 23762 15/16
058074,000362: 11,3050 23754 3/64
058075,000363: 11,3051 57206 PUSH DMPR # P3/32 TO PD2
058076,000364: 11,3052 00023 COSPHI/2
058077,000365: 11,3053 76405 DMP SL1R
058078,000366: 11,3054 23766 7/12
058079,000367: 11,3055 57325 PDDL DMPR
058080,000368: 11,3056 00001 0
058081,000369: 11,3057 23774 2/3
058082,000370: 11,3060 41421 BDSU PUSH # P4/128 TO PD4
058083,000371: 11,3061 57275 DMPR DMPR
058084,000372: 11,3062 00023 COSPHI/2 # BEGIN COMPUTING P5/1024
058085,000373: 11,3063 23770 9/16
058086,000374: 11,3064 57325 PDDL DMPR
058087,000375: 11,3065 00003 2
058088,000376: 11,3066 23772 5/128
058089,000377: # Page 1342
058090,000378: 11,3067 77621 BDSU
058091,000379: 11,3070 77603 DMP*
058092,000380: 11,3071 50036 J4REQ/J3,2
058093,000381: 11,3072 43271 DDV DAD # -3
058094,000382: 11,3073 02310 ALPHAM # (((P5/256)B 2 /R+P4/32) /R+P3/8)ALPHAV
058095,000383: 11,3074 00005 4 # 4 3
058096,000384: 11,3075 56273 DMPR* DDV
058097,000385: 11,3076 50032 2J3RE/J2,2
058098,000386: 11,3077 02310 ALPHAM
058099,000387: 11,3100 74215 DAD VXSC
058100,000388: 11,3101 00003 2
058101,000389: 11,3102 02152 ALPHAV
058102,000390: 11,3103 14033 STODL TVEC
058103,000391: 11,3104 70403 DMP* SR1
058104,000392: 11,3105 50036 J4REQ/J3,2
058105,000393: 11,3106 43271 DDV DAD
058106,000394: 11,3107 02310 ALPHAM
058107,000395: 11,3110 50473 DMPR* SR3
058108,000396: 11,3111 50032 2J3RE/J2,2
058109,000397: 11,3112 43271 DDV DAD
058110,000398: 11,3113 02310 ALPHAM
058111,000399: 11,3114 76561 VXSC VSL1
058112,000400: 11,3115 00025 UZ
058113,000401: 11,3116 77645 BVSU
058114,000402: 11,3117 00033 TVEC
058115,000403: 11,3120 14033 STODL TVEC
058116,000404: 11,3121 02310 ALPHAM
058117,000405: 11,3122 63501 NORM DSQ
058118,000406: 11,3123 00047 X1
058119,000407: 11,3124 60316 DSQ NORM
058120,000408: 11,3125 00051 S1 # 4
058121,000409: 11,3126 54606 PUSH BDDV* # NORMED R TO 0D
058122,000410: 11,3127 50026 J2REQSQ,2
058123,000411: 11,3130 40161 VXSC BOV
058124,000412: 11,3131 00033 TVEC
058125,000413: 11,3132 23133 +1 # (RESET OVERFLOW INDICATOR)
058126,000414: 11,3133 56070 XAD,1 XAD,1
058127,000415: 11,3134 00046 X1
058128,000416: 11,3135 00046 X1
058129,000417: 11,3136 53670 XAD,1 VSL*
058130,000418: 11,3137 00050 S1
058131,000419: 11,3140 20153 0 -22D,1
058132,000420: 11,3141 40055 VAD BOV
058133,000421: 11,3142 02202 FV
058134,000422: 11,3143 22762 GOBAQUE
058135,000423: 11,3144 36202 STCALL FV
058136,000424: 11,3145 27770 QUALITY1
058137,000425: 11,3146 77716 QUALITY3 DSQ # J22 TERM X R**4 IN 2D. SCALED B61
058138,000426: # AS VECTOR.
058139,000427: 11,3147 41206 PUSH DMP # STORE COSPHI**2 SCALED B2 IN 8D.
058140,000428: # Page 1343
058141,000429: 11,3150 27755 5/8 # 5 SCALED B3
058142,000430: 11,3151 60525 PDDL SR2 # PUT 5 COSPHI**2, D5, IN 8D. GET
058143,000431: # COSPHI**2 D2 FROM 8D
058144,000432: 11,3152 44215 DAD BDSU # END UP WITH (1-7 COSPHI**2), B5
058145,000433: 11,3153 00011 8D # ADDING COSPHI**2 B4 SAME AS COSPHI**2
058146,000434: # X 2 D5
058147,000435: 11,3154 11616 D1/32 # 1 SCALED B5
058148,000436: 11,3155 41205 DMP DMP
058149,000437: 11,3156 00017 URPV # X COMPONENT
058150,000438: 11,3157 27755 5/8 # 5 SCALED B3
058151,000439: 11,3160 56561 VXSC VSL5 # AFTER SHIFT, SCALED B5
058152,000440: 11,3161 00017 URPV # VECTOR, B1.
058153,000441: 11,3162 77725 PDDL # VECTOR INTO 8D, 10D, 12D, SCALED B5.
058154,000442: # GET 5 COSPHI**2 OUT OF 8D
058155,000443: 11,3163 43225 DSU DAD
058156,000444: 11,3164 11616 D1/32 # 1 B5
058157,000445: 11,3165 00011 8D # X COMPONENT (SAME AS MULTIPLYING
058158,000446: # BY UNITX)
058159,000447: 11,3166 14011 STODL 8D
058160,000448: 11,3167 00017 URPV # X COMPONENT
058161,000449: 11,3170 41205 DMP DMP
058162,000450: 11,3171 00023 URPV +4 # Z COMPONENT
058163,000451: 11,3172 27755 5/8 # 5 B3 ANSWER B5
058164,000452: 11,3173 43352 SL1 DAD # FROM 12D FOR Z COMPONENT (SL1 GIVES 10
058165,000453: # INSTEAD OF 5 FOR COEFFICIENT)
058166,000454: 11,3174 60325 PDDL NORM # BACK INTO 12D FOR Z COMPONENT
058167,000455: 11,3175 02310 ALPHAM # SCALED B27 FOR MOON
058168,000456: 11,3176 00050 X2
058169,000457: 11,3177 67206 PUSH SLOAD # STORE IN 14D, DESTROYING URPV
058170,000458: # X COMPONENT
058171,000459: 11,3200 02000 E32C31RM
058172,000460: 11,3201 74271 DDV VXSC # IF X2 = 0, DIVISION GIVES B53, VXSC
058173,000461: # out of 8D B5 GIVES B58
058174,000462: 11,3202 53257 VSL* VAD # SHIFT MAKES B61, FOR ADDITION OF
058175,000463: # VECTOR IN 2D
058176,000464: 11,3203 57601 0 -3,2
058177,000465: 11,3204 70257 VSL* V/SC # OPERAND FROM 0D, B108 FOR X1 = 0
058178,000466: 11,3205 20146 0 -27D,1 # FOR X1 = 0, MAKES B88, GIVING B-20
058179,000467: # FOR RESULT.
058180,000468: 11,3206 65325 PDDL PDDL
058181,000469: 11,3207 01517 TET
058182,000470: 11,3210 27755 5/8 # ANY NON-ZERO CONSTANT
058183,000471: 11,3211 45154 LXA,2 CALL # POSITION IN 0D, TIME IN 6D. X2 LEFT
058184,000472: # ALONE.
058185,000473: 11,3212 02150 PBODY
058186,000474: 11,3213 55344 RP-TO-R
058187,000475: 11,3214 40055 VAD BOV # OVERFLOW INDICATOR RESET IN *RP-TO-R*
058188,000476: 11,3215 02202 FV
058189,000477: 11,3216 22762 GOBAQUE
058190,000478: 11,3217 02202 STORE FV
058191,000479: # Page 1344
058192,000480: 11,3220 72135 NBRANCH SLOAD LXA,1
058193,000481: 11,3221 01501 DIFEQCNT
058194,000482: 11,3222 00154 MPAC
058195,000483: 11,3223 73205 DMP CGOTO
058196,000484: 11,3224 27757 -1/12
058197,000485: 11,3225 00155 MPAC
058198,000486: 11,3226 23235 DIFEQTAB
058199,000487: 11,3227 77745 COSPHIE DLOAD
058200,000488: 11,3230 02156 ALPHAV +4
058201,000489: 11,3231 24023 STOVL COSPHI/2
058202,000490: 11,3232 11560 ZUNIT
058203,000491: 11,3233 77650 GOTO
058204,000492: 11,3234 23040 COMTERM
058205,000493: 11,3235 23446 DIFEQTAB CADR DIFEQ+0
058206,000494: 11,3236 23452 CADR DIFEQ+1
058207,000495: 11,3237 23463 CADR DIFEQ+2
058208,000496:
058209,000497: 11,3240 45014 TIMESTEP BOF CALL
058210,000498: 11,3241 00342 MIDFLAG
058211,000499: 11,3242 23246 RECTEST # SKIP ORIGIN CHANGE LOGIC
058212,000500: 11,3243 23320 CHKSWTCH
058213,000501: 11,3244 77640 BMN
058214,000502: 11,3245 23355 DOSWITCH
058215,000503:
058216,000504: 11,3246 51575 RECTEST VLOAD ABVAL # RECTIFY IF
058217,000505: 11,3247 01521 TDELTAV
058218,000506: 11,3250 77600 BOV
058219,000507: 11,3251 23274 CALLRECT
058220,000508: 11,3252 51025 DSU BPL # 1) EITHER TDELTAV OR TNUV EQUALS OR
058221,000509: 11,3253 23764 3/4 # EXCEEDS 3/4 IN MAGNITUDE
058222,000510: 11,3254 23274 CALLRECT
058223,000511: 11,3255 53615 DAD SL* # OR
058224,000512: 11,3256 23764 3/4
058225,000513: 11,3257 57605 0 -7,2 # 2) ABVAL(TDELTAV) EQUALS OR EXCEEDS
058226,000514: 11,3260 45271 DDV DSU # .01(ABVAL(RCV))
058227,000515: 11,3261 00013 10D
058228,000516: 11,3262 27761 RECRATIO
058229,000517: 11,3263 77244 BPL VLOAD
058230,000518: 11,3264 23274 CALLRECT
058231,000519: 11,3265 01527 TNUV
058232,000520: 11,3266 45246 ABVAL DSU
058233,000521: 11,3267 23764 3/4
058234,000522: 11,3270 77600 BOV
058235,000523: 11,3271 23274 CALLRECT
058236,000524: 11,3272 77640 BMN
058237,000525: 11,3273 23276 INTGRATE
058238,000526: 11,3274 77624 CALLRECT CALL
058239,000527: 11,3275 23421 RECTIFY
058240,000528: 11,3276 77775 INTGRATE VLOAD
058241,000529: 11,3277 01527 TNUV
058242,000530: # Page 1345
058243,000531: 11,3300 25120 STOVL ZV
058244,000532: 11,3301 01521 TDELTAV
058245,000533: 11,3302 01112 STORE YV
058246,000534: 11,3303 77614 CLEAR
058247,000535: 11,3304 00261 JSWITCH
058248,000536: 11,3305 66375 DIFEQ0 VLOAD SSP
058249,000537: 11,3306 01112 YV
058250,000538: 11,3307 01501 DIFEQCNT
058251,000539: 11,3310 00000 0
058252,000540: 11,3311 16152 STODL ALPHAV
058253,000541: 11,3312 11566 DPZERO
058254,000542: 11,3313 02212 STORE H # START H AT ZERO. GOES 0(DELT/2)DELT.
058255,000543: 11,3314 52014 BON GOTO
058256,000544: 11,3315 00301 JSWITCH
058257,000545: 11,3316 23665 DOW..
058258,000546: 11,3317 22512 ACCOMP
058259,000547:
058260,000548: 11,3320 43020 CHKSWTCH STQ BOF
058261,000549: 11,3321 02270 ORIGEX
058262,000550: 11,3322 04340 RPQFLAG
058263,000551: 11,3323 23333 RPQOK # MOON POSITION IS AVAILABLE
058264,000552: 11,3324 45145 DLOAD CALL
058265,000553: 11,3325 01517 TET
058266,000554: 11,3326 54115 LUNPOS # GET MOON POSITION
058267,000555: 11,3327 57414 BOF VCOMP
058268,000556: 11,3330 00343 MOONFLAG
058269,000557: 11,3331 23332 +1
058270,000558: 11,3332 02263 STORE RPQV
058271,000559:
058272,000560: 11,3333 77354 RPQOK LXA,2 VLOAD # RESTORE X2 AFTER USING LUNPOS
058273,000561: 11,3334 02150 PBODY
058274,000562: 11,3335 01521 TDELTAV # _
058275,000563: 11,3336 53257 VSL* VAD # |RQC|-RSPHERE WHEN OUTSIDE THE SPHERE.
058276,000564: 11,3337 57605 0 -7,2 # _ _ _
058277,000565: 11,3340 01535 RCV # R = RDEVIATION + RCONIC
058278,000566: 11,3341 51414 BOF ABVAL
058279,000567: 11,3342 00343 MOONFLAG
058280,000568: 11,3343 23350 EARSPH
058281,000569: 11,3344 44302 SR2 BDSU # INSIDE
058282,000570: 11,3345 27763 RSPHERE
058283,000571: 11,3346 77650 GOTO
058284,000572: 11,3347 02270 ORIGEX
058285,000573: 11,3350 51451 EARSPH VSU ABVAL # OUTSIDE
058286,000574: 11,3351 02263 RPQV
058287,000575: 11,3352 52025 DSU GOTO
058288,000576: 11,3353 27763 RSPHERE
058289,000577: 11,3354 02270 ORIGEX
058290,000578:
058291,000579: 11,3355 77624 DOSWITCH CALL
058292,000580: 11,3356 23361 ORIGCHNG
058293,000581: 11,3357 77650 GOTO
058294,000582: 11,3360 23276 INTGRATE
058295,000583:
058296,000584: # Page 1346
058297,000585: 11,3361 45020 ORIGCHNG STQ CALL
058298,000586: 11,3362 02270 ORIGEX
058299,000587: 11,3363 23421 RECTIFY
058300,000588: 11,3364 53775 VLOAD VSL*
058301,000589: 11,3365 01535 RCV
058302,000590: 11,3366 57576 0,2
058303,000591: 11,3367 53651 VSU VSL*
058304,000592: 11,3370 02263 RPQV
058305,000593: 11,3371 57574 2,2
058306,000594: 11,3372 01503 STORE RRECT
058307,000595: 11,3373 15535 STODL RCV
058308,000596: 11,3374 01517 TET
058309,000597: 11,3375 77624 CALL
058310,000598: 11,3376 54120 LUNVEL
058311,000599: 11,3377 57414 BOF VCOMP
058312,000600: 11,3400 00343 MOONFLAG
058313,000601: 11,3401 23402 +1
058314,000602: 11,3402 53715 PDVL VSL*
058315,000603: 11,3403 01543 VCV
058316,000604: 11,3404 57576 0,2
058317,000605: 11,3405 77651 VSU
058318,000606: 11,3406 77657 VSL*
058319,000607: 11,3407 57574 0 +2,2
058320,000608: 11,3410 01511 STORE VRECT
058321,000609: 11,3411 01543 STORE VCV
058322,000610: 11,3412 67154 LXA,2 SXA,2
058323,000611: 11,3413 02270 ORIGEX
058324,000612: 11,3414 00052 QPRET
058325,000613: 11,3415 52014 BON GOTO
058326,000614: 11,3416 00303 MOONFLAG
058327,000615: 11,3417 26735 CLRMOON
058328,000616: 11,3420 26742 SETMOON
058329,000617: # Page 1347
058330,000618: # THE RECTIFY SUBROUTINE IS CALLED BY THE INTEGRATION PROGRAM AND OCCASIONALLY BY THE MEASUREMENT INCORPORATION
058331,000619: # ROUTINES TO ESTABLISH A NEW CONIC.
058332,000620:
058333,000621: 11,3421 77354 RECTIFY LXA,2 VLOAD
058334,000622: 11,3422 02150 PBODY
058335,000623: 11,3423 01521 TDELTAV
058336,000624: 11,3424 53257 VSL* VAD
058337,000625: 11,3425 57605 0 -7,2
058338,000626: 11,3426 01535 RCV
058339,000627: 11,3427 01503 STORE RRECT
058340,000628: 11,3430 25535 STOVL RCV
058341,000629: 11,3431 01527 TNUV
058342,000630: 11,3432 53257 VSL* VAD
058343,000631: 11,3433 57602 0 -4,2
058344,000632: 11,3434 01543 VCV
058345,000633: 11,3435 01511 MINIRECT STORE VRECT
058346,000634: 11,3436 25543 STOVL VCV
058347,000635: 11,3437 11566 ZEROVEC
058348,000636: 11,3440 01521 STORE TDELTAV
058349,000637: 11,3441 15527 STODL TNUV
058350,000638: 11,3442 11566 ZEROVEC
058351,000639: 11,3443 01551 STORE TC
058352,000640: 11,3444 01553 STORE XKEP
058353,000641: 11,3445 77616 RVQ
058354,000642:
058355,000643: # Page 1348
058356,000644: # THE THREE DIFEQ ROUTINES -- DIFEQ+0, DIFEQ+12, DIFEQ+24 -- ARE ENTERED TO PROCESS THE CONTRIBUTIONS AT THE
058357,000645: # BEGINNING, MIDDLE, AND END OF THE TIMESTEP, RESPECTIVELY. THE UPDATING IS DONE BY THE NYSTROM METHOD.
058358,000646:
058359,000647: 11,3446 64575 DIFEQ+0 VLOAD VSR3
058360,000648: 11,3447 02202 FV
058361,000649: 11,3450 36166 STCALL PHIV
058362,000650: 11,3451 23626 DIFEQCOM
058363,000651: 11,3452 74575 DIFEQ+1 VLOAD VSR1
058364,000652: 11,3453 02202 FV
058365,000653: 11,3454 53206 PUSH VAD
058366,000654: 11,3455 02166 PHIV
058367,000655: 11,3456 26174 STOVL PSIV
058368,000656: 11,3457 53362 VSR1 VAD
058369,000657: 11,3460 02166 PHIV
058370,000658: 11,3461 36166 STCALL PHIV
058371,000659: 11,3462 23626 DIFEQCOM
058372,000660: 11,3463 57345 DIFEQ+2 DLOAD DMPR
058373,000661: 11,3464 02212 H
058374,000662: 11,3465 23774 DP2/3
058375,000663: 11,3466 74206 PUSH VXSC
058376,000664: 11,3467 02166 PHIV
058377,000665: 11,3470 53372 VSL1 VAD
058378,000666: 11,3471 01120 ZV
058379,000667: 11,3472 53361 VXSC VAD
058380,000668: 11,3473 02212 H
058381,000669: 11,3474 01112 YV
058382,000670: 11,3475 25112 STOVL YV
058383,000671: 11,3476 02202 FV
058384,000672: 11,3477 53322 VSR3 VAD
058385,000673: 11,3500 02174 PSIV
058386,000674: 11,3501 76561 VXSC VSL1
058387,000675: 11,3502 77655 VAD
058388,000676: 11,3503 01120 ZV
058389,000677: 11,3504 01120 STORE ZV
058390,000678: 11,3505 45014 BOFF CALL
058391,000679: 11,3506 00341 JSWITCH
058392,000680: 11,3507 23557 ENDSTATE
058393,000681: 11,3510 56750 GRP2PC
058394,000682: 11,3511 77354 LXA,2 VLOAD
058395,000683: 11,3512 01102 COLREG
058396,000684: 11,3513 01120 ZV
058397,000685: 11,3514 77732 VSL3 # ADJUST W-POSITION FOR STORAGE
058398,000686: 11,3515 12467 STORE W +54D,2
058399,000687: 11,3516 77775 VLOAD
058400,000688: 11,3517 01112 YV
058401,000689: 11,3520 40132 VSL3 BOV
058402,000690: 11,3521 23651 WMATEND
058403,000691: 11,3522 12401 STORE W,2
058404,000692:
058405,000693: 11,3523 77624 CALL
058406,000694: 11,3524 56750 GRP2PC
058407,000695: # Page 1349
058408,000696: 11,3525 66354 LXA,2 SSP
058409,000697: 11,3526 01102 COLREG
058410,000698: 11,3527 00052 S2
058411,000699: 11,3530 00000 0
058412,000700: 11,3531 67114 INCR,2 SXA,2
058413,000701: 11,3532 00006 6
058414,000702: 11,3533 01111 YV
058415,000703: 11,3534 45104 TIX,2 CALL
058416,000704: 11,3535 23622 RELOADSV
058417,000705: 11,3536 56750 GRP2PC
058418,000706: 11,3537 67154 LXA,2 SXA,2
058419,000707: 11,3540 01111 YV
058420,000708: 11,3541 01102 COLREG
058421,000709:
058422,000710: 11,3542 77624 NEXTCOL CALL
058423,000711: 11,3543 56750 GRP2PC
058424,000712: 11,3544 76754 LXA,2 VLOAD*
058425,000713: 11,3545 01102 COLREG
058426,000714: 11,3546 75376 W,2
058427,000715: 11,3547 77722 VSR3 # ADJUST W-POSITION FOR INTEGRATION
058428,000716: 11,3550 01112 STORE YV
058429,000717: 11,3551 76173 VLOAD* AXT,1
058430,000718: 11,3552 75310 W +54D,2
058431,000719: 11,3553 00000 0
058432,000720: 11,3554 77722 VSR3 # ADJUST W-VELOCITY FOR INTEGRATION
058433,000721: 11,3555 35120 STCALL ZV
058434,000722: 11,3556 23305 DIFEQ0
058435,000723:
058436,000724: 11,3557 77200 ENDSTATE BOV VLOAD
058437,000725: 11,3560 22762 GOBAQUE
058438,000726: 11,3561 01120 ZV
058439,000727: 11,3562 25527 STOVL TNUV
058440,000728: 11,3563 01112 YV
058441,000729: 11,3564 01521 STORE TDELTAV
058442,000730: 11,3565 43014 BON BOFF
058443,000731: 11,3566 04715 MIDAVFLG
058444,000732: 11,3567 27633 CKMID2 # CHECK FOR MID2 BEFORE GOING TO TIMEINC
058445,000733: 11,3570 01756 DIM0FLAG
058446,000734: 11,3571 27305 TESTLOOP
058447,000735: 11,3572 77776 EXIT
058448,000736: 11,3573 05412 TC PHASCHNG
058449,000737: 11,3574 04022 OCT 04022 # PHASE 1
058450,000738: 11,3575 05546 TC UPFLAG # PHASE CHANGE HAS OCCURRED BETWEEN
058451,000739: 11,3576 00236 ADRES REINTFLG # INTSTALL AND INTWAKE
058452,000740: 11,3577 06006 TC INTPRET
058453,000741: 11,3600 77731 SSP
058454,000742: 11,3601 00053 QPRET
058455,000743: 11,3602 23607 AMOVED
058456,000744: 11,3603 52014 BON GOTO
058457,000745: 11,3604 01714 VINTFLAG
058458,000746: # Page 1350
058459,000747: 11,3605 26705 ATOPCSM
058460,000748: 11,3606 26760 ATOPLEM
058461,000749: 11,3607 66214 AMOVED SET SSP
058462,000750: 11,3610 00061 JSWITCH
058463,000751: 11,3611 01103 COLREG
058464,000752: 11,3612 77741 DEC -30 B-14
058465,000753: 11,3613 66214 BOFF SSP
058466,000754: 11,3614 01755 D6OR9FLG
058467,000755: 11,3615 23542 NEXTCOL
058468,000756: 11,3616 01103 COLREG
058469,000757: 11,3617 77717 DEC -48 B-14
058470,000758: 11,3620 77650 GOTO
058471,000759: 11,3621 23542 NEXTCOL
058472,000760:
058473,000761: 11,3622 77745 RELOADSV DLOAD # RELOAD TEMPORARY STATE VECTOR
058474,000762: 11,3623 01101 TDEC # FROM PERMANENT IN CASE OF
058475,000763: 11,3624 34041 STCALL TDEC1
058476,000764: 11,3625 27167 INTEGRV2 # BY STARTING AT INTEGRV2.
058477,000765: 11,3626 43345 DIFEQCOM DLOAD DAD # INCREMENT H AND DIFEQCNT.
058478,000766: 11,3627 02314 DT/2
058479,000767: 11,3630 02212 H
058480,000768: 11,3631 66110 INCR,1 SXA,1
058481,000769: 11,3632 77763 DEC -12 B-14
058482,000770: 11,3633 01500 DIFEQCNT # DIFEQCNT SET FOR NEXT ENTRY.
058483,000771: 11,3634 02212 STORE H
058484,000772: 11,3635 74561 VXSC VSR1
058485,000773: 11,3636 02202 FV
058486,000774: 11,3637 74255 VAD VXSC
058487,000775: 11,3640 01120 ZV
058488,000776: 11,3641 02212 H
058489,000777: 11,3642 77655 VAD
058490,000778: 11,3643 01112 YV
058491,000779: 11,3644 02152 STORE ALPHAV
058492,000780: 11,3645 52014 BON GOTO
058493,000781: 11,3646 00301 JSWITCH
058494,000782: 11,3647 23665 DOW..
058495,000783: 11,3650 22472 FBR3
058496,000784:
058497,000785: 11,3651 43014 WMATEND CLEAR CLEAR
058498,000786: 11,3652 01676 DIM0FLAG # DON'T INTEGRATE W THIS TIME
058499,000787: 11,3653 01671 ORBWFLAG # INVALIDATE W
058500,000788: 11,3654 77614 CLEAR
058501,000789: 11,3655 02676 RENDWFLG
058502,000790: 11,3656 77414 SET EXIT
058503,000791: 11,3657 01472 STATEFLG # PICK UP STATE VECTOR UPDATE
058504,000792: 11,3660 05650 TC ALARM
058505,000793: 11,3661 00421 OCT 421
058506,000794: 11,3662 06006 TC INTPRET
058507,000795: # Page 1351
058508,000796: 11,3663 77650 GOTO
058509,000797: 11,3664 27305 TESTLOOP # FINISH INTEGRATING STATE VECTOR
058510,000798:
058511,000799: # Page 1352
058512,000800: # ORBITAL ROUTINE FOR EXTRAPOLATION OF THE W MATRIX. IT COMPUTES THE SECOND DERIVATIVE OF EACH COLUMN POSITION
058513,000801: # VECTOR OF THE MATRIX AND CALLS THE NYSTROM INTEGRATION ROUTINES TO SOLVE THE DIFFERENTIAL EQUATIONS. THE PROGRAM
058514,000802: # USES A TABLE OF VEHICLE POSITION VECTORS COMPUTED DURING THE INTEGRATION OF THE VEHICLE'S POSITION AND VELOCITY.
058515,000803:
058516,000804: 11,3665 70754 DOW.. LXA,2 DLOAD*
058517,000805: 11,3666 02150 PBODY
058518,000806: 11,3667 50042 MUEARTH,2
058519,000807: 11,3670 36210 STCALL BETAM
058520,000808: 11,3671 23713 DOW..1
058521,000809: 11,3672 02202 STORE FV
058522,000810: 11,3673 62014 BOF INCR,1
058523,000811: 11,3674 00342 MIDFLAG
058524,000812: 11,3675 23220 NBRANCH
058525,000813: 11,3676 77771 DEC -6 B-14
058526,000814: 11,3677 70744 LXC,2 DLOAD*
058527,000815: 11,3700 02150 PBODY
058528,000816: 11,3701 50044 MUEARTH -2,2
058529,000817: 11,3702 36210 STCALL BETAM
058530,000818: 11,3703 23713 DOW..1
058531,000819: 11,3704 50414 BON VSR6
058532,000820: 11,3705 00303 MOONFLAG
058533,000821: 11,3706 23707 +1
058534,000822: 11,3707 77655 VAD
058535,000823: 11,3710 02202 FV
058536,000824: 11,3711 36202 STCALL FV
058537,000825: 11,3712 23220 NBRANCH
058538,000826: 11,3713 60575 DOW..1 VLOAD VSR4
058539,000827: 11,3714 02152 ALPHAV
058540,000828: 11,3715 53513 PDVL* UNIT
058541,000829: 11,3716 02217 VECTAB,1
058542,000830: 11,3717 46315 PDVL VPROJ
058543,000831: 11,3720 02152 ALPHAV
058544,000832: 11,3721 52361 VXSC VSU
058545,000833: 11,3722 23764 3/4
058546,000834: 11,3723 60325 PDDL NORM
058547,000835: 11,3724 00045 36D
058548,000836: 11,3725 00052 S2
058549,000837: 11,3726 63406 PUSH DSQ
058550,000838: 11,3727 77605 DMP
058551,000839: 11,3730 65301 NORM PDDL
058552,000840: 11,3731 00043 34D
058553,000841: 11,3732 02210 BETAM
058554,000842: 11,3733 56342 SR1 DDV
058555,000843: 11,3734 77761 VXSC
058556,000844: 11,3735 57154 LXA,2 XAD,2
058557,000845: 11,3736 00051 S2
058558,000846: 11,3737 00051 S2
058559,000847: 11,3740 57074 XAD,2 XAD,2
058560,000848: 11,3741 00051 S2
058561,000849: 11,3742 00042 34D
058562,000850: 11,3743 43457 VSL* RVQ
058563,000851: # Page 1353
058564,000852: 11,3744 57606 0 -8D,2
058565,000853:
058566,000854: 11,2000 SETLOC ORBITAL1
058567,000855: 11,2000 BANK
058568,000856:
058569,000857: 11,3745 04631 23146 3/5 2DEC .6 B-2
058570,000858: 11,3747 14000 00000 THREE/8 2DEC .375
058571,000859: 11,3751 02314 31463 .3D 2DEC .3 B-2
058572,000860: 11,3753 01400 00000 3/64 2DEC 3 B-6
058573,000861: 11,3755 10000 00000 DP1/4 2DEC .25
058574,000862: 11,3757 11,3755 DQUARTER EQUALS DP1/4
058575,000863: 11,3757 11,3755 POS1/4 EQUALS DP1/4
058576,000864: 11,3757 03000 00000 3/32 2DEC 3 B-5
058577,000865: 11,3761 36000 00000 15/16 2DEC 15. B-4
058578,000866: 11,3763 30000 00000 3/4 2DEC 3.0 B-2
058579,000867: 11,3765 22525 12525 7/12 2DEC .5833333333
058580,000868: 11,3767 22000 00000 9/16 2DEC 9 B-4
058581,000869: 11,3771 01200 00000 5/128 2DEC 5 B-7
058582,000870: 11,3773 04,3565 DPZERO EQUALS ZEROVEC
058583,000871: 11,3773 25252 25253 DP2/3 2DEC .6666666667
058584,000872: 11,3775 11,3773 2/3 EQUALS DP2/3
058585,000873: 11,3775 00027 OCT27 OCT 27
058586,000874:
058587,000875: 13,3714 BANK 13
058588,000876: 13,2000 SETLOC ORBITAL2
058589,000877: 13,2000 BANK
058590,000878: # IT IS VITAL THAT THE FOLLOWING CONSTANTS NOT BE SHUFFLED
058591,000879: 13,3714 77764 DEC -11 B-14
058592,000880: 13,3715 77775 DEC -2 B-14
058593,000881: 13,3716 77766 DEC -9 B-14
058594,000882: 13,3717 77771 DEC -6 B-14
058595,000883: 13,3720 77775 DEC -2 B-14
058596,000884: 13,3721 77775 DEC -2 B-14
058597,000885: 13,3722 00000 DEC 0 B-14
058598,000886: 13,3723 77763 DEC -12 B-14
058599,000887: 13,3724 77766 DEC -9 B-14
058600,000888: 13,3725 77773 DEC -4 B-14
058601,000889: 13,3726 77770 ASCALE DEC -7 B-14
058602,000890: 13,3727 77771 DEC -6 B-14
058603,000891: # Page 1354
058604,000892: 13,3730 27446 14620 2DEC* 1.32715445 E16 B-54* # S
058605,000893: 13,3732 16471 01352 2DEC* 4.9027780 E8 B-30* # M
058606,000894: 13,3734 22437 16067 MUEARTH 2DEC* 3.986032 E10 B-36*
058607,000895: 13,3736 00000 00000 2DEC 0 B-28
058608,000896: 13,3740 02302 24736 J4REQ/J3 2DEC* .4991607391 E7 B-26*
058609,000897: 13,3742 77651 76237 2DEC -176236.02 B-25
058610,000898: 13,3744 77776 53032 2J3RE/J2 2DEC* -.1355426363 E5 B-27*
058611,000899: 13,3746 10407 05344 2DEC* .3067493316 E18 B-60*
058612,000900: 13,3750 13710 35320 J2REQSQ 2DEC* 1.75501139 E21 B-72*
058613,000901: 13,3752 12160 12124 3J22R2MU 2DEC* 9.20479048 E16 B-58*
058614,000902: 13,3754 24000 00000 5/8 2DEC 5 B-3
058615,000903: 13,3756 74631 63145 -1/12 2DEC -.1
058616,000904: 13,3760 13,3732 MUM = MUEARTH -2
058617,000905: 13,3760 00243 32703 RECRATIO 2DEC .01
058618,000906: 13,3762 03654 21000 RSPHERE 2DEC 64373.76 E3 B-29
058619,000907: 13,3764 03654 21000 RDM 2DEC 16093.44 E3 B-27
058620,000908: 13,3766 04627 25200 RDE 2DEC 80467.20 E3 B-29
058621,000909: 13,3770 RATT EQUALS 00
058622,000910: 13,3770 VATT EQUALS 6D
058623,000911: 13,3770 TAT EQUALS 12D
058624,000912: 13,3770 RATT1 EQUALS 14D
058625,000913: 13,3770 VATT1 EQUALS 20D
058626,000914: 13,3770 MU(P) EQUALS 26D
058627,000915: 13,3770 TDEC1 EQUALS 32D
058628,000916: 13,3770 URPV EQUALS 14D
058629,000917: 13,3770 0000022 COSPHI/2 EQUALS URPV +4
058630,000918: 13,3770 UZ EQUALS 20D
058631,000919: 13,3770 TVEC EQUALS 26D
058632,000920:
058633,000921:
058634,000922:
End of include-file ORBITAL_INTEGRATION.agc. Parent file is MAIN.agc