Source Code
|
These source-code files are part of a reconstructed copy of LUM69 Revision 2, the
flown Apollo 10 Lunar Module (LM) Apollo Guidance Computer (AGC) software.
The reconstruction began with source code of Luminary 69 revision 0 previously
transcribed from a digitized copy of that program. The code was then updated
by back-porting the R-2 lunar potential model from previously-transcribed source
code of Luminary 99. These required changes were described in the original
Luminary memos 75 and 78. The reconstructed code was verified by
matching memory-bank checksums to those listed in drawing 2021152G. Note that
page numbers in the reconstructed code match those on the Luminary 069 printout,
although the added code would likely have changed page numbers for a real LUM69
Revision 2 listing.
Comments from the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". Report any errors
noted by creating an
issue report at the Virtual AGC
project's GitHub repository.
|
052622,000002: ## Copyright: Public domain.
052623,000003: ## Filename: ORBITAL_INTEGRATION.agc
052624,000004: ## Purpose: A section of LUM69 revision 2.
052625,000005: ## It is part of the reconstructed source code for the flown
052626,000006: ## version of the flight software for the Lunar Module's (LM)
052627,000007: ## Apollo Guidance Computer (AGC) for Apollo 10. The code has
052628,000008: ## been recreated from a copy of Luminary revsion 069, using
052629,000009: ## changes present in Luminary 099 which were described in
052630,000010: ## Luminary memos 75 and 78. The code has been adapted such
052631,000011: ## that the resulting bugger words exactly match those specified
052632,000012: ## for LUM69 revision 2 in NASA drawing 2021152B, which gives
052633,000013: ## relatively high confidence that the reconstruction is correct.
052634,000014: ## Reference: pp. 1223-1243
052635,000015: ## Assembler: yaYUL
052636,000016: ## Contact: Ron Burkey <info@sandroid.org>.
052637,000017: ## Website: www.ibiblio.org/apollo/index.html
052638,000018: ## Mod history: 2019-07-27 MAS Created from Luminary 69.
052639,000019: ## 2019-07-27 MAS Backported R-2 lunar potential model code from
052640,000020: ## Luminary 099, and positioned it such that the
052641,000021: ## resulting banksums are correct.
052642,000022:
|
|
Page 1223
|
052644,000024: # DELETE
052645,000025: 13,3721 BANK 13
052646,000026: 11,2000 SETLOC ORBITAL
052647,000027: 11,2000 BANK
052648,000028: 11,2311 COUNT* $$/ORBIT
052649,000029:
052650,000030: # DELETE
052651,000031: 11,2311 40354 KEPPREP LXA,2 SETPD
052652,000032: 11,2312 02030 PBODY
052653,000033: 11,2313 00001 0
052654,000034: 11,2314 75543 DLOAD* SQRT # SQRT(MU) (+18 OR +15) 0D PL 2D
052655,000035: 11,2315 51770 MUEARTH,2
052656,000036: 11,2316 53515 PDVL UNIT # PL 8D
052657,000037: 11,2317 01535 RCV
052658,000038: 11,2320 60325 PDDL NORM # NORM R (+29 OR +27 - N1) 2D PL 4D
052659,000039: 11,2321 00045 36D
052660,000040: 11,2322 00047 X1
052661,000041: 11,2323 77715 PDVL
052662,000042: 11,2324 65241 DOT PDDL # F*SQRT(MU)(+7 OR +5) 4D PL 6D
052663,000043: 11,2325 01543 VCV
052664,000044: 11,2326 02074 TAU. # (+28)
052665,000045: 11,2327 60225 DSU NORM
052666,000046: 11,2330 01551 TC
052667,000047: 11,2331 00051 S1
052668,000048: 11,2332 77742 SR1
052669,000049: 11,2333 65271 DDV PDDL
052670,000050: 11,2334 00003 2D
052671,000051: 11,2335 41405 DMP PUSH # FS(+6 +N1-N2) 6D PL 8D
052672,000052: 11,2336 00005 4D
052673,000053: 11,2337 65316 DSQ PDDL # (FS)SQ (+12 +2(N1-N2)) 8D PL 10D
052674,000054: 11,2340 00005 4D
052675,000055: 11,2341 64716 DSQ PDDL* # SSQ/MU (-2 OR +2(N1-N2)) 10D PL 12D
052676,000056: 11,2342 51770 MUEARTH,2
052677,000057: 11,2343 40442 SR3 SR4
052678,000058: 11,2344 47515 PDVL VSQ # PREALIGN MU (+43 OR +37) 12D PL 14D
052679,000059: 11,2345 01543 VCV
052680,000060: 11,2346 44205 DMP BDSU # PL 12D
052681,000061: 11,2347 00045 36D
052682,000062: 11,2350 41271 DDV DMP # PL 10D
052683,000063: 11,2351 00003 2D # -(1/R-ALPHA) (+12 +3N1-2N2)
052684,000064: 11,2352 53605 DMP SL*
052685,000065: 11,2353 23720 DP2/3
052686,000066: 11,2354 20176 0 -3,1 # 10L(1/R-ALPHA) (+13 +2(N1-N2))
052687,000067: 11,2355 43260 XSU,1 DAD # 2(FS)SQ - ETCETRA PL 8D
052688,000068: 11,2356 00050 S1 # X1 = N2-N1
052689,000069: 11,2357 45257 SL* DSU # -FS+2(FS)SQ ETC (+6 +N1-N2) PL 6D
052690,000070: 11,2360 20211 8D,1
052691,000071: 11,2361 41205 DMP DMP
052692,000072: 11,2362 00001 0D
052693,000073: 11,2363 00005 4D
052694,000074: 11,2364 53657 SL* SL*
|
|
Page 1224
|
052696,000076: 11,2365 20211 8D,1
052697,000077: 11,2366 20201 0,1 # S(-FS(1-2FS)-1/6...) (+17 OR +16)
052698,000078: 11,2367 65215 DAD PDDL # PL 6D
052699,000079: 11,2370 01553 XKEP
052700,000080: 11,2371 53605 DMP SL* # S(+17 OR +16)
052701,000081: 11,2372 00001 0D
052702,000082: 11,2373 20202 1,1
052703,000083: 11,2374 43204 BOVB DAD
052704,000084: 11,2375 57725 TCDANZIG
052705,000085: 11,2376 77626 STADR
052706,000086: 11,2377 75647 STORE XKEPNEW
052707,000087: 11,2400 74020 STQ AXC,1
052708,000088: 11,2401 02112 KEPRTN
052709,000089: 11,2402 00012 DEC 10 B-14
052710,000090: 11,2403 74014 BON AXC,1
052711,000091: 11,2404 00303 MOONFLAG
052712,000092: 11,2405 24000 KEPLERN
052713,000093: 11,2406 00002 DEC 2 B-14
052714,000094: 11,2407 77650 GOTO
052715,000095: 11,2410 24000 KEPLERN
052716,000096:
|
|
Page 1225
|
052718,000098: 11,2411 66350 FBR3 LXA,1 SSP
052719,000099: 11,2412 01500 DIFEQCNT
052720,000100: 11,2413 00051 S1
052721,000101: 11,2414 77762 DEC -13 B-14
052722,000102: 11,2415 54345 DLOAD SR
052723,000103: 11,2416 02076 DT/2
052724,000104: 11,2417 20612 9D
052725,000105: 11,2420 61500 TIX,1 ROUND
052726,000106: 11,2421 22422 +1
052727,000107: 11,2422 43206 PUSH DAD
052728,000108: 11,2423 01551 TC
052729,000109: 11,2424 16074 STODL TAU.
052730,000110: 11,2425 77615 DAD
052731,000111: 11,2426 01517 TET
052732,000112: 11,2427 35517 STCALL TET
052733,000113: 11,2430 22311 KEPPREP
052734,000114:
|
|
Page 1226
|
052736,000116: # AGC ROUTINE TO COMPUTE ACCELERATION COMPONENTS.
052737,000117:
052738,000118: 11,2431 73150 ACCOMP LXA,1 LXA,2
052739,000119: 11,2432 02030 PBODY
052740,000120: 11,2433 02030 PBODY
052741,000121: 11,2434 77775 VLOAD
052742,000122: 11,2435 22275 ZEROVEC
052743,000123: 11,2436 26062 STOVL FV
052744,000124: 11,2437 02032 ALPHAV
052745,000125: 11,2440 53257 VSL* VAD
052746,000126: 11,2441 57605 0 -7,2
052747,000127: 11,2442 01535 RCV
052748,000128: 11,2443 02040 STORE BETAV
052749,000129: 11,2444 65014 BOF XCHX,2
052750,000130: 11,2445 01756 DIM0FLAG
052751,000131: 11,2446 22453 +5
052752,000132: 11,2447 01500 DIFEQCNT
052753,000133: 11,2450 12132 STORE VECTAB,2
052754,000134: 11,2451 77724 XCHX,2
052755,000135: 11,2452 01500 DIFEQCNT
052756,000136: 11,2453 53575 VLOAD UNIT
052757,000137: 11,2454 02032 ALPHAV
052758,000138: 11,2455 16032 STODL ALPHAV
052759,000139: 11,2456 00045 36D
052760,000140: 11,2457 02070 STORE ALPHAM
052761,000141: 11,2460 77624 CALL
052762,000142: 11,2461 22563 GAMCOMP
052763,000143: 11,2462 66175 VLOAD SXA,1
052764,000144: 11,2463 02040 BETAV
052765,000145: 11,2464 00051 S2
052766,000146: 11,2465 16032 STODL ALPHAV
052767,000147: 11,2466 02072 BETAM
052768,000148: 11,2467 02070 STORE ALPHAM
052769,000149: 11,2470 71214 BOF DLOAD
052770,000150: 11,2471 00342 MIDFLAG
052771,000151: 11,2472 22726 OBLATE
052772,000152: 11,2473 01517 TET
052773,000153: 11,2474 77624 CALL
052774,000154: 11,2475 33663 LSPOS
052775,000155: 11,2476 72174 AXT,2 LXA,1
052776,000156: 11,2477 00002 2
052777,000157: 11,2500 00051 S2
052778,000158: 11,2501 77614 BOF
052779,000159: 11,2502 00343 MOONFLAG
052780,000160: 11,2503 22506 +3
052781,000161: 11,2504 77076 VCOMP AXT,2
052782,000162: 11,2505 00000 0
052783,000163: 11,2506 02040 STORE BETAV
052784,000164: 11,2507 26105 STOVL RPQV
|
|
Page 1227
|
052786,000166: 11,2510 00003 2D
052787,000167: 11,2511 02122 STORE RPSV
052788,000168: 11,2512 45335 SLOAD DSU
052789,000169: 11,2513 01012 MODREG
052790,000170: 11,2514 23722 OCT27
052791,000171: 11,2515 43030 BHIZ BOF
052792,000172: 11,2516 22521 +3
052793,000173: 11,2517 01756 DIM0FLAG
052794,000174: 11,2520 22535 GETRPSV
052795,000175: 11,2521 74375 VLOAD VXSC
052796,000176: 11,2522 02032 ALPHAV
052797,000177: 11,2523 02070 ALPHAM
052798,000178: 11,2524 52257 VSR* VSU
052799,000179: 11,2525 57175 1,2
052800,000180: 11,2526 02040 BETAV
052801,000181: 11,2527 77724 XCHX,2
052802,000182: 11,2530 01500 DIFEQCNT
052803,000183: 11,2531 12140 STORE VECTAB +6,2
052804,000184: 11,2532 02114 STORE RQVV
052805,000185: 11,2533 77724 XCHX,2
052806,000186: 11,2534 01500 DIFEQCNT
052807,000187: 11,2535 62175 GETRPSV VLOAD INCR,1
052808,000188: 11,2536 02105 RPQV
052809,000189: 11,2537 00004 4
052810,000190: 11,2540 43014 CLEAR BOF
052811,000191: 11,2541 04260 RPQFLAG
052812,000192: 11,2542 00343 MOONFLAG
052813,000193: 11,2543 22550 +5
052814,000194: 11,2544 53261 VSR VAD
052815,000195: 11,2545 20612 9D
052816,000196: 11,2546 02122 RPSV
052817,000197: 11,2547 02122 STORE RPSV
052818,000198: 11,2550 77624 CALL
052819,000199: 11,2551 22563 GAMCOMP
052820,000200: 11,2552 62174 AXT,2 INCR,1
052821,000201: 11,2553 00004 4
052822,000202: 11,2554 00004 4
052823,000203: 11,2555 77775 VLOAD
052824,000204: 11,2556 02122 RPSV
052825,000205: 11,2557 36040 STCALL BETAV
052826,000206: 11,2560 22563 GAMCOMP
052827,000207: 11,2561 77650 GOTO
052828,000208: 11,2562 22726 OBLATE
052829,000209: 11,2563 74575 GAMCOMP VLOAD VSR1
052830,000210: 11,2564 02040 BETAV
052831,000211: 11,2565 40236 VSQ SETPD
052832,000212: 11,2566 00001 0
052833,000213: 11,2567 61501 NORM ROUND
052834,000214: 11,2570 00040 31D
052835,000215: 11,2571 60325 PDDL NORM # NORMED B SQUARED TO PD LIST
|
|
Page 1228
|
052837,000217: 11,2572 02070 ALPHAM # NORMALIZE (LESS ONE) LENGTH OF ALPHA
052838,000218: 11,2573 00041 32D # SAVING NORM SCALE FACTOR IN X1
052839,000219: 11,2574 63342 SR1 PDVL
052840,000220: 11,2575 02040 BETAV # C(PDL+2) = ALMOST NORMED ALPHA
052841,000221: 11,2576 77656 UNIT
052842,000222: 11,2577 16040 STODL BETAV
052843,000223: 11,2600 00045 36D
052844,000224: 11,2601 02072 STORE BETAM
052845,000225: 11,2602 55301 NORM BDDV # FORM NORMALIZED QUOTIENT ALPHAM/BETAM
052846,000226: 11,2603 00042 33D
052847,000227: 11,2604 41562 SR1R PUSH # C(PDL+2) = ALMOST NORMALIZED RHO.
052848,000228: 11,2605 77743 DLOAD*
052849,000229: 11,2606 27734 ASCALE,1
052850,000230: 11,2607 00051 STORE S1
052851,000231: 11,2610 57124 XCHX,2 XAD,2
052852,000232: 11,2611 00050 S1
052853,000233: 11,2612 00040 32D
052854,000234: 11,2613 71264 XSU,2 DLOAD
052855,000235: 11,2614 00041 33D
052856,000236: 11,2615 00003 2D
052857,000237: 11,2616 65057 SR* XCHX,2
052858,000238: 11,2617 57177 0 -1,2
052859,000239: 11,2620 00050 S1
052860,000240: 11,2621 74406 PUSH SR1R # RHO/4 TO 4D
052861,000241: 11,2622 50315 PDVL DOT
052862,000242: 11,2623 02032 ALPHAV
052863,000243: 11,2624 02040 BETAV
052864,000244: 11,2625 44372 SL1R BDSU # (RHO/4) - 2(ALPHAV/2.BETAV/2)
052865,000245: 11,2626 57206 PUSH DMPR # TO PDL+6
052866,000246: 11,2627 00005 4
052867,000247: 11,2630 77752 SL1
052868,000248: 11,2631 43206 PUSH DAD
052869,000249: 11,2632 23702 DQUARTER
052870,000250: 11,2633 75406 PUSH SQRT
052871,000251: 11,2634 41475 DMPR PUSH
052872,000252: 11,2635 00013 10D
052873,000253: 11,2636 43352 SL1 DAD
052874,000254: 11,2637 23702 DQUARTER
052875,000255: 11,2640 43325 PDDL DAD # (1/4)+2((Q+1)/4) TO PD+14D
052876,000256: 11,2641 00013 10D
052877,000257: 11,2642 22273 HALFDP
052878,000258: 11,2643 72475 DMPR SL1
052879,000259: 11,2644 00011 8D
052880,000260: 11,2645 56215 DAD DDV
052881,000261: 11,2646 23674 THREE/8
052882,000262: 11,2647 00017 14D
052883,000263: 11,2650 74275 DMPR VXSC
052884,000264: 11,2651 00007 6
052885,000265: 11,2652 02040 BETAV # -
052886,000266: 11,2653 64515 PDVL VSR3 # (G/2)(C(PD+4))B/2 TO PD+16D
|
|
Page 1229
|
052888,000268: 11,2654 02032 ALPHAV
052889,000269: 11,2655 41455 VAD PUSH # A12 + C(PD+16D) TO PD+16D
052890,000270: 11,2656 41345 DLOAD DMP
052891,000271: 11,2657 00001 0
052892,000272: 11,2660 00015 12D
052893,000273: 11,2661 61501 NORM ROUND
052894,000274: 11,2662 00037 30D
052895,000275: 11,2663 40665 BDDV DMP*
052896,000276: 11,2664 00003 2
052897,000277: 11,2665 51770 MUEARTH,2
052898,000278: 11,2666 74276 DCOMP VXSC
052899,000279: 11,2667 57124 XCHX,2 XAD,2
052900,000280: 11,2670 00050 S1
052901,000281: 11,2671 00051 S2
052902,000282: 11,2672 55064 XSU,2 XSU,2
052903,000283: 11,2673 00036 30D
052904,000284: 11,2674 00037 31D
052905,000285: 11,2675 77600 BOV # CLEAR OVIND
052906,000286: 11,2676 22677 +1
052907,000287: 11,2677 65057 VSR* XCHX,2
052908,000288: 11,2700 57177 0 -1,2
052909,000289: 11,2701 00050 S1
052910,000290: 11,2702 77655 VAD
052911,000291: 11,2703 02062 FV
052912,000292: 11,2704 02062 STORE FV
052913,000293: 11,2705 43400 BOV RVQ # RETURN IF NO OVERFLOW
052914,000294: 11,2706 22707 +1
052915,000295: 11,2707 54345 GOBAQUE DLOAD SR
052916,000296: 11,2710 02100 H
052917,000297: 11,2711 20612 9D
052918,000298: 11,2712 44206 PUSH BDSU
052919,000299: 11,2713 01551 TC
052920,000300: 11,2714 16074 STODL TAU.
052921,000301: 11,2715 01517 TET
052922,000302: 11,2716 45425 DSU STADR
052923,000303: 11,2717 42260 STCALL TET
052924,000304: 11,2720 22311 KEPPREP
052925,000305: 11,2721 77624 CALL
052926,000306: 11,2722 23345 RECTIFY
052927,000307: 11,2723 77614 SETGO
052928,000308: 11,2724 04020 RPQFLAG
052929,000309: 11,2725 27255 TESTLOOP
|
|
Page 1230
|
052931,000311: # THE OBLATE ROUTINE COMPUTES THE ACCELERATION DUE TO OBLATENESS. IT USES THE UNIT OF THE VEHICLE
052932,000312: # POSITION VECTOR FOUND IN ALPHAV AND THE DISTANCE TO THE CENTER IN ALPHAM. THIS IS ADDED TO THE SUM OF THE
052933,000313: # DISTURBING ACCELERATIONS IN FV AND THE PROPER DIFEQ STAGE IS CALLED VIA X1.
052934,000314:
052935,000315: 11,2726 71354 OBLATE LXA,2 DLOAD
052936,000316: 11,2727 02030 PBODY
052937,000317: 11,2730 02070 ALPHAM
052938,000318: 11,2731 44601 SETPD DSU*
052939,000319: 11,2732 00001 0
052940,000320: 11,2733 50027 RDE,2
052941,000321: 11,2734 43044 BPL BOF # GET URPV
052942,000322: 11,2735 23136 NBRANCH
052943,000323: 11,2736 00343 MOONFLAG
052944,000324: 11,2737 23145 COSPHIE
052945,000325: 11,2740 65375 VLOAD PDDL
052946,000326: 11,2741 02032 ALPHAV
052947,000327: 11,2742 01517 TET
052948,000328: 11,2743 45125 PDDL CALL
052949,000329: 11,2744 23672 3/5
052950,000330: 11,2745 51531 R-TO-RP
052951,000331: 11,2746 00017 STORE URPV
052952,000332: 11,2747 47375 VLOAD VXV
052953,000333: 11,2750 02013 504LM
052954,000334: 11,2751 22267 ZUNIT
052955,000335: 11,2752 61255 VAD VXM
052956,000336: 11,2753 22267 ZUNIT
052957,000337: 11,2754 00025 MMATRIX
052958,000338: 11,2755 77656 UNIT # POSSIBLY UNNECESSARY
052959,000339: 11,2756 00025 COMTERM STORE UZ
052960,000340: 11,2757 57345 DLOAD DMPR
052961,000341: 11,2760 00023 COSPHI/2
052962,000342: 11,2761 23704 3/32
052963,000343: 11,2762 63525 PDDL DSQ # P2/64 TO PD0
052964,000344: 11,2763 00023 COSPHI/2
052965,000345: 11,2764 45275 DMPR DSU
052966,000346: 11,2765 23706 15/16
052967,000347: 11,2766 23700 3/64
052968,000348: 11,2767 57206 PUSH DMPR # P3/32 TO PD2
052969,000349: 11,2770 00023 COSPHI/2
052970,000350: 11,2771 76405 DMP SL1R
052971,000351: 11,2772 23712 7/12
052972,000352: 11,2773 57325 PDDL DMPR
052973,000353: 11,2774 00001 0
052974,000354: 11,2775 23720 2/3
052975,000355: 11,2776 41421 BDSU PUSH # P4/128 TO PD4
052976,000356: 11,2777 57275 DMPR DMPR
052977,000357: 11,3000 00023 COSPHI/2 # BEGIN COMPUTING P5/1024
052978,000358: 11,3001 23714 9/16
052979,000359: 11,3002 57325 PDDL DMPR
052980,000360: 11,3003 00003 2
052981,000361: 11,3004 23716 5/128
|
|
Page 1231
|
052983,000363: 11,3005 77621 BDSU
052984,000364: 11,3006 77603 DMP*
052985,000365: 11,3007 51764 J4REQ/J3,2
052986,000366: 11,3010 43271 DDV DAD # -3
052987,000367: 11,3011 02070 ALPHAM # (((P5/256)B 2 /R+P4/32) /R+P3/8)ALPHAV
052988,000368: 11,3012 00005 4 # 4 3
052989,000369: 11,3013 56273 DMPR* DDV
052990,000370: 11,3014 51760 2J3RE/J2,2
052991,000371: 11,3015 02070 ALPHAM
052992,000372: 11,3016 74215 DAD VXSC
052993,000373: 11,3017 00003 2
052994,000374: 11,3020 02032 ALPHAV
052995,000375: 11,3021 14033 STODL TVEC
052996,000376: 11,3022 70403 DMP* SR1
052997,000377: 11,3023 51764 J4REQ/J3,2
052998,000378: 11,3024 43271 DDV DAD
052999,000379: 11,3025 02070 ALPHAM # -3
053000,000380: 11,3026 50473 DMPR* SR3
053001,000381: 11,3027 51760 2J3RE/J2,2 # 3 4
053002,000382: 11,3030 43271 DDV DAD
053003,000383: 11,3031 02070 ALPHAM
053004,000384: 11,3032 76561 VXSC VSL1
053005,000385: 11,3033 00025 UZ
053006,000386: 11,3034 77645 BVSU
053007,000387: 11,3035 00033 TVEC
053008,000388: 11,3036 14033 STODL TVEC
053009,000389: 11,3037 02070 ALPHAM
053010,000390: 11,3040 63501 NORM DSQ
053011,000391: 11,3041 00047 X1
053012,000392: 11,3042 60316 DSQ NORM
053013,000393: 11,3043 00051 S1 # 4
053014,000394: 11,3044 54606 PUSH BDDV* # NORMED R TO 0D
053015,000395: 11,3045 51754 J2REQSQ,2
053016,000396: 11,3046 40161 VXSC BOV
053017,000397: 11,3047 00033 TVEC
053018,000398: 11,3050 23051 +1 # (RESET OVERFLOW INDICATOR)
053019,000399: 11,3051 56070 XAD,1 XAD,1
053020,000400: 11,3052 00046 X1
053021,000401: 11,3053 00046 X1
053022,000402: 11,3054 53670 XAD,1 VSL*
053023,000403: 11,3055 00050 S1
053024,000404: 11,3056 20153 0 -22D,1
053025,000405: 11,3057 40055 VAD BOV
053026,000406: 11,3060 02062 FV
053027,000407: 11,3061 22707 GOBAQUE
053028,000408: 11,3062 36062 STCALL FV
053029,000409: 11,3063 23722 QUALITY1
053030,000410:
053031,000411: 11,3064 77716 QUALITY3 DSQ # J22 TERM X R**4 IN 2D, SCALED B61
053032,000412: # AS VECTOR.
|
|
Page 1236
|
053034,000414: 11,3065 41206 PUSH DMP # STORE COSPHI**2 SCALED B2 IN 8D
053035,000415: 11,3066 27736 5/8 # 5 SCALED B3
053036,000416: 11,3067 60525 PDDL SR2 # PUT 5 COSPHI**2, D5, IN 8D. GET
053037,000417: # COSPHI**2 D2 FROM 8D
053038,000418: 11,3070 44215 DAD BDSU # END UP WITH (1-7 COSPHI**2), B5
053039,000419: 11,3071 00011 8D # ADDING COSPHI**2 B4 SAME AS COSPHI**2
053040,000420: # X 2 D5
053041,000421: 11,3072 10764 D1/32 # 1 SCALED B5
053042,000422: 11,3073 41205 DMP DMP
053043,000423: 11,3074 00017 URPV # X COMPONENT
053044,000424: 11,3075 27736 5/8 # 5 SCALED B3
053045,000425: 11,3076 56561 VXSC VSL5 # AFTER SHIFT, SCALED B5
053046,000426: 11,3077 00017 URPV # VECTOR, B1.
053047,000427: 11,3100 77725 PDDL # VECTOR INTO 8D, 10D, 12D, SCALED B5.
053048,000428: # GET 5 COSPHI**2 OUT OF 8D
053049,000429: 11,3101 43225 DSU DAD
053050,000430: 11,3102 10764 D1/32 # 1 B5
053051,000431: 11,3103 00011 8D # X COMPONENT (SAME AS MULTIPLYING
053052,000432: # BY UNITX)
053053,000433: 11,3104 14011 STODL 8D
053054,000434: 11,3105 00017 URPV # X COMPONENT
053055,000435: 11,3106 41205 DMP DMP
053056,000436: 11,3107 00023 URPV +4 # Z COMPONENT
053057,000437: 11,3110 27736 5/8 # 5 B3 ANSWER B5
053058,000438: 11,3111 43352 SL1 DAD # FROM 12D FOR Z COMPONENT (SL1 GIVES 10
053059,000439: # INSTEAD OF 5 FOR COEFFICIENT)
053060,000440: 11,3112 60325 PDDL NORM # BACK INTO 12D FOR Z COMPONENT.
053061,000441: 11,3113 02070 ALPHAM # SCALED B27 FOR MOON
053062,000442: 11,3114 00050 X2
053063,000443: 11,3115 67206 PUSH SLOAD # STORE IN 14D, DESTROYING URPV
053064,000444: # X COMPONENT
053065,000445: 11,3116 01353 E32C31RM
053066,000446: 11,3117 74271 DDV VXSC # IF X2 = 0, DIVISION GIVES B53, VXSC
053067,000447: # OUT OF 8D B5 GIVES B58
053068,000448: 11,3120 53257 VSL* VAD # SHIFT MAKES B61, FOR ADDITION OF
053069,000449: # VECTOR IN 2D
053070,000450: 11,3121 57601 0 -3,2
053071,000451: 11,3122 70257 VSL* V/SC # OPERAND FROM 0D, B108 FOR X1 = 0
053072,000452: 11,3123 20146 0 -27D,1 # FOR X1 = 0, MAKES B88, GIVING B-20
053073,000453: # FOR RESULT.
053074,000454: 11,3124 65325 PDDL PDDL
053075,000455: 11,3125 01517 TET
053076,000456: 11,3126 27736 5/8 # ANY NON-ZERO CONSTANT
053077,000457: 11,3127 45154 LXA,2 CALL # POSITION IN 0D, TIME IN 6D. X2 LEFT
053078,000458: # ALONE.
053079,000459: 11,3130 02030 PBODY
053080,000460: 11,3131 51504 RP-TO-R
053081,000461: 11,3132 40055 VAD BOV # OVERFLOW INDICATOR RESET IN "RP-TO-R"
053082,000462: 11,3133 02062 FV
053083,000463: 11,3134 22707 GOBAQUE
053084,000464:
053085,000465: 11,3135 02062 STORE FV
053086,000466: 11,3136 72135 NBRANCH SLOAD LXA,1
053087,000467: 11,3137 01501 DIFEQCNT
053088,000468: 11,3140 00154 MPAC
053089,000469: 11,3141 73205 DMP CGOTO
053090,000470: 11,3142 27740 -1/12
053091,000471: 11,3143 00155 MPAC
053092,000472: 11,3144 23153 DIFEQTAB
053093,000473: 11,3145 77745 COSPHIE DLOAD
053094,000474: 11,3146 02036 ALPHAV +4
053095,000475: 11,3147 24023 STOVL COSPHI/2
053096,000476: 11,3150 22267 ZUNIT
|
|
Page 1233
|
053098,000478: 11,3151 77650 GOTO
053099,000479: 11,3152 22756 COMTERM
053100,000480: 11,3153 23372 DIFEQTAB CADR DIFEQ+0
053101,000481: 11,3154 23376 CADR DIFEQ+1
053102,000482: 11,3155 23407 CADR DIFEQ+2
053103,000483: 11,3156 77214 TIMESTEP BOF VLOAD
053104,000484: 11,3157 00342 MIDFLAG
053105,000485: 11,3160 23207 RECTEST
053106,000486: 11,3161 01535 RCV
053107,000487: 11,3162 41241 DOT DMP
053108,000488: 11,3163 01543 VCV
053109,000489: 11,3164 02076 DT/2 # (R.V) X (DELTA T)
053110,000490: 11,3165 77640 BMN
053111,000491: 11,3166 23207 RECTEST
053112,000492: 11,3167 43014 BON BOF
053113,000493: 11,3170 00303 MOONFLAG
053114,000494: 11,3171 23264 LUNSPH
053115,000495: 11,3172 04340 RPQFLAG
053116,000496: 11,3173 23261 EARSPH
053117,000497: 11,3174 45145 DLOAD CALL
053118,000498: 11,3175 01517 TET
053119,000499: 11,3176 33663 LSPOS # RPQV IN MPAC
053120,000500: 11,3177 02105 STORE RPQV # RPQV
053121,000501: 11,3200 77754 LXA,2
053122,000502: 11,3201 02030 PBODY
053123,000503: 11,3202 51445 INLUNCHK BVSU ABVAL
053124,000504: 11,3203 01535 RCV
053125,000505: 11,3204 50025 DSU BMN
053126,000506: 11,3205 27744 RSPHERE
053127,000507: 11,3206 23301 DOSWITCH
053128,000508: 11,3207 51575 RECTEST VLOAD ABVAL # RECTIFY IF
053129,000509: 11,3210 01521 TDELTAV
053130,000510: 11,3211 77600 BOV
053131,000511: 11,3212 23235 CALLRECT
053132,000512: 11,3213 51025 DSU BPL # 1) EITHER TDELTAV OR TNUV EQUALS OR
053133,000513: 11,3214 23710 3/4 # EXCEEDS 3/4 IN MAGNITUDE
053134,000514: 11,3215 23235 CALLRECT
053135,000515: 11,3216 53615 DAD SL* # OR
053136,000516: 11,3217 23710 3/4
053137,000517: 11,3220 57605 0 -7,2 # 2) ABVAL(TDELTAV) EQUALS OR EXCEEDS
053138,000518: 11,3221 45271 DDV DSU # .01(ABVAL(RCV))
053139,000519: 11,3222 00013 10D
053140,000520: 11,3223 27742 RECRATIO
053141,000521: 11,3224 77244 BPL VLOAD
053142,000522: 11,3225 23235 CALLRECT
053143,000523: 11,3226 01527 TNUV
053144,000524: 11,3227 45246 ABVAL DSU
053145,000525: 11,3230 23710 3/4
053146,000526: 11,3231 77600 BOV
053147,000527: 11,3232 23235 CALLRECT
|
|
Page 1234
|
053149,000529: 11,3233 77640 BMN
053150,000530: 11,3234 23237 INTGRATE
053151,000531: 11,3235 77624 CALLRECT CALL
053152,000532: 11,3236 23345 RECTIFY
053153,000533: 11,3237 77775 INTGRATE VLOAD
053154,000534: 11,3240 01527 TNUV
053155,000535: 11,3241 25135 STOVL ZV
053156,000536: 11,3242 01521 TDELTAV
053157,000537: 11,3243 01127 STORE YV
053158,000538: 11,3244 77614 CLEAR
053159,000539: 11,3245 00261 JSWITCH
053160,000540: 11,3246 66375 DIFEQ0 VLOAD SSP
053161,000541: 11,3247 01127 YV
053162,000542: 11,3250 01501 DIFEQCNT
053163,000543: 11,3251 00000 0
053164,000544: 11,3252 16032 STODL ALPHAV
053165,000545: 11,3253 22275 DPZERO
053166,000546: 11,3254 02100 STORE H # START H AT ZERO. GOES 0(DELT/2)DELT.
053167,000547: 11,3255 52014 BON GOTO
053168,000548: 11,3256 00301 JSWITCH
053169,000549: 11,3257 23611 DOW..
053170,000550: 11,3260 22431 ACCOMP
053171,000551: 11,3261 52175 EARSPH VLOAD GOTO
053172,000552: 11,3262 02105 RPQV
053173,000553: 11,3263 23202 INLUNCHK
053174,000554: 11,3264 60545 LUNSPH DLOAD SR2
053175,000555: 11,3265 00013 10D
053176,000556: 11,3266 50025 DSU BMN
053177,000557: 11,3267 27744 RSPHERE
053178,000558: 11,3270 23207 RECTEST
053179,000559: 11,3271 71214 BOF DLOAD
053180,000560: 11,3272 04340 RPQFLAG
053181,000561: 11,3273 23301 DOSWITCH
053182,000562: 11,3274 01517 TET
053183,000563: 11,3275 77624 CALL
053184,000564: 11,3276 33663 LUNPOS
053185,000565: 11,3277 77676 VCOMP
053186,000566: 11,3300 02105 STORE RPQV
053187,000567: 11,3301 77624 DOSWITCH CALL
053188,000568: 11,3302 23305 ORIGCHNG
053189,000569: 11,3303 77650 GOTO
053190,000570: 11,3304 23237 INTGRATE
053191,000571: 11,3305 45020 ORIGCHNG STQ CALL
053192,000572: 11,3306 02112 ORIGEX
053193,000573: 11,3307 23345 RECTIFY
053194,000574: 11,3310 53775 VLOAD VSL*
053195,000575: 11,3311 01535 RCV
053196,000576: 11,3312 57576 0,2
053197,000577: 11,3313 53651 VSU VSL*
053198,000578: 11,3314 02105 RPQV
|
|
Page 1235
|
053200,000580: 11,3315 57574 2,2
053201,000581: 11,3316 01503 STORE RRECT
053202,000582: 11,3317 15535 STODL RCV
053203,000583: 11,3320 01517 TET
053204,000584: 11,3321 77624 CALL
053205,000585: 11,3322 33774 LUNVEL
053206,000586: 11,3323 57414 BOF VCOMP
053207,000587: 11,3324 00343 MOONFLAG
053208,000588: 11,3325 23326 +1
053209,000589: 11,3326 53715 PDVL VSL*
053210,000590: 11,3327 01543 VCV
053211,000591: 11,3330 57576 0,2
053212,000592: 11,3331 77651 VSU
053213,000593: 11,3332 77657 VSL*
053214,000594: 11,3333 57574 0 +2,2
053215,000595: 11,3334 01511 STORE VRECT
053216,000596: 11,3335 01543 STORE VCV
053217,000597: 11,3336 67154 LXA,2 SXA,2
053218,000598: 11,3337 02112 ORIGEX
053219,000599: 11,3340 00052 QPRET
053220,000600: 11,3341 52014 BON GOTO
053221,000601: 11,3342 00303 MOONFLAG
053222,000602: 11,3343 26711 CLRMOON
053223,000603: 11,3344 26716 SETMOON
|
|
Page 1236
|
053225,000605: # THE RECTIFY SUBROUTINE IS CALLED BY THE INTEGRATION PROGRAM AND OCCASIONALLY BY THE MEASUREMENT INCORPORATION
053226,000606: # ROUTINES TO ESTABLISH A NEW CONIC.
053227,000607:
053228,000608: 11,3345 77354 RECTIFY LXA,2 VLOAD
053229,000609: 11,3346 02030 PBODY
053230,000610: 11,3347 01521 TDELTAV
053231,000611: 11,3350 53257 VSL* VAD
053232,000612: 11,3351 57605 0 -7,2
053233,000613: 11,3352 01535 RCV
053234,000614: 11,3353 01503 STORE RRECT
053235,000615: 11,3354 25535 STOVL RCV
053236,000616: 11,3355 01527 TNUV
053237,000617: 11,3356 53257 VSL* VAD
053238,000618: 11,3357 57602 0 -4,2
053239,000619: 11,3360 01543 VCV
053240,000620: 11,3361 01511 MINIRECT STORE VRECT
053241,000621: 11,3362 25543 STOVL VCV
053242,000622: 11,3363 22275 ZEROVEC
053243,000623: 11,3364 01521 STORE TDELTAV
053244,000624: 11,3365 15527 STODL TNUV
053245,000625: 11,3366 22275 ZEROVEC
053246,000626: 11,3367 01551 STORE TC
053247,000627: 11,3370 01553 STORE XKEP
053248,000628: 11,3371 77616 RVQ
053249,000629:
|
|
Page 1237
|
053251,000631: # THE THREE DIFEQ ROUTINES - DIFEQ+0, DIFEQ+12, AND DIFEQ+24 - ARE ENTEREDTO PROCESS THE CONTRIBUTIONS AT THE
053252,000632: # BEGINNING, MIDDLE, AND END OF THE TIMESTEP, RESPECTIVELY. THE UPDATING IS DONE BY THE NYSTROM METHOD.
053253,000633:
053254,000634: 11,3372 64575 DIFEQ+0 VLOAD VSR3
053255,000635: 11,3373 02062 FV
053256,000636: 11,3374 36046 STCALL PHIV
053257,000637: 11,3375 23552 DIFEQCOM
053258,000638: 11,3376 74575 DIFEQ+1 VLOAD VSR1
053259,000639: 11,3377 02062 FV
053260,000640: 11,3400 53206 PUSH VAD
053261,000641: 11,3401 02046 PHIV
053262,000642: 11,3402 26054 STOVL PSIV
053263,000643: 11,3403 53362 VSR1 VAD
053264,000644: 11,3404 02046 PHIV
053265,000645: 11,3405 36046 STCALL PHIV
053266,000646: 11,3406 23552 DIFEQCOM
053267,000647: 11,3407 57345 DIFEQ+2 DLOAD DMPR
053268,000648: 11,3410 02100 H
053269,000649: 11,3411 23720 DP2/3
053270,000650: 11,3412 74206 PUSH VXSC
053271,000651: 11,3413 02046 PHIV
053272,000652: 11,3414 53372 VSL1 VAD
053273,000653: 11,3415 01135 ZV
053274,000654: 11,3416 53361 VXSC VAD
053275,000655: 11,3417 02100 H
053276,000656: 11,3420 01127 YV
053277,000657: 11,3421 25127 STOVL YV
053278,000658: 11,3422 02062 FV
053279,000659: 11,3423 53322 VSR3 VAD
053280,000660: 11,3424 02054 PSIV
053281,000661: 11,3425 76561 VXSC VSL1
053282,000662: 11,3426 77655 VAD
053283,000663: 11,3427 01135 ZV
053284,000664: 11,3430 01135 STORE ZV
053285,000665: 11,3431 45014 BOFF CALL
053286,000666: 11,3432 00341 JSWITCH
053287,000667: 11,3433 23503 ENDSTATE
053288,000668: 11,3434 11165 GRP2PC
053289,000669: 11,3435 77354 LXA,2 VLOAD
053290,000670: 11,3436 01117 COLREG
053291,000671: 11,3437 01135 ZV
053292,000672: 11,3440 77732 VSL3 # ADJUST W-POSITION FOR STORAGE
053293,000673: 11,3441 12467 STORE W +54D,2
053294,000674: 11,3442 77775 VLOAD
053295,000675: 11,3443 01127 YV
053296,000676: 11,3444 40132 VSL3 BOV
053297,000677: 11,3445 23575 WMATEND
053298,000678: 11,3446 12401 STORE W,2
053299,000679:
053300,000680: 11,3447 77624 CALL
053301,000681: 11,3450 11165 GRP2PC
|
|
Page 1238
|
053303,000683: 11,3451 66354 LXA,2 SSP
053304,000684: 11,3452 01117 COLREG
053305,000685: 11,3453 00052 S2
053306,000686: 11,3454 00000 0
053307,000687: 11,3455 67114 INCR,2 SXA,2
053308,000688: 11,3456 00006 6
053309,000689: 11,3457 01126 YV
053310,000690: 11,3460 45104 TIX,2 CALL
053311,000691: 11,3461 23546 RELOADSV
053312,000692: 11,3462 11165 GRP2PC
053313,000693: 11,3463 67154 LXA,2 SXA,2
053314,000694: 11,3464 01126 YV
053315,000695: 11,3465 01117 COLREG
053316,000696:
053317,000697: 11,3466 77624 NEXTCOL CALL
053318,000698: 11,3467 11165 GRP2PC
053319,000699: 11,3470 76754 LXA,2 VLOAD*
053320,000700: 11,3471 01117 COLREG
053321,000701: 11,3472 75376 W,2
053322,000702: 11,3473 77722 VSR3 # ADJUST W-POSITION FOR INTEGRATION
053323,000703: 11,3474 01127 STORE YV
053324,000704: 11,3475 76173 VLOAD* AXT,1
053325,000705: 11,3476 75310 W +54D,2
053326,000706: 11,3477 00000 0
053327,000707: 11,3500 77722 VSR3 # ADJUST W-VELOCITY FOR INTEGRATION
053328,000708: 11,3501 35135 STCALL ZV
053329,000709: 11,3502 23246 DIFEQ0
053330,000710:
053331,000711: 11,3503 77200 ENDSTATE BOV VLOAD
053332,000712: 11,3504 22707 GOBAQUE
053333,000713: 11,3505 01135 ZV
053334,000714: 11,3506 25527 STOVL TNUV
053335,000715: 11,3507 01127 YV
053336,000716: 11,3510 01521 STORE TDELTAV
053337,000717: 11,3511 43014 BON BOFF
053338,000718: 11,3512 04715 MIDAVFLG
053339,000719: 11,3513 27657 CKMID2 # CHECK FOR MID2 BEFORE GOING TO TIMEINC
053340,000720: 11,3514 01756 DIM0FLAG
053341,000721: 11,3515 27255 TESTLOOP
053342,000722: 11,3516 77776 EXIT
053343,000723: 11,3517 05353 TC PHASCHNG
053344,000724: 11,3520 04022 OCT 04022 # PHASE 1
053345,000725: 11,3521 05504 TC UPFLAG # PHASE CHANGE HAS OCCURRED BETWEEN
053346,000726: 11,3522 00236 ADRES REINTFLG # INTSTALL AND INTWAKE
053347,000727: 11,3523 06036 TC INTPRET
053348,000728: 11,3524 77731 SSP
053349,000729: 11,3525 00053 QPRET
053350,000730: 11,3526 23533 AMOVED
053351,000731: 11,3527 52014 BON GOTO
053352,000732: 11,3530 01714 VINTFLAG
|
|
Page 1239
|
053354,000734: 11,3531 26661 ATOPCSM
053355,000735: 11,3532 26734 ATOPLEM
053356,000736: 11,3533 66214 AMOVED SET SSP
053357,000737: 11,3534 00061 JSWITCH
053358,000738: 11,3535 01120 COLREG
053359,000739: 11,3536 77741 DEC -30 B-14
053360,000740: 11,3537 66214 BOFF SSP
053361,000741: 11,3540 01755 D6OR9FLG
053362,000742: 11,3541 23466 NEXTCOL
053363,000743: 11,3542 01120 COLREG
053364,000744: 11,3543 77717 DEC -48 B-14
053365,000745: 11,3544 77650 GOTO
053366,000746: 11,3545 23466 NEXTCOL
053367,000747:
053368,000748: 11,3546 77745 RELOADSV DLOAD # RELOAD TEMPORARY STATE VECTOR
053369,000749: 11,3547 01116 TDEC # FROM PERMANENT IN CASE OF
053370,000750: 11,3550 34041 STCALL TDEC1
053371,000751: 11,3551 27141 INTEGRV2 # BY STARTING AT INTEGRV2.
053372,000752: 11,3552 43345 DIFEQCOM DLOAD DAD # INCREMENT H AND DIFEQCNT.
053373,000753: 11,3553 02076 DT/2
053374,000754: 11,3554 02100 H
053375,000755: 11,3555 66110 INCR,1 SXA,1
053376,000756: 11,3556 77763 DEC -12 B-14
053377,000757: 11,3557 01500 DIFEQCNT # DIFEQCNT SET FOR NEXT ENTRY.
053378,000758: 11,3560 02100 STORE H
053379,000759: 11,3561 74561 VXSC VSR1
053380,000760: 11,3562 02062 FV
053381,000761: 11,3563 74255 VAD VXSC
053382,000762: 11,3564 01135 ZV
053383,000763: 11,3565 02100 H
053384,000764: 11,3566 77655 VAD
053385,000765: 11,3567 01127 YV
053386,000766: 11,3570 02032 STORE ALPHAV
053387,000767: 11,3571 52014 BON GOTO
053388,000768: 11,3572 00301 JSWITCH
053389,000769: 11,3573 23611 DOW..
053390,000770: 11,3574 22411 FBR3
053391,000771:
053392,000772: 11,3575 43014 WMATEND CLEAR CLEAR
053393,000773: 11,3576 01676 DIM0FLAG # DONT INTEGRATE W THIS TIME
053394,000774: 11,3577 01671 ORBWFLAG # INVALIDATE W
053395,000775: 11,3600 77614 CLEAR
053396,000776: 11,3601 02676 RENDWFLG
053397,000777: 11,3602 77414 SET EXIT
053398,000778: 11,3603 01472 STATEFLG # PICK UP STATE VECTOR UPDATE
053399,000779: 11,3604 05567 TC ALARM
053400,000780: 11,3605 00421 OCT 421
053401,000781: 11,3606 06036 TC INTPRET
|
|
Page 1240
|
053403,000783: 11,3607 77650 GOTO
053404,000784: 11,3610 27255 TESTLOOP # FINISH INTEGRATING STATE VECTOR
053405,000785:
|
|
Page 1241
|
053407,000787: # ORBITAL ROUTINE FOR EXTRAPOLATION OF THE W MATRIX. IT COMPUTES THE SECOND DERIVATIVE OF EACH COLUMN POSITION
053408,000788: # VECTOR OF THE MATRIX AND CALLS THE NYSTROM INTEGRATION ROUTINES TO SOLVE THE DIFFERENTIAL EQUATIONS. THE PROGRAM
053409,000789: # USES A TABLE OF VEHICLE POSITION VECTORS COMPUTED DURING THE INTEGRATION OF THE VEHICLES POSITION AND VELOCITY.
053410,000790:
053411,000791: 11,3611 70754 DOW.. LXA,2 DLOAD*
053412,000792: 11,3612 02030 PBODY
053413,000793: 11,3613 51770 MUEARTH,2
053414,000794: 11,3614 36072 STCALL BETAM
053415,000795: 11,3615 23637 DOW..1
053416,000796: 11,3616 02062 STORE FV
053417,000797: 11,3617 62014 BOF INCR,1
053418,000798: 11,3620 00342 MIDFLAG
053419,000799: 11,3621 23136 NBRANCH
053420,000800: 11,3622 77771 DEC -6 B-14
053421,000801: 11,3623 70744 LXC,2 DLOAD*
053422,000802: 11,3624 02030 PBODY
053423,000803: 11,3625 51772 MUEARTH -2,2
053424,000804: 11,3626 36072 STCALL BETAM
053425,000805: 11,3627 23637 DOW..1
053426,000806: 11,3630 50414 BON VSR6
053427,000807: 11,3631 00303 MOONFLAG
053428,000808: 11,3632 23633 +1
053429,000809: 11,3633 77655 VAD
053430,000810: 11,3634 02062 FV
053431,000811: 11,3635 36062 STCALL FV
053432,000812: 11,3636 23136 NBRANCH
053433,000813: 11,3637 60575 DOW..1 VLOAD VSR4
053434,000814: 11,3640 02032 ALPHAV
053435,000815: 11,3641 53513 PDVL* UNIT
053436,000816: 11,3642 02132 VECTAB,1
053437,000817: 11,3643 46315 PDVL VPROJ
053438,000818: 11,3644 02032 ALPHAV
053439,000819: 11,3645 52361 VXSC VSU
053440,000820: 11,3646 23710 3/4
053441,000821: 11,3647 60325 PDDL NORM
053442,000822: 11,3650 00045 36D
053443,000823: 11,3651 00052 S2
053444,000824: 11,3652 63406 PUSH DSQ
053445,000825: 11,3653 77605 DMP
053446,000826: 11,3654 65301 NORM PDDL
053447,000827: 11,3655 00043 34D
053448,000828: 11,3656 02072 BETAM
053449,000829: 11,3657 56342 SR1 DDV
053450,000830: 11,3660 77761 VXSC
053451,000831: 11,3661 57154 LXA,2 XAD,2
053452,000832: 11,3662 00051 S2
053453,000833: 11,3663 00051 S2
053454,000834: 11,3664 57074 XAD,2 XAD,2
053455,000835: 11,3665 00051 S2
053456,000836: 11,3666 00042 34D
053457,000837: 11,3667 43457 VSL* RVQ
|
|
Page 1242
|
053459,000839: 11,3670 57606 0 -8D,2
053460,000840:
053461,000841: 11,2000 SETLOC ORBITAL1
053462,000842: 11,2000 BANK
053463,000843:
053464,000844: 11,3671 04631 23146 3/5 2DEC .6 B-2
053465,000845:
053466,000846: 11,3673 14000 00000 THREE/8 2DEC .375
053467,000847:
053468,000848: 11,3675 02314 31463 .3D 2DEC .3 B-2
053469,000849:
053470,000850: 11,3677 01400 00000 3/64 2DEC 3 B-6
053471,000851:
053472,000852: 11,3701 10000 00000 DP1/4 2DEC .25
053473,000853:
053474,000854: 11,3703 11,3701 DQUARTER EQUALS DP1/4
053475,000855: 11,3703 11,3701 POS1/4 EQUALS DP1/4
053476,000856: 11,3703 03000 00000 3/32 2DEC 3 B-5
053477,000857:
053478,000858: 11,3705 36000 00000 15/16 2DEC 15. B-4
053479,000859:
053480,000860: 11,3707 30000 00000 3/4 2DEC 3.0 B-2
053481,000861:
053482,000862: 11,3711 22525 12525 7/12 2DEC .5833333333
053483,000863:
053484,000864: 11,3713 22000 00000 9/16 2DEC 9 B-4
053485,000865:
053486,000866: 11,3715 01200 00000 5/128 2DEC 5 B-7
053487,000867:
053488,000868: 11,3717 11,2274 DPZERO EQUALS ZEROVEC
053489,000869: 11,3717 25252 25253 DP2/3 2DEC .6666666667
053490,000870:
053491,000871: 11,3721 11,3717 2/3 EQUALS DP2/3
053492,000872: 11,3721 00027 OCT27 OCT 27
053493,000873:
053494,000874: # LM504 IS TEMPORARY
053495,000875:
053496,000876: 13,3721 BANK 13
053497,000877: 13,2000 SETLOC ORBITAL2
053498,000878: 13,2000 BANK
053499,000879: # IT IS VITAL THAT THE FOLLOWING CONSTANTS NOT BE SHUFFLED
053500,000880: 13,3721 77764 DEC -11 B-14
053501,000881: 13,3722 77775 DEC -2 B-14
053502,000882: 13,3723 77766 DEC -9 B-14
053503,000883: 13,3724 77771 DEC -6 B-14
053504,000884: 13,3725 77775 DEC -2 B-14
053505,000885: 13,3726 77775 DEC -2 B-14
053506,000886: 13,3727 00000 DEC 0 B-14
053507,000887: 13,3730 77763 DEC -12 B-14
053508,000888: 13,3731 77766 DEC -9 B-14
053509,000889: 13,3732 77773 DEC -4 B-14
053510,000890: 13,3733 77770 ASCALE DEC -7 B-14
053511,000891: 13,3734 77771 DEC -6 B-14
|
|
Page 1243
|
053513,000893: 13,3735 24000 00000 5/8 2DEC 5 B-3
053514,000894:
053515,000895: 13,3737 74631 63145 -1/12 2DEC -.1
053516,000896:
053517,000897: 13,3741 00243 32703 RECRATIO 2DEC .01
053518,000898:
053519,000899: 13,3743 03654 21000 RSPHERE 2DEC 64373.76 E3 B-29
053520,000900:
053521,000901: 13,3745 03654 21000 RDM 2DEC 16093.44 E3 B-27
053522,000902:
053523,000903: 13,3747 04627 25200 RDE 2DEC 80467.20 E3 B-29
053524,000904:
053525,000905: 13,3751 RATT EQUALS 00
053526,000906: 13,3751 VATT EQUALS 6D
053527,000907: 13,3751 TAT EQUALS 12D
053528,000908: 13,3751 RATT1 EQUALS 14D
053529,000909: 13,3751 VATT1 EQUALS 20D
053530,000910: 13,3751 MU(P) EQUALS 26D
053531,000911: 13,3751 TDEC1 EQUALS 32D
053532,000912: 13,3751 URPV EQUALS 14D
053533,000913: 13,3751 0022 COSPHI/2 EQUALS URPV +4
053534,000914: 13,3751 UZ EQUALS 20D
053535,000915: 13,3751 TVEC EQUALS 26D
053536,000916:
|
|
The following code for the R-2 lunar potential model was added to the end of bank 11
betwen Luminary 69 and LUM69 rev 2. The code was adapted from Luminary 099. Exact
comments and the "MODCHG1" label may differ from the original LUM69 rev 2.
|
053540,000920: 11,2000 SETLOC MODCHG1
053541,000921: 11,2000 BANK
053542,000922: 11,3722 71214 QUALITY1 BOF DLOAD
053543,000923: 11,3723 00343 MOONFLAG
053544,000924: 11,3724 23136 NBRANCH
053545,000925: 11,3725 00017 URPV
053546,000926: 11,3726 77716 DSQ
053547,000927: 11,3727 63525 QUALITY2 PDDL DSQ # SQUARE INTO 2D, B2
053548,000928: 11,3730 00021 URPV +2 # Y COMPONENT, B1
053549,000929: 11,3731 77625 DSU
053550,000930: 11,3732 74205 DMP VXSC # 5(Y**2-X**2)UR
053551,000931: 11,3733 27736 5/8 # CONSTANT, 5B3
053552,000932: 11,3734 00017 URPV # VECTOR. RESULT MAXIMUM IS 5, SCALING
053553,000933: # HERE B6
053554,000934: 11,3735 65332 VSL3 PDDL # STORE SCALED B3 IN 2D, 4D, 6D FOR XYZ
053555,000935: 11,3736 00017 URPV # X COMPONENT, B1
053556,000936: 11,3737 43342 SR1 DAD # 2 X X COMPONENT FOR B3 SCALING
053557,000937: 11,3740 00003 2D # ADD TO VECTOR X COMPONENT OF ANSWER,
053558,000938: # SAME AS MULTIPLYING BY UNITX. MAX IS 7.
053559,000939: 11,3741 14003 STODL 2D
053560,000940: 11,3742 00021 URPV +2 # Y COMPONENT, B1
053561,000941: 11,3743 44342 SR1 BDSU # 2 X Y COMPONENT FOR B3 SCALING
053562,000942: 11,3744 00005 4D # SUBTRACT FROM VECTOR Y COMPONENT OF
053563,000943: # ANSWER, SAME AS MULTIPLYING BY UNITY.
053564,000944: # MAX IS 7.
053565,000945: 11,3745 00005 STORE 4D # 2D HAS VECTOR, B3.
053566,000946: 11,3746 74335 SLOAD VXSC # MULTIPLY COEFFIECIENT TIMES VECTOR IN 2D
053567,000947: 11,3747 01352 E3J22R2M
053568,000948: 11,3750 43525 PDDL RVQ # J22 TERM X R**4 IN 2D, SCALED B61
053569,000949: 11,3751 00023 COSPHI/2 # SAME AS URPV +4 Z COMPONENT
053570,000950:
End of include-file ORBITAL_INTEGRATION.agc. Parent file is MAIN.agc