Source Code

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