Source Code
|
These source-code files are part of a reconstructed copy of Comanche 44, the
initial release (though not the final mission release) of the Apollo 10
Command Module (CM) Apollo Guidance Computer (AGC) software. Subsequent releases
were Comanche 45 and Comanche 45/2 (the flown release on Apollo 10). The reconstruction
is believed to be exactly accurate, but in the absence of an actual Apollo-era
listing of Comanche 44, some explanation of the reconstruction process is needed
to insure confidence in that accuracy.
The starting point was the source code of Comanche 51
(separately previously reconstructed from an Apollo-era listing of Comanche 55,
flown on Apollo 11). Comanche 51 source code was then modified
by undoing changes known to have been made between revisions 44 and 51. The now-reconstructed
Comanche 44 source code was verified by assembling it and checking that the assembled code had
the expected known-correct memory-bank checksums.
Note that page numbers in the reconstructed code match those on the Comanche 55 printout,
although the source code would likely have different page numbers in a contemporary
Comanche 44 listing.
Annotations that were not present in the contemporary source code have been added to the reconstructed
code to justify each change relative to Comanche 51. Here's a guide to the Apollo documentation referenced
in those annotations:
In most cases, only the titles (rather than the full texts) of PCRs are known. In addition to the
explanatory annotations, there is also
a step-by-step commentary about the reconstruction process.
Comments expected to have been present in the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". Report any errors
noted by creating an
issue report at the Virtual AGC
Project's GitHub repository.
|
057290,000002: ## Copyright: Public domain.
057291,000003: ## Filename: ORBITAL_INTEGRATION.agc
057292,000004: ## Purpose: A section of Comanche revision 044.
057293,000005: ## It is part of the reconstructed source code for the
057294,000006: ## original release of the flight software for the Command
057295,000007: ## Module's (CM) Apollo Guidance Computer (AGC) for Apollo 10.
057296,000008: ## The code has been recreated from a copy of Comanche 055. It
057297,000009: ## has been adapted such that the resulting bugger words
057298,000010: ## exactly match those specified for Comanche 44 in NASA drawing
057299,000011: ## 2021153D, which gives relatively high confidence that the
057300,000012: ## reconstruction is correct.
057301,000013: ## Assembler: yaYUL
057302,000014: ## Contact: Ron Burkey <info@sandroid.org>.
057303,000015: ## Website: www.ibiblio.org/apollo/index.html
057304,000016: ## Mod history: 2020-12-03 MAS Created from Comanche 51.
057305,000017:
|
|
Page 1334
|
057307,000019: # DELETE
057308,000020: 13,3714 BANK 13
057309,000021: 11,2000 SETLOC ORBITAL
057310,000022: 11,2000 BANK
057311,000023: 11,2372 COUNT 11/ORBIT
057312,000024:
057313,000025: # DELETE
057314,000026: 11,2372 40354 KEPPREP LXA,2 SETPD
057315,000027: 11,2373 02150 PBODY
057316,000028: 11,2374 00001 0
057317,000029: 11,2375 75543 DLOAD* SQRT # SQRT(MU) (+18 OR +15) 0D PL 2D
057318,000030: 11,2376 50042 MUEARTH,2
057319,000031: 11,2377 53515 PDVL UNIT # PL 8D
057320,000032: 11,2400 01535 RCV
057321,000033: 11,2401 60325 PDDL NORM # NORM R (+29 OR +27 - N1) 2D PL 4D
057322,000034: 11,2402 00045 36D
057323,000035: 11,2403 00047 X1
057324,000036: 11,2404 77715 PDVL
057325,000037: 11,2405 65241 DOT PDDL # F*SQRT(MU) (+7 OR +5) 4D PL 6D
057326,000038: 11,2406 01543 VCV
057327,000039: 11,2407 02312 TAU. # (+28)
057328,000040: 11,2410 60225 DSU NORM
057329,000041: 11,2411 01551 TC
057330,000042: 11,2412 00051 S1
057331,000043: 11,2413 77742 SR1
057332,000044: 11,2414 65271 DDV PDDL
057333,000045: 11,2415 00003 2D
057334,000046: 11,2416 41405 DMP PUSH # FS (+6 +N1-N2) 6D PL 8D
057335,000047: 11,2417 00005 4D
057336,000048: 11,2420 65316 DSQ PDDL # (FS)SQ (+12 +2(N1-N2)) 8D PL 10D
057337,000049: 11,2421 00005 4D
057338,000050: 11,2422 64716 DSQ PDDL* # SSQ/MU (-2 OR +2(N1-N2)) 10D PL 12D
057339,000051: 11,2423 50042 MUEARTH,2
057340,000052: 11,2424 40442 SR3 SR4
057341,000053: 11,2425 47515 PDVL VSQ # PREALIGN MU (+43 OR +37) 12D PL 14D
057342,000054: 11,2426 01543 VCV
057343,000055: 11,2427 44205 DMP BDSU # PL 12D
057344,000056: 11,2430 00045 36D
057345,000057: 11,2431 41271 DDV DMP # PL 10D
057346,000058: 11,2432 00003 2D # -(1/R-ALPHA) (+12 +3N1-2N2)
057347,000059: 11,2433 53605 DMP SL*
057348,000060: 11,2434 23774 DP2/3
057349,000061: 11,2435 20176 0 -3,1 # 10L(1/R-ALPHA) (+13 +2(N1-N2))
057350,000062: 11,2436 43260 XSU,1 DAD # 2(FS)SQ - ETCETRA PL 8D
057351,000063: 11,2437 00050 S1 # X1 = N2-N1
057352,000064: 11,2440 45257 SL* DSU # -FS+2(FS)SQ ETC (+6 +N1-N2) PL 6D
057353,000065: 11,2441 20211 8D,1
057354,000066: 11,2442 41205 DMP DMP
057355,000067: 11,2443 00001 0D
057356,000068: 11,2444 00005 4D
057357,000069: 11,2445 53657 SL* SL*
|
|
Page 1335
|
057359,000071: 11,2446 20211 8D,1
057360,000072: 11,2447 20201 0,1 # S(-FS(1-2FS)-1/6...) (+17 OR +16)
057361,000073: 11,2450 65215 DAD PDDL # PL 6D
057362,000074: 11,2451 01553 XKEP
057363,000075: 11,2452 53605 DMP SL* # S(+17 OR +16)
057364,000076: 11,2453 00001 0D
057365,000077: 11,2454 20202 1,1
057366,000078: 11,2455 43204 BOVB DAD
057367,000079: 11,2456 57352 TCDANZIG
057368,000080: 11,2457 77626 STADR
057369,000081: 11,2460 75471 STORE XKEPNEW
057370,000082: 11,2461 74020 STQ AXC,1
057371,000083: 11,2462 02270 KEPRTN
057372,000084: 11,2463 00012 DEC 10 B-14
057373,000085: 11,2464 74014 BON AXC,1
057374,000086: 11,2465 00303 MOONFLAG
057375,000087: 11,2466 24042 KEPLERN
057376,000088: 11,2467 00002 DEC 2 B-14
057377,000089: 11,2470 77650 GOTO
057378,000090: 11,2471 24042 KEPLERN
057379,000091:
|
|
Page 1336
|
057381,000093: 11,2472 66350 FBR3 LXA,1 SSP
057382,000094: 11,2473 01500 DIFEQCNT
057383,000095: 11,2474 00051 S1
057384,000096: 11,2475 77762 DEC -13 B-14
057385,000097: 11,2476 54345 DLOAD SR
057386,000098: 11,2477 02314 DT/2
057387,000099: 11,2500 20612 9D
057388,000100: 11,2501 61500 TIX,1 ROUND
057389,000101: 11,2502 22503 +1
057390,000102: 11,2503 43206 PUSH DAD
057391,000103: 11,2504 01551 TC
057392,000104: 11,2505 16312 STODL TAU.
057393,000105: 11,2506 77615 DAD
057394,000106: 11,2507 01517 TET
057395,000107: 11,2510 35517 STCALL TET
057396,000108: 11,2511 22372 KEPPREP
057397,000109:
|
|
Page 1337
|
057399,000111: # AGC ROUTINE TO COMPUTE ACCELERATION COMPONENTS.
057400,000112:
057401,000113: 11,2512 73150 ACCOMP LXA,1 LXA,2
057402,000114: 11,2513 02150 PBODY
057403,000115: 11,2514 02150 PBODY
057404,000116: 11,2515 77775 VLOAD
057405,000117: 11,2516 11563 ZEROVEC
057406,000118: 11,2517 26202 STOVL FV
057407,000119: 11,2520 02152 ALPHAV
057408,000120: 11,2521 53257 VSL* VAD
057409,000121: 11,2522 57605 0 -7,2
057410,000122: 11,2523 01535 RCV
057411,000123: 11,2524 02160 STORE BETAV
057412,000124: 11,2525 65014 BOF XCHX,2
057413,000125: 11,2526 01756 DIM0FLAG
057414,000126: 11,2527 22534 +5
057415,000127: 11,2530 01500 DIFEQCNT
057416,000128: 11,2531 12217 STORE VECTAB,2
057417,000129: 11,2532 77724 XCHX,2
057418,000130: 11,2533 01500 DIFEQCNT
057419,000131: 11,2534 53575 VLOAD UNIT
057420,000132: 11,2535 02152 ALPHAV
057421,000133: 11,2536 16152 STODL ALPHAV
057422,000134: 11,2537 00045 36D
057423,000135: 11,2540 02310 STORE ALPHAM
057424,000136: 11,2541 77624 CALL
057425,000137: 11,2542 22636 GAMCOMP
057426,000138: 11,2543 66175 VLOAD SXA,1
057427,000139: 11,2544 02160 BETAV
057428,000140: 11,2545 00051 S2
057429,000141: 11,2546 16152 STODL ALPHAV
057430,000142: 11,2547 02210 BETAM
057431,000143: 11,2550 02310 STORE ALPHAM
057432,000144: 11,2551 71214 BOF DLOAD
057433,000145: 11,2552 00342 MIDFLAG
057434,000146: 11,2553 23010 OBLATE
057435,000147: 11,2554 01517 TET
057436,000148: 11,2555 77624 CALL
057437,000149: 11,2556 54110 LSPOS
057438,000150: 11,2557 72174 AXT,2 LXA,1
057439,000151: 11,2560 00002 2
057440,000152: 11,2561 00051 S2
057441,000153: 11,2562 77614 BOF
057442,000154: 11,2563 00343 MOONFLAG
057443,000155: 11,2564 22567 +3
057444,000156: 11,2565 77076 VCOMP AXT,2
057445,000157: 11,2566 00000 0
057446,000158: 11,2567 02160 STORE BETAV
057447,000159: 11,2570 26263 STOVL RPQV
|
|
Page 1338
|
057449,000161: 11,2571 00003 2D
057450,000162: 11,2572 02300 STORE RPSV
057451,000163: 11,2573 77214 BOF VLOAD
057452,000164: 11,2574 01756 DIM0FLAG
057453,000165: 11,2575 22610 GETRPSV
057454,000166: 11,2576 02152 ALPHAV
057455,000167: 11,2577 53761 VXSC VSR*
057456,000168: 11,2600 02310 ALPHAM
057457,000169: 11,2601 57175 1,2
057458,000170: 11,2602 65051 VSU XCHX,2
057459,000171: 11,2603 02160 BETAV
057460,000172: 11,2604 01500 DIFEQCNT
057461,000173: 11,2605 12225 STORE VECTAB +6,2
057462,000174: 11,2606 77724 XCHX,2
057463,000175: 11,2607 01500 DIFEQCNT
057464,000176: 11,2610 62175 GETRPSV VLOAD INCR,1
057465,000177: 11,2611 02263 RPQV
057466,000178: 11,2612 00004 4
057467,000179: 11,2613 43014 CLEAR BOF
057468,000180: 11,2614 04260 RPQFLAG
057469,000181: 11,2615 00343 MOONFLAG
057470,000182: 11,2616 22623 +5
057471,000183: 11,2617 53261 VSR VAD
057472,000184: 11,2620 20612 9D
057473,000185: 11,2621 02300 RPSV
057474,000186: 11,2622 02300 STORE RPSV
057475,000187: 11,2623 77624 CALL
057476,000188: 11,2624 22636 GAMCOMP
057477,000189: 11,2625 62174 AXT,2 INCR,1
057478,000190: 11,2626 00004 4
057479,000191: 11,2627 00004 4
057480,000192: 11,2630 77775 VLOAD
057481,000193: 11,2631 02300 RPSV
057482,000194: 11,2632 36160 STCALL BETAV
057483,000195: 11,2633 22636 GAMCOMP
057484,000196: 11,2634 77650 GOTO
057485,000197: 11,2635 23010 OBLATE
057486,000198: 11,2636 74575 GAMCOMP VLOAD VSR1
057487,000199: 11,2637 02160 BETAV
057488,000200: 11,2640 40236 VSQ SETPD
057489,000201: 11,2641 00001 0
057490,000202: 11,2642 61501 NORM ROUND
057491,000203: 11,2643 00040 31D
057492,000204: 11,2644 60325 PDDL NORM # NORMED B SQUARED TO PD LIST
057493,000205: 11,2645 02310 ALPHAM # NORMALIZE (LESS ONE) LENGTH OF ALPHA
057494,000206: 11,2646 00041 32D # SAVING NORM SCALE FACTOR IN X1
057495,000207: 11,2647 63342 SR1 PDVL
057496,000208: 11,2650 02160 BETAV # C(PDL+2) = ALMOST NORMED ALPHA
057497,000209: 11,2651 77656 UNIT
057498,000210: 11,2652 16160 STODL BETAV
|
|
Page 1339
|
057500,000212: 11,2653 00045 36D
057501,000213: 11,2654 02210 STORE BETAM
057502,000214: 11,2655 55301 NORM BDDV # FORM NORMALIZED QUOTIENT ALPHAM/BETAM
057503,000215: 11,2656 00042 33D
057504,000216: 11,2657 41562 SR1R PUSH # C(PDL+2) = ALMOST NORMALIZED RHO.
057505,000217: 11,2660 77743 DLOAD*
057506,000218: 11,2661 27727 ASCALE,1
057507,000219: 11,2662 00051 STORE S1
057508,000220: 11,2663 57124 XCHX,2 XAD,2
057509,000221: 11,2664 00050 S1
057510,000222: 11,2665 00040 32D
057511,000223: 11,2666 71264 XSU,2 DLOAD
057512,000224: 11,2667 00041 33D
057513,000225: 11,2670 00003 2D
057514,000226: 11,2671 65057 SR* XCHX,2
057515,000227: 11,2672 57177 0 -1,2
057516,000228: 11,2673 00050 S1
057517,000229: 11,2674 74406 PUSH SR1R # RHO/4 TO 4D
057518,000230: 11,2675 50315 PDVL DOT
057519,000231: 11,2676 02152 ALPHAV
057520,000232: 11,2677 02160 BETAV
057521,000233: 11,2700 44372 SL1R BDSU # (RHO/4) - 2(ALPHAV/2.BETAV/2)
057522,000234: 11,2701 57206 PUSH DMPR # TO PDL+6
057523,000235: 11,2702 00005 4
057524,000236: 11,2703 77752 SL1
057525,000237: 11,2704 43206 PUSH DAD
057526,000238: 11,2705 23756 DQUARTER
057527,000239: 11,2706 75406 PUSH SQRT
057528,000240: 11,2707 41475 DMPR PUSH
057529,000241: 11,2710 00013 10D
057530,000242: 11,2711 43352 SL1 DAD
057531,000243: 11,2712 23756 DQUARTER
057532,000244: 11,2713 43325 PDDL DAD # (1/4)+2((Q+1)/4) TO PD+14D
057533,000245: 11,2714 00013 10D
057534,000246: 11,2715 11561 HALFDP
057535,000247: 11,2716 72475 DMPR SL1
057536,000248: 11,2717 00011 8D
057537,000249: 11,2720 56215 DAD DDV
057538,000250: 11,2721 23750 THREE/8
057539,000251: 11,2722 00017 14D
057540,000252: 11,2723 74275 DMPR VXSC
057541,000253: 11,2724 00007 6
057542,000254: 11,2725 02160 BETAV # -
057543,000255: 11,2726 64515 PDVL VSR3 # (G/2)(C(PD+4))B/2 TO PD+16D
057544,000256: 11,2727 02152 ALPHAV
057545,000257: 11,2730 41455 VAD PUSH # A12 + C(PD+16D) TO PD+16D
057546,000258: 11,2731 41345 DLOAD DMP
057547,000259: 11,2732 00001 0
057548,000260: 11,2733 00015 12D # -
057549,000261: 11,2734 61501 NORM ROUND
|
|
Page 1340
|
057551,000263: 11,2735 00037 30D
057552,000264: 11,2736 40665 BDDV DMP*
057553,000265: 11,2737 00003 2
057554,000266: 11,2740 50042 MUEARTH,2
057555,000267: 11,2741 74276 DCOMP VXSC
057556,000268: 11,2742 57124 XCHX,2 XAD,2
057557,000269: 11,2743 00050 S1
057558,000270: 11,2744 00051 S2
057559,000271: 11,2745 55064 XSU,2 XSU,2
057560,000272: 11,2746 00036 30D
057561,000273: 11,2747 00037 31D
057562,000274: 11,2750 77600 BOV # CLEAR OVIND
057563,000275: 11,2751 22752 +1
057564,000276: 11,2752 65057 VSR* XCHX,2
057565,000277: 11,2753 57177 0 -1,2
057566,000278: 11,2754 00050 S1
057567,000279: 11,2755 77655 VAD
057568,000280: 11,2756 02202 FV
057569,000281: 11,2757 02202 STORE FV
057570,000282: 11,2760 43400 BOV RVQ # RETURN IF NO OVERFLOW
057571,000283: 11,2761 22762 +1
057572,000284: 11,2762 51575 GOBAQUE VLOAD ABVAL
057573,000285: 11,2763 01521 TDELTAV
057574,000286: 11,2764 77654 BZE
057575,000287: 11,2765 23005 INT-ABRT
057576,000288: 11,2766 54345 DLOAD SR
057577,000289: 11,2767 02212 H
057578,000290: 11,2770 20612 9D
057579,000291: 11,2771 44206 PUSH BDSU
057580,000292: 11,2772 01551 TC
057581,000293: 11,2773 16312 STODL TAU.
057582,000294: 11,2774 01517 TET
057583,000295: 11,2775 45425 DSU STADR
057584,000296: 11,2776 42260 STCALL TET
057585,000297: 11,2777 22372 KEPPREP
057586,000298: 11,3000 77624 CALL
057587,000299: 11,3001 23421 RECTIFY
057588,000300: 11,3002 77614 SETGO
057589,000301: 11,3003 04020 RPQFLAG
057590,000302: 11,3004 27305 TESTLOOP
057591,000303:
057592,000304: 11,3005 77776 INT-ABRT EXIT
057593,000305: 11,3006 05721 TC POODOO
057594,000306: 11,3007 00430 OCT 00430
057595,000307:
|
|
Page 1341
|
057597,000309: # THE OBLATE ROUTINE COMPUTES THE ACCELERATION DUE TO OBLATENESS. IT USES THE UNIT OF THE VEHICLE
057598,000310: # POSITION VECTOR FOUND IN ALPHAV AND THE DISTANCE TO THE CENTER IN ALPHAM. THIS IS ADDED TO THE SUM OF THE
057599,000311: # DISTURBING ACCELERATIONS IN FV AND THE PROPER DIFEQ STAGE IS CALLED VIA X1.
057600,000312:
057601,000313: 11,3010 71354 OBLATE LXA,2 DLOAD
057602,000314: 11,3011 02150 PBODY
057603,000315: 11,3012 02310 ALPHAM
057604,000316: 11,3013 44601 SETPD DSU*
057605,000317: 11,3014 00001 0
057606,000318: 11,3015 50010 RDE,2
057607,000319: 11,3016 43044 BPL BOF # GET URPV
057608,000320: 11,3017 23220 NBRANCH
057609,000321: 11,3020 00343 MOONFLAG
057610,000322: 11,3021 23227 COSPHIE
057611,000323: 11,3022 65375 VLOAD PDDL
057612,000324: 11,3023 02152 ALPHAV
057613,000325: 11,3024 01517 TET
057614,000326: 11,3025 45125 PDDL CALL
057615,000327: 11,3026 23746 3/5
057616,000328: 11,3027 55371 R-TO-RP
057617,000329: 11,3030 00017 STORE URPV
057618,000330: 11,3031 47375 VLOAD VXV
057619,000331: 11,3032 02012 504LM
057620,000332: 11,3033 11555 ZUNIT
057621,000333: 11,3034 61255 VAD VXM
057622,000334: 11,3035 11555 ZUNIT
057623,000335: 11,3036 00025 MMATRIX
057624,000336: 11,3037 77656 UNIT # POSSIBLY UNNECESSARY
057625,000337: 11,3040 00025 COMTERM STORE UZ
057626,000338: 11,3041 57345 DLOAD DMPR
057627,000339: 11,3042 00023 COSPHI/2
057628,000340: 11,3043 23760 3/32
057629,000341: 11,3044 63525 PDDL DSQ # P2/64 TO PD0
057630,000342: 11,3045 00023 COSPHI/2
057631,000343: 11,3046 45275 DMPR DSU
057632,000344: 11,3047 23762 15/16
057633,000345: 11,3050 23754 3/64
057634,000346: 11,3051 57206 PUSH DMPR # P3/32 TO PD2
057635,000347: 11,3052 00023 COSPHI/2
057636,000348: 11,3053 76405 DMP SL1R
057637,000349: 11,3054 23766 7/12
057638,000350: 11,3055 57325 PDDL DMPR
057639,000351: 11,3056 00001 0
057640,000352: 11,3057 23774 2/3
057641,000353: 11,3060 41421 BDSU PUSH # P4/128 TO PD4
057642,000354: 11,3061 57275 DMPR DMPR
057643,000355: 11,3062 00023 COSPHI/2 # BEGIN COMPUTING P5/1024
057644,000356: 11,3063 23770 9/16
057645,000357: 11,3064 57325 PDDL DMPR
057646,000358: 11,3065 00003 2
057647,000359: 11,3066 23772 5/128
057648,000360: 11,3067 77621 BDSU
057649,000361: 11,3070 77603 DMP*
057650,000362: 11,3071 50036 J4REQ/J3,2
057651,000363: 11,3072 43271 DDV DAD # -3
057652,000364: 11,3073 02310 ALPHAM # (((P5/256)B 2 /R+P4/32) /R+P3/8)ALPHAV
057653,000365: 11,3074 00005 4 # 4 3
057654,000366: 11,3075 56273 DMPR* DDV
057655,000367: 11,3076 50032 2J3RE/J2,2
057656,000368: 11,3077 02310 ALPHAM
057657,000369: 11,3100 74215 DAD VXSC
057658,000370: 11,3101 00003 2
057659,000371: 11,3102 02152 ALPHAV
057660,000372: 11,3103 14033 STODL TVEC
057661,000373: 11,3104 70403 DMP* SR1
057662,000374: 11,3105 50036 J4REQ/J3,2
057663,000375: 11,3106 43271 DDV DAD
057664,000376: 11,3107 02310 ALPHAM # -3
057665,000377: 11,3110 50473 DMPR* SR3
057666,000378: 11,3111 50032 2J3RE/J2,2 # 3 4
057667,000379: 11,3112 43271 DDV DAD
057668,000380: 11,3113 02310 ALPHAM
057669,000381: 11,3114 76561 VXSC VSL1
057670,000382: 11,3115 00025 UZ
057671,000383: 11,3116 77645 BVSU
057672,000384: 11,3117 00033 TVEC
057673,000385: 11,3120 14033 STODL TVEC
057674,000386: 11,3121 02310 ALPHAM
057675,000387: 11,3122 63501 NORM DSQ
057676,000388: 11,3123 00047 X1
057677,000389: 11,3124 60316 DSQ NORM
057678,000390: 11,3125 00051 S1 # 4
057679,000391: 11,3126 54606 PUSH BDDV* # NORMED R TO 0D
057680,000392: 11,3127 50026 J2REQSQ,2
057681,000393: 11,3130 77761 VXSC
057682,000394: 11,3131 00033 TVEC
057683,000395: 11,3132 00033 STORE TVEC
057684,000396: 11,3133 56070 XAD,1 XAD,1
057685,000397: 11,3134 00046 X1
057686,000398: 11,3135 00046 X1
057687,000399: 11,3136 43070 XAD,1 BOF
057688,000400: 11,3137 00050 S1
057689,000401: 11,3140 00343 MOONFLAG
057690,000402: 11,3141 23210 NBRANCH1
057691,000403: 11,3142 63545 DLOAD DSQ # 2
057692,000404: 11,3143 00017 URPV # X B-2 TO 2D
057693,000405: 11,3144 63525 PDDL DSQ
057694,000406: 11,3145 00021 URPV +2 # 2 2
057695,000407: 11,3146 65215 DAD PDDL # Y +X B-2 TO 2D
057696,000408: 11,3147 00003 2D
057697,000409: 11,3150 45352 SL1 DSU
057698,000410:
|
|
Page 1232
|
057700,000412: 11,3151 00003 2D
057701,000413: 11,3152 41525 PDDL PUSH # X -Y B-2 TO 4D COSPHI2 TO 6D
057702,000414: 11,3153 00023 COSPHI/2
057703,000415: 11,3154 65361 VXSC PDDL # 2COSPHI(UZ) B-3 TO 6D
057704,000416: 11,3155 00025 UZ
057705,000417: 11,3156 45316 DSQ DSU
057706,000418: 11,3157 23746 3/5 # 2 2 2
057707,000419: 11,3160 52405 DMP SL3 # (X -Y)((5COS (PHI)-3)UR 2COS(PHI)UZ)
057708,000420: 11,3161 27755 5/8
057709,000421: 11,3162 52361 VXSC VSU # B-3 TO 4D
057710,000422: 11,3163 02152 ALPHAV
057711,000423: 11,3164 72561 VXSC VSL2
057712,000424: 11,3165 77725 PDDL
057713,000425: 11,3166 00017 URPV
057714,000426: 11,3167 63205 DMP PDVL # XY B-2 TO 10D
057715,000427: 11,3170 00021 URPV +2
057716,000428: 11,3171 02152 ALPHAV
057717,000429: 11,3172 74235 VXV VXSC
057718,000430: 11,3173 00025 UZ
057719,000431: 11,3174 53332 VSL3 VAD # 4XY(UR X UZ) +D( 4D) B-3
057720,000432: 11,3175 77725 PDDL
057721,000433: 11,3176 41301 NORM DMP
057722,000434: 11,3177 00050 X2
057723,000435: 11,3200 00001 0D # 3J22R2MU/(X +Y )R
057724,000436: 11,3201 74265 BDDV VXSC
057725,000437: 11,3202 27753 3J22R2MU
057726,000438: 11,3203 53257 VSL* VAD
057727,000439: 11,3204 57605 0 -7,2
057728,000440: 11,3205 00033 TVEC
057729,000441: 11,3206 77754 LXA,2
057730,000442: 11,3207 02150 PBODY
057731,000443: 11,3210 77600 NBRANCH1 BOV
057732,000444: 11,3211 23212 +1
057733,000445: 11,3212 53257 VSL* VAD
057734,000446: 11,3213 20153 0 -22D,1
057735,000447: 11,3214 02202 FV
057736,000448: 11,3215 02202 STORE FV
057737,000449: 11,3216 77600 BOV
057738,000450: 11,3217 22762 GOBAQUE
|
|
Page 1344
|
057740,000452: 11,3220 72135 NBRANCH SLOAD LXA,1
057741,000453: 11,3221 01501 DIFEQCNT
057742,000454: 11,3222 00154 MPAC
057743,000455: 11,3223 73205 DMP CGOTO
057744,000456: 11,3224 27757 -1/12
057745,000457: 11,3225 00155 MPAC
057746,000458: 11,3226 23235 DIFEQTAB
057747,000459: 11,3227 77745 COSPHIE DLOAD
057748,000460: 11,3230 02156 ALPHAV +4
057749,000461: 11,3231 24023 STOVL COSPHI/2
057750,000462: 11,3232 11555 ZUNIT
057751,000463: 11,3233 77650 GOTO
057752,000464: 11,3234 23040 COMTERM
057753,000465: 11,3235 23446 DIFEQTAB CADR DIFEQ+0
057754,000466: 11,3236 23452 CADR DIFEQ+1
057755,000467: 11,3237 23463 CADR DIFEQ+2
057756,000468:
057757,000469: 11,3240 45014 TIMESTEP BOF CALL
057758,000470: 11,3241 00342 MIDFLAG
057759,000471: 11,3242 23246 RECTEST # SKIP ORIGIN CHANGE LOGIC
057760,000472: 11,3243 23320 CHKSWTCH
057761,000473: 11,3244 77640 BMN
057762,000474: 11,3245 23355 DOSWITCH
057763,000475:
057764,000476: 11,3246 51575 RECTEST VLOAD ABVAL # RECTIFY IF
057765,000477: 11,3247 01521 TDELTAV
057766,000478: 11,3250 77600 BOV
057767,000479: 11,3251 23274 CALLRECT
057768,000480: 11,3252 51025 DSU BPL # 1) EITHER TDELTAV OR TNUV EQUALS OR
057769,000481: 11,3253 23764 3/4 # EXCEEDS 3/4 IN MAGNITUDE
057770,000482: 11,3254 23274 CALLRECT
057771,000483: 11,3255 53615 DAD SL* # OR
057772,000484: 11,3256 23764 3/4
057773,000485: 11,3257 57605 0 -7,2 # 2) ABVAL(TDELTAV) EQUALS OR EXCEEDS
057774,000486: 11,3260 45271 DDV DSU # .01(ABVAL(RCV))
057775,000487: 11,3261 00013 10D
057776,000488: 11,3262 27761 RECRATIO
057777,000489: 11,3263 77244 BPL VLOAD
057778,000490: 11,3264 23274 CALLRECT
057779,000491: 11,3265 01527 TNUV
057780,000492: 11,3266 45246 ABVAL DSU
057781,000493: 11,3267 23764 3/4
057782,000494: 11,3270 77600 BOV
057783,000495: 11,3271 23274 CALLRECT
057784,000496: 11,3272 77640 BMN
057785,000497: 11,3273 23276 INTGRATE
057786,000498: 11,3274 77624 CALLRECT CALL
057787,000499: 11,3275 23421 RECTIFY
057788,000500: 11,3276 77775 INTGRATE VLOAD
057789,000501: 11,3277 01527 TNUV
|
|
Page 1345
|
057791,000503: 11,3300 25120 STOVL ZV
057792,000504: 11,3301 01521 TDELTAV
057793,000505: 11,3302 01112 STORE YV
057794,000506: 11,3303 77614 CLEAR
057795,000507: 11,3304 00261 JSWITCH
057796,000508: 11,3305 66375 DIFEQ0 VLOAD SSP
057797,000509: 11,3306 01112 YV
057798,000510: 11,3307 01501 DIFEQCNT
057799,000511: 11,3310 00000 0
057800,000512: 11,3311 16152 STODL ALPHAV
057801,000513: 11,3312 11563 DPZERO
057802,000514: 11,3313 02212 STORE H # START H AT ZERO. GOES 0(DELT/2)DELT.
057803,000515: 11,3314 52014 BON GOTO
057804,000516: 11,3315 00301 JSWITCH
057805,000517: 11,3316 23665 DOW..
057806,000518: 11,3317 22512 ACCOMP
057807,000519:
057808,000520: 11,3320 43020 CHKSWTCH STQ BOF
057809,000521: 11,3321 02270 ORIGEX
057810,000522: 11,3322 04340 RPQFLAG
057811,000523: 11,3323 23333 RPQOK # MOON POSITION IS AVAILABLE
057812,000524: 11,3324 45145 DLOAD CALL
057813,000525: 11,3325 01517 TET
057814,000526: 11,3326 54115 LUNPOS # GET MOON POSITION
057815,000527: 11,3327 57414 BOF VCOMP
057816,000528: 11,3330 00343 MOONFLAG
057817,000529: 11,3331 23332 +1
057818,000530: 11,3332 02263 STORE RPQV
057819,000531:
057820,000532: 11,3333 77354 RPQOK LXA,2 VLOAD # RESTORE X2 AFTER USING LUNPOS
057821,000533: 11,3334 02150 PBODY
057822,000534: 11,3335 01521 TDELTAV # -
057823,000535: 11,3336 53257 VSL* VAD # |RQC|-RSPHERE WHEN OUTSIDE THE SPHERE.
057824,000536: 11,3337 57605 0 -7,2 # - - -
057825,000537: 11,3340 01535 RCV # R = RDEVIATION + RCONIC
057826,000538: 11,3341 51414 BOF ABVAL
057827,000539: 11,3342 00343 MOONFLAG
057828,000540: 11,3343 23350 EARSPH
057829,000541: 11,3344 44302 SR2 BDSU # INSIDE
057830,000542: 11,3345 27763 RSPHERE
057831,000543: 11,3346 77650 GOTO
057832,000544: 11,3347 02270 ORIGEX
057833,000545: 11,3350 51451 EARSPH VSU ABVAL # OUTSIDE
057834,000546: 11,3351 02263 RPQV
057835,000547: 11,3352 52025 DSU GOTO
057836,000548: 11,3353 27763 RSPHERE
057837,000549: 11,3354 02270 ORIGEX
057838,000550:
057839,000551: 11,3355 77624 DOSWITCH CALL
057840,000552: 11,3356 23361 ORIGCHNG
057841,000553: 11,3357 77650 GOTO
057842,000554: 11,3360 23276 INTGRATE
057843,000555:
|
|
Page 1346
|
057845,000557: 11,3361 45020 ORIGCHNG STQ CALL
057846,000558: 11,3362 02270 ORIGEX
057847,000559: 11,3363 23421 RECTIFY
057848,000560: 11,3364 53775 VLOAD VSL*
057849,000561: 11,3365 01535 RCV
057850,000562: 11,3366 57576 0,2
057851,000563: 11,3367 53651 VSU VSL*
057852,000564: 11,3370 02263 RPQV
057853,000565: 11,3371 57574 2,2
057854,000566: 11,3372 01503 STORE RRECT
057855,000567: 11,3373 15535 STODL RCV
057856,000568: 11,3374 01517 TET
057857,000569: 11,3375 77624 CALL
057858,000570: 11,3376 54120 LUNVEL
057859,000571: 11,3377 57414 BOF VCOMP
057860,000572: 11,3400 00343 MOONFLAG
057861,000573: 11,3401 23402 +1
057862,000574: 11,3402 53715 PDVL VSL*
057863,000575: 11,3403 01543 VCV
057864,000576: 11,3404 57576 0,2
057865,000577: 11,3405 77651 VSU
057866,000578: 11,3406 77657 VSL*
057867,000579: 11,3407 57574 0 +2,2
057868,000580: 11,3410 01511 STORE VRECT
057869,000581: 11,3411 01543 STORE VCV
057870,000582: 11,3412 67154 LXA,2 SXA,2
057871,000583: 11,3413 02270 ORIGEX
057872,000584: 11,3414 00052 QPRET
057873,000585: 11,3415 52014 BON GOTO
057874,000586: 11,3416 00303 MOONFLAG
057875,000587: 11,3417 26735 CLRMOON
057876,000588: 11,3420 26742 SETMOON
|
|
Page 1347
|
057878,000590: # THE RECTIFY SUBROUTINE IS CALLED BY THE INTEGRATION PROGRAM AND OCCASIONALLY BY THE MEASUREMENT INCORPORATION
057879,000591: # ROUTINES TO ESTABLISH A NEW CONIC.
057880,000592:
057881,000593: 11,3421 77354 RECTIFY LXA,2 VLOAD
057882,000594: 11,3422 02150 PBODY
057883,000595: 11,3423 01521 TDELTAV
057884,000596: 11,3424 53257 VSL* VAD
057885,000597: 11,3425 57605 0 -7,2
057886,000598: 11,3426 01535 RCV
057887,000599: 11,3427 01503 STORE RRECT
057888,000600: 11,3430 25535 STOVL RCV
057889,000601: 11,3431 01527 TNUV
057890,000602: 11,3432 53257 VSL* VAD
057891,000603: 11,3433 57602 0 -4,2
057892,000604: 11,3434 01543 VCV
057893,000605: 11,3435 01511 MINIRECT STORE VRECT
057894,000606: 11,3436 25543 STOVL VCV
057895,000607: 11,3437 11563 ZEROVEC
057896,000608: 11,3440 01521 STORE TDELTAV
057897,000609: 11,3441 15527 STODL TNUV
057898,000610: 11,3442 11563 ZEROVEC
057899,000611: 11,3443 01551 STORE TC
057900,000612: 11,3444 01553 STORE XKEP
057901,000613: 11,3445 77616 RVQ
057902,000614:
|
|
Page 1348
|
057904,000616: # THE THREE DIFEQ ROUTINES - DIFEQ+0, DIFEQ+12, AND DIFEQ+24 - ARE ENTEREDTO PROCESS THE CONTRIBUTIONS AT THE
057905,000617: # BEGINNING, MIDDLE, AND END OF THE TIMESTEP, RESPECTIVELY. THE UPDATING IS DONE BY THE NYSTROM METHOD.
057906,000618:
057907,000619: 11,3446 64575 DIFEQ+0 VLOAD VSR3
057908,000620: 11,3447 02202 FV
057909,000621: 11,3450 36166 STCALL PHIV
057910,000622: 11,3451 23626 DIFEQCOM
057911,000623: 11,3452 74575 DIFEQ+1 VLOAD VSR1
057912,000624: 11,3453 02202 FV
057913,000625: 11,3454 53206 PUSH VAD
057914,000626: 11,3455 02166 PHIV
057915,000627: 11,3456 26174 STOVL PSIV
057916,000628: 11,3457 53362 VSR1 VAD
057917,000629: 11,3460 02166 PHIV
057918,000630: 11,3461 36166 STCALL PHIV
057919,000631: 11,3462 23626 DIFEQCOM
057920,000632: 11,3463 57345 DIFEQ+2 DLOAD DMPR
057921,000633: 11,3464 02212 H
057922,000634: 11,3465 23774 DP2/3
057923,000635: 11,3466 74206 PUSH VXSC
057924,000636: 11,3467 02166 PHIV
057925,000637: 11,3470 53372 VSL1 VAD
057926,000638: 11,3471 01120 ZV
057927,000639: 11,3472 53361 VXSC VAD
057928,000640: 11,3473 02212 H
057929,000641: 11,3474 01112 YV
057930,000642: 11,3475 25112 STOVL YV
057931,000643: 11,3476 02202 FV
057932,000644: 11,3477 53322 VSR3 VAD
057933,000645: 11,3500 02174 PSIV
057934,000646: 11,3501 76561 VXSC VSL1
057935,000647: 11,3502 77655 VAD
057936,000648: 11,3503 01120 ZV
057937,000649: 11,3504 01120 STORE ZV
057938,000650: 11,3505 45014 BOFF CALL
057939,000651: 11,3506 00341 JSWITCH
057940,000652: 11,3507 23557 ENDSTATE
057941,000653: 11,3510 56750 GRP2PC
057942,000654: 11,3511 77354 LXA,2 VLOAD
057943,000655: 11,3512 01102 COLREG
057944,000656: 11,3513 01120 ZV
057945,000657: 11,3514 77732 VSL3 # ADJUST W-POSITION FOR STORAGE
057946,000658: 11,3515 12467 STORE W +54D,2
057947,000659: 11,3516 77775 VLOAD
057948,000660: 11,3517 01112 YV
057949,000661: 11,3520 40132 VSL3 BOV
057950,000662: 11,3521 23651 WMATEND
057951,000663: 11,3522 12401 STORE W,2
057952,000664:
057953,000665: 11,3523 77624 CALL
057954,000666: 11,3524 56750 GRP2PC
|
|
Page 1349
|
057956,000668: 11,3525 66354 LXA,2 SSP
057957,000669: 11,3526 01102 COLREG
057958,000670: 11,3527 00052 S2
057959,000671: 11,3530 00000 0
057960,000672: 11,3531 67114 INCR,2 SXA,2
057961,000673: 11,3532 00006 6
057962,000674: 11,3533 01111 YV
057963,000675: 11,3534 45104 TIX,2 CALL
057964,000676: 11,3535 23622 RELOADSV
057965,000677: 11,3536 56750 GRP2PC
057966,000678: 11,3537 67154 LXA,2 SXA,2
057967,000679: 11,3540 01111 YV
057968,000680: 11,3541 01102 COLREG
057969,000681:
057970,000682: 11,3542 77624 NEXTCOL CALL
057971,000683: 11,3543 56750 GRP2PC
057972,000684: 11,3544 76754 LXA,2 VLOAD*
057973,000685: 11,3545 01102 COLREG
057974,000686: 11,3546 75376 W,2
057975,000687: 11,3547 77722 VSR3 # ADJUST W-POSITION FOR INTEGRATION
057976,000688: 11,3550 01112 STORE YV
057977,000689: 11,3551 76173 VLOAD* AXT,1
057978,000690: 11,3552 75310 W +54D,2
057979,000691: 11,3553 00000 0
057980,000692: 11,3554 77722 VSR3 # ADJUST W-VELOCITY FOR INTEGRATION
057981,000693: 11,3555 35120 STCALL ZV
057982,000694: 11,3556 23305 DIFEQ0
057983,000695:
057984,000696: 11,3557 77200 ENDSTATE BOV VLOAD
057985,000697: 11,3560 22762 GOBAQUE
057986,000698: 11,3561 01120 ZV
057987,000699: 11,3562 25527 STOVL TNUV
057988,000700: 11,3563 01112 YV
057989,000701: 11,3564 01521 STORE TDELTAV
057990,000702: 11,3565 43014 BON BOFF
057991,000703: 11,3566 04715 MIDAVFLG
057992,000704: 11,3567 27633 CKMID2 # CHECK FOR MID2 BEFORE GOING TO TIMEINC
057993,000705: 11,3570 01756 DIM0FLAG
057994,000706: 11,3571 27305 TESTLOOP
057995,000707: 11,3572 77776 EXIT
057996,000708: 11,3573 05412 TC PHASCHNG
057997,000709: 11,3574 04022 OCT 04022 # PHASE 1
057998,000710: 11,3575 05546 TC UPFLAG # PHASE CHANGE HAS OCCURRED BETWEEN
057999,000711: 11,3576 00236 ADRES REINTFLG # INTSTALL AND INTWAKE
058000,000712: 11,3577 06006 TC INTPRET
058001,000713: 11,3600 77731 SSP
058002,000714: 11,3601 00053 QPRET
058003,000715: 11,3602 23607 AMOVED
058004,000716: 11,3603 52014 BON GOTO
058005,000717: 11,3604 01714 VINTFLAG
|
|
Page 1350
|
058007,000719: 11,3605 26705 ATOPCSM
058008,000720: 11,3606 26760 ATOPLEM
058009,000721: 11,3607 66214 AMOVED SET SSP
058010,000722: 11,3610 00061 JSWITCH
058011,000723: 11,3611 01103 COLREG
058012,000724: 11,3612 77741 DEC -30 B-14
058013,000725: 11,3613 66214 BOFF SSP
058014,000726: 11,3614 01755 D6OR9FLG
058015,000727: 11,3615 23542 NEXTCOL
058016,000728: 11,3616 01103 COLREG
058017,000729: 11,3617 77717 DEC -48 B-14
058018,000730: 11,3620 77650 GOTO
058019,000731: 11,3621 23542 NEXTCOL
058020,000732:
058021,000733: 11,3622 77745 RELOADSV DLOAD # RELOAD TEMPORARY STATE VECTOR
058022,000734: 11,3623 01101 TDEC # FROM PERMANENT IN CASE OF
058023,000735: 11,3624 34041 STCALL TDEC1
058024,000736: 11,3625 27167 INTEGRV2 # BY STARTING AT INTEGRV2.
058025,000737: 11,3626 43345 DIFEQCOM DLOAD DAD # INCREMENT H AND DIFEQCNT.
058026,000738: 11,3627 02314 DT/2
058027,000739: 11,3630 02212 H
058028,000740: 11,3631 66110 INCR,1 SXA,1
058029,000741: 11,3632 77763 DEC -12 B-14
058030,000742: 11,3633 01500 DIFEQCNT # DIFEQCNT SET FOR NEXT ENTRY.
058031,000743: 11,3634 02212 STORE H
058032,000744: 11,3635 74561 VXSC VSR1
058033,000745: 11,3636 02202 FV
058034,000746: 11,3637 74255 VAD VXSC
058035,000747: 11,3640 01120 ZV
058036,000748: 11,3641 02212 H
058037,000749: 11,3642 77655 VAD
058038,000750: 11,3643 01112 YV
058039,000751: 11,3644 02152 STORE ALPHAV
058040,000752: 11,3645 52014 BON GOTO
058041,000753: 11,3646 00301 JSWITCH
058042,000754: 11,3647 23665 DOW..
058043,000755: 11,3650 22472 FBR3
058044,000756:
058045,000757: 11,3651 43014 WMATEND CLEAR CLEAR
058046,000758: 11,3652 01676 DIM0FLAG # DONT INTEGRATE W THIS TIME
058047,000759: 11,3653 01671 ORBWFLAG # INVALIDATE W
058048,000760: 11,3654 77614 CLEAR
058049,000761: 11,3655 02676 RENDWFLG
058050,000762: 11,3656 77414 SET EXIT
058051,000763: 11,3657 01472 STATEFLG # PICK UP STATE VECTOR UPDATE
058052,000764: 11,3660 05650 TC ALARM
058053,000765: 11,3661 00421 OCT 421
058054,000766: 11,3662 06006 TC INTPRET
|
|
Page 1351
|
058056,000768: 11,3663 77650 GOTO
058057,000769: 11,3664 27305 TESTLOOP # FINISH INTEGRATING STATE VECTOR
058058,000770:
|
|
Page 1352
|
058060,000772: # ORBITAL ROUTINE FOR EXTRAPOLATION OF THE W MATRIX. IT COMPUTES THE SECOND DERIVATIVE OF EACH COLUMN POSITION
058061,000773: # VECTOR OF THE MATRIX AND CALLS THE NYSTROM INTEGRATION ROUTINES TO SOLVE THE DIFFERENTIAL EQUATIONS. THE PROGRAM
058062,000774: # USES A TABLE OF VEHICLE POSITION VECTORS COMPUTED DURING THE INTEGRATION OF THE VEHICLES POSITION AND VELOCITY.
058063,000775:
058064,000776: 11,3665 70754 DOW.. LXA,2 DLOAD*
058065,000777: 11,3666 02150 PBODY
058066,000778: 11,3667 50042 MUEARTH,2
058067,000779: 11,3670 36210 STCALL BETAM
058068,000780: 11,3671 23713 DOW..1
058069,000781: 11,3672 02202 STORE FV
058070,000782: 11,3673 62014 BOF INCR,1
058071,000783: 11,3674 00342 MIDFLAG
058072,000784: 11,3675 23220 NBRANCH
058073,000785: 11,3676 77771 DEC -6 B-14
058074,000786: 11,3677 70744 LXC,2 DLOAD*
058075,000787: 11,3700 02150 PBODY
058076,000788: 11,3701 50044 MUEARTH -2,2
058077,000789: 11,3702 36210 STCALL BETAM
058078,000790: 11,3703 23713 DOW..1
058079,000791: 11,3704 50414 BON VSR6
058080,000792: 11,3705 00303 MOONFLAG
058081,000793: 11,3706 23707 +1
058082,000794: 11,3707 77655 VAD
058083,000795: 11,3710 02202 FV
058084,000796: 11,3711 36202 STCALL FV
058085,000797: 11,3712 23220 NBRANCH
058086,000798: 11,3713 60575 DOW..1 VLOAD VSR4
058087,000799: 11,3714 02152 ALPHAV
058088,000800: 11,3715 53513 PDVL* UNIT
058089,000801: 11,3716 02217 VECTAB,1
058090,000802: 11,3717 46315 PDVL VPROJ
058091,000803: 11,3720 02152 ALPHAV
058092,000804: 11,3721 52361 VXSC VSU
058093,000805: 11,3722 23764 3/4
058094,000806: 11,3723 60325 PDDL NORM
058095,000807: 11,3724 00045 36D
058096,000808: 11,3725 00052 S2
058097,000809: 11,3726 63406 PUSH DSQ
058098,000810: 11,3727 77605 DMP
058099,000811: 11,3730 65301 NORM PDDL
058100,000812: 11,3731 00043 34D
058101,000813: 11,3732 02210 BETAM
058102,000814: 11,3733 56342 SR1 DDV
058103,000815: 11,3734 77761 VXSC
058104,000816: 11,3735 57154 LXA,2 XAD,2
058105,000817: 11,3736 00051 S2
058106,000818: 11,3737 00051 S2
058107,000819: 11,3740 57074 XAD,2 XAD,2
058108,000820: 11,3741 00051 S2
058109,000821: 11,3742 00042 34D
058110,000822: 11,3743 43457 VSL* RVQ
|
|
Page 1353
|
058112,000824: 11,3744 57606 0 -8D,2
058113,000825:
058114,000826: 11,2000 SETLOC ORBITAL1
058115,000827: 11,2000 BANK
058116,000828:
058117,000829: 11,3745 04631 23146 3/5 2DEC .6 B-2
058118,000830: 11,3747 14000 00000 THREE/8 2DEC .375
058119,000831: 11,3751 02314 31463 .3D 2DEC .3 B-2
058120,000832: 11,3753 01400 00000 3/64 2DEC 3 B-6
058121,000833: 11,3755 10000 00000 DP1/4 2DEC .25
058122,000834: 11,3757 11,3755 DQUARTER EQUALS DP1/4
058123,000835: 11,3757 11,3755 POS1/4 EQUALS DP1/4
058124,000836: 11,3757 03000 00000 3/32 2DEC 3 B-5
058125,000837: 11,3761 36000 00000 15/16 2DEC 15. B-4
058126,000838: 11,3763 30000 00000 3/4 2DEC 3.0 B-2
058127,000839: 11,3765 22525 12525 7/12 2DEC .5833333333
058128,000840: 11,3767 22000 00000 9/16 2DEC 9 B-4
058129,000841: 11,3771 01200 00000 5/128 2DEC 5 B-7
058130,000842: 11,3773 04,3562 DPZERO EQUALS ZEROVEC
058131,000843: 11,3773 25252 25253 DP2/3 2DEC .6666666667
058132,000844: 11,3775 11,3773 2/3 EQUALS DP2/3
058133,000845: 11,3775 00027 OCT27 OCT 27
058134,000846: # LM504 IS TEMPORARY
058135,000847: 13,3714 BANK 13
058136,000848: 13,2000 SETLOC ORBITAL2
058137,000849: 13,2000 BANK
058138,000850: # IT IS VITAL THAT THE FOLLOWING CONSTANTS NOT BE SHUFFLED
058139,000851: 13,3714 77764 DEC -11 B-14
058140,000852: 13,3715 77775 DEC -2 B-14
058141,000853: 13,3716 77766 DEC -9 B-14
058142,000854: 13,3717 77771 DEC -6 B-14
058143,000855: 13,3720 77775 DEC -2 B-14
058144,000856: 13,3721 77775 DEC -2 B-14
058145,000857: 13,3722 00000 DEC 0 B-14
058146,000858: 13,3723 77763 DEC -12 B-14
058147,000859: 13,3724 77766 DEC -9 B-14
058148,000860: 13,3725 77773 DEC -4 B-14
058149,000861: 13,3726 77770 ASCALE DEC -7 B-14
058150,000862: 13,3727 77771 DEC -6 B-14
|
|
Page 1354
|
058152,000864: 13,3730 27446 14620 2DEC* 1.32715445 E16 B-54* # S
058153,000865: 13,3732 16471 01352 2DEC* 4.9027780 E8 B-30* # M
058154,000866: 13,3734 22437 16067 MUEARTH 2DEC* 3.986032 E10 B-36*
058155,000867: 13,3736 00000 00000 2DEC 0 B-28
058156,000868: 13,3740 02302 24736 J4REQ/J3 2DEC* .4991607391 E7 B-26*
058157,000869: 13,3742 00000 00000 2DEC 0 B-28
058158,000870: 13,3744 77776 53032 2J3RE/J2 2DEC* -.1355426363 E5 B-27*
058159,000871: 13,3746 10407 05344 2DEC* .3067493316 E18 B-60*
058160,000872: 13,3750 13710 35320 J2REQSQ 2DEC* 1.75501139 E21 B-72*
058161,000873: 13,3752 12160 12124 3J22R2MU 2DEC* 9.20479048 E16 B-58*
058162,000874: 13,3754 24000 00000 5/8 2DEC 5 B-3
058163,000875: 13,3756 74631 63145 -1/12 2DEC -.1
058164,000876: 13,3760 13,3732 MUM = MUEARTH -2
058165,000877: 13,3760 00243 32703 RECRATIO 2DEC .01
058166,000878: 13,3762 03654 21000 RSPHERE 2DEC 64373.76 E3 B-29
058167,000879: 13,3764 03654 21000 RDM 2DEC 16093.44 E3 B-27
058168,000880: 13,3766 04627 25200 RDE 2DEC 80467.20 E3 B-29
058169,000881: 13,3770 RATT EQUALS 00
058170,000882: 13,3770 VATT EQUALS 6D
058171,000883: 13,3770 TAT EQUALS 12D
058172,000884: 13,3770 RATT1 EQUALS 14D
058173,000885: 13,3770 VATT1 EQUALS 20D
058174,000886: 13,3770 MU(P) EQUALS 26D
058175,000887: 13,3770 TDEC1 EQUALS 32D
058176,000888: 13,3770 URPV EQUALS 14D
058177,000889: 13,3770 0022 COSPHI/2 EQUALS URPV +4
058178,000890: 13,3770 UZ EQUALS 20D
058179,000891: 13,3770 TVEC EQUALS 26D
058180,000892:
058181,000893:
058182,000894:
End of include-file ORBITAL_INTEGRATION.agc. Parent file is MAIN.agc