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