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