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