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