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