Source Code
![]() |
This is a reconstruction of the AGC program Luminary 99 Rev 0. It was the
second release of the Lunar Module flight software targeted for use in Apollo 11, after Luminary 97.
A bug (which had been around since at least Apollo 10, Luminary 69) was
discovered in Rev 0 shortly before the Apollo 11 flight, resulting in a last minute
revision into Rev 1,
which is what actually flew rather than
the Rev 0 presented here. A hardcopy of Rev 0 is known to
exist — it belonged to AGC developer Allan Klumpp for many years — but
unfortunately the Virtual AGC Project has not had access to that hardcopy. Thus
the code you see here had been reconstructed (we believe accurately) rather than
transcribed. The first step of the reconstruction of the Rev 0 source code was
the transcription of the Rev 1 source code from a hardcopy in the MIT Museum collection.
The process of reverting the active portion of the source code (i.e., other than
program comments) from Rev 1 to Rev 0 was very minor, consisting
only of moving the position of the STARTSB1 label in
FRESH START AND RESTART. Allan had previously given
us the checksums of the memory banks of Rev 0, and we have verified the program presented here has checksums
identical to all banks of Allan's listing of Rev 0. The notations on Allan's Rev 0 program listing read,
in part:GAP: ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-051 A single program comment is known to differ between Rev 0 and Rev 1, but these are harder to reconstruct and verify than changes to the active portion of the code. Thus it is possible that there are additional differences between the program comments in Rev 0 and Rev 1 that are unknown to us, and therefore are not reflected in the code presented here. |
053487,000002: ## Copyright: Public domain.
053488,000003: ## Filename: ORBITAL_INTEGRATION.agc
053489,000004: ## Purpose: Part of the reconstructed source code for LMY99 Rev 0,
053490,000005: ## otherwise known as Luminary Rev 99, the second release
053491,000006: ## of the Apollo Guidance Computer (AGC) software for Apollo 11.
053492,000007: ## It differs from LMY99 Rev 1 (the flown version) only in the
053493,000008: ## placement of a single label. The corrections shown here have
053494,000009: ## been verified to have the same bank checksums as AGC developer
053495,000010: ## Allan Klumpp's copy of Luminary Rev 99, and so are believed
053496,000011: ## to be accurate. This file is intended to be a faithful
053497,000012: ## recreation, except that the code format has been changed to
053498,000013: ## conform to the requirements of the yaYUL assembler rather than
053499,000014: ## the original YUL assembler.
053500,000015: ##
053501,000016: ## Assembler: yaYUL
053502,000017: ## Contact: Ron Burkey <info@sandroid.org>.
053503,000018: ## Website: www.ibiblio.org/apollo.
053504,000019: ## Pages: 1227-1248
053505,000020: ## Mod history: 2009-05-26 RSB Adapted from the corresponding
053506,000021: ## Luminary131 file, using page
053507,000022: ## images from Luminary 1A.
053508,000023: ## 2009-06-05 RSB Fixed 3 typos.
053509,000024: ## 2009-06-06 RSB Page 1248 was missing entirely for some reason.
053510,000025: ## 2009-06-07 RSB Corrected a typo.
053511,000026: ## 2016-12-17 RSB Proofed text comments with octopus/ProoferComments
053512,000027: ## and corrected the errors found.
053513,000028: ## 2017-03-17 RSB Comment-text fixes identified in diff'ing
053514,000029: ## Luminary 99 vs Comanche 55.
053515,000030: ## 2017-08-01 MAS Created from LMY99 Rev 1.
053516,000031: ## 2017-08-17 RSB Comment-text fixes identified from AP11ROPE scans.
053517,000032:
053518,000033: ## This source code has been transcribed or otherwise adapted from
053519,000034: ## digitized images of a hardcopy from the MIT Museum. The digitization
053520,000035: ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of
053521,000036: ## the Museum. Many thanks to both. The images (with suitable reduction
053522,000037: ## in storage size and consequent reduction in image quality as well) are
053523,000038: ## available online at www.ibiblio.org/apollo. If for some reason you
053524,000039: ## find that the images are illegible, contact me at info@sandroid.org
053525,000040: ## about getting access to the (much) higher-quality images which Paul
053526,000041: ## actually created.
053527,000042: ##
053528,000043: ## The code has been modified to match LMY99 Revision 0, otherwise
053529,000044: ## known as Luminary Revision 99, the Apollo 11 software release preceeding
053530,000045: ## the listing from which it was transcribed. It has been verified to
053531,000046: ## contain the same bank checksums as AGC developer Allan Klumpp's listing
053532,000047: ## of Luminary Revision 99 (for which we do not have scans).
053533,000048: ##
053534,000049: ## Notations on Allan Klumpp's listing read, in part:
053535,000050: ##
053536,000051: ## ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-51
053537,000052:
![]() |
Page 1227 |
053539,000054: # DELETE
053540,000055: 13,3675 BANK 13
053541,000056: 11,2000 SETLOC ORBITAL
053542,000057: 11,2000 BANK
053543,000058: 11,2376 COUNT* $$/ORBIT
053544,000059:
053545,000060: # DELETE
053546,000061: 11,2376 40354 KEPPREP LXA,2 SETPD
053547,000062: 11,2377 02030 PBODY
053548,000063: 11,2400 00001 0
053549,000064: 11,2401 75543 DLOAD* SQRT # SQRT(MU) (+18 OR +15) 0D PL 2D
053550,000065: 11,2402 51770 MUEARTH,2
053551,000066: 11,2403 53515 PDVL UNIT # PL 8D
053552,000067: 11,2404 01535 RCV
053553,000068: 11,2405 60325 PDDL NORM # NORM R (+29 OR +27 - N1) 2D PL 4D
053554,000069: 11,2406 00045 36D
053555,000070: 11,2407 00047 X1
053556,000071: 11,2410 77715 PDVL
053557,000072: 11,2411 65241 DOT PDDL # F*SQRT(MU) (+7 OR +5) 4D PL 6D
053558,000073: 11,2412 01543 VCV
053559,000074: 11,2413 02074 TAU. # (+28)
053560,000075: 11,2414 60225 DSU NORM
053561,000076: 11,2415 01551 TC
053562,000077: 11,2416 00051 S1
053563,000078: 11,2417 77742 SR1
053564,000079: 11,2420 65271 DDV PDDL
053565,000080: 11,2421 00003 2D
053566,000081: 11,2422 41405 DMP PUSH # FS (+6 +N1-N2) 6D PL 8D
053567,000082: 11,2423 00005 4D
053568,000083: 11,2424 65316 DSQ PDDL # (FS)SQ (+12 +2(N1-N2)) 8D PL 10D
053569,000084: 11,2425 00005 4D
053570,000085: 11,2426 64716 DSQ PDDL* # SSQ/MU (-2 OR +2(N1-N2)) 10D PL 12D
053571,000086: 11,2427 51770 MUEARTH,2
053572,000087: 11,2430 40442 SR3 SR4
053573,000088: 11,2431 47515 PDVL VSQ # PREALIGN MU (+43 OR +37) 12D PL 14D
053574,000089: 11,2432 01543 VCV
053575,000090: 11,2433 44205 DMP BDSU # PL 12D
053576,000091: 11,2434 00045 36D
053577,000092: 11,2435 41271 DDV DMP # PL 10D
053578,000093: 11,2436 00003 2D # -(1/R-ALPHA) (+12 +3N1-2N2)
053579,000094: 11,2437 53605 DMP SL*
053580,000095: 11,2440 25774 DP2/3
053581,000096: 11,2441 20176 0 -3,1 # 10L(1/R-ALPHA) (+13 +2(N1-N2))
053582,000097: 11,2442 43260 XSU,1 DAD # 2(FS)SQ - ETCETRA PL 8D
053583,000098: 11,2443 00050 S1 # X1 = N2-N1
053584,000099: 11,2444 45257 SL* DSU # -FS+2(FS)SQ ETC (+6 +N1-N2) PL 6D
053585,000100: 11,2445 20211 8D,1
053586,000101: 11,2446 41205 DMP DMP
053587,000102: 11,2447 00001 0D
053588,000103: 11,2450 00005 4D
053589,000104: 11,2451 53657 SL* SL*
![]() |
Page 1228 |
053591,000106: 11,2452 20211 8D,1
053592,000107: 11,2453 20201 0,1 # S(-FS(1-2FS)-1/6...) (+17 OR +16)
053593,000108: 11,2454 65215 DAD PDDL # PL 6D
053594,000109: 11,2455 01553 XKEP
053595,000110: 11,2456 53605 DMP SL* # S(+17 OR +16)
053596,000111: 11,2457 00001 0D
053597,000112: 11,2460 20202 1,1
053598,000113: 11,2461 43204 BOVB DAD
053599,000114: 11,2462 57753 TCDANZIG
053600,000115: 11,2463 77626 STADR
053601,000116: 11,2464 75647 STORE XKEPNEW
053602,000117: 11,2465 74020 STQ AXC,1
053603,000118: 11,2466 02112 KEPRTN
053604,000119: 11,2467 00012 DEC 10 B-14
053605,000120: 11,2470 74014 BON AXC,1
053606,000121: 11,2471 00303 MOONFLAG
053607,000122: 11,2472 24023 KEPLERN
053608,000123: 11,2473 00002 DEC 2 B-14
053609,000124: 11,2474 77650 GOTO
053610,000125: 11,2475 24023 KEPLERN
053611,000126:
![]() |
Page 1229 |
053613,000128: 11,2476 66350 FBR3 LXA,1 SSP
053614,000129: 11,2477 01500 DIFEQCNT
053615,000130: 11,2500 00051 S1
053616,000131: 11,2501 77762 DEC -13 B-14
053617,000132: 11,2502 54345 DLOAD SR
053618,000133: 11,2503 02076 DT/2
053619,000134: 11,2504 20612 9D
053620,000135: 11,2505 61500 TIX,1 ROUND
053621,000136: 11,2506 22507 +1
053622,000137: 11,2507 43206 PUSH DAD
053623,000138: 11,2510 01551 TC
053624,000139: 11,2511 16074 STODL TAU.
053625,000140: 11,2512 77615 DAD
053626,000141: 11,2513 01517 TET
053627,000142: 11,2514 35517 STCALL TET
053628,000143: 11,2515 22376 KEPPREP
053629,000144:
![]() |
Page 1230 |
053631,000146: # AGC ROUTINE TO COMPUTE ACCELERATION COMPONENTS.
053632,000147:
053633,000148: 11,2516 73150 ACCOMP LXA,1 LXA,2
053634,000149: 11,2517 02030 PBODY
053635,000150: 11,2520 02030 PBODY
053636,000151: 11,2521 77775 VLOAD
053637,000152: 11,2522 24007 ZEROVEC
053638,000153: 11,2523 26062 STOVL FV
053639,000154: 11,2524 02032 ALPHAV
053640,000155: 11,2525 53257 VSL* VAD
053641,000156: 11,2526 57605 0 -7,2
053642,000157: 11,2527 01535 RCV
053643,000158: 11,2530 02040 STORE BETAV
053644,000159: 11,2531 65014 BOF XCHX,2
053645,000160: 11,2532 01756 DIM0FLAG
053646,000161: 11,2533 22540 +5
053647,000162: 11,2534 01500 DIFEQCNT
053648,000163: 11,2535 12132 STORE VECTAB,2
053649,000164: 11,2536 77724 XCHX,2
053650,000165: 11,2537 01500 DIFEQCNT
053651,000166: 11,2540 53575 VLOAD UNIT
053652,000167: 11,2541 02032 ALPHAV
053653,000168: 11,2542 16032 STODL ALPHAV
053654,000169: 11,2543 00045 36D
053655,000170: 11,2544 02070 STORE ALPHAM
053656,000171: 11,2545 77624 CALL
053657,000172: 11,2546 22650 GAMCOMP
053658,000173: 11,2547 66175 VLOAD SXA,1
053659,000174: 11,2550 02040 BETAV
053660,000175: 11,2551 00051 S2
053661,000176: 11,2552 16032 STODL ALPHAV
053662,000177: 11,2553 02072 BETAM
053663,000178: 11,2554 02070 STORE ALPHAM
053664,000179: 11,2555 71214 BOF DLOAD
053665,000180: 11,2556 00342 MIDFLAG
053666,000181: 11,2557 23022 OBLATE
053667,000182: 11,2560 01517 TET
053668,000183: 11,2561 77624 CALL
053669,000184: 11,2562 33664 LSPOS
053670,000185: 11,2563 72174 AXT,2 LXA,1
053671,000186: 11,2564 00002 2
053672,000187: 11,2565 00051 S2
053673,000188: 11,2566 77614 BOF
053674,000189: 11,2567 00343 MOONFLAG
053675,000190: 11,2570 22573 +3
053676,000191: 11,2571 77076 VCOMP AXT,2
053677,000192: 11,2572 00000 0
053678,000193: 11,2573 02040 STORE BETAV
053679,000194: 11,2574 26105 STOVL RPQV
![]() |
Page 1231 |
053681,000196: 11,2575 00003 2D
053682,000197: 11,2576 02122 STORE RPSV
053683,000198: 11,2577 45335 SLOAD DSU
053684,000199: 11,2600 01012 MODREG
053685,000200: 11,2601 25776 OCT27
053686,000201: 11,2602 43030 BHIZ BOF
053687,000202: 11,2603 22606 +3
053688,000203: 11,2604 01756 DIM0FLAG
053689,000204: 11,2605 22622 GETRPSV
053690,000205: 11,2606 74375 VLOAD VXSC
053691,000206: 11,2607 02032 ALPHAV
053692,000207: 11,2610 02070 ALPHAM
053693,000208: 11,2611 52257 VSR* VSU
053694,000209: 11,2612 57175 1,2
053695,000210: 11,2613 02040 BETAV
053696,000211: 11,2614 77724 XCHX,2
053697,000212: 11,2615 01500 DIFEQCNT
053698,000213: 11,2616 12140 STORE VECTAB +6,2
053699,000214: 11,2617 02114 STORE RQVV
053700,000215: 11,2620 77724 XCHX,2
053701,000216: 11,2621 01500 DIFEQCNT
053702,000217: 11,2622 62175 GETRPSV VLOAD INCR,1
053703,000218: 11,2623 02105 RPQV
053704,000219: 11,2624 00004 4
053705,000220: 11,2625 43014 CLEAR BOF
053706,000221: 11,2626 04260 RPQFLAG
053707,000222: 11,2627 00343 MOONFLAG
053708,000223: 11,2630 22635 +5
053709,000224: 11,2631 53261 VSR VAD
053710,000225: 11,2632 20612 9D
053711,000226: 11,2633 02122 RPSV
053712,000227: 11,2634 02122 STORE RPSV
053713,000228: 11,2635 77624 CALL
053714,000229: 11,2636 22650 GAMCOMP
053715,000230: 11,2637 62174 AXT,2 INCR,1
053716,000231: 11,2640 00004 4
053717,000232: 11,2641 00004 4
053718,000233: 11,2642 77775 VLOAD
053719,000234: 11,2643 02122 RPSV
053720,000235: 11,2644 36040 STCALL BETAV
053721,000236: 11,2645 22650 GAMCOMP
053722,000237: 11,2646 77650 GOTO
053723,000238: 11,2647 23022 OBLATE
053724,000239: 11,2650 74575 GAMCOMP VLOAD VSR1
053725,000240: 11,2651 02040 BETAV
053726,000241: 11,2652 40236 VSQ SETPD
053727,000242: 11,2653 00001 0
053728,000243: 11,2654 61501 NORM ROUND
053729,000244: 11,2655 00040 31D
053730,000245: 11,2656 60325 PDDL NORM # NORMED B SQUARED TO PD LIST
![]() |
Page 1232 |
053732,000247: 11,2657 02070 ALPHAM # NORMALIZE (LESS ONE) LENGTH OF ALPHA
053733,000248: 11,2660 00041 32D # SAVING NORM SCALE FACTOR IN X1
053734,000249: 11,2661 63342 SR1 PDVL
053735,000250: 11,2662 02040 BETAV # C(PDL+2) = ALMOST NORMED ALPHA
053736,000251: 11,2663 77656 UNIT
053737,000252: 11,2664 16040 STODL BETAV
053738,000253: 11,2665 00045 36D
053739,000254: 11,2666 02072 STORE BETAM
053740,000255: 11,2667 55301 NORM BDDV # FORM NORMALIZED QUOTIENT ALPHAM/BETAM
053741,000256: 11,2670 00042 33D
053742,000257: 11,2671 41562 SR1R PUSH # C(PDL+2) = ALMOST NORMALIZED RHO.
053743,000258: 11,2672 77743 DLOAD*
053744,000259: 11,2673 27710 ASCALE,1
053745,000260: 11,2674 00051 STORE S1
053746,000261: 11,2675 57124 XCHX,2 XAD,2
053747,000262: 11,2676 00050 S1
053748,000263: 11,2677 00040 32D
053749,000264: 11,2700 71264 XSU,2 DLOAD
053750,000265: 11,2701 00041 33D
053751,000266: 11,2702 00003 2D
053752,000267: 11,2703 65057 SR* XCHX,2
053753,000268: 11,2704 57177 0 -1,2
053754,000269: 11,2705 00050 S1
053755,000270: 11,2706 74406 PUSH SR1R # RHO/4 TO 4D
053756,000271: 11,2707 50315 PDVL DOT
053757,000272: 11,2710 02032 ALPHAV
053758,000273: 11,2711 02040 BETAV
053759,000274: 11,2712 44372 SL1R BDSU # (RHO/4) - 2(ALPHAV/2.BETAV/2)
053760,000275: 11,2713 57206 PUSH DMPR # TO PDL+6
053761,000276: 11,2714 00005 4
053762,000277: 11,2715 77752 SL1
053763,000278: 11,2716 43206 PUSH DAD
053764,000279: 11,2717 25756 DQUARTER
053765,000280: 11,2720 75406 PUSH SQRT
053766,000281: 11,2721 41475 DMPR PUSH
053767,000282: 11,2722 00013 10D
053768,000283: 11,2723 43352 SL1 DAD
053769,000284: 11,2724 25756 DQUARTER
053770,000285: 11,2725 43325 PDDL DAD # (1/4)+2((Q+1)/4) TO PD+14D
053771,000286: 11,2726 00013 10D
053772,000287: 11,2727 24005 HALFDP
053773,000288: 11,2730 72475 DMPR SL1
053774,000289: 11,2731 00011 8D
053775,000290: 11,2732 56215 DAD DDV
053776,000291: 11,2733 25750 THREE/8
053777,000292: 11,2734 00017 14D
053778,000293: 11,2735 74275 DMPR VXSC
053779,000294: 11,2736 00007 6
053780,000295: 11,2737 02040 BETAV # -
053781,000296: 11,2740 64515 PDVL VSR3 # (G/2)(C(PD+4))B/2 TO PD+16D
![]() |
Page 1233 |
053783,000298: 11,2741 02032 ALPHAV
053784,000299: 11,2742 41455 VAD PUSH # A12 + C(PD+16D) TO PD+16D
053785,000300: 11,2743 41345 DLOAD DMP
053786,000301: 11,2744 00001 0
053787,000302: 11,2745 00015 12D
053788,000303: 11,2746 61501 NORM ROUND
053789,000304: 11,2747 00037 30D
053790,000305: 11,2750 40665 BDDV DMP*
053791,000306: 11,2751 00003 2
053792,000307: 11,2752 51770 MUEARTH,2
053793,000308: 11,2753 74276 DCOMP VXSC
053794,000309: 11,2754 57124 XCHX,2 XAD,2
053795,000310: 11,2755 00050 S1
053796,000311: 11,2756 00051 S2
053797,000312: 11,2757 55064 XSU,2 XSU,2
053798,000313: 11,2760 00036 30D
053799,000314: 11,2761 00037 31D
053800,000315: 11,2762 77600 BOV # CLEAR OVIND
053801,000316: 11,2763 22764 +1
053802,000317: 11,2764 65057 VSR* XCHX,2
053803,000318: 11,2765 57177 0 -1,2
053804,000319: 11,2766 00050 S1
053805,000320: 11,2767 77655 VAD
053806,000321: 11,2770 02062 FV
053807,000322: 11,2771 02062 STORE FV
053808,000323: 11,2772 43400 BOV RVQ # RETURN IF NO OVERFLOW
053809,000324: 11,2773 22774 +1
053810,000325: 11,2774 51575 GOBAQUE VLOAD ABVAL
053811,000326: 11,2775 01521 TDELTAV
053812,000327: 11,2776 77654 BZE
053813,000328: 11,2777 23017 INT-ABRT
053814,000329: 11,3000 54345 DLOAD SR
053815,000330: 11,3001 02100 H
053816,000331: 11,3002 20612 9D
053817,000332: 11,3003 44206 PUSH BDSU
053818,000333: 11,3004 01551 TC
053819,000334: 11,3005 16074 STODL TAU.
053820,000335: 11,3006 01517 TET
053821,000336: 11,3007 45425 DSU STADR
053822,000337: 11,3010 42260 STCALL TET
053823,000338: 11,3011 22376 KEPPREP
053824,000339: 11,3012 77624 CALL
053825,000340: 11,3013 23441 RECTIFY
053826,000341: 11,3014 77614 SETGO
053827,000342: 11,3015 04020 RPQFLAG
053828,000343: 11,3016 27257 TESTLOOP
053829,000344:
053830,000345: 11,3017 77776 INT-ABRT EXIT
053831,000346: 11,3020 05652 TC POODOO
053832,000347: 11,3021 00430 OCT 00430
053833,000348:
![]() |
Page 1234 |
053835,000350: # THE OBLATE ROUTINE COMPUTES THE ACCELERATION DUE TO OBLATENESS. IT USES THE UNIT OF THE VEHICLE
053836,000351: # POSITION VECTOR FOUND IN ALPHAV AND THE DISTANCE TO THE CENTER IN ALPHAM. THIS IS ADDED TO THE SUM OF THE
053837,000352: # DISTURBING ACCELERATIONS IN FV AND THE PROPER DIFEQ STAGE IS CALLED VIA X1.
053838,000353:
053839,000354: 11,3022 71354 OBLATE LXA,2 DLOAD
053840,000355: 11,3023 02030 PBODY
053841,000356: 11,3024 02070 ALPHAM
053842,000357: 11,3025 44601 SETPD DSU*
053843,000358: 11,3026 00001 0
053844,000359: 11,3027 50053 RDE,2
053845,000360: 11,3030 43044 BPL BOF # GET URPV
053846,000361: 11,3031 23232 NBRANCH
053847,000362: 11,3032 00343 MOONFLAG
053848,000363: 11,3033 23241 COSPHIE
053849,000364: 11,3034 65375 VLOAD PDDL
053850,000365: 11,3035 02032 ALPHAV
053851,000366: 11,3036 01517 TET
053852,000367: 11,3037 45125 PDDL CALL
053853,000368: 11,3040 25746 3/5
053854,000369: 11,3041 51670 R-TO-RP
053855,000370: 11,3042 00017 STORE URPV
053856,000371: 11,3043 47375 VLOAD VXV
053857,000372: 11,3044 02013 504LM
053858,000373: 11,3045 24001 ZUNIT
053859,000374: 11,3046 61255 VAD VXM
053860,000375: 11,3047 24001 ZUNIT
053861,000376: 11,3050 00025 MMATRIX
053862,000377: 11,3051 77656 UNIT # POSSIBLY UNNECESSARY
053863,000378: 11,3052 00025 COMTERM STORE UZ
053864,000379: 11,3053 57345 DLOAD DMPR
053865,000380: 11,3054 00023 COSPHI/2
053866,000381: 11,3055 25760 3/32
053867,000382: 11,3056 63525 PDDL DSQ # P2/64 TO PD0
053868,000383: 11,3057 00023 COSPHI/2
053869,000384: 11,3060 45275 DMPR DSU
053870,000385: 11,3061 25762 15/16
053871,000386: 11,3062 25754 3/64
053872,000387: 11,3063 57206 PUSH DMPR # P3/32 TO PD2
053873,000388: 11,3064 00023 COSPHI/2
053874,000389: 11,3065 76405 DMP SL1R
053875,000390: 11,3066 25766 7/12
053876,000391: 11,3067 57325 PDDL DMPR
053877,000392: 11,3070 00001 0
053878,000393: 11,3071 25774 2/3
053879,000394: 11,3072 41421 BDSU PUSH # P4/128 TO PD4
053880,000395: 11,3073 57275 DMPR DMPR
053881,000396: 11,3074 00023 COSPHI/2 # BEGIN COMPUTING P5/1024
053882,000397: 11,3075 25770 9/16
053883,000398: 11,3076 57325 PDDL DMPR
053884,000399: 11,3077 00003 2
053885,000400: 11,3100 25772 5/128
![]() |
Page 1235 |
053887,000402: 11,3101 77621 BDSU
053888,000403: 11,3102 77603 DMP*
053889,000404: 11,3103 51764 J4REQ/J3,2
053890,000405: 11,3104 43271 DDV DAD # -3
053891,000406: 11,3105 02070 ALPHAM # (((P5/256)B 2 /R+P4/32) /R+P3/8)ALPHAV
053892,000407: 11,3106 00005 4 # 4 3
053893,000408: 11,3107 56273 DMPR* DDV
053894,000409: 11,3110 51760 2J3RE/J2,2
053895,000410: 11,3111 02070 ALPHAM
053896,000411: 11,3112 74215 DAD VXSC
053897,000412: 11,3113 00003 2
053898,000413: 11,3114 02032 ALPHAV
053899,000414: 11,3115 14033 STODL TVEC
053900,000415: 11,3116 70403 DMP* SR1
053901,000416: 11,3117 51764 J4REQ/J3,2
053902,000417: 11,3120 43271 DDV DAD
053903,000418: 11,3121 02070 ALPHAM # -3
053904,000419: 11,3122 50473 DMPR* SR3
053905,000420: 11,3123 51760 2J3RE/J2,2 # 3 4
053906,000421: 11,3124 43271 DDV DAD
053907,000422: 11,3125 02070 ALPHAM
053908,000423: 11,3126 76561 VXSC VSL1
053909,000424: 11,3127 00025 UZ
053910,000425: 11,3130 77645 BVSU
053911,000426: 11,3131 00033 TVEC
053912,000427: 11,3132 14033 STODL TVEC
053913,000428: 11,3133 02070 ALPHAM
053914,000429: 11,3134 63501 NORM DSQ
053915,000430: 11,3135 00047 X1
053916,000431: 11,3136 60316 DSQ NORM
053917,000432: 11,3137 00051 S1 # 4
053918,000433: 11,3140 54606 PUSH BDDV* # NORMED R TO 0D
053919,000434: 11,3141 51754 J2REQSQ,2
053920,000435: 11,3142 40161 VXSC BOV
053921,000436: 11,3143 00033 TVEC
053922,000437: 11,3144 23145 +1 # (RESET OVERFLOW INDICATOR)
053923,000438: 11,3145 56070 XAD,1 XAD,1
053924,000439: 11,3146 00046 X1
053925,000440: 11,3147 00046 X1
053926,000441: 11,3150 53670 XAD,1 VSL*
053927,000442: 11,3151 00050 S1
053928,000443: 11,3152 20153 0 -22D,1
053929,000444: 11,3153 40055 VAD BOV
053930,000445: 11,3154 02062 FV
053931,000446: 11,3155 22774 GOBAQUE
053932,000447: 11,3156 36062 STCALL FV
053933,000448: 11,3157 27725 QUALITY1
053934,000449:
053935,000450: 11,3160 77716 QUALITY3 DSQ # J22 TERM X R**4 IN 2D, SCALED B61
053936,000451: # AS VECTOR.
![]() |
Page 1236 |
053938,000453: 11,3161 41206 PUSH DMP # STORE COSPHI**2 SCALED B2 IN 8D
053939,000454: 11,3162 27712 5/8 # 5 SCALED B3
053940,000455: 11,3163 60525 PDDL SR2 # PUT 5 COSPHI**2, D5, IN 8D. GET
053941,000456: # COSPHI**2 D2 FROM 8D
053942,000457: 11,3164 44215 DAD BDSU # END UP WITH (1-7 COSPHI**2), B5
053943,000458: 11,3165 00011 8D # ADDING COSPHI**2 B4 SAME AS COSPHI**2
053944,000459: # X 2 D5
053945,000460: 11,3166 11043 D1/32 # 1 SCALED B5
053946,000461: 11,3167 41205 DMP DMP
053947,000462: 11,3170 00017 URPV # X COMPONENT
053948,000463: 11,3171 27712 5/8 # 5 SCALED B3
053949,000464: 11,3172 56561 VXSC VSL5 # AFTER SHIFT, SCALED B5
053950,000465: 11,3173 00017 URPV # VECTOR, B1.
053951,000466: 11,3174 77725 PDDL # VECTOR INTO 8D, 10D, 12D, SCALED B5.
053952,000467: # GET 5 COSPHI**2 OUT OF 8D
053953,000468: 11,3175 43225 DSU DAD
053954,000469: 11,3176 11043 D1/32 # 1 B5
053955,000470: 11,3177 00011 8D # X COMPONENT (SAME AS MULTIPLYING
053956,000471: # BY UNITX)
053957,000472: 11,3200 14011 STODL 8D
053958,000473: 11,3201 00017 URPV # X COMPONENT
053959,000474: 11,3202 41205 DMP DMP
053960,000475: 11,3203 00023 URPV +4 # Z COMPONENT
053961,000476: 11,3204 27712 5/8 # 5 B3 ANSWER B5
053962,000477: 11,3205 43352 SL1 DAD # FROM 12D FOR Z COMPONENT (SL1 GIVES 10
053963,000478: # INSTEAD OF 5 FOR COEFFICIENT)
053964,000479: 11,3206 60325 PDDL NORM # BACK INTO 12D FOR Z COMPONENT.
053965,000480: 11,3207 02070 ALPHAM # SCALED B27 FOR MOON
053966,000481: 11,3210 00050 X2
053967,000482: 11,3211 67206 PUSH SLOAD # STORE IN 14D, DESTROYING URPV
053968,000483: # X COMPONENT
053969,000484: 11,3212 01354 E32C31RM
053970,000485: 11,3213 74271 DDV VXSC # IF X2 = 0, DIVISION GIVES B53, VXSC
053971,000486: # OUT OF 8D B5 GIVES B58
053972,000487: 11,3214 53257 VSL* VAD # SHIFT MAKES B61, FOR ADDITION OF
053973,000488: # VECTOR IN 2D
053974,000489: 11,3215 57601 0 -3,2
053975,000490: 11,3216 70257 VSL* V/SC # OPERAND FROM 0D, B108 FOR X1 = 0
053976,000491: 11,3217 20146 0 -27D,1 # FOR X1 = 0, MAKES B88, GIVING B-20
053977,000492: # FOR RESULT.
053978,000493: 11,3220 65325 PDDL PDDL
053979,000494: 11,3221 01517 TET
053980,000495: 11,3222 27712 5/8 # ANY NON-ZERO CONSTANT
053981,000496: 11,3223 45154 LXA,2 CALL # POSITION IN 0D, TIME IN 6D. X2 LEFT
053982,000497: # ALONE.
053983,000498: 11,3224 02030 PBODY
053984,000499: 11,3225 55716 RP-TO-R
053985,000500: 11,3226 40055 VAD BOV # OVERFLOW INDICATOR RESET IN "RP-TO-R"
053986,000501: 11,3227 02062 FV
053987,000502: 11,3230 22774 GOBAQUE
![]() |
Page 1237 |
053989,000504: 11,3231 02062 STORE FV
053990,000505: 11,3232 72135 NBRANCH SLOAD LXA,1
053991,000506: 11,3233 01501 DIFEQCNT
053992,000507: 11,3234 00154 MPAC
053993,000508: 11,3235 73205 DMP CGOTO
053994,000509: 11,3236 27714 -1/12
053995,000510: 11,3237 00155 MPAC
053996,000511: 11,3240 23247 DIFEQTAB
053997,000512: 11,3241 77745 COSPHIE DLOAD
053998,000513: 11,3242 02036 ALPHAV +4
053999,000514: 11,3243 24023 STOVL COSPHI/2
054000,000515: 11,3244 24001 ZUNIT
054001,000516: 11,3245 77650 GOTO
054002,000517: 11,3246 23052 COMTERM
054003,000518: 11,3247 23466 DIFEQTAB CADR DIFEQ+0
054004,000519: 11,3250 23472 CADR DIFEQ+1
054005,000520: 11,3251 23503 CADR DIFEQ+2
054006,000521: 11,3252 77214 TIMESTEP BOF VLOAD
054007,000522: 11,3253 00342 MIDFLAG
054008,000523: 11,3254 23303 RECTEST
054009,000524: 11,3255 01535 RCV
054010,000525: 11,3256 41241 DOT DMP
054011,000526: 11,3257 01543 VCV
054012,000527: 11,3260 02076 DT/2 # (R.V) X (DELTA T)
054013,000528: 11,3261 77640 BMN
054014,000529: 11,3262 23303 RECTEST
054015,000530: 11,3263 43014 BON BOF
054016,000531: 11,3264 00303 MOONFLAG
054017,000532: 11,3265 23360 LUNSPH
054018,000533: 11,3266 04340 RPQFLAG
054019,000534: 11,3267 23355 EARSPH
054020,000535: 11,3270 45145 DLOAD CALL
054021,000536: 11,3271 01517 TET
054022,000537: 11,3272 33664 LSPOS # RPQV IN MPAC
054023,000538: 11,3273 02105 STORE RPQV # RPQV
054024,000539: 11,3274 77754 LXA,2
054025,000540: 11,3275 02030 PBODY
054026,000541: 11,3276 51445 INLUNCHK BVSU ABVAL
054027,000542: 11,3277 01535 RCV
054028,000543: 11,3300 50025 DSU BMN
054029,000544: 11,3301 27720 RSPHERE
054030,000545: 11,3302 23375 DOSWITCH
054031,000546: 11,3303 51575 RECTEST VLOAD ABVAL # RECTIFY IF
054032,000547: 11,3304 01521 TDELTAV
054033,000548: 11,3305 77600 BOV
054034,000549: 11,3306 23331 CALLRECT
054035,000550: 11,3307 51025 DSU BPL # 1) EITHER TDELTAV OR TNUV EQUALS OR
054036,000551: 11,3310 25764 3/4 # EXCEEDS 3/4 IN MAGNITUDE
054037,000552: 11,3311 23331 CALLRECT
054038,000553: 11,3312 53615 DAD SL* # OR
![]() |
Page 1238 |
054040,000555: 11,3313 25764 3/4
054041,000556: 11,3314 57605 0 -7,2 # 2) ABVAL(TDELTAV) EQUALS OR EXCEEDS
054042,000557: 11,3315 45271 DDV DSU # .01(ABVAL(RCV))
054043,000558: 11,3316 00013 10D
054044,000559: 11,3317 27716 RECRATIO
054045,000560: 11,3320 77244 BPL VLOAD
054046,000561: 11,3321 23331 CALLRECT
054047,000562: 11,3322 01527 TNUV
054048,000563: 11,3323 45246 ABVAL DSU
054049,000564: 11,3324 25764 3/4
054050,000565: 11,3325 77600 BOV
054051,000566: 11,3326 23331 CALLRECT
054052,000567: 11,3327 77640 BMN
054053,000568: 11,3330 23333 INTGRATE
054054,000569: 11,3331 77624 CALLRECT CALL
054055,000570: 11,3332 23441 RECTIFY
054056,000571: 11,3333 77775 INTGRATE VLOAD
054057,000572: 11,3334 01527 TNUV
054058,000573: 11,3335 25135 STOVL ZV
054059,000574: 11,3336 01521 TDELTAV
054060,000575: 11,3337 01127 STORE YV
054061,000576: 11,3340 77614 CLEAR
054062,000577: 11,3341 00261 JSWITCH
054063,000578: 11,3342 66375 DIFEQ0 VLOAD SSP
054064,000579: 11,3343 01127 YV
054065,000580: 11,3344 01501 DIFEQCNT
054066,000581: 11,3345 00000 0
054067,000582: 11,3346 16032 STODL ALPHAV
054068,000583: 11,3347 24007 DPZERO
054069,000584: 11,3350 02100 STORE H # START H AT ZERO. GOES 0(DELT/2)DELT.
054070,000585: 11,3351 52014 BON GOTO
054071,000586: 11,3352 00301 JSWITCH
054072,000587: 11,3353 23705 DOW..
054073,000588: 11,3354 22516 ACCOMP
054074,000589: 11,3355 52175 EARSPH VLOAD GOTO
054075,000590: 11,3356 02105 RPQV
054076,000591: 11,3357 23276 INLUNCHK
054077,000592: 11,3360 60545 LUNSPH DLOAD SR2
054078,000593: 11,3361 00013 10D
054079,000594: 11,3362 50025 DSU BMN
054080,000595: 11,3363 27720 RSPHERE
054081,000596: 11,3364 23303 RECTEST
054082,000597: 11,3365 71214 BOF DLOAD
054083,000598: 11,3366 04340 RPQFLAG
054084,000599: 11,3367 23375 DOSWITCH
054085,000600: 11,3370 01517 TET
054086,000601: 11,3371 77624 CALL
054087,000602: 11,3372 33664 LUNPOS
054088,000603: 11,3373 77676 VCOMP
054089,000604: 11,3374 02105 STORE RPQV
![]() |
Page 1239 |
054091,000606: 11,3375 77624 DOSWITCH CALL
054092,000607: 11,3376 23401 ORIGCHNG
054093,000608: 11,3377 77650 GOTO
054094,000609: 11,3400 23333 INTGRATE
054095,000610: 11,3401 45020 ORIGCHNG STQ CALL
054096,000611: 11,3402 02112 ORIGEX
054097,000612: 11,3403 23441 RECTIFY
054098,000613: 11,3404 53775 VLOAD VSL*
054099,000614: 11,3405 01535 RCV
054100,000615: 11,3406 57576 0,2
054101,000616: 11,3407 53651 VSU VSL*
054102,000617: 11,3410 02105 RPQV
054103,000618: 11,3411 57574 2,2
054104,000619: 11,3412 01503 STORE RRECT
054105,000620: 11,3413 15535 STODL RCV
054106,000621: 11,3414 01517 TET
054107,000622: 11,3415 77624 CALL
054108,000623: 11,3416 33775 LUNVEL
054109,000624: 11,3417 57414 BOF VCOMP
054110,000625: 11,3420 00343 MOONFLAG
054111,000626: 11,3421 23422 +1
054112,000627: 11,3422 53715 PDVL VSL*
054113,000628: 11,3423 01543 VCV
054114,000629: 11,3424 57576 0,2
054115,000630: 11,3425 77651 VSU
054116,000631: 11,3426 77657 VSL*
054117,000632: 11,3427 57574 0 +2,2
054118,000633: 11,3430 01511 STORE VRECT
054119,000634: 11,3431 01543 STORE VCV
054120,000635: 11,3432 67154 LXA,2 SXA,2
054121,000636: 11,3433 02112 ORIGEX
054122,000637: 11,3434 00052 QPRET
054123,000638: 11,3435 52014 BON GOTO
054124,000639: 11,3436 00303 MOONFLAG
054125,000640: 11,3437 26711 CLRMOON
054126,000641: 11,3440 26716 SETMOON
![]() |
Page 1240 |
054128,000643: # THE RECTIFY SUBROUTINE IS CALLED BY THE INTEGRATION PROGRAM AND OCCASIONALLY BY THE MEASUREMENT INCORPORATION
054129,000644: # ROUTINES TO ESTABLISH A NEW CONIC.
054130,000645:
054131,000646: 11,3441 77354 RECTIFY LXA,2 VLOAD
054132,000647: 11,3442 02030 PBODY
054133,000648: 11,3443 01521 TDELTAV
054134,000649: 11,3444 53257 VSL* VAD
054135,000650: 11,3445 57605 0 -7,2
054136,000651: 11,3446 01535 RCV
054137,000652: 11,3447 01503 STORE RRECT
054138,000653: 11,3450 25535 STOVL RCV
054139,000654: 11,3451 01527 TNUV
054140,000655: 11,3452 53257 VSL* VAD
054141,000656: 11,3453 57602 0 -4,2
054142,000657: 11,3454 01543 VCV
054143,000658: 11,3455 01511 MINIRECT STORE VRECT
054144,000659: 11,3456 25543 STOVL VCV
054145,000660: 11,3457 24007 ZEROVEC
054146,000661: 11,3460 01521 STORE TDELTAV
054147,000662: 11,3461 15527 STODL TNUV
054148,000663: 11,3462 24007 ZEROVEC
054149,000664: 11,3463 01551 STORE TC
054150,000665: 11,3464 01553 STORE XKEP
054151,000666: 11,3465 77616 RVQ
054152,000667:
![]() |
Page 1241 |
054154,000669: # THE THREE DIFEQ ROUTINES - DIFEQ+0, DIFEQ+12, AND DIFEQ+24 - ARE ENTERED TO PROCESS THE CONTRIBUTIONS AT THE
054155,000670: # BEGINNING, MIDDLE, AND END OF THE TIMESTEP, RESPECTIVELY. THE UPDATING IS DONE BY THE NYSTROM METHOD.
054156,000671:
054157,000672: 11,3466 64575 DIFEQ+0 VLOAD VSR3
054158,000673: 11,3467 02062 FV
054159,000674: 11,3470 36046 STCALL PHIV
054160,000675: 11,3471 23646 DIFEQCOM
054161,000676: 11,3472 74575 DIFEQ+1 VLOAD VSR1
054162,000677: 11,3473 02062 FV
054163,000678: 11,3474 53206 PUSH VAD
054164,000679: 11,3475 02046 PHIV
054165,000680: 11,3476 26054 STOVL PSIV
054166,000681: 11,3477 53362 VSR1 VAD
054167,000682: 11,3500 02046 PHIV
054168,000683: 11,3501 36046 STCALL PHIV
054169,000684: 11,3502 23646 DIFEQCOM
054170,000685: 11,3503 57345 DIFEQ+2 DLOAD DMPR
054171,000686: 11,3504 02100 H
054172,000687: 11,3505 25774 DP2/3
054173,000688: 11,3506 74206 PUSH VXSC
054174,000689: 11,3507 02046 PHIV
054175,000690: 11,3510 53372 VSL1 VAD
054176,000691: 11,3511 01135 ZV
054177,000692: 11,3512 53361 VXSC VAD
054178,000693: 11,3513 02100 H
054179,000694: 11,3514 01127 YV
054180,000695: 11,3515 25127 STOVL YV
054181,000696: 11,3516 02062 FV
054182,000697: 11,3517 53322 VSR3 VAD
054183,000698: 11,3520 02054 PSIV
054184,000699: 11,3521 76561 VXSC VSL1
054185,000700: 11,3522 77655 VAD
054186,000701: 11,3523 01135 ZV
054187,000702: 11,3524 01135 STORE ZV
054188,000703: 11,3525 45014 BOFF CALL
054189,000704: 11,3526 00341 JSWITCH
054190,000705: 11,3527 23577 ENDSTATE
054191,000706: 11,3530 11244 GRP2PC
054192,000707: 11,3531 77354 LXA,2 VLOAD
054193,000708: 11,3532 01117 COLREG
054194,000709: 11,3533 01135 ZV
054195,000710: 11,3534 77732 VSL3 # ADJUST W-POSITION FOR STORAGE
054196,000711: 11,3535 12467 STORE W +54D,2
054197,000712: 11,3536 77775 VLOAD
054198,000713: 11,3537 01127 YV
054199,000714: 11,3540 40132 VSL3 BOV
054200,000715: 11,3541 23671 WMATEND
054201,000716: 11,3542 12401 STORE W,2
054202,000717:
054203,000718: 11,3543 77624 CALL
054204,000719: 11,3544 11244 GRP2PC
![]() |
Page 1242 |
054206,000721: 11,3545 66354 LXA,2 SSP
054207,000722: 11,3546 01117 COLREG
054208,000723: 11,3547 00052 S2
054209,000724: 11,3550 00000 0
054210,000725: 11,3551 67114 INCR,2 SXA,2
054211,000726: 11,3552 00006 6
054212,000727: 11,3553 01126 YV
054213,000728: 11,3554 45104 TIX,2 CALL
054214,000729: 11,3555 23642 RELOADSV
054215,000730: 11,3556 11244 GRP2PC
054216,000731: 11,3557 67154 LXA,2 SXA,2
054217,000732: 11,3560 01126 YV
054218,000733: 11,3561 01117 COLREG
054219,000734:
054220,000735: 11,3562 77624 NEXTCOL CALL
054221,000736: 11,3563 11244 GRP2PC
054222,000737: 11,3564 76754 LXA,2 VLOAD*
054223,000738: 11,3565 01117 COLREG
054224,000739: 11,3566 75376 W,2
054225,000740: 11,3567 77722 VSR3 # ADJUST W-POSITION FOR INTEGRATION
054226,000741: 11,3570 01127 STORE YV
054227,000742: 11,3571 76173 VLOAD* AXT,1
054228,000743: 11,3572 75310 W +54D,2
054229,000744: 11,3573 00000 0
054230,000745: 11,3574 77722 VSR3 # ADJUST W-VELOCITY FOR INTEGRATION
054231,000746: 11,3575 35135 STCALL ZV
054232,000747: 11,3576 23342 DIFEQ0
054233,000748:
054234,000749: 11,3577 77200 ENDSTATE BOV VLOAD
054235,000750: 11,3600 22774 GOBAQUE
054236,000751: 11,3601 01135 ZV
054237,000752: 11,3602 25527 STOVL TNUV
054238,000753: 11,3603 01127 YV
054239,000754: 11,3604 01521 STORE TDELTAV
054240,000755: 11,3605 43014 BON BOFF
054241,000756: 11,3606 04715 MIDAVFLG
054242,000757: 11,3607 27633 CKMID2 # CHECK FOR MID2 BEFORE GOING TO TIMEINC
054243,000758: 11,3610 01756 DIM0FLAG
054244,000759: 11,3611 27257 TESTLOOP
054245,000760: 11,3612 77776 EXIT
054246,000761: 11,3613 05353 TC PHASCHNG
054247,000762: 11,3614 04022 OCT 04022 # PHASE 1
054248,000763: 11,3615 05504 TC UPFLAG # PHASE CHANGE HAS OCCURRED BETWEEN
054249,000764: 11,3616 00236 ADRES REINTFLG # INTSTALL AND INTWAKE
054250,000765: 11,3617 06037 TC INTPRET
054251,000766: 11,3620 77731 SSP
054252,000767: 11,3621 00053 QPRET
054253,000768: 11,3622 23627 AMOVED
054254,000769: 11,3623 52014 BON GOTO
054255,000770: 11,3624 01714 VINTFLAG
![]() |
Page 1243 |
054257,000772: 11,3625 26661 ATOPCSM
054258,000773: 11,3626 26734 ATOPLEM
054259,000774: 11,3627 66214 AMOVED SET SSP
054260,000775: 11,3630 00061 JSWITCH
054261,000776: 11,3631 01120 COLREG
054262,000777: 11,3632 77741 DEC -30 B-14
054263,000778: 11,3633 66214 BOFF SSP
054264,000779: 11,3634 01755 D6OR9FLG
054265,000780: 11,3635 23562 NEXTCOL
054266,000781: 11,3636 01120 COLREG
054267,000782: 11,3637 77717 DEC -48 B-14
054268,000783: 11,3640 77650 GOTO
054269,000784: 11,3641 23562 NEXTCOL
054270,000785:
054271,000786: 11,3642 77745 RELOADSV DLOAD # RELOAD TEMPORARY STATE VECTOR
054272,000787: 11,3643 01116 TDEC # FROM PERMANENT IN CASE OF
054273,000788: 11,3644 34041 STCALL TDEC1
054274,000789: 11,3645 27141 INTEGRV2 # BY STARTING AT INTEGRV2.
054275,000790: 11,3646 43345 DIFEQCOM DLOAD DAD # INCREMENT H AND DIFEQCNT.
054276,000791: 11,3647 02076 DT/2
054277,000792: 11,3650 02100 H
054278,000793: 11,3651 66110 INCR,1 SXA,1
054279,000794: 11,3652 77763 DEC -12 B-14
054280,000795: 11,3653 01500 DIFEQCNT # DIFEQCNT SET FOR NEXT ENTRY.
054281,000796: 11,3654 02100 STORE H
054282,000797: 11,3655 74561 VXSC VSR1
054283,000798: 11,3656 02062 FV
054284,000799: 11,3657 74255 VAD VXSC
054285,000800: 11,3660 01135 ZV
054286,000801: 11,3661 02100 H
054287,000802: 11,3662 77655 VAD
054288,000803: 11,3663 01127 YV
054289,000804: 11,3664 02032 STORE ALPHAV
054290,000805: 11,3665 52014 BON GOTO
054291,000806: 11,3666 00301 JSWITCH
054292,000807: 11,3667 23705 DOW..
054293,000808: 11,3670 22476 FBR3
054294,000809:
054295,000810: 11,3671 43014 WMATEND CLEAR CLEAR
054296,000811: 11,3672 01676 DIM0FLAG # DONT INTEGRATE W THIS TIME
054297,000812: 11,3673 01671 ORBWFLAG # INVALIDATE W
054298,000813: 11,3674 77614 CLEAR
054299,000814: 11,3675 02676 RENDWFLG
054300,000815: 11,3676 77414 SET EXIT
054301,000816: 11,3677 01472 STATEFLG # PICK UP STATE VECTOR UPDATE
054302,000817: 11,3700 05567 TC ALARM
054303,000818: 11,3701 00421 OCT 421
054304,000819: 11,3702 06037 TC INTPRET
![]() |
Page 1244 |
054306,000821: 11,3703 77650 GOTO
054307,000822: 11,3704 27257 TESTLOOP # FINISH INTEGRATING STATE VECTOR
054308,000823:
![]() |
Page 1245 |
054310,000825: # ORBITAL ROUTINE FOR EXTRAPOLATION OF THE W MATRIX. IT COMPUTES THE SECOND DERIVATIVE OF EACH COLUMN POSITION
054311,000826: # VECTOR OF THE MATRIX AND CALLS THE NYSTROM INTEGRATION ROUTINES TO SOLVE THE DIFFERENTIAL EQUATIONS. THE PROGRAM
054312,000827: # USES A TABLE OF VEHICLE POSITION VECTORS COMPUTED DURING THE INTEGRATION OF THE VEHICLES POSITION AND VELOCITY.
054313,000828:
054314,000829: 11,3705 70754 DOW.. LXA,2 DLOAD*
054315,000830: 11,3706 02030 PBODY
054316,000831: 11,3707 51770 MUEARTH,2
054317,000832: 11,3710 36072 STCALL BETAM
054318,000833: 11,3711 23733 DOW..1
054319,000834: 11,3712 02062 STORE FV
054320,000835: 11,3713 62014 BOF INCR,1
054321,000836: 11,3714 00342 MIDFLAG
054322,000837: 11,3715 23232 NBRANCH
054323,000838: 11,3716 77771 DEC -6 B-14
054324,000839: 11,3717 70744 LXC,2 DLOAD*
054325,000840: 11,3720 02030 PBODY
054326,000841: 11,3721 51772 MUEARTH -2,2
054327,000842: 11,3722 36072 STCALL BETAM
054328,000843: 11,3723 23733 DOW..1
054329,000844: 11,3724 50414 BON VSR6
054330,000845: 11,3725 00303 MOONFLAG
054331,000846: 11,3726 23727 +1
054332,000847: 11,3727 77655 VAD
054333,000848: 11,3730 02062 FV
054334,000849: 11,3731 36062 STCALL FV
054335,000850: 11,3732 23232 NBRANCH
054336,000851: 11,3733 60575 DOW..1 VLOAD VSR4
054337,000852: 11,3734 02032 ALPHAV
054338,000853: 11,3735 53513 PDVL* UNIT
054339,000854: 11,3736 02132 VECTAB,1
054340,000855: 11,3737 46315 PDVL VPROJ
054341,000856: 11,3740 02032 ALPHAV
054342,000857: 11,3741 52361 VXSC VSU
054343,000858: 11,3742 25764 3/4
054344,000859: 11,3743 60325 PDDL NORM
054345,000860: 11,3744 00045 36D
054346,000861: 11,3745 00052 S2
054347,000862: 11,3746 63406 PUSH DSQ
054348,000863: 11,3747 77605 DMP
054349,000864: 11,3750 65301 NORM PDDL
054350,000865: 11,3751 00043 34D
054351,000866: 11,3752 02072 BETAM
054352,000867: 11,3753 56342 SR1 DDV
054353,000868: 11,3754 77761 VXSC
054354,000869: 11,3755 57154 LXA,2 XAD,2
054355,000870: 11,3756 00051 S2
054356,000871: 11,3757 00051 S2
054357,000872: 11,3760 57074 XAD,2 XAD,2
054358,000873: 11,3761 00051 S2
054359,000874: 11,3762 00042 34D
054360,000875: 11,3763 43457 VSL* RVQ
![]() |
Page 1246 |
054362,000877: 11,3764 57606 0 -8D,2
054363,000878:
054364,000879: # ****************************************************************************************************************
054365,000880: # ****************************************************************************************************************
054366,000881: 11,3765 43131 SETITCTR SSP BOFF # SET ITERCTR FOR LAMBERT CALLS. THIS
054367,000882: 11,3766 00027 ITERCTR # CODING BELONGS IN INITVEL AND IS HERE
054368,000883: 11,3767 00024 20D # FOR PURPOSES OF A ONE-MODULE
054369,000884: 11,3770 03752 AVEGFLAG # REMANUFACTURE ONLY. CODING SHOULD
054370,000885: 11,3771 25212 LAMBERT # BE MOVED BACK TO INITVEL FOR LUMINARY 1B
054371,000886: 11,3772 52131 SSP GOTO
054372,000887: 11,3773 00027 ITERCTR
054373,000888: 11,3774 00005 5
054374,000889: 11,3775 25212 LAMBERT
054375,000890: # ****************************************************************************************************************
054376,000891: # ****************************************************************************************************************
054377,000892:
054378,000893: 12,2000 SETLOC ORBITAL1
054379,000894: 12,2000 BANK
054380,000895:
054381,000896: 12,3745 04631 23146 3/5 2DEC .6 B-2
054382,000897:
054383,000898: 12,3747 14000 00000 THREE/8 2DEC .375
054384,000899:
054385,000900: 12,3751 02314 31463 .3D 2DEC .3 B-2
054386,000901:
054387,000902: 12,3753 01400 00000 3/64 2DEC 3 B-6
054388,000903:
054389,000904: 12,3755 10000 00000 DP1/4 2DEC .25
054390,000905:
054391,000906: 12,3757 12,3755 DQUARTER EQUALS DP1/4
054392,000907: 12,3757 12,3755 POS1/4 EQUALS DP1/4
054393,000908: 12,3757 03000 00000 3/32 2DEC 3 B-5
054394,000909:
054395,000910: 12,3761 36000 00000 15/16 2DEC 15. B-4
054396,000911:
054397,000912: 12,3763 30000 00000 3/4 2DEC 3.0 B-2
054398,000913:
054399,000914: 12,3765 22525 12525 7/12 2DEC .5833333333
054400,000915:
054401,000916: 12,3767 22000 00000 9/16 2DEC 9 B-4
054402,000917:
054403,000918: 12,3771 01200 00000 5/128 2DEC 5 B-7
054404,000919:
054405,000920: 12,3773 12,2006 DPZERO EQUALS ZEROVEC
054406,000921: 12,3773 25252 25253 DP2/3 2DEC .6666666667
054407,000922:
054408,000923: 12,3775 12,3773 2/3 EQUALS DP2/3
054409,000924: 12,3775 00027 OCT27 OCT 27
054410,000925:
![]() |
Page 1247 |
054412,000927: 13,3675 BANK 13
054413,000928: 13,2000 SETLOC ORBITAL2
054414,000929: 13,2000 BANK
054415,000930: # IT IS VITAL THAT THE FOLLOWING CONSTANTS NOT BE SHUFFLED
054416,000931: 13,3675 77764 DEC -11 B-14
054417,000932: 13,3676 77775 DEC -2 B-14
054418,000933: 13,3677 77766 DEC -9 B-14
054419,000934: 13,3700 77771 DEC -6 B-14
054420,000935: 13,3701 77775 DEC -2 B-14
054421,000936: 13,3702 77775 DEC -2 B-14
054422,000937: 13,3703 00000 DEC 0 B-14
054423,000938: 13,3704 77763 DEC -12 B-14
054424,000939: 13,3705 77766 DEC -9 B-14
054425,000940: 13,3706 77773 DEC -4 B-14
054426,000941: 13,3707 77770 ASCALE DEC -7 B-14
054427,000942: 13,3710 77771 DEC -6 B-14
054428,000943: 13,3711 24000 00000 5/8 2DEC 5 B-3
054429,000944:
054430,000945: 13,3713 74631 63145 -1/12 2DEC -.1
054431,000946:
054432,000947: 13,3715 00243 32703 RECRATIO 2DEC .01
054433,000948:
054434,000949: 13,3717 03654 21000 RSPHERE 2DEC 64373.76 E3 B-29
054435,000950:
054436,000951: 13,3721 03654 21000 RDM 2DEC 16093.44 E3 B-27
054437,000952:
054438,000953: 13,3723 04627 25200 RDE 2DEC 80467.20 E3 B-29
054439,000954:
054440,000955: 13,3725 RATT EQUALS 00
054441,000956: 13,3725 VATT EQUALS 6D
054442,000957: 13,3725 TAT EQUALS 12D
054443,000958: 13,3725 RATT1 EQUALS 14D
054444,000959: 13,3725 VATT1 EQUALS 20D
054445,000960: 13,3725 MU(P) EQUALS 26D
054446,000961: 13,3725 TDEC1 EQUALS 32D
054447,000962: 13,3725 URPV EQUALS 14D
054448,000963: 13,3725 0022 COSPHI/2 EQUALS URPV +4
054449,000964: 13,3725 UZ EQUALS 20D
054450,000965: 13,3725 TVEC EQUALS 26D
054451,000966:
054452,000967: 13,3725 71214 QUALITY1 BOF DLOAD
054453,000968: 13,3726 00343 MOONFLAG
054454,000969: 13,3727 23232 NBRANCH
054455,000970: 13,3730 00017 URPV
054456,000971: 13,3731 77716 DSQ
054457,000972: 13,3732 63525 QUALITY2 PDDL DSQ # SQUARE INTO 2D, B2
054458,000973: 13,3733 00021 URPV +2 # Y COMPONENT, B1
054459,000974: 13,3734 77625 DSU
054460,000975: 13,3735 74205 DMP VXSC # 5(Y**2-X**2)UR
054461,000976: 13,3736 27712 5/8 # CONSTANT, 5B3
054462,000977: 13,3737 00017 URPV # VECTOR. RESULT MAXIMUM IS 5, SCALING
![]() |
Page 1248 |
054464,000979: # HERE B6
054465,000980: 13,3740 65332 VSL3 PDDL # STORE SCALED B3 IN 2D, 4D, 6D FOR XYZ
054466,000981: 13,3741 00017 URPV # X COMPONENT, B1
054467,000982: 13,3742 43342 SR1 DAD # 2 X X COMPONENT FOR B3 SCALING
054468,000983: 13,3743 00003 2D # ADD TO VECTOR X COMPONENT OF ANSWER,
054469,000984: # SAME AS MULTIPLYING BY UNITX. MAX IS 7.
054470,000985: 13,3744 14003 STODL 2D
054471,000986: 13,3745 00021 URPV +2 # Y COMPONENT, B1
054472,000987: 13,3746 44342 SR1 BDSU # 2 X Y COMPONENT FOR B3 SCALING
054473,000988: 13,3747 00005 4D # SUBTRACT FROM VECTOR Y COMPONENT OF
054474,000989: # ANSWER, SAME AS MULTIPLYING BY UNITY.
054475,000990: # MAX IS 7.
054476,000991: 13,3750 00005 STORE 4D # 2D HAS VECTOR, B3.
054477,000992: 13,3751 74335 SLOAD VXSC # MULTIPLY COEFFIECIENT TIMES VECTOR IN 2D
054478,000993: 13,3752 01353 E3J22R2M
054479,000994: 13,3753 43525 PDDL RVQ # J22 TERM X R**4 IN 2D, SCALED B61
054480,000995: 13,3754 00023 COSPHI/2 # SAME AS URPV +4 Z COMPONENT
054481,000996:
End of include-file ORBITAL_INTEGRATION.agc. Parent file is MAIN.agc