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