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