Notations on the program listing read, in part:
GAP: ASSEMBLE REVISION 210 OF AGC PROGRAM LUMINARY BY NASA 2021112-161 17:11 MAR. 19,1971Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files derive from a printout of Luminary 210 (Apollo 15-17
Lunar Module guidance computer program), from the personal library of
original AGC developer Don Eyles, digitally photographed at archive.org,
financially sponsored by Jim Lawton, and transcribed to source code by a
team of volunteers. This colorized, syntax-highlighted form was created
by assembling that transcribed source code. Note that the full page images
are available on the
Virtual AGC project page at archive.org, while reduced-size images
are presented at the VirtualAGC project website. Report or fix any
transcription errors at
the Virtual AGC project code repository. Notations on the program listing read, in part: GAP: ASSEMBLE REVISION 210 OF AGC PROGRAM LUMINARY BY NASA 2021112-161 17:11 MAR. 19,1971Note that the date is the date of the printout, not the date of the program revision. |
052907,000002: ## Copyright: Public domain.
052908,000003: ## Filename: ORBITAL_INTEGRATION.agc
052909,000004: ## Purpose: A section of Luminary revision 210.
052910,000005: ## It is part of the source code for the Lunar Module's (LM)
052911,000006: ## Apollo Guidance Computer (AGC) for Apollo 15-17.
052912,000007: ## This file is intended to be a faithful transcription, except
052913,000008: ## that the code format has been changed to conform to the
052914,000009: ## requirements of the yaYUL assembler rather than the
052915,000010: ## original YUL assembler.
052916,000011: ## Reference: pp. 1225-1245
052917,000012: ## Assembler: yaYUL
052918,000013: ## Contact: Ron Burkey <info@sandroid.org>.
052919,000014: ## Website: www.ibiblio.org/apollo/index.html
052920,000015: ## Mod history: 2016-11-17 JL Created from Luminary131 version.
052921,000016: ## 2016-12-10 MAS Updated for Luminary 210.
052922,000017: ## 2016-12-26 RSB Comment-text proofed using ProoferComments
052923,000018: ## and corrected errors found.
052924,000019:
|
|
Page 1225 |
052926,000021: # DELETE
052927,000022: 13,3720 BANK 13
052928,000023: 11,2000 SETLOC ORBITAL
052929,000024: 11,2000 BANK
052930,000025: 11,2403 COUNT* $$/ORBIT
052931,000026: # DELETE
052932,000027: 11,2403 40354 KEPPREP LXA,2 SETPD
052933,000028: 11,2404 02030 PBODY
052934,000029: 11,2405 00001 0
052935,000030: 11,2406 75543 DLOAD* SQRT # SQRT(MU) (+18 OR +15) 0D PL 2D
052936,000031: 11,2407 51770 MUEARTH,2
052937,000032: 11,2410 53515 PDVL UNIT # PL 8D
052938,000033: 11,2411 01535 RCV
052939,000034: 11,2412 60325 PDDL NORM # NORM R (+29 OR +27 - N1) 2D PL 4D
052940,000035: 11,2413 00045 36D
052941,000036: 11,2414 00047 X1
052942,000037: 11,2415 77715 PDVL
052943,000038: 11,2416 65241 DOT PDDL # F*SQRT(MU)(+7 OR+5) 4D PL 6D
052944,000039: 11,2417 01543 VCV
052945,000040: 11,2420 02074 TAU. # (+28)
052946,000041: 11,2421 60225 DSU NORM
052947,000042: 11,2422 01551 TC
052948,000043: 11,2423 00051 S1
052949,000044: 11,2424 77742 SR1
052950,000045: 11,2425 65271 DDV PDDL
052951,000046: 11,2426 00003 2D
052952,000047: 11,2427 41405 DMP PUSH # FS(+6 +N1-N2) 6D PL 8D
052953,000048: 11,2430 00005 4D
052954,000049: 11,2431 65316 DSQ PDDL # (FS)SQ(+12 +2(N1-N2)) 8D PL 10D
052955,000050: 11,2432 00005 4D
052956,000051: 11,2433 64716 DSQ PDDL* # SSQ/MU(-20R +2(N1-N2)) 10D PL 12D
052957,000052: 11,2434 51770 MUEARTH,2
052958,000053: 11,2435 40442 SR3 SR4
052959,000054: 11,2436 47515 PDVL VSQ # PREALIGN MU (+43 OR +37) 12D PL 14D
052960,000055: 11,2437 01543 VCV
052961,000056: 11,2440 44205 DMP BDSU # PL 12D
052962,000057: 11,2441 00045 36D
052963,000058: 11,2442 41271 DDV DMP # PL 10D
052964,000059: 11,2443 00003 2D # -(1/R-ALPHA)(+12 +3N1-2N2)
052965,000060: 11,2444 53605 DMP SL*
052966,000061: 11,2445 11254 DP2/3
052967,000062: 11,2446 20176 0 -3,1 # 10L(1/R-ALPHA)(+13 +2(N1-N2))
052968,000063: 11,2447 43260 XSU,1 DAD # 2(FS)SQ - ETCETRA PL 8D
052969,000064: 11,2450 00050 S1 # X1 = N2-N1
052970,000065: 11,2451 45257 SL* DSU # -FS+2(FS)SQ ETC (+6 +N1-N2) PL 6D
052971,000066: 11,2452 20211 8D,1
052972,000067: 11,2453 41205 DMP DMP
052973,000068: 11,2454 00001 0D
052974,000069: 11,2455 00005 4D
052975,000070: 11,2456 53657 SL* SL*
|
|
Page 1226 |
052977,000072: 11,2457 20211 8D,1
052978,000073: 11,2460 20201 0,1 # S(-FS(1-2FS)-1/6...)(+17 OR +16)
052979,000074: 11,2461 65215 DAD PDDL # PL 6D
052980,000075: 11,2462 01553 XKEP
052981,000076: 11,2463 53605 DMP SL* # S(+17 OR +16)
052982,000077: 11,2464 00001 0D
052983,000078: 11,2465 20202 1,1
052984,000079: 11,2466 43204 BOVB DAD
052985,000080: 11,2467 57756 TCDANZIG
052986,000081: 11,2470 77626 STADR
052987,000082: 11,2471 75656 STORE XKEPNEW
052988,000083: 11,2472 74020 STQ AXC,1
052989,000084: 11,2473 02111 KEPRTN
052990,000085: 11,2474 00012 DEC 10 B-14
052991,000086: 11,2475 74014 BON AXC,1
052992,000087: 11,2476 00303 MOONFLAG
052993,000088: 11,2477 24023 KEPLERN
052994,000089: 11,2500 00002 DEC 2 B-14
052995,000090: 11,2501 77650 GOTO
052996,000091: 11,2502 24023 KEPLERN
052997,000092:
|
|
Page 1227 |
052999,000094: 11,2503 66350 FBR3 LXA,1 SSP
053000,000095: 11,2504 01500 DIFEQCNT
053001,000096: 11,2505 00051 S1
053002,000097: 11,2506 77762 DEC -13 B-14
053003,000098: 11,2507 54345 DLOAD SR
053004,000099: 11,2510 02076 DT/2
053005,000100: 11,2511 20612 9D
053006,000101: 11,2512 61500 TIX,1 ROUND
053007,000102: 11,2513 22514 +1
053008,000103: 11,2514 43206 PUSH DAD
053009,000104: 11,2515 01551 TC
053010,000105: 11,2516 16074 STODL TAU.
053011,000106: 11,2517 77615 DAD
053012,000107: 11,2520 01517 TET
053013,000108: 11,2521 35517 STCALL TET
053014,000109: 11,2522 22403 KEPPREP
053015,000110:
|
|
Page 1228 |
053017,000112: # AGC ROUTINE TO COMPUTE ACCELERATION COMPONENTS.
053018,000113:
053019,000114:
053020,000115: 11,2523 73150 ACCOMP LXA,1 LXA,2
053021,000116: 11,2524 02030 PBODY
053022,000117: 11,2525 02030 PBODY
053023,000118: 11,2526 77775 VLOAD
053024,000119: 11,2527 24007 ZEROVEC
053025,000120: 11,2530 26062 STOVL FV
053026,000121: 11,2531 02032 ALPHAV
053027,000122: 11,2532 53257 VSL* VAD
053028,000123: 11,2533 57605 0 -7,2
053029,000124: 11,2534 01535 RCV
053030,000125: 11,2535 02040 STORE BETAV
053031,000126: 11,2536 65014 BOF XCHX,2
053032,000127: 11,2537 01756 DIM0FLAG
053033,000128: 11,2540 22545 +5
053034,000129: 11,2541 01500 DIFEQCNT
053035,000130: 11,2542 12123 STORE VECTAB,2
053036,000131: 11,2543 77724 XCHX,2
053037,000132: 11,2544 01500 DIFEQCNT
053038,000133: 11,2545 53575 VLOAD UNIT
053039,000134: 11,2546 02032 ALPHAV
053040,000135: 11,2547 16032 STODL ALPHAV
053041,000136: 11,2550 00045 36D
053042,000137: 11,2551 36070 STCALL ALPHAM
053043,000138: 11,2552 22653 GAMCOMP
053044,000139: 11,2553 66175 VLOAD SXA,1
053045,000140: 11,2554 02040 BETAV
053046,000141: 11,2555 00051 S2
053047,000142: 11,2556 16032 STODL ALPHAV
053048,000143: 11,2557 02072 BETAM
053049,000144: 11,2560 02070 STORE ALPHAM
053050,000145: 11,2561 71214 BOF DLOAD
053051,000146: 11,2562 00342 MIDFLAG
053052,000147: 11,2563 23024 OBLATE
053053,000148: 11,2564 01517 TET
053054,000149: 11,2565 77624 CALL
053055,000150: 11,2566 33646 LSPOS
053056,000151: 11,2567 72174 AXT,2 LXA,1
053057,000152: 11,2570 00002 2
053058,000153: 11,2571 00051 S2
053059,000154: 11,2572 77614 BOF
053060,000155: 11,2573 00343 MOONFLAG
053061,000156: 11,2574 22577 +3
053062,000157: 11,2575 77076 VCOMP AXT,2
053063,000158: 11,2576 00000 0
053064,000159: 11,2577 02040 STORE BETAV
053065,000160: 11,2600 26104 STOVL RPQV
053066,000161: 11,2601 00003 2D
|
|
Page 1229 |
053068,000163: 11,2602 02113 STORE RPSV
053069,000164: 11,2603 45335 SLOAD DSU
053070,000165: 11,2604 01011 MODREG
053071,000166: 11,2605 11256 OCT27
053072,000167: 11,2606 43030 BHIZ BOF
053073,000168: 11,2607 22612 +3
053074,000169: 11,2610 01756 DIM0FLAG
053075,000170: 11,2611 22625 GETRPSV
053076,000171: 11,2612 74375 VLOAD VXSC
053077,000172: 11,2613 02032 ALPHAV
053078,000173: 11,2614 02070 ALPHAM
053079,000174: 11,2615 52257 VSR* VSU
053080,000175: 11,2616 57175 1,2
053081,000176: 11,2617 02040 BETAV
053082,000177: 11,2620 77724 XCHX,2
053083,000178: 11,2621 01500 DIFEQCNT
053084,000179: 11,2622 12131 STORE VECTAB +6,2
053085,000180: 11,2623 77724 XCHX,2
053086,000181: 11,2624 01500 DIFEQCNT
053087,000182: 11,2625 62175 GETRPSV VLOAD INCR,1
053088,000183: 11,2626 02104 RPQV
053089,000184: 11,2627 00004 4
053090,000185: 11,2630 43014 CLEAR BOF
053091,000186: 11,2631 04260 RPQFLAG
053092,000187: 11,2632 00343 MOONFLAG
053093,000188: 11,2633 22640 +5
053094,000189: 11,2634 53261 VSR VAD
053095,000190: 11,2635 20612 9D
053096,000191: 11,2636 02113 RPSV
053097,000192: 11,2637 02113 STORE RPSV
053098,000193: 11,2640 77624 CALL
053099,000194: 11,2641 22653 GAMCOMP
053100,000195: 11,2642 62174 AXT,2 INCR,1
053101,000196: 11,2643 00004 4
053102,000197: 11,2644 00004 4
053103,000198: 11,2645 77775 VLOAD
053104,000199: 11,2646 02113 RPSV
053105,000200: 11,2647 36040 STCALL BETAV
053106,000201: 11,2650 22653 GAMCOMP
053107,000202: 11,2651 77650 GOTO
053108,000203: 11,2652 23024 OBLATE
053109,000204: 11,2653 74575 GAMCOMP VLOAD VSR1
053110,000205: 11,2654 02040 BETAV
053111,000206: 11,2655 40236 VSQ SETPD
053112,000207: 11,2656 00001 0
053113,000208: 11,2657 61501 NORM ROUND
053114,000209: 11,2660 00040 31D
053115,000210: 11,2661 60325 PDDL NORM # NORMED B SQUARED TO PD LIST
053116,000211: 11,2662 02070 ALPHAM # NORMALIZE (LESS ONE) LENGTH OF ALPHA
053117,000212: 11,2663 00041 32D # SAVING NORM SCALE FACTOR IN X1
|
|
Page 1230 |
053119,000214: 11,2664 63342 SR1 PDVL
053120,000215: 11,2665 02040 BETAV # C(PDL+2) = ALMOST NORMED ALPHA
053121,000216: 11,2666 77656 UNIT
053122,000217: 11,2667 16040 STODL BETAV
053123,000218: 11,2670 00045 36D
053124,000219: 11,2671 02072 STORE BETAM
053125,000220: 11,2672 55301 NORM BDDV # FORM NORMALIZED QUOTIENT ALPHAM/BETAM
053126,000221: 11,2673 00042 33D
053127,000222: 11,2674 41562 SR1R PUSH # C(PDL+2) = ALMOST NORMALIZED RHO.
053128,000223: 11,2675 77743 DLOAD*
053129,000224: 11,2676 27760 ASCALE,1
053130,000225: 11,2677 00051 STORE S1
053131,000226: 11,2700 57124 XCHX,2 XAD,2
053132,000227: 11,2701 00050 S1
053133,000228: 11,2702 00040 32D
053134,000229: 11,2703 71264 XSU,2 DLOAD
053135,000230: 11,2704 00041 33D
053136,000231: 11,2705 00003 2D
053137,000232: 11,2706 65057 SR* XCHX,2
053138,000233: 11,2707 57177 0 -1,2
053139,000234: 11,2710 00050 S1
053140,000235: 11,2711 74406 PUSH SR1R # RHO/4 TO 4D
053141,000236: 11,2712 50315 PDVL DOT
053142,000237: 11,2713 02032 ALPHAV
053143,000238: 11,2714 02040 BETAV
053144,000239: 11,2715 44372 SL1R BDSU # (RHO/4) - 2(ALPHAV/2.BETAV/2)
053145,000240: 11,2716 57206 PUSH DMPR # TO PDL+6
053146,000241: 11,2717 00005 4
053147,000242: 11,2720 77752 SL1
053148,000243: 11,2721 43206 PUSH DAD
053149,000244: 11,2722 25766 DQUARTER
053150,000245: 11,2723 75406 PUSH SQRT
053151,000246: 11,2724 41475 DMPR PUSH
053152,000247: 11,2725 00013 10D
053153,000248: 11,2726 43352 SL1 DAD
053154,000249: 11,2727 25766 DQUARTER
053155,000250: 11,2730 43325 PDDL DAD # (1/4)+2((Q+1)/4) TO PD+14D
053156,000251: 11,2731 00013 10D
053157,000252: 11,2732 24005 HALFDP
053158,000253: 11,2733 72475 DMPR SL1
053159,000254: 11,2734 00011 8D
053160,000255: 11,2735 56215 DAD DDV
053161,000256: 11,2736 25760 THREE/8
053162,000257: 11,2737 00017 14D
053163,000258: 11,2740 74275 DMPR VXSC
053164,000259: 11,2741 00007 6
053165,000260: 11,2742 02040 BETAV # -
053166,000261: 11,2743 64515 PDVL VSR3 # (G/2)(C(PD+4))B/2 TO PD+16D
053167,000262: 11,2744 02032 ALPHAV
053168,000263: 11,2745 41455 VAD PUSH # A12 + C(PD+16D) TO PD+16D
|
|
Page 1231 |
053170,000265: 11,2746 41345 DLOAD DMP
053171,000266: 11,2747 00001 0
053172,000267: 11,2750 00015 12D # -
053173,000268: 11,2751 61501 NORM ROUND
053174,000269: 11,2752 00037 30D
053175,000270: 11,2753 40665 BDDV DMP*
053176,000271: 11,2754 00003 2
053177,000272: 11,2755 51770 MUEARTH,2
053178,000273: 11,2756 74276 DCOMP VXSC
053179,000274: 11,2757 57124 XCHX,2 XAD,2
053180,000275: 11,2760 00050 S1
053181,000276: 11,2761 00051 S2
053182,000277: 11,2762 55064 XSU,2 XSU,2
053183,000278: 11,2763 00036 30D
053184,000279: 11,2764 00037 31D
053185,000280: 11,2765 53604 BOVB VSR*
053186,000281: 11,2766 57756 TCDANZIG
053187,000282: 11,2767 57177 0 -1,2
053188,000283: 11,2770 53324 XCHX,2 VAD
053189,000284: 11,2771 00050 S1
053190,000285: 11,2772 02062 FV
053191,000286: 11,2773 02062 STORE FV
053192,000287: 11,2774 43400 BOV RVQ # RETURN IF NO OVERFLOW
053193,000288: 11,2775 22776 +1
053194,000289: 11,2776 51575 GOBAQUE VLOAD ABVAL
053195,000290: 11,2777 01521 TDELTAV
053196,000291: 11,3000 77654 BZE
053197,000292: 11,3001 23021 INT-ABRT
053198,000293: 11,3002 54345 DLOAD SR
053199,000294: 11,3003 02100 H
053200,000295: 11,3004 20612 9D
053201,000296: 11,3005 44206 PUSH BDSU
053202,000297: 11,3006 01551 TC
053203,000298: 11,3007 16074 STODL TAU.
053204,000299: 11,3010 01517 TET
053205,000300: 11,3011 45425 DSU STADR
053206,000301: 11,3012 42260 STCALL TET
053207,000302: 11,3013 22403 KEPPREP
053208,000303: 11,3014 77624 CALL
053209,000304: 11,3015 27720 RECTIFY
053210,000305: 11,3016 77614 SETGO
053211,000306: 11,3017 04020 RPQFLAG
053212,000307: 11,3020 27315 TESTLOOP
053213,000308:
053214,000309: 11,3021 77776 INT-ABRT EXIT
053215,000310: 11,3022 05644 TC POODOO
053216,000311: 11,3023 20430 OCT 20430
053217,000312:
|
|
Page 1232 |
053219,000314: # THE OBLATE ROUTINE COMPUTES THE ACCELERATION DUE TO OBLATENESS. IT USES THE UNIT OF THE VEHICLE
053220,000315: # POSITION VECTOR FOUND IN ALPHAV AND THE DISTANCE TO THE CENTER IN ALPHAM. THIS IS ADDED TO THE SUM OF THE
053221,000316: # DISTURBING ACCELERATIONS IN FV AND THE PROPER DIFEQ STAGE IS CALLED VIA X1.
053222,000317: 11,3024 71354 OBLATE LXA,2 DLOAD
053223,000318: 11,3025 02030 PBODY
053224,000319: 11,3026 02070 ALPHAM
053225,000320: 11,3027 44601 SETPD DSU*
053226,000321: 11,3030 00001 0
053227,000322: 11,3031 50003 RDE,2
053228,000323: 11,3032 43044 BPL BOF # GET URPV
053229,000324: 11,3033 23262 NBRANCH
053230,000325: 11,3034 00343 MOONFLAG
053231,000326: 11,3035 23271 COSPHIE
053232,000327: 11,3036 65375 VLOAD PDDL
053233,000328: 11,3037 02032 ALPHAV
053234,000329: 11,3040 01517 TET
053235,000330: 11,3041 45125 PDDL CALL
053236,000331: 11,3042 25756 3/5
053237,000332: 11,3043 51644 R-TO-RP
053238,000333: 11,3044 24017 STOVL URPV # RP/R B-1 IN PLANETARY COORDINATES
053239,000334: 11,3045 24001 ZUNIT
053240,000335: 11,3046 45006 PUSH CALL # ZUNIT B-1 IN PLANETARY COORDL AT 00D
053241,000336: 11,3047 23277 MATRIX
053242,000337: 11,3050 77715 PDVL # UZ B-2 IN INERT COORD AT 00D
053243,000338: 11,3051 24005 XUNIT
053244,000339: 11,3052 45006 PUSH CALL # XUNIT B-1 IN PLANETARY COORD. AT 06D
053245,000340: 11,3053 23277 MATRIX
053246,000341: 11,3054 77772 VSL1
053247,000342: 11,3055 24041 STOVL 32D # UX B-1 IN INERT. COORD AT 32D
053248,000343: 11,3056 77772 VSL1
053249,000344: 11,3057 14025 COMTERM STODL UZ # UZ B-1 IN INERTIAL COORD AT 20D
053250,000345: 11,3060 00023 COSPHI/2 # ' Z-COMPONENT OF URPV
053251,000346: 11,3061 65275 DMPR PDDL # P B-6 , 3COSPHI/64 AT 00D
053252,000347: 11,3062 25770 3/32 # 2
053253,000348: 11,3063 00023 COSPHI/2
053254,000349: 11,3064 57316 DSQ DMPR
053255,000350: 11,3065 25772 15/16 # ' 2
053256,000351: 11,3066 41425 DSU PUSH # P B-5 ,(1/2)(15COSPHI -3) AT 02D
053257,000352: 11,3067 25764 3/64 # 3
053258,000353: 11,3070 41275 DMPR DMP
053259,000354: 11,3071 00023 COSPHI/2
053260,000355: 11,3072 23775 7/12
053261,000356: 11,3073 65372 SL1R PDDL
053262,000357: 11,3074 00001 0D
053263,000358: 11,3075 44275 DMPR BDSU
053264,000359: 11,3076 11254 2/3 # ' ' '
053265,000360: 11,3077 57206 PUSH DMPR # P B-7,(1/3)(7COSPHI P -4P ) AT 04D
053266,000361: 11,3100 00023 COSPHI/2 # 4 3 2
053267,000362: 11,3101 65275 DMPR PDDL
053268,000363: 11,3102 25774 9/16
|
|
Page 1233 |
053270,000365: 11,3103 00003 2D # ' ' '
053271,000366: 11,3104 44275 DMPR BDSU # P B-10,(1/4)(9COSPHI P -5P )
053272,000367: 11,3105 11252 5/128 # 5 4 3
053273,000368: 11,3106 56203 DMP* DDV # '
053274,000369: 11,3107 51764 J4REQ/J3,2 # B- , (J RP/J R)P
053275,000370: 11,3110 02070 ALPHAM # 4 3 5
053276,000371: 11,3111 56615 DAD DMPR*
053277,000372: 11,3112 00005 4D # 2 2 ' '
053278,000373: 11,3113 51760 2J3RE/J2,2 # B ,(2J RP /J2 R )P +(2J RP/J2R)P
053279,000374: 11,3114 43271 DDV DAD # 4 5 3 4
053280,000375: 11,3115 02070 ALPHAM # - 2 ' 2 ' '
053281,000376: 11,3116 00003 2D # (R/R)(J RP P /R + 2J RP P / + J P )
053282,000377: 11,3117 77761 VXSC # 4 5 3 4 2 2 3
053283,000378: 11,3120 02032 ALPHAV # 4 2 ' -
053284,000379: 11,3121 14033 STODL TVEC # B-6,(SUM((J /R )P (COSPHI))UR)
053285,000380: 11,3122 70403 DMP* SR1 # I=2 I I+1
053286,000381: 11,3123 51764 J4REQ/J3,2 # '
053287,000382: 11,3124 43271 DDV DAD # (J RP/J R)P
053288,000383: 11,3125 02070 ALPHAM # 4 3 4
053289,000384: 11,3126 50473 DMPR* SR3 # 2 2 ' '
053290,000385: 11,3127 51760 2J3RE/J2,2 # (2J RP /J R )P +(2J RP/J R)P
053291,000386: 11,3130 43271 DDV DAD # 4 2 4 3 2 3
053292,000387: 11,3131 02070 ALPHAM
053293,000388: 11,3132 76561 VXSC VSL1 # 4 ' -
053294,000389: 11,3133 00025 UZ # B-6 SUM(P(COSPHI))UZ
053295,000390: 11,3134 77645 BVSU # I=2 I
053296,000391: 11,3135 00033 TVEC # 4 I-2 ' -
053297,000392: 11,3136 14033 STODL TVEC # SUM((MU J (RP/R) )(P (COSPHI)UR -
053298,000393: 11,3137 02070 ALPHAM # I=2 I I+2
053299,000394: 11,3140 63501 NORM DSQ # P (COSPHI)UZ)) B-6 AT 20D
053300,000395: 11,3141 00047 X1 # I
053301,000396: 11,3142 60316 DSQ NORM
053302,000397: 11,3143 00051 S1 # 4
053303,000398: 11,3144 54606 PUSH BDDV* # NORMALIZED R AT 00D
053304,000399: 11,3145 51754 J2REQSQ,2
053305,000400: 11,3146 40161 VXSC BOV
053306,000401: 11,3147 00033 TVEC
053307,000402: 11,3150 23151 +1 # B+38 FOR EARTH , B+42 FOR MOON
053308,000403: 11,3151 56070 XAD,1 XAD,1
053309,000404: 11,3152 00046 X1
053310,000405: 11,3153 00046 X1
053311,000406: 11,3154 53670 XAD,1 VSL*
053312,000407: 11,3155 00050 S1
053313,000408: 11,3156 20153 0 -22D,1
053314,000409: 11,3157 40055 VAD BOV
053315,000410: 11,3160 02062 FV
053316,000411: 11,3161 22776 GOBAQUE
053317,000412: 11,3162 16062 STODL FV # B+16 FOR EARTH , B+20 FOR MOON
053318,000413: 11,3163 00017 URPV # B-1 X-COMPONENT OF POSITION IN
053319,000414: 11,3164 41414 BOF PUSH # PLANETORY COORD. AT 02D
|
|
Page 1234 |
053321,000416: 11,3165 00343 MOONFLAG
053322,000417: 11,3166 23262 NBRANCH # 2
053323,000418: 11,3167 65316 DSQ PDDL # B-2 X AT 04D
053324,000419: 11,3170 00021 URPV +2 # B-1 Y-COMPONENT
053325,000420: 11,3171 45316 DSQ DSU
053326,000421: 11,3172 74205 DMP VXSC
053327,000422: 11,3173 27762 5/8 # 2 2 -
053328,000423: 11,3174 02032 ALPHAV # B-6 5(Y -X )UR 2 2 -
053329,000424: 11,3175 65332 VSL3 PDDL # B-3 5(Y -X )UR AT 02D
053330,000425: 11,3176 53361 VXSC VAD
053331,000426: 11,3177 00041 32D # 2 2 - 2 -
053332,000427: 11,3200 47315 PDVL VXV # (5(Y.-X )UR/R ) +(2X/R)UX AT 02D
053333,000428: 11,3201 00041 32D # B-1 UX
053334,000429: 11,3202 00025 UZ # B-2 -UY =(UX * UZ)
053335,000430: 11,3203 74372 VSL1 VXSC # B-3 -(2Y/R)UY
053336,000431: 11,3204 00021 URPV +2 # 2 2 - 2 -
053337,000432: 11,3205 41455 VAD PUSH # B-3 (5(X -Y )UR/R )+(2X/R)UX -(
053338,000433: 11,3206 77745 DLOAD # -
053339,000434: 11,3207 00023 COSPHI/2 # 2Y/R)UY AT 02D
053340,000435: 11,3210 41516 DSQ PUSH # B-2 (Z.COMPONENT) AT 08D
053341,000436: 11,3211 65205 DMP PDDL # 2
053342,000437: 11,3212 27762 5/8 # B-5 5COSPHI/2 AT 08D
053343,000438: 11,3213 43302 SR2 DAD
053344,000439: 11,3214 00011 08D
053345,000440: 11,3215 41221 BDSU DMP # 2
053346,000441: 11,3216 11044 D1/32 # B-5 (1 - 7COSPHI )
053347,000442: 11,3217 00017 URPV
053348,000443: 11,3220 74205 DMP VXSC
053349,000444: 11,3221 27762 5/8
053350,000445: 11,3222 02032 ALPHAV # 2 -
053351,000446: 11,3223 65272 VSL5 PDDL # B-5 (5X/R)(1-7COSPHI )UR AT 08D
053352,000447: 11,3224 74225 DSU VXSC
053353,000448: 11,3225 11044 D1/32
053354,000449: 11,3226 00041 32D
053355,000450: 11,3227 53372 VSL1 VAD # 2 - -
053356,000451: 11,3230 41325 PDDL DMP # B-5 (5X/R)(1-7COSPHI )UR +(5COSPHI
053357,000452: 11,3231 00017 URPV # -
053358,000453: 11,3232 00023 URPV +4 # -1)UX AT 08D
053359,000454: 11,3233 74205 DMP VXSC
053360,000455: 11,3234 27762 5/8 # B-5 5X Y
053361,000456: 11,3235 00025 UZ # M M
053362,000457: 11,3236 53352 VSL2 VAD # 2 - 2
053363,000458: 11,3237 60325 PDDL NORM # B-5 (5X/R)(1-7COSPHI )UR +(5COSPHI
053364,000459: 11,3240 02070 ALPHAM # - 2 -
053365,000460: 11,3241 00050 X2 # -1)UX +(10XZ/R )UZ AT 08D
053366,000461: 11,3242 67206 PUSH SLOAD
053367,000462: 11,3243 01351 E32C31RM
053368,000463: 11,3244 74271 DDV VXSC
053369,000464: 11,3245 63257 VSL* PDVL
053370,000465: 11,3246 57601 0 -3,2
|
|
Page 1235 |
053372,000467: 11,3247 67206 PUSH SLOAD
053373,000468: 11,3250 01350 E3J22R2M
053374,000469: 11,3251 53361 VXSC VAD
053375,000470: 11,3252 70257 VSL* V/SC
053376,000471: 11,3253 20146 0 -27D,1 # B+16 OR B+20 (J + C )
053377,000472: 11,3254 40055 VAD BOV # 22 31
053378,000473: 11,3255 02062 FV
053379,000474: 11,3256 22776 GOBAQUE
053380,000475: 11,3257 02062 STORE FV
053381,000476: 11,3260 77754 LXA,2
053382,000477: 11,3261 02030 PBODY
053383,000478: 11,3262 72135 NBRANCH SLOAD LXA,1
053384,000479: 11,3263 01501 DIFEQCNT
053385,000480: 11,3264 00154 MPAC
053386,000481: 11,3265 73205 DMP CGOTO
053387,000482: 11,3266 27764 -1/12
053388,000483: 11,3267 00155 MPAC
053389,000484: 11,3270 23304 DIFEQTAB
053390,000485: 11,3271 77745 COSPHIE DLOAD
053391,000486: 11,3272 02036 ALPHAV +4
053392,000487: 11,3273 24023 STOVL COSPHI/2
053393,000488: 11,3274 24001 ZUNIT
053394,000489: 11,3275 77650 GOTO
053395,000490: 11,3276 23057 COMTERM
053396,000491: 11,3277 57435 MATRIX VXV VCOMP
053397,000492: 11,3300 02013 504LM # ROUTINE TRANSLATES FROM PLANETARY
053398,000493: 11,3301 77655 VAD # TO INERTIAL COORDINATES
053399,000494: 11,3302 43505 VXM RVQ
053400,000495: 11,3303 00025 MMATRIX
053401,000496: 11,3304 23473 DIFEQTAB CADR DIFEQ+0
053402,000497: 11,3305 23477 CADR DIFEQ+1
053403,000498: 11,3306 23510 CADR DIFEQ+2
053404,000499: 11,3307 77214 TIMESTEP BOF VLOAD
053405,000500: 11,3310 00342 MIDFLAG
053406,000501: 11,3311 23340 RECTEST
053407,000502: 11,3312 01535 RCV
053408,000503: 11,3313 41241 DOT DMP
053409,000504: 11,3314 01543 VCV
053410,000505: 11,3315 02076 DT/2 # (R.V) X (DELTA T)
053411,000506: 11,3316 77640 BMN
053412,000507: 11,3317 23340 RECTEST
053413,000508: 11,3320 43014 BON BOF
053414,000509: 11,3321 00303 MOONFLAG
053415,000510: 11,3322 23415 LUNSPH
053416,000511: 11,3323 04340 RPQFLAG
053417,000512: 11,3324 23412 EARSPH
053418,000513: 11,3325 45145 DLOAD CALL
053419,000514: 11,3326 01517 TET
053420,000515: 11,3327 33646 LSPOS # RPQV IN MPAC
053421,000516: 11,3330 02104 STORE RPQV # RPQV
|
|
Page 1236 |
053423,000518: 11,3331 77754 LXA,2
053424,000519: 11,3332 02030 PBODY
053425,000520: 11,3333 51445 INLUNCHK BVSU ABVAL
053426,000521: 11,3334 01535 RCV
053427,000522: 11,3335 50025 DSU BMN
053428,000523: 11,3336 27770 RSPHERE
053429,000524: 11,3337 23432 DOSWITCH
053430,000525: 11,3340 51575 RECTEST VLOAD ABVAL # RECTIFY IF
053431,000526: 11,3341 01521 TDELTAV
053432,000527: 11,3342 77600 BOV
053433,000528: 11,3343 23366 CALLRECT
053434,000529: 11,3344 51025 DSU BPL # 1) EITHER TDELTAV OR TNUV EQUALS OR
053435,000530: 11,3345 23773 3/4 # EXCEEDS 3/4 IN MAGNITUDE
053436,000531: 11,3346 23366 CALLRECT
053437,000532: 11,3347 53615 DAD SL* # OR
053438,000533: 11,3350 23773 3/4
053439,000534: 11,3351 57605 0 -7,2 # 2) ABVAL(TDELTAV) EQUALS OR EXCEEDS
053440,000535: 11,3352 45271 DDV DSU # .01(ABVAL(RCV))
053441,000536: 11,3353 00013 10D
053442,000537: 11,3354 27766 RECRATIO
053443,000538: 11,3355 77244 BPL VLOAD
053444,000539: 11,3356 23366 CALLRECT
053445,000540: 11,3357 01527 TNUV
053446,000541: 11,3360 45246 ABVAL DSU
053447,000542: 11,3361 23773 3/4
053448,000543: 11,3362 77600 BOV
053449,000544: 11,3363 23366 CALLRECT
053450,000545: 11,3364 77640 BMN
053451,000546: 11,3365 23370 INTGRATE
053452,000547: 11,3366 77624 CALLRECT CALL
053453,000548: 11,3367 27720 RECTIFY
053454,000549: 11,3370 77775 INTGRATE VLOAD
053455,000550: 11,3371 01527 TNUV
053456,000551: 11,3372 25134 STOVL ZV
053457,000552: 11,3373 01521 TDELTAV
053458,000553: 11,3374 01126 STORE YV
053459,000554: 11,3375 77614 CLEAR
053460,000555: 11,3376 00261 JSWITCH
053461,000556: 11,3377 66375 DIFEQ0 VLOAD SSP
053462,000557: 11,3400 01126 YV
053463,000558: 11,3401 01501 DIFEQCNT
053464,000559: 11,3402 00000 0
053465,000560: 11,3403 16032 STODL ALPHAV
053466,000561: 11,3404 24007 DPZERO
053467,000562: 11,3405 02100 STORE H # START H AT ZERO. GOES 0(DELT/2)DELT.
053468,000563: 11,3406 52014 BON GOTO
053469,000564: 11,3407 00301 JSWITCH
053470,000565: 11,3410 23712 DOW..
053471,000566: 11,3411 22523 ACCOMP
053472,000567: 11,3412 52175 EARSPH VLOAD GOTO
|
|
Page 1237 |
053474,000569: 11,3413 02104 RPQV
053475,000570: 11,3414 23333 INLUNCHK
053476,000571: 11,3415 60545 LUNSPH DLOAD SR2
053477,000572: 11,3416 00013 10D
053478,000573: 11,3417 50025 DSU BMN
053479,000574: 11,3420 27770 RSPHERE
053480,000575: 11,3421 23340 RECTEST
053481,000576: 11,3422 71214 BOF DLOAD
053482,000577: 11,3423 04340 RPQFLAG
053483,000578: 11,3424 23432 DOSWITCH
053484,000579: 11,3425 01517 TET
053485,000580: 11,3426 77624 CALL
053486,000581: 11,3427 33646 LUNPOS
053487,000582: 11,3430 77676 VCOMP
053488,000583: 11,3431 02104 STORE RPQV
053489,000584: 11,3432 77624 DOSWITCH CALL
053490,000585: 11,3433 23436 ORIGCHNG
053491,000586: 11,3434 77650 GOTO
053492,000587: 11,3435 23370 INTGRATE
053493,000588: 11,3436 45020 ORIGCHNG STQ CALL
053494,000589: 11,3437 02111 ORIGEX
053495,000590: 11,3440 27720 RECTIFY
053496,000591: 11,3441 53775 VLOAD VSL*
053497,000592: 11,3442 01535 RCV
053498,000593: 11,3443 57576 0,2
053499,000594: 11,3444 53651 VSU VSL*
053500,000595: 11,3445 02104 RPQV
053501,000596: 11,3446 57574 2,2
053502,000597: 11,3447 01503 STORE RRECT
053503,000598: 11,3450 01535 STORE RCV
053504,000599: 11,3451 57414 BOF VCOMP
053505,000600: 11,3452 00343 MOONFLAG
053506,000601: 11,3453 23454 +1
053507,000602: 11,3454 53715 PDVL VSL*
053508,000603: 11,3455 01543 VCV
053509,000604: 11,3456 57576 0,2
053510,000605: 11,3457 77651 VSU
053511,000606: 11,3460 77657 VSL*
053512,000607: 11,3461 57574 0 +2,2
053513,000608: 11,3462 01511 STORE VRECT
053514,000609: 11,3463 01543 STORE VCV
053515,000610: 11,3464 67154 LXA,2 SXA,2
053516,000611: 11,3465 02111 ORIGEX
053517,000612: 11,3466 00052 QPRET
053518,000613: 11,3467 52014 BON GOTO
053519,000614: 11,3470 00303 MOONFLAG
053520,000615: 11,3471 26747 CLRMOON
053521,000616: 11,3472 26754 SETMOON
|
|
Page 1238 |
053523,000618: # THE RECTIFY SUBROUTINE IS CALLED BY THE INTEGRATION PROGRAM AND OCCASIONALLY BY THE MEASUREMENT INCORPORATION
053524,000619: # ROUTINES TO ESTABLISH A NEW CONIC.
053525,000620:
053526,000621: 13,3720 BANK 13
053527,000622: 13,2000 SETLOC ORBITAL2
053528,000623: 13,2000 BANK
053529,000624:
053530,000625: 13,3720 77354 RECTIFY LXA,2 VLOAD
053531,000626: 13,3721 02030 PBODY
053532,000627: 13,3722 01521 TDELTAV
053533,000628: 13,3723 53257 VSL* VAD
053534,000629: 13,3724 57605 0 -7,2
053535,000630: 13,3725 01535 RCV
053536,000631: 13,3726 01503 STORE RRECT
053537,000632: 13,3727 25535 STOVL RCV
053538,000633: 13,3730 01527 TNUV
053539,000634: 13,3731 53257 VSL* VAD
053540,000635: 13,3732 57602 0 -4,2
053541,000636: 13,3733 01543 VCV
053542,000637: 13,3734 01511 MINIRECT STORE VRECT
053543,000638: 13,3735 25543 STOVL VCV
053544,000639: 13,3736 24007 ZEROVEC
053545,000640: 13,3737 01521 STORE TDELTAV
053546,000641: 13,3740 15527 STODL TNUV
053547,000642: 13,3741 24007 ZEROVEC
053548,000643: 13,3742 01551 STORE TC
053549,000644: 13,3743 01553 STORE XKEP
053550,000645: 13,3744 77616 RVQ
053551,000646: 11,3473 BANK 11
053552,000647: 11,2000 SETLOC ORBITAL
053553,000648: 11,2000 BANK
|
|
Page 1239 |
053555,000650: # THE THREE DIFEQ ROUTINES - DIFEQ+0, DIFEQ+12, AND DIFEQ+24 - ARE ENTEREDTO PROCESS THE CONTRIBUTIONS AT THE
053556,000651: # BEGINNING, MIDDLE, AND END OF THE TIMESTEP, RESPECTIVELY. THE UPDATING IS DONE BY THE NYSTROM METHOD.
053557,000652: 11,3473 64575 DIFEQ+0 VLOAD VSR3
053558,000653: 11,3474 02062 FV
053559,000654: 11,3475 36046 STCALL PHIV
053560,000655: 11,3476 23653 DIFEQCOM
053561,000656: 11,3477 74575 DIFEQ+1 VLOAD VSR1
053562,000657: 11,3500 02062 FV
053563,000658: 11,3501 53206 PUSH VAD
053564,000659: 11,3502 02046 PHIV
053565,000660: 11,3503 26054 STOVL PSIV
053566,000661: 11,3504 53362 VSR1 VAD
053567,000662: 11,3505 02046 PHIV
053568,000663: 11,3506 36046 STCALL PHIV
053569,000664: 11,3507 23653 DIFEQCOM
053570,000665: 11,3510 57345 DIFEQ+2 DLOAD DMPR
053571,000666: 11,3511 02100 H
053572,000667: 11,3512 11254 DP2/3
053573,000668: 11,3513 74206 PUSH VXSC
053574,000669: 11,3514 02046 PHIV
053575,000670: 11,3515 53372 VSL1 VAD
053576,000671: 11,3516 01134 ZV
053577,000672: 11,3517 53361 VXSC VAD
053578,000673: 11,3520 02100 H
053579,000674: 11,3521 01126 YV
053580,000675: 11,3522 25126 STOVL YV
053581,000676: 11,3523 02062 FV
053582,000677: 11,3524 53322 VSR3 VAD
053583,000678: 11,3525 02054 PSIV
053584,000679: 11,3526 76561 VXSC VSL1
053585,000680: 11,3527 77655 VAD
053586,000681: 11,3530 01134 ZV
053587,000682: 11,3531 01134 STORE ZV
053588,000683: 11,3532 45014 BOFF CALL
053589,000684: 11,3533 00341 JSWITCH
053590,000685: 11,3534 23604 ENDSTATE
053591,000686: 11,3535 51770 GRP2PC
053592,000687: 11,3536 77354 LXA,2 VLOAD
053593,000688: 11,3537 01116 COLREG
053594,000689: 11,3540 01134 ZV
053595,000690: 11,3541 77732 VSL3 # ADJUST W-POSITION FOR STORAGE
053596,000691: 11,3542 12467 STORE W +54D,2
053597,000692: 11,3543 77775 VLOAD
053598,000693: 11,3544 01126 YV
053599,000694: 11,3545 40132 VSL3 BOV
053600,000695: 11,3546 23676 WMATEND
053601,000696: 11,3547 12401 STORE W,2
053602,000697:
053603,000698: 11,3550 77624 CALL
053604,000699: 11,3551 51770 GRP2PC
|
|
Page 1240 |
053606,000701: 11,3552 66354 LXA,2 SSP
053607,000702: 11,3553 01116 COLREG
053608,000703: 11,3554 00052 S2
053609,000704: 11,3555 00000 0
053610,000705: 11,3556 67114 INCR,2 SXA,2
053611,000706: 11,3557 00006 6
053612,000707: 11,3560 01125 YV
053613,000708: 11,3561 45104 TIX,2 CALL
053614,000709: 11,3562 23647 RELOADSV
053615,000710: 11,3563 51770 GRP2PC
053616,000711: 11,3564 67154 LXA,2 SXA,2
053617,000712: 11,3565 01125 YV
053618,000713: 11,3566 01116 COLREG
053619,000714:
053620,000715: 11,3567 77624 NEXTCOL CALL
053621,000716: 11,3570 51770 GRP2PC
053622,000717: 11,3571 76754 LXA,2 VLOAD*
053623,000718: 11,3572 01116 COLREG
053624,000719: 11,3573 75376 W,2
053625,000720: 11,3574 77722 VSR3 # ADJUST W-POSITION FOR INTEGRATION
053626,000721: 11,3575 01126 STORE YV
053627,000722: 11,3576 76173 VLOAD* AXT,1
053628,000723: 11,3577 75310 W +54D,2
053629,000724: 11,3600 00000 0
053630,000725: 11,3601 77722 VSR3 # ADJUST W-VELOCITY FOR INTEGRATION
053631,000726: 11,3602 35134 STCALL ZV
053632,000727: 11,3603 23377 DIFEQ0
053633,000728:
053634,000729: 11,3604 77200 ENDSTATE BOV VLOAD
053635,000730: 11,3605 22776 GOBAQUE
053636,000731: 11,3606 01134 ZV
053637,000732: 11,3607 25527 STOVL TNUV
053638,000733: 11,3610 01126 YV
053639,000734: 11,3611 01521 STORE TDELTAV
053640,000735: 11,3612 43014 BON BOFF
053641,000736: 11,3613 04715 MIDAVFLG
053642,000737: 11,3614 27662 CKMID2 # CHECK FOR MID2 BEFORE GOING TO TIMEINC
053643,000738: 11,3615 01756 DIM0FLAG
053644,000739: 11,3616 27315 TESTLOOP
053645,000740: 11,3617 77776 EXIT
053646,000741: 11,3620 05355 TC PHASCHNG
053647,000742: 11,3621 04022 OCT 04022 # PHASE 1
053648,000743: 11,3622 05506 TC UPFLAG # PHASE CHANGE HAS OCCURRED BETWEEN
053649,000744: 11,3623 00236 ADRES REINTFLG # INTSTALL AND INTWAKE
053650,000745: 11,3624 06060 TC INTPRET
053651,000746: 11,3625 77731 SSP
053652,000747: 11,3626 00053 QPRET
053653,000748: 11,3627 23634 AMOVED
053654,000749: 11,3630 52014 BON GOTO
053655,000750: 11,3631 01714 VINTFLAG
|
|
Page 1241 |
053657,000752: 11,3632 26717 ATOPCSM
053658,000753: 11,3633 26772 ATOPLEM
053659,000754: 11,3634 66214 AMOVED SET SSP
053660,000755: 11,3635 00061 JSWITCH
053661,000756: 11,3636 01117 COLREG
053662,000757: 11,3637 77741 DEC -30 B-14
053663,000758: 11,3640 66214 BOFF SSP
053664,000759: 11,3641 01755 D6OR9FLG
053665,000760: 11,3642 23567 NEXTCOL
053666,000761: 11,3643 01117 COLREG
053667,000762: 11,3644 77717 DEC -48 B-14
053668,000763: 11,3645 77650 GOTO
053669,000764: 11,3646 23567 NEXTCOL
053670,000765:
053671,000766:
053672,000767: 11,3647 77745 RELOADSV DLOAD # RELOAD TEMPORARY STATE VECTOR
053673,000768: 11,3650 01115 TDEC # FROM PERMANENT IN CASE OF
053674,000769: 11,3651 34041 STCALL TDEC1
053675,000770: 11,3652 27177 INTEGRV2 # BY STARTING AT INTEGRV2.
053676,000771: 11,3653 43345 DIFEQCOM DLOAD DAD # INCREMENT H AND DIFEQCNT.
053677,000772: 11,3654 02076 DT/2
053678,000773: 11,3655 02100 H
053679,000774: 11,3656 66110 INCR,1 SXA,1
053680,000775: 11,3657 77763 DEC -12 B-14
053681,000776: 11,3660 01500 DIFEQCNT # DIFEQCNT SET FOR NEXT ENTRY.
053682,000777: 11,3661 02100 STORE H
053683,000778: 11,3662 74561 VXSC VSR1
053684,000779: 11,3663 02062 FV
053685,000780: 11,3664 74255 VAD VXSC
053686,000781: 11,3665 01134 ZV
053687,000782: 11,3666 02100 H
053688,000783: 11,3667 77655 VAD
053689,000784: 11,3670 01126 YV
053690,000785: 11,3671 02032 STORE ALPHAV
053691,000786: 11,3672 52014 BON GOTO
053692,000787: 11,3673 00301 JSWITCH
053693,000788: 11,3674 23712 DOW..
053694,000789: 11,3675 22503 FBR3
053695,000790:
053696,000791:
053697,000792: 11,3676 43014 WMATEND CLEAR CLEAR
053698,000793: 11,3677 01676 DIM0FLAG # DONT INTEGRATE W THIS TIME
053699,000794: 11,3700 01671 ORBWFLAG # INVALIDATE W
053700,000795: 11,3701 77614 CLEAR
053701,000796: 11,3702 02676 RENDWFLG
053702,000797: 11,3703 77414 SET EXIT
053703,000798: 11,3704 01472 STATEFLG # PICK UP STATE VECTOR UPDATE
053704,000799: 11,3705 05571 TC ALARM
053705,000800: 11,3706 00421 OCT 421
053706,000801: 11,3707 06060 TC INTPRET
|
|
Page 1242 |
053708,000803: 11,3710 77650 GOTO
053709,000804: 11,3711 27315 TESTLOOP # FINISH INTEGRATING STATE VECTOR
053710,000805:
|
|
Page 1243 |
053712,000807: # ORBITAL ROUTINE FOR EXTRAPOLATION OF THE W MATRIX. IT COMPUTES THE SECOND DERIVATIVE OF EACH COLUMN POSITION
053713,000808: # VECTOR OF THE MATRIX AND CALLS THE NYSTROM INTEGRATION ROUTINES TO SOLVETHE DIFFERENTIAL EQUATIONS. THE PROGRAM
053714,000809: # USES A TABLE OF VEHICLE POSITION VECTORS COMPUTED DURING THE INTEGRATION OF THE VEHICLES POSITION AND VELOCITY.
053715,000810: 11,3712 70754 DOW.. LXA,2 DLOAD*
053716,000811: 11,3713 02030 PBODY
053717,000812: 11,3714 51770 MUEARTH,2
053718,000813: 11,3715 36072 STCALL BETAM
053719,000814: 11,3716 23740 DOW..1
053720,000815: 11,3717 02062 STORE FV
053721,000816: 11,3720 62014 BOF INCR,1
053722,000817: 11,3721 00342 MIDFLAG
053723,000818: 11,3722 23262 NBRANCH
053724,000819: 11,3723 77771 DEC -6 B-14
053725,000820: 11,3724 70744 LXC,2 DLOAD*
053726,000821: 11,3725 02030 PBODY
053727,000822: 11,3726 51772 MUEARTH -2,2
053728,000823: 11,3727 36072 STCALL BETAM
053729,000824: 11,3730 23740 DOW..1
053730,000825: 11,3731 50414 BON VSR6
053731,000826: 11,3732 00303 MOONFLAG
053732,000827: 11,3733 23734 +1
053733,000828: 11,3734 77655 VAD
053734,000829: 11,3735 02062 FV
053735,000830: 11,3736 36062 STCALL FV
053736,000831: 11,3737 23262 NBRANCH
053737,000832: 11,3740 60575 DOW..1 VLOAD VSR4
053738,000833: 11,3741 02032 ALPHAV
053739,000834: 11,3742 53513 PDVL* UNIT
053740,000835: 11,3743 02123 VECTAB,1
053741,000836: 11,3744 46315 PDVL VPROJ
053742,000837: 11,3745 02032 ALPHAV
053743,000838: 11,3746 52361 VXSC VSU
053744,000839: 11,3747 23773 3/4
053745,000840: 11,3750 60325 PDDL NORM
053746,000841: 11,3751 00045 36D
053747,000842: 11,3752 00052 S2
053748,000843: 11,3753 63406 PUSH DSQ
053749,000844: 11,3754 77605 DMP
053750,000845: 11,3755 65301 NORM PDDL
053751,000846: 11,3756 00043 34D
053752,000847: 11,3757 02072 BETAM
053753,000848: 11,3760 56342 SR1 DDV
053754,000849: 11,3761 77761 VXSC
053755,000850: 11,3762 57154 LXA,2 XAD,2
053756,000851: 11,3763 00051 S2
053757,000852: 11,3764 00051 S2
053758,000853: 11,3765 57074 XAD,2 XAD,2
053759,000854: 11,3766 00051 S2
053760,000855: 11,3767 00042 34D
053761,000856: 11,3770 43457 VSL* RVQ
|
|
Page 1244 |
053763,000858: 11,3771 57606 0 -8D,2 # ****************************************
053764,000859: 12,2000 SETLOC ORBITAL1
053765,000860: 12,2000 BANK
053766,000861:
053767,000862: 12,3755 04631 23146 3/5 2DEC .6 B-2
053768,000863:
053769,000864: 12,3757 14000 00000 THREE/8 2DEC .375
053770,000865:
053771,000866: 12,3761 02314 31463 .3D 2DEC .3 B-2
053772,000867:
053773,000868: 12,3763 01400 00000 3/64 2DEC 3 B-6
053774,000869:
053775,000870: 12,3765 10000 00000 DP1/4 2DEC .25
053776,000871:
053777,000872: 12,3767 12,3765 DQUARTER EQUALS DP1/4
053778,000873: 12,3767 12,3765 POS1/4 EQUALS DP1/4
053779,000874: 12,3767 03000 00000 3/32 2DEC 3 B-5
053780,000875:
053781,000876: 12,3771 36000 00000 15/16 2DEC 15. B-4
053782,000877:
053783,000878: 05,3776 BANK 05
053784,000879: 11,2000 SETLOC ORBITAL
053785,000880: 11,2000 BANK
053786,000881:
053787,000882: 11,3772 30000 00000 3/4 2DEC 3.0 B-2
053788,000883:
053789,000884: 11,3774 22525 12525 7/12 2DEC .5833333333
053790,000885:
053791,000886: 12,2000 SETLOC ORBITAL1
053792,000887: 12,2000 BANK
053793,000888:
053794,000889: 12,3773 22000 00000 9/16 2DEC 9 B-4
053795,000890:
053796,000891: 04,2000 SETLOC ORBITAL3
053797,000892: 04,2000 BANK
053798,000893:
053799,000894: 04,3251 01200 00000 5/128 2DEC 5 B-7
053800,000895:
053801,000896: 04,3253 12,2006 DPZERO EQUALS ZEROVEC
053802,000897: 04,3253 25252 25253 DP2/3 2DEC .6666666667
053803,000898:
053804,000899: 04,3255 04,3253 2/3 EQUALS DP2/3
053805,000900: 04,3255 00027 OCT27 OCT 27
053806,000901: 13,3745 BANK 13
053807,000902: 13,2000 SETLOC ORBITAL2
053808,000903: 13,2000 BANK
053809,000904: # IT IS VITAL THAT THE FOLLOWING CONSTANTS NOT BE SHUFFLED
053810,000905: 13,3745 77764 DEC -11 B-14
053811,000906: 13,3746 77775 DEC -2 B-14
053812,000907: 13,3747 77766 DEC -9 B-14
|
|
Page 1245 |
053814,000909: 13,3750 77771 DEC -6 B-14
053815,000910: 13,3751 77775 DEC -2 B-14
053816,000911: 13,3752 77775 DEC -2 B-14
053817,000912: 13,3753 00000 DEC 0 B-14
053818,000913: 13,3754 77763 DEC -12 B-14
053819,000914: 13,3755 77766 DEC -9 B-14
053820,000915: 13,3756 77773 DEC -4 B-14
053821,000916: 13,3757 77770 ASCALE DEC -7 B-14
053822,000917: 13,3760 77771 DEC -6 B-14
053823,000918: 13,3761 24000 00000 5/8 2DEC 5 B-3
053824,000919:
053825,000920: 13,3763 74631 63145 -1/12 2DEC -.1
053826,000921:
053827,000922: 13,3765 00243 32703 RECRATIO 2DEC .01
053828,000923:
053829,000924: 13,3767 03654 21000 RSPHERE 2DEC 64373.76 E3 B-29
053830,000925:
053831,000926: 13,3771 03654 21000 RDM 2DEC 16093.44 E3 B-27
053832,000927:
053833,000928: 13,3773 04627 25200 RDE 2DEC 80467.20 E3 B-29
053834,000929:
053835,000930: 13,3775 RATT EQUALS 00
053836,000931: 13,3775 VATT EQUALS 6D
053837,000932: 13,3775 TAT EQUALS 12D
053838,000933: 13,3775 RATT1 EQUALS 14D
053839,000934: 13,3775 VATT1 EQUALS 20D
053840,000935: 13,3775 MU(P) EQUALS 26D
053841,000936: 13,3775 TDEC1 EQUALS 32D
053842,000937: 13,3775 URPV EQUALS 14D
053843,000938: 13,3775 0022 COSPHI/2 EQUALS URPV +4
053844,000939: 13,3775 UZ EQUALS 20D
053845,000940: 13,3775 TVEC EQUALS 26D
End of include-file ORBITAL_INTEGRATION.agc. Parent file is MAIN.agc