Source Code
![]() |
These source-code files were transcribed from scans made from Don Eyles's personal
copy of Luminary 069. They were scanned at archive.org's Boston
facility, and the scanning was sponsored by Onno Hommes. The code was transcribed
from these scans by a team of volunteers who are referenced in the program
comments. Comments from the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". In some cases, where
similar code blocks exist in previously-transcribed AGC programs (primarily
Luminary 99, from Apollo 11) those code blocks were used as a starting point and
then corrected to agree with the Luminary 69 scans. The full scans are available
at the Virtual AGC
project's collection at archive.org, while more-convenient reduced-size (but reduced-quality)
images are available at
the main Virtual AGC website. Report any errors noted by creating an
issue report at the Virtual AGC
project's GitHub repository. Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011 19:02 NOV. 25,1968Note that the date is the date of the printout, not the date of the program revision. |
053044,000002: ## Copyright: Public domain.
053045,000003: ## Filename: ORBITAL_INTEGRATION.agc
053046,000004: ## Purpose: The main source file for Luminary revision 069.
053047,000005: ## It is part of the source code for the original release
053048,000006: ## of the flight software for the Lunar Module's (LM) Apollo
053049,000007: ## Guidance Computer (AGC) for Apollo 10. The actual flown
053050,000008: ## version was Luminary 69 revision 2, which included a
053051,000009: ## newer lunar gravity model and only affected module 2.
053052,000010: ## This file is intended to be a faithful transcription, except
053053,000011: ## that the code format has been changed to conform to the
053054,000012: ## requirements of the yaYUL assembler rather than the
053055,000013: ## original YUL assembler.
053056,000014: ## Reference: pp. 1223-1243
053057,000015: ## Assembler: yaYUL
053058,000016: ## Contact: Ron Burkey <info@sandroid.org>.
053059,000017: ## Website: www.ibiblio.org/apollo/index.html
053060,000018: ## Mod history: 2016-12-13 MAS Created from Luminary 99.
053061,000019: ## 2016-12-18 MAS Updated from comment-proofed Luminary 99 version.
053062,000020: ## 2017-01-21 RRB Updated for Luminary 69.
053063,000021: ## 2017-01-22 HG Remove non existent code arround label GOBAQUE
053064,000022: ## Remove incorrect "," in interpretative operand
053065,000023: ## Fix interpretive operators VXSC BOV -> VXSC
053066,000024: ## 2017-01-28 RSB Proofed comment text using octopus/prooferComments
053067,000025: ## and fixed errors found.
053068,000026: ## 2017-03-17 RSB Comment-text fixes identified in diff'ing
053069,000027: ## Luminary 99 vs Comanche 55.
053070,000028:
![]() |
Page 1223 |
053072,000030: # DELETE
053073,000031: 13,3721 BANK 13
053074,000032: 11,2000 SETLOC ORBITAL
053075,000033: 11,2000 BANK
053076,000034: 11,2311 COUNT* $$/ORBIT
053077,000035:
053078,000036: # DELETE
053079,000037: 11,2311 40354 KEPPREP LXA,2 SETPD
053080,000038: 11,2312 02030 PBODY
053081,000039: 11,2313 00001 0
053082,000040: 11,2314 75543 DLOAD* SQRT # SQRT(MU) (+18 OR +15) 0D PL 2D
053083,000041: 11,2315 51770 MUEARTH,2
053084,000042: 11,2316 53515 PDVL UNIT # PL 8D
053085,000043: 11,2317 01535 RCV
053086,000044: 11,2320 60325 PDDL NORM # NORM R (+29 OR +27 - N1) 2D PL 4D
053087,000045: 11,2321 00045 36D
053088,000046: 11,2322 00047 X1
053089,000047: 11,2323 77715 PDVL
053090,000048: 11,2324 65241 DOT PDDL # F*SQRT(MU)(+7 OR +5) 4D PL 6D
053091,000049: 11,2325 01543 VCV
053092,000050: 11,2326 02074 TAU. # (+28)
053093,000051: 11,2327 60225 DSU NORM
053094,000052: 11,2330 01551 TC
053095,000053: 11,2331 00051 S1
053096,000054: 11,2332 77742 SR1
053097,000055: 11,2333 65271 DDV PDDL
053098,000056: 11,2334 00003 2D
053099,000057: 11,2335 41405 DMP PUSH # FS(+6 +N1-N2) 6D PL 8D
053100,000058: 11,2336 00005 4D
053101,000059: 11,2337 65316 DSQ PDDL # (FS)SQ (+12 +2(N1-N2)) 8D PL 10D
053102,000060: 11,2340 00005 4D
053103,000061: 11,2341 64716 DSQ PDDL* # SSQ/MU (-2 OR +2(N1-N2)) 10D PL 12D
053104,000062: 11,2342 51770 MUEARTH,2
053105,000063: 11,2343 40442 SR3 SR4
053106,000064: 11,2344 47515 PDVL VSQ # PREALIGN MU (+43 OR +37) 12D PL 14D
053107,000065: 11,2345 01543 VCV
053108,000066: 11,2346 44205 DMP BDSU # PL 12D
053109,000067: 11,2347 00045 36D
053110,000068: 11,2350 41271 DDV DMP # PL 10D
053111,000069: 11,2351 00003 2D # -(1/R-ALPHA) (+12 +3N1-2N2)
053112,000070: 11,2352 53605 DMP SL*
053113,000071: 11,2353 23720 DP2/3
053114,000072: 11,2354 20176 0 -3,1 # 10L(1/R-ALPHA) (+13 +2(N1-N2))
053115,000073: 11,2355 43260 XSU,1 DAD # 2(FS)SQ - ETCETRA PL 8D
053116,000074: 11,2356 00050 S1 # X1 = N2-N1
053117,000075: 11,2357 45257 SL* DSU # -FS+2(FS)SQ ETC (+6 +N1-N2) PL 6D
053118,000076: 11,2360 20211 8D,1
053119,000077: 11,2361 41205 DMP DMP
053120,000078: 11,2362 00001 0D
053121,000079: 11,2363 00005 4D
053122,000080: 11,2364 53657 SL* SL*
![]() |
Page 1224 |
053124,000082: 11,2365 20211 8D,1
053125,000083: 11,2366 20201 0,1 # S(-FS(1-2FS)-1/6...) (+17 OR +16)
053126,000084: 11,2367 65215 DAD PDDL # PL 6D
053127,000085: 11,2370 01553 XKEP
053128,000086: 11,2371 53605 DMP SL* # S(+17 OR +16)
053129,000087: 11,2372 00001 0D
053130,000088: 11,2373 20202 1,1
053131,000089: 11,2374 43204 BOVB DAD
053132,000090: 11,2375 57725 TCDANZIG
053133,000091: 11,2376 77626 STADR
053134,000092: 11,2377 75647 STORE XKEPNEW
053135,000093: 11,2400 74020 STQ AXC,1
053136,000094: 11,2401 02112 KEPRTN
053137,000095: 11,2402 00012 DEC 10 B-14
053138,000096: 11,2403 74014 BON AXC,1
053139,000097: 11,2404 00303 MOONFLAG
053140,000098: 11,2405 24000 KEPLERN
053141,000099: 11,2406 00002 DEC 2 B-14
053142,000100: 11,2407 77650 GOTO
053143,000101: 11,2410 24000 KEPLERN
053144,000102:
![]() |
Page 1225 |
053146,000104: 11,2411 66350 FBR3 LXA,1 SSP
053147,000105: 11,2412 01500 DIFEQCNT
053148,000106: 11,2413 00051 S1
053149,000107: 11,2414 77762 DEC -13 B-14
053150,000108: 11,2415 54345 DLOAD SR
053151,000109: 11,2416 02076 DT/2
053152,000110: 11,2417 20612 9D
053153,000111: 11,2420 61500 TIX,1 ROUND
053154,000112: 11,2421 22422 +1
053155,000113: 11,2422 43206 PUSH DAD
053156,000114: 11,2423 01551 TC
053157,000115: 11,2424 16074 STODL TAU.
053158,000116: 11,2425 77615 DAD
053159,000117: 11,2426 01517 TET
053160,000118: 11,2427 35517 STCALL TET
053161,000119: 11,2430 22311 KEPPREP
053162,000120:
![]() |
Page 1226 |
053164,000122: # AGC ROUTINE TO COMPUTE ACCELERATION COMPONENTS.
053165,000123:
053166,000124: 11,2431 73150 ACCOMP LXA,1 LXA,2
053167,000125: 11,2432 02030 PBODY
053168,000126: 11,2433 02030 PBODY
053169,000127: 11,2434 77775 VLOAD
053170,000128: 11,2435 22275 ZEROVEC
053171,000129: 11,2436 26062 STOVL FV
053172,000130: 11,2437 02032 ALPHAV
053173,000131: 11,2440 53257 VSL* VAD
053174,000132: 11,2441 57605 0 -7,2
053175,000133: 11,2442 01535 RCV
053176,000134: 11,2443 02040 STORE BETAV
053177,000135: 11,2444 65014 BOF XCHX,2
053178,000136: 11,2445 01756 DIM0FLAG
053179,000137: 11,2446 22453 +5
053180,000138: 11,2447 01500 DIFEQCNT
053181,000139: 11,2450 12132 STORE VECTAB,2
053182,000140: 11,2451 77724 XCHX,2
053183,000141: 11,2452 01500 DIFEQCNT
053184,000142: 11,2453 53575 VLOAD UNIT
053185,000143: 11,2454 02032 ALPHAV
053186,000144: 11,2455 16032 STODL ALPHAV
053187,000145: 11,2456 00045 36D
053188,000146: 11,2457 02070 STORE ALPHAM
053189,000147: 11,2460 77624 CALL
053190,000148: 11,2461 22563 GAMCOMP
053191,000149: 11,2462 66175 VLOAD SXA,1
053192,000150: 11,2463 02040 BETAV
053193,000151: 11,2464 00051 S2
053194,000152: 11,2465 16032 STODL ALPHAV
053195,000153: 11,2466 02072 BETAM
053196,000154: 11,2467 02070 STORE ALPHAM
053197,000155: 11,2470 71214 BOF DLOAD
053198,000156: 11,2471 00342 MIDFLAG
053199,000157: 11,2472 22726 OBLATE
053200,000158: 11,2473 01517 TET
053201,000159: 11,2474 77624 CALL
053202,000160: 11,2475 33663 LSPOS
053203,000161: 11,2476 72174 AXT,2 LXA,1
053204,000162: 11,2477 00002 2
053205,000163: 11,2500 00051 S2
053206,000164: 11,2501 77614 BOF
053207,000165: 11,2502 00343 MOONFLAG
053208,000166: 11,2503 22506 +3
053209,000167: 11,2504 77076 VCOMP AXT,2
053210,000168: 11,2505 00000 0
053211,000169: 11,2506 02040 STORE BETAV
053212,000170: 11,2507 26105 STOVL RPQV
![]() |
Page 1227 |
053214,000172: 11,2510 00003 2D
053215,000173: 11,2511 02122 STORE RPSV
053216,000174: 11,2512 45335 SLOAD DSU
053217,000175: 11,2513 01012 MODREG
053218,000176: 11,2514 23722 OCT27
053219,000177: 11,2515 43030 BHIZ BOF
053220,000178: 11,2516 22521 +3
053221,000179: 11,2517 01756 DIM0FLAG
053222,000180: 11,2520 22535 GETRPSV
053223,000181: 11,2521 74375 VLOAD VXSC
053224,000182: 11,2522 02032 ALPHAV
053225,000183: 11,2523 02070 ALPHAM
053226,000184: 11,2524 52257 VSR* VSU
053227,000185: 11,2525 57175 1,2
053228,000186: 11,2526 02040 BETAV
053229,000187: 11,2527 77724 XCHX,2
053230,000188: 11,2530 01500 DIFEQCNT
053231,000189: 11,2531 12140 STORE VECTAB +6,2
053232,000190: 11,2532 02114 STORE RQVV
053233,000191: 11,2533 77724 XCHX,2
053234,000192: 11,2534 01500 DIFEQCNT
053235,000193: 11,2535 62175 GETRPSV VLOAD INCR,1
053236,000194: 11,2536 02105 RPQV
053237,000195: 11,2537 00004 4
053238,000196: 11,2540 43014 CLEAR BOF
053239,000197: 11,2541 04260 RPQFLAG
053240,000198: 11,2542 00343 MOONFLAG
053241,000199: 11,2543 22550 +5
053242,000200: 11,2544 53261 VSR VAD
053243,000201: 11,2545 20612 9D
053244,000202: 11,2546 02122 RPSV
053245,000203: 11,2547 02122 STORE RPSV
053246,000204: 11,2550 77624 CALL
053247,000205: 11,2551 22563 GAMCOMP
053248,000206: 11,2552 62174 AXT,2 INCR,1
053249,000207: 11,2553 00004 4
053250,000208: 11,2554 00004 4
053251,000209: 11,2555 77775 VLOAD
053252,000210: 11,2556 02122 RPSV
053253,000211: 11,2557 36040 STCALL BETAV
053254,000212: 11,2560 22563 GAMCOMP
053255,000213: 11,2561 77650 GOTO
053256,000214: 11,2562 22726 OBLATE
053257,000215: 11,2563 74575 GAMCOMP VLOAD VSR1
053258,000216: 11,2564 02040 BETAV
053259,000217: 11,2565 40236 VSQ SETPD
053260,000218: 11,2566 00001 0
053261,000219: 11,2567 61501 NORM ROUND
053262,000220: 11,2570 00040 31D
053263,000221: 11,2571 60325 PDDL NORM # NORMED B SQUARED TO PD LIST
![]() |
Page 1228 |
053265,000223: 11,2572 02070 ALPHAM # NORMALIZE (LESS ONE) LENGTH OF ALPHA
053266,000224: 11,2573 00041 32D # SAVING NORM SCALE FACTOR IN X1
053267,000225: 11,2574 63342 SR1 PDVL
053268,000226: 11,2575 02040 BETAV # C(PDL+2) = ALMOST NORMED ALPHA
053269,000227: 11,2576 77656 UNIT
053270,000228: 11,2577 16040 STODL BETAV
053271,000229: 11,2600 00045 36D
053272,000230: 11,2601 02072 STORE BETAM
053273,000231: 11,2602 55301 NORM BDDV # FORM NORMALIZED QUOTIENT ALPHAM/BETAM
053274,000232: 11,2603 00042 33D
053275,000233: 11,2604 41562 SR1R PUSH # C(PDL+2) = ALMOST NORMALIZED RHO.
053276,000234: 11,2605 77743 DLOAD*
053277,000235: 11,2606 27734 ASCALE,1
053278,000236: 11,2607 00051 STORE S1
053279,000237: 11,2610 57124 XCHX,2 XAD,2
053280,000238: 11,2611 00050 S1
053281,000239: 11,2612 00040 32D
053282,000240: 11,2613 71264 XSU,2 DLOAD
053283,000241: 11,2614 00041 33D
053284,000242: 11,2615 00003 2D
053285,000243: 11,2616 65057 SR* XCHX,2
053286,000244: 11,2617 57177 0 -1,2
053287,000245: 11,2620 00050 S1
053288,000246: 11,2621 74406 PUSH SR1R # RHO/4 TO 4D
053289,000247: 11,2622 50315 PDVL DOT
053290,000248: 11,2623 02032 ALPHAV
053291,000249: 11,2624 02040 BETAV
053292,000250: 11,2625 44372 SL1R BDSU # (RHO/4) - 2(ALPHAV/2.BETAV/2)
053293,000251: 11,2626 57206 PUSH DMPR # TO PDL+6
053294,000252: 11,2627 00005 4
053295,000253: 11,2630 77752 SL1
053296,000254: 11,2631 43206 PUSH DAD
053297,000255: 11,2632 23702 DQUARTER
053298,000256: 11,2633 75406 PUSH SQRT
053299,000257: 11,2634 41475 DMPR PUSH
053300,000258: 11,2635 00013 10D
053301,000259: 11,2636 43352 SL1 DAD
053302,000260: 11,2637 23702 DQUARTER
053303,000261: 11,2640 43325 PDDL DAD # (1/4)+2((Q+1)/4) TO PD+14D
053304,000262: 11,2641 00013 10D
053305,000263: 11,2642 22273 HALFDP
053306,000264: 11,2643 72475 DMPR SL1
053307,000265: 11,2644 00011 8D
053308,000266: 11,2645 56215 DAD DDV
053309,000267: 11,2646 23674 THREE/8
053310,000268: 11,2647 00017 14D
053311,000269: 11,2650 74275 DMPR VXSC
053312,000270: 11,2651 00007 6
053313,000271: 11,2652 02040 BETAV # -
053314,000272: 11,2653 64515 PDVL VSR3 # (G/2)(C(PD+4))B/2 TO PD+16D
![]() |
Page 1229 |
053316,000274: 11,2654 02032 ALPHAV
053317,000275: 11,2655 41455 VAD PUSH # A12 + C(PD+16D) TO PD+16D
053318,000276: 11,2656 41345 DLOAD DMP
053319,000277: 11,2657 00001 0
053320,000278: 11,2660 00015 12D
053321,000279: 11,2661 61501 NORM ROUND
053322,000280: 11,2662 00037 30D
053323,000281: 11,2663 40665 BDDV DMP*
053324,000282: 11,2664 00003 2
053325,000283: 11,2665 51770 MUEARTH,2
053326,000284: 11,2666 74276 DCOMP VXSC
053327,000285: 11,2667 57124 XCHX,2 XAD,2
053328,000286: 11,2670 00050 S1
053329,000287: 11,2671 00051 S2
053330,000288: 11,2672 55064 XSU,2 XSU,2
053331,000289: 11,2673 00036 30D
053332,000290: 11,2674 00037 31D
053333,000291: 11,2675 77600 BOV # CLEAR OVIND
053334,000292: 11,2676 22677 +1
053335,000293: 11,2677 65057 VSR* XCHX,2
053336,000294: 11,2700 57177 0 -1,2
053337,000295: 11,2701 00050 S1
053338,000296: 11,2702 77655 VAD
053339,000297: 11,2703 02062 FV
053340,000298: 11,2704 02062 STORE FV
053341,000299: 11,2705 43400 BOV RVQ # RETURN IF NO OVERFLOW
053342,000300: 11,2706 22707 +1
053343,000301: 11,2707 54345 GOBAQUE DLOAD SR
053344,000302: 11,2710 02100 H
053345,000303: 11,2711 20612 9D
053346,000304: 11,2712 44206 PUSH BDSU
053347,000305: 11,2713 01551 TC
053348,000306: 11,2714 16074 STODL TAU.
053349,000307: 11,2715 01517 TET
053350,000308: 11,2716 45425 DSU STADR
053351,000309: 11,2717 42260 STCALL TET
053352,000310: 11,2720 22311 KEPPREP
053353,000311: 11,2721 77624 CALL
053354,000312: 11,2722 23345 RECTIFY
053355,000313: 11,2723 77614 SETGO
053356,000314: 11,2724 04020 RPQFLAG
053357,000315: 11,2725 27255 TESTLOOP
![]() |
Page 1230 |
053359,000317: # THE OBLATE ROUTINE COMPUTES THE ACCELERATION DUE TO OBLATENESS. IT USES THE UNIT OF THE VEHICLE
053360,000318: # POSITION VECTOR FOUND IN ALPHAV AND THE DISTANCE TO THE CENTER IN ALPHAM. THIS IS ADDED TO THE SUM OF THE
053361,000319: # DISTURBING ACCELERATIONS IN FV AND THE PROPER DIFEQ STAGE IS CALLED VIA X1.
053362,000320:
053363,000321: 11,2726 71354 OBLATE LXA,2 DLOAD
053364,000322: 11,2727 02030 PBODY
053365,000323: 11,2730 02070 ALPHAM
053366,000324: 11,2731 44601 SETPD DSU*
053367,000325: 11,2732 00001 0
053368,000326: 11,2733 50027 RDE,2
053369,000327: 11,2734 43044 BPL BOF # GET URPV
053370,000328: 11,2735 23136 NBRANCH
053371,000329: 11,2736 00343 MOONFLAG
053372,000330: 11,2737 23145 COSPHIE
053373,000331: 11,2740 65375 VLOAD PDDL
053374,000332: 11,2741 02032 ALPHAV
053375,000333: 11,2742 01517 TET
053376,000334: 11,2743 45125 PDDL CALL
053377,000335: 11,2744 23672 3/5
053378,000336: 11,2745 51531 R-TO-RP
053379,000337: 11,2746 00017 STORE URPV
053380,000338: 11,2747 47375 VLOAD VXV
053381,000339: 11,2750 02013 504LM
053382,000340: 11,2751 22267 ZUNIT
053383,000341: 11,2752 61255 VAD VXM
053384,000342: 11,2753 22267 ZUNIT
053385,000343: 11,2754 00025 MMATRIX
053386,000344: 11,2755 77656 UNIT # POSSIBLY UNNECESSARY
053387,000345: 11,2756 00025 COMTERM STORE UZ
053388,000346: 11,2757 57345 DLOAD DMPR
053389,000347: 11,2760 00023 COSPHI/2
053390,000348: 11,2761 23704 3/32
053391,000349: 11,2762 63525 PDDL DSQ # P2/64 TO PD0
053392,000350: 11,2763 00023 COSPHI/2
053393,000351: 11,2764 45275 DMPR DSU
053394,000352: 11,2765 23706 15/16
053395,000353: 11,2766 23700 3/64
053396,000354: 11,2767 57206 PUSH DMPR # P3/32 TO PD2
053397,000355: 11,2770 00023 COSPHI/2
053398,000356: 11,2771 76405 DMP SL1R
053399,000357: 11,2772 23712 7/12
053400,000358: 11,2773 57325 PDDL DMPR
053401,000359: 11,2774 00001 0
053402,000360: 11,2775 23720 2/3
053403,000361: 11,2776 41421 BDSU PUSH # P4/128 TO PD4
053404,000362: 11,2777 57275 DMPR DMPR
053405,000363: 11,3000 00023 COSPHI/2 # BEGIN COMPUTING P5/1024
053406,000364: 11,3001 23714 9/16
053407,000365: 11,3002 57325 PDDL DMPR
053408,000366: 11,3003 00003 2
053409,000367: 11,3004 23716 5/128
![]() |
Page 1231 |
053411,000369: 11,3005 77621 BDSU
053412,000370: 11,3006 77603 DMP*
053413,000371: 11,3007 51764 J4REQ/J3,2
053414,000372: 11,3010 43271 DDV DAD # -3
053415,000373: 11,3011 02070 ALPHAM # (((P5/256)B 2 /R+P4/32) /R+P3/8)ALPHAV
053416,000374: 11,3012 00005 4 # 4 3
053417,000375: 11,3013 56273 DMPR* DDV
053418,000376: 11,3014 51760 2J3RE/J2,2
053419,000377: 11,3015 02070 ALPHAM
053420,000378: 11,3016 74215 DAD VXSC
053421,000379: 11,3017 00003 2
053422,000380: 11,3020 02032 ALPHAV
053423,000381: 11,3021 14033 STODL TVEC
053424,000382: 11,3022 70403 DMP* SR1
053425,000383: 11,3023 51764 J4REQ/J3,2
053426,000384: 11,3024 43271 DDV DAD
053427,000385: 11,3025 02070 ALPHAM # -3
053428,000386: 11,3026 50473 DMPR* SR3
053429,000387: 11,3027 51760 2J3RE/J2,2 # 3 4
053430,000388: 11,3030 43271 DDV DAD
053431,000389: 11,3031 02070 ALPHAM
053432,000390: 11,3032 76561 VXSC VSL1
053433,000391: 11,3033 00025 UZ
053434,000392: 11,3034 77645 BVSU
053435,000393: 11,3035 00033 TVEC
053436,000394: 11,3036 14033 STODL TVEC
053437,000395: 11,3037 02070 ALPHAM
053438,000396: 11,3040 63501 NORM DSQ
053439,000397: 11,3041 00047 X1
053440,000398: 11,3042 60316 DSQ NORM
053441,000399: 11,3043 00051 S1 # 4
053442,000400: 11,3044 54606 PUSH BDDV* # NORMED R TO 0D
053443,000401: 11,3045 51754 J2REQSQ,2
053444,000402: 11,3046 77761 VXSC
053445,000403: 11,3047 00033 TVEC
053446,000404: 11,3050 00033 STORE TVEC
053447,000405: 11,3051 56070 XAD,1 XAD,1
053448,000406: 11,3052 00046 X1
053449,000407: 11,3053 00046 X1
053450,000408: 11,3054 43070 XAD,1 BOF
053451,000409: 11,3055 00050 S1
053452,000410: 11,3056 00343 MOONFLAG
053453,000411: 11,3057 23126 NBRANCH1
053454,000412: 11,3060 63545 DLOAD DSQ # 2
053455,000413: 11,3061 00017 URPV # X B-2 TO 2D
053456,000414: 11,3062 63525 PDDL DSQ
053457,000415: 11,3063 00021 URPV +2 # 2 2
053458,000416: 11,3064 65215 DAD PDDL # Y +X B-2 TO 2D
053459,000417: 11,3065 00003 2D
053460,000418: 11,3066 45352 SL1 DSU
053461,000419:
![]() |
Page 1232 |
053463,000421: 11,3067 00003 2D
053464,000422: 11,3070 41525 PDDL PUSH # X -Y B-2 TO 4D COSPHI2 TO 6D
053465,000423: 11,3071 00023 COSPHI/2
053466,000424: 11,3072 65361 VXSC PDDL # 2COSPHI(UZ) B-3 TO 6D
053467,000425: 11,3073 00025 UZ
053468,000426: 11,3074 45316 DSQ DSU
053469,000427: 11,3075 23672 3/5 # 2 2 2
053470,000428: 11,3076 52405 DMP SL3 # (X -Y)((5COS (PHI)-3)UR 2COS(PHI)UZ)
053471,000429: 11,3077 27736 5/8
053472,000430: 11,3100 52361 VXSC VSU # B-3 TO 4D
053473,000431: 11,3101 02032 ALPHAV
053474,000432: 11,3102 72561 VXSC VSL2
053475,000433: 11,3103 77725 PDDL
053476,000434: 11,3104 00017 URPV
053477,000435: 11,3105 63205 DMP PDVL # XY B-2 TO 10D
053478,000436: 11,3106 00021 URPV +2
053479,000437: 11,3107 02032 ALPHAV
053480,000438: 11,3110 74235 VXV VXSC
053481,000439: 11,3111 00025 UZ
053482,000440: 11,3112 53332 VSL3 VAD # 4XY(UR X UZ) +D( 4D) B-3
053483,000441: 11,3113 77725 PDDL
053484,000442: 11,3114 41301 NORM DMP
053485,000443: 11,3115 00050 X2
053486,000444: 11,3116 00001 0D # 3J22R2MU/(X +Y )R
053487,000445: 11,3117 74265 BDDV VXSC
053488,000446: 11,3120 26025 3J22R2MU
053489,000447: 11,3121 53257 VSL* VAD
053490,000448: 11,3122 57605 0 -7,2
053491,000449: 11,3123 00033 TVEC
053492,000450: 11,3124 77754 LXA,2
053493,000451: 11,3125 02030 PBODY
053494,000452: 11,3126 77600 NBRANCH1 BOV
053495,000453: 11,3127 23130 +1
053496,000454: 11,3130 53257 VSL* VAD
053497,000455: 11,3131 20153 0 -22D,1
053498,000456: 11,3132 02062 FV
053499,000457: 11,3133 02062 STORE FV
053500,000458: 11,3134 77600 BOV
053501,000459: 11,3135 22707 GOBAQUE
053502,000460:
053503,000461: 11,3136 72135 NBRANCH SLOAD LXA,1
053504,000462: 11,3137 01501 DIFEQCNT
053505,000463: 11,3140 00154 MPAC
053506,000464: 11,3141 73205 DMP CGOTO
053507,000465: 11,3142 27740 -1/12
053508,000466: 11,3143 00155 MPAC
053509,000467: 11,3144 23153 DIFEQTAB
053510,000468: 11,3145 77745 COSPHIE DLOAD
053511,000469: 11,3146 02036 ALPHAV +4
053512,000470: 11,3147 24023 STOVL COSPHI/2
053513,000471: 11,3150 22267 ZUNIT
![]() |
Page 1233 |
053515,000473: 11,3151 77650 GOTO
053516,000474: 11,3152 22756 COMTERM
053517,000475: 11,3153 23372 DIFEQTAB CADR DIFEQ+0
053518,000476: 11,3154 23376 CADR DIFEQ+1
053519,000477: 11,3155 23407 CADR DIFEQ+2
053520,000478: 11,3156 77214 TIMESTEP BOF VLOAD
053521,000479: 11,3157 00342 MIDFLAG
053522,000480: 11,3160 23207 RECTEST
053523,000481: 11,3161 01535 RCV
053524,000482: 11,3162 41241 DOT DMP
053525,000483: 11,3163 01543 VCV
053526,000484: 11,3164 02076 DT/2 # (R.V) X (DELTA T)
053527,000485: 11,3165 77640 BMN
053528,000486: 11,3166 23207 RECTEST
053529,000487: 11,3167 43014 BON BOF
053530,000488: 11,3170 00303 MOONFLAG
053531,000489: 11,3171 23264 LUNSPH
053532,000490: 11,3172 04340 RPQFLAG
053533,000491: 11,3173 23261 EARSPH
053534,000492: 11,3174 45145 DLOAD CALL
053535,000493: 11,3175 01517 TET
053536,000494: 11,3176 33663 LSPOS # RPQV IN MPAC
053537,000495: 11,3177 02105 STORE RPQV # RPQV
053538,000496: 11,3200 77754 LXA,2
053539,000497: 11,3201 02030 PBODY
053540,000498: 11,3202 51445 INLUNCHK BVSU ABVAL
053541,000499: 11,3203 01535 RCV
053542,000500: 11,3204 50025 DSU BMN
053543,000501: 11,3205 27744 RSPHERE
053544,000502: 11,3206 23301 DOSWITCH
053545,000503: 11,3207 51575 RECTEST VLOAD ABVAL # RECTIFY IF
053546,000504: 11,3210 01521 TDELTAV
053547,000505: 11,3211 77600 BOV
053548,000506: 11,3212 23235 CALLRECT
053549,000507: 11,3213 51025 DSU BPL # 1) EITHER TDELTAV OR TNUV EQUALS OR
053550,000508: 11,3214 23710 3/4 # EXCEEDS 3/4 IN MAGNITUDE
053551,000509: 11,3215 23235 CALLRECT
053552,000510: 11,3216 53615 DAD SL* # OR
053553,000511: 11,3217 23710 3/4
053554,000512: 11,3220 57605 0 -7,2 # 2) ABVAL(TDELTAV) EQUALS OR EXCEEDS
053555,000513: 11,3221 45271 DDV DSU # .01(ABVAL(RCV))
053556,000514: 11,3222 00013 10D
053557,000515: 11,3223 27742 RECRATIO
053558,000516: 11,3224 77244 BPL VLOAD
053559,000517: 11,3225 23235 CALLRECT
053560,000518: 11,3226 01527 TNUV
053561,000519: 11,3227 45246 ABVAL DSU
053562,000520: 11,3230 23710 3/4
053563,000521: 11,3231 77600 BOV
053564,000522: 11,3232 23235 CALLRECT
![]() |
Page 1234 |
053566,000524: 11,3233 77640 BMN
053567,000525: 11,3234 23237 INTGRATE
053568,000526: 11,3235 77624 CALLRECT CALL
053569,000527: 11,3236 23345 RECTIFY
053570,000528: 11,3237 77775 INTGRATE VLOAD
053571,000529: 11,3240 01527 TNUV
053572,000530: 11,3241 25135 STOVL ZV
053573,000531: 11,3242 01521 TDELTAV
053574,000532: 11,3243 01127 STORE YV
053575,000533: 11,3244 77614 CLEAR
053576,000534: 11,3245 00261 JSWITCH
053577,000535: 11,3246 66375 DIFEQ0 VLOAD SSP
053578,000536: 11,3247 01127 YV
053579,000537: 11,3250 01501 DIFEQCNT
053580,000538: 11,3251 00000 0
053581,000539: 11,3252 16032 STODL ALPHAV
053582,000540: 11,3253 22275 DPZERO
053583,000541: 11,3254 02100 STORE H # START H AT ZERO. GOES 0(DELT/2)DELT.
053584,000542: 11,3255 52014 BON GOTO
053585,000543: 11,3256 00301 JSWITCH
053586,000544: 11,3257 23611 DOW..
053587,000545: 11,3260 22431 ACCOMP
053588,000546: 11,3261 52175 EARSPH VLOAD GOTO
053589,000547: 11,3262 02105 RPQV
053590,000548: 11,3263 23202 INLUNCHK
053591,000549: 11,3264 60545 LUNSPH DLOAD SR2
053592,000550: 11,3265 00013 10D
053593,000551: 11,3266 50025 DSU BMN
053594,000552: 11,3267 27744 RSPHERE
053595,000553: 11,3270 23207 RECTEST
053596,000554: 11,3271 71214 BOF DLOAD
053597,000555: 11,3272 04340 RPQFLAG
053598,000556: 11,3273 23301 DOSWITCH
053599,000557: 11,3274 01517 TET
053600,000558: 11,3275 77624 CALL
053601,000559: 11,3276 33663 LUNPOS
053602,000560: 11,3277 77676 VCOMP
053603,000561: 11,3300 02105 STORE RPQV
053604,000562: 11,3301 77624 DOSWITCH CALL
053605,000563: 11,3302 23305 ORIGCHNG
053606,000564: 11,3303 77650 GOTO
053607,000565: 11,3304 23237 INTGRATE
053608,000566: 11,3305 45020 ORIGCHNG STQ CALL
053609,000567: 11,3306 02112 ORIGEX
053610,000568: 11,3307 23345 RECTIFY
053611,000569: 11,3310 53775 VLOAD VSL*
053612,000570: 11,3311 01535 RCV
053613,000571: 11,3312 57576 0,2
053614,000572: 11,3313 53651 VSU VSL*
053615,000573: 11,3314 02105 RPQV
![]() |
Page 1235 |
053617,000575: 11,3315 57574 2,2
053618,000576: 11,3316 01503 STORE RRECT
053619,000577: 11,3317 15535 STODL RCV
053620,000578: 11,3320 01517 TET
053621,000579: 11,3321 77624 CALL
053622,000580: 11,3322 33774 LUNVEL
053623,000581: 11,3323 57414 BOF VCOMP
053624,000582: 11,3324 00343 MOONFLAG
053625,000583: 11,3325 23326 +1
053626,000584: 11,3326 53715 PDVL VSL*
053627,000585: 11,3327 01543 VCV
053628,000586: 11,3330 57576 0,2
053629,000587: 11,3331 77651 VSU
053630,000588: 11,3332 77657 VSL*
053631,000589: 11,3333 57574 0 +2,2
053632,000590: 11,3334 01511 STORE VRECT
053633,000591: 11,3335 01543 STORE VCV
053634,000592: 11,3336 67154 LXA,2 SXA,2
053635,000593: 11,3337 02112 ORIGEX
053636,000594: 11,3340 00052 QPRET
053637,000595: 11,3341 52014 BON GOTO
053638,000596: 11,3342 00303 MOONFLAG
053639,000597: 11,3343 26711 CLRMOON
053640,000598: 11,3344 26716 SETMOON
![]() |
Page 1236 |
053642,000600: # THE RECTIFY SUBROUTINE IS CALLED BY THE INTEGRATION PROGRAM AND OCCASIONALLY BY THE MEASUREMENT INCORPORATION
053643,000601: # ROUTINES TO ESTABLISH A NEW CONIC.
053644,000602:
053645,000603: 11,3345 77354 RECTIFY LXA,2 VLOAD
053646,000604: 11,3346 02030 PBODY
053647,000605: 11,3347 01521 TDELTAV
053648,000606: 11,3350 53257 VSL* VAD
053649,000607: 11,3351 57605 0 -7,2
053650,000608: 11,3352 01535 RCV
053651,000609: 11,3353 01503 STORE RRECT
053652,000610: 11,3354 25535 STOVL RCV
053653,000611: 11,3355 01527 TNUV
053654,000612: 11,3356 53257 VSL* VAD
053655,000613: 11,3357 57602 0 -4,2
053656,000614: 11,3360 01543 VCV
053657,000615: 11,3361 01511 MINIRECT STORE VRECT
053658,000616: 11,3362 25543 STOVL VCV
053659,000617: 11,3363 22275 ZEROVEC
053660,000618: 11,3364 01521 STORE TDELTAV
053661,000619: 11,3365 15527 STODL TNUV
053662,000620: 11,3366 22275 ZEROVEC
053663,000621: 11,3367 01551 STORE TC
053664,000622: 11,3370 01553 STORE XKEP
053665,000623: 11,3371 77616 RVQ
053666,000624:
![]() |
Page 1237 |
053668,000626: # THE THREE DIFEQ ROUTINES - DIFEQ+0, DIFEQ+12, AND DIFEQ+24 - ARE ENTEREDTO PROCESS THE CONTRIBUTIONS AT THE
053669,000627: # BEGINNING, MIDDLE, AND END OF THE TIMESTEP, RESPECTIVELY. THE UPDATING IS DONE BY THE NYSTROM METHOD.
053670,000628:
053671,000629: 11,3372 64575 DIFEQ+0 VLOAD VSR3
053672,000630: 11,3373 02062 FV
053673,000631: 11,3374 36046 STCALL PHIV
053674,000632: 11,3375 23552 DIFEQCOM
053675,000633: 11,3376 74575 DIFEQ+1 VLOAD VSR1
053676,000634: 11,3377 02062 FV
053677,000635: 11,3400 53206 PUSH VAD
053678,000636: 11,3401 02046 PHIV
053679,000637: 11,3402 26054 STOVL PSIV
053680,000638: 11,3403 53362 VSR1 VAD
053681,000639: 11,3404 02046 PHIV
053682,000640: 11,3405 36046 STCALL PHIV
053683,000641: 11,3406 23552 DIFEQCOM
053684,000642: 11,3407 57345 DIFEQ+2 DLOAD DMPR
053685,000643: 11,3410 02100 H
053686,000644: 11,3411 23720 DP2/3
053687,000645: 11,3412 74206 PUSH VXSC
053688,000646: 11,3413 02046 PHIV
053689,000647: 11,3414 53372 VSL1 VAD
053690,000648: 11,3415 01135 ZV
053691,000649: 11,3416 53361 VXSC VAD
053692,000650: 11,3417 02100 H
053693,000651: 11,3420 01127 YV
053694,000652: 11,3421 25127 STOVL YV
053695,000653: 11,3422 02062 FV
053696,000654: 11,3423 53322 VSR3 VAD
053697,000655: 11,3424 02054 PSIV
053698,000656: 11,3425 76561 VXSC VSL1
053699,000657: 11,3426 77655 VAD
053700,000658: 11,3427 01135 ZV
053701,000659: 11,3430 01135 STORE ZV
053702,000660: 11,3431 45014 BOFF CALL
053703,000661: 11,3432 00341 JSWITCH
053704,000662: 11,3433 23503 ENDSTATE
053705,000663: 11,3434 11165 GRP2PC
053706,000664: 11,3435 77354 LXA,2 VLOAD
053707,000665: 11,3436 01117 COLREG
053708,000666: 11,3437 01135 ZV
053709,000667: 11,3440 77732 VSL3 # ADJUST W-POSITION FOR STORAGE
053710,000668: 11,3441 12467 STORE W +54D,2
053711,000669: 11,3442 77775 VLOAD
053712,000670: 11,3443 01127 YV
053713,000671: 11,3444 40132 VSL3 BOV
053714,000672: 11,3445 23575 WMATEND
053715,000673: 11,3446 12401 STORE W,2
053716,000674:
053717,000675: 11,3447 77624 CALL
053718,000676: 11,3450 11165 GRP2PC
![]() |
Page 1238 |
053720,000678: 11,3451 66354 LXA,2 SSP
053721,000679: 11,3452 01117 COLREG
053722,000680: 11,3453 00052 S2
053723,000681: 11,3454 00000 0
053724,000682: 11,3455 67114 INCR,2 SXA,2
053725,000683: 11,3456 00006 6
053726,000684: 11,3457 01126 YV
053727,000685: 11,3460 45104 TIX,2 CALL
053728,000686: 11,3461 23546 RELOADSV
053729,000687: 11,3462 11165 GRP2PC
053730,000688: 11,3463 67154 LXA,2 SXA,2
053731,000689: 11,3464 01126 YV
053732,000690: 11,3465 01117 COLREG
053733,000691:
053734,000692: 11,3466 77624 NEXTCOL CALL
053735,000693: 11,3467 11165 GRP2PC
053736,000694: 11,3470 76754 LXA,2 VLOAD*
053737,000695: 11,3471 01117 COLREG
053738,000696: 11,3472 75376 W,2
053739,000697: 11,3473 77722 VSR3 # ADJUST W-POSITION FOR INTEGRATION
053740,000698: 11,3474 01127 STORE YV
053741,000699: 11,3475 76173 VLOAD* AXT,1
053742,000700: 11,3476 75310 W +54D,2
053743,000701: 11,3477 00000 0
053744,000702: 11,3500 77722 VSR3 # ADJUST W-VELOCITY FOR INTEGRATION
053745,000703: 11,3501 35135 STCALL ZV
053746,000704: 11,3502 23246 DIFEQ0
053747,000705:
053748,000706: 11,3503 77200 ENDSTATE BOV VLOAD
053749,000707: 11,3504 22707 GOBAQUE
053750,000708: 11,3505 01135 ZV
053751,000709: 11,3506 25527 STOVL TNUV
053752,000710: 11,3507 01127 YV
053753,000711: 11,3510 01521 STORE TDELTAV
053754,000712: 11,3511 43014 BON BOFF
053755,000713: 11,3512 04715 MIDAVFLG
053756,000714: 11,3513 27657 CKMID2 # CHECK FOR MID2 BEFORE GOING TO TIMEINC
053757,000715: 11,3514 01756 DIM0FLAG
053758,000716: 11,3515 27255 TESTLOOP
053759,000717: 11,3516 77776 EXIT
053760,000718: 11,3517 05353 TC PHASCHNG
053761,000719: 11,3520 04022 OCT 04022 # PHASE 1
053762,000720: 11,3521 05504 TC UPFLAG # PHASE CHANGE HAS OCCURRED BETWEEN
053763,000721: 11,3522 00236 ADRES REINTFLG # INTSTALL AND INTWAKE
053764,000722: 11,3523 06036 TC INTPRET
053765,000723: 11,3524 77731 SSP
053766,000724: 11,3525 00053 QPRET
053767,000725: 11,3526 23533 AMOVED
053768,000726: 11,3527 52014 BON GOTO
053769,000727: 11,3530 01714 VINTFLAG
![]() |
Page 1239 |
053771,000729: 11,3531 26661 ATOPCSM
053772,000730: 11,3532 26734 ATOPLEM
053773,000731: 11,3533 66214 AMOVED SET SSP
053774,000732: 11,3534 00061 JSWITCH
053775,000733: 11,3535 01120 COLREG
053776,000734: 11,3536 77741 DEC -30 B-14
053777,000735: 11,3537 66214 BOFF SSP
053778,000736: 11,3540 01755 D6OR9FLG
053779,000737: 11,3541 23466 NEXTCOL
053780,000738: 11,3542 01120 COLREG
053781,000739: 11,3543 77717 DEC -48 B-14
053782,000740: 11,3544 77650 GOTO
053783,000741: 11,3545 23466 NEXTCOL
053784,000742:
053785,000743: 11,3546 77745 RELOADSV DLOAD # RELOAD TEMPORARY STATE VECTOR
053786,000744: 11,3547 01116 TDEC # FROM PERMANENT IN CASE OF
053787,000745: 11,3550 34041 STCALL TDEC1
053788,000746: 11,3551 27141 INTEGRV2 # BY STARTING AT INTEGRV2.
053789,000747: 11,3552 43345 DIFEQCOM DLOAD DAD # INCREMENT H AND DIFEQCNT.
053790,000748: 11,3553 02076 DT/2
053791,000749: 11,3554 02100 H
053792,000750: 11,3555 66110 INCR,1 SXA,1
053793,000751: 11,3556 77763 DEC -12 B-14
053794,000752: 11,3557 01500 DIFEQCNT # DIFEQCNT SET FOR NEXT ENTRY.
053795,000753: 11,3560 02100 STORE H
053796,000754: 11,3561 74561 VXSC VSR1
053797,000755: 11,3562 02062 FV
053798,000756: 11,3563 74255 VAD VXSC
053799,000757: 11,3564 01135 ZV
053800,000758: 11,3565 02100 H
053801,000759: 11,3566 77655 VAD
053802,000760: 11,3567 01127 YV
053803,000761: 11,3570 02032 STORE ALPHAV
053804,000762: 11,3571 52014 BON GOTO
053805,000763: 11,3572 00301 JSWITCH
053806,000764: 11,3573 23611 DOW..
053807,000765: 11,3574 22411 FBR3
053808,000766:
053809,000767: 11,3575 43014 WMATEND CLEAR CLEAR
053810,000768: 11,3576 01676 DIM0FLAG # DONT INTEGRATE W THIS TIME
053811,000769: 11,3577 01671 ORBWFLAG # INVALIDATE W
053812,000770: 11,3600 77614 CLEAR
053813,000771: 11,3601 02676 RENDWFLG
053814,000772: 11,3602 77414 SET EXIT
053815,000773: 11,3603 01472 STATEFLG # PICK UP STATE VECTOR UPDATE
053816,000774: 11,3604 05567 TC ALARM
053817,000775: 11,3605 00421 OCT 421
053818,000776: 11,3606 06036 TC INTPRET
![]() |
Page 1240 |
053820,000778: 11,3607 77650 GOTO
053821,000779: 11,3610 27255 TESTLOOP # FINISH INTEGRATING STATE VECTOR
053822,000780:
![]() |
Page 1241 |
053824,000782: # ORBITAL ROUTINE FOR EXTRAPOLATION OF THE W MATRIX. IT COMPUTES THE SECOND DERIVATIVE OF EACH COLUMN POSITION
053825,000783: # VECTOR OF THE MATRIX AND CALLS THE NYSTROM INTEGRATION ROUTINES TO SOLVE THE DIFFERENTIAL EQUATIONS. THE PROGRAM
053826,000784: # USES A TABLE OF VEHICLE POSITION VECTORS COMPUTED DURING THE INTEGRATION OF THE VEHICLES POSITION AND VELOCITY.
053827,000785:
053828,000786: 11,3611 70754 DOW.. LXA,2 DLOAD*
053829,000787: 11,3612 02030 PBODY
053830,000788: 11,3613 51770 MUEARTH,2
053831,000789: 11,3614 36072 STCALL BETAM
053832,000790: 11,3615 23637 DOW..1
053833,000791: 11,3616 02062 STORE FV
053834,000792: 11,3617 62014 BOF INCR,1
053835,000793: 11,3620 00342 MIDFLAG
053836,000794: 11,3621 23136 NBRANCH
053837,000795: 11,3622 77771 DEC -6 B-14
053838,000796: 11,3623 70744 LXC,2 DLOAD*
053839,000797: 11,3624 02030 PBODY
053840,000798: 11,3625 51772 MUEARTH -2,2
053841,000799: 11,3626 36072 STCALL BETAM
053842,000800: 11,3627 23637 DOW..1
053843,000801: 11,3630 50414 BON VSR6
053844,000802: 11,3631 00303 MOONFLAG
053845,000803: 11,3632 23633 +1
053846,000804: 11,3633 77655 VAD
053847,000805: 11,3634 02062 FV
053848,000806: 11,3635 36062 STCALL FV
053849,000807: 11,3636 23136 NBRANCH
053850,000808: 11,3637 60575 DOW..1 VLOAD VSR4
053851,000809: 11,3640 02032 ALPHAV
053852,000810: 11,3641 53513 PDVL* UNIT
053853,000811: 11,3642 02132 VECTAB,1
053854,000812: 11,3643 46315 PDVL VPROJ
053855,000813: 11,3644 02032 ALPHAV
053856,000814: 11,3645 52361 VXSC VSU
053857,000815: 11,3646 23710 3/4
053858,000816: 11,3647 60325 PDDL NORM
053859,000817: 11,3650 00045 36D
053860,000818: 11,3651 00052 S2
053861,000819: 11,3652 63406 PUSH DSQ
053862,000820: 11,3653 77605 DMP
053863,000821: 11,3654 65301 NORM PDDL
053864,000822: 11,3655 00043 34D
053865,000823: 11,3656 02072 BETAM
053866,000824: 11,3657 56342 SR1 DDV
053867,000825: 11,3660 77761 VXSC
053868,000826: 11,3661 57154 LXA,2 XAD,2
053869,000827: 11,3662 00051 S2
053870,000828: 11,3663 00051 S2
053871,000829: 11,3664 57074 XAD,2 XAD,2
053872,000830: 11,3665 00051 S2
053873,000831: 11,3666 00042 34D
053874,000832: 11,3667 43457 VSL* RVQ
![]() |
Page 1242 |
053876,000834: 11,3670 57606 0 -8D,2
053877,000835:
053878,000836: 11,2000 SETLOC ORBITAL1
053879,000837: 11,2000 BANK
053880,000838:
053881,000839: 11,3671 04631 23146 3/5 2DEC .6 B-2
053882,000840:
053883,000841: 11,3673 14000 00000 THREE/8 2DEC .375
053884,000842:
053885,000843: 11,3675 02314 31463 .3D 2DEC .3 B-2
053886,000844:
053887,000845: 11,3677 01400 00000 3/64 2DEC 3 B-6
053888,000846:
053889,000847: 11,3701 10000 00000 DP1/4 2DEC .25
053890,000848:
053891,000849: 11,3703 11,3701 DQUARTER EQUALS DP1/4
053892,000850: 11,3703 11,3701 POS1/4 EQUALS DP1/4
053893,000851: 11,3703 03000 00000 3/32 2DEC 3 B-5
053894,000852:
053895,000853: 11,3705 36000 00000 15/16 2DEC 15. B-4
053896,000854:
053897,000855: 11,3707 30000 00000 3/4 2DEC 3.0 B-2
053898,000856:
053899,000857: 11,3711 22525 12525 7/12 2DEC .5833333333
053900,000858:
053901,000859: 11,3713 22000 00000 9/16 2DEC 9 B-4
053902,000860:
053903,000861: 11,3715 01200 00000 5/128 2DEC 5 B-7
053904,000862:
053905,000863: 11,3717 11,2274 DPZERO EQUALS ZEROVEC
053906,000864: 11,3717 25252 25253 DP2/3 2DEC .6666666667
053907,000865:
053908,000866: 11,3721 11,3717 2/3 EQUALS DP2/3
053909,000867: 11,3721 00027 OCT27 OCT 27
053910,000868:
053911,000869: # LM504 IS TEMPORARY
053912,000870:
053913,000871: 13,3721 BANK 13
053914,000872: 13,2000 SETLOC ORBITAL2
053915,000873: 13,2000 BANK
053916,000874: # IT IS VITAL THAT THE FOLLOWING CONSTANTS NOT BE SHUFFLED
053917,000875: 13,3721 77764 DEC -11 B-14
053918,000876: 13,3722 77775 DEC -2 B-14
053919,000877: 13,3723 77766 DEC -9 B-14
053920,000878: 13,3724 77771 DEC -6 B-14
053921,000879: 13,3725 77775 DEC -2 B-14
053922,000880: 13,3726 77775 DEC -2 B-14
053923,000881: 13,3727 00000 DEC 0 B-14
053924,000882: 13,3730 77763 DEC -12 B-14
053925,000883: 13,3731 77766 DEC -9 B-14
053926,000884: 13,3732 77773 DEC -4 B-14
053927,000885: 13,3733 77770 ASCALE DEC -7 B-14
053928,000886: 13,3734 77771 DEC -6 B-14
![]() |
Page 1243 |
053930,000888: 13,3735 24000 00000 5/8 2DEC 5 B-3
053931,000889:
053932,000890: 13,3737 74631 63145 -1/12 2DEC -.1
053933,000891:
053934,000892: 13,3741 00243 32703 RECRATIO 2DEC .01
053935,000893:
053936,000894: 13,3743 03654 21000 RSPHERE 2DEC 64373.76 E3 B-29
053937,000895:
053938,000896: 13,3745 03654 21000 RDM 2DEC 16093.44 E3 B-27
053939,000897:
053940,000898: 13,3747 04627 25200 RDE 2DEC 80467.20 E3 B-29
053941,000899:
053942,000900: 13,3751 RATT EQUALS 00
053943,000901: 13,3751 VATT EQUALS 6D
053944,000902: 13,3751 TAT EQUALS 12D
053945,000903: 13,3751 RATT1 EQUALS 14D
053946,000904: 13,3751 VATT1 EQUALS 20D
053947,000905: 13,3751 MU(P) EQUALS 26D
053948,000906: 13,3751 TDEC1 EQUALS 32D
053949,000907: 13,3751 URPV EQUALS 14D
053950,000908: 13,3751 0022 COSPHI/2 EQUALS URPV +4
053951,000909: 13,3751 UZ EQUALS 20D
053952,000910: 13,3751 TVEC EQUALS 26D
053953,000911:
End of include-file ORBITAL_INTEGRATION.agc. Parent file is MAIN.agc