Source Code
050681,000001: # Copyright: Public domain.
050682,000002: # Filename: ORBITAL_INTEGRATION.agc
050683,000003: # Purpose: A section of Luminary 1C, revision 131.
050684,000004: # It is part of the source code for the Lunar Module's (LM)
050685,000005: # Apollo Guidance Computer (AGC) for Apollo 13 and Apollo 14.
050686,000006: # This file is intended to be a faithful transcription, except
050687,000007: # that the code format has been changed to conform to the
050688,000008: # requirements of the yaYUL assembler rather than the
050689,000009: # original YUL assembler.
050690,000010: # Reference: pp. 1225-1245 of 1729.pdf.
050691,000011: # Contact: Ron Burkey <info@sandroid.org>.
050692,000012: # Website: www.ibiblio.org/apollo/index.html
050693,000013: # Mod history: 06/02/03 RSB. Began transcribing.
050694,000014: # 05/14/05 RSB Corrected website reference above.
050695,000015:
050696,000016: # Page 1225
050697,000017: # ORBITAL INTEGRATION
050698,000018:
050699,000019: # DELETE
050700,000020: 13,3671 BANK 13
050701,000021: 11,2000 SETLOC ORBITAL
050702,000022: 11,2000 BANK
050703,000023: 11,2404 COUNT* $$/ORBIT
050704,000024:
050705,000025: # DELETE
050706,000026: 11,2404 40354 KEPPREP LXA,2 SETPD
050707,000027: 11,2405 02030 PBODY
050708,000028: 11,2406 00001 0
050709,000029: 11,2407 75543 DLOAD* SQRT # SQRT(MU) (+18 OR +15) 0D PL 2D
050710,000030: 11,2410 51770 MUEARTH,2
050711,000031: 11,2411 53515 PDVL UNIT # PL 8D
050712,000032: 11,2412 01535 RCV
050713,000033: 11,2413 60325 PDDL NORM # NORM R (+29 OR +27 - N1) 2D PL 4D
050714,000034: 11,2414 00045 36D
050715,000035: 11,2415 00047 X1
050716,000036: 11,2416 77715 PDVL
050717,000037: 11,2417 65241 DOT PDDL # F*SQRT(MU) (+7 OR +5) 4D PL 6D
050718,000038: 11,2420 01543 VCV
050719,000039: 11,2421 02074 TAU. # (+28)
050720,000040: 11,2422 60225 DSU NORM
050721,000041: 11,2423 01551 TC
050722,000042: 11,2424 00051 S1
050723,000043: 11,2425 77742 SR1
050724,000044: 11,2426 65271 DDV PDDL
050725,000045: 11,2427 00003 2D
050726,000046: 11,2430 41405 DMP PUSH # FS (+6 +N1-N2) 6D PL 8D
050727,000047: 11,2431 00005 4D
050728,000048: 11,2432 65316 DSQ PDDL # (FS)SQ (+12 +2(N1-N2)) 8D PL 10D
050729,000049: 11,2433 00005 4D
050730,000050: 11,2434 64716 DSQ PDDL* # SSQ/MU (-20R +2(N1-N2)) 10D PL 12D
050731,000051: 11,2435 51770 MUEARTH,2
050732,000052: 11,2436 40442 SR3 SR4
050733,000053: 11,2437 47515 PDVL VSQ # PREALIGN MU (+43 OR +37) 12D PL 14D
050734,000054: 11,2440 01543 VCV
050735,000055: 11,2441 44205 DMP BDSU # PL 12D
050736,000056: 11,2442 00045 36D
050737,000057: 11,2443 41271 DDV DMP # PL 10D
050738,000058: 11,2444 00003 2D # -(1/R-ALPHA) (+12 +3N1-2N2)
050739,000059: 11,2445 53605 DMP SL*
050740,000060: 11,2446 11230 DP2/3
050741,000061: 11,2447 20176 0 -3,1 # 10L(1/R-ALPHA) (+13 +2(N1-N2))
050742,000062: 11,2450 43260 XSU,1 DAD # 2(FS)SQ - ETCETERA PL 8D
050743,000063: 11,2451 00050 S1 # X1 = N2-N1
050744,000064: 11,2452 45257 SL* DSU # -FS+2(FS)SQ ETC (+6 +N1-N2) PL 6D
050745,000065: 11,2453 20211 8D,1
050746,000066: 11,2454 41205 DMP DMP
050747,000067: 11,2455 00001 0D
050748,000068: 11,2456 00005 4D
050749,000069: 11,2457 53657 SL* SL*
050750,000070: # Page 1226
050751,000071: 11,2460 20211 8D,1
050752,000072: 11,2461 20201 0,1 # S(-FS(1-2FS)-1/6...) (+17 OR +16)
050753,000073: 11,2462 65215 DAD PDDL # PL 6D
050754,000074: 11,2463 01553 XKEP
050755,000075: 11,2464 53605 DMP SL* # S(+17 OR +16)
050756,000076: 11,2465 00001 0D
050757,000077: 11,2466 20202 1,1
050758,000078: 11,2467 43204 BOVB DAD
050759,000079: 11,2470 57754 TCDANZIG
050760,000080: 11,2471 77626 STADR
050761,000081: 11,2472 75647 STORE XKEPNEW
050762,000082: 11,2473 74020 STQ AXC,1
050763,000083: 11,2474 02112 KEPRTN
050764,000084: 11,2475 00012 DEC 10 B-14
050765,000085: 11,2476 74014 BON AXC,1
050766,000086: 11,2477 00303 MOONFLAG
050767,000087: 11,2500 24023 KEPLERN
050768,000088: 11,2501 00002 DEC 2 B-14
050769,000089: 11,2502 77650 GOTO
050770,000090: 11,2503 24023 KEPLERN
050771,000091:
050772,000092: # Page 1227
050773,000093: 11,2504 66350 FBR3 LXA,1 SSP
050774,000094: 11,2505 01500 DIFEQCNT
050775,000095: 11,2506 00051 S1
050776,000096: 11,2507 77762 DEC -13 B-14
050777,000097: 11,2510 54345 DLOAD SR
050778,000098: 11,2511 02076 DT/2
050779,000099: 11,2512 20612 9D
050780,000100: 11,2513 61500 TIX,1 ROUND
050781,000101: 11,2514 22515 +1
050782,000102: 11,2515 43206 PUSH DAD
050783,000103: 11,2516 01551 TC
050784,000104: 11,2517 16074 STODL TAU.
050785,000105: 11,2520 77615 DAD
050786,000106: 11,2521 01517 TET
050787,000107: 11,2522 35517 STCALL TET
050788,000108: 11,2523 22404 KEPPREP
050789,000109:
050790,000110: # Page 1228
050791,000111: # AGC ROUTINE TO COMPUTE ACCELERATION COMPONENTS.
050792,000112:
050793,000113: 11,2524 73150 ACCOMP LXA,1 LXA,2
050794,000114: 11,2525 02030 PBODY
050795,000115: 11,2526 02030 PBODY
050796,000116: 11,2527 77775 VLOAD
050797,000117: 11,2530 24007 ZEROVEC
050798,000118: 11,2531 26062 STOVL FV
050799,000119: 11,2532 02032 ALPHAV
050800,000120: 11,2533 53257 VSL* VAD
050801,000121: 11,2534 57605 0 -7,2
050802,000122: 11,2535 01535 RCV
050803,000123: 11,2536 02040 STORE BETAV
050804,000124: 11,2537 65014 BOF XCHX,2
050805,000125: 11,2540 01756 DIM0FLAG
050806,000126: 11,2541 22546 +5
050807,000127: 11,2542 01500 DIFEQCNT
050808,000128: 11,2543 12132 STORE VECTAB,2
050809,000129: 11,2544 77724 XCHX,2
050810,000130: 11,2545 01500 DIFEQCNT
050811,000131: 11,2546 53575 VLOAD UNIT
050812,000132: 11,2547 02032 ALPHAV
050813,000133: 11,2550 16032 STODL ALPHAV
050814,000134: 11,2551 00045 36D
050815,000135: 11,2552 36070 STCALL ALPHAM
050816,000136: 11,2553 22655 GAMCOMP
050817,000137: 11,2554 66175 VLOAD SXA,1
050818,000138: 11,2555 02040 BETAV
050819,000139: 11,2556 00051 S2
050820,000140: 11,2557 16032 STODL ALPHAV
050821,000141: 11,2560 02072 BETAM
050822,000142: 11,2561 02070 STORE ALPHAM
050823,000143: 11,2562 71214 BOF DLOAD
050824,000144: 11,2563 00342 MIDFLAG
050825,000145: 11,2564 23026 OBLATE
050826,000146: 11,2565 01517 TET
050827,000147: 11,2566 77624 CALL
050828,000148: 11,2567 33647 LSPOS
050829,000149: 11,2570 72174 AXT,2 LXA,1
050830,000150: 11,2571 00002 2
050831,000151: 11,2572 00051 S2
050832,000152: 11,2573 77614 BOF
050833,000153: 11,2574 00343 MOONFLAG
050834,000154: 11,2575 22600 +3
050835,000155: 11,2576 77076 VCOMP AXT,2
050836,000156: 11,2577 00000 0
050837,000157: 11,2600 02040 STORE BETAV
050838,000158: 11,2601 26105 STOVL RPQV
050839,000159: 11,2602 00003 2D
050840,000160: # Page 1229
050841,000161: 11,2603 02122 STORE RPSV
050842,000162: 11,2604 45335 SLOAD DSU
050843,000163: 11,2605 01011 MODREG
050844,000164: 11,2606 11232 OCT27
050845,000165: 11,2607 43030 BHIZ BOF
050846,000166: 11,2610 22613 +3
050847,000167: 11,2611 01756 DIM0FLAG
050848,000168: 11,2612 22627 GETRPSV
050849,000169: 11,2613 74375 VLOAD VXSC
050850,000170: 11,2614 02032 ALPHAV
050851,000171: 11,2615 02070 ALPHAM
050852,000172: 11,2616 52257 VSR* VSU
050853,000173: 11,2617 57175 1,2
050854,000174: 11,2620 02040 BETAV
050855,000175: 11,2621 77724 XCHX,2
050856,000176: 11,2622 01500 DIFEQCNT
050857,000177: 11,2623 12140 STORE VECTAB +6,2
050858,000178: 11,2624 02114 STORE RQVV
050859,000179: 11,2625 77724 XCHX,2
050860,000180: 11,2626 01500 DIFEQCNT
050861,000181: 11,2627 62175 GETRPSV VLOAD INCR,1
050862,000182: 11,2630 02105 RPQV
050863,000183: 11,2631 00004 4
050864,000184: 11,2632 43014 CLEAR BOF
050865,000185: 11,2633 04260 RPQFLAG
050866,000186: 11,2634 00343 MOONFLAG
050867,000187: 11,2635 22642 +5
050868,000188: 11,2636 53261 VSR VAD
050869,000189: 11,2637 20612 9D
050870,000190: 11,2640 02122 RPSV
050871,000191: 11,2641 02122 STORE RPSV
050872,000192: 11,2642 77624 CALL
050873,000193: 11,2643 22655 GAMCOMP
050874,000194: 11,2644 62174 AXT,2 INCR,1
050875,000195: 11,2645 00004 4
050876,000196: 11,2646 00004 4
050877,000197: 11,2647 77775 VLOAD
050878,000198: 11,2650 02122 RPSV
050879,000199: 11,2651 36040 STCALL BETAV
050880,000200: 11,2652 22655 GAMCOMP
050881,000201: 11,2653 77650 GOTO
050882,000202: 11,2654 23026 OBLATE
050883,000203: 11,2655 74575 GAMCOMP VLOAD VSR1
050884,000204: 11,2656 02040 BETAV
050885,000205: 11,2657 40236 VSQ SETPD
050886,000206: 11,2660 00001 0
050887,000207: 11,2661 61501 NORM ROUND
050888,000208: 11,2662 00040 31D
050889,000209: 11,2663 60325 PDDL NORM # NORMED B SQUARED TO PD LIST
050890,000210: 11,2664 02070 ALPHAM # NORMALIZE (LESS ONE) LENGTH OF ALPHA
050891,000211: # Page 1230
050892,000212: 11,2665 00041 32D # SAVING NORM SCALE FACTOR IN X1
050893,000213: 11,2666 63342 SR1 PDVL
050894,000214: 11,2667 02040 BETAV # C(PDL+2) = ALMOST NORMED ALPHA
050895,000215: 11,2670 77656 UNIT
050896,000216: 11,2671 16040 STODL BETAV
050897,000217: 11,2672 00045 36D
050898,000218: 11,2673 02072 STORE BETAM
050899,000219: 11,2674 55301 NORM BDDV # FORM NORMALIZE QUOTIEN ALPHAM/BETAM
050900,000220: 11,2675 00042 33D
050901,000221: 11,2676 41562 SR1R PUSH # C(PDL+2) = ALMOST NORMALIZE RHO.
050902,000222: 11,2677 77743 DLOAD*
050903,000223: 11,2700 27731 ASCALE,1
050904,000224: 11,2701 00051 STORE S1
050905,000225: 11,2702 57124 XCHX,2 XAD,2
050906,000226: 11,2703 00050 S1
050907,000227: 11,2704 00040 32D
050908,000228: 11,2705 71264 XSU,2 DLOAD
050909,000229: 11,2706 00041 33D
050910,000230: 11,2707 00003 2D
050911,000231: 11,2710 65057 SR* XCHX,2
050912,000232: 11,2711 57177 0 -1,2
050913,000233: 11,2712 00050 S1
050914,000234: 11,2713 74406 PUSH SR1R # RHO/4 TO 4D
050915,000235: 11,2714 50315 PDVL DOT
050916,000236: 11,2715 02032 ALPHAV
050917,000237: 11,2716 02040 BETAV
050918,000238: 11,2717 44372 SL1R BDSU # (RHO/4) - 2(ALPHAV/2.BETAV/2)
050919,000239: 11,2720 57206 PUSH DMPR # TO PDL+6
050920,000240: 11,2721 00005 4
050921,000241: 11,2722 77752 SL1
050922,000242: 11,2723 43206 PUSH DAD
050923,000243: 11,2724 25766 DQUARTER
050924,000244: 11,2725 75406 PUSH SQRT
050925,000245: 11,2726 41475 DMPR PUSH
050926,000246: 11,2727 00013 10D
050927,000247: 11,2730 43352 SL1 DAD
050928,000248: 11,2731 25766 DQUARTER
050929,000249: 11,2732 43325 PDDL DAD # (1/4)+2((Q+1)/4) TO PD+14D
050930,000250: 11,2733 00013 10D
050931,000251: 11,2734 24005 HALFDP
050932,000252: 11,2735 72475 DMPR SL1
050933,000253: 11,2736 00011 8D
050934,000254: 11,2737 56215 DAD DDV
050935,000255: 11,2740 25760 THREE/8
050936,000256: 11,2741 00017 14D
050937,000257: 11,2742 74275 DMPR VXSC
050938,000258: 11,2743 00007 6
050939,000259: 11,2744 02040 BETAV
050940,000260: 11,2745 64515 PDVL VSR3 # (G/2)(C(PD+4))B/2 TO PD+16D
050941,000261: 11,2746 02032 ALPHAV
050942,000262: # Page 1231
050943,000263: 11,2747 41455 VAD PUSH # A12 + C(PD+16D) TO PD+16D
050944,000264: 11,2750 41345 DLOAD DMP
050945,000265: 11,2751 00001 0
050946,000266: 11,2752 00015 12D
050947,000267: 11,2753 61501 NORM ROUND
050948,000268: 11,2754 00037 30D
050949,000269: 11,2755 40665 BDDV DMP*
050950,000270: 11,2756 00003 2
050951,000271: 11,2757 51770 MUEARTH,2
050952,000272: 11,2760 74276 DCOMP VXSC
050953,000273: 11,2761 57124 XCHX,2 XAD,2
050954,000274: 11,2762 00050 S1
050955,000275: 11,2763 00051 S2
050956,000276: 11,2764 55064 XSU,2 XSU,2
050957,000277: 11,2765 00036 30D
050958,000278: 11,2766 00037 31D
050959,000279: 11,2767 53604 BOVB VSR*
050960,000280: 11,2770 57754 TCDANZIG
050961,000281: 11,2771 57177 0 -1,2
050962,000282: 11,2772 53324 XCHX,2 VAD
050963,000283: 11,2773 00050 S1
050964,000284: 11,2774 02062 FV
050965,000285: 11,2775 02062 STORE FV
050966,000286: 11,2776 43400 BOV RVQ # RETURN IF NO OVERFLOW
050967,000287: 11,2777 23000 +1
050968,000288: 11,3000 51575 GOBAQUE VLOAD ABVAL
050969,000289: 11,3001 01521 TDELTAV
050970,000290: 11,3002 77654 BZE
050971,000291: 11,3003 23023 INT-ABRT
050972,000292: 11,3004 54345 DLOAD SR
050973,000293: 11,3005 02100 H
050974,000294: 11,3006 20612 9D
050975,000295: 11,3007 44206 PUSH BDSU
050976,000296: 11,3010 01551 TC
050977,000297: 11,3011 16074 STODL TAU.
050978,000298: 11,3012 01517 TET
050979,000299: 11,3013 45425 DSU STADR
050980,000300: 11,3014 42260 STCALL TET
050981,000301: 11,3015 22404 KEPPREP
050982,000302: 11,3016 77624 CALL
050983,000303: 11,3017 27671 RECTIFY
050984,000304: 11,3020 77614 SETGO
050985,000305: 11,3021 04020 RPQFLAG
050986,000306: 11,3022 27256 TESTLOOP
050987,000307:
050988,000308: 11,3023 77776 INT-ABRT EXIT
050989,000309: 11,3024 05642 TC P00DOO
050990,000310: 11,3025 20430 OCT 20430
050991,000311:
050992,000312: # Page 1232
050993,000313: # THE OBLATE ROUTINE COMPUTES THE ACCELERATION DUE TO OBLATENESS. IT USES THE UNIT OF THE VEHICLE
050994,000314: # POSITION VECTOR FOUND IN ALPHAV AND THE DISTANCE TO THE CENTER IN ALPHAM. THIS IS ADDED TO THE SUM OF THE
050995,000315: # DISTURBING ACCELERATIONS IN FV AND THE PROPER DIFEQ STAGE IS CALLED VIA X1.
050996,000316:
050997,000317: 11,3026 71354 OBLATE LXA,2 DLOAD
050998,000318: 11,3027 02030 PBODY
050999,000319: 11,3030 02070 ALPHAM
051000,000320: 11,3031 44601 SETPD DSU*
051001,000321: 11,3032 00001 0
051002,000322: 11,3033 50032 RDE,2
051003,000323: 11,3034 43044 BPL BOF # GET URPV
051004,000324: 11,3035 23264 NBRANCH
051005,000325: 11,3036 00343 MOONFLAG
051006,000326: 11,3037 23273 COSPHIE
051007,000327: 11,3040 65375 VLOAD PDDL
051008,000328: 11,3041 02032 ALPHAV
051009,000329: 11,3042 01517 TET
051010,000330: 11,3043 45125 PDDL CALL
051011,000331: 11,3044 25756 3/5
051012,000332: 11,3045 51700 R-TO-RP
051013,000333: 11,3046 24017 STOVL URPV # RP/R B-1 IN PLANETARY COORDINATES
051014,000334: 11,3047 24001 ZUNIT
051015,000335: 11,3050 45006 PUSH CALL # ZUNIT B-1 IN PLANETARY COORDL AT 00D
051016,000336: 11,3051 23301 MATRIX
051017,000337: 11,3052 77715 PDVL # UZ B-2 IN INTERT COORD. AT 06D
051018,000338: 11,3053 24005 XUNIT
051019,000339: 11,3054 45006 PUSH CALL # XUNIT B-1 IN PLANETARY COORD. AT 06D
051020,000340: 11,3055 23301 MATRIX
051021,000341: 11,3056 77772 VSL1
051022,000342: 11,3057 24041 STOVL 32D # UX B-1 IN INTERT. COORD AT 32D
051023,000343: 11,3060 77772 VSL1
051024,000344: 11,3061 14025 COMTERM STODL UZ # UZ B-1 IN INTERTIAL COORD AT 20D
051025,000345: 11,3062 00023 COSPHI/2 # , Z-COMPONENT OF URPV
051026,000346: 11,3063 65275 DMPR PDDL # P B-6, 3COSPHI/64 AT 00D
051027,000347: 11,3064 25770 3/32 # 2
051028,000348: 11,3065 00023 COSPHI/2
051029,000349: 11,3066 57316 DSQ DMPR
051030,000350: 11,3067 25772 15/16 # , 2
051031,000351: 11,3070 41425 DSU PUSH # P B-5, (1/2)(15COSPHI -3) AT 02D
051032,000352: 11,3071 25764 3/64 # 3
051033,000353: 11,3072 41275 DMPR DMP
051034,000354: 11,3073 00023 COSPHI/2
051035,000355: 11,3074 11222 7/12
051036,000356: 11,3075 65372 SL1R PDDL
051037,000357: 11,3076 00001 0D
051038,000358: 11,3077 44275 DMPR BDSU
051039,000359: 11,3100 11230 2/3 # , , ,
051040,000360: 11,3101 57206 PUSH DMPR # P B-7, (1/3)(7COSPHI P -4P ) AT 04D
051041,000361: 11,3102 00023 COSPHI/2 # 4 3 2
051042,000362: 11,3103 65275 DMPR PDDL
051043,000363: 11,3104 11224 9/16
051044,000364: # Page 1233
051045,000365: 11,3105 00003 2D # , , ,
051046,000366: 11,3106 44275 DMPR BDSU # P B-10, (J/4)(9COSPHI P -5P )
051047,000367: 11,3107 11226 5/128 # 5 4 3
051048,000368: 11,3110 56203 DMP* DDV # ,
051049,000369: 11,3111 51764 J4REQ/J3,2 # B- , (J RP/J R)P
051050,000370: 11,3112 02070 ALPHAM # 4 3 5
051051,000371: 11,3113 56615 DAD DMPR*
051052,000372: 11,3114 00005 4D # 2 2 , ,
051053,000373: 11,3115 51760 2J3RE/J2,2 # B , (2J RP /J2 R )P +(2J RP/J2R)P
051054,000374: 11,3116 43271 DDV DAD # 4 5 3 4
051055,000375: 11,3117 02070 ALPHAM # _ 2 , 2 , ,
051056,000376: 11,3120 00003 2D # (R/R)(J RP P /R + 2J RP P / + J P )
051057,000377: 11,3121 77761 VXSC # 4 5 3 4 2 2 3
051058,000378: 11,3122 02032 ALPHAV # 4 2 , _
051059,000379: 11,3123 14033 STODL TVEC # B-6,(SUM((J /R )P (COSPHI))UR)
051060,000380: 11,3124 70403 DMP* SR1 # I=2 I I+1
051061,000381: 11,3125 51764 J4REQ/J3,2 # ,
051062,000382: 11,3126 43271 DDV DAD # (J RP/J R)P
051063,000383: 11,3127 02070 ALPHAM # 4 3 4
051064,000384: 11,3130 50473 DMPR* SR3 # 2 2 , ,
051065,000385: 11,3131 51760 2J3RE/J2,2 # (2J RP /J R )P +(2J RP/J R)P
051066,000386: 11,3132 43271 DDV DAD # 4 2 4 3 2 3
051067,000387: 11,3133 02070 ALPHAM
051068,000388: 11,3134 76561 VXSC VSL1 # 4 , _
051069,000389: 11,3135 00025 UZ # B-6 SUM(P (COSPHI))UZ
051070,000390: 11,3136 77645 BVSU # I=2 I
051071,000391: 11,3137 00033 TVEC # 4 I-2 , _
051072,000392: 11,3140 14033 STODL TVEC # SUM((MU J (RP/R) )(P (COSPHI)UR -
051073,000393: 11,3141 02070 ALPHAM # I=2 I I+2
051074,000394: 11,3142 63501 NORM DSQ # P (COSPHI)UZ)) B-6 AT 20D
051075,000395: 11,3143 00047 X1 # I
051076,000396: 11,3144 60316 DSQ NORM
051077,000397: 11,3145 00051 S1 # 4
051078,000398: 11,3146 54606 PUSH BDDV* # NORMALIZED R AT 00D
051079,000399: 11,3147 51754 J2REQSQ,2
051080,000400: 11,3150 40161 VXSC BOV
051081,000401: 11,3151 00033 TVEC
051082,000402: 11,3152 23153 +1 # B+38 FOR EARTH , B+42 FOR MOON
051083,000403: 11,3153 56070 XAD,1 XAD,1
051084,000404: 11,3154 00046 X1
051085,000405: 11,3155 00046 X1
051086,000406: 11,3156 53670 XAD,1 VSL*
051087,000407: 11,3157 00050 S1
051088,000408: 11,3160 20153 0 -22D,1
051089,000409: 11,3161 40055 VAD BOV
051090,000410: 11,3162 02062 FV
051091,000411: 11,3163 23000 GOBAQUE
051092,000412: 11,3164 16062 STODL FV # B+16 FOR EARTH , B+20 FOR MOON
051093,000413: 11,3165 00017 URPV # B-1 X-COMPONENT OF POSITION IN
051094,000414: 11,3166 41414 BOF PUSH # PLANETARY COORD. AT 02D
051095,000415: # Page 1234
051096,000416: 11,3167 00343 MOONFLAG
051097,000417: 11,3170 23264 NBRANCH # 2
051098,000418: 11,3171 65316 DSQ PDDL # B-2 X AT 04D
051099,000419: 11,3172 00021 URPV +2 # B-1 Y-COMPONENT
051100,000420: 11,3173 45316 DSQ DSU
051101,000421: 11,3174 74205 DMP VXSC
051102,000422: 11,3175 27733 5/8 # 2 2 _
051103,000423: 11,3176 02032 ALPHAV # B-6 5(Y X )UR 2 2 _
051104,000424: 11,3177 65332 VSL3 PDDL # B-3 5(Y -X )UR AT 02D
051105,000425: 11,3200 53361 VXSC VAD
051106,000426: 11,3201 00041 32D # 2 2 _ 2 _
051107,000427: 11,3202 47315 PDVL VXV # (5(Y.-X )UR/R ) +(2X/R)UX) AT 02D
051108,000428: 11,3203 00041 32D # B-1 UX
051109,000429: 11,3204 00025 UZ # B-2 -UY =(UX * UZ)
051110,000430: 11,3205 74372 VSL1 VXSC # B-3 -(2Y/R)UY
051111,000431: 11,3206 00021 URPV +2 # 2 2 _ 2 _
051112,000432: 11,3207 41455 VAD PUSH # B-3 (5(X -Y )UR/R )+(2X/R)UX -(
051113,000433: 11,3210 77745 DLOAD # _
051114,000434: 11,3211 00023 COSPHI/2 # 2Y/R)UY AT 02D
051115,000435: 11,3212 41516 DSQ PUSH # B-2 (Z.COMPONENT) AT 08D
051116,000436: 11,3213 65205 DMP PDDL # 2
051117,000437: 11,3214 27733 5/8 # B-5 5COSPHI /2 AT 08D
051118,000438: 11,3215 43302 SR2 DAD
051119,000439: 11,3216 00011 08D
051120,000440: 11,3217 41221 BDSU DMP # 2
051121,000441: 11,3220 11007 D1/32 # B-5 (1 - 7COSPHI )
051122,000442: 11,3221 00017 URPV
051123,000443: 11,3222 74205 DMP VXSC
051124,000444: 11,3223 27733 5/8
051125,000445: 11,3224 02032 ALPHAV # 2 _
051126,000446: 11,3225 65272 VSL5 PDDL # B-5 (5X/R)(1-7COSPHI )UR AT 08D
051127,000447: 11,3226 74225 DSU VXSC
051128,000448: 11,3227 11007 D1/32
051129,000449: 11,3230 00041 32D
051130,000450: 11,3231 53372 VSL1 VAD # 2 _ 2
051131,000451: 11,3232 41325 PDDL DMP # B-5 (5X/R)(1-7COSPHI )UR +(5COSPHI
051132,000452: 11,3233 00017 URPV # _
051133,000453: 11,3234 00023 URPV +4 # -1)UX AT 08D
051134,000454: 11,3235 74205 DMP VXSC
051135,000455: 11,3236 27733 5/8 # B-5 5X Y
051136,000456: 11,3237 00025 UZ # M M
051137,000457: 11,3240 53352 VSL2 VAD # 2 _ 2
051138,000458: 11,3241 60325 PDDL NORM # B-5 (5X/R)(1-7COSPHI )UR +(5COSPHI
051139,000459: 11,3242 02070 ALPHAM # _ 2 _
051140,000460: 11,3243 00050 X2 # -1)UX +(10XZ/R )UZ AT 08D
051141,000461: 11,3244 67206 PUSH SLOAD
051142,000462: 11,3245 01351 E32C31RM
051143,000463: 11,3246 74271 DDV VXSC
051144,000464: 11,3247 63257 VSL* PDVL
051145,000465: 11,3250 57601 0 -3,2
051146,000466: # Page 1235
051147,000467: 11,3251 67206 PUSH SLOAD
051148,000468: 11,3252 01350 E3J22R2M
051149,000469: 11,3253 53361 VXSC VAD
051150,000470: 11,3254 70257 VSL* V/SC
051151,000471: 11,3255 20146 0 -27D,1 # B+16 OR B+20 (J + C )
051152,000472: 11,3256 40055 VAD BOV # 22 31
051153,000473: 11,3257 02062 FV
051154,000474: 11,3260 23000 GOBAQUE
051155,000475: 11,3261 02062 STORE FV
051156,000476: 11,3262 77754 LXA,2
051157,000477: 11,3263 02030 PBODY
051158,000478: 11,3264 72135 NBRANCH SLOAD LXA,1
051159,000479: 11,3265 01501 DIFEQCNT
051160,000480: 11,3266 00154 MPAC
051161,000481: 11,3267 73205 DMP CGOTO
051162,000482: 11,3270 27735 -1/12
051163,000483: 11,3271 00155 MPAC
051164,000484: 11,3272 23306 DIFEQTAB
051165,000485: 11,3273 77745 COSPHIE DLOAD
051166,000486: 11,3274 02036 ALPHAV +4
051167,000487: 11,3275 24023 STOVL COSPHI/2
051168,000488: 11,3276 24001 ZUNIT
051169,000489: 11,3277 77650 GOTO
051170,000490: 11,3300 23061 COMTERM
051171,000491: 11,3301 57435 MATRIX VXV VCOMP
051172,000492: 11,3302 02013 504LM # ROUTINE TRANSLATES FROM PLANETARY
051173,000493: 11,3303 77655 VAD # TO INERTIAL COORDINATES
051174,000494: 11,3304 43505 VXM RVQ
051175,000495: 11,3305 00025 MMATRIX
051176,000496: 11,3306 23475 DIFEQTAB CADR DIFEQ+0
051177,000497: 11,3307 23501 CADR DIFEQ+1
051178,000498: 11,3310 23512 CADR DIFEQ+2
051179,000499: 11,3311 77214 TIMESTEP BOF VLOAD
051180,000500: 11,3312 00342 MIDFLAG
051181,000501: 11,3313 23342 RECTEST
051182,000502: 11,3314 01535 RCV
051183,000503: 11,3315 41241 DOT DMP
051184,000504: 11,3316 01543 VCV
051185,000505: 11,3317 02076 DT/2 # (R.V) X (DELTA T)
051186,000506: 11,3320 77640 BMN
051187,000507: 11,3321 23342 RECTEST
051188,000508: 11,3322 43014 BON BOF
051189,000509: 11,3323 00303 MOONFLAG
051190,000510: 11,3324 23417 LUNSPH
051191,000511: 11,3325 04340 RPQFLAG
051192,000512: 11,3326 23414 EARSPH
051193,000513: 11,3327 45145 DLOAD CALL
051194,000514: 11,3330 01517 TET
051195,000515: 11,3331 33647 LSPOS # RPQV IN MPAC
051196,000516: 11,3332 02105 STORE RPQV # RPQV
051197,000517: # Page 1236
051198,000518: 11,3333 77754 LXA,2
051199,000519: 11,3334 02030 PBODY
051200,000520: 11,3335 51445 INLUNCHK BVSU ABVAL
051201,000521: 11,3336 01535 RCV
051202,000522: 11,3337 50025 DSU BMN
051203,000523: 11,3340 27741 RSPHERE
051204,000524: 11,3341 23434 DOSWITCH
051205,000525: 11,3342 51575 RECTEST VLOAD ABVAL # RECTIFY IF
051206,000526: 11,3343 01521 TDELTAV
051207,000527: 11,3344 77600 BOV
051208,000528: 11,3345 23370 CALLRECT
051209,000529: 11,3346 51025 DSU BPL # 1) EITHER TDELTAV OR TNUV EQUALS OR
051210,000530: 11,3347 11220 3/4 # EXCEEDS 3/4 IN MAGNITUDE
051211,000531: 11,3350 23370 CALLRECT
051212,000532: 11,3351 53615 DAD SL* # OR
051213,000533: 11,3352 11220 3/4
051214,000534: 11,3353 57605 0 -7,2 # 2) ABVAL(TDELTAV) EQUALS OR EXCEEDS
051215,000535: 11,3354 45271 DDV DSU # .01(ABVAL(RCV))
051216,000536: 11,3355 00013 10D
051217,000537: 11,3356 27737 RECRATIO
051218,000538: 11,3357 77244 BPL VLOAD
051219,000539: 11,3360 23370 CALLRECT
051220,000540: 11,3361 01527 TNUV
051221,000541: 11,3362 45246 ABVAL DSU
051222,000542: 11,3363 11220 3/4
051223,000543: 11,3364 77600 BOV
051224,000544: 11,3365 23370 CALLRECT
051225,000545: 11,3366 77640 BMN
051226,000546: 11,3367 23372 INTGRATE
051227,000547: 11,3370 77624 CALLRECT CALL
051228,000548: 11,3371 27671 RECTIFY
051229,000549: 11,3372 77775 INTGRATE VLOAD
051230,000550: 11,3373 01527 TNUV
051231,000551: 11,3374 25134 STOVL ZV
051232,000552: 11,3375 01521 TDELTAV
051233,000553: 11,3376 01126 STORE YV
051234,000554: 11,3377 77614 CLEAR
051235,000555: 11,3400 00261 JSWITCH
051236,000556: 11,3401 66375 DIFEQ0 VLOAD SSP
051237,000557: 11,3402 01126 YV
051238,000558: 11,3403 01501 DIFEQCNT
051239,000559: 11,3404 00000 0
051240,000560: 11,3405 16032 STODL ALPHAV
051241,000561: 11,3406 24007 DPZERO
051242,000562: 11,3407 02100 STORE H # START H AT ZERO. GOES 0(DELT/2)DELT.
051243,000563: 11,3410 52014 BON GOTO
051244,000564: 11,3411 00301 JSWITCH
051245,000565: 11,3412 23714 DOW..
051246,000566: 11,3413 22524 ACCOMP
051247,000567: 11,3414 52175 EARSPH VLOAD GOTO
051248,000568: # Page 1237
051249,000569: 11,3415 02105 RPQV
051250,000570: 11,3416 23335 INLUNCHK
051251,000571: 11,3417 60545 LUNSPH DLOAD SR2
051252,000572: 11,3420 00013 10D
051253,000573: 11,3421 50025 DSU BMN
051254,000574: 11,3422 27741 RSPHERE
051255,000575: 11,3423 23342 RECTEST
051256,000576: 11,3424 71214 BOF DLOAD
051257,000577: 11,3425 04340 RPQFLAG
051258,000578: 11,3426 23434 DOSWITCH
051259,000579: 11,3427 01517 TET
051260,000580: 11,3430 77624 CALL
051261,000581: 11,3431 33647 LUNPOS
051262,000582: 11,3432 77676 VCOMP
051263,000583: 11,3433 02105 STORE RPQV
051264,000584: 11,3434 77624 DOSWITCH CALL
051265,000585: 11,3435 23440 ORIGCHNG
051266,000586: 11,3436 77650 GOTO
051267,000587: 11,3437 23372 INTGRATE
051268,000588: 11,3440 45020 ORIGCHNG STQ CALL
051269,000589: 11,3441 02112 ORIGEX
051270,000590: 11,3442 27671 RECTIFY
051271,000591: 11,3443 53775 VLOAD VSL*
051272,000592: 11,3444 01535 RCV
051273,000593: 11,3445 57576 0,2
051274,000594: 11,3446 53651 VSU VSL*
051275,000595: 11,3447 02105 RPQV
051276,000596: 11,3450 57574 2,2
051277,000597: 11,3451 01503 STORE RRECT
051278,000598: 11,3452 01535 STORE RCV
051279,000599: 11,3453 57414 BOF VCOMP
051280,000600: 11,3454 00343 MOONFLAG
051281,000601: 11,3455 23456 +1
051282,000602: 11,3456 53715 PDVL VSL*
051283,000603: 11,3457 01543 VCV
051284,000604: 11,3460 57576 0,2
051285,000605: 11,3461 77651 VSU
051286,000606: 11,3462 77657 VSL*
051287,000607: 11,3463 57574 0 +2,2
051288,000608: 11,3464 01511 STORE VRECT
051289,000609: 11,3465 01543 STORE VCV
051290,000610: 11,3466 67154 LXA,2 SXA,2
051291,000611: 11,3467 02112 ORIGEX
051292,000612: 11,3470 00052 QPRET
051293,000613: 11,3471 52014 BON GOTO
051294,000614: 11,3472 00303 MOONFLAG
051295,000615: 11,3473 26710 CLRMOON
051296,000616: 11,3474 26715 SETMOON
051297,000617: # Page 1238
051298,000618: # THE RECTIFY SUBROUTINE IS CALLED BY THE INTEGRATION PROGRAM AND OCCIASIONALLY BY THE MEASUREMENT INCORPORATION
051299,000619: # ROUTINES TO ESTABLISH A NEW CONIC.
051300,000620:
051301,000621: 13,3671 BANK 13
051302,000622: 13,2000 SETLOC ORBITAL2
051303,000623: 13,2000 BANK
051304,000624:
051305,000625: 13,3671 77354 RECTIFY LXA,2 VLOAD
051306,000626: 13,3672 02030 PBODY
051307,000627: 13,3673 01521 TDELTAV
051308,000628: 13,3674 53257 VSL* VAD
051309,000629: 13,3675 57605 0 -7,2
051310,000630: 13,3676 01535 RCV
051311,000631: 13,3677 01503 STORE RRECT
051312,000632: 13,3700 25535 STOVL RCV
051313,000633: 13,3701 01527 TNUV
051314,000634: 13,3702 53257 VSL* VAD
051315,000635: 13,3703 57602 0 -4,2
051316,000636: 13,3704 01543 VCV
051317,000637: 13,3705 01511 MINIRECT STORE VRECT
051318,000638: 13,3706 25543 STOVL VCV
051319,000639: 13,3707 24007 ZEROVEC
051320,000640: 13,3710 01521 STORE TDELTAV
051321,000641: 13,3711 15527 STODL TNUV
051322,000642: 13,3712 24007 ZEROVEC
051323,000643: 13,3713 01551 STORE TC
051324,000644: 13,3714 01553 STORE XKEP
051325,000645: 13,3715 77616 RVQ
051326,000646:
051327,000647: 11,3475 BANK 11
051328,000648: 11,2000 SETLOC ORBITAL
051329,000649: 11,2000 BANK
051330,000650: # Page 1239
051331,000651: # THE THREE DIFEQ ROUTINES -- DIFEQ+0, DIFEQ+12, DIFEQ+24 -- ARE ENTERED TO PROCESS THE CONTRIBUTIONS AT THE
051332,000652: # BEGINNING, MIDDLE, AND END OF THE TIMESTEP, RESPECTIVELY. THE UPDATING IS DONE BY THE NYSTROM METHOD.
051333,000653:
051334,000654: 11,3475 64575 DIFEQ+0 VLOAD VSR3
051335,000655: 11,3476 02062 FV
051336,000656: 11,3477 36046 STCALL PHIV
051337,000657: 11,3500 23655 DIFEQCOM
051338,000658: 11,3501 74575 DIFEQ+1 VLOAD VSR1
051339,000659: 11,3502 02062 FV
051340,000660: 11,3503 53206 PUSH VAD
051341,000661: 11,3504 02046 PHIV
051342,000662: 11,3505 26054 STOVL PSIV
051343,000663: 11,3506 53362 VSR1 VAD
051344,000664: 11,3507 02046 PHIV
051345,000665: 11,3510 36046 STCALL PHIV
051346,000666: 11,3511 23655 DIFEQCOM
051347,000667: 11,3512 57345 DIFEQ+2 DLOAD DMPR
051348,000668: 11,3513 02100 H
051349,000669: 11,3514 11230 DP2/3
051350,000670: 11,3515 74206 PUSH VXSC
051351,000671: 11,3516 02046 PHIV
051352,000672: 11,3517 53372 VSL1 VAD
051353,000673: 11,3520 01134 ZV
051354,000674: 11,3521 53361 VXSC VAD
051355,000675: 11,3522 02100 H
051356,000676: 11,3523 01126 YV
051357,000677: 11,3524 25126 STOVL YV
051358,000678: 11,3525 02062 FV
051359,000679: 11,3526 53322 VSR3 VAD
051360,000680: 11,3527 02054 PSIV
051361,000681: 11,3530 76561 VXSC VSL1
051362,000682: 11,3531 77655 VAD
051363,000683: 11,3532 01134 ZV
051364,000684: 11,3533 01134 STORE ZV
051365,000685: 11,3534 45014 BOFF CALL
051366,000686: 11,3535 00341 JSWITCH
051367,000687: 11,3536 23606 ENDSTATE
051368,000688: 11,3537 11210 GRP2PC
051369,000689: 11,3540 77354 LXA,2 VLOAD
051370,000690: 11,3541 01116 COLREG
051371,000691: 11,3542 01134 ZV
051372,000692: 11,3543 77732 VSL3 # ADJUST W-POSITION FOR STORAGE
051373,000693: 11,3544 12467 STORE W +54D,2
051374,000694: 11,3545 77775 VLOAD
051375,000695: 11,3546 01126 YV
051376,000696: 11,3547 40132 VSL3 BOV
051377,000697: 11,3550 23700 WMATEND
051378,000698: 11,3551 12401 STORE W,2
051379,000699:
051380,000700: 11,3552 77624 CALL
051381,000701: 11,3553 11210 GRP2PC
051382,000702: # Page 1240
051383,000703: 11,3554 66354 LXA,2 SSP
051384,000704: 11,3555 01116 COLREG
051385,000705: 11,3556 00052 S2
051386,000706: 11,3557 00000 0
051387,000707: 11,3560 67114 INCR,2 SXA,2
051388,000708: 11,3561 00006 6
051389,000709: 11,3562 01125 YV
051390,000710: 11,3563 45104 TIX,2 CALL
051391,000711: 11,3564 23651 RELOADSV
051392,000712: 11,3565 11210 GRP2PC
051393,000713: 11,3566 67154 LXA,2 SXA,2
051394,000714: 11,3567 01125 YV
051395,000715: 11,3570 01116 COLREG
051396,000716:
051397,000717: 11,3571 77624 NEXTCOL CALL
051398,000718: 11,3572 11210 GRP2PC
051399,000719: 11,3573 76754 LXA,2 VLOAD*
051400,000720: 11,3574 01116 COLREG
051401,000721: 11,3575 75376 W,2
051402,000722: 11,3576 77722 VSR3 # ADJUST W-POSITION FOR INTEGRATION
051403,000723: 11,3577 01126 STORE YV
051404,000724: 11,3600 76173 VLOAD* AXT,1
051405,000725: 11,3601 75310 W +54D,2
051406,000726: 11,3602 00000 0
051407,000727: 11,3603 77722 VSR3 # ADJUST W-VELOCITY FOR INTEGRATION
051408,000728: 11,3604 35134 STCALL ZV
051409,000729: 11,3605 23401 DIFEQ0
051410,000730:
051411,000731: 11,3606 77200 ENDSTATE BOV VLOAD
051412,000732: 11,3607 23000 GOBAQUE
051413,000733: 11,3610 01134 ZV
051414,000734: 11,3611 25527 STOVL TNUV
051415,000735: 11,3612 01126 YV
051416,000736: 11,3613 01521 STORE TDELTAV
051417,000737: 11,3614 43014 BON BOFF
051418,000738: 11,3615 04715 MIDAVFLG
051419,000739: 11,3616 27627 CKMID2 # CHECK FOR MID2 BEFORE GOING TO TIMEINC
051420,000740: 11,3617 01756 DIM0FLAG
051421,000741: 11,3620 27256 TESTLOOP
051422,000742: 11,3621 77776 EXIT
051423,000743: 11,3622 05353 TC PHASCHNG
051424,000744: 11,3623 04022 OCT 04022 # PHASE 1
051425,000745: 11,3624 05504 TC UPFLAG # PHASE CHANGE HAS OCCURRED BETWEEN
051426,000746: 11,3625 00236 ADRES REINTFLG # INSTALL AND INTWAKE
051427,000747: 11,3626 06042 TC INTPRET
051428,000748: 11,3627 77731 SSP
051429,000749: 11,3630 00053 QPRET
051430,000750: 11,3631 23636 AMOVED
051431,000751: 11,3632 52014 BON GOTO
051432,000752: 11,3633 01714 VINTFLAG
051433,000753: # Page 1241
051434,000754: 11,3634 26660 ATOPCSM
051435,000755: 11,3635 26733 ATOPLEM
051436,000756: 11,3636 66214 AMOVED SET SSP
051437,000757: 11,3637 00061 JSWITCH
051438,000758: 11,3640 01117 COLREG
051439,000759: 11,3641 77741 DEC -30 B-14
051440,000760: 11,3642 66214 BOFF SSP
051441,000761: 11,3643 01755 D6OR9FLG
051442,000762: 11,3644 23571 NEXTCOL
051443,000763: 11,3645 01117 COLREG
051444,000764: 11,3646 77717 DEC -48 B-14
051445,000765: 11,3647 77650 GOTO
051446,000766: 11,3650 23571 NEXTCOL
051447,000767:
051448,000768: 11,3651 77745 RELOADSV DLOAD # RELOAD TEMPORARY STATE VECTOR
051449,000769: 11,3652 01115 TDEC # FROM PERMANENT IN CASE OF
051450,000770: 11,3653 34041 STCALL TDEC1
051451,000771: 11,3654 27140 INTEGRV2 # BY STARTING AT INTEGRV2.
051452,000772: 11,3655 43345 DIFEQCOM DLOAD DAD # INCREMENT H AND DIFEQCNT.
051453,000773: 11,3656 02076 DT/2
051454,000774: 11,3657 02100 H
051455,000775: 11,3660 66110 INCR,1 SXA,1
051456,000776: 11,3661 77763 DEC -12 B-14
051457,000777: 11,3662 01500 DIFEQCNT # DIFEQCNT SET FOR NEXT ENTRY.
051458,000778: 11,3663 02100 STORE H
051459,000779: 11,3664 74561 VXSC VSR1
051460,000780: 11,3665 02062 FV
051461,000781: 11,3666 74255 VAD VXSC
051462,000782: 11,3667 01134 ZV
051463,000783: 11,3670 02100 H
051464,000784: 11,3671 77655 VAD
051465,000785: 11,3672 01126 YV
051466,000786: 11,3673 02032 STORE ALPHAV
051467,000787: 11,3674 52014 BON GOTO
051468,000788: 11,3675 00301 JSWITCH
051469,000789: 11,3676 23714 DOW..
051470,000790: 11,3677 22504 FBR3
051471,000791:
051472,000792: 11,3700 43014 WMATEND CLEAR CLEAR
051473,000793: 11,3701 01676 DIM0FLAG # DON'T INTEGRATE W THIS TIME
051474,000794: 11,3702 01671 ORBWFLAG # INVALIDATE W
051475,000795: 11,3703 77614 CLEAR
051476,000796: 11,3704 02676 RENDWFLG
051477,000797: 11,3705 77414 SET EXIT
051478,000798: 11,3706 01472 STATEFLG # PICK UP STATE VECTOR UPDATE
051479,000799: 11,3707 05567 TC ALARM
051480,000800: 11,3710 00421 OCT 421
051481,000801: 11,3711 06042 TC INTPRET
051482,000802: # Page 1242
051483,000803: 11,3712 77650 GOTO
051484,000804: 11,3713 27256 TESTLOOP # FINISH INTEGRATING STATE VECTOR
051485,000805:
051486,000806: # Page 1243
051487,000807: # ORBITAL ROUTINE FOR EXTRAPOLATION OF THE W MATRIX. IT COMPUTES THE SECOND DERIVATIVE OF EACH COLUMN POSITION
051488,000808: # VECTOR OF THE MATRIX AND CALLS THE NYSTROM INTEGRATION ROUTINES TO SOLVE THE DIFFERENTIAL EQUATIONS. THE PROGRAM
051489,000809: # USES A TABLE OF VEHICL POSITION VECTORS COMPUTED DURING THE INTEGRATION OF THE VEHICLE'S POSITION AND VELOCITY.
051490,000810:
051491,000811: 11,3714 70754 DOW.. LXA,2 DLOAD*
051492,000812: 11,3715 02030 PBODY
051493,000813: 11,3716 51770 MUEARTH,2
051494,000814: 11,3717 36072 STCALL BETAM
051495,000815: 11,3720 23742 DOW..1
051496,000816: 11,3721 02062 STORE FV
051497,000817: 11,3722 62014 BOF INCR,1
051498,000818: 11,3723 00342 MIDFLAG
051499,000819: 11,3724 23264 NBRANCH
051500,000820: 11,3725 77771 DEC -6 B-14
051501,000821: 11,3726 70744 LXC,2 DLOAD*
051502,000822: 11,3727 02030 PBODY
051503,000823: 11,3730 51772 MUEARTH -2,2
051504,000824: 11,3731 36072 STCALL BETAM
051505,000825: 11,3732 23742 DOW..1
051506,000826: 11,3733 50414 BON VSR6
051507,000827: 11,3734 00303 MOONFLAG
051508,000828: 11,3735 23736 +1
051509,000829: 11,3736 77655 VAD
051510,000830: 11,3737 02062 FV
051511,000831: 11,3740 36062 STCALL FV
051512,000832: 11,3741 23264 NBRANCH
051513,000833: 11,3742 60575 DOW..1 VLOAD VSR4
051514,000834: 11,3743 02032 ALPHAV
051515,000835: 11,3744 53513 PDVL* UNIT
051516,000836: 11,3745 02132 VECTAB,1
051517,000837: 11,3746 46315 PDVL VPROJ
051518,000838: 11,3747 02032 ALPHAV
051519,000839: 11,3750 52361 VXSC VSU
051520,000840: 11,3751 11220 3/4
051521,000841: 11,3752 60325 PDDL NORM
051522,000842: 11,3753 00045 36D
051523,000843: 11,3754 00052 S2
051524,000844: 11,3755 63406 PUSH DSQ
051525,000845: 11,3756 77605 DMP
051526,000846: 11,3757 65301 NORM PDDL
051527,000847: 11,3760 00043 34D
051528,000848: 11,3761 02072 BETAM
051529,000849: 11,3762 56342 SR1 DDV
051530,000850: 11,3763 77761 VXSC
051531,000851: 11,3764 57154 LXA,2 XAD,2
051532,000852: 11,3765 00051 S2
051533,000853: 11,3766 00051 S2
051534,000854: 11,3767 57074 XAD,2 XAD,2
051535,000855: 11,3770 00051 S2
051536,000856: 11,3771 00042 34D
051537,000857: 11,3772 43457 VSL* RVQ
051538,000858: # Page 1244
051539,000859: 11,3773 57606 0 -8D,2 # ****************************************
051540,000860:
051541,000861: 12,2000 SETLOC ORBITAL1
051542,000862: 12,2000 BANK
051543,000863:
051544,000864: 12,3755 04631 23146 3/5 2DEC .6 B-2
051545,000865: 12,3757 14000 00000 THREE/8 2DEC .375
051546,000866: 12,3761 02314 31463 .3D 2DEC .3 B-2
051547,000867: 12,3763 01400 00000 3/64 2DEC 3 B-6
051548,000868: 12,3765 10000 00000 DP1/4 2DEC .25
051549,000869: 12,3767 12,3765 DQUARTER EQUALS DP1/4
051550,000870: 12,3767 12,3765 POS1/4 EQUALS DP1/4
051551,000871: 12,3767 03000 00000 3/32 2DEC 3 B-5
051552,000872: 12,3771 36000 00000 15/16 2DEC 15. B-4
051553,000873:
051554,000874: 05,3774 BANK 05
051555,000875: 04,2000 SETLOC ORBITAL3
051556,000876: 04,2000 BANK
051557,000877:
051558,000878: 04,3217 30000 00000 3/4 2DEC 3.0 B-2
051559,000879: 04,3221 22525 12525 7/12 2DEC .5833333333
051560,000880: 04,3223 22000 00000 9/16 2DEC 9 B-4
051561,000881: 04,3225 01200 00000 5/128 2DEC 5 B-7
051562,000882: 04,3227 12,2006 DPZERO EQUALS ZEROVEC
051563,000883: 04,3227 25252 25253 DP2/3 2DEC .6666666667
051564,000884: 04,3231 04,3227 2/3 EQUALS DP2/3
051565,000885: 04,3231 00027 OCT27 OCT 27
051566,000886:
051567,000887: 13,3716 BANK 13
051568,000888: 13,2000 SETLOC ORBITAL2
051569,000889: 13,2000 BANK
051570,000890: # IT IS VITAL THAT THE FOLLOWING CONSTANTS NOT BE SHUFFLED
051571,000891: 13,3716 77764 DEC -11 B-14
051572,000892: 13,3717 77775 DEC -2 B-14
051573,000893: 13,3720 77766 DEC -9 B-14
051574,000894: 13,3721 77771 DEC -6 B-14
051575,000895: 13,3722 77775 DEC -2 B-14
051576,000896: 13,3723 77775 DEC -2 B-14
051577,000897: 13,3724 00000 DEC 0 B-14
051578,000898: 13,3725 77763 DEC -12 B-14
051579,000899: 13,3726 77766 DEC -9 B-14
051580,000900: # Page 1245
051581,000901: 13,3727 77773 DEC -4 B-14
051582,000902: 13,3730 77770 ASCALE DEC -7 B-14
051583,000903: 13,3731 77771 DEC -6 B-14
051584,000904: 13,3732 24000 00000 5/8 2DEC 5 B-3
051585,000905: 13,3734 74631 63145 -1/12 2DEC -.1
051586,000906: 13,3736 00243 32703 RECRATIO 2DEC .01
051587,000907: 13,3740 03654 21000 RSPHERE 2DEC 64373.76 E3 B-29
051588,000908: 13,3742 03654 21000 RDM 2DEC 16093.44 E3 B-27
051589,000909: 13,3744 04627 25200 RDE 2DEC 80467.20 E3 B-29
051590,000910:
051591,000911: 13,3746 RATT EQUALS 00
051592,000912: 13,3746 VATT EQUALS 6D
051593,000913: 13,3746 TAT EQUALS 12D
051594,000914: 13,3746 RATT1 EQUALS 14D
051595,000915: 13,3746 VATT1 EQUALS 20D
051596,000916: 13,3746 MU(P) EQUALS 26D
051597,000917: 13,3746 TDEC1 EQUALS 32D
051598,000918: 13,3746 URPV EQUALS 14D
051599,000919: 13,3746 0000022 COSPHI/2 EQUALS URPV +4
051600,000920: 13,3746 UZ EQUALS 20D
051601,000921: 13,3746 TVEC EQUALS 26D
051602,000922:
End of include-file ORBITAL_INTEGRATION.agc. Parent file is MAIN.agc