Source Code
|
These source code files are a reconstruction of Sundance, the Apollo 9 LM (Lunar Module) AGC
(Apollo Guidance Computer) flight software, created from binary dumps of original core rope
program modules, as follows:
Since only binary dumps (rather than listings) of Sundance are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing. |
047695,000002: ## Copyright: Public domain.
047696,000003: ## Filename: ORBITAL_INTEGRATION.agc
047697,000004: ## Purpose: A section of a reconstructed, mixed version of Sundance
047698,000005: ## It is part of the reconstructed source code for the Lunar
047699,000006: ## Module's (LM) Apollo Guidance Computer (AGC) for Apollo 9.
047700,000007: ## No original listings of this program are available;
047701,000008: ## instead, this file was created via disassembly of dumps
047702,000009: ## of various revisions of Sundance core rope modules.
047703,000010: ## Assembler: yaYUL
047704,000011: ## Contact: Ron Burkey <info@sandroid.org>.
047705,000012: ## Website: www.ibiblio.org/apollo/index.html
047706,000013: ## Mod history: 2020-06-17 MAS Created from Luminary 69.
047707,000014:
047708,000015: ## Sundance 302
047709,000016:
047710,000017: # DELETE
047711,000018: 13,3703 BANK 13
047712,000019: 11,2000 SETLOC ORBITAL
047713,000020: 11,2000 BANK
047714,000021: 11,2312 COUNT* $$/ORBIT
047715,000022:
047716,000023: # DELETE
047717,000024: 11,2312 40354 KEPPREP LXA,2 SETPD
047718,000025: 11,2313 02032 PBODY
047719,000026: 11,2314 00001 0
047720,000027: 11,2315 75543 DLOAD* SQRT # SQRT(MU) (+18 OR +15) 0D PL 2D
047721,000028: 11,2316 54040 MUEARTH,2
047722,000029: 11,2317 53515 PDVL UNIT # PL 8D
047723,000030: 11,2320 01535 RCV
047724,000031: 11,2321 60325 PDDL NORM # NORM R (+29 OR +27 - N1) 2D PL 4D
047725,000032: 11,2322 00045 36D
047726,000033: 11,2323 00047 X1
047727,000034: 11,2324 77715 PDVL
047728,000035: 11,2325 65241 DOT PDDL # F*SQRT(MU)(+7 OR +5) 4D PL 6D
047729,000036: 11,2326 01543 VCV
047730,000037: 11,2327 02076 TAU. # (+28)
047731,000038: 11,2330 60225 DSU NORM
047732,000039: 11,2331 01551 TC
047733,000040: 11,2332 00051 S1
047734,000041: 11,2333 77742 SR1
047735,000042: 11,2334 65271 DDV PDDL
047736,000043: 11,2335 00003 2D
047737,000044: 11,2336 41405 DMP PUSH # FS(+6 +N1-N2) 6D PL 8D
047738,000045: 11,2337 00005 4D
047739,000046: 11,2340 65316 DSQ PDDL # (FS)SQ (+12 +2(N1-N2)) 8D PL 10D
047740,000047: 11,2341 00005 4D
047741,000048: 11,2342 64716 DSQ PDDL* # SSQ/MU (-2 OR +2(N1-N2)) 10D PL 12D
047742,000049: 11,2343 54040 MUEARTH,2
047743,000050: 11,2344 40442 SR3 SR4
047744,000051: 11,2345 47515 PDVL VSQ # PREALIGN MU (+43 OR +37) 12D PL 14D
047745,000052: 11,2346 01543 VCV
047746,000053: 11,2347 44205 DMP BDSU # PL 12D
047747,000054: 11,2350 00045 36D
047748,000055: 11,2351 41271 DDV DMP # PL 10D
047749,000056: 11,2352 00003 2D # -(1/R-ALPHA) (+12 +3N1-2N2)
047750,000057: 11,2353 53605 DMP SL*
047751,000058: 11,2354 23714 DP2/3
047752,000059: 11,2355 20176 0 -3,1 # 10L(1/R-ALPHA) (+13 +2(N1-N2))
047753,000060: 11,2356 43260 XSU,1 DAD # 2(FS)SQ - ETCETRA PL 8D
047754,000061: 11,2357 00050 S1 # X1 = N2-N1
047755,000062: 11,2360 45257 SL* DSU # -FS+2(FS)SQ ETC (+6 +N1-N2) PL 6D
047756,000063: 11,2361 20211 8D,1
047757,000064: 11,2362 41205 DMP DMP
047758,000065: 11,2363 00001 0D
047759,000066: 11,2364 00005 4D
047760,000067: 11,2365 53657 SL* SL*
047761,000068: 11,2366 20211 8D,1
047762,000069: 11,2367 20201 0,1 # S(-FS(1-2FS)-1/6...) (+17 OR +16)
047763,000070: 11,2370 65215 DAD PDDL # PL 6D
047764,000071: 11,2371 01553 XKEP
047765,000072: 11,2372 53605 DMP SL* # S(+17 OR +16)
047766,000073: 11,2373 00001 0D
047767,000074: 11,2374 20202 1,1
047768,000075: 11,2375 43204 BOVB DAD
047769,000076: 11,2376 57702 TCDANZIG
047770,000077: 11,2377 77626 STADR
047771,000078: 11,2400 75645 STORE XKEPNEW
047772,000079: 11,2401 74020 STQ AXC,1
047773,000080: 11,2402 02114 KEPRTN
047774,000081: 11,2403 00012 DEC 10 B-14
047775,000082: 11,2404 74014 BON AXC,1
047776,000083: 11,2405 00303 MOONFLAG
047777,000084: 11,2406 24000 KEPLERN
047778,000085: 11,2407 00002 DEC 2 B-14
047779,000086: 11,2410 77650 GOTO
047780,000087: 11,2411 24000 KEPLERN
047781,000088:
047782,000089: 11,2412 66350 FBR3 LXA,1 SSP
047783,000090: 11,2413 01500 DIFEQCNT
047784,000091: 11,2414 00051 S1
047785,000092: 11,2415 77762 DEC -13 B-14
047786,000093: 11,2416 54345 DLOAD SR
047787,000094: 11,2417 02100 DT/2
047788,000095: 11,2420 20612 9D
047789,000096: 11,2421 61500 TIX,1 ROUND
047790,000097: 11,2422 22423 +1
047791,000098: 11,2423 43206 PUSH DAD
047792,000099: 11,2424 01551 TC
047793,000100: 11,2425 16076 STODL TAU.
047794,000101: 11,2426 77615 DAD
047795,000102: 11,2427 01517 TET
047796,000103: 11,2430 35517 STCALL TET
047797,000104: 11,2431 22312 KEPPREP
047798,000105:
047799,000106: # AGC ROUTINE TO COMPUTE ACCELERATION COMPONENTS.
047800,000107:
047801,000108: 11,2432 73150 ACCOMP LXA,1 LXA,2
047802,000109: 11,2433 02032 PBODY
047803,000110: 11,2434 02032 PBODY
047804,000111: 11,2435 77775 VLOAD
047805,000112: 11,2436 22276 ZEROVEC
047806,000113: 11,2437 26064 STOVL FV
047807,000114: 11,2440 02034 ALPHAV
047808,000115: 11,2441 53257 VSL* VAD
047809,000116: 11,2442 57605 0 -7,2
047810,000117: 11,2443 01535 RCV
047811,000118: 11,2444 02042 STORE BETAV
047812,000119: 11,2445 65014 BOF XCHX,2
047813,000120: 11,2446 01756 DIM0FLAG
047814,000121: 11,2447 22454 +5
047815,000122: 11,2450 01500 DIFEQCNT
047816,000123: 11,2451 12134 STORE VECTAB,2
047817,000124: 11,2452 77724 XCHX,2
047818,000125: 11,2453 01500 DIFEQCNT
047819,000126: 11,2454 53575 VLOAD UNIT
047820,000127: 11,2455 02034 ALPHAV
047821,000128: 11,2456 16034 STODL ALPHAV
047822,000129: 11,2457 00045 36D
047823,000130: 11,2460 02072 STORE ALPHAM
047824,000131: 11,2461 77624 CALL
047825,000132: 11,2462 22564 GAMCOMP
047826,000133: 11,2463 66175 VLOAD SXA,1
047827,000134: 11,2464 02042 BETAV
047828,000135: 11,2465 00051 S2
047829,000136: 11,2466 16034 STODL ALPHAV
047830,000137: 11,2467 02074 BETAM
047831,000138: 11,2470 02072 STORE ALPHAM
047832,000139: 11,2471 71214 BOF DLOAD
047833,000140: 11,2472 00342 MIDFLAG
047834,000141: 11,2473 22727 OBLATE
047835,000142: 11,2474 01517 TET
047836,000143: 11,2475 77624 CALL
047837,000144: 11,2476 33236 LSPOS
047838,000145: 11,2477 72174 AXT,2 LXA,1
047839,000146: 11,2500 00002 2
047840,000147: 11,2501 00051 S2
047841,000148: 11,2502 77614 BOF
047842,000149: 11,2503 00343 MOONFLAG
047843,000150: 11,2504 22507 +3
047844,000151: 11,2505 77076 VCOMP AXT,2
047845,000152: 11,2506 00000 0
047846,000153: 11,2507 02042 STORE BETAV
047847,000154: 11,2510 26107 STOVL RPQV
047848,000155: 11,2511 00003 2D
047849,000156: 11,2512 02124 STORE RPSV
047850,000157: 11,2513 45335 SLOAD DSU
047851,000158: 11,2514 01013 MODREG
047852,000159: 11,2515 23716 OCT27
047853,000160: 11,2516 43030 BHIZ BOF
047854,000161: 11,2517 22522 +3
047855,000162: 11,2520 01756 DIM0FLAG
047856,000163: 11,2521 22536 GETRPSV
047857,000164: 11,2522 74375 VLOAD VXSC
047858,000165: 11,2523 02034 ALPHAV
047859,000166: 11,2524 02072 ALPHAM
047860,000167: 11,2525 52257 VSR* VSU
047861,000168: 11,2526 57175 1,2
047862,000169: 11,2527 02042 BETAV
047863,000170: 11,2530 77724 XCHX,2
047864,000171: 11,2531 01500 DIFEQCNT
047865,000172: 11,2532 12142 STORE VECTAB +6,2
047866,000173: 11,2533 02116 STORE RQVV
047867,000174: 11,2534 77724 XCHX,2
047868,000175: 11,2535 01500 DIFEQCNT
047869,000176: 11,2536 62175 GETRPSV VLOAD INCR,1
047870,000177: 11,2537 02107 RPQV
047871,000178: 11,2540 00004 4
047872,000179: 11,2541 43014 CLEAR BOF
047873,000180: 11,2542 04260 RPQFLAG
047874,000181: 11,2543 00343 MOONFLAG
047875,000182: 11,2544 22551 +5
047876,000183: 11,2545 53261 VSR VAD
047877,000184: 11,2546 20612 9D
047878,000185: 11,2547 02124 RPSV
047879,000186: 11,2550 02124 STORE RPSV
047880,000187: 11,2551 77624 CALL
047881,000188: 11,2552 22564 GAMCOMP
047882,000189: 11,2553 62174 AXT,2 INCR,1
047883,000190: 11,2554 00004 4
047884,000191: 11,2555 00004 4
047885,000192: 11,2556 77775 VLOAD
047886,000193: 11,2557 02124 RPSV
047887,000194: 11,2560 36042 STCALL BETAV
047888,000195: 11,2561 22564 GAMCOMP
047889,000196: 11,2562 77650 GOTO
047890,000197: 11,2563 22727 OBLATE
047891,000198: 11,2564 74575 GAMCOMP VLOAD VSR1
047892,000199: 11,2565 02042 BETAV
047893,000200: 11,2566 40236 VSQ SETPD
047894,000201: 11,2567 00001 0
047895,000202: 11,2570 61501 NORM ROUND
047896,000203: 11,2571 00040 31D
047897,000204: 11,2572 60325 PDDL NORM # NORMED B SQUARED TO PD LIST
047898,000205: 11,2573 02072 ALPHAM # NORMALIZE (LESS ONE) LENGTH OF ALPHA
047899,000206: 11,2574 00041 32D # SAVING NORM SCALE FACTOR IN X1
047900,000207: 11,2575 63342 SR1 PDVL
047901,000208: 11,2576 02042 BETAV # C(PDL+2) = ALMOST NORMED ALPHA
047902,000209: 11,2577 77656 UNIT
047903,000210: 11,2600 16042 STODL BETAV
047904,000211: 11,2601 00045 36D
047905,000212: 11,2602 02074 STORE BETAM
047906,000213: 11,2603 55301 NORM BDDV # FORM NORMALIZED QUOTIENT ALPHAM/BETAM
047907,000214: 11,2604 00042 33D
047908,000215: 11,2605 41562 SR1R PUSH # C(PDL+2) = ALMOST NORMALIZED RHO.
047909,000216: 11,2606 77743 DLOAD*
047910,000217: 11,2607 23731 ASCALE,1
047911,000218: 11,2610 00051 STORE S1
047912,000219: 11,2611 57124 XCHX,2 XAD,2
047913,000220: 11,2612 00050 S1
047914,000221: 11,2613 00040 32D
047915,000222: 11,2614 71264 XSU,2 DLOAD
047916,000223: 11,2615 00041 33D
047917,000224: 11,2616 00003 2D
047918,000225: 11,2617 65057 SR* XCHX,2
047919,000226: 11,2620 57177 0 -1,2
047920,000227: 11,2621 00050 S1
047921,000228: 11,2622 74406 PUSH SR1R # RHO/4 TO 4D
047922,000229: 11,2623 50315 PDVL DOT
047923,000230: 11,2624 02034 ALPHAV
047924,000231: 11,2625 02042 BETAV
047925,000232: 11,2626 44372 SL1R BDSU # (RHO/4) - 2(ALPHAV/2.BETAV/2)
047926,000233: 11,2627 57206 PUSH DMPR # TO PDL+6
047927,000234: 11,2630 00005 4
047928,000235: 11,2631 77752 SL1
047929,000236: 11,2632 43206 PUSH DAD
047930,000237: 11,2633 23676 DQUARTER
047931,000238: 11,2634 75406 PUSH SQRT
047932,000239: 11,2635 41475 DMPR PUSH
047933,000240: 11,2636 00013 10D
047934,000241: 11,2637 43352 SL1 DAD
047935,000242: 11,2640 23676 DQUARTER
047936,000243: 11,2641 43325 PDDL DAD # (1/4)+2((Q+1)/4) TO PD+14D
047937,000244: 11,2642 00013 10D
047938,000245: 11,2643 22274 HALFDP
047939,000246: 11,2644 72475 DMPR SL1
047940,000247: 11,2645 00011 8D
047941,000248: 11,2646 56215 DAD DDV
047942,000249: 11,2647 23670 THREE/8
047943,000250: 11,2650 00017 14D
047944,000251: 11,2651 74275 DMPR VXSC
047945,000252: 11,2652 00007 6
047946,000253: 11,2653 02042 BETAV # -
047947,000254: 11,2654 64515 PDVL VSR3 # (G/2)(C(PD+4))B/2 TO PD+16D
047948,000255: 11,2655 02034 ALPHAV
047949,000256: 11,2656 41455 VAD PUSH # A12 + C(PD+16D) TO PD+16D
047950,000257: 11,2657 41345 DLOAD DMP
047951,000258: 11,2660 00001 0
047952,000259: 11,2661 00015 12D
047953,000260: 11,2662 61501 NORM ROUND
047954,000261: 11,2663 00037 30D
047955,000262: 11,2664 40665 BDDV DMP*
047956,000263: 11,2665 00003 2
047957,000264: 11,2666 54040 MUEARTH,2
047958,000265: 11,2667 74276 DCOMP VXSC
047959,000266: 11,2670 57124 XCHX,2 XAD,2
047960,000267: 11,2671 00050 S1
047961,000268: 11,2672 00051 S2
047962,000269: 11,2673 55064 XSU,2 XSU,2
047963,000270: 11,2674 00036 30D
047964,000271: 11,2675 00037 31D
047965,000272: 11,2676 77600 BOV # CLEAR OVIND
047966,000273: 11,2677 22700 +1
047967,000274: 11,2700 65057 VSR* XCHX,2
047968,000275: 11,2701 57177 0 -1,2
047969,000276: 11,2702 00050 S1
047970,000277: 11,2703 77655 VAD
047971,000278: 11,2704 02064 FV
047972,000279: 11,2705 02064 STORE FV
047973,000280: 11,2706 43400 BOV RVQ # RETURN IF NO OVERFLOW
047974,000281: 11,2707 22710 +1
047975,000282: 11,2710 54345 GOBAQUE DLOAD SR
047976,000283: 11,2711 02102 H
047977,000284: 11,2712 20612 9D
047978,000285: 11,2713 44206 PUSH BDSU
047979,000286: 11,2714 01551 TC
047980,000287: 11,2715 16076 STODL TAU.
047981,000288: 11,2716 01517 TET
047982,000289: 11,2717 45425 DSU STADR
047983,000290: 11,2720 42260 STCALL TET
047984,000291: 11,2721 22312 KEPPREP
047985,000292: 11,2722 77624 CALL
047986,000293: 11,2723 23340 RECTIFY
047987,000294: 11,2724 77614 SETGO
047988,000295: 11,2725 04020 RPQFLAG
047989,000296: 11,2726 27227 TESTLOOP
047990,000297: # THE OBLATE ROUTINE COMPUTES THE ACCELERATION DUE TO OBLATENESS. IT USES THE UNIT OF THE VEHICLE
047991,000298: # POSITION VECTOR FOUND IN ALPHAV AND THE DISTANCE TO THE CENTER IN ALPHAM. THIS IS ADDED TO THE SUM OF THE
047992,000299: # DISTURBING ACCELERATIONS IN FV AND THE PROPER DIFEQ STAGE IS CALLED VIA X1.
047993,000300:
047994,000301: 11,2727 71354 OBLATE LXA,2 DLOAD
047995,000302: 11,2730 02032 PBODY
047996,000303: 11,2731 02072 ALPHAM
047997,000304: 11,2732 44601 SETPD DSU*
047998,000305: 11,2733 00001 0
047999,000306: 11,2734 54006 RDE,2
048000,000307: 11,2735 43044 BPL BOF # GET URPV
048001,000308: 11,2736 23133 NBRANCH
048002,000309: 11,2737 00343 MOONFLAG
048003,000310: 11,2740 23142 COSPHIE
048004,000311: 11,2741 65375 VLOAD PDDL
048005,000312: 11,2742 02034 ALPHAV
048006,000313: 11,2743 01517 TET
048007,000314: 11,2744 45125 PDDL CALL
048008,000315: 11,2745 23666 3/5
048009,000316: 11,2746 51245 R-TO-RP
048010,000317: 11,2747 00017 STORE URPV
048011,000318: 11,2750 47375 VLOAD VXV
048012,000319: 11,2751 02011 504LM
048013,000320: 11,2752 22270 ZUNIT
048014,000321: 11,2753 61255 VAD VXM
048015,000322: 11,2754 22270 ZUNIT
048016,000323: 11,2755 00025 MMATRIX
048017,000324: 11,2756 77656 UNIT # POSSIBLY UNNECESSARY
048018,000325: 11,2757 00025 COMTERM STORE UZ
048019,000326: 11,2760 57345 DLOAD DMPR
048020,000327: 11,2761 00023 COSPHI/2
048021,000328: 11,2762 23700 3/32
048022,000329: 11,2763 63525 PDDL DSQ # P2/64 TO PD0
048023,000330: 11,2764 00023 COSPHI/2
048024,000331: 11,2765 45275 DMPR DSU
048025,000332: 11,2766 23702 15/16
048026,000333: 11,2767 23674 3/64
048027,000334: 11,2770 57206 PUSH DMPR # P3/32 TO PD2
048028,000335: 11,2771 00023 COSPHI/2
048029,000336: 11,2772 76405 DMP SL1R
048030,000337: 11,2773 23706 7/12
048031,000338: 11,2774 57325 PDDL DMPR
048032,000339: 11,2775 00001 0
048033,000340: 11,2776 23714 2/3
048034,000341: 11,2777 41421 BDSU PUSH # P4/128 TO PD4
048035,000342: 11,3000 57275 DMPR DMPR
048036,000343: 11,3001 00023 COSPHI/2 # BEGIN COMPUTING P5/1024
048037,000344: 11,3002 23710 9/16
048038,000345: 11,3003 57325 PDDL DMPR
048039,000346: 11,3004 00003 2
048040,000347: 11,3005 23712 5/128
048041,000348: 11,3006 77621 BDSU
048042,000349: 11,3007 77603 DMP*
048043,000350: 11,3010 54034 J4REQ/J3,2
048044,000351: 11,3011 43271 DDV DAD # -3
048045,000352: 11,3012 02072 ALPHAM # (((P5/256)B 2 /R+P4/32) /R+P3/8)ALPHAV
048046,000353: 11,3013 00005 4 # 4 3
048047,000354: 11,3014 56273 DMPR* DDV
048048,000355: 11,3015 54030 2J3RE/J2,2
048049,000356: 11,3016 02072 ALPHAM
048050,000357: 11,3017 74215 DAD VXSC
048051,000358: 11,3020 00003 2
048052,000359: 11,3021 02034 ALPHAV
048053,000360: 11,3022 14033 STODL TVEC
048054,000361: 11,3023 70403 DMP* SR1
048055,000362: 11,3024 54034 J4REQ/J3,2
048056,000363: 11,3025 43271 DDV DAD
048057,000364: 11,3026 02072 ALPHAM # -3
048058,000365: 11,3027 50473 DMPR* SR3
048059,000366: 11,3030 54030 2J3RE/J2,2 # 3 4
048060,000367: 11,3031 43271 DDV DAD
048061,000368: 11,3032 02072 ALPHAM
048062,000369: 11,3033 76561 VXSC VSL1
048063,000370: 11,3034 00025 UZ
048064,000371: 11,3035 77645 BVSU
048065,000372: 11,3036 00033 TVEC
048066,000373: 11,3037 14033 STODL TVEC
048067,000374: 11,3040 02072 ALPHAM
048068,000375: 11,3041 63501 NORM DSQ
048069,000376: 11,3042 00047 X1
048070,000377: 11,3043 60316 DSQ NORM
048071,000378: 11,3044 00051 S1 # 4
048072,000379: 11,3045 54606 PUSH BDDV* # NORMED R TO 0D
048073,000380: 11,3046 54024 J2REQSQ,2
048074,000381: 11,3047 77761 VXSC
048075,000382: 11,3050 00033 TVEC
048076,000383: 11,3051 00033 STORE TVEC
048077,000384: 11,3052 56070 XAD,1 XAD,1
048078,000385: 11,3053 00046 X1
048079,000386: 11,3054 00046 X1
048080,000387: 11,3055 43070 XAD,1 BOF
048081,000388: 11,3056 00050 S1
048082,000389: 11,3057 00343 MOONFLAG
048083,000390: 11,3060 23123 NBRANCH1
048084,000391: 11,3061 63545 DLOAD DSQ # 2
048085,000392: 11,3062 00017 URPV # X B-2 TO 2D
048086,000393: 11,3063 63525 PDDL DSQ
048087,000394: 11,3064 00021 URPV +2 # 2 2
048088,000395: 11,3065 65215 DAD PDDL # Y +X B-2 TO 2D
048089,000396: 11,3066 00003 2D
048090,000397: 11,3067 45352 SL1 DSU
048091,000398:
048092,000399: 11,3070 00003 2D
048093,000400: 11,3071 41525 PDDL PUSH # X -Y B-2 TO 4D COSPHI2 TO 6D
048094,000401: 11,3072 00023 COSPHI/2
048095,000402: 11,3073 65361 VXSC PDDL # 2COSPHI(UZ) B-3 TO 6D
048096,000403: 11,3074 00025 UZ
048097,000404: 11,3075 45316 DSQ DSU
048098,000405: 11,3076 23666 3/5 # 2 2 2
048099,000406: 11,3077 52405 DMP SL3 # (X -Y)((5COS (PHI)-3)UR 2COS(PHI)UZ)
048100,000407: 11,3100 23757 5/8
048101,000408: 11,3101 52361 VXSC VSU # B-3 TO 4D
048102,000409: 11,3102 02034 ALPHAV
048103,000410: 11,3103 72561 VXSC VSL2
048104,000411: 11,3104 77725 PDDL
048105,000412: 11,3105 00017 URPV
048106,000413: 11,3106 63205 DMP PDVL # XY B-2 TO 10D
048107,000414: 11,3107 00021 URPV +2
048108,000415: 11,3110 02034 ALPHAV
048109,000416: 11,3111 74235 VXV VXSC
048110,000417: 11,3112 00025 UZ
048111,000418: 11,3113 53332 VSL3 VAD # 4XY(UR X UZ) +D( 4D) B-3
048112,000419: 11,3114 62525 PDDL SL2
048113,000420: 11,3115 55205 DMP BDDV
048114,000421: 11,3116 00001 0D # 3J22R2MU/(X +Y )R
048115,000422: 11,3117 23755 3J22R2MU
048116,000423: 11,3120 64561 VXSC VSR3
048117,000424: 11,3121 53342 VSR2 VAD
048118,000425: 11,3122 00033 TVEC
048119,000426: 11,3123 77600 NBRANCH1 BOV
048120,000427: 11,3124 23125 +1
048121,000428: 11,3125 53257 VSL* VAD
048122,000429: 11,3126 20153 0 -22D,1
048123,000430: 11,3127 02064 FV
048124,000431: 11,3130 02064 STORE FV
048125,000432: 11,3131 77600 BOV
048126,000433: 11,3132 22710 GOBAQUE
048127,000434:
048128,000435: 11,3133 72135 NBRANCH SLOAD LXA,1
048129,000436: 11,3134 01501 DIFEQCNT
048130,000437: 11,3135 00154 MPAC
048131,000438: 11,3136 73205 DMP CGOTO
048132,000439: 11,3137 23761 -1/12
048133,000440: 11,3140 00155 MPAC
048134,000441: 11,3141 23150 DIFEQTAB
048135,000442: 11,3142 77745 COSPHIE DLOAD
048136,000443: 11,3143 02040 ALPHAV +4
048137,000444: 11,3144 24023 STOVL COSPHI/2
048138,000445: 11,3145 22270 ZUNIT
048139,000446: 11,3146 77650 GOTO
048140,000447: 11,3147 22757 COMTERM
048141,000448: 11,3150 23365 DIFEQTAB CADR DIFEQ+0
048142,000449: 11,3151 23371 CADR DIFEQ+1
048143,000450: 11,3152 23402 CADR DIFEQ+2
048144,000451: 11,3153 77214 TIMESTEP BOF VLOAD
048145,000452: 11,3154 00342 MIDFLAG
048146,000453: 11,3155 23202 RECTEST
048147,000454: 11,3156 01535 RCV
048148,000455: 11,3157 50041 DOT BMN
048149,000456: 11,3160 01543 VCV
048150,000457: 11,3161 23202 RECTEST
048151,000458: 11,3162 43014 BON BOF
048152,000459: 11,3163 00303 MOONFLAG
048153,000460: 11,3164 23257 LUNSPH
048154,000461: 11,3165 04340 RPQFLAG
048155,000462: 11,3166 23254 EARSPH
048156,000463: 11,3167 45145 DLOAD CALL
048157,000464: 11,3170 01517 TET
048158,000465: 11,3171 33236 LSPOS # RPQV IN MPAC
048159,000466: 11,3172 02107 STORE RPQV # RPQV
048160,000467: 11,3173 77754 LXA,2
048161,000468: 11,3174 02032 PBODY
048162,000469: 11,3175 51445 INLUNCHK BVSU ABVAL
048163,000470: 11,3176 01535 RCV
048164,000471: 11,3177 50025 DSU BMN
048165,000472: 11,3200 23765 RSPHERE
048166,000473: 11,3201 23274 DOSWITCH
048167,000474: 11,3202 51575 RECTEST VLOAD ABVAL # RECTIFY IF
048168,000475: 11,3203 01521 TDELTAV
048169,000476: 11,3204 77600 BOV
048170,000477: 11,3205 23230 CALLRECT
048171,000478: 11,3206 51025 DSU BPL # 1) EITHER TDELTAV OR TNUV EQUALS OR
048172,000479: 11,3207 23704 3/4 # EXCEEDS 3/4 IN MAGNITUDE
048173,000480: 11,3210 23230 CALLRECT
048174,000481: 11,3211 53615 DAD SL* # OR
048175,000482: 11,3212 23704 3/4
048176,000483: 11,3213 57605 0 -7,2 # 2) ABVAL(TDELTAV) EQUALS OR EXCEEDS
048177,000484: 11,3214 45271 DDV DSU # .01(ABVAL(RCV))
048178,000485: 11,3215 00013 10D
048179,000486: 11,3216 23763 RECRATIO
048180,000487: 11,3217 77244 BPL VLOAD
048181,000488: 11,3220 23230 CALLRECT
048182,000489: 11,3221 01527 TNUV
048183,000490: 11,3222 45246 ABVAL DSU
048184,000491: 11,3223 23704 3/4
048185,000492: 11,3224 77600 BOV
048186,000493: 11,3225 23230 CALLRECT
048187,000494: 11,3226 77640 BMN
048188,000495: 11,3227 23232 INTGRATE
048189,000496: 11,3230 77624 CALLRECT CALL
048190,000497: 11,3231 23340 RECTIFY
048191,000498: 11,3232 77775 INTGRATE VLOAD
048192,000499: 11,3233 01527 TNUV
048193,000500: 11,3234 25140 STOVL ZV
048194,000501: 11,3235 01521 TDELTAV
048195,000502: 11,3236 01132 STORE YV
048196,000503: 11,3237 77614 CLEAR
048197,000504: 11,3240 00261 JSWITCH
048198,000505: 11,3241 66375 DIFEQ0 VLOAD SSP
048199,000506: 11,3242 01132 YV
048200,000507: 11,3243 01501 DIFEQCNT
048201,000508: 11,3244 00000 0
048202,000509: 11,3245 16034 STODL ALPHAV
048203,000510: 11,3246 22276 DPZERO
048204,000511: 11,3247 02102 STORE H # START H AT ZERO. GOES 0(DELT/2)DELT.
048205,000512: 11,3250 52014 BON GOTO
048206,000513: 11,3251 00301 JSWITCH
048207,000514: 11,3252 23605 DOW..
048208,000515: 11,3253 22432 ACCOMP
048209,000516: 11,3254 52175 EARSPH VLOAD GOTO
048210,000517: 11,3255 02107 RPQV
048211,000518: 11,3256 23175 INLUNCHK
048212,000519: 11,3257 60545 LUNSPH DLOAD SR2
048213,000520: 11,3260 00013 10D
048214,000521: 11,3261 50025 DSU BMN
048215,000522: 11,3262 23765 RSPHERE
048216,000523: 11,3263 23202 RECTEST
048217,000524: 11,3264 71214 BOF DLOAD
048218,000525: 11,3265 04340 RPQFLAG
048219,000526: 11,3266 23274 DOSWITCH
048220,000527: 11,3267 01517 TET
048221,000528: 11,3270 77624 CALL
048222,000529: 11,3271 33236 LUNPOS
048223,000530: 11,3272 77676 VCOMP
048224,000531: 11,3273 02107 STORE RPQV
048225,000532: 11,3274 77624 DOSWITCH CALL
048226,000533: 11,3275 23300 ORIGCHNG
048227,000534: 11,3276 77650 GOTO
048228,000535: 11,3277 23232 INTGRATE
048229,000536: 11,3300 45020 ORIGCHNG STQ CALL
048230,000537: 11,3301 02114 ORIGEX
048231,000538: 11,3302 23340 RECTIFY
048232,000539: 11,3303 53775 VLOAD VSL*
048233,000540: 11,3304 01535 RCV
048234,000541: 11,3305 57576 0,2
048235,000542: 11,3306 53651 VSU VSL*
048236,000543: 11,3307 02107 RPQV
048237,000544: 11,3310 57574 2,2
048238,000545: 11,3311 01503 STORE RRECT
048239,000546: 11,3312 15535 STODL RCV
048240,000547: 11,3313 01517 TET
048241,000548: 11,3314 77624 CALL
048242,000549: 11,3315 33347 LUNVEL
048243,000550: 11,3316 57414 BOF VCOMP
048244,000551: 11,3317 00343 MOONFLAG
048245,000552: 11,3320 23321 +1
048246,000553: 11,3321 53715 PDVL VSL*
048247,000554: 11,3322 01543 VCV
048248,000555: 11,3323 57576 0,2
048249,000556: 11,3324 77651 VSU
048250,000557: 11,3325 77657 VSL*
048251,000558: 11,3326 57574 0 +2,2
048252,000559: 11,3327 01511 STORE VRECT
048253,000560: 11,3330 01543 STORE VCV
048254,000561: 11,3331 67154 LXA,2 SXA,2
048255,000562: 11,3332 02114 ORIGEX
048256,000563: 11,3333 00052 QPRET
048257,000564: 11,3334 52014 BON GOTO
048258,000565: 11,3335 00303 MOONFLAG
048259,000566: 11,3336 26661 CLRMOON
048260,000567: 11,3337 26666 SETMOON
048261,000568: # THE RECTIFY SUBROUTINE IS CALLED BY THE INTEGRATION PROGRAM AND OCCASIONALLY BY THE MEASUREMENT INCORPORATION
048262,000569: # ROUTINES TO ESTABLISH A NEW CONIC.
048263,000570:
048264,000571: 11,3340 77354 RECTIFY LXA,2 VLOAD
048265,000572: 11,3341 02032 PBODY
048266,000573: 11,3342 01521 TDELTAV
048267,000574: 11,3343 53257 VSL* VAD
048268,000575: 11,3344 57605 0 -7,2
048269,000576: 11,3345 01535 RCV
048270,000577: 11,3346 01503 STORE RRECT
048271,000578: 11,3347 25535 STOVL RCV
048272,000579: 11,3350 01527 TNUV
048273,000580: 11,3351 53257 VSL* VAD
048274,000581: 11,3352 57602 0 -4,2
048275,000582: 11,3353 01543 VCV
048276,000583: 11,3354 01511 MINIRECT STORE VRECT
048277,000584: 11,3355 25543 STOVL VCV
048278,000585: 11,3356 22276 ZEROVEC
048279,000586: 11,3357 01521 STORE TDELTAV
048280,000587: 11,3360 15527 STODL TNUV
048281,000588: 11,3361 22276 ZEROVEC
048282,000589: 11,3362 01551 STORE TC
048283,000590: 11,3363 01553 STORE XKEP
048284,000591: 11,3364 77616 RVQ
048285,000592:
048286,000593: # THE THREE DIFEQ ROUTINES - DIFEQ+0, DIFEQ+12, AND DIFEQ+24 - ARE ENTEREDTO PROCESS THE CONTRIBUTIONS AT THE
048287,000594: # BEGINNING, MIDDLE, AND END OF THE TIMESTEP, RESPECTIVELY. THE UPDATING IS DONE BY THE NYSTROM METHOD.
048288,000595:
048289,000596: 11,3365 64575 DIFEQ+0 VLOAD VSR3
048290,000597: 11,3366 02064 FV
048291,000598: 11,3367 36050 STCALL PHIV
048292,000599: 11,3370 23546 DIFEQCOM
048293,000600: 11,3371 74575 DIFEQ+1 VLOAD VSR1
048294,000601: 11,3372 02064 FV
048295,000602: 11,3373 53206 PUSH VAD
048296,000603: 11,3374 02050 PHIV
048297,000604: 11,3375 26056 STOVL PSIV
048298,000605: 11,3376 53362 VSR1 VAD
048299,000606: 11,3377 02050 PHIV
048300,000607: 11,3400 36050 STCALL PHIV
048301,000608: 11,3401 23546 DIFEQCOM
048302,000609: 11,3402 57345 DIFEQ+2 DLOAD DMPR
048303,000610: 11,3403 02102 H
048304,000611: 11,3404 23714 DP2/3
048305,000612: 11,3405 74206 PUSH VXSC
048306,000613: 11,3406 02050 PHIV
048307,000614: 11,3407 53372 VSL1 VAD
048308,000615: 11,3410 01140 ZV
048309,000616: 11,3411 53361 VXSC VAD
048310,000617: 11,3412 02102 H
048311,000618: 11,3413 01132 YV
048312,000619: 11,3414 25132 STOVL YV
048313,000620: 11,3415 02064 FV
048314,000621: 11,3416 53322 VSR3 VAD
048315,000622: 11,3417 02056 PSIV
048316,000623: 11,3420 76561 VXSC VSL1
048317,000624: 11,3421 40055 VAD BOV
048318,000625: 11,3422 01140 ZV
048319,000626: 11,3423 23424 +1
048320,000627: 11,3424 01140 STORE ZV
048321,000628: 11,3425 45014 BOFF CALL
048322,000629: 11,3426 00341 JSWITCH
048323,000630: 11,3427 23477 ENDSTATE
048324,000631: 11,3430 11054 GRP2PC
048325,000632: 11,3431 77354 LXA,2 VLOAD
048326,000633: 11,3432 01122 COLREG
048327,000634: 11,3433 01140 ZV
048328,000635: 11,3434 77732 VSL3 # ADJUST W-POSITION FOR STORAGE
048329,000636: 11,3435 12467 STORE W +54D,2
048330,000637: 11,3436 77775 VLOAD
048331,000638: 11,3437 01132 YV
048332,000639: 11,3440 40132 VSL3 BOV
048333,000640: 11,3441 23571 WMATEND
048334,000641: 11,3442 12401 STORE W,2
048335,000642:
048336,000643: 11,3443 77624 CALL
048337,000644: 11,3444 11054 GRP2PC
048338,000645: 11,3445 66354 LXA,2 SSP
048339,000646: 11,3446 01122 COLREG
048340,000647: 11,3447 00052 S2
048341,000648: 11,3450 00000 0
048342,000649: 11,3451 67114 INCR,2 SXA,2
048343,000650: 11,3452 00006 6
048344,000651: 11,3453 01131 YV
048345,000652: 11,3454 45104 TIX,2 CALL
048346,000653: 11,3455 23542 RELOADSV
048347,000654: 11,3456 11054 GRP2PC
048348,000655: 11,3457 67154 LXA,2 SXA,2
048349,000656: 11,3460 01131 YV
048350,000657: 11,3461 01122 COLREG
048351,000658:
048352,000659: 11,3462 77624 NEXTCOL CALL
048353,000660: 11,3463 11054 GRP2PC
048354,000661: 11,3464 76754 LXA,2 VLOAD*
048355,000662: 11,3465 01122 COLREG
048356,000663: 11,3466 75376 W,2
048357,000664: 11,3467 77722 VSR3 # ADJUST W-POSITION FOR INTEGRATION
048358,000665: 11,3470 01132 STORE YV
048359,000666: 11,3471 76173 VLOAD* AXT,1
048360,000667: 11,3472 75310 W +54D,2
048361,000668: 11,3473 00000 0
048362,000669: 11,3474 77722 VSR3 # ADJUST W-VELOCITY FOR INTEGRATION
048363,000670: 11,3475 35140 STCALL ZV
048364,000671: 11,3476 23241 DIFEQ0
048365,000672:
048366,000673: 11,3477 77775 ENDSTATE VLOAD
048367,000674: 11,3500 01140 ZV
048368,000675: 11,3501 25527 STOVL TNUV
048369,000676: 11,3502 01132 YV
048370,000677: 11,3503 01521 STORE TDELTAV
048371,000678: 11,3504 43014 BON BOFF
048372,000679: 11,3505 04715 MIDAVFLG
048373,000680: 11,3506 27641 CKMID2 # CHECK FOR MID2 BEFORE GOING TO TIMEINC
048374,000681: 11,3507 01756 DIM0FLAG
048375,000682: 11,3510 27227 TESTLOOP
048376,000683: 11,3511 77776 EXIT
048377,000684: 11,3512 05413 TC PHASCHNG
048378,000685: 11,3513 04022 OCT 04022 # PHASE 1
048379,000686: 11,3514 40774 CS RASFLAG # PHASE CHANGE HAS OCCURRED BETWEEN
048380,000687: 11,3515 75020 MASK REINTBIT # INTSTALL AND INTWAKE
048381,000688: 11,3516 26774 ADS RASFLAG
048382,000689: 11,3517 06014 TC INTPRET
048383,000690: 11,3520 77731 SSP
048384,000691: 11,3521 00053 QPRET
048385,000692: 11,3522 23527 AMOVED
048386,000693: 11,3523 52014 BON GOTO
048387,000694: 11,3524 01714 VINTFLAG
048388,000695: 11,3525 26631 ATOPCSM
048389,000696: 11,3526 26704 ATOPLEM
048390,000697: 11,3527 66214 AMOVED SET SSP
048391,000698: 11,3530 00061 JSWITCH
048392,000699: 11,3531 01123 COLREG
048393,000700: 11,3532 77741 DEC -30 B-14
048394,000701: 11,3533 66214 BOFF SSP
048395,000702: 11,3534 01755 D6OR9FLG
048396,000703: 11,3535 23462 NEXTCOL
048397,000704: 11,3536 01123 COLREG
048398,000705: 11,3537 77717 DEC -48 B-14
048399,000706: 11,3540 77650 GOTO
048400,000707: 11,3541 23462 NEXTCOL
048401,000708:
048402,000709: 11,3542 77745 RELOADSV DLOAD # RELOAD TEMPORARY STATE VECTOR
048403,000710: 11,3543 01121 TDEC # FROM PERMANENT IN CASE OF
048404,000711: 11,3544 34041 STCALL TDEC1
048405,000712: 11,3545 27112 INTEGRV2 # BY STARTING AT INTEGRV2.
048406,000713: 11,3546 43345 DIFEQCOM DLOAD DAD # INCREMENT H AND DIFEQCNT.
048407,000714: 11,3547 02100 DT/2
048408,000715: 11,3550 02102 H
048409,000716: 11,3551 66110 INCR,1 SXA,1
048410,000717: 11,3552 77763 DEC -12 B-14
048411,000718: 11,3553 01500 DIFEQCNT # DIFEQCNT SET FOR NEXT ENTRY.
048412,000719: 11,3554 02102 STORE H
048413,000720: 11,3555 74561 VXSC VSR1
048414,000721: 11,3556 02064 FV
048415,000722: 11,3557 74255 VAD VXSC
048416,000723: 11,3560 01140 ZV
048417,000724: 11,3561 02102 H
048418,000725: 11,3562 77655 VAD
048419,000726: 11,3563 01132 YV
048420,000727: 11,3564 02034 STORE ALPHAV
048421,000728: 11,3565 52014 BON GOTO
048422,000729: 11,3566 00301 JSWITCH
048423,000730: 11,3567 23605 DOW..
048424,000731: 11,3570 22412 FBR3
048425,000732:
048426,000733: 11,3571 43014 WMATEND CLEAR CLEAR
048427,000734: 11,3572 01676 DIM0FLAG # DONT INTEGRATE W THIS TIME
048428,000735: 11,3573 01671 ORBWFLAG # INVALIDATE W
048429,000736: 11,3574 77614 CLEAR
048430,000737: 11,3575 02676 RENDWFLG
048431,000738: 11,3576 77414 SET EXIT
048432,000739: 11,3577 01472 STATEFLG # PICK UP STATE VECTOR UPDATE
048433,000740: 11,3600 05646 TC ALARM
048434,000741: 11,3601 00421 OCT 421
048435,000742: 11,3602 06014 TC INTPRET
048436,000743: 11,3603 77650 GOTO
048437,000744: 11,3604 27227 TESTLOOP # FINISH INTEGRATING STATE VECTOR
048438,000745:
048439,000746: # ORBITAL ROUTINE FOR EXTRAPOLATION OF THE W MATRIX. IT COMPUTES THE SECOND DERIVATIVE OF EACH COLUMN POSITION
048440,000747: # VECTOR OF THE MATRIX AND CALLS THE NYSTROM INTEGRATION ROUTINES TO SOLVE THE DIFFERENTIAL EQUATIONS. THE PROGRAM
048441,000748: # USES A TABLE OF VEHICLE POSITION VECTORS COMPUTED DURING THE INTEGRATION OF THE VEHICLES POSITION AND VELOCITY.
048442,000749:
048443,000750: 11,3605 70754 DOW.. LXA,2 DLOAD*
048444,000751: 11,3606 02032 PBODY
048445,000752: 11,3607 54040 MUEARTH,2
048446,000753: 11,3610 36074 STCALL BETAM
048447,000754: 11,3611 23633 DOW..1
048448,000755: 11,3612 02064 STORE FV
048449,000756: 11,3613 62014 BOF INCR,1
048450,000757: 11,3614 00342 MIDFLAG
048451,000758: 11,3615 23133 NBRANCH
048452,000759: 11,3616 77771 DEC -6 B-14
|
|
The following line was LXC,2 in Luminary. Was this fixed for Sundance 306? |
048454,000761: 11,3617 70754 LXA,2 DLOAD*
048455,000762: 11,3620 02032 PBODY
048456,000763: 11,3621 54042 MUEARTH -2,2
048457,000764: 11,3622 36074 STCALL BETAM
048458,000765: 11,3623 23633 DOW..1
048459,000766: 11,3624 50414 BON VSR6
048460,000767: 11,3625 00303 MOONFLAG
048461,000768: 11,3626 23627 +1
048462,000769: 11,3627 77655 VAD
048463,000770: 11,3630 02064 FV
048464,000771: 11,3631 36064 STCALL FV
048465,000772: 11,3632 23133 NBRANCH
048466,000773: 11,3633 60575 DOW..1 VLOAD VSR4
048467,000774: 11,3634 02034 ALPHAV
048468,000775: 11,3635 53513 PDVL* UNIT
048469,000776: 11,3636 02134 VECTAB,1
048470,000777: 11,3637 46315 PDVL VPROJ
048471,000778: 11,3640 02034 ALPHAV
048472,000779: 11,3641 52361 VXSC VSU
048473,000780: 11,3642 23704 3/4
048474,000781: 11,3643 60325 PDDL NORM
048475,000782: 11,3644 00045 36D
048476,000783: 11,3645 00052 S2
048477,000784: 11,3646 63406 PUSH DSQ
048478,000785: 11,3647 77605 DMP
048479,000786: 11,3650 65301 NORM PDDL
048480,000787: 11,3651 00043 34D
048481,000788: 11,3652 02074 BETAM
048482,000789: 11,3653 56342 SR1 DDV
048483,000790: 11,3654 77761 VXSC
048484,000791: 11,3655 57154 LXA,2 XAD,2
048485,000792: 11,3656 00051 S2
048486,000793: 11,3657 00051 S2
048487,000794: 11,3660 57074 XAD,2 XAD,2
048488,000795: 11,3661 00051 S2
048489,000796: 11,3662 00042 34D
048490,000797: 11,3663 43457 VSL* RVQ
048491,000798: 11,3664 57606 0 -8D,2
048492,000799:
048493,000800: 11,2000 SETLOC ORBITAL1
048494,000801: 11,2000 BANK
048495,000802:
048496,000803: 11,3665 04631 23146 3/5 2DEC .6 B-2
048497,000804:
048498,000805: 11,3667 14000 00000 THREE/8 2DEC .375
048499,000806:
048500,000807: 11,3671 02314 31463 .3D 2DEC .3 B-2
048501,000808:
048502,000809: 11,3673 01400 00000 3/64 2DEC 3 B-6
048503,000810:
048504,000811: 11,3675 10000 00000 DP1/4 2DEC .25
048505,000812:
048506,000813: 11,3677 11,3675 DQUARTER EQUALS DP1/4
048507,000814: 11,3677 11,3675 POS1/4 EQUALS DP1/4
048508,000815: 11,3677 03000 00000 3/32 2DEC 3 B-5
048509,000816:
048510,000817: 11,3701 36000 00000 15/16 2DEC 15. B-4
048511,000818:
048512,000819: 11,3703 30000 00000 3/4 2DEC 3.0 B-2
048513,000820:
048514,000821: 11,3705 22525 12525 7/12 2DEC .5833333333
048515,000822:
048516,000823: 11,3707 22000 00000 9/16 2DEC 9 B-4
048517,000824:
048518,000825: 11,3711 01200 00000 5/128 2DEC 5 B-7
048519,000826:
048520,000827: 11,3713 11,2275 DPZERO EQUALS ZEROVEC
048521,000828: 11,3713 25252 25253 DP2/3 2DEC .6666666667
048522,000829:
048523,000830: 11,3715 11,3713 2/3 EQUALS DP2/3
048524,000831: 11,3715 00027 OCT27 OCT 27
048525,000832:
048526,000833: # LM504 IS TEMPORARY
048527,000834:
048528,000835: # IT IS VITAL THAT THE FOLLOWING CONSTANTS NOT BE SHUFFLED
048529,000836: 11,3716 77764 DEC -11 B-14
048530,000837: 11,3717 77775 DEC -2 B-14
048531,000838: 11,3720 77766 DEC -9 B-14
048532,000839: 11,3721 77771 DEC -6 B-14
048533,000840: 11,3722 77775 DEC -2 B-14
048534,000841: 11,3723 77775 DEC -2 B-14
048535,000842: 11,3724 00000 DEC 0 B-14
048536,000843: 11,3725 77763 DEC -12 B-14
048537,000844: 11,3726 77766 DEC -9 B-14
048538,000845: 11,3727 77773 DEC -4 B-14
048539,000846: 11,3730 77770 ASCALE DEC -7 B-14
048540,000847: 11,3731 77771 DEC -6 B-14
048541,000848:
048542,000849: # *** THE ORDER OF THE FOLLOWING CONSTANTS MUST NOT BE CHANGED ***********
048543,000850:
048544,000851: 11,3732 27446 14620 2DEC* 1.32715445 E16 B-54* # S
048545,000852: 11,3734 16471 01352 MUM 2DEC* 4.9027780 E8 B-30* # M
048546,000853:
048547,000854: 11,3736 22437 16067 MUEARTH 2DEC* 3.986032 E10 B-36*
048548,000855: 11,3740 00000 00000 2DEC 0 B-28
048549,000856:
048550,000857: 11,3742 02302 24736 J4REQ/J3 2DEC* .4991607391 E7 B-26*
048551,000858: 11,3744 00000 00000 2DEC 0 B-28
048552,000859: 11,3746 77776 53032 2J3RE/J2 2DEC* -.1355426363 E5 B-27*
048553,000860: 11,3750 10407 05344 2DEC* .3067493316 E18 B-60*
048554,000861: 11,3752 13710 35320 J2REQSQ 2DEC* 1.75501139 E21 B-72*
048555,000862: 11,3754 12160 12124 3J22R2MU 2DEC* 9.20479048 E16 B-58*
048556,000863:
048557,000864: 11,3756 24000 00000 5/8 2DEC 5 B-3
048558,000865:
048559,000866: 11,3760 74631 63145 -1/12 2DEC -.1
048560,000867:
048561,000868: 11,3762 00243 32703 RECRATIO 2DEC .01
048562,000869:
048563,000870: 11,3764 03654 21000 RSPHERE 2DEC 64373.76 E3 B-29
048564,000871:
048565,000872: 11,3766 03654 21000 RDM 2DEC 16093.44 E3 B-27
048566,000873:
048567,000874: 11,3770 04627 25200 RDE 2DEC 80467.20 E3 B-29
048568,000875:
048569,000876: 11,3772 5011 INTFLBIT = BIT14
048570,000877: 11,3772 5020 REINTBIT = BIT7
048571,000878:
048572,000879: 11,3772 RATT EQUALS 00
048573,000880: 11,3772 VATT EQUALS 6D
048574,000881: 11,3772 TAT EQUALS 12D
048575,000882: 11,3772 RATT1 EQUALS 14D
048576,000883: 11,3772 VATT1 EQUALS 20D
048577,000884: 11,3772 MU(P) EQUALS 26D
048578,000885: 11,3772 TDEC1 EQUALS 32D
048579,000886: 11,3772 URPV EQUALS 14D
048580,000887: 11,3772 0022 COSPHI/2 EQUALS URPV +4
048581,000888: 11,3772 UZ EQUALS 20D
048582,000889: 11,3772 TVEC EQUALS 26D
048583,000890:
End of include-file ORBITAL_INTEGRATION.agc. Parent file is MAIN.agc