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