Notations on the program listing read, in part:
GAP: ASSEMBLE REVISION 56 OF AGC PROGRAM ZERLINA BY ZOROASTER 9:12 OCT. 21,1970Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were transcribed from a printout in Don Eyles's personal
collection, scanned by archive.org, and financially sponsored by Linden Sims.
A team of volunteers performed the transcription and proof-reading. The scanned
page images are available at
the Virtual AGC Project website, as well as higher-quality (but much larger)
images at
the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating
"issues" at
the Virtual AGC Project's GitHub Repository. Notations on the program listing read, in part: GAP: ASSEMBLE REVISION 56 OF AGC PROGRAM ZERLINA BY ZOROASTER 9:12 OCT. 21,1970Note that the date is the date of the printout, not the date of the program revision. |
053285,000002: ## Copyright: Public domain.
053286,000003: ## Filename: ORBITAL_INTEGRATION.agc
053287,000004: ## Purpose: A log section of Zerlina 56, the final revision of
053288,000005: ## Don Eyles's offline development program for the variable
053289,000006: ## guidance period servicer. It also includes a new P66 with LPD
053290,000007: ## (Landing Point Designator) capability, based on an idea of John
053291,000008: ## Young's. Neither of these advanced features were actually flown,
053292,000009: ## but Zerlina was also the birthplace of other big improvements to
053293,000010: ## Luminary including the terrain model and new (Luminary 1E)
053294,000011: ## analog display programs. Zerlina was branched off of Luminary 145,
053295,000012: ## and revision 56 includes all changes up to and including Luminary
053296,000013: ## 183. It is therefore quite close to the Apollo 14 program,
053297,000014: ## Luminary 178, where not modified with new features.
053298,000015: ## Reference: pp. 1217-1237
053299,000016: ## Assembler: yaYUL
053300,000017: ## Contact: Ron Burkey <info@sandroid.org>.
053301,000018: ## Website: www.ibiblio.org/apollo/index.html
053302,000019: ## Mod history: 2017-07-28 MAS Created from Luminary 210.
053303,000020: ## 2017-08-23 MAS Updated for Zerlina 56.
053304,000021:
|
|
Page 1217 |
053306,000023: # DELETE
053307,000024: 13,3671 BANK 13
053308,000025: 11,2000 SETLOC ORBITAL
053309,000026: 11,2000 BANK
053310,000027: 11,2366 COUNT* $$/ORBIT
053311,000028: # DELETE
053312,000029: 11,2366 40354 KEPPREP LXA,2 SETPD
053313,000030: 11,2367 02030 PBODY
053314,000031: 11,2370 00001 0
053315,000032: 11,2371 75543 DLOAD* SQRT # SQRT(MU) (+18 OR +15) 0D PL 2D
053316,000033: 11,2372 51770 MUEARTH,2
053317,000034: 11,2373 53515 PDVL UNIT # PL 8D
053318,000035: 11,2374 01535 RCV
053319,000036: 11,2375 60325 PDDL NORM # NORM R (+29 OR +27 - N1) 2D PL 4D
053320,000037: 11,2376 00045 36D
053321,000038: 11,2377 00047 X1
053322,000039: 11,2400 77715 PDVL
053323,000040: 11,2401 65241 DOT PDDL # F*SQRT(MU)(+7 OR+5) 4D PL 6D
053324,000041: 11,2402 01543 VCV
053325,000042: 11,2403 02074 TAU. # (+28)
053326,000043: 11,2404 60225 DSU NORM
053327,000044: 11,2405 01551 TC
053328,000045: 11,2406 00051 S1
053329,000046: 11,2407 77742 SR1
053330,000047: 11,2410 65271 DDV PDDL
053331,000048: 11,2411 00003 2D
053332,000049: 11,2412 41405 DMP PUSH # FS(+6 +N1-N2) 6D PL 8D
053333,000050: 11,2413 00005 4D
053334,000051: 11,2414 65316 DSQ PDDL # (FS)SQ(+12 +2(N1-N2)) 8D PL 10D
053335,000052: 11,2415 00005 4D
053336,000053: 11,2416 64716 DSQ PDDL* # SSQ/MU(-20R +2(N1-N2)) 10D PL 12D
053337,000054: 11,2417 51770 MUEARTH,2
053338,000055: 11,2420 40442 SR3 SR4
053339,000056: 11,2421 47515 PDVL VSQ # PREALIGN MU (+43 OR +37) 12D PL 14D
053340,000057: 11,2422 01543 VCV
053341,000058: 11,2423 44205 DMP BDSU # PL 12D
053342,000059: 11,2424 00045 36D
053343,000060: 11,2425 41271 DDV DMP # PL 10D
053344,000061: 11,2426 00003 2D # -(1/R-ALPHA)(+12 +3N1-2N2)
053345,000062: 11,2427 53605 DMP SL*
053346,000063: 11,2430 11236 DP2/3
053347,000064: 11,2431 20176 0 -3,1 # 10L(1/R-ALPHA)(+13 +2(N1-N2))
053348,000065: 11,2432 43260 XSU,1 DAD # 2(FS)SQ - ETCETRA PL 8D
053349,000066: 11,2433 00050 S1 # X1 = N2-N1
053350,000067: 11,2434 45257 SL* DSU # -FS+2(FS)SQ ETC (+6 +N1-N2) PL 6D
053351,000068: 11,2435 20211 8D,1
053352,000069: 11,2436 41205 DMP DMP
053353,000070: 11,2437 00001 0D
053354,000071: 11,2440 00005 4D
053355,000072: 11,2441 53657 SL* SL*
|
|
Page 1218 |
053357,000074: 11,2442 20211 8D,1
053358,000075: 11,2443 20201 0,1 # S(-FS(1-2FS)-1/6...)(+17 OR +16)
053359,000076: 11,2444 65215 DAD PDDL # PL 6D
053360,000077: 11,2445 01553 XKEP
053361,000078: 11,2446 53605 DMP SL* # S(+17 OR +16)
053362,000079: 11,2447 00001 0D
053363,000080: 11,2450 20202 1,1
053364,000081: 11,2451 43204 BOVB DAD
053365,000082: 11,2452 57735 TCDANZIG
053366,000083: 11,2453 77626 STADR
053367,000084: 11,2454 75656 STORE XKEPNEW
053368,000085: 11,2455 74020 STQ AXC,1
053369,000086: 11,2456 02111 KEPRTN
053370,000087: 11,2457 00012 DEC 10 B-14
053371,000088: 11,2460 74014 BON AXC,1
053372,000089: 11,2461 00303 MOONFLAG
053373,000090: 11,2462 24023 KEPLERN
053374,000091: 11,2463 00002 DEC 2 B-14
053375,000092: 11,2464 77650 GOTO
053376,000093: 11,2465 24023 KEPLERN
053377,000094:
|
|
Page 1219 |
053379,000096: 11,2466 66350 FBR3 LXA,1 SSP
053380,000097: 11,2467 01500 DIFEQCNT
053381,000098: 11,2470 00051 S1
053382,000099: 11,2471 77762 DEC -13 B-14
053383,000100: 11,2472 54345 DLOAD SR
053384,000101: 11,2473 02076 DT/2
053385,000102: 11,2474 20612 9D
053386,000103: 11,2475 61500 TIX,1 ROUND
053387,000104: 11,2476 22477 +1
053388,000105: 11,2477 43206 PUSH DAD
053389,000106: 11,2500 01551 TC
053390,000107: 11,2501 16074 STODL TAU.
053391,000108: 11,2502 77615 DAD
053392,000109: 11,2503 01517 TET
053393,000110: 11,2504 35517 STCALL TET
053394,000111: 11,2505 22366 KEPPREP
053395,000112:
|
|
Page 1220 |
053397,000114: # AGC ROUTINE TO COMPUTE ACCELERATION COMPONENTS.
053398,000115:
053399,000116:
053400,000117: 11,2506 73150 ACCOMP LXA,1 LXA,2
053401,000118: 11,2507 02030 PBODY
053402,000119: 11,2510 02030 PBODY
053403,000120: 11,2511 77775 VLOAD
053404,000121: 11,2512 24007 ZEROVEC
053405,000122: 11,2513 26062 STOVL FV
053406,000123: 11,2514 02032 ALPHAV
053407,000124: 11,2515 53257 VSL* VAD
053408,000125: 11,2516 57605 0 -7,2
053409,000126: 11,2517 01535 RCV
053410,000127: 11,2520 02040 STORE BETAV
053411,000128: 11,2521 65014 BOF XCHX,2
053412,000129: 11,2522 01756 DIM0FLAG
053413,000130: 11,2523 22530 +5
053414,000131: 11,2524 01500 DIFEQCNT
053415,000132: 11,2525 12123 STORE VECTAB,2
053416,000133: 11,2526 77724 XCHX,2
053417,000134: 11,2527 01500 DIFEQCNT
053418,000135: 11,2530 53575 VLOAD UNIT
053419,000136: 11,2531 02032 ALPHAV
053420,000137: 11,2532 16032 STODL ALPHAV
053421,000138: 11,2533 00045 36D
053422,000139: 11,2534 36070 STCALL ALPHAM
053423,000140: 11,2535 22636 GAMCOMP
053424,000141: 11,2536 66175 VLOAD SXA,1
053425,000142: 11,2537 02040 BETAV
053426,000143: 11,2540 00051 S2
053427,000144: 11,2541 16032 STODL ALPHAV
053428,000145: 11,2542 02072 BETAM
053429,000146: 11,2543 02070 STORE ALPHAM
053430,000147: 11,2544 71214 BOF DLOAD
053431,000148: 11,2545 00342 MIDFLAG
053432,000149: 11,2546 23007 OBLATE
053433,000150: 11,2547 01517 TET
053434,000151: 11,2550 77624 CALL
053435,000152: 11,2551 33660 LSPOS
053436,000153: 11,2552 72174 AXT,2 LXA,1
053437,000154: 11,2553 00002 2
053438,000155: 11,2554 00051 S2
053439,000156: 11,2555 77614 BOF
053440,000157: 11,2556 00343 MOONFLAG
053441,000158: 11,2557 22562 +3
053442,000159: 11,2560 77076 VCOMP AXT,2
053443,000160: 11,2561 00000 0
053444,000161: 11,2562 02040 STORE BETAV
053445,000162: 11,2563 26104 STOVL RPQV
053446,000163: 11,2564 00003 2D
|
|
Page 1221 |
053448,000165: 11,2565 02113 STORE RPSV
053449,000166: 11,2566 45335 SLOAD DSU
053450,000167: 11,2567 01011 MODREG
053451,000168: 11,2570 11240 OCT27
053452,000169: 11,2571 43030 BHIZ BOF
053453,000170: 11,2572 22575 +3
053454,000171: 11,2573 01756 DIM0FLAG
053455,000172: 11,2574 22610 GETRPSV
053456,000173: 11,2575 74375 VLOAD VXSC
053457,000174: 11,2576 02032 ALPHAV
053458,000175: 11,2577 02070 ALPHAM
053459,000176: 11,2600 52257 VSR* VSU
053460,000177: 11,2601 57175 1,2
053461,000178: 11,2602 02040 BETAV
053462,000179: 11,2603 77724 XCHX,2
053463,000180: 11,2604 01500 DIFEQCNT
053464,000181: 11,2605 12131 STORE VECTAB +6,2
053465,000182: 11,2606 77724 XCHX,2
053466,000183: 11,2607 01500 DIFEQCNT
053467,000184: 11,2610 62175 GETRPSV VLOAD INCR,1
053468,000185: 11,2611 02104 RPQV
053469,000186: 11,2612 00004 4
053470,000187: 11,2613 43014 CLEAR BOF
053471,000188: 11,2614 04260 RPQFLAG
053472,000189: 11,2615 00343 MOONFLAG
053473,000190: 11,2616 22623 +5
053474,000191: 11,2617 53261 VSR VAD
053475,000192: 11,2620 20612 9D
053476,000193: 11,2621 02113 RPSV
053477,000194: 11,2622 02113 STORE RPSV
053478,000195: 11,2623 77624 CALL
053479,000196: 11,2624 22636 GAMCOMP
053480,000197: 11,2625 62174 AXT,2 INCR,1
053481,000198: 11,2626 00004 4
053482,000199: 11,2627 00004 4
053483,000200: 11,2630 77775 VLOAD
053484,000201: 11,2631 02113 RPSV
053485,000202: 11,2632 36040 STCALL BETAV
053486,000203: 11,2633 22636 GAMCOMP
053487,000204: 11,2634 77650 GOTO
053488,000205: 11,2635 23007 OBLATE
053489,000206: 11,2636 74575 GAMCOMP VLOAD VSR1
053490,000207: 11,2637 02040 BETAV
053491,000208: 11,2640 40236 VSQ SETPD
053492,000209: 11,2641 00001 0
053493,000210: 11,2642 61501 NORM ROUND
053494,000211: 11,2643 00040 31D
053495,000212: 11,2644 60325 PDDL NORM # NORMED B SQUARED TO PD LIST
053496,000213: 11,2645 02070 ALPHAM # NORMALIZE (LESS ONE) LENGTH OF ALPHA
053497,000214: 11,2646 00041 32D # SAVING NORM SCALE FACTOR IN X1
|
|
Page 1222 |
053499,000216: 11,2647 63342 SR1 PDVL
053500,000217: 11,2650 02040 BETAV # C(PDL+2) = ALMOST NORMED ALPHA
053501,000218: 11,2651 77656 UNIT
053502,000219: 11,2652 16040 STODL BETAV
053503,000220: 11,2653 00045 36D
053504,000221: 11,2654 02072 STORE BETAM
053505,000222: 11,2655 55301 NORM BDDV # FORM NORMALIZED QUOTIENT ALPHAM/BETAM
053506,000223: 11,2656 00042 33D
053507,000224: 11,2657 41562 SR1R PUSH # C(PDL+2) = ALMOST NORMALIZED RHO.
053508,000225: 11,2660 77743 DLOAD*
053509,000226: 11,2661 27731 ASCALE,1
053510,000227: 11,2662 00051 STORE S1
053511,000228: 11,2663 57124 XCHX,2 XAD,2
053512,000229: 11,2664 00050 S1
053513,000230: 11,2665 00040 32D
053514,000231: 11,2666 71264 XSU,2 DLOAD
053515,000232: 11,2667 00041 33D
053516,000233: 11,2670 00003 2D
053517,000234: 11,2671 65057 SR* XCHX,2
053518,000235: 11,2672 57177 0 -1,2
053519,000236: 11,2673 00050 S1
053520,000237: 11,2674 74406 PUSH SR1R # RHO/4 TO 4D
053521,000238: 11,2675 50315 PDVL DOT
053522,000239: 11,2676 02032 ALPHAV
053523,000240: 11,2677 02040 BETAV
053524,000241: 11,2700 44372 SL1R BDSU # (RHO/4) - 2(ALPHAV/2.BETAV/2)
053525,000242: 11,2701 57206 PUSH DMPR # TO PDL+6
053526,000243: 11,2702 00005 4
053527,000244: 11,2703 77752 SL1
053528,000245: 11,2704 43206 PUSH DAD
053529,000246: 11,2705 25766 DQUARTER
053530,000247: 11,2706 75406 PUSH SQRT
053531,000248: 11,2707 41475 DMPR PUSH
053532,000249: 11,2710 00013 10D
053533,000250: 11,2711 43352 SL1 DAD
053534,000251: 11,2712 25766 DQUARTER
053535,000252: 11,2713 43325 PDDL DAD # (1/4)+2((Q+1)/4) TO PD+14D
053536,000253: 11,2714 00013 10D
053537,000254: 11,2715 24005 HALFDP
053538,000255: 11,2716 72475 DMPR SL1
053539,000256: 11,2717 00011 8D
053540,000257: 11,2720 56215 DAD DDV
053541,000258: 11,2721 25760 THREE/8
053542,000259: 11,2722 00017 14D
053543,000260: 11,2723 74275 DMPR VXSC
053544,000261: 11,2724 00007 6
053545,000262: 11,2725 02040 BETAV # -
053546,000263: 11,2726 64515 PDVL VSR3 # (G/2)(C(PD+4))B/2 TO PD+16D
053547,000264: 11,2727 02032 ALPHAV
053548,000265: 11,2730 41455 VAD PUSH # A12 + C(PD+16D) TO PD+16D
|
|
Page 1223 |
053550,000267: 11,2731 41345 DLOAD DMP
053551,000268: 11,2732 00001 0
053552,000269: 11,2733 00015 12D # -
053553,000270: 11,2734 61501 NORM ROUND
053554,000271: 11,2735 00037 30D
053555,000272: 11,2736 40665 BDDV DMP*
053556,000273: 11,2737 00003 2
053557,000274: 11,2740 51770 MUEARTH,2
053558,000275: 11,2741 74276 DCOMP VXSC
053559,000276: 11,2742 57124 XCHX,2 XAD,2
053560,000277: 11,2743 00050 S1
053561,000278: 11,2744 00051 S2
053562,000279: 11,2745 55064 XSU,2 XSU,2
053563,000280: 11,2746 00036 30D
053564,000281: 11,2747 00037 31D
053565,000282: 11,2750 53604 BOVB VSR*
053566,000283: 11,2751 57735 TCDANZIG
053567,000284: 11,2752 57177 0 -1,2
053568,000285: 11,2753 53324 XCHX,2 VAD
053569,000286: 11,2754 00050 S1
053570,000287: 11,2755 02062 FV
053571,000288: 11,2756 02062 STORE FV
053572,000289: 11,2757 43400 BOV RVQ # RETURN IF NO OVERFLOW
053573,000290: 11,2760 22761 +1
053574,000291: 11,2761 51575 GOBAQUE VLOAD ABVAL
053575,000292: 11,2762 01521 TDELTAV
053576,000293: 11,2763 77654 BZE
053577,000294: 11,2764 23004 INT-ABRT
053578,000295: 11,2765 54345 DLOAD SR
053579,000296: 11,2766 02100 H
053580,000297: 11,2767 20612 9D
053581,000298: 11,2770 44206 PUSH BDSU
053582,000299: 11,2771 01551 TC
053583,000300: 11,2772 16074 STODL TAU.
053584,000301: 11,2773 01517 TET
053585,000302: 11,2774 45425 DSU STADR
053586,000303: 11,2775 42260 STCALL TET
053587,000304: 11,2776 22366 KEPPREP
053588,000305: 11,2777 77624 CALL
053589,000306: 11,3000 27671 RECTIFY
053590,000307: 11,3001 77614 SETGO
053591,000308: 11,3002 04020 RPQFLAG
053592,000309: 11,3003 27256 TESTLOOP
053593,000310:
053594,000311: 11,3004 77776 INT-ABRT EXIT
053595,000312: 11,3005 05653 TC POODOO
053596,000313: 11,3006 20430 OCT 20430
053597,000314:
|
|
Page 1224 |
053599,000316: # THE OBLATE ROUTINE COMPUTES THE ACCELERATION DUE TO OBLATENESS. IT USES THE UNIT OF THE VEHICLE
053600,000317: # POSITION VECTOR FOUND IN ALPHAV AND THE DISTANCE TO THE CENTER IN ALPHAM. THIS IS ADDED TO THE SUM OF THE
053601,000318: # DISTURBING ACCELERATIONS IN FV AND THE PROPER DIFEQ STAGE IS CALLED VIA X1.
053602,000319: 11,3007 71354 OBLATE LXA,2 DLOAD
053603,000320: 11,3010 02030 PBODY
053604,000321: 11,3011 02070 ALPHAM
053605,000322: 11,3012 44601 SETPD DSU*
053606,000323: 11,3013 00001 0
053607,000324: 11,3014 50032 RDE,2
053608,000325: 11,3015 43044 BPL BOF # GET URPV
053609,000326: 11,3016 23245 NBRANCH
053610,000327: 11,3017 00343 MOONFLAG
053611,000328: 11,3020 23254 COSPHIE
053612,000329: 11,3021 65375 VLOAD PDDL
053613,000330: 11,3022 02032 ALPHAV
053614,000331: 11,3023 01517 TET
053615,000332: 11,3024 45125 PDDL CALL
053616,000333: 11,3025 25756 3/5
053617,000334: 11,3026 51644 R-TO-RP
053618,000335: 11,3027 24017 STOVL URPV # RP/R B-1 IN PLANETARY COORDINATES
053619,000336: 11,3030 24001 ZUNIT
053620,000337: 11,3031 45006 PUSH CALL # ZUNIT B-1 IN PLANETARY COORDL AT 00D
053621,000338: 11,3032 23262 MATRIX
053622,000339: 11,3033 77715 PDVL # UZ B-2 IN INERT COORD AT 00D
053623,000340: 11,3034 24005 XUNIT
053624,000341: 11,3035 45006 PUSH CALL # XUNIT B-1 IN PLANETARY COORD. AT 06D
053625,000342: 11,3036 23262 MATRIX
053626,000343: 11,3037 77772 VSL1
053627,000344: 11,3040 24041 STOVL 32D # UX B-1 IN INERT. COORD AT 32D
053628,000345: 11,3041 77772 VSL1
053629,000346: 11,3042 14025 COMTERM STODL UZ # UZ B-1 IN INERTIAL COORD AT 20D
053630,000347: 11,3043 00023 COSPHI/2 # ' Z-COMPONENT OF URPV
053631,000348: 11,3044 65275 DMPR PDDL # P B-6 , 3COSPHI/64 AT 00D
053632,000349: 11,3045 25770 3/32 # 2
053633,000350: 11,3046 00023 COSPHI/2
053634,000351: 11,3047 57316 DSQ DMPR
053635,000352: 11,3050 25772 15/16 # ' 2
053636,000353: 11,3051 41425 DSU PUSH # P B-5 ,(1/2)(15COSPHI -3) AT 02D
053637,000354: 11,3052 25764 3/64 # 3
053638,000355: 11,3053 41275 DMPR DMP
053639,000356: 11,3054 00023 COSPHI/2
053640,000357: 11,3055 11230 7/12
053641,000358: 11,3056 65372 SL1R PDDL
053642,000359: 11,3057 00001 0D
053643,000360: 11,3060 44275 DMPR BDSU
053644,000361: 11,3061 11236 2/3 # ' ' '
053645,000362: 11,3062 57206 PUSH DMPR # P B-7,(1/3)(7COSPHI P -4P ) AT 04D
053646,000363: 11,3063 00023 COSPHI/2 # 4 3 2
053647,000364: 11,3064 65275 DMPR PDDL
053648,000365: 11,3065 11232 9/16
|
|
Page 1225 |
053650,000367: 11,3066 00003 2D # ' ' '
053651,000368: 11,3067 44275 DMPR BDSU # P B-10,(1/4)(9COSPHI P -5P )
053652,000369: 11,3070 11234 5/128 # 5 4 3
053653,000370: 11,3071 56203 DMP* DDV # '
053654,000371: 11,3072 51764 J4REQ/J3,2 # B- , (J RP/J R)P
053655,000372: 11,3073 02070 ALPHAM # 4 3 5
053656,000373: 11,3074 56615 DAD DMPR*
053657,000374: 11,3075 00005 4D # 2 2 ' '
053658,000375: 11,3076 51760 2J3RE/J2,2 # B ,(2J RP /J2 R )P +(2J RP/J2R)P
053659,000376: 11,3077 43271 DDV DAD # 4 5 3 4
053660,000377: 11,3100 02070 ALPHAM # - 2 ' 2 ' '
053661,000378: 11,3101 00003 2D # (R/R)(J RP P /R + 2J RP P / + J P )
053662,000379: 11,3102 77761 VXSC # 4 5 3 4 2 2 3
053663,000380: 11,3103 02032 ALPHAV # 4 2 ' -
053664,000381: 11,3104 14033 STODL TVEC # B-6,(SUM((J /R )P (COSPHI))UR)
053665,000382: 11,3105 70403 DMP* SR1 # I=2 I I+1
053666,000383: 11,3106 51764 J4REQ/J3,2 # '
053667,000384: 11,3107 43271 DDV DAD # (J RP/J R)P
053668,000385: 11,3110 02070 ALPHAM # 4 3 4
053669,000386: 11,3111 50473 DMPR* SR3 # 2 2 ' '
053670,000387: 11,3112 51760 2J3RE/J2,2 # (2J RP /J R )P +(2J RP/J R)P
053671,000388: 11,3113 43271 DDV DAD # 4 2 4 3 2 3
053672,000389: 11,3114 02070 ALPHAM
053673,000390: 11,3115 76561 VXSC VSL1 # 4 ' -
053674,000391: 11,3116 00025 UZ # B-6 SUM(P(COSPHI))UZ
053675,000392: 11,3117 77645 BVSU # I=2 I
053676,000393: 11,3120 00033 TVEC # 4 I-2 ' -
053677,000394: 11,3121 14033 STODL TVEC # SUM((MU J (RP/R) )(P (COSPHI)UR -
053678,000395: 11,3122 02070 ALPHAM # I=2 I I+2
053679,000396: 11,3123 63501 NORM DSQ # P (COSPHI)UZ)) B-6 AT 20D
053680,000397: 11,3124 00047 X1 # I
053681,000398: 11,3125 60316 DSQ NORM
053682,000399: 11,3126 00051 S1 # 4
053683,000400: 11,3127 54606 PUSH BDDV* # NORMALIZED R AT 00D
053684,000401: 11,3130 51754 J2REQSQ,2
053685,000402: 11,3131 40161 VXSC BOV
053686,000403: 11,3132 00033 TVEC
053687,000404: 11,3133 23134 +1 # B+38 FOR EARTH , B+42 FOR MOON
053688,000405: 11,3134 56070 XAD,1 XAD,1
053689,000406: 11,3135 00046 X1
053690,000407: 11,3136 00046 X1
053691,000408: 11,3137 53670 XAD,1 VSL*
053692,000409: 11,3140 00050 S1
053693,000410: 11,3141 20153 0 -22D,1
053694,000411: 11,3142 40055 VAD BOV
053695,000412: 11,3143 02062 FV
053696,000413: 11,3144 22761 GOBAQUE
053697,000414: 11,3145 16062 STODL FV # B+16 FOR EARTH , B+20 FOR MOON
053698,000415: 11,3146 00017 URPV # B-1 X-COMPONENT OF POSITION IN
053699,000416: 11,3147 41414 BOF PUSH # PLANETORY COORD. AT 02D
|
|
Page 1226 |
053701,000418: 11,3150 00343 MOONFLAG
053702,000419: 11,3151 23245 NBRANCH # 2
053703,000420: 11,3152 65316 DSQ PDDL # B-2 X AT 04D
053704,000421: 11,3153 00021 URPV +2 # B-1 Y-COMPONENT
053705,000422: 11,3154 45316 DSQ DSU
053706,000423: 11,3155 74205 DMP VXSC
053707,000424: 11,3156 27733 5/8 # 2 2 -
053708,000425: 11,3157 02032 ALPHAV # B-6 5(Y -X )UR 2 2 -
053709,000426: 11,3160 65332 VSL3 PDDL # B-3 5(Y -X )UR AT 02D
053710,000427: 11,3161 53361 VXSC VAD
053711,000428: 11,3162 00041 32D # 2 2 - 2 -
053712,000429: 11,3163 47315 PDVL VXV # (5(Y.-X )UR/R ) +(2X/R)UX AT 02D
053713,000430: 11,3164 00041 32D # B-1 UX
053714,000431: 11,3165 00025 UZ # B-2 -UY =(UX * UZ)
053715,000432: 11,3166 74372 VSL1 VXSC # B-3 -(2Y/R)UY
053716,000433: 11,3167 00021 URPV +2 # 2 2 - 2 -
053717,000434: 11,3170 41455 VAD PUSH # B-3 (5(X -Y )UR/R )+(2X/R)UX -(
053718,000435: 11,3171 77745 DLOAD # -
053719,000436: 11,3172 00023 COSPHI/2 # 2Y/R)UY AT 02D
053720,000437: 11,3173 41516 DSQ PUSH # B-2 (Z.COMPONENT) AT 08D
053721,000438: 11,3174 65205 DMP PDDL # 2
053722,000439: 11,3175 27733 5/8 # B-5 5COSPHI/2 AT 08D
053723,000440: 11,3176 43302 SR2 DAD
053724,000441: 11,3177 00011 08D
053725,000442: 11,3200 41221 BDSU DMP # 2
053726,000443: 11,3201 11015 D1/32 # B-5 (1 - 7COSPHI )
053727,000444: 11,3202 00017 URPV
053728,000445: 11,3203 74205 DMP VXSC
053729,000446: 11,3204 27733 5/8
053730,000447: 11,3205 02032 ALPHAV # 2 -
053731,000448: 11,3206 65272 VSL5 PDDL # B-5 (5X/R)(1-7COSPHI )UR AT 08D
053732,000449: 11,3207 74225 DSU VXSC
053733,000450: 11,3210 11015 D1/32
053734,000451: 11,3211 00041 32D
053735,000452: 11,3212 53372 VSL1 VAD # 2 - -
053736,000453: 11,3213 41325 PDDL DMP # B-5 (5X/R)(1-7COSPHI )UR +(5COSPHI
053737,000454: 11,3214 00017 URPV # -
053738,000455: 11,3215 00023 URPV +4 # -1)UX AT 08D
053739,000456: 11,3216 74205 DMP VXSC
053740,000457: 11,3217 27733 5/8 # B-5 5X Y
053741,000458: 11,3220 00025 UZ # M M
053742,000459: 11,3221 53352 VSL2 VAD # 2 - 2
053743,000460: 11,3222 60325 PDDL NORM # B-5 (5X/R)(1-7COSPHI )UR +(5COSPHI
053744,000461: 11,3223 02070 ALPHAM # - 2 -
053745,000462: 11,3224 00050 X2 # -1)UX +(10XZ/R )UZ AT 08D
053746,000463: 11,3225 67206 PUSH SLOAD
053747,000464: 11,3226 01351 E32C31RM
053748,000465: 11,3227 74271 DDV VXSC
053749,000466: 11,3230 63257 VSL* PDVL
053750,000467: 11,3231 57601 0 -3,2
|
|
Page 1227 |
053752,000469: 11,3232 67206 PUSH SLOAD
053753,000470: 11,3233 01350 E3J22R2M
053754,000471: 11,3234 53361 VXSC VAD
053755,000472: 11,3235 70257 VSL* V/SC
053756,000473: 11,3236 20146 0 -27D,1 # B+16 OR B+20 (J + C )
053757,000474: 11,3237 40055 VAD BOV # 22 31
053758,000475: 11,3240 02062 FV
053759,000476: 11,3241 22761 GOBAQUE
053760,000477: 11,3242 02062 STORE FV
053761,000478: 11,3243 77754 LXA,2
053762,000479: 11,3244 02030 PBODY
053763,000480: 11,3245 72135 NBRANCH SLOAD LXA,1
053764,000481: 11,3246 01501 DIFEQCNT
053765,000482: 11,3247 00154 MPAC
053766,000483: 11,3250 73205 DMP CGOTO
053767,000484: 11,3251 27735 -1/12
053768,000485: 11,3252 00155 MPAC
053769,000486: 11,3253 23267 DIFEQTAB
053770,000487: 11,3254 77745 COSPHIE DLOAD
053771,000488: 11,3255 02036 ALPHAV +4
053772,000489: 11,3256 24023 STOVL COSPHI/2
053773,000490: 11,3257 24001 ZUNIT
053774,000491: 11,3260 77650 GOTO
053775,000492: 11,3261 23042 COMTERM
053776,000493: 11,3262 57435 MATRIX VXV VCOMP
053777,000494: 11,3263 02013 504LM # ROUTINE TRANSLATES FROM PLANETARY
053778,000495: 11,3264 77655 VAD # TO INERTIAL COORDINATES
053779,000496: 11,3265 43505 VXM RVQ
053780,000497: 11,3266 00025 MMATRIX
053781,000498: 11,3267 23456 DIFEQTAB CADR DIFEQ+0
053782,000499: 11,3270 23462 CADR DIFEQ+1
053783,000500: 11,3271 23473 CADR DIFEQ+2
053784,000501: 11,3272 77214 TIMESTEP BOF VLOAD
053785,000502: 11,3273 00342 MIDFLAG
053786,000503: 11,3274 23323 RECTEST
053787,000504: 11,3275 01535 RCV
053788,000505: 11,3276 41241 DOT DMP
053789,000506: 11,3277 01543 VCV
053790,000507: 11,3300 02076 DT/2 # (R.V) X (DELTA T)
053791,000508: 11,3301 77640 BMN
053792,000509: 11,3302 23323 RECTEST
053793,000510: 11,3303 43014 BON BOF
053794,000511: 11,3304 00303 MOONFLAG
053795,000512: 11,3305 23400 LUNSPH
053796,000513: 11,3306 04340 RPQFLAG
053797,000514: 11,3307 23375 EARSPH
053798,000515: 11,3310 45145 DLOAD CALL
053799,000516: 11,3311 01517 TET
053800,000517: 11,3312 33660 LSPOS # RPQV IN MPAC
053801,000518: 11,3313 02104 STORE RPQV # RPQV
|
|
Page 1228 |
053803,000520: 11,3314 77754 LXA,2
053804,000521: 11,3315 02030 PBODY
053805,000522: 11,3316 51445 INLUNCHK BVSU ABVAL
053806,000523: 11,3317 01535 RCV
053807,000524: 11,3320 50025 DSU BMN
053808,000525: 11,3321 27741 RSPHERE
053809,000526: 11,3322 23415 DOSWITCH
053810,000527: 11,3323 51575 RECTEST VLOAD ABVAL # RECTIFY IF
053811,000528: 11,3324 01521 TDELTAV
053812,000529: 11,3325 77600 BOV
053813,000530: 11,3326 23351 CALLRECT
053814,000531: 11,3327 51025 DSU BPL # 1) EITHER TDELTAV OR TNUV EQUALS OR
053815,000532: 11,3330 11226 3/4 # EXCEEDS 3/4 IN MAGNITUDE
053816,000533: 11,3331 23351 CALLRECT
053817,000534: 11,3332 53615 DAD SL* # OR
053818,000535: 11,3333 11226 3/4
053819,000536: 11,3334 57605 0 -7,2 # 2) ABVAL(TDELTAV) EQUALS OR EXCEEDS
053820,000537: 11,3335 45271 DDV DSU # .01(ABVAL(RCV))
053821,000538: 11,3336 00013 10D
053822,000539: 11,3337 27737 RECRATIO
053823,000540: 11,3340 77244 BPL VLOAD
053824,000541: 11,3341 23351 CALLRECT
053825,000542: 11,3342 01527 TNUV
053826,000543: 11,3343 45246 ABVAL DSU
053827,000544: 11,3344 11226 3/4
053828,000545: 11,3345 77600 BOV
053829,000546: 11,3346 23351 CALLRECT
053830,000547: 11,3347 77640 BMN
053831,000548: 11,3350 23353 INTGRATE
053832,000549: 11,3351 77624 CALLRECT CALL
053833,000550: 11,3352 27671 RECTIFY
053834,000551: 11,3353 77775 INTGRATE VLOAD
053835,000552: 11,3354 01527 TNUV
053836,000553: 11,3355 25134 STOVL ZV
053837,000554: 11,3356 01521 TDELTAV
053838,000555: 11,3357 01126 STORE YV
053839,000556: 11,3360 77614 CLEAR
053840,000557: 11,3361 00261 JSWITCH
053841,000558: 11,3362 66375 DIFEQ0 VLOAD SSP
053842,000559: 11,3363 01126 YV
053843,000560: 11,3364 01501 DIFEQCNT
053844,000561: 11,3365 00000 0
053845,000562: 11,3366 16032 STODL ALPHAV
053846,000563: 11,3367 24007 DPZERO
053847,000564: 11,3370 02100 STORE H # START H AT ZERO. GOES 0(DELT/2)DELT.
053848,000565: 11,3371 52014 BON GOTO
053849,000566: 11,3372 00301 JSWITCH
053850,000567: 11,3373 23675 DOW..
053851,000568: 11,3374 22506 ACCOMP
053852,000569: 11,3375 52175 EARSPH VLOAD GOTO
|
|
Page 1229 |
053854,000571: 11,3376 02104 RPQV
053855,000572: 11,3377 23316 INLUNCHK
053856,000573: 11,3400 60545 LUNSPH DLOAD SR2
053857,000574: 11,3401 00013 10D
053858,000575: 11,3402 50025 DSU BMN
053859,000576: 11,3403 27741 RSPHERE
053860,000577: 11,3404 23323 RECTEST
053861,000578: 11,3405 71214 BOF DLOAD
053862,000579: 11,3406 04340 RPQFLAG
053863,000580: 11,3407 23415 DOSWITCH
053864,000581: 11,3410 01517 TET
053865,000582: 11,3411 77624 CALL
053866,000583: 11,3412 33660 LUNPOS
053867,000584: 11,3413 77676 VCOMP
053868,000585: 11,3414 02104 STORE RPQV
053869,000586: 11,3415 77624 DOSWITCH CALL
053870,000587: 11,3416 23421 ORIGCHNG
053871,000588: 11,3417 77650 GOTO
053872,000589: 11,3420 23353 INTGRATE
053873,000590: 11,3421 45020 ORIGCHNG STQ CALL
053874,000591: 11,3422 02111 ORIGEX
053875,000592: 11,3423 27671 RECTIFY
053876,000593: 11,3424 53775 VLOAD VSL*
053877,000594: 11,3425 01535 RCV
053878,000595: 11,3426 57576 0,2
053879,000596: 11,3427 53651 VSU VSL*
053880,000597: 11,3430 02104 RPQV
053881,000598: 11,3431 57574 2,2
053882,000599: 11,3432 01503 STORE RRECT
053883,000600: 11,3433 01535 STORE RCV
053884,000601: 11,3434 57414 BOF VCOMP
053885,000602: 11,3435 00343 MOONFLAG
053886,000603: 11,3436 23437 +1
053887,000604: 11,3437 53715 PDVL VSL*
053888,000605: 11,3440 01543 VCV
053889,000606: 11,3441 57576 0,2
053890,000607: 11,3442 77651 VSU
053891,000608: 11,3443 77657 VSL*
053892,000609: 11,3444 57574 0 +2,2
053893,000610: 11,3445 01511 STORE VRECT
053894,000611: 11,3446 01543 STORE VCV
053895,000612: 11,3447 67154 LXA,2 SXA,2
053896,000613: 11,3450 02111 ORIGEX
053897,000614: 11,3451 00052 QPRET
053898,000615: 11,3452 52014 BON GOTO
053899,000616: 11,3453 00303 MOONFLAG
053900,000617: 11,3454 26710 CLRMOON
053901,000618: 11,3455 26715 SETMOON
|
|
Page 1230 |
053903,000620: # THE RECTIFY SUBROUTINE IS CALLED BY THE INTEGRATION PROGRAM AND OCCASIONALLY BY THE MEASUREMENT INCORPORATION
053904,000621: # ROUTINES TO ESTABLISH A NEW CONIC.
053905,000622:
053906,000623: 13,3671 BANK 13
053907,000624: 13,2000 SETLOC ORBITAL2
053908,000625: 13,2000 BANK
053909,000626:
053910,000627: 13,3671 77354 RECTIFY LXA,2 VLOAD
053911,000628: 13,3672 02030 PBODY
053912,000629: 13,3673 01521 TDELTAV
053913,000630: 13,3674 53257 VSL* VAD
053914,000631: 13,3675 57605 0 -7,2
053915,000632: 13,3676 01535 RCV
053916,000633: 13,3677 01503 STORE RRECT
053917,000634: 13,3700 25535 STOVL RCV
053918,000635: 13,3701 01527 TNUV
053919,000636: 13,3702 53257 VSL* VAD
053920,000637: 13,3703 57602 0 -4,2
053921,000638: 13,3704 01543 VCV
053922,000639: 13,3705 01511 MINIRECT STORE VRECT
053923,000640: 13,3706 25543 STOVL VCV
053924,000641: 13,3707 24007 ZEROVEC
053925,000642: 13,3710 01521 STORE TDELTAV
053926,000643: 13,3711 15527 STODL TNUV
053927,000644: 13,3712 24007 ZEROVEC
053928,000645: 13,3713 01551 STORE TC
053929,000646: 13,3714 01553 STORE XKEP
053930,000647: 13,3715 77616 RVQ
053931,000648: 11,3456 BANK 11
053932,000649: 11,2000 SETLOC ORBITAL
053933,000650: 11,2000 BANK
|
|
Page 1231 |
053935,000652: # THE THREE DIFEQ ROUTINES - DIFEQ+0, DIFEQ+12, AND DIFEQ+24 - ARE ENTEREDTO PROCESS THE CONTRIBUTIONS AT THE
053936,000653: # BEGINNING, MIDDLE, AND END OF THE TIMESTEP, RESPECTIVELY. THE UPDATING IS DONE BY THE NYSTROM METHOD.
053937,000654: 11,3456 64575 DIFEQ+0 VLOAD VSR3
053938,000655: 11,3457 02062 FV
053939,000656: 11,3460 36046 STCALL PHIV
053940,000657: 11,3461 23636 DIFEQCOM
053941,000658: 11,3462 74575 DIFEQ+1 VLOAD VSR1
053942,000659: 11,3463 02062 FV
053943,000660: 11,3464 53206 PUSH VAD
053944,000661: 11,3465 02046 PHIV
053945,000662: 11,3466 26054 STOVL PSIV
053946,000663: 11,3467 53362 VSR1 VAD
053947,000664: 11,3470 02046 PHIV
053948,000665: 11,3471 36046 STCALL PHIV
053949,000666: 11,3472 23636 DIFEQCOM
053950,000667: 11,3473 57345 DIFEQ+2 DLOAD DMPR
053951,000668: 11,3474 02100 H
053952,000669: 11,3475 11236 DP2/3
053953,000670: 11,3476 74206 PUSH VXSC
053954,000671: 11,3477 02046 PHIV
053955,000672: 11,3500 53372 VSL1 VAD
053956,000673: 11,3501 01134 ZV
053957,000674: 11,3502 53361 VXSC VAD
053958,000675: 11,3503 02100 H
053959,000676: 11,3504 01126 YV
053960,000677: 11,3505 25126 STOVL YV
053961,000678: 11,3506 02062 FV
053962,000679: 11,3507 53322 VSR3 VAD
053963,000680: 11,3510 02054 PSIV
053964,000681: 11,3511 76561 VXSC VSL1
053965,000682: 11,3512 77655 VAD
053966,000683: 11,3513 01134 ZV
053967,000684: 11,3514 01134 STORE ZV
053968,000685: 11,3515 45014 BOFF CALL
053969,000686: 11,3516 00341 JSWITCH
053970,000687: 11,3517 23567 ENDSTATE
053971,000688: 11,3520 11216 GRP2PC
053972,000689: 11,3521 77354 LXA,2 VLOAD
053973,000690: 11,3522 01116 COLREG
053974,000691: 11,3523 01134 ZV
053975,000692: 11,3524 77732 VSL3 # ADJUST W-POSITION FOR STORAGE
053976,000693: 11,3525 12467 STORE W +54D,2
053977,000694: 11,3526 77775 VLOAD
053978,000695: 11,3527 01126 YV
053979,000696: 11,3530 40132 VSL3 BOV
053980,000697: 11,3531 23661 WMATEND
053981,000698: 11,3532 12401 STORE W,2
053982,000699:
053983,000700: 11,3533 77624 CALL
053984,000701: 11,3534 11216 GRP2PC
|
|
Page 1232 |
053986,000703: 11,3535 66354 LXA,2 SSP
053987,000704: 11,3536 01116 COLREG
053988,000705: 11,3537 00052 S2
053989,000706: 11,3540 00000 0
053990,000707: 11,3541 67114 INCR,2 SXA,2
053991,000708: 11,3542 00006 6
053992,000709: 11,3543 01125 YV
053993,000710: 11,3544 45104 TIX,2 CALL
053994,000711: 11,3545 23632 RELOADSV
053995,000712: 11,3546 11216 GRP2PC
053996,000713: 11,3547 67154 LXA,2 SXA,2
053997,000714: 11,3550 01125 YV
053998,000715: 11,3551 01116 COLREG
053999,000716:
054000,000717: 11,3552 77624 NEXTCOL CALL
054001,000718: 11,3553 11216 GRP2PC
054002,000719: 11,3554 76754 LXA,2 VLOAD*
054003,000720: 11,3555 01116 COLREG
054004,000721: 11,3556 75376 W,2
054005,000722: 11,3557 77722 VSR3 # ADJUST W-POSITION FOR INTEGRATION
054006,000723: 11,3560 01126 STORE YV
054007,000724: 11,3561 76173 VLOAD* AXT,1
054008,000725: 11,3562 75310 W +54D,2
054009,000726: 11,3563 00000 0
054010,000727: 11,3564 77722 VSR3 # ADJUST W-VELOCITY FOR INTEGRATION
054011,000728: 11,3565 35134 STCALL ZV
054012,000729: 11,3566 23362 DIFEQ0
054013,000730:
054014,000731: 11,3567 77200 ENDSTATE BOV VLOAD
054015,000732: 11,3570 22761 GOBAQUE
054016,000733: 11,3571 01134 ZV
054017,000734: 11,3572 25527 STOVL TNUV
054018,000735: 11,3573 01126 YV
054019,000736: 11,3574 01521 STORE TDELTAV
054020,000737: 11,3575 43014 BON BOFF
054021,000738: 11,3576 04715 MIDAVFLG
054022,000739: 11,3577 27627 CKMID2 # CHECK FOR MID2 BEFORE GOING TO TIMEINC
054023,000740: 11,3600 01756 DIM0FLAG
054024,000741: 11,3601 27256 TESTLOOP
054025,000742: 11,3602 77776 EXIT
054026,000743: 11,3603 05364 TC PHASCHNG
054027,000744: 11,3604 04022 OCT 04022 # PHASE 1
054028,000745: 11,3605 05515 TC UPFLAG # PHASE CHANGE HAS OCCURRED BETWEEN
054029,000746: 11,3606 00236 ADRES REINTFLG # INTSTALL AND INTWAKE
054030,000747: 11,3607 06051 TC INTPRET
054031,000748: 11,3610 77731 SSP
054032,000749: 11,3611 00053 QPRET
054033,000750: 11,3612 23617 AMOVED
054034,000751: 11,3613 52014 BON GOTO
054035,000752: 11,3614 01714 VINTFLAG
|
|
Page 1233 |
054037,000754: 11,3615 26660 ATOPCSM
054038,000755: 11,3616 26733 ATOPLEM
054039,000756: 11,3617 66214 AMOVED SET SSP
054040,000757: 11,3620 00061 JSWITCH
054041,000758: 11,3621 01117 COLREG
054042,000759: 11,3622 77741 DEC -30 B-14
054043,000760: 11,3623 66214 BOFF SSP
054044,000761: 11,3624 01755 D6OR9FLG
054045,000762: 11,3625 23552 NEXTCOL
054046,000763: 11,3626 01117 COLREG
054047,000764: 11,3627 77717 DEC -48 B-14
054048,000765: 11,3630 77650 GOTO
054049,000766: 11,3631 23552 NEXTCOL
054050,000767:
054051,000768:
054052,000769: 11,3632 77745 RELOADSV DLOAD # RELOAD TEMPORARY STATE VECTOR
054053,000770: 11,3633 01115 TDEC # FROM PERMANENT IN CASE OF
054054,000771: 11,3634 34041 STCALL TDEC1
054055,000772: 11,3635 27140 INTEGRV2 # BY STARTING AT INTEGRV2.
054056,000773: 11,3636 43345 DIFEQCOM DLOAD DAD # INCREMENT H AND DIFEQCNT.
054057,000774: 11,3637 02076 DT/2
054058,000775: 11,3640 02100 H
054059,000776: 11,3641 66110 INCR,1 SXA,1
054060,000777: 11,3642 77763 DEC -12 B-14
054061,000778: 11,3643 01500 DIFEQCNT # DIFEQCNT SET FOR NEXT ENTRY.
054062,000779: 11,3644 02100 STORE H
054063,000780: 11,3645 74561 VXSC VSR1
054064,000781: 11,3646 02062 FV
054065,000782: 11,3647 74255 VAD VXSC
054066,000783: 11,3650 01134 ZV
054067,000784: 11,3651 02100 H
054068,000785: 11,3652 77655 VAD
054069,000786: 11,3653 01126 YV
054070,000787: 11,3654 02032 STORE ALPHAV
054071,000788: 11,3655 52014 BON GOTO
054072,000789: 11,3656 00301 JSWITCH
054073,000790: 11,3657 23675 DOW..
054074,000791: 11,3660 22466 FBR3
054075,000792:
054076,000793:
054077,000794: 11,3661 43014 WMATEND CLEAR CLEAR
054078,000795: 11,3662 01676 DIM0FLAG # DONT INTEGRATE W THIS TIME
054079,000796: 11,3663 01671 ORBWFLAG # INVALIDATE W
054080,000797: 11,3664 77614 CLEAR
054081,000798: 11,3665 02676 RENDWFLG
054082,000799: 11,3666 77414 SET EXIT
054083,000800: 11,3667 01472 STATEFLG # PICK UP STATE VECTOR UPDATE
054084,000801: 11,3670 05600 TC ALARM
054085,000802: 11,3671 00421 OCT 421
054086,000803: 11,3672 06051 TC INTPRET
|
|
Page 1234 |
054088,000805: 11,3673 77650 GOTO
054089,000806: 11,3674 27256 TESTLOOP # FINISH INTEGRATING STATE VECTOR
054090,000807:
|
|
Page 1235 |
054092,000809: # ORBITAL ROUTINE FOR EXTRAPOLATION OF THE W MATRIX. IT COMPUTES THE SECOND DERIVATIVE OF EACH COLUMN POSITION
054093,000810: # VECTOR OF THE MATRIX AND CALLS THE NYSTROM INTEGRATION ROUTINES TO SOLVETHE DIFFERENTIAL EQUATIONS. THE PROGRAM
054094,000811: # USES A TABLE OF VEHICLE POSITION VECTORS COMPUTED DURING THE INTEGRATION OF THE VEHICLES POSITION AND VELOCITY.
054095,000812: 11,3675 70754 DOW.. LXA,2 DLOAD*
054096,000813: 11,3676 02030 PBODY
054097,000814: 11,3677 51770 MUEARTH,2
054098,000815: 11,3700 36072 STCALL BETAM
054099,000816: 11,3701 23723 DOW..1
054100,000817: 11,3702 02062 STORE FV
054101,000818: 11,3703 62014 BOF INCR,1
054102,000819: 11,3704 00342 MIDFLAG
054103,000820: 11,3705 23245 NBRANCH
054104,000821: 11,3706 77771 DEC -6 B-14
054105,000822: 11,3707 70744 LXC,2 DLOAD*
054106,000823: 11,3710 02030 PBODY
054107,000824: 11,3711 51772 MUEARTH -2,2
054108,000825: 11,3712 36072 STCALL BETAM
054109,000826: 11,3713 23723 DOW..1
054110,000827: 11,3714 50414 BON VSR6
054111,000828: 11,3715 00303 MOONFLAG
054112,000829: 11,3716 23717 +1
054113,000830: 11,3717 77655 VAD
054114,000831: 11,3720 02062 FV
054115,000832: 11,3721 36062 STCALL FV
054116,000833: 11,3722 23245 NBRANCH
054117,000834: 11,3723 60575 DOW..1 VLOAD VSR4
054118,000835: 11,3724 02032 ALPHAV
054119,000836: 11,3725 53513 PDVL* UNIT
054120,000837: 11,3726 02123 VECTAB,1
054121,000838: 11,3727 46315 PDVL VPROJ
054122,000839: 11,3730 02032 ALPHAV
054123,000840: 11,3731 52361 VXSC VSU
054124,000841: 11,3732 11226 3/4
054125,000842: 11,3733 60325 PDDL NORM
054126,000843: 11,3734 00045 36D
054127,000844: 11,3735 00052 S2
054128,000845: 11,3736 63406 PUSH DSQ
054129,000846: 11,3737 77605 DMP
054130,000847: 11,3740 65301 NORM PDDL
054131,000848: 11,3741 00043 34D
054132,000849: 11,3742 02072 BETAM
054133,000850: 11,3743 56342 SR1 DDV
054134,000851: 11,3744 77761 VXSC
054135,000852: 11,3745 57154 LXA,2 XAD,2
054136,000853: 11,3746 00051 S2
054137,000854: 11,3747 00051 S2
054138,000855: 11,3750 57074 XAD,2 XAD,2
054139,000856: 11,3751 00051 S2
054140,000857: 11,3752 00042 34D
054141,000858: 11,3753 43457 VSL* RVQ
|
|
Page 1236 |
054143,000860: 11,3754 57606 0 -8D,2 # ****************************************
054144,000861: 12,2000 SETLOC ORBITAL1
054145,000862: 12,2000 BANK
054146,000863:
054147,000864: 12,3755 04631 23146 3/5 2DEC .6 B-2
054148,000865:
054149,000866: 12,3757 14000 00000 THREE/8 2DEC .375
054150,000867:
054151,000868: 12,3761 02314 31463 .3D 2DEC .3 B-2
054152,000869:
054153,000870: 12,3763 01400 00000 3/64 2DEC 3 B-6
054154,000871:
054155,000872: 12,3765 10000 00000 DP1/4 2DEC .25
054156,000873:
054157,000874: 12,3767 12,3765 DQUARTER EQUALS DP1/4
054158,000875: 12,3767 12,3765 POS1/4 EQUALS DP1/4
054159,000876: 12,3767 03000 00000 3/32 2DEC 3 B-5
054160,000877:
054161,000878: 12,3771 36000 00000 15/16 2DEC 15. B-4
054162,000879:
054163,000880: 05,3776 BANK 05
054164,000881: 04,2000 SETLOC ORBITAL3
054165,000882: 04,2000 BANK
054166,000883:
054167,000884: 04,3225 30000 00000 3/4 2DEC 3.0 B-2
054168,000885:
054169,000886: 04,3227 22525 12525 7/12 2DEC .5833333333
054170,000887:
054171,000888: 04,3231 22000 00000 9/16 2DEC 9 B-4
054172,000889:
054173,000890: 04,3233 01200 00000 5/128 2DEC 5 B-7
054174,000891:
054175,000892: 04,3235 12,2006 DPZERO EQUALS ZEROVEC
054176,000893: 04,3235 25252 25253 DP2/3 2DEC .6666666667
054177,000894:
054178,000895: 04,3237 04,3235 2/3 EQUALS DP2/3
054179,000896: 04,3237 00027 OCT27 OCT 27
054180,000897: 13,3716 BANK 13
054181,000898: 13,2000 SETLOC ORBITAL2
054182,000899: 13,2000 BANK
054183,000900: # IT IS VITAL THAT THE FOLLOWING CONSTANTS NOT BE SHUFFLED
054184,000901: 13,3716 77764 DEC -11 B-14
054185,000902: 13,3717 77775 DEC -2 B-14
054186,000903: 13,3720 77766 DEC -9 B-14
054187,000904: 13,3721 77771 DEC -6 B-14
054188,000905: 13,3722 77775 DEC -2 B-14
054189,000906: 13,3723 77775 DEC -2 B-14
054190,000907: 13,3724 00000 DEC 0 B-14
054191,000908: 13,3725 77763 DEC -12 B-14
054192,000909: 13,3726 77766 DEC -9 B-14
|
|
Page 1237 |
054194,000911: 13,3727 77773 DEC -4 B-14
054195,000912: 13,3730 77770 ASCALE DEC -7 B-14
054196,000913: 13,3731 77771 DEC -6 B-14
054197,000914: 13,3732 24000 00000 5/8 2DEC 5 B-3
054198,000915:
054199,000916: 13,3734 74631 63145 -1/12 2DEC -.1
054200,000917:
054201,000918: 13,3736 00243 32703 RECRATIO 2DEC .01
054202,000919:
054203,000920: 13,3740 03654 21000 RSPHERE 2DEC 64373.76 E3 B-29
054204,000921:
054205,000922: 13,3742 03654 21000 RDM 2DEC 16093.44 E3 B-27
054206,000923:
054207,000924: 13,3744 04627 25200 RDE 2DEC 80467.20 E3 B-29
054208,000925:
054209,000926: 13,3746 RATT EQUALS 00
054210,000927: 13,3746 VATT EQUALS 6D
054211,000928: 13,3746 TAT EQUALS 12D
054212,000929: 13,3746 RATT1 EQUALS 14D
054213,000930: 13,3746 VATT1 EQUALS 20D
054214,000931: 13,3746 MU(P) EQUALS 26D
054215,000932: 13,3746 TDEC1 EQUALS 32D
054216,000933: 13,3746 URPV EQUALS 14D
054217,000934: 13,3746 0022 COSPHI/2 EQUALS URPV +4
054218,000935: 13,3746 UZ EQUALS 20D
054219,000936: 13,3746 TVEC EQUALS 26D
End of include-file ORBITAL_INTEGRATION.agc. Parent file is MAIN.agc