Source Code

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