Source Code
![]() |
These source-code files derive from a printout of Luminary 116 (the Apollo 12
Lunar Module guidance computer program), from the personal library of
original AGC developer Don Eyles, digitally photographed at archive.org,
financially sponsored by Ron Burkey, 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 116 OF AGC PROGRAM LUMINARY BY NASA 2021112-071 19:09 AUG. 11,1969Note that the date is the date of the printout, not the date of the program revision. |
051633,000002: ## Copyright: Public domain.
051634,000003: ## Filename: ORBITAL_INTEGRATION.agc
051635,000004: ## Purpose: A section of Luminary revision 116.
051636,000005: ## It is part of the source code for the Lunar Module's (LM)
051637,000006: ## Apollo Guidance Computer (AGC) for Apollo 12.
051638,000007: ## This file is intended to be a faithful transcription, except
051639,000008: ## that the code format has been changed to conform to the
051640,000009: ## requirements of the yaYUL assembler rather than the
051641,000010: ## original YUL assembler.
051642,000011: ## Reference: pp. 1218-1238
051643,000012: ## Assembler: yaYUL
051644,000013: ## Contact: Ron Burkey <info@sandroid.org>.
051645,000014: ## Website: www.ibiblio.org/apollo/index.html
051646,000015: ## Mod history: 2017-01-22 MAS Created from Luminary 99.
051647,000016: ## 2017-02-20 RRB Updated for Luminary 116.
051648,000017: ## 2017-03-13 RSB Proofed comment text via 3-way diff vs
051649,000018: ## Luminary 99 and 131.
051650,000019: ## 2017-03-16 RSB Comment-text fixes identified in 5-way
051651,000020: ## side-by-side diff of Luminary 69/99/116/131/210.
051652,000021:
![]() |
Page 1218 |
051654,000023: # DELETE
051655,000024: 13,3673 BANK 13
051656,000025: 11,2000 SETLOC ORBITAL
051657,000026: 11,2000 BANK
051658,000027: 11,2404 COUNT* $$/ORBIT
051659,000028:
051660,000029: # DELETE
051661,000030: 11,2404 40354 KEPPREP LXA,2 SETPD
051662,000031: 11,2405 02030 PBODY
051663,000032: 11,2406 00001 0
051664,000033: 11,2407 75543 DLOAD* SQRT # SQRT(MU) (+18 OR +15) 0D PL 2D
051665,000034: 11,2410 51770 MUEARTH,2
051666,000035: 11,2411 53515 PDVL UNIT # PL 8D
051667,000036: 11,2412 01535 RCV
051668,000037: 11,2413 60325 PDDL NORM # NORM R (+29 OR +27 - N1) 2D PL 4D
051669,000038: 11,2414 00045 36D
051670,000039: 11,2415 00047 X1
051671,000040: 11,2416 77715 PDVL
051672,000041: 11,2417 65241 DOT PDDL # F*SQRT(MU)(+7 OR +5) 4D PL 6D
051673,000042: 11,2420 01543 VCV
051674,000043: 11,2421 02074 TAU. # (+28)
051675,000044: 11,2422 60225 DSU NORM
051676,000045: 11,2423 01551 TC
051677,000046: 11,2424 00051 S1
051678,000047: 11,2425 77742 SR1
051679,000048: 11,2426 65271 DDV PDDL
051680,000049: 11,2427 00003 2D
051681,000050: 11,2430 41405 DMP PUSH # FS(+6 +N1-N2) 6D PL 8D
051682,000051: 11,2431 00005 4D
051683,000052: 11,2432 65316 DSQ PDDL # (FS)SQ(+12 +2(N1-N2)) 8D PL 10D
051684,000053: 11,2433 00005 4D
051685,000054: 11,2434 64716 DSQ PDDL* # SSQ/MU(-20R +2(N1-N2)) 10D PL 12D
051686,000055: 11,2435 51770 MUEARTH,2
051687,000056: 11,2436 40442 SR3 SR4
051688,000057: 11,2437 47515 PDVL VSQ # PREALIGN MU (+43 OR +37) 12D PL 14D
051689,000058: 11,2440 01543 VCV
051690,000059: 11,2441 44205 DMP BDSU # PL 12D
051691,000060: 11,2442 00045 36D
051692,000061: 11,2443 41271 DDV DMP # PL 10D
051693,000062: 11,2444 00003 2D # -(1/R-ALPHA)(+12 +3N1-2N2)
051694,000063: 11,2445 53605 DMP SL*
051695,000064: 11,2446 13772 DP2/3
051696,000065: 11,2447 20176 0 -3,1 # 10L(1/R-ALPHA)(+13 +2(N1-N2))
051697,000066: 11,2450 43260 XSU,1 DAD # 2(FS)SQ - ETCETRA PL 8D
051698,000067: 11,2451 00050 S1 # X1 = N2-N1
051699,000068: 11,2452 45257 SL* DSU # -FS+2(FS)SQ ETC (+6 +N1-N2) PL 6D
051700,000069: 11,2453 20211 8D,1
051701,000070: 11,2454 41205 DMP DMP
051702,000071: 11,2455 00001 0D
051703,000072: 11,2456 00005 4D
051704,000073: 11,2457 53657 SL* SL*
![]() |
Page 1219 |
051706,000075: 11,2460 20211 8D,1
051707,000076: 11,2461 20201 0,1 # S(-FS(1-2FS)-1/6...)(+17 OR +16)
051708,000077: 11,2462 65215 DAD PDDL # PL 6D
051709,000078: 11,2463 01553 XKEP
051710,000079: 11,2464 53605 DMP SL* # S(+17 OR +16)
051711,000080: 11,2465 00001 0D
051712,000081: 11,2466 20202 1,1
051713,000082: 11,2467 43204 BOVB DAD
051714,000083: 11,2470 57753 TCDANZIG
051715,000084: 11,2471 77626 STADR
051716,000085: 11,2472 75647 STORE XKEPNEW
051717,000086: 11,2473 74020 STQ AXC,1
051718,000087: 11,2474 02112 KEPRTN
051719,000088: 11,2475 00012 DEC 10 B-14
051720,000089: 11,2476 74014 BON AXC,1
051721,000090: 11,2477 00303 MOONFLAG
051722,000091: 11,2500 24023 KEPLERN
051723,000092: 11,2501 00002 DEC 2 B-14
051724,000093: 11,2502 77650 GOTO
051725,000094: 11,2503 24023 KEPLERN
051726,000095:
![]() |
Page 1220 |
051728,000097: 11,2504 66350 FBR3 LXA,1 SSP
051729,000098: 11,2505 01500 DIFEQCNT
051730,000099: 11,2506 00051 S1
051731,000100: 11,2507 77762 DEC -13 B-14
051732,000101: 11,2510 54345 DLOAD SR
051733,000102: 11,2511 02076 DT/2
051734,000103: 11,2512 20612 9D
051735,000104: 11,2513 61500 TIX,1 ROUND
051736,000105: 11,2514 22515 +1
051737,000106: 11,2515 43206 PUSH DAD
051738,000107: 11,2516 01551 TC
051739,000108: 11,2517 16074 STODL TAU.
051740,000109: 11,2520 77615 DAD
051741,000110: 11,2521 01517 TET
051742,000111: 11,2522 35517 STCALL TET
051743,000112: 11,2523 22404 KEPPREP
051744,000113:
![]() |
Page 1221 |
051746,000115: # AGC ROUTINE TO COMPUTE ACCELERATION COMPONENTS.
051747,000116:
051748,000117: 11,2524 73150 ACCOMP LXA,1 LXA,2
051749,000118: 11,2525 02030 PBODY
051750,000119: 11,2526 02030 PBODY
051751,000120: 11,2527 77775 VLOAD
051752,000121: 11,2530 24007 ZEROVEC
051753,000122: 11,2531 26062 STOVL FV
051754,000123: 11,2532 02032 ALPHAV
051755,000124: 11,2533 53257 VSL* VAD
051756,000125: 11,2534 57605 0 -7,2
051757,000126: 11,2535 01535 RCV
051758,000127: 11,2536 02040 STORE BETAV
051759,000128: 11,2537 65014 BOF XCHX,2
051760,000129: 11,2540 01756 DIM0FLAG
051761,000130: 11,2541 22546 +5
051762,000131: 11,2542 01500 DIFEQCNT
051763,000132: 11,2543 12132 STORE VECTAB,2
051764,000133: 11,2544 77724 XCHX,2
051765,000134: 11,2545 01500 DIFEQCNT
051766,000135: 11,2546 53575 VLOAD UNIT
051767,000136: 11,2547 02032 ALPHAV
051768,000137: 11,2550 16032 STODL ALPHAV
051769,000138: 11,2551 00045 36D
051770,000139: 11,2552 36070 STCALL ALPHAM
051771,000140: 11,2553 22655 GAMCOMP
051772,000141: 11,2554 66175 VLOAD SXA,1
051773,000142: 11,2555 02040 BETAV
051774,000143: 11,2556 00051 S2
051775,000144: 11,2557 16032 STODL ALPHAV
051776,000145: 11,2560 02072 BETAM
051777,000146: 11,2561 02070 STORE ALPHAM
051778,000147: 11,2562 71214 BOF DLOAD
051779,000148: 11,2563 00342 MIDFLAG
051780,000149: 11,2564 23026 OBLATE
051781,000150: 11,2565 01517 TET
051782,000151: 11,2566 77624 CALL
051783,000152: 11,2567 33647 LSPOS
051784,000153: 11,2570 72174 AXT,2 LXA,1
051785,000154: 11,2571 00002 2
051786,000155: 11,2572 00051 S2
051787,000156: 11,2573 77614 BOF
051788,000157: 11,2574 00343 MOONFLAG
051789,000158: 11,2575 22600 +3
051790,000159: 11,2576 77076 VCOMP AXT,2
051791,000160: 11,2577 00000 0
051792,000161: 11,2600 02040 STORE BETAV
051793,000162: 11,2601 26105 STOVL RPQV
051794,000163: 11,2602 00003 2D
![]() |
Page 1222 |
051796,000165: 11,2603 02122 STORE RPSV
051797,000166: 11,2604 45335 SLOAD DSU
051798,000167: 11,2605 01011 MODREG
051799,000168: 11,2606 13774 OCT27
051800,000169: 11,2607 43030 BHIZ BOF
051801,000170: 11,2610 22613 +3
051802,000171: 11,2611 01756 DIM0FLAG
051803,000172: 11,2612 22627 GETRPSV
051804,000173: 11,2613 74375 VLOAD VXSC
051805,000174: 11,2614 02032 ALPHAV
051806,000175: 11,2615 02070 ALPHAM
051807,000176: 11,2616 52257 VSR* VSU
051808,000177: 11,2617 57175 1,2
051809,000178: 11,2620 02040 BETAV
051810,000179: 11,2621 77724 XCHX,2
051811,000180: 11,2622 01500 DIFEQCNT
051812,000181: 11,2623 12140 STORE VECTAB +6,2
051813,000182: 11,2624 02114 STORE RQVV
051814,000183: 11,2625 77724 XCHX,2
051815,000184: 11,2626 01500 DIFEQCNT
051816,000185: 11,2627 62175 GETRPSV VLOAD INCR,1
051817,000186: 11,2630 02105 RPQV
051818,000187: 11,2631 00004 4
051819,000188: 11,2632 43014 CLEAR BOF
051820,000189: 11,2633 04260 RPQFLAG
051821,000190: 11,2634 00343 MOONFLAG
051822,000191: 11,2635 22642 +5
051823,000192: 11,2636 53261 VSR VAD
051824,000193: 11,2637 20612 9D
051825,000194: 11,2640 02122 RPSV
051826,000195: 11,2641 02122 STORE RPSV
051827,000196: 11,2642 77624 CALL
051828,000197: 11,2643 22655 GAMCOMP
051829,000198: 11,2644 62174 AXT,2 INCR,1
051830,000199: 11,2645 00004 4
051831,000200: 11,2646 00004 4
051832,000201: 11,2647 77775 VLOAD
051833,000202: 11,2650 02122 RPSV
051834,000203: 11,2651 36040 STCALL BETAV
051835,000204: 11,2652 22655 GAMCOMP
051836,000205: 11,2653 77650 GOTO
051837,000206: 11,2654 23026 OBLATE
051838,000207: 11,2655 74575 GAMCOMP VLOAD VSR1
051839,000208: 11,2656 02040 BETAV
051840,000209: 11,2657 40236 VSQ SETPD
051841,000210: 11,2660 00001 0
051842,000211: 11,2661 61501 NORM ROUND
051843,000212: 11,2662 00040 31D
051844,000213: 11,2663 60325 PDDL NORM # NORMED B SQUARED TO PD LIST
051845,000214: 11,2664 02070 ALPHAM # NORMALIZE (LESS ONE) LENGTH OF ALPHA
![]() |
Page 1223 |
051847,000216: 11,2665 00041 32D # SAVING NORM SCALE FACTOR IN X1
051848,000217: 11,2666 63342 SR1 PDVL
051849,000218: 11,2667 02040 BETAV # C(PDL+2) = ALMOST NORMED ALPHA
051850,000219: 11,2670 77656 UNIT
051851,000220: 11,2671 16040 STODL BETAV
051852,000221: 11,2672 00045 36D
051853,000222: 11,2673 02072 STORE BETAM
051854,000223: 11,2674 55301 NORM BDDV # FORM NORMALIZED QUOTIENT ALPHAM/BETAM
051855,000224: 11,2675 00042 33D
051856,000225: 11,2676 41562 SR1R PUSH # C(PDL+2) = ALMOST NORMALIZED RHO.
051857,000226: 11,2677 77743 DLOAD*
051858,000227: 11,2700 27733 ASCALE,1
051859,000228: 11,2701 00051 STORE S1
051860,000229: 11,2702 57124 XCHX,2 XAD,2
051861,000230: 11,2703 00050 S1
051862,000231: 11,2704 00040 32D
051863,000232: 11,2705 71264 XSU,2 DLOAD
051864,000233: 11,2706 00041 33D
051865,000234: 11,2707 00003 2D
051866,000235: 11,2710 65057 SR* XCHX,2
051867,000236: 11,2711 57177 0 -1,2
051868,000237: 11,2712 00050 S1
051869,000238: 11,2713 74406 PUSH SR1R # RHO/4 TO 4D
051870,000239: 11,2714 50315 PDVL DOT
051871,000240: 11,2715 02032 ALPHAV
051872,000241: 11,2716 02040 BETAV
051873,000242: 11,2717 44372 SL1R BDSU # (RHO/4) - 2(ALPHAV/2.BETAV/2)
051874,000243: 11,2720 57206 PUSH DMPR # TO PDL+6
051875,000244: 11,2721 00005 4
051876,000245: 11,2722 77752 SL1
051877,000246: 11,2723 43206 PUSH DAD
051878,000247: 11,2724 25766 DQUARTER
051879,000248: 11,2725 75406 PUSH SQRT
051880,000249: 11,2726 41475 DMPR PUSH
051881,000250: 11,2727 00013 10D
051882,000251: 11,2730 43352 SL1 DAD
051883,000252: 11,2731 25766 DQUARTER
051884,000253: 11,2732 43325 PDDL DAD # (1/4)+2((Q+1)/4) TO PD+14D
051885,000254: 11,2733 00013 10D
051886,000255: 11,2734 24005 HALFDP
051887,000256: 11,2735 72475 DMPR SL1
051888,000257: 11,2736 00011 8D
051889,000258: 11,2737 56215 DAD DDV
051890,000259: 11,2740 25760 THREE/8
051891,000260: 11,2741 00017 14D
051892,000261: 11,2742 74275 DMPR VXSC
051893,000262: 11,2743 00007 6
051894,000263: 11,2744 02040 BETAV # -
051895,000264: 11,2745 64515 PDVL VSR3 # (G/2)(C(PD+4))B/2 TO PD+16D
051896,000265: 11,2746 02032 ALPHAV
![]() |
Page 1224 |
051898,000267: 11,2747 41455 VAD PUSH # A12 + C(PD+16D) TO PD+16D
051899,000268: 11,2750 41345 DLOAD DMP
051900,000269: 11,2751 00001 0
051901,000270: 11,2752 00015 12D
051902,000271: 11,2753 61501 NORM ROUND
051903,000272: 11,2754 00037 30D
051904,000273: 11,2755 40665 BDDV DMP*
051905,000274: 11,2756 00003 2
051906,000275: 11,2757 51770 MUEARTH,2
051907,000276: 11,2760 74276 DCOMP VXSC
051908,000277: 11,2761 57124 XCHX,2 XAD,2
051909,000278: 11,2762 00050 S1
051910,000279: 11,2763 00051 S2
051911,000280: 11,2764 55064 XSU,2 XSU,2
051912,000281: 11,2765 00036 30D
051913,000282: 11,2766 00037 31D
051914,000283: 11,2767 53604 BOVB VSR*
051915,000284: 11,2770 57753 TCDANZIG
051916,000285: 11,2771 57177 0 -1,2
051917,000286: 11,2772 53324 XCHX,2 VAD
051918,000287: 11,2773 00050 S1
051919,000288: 11,2774 02062 FV
051920,000289: 11,2775 02062 STORE FV
051921,000290: 11,2776 43400 BOV RVQ # RETURN IF NO OVERFLOW
051922,000291: 11,2777 23000 +1
051923,000292: 11,3000 51575 GOBAQUE VLOAD ABVAL
051924,000293: 11,3001 01521 TDELTAV
051925,000294: 11,3002 77654 BZE
051926,000295: 11,3003 23023 INT-ABRT
051927,000296: 11,3004 54345 DLOAD SR
051928,000297: 11,3005 02100 H
051929,000298: 11,3006 20612 9D
051930,000299: 11,3007 44206 PUSH BDSU
051931,000300: 11,3010 01551 TC
051932,000301: 11,3011 16074 STODL TAU.
051933,000302: 11,3012 01517 TET
051934,000303: 11,3013 45425 DSU STADR
051935,000304: 11,3014 42260 STCALL TET
051936,000305: 11,3015 22404 KEPPREP
051937,000306: 11,3016 77624 CALL
051938,000307: 11,3017 27673 RECTIFY
051939,000308: 11,3020 77614 SETGO
051940,000309: 11,3021 04020 RPQFLAG
051941,000310: 11,3022 27260 TESTLOOP
051942,000311:
051943,000312: 11,3023 77776 INT-ABRT EXIT
051944,000313: 11,3024 05642 TC POODOO
051945,000314: 11,3025 20430 OCT 20430
051946,000315:
![]() |
Page 1225 |
051948,000317: # THE OBLATE ROUTINE COMPUTES THE ACCELERATION DUE TO OBLATENESS. IT USES THE UNIT OF THE VEHICLE
051949,000318: # POSITION VECTOR FOUND IN ALPHAV AND THE DISTANCE TO THE CENTER IN ALPHAM. THIS IS ADDED TO THE SUM OF THE
051950,000319: # DISTURBING ACCELERATIONS IN FV AND THE PROPER DIFEQ STAGE IS CALLED VIA X1.
051951,000320:
051952,000321: 11,3026 71354 OBLATE LXA,2 DLOAD
051953,000322: 11,3027 02030 PBODY
051954,000323: 11,3030 02070 ALPHAM
051955,000324: 11,3031 44601 SETPD DSU*
051956,000325: 11,3032 00001 0
051957,000326: 11,3033 50030 RDE,2
051958,000327: 11,3034 43044 BPL BOF # GET URPV
051959,000328: 11,3035 23264 NBRANCH
051960,000329: 11,3036 00343 MOONFLAG
051961,000330: 11,3037 23273 COSPHIE
051962,000331: 11,3040 65375 VLOAD PDDL
051963,000332: 11,3041 02032 ALPHAV
051964,000333: 11,3042 01517 TET
051965,000334: 11,3043 45125 PDDL CALL
051966,000335: 11,3044 25756 3/5
051967,000336: 11,3045 51677 R-TO-RP
051968,000337: 11,3046 24017 STOVL URPV # RP/R B-1 IN PLANETARY COORDINATES
051969,000338: 11,3047 24001 ZUNIT
051970,000339: 11,3050 45006 PUSH CALL # ZUNIT B-1 IN PLANETARY COORDL AT 00D
051971,000340: 11,3051 23301 MATRIX
051972,000341: 11,3052 77715 PDVL # UZ B-2 IN INERT COORD AT 00D
051973,000342: 11,3053 24005 XUNIT
051974,000343: 11,3054 45006 PUSH CALL # XUNIT B-1 IN PLANETARY COORD. AT 06D
051975,000344: 11,3055 23301 MATRIX
051976,000345: 11,3056 77772 VSL1
051977,000346: 11,3057 24041 STOVL 32D # UX B-1 IN INERT. COORD AT 32D
051978,000347: 11,3060 77772 VSL1
051979,000348: 11,3061 14025 COMTERM STODL UZ # UZ B-1 IN INERTIAL COORD AT 20D
051980,000349: 11,3062 00023 COSPHI/2 # ' Z-COMPONENT OF URPV
051981,000350: 11,3063 65275 DMPR PDDL # P B-6 , 3COSPHI/64 AT 00D
051982,000351: 11,3064 25770 3/32 # 2
051983,000352: 11,3065 00023 COSPHI/2
051984,000353: 11,3066 57316 DSQ DMPR
051985,000354: 11,3067 25772 15/16 # ' 2
051986,000355: 11,3070 41425 DSU PUSH # P B-5 ,(1/2)(15COSPHI -3) AT 02D
051987,000356: 11,3071 25764 3/64 # 3
051988,000357: 11,3072 41275 DMPR DMP
051989,000358: 11,3073 00023 COSPHI/2
051990,000359: 11,3074 13764 7/12
051991,000360: 11,3075 65372 SL1R PDDL
051992,000361: 11,3076 00001 0D
051993,000362: 11,3077 44275 DMPR BDSU
051994,000363: 11,3100 13772 2/3 # ' ' '
051995,000364: 11,3101 57206 PUSH DMPR # P B-7,(1/3)(7COSPHI P -4P ) AT 04D
051996,000365: 11,3102 00023 COSPHI/2 # 4 3 2
051997,000366: 11,3103 65275 DMPR PDDL
051998,000367: 11,3104 13766 9/16
![]() |
Page 1226 |
052000,000369: 11,3105 00003 2D # ' ' '
052001,000370: 11,3106 44275 DMPR BDSU # P B-10,(1/4)(9COSPHI P -5P )
052002,000371: 11,3107 13770 5/128 # 5 4 3
052003,000372: 11,3110 56203 DMP* DDV # '
052004,000373: 11,3111 51764 J4REQ/J3,2 # B- , (J RP/J R)P
052005,000374: 11,3112 02070 ALPHAM # 4 3 5
052006,000375: 11,3113 56615 DAD DMPR*
052007,000376: 11,3114 00005 4D # 2 2 ' '
052008,000377: 11,3115 51760 2J3RE/J2,2 # B , (2J RP /J2 R )P +(2J RP/J2R)P
052009,000378: 11,3116 43271 DDV DAD # 4 5 3 4
052010,000379: 11,3117 02070 ALPHAM # - 2 ' 2 ' '
052011,000380: 11,3120 00003 2D # (R/R)(J RP P /R + 2J RP P / + J P )
052012,000381: 11,3121 77761 VXSC # 4 5 3 4 2 2 3
052013,000382: 11,3122 02032 ALPHAV # 4 2 ' -
052014,000383: 11,3123 14033 STODL TVEC # B-6,(SUM((J /R )P (COSPHI))UR)
052015,000384: 11,3124 70403 DMP* SR1 # I=2 I I+1
052016,000385: 11,3125 51764 J4REQ/J3,2 # '
052017,000386: 11,3126 43271 DDV DAD # (J RP/J R)P
052018,000387: 11,3127 02070 ALPHAM # 4 3 4
052019,000388: 11,3130 50473 DMPR* SR3 # 2 2 ' '
052020,000389: 11,3131 51760 2J3RE/J2,2 # (2J RP /J R )P +(2J RP/J R)P
052021,000390: 11,3132 43271 DDV DAD # 4 2 4 3 2 3
052022,000391: 11,3133 02070 ALPHAM
052023,000392: 11,3134 76561 VXSC VSL1 # 4 ' -
052024,000393: 11,3135 00025 UZ # B-6 SUM(P(COSPHI))UZ
052025,000394: 11,3136 77645 BVSU # I=2 I
052026,000395: 11,3137 00033 TVEC # 4 I-2 ' -
052027,000396: 11,3140 14033 STODL TVEC # SUM((MU J (RP/R) )(P (COSPHI)UR -
052028,000397: 11,3141 02070 ALPHAM # I=2 I I+2
052029,000398: 11,3142 63501 NORM DSQ # P (COSPHI)UZ)) B-6 AT 20D
052030,000399: 11,3143 00047 X1 # I
052031,000400: 11,3144 60316 DSQ NORM
052032,000401: 11,3145 00051 S1 # 4
052033,000402: 11,3146 54606 PUSH BDDV* # NORMALIZED R AT 00D
052034,000403: 11,3147 51754 J2REQSQ,2
052035,000404: 11,3150 40161 VXSC BOV
052036,000405: 11,3151 00033 TVEC
052037,000406: 11,3152 23153 +1 # B+38 FOR EARTH , B+42 FOR MOON
052038,000407: 11,3153 56070 XAD,1 XAD,1
052039,000408: 11,3154 00046 X1
052040,000409: 11,3155 00046 X1
052041,000410: 11,3156 53670 XAD,1 VSL*
052042,000411: 11,3157 00050 S1
052043,000412: 11,3160 20153 0 -22D,1
052044,000413: 11,3161 40055 VAD BOV
052045,000414: 11,3162 02062 FV
052046,000415: 11,3163 23000 GOBAQUE
052047,000416: 11,3164 16062 STODL FV # B+16 FOR EARTH , B+20 FOR MOON
052048,000417: 11,3165 00017 URPV # B-1 X-COMPONENT OF POSITION IN
052049,000418: 11,3166 41414 BOF PUSH # PLANETORY COORD. AT 02D
![]() |
Page 1227 |
052051,000420: 11,3167 00343 MOONFLAG
052052,000421: 11,3170 23264 NBRANCH # 2
052053,000422: 11,3171 65316 DSQ PDDL # B-2 X AT 04D
052054,000423: 11,3172 00021 URPV +2 # B-1 Y-COMPONENT
052055,000424: 11,3173 45316 DSQ DSU
052056,000425: 11,3174 74205 DMP VXSC
052057,000426: 11,3175 27735 5/8 # 2 2 -
052058,000427: 11,3176 02032 ALPHAV # B-6 5(Y -X )UR 2 2 -
052059,000428: 11,3177 65332 VSL3 PDDL # B-3 5(Y -X )UR AT 02D
052060,000429: 11,3200 53361 VXSC VAD
052061,000430: 11,3201 00041 32D # 2 2 - 2 -
052062,000431: 11,3202 47315 PDVL VXV # (5(Y.-X )UR/R ) +(2X/R)UX AT 02D
052063,000432: 11,3203 00041 32D # B-1 UX
052064,000433: 11,3204 00025 UZ # B-2 -UY =(UX * UZ)
052065,000434: 11,3205 74372 VSL1 VXSC # B-3 -(2Y/R)UY
052066,000435: 11,3206 00021 URPV +2 # 2 2 - 2 -
052067,000436: 11,3207 41455 VAD PUSH # B-3 (5(X -Y )UR/R )+(2X/R)UX -(
052068,000437: 11,3210 77745 DLOAD # -
052069,000438: 11,3211 00023 COSPHI/2 # 2Y/R)UY AT 02D
052070,000439: 11,3212 41516 DSQ PUSH # B-2 (Z.COMPONENT) AT 08D
052071,000440: 11,3213 65205 DMP PDDL # 2
052072,000441: 11,3214 27735 5/8 # B-5 5COSPHI /2 AT 08D
052073,000442: 11,3215 43302 SR2 DAD
052074,000443: 11,3216 00011 08D
052075,000444: 11,3217 41221 BDSU DMP # 2
052076,000445: 11,3220 11025 D1/32 # B-5 (1 - 7COSPHI )
052077,000446: 11,3221 00017 URPV
052078,000447: 11,3222 74205 DMP VXSC
052079,000448: 11,3223 27735 5/8
052080,000449: 11,3224 02032 ALPHAV # 2 -
052081,000450: 11,3225 65272 VSL5 PDDL # B-5 (5X/R)(1-7COSPHI )UR AT 08D
052082,000451: 11,3226 74225 DSU VXSC
052083,000452: 11,3227 11025 D1/32
052084,000453: 11,3230 00041 32D
052085,000454: 11,3231 53372 VSL1 VAD # 2 - -
052086,000455: 11,3232 41325 PDDL DMP # B-5 (5X/R)(1-7COSPHI )UR +(5COSPHI
052087,000456: 11,3233 00017 URPV # -
052088,000457: 11,3234 00023 URPV +4 # -1)UX AT 08D
052089,000458: 11,3235 74205 DMP VXSC
052090,000459: 11,3236 27735 5/8 # B-5 5X Y
052091,000460: 11,3237 00025 UZ # M M
052092,000461: 11,3240 53352 VSL2 VAD # 2 - 2
052093,000462: 11,3241 60325 PDDL NORM # B-5 (5X/R)(1-7COSPHI )UR +(5COSPHI
052094,000463: 11,3242 02070 ALPHAM # - 2 -
052095,000464: 11,3243 00050 X2 # -1)UX +(10XZ/R )UZ AT 08D
![]() |
In original, the SLOAD and E32C31RM of the below two lines were cirlced in red. - 2017 RRB |
052097,000466: 11,3244 67206 PUSH SLOAD
052098,000467: 11,3245 01351 E32C31RM
052099,000468: 11,3246 74271 DDV VXSC
052100,000469: 11,3247 63257 VSL* PDVL
052101,000470: 11,3250 57601 0 -3,2
![]() |
Page 1228 |
052103,000472: 11,3251 67206 PUSH SLOAD
052104,000473: 11,3252 01350 E3J22R2M
052105,000474: 11,3253 53361 VXSC VAD
052106,000475: 11,3254 70257 VSL* V/SC
052107,000476: 11,3255 20146 0 -27D,1 # B+16 OR B+20 (J + C )
052108,000477: 11,3256 40055 VAD BOV # 22 31
052109,000478: 11,3257 02062 FV
052110,000479: 11,3260 23000 GOBAQUE
052111,000480: 11,3261 02062 STORE FV
052112,000481: 11,3262 77754 LXA,2
052113,000482: 11,3263 02030 PBODY
052114,000483: 11,3264 72135 NBRANCH SLOAD LXA,1
052115,000484: 11,3265 01501 DIFEQCNT
052116,000485: 11,3266 00154 MPAC
052117,000486: 11,3267 73205 DMP CGOTO
052118,000487: 11,3270 27737 -1/12
052119,000488: 11,3271 00155 MPAC
052120,000489: 11,3272 23306 DIFEQTAB
052121,000490: 11,3273 77745 COSPHIE DLOAD
052122,000491: 11,3274 02036 ALPHAV +4
052123,000492: 11,3275 24023 STOVL COSPHI/2
052124,000493: 11,3276 24001 ZUNIT
052125,000494: 11,3277 77650 GOTO
052126,000495: 11,3300 23061 COMTERM
052127,000496: 11,3301 57435 MATRIX VXV VCOMP
052128,000497: 11,3302 02013 504LM # ROUTINE TRANSLATES FROM PLANETARY
052129,000498: 11,3303 77655 VAD # TO INERTIAL COORDINATES
052130,000499: 11,3304 43505 VXM RVQ
052131,000500: 11,3305 00025 MMATRIX
052132,000501: 11,3306 23475 DIFEQTAB CADR DIFEQ+0
052133,000502: 11,3307 23501 CADR DIFEQ+1
052134,000503: 11,3310 23512 CADR DIFEQ+2
052135,000504: 11,3311 77214 TIMESTEP BOF VLOAD
052136,000505: 11,3312 00342 MIDFLAG
052137,000506: 11,3313 23342 RECTEST
052138,000507: 11,3314 01535 RCV
052139,000508: 11,3315 41241 DOT DMP
052140,000509: 11,3316 01543 VCV
052141,000510: 11,3317 02076 DT/2 # (R.V) X (DELTA T)
052142,000511: 11,3320 77640 BMN
052143,000512: 11,3321 23342 RECTEST
052144,000513: 11,3322 43014 BON BOF
052145,000514: 11,3323 00303 MOONFLAG
052146,000515: 11,3324 23417 LUNSPH
052147,000516: 11,3325 04340 RPQFLAG
052148,000517: 11,3326 23414 EARSPH
052149,000518: 11,3327 45145 DLOAD CALL
052150,000519: 11,3330 01517 TET
052151,000520: 11,3331 33647 LSPOS # RPQV IN MPAC
052152,000521: 11,3332 02105 STORE RPQV # RPQV
![]() |
Page 1229 |
052154,000523: 11,3333 77754 LXA,2
052155,000524: 11,3334 02030 PBODY
052156,000525: 11,3335 51445 INLUNCHK BVSU ABVAL
052157,000526: 11,3336 01535 RCV
052158,000527: 11,3337 50025 DSU BMN
052159,000528: 11,3340 27743 RSPHERE
052160,000529: 11,3341 23434 DOSWITCH
052161,000530: 11,3342 51575 RECTEST VLOAD ABVAL # RECTIFY IF
052162,000531: 11,3343 01521 TDELTAV
052163,000532: 11,3344 77600 BOV
052164,000533: 11,3345 23370 CALLRECT
052165,000534: 11,3346 51025 DSU BPL # 1) EITHER TDELTAV OR TNUV EQUALS OR
052166,000535: 11,3347 13762 3/4 # EXCEEDS 3/4 IN MAGNITUDE
052167,000536: 11,3350 23370 CALLRECT
052168,000537: 11,3351 53615 DAD SL* # OR
052169,000538: 11,3352 13762 3/4
052170,000539: 11,3353 57605 0 -7,2 # 2) ABVAL(TDELTAV) EQUALS OR EXCEEDS
052171,000540: 11,3354 45271 DDV DSU # .01(ABVAL(RCV))
052172,000541: 11,3355 00013 10D
052173,000542: 11,3356 27741 RECRATIO
052174,000543: 11,3357 77244 BPL VLOAD
052175,000544: 11,3360 23370 CALLRECT
052176,000545: 11,3361 01527 TNUV
052177,000546: 11,3362 45246 ABVAL DSU
052178,000547: 11,3363 13762 3/4
052179,000548: 11,3364 77600 BOV
052180,000549: 11,3365 23370 CALLRECT
052181,000550: 11,3366 77640 BMN
052182,000551: 11,3367 23372 INTGRATE
052183,000552: 11,3370 77624 CALLRECT CALL
052184,000553: 11,3371 27673 RECTIFY
052185,000554: 11,3372 77775 INTGRATE VLOAD
052186,000555: 11,3373 01527 TNUV
052187,000556: 11,3374 25134 STOVL ZV
052188,000557: 11,3375 01521 TDELTAV
052189,000558: 11,3376 01126 STORE YV
052190,000559: 11,3377 77614 CLEAR
052191,000560: 11,3400 00261 JSWITCH
052192,000561: 11,3401 66375 DIFEQ0 VLOAD SSP
052193,000562: 11,3402 01126 YV
052194,000563: 11,3403 01501 DIFEQCNT
052195,000564: 11,3404 00000 0
052196,000565: 11,3405 16032 STODL ALPHAV
052197,000566: 11,3406 24007 DPZERO
052198,000567: 11,3407 02100 STORE H # START H AT ZERO. GOES 0(DELT/2)DELT.
052199,000568: 11,3410 52014 BON GOTO
052200,000569: 11,3411 00301 JSWITCH
052201,000570: 11,3412 23714 DOW..
052202,000571: 11,3413 22524 ACCOMP
052203,000572: 11,3414 52175 EARSPH VLOAD GOTO
![]() |
Page 1230 |
052205,000574: 11,3415 02105 RPQV
052206,000575: 11,3416 23335 INLUNCHK
052207,000576: 11,3417 60545 LUNSPH DLOAD SR2
052208,000577: 11,3420 00013 10D
052209,000578: 11,3421 50025 DSU BMN
052210,000579: 11,3422 27743 RSPHERE
052211,000580: 11,3423 23342 RECTEST
052212,000581: 11,3424 71214 BOF DLOAD
052213,000582: 11,3425 04340 RPQFLAG
052214,000583: 11,3426 23434 DOSWITCH
052215,000584: 11,3427 01517 TET
052216,000585: 11,3430 77624 CALL
052217,000586: 11,3431 33647 LUNPOS
052218,000587: 11,3432 77676 VCOMP
052219,000588: 11,3433 02105 STORE RPQV
052220,000589: 11,3434 77624 DOSWITCH CALL
052221,000590: 11,3435 23440 ORIGCHNG
052222,000591: 11,3436 77650 GOTO
052223,000592: 11,3437 23372 INTGRATE
052224,000593: 11,3440 45020 ORIGCHNG STQ CALL
052225,000594: 11,3441 02112 ORIGEX
052226,000595: 11,3442 27673 RECTIFY
052227,000596: 11,3443 53775 VLOAD VSL*
052228,000597: 11,3444 01535 RCV
052229,000598: 11,3445 57576 0,2
052230,000599: 11,3446 53651 VSU VSL*
052231,000600: 11,3447 02105 RPQV
052232,000601: 11,3450 57574 2,2
052233,000602: 11,3451 01503 STORE RRECT
052234,000603: 11,3452 01535 STORE RCV
052235,000604: 11,3453 57414 BOF VCOMP
052236,000605: 11,3454 00343 MOONFLAG
052237,000606: 11,3455 23456 +1
052238,000607: 11,3456 53715 PDVL VSL*
052239,000608: 11,3457 01543 VCV
052240,000609: 11,3460 57576 0,2
052241,000610: 11,3461 77651 VSU
052242,000611: 11,3462 77657 VSL*
052243,000612: 11,3463 57574 0 +2,2
052244,000613: 11,3464 01511 STORE VRECT
052245,000614: 11,3465 01543 STORE VCV
052246,000615: 11,3466 67154 LXA,2 SXA,2
052247,000616: 11,3467 02112 ORIGEX
052248,000617: 11,3470 00052 QPRET
052249,000618: 11,3471 52014 BON GOTO
052250,000619: 11,3472 00303 MOONFLAG
052251,000620: 11,3473 26712 CLRMOON
052252,000621: 11,3474 26717 SETMOON
![]() |
Page 1231 |
052254,000623: # THE RECTIFY SUBROUTINE IS CALLED BY THE INTEGRATION PROGRAM AND OCCASIONALLY BY THE MEASUREMENT INCORPORATION
052255,000624: # ROUTINES TO ESTABLISH A NEW CONIC.
052256,000625:
052257,000626: 13,3673 BANK 13
052258,000627: 13,2000 SETLOC ORBITAL2
052259,000628: 13,2000 BANK
052260,000629:
052261,000630: 13,3673 77354 RECTIFY LXA,2 VLOAD
052262,000631: 13,3674 02030 PBODY
052263,000632: 13,3675 01521 TDELTAV
052264,000633: 13,3676 53257 VSL* VAD
052265,000634: 13,3677 57605 0 -7,2
052266,000635: 13,3700 01535 RCV
052267,000636: 13,3701 01503 STORE RRECT
052268,000637: 13,3702 25535 STOVL RCV
052269,000638: 13,3703 01527 TNUV
052270,000639: 13,3704 53257 VSL* VAD
052271,000640: 13,3705 57602 0 -4,2
052272,000641: 13,3706 01543 VCV
052273,000642: 13,3707 01511 MINIRECT STORE VRECT
052274,000643: 13,3710 25543 STOVL VCV
052275,000644: 13,3711 24007 ZEROVEC
052276,000645: 13,3712 01521 STORE TDELTAV
052277,000646: 13,3713 15527 STODL TNUV
052278,000647: 13,3714 24007 ZEROVEC
052279,000648: 13,3715 01551 STORE TC
052280,000649: 13,3716 01553 STORE XKEP
052281,000650: 13,3717 77616 RVQ
052282,000651:
052283,000652: 11,3475 BANK 11
052284,000653: 11,2000 SETLOC ORBITAL
052285,000654: 11,2000 BANK
![]() |
Page 1232 |
052287,000656: # THE THREE DIFEQ ROUTINES - DIFEQ+0, DIFEQ+12, AND DIFEQ+24 - ARE ENTERED TO PROCESS THE CONTRIBUTIONS AT THE
052288,000657: # BEGINNING, MIDDLE, AND END OF THE TIMESTEP, RESPECTIVELY. THE UPDATING IS DONE BY THE NYSTROM METHOD.
052289,000658:
052290,000659: 11,3475 64575 DIFEQ+0 VLOAD VSR3
052291,000660: 11,3476 02062 FV
052292,000661: 11,3477 36046 STCALL PHIV
052293,000662: 11,3500 23655 DIFEQCOM
052294,000663: 11,3501 74575 DIFEQ+1 VLOAD VSR1
052295,000664: 11,3502 02062 FV
052296,000665: 11,3503 53206 PUSH VAD
052297,000666: 11,3504 02046 PHIV
052298,000667: 11,3505 26054 STOVL PSIV
052299,000668: 11,3506 53362 VSR1 VAD
052300,000669: 11,3507 02046 PHIV
052301,000670: 11,3510 36046 STCALL PHIV
052302,000671: 11,3511 23655 DIFEQCOM
052303,000672: 11,3512 57345 DIFEQ+2 DLOAD DMPR
052304,000673: 11,3513 02100 H
052305,000674: 11,3514 13772 DP2/3
052306,000675: 11,3515 74206 PUSH VXSC
052307,000676: 11,3516 02046 PHIV
052308,000677: 11,3517 53372 VSL1 VAD
052309,000678: 11,3520 01134 ZV
052310,000679: 11,3521 53361 VXSC VAD
052311,000680: 11,3522 02100 H
052312,000681: 11,3523 01126 YV
052313,000682: 11,3524 25126 STOVL YV
052314,000683: 11,3525 02062 FV
052315,000684: 11,3526 53322 VSR3 VAD
052316,000685: 11,3527 02054 PSIV
052317,000686: 11,3530 76561 VXSC VSL1
052318,000687: 11,3531 77655 VAD
052319,000688: 11,3532 01134 ZV
052320,000689: 11,3533 01134 STORE ZV
052321,000690: 11,3534 45014 BOFF CALL
052322,000691: 11,3535 00341 JSWITCH
052323,000692: 11,3536 23606 ENDSTATE
052324,000693: 11,3537 11226 GRP2PC
052325,000694: 11,3540 77354 LXA,2 VLOAD
052326,000695: 11,3541 01116 COLREG
052327,000696: 11,3542 01134 ZV
052328,000697: 11,3543 77732 VSL3 # ADJUST W-POSITION FOR STORAGE
052329,000698: 11,3544 12467 STORE W +54D,2
052330,000699: 11,3545 77775 VLOAD
052331,000700: 11,3546 01126 YV
052332,000701: 11,3547 40132 VSL3 BOV
052333,000702: 11,3550 23700 WMATEND
052334,000703: 11,3551 12401 STORE W,2
052335,000704:
052336,000705: 11,3552 77624 CALL
052337,000706: 11,3553 11226 GRP2PC
![]() |
Page 1233 |
052339,000708: 11,3554 66354 LXA,2 SSP
052340,000709: 11,3555 01116 COLREG
052341,000710: 11,3556 00052 S2
052342,000711: 11,3557 00000 0
052343,000712: 11,3560 67114 INCR,2 SXA,2
052344,000713: 11,3561 00006 6
052345,000714: 11,3562 01125 YV
052346,000715: 11,3563 45104 TIX,2 CALL
052347,000716: 11,3564 23651 RELOADSV
052348,000717: 11,3565 11226 GRP2PC
052349,000718: 11,3566 67154 LXA,2 SXA,2
052350,000719: 11,3567 01125 YV
052351,000720: 11,3570 01116 COLREG
052352,000721:
052353,000722: 11,3571 77624 NEXTCOL CALL
052354,000723: 11,3572 11226 GRP2PC
052355,000724: 11,3573 76754 LXA,2 VLOAD*
052356,000725: 11,3574 01116 COLREG
052357,000726: 11,3575 75376 W,2
052358,000727: 11,3576 77722 VSR3 # ADJUST W-POSITION FOR INTEGRATION
052359,000728: 11,3577 01126 STORE YV
052360,000729: 11,3600 76173 VLOAD* AXT,1
052361,000730: 11,3601 75310 W +54D,2
052362,000731: 11,3602 00000 0
052363,000732: 11,3603 77722 VSR3 # ADJUST W-VELOCITY FOR INTEGRATION
052364,000733: 11,3604 35134 STCALL ZV
052365,000734: 11,3605 23401 DIFEQ0
052366,000735:
052367,000736: 11,3606 77200 ENDSTATE BOV VLOAD
052368,000737: 11,3607 23000 GOBAQUE
052369,000738: 11,3610 01134 ZV
052370,000739: 11,3611 25527 STOVL TNUV
052371,000740: 11,3612 01126 YV
052372,000741: 11,3613 01521 STORE TDELTAV
052373,000742: 11,3614 43014 BON BOFF
052374,000743: 11,3615 04715 MIDAVFLG
052375,000744: 11,3616 27631 CKMID2 # CHECK FOR MID2 BEFORE GOING TO TIMEINC
052376,000745: 11,3617 01756 DIM0FLAG
052377,000746: 11,3620 27260 TESTLOOP
052378,000747: 11,3621 77776 EXIT
052379,000748: 11,3622 05353 TC PHASCHNG
052380,000749: 11,3623 04022 OCT 04022 # PHASE 1
052381,000750: 11,3624 05504 TC UPFLAG # PHASE CHANGE HAS OCCURRED BETWEEN
052382,000751: 11,3625 00236 ADRES REINTFLG # INTSTALL AND INTWAKE
052383,000752: 11,3626 06042 TC INTPRET
052384,000753: 11,3627 77731 SSP
052385,000754: 11,3630 00053 QPRET
052386,000755: 11,3631 23636 AMOVED
052387,000756: 11,3632 52014 BON GOTO
052388,000757: 11,3633 01714 VINTFLAG
![]() |
Page 1234 |
052390,000759: 11,3634 26662 ATOPCSM
052391,000760: 11,3635 26735 ATOPLEM
052392,000761: 11,3636 66214 AMOVED SET SSP
052393,000762: 11,3637 00061 JSWITCH
052394,000763: 11,3640 01117 COLREG
052395,000764: 11,3641 77741 DEC -30 B-14
052396,000765: 11,3642 66214 BOFF SSP
052397,000766: 11,3643 01755 D6OR9FLG
052398,000767: 11,3644 23571 NEXTCOL
052399,000768: 11,3645 01117 COLREG
052400,000769: 11,3646 77717 DEC -48 B-14
052401,000770: 11,3647 77650 GOTO
052402,000771: 11,3650 23571 NEXTCOL
052403,000772:
052404,000773: 11,3651 77745 RELOADSV DLOAD # RELOAD TEMPORARY STATE VECTOR
052405,000774: 11,3652 01115 TDEC # FROM PERMANENT IN CASE OF
052406,000775: 11,3653 34041 STCALL TDEC1
052407,000776: 11,3654 27142 INTEGRV2 # BY STARTING AT INTEGRV2.
052408,000777: 11,3655 43345 DIFEQCOM DLOAD DAD # INCREMENT H AND DIFEQCNT.
052409,000778: 11,3656 02076 DT/2
052410,000779: 11,3657 02100 H
052411,000780: 11,3660 66110 INCR,1 SXA,1
052412,000781: 11,3661 77763 DEC -12 B-14
052413,000782: 11,3662 01500 DIFEQCNT # DIFEQCNT SET FOR NEXT ENTRY.
052414,000783: 11,3663 02100 STORE H
052415,000784: 11,3664 74561 VXSC VSR1
052416,000785: 11,3665 02062 FV
052417,000786: 11,3666 74255 VAD VXSC
052418,000787: 11,3667 01134 ZV
052419,000788: 11,3670 02100 H
052420,000789: 11,3671 77655 VAD
052421,000790: 11,3672 01126 YV
052422,000791: 11,3673 02032 STORE ALPHAV
052423,000792: 11,3674 52014 BON GOTO
052424,000793: 11,3675 00301 JSWITCH
052425,000794: 11,3676 23714 DOW..
052426,000795: 11,3677 22504 FBR3
052427,000796:
052428,000797: 11,3700 43014 WMATEND CLEAR CLEAR
052429,000798: 11,3701 01676 DIM0FLAG # DONT INTEGRATE W THIS TIME
052430,000799: 11,3702 01671 ORBWFLAG # INVALIDATE W
052431,000800: 11,3703 77614 CLEAR
052432,000801: 11,3704 02676 RENDWFLG
052433,000802: 11,3705 77414 SET EXIT
052434,000803: 11,3706 01472 STATEFLG # PICK UP STATE VECTOR UPDATE
052435,000804: 11,3707 05567 TC ALARM
052436,000805: 11,3710 00421 OCT 421
052437,000806: 11,3711 06042 TC INTPRET
![]() |
Page 1235 |
052439,000808: 11,3712 77650 GOTO
052440,000809: 11,3713 27260 TESTLOOP # FINISH INTEGRATING STATE VECTOR
052441,000810:
![]() |
Page 1236 |
052443,000812: # ORBITAL ROUTINE FOR EXTRAPOLATION OF THE W MATRIX. IT COMPUTES THE SECOND DERIVATIVE OF EACH COLUMN POSITION
052444,000813: # VECTOR OF THE MATRIX AND CALLS THE NYSTROM INTEGRATION ROUTINES TO SOLVE THE DIFFERENTIAL EQUATIONS. THE PROGRAM
052445,000814: # USES A TABLE OF VEHICLE POSITION VECTORS COMPUTED DURING THE INTEGRATION OF THE VEHICLES POSITION AND VELOCITY.
052446,000815:
052447,000816: 11,3714 70754 DOW.. LXA,2 DLOAD*
052448,000817: 11,3715 02030 PBODY
052449,000818: 11,3716 51770 MUEARTH,2
052450,000819: 11,3717 36072 STCALL BETAM
052451,000820: 11,3720 23742 DOW..1
052452,000821: 11,3721 02062 STORE FV
052453,000822: 11,3722 62014 BOF INCR,1
052454,000823: 11,3723 00342 MIDFLAG
052455,000824: 11,3724 23264 NBRANCH
052456,000825: 11,3725 77771 DEC -6 B-14
052457,000826: 11,3726 70744 LXC,2 DLOAD*
052458,000827: 11,3727 02030 PBODY
052459,000828: 11,3730 51772 MUEARTH -2,2
052460,000829: 11,3731 36072 STCALL BETAM
052461,000830: 11,3732 23742 DOW..1
052462,000831: 11,3733 50414 BON VSR6
052463,000832: 11,3734 00303 MOONFLAG
052464,000833: 11,3735 23736 +1
052465,000834: 11,3736 77655 VAD
052466,000835: 11,3737 02062 FV
052467,000836: 11,3740 36062 STCALL FV
052468,000837: 11,3741 23264 NBRANCH
052469,000838: 11,3742 60575 DOW..1 VLOAD VSR4
052470,000839: 11,3743 02032 ALPHAV
052471,000840: 11,3744 53513 PDVL* UNIT
052472,000841: 11,3745 02132 VECTAB,1
052473,000842: 11,3746 46315 PDVL VPROJ
052474,000843: 11,3747 02032 ALPHAV
052475,000844: 11,3750 52361 VXSC VSU
052476,000845: 11,3751 13762 3/4
052477,000846: 11,3752 60325 PDDL NORM
052478,000847: 11,3753 00045 36D
052479,000848: 11,3754 00052 S2
052480,000849: 11,3755 63406 PUSH DSQ
052481,000850: 11,3756 77605 DMP
052482,000851: 11,3757 65301 NORM PDDL
052483,000852: 11,3760 00043 34D
052484,000853: 11,3761 02072 BETAM
052485,000854: 11,3762 56342 SR1 DDV
052486,000855: 11,3763 77761 VXSC
052487,000856: 11,3764 57154 LXA,2 XAD,2
052488,000857: 11,3765 00051 S2
052489,000858: 11,3766 00051 S2
052490,000859: 11,3767 57074 XAD,2 XAD,2
052491,000860: 11,3770 00051 S2
052492,000861: 11,3771 00042 34D
052493,000862: 11,3772 43457 VSL* RVQ
![]() |
Page 1237 |
052495,000864: 11,3773 57606 0 -8D,2 # ****************************************
052496,000865:
052497,000866: 12,2000 SETLOC ORBITAL1
052498,000867: 12,2000 BANK
052499,000868:
052500,000869: 12,3755 04631 23146 3/5 2DEC .6 B-2
052501,000870: 12,3757 14000 00000 THREE/8 2DEC .375
052502,000871: 12,3761 02314 31463 .3D 2DEC .3 B-2
052503,000872: 12,3763 01400 00000 3/64 2DEC 3 B-6
052504,000873: 12,3765 10000 00000 DP1/4 2DEC .25
052505,000874: 12,3767 12,3765 DQUARTER EQUALS DP1/4
052506,000875: 12,3767 12,3765 POS1/4 EQUALS DP1/4
052507,000876: 12,3767 03000 00000 3/32 2DEC 3 B-5
052508,000877: 12,3771 36000 00000 15/16 2DEC 15. B-4
052509,000878:
052510,000879: 05,3761 BANK 05
052511,000880: 05,2000 SETLOC ORBITAL3
052512,000881: 05,2000 BANK
052513,000882:
052514,000883: 05,3761 30000 00000 3/4 2DEC 3.0 B-2
052515,000884: 05,3763 22525 12525 7/12 2DEC .5833333333
052516,000885: 05,3765 22000 00000 9/16 2DEC 9 B-4
052517,000886: 05,3767 01200 00000 5/128 2DEC 5 B-7
052518,000887: 05,3771 12,2006 DPZERO EQUALS ZEROVEC
052519,000888: 05,3771 25252 25253 DP2/3 2DEC .6666666667
052520,000889: 05,3773 05,3771 2/3 EQUALS DP2/3
052521,000890: 05,3773 00027 OCT27 OCT 27
052522,000891:
052523,000892: 13,3720 BANK 13
052524,000893: 13,2000 SETLOC ORBITAL2
052525,000894: 13,2000 BANK
052526,000895: # IT IS VITAL THAT THE FOLLOWING CONSTANTS NOT BE SHUFFLED
052527,000896: 13,3720 77764 DEC -11 B-14
052528,000897: 13,3721 77775 DEC -2 B-14
052529,000898: 13,3722 77766 DEC -9 B-14
052530,000899: 13,3723 77771 DEC -6 B-14
052531,000900: 13,3724 77775 DEC -2 B-14
052532,000901: 13,3725 77775 DEC -2 B-14
052533,000902: 13,3726 00000 DEC 0 B-14
052534,000903: 13,3727 77763 DEC -12 B-14
052535,000904: 13,3730 77766 DEC -9 B-14
![]() |
Page 1238 |
052537,000906: 13,3731 77773 DEC -4 B-14
052538,000907: 13,3732 77770 ASCALE DEC -7 B-14
052539,000908: 13,3733 77771 DEC -6 B-14
052540,000909: 13,3734 24000 00000 5/8 2DEC 5 B-3
052541,000910: 13,3736 74631 63145 -1/12 2DEC -.1
052542,000911: 13,3740 00243 32703 RECRATIO 2DEC .01
052543,000912: 13,3742 03654 21000 RSPHERE 2DEC 64373.76 E3 B-29
052544,000913: 13,3744 03654 21000 RDM 2DEC 16093.44 E3 B-27
052545,000914: 13,3746 04627 25200 RDE 2DEC 80467.20 E3 B-29
052546,000915:
052547,000916: 13,3750 RATT EQUALS 00
052548,000917: 13,3750 VATT EQUALS 6D
052549,000918: 13,3750 TAT EQUALS 12D
052550,000919: 13,3750 RATT1 EQUALS 14D
052551,000920: 13,3750 VATT1 EQUALS 20D
052552,000921: 13,3750 MU(P) EQUALS 26D
052553,000922: 13,3750 TDEC1 EQUALS 32D
052554,000923: 13,3750 URPV EQUALS 14D
052555,000924: 13,3750 0022 COSPHI/2 EQUALS URPV +4
052556,000925: 13,3750 UZ EQUALS 20D
052557,000926: 13,3750 TVEC EQUALS 26D
052558,000927:
End of include-file ORBITAL_INTEGRATION.agc. Parent file is MAIN.agc