Source Code
![]() |
This is the source-code for the Apollo 9 Command Module's Guidance Computer.
These files were derived originally from the scan from MIT's Dibner Institute's
now-discontinued website titled "History of Recent Science and Technology", which
in turn was originally created by Gary Neff, though his high-quality scans were
unfortunately reduced in legibility when presented online.
The markings on the front of the
printout imply that it was the original AGC developer Norm Brodeur's copy.
A scan by Ron Burkey has superceded it, made from a more-legible copy from the collection of original
AGC developer Fred Martin. The source code was transcribed from
those images by Ron Burkey. Note that the page images
presented online are of reduced quality, and that higher-quality images
are available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041 20'35 OCT. 28,1968Note that the date is the date of the printout, not the date of the program revision. |
056999,000002: ## Copyright: Public domain.
057000,000003: ## Filename: ORBITAL_INTEGRATION.agc
057001,000004: ## Purpose: Part of the source code for Colossus, build 249.
057002,000005: ## It is part of the source code for the Command Module's (CM)
057003,000006: ## Apollo Guidance Computer (AGC), for Apollo 9.
057004,000007: ## Assembler: yaYUL
057005,000008: ## Reference: p. 1302
057006,000009: ## Contact: Ron Burkey <info@sandroid.org>.
057007,000010: ## Website: www.ibiblio.org/apollo.
057008,000011: ## Mod history: 08/29/04 RSB. Began adapting from correspoinding Luminary131 file.
057009,000012: ## 2017-01-06 RSB Page numbers now agree with those on the
057010,000013: ## original harcopy, as opposed to the PDF page
057011,000014: ## numbers in 1701.pdf.
057012,000015: ## 2017-01-15 RSB Cross-diff'd comment text (not whitespace)
057013,000016: ## vs the already-proofed corresponding Colossus
057014,000017: ## 237 and Comanche 55 source-code files
057015,000018: ## and corrected errors found. The comment-text
057016,000019: ## ended up being identical to Colossus 237, but
057017,000020: ## differing from Comanche 55.
057018,000021: ##
057019,000022: ## The contents of the "Colossus249" files, in general, are transcribed
057020,000023: ## from a scanned copy of the program listing. Notations on this
057021,000024: ## document read, in part:
057022,000025: ##
057023,000026: ## Assemble revision 249 of AGC program Colossus by NASA
057024,000027: ## 2021111-041. October 28, 1968.
057025,000028: ##
057026,000029: ## This AGC program shall also be referred to as
057027,000030: ## Colossus 1A
057028,000031: ##
057029,000032: ## Prepared by
057030,000033: ## Massachusetts Institute of Technology
057031,000034: ## 75 Cambridge Parkway
057032,000035: ## Cambridge, Massachusetts
057033,000036: ## under NASA contract NAS 9-4065.
057034,000037: ##
057035,000038: ## Refer directly to the online document mentioned above for further information.
057036,000039: ## Please report any errors (relative to the scanned pages) to info@sandroid.org.
057037,000040: ##
057038,000041: ## In some cases, where the source code for Luminary 131 overlaps that of
057039,000042: ## Colossus 249, this code is instead copied from the corresponding Luminary 131
057040,000043: ## source file, and then is proofed to incorporate any changes.
057041,000044:
![]() |
Page 1302 |
057043,000046: # DELETE
057044,000047: 13,3715 BANK 13
057045,000048: 11,2000 SETLOC ORBITAL
057046,000049: 11,2000 BANK
057047,000050: 11,2310 COUNT 11/ORBIT
057048,000051:
057049,000052: # DELETE
057050,000053: 11,2310 40354 KEPPREP LXA,2 SETPD
057051,000054: 11,2311 02150 PBODY
057052,000055: 11,2312 00001 0
057053,000056: 11,2313 75543 DLOAD* SQRT # SQRT(MU) (+18 OR +15) 0D PL 2D
057054,000057: 11,2314 50041 MUEARTH,2
057055,000058: 11,2315 53515 PDVL UNIT # PL 8D
057056,000059: 11,2316 01535 RCV
057057,000060: 11,2317 60325 PDDL NORM # NORM R (+29 OR +27 - N1) 2D PL 4D
057058,000061: 11,2320 00045 36D
057059,000062: 11,2321 00047 X1
057060,000063: 11,2322 77715 PDVL
057061,000064: 11,2323 65241 DOT PDDL # F*SQRT(MU) (+7 OR +5) 4D PL 6D
057062,000065: 11,2324 01543 VCV
057063,000066: 11,2325 02312 TAU. # (+28)
057064,000067: 11,2326 60225 DSU NORM
057065,000068: 11,2327 01551 TC
057066,000069: 11,2330 00051 S1
057067,000070: 11,2331 77742 SR1
057068,000071: 11,2332 65271 DDV PDDL
057069,000072: 11,2333 00003 2D
057070,000073: 11,2334 41405 DMP PUSH # FS (+6 +N1-N2) 6D PL 8D
057071,000074: 11,2335 00005 4D
057072,000075: 11,2336 65316 DSQ PDDL # (FS)SQ (+12 +2(N1-N2)) 8D PL 10D
057073,000076: 11,2337 00005 4D
057074,000077: 11,2340 64716 DSQ PDDL* # SSQ/MU (-2OR +2(N1-N2)) 10D PL 12D
057075,000078: 11,2341 50041 MUEARTH,2
057076,000079: 11,2342 40442 SR3 SR4
057077,000080: 11,2343 47515 PDVL VSQ # PREALIGN MU (+43 OR +37) 12D PL 14D
057078,000081: 11,2344 01543 VCV
057079,000082: 11,2345 44205 DMP BDSU # PL 12D
057080,000083: 11,2346 00045 36D
057081,000084: 11,2347 41271 DDV DMP # PL 10D
057082,000085: 11,2350 00003 2D # -(1/R-ALPHA) (+12 +3N1-2N2)
057083,000086: 11,2351 53605 DMP SL*
057084,000087: 11,2352 23717 DP2/3
057085,000088: 11,2353 20176 0 -3,1 # 10L(1/R-ALPHA) (+13 +2(N1-N2))
057086,000089: 11,2354 43260 XSU,1 DAD # 2(FS)SQ - ETCETRA PL 8D
057087,000090: 11,2355 00050 S1 # X1 = N2-N1
057088,000091: 11,2356 45257 SL* DSU # -FS+2(FS)SQ ETC (+6 +N1-N2) PL 6D
057089,000092: 11,2357 20211 8D,1
057090,000093: 11,2360 41205 DMP DMP
057091,000094: 11,2361 00001 0D
057092,000095: 11,2362 00005 4D
057093,000096: 11,2363 53657 SL* SL*
![]() |
Page 1303 |
057095,000098: 11,2364 20211 8D,1
057096,000099: 11,2365 20201 0,1 # S(-FS(1-2FS)-1/6...) (+17 OR +16)
057097,000100: 11,2366 65215 DAD PDDL # PL 6D
057098,000101: 11,2367 01553 XKEP
057099,000102: 11,2370 53605 DMP SL* # S(+17 OR +16)
057100,000103: 11,2371 00001 0D
057101,000104: 11,2372 20202 1,1
057102,000105: 11,2373 43204 BOVB DAD
057103,000106: 11,2374 57343 TCDANZIG
057104,000107: 11,2375 77626 STADR
057105,000108: 11,2376 75471 STORE XKEPNEW
057106,000109: 11,2377 74020 STQ AXC,1
057107,000110: 11,2400 02270 KEPRTN
057108,000111: 11,2401 00012 DEC 10 B-14
057109,000112: 11,2402 74014 BON AXC,1
057110,000113: 11,2403 00303 MOONFLAG
057111,000114: 11,2404 24000 KEPLERN
057112,000115: 11,2405 00002 DEC 2 B-14
057113,000116: 11,2406 77650 GOTO
057114,000117: 11,2407 24000 KEPLERN
057115,000118:
![]() |
Page 1304 |
057117,000120: 11,2410 66350 FBR3 LXA,1 SSP
057118,000121: 11,2411 01500 DIFEQCNT
057119,000122: 11,2412 00051 S1
057120,000123: 11,2413 77762 DEC -13 B-14
057121,000124: 11,2414 54345 DLOAD SR
057122,000125: 11,2415 02314 DT/2
057123,000126: 11,2416 20612 9D
057124,000127: 11,2417 61500 TIX,1 ROUND
057125,000128: 11,2420 22421 +1
057126,000129: 11,2421 43206 PUSH DAD
057127,000130: 11,2422 01551 TC
057128,000131: 11,2423 16312 STODL TAU.
057129,000132: 11,2424 77615 DAD
057130,000133: 11,2425 01517 TET
057131,000134: 11,2426 35517 STCALL TET
057132,000135: 11,2427 22310 KEPPREP
057133,000136:
![]() |
Page 1305 |
057135,000138: # AGC ROUTINE TO COMPUTE ACCELERATION COMPONENTS.
057136,000139:
057137,000140: 11,2430 73150 ACCOMP LXA,1 LXA,2
057138,000141: 11,2431 02150 PBODY
057139,000142: 11,2432 02150 PBODY
057140,000143: 11,2433 77775 VLOAD
057141,000144: 11,2434 11456 ZEROVEC
057142,000145: 11,2435 26202 STOVL FV
057143,000146: 11,2436 02152 ALPHAV
057144,000147: 11,2437 53257 VSL* VAD
057145,000148: 11,2440 57605 0 -7,2
057146,000149: 11,2441 01535 RCV
057147,000150: 11,2442 02160 STORE BETAV
057148,000151: 11,2443 65014 BOF XCHX,2
057149,000152: 11,2444 01756 DIM0FLAG
057150,000153: 11,2445 22452 +5
057151,000154: 11,2446 01500 DIFEQCNT
057152,000155: 11,2447 12217 STORE VECTAB,2
057153,000156: 11,2450 77724 XCHX,2
057154,000157: 11,2451 01500 DIFEQCNT
057155,000158: 11,2452 53575 VLOAD UNIT
057156,000159: 11,2453 02152 ALPHAV
057157,000160: 11,2454 16152 STODL ALPHAV
057158,000161: 11,2455 00045 36D
057159,000162: 11,2456 02310 STORE ALPHAM
057160,000163: 11,2457 77624 CALL
057161,000164: 11,2460 22562 GAMCOMP
057162,000165: 11,2461 66175 VLOAD SXA,1
057163,000166: 11,2462 02160 BETAV
057164,000167: 11,2463 00051 S2
057165,000168: 11,2464 16152 STODL ALPHAV
057166,000169: 11,2465 02210 BETAM
057167,000170: 11,2466 02310 STORE ALPHAM
057168,000171: 11,2467 71214 BOF DLOAD
057169,000172: 11,2470 00342 MIDFLAG
057170,000173: 11,2471 22725 OBLATE
057171,000174: 11,2472 01517 TET
057172,000175: 11,2473 77624 CALL
057173,000176: 11,2474 54110 LSPOS
057174,000177: 11,2475 72174 AXT,2 LXA,1
057175,000178: 11,2476 00002 2
057176,000179: 11,2477 00051 S2
057177,000180: 11,2500 77614 BOF
057178,000181: 11,2501 00343 MOONFLAG
057179,000182: 11,2502 22505 +3
057180,000183: 11,2503 77076 VCOMP AXT,2
057181,000184: 11,2504 00000 0
057182,000185: 11,2505 02160 STORE BETAV
057183,000186: 11,2506 26263 STOVL RPQV
![]() |
Page 1306 |
057185,000188: 11,2507 00003 2D
057186,000189: 11,2510 02300 STORE RPSV
057187,000190: 11,2511 45335 SLOAD DSU
057188,000191: 11,2512 01012 MODREG
057189,000192: 11,2513 23721 OCT27
057190,000193: 11,2514 43030 BHIZ BOF
057191,000194: 11,2515 22520 +3
057192,000195: 11,2516 01756 DIM0FLAG
057193,000196: 11,2517 22534 GETRPSV
057194,000197: 11,2520 74375 VLOAD VXSC
057195,000198: 11,2521 02152 ALPHAV
057196,000199: 11,2522 02310 ALPHAM
057197,000200: 11,2523 52257 VSR* VSU
057198,000201: 11,2524 57175 1,2
057199,000202: 11,2525 02160 BETAV
057200,000203: 11,2526 77724 XCHX,2
057201,000204: 11,2527 01500 DIFEQCNT
057202,000205: 11,2530 12225 STORE VECTAB +6,2
057203,000206: 11,2531 02272 STORE RQVV
057204,000207: 11,2532 77724 XCHX,2
057205,000208: 11,2533 01500 DIFEQCNT
057206,000209: 11,2534 62175 GETRPSV VLOAD INCR,1
057207,000210: 11,2535 02263 RPQV
057208,000211: 11,2536 00004 4
057209,000212: 11,2537 43014 CLEAR BOF
057210,000213: 11,2540 04260 RPQFLAG
057211,000214: 11,2541 00343 MOONFLAG
057212,000215: 11,2542 22547 +5
057213,000216: 11,2543 53261 VSR VAD
057214,000217: 11,2544 20612 9D
057215,000218: 11,2545 02300 RPSV
057216,000219: 11,2546 02300 STORE RPSV
057217,000220: 11,2547 77624 CALL
057218,000221: 11,2550 22562 GAMCOMP
057219,000222: 11,2551 62174 AXT,2 INCR,1
057220,000223: 11,2552 00004 4
057221,000224: 11,2553 00004 4
057222,000225: 11,2554 77775 VLOAD
057223,000226: 11,2555 02300 RPSV
057224,000227: 11,2556 36160 STCALL BETAV
057225,000228: 11,2557 22562 GAMCOMP
057226,000229: 11,2560 77650 GOTO
057227,000230: 11,2561 22725 OBLATE
057228,000231: 11,2562 74575 GAMCOMP VLOAD VSR1
057229,000232: 11,2563 02160 BETAV
057230,000233: 11,2564 40236 VSQ SETPD
057231,000234: 11,2565 00001 0
057232,000235: 11,2566 61501 NORM ROUND
057233,000236: 11,2567 00040 31D
057234,000237: 11,2570 60325 PDDL NORM # NORMED B SQUARED TO PD LIST
![]() |
Page 1307 |
057236,000239: 11,2571 02310 ALPHAM # NORMALIZE (LESS ONE) LENGTH OF ALPHA
057237,000240: 11,2572 00041 32D # SAVING NORM SCALE FACTOR IN X1
057238,000241: 11,2573 63342 SR1 PDVL
057239,000242: 11,2574 02160 BETAV # C(PDL+2) = ALMOST NORMED ALPHA
057240,000243: 11,2575 77656 UNIT
057241,000244: 11,2576 16160 STODL BETAV
057242,000245: 11,2577 00045 36D
057243,000246: 11,2600 02210 STORE BETAM
057244,000247: 11,2601 55301 NORM BDDV # FORM NORMALIZED QUOTIENT ALPHAM/BETAM
057245,000248: 11,2602 00042 33D
057246,000249: 11,2603 41562 SR1R PUSH # C(PDL+2) = ALMOST NORMALIZED RHO.
057247,000250: 11,2604 77743 DLOAD*
057248,000251: 11,2605 27730 ASCALE,1
057249,000252: 11,2606 00051 STORE S1
057250,000253: 11,2607 57124 XCHX,2 XAD,2
057251,000254: 11,2610 00050 S1
057252,000255: 11,2611 00040 32D
057253,000256: 11,2612 71264 XSU,2 DLOAD
057254,000257: 11,2613 00041 33D
057255,000258: 11,2614 00003 2D
057256,000259: 11,2615 65057 SR* XCHX,2
057257,000260: 11,2616 57177 0 -1,2
057258,000261: 11,2617 00050 S1
057259,000262: 11,2620 74406 PUSH SR1R # RHO/4 TO 4D
057260,000263: 11,2621 50315 PDVL DOT
057261,000264: 11,2622 02152 ALPHAV
057262,000265: 11,2623 02160 BETAV
057263,000266: 11,2624 44372 SL1R BDSU # (RHO/4) - 2(ALPHAV/2.BETAV/2)
057264,000267: 11,2625 57206 PUSH DMPR # TO PDL+6
057265,000268: 11,2626 00005 4
057266,000269: 11,2627 77752 SL1
057267,000270: 11,2630 43206 PUSH DAD
057268,000271: 11,2631 23701 DQUARTER
057269,000272: 11,2632 75406 PUSH SQRT
057270,000273: 11,2633 41475 DMPR PUSH
057271,000274: 11,2634 00013 10D
057272,000275: 11,2635 43352 SL1 DAD
057273,000276: 11,2636 23701 DQUARTER
057274,000277: 11,2637 43325 PDDL DAD # (1/4)+2((Q+1)/4) TO PD+14D
057275,000278: 11,2640 00013 10D
057276,000279: 11,2641 11454 HALFDP
057277,000280: 11,2642 72475 DMPR SL1
057278,000281: 11,2643 00011 8D
057279,000282: 11,2644 56215 DAD DDV
057280,000283: 11,2645 23673 THREE/8
057281,000284: 11,2646 00017 14D
057282,000285: 11,2647 74275 DMPR VXSC
057283,000286: 11,2650 00007 6
057284,000287: 11,2651 02160 BETAV # -
057285,000288: 11,2652 64515 PDVL VSR3 # (G/2)(C(PD+4))B/2 TO PD+16D
![]() |
Page 1308 |
057287,000290: 11,2653 02152 ALPHAV
057288,000291: 11,2654 41455 VAD PUSH # A12 + C(PD+16D) TO PD+16D
057289,000292: 11,2655 41345 DLOAD DMP
057290,000293: 11,2656 00001 0
057291,000294: 11,2657 00015 12D # -
057292,000295: 11,2660 61501 NORM ROUND
057293,000296: 11,2661 00037 30D
057294,000297: 11,2662 40665 BDDV DMP*
057295,000298: 11,2663 00003 2
057296,000299: 11,2664 50041 MUEARTH,2
057297,000300: 11,2665 74276 DCOMP VXSC
057298,000301: 11,2666 57124 XCHX,2 XAD,2
057299,000302: 11,2667 00050 S1
057300,000303: 11,2670 00051 S2
057301,000304: 11,2671 55064 XSU,2 XSU,2
057302,000305: 11,2672 00036 30D
057303,000306: 11,2673 00037 31D
057304,000307: 11,2674 77600 BOV # CLEAR OVIND
057305,000308: 11,2675 22676 +1
057306,000309: 11,2676 65057 VSR* XCHX,2
057307,000310: 11,2677 57177 0 -1,2
057308,000311: 11,2700 00050 S1
057309,000312: 11,2701 77655 VAD
057310,000313: 11,2702 02202 FV
057311,000314: 11,2703 02202 STORE FV
057312,000315: 11,2704 43400 BOV RVQ # RETURN IF NO OVERFLOW
057313,000316: 11,2705 22706 +1
057314,000317: 11,2706 54345 GOBAQUE DLOAD SR
057315,000318: 11,2707 02212 H
057316,000319: 11,2710 20612 9D
057317,000320: 11,2711 44206 PUSH BDSU
057318,000321: 11,2712 01551 TC
057319,000322: 11,2713 16312 STODL TAU.
057320,000323: 11,2714 01517 TET
057321,000324: 11,2715 45425 DSU STADR
057322,000325: 11,2716 42260 STCALL TET
057323,000326: 11,2717 22310 KEPPREP
057324,000327: 11,2720 77624 CALL
057325,000328: 11,2721 23344 RECTIFY
057326,000329: 11,2722 77614 SETGO
057327,000330: 11,2723 04020 RPQFLAG
057328,000331: 11,2724 27234 TESTLOOP
057329,000332:
![]() |
Page 1309 |
057331,000334: # THE OBLATE ROUTINE COMPUTES THE ACCELERATION DUE TO OBLATENESS. IT USES THE UNIT OF THE VEHICLE
057332,000335: # POSITION VECTOR FOUND IN ALPHAV AND THE DISTANCE TO THE CENTER IN ALPHAM. THIS IS ADDED TO THE SUM OF THE
057333,000336: # DISTURBING ACCELERATIONS IN FV AND THE PROPER DIFEQ STAGE IS CALLED VIA X1.
057334,000337:
057335,000338: 11,2725 71354 OBLATE LXA,2 DLOAD
057336,000339: 11,2726 02150 PBODY
057337,000340: 11,2727 02310 ALPHAM
057338,000341: 11,2730 44601 SETPD DSU*
057339,000342: 11,2731 00001 0
057340,000343: 11,2732 50007 RDE,2
057341,000344: 11,2733 43044 BPL BOF # GET URPV
057342,000345: 11,2734 23135 NBRANCH
057343,000346: 11,2735 00343 MOONFLAG
057344,000347: 11,2736 23144 COSPHIE
057345,000348: 11,2737 65375 VLOAD PDDL
057346,000349: 11,2740 02152 ALPHAV
057347,000350: 11,2741 01517 TET
057348,000351: 11,2742 45125 PDDL CALL
057349,000352: 11,2743 23671 3/5
057350,000353: 11,2744 55366 R-TO-RP
057351,000354: 11,2745 00017 STORE URPV
057352,000355: 11,2746 47375 VLOAD VXV
057353,000356: 11,2747 02012 504LM
057354,000357: 11,2750 11450 ZUNIT
057355,000358: 11,2751 61255 VAD VXM
057356,000359: 11,2752 11450 ZUNIT
057357,000360: 11,2753 00025 MMATRIX
057358,000361: 11,2754 77656 UNIT # POSSIBLY UNNECESSARY
057359,000362: 11,2755 00025 COMTERM STORE UZ
057360,000363: 11,2756 57345 DLOAD DMPR
057361,000364: 11,2757 00023 COSPHI/2
057362,000365: 11,2760 23703 3/32
057363,000366: 11,2761 63525 PDDL DSQ # P2/64 TO PD0
057364,000367: 11,2762 00023 COSPHI/2
057365,000368: 11,2763 45275 DMPR DSU
057366,000369: 11,2764 23705 15/16
057367,000370: 11,2765 23677 3/64
057368,000371: 11,2766 57206 PUSH DMPR # P3/32 TO PD2
057369,000372: 11,2767 00023 COSPHI/2
057370,000373: 11,2770 76405 DMP SL1R
057371,000374: 11,2771 23711 7/12
057372,000375: 11,2772 57325 PDDL DMPR
057373,000376: 11,2773 00001 0
057374,000377: 11,2774 23717 2/3
057375,000378: 11,2775 41421 BDSU PUSH # P4/128 TO PD4
057376,000379: 11,2776 57275 DMPR DMPR
057377,000380: 11,2777 00023 COSPHI/2 # BEGIN COMPUTING P5/1024
057378,000381: 11,3000 23713 9/16
057379,000382: 11,3001 57325 PDDL DMPR
057380,000383: 11,3002 00003 2
057381,000384: 11,3003 23715 5/128
![]() |
Page 1310 |
057383,000386: 11,3004 77621 BDSU
057384,000387: 11,3005 77603 DMP*
057385,000388: 11,3006 50035 J4REQ/J3,2
057386,000389: 11,3007 43271 DDV DAD # -3
057387,000390: 11,3010 02310 ALPHAM # (((P5/256)B 2 /R+P4/32) /R+P3/8)ALPHAV
057388,000391: 11,3011 00005 4 # 4 3
057389,000392: 11,3012 56273 DMPR* DDV
057390,000393: 11,3013 50031 2J3RE/J2,2
057391,000394: 11,3014 02310 ALPHAM
057392,000395: 11,3015 74215 DAD VXSC
057393,000396: 11,3016 00003 2
057394,000397: 11,3017 02152 ALPHAV
057395,000398: 11,3020 14033 STODL TVEC
057396,000399: 11,3021 70403 DMP* SR1
057397,000400: 11,3022 50035 J4REQ/J3,2
057398,000401: 11,3023 43271 DDV DAD
057399,000402: 11,3024 02310 ALPHAM # -3
057400,000403: 11,3025 50473 DMPR* SR3
057401,000404: 11,3026 50031 2J3RE/J2,2 # 3 4
057402,000405: 11,3027 43271 DDV DAD
057403,000406: 11,3030 02310 ALPHAM
057404,000407: 11,3031 76561 VXSC VSL1
057405,000408: 11,3032 00025 UZ
057406,000409: 11,3033 77645 BVSU
057407,000410: 11,3034 00033 TVEC
057408,000411: 11,3035 14033 STODL TVEC
057409,000412: 11,3036 02310 ALPHAM
057410,000413: 11,3037 63501 NORM DSQ
057411,000414: 11,3040 00047 X1
057412,000415: 11,3041 60316 DSQ NORM
057413,000416: 11,3042 00051 S1 # 4
057414,000417: 11,3043 54606 PUSH BDDV* # NORMED R TO 0D
057415,000418: 11,3044 50025 J2REQSQ,2
057416,000419: 11,3045 77761 VXSC
057417,000420: 11,3046 00033 TVEC
057418,000421: 11,3047 00033 STORE TVEC
057419,000422: 11,3050 56070 XAD,1 XAD,1
057420,000423: 11,3051 00046 X1
057421,000424: 11,3052 00046 X1
057422,000425: 11,3053 43070 XAD,1 BOF
057423,000426: 11,3054 00050 S1
057424,000427: 11,3055 00343 MOONFLAG
057425,000428: 11,3056 23125 NBRANCH1
057426,000429: 11,3057 63545 DLOAD DSQ # 2
057427,000430: 11,3060 00017 URPV # X B-2 TO 2D
057428,000431: 11,3061 63525 PDDL DSQ
057429,000432: 11,3062 00021 URPV +2 # 2 2
057430,000433: 11,3063 65215 DAD PDDL # Y +X B-2 TO 2D
057431,000434: 11,3064 00003 2D
057432,000435: 11,3065 45352 SL1 DSU
![]() |
Page 1311 |
057434,000437: 11,3066 00003 2D
057435,000438: 11,3067 41525 PDDL PUSH # X -Y B-2 TO 4D COSPHI 2 TO 6D
057436,000439: 11,3070 00023 COSPHI/2
057437,000440: 11,3071 65361 VXSC PDDL # 2COSPHI(UZ) B-3 TO 6D
057438,000441: 11,3072 00025 UZ
057439,000442: 11,3073 45316 DSQ DSU
057440,000443: 11,3074 23671 3/5 # 2 2 2
057441,000444: 11,3075 52405 DMP SL3 # (X -Y)((5COS (PHI)-3)UR 2COS(PHI)UZ)
057442,000445: 11,3076 27756 5/8
057443,000446: 11,3077 52361 VXSC VSU # B-3 TO 4D
057444,000447: 11,3100 02152 ALPHAV
057445,000448: 11,3101 72561 VXSC VSL2
057446,000449: 11,3102 77725 PDDL
057447,000450: 11,3103 00017 URPV
057448,000451: 11,3104 63205 DMP PDVL # XY B-2 TO 10D
057449,000452: 11,3105 00021 URPV +2
057450,000453: 11,3106 02152 ALPHAV
057451,000454: 11,3107 74235 VXV VXSC
057452,000455: 11,3110 00025 UZ
057453,000456: 11,3111 53332 VSL3 VAD # 4XY(UR X UZ) + D( 4D) B-3
057454,000457: 11,3112 77725 PDDL
057455,000458: 11,3113 41301 NORM DMP
057456,000459: 11,3114 00050 X2
057457,000460: 11,3115 00001 0D # 3J22R2MU/(X + Y)R
057458,000461: 11,3116 74265 BDDV VXSC
057459,000462: 11,3117 27754 3J22R2MU
057460,000463: 11,3120 53257 VSL* VAD
057461,000464: 11,3121 57605 0 -7,2
057462,000465: 11,3122 00033 TVEC
057463,000466: 11,3123 77754 LXA,2
057464,000467: 11,3124 02150 PBODY
057465,000468:
057466,000469: 11,3125 77600 NBRANCH1 BOV
057467,000470: 11,3126 23127 +1
057468,000471: 11,3127 53257 VSL* VAD
057469,000472: 11,3130 20153 0 -22D,1
057470,000473: 11,3131 02202 FV
057471,000474: 11,3132 02202 STORE FV
057472,000475: 11,3133 77600 BOV
057473,000476: 11,3134 22706 GOBAQUE
057474,000477:
057475,000478: 11,3135 72135 NBRANCH SLOAD LXA,1
057476,000479: 11,3136 01501 DIFEQCNT
057477,000480: 11,3137 00154 MPAC
057478,000481: 11,3140 73205 DMP CGOTO
057479,000482: 11,3141 27760 -1/12
057480,000483: 11,3142 00155 MPAC
057481,000484: 11,3143 23152 DIFEQTAB
057482,000485: 11,3144 77745 COSPHIE DLOAD
057483,000486: 11,3145 02156 ALPHAV +4
057484,000487: 11,3146 24023 STOVL COSPHI/2
057485,000488: 11,3147 11450 ZUNIT
![]() |
Page 1312 |
057487,000490: 11,3150 77650 GOTO
057488,000491: 11,3151 22755 COMTERM
057489,000492: 11,3152 23371 DIFEQTAB CADR DIFEQ+0
057490,000493: 11,3153 23375 CADR DIFEQ+1
057491,000494: 11,3154 23406 CADR DIFEQ+2
057492,000495: 11,3155 77214 TIMESTEP BOF VLOAD
057493,000496: 11,3156 00342 MIDFLAG
057494,000497: 11,3157 23206 RECTEST
057495,000498: 11,3160 01535 RCV
057496,000499: 11,3161 41241 DOT DMP
057497,000500: 11,3162 01543 VCV
057498,000501: 11,3163 02314 DT/2 # (R.V) X (DELTA T)
057499,000502: 11,3164 77640 BMN
057500,000503: 11,3165 23206 RECTEST
057501,000504: 11,3166 43014 BON BOF
057502,000505: 11,3167 00303 MOONFLAG
057503,000506: 11,3170 23263 LUNSPH
057504,000507: 11,3171 04340 RPQFLAG
057505,000508: 11,3172 23260 EARSPH
057506,000509: 11,3173 45145 DLOAD CALL
057507,000510: 11,3174 01517 TET
057508,000511: 11,3175 54110 LSPOS # RPQV IN MPAC
057509,000512: 11,3176 02263 STORE RPQV # RPQV
057510,000513: 11,3177 77754 LXA,2
057511,000514: 11,3200 02150 PBODY
057512,000515: 11,3201 51445 INLUNCHK BVSU ABVAL
057513,000516: 11,3202 01535 RCV
057514,000517: 11,3203 50025 DSU BMN
057515,000518: 11,3204 27764 RSPHERE
057516,000519: 11,3205 23300 DOSWITCH
057517,000520: 11,3206 51575 RECTEST VLOAD ABVAL # RECTIFY IF
057518,000521: 11,3207 01521 TDELTAV
057519,000522: 11,3210 77600 BOV
057520,000523: 11,3211 23234 CALLRECT
057521,000524: 11,3212 51025 DSU BPL # 1) EITHER TDELTAV OR TNUV EQUALS OR
057522,000525: 11,3213 23707 3/4 # EXCEEDS 3/4 IN MAGNITUDE
057523,000526: 11,3214 23234 CALLRECT
057524,000527: 11,3215 53615 DAD SL* # OR
057525,000528: 11,3216 23707 3/4
057526,000529: 11,3217 57605 0 -7,2 # 2) ABVAL(TDELTAV) EQUALS OR EXCEEDS
057527,000530: 11,3220 45271 DDV DSU # .01(ABVAL(RCV))
057528,000531: 11,3221 00013 10D
057529,000532: 11,3222 27762 RECRATIO
057530,000533: 11,3223 77244 BPL VLOAD
057531,000534: 11,3224 23234 CALLRECT
057532,000535: 11,3225 01527 TNUV
057533,000536: 11,3226 45246 ABVAL DSU
057534,000537: 11,3227 23707 3/4
057535,000538: 11,3230 77600 BOV
057536,000539: 11,3231 23234 CALLRECT
![]() |
Page 1313 |
057538,000541: 11,3232 77640 BMN
057539,000542: 11,3233 23236 INTGRATE
057540,000543: 11,3234 77624 CALLRECT CALL
057541,000544: 11,3235 23344 RECTIFY
057542,000545: 11,3236 77775 INTGRATE VLOAD
057543,000546: 11,3237 01527 TNUV
057544,000547: 11,3240 25120 STOVL ZV
057545,000548: 11,3241 01521 TDELTAV
057546,000549: 11,3242 01112 STORE YV
057547,000550: 11,3243 77614 CLEAR
057548,000551: 11,3244 00261 JSWITCH
057549,000552: 11,3245 66375 DIFEQ0 VLOAD SSP
057550,000553: 11,3246 01112 YV
057551,000554: 11,3247 01501 DIFEQCNT
057552,000555: 11,3250 00000 0
057553,000556: 11,3251 16152 STODL ALPHAV
057554,000557: 11,3252 11456 DPZERO
057555,000558: 11,3253 02212 STORE H # START H AT ZERO. GOES 0(DELT/2)DELT.
057556,000559: 11,3254 52014 BON GOTO
057557,000560: 11,3255 00301 JSWITCH
057558,000561: 11,3256 23610 DOW..
057559,000562: 11,3257 22430 ACCOMP
057560,000563: 11,3260 52175 EARSPH VLOAD GOTO
057561,000564: 11,3261 02263 RPQV
057562,000565: 11,3262 23201 INLUNCHK
057563,000566: 11,3263 60545 LUNSPH DLOAD SR2
057564,000567: 11,3264 00013 10D
057565,000568: 11,3265 50025 DSU BMN
057566,000569: 11,3266 27764 RSPHERE
057567,000570: 11,3267 23206 RECTEST
057568,000571: 11,3270 71214 BOF DLOAD
057569,000572: 11,3271 04340 RPQFLAG
057570,000573: 11,3272 23300 DOSWITCH
057571,000574: 11,3273 01517 TET
057572,000575: 11,3274 77624 CALL
057573,000576: 11,3275 54115 LUNPOS
057574,000577: 11,3276 77676 VCOMP
057575,000578: 11,3277 02263 STORE RPQV
057576,000579: 11,3300 77624 DOSWITCH CALL
057577,000580: 11,3301 23304 ORIGCHNG
057578,000581: 11,3302 77650 GOTO
057579,000582: 11,3303 23236 INTGRATE
057580,000583: 11,3304 45020 ORIGCHNG STQ CALL
057581,000584: 11,3305 02270 ORIGEX
057582,000585: 11,3306 23344 RECTIFY
057583,000586: 11,3307 53775 VLOAD VSL*
057584,000587: 11,3310 01535 RCV
057585,000588: 11,3311 57576 0,2
057586,000589: 11,3312 53651 VSU VSL*
057587,000590: 11,3313 02263 RPQV
![]() |
Page 1314 |
057589,000592: 11,3314 57574 2,2
057590,000593: 11,3315 01503 STORE RRECT
057591,000594: 11,3316 15535 STODL RCV
057592,000595: 11,3317 01517 TET
057593,000596: 11,3320 77624 CALL
057594,000597: 11,3321 54120 LUNVEL
057595,000598: 11,3322 57414 BOF VCOMP
057596,000599: 11,3323 00343 MOONFLAG
057597,000600: 11,3324 23325 +1
057598,000601: 11,3325 53715 PDVL VSL*
057599,000602: 11,3326 01543 VCV
057600,000603: 11,3327 57576 0,2
057601,000604: 11,3330 77651 VSU
057602,000605: 11,3331 77657 VSL*
057603,000606: 11,3332 57574 0 +2,2
057604,000607: 11,3333 01511 STORE VRECT
057605,000608: 11,3334 01543 STORE VCV
057606,000609: 11,3335 67154 LXA,2 SXA,2
057607,000610: 11,3336 02270 ORIGEX
057608,000611: 11,3337 00052 QPRET
057609,000612: 11,3340 52014 BON GOTO
057610,000613: 11,3341 00303 MOONFLAG
057611,000614: 11,3342 26666 CLRMOON
057612,000615: 11,3343 26673 SETMOON
![]() |
Page 1315 |
057614,000617: # THE RECTIFY SUBROUTINE IS CALLED BY THE INTEGRATION PROGRAM AND OCCASIONALLY BY THE MEASUREMENT INCORPORATION
057615,000618: # ROUTINES TO ESTABLISH A NEW CONIC.
057616,000619:
057617,000620: 11,3344 77354 RECTIFY LXA,2 VLOAD
057618,000621: 11,3345 02150 PBODY
057619,000622: 11,3346 01521 TDELTAV
057620,000623: 11,3347 53257 VSL* VAD
057621,000624: 11,3350 57605 0 -7,2
057622,000625: 11,3351 01535 RCV
057623,000626: 11,3352 01503 STORE RRECT
057624,000627: 11,3353 25535 STOVL RCV
057625,000628: 11,3354 01527 TNUV
057626,000629: 11,3355 53257 VSL* VAD
057627,000630: 11,3356 57602 0 -4,2
057628,000631: 11,3357 01543 VCV
057629,000632: 11,3360 01511 MINIRECT STORE VRECT
057630,000633: 11,3361 25543 STOVL VCV
057631,000634: 11,3362 11456 ZEROVEC
057632,000635: 11,3363 01521 STORE TDELTAV
057633,000636: 11,3364 15527 STODL TNUV
057634,000637: 11,3365 11456 ZEROVEC
057635,000638: 11,3366 01551 STORE TC
057636,000639: 11,3367 01553 STORE XKEP
057637,000640: 11,3370 77616 RVQ
057638,000641:
![]() |
Page 1316 |
057640,000643: # THE THREE DIFEQ ROUTINES - DIFEQ+0, DIFEQ+12, AND DIFEQ+24 - ARE ENTEREDTO PROCESS THE CONTRIBUTIONS AT THE
057641,000644: # BEGINNING, MIDDLE, AND END OF THE TIMESTEP, RESPECTIVELY. THE UPDATING IS DONE BY THE NYSTROM METHOD.
057642,000645:
057643,000646: 11,3371 64575 DIFEQ+0 VLOAD VSR3
057644,000647: 11,3372 02202 FV
057645,000648: 11,3373 36166 STCALL PHIV
057646,000649: 11,3374 23551 DIFEQCOM
057647,000650: 11,3375 74575 DIFEQ+1 VLOAD VSR1
057648,000651: 11,3376 02202 FV
057649,000652: 11,3377 53206 PUSH VAD
057650,000653: 11,3400 02166 PHIV
057651,000654: 11,3401 26174 STOVL PSIV
057652,000655: 11,3402 53362 VSR1 VAD
057653,000656: 11,3403 02166 PHIV
057654,000657: 11,3404 36166 STCALL PHIV
057655,000658: 11,3405 23551 DIFEQCOM
057656,000659: 11,3406 57345 DIFEQ+2 DLOAD DMPR
057657,000660: 11,3407 02212 H
057658,000661: 11,3410 23717 DP2/3
057659,000662: 11,3411 74206 PUSH VXSC
057660,000663: 11,3412 02166 PHIV
057661,000664: 11,3413 53372 VSL1 VAD
057662,000665: 11,3414 01120 ZV
057663,000666: 11,3415 53361 VXSC VAD
057664,000667: 11,3416 02212 H
057665,000668: 11,3417 01112 YV
057666,000669: 11,3420 25112 STOVL YV
057667,000670: 11,3421 02202 FV
057668,000671: 11,3422 53322 VSR3 VAD
057669,000672: 11,3423 02174 PSIV
057670,000673: 11,3424 76561 VXSC VSL1
057671,000674: 11,3425 77655 VAD
057672,000675: 11,3426 01120 ZV
057673,000676: 11,3427 01120 STORE ZV
057674,000677: 11,3430 45014 BOFF CALL
057675,000678: 11,3431 00341 JSWITCH
057676,000679: 11,3432 23502 ENDSTATE
057677,000680: 11,3433 56741 GRP2PC
057678,000681: 11,3434 77354 LXA,2 VLOAD
057679,000682: 11,3435 01102 COLREG
057680,000683: 11,3436 01120 ZV
057681,000684: 11,3437 77732 VSL3 # ADJUST W-POSITION FOR STORAGE
057682,000685: 11,3440 12467 STORE W +54D,2
057683,000686: 11,3441 77775 VLOAD
057684,000687: 11,3442 01112 YV
057685,000688: 11,3443 40132 VSL3 BOV
057686,000689: 11,3444 23574 WMATEND
057687,000690: 11,3445 12401 STORE W,2
057688,000691:
057689,000692: 11,3446 77624 CALL
057690,000693: 11,3447 56741 GRP2PC
![]() |
Page 1317 |
057692,000695: 11,3450 66354 LXA,2 SSP
057693,000696: 11,3451 01102 COLREG
057694,000697: 11,3452 00052 S2
057695,000698: 11,3453 00000 0
057696,000699: 11,3454 67114 INCR,2 SXA,2
057697,000700: 11,3455 00006 6
057698,000701: 11,3456 01111 YV
057699,000702: 11,3457 45104 TIX,2 CALL
057700,000703: 11,3460 23545 RELOADSV
057701,000704: 11,3461 56741 GRP2PC
057702,000705: 11,3462 67154 LXA,2 SXA,2
057703,000706: 11,3463 01111 YV
057704,000707: 11,3464 01102 COLREG
057705,000708:
057706,000709: 11,3465 77624 NEXTCOL CALL
057707,000710: 11,3466 56741 GRP2PC
057708,000711: 11,3467 76754 LXA,2 VLOAD*
057709,000712: 11,3470 01102 COLREG
057710,000713: 11,3471 75376 W,2
057711,000714: 11,3472 77722 VSR3 # ADJUST W-POSITION FOR INTEGRATION
057712,000715: 11,3473 01112 STORE YV
057713,000716: 11,3474 76173 VLOAD* AXT,1
057714,000717: 11,3475 75310 W +54D,2
057715,000718: 11,3476 00000 0
057716,000719: 11,3477 77722 VSR3 # ADJUST W-VELOCITY FOR INTEGRATION
057717,000720: 11,3500 35120 STCALL ZV
057718,000721: 11,3501 23245 DIFEQ0
057719,000722:
057720,000723: 11,3502 77200 ENDSTATE BOV VLOAD
057721,000724: 11,3503 22706 GOBAQUE
057722,000725: 11,3504 01120 ZV
057723,000726: 11,3505 25527 STOVL TNUV
057724,000727: 11,3506 01112 YV
057725,000728: 11,3507 01521 STORE TDELTAV
057726,000729: 11,3510 43014 BON BOFF
057727,000730: 11,3511 04715 MIDAVFLG
057728,000731: 11,3512 27653 CKMID2 # CHECK FOR MID2 BEFORE GOING TO TIMEINC
057729,000732: 11,3513 01756 DIM0FLAG
057730,000733: 11,3514 27234 TESTLOOP
057731,000734: 11,3515 77776 EXIT
057732,000735: 11,3516 05301 TC PHASCHNG
057733,000736: 11,3517 04022 OCT 04022 # PHASE 1
057734,000737: 11,3520 05435 TC UPFLAG # PHASE CHANGE HAS OCCURRED BETWEEN
057735,000738: 11,3521 00236 ADRES REINTFLG # INTSTALL AND INTWAKE
057736,000739: 11,3522 06006 TC INTPRET
057737,000740: 11,3523 77731 SSP
057738,000741: 11,3524 00053 QPRET
057739,000742: 11,3525 23532 AMOVED
057740,000743: 11,3526 52014 BON GOTO
057741,000744: 11,3527 01714 VINTFLAG
![]() |
Page 1318 |
057743,000746: 11,3530 26636 ATOPCSM
057744,000747: 11,3531 26711 ATOPLEM
057745,000748: 11,3532 66214 AMOVED SET SSP
057746,000749: 11,3533 00061 JSWITCH
057747,000750: 11,3534 01103 COLREG
057748,000751: 11,3535 77741 DEC -30 B-14
057749,000752: 11,3536 66214 BOFF SSP
057750,000753: 11,3537 01755 D6OR9FLG
057751,000754: 11,3540 23465 NEXTCOL
057752,000755: 11,3541 01103 COLREG
057753,000756: 11,3542 77717 DEC -48 B-14
057754,000757: 11,3543 77650 GOTO
057755,000758: 11,3544 23465 NEXTCOL
057756,000759:
057757,000760: 11,3545 77745 RELOADSV DLOAD # RELOAD TEMPORARY STATE VECTOR
057758,000761: 11,3546 01101 TDEC # FROM PERMANENT IN CASE OF
057759,000762: 11,3547 34041 STCALL TDEC1
057760,000763: 11,3550 27120 INTEGRV2 # BY STARTING AT INTEGRV2.
057761,000764: 11,3551 43345 DIFEQCOM DLOAD DAD # INCREMENT H AND DIFEQCNT.
057762,000765: 11,3552 02314 DT/2
057763,000766: 11,3553 02212 H
057764,000767: 11,3554 66110 INCR,1 SXA,1
057765,000768: 11,3555 77763 DEC -12 B-14
057766,000769: 11,3556 01500 DIFEQCNT # DIFEQCNT SET FOR NEXT ENTRY.
057767,000770: 11,3557 02212 STORE H
057768,000771: 11,3560 74561 VXSC VSR1
057769,000772: 11,3561 02202 FV
057770,000773: 11,3562 74255 VAD VXSC
057771,000774: 11,3563 01120 ZV
057772,000775: 11,3564 02212 H
057773,000776: 11,3565 77655 VAD
057774,000777: 11,3566 01112 YV
057775,000778: 11,3567 02152 STORE ALPHAV
057776,000779: 11,3570 52014 BON GOTO
057777,000780: 11,3571 00301 JSWITCH
057778,000781: 11,3572 23610 DOW..
057779,000782: 11,3573 22410 FBR3
057780,000783:
057781,000784: 11,3574 43014 WMATEND CLEAR CLEAR
057782,000785: 11,3575 01676 DIM0FLAG # DONT INTEGRATE W THIS TIME
057783,000786: 11,3576 01671 ORBWFLAG # INVALIDATE W
057784,000787: 11,3577 77614 CLEAR
057785,000788: 11,3600 02676 RENDWFLG
057786,000789: 11,3601 77414 SET EXIT
057787,000790: 11,3602 01472 STATEFLG # PICK UP STATE VECTOR UPDATE
057788,000791: 11,3603 05537 TC ALARM
057789,000792: 11,3604 00421 OCT 421
057790,000793: 11,3605 06006 TC INTPRET
![]() |
Page 1319 |
057792,000795: 11,3606 77650 GOTO
057793,000796: 11,3607 27234 TESTLOOP # FINISH INTEGRATING STATE VECTOR
057794,000797:
![]() |
Page 1320 |
057796,000799: # ORBITAL ROUTINE FOR EXTRAPOLATION OF THE W MATRIX. IT COMPUTES THE SECOND DERIVATIVE OF EACH COLUMN POSITION
057797,000800: # VECTOR OF THE MATRIX AND CALLS THE NYSTROM INTEGRATION ROUTINES TO SOLVE THE DIFFERENTIAL EQUATIONS. THE PROGRAM
057798,000801: # USES A TABLE OF VEHICLE POSITION VECTORS COMPUTED DURING THE INTEGRATION OF THE VEHICLES POSITION AND VELOCITY.
057799,000802:
057800,000803: 11,3610 70754 DOW.. LXA,2 DLOAD*
057801,000804: 11,3611 02150 PBODY
057802,000805: 11,3612 50041 MUEARTH,2
057803,000806: 11,3613 36210 STCALL BETAM
057804,000807: 11,3614 23636 DOW..1
057805,000808: 11,3615 02202 STORE FV
057806,000809: 11,3616 62014 BOF INCR,1
057807,000810: 11,3617 00342 MIDFLAG
057808,000811: 11,3620 23135 NBRANCH
057809,000812: 11,3621 77771 DEC -6 B-14
057810,000813: 11,3622 70744 LXC,2 DLOAD*
057811,000814: 11,3623 02150 PBODY
057812,000815: 11,3624 50043 MUEARTH -2,2
057813,000816: 11,3625 36210 STCALL BETAM
057814,000817: 11,3626 23636 DOW..1
057815,000818: 11,3627 50414 BON VSR6
057816,000819: 11,3630 00303 MOONFLAG
057817,000820: 11,3631 23632 +1
057818,000821: 11,3632 77655 VAD
057819,000822: 11,3633 02202 FV
057820,000823: 11,3634 36202 STCALL FV
057821,000824: 11,3635 23135 NBRANCH
057822,000825: 11,3636 60575 DOW..1 VLOAD VSR4
057823,000826: 11,3637 02152 ALPHAV
057824,000827: 11,3640 53513 PDVL* UNIT
057825,000828: 11,3641 02217 VECTAB,1
057826,000829: 11,3642 46315 PDVL VPROJ
057827,000830: 11,3643 02152 ALPHAV
057828,000831: 11,3644 52361 VXSC VSU
057829,000832: 11,3645 23707 3/4
057830,000833: 11,3646 60325 PDDL NORM
057831,000834: 11,3647 00045 36D
057832,000835: 11,3650 00052 S2
057833,000836: 11,3651 63406 PUSH DSQ
057834,000837: 11,3652 77605 DMP
057835,000838: 11,3653 65301 NORM PDDL
057836,000839: 11,3654 00043 34D
057837,000840: 11,3655 02210 BETAM
057838,000841: 11,3656 56342 SR1 DDV
057839,000842: 11,3657 77761 VXSC
057840,000843: 11,3660 57154 LXA,2 XAD,2
057841,000844: 11,3661 00051 S2
057842,000845: 11,3662 00051 S2
057843,000846: 11,3663 57074 XAD,2 XAD,2
057844,000847: 11,3664 00051 S2
057845,000848: 11,3665 00042 34D
057846,000849: 11,3666 43457 VSL* RVQ
![]() |
Page 1321 |
057848,000851: 11,3667 57606 0 -8D,2
057849,000852:
057850,000853: 11,2000 SETLOC ORBITAL1
057851,000854: 11,2000 BANK
057852,000855:
057853,000856: 11,3670 04631 23146 3/5 2DEC .6 B-2
057854,000857: 11,3672 14000 00000 THREE/8 2DEC .375
057855,000858: 11,3674 02314 31463 .3D 2DEC .3 B-2
057856,000859: 11,3676 01400 00000 3/64 2DEC 3 B-6
057857,000860: 11,3700 10000 00000 DP1/4 2DEC .25
057858,000861: 11,3702 11,3700 DQUARTER EQUALS DP1/4
057859,000862: 11,3702 11,3700 POS1/4 EQUALS DP1/4
057860,000863: 11,3702 03000 00000 3/32 2DEC 3 B-5
057861,000864: 11,3704 36000 00000 15/16 2DEC 15. B-4
057862,000865: 11,3706 30000 00000 3/4 2DEC 3.0 B-2
057863,000866: 11,3710 22525 12525 7/12 2DEC .5833333333
057864,000867: 11,3712 22000 00000 9/16 2DEC 9 B-4
057865,000868: 11,3714 01200 00000 5/128 2DEC 5 B-7
057866,000869: 11,3716 04,3455 DPZERO EQUALS ZEROVEC
057867,000870: 11,3716 25252 25253 DP2/3 2DEC .6666666667
057868,000871: 11,3720 11,3716 2/3 EQUALS DP2/3
057869,000872: 11,3720 00027 OCT27 OCT 27
057870,000873:
057871,000874: # LM504 IS TEMPORARY
057872,000875:
057873,000876: 13,3715 BANK 13
057874,000877: 13,2000 SETLOC ORBITAL2
057875,000878: 13,2000 BANK
057876,000879: # IT IS VITAL THAT THE FOLLOWING CONSTANTS NOT BE SHUFFLED
057877,000880: 13,3715 77764 DEC -11 B-14
057878,000881: 13,3716 77775 DEC -2 B-14
057879,000882: 13,3717 77766 DEC -9 B-14
057880,000883: 13,3720 77771 DEC -6 B-14
057881,000884: 13,3721 77775 DEC -2 B-14
057882,000885: 13,3722 77775 DEC -2 B-14
057883,000886: 13,3723 00000 DEC 0 B-14
057884,000887: 13,3724 77763 DEC -12 B-14
057885,000888: 13,3725 77766 DEC -9 B-14
057886,000889: 13,3726 77773 DEC -4 B-14
057887,000890: 13,3727 77770 ASCALE DEC -7 B-14
057888,000891: 13,3730 77771 DEC -6 B-14
![]() |
Page 1322 |
057890,000893: 13,3731 27446 14620 2DEC* 1.32715445 E16 B-54* # S
057891,000894: 13,3733 16471 01352 2DEC* 4.9027780 E8 B-30* # M
057892,000895: 13,3735 22437 16067 MUEARTH 2DEC* 3.986032 E10 B-36*
057893,000896: 13,3737 00000 00000 2DEC 0 B-28
057894,000897: 13,3741 02302 24736 J4REQ/J3 2DEC* .4991607391 E7 B-26*
057895,000898: 13,3743 00000 00000 2DEC 0 B-28
057896,000899: 13,3745 77776 53032 2J3RE/J2 2DEC* -.1355426363 E5 B-27*
057897,000900: 13,3747 10407 05344 2DEC* .3067493316 E18 B-60*
057898,000901: 13,3751 13710 35320 J2REQSQ 2DEC* 1.75501139 E21 B-72*
057899,000902: 13,3753 12160 12124 3J22R2MU 2DEC* 9.20479048 E16 B-58*
057900,000903:
057901,000904: 13,3755 24000 00000 5/8 2DEC 5 B-3
057902,000905: 13,3757 74631 63145 -1/12 2DEC -.1
057903,000906: 13,3761 13,3733 MUM = MUEARTH -2
057904,000907: 13,3761 00243 32703 RECRATIO 2DEC .01
057905,000908: 13,3763 03654 21000 RSPHERE 2DEC 64373.76 E3 B-29
057906,000909: 13,3765 03654 21000 RDM 2DEC 16093.44 E3 B-27
057907,000910: 13,3767 04627 25200 RDE 2DEC 80467.20 E3 B-29
057908,000911:
057909,000912: 13,3771 RATT EQUALS 00
057910,000913: 13,3771 VATT EQUALS 6D
057911,000914: 13,3771 TAT EQUALS 12D
057912,000915: 13,3771 RATT1 EQUALS 14D
057913,000916: 13,3771 VATT1 EQUALS 20D
057914,000917: 13,3771 MU(P) EQUALS 26D
057915,000918: 13,3771 TDEC1 EQUALS 32D
057916,000919: 13,3771 URPV EQUALS 14D
057917,000920: 13,3771 0022 COSPHI/2 EQUALS URPV +4
057918,000921: 13,3771 UZ EQUALS 20D
057919,000922: 13,3771 TVEC EQUALS 26D
057920,000923:
057921,000924:
057922,000925:
End of include-file ORBITAL_INTEGRATION.agc. Parent file is MAIN.agc