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