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