Source Code

052138,000001: # Copyright: Public domain. 052139,000002: # Filename: ORBITAL_INTEGRATION.agc 052140,000003: # Purpose: Part of the source code for Luminary 1A build 099. 052141,000004: # It is part of the source code for the Lunar Module's (LM) 052142,000005: # Apollo Guidance Computer (AGC), for Apollo 11. 052143,000006: # Assembler: yaYUL 052144,000007: # Contact: Ron Burkey <info@sandroid.org>. 052145,000008: # Website: www.ibiblio.org/apollo. 052146,000009: # Pages: 1227-1248 052147,000010: # Mod history: 2009-05-26 RSB Adapted from the corresponding 052148,000011: # Luminary131 file, using page 052149,000012: # images from Luminary 1A. 052150,000013: # 2009-06-05 RSB Fixed 3 typos. 052151,000014: # 2009-06-06 RSB Page 1248 was missing entirely for some reason. 052152,000015: # 2009-06-07 RSB Corrected a typo. 052153,000016: 052154,000017: # This source code has been transcribed or otherwise adapted from 052155,000018: # digitized images of a hardcopy from the MIT Museum. The digitization 052156,000019: # was performed by Paul Fjeld, and arranged for by Deborah Douglas of 052157,000020: # the Museum. Many thanks to both. The images (with suitable reduction 052158,000021: # in storage size and consequent reduction in image quality as well) are 052159,000022: # available online at www.ibiblio.org/apollo. If for some reason you 052160,000023: # find that the images are illegible, contact me at info@sandroid.org 052161,000024: # about getting access to the (much) higher-quality images which Paul 052162,000025: # actually created. 052163,000026: 052164,000027: # Notations on the hardcopy document read, in part: 052165,000028: 052166,000029: # Assemble revision 001 of AGC program LMY99 by NASA 2021112-61 052167,000030: # 16:27 JULY 14, 1969 052168,000031: 052169,000032: # Page 1227 052170,000033: # ORBITAL INTEGRATION 052171,000034: 052172,000035: # DELETE 052173,000036: 13,3675 BANK 13 052174,000037: 11,2000 SETLOC ORBITAL 052175,000038: 11,2000 BANK 052176,000039: 11,2376 COUNT* $$/ORBIT 052177,000040: 052178,000041: # DELETE 052179,000042: 11,2376 40354 KEPPREP LXA,2 SETPD 052180,000043: 11,2377 02030 PBODY 052181,000044: 11,2400 00001 0 052182,000045: 11,2401 75543 DLOAD* SQRT # SQRT(MU) (+18 OR +15) 0D PL 2D 052183,000046: 11,2402 51770 MUEARTH,2 052184,000047: 11,2403 53515 PDVL UNIT # PL 8D 052185,000048: 11,2404 01535 RCV 052186,000049: 11,2405 60325 PDDL NORM # NORM R (+29 OR +27 - N1) 2D PL 4D 052187,000050: 11,2406 00045 36D 052188,000051: 11,2407 00047 X1 052189,000052: 11,2410 77715 PDVL 052190,000053: 11,2411 65241 DOT PDDL # F*SQRT(MU) (+7 OR +5) 4D PL 6D 052191,000054: 11,2412 01543 VCV 052192,000055: 11,2413 02074 TAU. # (+28) 052193,000056: 11,2414 60225 DSU NORM 052194,000057: 11,2415 01551 TC 052195,000058: 11,2416 00051 S1 052196,000059: 11,2417 77742 SR1 052197,000060: 11,2420 65271 DDV PDDL 052198,000061: 11,2421 00003 2D 052199,000062: 11,2422 41405 DMP PUSH # FS (+6 +N1-N2) 6D PL 8D 052200,000063: 11,2423 00005 4D 052201,000064: 11,2424 65316 DSQ PDDL # (FS)SQ (+12 +2(N1-N2)) 8D PL 10D 052202,000065: 11,2425 00005 4D 052203,000066: 11,2426 64716 DSQ PDDL* # SSQ/MU (-20R +2(N1-N2)) 10D PL 12D 052204,000067: 11,2427 51770 MUEARTH,2 052205,000068: 11,2430 40442 SR3 SR4 052206,000069: 11,2431 47515 PDVL VSQ # PREALIGN MU (+43 OR +37) 12D PL 14D 052207,000070: 11,2432 01543 VCV 052208,000071: 11,2433 44205 DMP BDSU # PL 12D 052209,000072: 11,2434 00045 36D 052210,000073: 11,2435 41271 DDV DMP # PL 10D 052211,000074: 11,2436 00003 2D # -(1/R-ALPHA) (+12 +3N1-2N2) 052212,000075: 11,2437 53605 DMP SL* 052213,000076: 11,2440 25774 DP2/3 052214,000077: 11,2441 20176 0 -3,1 # 10L(1/R-ALPHA) (+13 +2(N1-N2)) 052215,000078: 11,2442 43260 XSU,1 DAD # 2(FS)SQ - ETCETERA PL 8D 052216,000079: 11,2443 00050 S1 # X1 = N2-N1 052217,000080: 11,2444 45257 SL* DSU # -FS+2(FS)SQ ETC (+6 +N1-N2) PL 6D 052218,000081: 11,2445 20211 8D,1 052219,000082: 11,2446 41205 DMP DMP 052220,000083: 11,2447 00001 0D 052221,000084: 11,2450 00005 4D 052222,000085: 11,2451 53657 SL* SL* 052223,000086: # Page 1228 052224,000087: 11,2452 20211 8D,1 052225,000088: 11,2453 20201 0,1 # S(-FS(1-2FS)-1/6...) (+17 OR +16) 052226,000089: 11,2454 65215 DAD PDDL # PL 6D 052227,000090: 11,2455 01553 XKEP 052228,000091: 11,2456 53605 DMP SL* # S(+17 OR +16) 052229,000092: 11,2457 00001 0D 052230,000093: 11,2460 20202 1,1 052231,000094: 11,2461 43204 BOVB DAD 052232,000095: 11,2462 57753 TCDANZIG 052233,000096: 11,2463 77626 STADR 052234,000097: 11,2464 75647 STORE XKEPNEW 052235,000098: 11,2465 74020 STQ AXC,1 052236,000099: 11,2466 02112 KEPRTN 052237,000100: 11,2467 00012 DEC 10 B-14 052238,000101: 11,2470 74014 BON AXC,1 052239,000102: 11,2471 00303 MOONFLAG 052240,000103: 11,2472 24023 KEPLERN 052241,000104: 11,2473 00002 DEC 2 B-14 052242,000105: 11,2474 77650 GOTO 052243,000106: 11,2475 24023 KEPLERN 052244,000107: 052245,000108: # Page 1229 052246,000109: 11,2476 66350 FBR3 LXA,1 SSP 052247,000110: 11,2477 01500 DIFEQCNT 052248,000111: 11,2500 00051 S1 052249,000112: 11,2501 77762 DEC -13 B-14 052250,000113: 11,2502 54345 DLOAD SR 052251,000114: 11,2503 02076 DT/2 052252,000115: 11,2504 20612 9D 052253,000116: 11,2505 61500 TIX,1 ROUND 052254,000117: 11,2506 22507 +1 052255,000118: 11,2507 43206 PUSH DAD 052256,000119: 11,2510 01551 TC 052257,000120: 11,2511 16074 STODL TAU. 052258,000121: 11,2512 77615 DAD 052259,000122: 11,2513 01517 TET 052260,000123: 11,2514 35517 STCALL TET 052261,000124: 11,2515 22376 KEPPREP 052262,000125: 052263,000126: # Page 1230 052264,000127: # AGC ROUTINE TO COMPUTE ACCELERATION COMPONENTS. 052265,000128: 052266,000129: 11,2516 73150 ACCOMP LXA,1 LXA,2 052267,000130: 11,2517 02030 PBODY 052268,000131: 11,2520 02030 PBODY 052269,000132: 11,2521 77775 VLOAD 052270,000133: 11,2522 24007 ZEROVEC 052271,000134: 11,2523 26062 STOVL FV 052272,000135: 11,2524 02032 ALPHAV 052273,000136: 11,2525 53257 VSL* VAD 052274,000137: 11,2526 57605 0 -7,2 052275,000138: 11,2527 01535 RCV 052276,000139: 11,2530 02040 STORE BETAV 052277,000140: 11,2531 65014 BOF XCHX,2 052278,000141: 11,2532 01756 DIM0FLAG 052279,000142: 11,2533 22540 +5 052280,000143: 11,2534 01500 DIFEQCNT 052281,000144: 11,2535 12132 STORE VECTAB,2 052282,000145: 11,2536 77724 XCHX,2 052283,000146: 11,2537 01500 DIFEQCNT 052284,000147: 11,2540 53575 VLOAD UNIT 052285,000148: 11,2541 02032 ALPHAV 052286,000149: 11,2542 16032 STODL ALPHAV 052287,000150: 11,2543 00045 36D 052288,000151: 11,2544 02070 STORE ALPHAM 052289,000152: 11,2545 77624 CALL 052290,000153: 11,2546 22650 GAMCOMP 052291,000154: 11,2547 66175 VLOAD SXA,1 052292,000155: 11,2550 02040 BETAV 052293,000156: 11,2551 00051 S2 052294,000157: 11,2552 16032 STODL ALPHAV 052295,000158: 11,2553 02072 BETAM 052296,000159: 11,2554 02070 STORE ALPHAM 052297,000160: 11,2555 71214 BOF DLOAD 052298,000161: 11,2556 00342 MIDFLAG 052299,000162: 11,2557 23022 OBLATE 052300,000163: 11,2560 01517 TET 052301,000164: 11,2561 77624 CALL 052302,000165: 11,2562 33664 LSPOS 052303,000166: 11,2563 72174 AXT,2 LXA,1 052304,000167: 11,2564 00002 2 052305,000168: 11,2565 00051 S2 052306,000169: 11,2566 77614 BOF 052307,000170: 11,2567 00343 MOONFLAG 052308,000171: 11,2570 22573 +3 052309,000172: 11,2571 77076 VCOMP AXT,2 052310,000173: 11,2572 00000 0 052311,000174: 11,2573 02040 STORE BETAV 052312,000175: 11,2574 26105 STOVL RPQV 052313,000176: # Page 1231 052314,000177: 11,2575 00003 2D 052315,000178: 11,2576 02122 STORE RPSV 052316,000179: 11,2577 45335 SLOAD DSU 052317,000180: 11,2600 01012 MODREG 052318,000181: 11,2601 25776 OCT27 052319,000182: 11,2602 43030 BHIZ BOF 052320,000183: 11,2603 22606 +3 052321,000184: 11,2604 01756 DIM0FLAG 052322,000185: 11,2605 22622 GETRPSV 052323,000186: 11,2606 74375 VLOAD VXSC 052324,000187: 11,2607 02032 ALPHAV 052325,000188: 11,2610 02070 ALPHAM 052326,000189: 11,2611 52257 VSR* VSU 052327,000190: 11,2612 57175 1,2 052328,000191: 11,2613 02040 BETAV 052329,000192: 11,2614 77724 XCHX,2 052330,000193: 11,2615 01500 DIFEQCNT 052331,000194: 11,2616 12140 STORE VECTAB +6,2 052332,000195: 11,2617 02114 STORE RQVV 052333,000196: 11,2620 77724 XCHX,2 052334,000197: 11,2621 01500 DIFEQCNT 052335,000198: 11,2622 62175 GETRPSV VLOAD INCR,1 052336,000199: 11,2623 02105 RPQV 052337,000200: 11,2624 00004 4 052338,000201: 11,2625 43014 CLEAR BOF 052339,000202: 11,2626 04260 RPQFLAG 052340,000203: 11,2627 00343 MOONFLAG 052341,000204: 11,2630 22635 +5 052342,000205: 11,2631 53261 VSR VAD 052343,000206: 11,2632 20612 9D 052344,000207: 11,2633 02122 RPSV 052345,000208: 11,2634 02122 STORE RPSV 052346,000209: 11,2635 77624 CALL 052347,000210: 11,2636 22650 GAMCOMP 052348,000211: 11,2637 62174 AXT,2 INCR,1 052349,000212: 11,2640 00004 4 052350,000213: 11,2641 00004 4 052351,000214: 11,2642 77775 VLOAD 052352,000215: 11,2643 02122 RPSV 052353,000216: 11,2644 36040 STCALL BETAV 052354,000217: 11,2645 22650 GAMCOMP 052355,000218: 11,2646 77650 GOTO 052356,000219: 11,2647 23022 OBLATE 052357,000220: 11,2650 74575 GAMCOMP VLOAD VSR1 052358,000221: 11,2651 02040 BETAV 052359,000222: 11,2652 40236 VSQ SETPD 052360,000223: 11,2653 00001 0 052361,000224: 11,2654 61501 NORM ROUND 052362,000225: 11,2655 00040 31D 052363,000226: 11,2656 60325 PDDL NORM # NORMED B SQUARED TO PD LIST 052364,000227: # Page 1232 052365,000228: 11,2657 02070 ALPHAM # NORMALIZE (LESS ONE) LENGTH OF ALPHA 052366,000229: 11,2660 00041 32D # SAVING NORM SCALE FACTOR IN X1 052367,000230: 11,2661 63342 SR1 PDVL 052368,000231: 11,2662 02040 BETAV # C(PDL+2) = ALMOST NORMED ALPHA 052369,000232: 11,2663 77656 UNIT 052370,000233: 11,2664 16040 STODL BETAV 052371,000234: 11,2665 00045 36D 052372,000235: 11,2666 02072 STORE BETAM 052373,000236: 11,2667 55301 NORM BDDV # FORM NORMALIZE QUOTIEN ALPHAM/BETAM 052374,000237: 11,2670 00042 33D 052375,000238: 11,2671 41562 SR1R PUSH # C(PDL+2) = ALMOST NORMALIZE RHO. 052376,000239: 11,2672 77743 DLOAD* 052377,000240: 11,2673 27710 ASCALE,1 052378,000241: 11,2674 00051 STORE S1 052379,000242: 11,2675 57124 XCHX,2 XAD,2 052380,000243: 11,2676 00050 S1 052381,000244: 11,2677 00040 32D 052382,000245: 11,2700 71264 XSU,2 DLOAD 052383,000246: 11,2701 00041 33D 052384,000247: 11,2702 00003 2D 052385,000248: 11,2703 65057 SR* XCHX,2 052386,000249: 11,2704 57177 0 -1,2 052387,000250: 11,2705 00050 S1 052388,000251: 11,2706 74406 PUSH SR1R # RHO/4 TO 4D 052389,000252: 11,2707 50315 PDVL DOT 052390,000253: 11,2710 02032 ALPHAV 052391,000254: 11,2711 02040 BETAV 052392,000255: 11,2712 44372 SL1R BDSU # (RHO/4) - 2(ALPHAV/2.BETAV/2) 052393,000256: 11,2713 57206 PUSH DMPR # TO PDL+6 052394,000257: 11,2714 00005 4 052395,000258: 11,2715 77752 SL1 052396,000259: 11,2716 43206 PUSH DAD 052397,000260: 11,2717 25756 DQUARTER 052398,000261: 11,2720 75406 PUSH SQRT 052399,000262: 11,2721 41475 DMPR PUSH 052400,000263: 11,2722 00013 10D 052401,000264: 11,2723 43352 SL1 DAD 052402,000265: 11,2724 25756 DQUARTER 052403,000266: 11,2725 43325 PDDL DAD # (1/4)+2((Q+1)/4) TO PD+14D 052404,000267: 11,2726 00013 10D 052405,000268: 11,2727 24005 HALFDP 052406,000269: 11,2730 72475 DMPR SL1 052407,000270: 11,2731 00011 8D 052408,000271: 11,2732 56215 DAD DDV 052409,000272: 11,2733 25750 THREE/8 052410,000273: 11,2734 00017 14D 052411,000274: 11,2735 74275 DMPR VXSC 052412,000275: 11,2736 00007 6 052413,000276: 11,2737 02040 BETAV # _ 052414,000277: 11,2740 64515 PDVL VSR3 # (G/2)(C(PD+4))B/2 TO PD+16D 052415,000278: # Page 1233 052416,000279: 11,2741 02032 ALPHAV 052417,000280: 11,2742 41455 VAD PUSH # A12 + C(PD+16D) TO PD+16D 052418,000281: 11,2743 41345 DLOAD DMP 052419,000282: 11,2744 00001 0 052420,000283: 11,2745 00015 12D 052421,000284: 11,2746 61501 NORM ROUND 052422,000285: 11,2747 00037 30D 052423,000286: 11,2750 40665 BDDV DMP* 052424,000287: 11,2751 00003 2 052425,000288: 11,2752 51770 MUEARTH,2 052426,000289: 11,2753 74276 DCOMP VXSC 052427,000290: 11,2754 57124 XCHX,2 XAD,2 052428,000291: 11,2755 00050 S1 052429,000292: 11,2756 00051 S2 052430,000293: 11,2757 55064 XSU,2 XSU,2 052431,000294: 11,2760 00036 30D 052432,000295: 11,2761 00037 31D 052433,000296: 11,2762 77600 BOV # CLEAR OVIND 052434,000297: 11,2763 22764 +1 052435,000298: 11,2764 65057 VSR* XCHX,2 052436,000299: 11,2765 57177 0 -1,2 052437,000300: 11,2766 00050 S1 052438,000301: 11,2767 77655 VAD 052439,000302: 11,2770 02062 FV 052440,000303: 11,2771 02062 STORE FV 052441,000304: 11,2772 43400 BOV RVQ # RETURN IF NO OVERFLOW 052442,000305: 11,2773 22774 +1 052443,000306: 11,2774 51575 GOBAQUE VLOAD ABVAL 052444,000307: 11,2775 01521 TDELTAV 052445,000308: 11,2776 77654 BZE 052446,000309: 11,2777 23017 INT-ABRT 052447,000310: 11,3000 54345 DLOAD SR 052448,000311: 11,3001 02100 H 052449,000312: 11,3002 20612 9D 052450,000313: 11,3003 44206 PUSH BDSU 052451,000314: 11,3004 01551 TC 052452,000315: 11,3005 16074 STODL TAU. 052453,000316: 11,3006 01517 TET 052454,000317: 11,3007 45425 DSU STADR 052455,000318: 11,3010 42260 STCALL TET 052456,000319: 11,3011 22376 KEPPREP 052457,000320: 11,3012 77624 CALL 052458,000321: 11,3013 23441 RECTIFY 052459,000322: 11,3014 77614 SETGO 052460,000323: 11,3015 04020 RPQFLAG 052461,000324: 11,3016 27257 TESTLOOP 052462,000325: 052463,000326: 11,3017 77776 INT-ABRT EXIT 052464,000327: 11,3020 05652 TC P00DOO 052465,000328: 11,3021 00430 OCT 00430 052466,000329: 052467,000330: # Page 1234 052468,000331: # THE OBLATE ROUTINE COMPUTES THE ACCELERATION DUE TO OBLATENESS. IT USES THE UNIT OF THE VEHICLE 052469,000332: # POSITION VECTOR FOUND IN ALPHAV AND THE DISTANCE TO THE CENTER IN ALPHAM. THIS IS ADDED TO THE SUM OF THE 052470,000333: # DISTURBING ACCELERATIONS IN FV AND THE PROPER DIFEQ STAGE IS CALLED VIA X1. 052471,000334: 052472,000335: 11,3022 71354 OBLATE LXA,2 DLOAD 052473,000336: 11,3023 02030 PBODY 052474,000337: 11,3024 02070 ALPHAM 052475,000338: 11,3025 44601 SETPD DSU* 052476,000339: 11,3026 00001 0 052477,000340: 11,3027 50053 RDE,2 052478,000341: 11,3030 43044 BPL BOF # GET URPV 052479,000342: 11,3031 23232 NBRANCH 052480,000343: 11,3032 00343 MOONFLAG 052481,000344: 11,3033 23241 COSPHIE 052482,000345: 11,3034 65375 VLOAD PDDL 052483,000346: 11,3035 02032 ALPHAV 052484,000347: 11,3036 01517 TET 052485,000348: 11,3037 45125 PDDL CALL 052486,000349: 11,3040 25746 3/5 052487,000350: 11,3041 51670 R-TO-RP 052488,000351: 11,3042 00017 STORE URPV 052489,000352: 11,3043 47375 VLOAD VXV 052490,000353: 11,3044 02013 504LM 052491,000354: 11,3045 24001 ZUNIT 052492,000355: 11,3046 61255 VAD VXM 052493,000356: 11,3047 24001 ZUNIT 052494,000357: 11,3050 00025 MMATRIX 052495,000358: 11,3051 77656 UNIT # POSSIBLY UNNECESSARY 052496,000359: 11,3052 00025 COMTERM STORE UZ 052497,000360: 11,3053 57345 DLOAD DMPR 052498,000361: 11,3054 00023 COSPHI/2 052499,000362: 11,3055 25760 3/32 052500,000363: 11,3056 63525 PDDL DSQ # P2/64 TO PD0 052501,000364: 11,3057 00023 COSPHI/2 052502,000365: 11,3060 45275 DMPR DSU 052503,000366: 11,3061 25762 15/16 052504,000367: 11,3062 25754 3/64 052505,000368: 11,3063 57206 PUSH DMPR # P3/32 TO PD2 052506,000369: 11,3064 00023 COSPHI/2 052507,000370: 11,3065 76405 DMP SL1R 052508,000371: 11,3066 25766 7/12 052509,000372: 11,3067 57325 PDDL DMPR 052510,000373: 11,3070 00001 0 052511,000374: 11,3071 25774 2/3 052512,000375: 11,3072 41421 BDSU PUSH # P4/128 TO PD4 052513,000376: 11,3073 57275 DMPR DMPR 052514,000377: 11,3074 00023 COSPHI/2 # BEGIN COMPUTING P5/1024 052515,000378: 11,3075 25770 9/16 052516,000379: 11,3076 57325 PDDL DMPR 052517,000380: 11,3077 00003 2 052518,000381: 11,3100 25772 5/128 052519,000382: # Page 1235 052520,000383: 11,3101 77621 BDSU 052521,000384: 11,3102 77603 DMP* 052522,000385: 11,3103 51764 J4REQ/J3,2 052523,000386: 11,3104 43271 DDV DAD # -3 052524,000387: 11,3105 02070 ALPHAM # (((P5/256)B 2 /R+P4/32) /R+P3/8)ALPHAV 052525,000388: 11,3106 00005 4 # 4 3 052526,000389: 11,3107 56273 DMPR* DDV 052527,000390: 11,3110 51760 2J3RE/J2,2 052528,000391: 11,3111 02070 ALPHAM 052529,000392: 11,3112 74215 DAD VXSC 052530,000393: 11,3113 00003 2 052531,000394: 11,3114 02032 ALPHAV 052532,000395: 11,3115 14033 STODL TVEC 052533,000396: 11,3116 70403 DMP* SR1 052534,000397: 11,3117 51764 J4REQ/J3,2 052535,000398: 11,3120 43271 DDV DAD 052536,000399: 11,3121 02070 ALPHAM 052537,000400: 11,3122 50473 DMPR* SR3 052538,000401: 11,3123 51760 2J3RE/J2,2 052539,000402: 11,3124 43271 DDV DAD 052540,000403: 11,3125 02070 ALPHAM 052541,000404: 11,3126 76561 VXSC VSL1 052542,000405: 11,3127 00025 UZ 052543,000406: 11,3130 77645 BVSU 052544,000407: 11,3131 00033 TVEC 052545,000408: 11,3132 14033 STODL TVEC 052546,000409: 11,3133 02070 ALPHAM 052547,000410: 11,3134 63501 NORM DSQ 052548,000411: 11,3135 00047 X1 052549,000412: 11,3136 60316 DSQ NORM 052550,000413: 11,3137 00051 S1 # 4 052551,000414: 11,3140 54606 PUSH BDDV* # NORMED R TO 0D 052552,000415: 11,3141 51754 J2REQSQ,2 052553,000416: 11,3142 40161 VXSC BOV 052554,000417: 11,3143 00033 TVEC 052555,000418: 11,3144 23145 +1 # (RESET OVERFLOW INDICATOR) 052556,000419: 11,3145 56070 XAD,1 XAD,1 052557,000420: 11,3146 00046 X1 052558,000421: 11,3147 00046 X1 052559,000422: 11,3150 53670 XAD,1 VSL* 052560,000423: 11,3151 00050 S1 052561,000424: 11,3152 20153 0 -22D,1 052562,000425: 11,3153 40055 VAD BOV 052563,000426: 11,3154 02062 FV 052564,000427: 11,3155 22774 GOBAQUE 052565,000428: 11,3156 36062 STCALL FV 052566,000429: 11,3157 27725 QUALITY1 052567,000430: 052568,000431: 11,3160 77716 QUALITY3 DSQ # J22 TERM X R**4 IN 2D, SCALED B61 052569,000432: # AS VECTOR. 052570,000433: # Page 1236 052571,000434: 11,3161 41206 PUSH DMP # STORE COSPHI**2 SCALED B2 IN 8D 052572,000435: 11,3162 27712 5/8 # 5 SCALED B3 052573,000436: 11,3163 60525 PDDL SR2 # PUT 5 COSPHI**2, D5, IN 8D. GET 052574,000437: # COSPHI**2 D2 FROM 8D 052575,000438: 11,3164 44215 DAD BDSU # END UP WITH (1-7 COSPHI**2), B5 052576,000439: 11,3165 00011 8D # ADDING COSPHI**2 B4 SAME AS COSPHI**2 052577,000440: # X 2 D5 052578,000441: 11,3166 11043 D1/32 # 1 SCALED B5 052579,000442: 11,3167 41205 DMP DMP 052580,000443: 11,3170 00017 URPV # X COMPONENT 052581,000444: 11,3171 27712 5/8 # 5 SCALED B3 052582,000445: 11,3172 56561 VXSC VSL5 # AFTER SHIFT, SCALED B5 052583,000446: 11,3173 00017 URPV # VECTOR, B1. 052584,000447: 11,3174 77725 PDDL # VECTOR INTO 8D, 10D, 12D, SCALED B5. 052585,000448: # GET 5 COSPHI**2 OUT OF 8D 052586,000449: 11,3175 43225 DSU DAD 052587,000450: 11,3176 11043 D1/32 # 1 B5 052588,000451: 11,3177 00011 8D # X COMPONENT (SAME AS MULTIPLYING 052589,000452: # BY UNITX) 052590,000453: 11,3200 14011 STODL 8D 052591,000454: 11,3201 00017 URPV # X COMPONENT 052592,000455: 11,3202 41205 DMP DMP 052593,000456: 11,3203 00023 URPV +4 # Z COMPONENT 052594,000457: 11,3204 27712 5/8 # 5 B3 ANSWER B5 052595,000458: 11,3205 43352 SL1 DAD # FROM 12D FOR Z COMPONENT (SL1 GIVES 10 052596,000459: # INSTEAD OF 5 FOR COEFFICIENT) 052597,000460: 11,3206 60325 PDDL NORM # BACK INTO 12D FOR Z COMPNENT. 052598,000461: 11,3207 02070 ALPHAM # SCALED B27 FOR MOON 052599,000462: 11,3210 00050 X2 052600,000463: 11,3211 67206 PUSH SLOAD # STORE IN 14D, DESTROYING URPV 052601,000464: # X COMPONENT 052602,000465: 11,3212 01354 E32C31RM 052603,000466: 11,3213 74271 DDV VXSC # IF X2 = 0, DIVISION GIVES B53, VXSC 052604,000467: # OUT OF 8D B5 GIVES B58 052605,000468: 11,3214 53257 VSL* VAD # SHIFT MAKES B61, FOR ADDITION OF 052606,000469: # VECTOR IN 2D 052607,000470: 11,3215 57601 0 -3,2 052608,000471: 11,3216 70257 VSL* V/SC # OPERAND FROM 0D. B108 FOR X1 = 0 052609,000472: 11,3217 20146 0 -27D,1 # FOR X1 = 0, MAKES B88, GIVING B-20 052610,000473: # FOR RESULT. 052611,000474: 11,3220 65325 PDDL PDDL 052612,000475: 11,3221 01517 TET 052613,000476: 11,3222 27712 5/8 # ANY NON-ZERO CONSTANT 052614,000477: 11,3223 45154 LXA,2 CALL # POSITION IN 0D, TIME IN 6D. X2 LEFT 052615,000478: # ALONE. 052616,000479: 11,3224 02030 PBODY 052617,000480: 11,3225 55716 RP-TO-R 052618,000481: 11,3226 40055 VAD BOV # OVERFLOW INDICATOR RESET IN "RP-TO-R" 052619,000482: 11,3227 02062 FV 052620,000483: 11,3230 22774 GOBAQUE 052621,000484: # Page 1237 052622,000485: 11,3231 02062 STORE FV 052623,000486: 11,3232 72135 NBRANCH SLOAD LXA,1 052624,000487: 11,3233 01501 DIFEQCNT 052625,000488: 11,3234 00154 MPAC 052626,000489: 11,3235 73205 DMP CGOTO 052627,000490: 11,3236 27714 -1/12 052628,000491: 11,3237 00155 MPAC 052629,000492: 11,3240 23247 DIFEQTAB 052630,000493: 11,3241 77745 COSPHIE DLOAD 052631,000494: 11,3242 02036 ALPHAV +4 052632,000495: 11,3243 24023 STOVL COSPHI/2 052633,000496: 11,3244 24001 ZUNIT 052634,000497: 11,3245 77650 GOTO 052635,000498: 11,3246 23052 COMTERM 052636,000499: 11,3247 23466 DIFEQTAB CADR DIFEQ+0 052637,000500: 11,3250 23472 CADR DIFEQ+1 052638,000501: 11,3251 23503 CADR DIFEQ+2 052639,000502: 11,3252 77214 TIMESTEP BOF VLOAD 052640,000503: 11,3253 00342 MIDFLAG 052641,000504: 11,3254 23303 RECTEST 052642,000505: 11,3255 01535 RCV 052643,000506: 11,3256 41241 DOT DMP 052644,000507: 11,3257 01543 VCV 052645,000508: 11,3260 02076 DT/2 # (R.V) X (DELTA T) 052646,000509: 11,3261 77640 BMN 052647,000510: 11,3262 23303 RECTEST 052648,000511: 11,3263 43014 BON BOF 052649,000512: 11,3264 00303 MOONFLAG 052650,000513: 11,3265 23360 LUNSPH 052651,000514: 11,3266 04340 RPQFLAG 052652,000515: 11,3267 23355 EARSPH 052653,000516: 11,3270 45145 DLOAD CALL 052654,000517: 11,3271 01517 TET 052655,000518: 11,3272 33664 LSPOS # RPQV IN MPAC 052656,000519: 11,3273 02105 STORE RPQV # RPQV 052657,000520: 11,3274 77754 LXA,2 052658,000521: 11,3275 02030 PBODY 052659,000522: 11,3276 51445 INLUNCHK BVSU ABVAL 052660,000523: 11,3277 01535 RCV 052661,000524: 11,3300 50025 DSU BMN 052662,000525: 11,3301 27720 RSPHERE 052663,000526: 11,3302 23375 DOSWITCH 052664,000527: 11,3303 51575 RECTEST VLOAD ABVAL # RECTIFY IF 052665,000528: 11,3304 01521 TDELTAV 052666,000529: 11,3305 77600 BOV 052667,000530: 11,3306 23331 CALLRECT 052668,000531: 11,3307 51025 DSU BPL # 1) EITHER TDELTAV OR TNUV EQUALS OR 052669,000532: 11,3310 25764 3/4 # EXCEEDS 3/4 IN MAGNITUDE 052670,000533: 11,3311 23331 CALLRECT 052671,000534: 11,3312 53615 DAD SL* # OR 052672,000535: # Page 1238 052673,000536: 11,3313 25764 3/4 052674,000537: 11,3314 57605 0 -7,2 # 2) ABVAL(TDELTAV) EQUALS OR EXCEEDS 052675,000538: 11,3315 45271 DDV DSU # .01(ABVAL(RCV)) 052676,000539: 11,3316 00013 10D 052677,000540: 11,3317 27716 RECRATIO 052678,000541: 11,3320 77244 BPL VLOAD 052679,000542: 11,3321 23331 CALLRECT 052680,000543: 11,3322 01527 TNUV 052681,000544: 11,3323 45246 ABVAL DSU 052682,000545: 11,3324 25764 3/4 052683,000546: 11,3325 77600 BOV 052684,000547: 11,3326 23331 CALLRECT 052685,000548: 11,3327 77640 BMN 052686,000549: 11,3330 23333 INTGRATE 052687,000550: 11,3331 77624 CALLRECT CALL 052688,000551: 11,3332 23441 RECTIFY 052689,000552: 11,3333 77775 INTGRATE VLOAD 052690,000553: 11,3334 01527 TNUV 052691,000554: 11,3335 25135 STOVL ZV 052692,000555: 11,3336 01521 TDELTAV 052693,000556: 11,3337 01127 STORE YV 052694,000557: 11,3340 77614 CLEAR 052695,000558: 11,3341 00261 JSWITCH 052696,000559: 11,3342 66375 DIFEQ0 VLOAD SSP 052697,000560: 11,3343 01127 YV 052698,000561: 11,3344 01501 DIFEQCNT 052699,000562: 11,3345 00000 0 052700,000563: 11,3346 16032 STODL ALPHAV 052701,000564: 11,3347 24007 DPZERO 052702,000565: 11,3350 02100 STORE H # START H AT ZERO. GOES 0(DELT/2)DELT. 052703,000566: 11,3351 52014 BON GOTO 052704,000567: 11,3352 00301 JSWITCH 052705,000568: 11,3353 23705 DOW.. 052706,000569: 11,3354 22516 ACCOMP 052707,000570: 11,3355 52175 EARSPH VLOAD GOTO 052708,000571: 11,3356 02105 RPQV 052709,000572: 11,3357 23276 INLUNCHK 052710,000573: 11,3360 60545 LUNSPH DLOAD SR2 052711,000574: 11,3361 00013 10D 052712,000575: 11,3362 50025 DSU BMN 052713,000576: 11,3363 27720 RSPHERE 052714,000577: 11,3364 23303 RECTEST 052715,000578: 11,3365 71214 BOF DLOAD 052716,000579: 11,3366 04340 RPQFLAG 052717,000580: 11,3367 23375 DOSWITCH 052718,000581: 11,3370 01517 TET 052719,000582: 11,3371 77624 CALL 052720,000583: 11,3372 33664 LUNPOS 052721,000584: 11,3373 77676 VCOMP 052722,000585: 11,3374 02105 STORE RPQV 052723,000586: # Page 1239 052724,000587: 11,3375 77624 DOSWITCH CALL 052725,000588: 11,3376 23401 ORIGCHNG 052726,000589: 11,3377 77650 GOTO 052727,000590: 11,3400 23333 INTGRATE 052728,000591: 11,3401 45020 ORIGCHNG STQ CALL 052729,000592: 11,3402 02112 ORIGEX 052730,000593: 11,3403 23441 RECTIFY 052731,000594: 11,3404 53775 VLOAD VSL* 052732,000595: 11,3405 01535 RCV 052733,000596: 11,3406 57576 0,2 052734,000597: 11,3407 53651 VSU VSL* 052735,000598: 11,3410 02105 RPQV 052736,000599: 11,3411 57574 2,2 052737,000600: 11,3412 01503 STORE RRECT 052738,000601: 11,3413 15535 STODL RCV 052739,000602: 11,3414 01517 TET 052740,000603: 11,3415 77624 CALL 052741,000604: 11,3416 33775 LUNVEL 052742,000605: 11,3417 57414 BOF VCOMP 052743,000606: 11,3420 00343 MOONFLAG 052744,000607: 11,3421 23422 +1 052745,000608: 11,3422 53715 PDVL VSL* 052746,000609: 11,3423 01543 VCV 052747,000610: 11,3424 57576 0,2 052748,000611: 11,3425 77651 VSU 052749,000612: 11,3426 77657 VSL* 052750,000613: 11,3427 57574 0 +2,2 052751,000614: 11,3430 01511 STORE VRECT 052752,000615: 11,3431 01543 STORE VCV 052753,000616: 11,3432 67154 LXA,2 SXA,2 052754,000617: 11,3433 02112 ORIGEX 052755,000618: 11,3434 00052 QPRET 052756,000619: 11,3435 52014 BON GOTO 052757,000620: 11,3436 00303 MOONFLAG 052758,000621: 11,3437 26711 CLRMOON 052759,000622: 11,3440 26716 SETMOON 052760,000623: # Page 1240 052761,000624: # THE RECTIFY SUBROUTINE IS CALLED BY THE INTEGRATION PROGRAM AND OCCASIONALLY BY THE MEASUREMENT INCORPORATION 052762,000625: # ROUTINES TO ESTABLISH A NEW CONIC. 052763,000626: 052764,000627: 11,3441 77354 RECTIFY LXA,2 VLOAD 052765,000628: 11,3442 02030 PBODY 052766,000629: 11,3443 01521 TDELTAV 052767,000630: 11,3444 53257 VSL* VAD 052768,000631: 11,3445 57605 0 -7,2 052769,000632: 11,3446 01535 RCV 052770,000633: 11,3447 01503 STORE RRECT 052771,000634: 11,3450 25535 STOVL RCV 052772,000635: 11,3451 01527 TNUV 052773,000636: 11,3452 53257 VSL* VAD 052774,000637: 11,3453 57602 0 -4,2 052775,000638: 11,3454 01543 VCV 052776,000639: 11,3455 01511 MINIRECT STORE VRECT 052777,000640: 11,3456 25543 STOVL VCV 052778,000641: 11,3457 24007 ZEROVEC 052779,000642: 11,3460 01521 STORE TDELTAV 052780,000643: 11,3461 15527 STODL TNUV 052781,000644: 11,3462 24007 ZEROVEC 052782,000645: 11,3463 01551 STORE TC 052783,000646: 11,3464 01553 STORE XKEP 052784,000647: 11,3465 77616 RVQ 052785,000648: 052786,000649: # Page 1241 052787,000650: # THE THREE DIFEQ ROUTINES -- DIFEQ+0, DIFEQ+12, DIFEQ+24 -- ARE ENTERED TO PROCESS THE CONTRIBUTIONS AT THE 052788,000651: # BEGINNING, MIDDLE, AND END OF THE TIMESTEP, RESPECTIVELY. THE UPDATING IS DONE BY THE NYSTROM METHOD. 052789,000652: 052790,000653: 11,3466 64575 DIFEQ+0 VLOAD VSR3 052791,000654: 11,3467 02062 FV 052792,000655: 11,3470 36046 STCALL PHIV 052793,000656: 11,3471 23646 DIFEQCOM 052794,000657: 11,3472 74575 DIFEQ+1 VLOAD VSR1 052795,000658: 11,3473 02062 FV 052796,000659: 11,3474 53206 PUSH VAD 052797,000660: 11,3475 02046 PHIV 052798,000661: 11,3476 26054 STOVL PSIV 052799,000662: 11,3477 53362 VSR1 VAD 052800,000663: 11,3500 02046 PHIV 052801,000664: 11,3501 36046 STCALL PHIV 052802,000665: 11,3502 23646 DIFEQCOM 052803,000666: 11,3503 57345 DIFEQ+2 DLOAD DMPR 052804,000667: 11,3504 02100 H 052805,000668: 11,3505 25774 DP2/3 052806,000669: 11,3506 74206 PUSH VXSC 052807,000670: 11,3507 02046 PHIV 052808,000671: 11,3510 53372 VSL1 VAD 052809,000672: 11,3511 01135 ZV 052810,000673: 11,3512 53361 VXSC VAD 052811,000674: 11,3513 02100 H 052812,000675: 11,3514 01127 YV 052813,000676: 11,3515 25127 STOVL YV 052814,000677: 11,3516 02062 FV 052815,000678: 11,3517 53322 VSR3 VAD 052816,000679: 11,3520 02054 PSIV 052817,000680: 11,3521 76561 VXSC VSL1 052818,000681: 11,3522 77655 VAD 052819,000682: 11,3523 01135 ZV 052820,000683: 11,3524 01135 STORE ZV 052821,000684: 11,3525 45014 BOFF CALL 052822,000685: 11,3526 00341 JSWITCH 052823,000686: 11,3527 23577 ENDSTATE 052824,000687: 11,3530 11244 GRP2PC 052825,000688: 11,3531 77354 LXA,2 VLOAD 052826,000689: 11,3532 01117 COLREG 052827,000690: 11,3533 01135 ZV 052828,000691: 11,3534 77732 VSL3 # ADJUST W-POSITION FOR STORAGE 052829,000692: 11,3535 12467 STORE W +54D,2 052830,000693: 11,3536 77775 VLOAD 052831,000694: 11,3537 01127 YV 052832,000695: 11,3540 40132 VSL3 BOV 052833,000696: 11,3541 23671 WMATEND 052834,000697: 11,3542 12401 STORE W,2 052835,000698: 052836,000699: 11,3543 77624 CALL 052837,000700: 11,3544 11244 GRP2PC 052838,000701: # Page 1242 052839,000702: 11,3545 66354 LXA,2 SSP 052840,000703: 11,3546 01117 COLREG 052841,000704: 11,3547 00052 S2 052842,000705: 11,3550 00000 0 052843,000706: 11,3551 67114 INCR,2 SXA,2 052844,000707: 11,3552 00006 6 052845,000708: 11,3553 01126 YV 052846,000709: 11,3554 45104 TIX,2 CALL 052847,000710: 11,3555 23642 RELOADSV 052848,000711: 11,3556 11244 GRP2PC 052849,000712: 11,3557 67154 LXA,2 SXA,2 052850,000713: 11,3560 01126 YV 052851,000714: 11,3561 01117 COLREG 052852,000715: 052853,000716: 11,3562 77624 NEXTCOL CALL 052854,000717: 11,3563 11244 GRP2PC 052855,000718: 11,3564 76754 LXA,2 VLOAD* 052856,000719: 11,3565 01117 COLREG 052857,000720: 11,3566 75376 W,2 052858,000721: 11,3567 77722 VSR3 # ADJUST W-POSITION FOR INTEGRATION 052859,000722: 11,3570 01127 STORE YV 052860,000723: 11,3571 76173 VLOAD* AXT,1 052861,000724: 11,3572 75310 W +54D,2 052862,000725: 11,3573 00000 0 052863,000726: 11,3574 77722 VSR3 # ADJUST W-VELOCITY FOR INTEGRATION 052864,000727: 11,3575 35135 STCALL ZV 052865,000728: 11,3576 23342 DIFEQ0 052866,000729: 052867,000730: 11,3577 77200 ENDSTATE BOV VLOAD 052868,000731: 11,3600 22774 GOBAQUE 052869,000732: 11,3601 01135 ZV 052870,000733: 11,3602 25527 STOVL TNUV 052871,000734: 11,3603 01127 YV 052872,000735: 11,3604 01521 STORE TDELTAV 052873,000736: 11,3605 43014 BON BOFF 052874,000737: 11,3606 04715 MIDAVFLG 052875,000738: 11,3607 27633 CKMID2 # CHECK FOR MID2 BEFORE GOING TO TIMEINC 052876,000739: 11,3610 01756 DIM0FLAG 052877,000740: 11,3611 27257 TESTLOOP 052878,000741: 11,3612 77776 EXIT 052879,000742: 11,3613 05353 TC PHASCHNG 052880,000743: 11,3614 04022 OCT 04022 # PHASE 1 052881,000744: 11,3615 05504 TC UPFLAG # PHASE CHANGE HAS OCCURRED BETWEEN 052882,000745: 11,3616 00236 ADRES REINTFLG # INSTALL AND INTWAKE 052883,000746: 11,3617 06037 TC INTPRET 052884,000747: 11,3620 77731 SSP 052885,000748: 11,3621 00053 QPRET 052886,000749: 11,3622 23627 AMOVED 052887,000750: 11,3623 52014 BON GOTO 052888,000751: 11,3624 01714 VINTFLAG 052889,000752: # Page 1243 052890,000753: 11,3625 26661 ATOPCSM 052891,000754: 11,3626 26734 ATOPLEM 052892,000755: 11,3627 66214 AMOVED SET SSP 052893,000756: 11,3630 00061 JSWITCH 052894,000757: 11,3631 01120 COLREG 052895,000758: 11,3632 77741 DEC -30 B-14 052896,000759: 11,3633 66214 BOFF SSP 052897,000760: 11,3634 01755 D6OR9FLG 052898,000761: 11,3635 23562 NEXTCOL 052899,000762: 11,3636 01120 COLREG 052900,000763: 11,3637 77717 DEC -48 B-14 052901,000764: 11,3640 77650 GOTO 052902,000765: 11,3641 23562 NEXTCOL 052903,000766: 052904,000767: 11,3642 77745 RELOADSV DLOAD # RELOAD TEMPORARY STATE VECTOR 052905,000768: 11,3643 01116 TDEC # FROM PERMANENT IN CASE OF 052906,000769: 11,3644 34041 STCALL TDEC1 052907,000770: 11,3645 27141 INTEGRV2 # BY STARTING AT INTEGRV2. 052908,000771: 11,3646 43345 DIFEQCOM DLOAD DAD # INCREMENT H AND DIFEQCNT. 052909,000772: 11,3647 02076 DT/2 052910,000773: 11,3650 02100 H 052911,000774: 11,3651 66110 INCR,1 SXA,1 052912,000775: 11,3652 77763 DEC -12 B-14 052913,000776: 11,3653 01500 DIFEQCNT # DIFEQCNT SET FOR NEXT ENTRY. 052914,000777: 11,3654 02100 STORE H 052915,000778: 11,3655 74561 VXSC VSR1 052916,000779: 11,3656 02062 FV 052917,000780: 11,3657 74255 VAD VXSC 052918,000781: 11,3660 01135 ZV 052919,000782: 11,3661 02100 H 052920,000783: 11,3662 77655 VAD 052921,000784: 11,3663 01127 YV 052922,000785: 11,3664 02032 STORE ALPHAV 052923,000786: 11,3665 52014 BON GOTO 052924,000787: 11,3666 00301 JSWITCH 052925,000788: 11,3667 23705 DOW.. 052926,000789: 11,3670 22476 FBR3 052927,000790: 052928,000791: 11,3671 43014 WMATEND CLEAR CLEAR 052929,000792: 11,3672 01676 DIM0FLAG # DON'T INTEGRATE W THIS TIME 052930,000793: 11,3673 01671 ORBWFLAG # INVALIDATE W 052931,000794: 11,3674 77614 CLEAR 052932,000795: 11,3675 02676 RENDWFLG 052933,000796: 11,3676 77414 SET EXIT 052934,000797: 11,3677 01472 STATEFLG # PICK UP STATE VECTOR UPDATE 052935,000798: 11,3700 05567 TC ALARM 052936,000799: 11,3701 00421 OCT 421 052937,000800: 11,3702 06037 TC INTPRET 052938,000801: # Page 1244 052939,000802: 11,3703 77650 GOTO 052940,000803: 11,3704 27257 TESTLOOP # FINISH INTEGRATING STATE VECTOR 052941,000804: 052942,000805: # Page 1245 052943,000806: # ORBITAL ROUTINE FOR EXTRAPOLATION OF THE W MATRIX. IT COMPUTES THE SECOND DERIVATIVE OF EACH COLUMN POSITION 052944,000807: # VECTOR OF THE MATRIX AND CALLS THE NYSTROM INTEGRATION ROUTINES TO SOLVE THE DIFFERENTIAL EQUATIONS. THE PROGRAM 052945,000808: # USES A TABLE OF VEHICLE POSITION VECTORS COMPUTED DURING THE INTEGRATION OF THE VEHICLE'S POSITION AND VELOCITY. 052946,000809: 052947,000810: 11,3705 70754 DOW.. LXA,2 DLOAD* 052948,000811: 11,3706 02030 PBODY 052949,000812: 11,3707 51770 MUEARTH,2 052950,000813: 11,3710 36072 STCALL BETAM 052951,000814: 11,3711 23733 DOW..1 052952,000815: 11,3712 02062 STORE FV 052953,000816: 11,3713 62014 BOF INCR,1 052954,000817: 11,3714 00342 MIDFLAG 052955,000818: 11,3715 23232 NBRANCH 052956,000819: 11,3716 77771 DEC -6 B-14 052957,000820: 11,3717 70744 LXC,2 DLOAD* 052958,000821: 11,3720 02030 PBODY 052959,000822: 11,3721 51772 MUEARTH -2,2 052960,000823: 11,3722 36072 STCALL BETAM 052961,000824: 11,3723 23733 DOW..1 052962,000825: 11,3724 50414 BON VSR6 052963,000826: 11,3725 00303 MOONFLAG 052964,000827: 11,3726 23727 +1 052965,000828: 11,3727 77655 VAD 052966,000829: 11,3730 02062 FV 052967,000830: 11,3731 36062 STCALL FV 052968,000831: 11,3732 23232 NBRANCH 052969,000832: 11,3733 60575 DOW..1 VLOAD VSR4 052970,000833: 11,3734 02032 ALPHAV 052971,000834: 11,3735 53513 PDVL* UNIT 052972,000835: 11,3736 02132 VECTAB,1 052973,000836: 11,3737 46315 PDVL VPROJ 052974,000837: 11,3740 02032 ALPHAV 052975,000838: 11,3741 52361 VXSC VSU 052976,000839: 11,3742 25764 3/4 052977,000840: 11,3743 60325 PDDL NORM 052978,000841: 11,3744 00045 36D 052979,000842: 11,3745 00052 S2 052980,000843: 11,3746 63406 PUSH DSQ 052981,000844: 11,3747 77605 DMP 052982,000845: 11,3750 65301 NORM PDDL 052983,000846: 11,3751 00043 34D 052984,000847: 11,3752 02072 BETAM 052985,000848: 11,3753 56342 SR1 DDV 052986,000849: 11,3754 77761 VXSC 052987,000850: 11,3755 57154 LXA,2 XAD,2 052988,000851: 11,3756 00051 S2 052989,000852: 11,3757 00051 S2 052990,000853: 11,3760 57074 XAD,2 XAD,2 052991,000854: 11,3761 00051 S2 052992,000855: 11,3762 00042 34D 052993,000856: 11,3763 43457 VSL* RVQ 052994,000857: # Page 1246 052995,000858: 11,3764 57606 0 -8D,2 052996,000859: 052997,000860: # ******************************************************************************** 052998,000861: # ******************************************************************************** 052999,000862: 11,3765 43131 SETITCTR SSP BOFF # SET ITERCTR FOR LAMBERT CALLS. THIS 053000,000863: 11,3766 00027 ITERCTR # CODING BELONGS IN INITVEL AND IS HERE 053001,000864: 11,3767 00024 20D # FOR PURPOSES OF A ONE-MODULE 053002,000865: 11,3770 03752 AVEGFLAG # REMANUFACTURE ONLY. CODING SHOULD 053003,000866: 11,3771 25212 LAMBERT # BE MOVED BACK TO INITVEL FOR LUMINARY 1B 053004,000867: 11,3772 52131 SSP GOTO 053005,000868: 11,3773 00027 ITERCTR 053006,000869: 11,3774 00005 5 053007,000870: 11,3775 25212 LAMBERT 053008,000871: # ******************************************************************************** 053009,000872: # ******************************************************************************** 053010,000873: 053011,000874: 12,2000 SETLOC ORBITAL1 053012,000875: 12,2000 BANK 053013,000876: 053014,000877: 12,3745 04631 23146 3/5 2DEC .6 B-2 053015,000878: 053016,000879: 12,3747 14000 00000 THREE/8 2DEC .375 053017,000880: 053018,000881: 12,3751 02314 31463 .3D 2DEC .3 B-2 053019,000882: 053020,000883: 12,3753 01400 00000 3/64 2DEC 3 B-6 053021,000884: 053022,000885: 12,3755 10000 00000 DP1/4 2DEC .25 053023,000886: 053024,000887: 12,3757 12,3755 DQUARTER EQUALS DP1/4 053025,000888: 12,3757 12,3755 POS1/4 EQUALS DP1/4 053026,000889: 12,3757 03000 00000 3/32 2DEC 3 B-5 053027,000890: 053028,000891: 12,3761 36000 00000 15/16 2DEC 15. B-4 053029,000892: 053030,000893: 12,3763 30000 00000 3/4 2DEC 3.0 B-2 053031,000894: 053032,000895: 12,3765 22525 12525 7/12 2DEC .5833333333 053033,000896: 053034,000897: 12,3767 22000 00000 9/16 2DEC 9 B-4 053035,000898: 053036,000899: 12,3771 01200 00000 5/128 2DEC 5 B-7 053037,000900: 053038,000901: 12,3773 12,2006 DPZERO EQUALS ZEROVEC 053039,000902: 12,3773 25252 25253 DP2/3 2DEC .6666666667 053040,000903: 053041,000904: 12,3775 12,3773 2/3 EQUALS DP2/3 053042,000905: 12,3775 00027 OCT27 OCT 27 053043,000906: 053044,000907: # Page 1247 053045,000908: 13,3675 BANK 13 053046,000909: 13,2000 SETLOC ORBITAL2 053047,000910: 13,2000 BANK 053048,000911: # IT IS VITAL THAT THE FOLLOWING CONSTANTS NOT BE SHUFFLED 053049,000912: 13,3675 77764 DEC -11 B-14 053050,000913: 13,3676 77775 DEC -2 B-14 053051,000914: 13,3677 77766 DEC -9 B-14 053052,000915: 13,3700 77771 DEC -6 B-14 053053,000916: 13,3701 77775 DEC -2 B-14 053054,000917: 13,3702 77775 DEC -2 B-14 053055,000918: 13,3703 00000 DEC 0 B-14 053056,000919: 13,3704 77763 DEC -12 B-14 053057,000920: 13,3705 77766 DEC -9 B-14 053058,000921: 13,3706 77773 DEC -4 B-14 053059,000922: 13,3707 77770 ASCALE DEC -7 B-14 053060,000923: 13,3710 77771 DEC -6 B-14 053061,000924: 13,3711 24000 00000 5/8 2DEC 5 B-3 053062,000925: 053063,000926: 13,3713 74631 63145 -1/12 2DEC -.1 053064,000927: 053065,000928: 13,3715 00243 32703 RECRATIO 2DEC .01 053066,000929: 053067,000930: 13,3717 03654 21000 RSPHERE 2DEC 64373.76 E3 B-29 053068,000931: 053069,000932: 13,3721 03654 21000 RDM 2DEC 16093.44 E3 B-27 053070,000933: 053071,000934: 13,3723 04627 25200 RDE 2DEC 80467.20 E3 B-29 053072,000935: 053073,000936: 13,3725 RATT EQUALS 00 053074,000937: 13,3725 VATT EQUALS 6D 053075,000938: 13,3725 TAT EQUALS 12D 053076,000939: 13,3725 RATT1 EQUALS 14D 053077,000940: 13,3725 VATT1 EQUALS 20D 053078,000941: 13,3725 MU(P) EQUALS 26D 053079,000942: 13,3725 TDEC1 EQUALS 32D 053080,000943: 13,3725 URPV EQUALS 14D 053081,000944: 13,3725 0000022 COSPHI/2 EQUALS URPV +4 053082,000945: 13,3725 UZ EQUALS 20D 053083,000946: 13,3725 TVEC EQUALS 26D 053084,000947: 053085,000948: 13,3725 71214 QUALITY1 BOF DLOAD 053086,000949: 13,3726 00343 MOONFLAG 053087,000950: 13,3727 23232 NBRANCH 053088,000951: 13,3730 00017 URPV 053089,000952: 13,3731 77716 DSQ 053090,000953: 13,3732 63525 QUALITY2 PDDL DSQ # SQUARE INTO 2D, B2 053091,000954: 13,3733 00021 URPV +2 # Y COMPONENT, B1 053092,000955: 13,3734 77625 DSU 053093,000956: 13,3735 74205 DMP VXSC # 5(Y**2-X**2)UR 053094,000957: 13,3736 27712 5/8 # CONSTANT, 5B3 053095,000958: 13,3737 00017 URPV # VECTOR. RESULT MAXIMUM IS 5, SCALING 053096,000959: # Page 1248 053097,000960: # HERE B6 053098,000961: 13,3740 65332 VSL3 PDDL # STORE SCALED B3 IN 2D, 4D, 6D FOR XYZ 053099,000962: 13,3741 00017 URPV # X COMPONENT, B1 053100,000963: 13,3742 43342 SR1 DAD # 2 X X COMPONENT FOR B3 SCALING 053101,000964: 13,3743 00003 2D # ADD TO VECTOR X COMPONENT OF ANSWER, 053102,000965: # SAME AS MULTIPLYING BY UNITX. MAX IS 7. 053103,000966: 13,3744 14003 STODL 2D 053104,000967: 13,3745 00021 URPV +2 # Y COMPONENT, B1 053105,000968: 13,3746 44342 SR1 BDSU # 2 X Y COMPONENT FOR B3 SCALING 053106,000969: 13,3747 00005 4D # SUBTRACT FROM VECTOR Y COMPONENT OF 053107,000970: # ANSWER, SAME AS MULTIPLYING BY UNITY. 053108,000971: # MAX IS 7. 053109,000972: 13,3750 00005 STORE 4D # 2D HAS VECTOR, B3. 053110,000973: 13,3751 74335 SLOAD VXSC # MULTIPLY COEFFICIENT TIMES VECTOR IN 2D 053111,000974: 13,3752 01353 E3J22R2M 053112,000975: 13,3753 43525 PDDL RVQ # J22 TERM X R**4 IN 2D, SCALED B61 053113,000976: 13,3754 00023 COSPHI/2 # SAME AS URPV +4 Z COMPONENT 053114,000977: End of include-file ORBITAL_INTEGRATION.agc. Parent file is MAIN.agc