GAP: ASSEMBLE REVISION 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051 10:28 APR. 1,1969Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were from the printout at the MIT Museum, with many thanks
to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing
it to us. The printout was digitally photographed by Paul Fjeld. A team of
volunteers transcribed the source code manually from these images or, where
appropriate, modified already-transcribed but similar source Colossus 249 (Apollo 9)
source code to agree with the images from the printout. Note that the page images
presented online are of reduced quality, and that higher-quality images
are available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051 10:28 APR. 1,1969Note that the date is the date of the printout, not the date of the program revision. |
058162,000002: ## Copyright: Public domain.
058163,000003: ## Filename: ORBITAL_INTEGRATION.agc
058164,000004: ## Purpose: Part of the source code for Colossus 2A, AKA Comanche 055.
058165,000005: ## It is part of the source code for the Command Module's (CM)
058166,000006: ## Apollo Guidance Computer (AGC), for Apollo 11.
058167,000007: ## Assembler: yaYUL
058168,000008: ## Contact: Ron Burkey <info@sandroid.org>.
058169,000009: ## Website: www.ibiblio.org/apollo.
058170,000010: ## Pages: 1334-1354
058171,000011: ## Mod history: 2009-05-14 RSB Adapted from the Colossus249/ file of the
058172,000012: ## same name, using Comanche055 page images.
058173,000013: ## 2009-05-20 RSB Corrections: DAT -> DAD in one place,
058174,000014: ## BWM -> BMN, DEFEQCNT -> DIFEQCNT.
058175,000015: ## 2010-08-27 JL Fixed some indentation, whitespace.
058176,000016: ## 2016-12-22 RSB Proofed comment text using octopus/ProoferComments
058177,000017: ## and corrected the errors found.
058178,000018: ## 2017-01-15 RSB Fixed comment-text errors noted while diff'ing vs
058179,000019: ## Colossus 249.
058180,000020: ## 2017-03-17 RSB Comment-text fixes identified in diff'ing
058181,000021: ## Luminary 99 vs Comanche 55.
058182,000022:
058183,000023: ## This source code has been transcribed or otherwise adapted from digitized
058184,000024: ## images of a hardcopy from the MIT Museum. The digitization was performed
058185,000025: ## by Paul Fjeld, and arranged for by Deborah Douglas of the Museum. Many
058186,000026: ## thanks to both. The images (with suitable reduction in storage size and
058187,000027: ## consequent reduction in image quality as well) are available online at
058188,000028: ## www.ibiblio.org/apollo. If for some reason you find that the images are
058189,000029: ## illegible, contact me at info@sandroid.org about getting access to the
058190,000030: ## (much) higher-quality images which Paul actually created.
058191,000031: ##
058192,000032: ## Notations on the hardcopy document read, in part:
058193,000033: ##
058194,000034: ## Assemble revision 055 of AGC program Comanche by NASA
058195,000035: ## 2021113-051. 10:28 APR. 1, 1969
058196,000036: ##
058197,000037: ## This AGC program shall also be referred to as
058198,000038: ## Colossus 2A
058199,000039:
|
|
Page 1334 |
058201,000041: # DELETE
058202,000042: 13,3714 BANK 13
058203,000043: 11,2000 SETLOC ORBITAL
058204,000044: 11,2000 BANK
058205,000045: 11,2372 COUNT 11/ORBIT
058206,000046:
058207,000047: # DELETE
058208,000048: 11,2372 40354 KEPPREP LXA,2 SETPD
058209,000049: 11,2373 02150 PBODY
058210,000050: 11,2374 00001 0
058211,000051: 11,2375 75543 DLOAD* SQRT # SQRT(MU) (+18 OR +15) 0D PL 2D
058212,000052: 11,2376 50042 MUEARTH,2
058213,000053: 11,2377 53515 PDVL UNIT # PL 8D
058214,000054: 11,2400 01535 RCV
058215,000055: 11,2401 60325 PDDL NORM # NORM R (+29 OR +27 - N1) 2D PL 4D
058216,000056: 11,2402 00045 36D
058217,000057: 11,2403 00047 X1
058218,000058: 11,2404 77715 PDVL
058219,000059: 11,2405 65241 DOT PDDL # F*SQRT(MU) (+7 OR +5) 4D PL 6D
058220,000060: 11,2406 01543 VCV
058221,000061: 11,2407 02312 TAU. # (+28)
058222,000062: 11,2410 60225 DSU NORM
058223,000063: 11,2411 01551 TC
058224,000064: 11,2412 00051 S1
058225,000065: 11,2413 77742 SR1
058226,000066: 11,2414 65271 DDV PDDL
058227,000067: 11,2415 00003 2D
058228,000068: 11,2416 41405 DMP PUSH # FS (+6 +N1-N2) 6D PL 8D
058229,000069: 11,2417 00005 4D
058230,000070: 11,2420 65316 DSQ PDDL # (FS)SQ (+12 +2(N1-N2)) 8D PL 10D
058231,000071: 11,2421 00005 4D
058232,000072: 11,2422 64716 DSQ PDDL* # SSQ/MU (-2 OR +2(N1-N2)) 10D PL 12D
058233,000073: 11,2423 50042 MUEARTH,2
058234,000074: 11,2424 40442 SR3 SR4
058235,000075: 11,2425 47515 PDVL VSQ # PREALIGN MU (+43 OR +37) 12D PL 14D
058236,000076: 11,2426 01543 VCV
058237,000077: 11,2427 44205 DMP BDSU # PL 12D
058238,000078: 11,2430 00045 36D
058239,000079: 11,2431 41271 DDV DMP # PL 10D
058240,000080: 11,2432 00003 2D # -(1/R-ALPHA) (+12 +3N1-2N2)
058241,000081: 11,2433 53605 DMP SL*
058242,000082: 11,2434 23774 DP2/3
058243,000083: 11,2435 20176 0 -3,1 # 10L(1/R-ALPHA) (+13 +2(N1-N2))
058244,000084: 11,2436 43260 XSU,1 DAD # 2(FS)SQ - ETCETRA PL 8D
058245,000085: 11,2437 00050 S1 # X1 = N2-N1
058246,000086: 11,2440 45257 SL* DSU # -FS+2(FS)SQ ETC (+6 +N1-N2) PL 6D
058247,000087: 11,2441 20211 8D,1
058248,000088: 11,2442 41205 DMP DMP
058249,000089: 11,2443 00001 0D
058250,000090: 11,2444 00005 4D
058251,000091: 11,2445 53657 SL* SL*
|
|
Page 1335 |
058253,000093: 11,2446 20211 8D,1
058254,000094: 11,2447 20201 0,1 # S(-FS(1-2FS)-1/6...) (+17 OR +16)
058255,000095: 11,2450 65215 DAD PDDL # PL 6D
058256,000096: 11,2451 01553 XKEP
058257,000097: 11,2452 53605 DMP SL* # S(+17 OR +16)
058258,000098: 11,2453 00001 0D
058259,000099: 11,2454 20202 1,1
058260,000100: 11,2455 43204 BOVB DAD
058261,000101: 11,2456 57352 TCDANZIG
058262,000102: 11,2457 77626 STADR
058263,000103: 11,2460 75471 STORE XKEPNEW
058264,000104: 11,2461 74020 STQ AXC,1
058265,000105: 11,2462 02270 KEPRTN
058266,000106: 11,2463 00012 DEC 10 B-14
058267,000107: 11,2464 74014 BON AXC,1
058268,000108: 11,2465 00303 MOONFLAG
058269,000109: 11,2466 24042 KEPLERN
058270,000110: 11,2467 00002 DEC 2 B-14
058271,000111: 11,2470 77650 GOTO
058272,000112: 11,2471 24042 KEPLERN
058273,000113:
|
|
Page 1336 |
058275,000115: 11,2472 66350 FBR3 LXA,1 SSP
058276,000116: 11,2473 01500 DIFEQCNT
058277,000117: 11,2474 00051 S1
058278,000118: 11,2475 77762 DEC -13 B-14
058279,000119: 11,2476 54345 DLOAD SR
058280,000120: 11,2477 02314 DT/2
058281,000121: 11,2500 20612 9D
058282,000122: 11,2501 61500 TIX,1 ROUND
058283,000123: 11,2502 22503 +1
058284,000124: 11,2503 43206 PUSH DAD
058285,000125: 11,2504 01551 TC
058286,000126: 11,2505 16312 STODL TAU.
058287,000127: 11,2506 77615 DAD
058288,000128: 11,2507 01517 TET
058289,000129: 11,2510 35517 STCALL TET
058290,000130: 11,2511 22372 KEPPREP
058291,000131:
|
|
Page 1337 |
058293,000133: # AGC ROUTINE TO COMPUTE ACCELERATION COMPONENTS.
058294,000134:
058295,000135: 11,2512 73150 ACCOMP LXA,1 LXA,2
058296,000136: 11,2513 02150 PBODY
058297,000137: 11,2514 02150 PBODY
058298,000138: 11,2515 77775 VLOAD
058299,000139: 11,2516 11566 ZEROVEC
058300,000140: 11,2517 26202 STOVL FV
058301,000141: 11,2520 02152 ALPHAV
058302,000142: 11,2521 53257 VSL* VAD
058303,000143: 11,2522 57605 0 -7,2
058304,000144: 11,2523 01535 RCV
058305,000145: 11,2524 02160 STORE BETAV
058306,000146: 11,2525 65014 BOF XCHX,2
058307,000147: 11,2526 01756 DIM0FLAG
058308,000148: 11,2527 22534 +5
058309,000149: 11,2530 01500 DIFEQCNT
058310,000150: 11,2531 12217 STORE VECTAB,2
058311,000151: 11,2532 77724 XCHX,2
058312,000152: 11,2533 01500 DIFEQCNT
058313,000153: 11,2534 53575 VLOAD UNIT
058314,000154: 11,2535 02152 ALPHAV
058315,000155: 11,2536 16152 STODL ALPHAV
058316,000156: 11,2537 00045 36D
058317,000157: 11,2540 02310 STORE ALPHAM
058318,000158: 11,2541 77624 CALL
058319,000159: 11,2542 22636 GAMCOMP
058320,000160: 11,2543 66175 VLOAD SXA,1
058321,000161: 11,2544 02160 BETAV
058322,000162: 11,2545 00051 S2
058323,000163: 11,2546 16152 STODL ALPHAV
058324,000164: 11,2547 02210 BETAM
058325,000165: 11,2550 02310 STORE ALPHAM
058326,000166: 11,2551 71214 BOF DLOAD
058327,000167: 11,2552 00342 MIDFLAG
058328,000168: 11,2553 23010 OBLATE
058329,000169: 11,2554 01517 TET
058330,000170: 11,2555 77624 CALL
058331,000171: 11,2556 54110 LSPOS
058332,000172: 11,2557 72174 AXT,2 LXA,1
058333,000173: 11,2560 00002 2
058334,000174: 11,2561 00051 S2
058335,000175: 11,2562 77614 BOF
058336,000176: 11,2563 00343 MOONFLAG
058337,000177: 11,2564 22567 +3
058338,000178: 11,2565 77076 VCOMP AXT,2
058339,000179: 11,2566 00000 0
058340,000180: 11,2567 02160 STORE BETAV
058341,000181: 11,2570 26263 STOVL RPQV
|
|
Page 1338 |
058343,000183: 11,2571 00003 2D
058344,000184: 11,2572 02300 STORE RPSV
058345,000185: 11,2573 77214 BOF VLOAD
058346,000186: 11,2574 01756 DIM0FLAG
058347,000187: 11,2575 22610 GETRPSV
058348,000188: 11,2576 02152 ALPHAV
058349,000189: 11,2577 53761 VXSC VSR*
058350,000190: 11,2600 02310 ALPHAM
058351,000191: 11,2601 57175 1,2
058352,000192: 11,2602 65051 VSU XCHX,2
058353,000193: 11,2603 02160 BETAV
058354,000194: 11,2604 01500 DIFEQCNT
058355,000195: 11,2605 12225 STORE VECTAB +6,2
058356,000196: 11,2606 77724 XCHX,2
058357,000197: 11,2607 01500 DIFEQCNT
058358,000198: 11,2610 62175 GETRPSV VLOAD INCR,1
058359,000199: 11,2611 02263 RPQV
058360,000200: 11,2612 00004 4
058361,000201: 11,2613 43014 CLEAR BOF
058362,000202: 11,2614 04260 RPQFLAG
058363,000203: 11,2615 00343 MOONFLAG
058364,000204: 11,2616 22623 +5
058365,000205: 11,2617 53261 VSR VAD
058366,000206: 11,2620 20612 9D
058367,000207: 11,2621 02300 RPSV
058368,000208: 11,2622 02300 STORE RPSV
058369,000209: 11,2623 77624 CALL
058370,000210: 11,2624 22636 GAMCOMP
058371,000211: 11,2625 62174 AXT,2 INCR,1
058372,000212: 11,2626 00004 4
058373,000213: 11,2627 00004 4
058374,000214: 11,2630 77775 VLOAD
058375,000215: 11,2631 02300 RPSV
058376,000216: 11,2632 36160 STCALL BETAV
058377,000217: 11,2633 22636 GAMCOMP
058378,000218: 11,2634 77650 GOTO
058379,000219: 11,2635 23010 OBLATE
058380,000220: 11,2636 74575 GAMCOMP VLOAD VSR1
058381,000221: 11,2637 02160 BETAV
058382,000222: 11,2640 40236 VSQ SETPD
058383,000223: 11,2641 00001 0
058384,000224: 11,2642 61501 NORM ROUND
058385,000225: 11,2643 00040 31D
058386,000226: 11,2644 60325 PDDL NORM # NORMED B SQUARED TO PD LIST
058387,000227: 11,2645 02310 ALPHAM # NORMALIZE (LESS ONE) LENGTH OF ALPHA
058388,000228: 11,2646 00041 32D # SAVING NORM SCALE FACTOR IN X1
058389,000229: 11,2647 63342 SR1 PDVL
058390,000230: 11,2650 02160 BETAV # C(PDL+2) = ALMOST NORMED ALPHA
058391,000231: 11,2651 77656 UNIT
058392,000232: 11,2652 16160 STODL BETAV
|
|
Page 1339 |
058394,000234: 11,2653 00045 36D
058395,000235: 11,2654 02210 STORE BETAM
058396,000236: 11,2655 55301 NORM BDDV # FORM NORMALIZED QUOTIENT ALPHAM/BETAM
058397,000237: 11,2656 00042 33D
058398,000238: 11,2657 41562 SR1R PUSH # C(PDL+2) = ALMOST NORMALIZED RHO.
058399,000239: 11,2660 77743 DLOAD*
058400,000240: 11,2661 27727 ASCALE,1
058401,000241: 11,2662 00051 STORE S1
058402,000242: 11,2663 57124 XCHX,2 XAD,2
058403,000243: 11,2664 00050 S1
058404,000244: 11,2665 00040 32D
058405,000245: 11,2666 71264 XSU,2 DLOAD
058406,000246: 11,2667 00041 33D
058407,000247: 11,2670 00003 2D
058408,000248: 11,2671 65057 SR* XCHX,2
058409,000249: 11,2672 57177 0 -1,2
058410,000250: 11,2673 00050 S1
058411,000251: 11,2674 74406 PUSH SR1R # RHO/4 TO 4D
058412,000252: 11,2675 50315 PDVL DOT
058413,000253: 11,2676 02152 ALPHAV
058414,000254: 11,2677 02160 BETAV
058415,000255: 11,2700 44372 SL1R BDSU # (RHO/4) - 2(ALPHAV/2.BETAV/2)
058416,000256: 11,2701 57206 PUSH DMPR # TO PDL+6
058417,000257: 11,2702 00005 4
058418,000258: 11,2703 77752 SL1
058419,000259: 11,2704 43206 PUSH DAD
058420,000260: 11,2705 23756 DQUARTER
058421,000261: 11,2706 75406 PUSH SQRT
058422,000262: 11,2707 41475 DMPR PUSH
058423,000263: 11,2710 00013 10D
058424,000264: 11,2711 43352 SL1 DAD
058425,000265: 11,2712 23756 DQUARTER
058426,000266: 11,2713 43325 PDDL DAD # (1/4)+2((Q+1)/4) TO PD+14D
058427,000267: 11,2714 00013 10D
058428,000268: 11,2715 11564 HALFDP
058429,000269: 11,2716 72475 DMPR SL1
058430,000270: 11,2717 00011 8D
058431,000271: 11,2720 56215 DAD DDV
058432,000272: 11,2721 23750 THREE/8
058433,000273: 11,2722 00017 14D
058434,000274: 11,2723 74275 DMPR VXSC
058435,000275: 11,2724 00007 6
058436,000276: 11,2725 02160 BETAV # -
058437,000277: 11,2726 64515 PDVL VSR3 # (G/2)(C(PD+4))B/2 TO PD+16D
058438,000278: 11,2727 02152 ALPHAV
058439,000279: 11,2730 41455 VAD PUSH # A12 + C(PD+16D) TO PD+16D
058440,000280: 11,2731 41345 DLOAD DMP
058441,000281: 11,2732 00001 0
058442,000282: 11,2733 00015 12D # -
058443,000283: 11,2734 61501 NORM ROUND
|
|
Page 1340 |
058445,000285: 11,2735 00037 30D
058446,000286: 11,2736 40665 BDDV DMP*
058447,000287: 11,2737 00003 2
058448,000288: 11,2740 50042 MUEARTH,2
058449,000289: 11,2741 74276 DCOMP VXSC
058450,000290: 11,2742 57124 XCHX,2 XAD,2
058451,000291: 11,2743 00050 S1
058452,000292: 11,2744 00051 S2
058453,000293: 11,2745 55064 XSU,2 XSU,2
058454,000294: 11,2746 00036 30D
058455,000295: 11,2747 00037 31D
058456,000296: 11,2750 77600 BOV # CLEAR OVIND
058457,000297: 11,2751 22752 +1
058458,000298: 11,2752 65057 VSR* XCHX,2
058459,000299: 11,2753 57177 0 -1,2
058460,000300: 11,2754 00050 S1
058461,000301: 11,2755 77655 VAD
058462,000302: 11,2756 02202 FV
058463,000303: 11,2757 02202 STORE FV
058464,000304: 11,2760 43400 BOV RVQ # RETURN IF NO OVERFLOW
058465,000305: 11,2761 22762 +1
058466,000306: 11,2762 51575 GOBAQUE VLOAD ABVAL
058467,000307: 11,2763 01521 TDELTAV
058468,000308: 11,2764 77654 BZE
058469,000309: 11,2765 23005 INT-ABRT
058470,000310: 11,2766 54345 DLOAD SR
058471,000311: 11,2767 02212 H
058472,000312: 11,2770 20612 9D
058473,000313: 11,2771 44206 PUSH BDSU
058474,000314: 11,2772 01551 TC
058475,000315: 11,2773 16312 STODL TAU.
058476,000316: 11,2774 01517 TET
058477,000317: 11,2775 45425 DSU STADR
058478,000318: 11,2776 42260 STCALL TET
058479,000319: 11,2777 22372 KEPPREP
058480,000320: 11,3000 77624 CALL
058481,000321: 11,3001 23421 RECTIFY
058482,000322: 11,3002 77614 SETGO
058483,000323: 11,3003 04020 RPQFLAG
058484,000324: 11,3004 27305 TESTLOOP
058485,000325:
058486,000326: 11,3005 77776 INT-ABRT EXIT
058487,000327: 11,3006 05721 TC POODOO
058488,000328: 11,3007 00430 OCT 00430
058489,000329:
|
|
Page 1341 |
058491,000331: # THE OBLATE ROUTINE COMPUTES THE ACCELERATION DUE TO OBLATENESS. IT USES THE UNIT OF THE VEHICLE
058492,000332: # POSITION VECTOR FOUND IN ALPHAV AND THE DISTANCE TO THE CENTER IN ALPHAM. THIS IS ADDED TO THE SUM OF THE
058493,000333: # DISTURBING ACCELERATIONS IN FV AND THE PROPER DIFEQ STAGE IS CALLED VIA X1.
058494,000334:
058495,000335: 11,3010 71354 OBLATE LXA,2 DLOAD
058496,000336: 11,3011 02150 PBODY
058497,000337: 11,3012 02310 ALPHAM
058498,000338: 11,3013 44601 SETPD DSU*
058499,000339: 11,3014 00001 0
058500,000340: 11,3015 50010 RDE,2
058501,000341: 11,3016 43044 BPL BOF # GET URPV
058502,000342: 11,3017 23220 NBRANCH
058503,000343: 11,3020 00343 MOONFLAG
058504,000344: 11,3021 23227 COSPHIE
058505,000345: 11,3022 65375 VLOAD PDDL
058506,000346: 11,3023 02152 ALPHAV
058507,000347: 11,3024 01517 TET
058508,000348: 11,3025 45125 PDDL CALL
058509,000349: 11,3026 23746 3/5
058510,000350: 11,3027 55371 R-TO-RP
058511,000351: 11,3030 00017 STORE URPV
058512,000352: 11,3031 47375 VLOAD VXV
058513,000353: 11,3032 02012 504LM
058514,000354: 11,3033 11560 ZUNIT
058515,000355: 11,3034 61255 VAD VXM
058516,000356: 11,3035 11560 ZUNIT
058517,000357: 11,3036 00025 MMATRIX
058518,000358: 11,3037 77656 UNIT # POSSIBLY UNNECESSARY
058519,000359: 11,3040 00025 COMTERM STORE UZ
058520,000360: 11,3041 57345 DLOAD DMPR
058521,000361: 11,3042 00023 COSPHI/2
058522,000362: 11,3043 23760 3/32
058523,000363: 11,3044 63525 PDDL DSQ # P2/64 TO PD0
058524,000364: 11,3045 00023 COSPHI/2
058525,000365: 11,3046 45275 DMPR DSU
058526,000366: 11,3047 23762 15/16
058527,000367: 11,3050 23754 3/64
058528,000368: 11,3051 57206 PUSH DMPR # P3/32 TO PD2
058529,000369: 11,3052 00023 COSPHI/2
058530,000370: 11,3053 76405 DMP SL1R
058531,000371: 11,3054 23766 7/12
058532,000372: 11,3055 57325 PDDL DMPR
058533,000373: 11,3056 00001 0
058534,000374: 11,3057 23774 2/3
058535,000375: 11,3060 41421 BDSU PUSH # P4/128 TO PD4
058536,000376: 11,3061 57275 DMPR DMPR
058537,000377: 11,3062 00023 COSPHI/2 # BEGIN COMPUTING P5/1024
058538,000378: 11,3063 23770 9/16
058539,000379: 11,3064 57325 PDDL DMPR
058540,000380: 11,3065 00003 2
058541,000381: 11,3066 23772 5/128
|
|
Page 1342 |
058543,000383: 11,3067 77621 BDSU
058544,000384: 11,3070 77603 DMP*
058545,000385: 11,3071 50036 J4REQ/J3,2
058546,000386: 11,3072 43271 DDV DAD # -3
058547,000387: 11,3073 02310 ALPHAM # (((P5/256)B 2 /R+P4/32) /R+P3/8)ALPHAV
058548,000388: 11,3074 00005 4 # 4 3
058549,000389: 11,3075 56273 DMPR* DDV
058550,000390: 11,3076 50032 2J3RE/J2,2
058551,000391: 11,3077 02310 ALPHAM
058552,000392: 11,3100 74215 DAD VXSC
058553,000393: 11,3101 00003 2
058554,000394: 11,3102 02152 ALPHAV
058555,000395: 11,3103 14033 STODL TVEC
058556,000396: 11,3104 70403 DMP* SR1
058557,000397: 11,3105 50036 J4REQ/J3,2
058558,000398: 11,3106 43271 DDV DAD
058559,000399: 11,3107 02310 ALPHAM # -3
058560,000400: 11,3110 50473 DMPR* SR3
058561,000401: 11,3111 50032 2J3RE/J2,2 # 3 4
058562,000402: 11,3112 43271 DDV DAD
058563,000403: 11,3113 02310 ALPHAM
058564,000404: 11,3114 76561 VXSC VSL1
058565,000405: 11,3115 00025 UZ
058566,000406: 11,3116 77645 BVSU
058567,000407: 11,3117 00033 TVEC
058568,000408: 11,3120 14033 STODL TVEC
058569,000409: 11,3121 02310 ALPHAM
058570,000410: 11,3122 63501 NORM DSQ
058571,000411: 11,3123 00047 X1
058572,000412: 11,3124 60316 DSQ NORM
058573,000413: 11,3125 00051 S1 # 4
058574,000414: 11,3126 54606 PUSH BDDV* # NORMED R TO 0D
058575,000415: 11,3127 50026 J2REQSQ,2
058576,000416: 11,3130 40161 VXSC BOV
058577,000417: 11,3131 00033 TVEC
058578,000418: 11,3132 23133 +1 # (RESET OVERFLOW INDICATOR)
058579,000419: 11,3133 56070 XAD,1 XAD,1
058580,000420: 11,3134 00046 X1
058581,000421: 11,3135 00046 X1
058582,000422: 11,3136 53670 XAD,1 VSL*
058583,000423: 11,3137 00050 S1
058584,000424: 11,3140 20153 0 -22D,1
058585,000425: 11,3141 40055 VAD BOV
058586,000426: 11,3142 02202 FV
058587,000427: 11,3143 22762 GOBAQUE
058588,000428: 11,3144 36202 STCALL FV
058589,000429: 11,3145 27770 QUALITY1
058590,000430: 11,3146 77716 QUALITY3 DSQ # J22 TERM X R**4 IN 2D, SCALED B61
058591,000431: # AS VECTOR.
058592,000432: 11,3147 41206 PUSH DMP # STORE COSPHI**2 SCALED B2 IN 8D
|
|
Page 1343 |
058594,000434: 11,3150 27755 5/8 # 5 SCALED B3
058595,000435: 11,3151 60525 PDDL SR2 # PUT 5 COSPHI**2, D5, IN 8D. GET
058596,000436: # COSPHI**2 D2 FROM 8D
058597,000437: 11,3152 44215 DAD BDSU # END UP WITH (1-7 COSPHI**2), B5
058598,000438: 11,3153 00011 8D # ADDING COSPHI**2 B4 SAME AS COSPHI**2
058599,000439: # X 2 D5
058600,000440: 11,3154 11616 D1/32 # 1 SCALED B5
058601,000441: 11,3155 41205 DMP DMP
058602,000442: 11,3156 00017 URPV # X COMPONENT
058603,000443: 11,3157 27755 5/8 # 5 SCALED B3
058604,000444: 11,3160 56561 VXSC VSL5 # AFTER SHIFT, SCALED B5
058605,000445: 11,3161 00017 URPV # VECTOR, B1.
058606,000446: 11,3162 77725 PDDL # VECTOR INTO 8D, 10D, 12D, SCALED B5.
058607,000447: # GET 5 COSPHI**2 OUT OF 8D
058608,000448: 11,3163 43225 DSU DAD
058609,000449: 11,3164 11616 D1/32 # 1 B5
058610,000450: 11,3165 00011 8D # X COMPONENT (SAME AS MULTIPLYING
058611,000451: # BY UNITX)
058612,000452: 11,3166 14011 STODL 8D
058613,000453: 11,3167 00017 URPV # X COMPONENT
058614,000454: 11,3170 41205 DMP DMP
058615,000455: 11,3171 00023 URPV +4 # Z COMPONENT
058616,000456: 11,3172 27755 5/8 # 5 B3 ANSWER B5
058617,000457: 11,3173 43352 SL1 DAD # FROM 12D FOR Z COMPONENT (SL1 GIVES 10
058618,000458: # INSTEAD OF 5 FOR COEFFICIENT)
058619,000459: 11,3174 60325 PDDL NORM # BACK INTO 12D FOR Z COMPONENT.
058620,000460: 11,3175 02310 ALPHAM # SCALED B27 FOR MOON
058621,000461: 11,3176 00050 X2
058622,000462: 11,3177 67206 PUSH SLOAD # STORE IN 14D, DESTROYING URPV
058623,000463: # X COMPONENT
058624,000464: 11,3200 02000 E32C31RM
058625,000465: 11,3201 74271 DDV VXSC # IF X2 = 0, DIVISION GIVES B53, VXSC
058626,000466: # OUT OF 8D B5 GIVES B58
058627,000467: 11,3202 53257 VSL* VAD # SHIFT MAKES B61, FOR ADDITION OF
058628,000468: # VECTOR IN 2D
058629,000469: 11,3203 57601 0 -3,2
058630,000470: 11,3204 70257 VSL* V/SC # OPERAND FROM 0D, B108 FOR X1 = 0
058631,000471: 11,3205 20146 0 -27D,1 # FOR X1 = 0, MAKES B88, GIVING B-20
058632,000472: # FOR RESULT.
058633,000473: 11,3206 65325 PDDL PDDL
058634,000474: 11,3207 01517 TET
058635,000475: 11,3210 27755 5/8 # ANY NON-ZERO CONSTANT
058636,000476: 11,3211 45154 LXA,2 CALL # POSITION IN 0D, TIME IN 6D. X2 LEFT
058637,000477: # ALONE.
058638,000478: 11,3212 02150 PBODY
058639,000479: 11,3213 55344 RP-TO-R
058640,000480: 11,3214 40055 VAD BOV # OVERFLOW INDICATOR RESET IN "RP-TO-R"
058641,000481: 11,3215 02202 FV
058642,000482: 11,3216 22762 GOBAQUE
058643,000483: 11,3217 02202 STORE FV
|
|
Page 1344 |
058645,000485: 11,3220 72135 NBRANCH SLOAD LXA,1
058646,000486: 11,3221 01501 DIFEQCNT
058647,000487: 11,3222 00154 MPAC
058648,000488: 11,3223 73205 DMP CGOTO
058649,000489: 11,3224 27757 -1/12
058650,000490: 11,3225 00155 MPAC
058651,000491: 11,3226 23235 DIFEQTAB
058652,000492: 11,3227 77745 COSPHIE DLOAD
058653,000493: 11,3230 02156 ALPHAV +4
058654,000494: 11,3231 24023 STOVL COSPHI/2
058655,000495: 11,3232 11560 ZUNIT
058656,000496: 11,3233 77650 GOTO
058657,000497: 11,3234 23040 COMTERM
058658,000498: 11,3235 23446 DIFEQTAB CADR DIFEQ+0
058659,000499: 11,3236 23452 CADR DIFEQ+1
058660,000500: 11,3237 23463 CADR DIFEQ+2
058661,000501:
058662,000502: 11,3240 45014 TIMESTEP BOF CALL
058663,000503: 11,3241 00342 MIDFLAG
058664,000504: 11,3242 23246 RECTEST # SKIP ORIGIN CHANGE LOGIC
058665,000505: 11,3243 23320 CHKSWTCH
058666,000506: 11,3244 77640 BMN
058667,000507: 11,3245 23355 DOSWITCH
058668,000508:
058669,000509: 11,3246 51575 RECTEST VLOAD ABVAL # RECTIFY IF
058670,000510: 11,3247 01521 TDELTAV
058671,000511: 11,3250 77600 BOV
058672,000512: 11,3251 23274 CALLRECT
058673,000513: 11,3252 51025 DSU BPL # 1) EITHER TDELTAV OR TNUV EQUALS OR
058674,000514: 11,3253 23764 3/4 # EXCEEDS 3/4 IN MAGNITUDE
058675,000515: 11,3254 23274 CALLRECT
058676,000516: 11,3255 53615 DAD SL* # OR
058677,000517: 11,3256 23764 3/4
058678,000518: 11,3257 57605 0 -7,2 # 2) ABVAL(TDELTAV) EQUALS OR EXCEEDS
058679,000519: 11,3260 45271 DDV DSU # .01(ABVAL(RCV))
058680,000520: 11,3261 00013 10D
058681,000521: 11,3262 27761 RECRATIO
058682,000522: 11,3263 77244 BPL VLOAD
058683,000523: 11,3264 23274 CALLRECT
058684,000524: 11,3265 01527 TNUV
058685,000525: 11,3266 45246 ABVAL DSU
058686,000526: 11,3267 23764 3/4
058687,000527: 11,3270 77600 BOV
058688,000528: 11,3271 23274 CALLRECT
058689,000529: 11,3272 77640 BMN
058690,000530: 11,3273 23276 INTGRATE
058691,000531: 11,3274 77624 CALLRECT CALL
058692,000532: 11,3275 23421 RECTIFY
058693,000533: 11,3276 77775 INTGRATE VLOAD
058694,000534: 11,3277 01527 TNUV
|
|
Page 1345 |
058696,000536: 11,3300 25120 STOVL ZV
058697,000537: 11,3301 01521 TDELTAV
058698,000538: 11,3302 01112 STORE YV
058699,000539: 11,3303 77614 CLEAR
058700,000540: 11,3304 00261 JSWITCH
058701,000541: 11,3305 66375 DIFEQ0 VLOAD SSP
058702,000542: 11,3306 01112 YV
058703,000543: 11,3307 01501 DIFEQCNT
058704,000544: 11,3310 00000 0
058705,000545: 11,3311 16152 STODL ALPHAV
058706,000546: 11,3312 11566 DPZERO
058707,000547: 11,3313 02212 STORE H # START H AT ZERO. GOES 0(DELT/2)DELT.
058708,000548: 11,3314 52014 BON GOTO
058709,000549: 11,3315 00301 JSWITCH
058710,000550: 11,3316 23665 DOW..
058711,000551: 11,3317 22512 ACCOMP
058712,000552:
058713,000553: 11,3320 43020 CHKSWTCH STQ BOF
058714,000554: 11,3321 02270 ORIGEX
058715,000555: 11,3322 04340 RPQFLAG
058716,000556: 11,3323 23333 RPQOK # MOON POSITION IS AVAILABLE
058717,000557: 11,3324 45145 DLOAD CALL
058718,000558: 11,3325 01517 TET
058719,000559: 11,3326 54115 LUNPOS # GET MOON POSITION
058720,000560: 11,3327 57414 BOF VCOMP
058721,000561: 11,3330 00343 MOONFLAG
058722,000562: 11,3331 23332 +1
058723,000563: 11,3332 02263 STORE RPQV
058724,000564:
058725,000565: 11,3333 77354 RPQOK LXA,2 VLOAD # RESTORE X2 AFTER USING LUNPOS
058726,000566: 11,3334 02150 PBODY
058727,000567: 11,3335 01521 TDELTAV # -
058728,000568: 11,3336 53257 VSL* VAD # |RQC|-RSPHERE WHEN OUTSIDE THE SPHERE.
058729,000569: 11,3337 57605 0 -7,2 # - - -
058730,000570: 11,3340 01535 RCV # R = RDEVIATION + RCONIC
058731,000571: 11,3341 51414 BOF ABVAL
058732,000572: 11,3342 00343 MOONFLAG
058733,000573: 11,3343 23350 EARSPH
058734,000574: 11,3344 44302 SR2 BDSU # INSIDE
058735,000575: 11,3345 27763 RSPHERE
058736,000576: 11,3346 77650 GOTO
058737,000577: 11,3347 02270 ORIGEX
058738,000578: 11,3350 51451 EARSPH VSU ABVAL # OUTSIDE
058739,000579: 11,3351 02263 RPQV
058740,000580: 11,3352 52025 DSU GOTO
058741,000581: 11,3353 27763 RSPHERE
058742,000582: 11,3354 02270 ORIGEX
058743,000583:
058744,000584: 11,3355 77624 DOSWITCH CALL
058745,000585: 11,3356 23361 ORIGCHNG
058746,000586: 11,3357 77650 GOTO
058747,000587: 11,3360 23276 INTGRATE
058748,000588:
|
|
Page 1346 |
058750,000590: 11,3361 45020 ORIGCHNG STQ CALL
058751,000591: 11,3362 02270 ORIGEX
058752,000592: 11,3363 23421 RECTIFY
058753,000593: 11,3364 53775 VLOAD VSL*
058754,000594: 11,3365 01535 RCV
058755,000595: 11,3366 57576 0,2
058756,000596: 11,3367 53651 VSU VSL*
058757,000597: 11,3370 02263 RPQV
058758,000598: 11,3371 57574 2,2
058759,000599: 11,3372 01503 STORE RRECT
058760,000600: 11,3373 15535 STODL RCV
058761,000601: 11,3374 01517 TET
058762,000602: 11,3375 77624 CALL
058763,000603: 11,3376 54120 LUNVEL
058764,000604: 11,3377 57414 BOF VCOMP
058765,000605: 11,3400 00343 MOONFLAG
058766,000606: 11,3401 23402 +1
058767,000607: 11,3402 53715 PDVL VSL*
058768,000608: 11,3403 01543 VCV
058769,000609: 11,3404 57576 0,2
058770,000610: 11,3405 77651 VSU
058771,000611: 11,3406 77657 VSL*
058772,000612: 11,3407 57574 0 +2,2
058773,000613: 11,3410 01511 STORE VRECT
058774,000614: 11,3411 01543 STORE VCV
058775,000615: 11,3412 67154 LXA,2 SXA,2
058776,000616: 11,3413 02270 ORIGEX
058777,000617: 11,3414 00052 QPRET
058778,000618: 11,3415 52014 BON GOTO
058779,000619: 11,3416 00303 MOONFLAG
058780,000620: 11,3417 26735 CLRMOON
058781,000621: 11,3420 26742 SETMOON
|
|
Page 1347 |
058783,000623: # THE RECTIFY SUBROUTINE IS CALLED BY THE INTEGRATION PROGRAM AND OCCASIONALLY BY THE MEASUREMENT INCORPORATION
058784,000624: # ROUTINES TO ESTABLISH A NEW CONIC.
058785,000625:
058786,000626: 11,3421 77354 RECTIFY LXA,2 VLOAD
058787,000627: 11,3422 02150 PBODY
058788,000628: 11,3423 01521 TDELTAV
058789,000629: 11,3424 53257 VSL* VAD
058790,000630: 11,3425 57605 0 -7,2
058791,000631: 11,3426 01535 RCV
058792,000632: 11,3427 01503 STORE RRECT
058793,000633: 11,3430 25535 STOVL RCV
058794,000634: 11,3431 01527 TNUV
058795,000635: 11,3432 53257 VSL* VAD
058796,000636: 11,3433 57602 0 -4,2
058797,000637: 11,3434 01543 VCV
058798,000638: 11,3435 01511 MINIRECT STORE VRECT
058799,000639: 11,3436 25543 STOVL VCV
058800,000640: 11,3437 11566 ZEROVEC
058801,000641: 11,3440 01521 STORE TDELTAV
058802,000642: 11,3441 15527 STODL TNUV
058803,000643: 11,3442 11566 ZEROVEC
058804,000644: 11,3443 01551 STORE TC
058805,000645: 11,3444 01553 STORE XKEP
058806,000646: 11,3445 77616 RVQ
058807,000647:
|
|
Page 1348 |
058809,000649: # THE THREE DIFEQ ROUTINES - DIFEQ+0, DIFEQ+12, AND DIFEQ+24 - ARE ENTEREDTO PROCESS THE CONTRIBUTIONS AT THE
058810,000650: # BEGINNING, MIDDLE, AND END OF THE TIMESTEP, RESPECTIVELY. THE UPDATING IS DONE BY THE NYSTROM METHOD.
058811,000651:
058812,000652: 11,3446 64575 DIFEQ+0 VLOAD VSR3
058813,000653: 11,3447 02202 FV
058814,000654: 11,3450 36166 STCALL PHIV
058815,000655: 11,3451 23626 DIFEQCOM
058816,000656: 11,3452 74575 DIFEQ+1 VLOAD VSR1
058817,000657: 11,3453 02202 FV
058818,000658: 11,3454 53206 PUSH VAD
058819,000659: 11,3455 02166 PHIV
058820,000660: 11,3456 26174 STOVL PSIV
058821,000661: 11,3457 53362 VSR1 VAD
058822,000662: 11,3460 02166 PHIV
058823,000663: 11,3461 36166 STCALL PHIV
058824,000664: 11,3462 23626 DIFEQCOM
058825,000665: 11,3463 57345 DIFEQ+2 DLOAD DMPR
058826,000666: 11,3464 02212 H
058827,000667: 11,3465 23774 DP2/3
058828,000668: 11,3466 74206 PUSH VXSC
058829,000669: 11,3467 02166 PHIV
058830,000670: 11,3470 53372 VSL1 VAD
058831,000671: 11,3471 01120 ZV
058832,000672: 11,3472 53361 VXSC VAD
058833,000673: 11,3473 02212 H
058834,000674: 11,3474 01112 YV
058835,000675: 11,3475 25112 STOVL YV
058836,000676: 11,3476 02202 FV
058837,000677: 11,3477 53322 VSR3 VAD
058838,000678: 11,3500 02174 PSIV
058839,000679: 11,3501 76561 VXSC VSL1
058840,000680: 11,3502 77655 VAD
058841,000681: 11,3503 01120 ZV
058842,000682: 11,3504 01120 STORE ZV
058843,000683: 11,3505 45014 BOFF CALL
058844,000684: 11,3506 00341 JSWITCH
058845,000685: 11,3507 23557 ENDSTATE
058846,000686: 11,3510 56750 GRP2PC
058847,000687: 11,3511 77354 LXA,2 VLOAD
058848,000688: 11,3512 01102 COLREG
058849,000689: 11,3513 01120 ZV
058850,000690: 11,3514 77732 VSL3 # ADJUST W-POSITION FOR STORAGE
058851,000691: 11,3515 12467 STORE W +54D,2
058852,000692: 11,3516 77775 VLOAD
058853,000693: 11,3517 01112 YV
058854,000694: 11,3520 40132 VSL3 BOV
058855,000695: 11,3521 23651 WMATEND
058856,000696: 11,3522 12401 STORE W,2
058857,000697:
058858,000698: 11,3523 77624 CALL
058859,000699: 11,3524 56750 GRP2PC
|
|
Page 1349 |
058861,000701: 11,3525 66354 LXA,2 SSP
058862,000702: 11,3526 01102 COLREG
058863,000703: 11,3527 00052 S2
058864,000704: 11,3530 00000 0
058865,000705: 11,3531 67114 INCR,2 SXA,2
058866,000706: 11,3532 00006 6
058867,000707: 11,3533 01111 YV
058868,000708: 11,3534 45104 TIX,2 CALL
058869,000709: 11,3535 23622 RELOADSV
058870,000710: 11,3536 56750 GRP2PC
058871,000711: 11,3537 67154 LXA,2 SXA,2
058872,000712: 11,3540 01111 YV
058873,000713: 11,3541 01102 COLREG
058874,000714:
058875,000715: 11,3542 77624 NEXTCOL CALL
058876,000716: 11,3543 56750 GRP2PC
058877,000717: 11,3544 76754 LXA,2 VLOAD*
058878,000718: 11,3545 01102 COLREG
058879,000719: 11,3546 75376 W,2
058880,000720: 11,3547 77722 VSR3 # ADJUST W-POSITION FOR INTEGRATION
058881,000721: 11,3550 01112 STORE YV
058882,000722: 11,3551 76173 VLOAD* AXT,1
058883,000723: 11,3552 75310 W +54D,2
058884,000724: 11,3553 00000 0
058885,000725: 11,3554 77722 VSR3 # ADJUST W-VELOCITY FOR INTEGRATION
058886,000726: 11,3555 35120 STCALL ZV
058887,000727: 11,3556 23305 DIFEQ0
058888,000728:
058889,000729: 11,3557 77200 ENDSTATE BOV VLOAD
058890,000730: 11,3560 22762 GOBAQUE
058891,000731: 11,3561 01120 ZV
058892,000732: 11,3562 25527 STOVL TNUV
058893,000733: 11,3563 01112 YV
058894,000734: 11,3564 01521 STORE TDELTAV
058895,000735: 11,3565 43014 BON BOFF
058896,000736: 11,3566 04715 MIDAVFLG
058897,000737: 11,3567 27633 CKMID2 # CHECK FOR MID2 BEFORE GOING TO TIMEINC
058898,000738: 11,3570 01756 DIM0FLAG
058899,000739: 11,3571 27305 TESTLOOP
058900,000740: 11,3572 77776 EXIT
058901,000741: 11,3573 05412 TC PHASCHNG
058902,000742: 11,3574 04022 OCT 04022 # PHASE 1
058903,000743: 11,3575 05546 TC UPFLAG # PHASE CHANGE HAS OCCURRED BETWEEN
058904,000744: 11,3576 00236 ADRES REINTFLG # INTSTALL AND INTWAKE
058905,000745: 11,3577 06006 TC INTPRET
058906,000746: 11,3600 77731 SSP
058907,000747: 11,3601 00053 QPRET
058908,000748: 11,3602 23607 AMOVED
058909,000749: 11,3603 52014 BON GOTO
058910,000750: 11,3604 01714 VINTFLAG
|
|
Page 1350 |
058912,000752: 11,3605 26705 ATOPCSM
058913,000753: 11,3606 26760 ATOPLEM
058914,000754: 11,3607 66214 AMOVED SET SSP
058915,000755: 11,3610 00061 JSWITCH
058916,000756: 11,3611 01103 COLREG
058917,000757: 11,3612 77741 DEC -30 B-14
058918,000758: 11,3613 66214 BOFF SSP
058919,000759: 11,3614 01755 D6OR9FLG
058920,000760: 11,3615 23542 NEXTCOL
058921,000761: 11,3616 01103 COLREG
058922,000762: 11,3617 77717 DEC -48 B-14
058923,000763: 11,3620 77650 GOTO
058924,000764: 11,3621 23542 NEXTCOL
058925,000765:
058926,000766: 11,3622 77745 RELOADSV DLOAD # RELOAD TEMPORARY STATE VECTOR
058927,000767: 11,3623 01101 TDEC # FROM PERMANENT IN CASE OF
058928,000768: 11,3624 34041 STCALL TDEC1
058929,000769: 11,3625 27167 INTEGRV2 # BY STARTING AT INTEGRV2.
058930,000770: 11,3626 43345 DIFEQCOM DLOAD DAD # INCREMENT H AND DIFEQCNT.
058931,000771: 11,3627 02314 DT/2
058932,000772: 11,3630 02212 H
058933,000773: 11,3631 66110 INCR,1 SXA,1
058934,000774: 11,3632 77763 DEC -12 B-14
058935,000775: 11,3633 01500 DIFEQCNT # DIFEQCNT SET FOR NEXT ENTRY.
058936,000776: 11,3634 02212 STORE H
058937,000777: 11,3635 74561 VXSC VSR1
058938,000778: 11,3636 02202 FV
058939,000779: 11,3637 74255 VAD VXSC
058940,000780: 11,3640 01120 ZV
058941,000781: 11,3641 02212 H
058942,000782: 11,3642 77655 VAD
058943,000783: 11,3643 01112 YV
058944,000784: 11,3644 02152 STORE ALPHAV
058945,000785: 11,3645 52014 BON GOTO
058946,000786: 11,3646 00301 JSWITCH
058947,000787: 11,3647 23665 DOW..
058948,000788: 11,3650 22472 FBR3
058949,000789:
058950,000790: 11,3651 43014 WMATEND CLEAR CLEAR
058951,000791: 11,3652 01676 DIM0FLAG # DONT INTEGRATE W THIS TIME
058952,000792: 11,3653 01671 ORBWFLAG # INVALIDATE W
058953,000793: 11,3654 77614 CLEAR
058954,000794: 11,3655 02676 RENDWFLG
058955,000795: 11,3656 77414 SET EXIT
058956,000796: 11,3657 01472 STATEFLG # PICK UP STATE VECTOR UPDATE
058957,000797: 11,3660 05650 TC ALARM
058958,000798: 11,3661 00421 OCT 421
058959,000799: 11,3662 06006 TC INTPRET
|
|
Page 1351 |
058961,000801: 11,3663 77650 GOTO
058962,000802: 11,3664 27305 TESTLOOP # FINISH INTEGRATING STATE VECTOR
058963,000803:
|
|
Page 1352 |
058965,000805: # ORBITAL ROUTINE FOR EXTRAPOLATION OF THE W MATRIX. IT COMPUTES THE SECOND DERIVATIVE OF EACH COLUMN POSITION
058966,000806: # VECTOR OF THE MATRIX AND CALLS THE NYSTROM INTEGRATION ROUTINES TO SOLVE THE DIFFERENTIAL EQUATIONS. THE PROGRAM
058967,000807: # USES A TABLE OF VEHICLE POSITION VECTORS COMPUTED DURING THE INTEGRATION OF THE VEHICLES POSITION AND VELOCITY.
058968,000808:
058969,000809: 11,3665 70754 DOW.. LXA,2 DLOAD*
058970,000810: 11,3666 02150 PBODY
058971,000811: 11,3667 50042 MUEARTH,2
058972,000812: 11,3670 36210 STCALL BETAM
058973,000813: 11,3671 23713 DOW..1
058974,000814: 11,3672 02202 STORE FV
058975,000815: 11,3673 62014 BOF INCR,1
058976,000816: 11,3674 00342 MIDFLAG
058977,000817: 11,3675 23220 NBRANCH
058978,000818: 11,3676 77771 DEC -6 B-14
058979,000819: 11,3677 70744 LXC,2 DLOAD*
058980,000820: 11,3700 02150 PBODY
058981,000821: 11,3701 50044 MUEARTH -2,2
058982,000822: 11,3702 36210 STCALL BETAM
058983,000823: 11,3703 23713 DOW..1
058984,000824: 11,3704 50414 BON VSR6
058985,000825: 11,3705 00303 MOONFLAG
058986,000826: 11,3706 23707 +1
058987,000827: 11,3707 77655 VAD
058988,000828: 11,3710 02202 FV
058989,000829: 11,3711 36202 STCALL FV
058990,000830: 11,3712 23220 NBRANCH
058991,000831: 11,3713 60575 DOW..1 VLOAD VSR4
058992,000832: 11,3714 02152 ALPHAV
058993,000833: 11,3715 53513 PDVL* UNIT
058994,000834: 11,3716 02217 VECTAB,1
058995,000835: 11,3717 46315 PDVL VPROJ
058996,000836: 11,3720 02152 ALPHAV
058997,000837: 11,3721 52361 VXSC VSU
058998,000838: 11,3722 23764 3/4
058999,000839: 11,3723 60325 PDDL NORM
059000,000840: 11,3724 00045 36D
059001,000841: 11,3725 00052 S2
059002,000842: 11,3726 63406 PUSH DSQ
059003,000843: 11,3727 77605 DMP
059004,000844: 11,3730 65301 NORM PDDL
059005,000845: 11,3731 00043 34D
059006,000846: 11,3732 02210 BETAM
059007,000847: 11,3733 56342 SR1 DDV
059008,000848: 11,3734 77761 VXSC
059009,000849: 11,3735 57154 LXA,2 XAD,2
059010,000850: 11,3736 00051 S2
059011,000851: 11,3737 00051 S2
059012,000852: 11,3740 57074 XAD,2 XAD,2
059013,000853: 11,3741 00051 S2
059014,000854: 11,3742 00042 34D
059015,000855: 11,3743 43457 VSL* RVQ
|
|
Page 1353 |
059017,000857: 11,3744 57606 0 -8D,2
059018,000858:
059019,000859: 11,2000 SETLOC ORBITAL1
059020,000860: 11,2000 BANK
059021,000861:
059022,000862: 11,3745 04631 23146 3/5 2DEC .6 B-2
059023,000863: 11,3747 14000 00000 THREE/8 2DEC .375
059024,000864: 11,3751 02314 31463 .3D 2DEC .3 B-2
059025,000865: 11,3753 01400 00000 3/64 2DEC 3 B-6
059026,000866: 11,3755 10000 00000 DP1/4 2DEC .25
059027,000867: 11,3757 11,3755 DQUARTER EQUALS DP1/4
059028,000868: 11,3757 11,3755 POS1/4 EQUALS DP1/4
059029,000869: 11,3757 03000 00000 3/32 2DEC 3 B-5
059030,000870: 11,3761 36000 00000 15/16 2DEC 15. B-4
059031,000871: 11,3763 30000 00000 3/4 2DEC 3.0 B-2
059032,000872: 11,3765 22525 12525 7/12 2DEC .5833333333
059033,000873: 11,3767 22000 00000 9/16 2DEC 9 B-4
059034,000874: 11,3771 01200 00000 5/128 2DEC 5 B-7
059035,000875: 11,3773 04,3565 DPZERO EQUALS ZEROVEC
059036,000876: 11,3773 25252 25253 DP2/3 2DEC .6666666667
059037,000877: 11,3775 11,3773 2/3 EQUALS DP2/3
059038,000878: 11,3775 00027 OCT27 OCT 27
059039,000879: # LM504 IS TEMPORARY
059040,000880: 13,3714 BANK 13
059041,000881: 13,2000 SETLOC ORBITAL2
059042,000882: 13,2000 BANK
059043,000883: # IT IS VITAL THAT THE FOLLOWING CONSTANTS NOT BE SHUFFLED
059044,000884: 13,3714 77764 DEC -11 B-14
059045,000885: 13,3715 77775 DEC -2 B-14
059046,000886: 13,3716 77766 DEC -9 B-14
059047,000887: 13,3717 77771 DEC -6 B-14
059048,000888: 13,3720 77775 DEC -2 B-14
059049,000889: 13,3721 77775 DEC -2 B-14
059050,000890: 13,3722 00000 DEC 0 B-14
059051,000891: 13,3723 77763 DEC -12 B-14
059052,000892: 13,3724 77766 DEC -9 B-14
059053,000893: 13,3725 77773 DEC -4 B-14
059054,000894: 13,3726 77770 ASCALE DEC -7 B-14
059055,000895: 13,3727 77771 DEC -6 B-14
|
|
Page 1354 |
059057,000897: 13,3730 27446 14620 2DEC* 1.32715445 E16 B-54* # S
059058,000898: 13,3732 16471 01352 2DEC* 4.9027780 E8 B-30* # M
059059,000899: 13,3734 22437 16067 MUEARTH 2DEC* 3.986032 E10 B-36*
059060,000900: 13,3736 00000 00000 2DEC 0 B-28
059061,000901: 13,3740 02302 24736 J4REQ/J3 2DEC* .4991607391 E7 B-26*
059062,000902: 13,3742 77651 76237 2DEC -176236.02 B-25
059063,000903: 13,3744 77776 53032 2J3RE/J2 2DEC* -.1355426363 E5 B-27*
059064,000904: 13,3746 10407 05344 2DEC* .3067493316 E18 B-60*
059065,000905: 13,3750 13710 35320 J2REQSQ 2DEC* 1.75501139 E21 B-72*
059066,000906: 13,3752 12160 12124 3J22R2MU 2DEC* 9.20479048 E16 B-58*
059067,000907: 13,3754 24000 00000 5/8 2DEC 5 B-3
059068,000908: 13,3756 74631 63145 -1/12 2DEC -.1
059069,000909: 13,3760 13,3732 MUM = MUEARTH -2
059070,000910: 13,3760 00243 32703 RECRATIO 2DEC .01
059071,000911: 13,3762 03654 21000 RSPHERE 2DEC 64373.76 E3 B-29
059072,000912: 13,3764 03654 21000 RDM 2DEC 16093.44 E3 B-27
059073,000913: 13,3766 04627 25200 RDE 2DEC 80467.20 E3 B-29
059074,000914: 13,3770 RATT EQUALS 00
059075,000915: 13,3770 VATT EQUALS 6D
059076,000916: 13,3770 TAT EQUALS 12D
059077,000917: 13,3770 RATT1 EQUALS 14D
059078,000918: 13,3770 VATT1 EQUALS 20D
059079,000919: 13,3770 MU(P) EQUALS 26D
059080,000920: 13,3770 TDEC1 EQUALS 32D
059081,000921: 13,3770 URPV EQUALS 14D
059082,000922: 13,3770 0022 COSPHI/2 EQUALS URPV +4
059083,000923: 13,3770 UZ EQUALS 20D
059084,000924: 13,3770 TVEC EQUALS 26D
059085,000925:
059086,000926:
059087,000927:
End of include-file ORBITAL_INTEGRATION.agc. Parent file is MAIN.agc