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