GAP: ASSEMBLE REVISION 237 OF AGC PROGRAM COLOSSUS BY NASA 2021111-031 1:17 AUG. 24, 1968Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were derived from scans of the
Colossus 237 (Apollo 8 Command Module) program listing from the private collection of original
AGC developer Fred Martin. Scanning was by Ron Burkey. Pre-existing Colossus 249
(Apollo 9 CM) source files were used as a template, and changes between Colossus 249
and Colossus 237 were manually transcribed by a team of volunteers. Note
that the page images
presented online are of reduced quality, and that additional 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:GAP: ASSEMBLE REVISION 237 OF AGC PROGRAM COLOSSUS BY NASA 2021111-031 1:17 AUG. 24, 1968Note that the date is the date of the printout, not the date of the program revision. |
055297,000002: ## Copyright: Public domain.
055298,000003: ## Filename: ORBITAL_INTEGRATION.agc
055299,000004: ## Purpose: Part of the source code for Colossus build 237.
055300,000005: ## This is for the Command Module's (CM) Apollo Guidance
055301,000006: ## Computer (AGC), for Apollo 8.
055302,000007: ## Assembler: yaYUL
055303,000008: ## Contact: Onno Hommes <ohommes@alumni.cmu.edu>
055304,000009: ## Website: www.ibiblio.org/apollo/index.html
055305,000010: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Colossus237/
055306,000011: ## Mod history: 2010-05-22 OH Adapted from corresponding Colossus 249 file.
055307,000012: ## 2010-12-04 JL Remove Colossus 249 header comments. Change to double-has page numbers.
055308,000013: ## 2011-02-12 JL Minor fixes.
055309,000014: ## 2017-01-01 RSB Proofed comment text using octopus/ProoferComments,
055310,000015: ## and fixed errors found.
055311,000016: ## 2017-01-15 RSB Fixed comment-text errors noted while diff'ing vs
055312,000017: ## Colossus 249.
055313,000018:
|
|
Page 1298 |
055315,000020: # DELETE
055316,000021: 13,3712 BANK 13
055317,000022: 11,2000 SETLOC ORBITAL
055318,000023: 11,2000 BANK
055319,000024: 11,2310 COUNT 11/ORBIT
055320,000025: # DELETE
055321,000026: 11,2310 40354 KEPPREP LXA,2 SETPD
055322,000027: 11,2311 02150 PBODY
055323,000028: 11,2312 00001 0
055324,000029: 11,2313 75543 DLOAD* SQRT # SQRT(MU) (+18 OR +15) 0D PL 2D
055325,000030: 11,2314 50044 MUEARTH,2
055326,000031: 11,2315 53515 PDVL UNIT # PL 8D
055327,000032: 11,2316 01535 RCV
055328,000033: 11,2317 60325 PDDL NORM # NORM R (+29 OR +27 - N1) 2D PL 4D
055329,000034: 11,2320 00045 36D
055330,000035: 11,2321 00047 X1
055331,000036: 11,2322 77715 PDVL
055332,000037: 11,2323 65241 DOT PDDL # F*SQRT(MU)(+7 OR+5) 4D PL 6D
055333,000038: 11,2324 01543 VCV
055334,000039: 11,2325 02312 TAU. # (+28)
055335,000040: 11,2326 60225 DSU NORM
055336,000041: 11,2327 01551 TC
055337,000042: 11,2330 00051 S1
055338,000043: 11,2331 77742 SR1
055339,000044: 11,2332 65271 DDV PDDL
055340,000045: 11,2333 00003 2D
055341,000046: 11,2334 41405 DMP PUSH # FS(+6 +N1-N2) 6D PL 8D
055342,000047: 11,2335 00005 4D
055343,000048: 11,2336 65316 DSQ PDDL # (FS)SQ(+12 +2(N1-N2)) 8D PL 10D
055344,000049: 11,2337 00005 4D
055345,000050: 11,2340 64716 DSQ PDDL* # SSQ/MU(-2OR +2(N1-N2)) 10D PL 12D
055346,000051: 11,2341 50044 MUEARTH,2
055347,000052: 11,2342 40442 SR3 SR4
055348,000053: 11,2343 47515 PDVL VSQ # PREALIGN MU (+43 OR +37) 12D PL 14D
055349,000054: 11,2344 01543 VCV
055350,000055: 11,2345 44205 DMP BDSU # PL 12D
055351,000056: 11,2346 00045 36D
055352,000057: 11,2347 41271 DDV DMP # PL 10D
055353,000058: 11,2350 00003 2D # -(1/R-ALPHA)(+12 +3N1-2N2)
055354,000059: 11,2351 53605 DMP SL*
055355,000060: 11,2352 23717 DP2/3
055356,000061: 11,2353 20176 0 -3,1 # 10L(1/R-ALPHA)(+13 +2(N1-N2))
055357,000062: 11,2354 43260 XSU,1 DAD # 2(FS)SQ - ETCETRA PL 8D
055358,000063: 11,2355 00050 S1 # X1 = N2-N1
055359,000064: 11,2356 45257 SL* DSU # -FS+2(FS)SQ ETC (+6 +N1-N2) PL 6D
055360,000065: 11,2357 20211 8D,1
055361,000066: 11,2360 41205 DMP DMP
055362,000067: 11,2361 00001 0D
055363,000068: 11,2362 00005 4D
055364,000069: 11,2363 53657 SL* SL*
|
|
Page 1299 |
055366,000071: 11,2364 20211 8D,1
055367,000072: 11,2365 20201 0,1 # S(-FS(1-2FS)-1/6...)(+17 OR +16)
055368,000073: 11,2366 65215 DAD PDDL # PL 6D
055369,000074: 11,2367 01553 XKEP
055370,000075: 11,2370 53605 DMP SL* # S(+17 OR +16)
055371,000076: 11,2371 00001 0D
055372,000077: 11,2372 20202 1,1
055373,000078: 11,2373 43204 BOVB DAD
055374,000079: 11,2374 57314 TCDANZIG
055375,000080: 11,2375 77626 STADR
055376,000081: 11,2376 75471 STORE XKEPNEW
055377,000082: 11,2377 74020 STQ AXC,1
055378,000083: 11,2400 02270 KEPRTN
055379,000084: 11,2401 00012 DEC 10 B-14
055380,000085: 11,2402 74014 BON AXC,1
055381,000086: 11,2403 00303 MOONFLAG
055382,000087: 11,2404 24000 KEPLERN
055383,000088: 11,2405 00002 DEC 2 B-14
055384,000089: 11,2406 77650 GOTO
055385,000090: 11,2407 24000 KEPLERN
055386,000091:
|
|
Page 1300 |
055388,000093: 11,2410 66350 FBR3 LXA,1 SSP
055389,000094: 11,2411 01500 DIFEQCNT
055390,000095: 11,2412 00051 S1
055391,000096: 11,2413 77762 DEC -13 B-14
055392,000097: 11,2414 54345 DLOAD SR
055393,000098: 11,2415 02314 DT/2
055394,000099: 11,2416 20612 9D
055395,000100: 11,2417 61500 TIX,1 ROUND
055396,000101: 11,2420 22421 +1
055397,000102: 11,2421 43206 PUSH DAD
055398,000103: 11,2422 01551 TC
055399,000104: 11,2423 16312 STODL TAU.
055400,000105: 11,2424 77615 DAD
055401,000106: 11,2425 01517 TET
055402,000107: 11,2426 35517 STCALL TET
055403,000108: 11,2427 22310 KEPPREP
055404,000109:
|
|
Page 1301 |
055406,000111: # AGC ROUTINE TO COMPUTE ACCELERATION COMPONENTS.
055407,000112:
055408,000113:
055409,000114: 11,2430 73150 ACCOMP LXA,1 LXA,2
055410,000115: 11,2431 02150 PBODY
055411,000116: 11,2432 02150 PBODY
055412,000117: 11,2433 77775 VLOAD
055413,000118: 11,2434 11453 ZEROVEC
055414,000119: 11,2435 26202 STOVL FV
055415,000120: 11,2436 02152 ALPHAV
055416,000121: 11,2437 53257 VSL* VAD
055417,000122: 11,2440 57605 0 -7,2
055418,000123: 11,2441 01535 RCV
055419,000124: 11,2442 02160 STORE BETAV
055420,000125: 11,2443 65014 BOF XCHX,2
055421,000126: 11,2444 01756 DIM0FLAG
055422,000127: 11,2445 22452 +5
055423,000128: 11,2446 01500 DIFEQCNT
055424,000129: 11,2447 12217 STORE VECTAB,2
055425,000130: 11,2450 77724 XCHX,2
055426,000131: 11,2451 01500 DIFEQCNT
055427,000132: 11,2452 53575 VLOAD UNIT
055428,000133: 11,2453 02152 ALPHAV
055429,000134: 11,2454 16152 STODL ALPHAV
055430,000135: 11,2455 00045 36D
055431,000136: 11,2456 02310 STORE ALPHAM
055432,000137: 11,2457 77624 CALL
055433,000138: 11,2460 22562 GAMCOMP
055434,000139: 11,2461 66175 VLOAD SXA,1
055435,000140: 11,2462 02160 BETAV
055436,000141: 11,2463 00051 S2
055437,000142: 11,2464 16152 STODL ALPHAV
055438,000143: 11,2465 02210 BETAM
055439,000144: 11,2466 02310 STORE ALPHAM
055440,000145: 11,2467 71214 BOF DLOAD
055441,000146: 11,2470 00342 MIDFLAG
055442,000147: 11,2471 22725 OBLATE
055443,000148: 11,2472 01517 TET
055444,000149: 11,2473 77624 CALL
055445,000150: 11,2474 54110 LSPOS
055446,000151: 11,2475 72174 AXT,2 LXA,1
055447,000152: 11,2476 00002 2
055448,000153: 11,2477 00051 S2
055449,000154: 11,2500 77614 BOF
055450,000155: 11,2501 00343 MOONFLAG
055451,000156: 11,2502 22505 +3
055452,000157: 11,2503 77076 VCOMP AXT,2
055453,000158: 11,2504 00000 0
055454,000159: 11,2505 02160 STORE BETAV
055455,000160: 11,2506 26263 STOVL RPQV
|
|
Page 1302 |
055457,000162: 11,2507 00003 2D
055458,000163: 11,2510 02300 STORE RPSV
055459,000164: 11,2511 45335 SLOAD DSU
055460,000165: 11,2512 01012 MODREG
055461,000166: 11,2513 23721 OCT27
055462,000167: 11,2514 43030 BHIZ BOF
055463,000168: 11,2515 22520 +3
055464,000169: 11,2516 01756 DIM0FLAG
055465,000170: 11,2517 22534 GETRPSV
055466,000171: 11,2520 74375 VLOAD VXSC
055467,000172: 11,2521 02152 ALPHAV
055468,000173: 11,2522 02310 ALPHAM
055469,000174: 11,2523 52257 VSR* VSU
055470,000175: 11,2524 57175 1,2
055471,000176: 11,2525 02160 BETAV
055472,000177: 11,2526 77724 XCHX,2
055473,000178: 11,2527 01500 DIFEQCNT
055474,000179: 11,2530 12225 STORE VECTAB +6,2
055475,000180: 11,2531 02272 STORE RQVV
055476,000181: 11,2532 77724 XCHX,2
055477,000182: 11,2533 01500 DIFEQCNT
055478,000183: 11,2534 62175 GETRPSV VLOAD INCR,1
055479,000184: 11,2535 02263 RPQV
055480,000185: 11,2536 00004 4
055481,000186: 11,2537 43014 CLEAR BOF
055482,000187: 11,2540 04260 RPQFLAG
055483,000188: 11,2541 00343 MOONFLAG
055484,000189: 11,2542 22547 +5
055485,000190: 11,2543 53261 VSR VAD
055486,000191: 11,2544 20612 9D
055487,000192: 11,2545 02300 RPSV
055488,000193: 11,2546 02300 STORE RPSV
055489,000194: 11,2547 77624 CALL
055490,000195: 11,2550 22562 GAMCOMP
055491,000196: 11,2551 62174 AXT,2 INCR,1
055492,000197: 11,2552 00004 4
055493,000198: 11,2553 00004 4
055494,000199: 11,2554 77775 VLOAD
055495,000200: 11,2555 02300 RPSV
055496,000201: 11,2556 36160 STCALL BETAV
055497,000202: 11,2557 22562 GAMCOMP
055498,000203: 11,2560 77650 GOTO
055499,000204: 11,2561 22725 OBLATE
055500,000205: 11,2562 74575 GAMCOMP VLOAD VSR1
055501,000206: 11,2563 02160 BETAV
055502,000207: 11,2564 40236 VSQ SETPD
055503,000208: 11,2565 00001 0
055504,000209: 11,2566 61501 NORM ROUND
055505,000210: 11,2567 00040 31D
055506,000211: 11,2570 60325 PDDL NORM # NORMED B SQUARED TO PD LIST
|
|
Page 1303 |
055508,000213: 11,2571 02310 ALPHAM # NORMALIZE (LESS ONE) LENGTH OF ALPHA
055509,000214: 11,2572 00041 32D # SAVING NORM SCALE FACTOR IN X1
055510,000215: 11,2573 63342 SR1 PDVL
055511,000216: 11,2574 02160 BETAV # C(PDL+2) = ALMOST NORMED ALPHA
055512,000217: 11,2575 77656 UNIT
055513,000218: 11,2576 16160 STODL BETAV
055514,000219: 11,2577 00045 36D
055515,000220: 11,2600 02210 STORE BETAM
055516,000221: 11,2601 55301 NORM BDDV # FORM NORMALIZED QUOTIENT ALPHAM/BETAM
055517,000222: 11,2602 00042 33D
055518,000223: 11,2603 41562 SR1R PUSH # C(PDL+2) = ALMOST NORMALIZED RHO.
055519,000224: 11,2604 77743 DLOAD*
055520,000225: 11,2605 27725 ASCALE,1
055521,000226: 11,2606 00051 STORE S1
055522,000227: 11,2607 57124 XCHX,2 XAD,2
055523,000228: 11,2610 00050 S1
055524,000229: 11,2611 00040 32D
055525,000230: 11,2612 71264 XSU,2 DLOAD
055526,000231: 11,2613 00041 33D
055527,000232: 11,2614 00003 2D
055528,000233: 11,2615 65057 SR* XCHX,2
055529,000234: 11,2616 57177 0 -1,2
055530,000235: 11,2617 00050 S1
055531,000236: 11,2620 74406 PUSH SR1R # RHO/4 TO 4D
055532,000237: 11,2621 50315 PDVL DOT
055533,000238: 11,2622 02152 ALPHAV
055534,000239: 11,2623 02160 BETAV
055535,000240: 11,2624 44372 SL1R BDSU # (RHO/4) - 2(ALPHAV/2.BETAV/2)
055536,000241: 11,2625 57206 PUSH DMPR # TO PDL+6
055537,000242: 11,2626 00005 4
055538,000243: 11,2627 77752 SL1
055539,000244: 11,2630 43206 PUSH DAD
055540,000245: 11,2631 23701 DQUARTER
055541,000246: 11,2632 75406 PUSH SQRT
055542,000247: 11,2633 41475 DMPR PUSH
055543,000248: 11,2634 00013 10D
055544,000249: 11,2635 43352 SL1 DAD
055545,000250: 11,2636 23701 DQUARTER
055546,000251: 11,2637 43325 PDDL DAD # (1/4)+2((Q+1)/4) TO PD+14D
055547,000252: 11,2640 00013 10D
055548,000253: 11,2641 11451 HALFDP
055549,000254: 11,2642 72475 DMPR SL1
055550,000255: 11,2643 00011 8D
055551,000256: 11,2644 56215 DAD DDV
055552,000257: 11,2645 23673 THREE/8
055553,000258: 11,2646 00017 14D
055554,000259: 11,2647 74275 DMPR VXSC
055555,000260: 11,2650 00007 6
055556,000261: 11,2651 02160 BETAV # -
055557,000262: 11,2652 64515 PDVL VSR3 # (G/2)(C(PD+4))B/2 TO PD+16D
|
|
Page 1304 |
055559,000264: 11,2653 02152 ALPHAV
055560,000265: 11,2654 41455 VAD PUSH # A12 + C(PD+16D) TO PD+16D
055561,000266: 11,2655 41345 DLOAD DMP
055562,000267: 11,2656 00001 0
055563,000268: 11,2657 00015 12D # -
055564,000269: 11,2660 61501 NORM ROUND
055565,000270: 11,2661 00037 30D
055566,000271: 11,2662 40665 BDDV DMP*
055567,000272: 11,2663 00003 2
055568,000273: 11,2664 50044 MUEARTH,2
055569,000274: 11,2665 74276 DCOMP VXSC
055570,000275: 11,2666 57124 XCHX,2 XAD,2
055571,000276: 11,2667 00050 S1
055572,000277: 11,2670 00051 S2
055573,000278: 11,2671 55064 XSU,2 XSU,2
055574,000279: 11,2672 00036 30D
055575,000280: 11,2673 00037 31D
055576,000281: 11,2674 77600 BOV # CLEAR OVIND
055577,000282: 11,2675 22676 +1
055578,000283: 11,2676 65057 VSR* XCHX,2
055579,000284: 11,2677 57177 0 -1,2
055580,000285: 11,2700 00050 S1
055581,000286: 11,2701 77655 VAD
055582,000287: 11,2702 02202 FV
055583,000288: 11,2703 02202 STORE FV
055584,000289: 11,2704 43400 BOV RVQ # RETURN IF NO OVERFLOW
055585,000290: 11,2705 22706 +1
055586,000291: 11,2706 54345 GOBAQUE DLOAD SR
055587,000292: 11,2707 02212 H
055588,000293: 11,2710 20612 9D
055589,000294: 11,2711 44206 PUSH BDSU
055590,000295: 11,2712 01551 TC
055591,000296: 11,2713 16312 STODL TAU.
055592,000297: 11,2714 01517 TET
055593,000298: 11,2715 45425 DSU STADR
055594,000299: 11,2716 42260 STCALL TET
055595,000300: 11,2717 22310 KEPPREP
055596,000301: 11,2720 77624 CALL
055597,000302: 11,2721 23344 RECTIFY
055598,000303: 11,2722 77614 SETGO
055599,000304: 11,2723 04020 RPQFLAG
055600,000305: 11,2724 27234 TESTLOOP
055601,000306:
|
|
Page 1305 |
055603,000308: # THE OBLATE ROUTINE COMPUTES THE ACCELERATION DUE TO OBLATENESS. IT USES THE UNIT OF THE VEHICLE
055604,000309: # POSITION VECTOR FOUND IN ALPHAV AND THE DISTANCE TO THE CENTER IN ALPHAM. THIS IS ADDED TO THE SUM OF THE
055605,000310: # DISTURBING ACCELERATIONS IN FV AND THE PROPER DIFEQ STAGE IS CALLED VIA X1.
055606,000311: 11,2725 71354 OBLATE LXA,2 DLOAD
055607,000312: 11,2726 02150 PBODY
055608,000313: 11,2727 02310 ALPHAM
055609,000314: 11,2730 44601 SETPD DSU*
055610,000315: 11,2731 00001 0
055611,000316: 11,2732 50012 RDE,2
055612,000317: 11,2733 43044 BPL BOF # GET URPV
055613,000318: 11,2734 23135 NBRANCH
055614,000319: 11,2735 00343 MOONFLAG
055615,000320: 11,2736 23144 COSPHIE
055616,000321: 11,2737 65375 VLOAD PDDL
055617,000322: 11,2740 02152 ALPHAV
055618,000323: 11,2741 01517 TET
055619,000324: 11,2742 45125 PDDL CALL
055620,000325: 11,2743 23671 3/5
055621,000326: 11,2744 55366 R-TO-RP
055622,000327: 11,2745 00017 STORE URPV
055623,000328: 11,2746 47375 VLOAD VXV
055624,000329: 11,2747 02012 504LM
055625,000330: 11,2750 11445 ZUNIT
055626,000331: 11,2751 61255 VAD VXM
055627,000332: 11,2752 11445 ZUNIT
055628,000333: 11,2753 00025 MMATRIX
055629,000334: 11,2754 77656 UNIT # POSSIBLY UNNECESSARY
055630,000335: 11,2755 00025 COMTERM STORE UZ
055631,000336: 11,2756 57345 DLOAD DMPR
055632,000337: 11,2757 00023 COSPHI/2
055633,000338: 11,2760 23703 3/32
055634,000339: 11,2761 63525 PDDL DSQ # P2/64 TO PD0
055635,000340: 11,2762 00023 COSPHI/2
055636,000341: 11,2763 45275 DMPR DSU
055637,000342: 11,2764 23705 15/16
055638,000343: 11,2765 23677 3/64
055639,000344: 11,2766 57206 PUSH DMPR # P3/32 TO PD2
055640,000345: 11,2767 00023 COSPHI/2
055641,000346: 11,2770 76405 DMP SL1R
055642,000347: 11,2771 23711 7/12
055643,000348: 11,2772 57325 PDDL DMPR
055644,000349: 11,2773 00001 0
055645,000350: 11,2774 23717 2/3
055646,000351: 11,2775 41421 BDSU PUSH # P4/128 TO PD4
055647,000352: 11,2776 57275 DMPR DMPR
055648,000353: 11,2777 00023 COSPHI/2 # BEGIN COMPUTING P5/1024
055649,000354: 11,3000 23713 9/16
055650,000355: 11,3001 57325 PDDL DMPR
055651,000356: 11,3002 00003 2
055652,000357: 11,3003 23715 5/128
|
|
Page 1306 |
055654,000359: 11,3004 77621 BDSU
055655,000360: 11,3005 77603 DMP*
055656,000361: 11,3006 50040 J4REQ/J3,2
055657,000362: 11,3007 43271 DDV DAD # -3
055658,000363: 11,3010 02310 ALPHAM # (((P5/256)B 2 /R+P4/32) /R+P3/8)ALPHAV
055659,000364: 11,3011 00005 4 # 4 3
055660,000365: 11,3012 56273 DMPR* DDV
055661,000366: 11,3013 50034 2J3RE/J2,2
055662,000367: 11,3014 02310 ALPHAM
055663,000368: 11,3015 74215 DAD VXSC
055664,000369: 11,3016 00003 2
055665,000370: 11,3017 02152 ALPHAV
055666,000371: 11,3020 14033 STODL TVEC
055667,000372: 11,3021 70403 DMP* SR1
055668,000373: 11,3022 50040 J4REQ/J3,2
055669,000374: 11,3023 43271 DDV DAD
055670,000375: 11,3024 02310 ALPHAM # -3
055671,000376: 11,3025 50473 DMPR* SR3
055672,000377: 11,3026 50034 2J3RE/J2,2 # 3 4
055673,000378: 11,3027 43271 DDV DAD
055674,000379: 11,3030 02310 ALPHAM
055675,000380: 11,3031 76561 VXSC VSL1
055676,000381: 11,3032 00025 UZ
055677,000382: 11,3033 77645 BVSU
055678,000383: 11,3034 00033 TVEC
055679,000384: 11,3035 14033 STODL TVEC
055680,000385: 11,3036 02310 ALPHAM
055681,000386: 11,3037 63501 NORM DSQ
055682,000387: 11,3040 00047 X1
055683,000388: 11,3041 60316 DSQ NORM
055684,000389: 11,3042 00051 S1 # 4
055685,000390: 11,3043 54606 PUSH BDDV* # NORMED R TO 0D
055686,000391: 11,3044 50030 J2REQSQ,2
055687,000392: 11,3045 77761 VXSC
055688,000393: 11,3046 00033 TVEC
055689,000394: 11,3047 00033 STORE TVEC
055690,000395: 11,3050 56070 XAD,1 XAD,1
055691,000396: 11,3051 00046 X1
055692,000397: 11,3052 00046 X1
055693,000398: 11,3053 43070 XAD,1 BOF
055694,000399: 11,3054 00050 S1
055695,000400: 11,3055 00343 MOONFLAG
055696,000401: 11,3056 23125 NBRANCH1
055697,000402: 11,3057 63545 DLOAD DSQ # 2
055698,000403: 11,3060 00017 URPV # X B-2 TO 2D
055699,000404: 11,3061 63525 PDDL DSQ
055700,000405: 11,3062 00021 URPV +2 # 2 2
055701,000406: 11,3063 65215 DAD PDDL # Y +X B-2 TO 2D
055702,000407: 11,3064 00003 2D
055703,000408: 11,3065 45352 SL1 DSU
|
|
Page 1307 |
055705,000410: 11,3066 00003 2D
055706,000411: 11,3067 41525 PDDL PUSH # X -Y B-2 TO 4D COSPHI 2 TO 6D
055707,000412: 11,3070 00023 COSPHI/2
055708,000413: 11,3071 65361 VXSC PDDL # 2COSPHI(UZ) B-3 TO 6D
055709,000414: 11,3072 00025 UZ
055710,000415: 11,3073 45316 DSQ DSU
055711,000416: 11,3074 23671 3/5 # 2 2 2
055712,000417: 11,3075 52405 DMP SL3 # (X -Y)((5COS (PHI)-3)UR 2COS(PHI)UZ)
055713,000418: 11,3076 27753 5/8
055714,000419: 11,3077 52361 VXSC VSU # B-3 TO 4D
055715,000420: 11,3100 02152 ALPHAV
055716,000421: 11,3101 72561 VXSC VSL2
055717,000422: 11,3102 77725 PDDL
055718,000423: 11,3103 00017 URPV
055719,000424: 11,3104 63205 DMP PDVL # XY B-2 TO 10D
055720,000425: 11,3105 00021 URPV +2
055721,000426: 11,3106 02152 ALPHAV
055722,000427: 11,3107 74235 VXV VXSC
055723,000428: 11,3110 00025 UZ
055724,000429: 11,3111 53332 VSL3 VAD # 4XY(UR X UZ) + D( 4D) B-3
055725,000430: 11,3112 77725 PDDL
055726,000431: 11,3113 41301 NORM DMP
055727,000432: 11,3114 00050 X2
055728,000433: 11,3115 00001 0D # 3J22R2MU/(X +Y )R
055729,000434: 11,3116 74265 BDDV VXSC
055730,000435: 11,3117 27751 3J22R2MU
055731,000436: 11,3120 53257 VSL* VAD
055732,000437: 11,3121 57605 0 -7,2
055733,000438: 11,3122 00033 TVEC
055734,000439: 11,3123 77754 LXA,2
055735,000440: 11,3124 02150 PBODY
055736,000441: 11,3125 77600 NBRANCH1 BOV
055737,000442: 11,3126 23127 +1
055738,000443: 11,3127 53257 VSL* VAD
055739,000444: 11,3130 20153 0 -22D,1
055740,000445: 11,3131 02202 FV
055741,000446: 11,3132 02202 STORE FV
055742,000447: 11,3133 77600 BOV
055743,000448: 11,3134 22706 GOBAQUE
055744,000449: 11,3135 72135 NBRANCH SLOAD LXA,1
055745,000450: 11,3136 01501 DIFEQCNT
055746,000451: 11,3137 00154 MPAC
055747,000452: 11,3140 73205 DMP CGOTO
055748,000453: 11,3141 27755 -1/12
055749,000454: 11,3142 00155 MPAC
055750,000455: 11,3143 23152 DIFEQTAB
055751,000456: 11,3144 77745 COSPHIE DLOAD
055752,000457: 11,3145 02156 ALPHAV +4
055753,000458: 11,3146 24023 STOVL COSPHI/2
055754,000459: 11,3147 11445 ZUNIT
|
|
Page 1308 |
055756,000461: 11,3150 77650 GOTO
055757,000462: 11,3151 22755 COMTERM
055758,000463: 11,3152 23371 DIFEQTAB CADR DIFEQ+0
055759,000464: 11,3153 23375 CADR DIFEQ+1
055760,000465: 11,3154 23406 CADR DIFEQ+2
055761,000466: 11,3155 77214 TIMESTEP BOF VLOAD
055762,000467: 11,3156 00342 MIDFLAG
055763,000468: 11,3157 23206 RECTEST
055764,000469: 11,3160 01535 RCV
055765,000470: 11,3161 41241 DOT DMP
055766,000471: 11,3162 01543 VCV
055767,000472: 11,3163 02314 DT/2 # (R.V) X (DELTA T)
055768,000473: 11,3164 77640 BMN
055769,000474: 11,3165 23206 RECTEST
055770,000475: 11,3166 43014 BON BOF
055771,000476: 11,3167 00303 MOONFLAG
055772,000477: 11,3170 23263 LUNSPH
055773,000478: 11,3171 04340 RPQFLAG
055774,000479: 11,3172 23260 EARSPH
055775,000480: 11,3173 45145 DLOAD CALL
055776,000481: 11,3174 01517 TET
055777,000482: 11,3175 54110 LSPOS # RPQV IN MPAC
055778,000483: 11,3176 02263 STORE RPQV # RPQV
055779,000484: 11,3177 77754 LXA,2
055780,000485: 11,3200 02150 PBODY
055781,000486: 11,3201 51445 INLUNCHK BVSU ABVAL
055782,000487: 11,3202 01535 RCV
055783,000488: 11,3203 50025 DSU BMN
055784,000489: 11,3204 27761 RSPHERE
055785,000490: 11,3205 23300 DOSWITCH
055786,000491: 11,3206 51575 RECTEST VLOAD ABVAL # RECTIFY IF
055787,000492: 11,3207 01521 TDELTAV
055788,000493: 11,3210 77600 BOV
055789,000494: 11,3211 23234 CALLRECT
055790,000495: 11,3212 51025 DSU BPL # 1) EITHER TDELTAV OR TNUV EQUALS OR
055791,000496: 11,3213 23707 3/4 # EXCEEDS 3/4 IN MAGNITUDE
055792,000497: 11,3214 23234 CALLRECT
055793,000498: 11,3215 53615 DAD SL* # OR
055794,000499: 11,3216 23707 3/4
055795,000500: 11,3217 57605 0 -7,2 # 2) ABVAL(TDELTAV) EQUALS OR EXCEEDS
055796,000501: 11,3220 45271 DDV DSU # .01(ABVAL(RCV))
055797,000502: 11,3221 00013 10D
055798,000503: 11,3222 27757 RECRATIO
055799,000504: 11,3223 77244 BPL VLOAD
055800,000505: 11,3224 23234 CALLRECT
055801,000506: 11,3225 01527 TNUV
055802,000507: 11,3226 45246 ABVAL DSU
055803,000508: 11,3227 23707 3/4
055804,000509: 11,3230 77600 BOV
055805,000510: 11,3231 23234 CALLRECT
|
|
Page 1309 |
055807,000512: 11,3232 77640 BMN
055808,000513: 11,3233 23236 INTGRATE
055809,000514: 11,3234 77624 CALLRECT CALL
055810,000515: 11,3235 23344 RECTIFY
055811,000516: 11,3236 77775 INTGRATE VLOAD
055812,000517: 11,3237 01527 TNUV
055813,000518: 11,3240 25120 STOVL ZV
055814,000519: 11,3241 01521 TDELTAV
055815,000520: 11,3242 01112 STORE YV
055816,000521: 11,3243 77614 CLEAR
055817,000522: 11,3244 00261 JSWITCH
055818,000523: 11,3245 66375 DIFEQ0 VLOAD SSP
055819,000524: 11,3246 01112 YV
055820,000525: 11,3247 01501 DIFEQCNT
055821,000526: 11,3250 00000 0
055822,000527: 11,3251 16152 STODL ALPHAV
055823,000528: 11,3252 11453 DPZERO
055824,000529: 11,3253 02212 STORE H # START H AT ZERO. GOES 0(DELT/2)DELT.
055825,000530: 11,3254 52014 BON GOTO
055826,000531: 11,3255 00301 JSWITCH
055827,000532: 11,3256 23610 DOW..
055828,000533: 11,3257 22430 ACCOMP
055829,000534: 11,3260 52175 EARSPH VLOAD GOTO
055830,000535: 11,3261 02263 RPQV
055831,000536: 11,3262 23201 INLUNCHK
055832,000537: 11,3263 60545 LUNSPH DLOAD SR2
055833,000538: 11,3264 00013 10D
055834,000539: 11,3265 50025 DSU BMN
055835,000540: 11,3266 27761 RSPHERE
055836,000541: 11,3267 23206 RECTEST
055837,000542: 11,3270 71214 BOF DLOAD
055838,000543: 11,3271 04340 RPQFLAG
055839,000544: 11,3272 23300 DOSWITCH
055840,000545: 11,3273 01517 TET
055841,000546: 11,3274 77624 CALL
055842,000547: 11,3275 54115 LUNPOS
055843,000548: 11,3276 77676 VCOMP
055844,000549: 11,3277 02263 STORE RPQV
055845,000550: 11,3300 77624 DOSWITCH CALL
055846,000551: 11,3301 23304 ORIGCHNG
055847,000552: 11,3302 77650 GOTO
055848,000553: 11,3303 23236 INTGRATE
055849,000554: 11,3304 45020 ORIGCHNG STQ CALL
055850,000555: 11,3305 02270 ORIGEX
055851,000556: 11,3306 23344 RECTIFY
055852,000557: 11,3307 53775 VLOAD VSL*
055853,000558: 11,3310 01535 RCV
055854,000559: 11,3311 57576 0,2
055855,000560: 11,3312 53651 VSU VSL*
055856,000561: 11,3313 02263 RPQV
|
|
Page 1310 |
055858,000563: 11,3314 57574 2,2
055859,000564: 11,3315 01503 STORE RRECT
055860,000565: 11,3316 15535 STODL RCV
055861,000566: 11,3317 01517 TET
055862,000567: 11,3320 77624 CALL
055863,000568: 11,3321 54120 LUNVEL
055864,000569: 11,3322 57414 BOF VCOMP
055865,000570: 11,3323 00343 MOONFLAG
055866,000571: 11,3324 23325 +1
055867,000572: 11,3325 53715 PDVL VSL*
055868,000573: 11,3326 01543 VCV
055869,000574: 11,3327 57576 0,2
055870,000575: 11,3330 77651 VSU
055871,000576: 11,3331 77657 VSL*
055872,000577: 11,3332 57574 0 +2,2
055873,000578: 11,3333 01511 STORE VRECT
055874,000579: 11,3334 01543 STORE VCV
055875,000580: 11,3335 67154 LXA,2 SXA,2
055876,000581: 11,3336 02270 ORIGEX
055877,000582: 11,3337 00052 QPRET
055878,000583: 11,3340 52014 BON GOTO
055879,000584: 11,3341 00303 MOONFLAG
055880,000585: 11,3342 26666 CLRMOON
055881,000586: 11,3343 26673 SETMOON
055882,000587:
|
|
Page 1311 |
055884,000589: # THE RECTIFY SUBROUTINE IS CALLED BY THE INTEGRATION PROGRAM AND OCCASIONALLY BY THE MEASUREMENT INCORPORATION
055885,000590: # ROUTINES TO ESTABLISH A NEW CONIC.
055886,000591:
055887,000592:
055888,000593: 11,3344 77354 RECTIFY LXA,2 VLOAD
055889,000594: 11,3345 02150 PBODY
055890,000595: 11,3346 01521 TDELTAV
055891,000596: 11,3347 53257 VSL* VAD
055892,000597: 11,3350 57605 0 -7,2
055893,000598: 11,3351 01535 RCV
055894,000599: 11,3352 01503 STORE RRECT
055895,000600: 11,3353 25535 STOVL RCV
055896,000601: 11,3354 01527 TNUV
055897,000602: 11,3355 53257 VSL* VAD
055898,000603: 11,3356 57602 0 -4,2
055899,000604: 11,3357 01543 VCV
055900,000605: 11,3360 01511 MINIRECT STORE VRECT
055901,000606: 11,3361 25543 STOVL VCV
055902,000607: 11,3362 11453 ZEROVEC
055903,000608: 11,3363 01521 STORE TDELTAV
055904,000609: 11,3364 15527 STODL TNUV
055905,000610: 11,3365 11453 ZEROVEC
055906,000611: 11,3366 01551 STORE TC
055907,000612: 11,3367 01553 STORE XKEP
055908,000613: 11,3370 77616 RVQ
055909,000614:
|
|
Page 1312 |
055911,000616: # THE THREE DIFEQ ROUTINES - DIFEQ+0, DIFEQ+12, AND DIFEQ+24 - ARE ENTEREDTO PROCESS THE CONTRIBUTIONS AT THE
055912,000617: # BEGINNING, MIDDLE, AND END OF THE TIMESTEP, RESPECTIVELY. THE UPDATING IS DONE BY THE NYSTROM METHOD.
055913,000618: 11,3371 64575 DIFEQ+0 VLOAD VSR3
055914,000619: 11,3372 02202 FV
055915,000620: 11,3373 36166 STCALL PHIV
055916,000621: 11,3374 23551 DIFEQCOM
055917,000622: 11,3375 74575 DIFEQ+1 VLOAD VSR1
055918,000623: 11,3376 02202 FV
055919,000624: 11,3377 53206 PUSH VAD
055920,000625: 11,3400 02166 PHIV
055921,000626: 11,3401 26174 STOVL PSIV
055922,000627: 11,3402 53362 VSR1 VAD
055923,000628: 11,3403 02166 PHIV
055924,000629: 11,3404 36166 STCALL PHIV
055925,000630: 11,3405 23551 DIFEQCOM
055926,000631: 11,3406 57345 DIFEQ+2 DLOAD DMPR
055927,000632: 11,3407 02212 H
055928,000633: 11,3410 23717 DP2/3
055929,000634: 11,3411 74206 PUSH VXSC
055930,000635: 11,3412 02166 PHIV
055931,000636: 11,3413 53372 VSL1 VAD
055932,000637: 11,3414 01120 ZV
055933,000638: 11,3415 53361 VXSC VAD
055934,000639: 11,3416 02212 H
055935,000640: 11,3417 01112 YV
055936,000641: 11,3420 25112 STOVL YV
055937,000642: 11,3421 02202 FV
055938,000643: 11,3422 53322 VSR3 VAD
055939,000644: 11,3423 02174 PSIV
055940,000645: 11,3424 76561 VXSC VSL1
055941,000646: 11,3425 77655 VAD
055942,000647: 11,3426 01120 ZV
055943,000648: 11,3427 01120 STORE ZV
055944,000649: 11,3430 45014 BOFF CALL
055945,000650: 11,3431 00341 JSWITCH
055946,000651: 11,3432 23502 ENDSTATE
055947,000652: 11,3433 56712 GRP2PC
055948,000653: 11,3434 77354 LXA,2 VLOAD
055949,000654: 11,3435 01102 COLREG
055950,000655: 11,3436 01120 ZV
055951,000656: 11,3437 77732 VSL3 # ADJUST W-POSITION FOR STORAGE
055952,000657: 11,3440 12467 STORE W +54D,2
055953,000658: 11,3441 77775 VLOAD
055954,000659: 11,3442 01112 YV
055955,000660: 11,3443 40132 VSL3 BOV
055956,000661: 11,3444 23574 WMATEND
055957,000662: 11,3445 12401 STORE W,2
055958,000663:
055959,000664: 11,3446 77624 CALL
055960,000665: 11,3447 56712 GRP2PC
|
|
Page 1313 |
055962,000667: 11,3450 66354 LXA,2 SSP
055963,000668: 11,3451 01102 COLREG
055964,000669: 11,3452 00052 S2
055965,000670: 11,3453 00000 0
055966,000671: 11,3454 67114 INCR,2 SXA,2
055967,000672: 11,3455 00006 6
055968,000673: 11,3456 01111 YV
055969,000674: 11,3457 45104 TIX,2 CALL
055970,000675: 11,3460 23545 RELOADSV
055971,000676: 11,3461 56712 GRP2PC
055972,000677: 11,3462 67154 LXA,2 SXA,2
055973,000678: 11,3463 01111 YV
055974,000679: 11,3464 01102 COLREG
055975,000680:
055976,000681: 11,3465 77624 NEXTCOL CALL
055977,000682: 11,3466 56712 GRP2PC
055978,000683: 11,3467 76754 LXA,2 VLOAD*
055979,000684: 11,3470 01102 COLREG
055980,000685: 11,3471 75376 W,2
055981,000686: 11,3472 77722 VSR3 # ADJUST W-POSITION FOR INTEGRATION
055982,000687: 11,3473 01112 STORE YV
055983,000688: 11,3474 76173 VLOAD* AXT,1
055984,000689: 11,3475 75310 W +54D,2
055985,000690: 11,3476 00000 0
055986,000691: 11,3477 77722 VSR3 # ADJUST W-VELOCITY FOR INTEGRATION
055987,000692: 11,3500 35120 STCALL ZV
055988,000693: 11,3501 23245 DIFEQ0
055989,000694:
055990,000695: 11,3502 77200 ENDSTATE BOV VLOAD
055991,000696: 11,3503 22706 GOBAQUE
055992,000697: 11,3504 01120 ZV
055993,000698: 11,3505 25527 STOVL TNUV
055994,000699: 11,3506 01112 YV
055995,000700: 11,3507 01521 STORE TDELTAV
055996,000701: 11,3510 43014 BON BOFF
055997,000702: 11,3511 04715 MIDAVFLG
055998,000703: 11,3512 27650 CKMID2 # CHECK FOR MID2 BEFORE GOING TO TIMEINC
055999,000704: 11,3513 01756 DIM0FLAG
056000,000705: 11,3514 27234 TESTLOOP
056001,000706: 11,3515 77776 EXIT
056002,000707: 11,3516 05301 TC PHASCHNG
056003,000708: 11,3517 04022 OCT 04022 # PHASE 1
056004,000709: 11,3520 05435 TC UPFLAG # PHASE CHANGE HAS OCCURRED BETWEEN
056005,000710: 11,3521 00236 ADRES REINTFLG # INTSTALL AND INTWAKE
056006,000711: 11,3522 06006 TC INTPRET
056007,000712: 11,3523 77731 SSP
056008,000713: 11,3524 00053 QPRET
056009,000714: 11,3525 23532 AMOVED
056010,000715: 11,3526 52014 BON GOTO
056011,000716: 11,3527 01714 VINTFLAG
|
|
Page 1314 |
056013,000718: 11,3530 26636 ATOPCSM
056014,000719: 11,3531 26711 ATOPLEM
056015,000720: 11,3532 66214 AMOVED SET SSP
056016,000721: 11,3533 00061 JSWITCH
056017,000722: 11,3534 01103 COLREG
056018,000723: 11,3535 77741 DEC -30 B-14
056019,000724: 11,3536 66214 BOFF SSP
056020,000725: 11,3537 01755 D6OR9FLG
056021,000726: 11,3540 23465 NEXTCOL
056022,000727: 11,3541 01103 COLREG
056023,000728: 11,3542 77717 DEC -48 B-14
056024,000729: 11,3543 77650 GOTO
056025,000730: 11,3544 23465 NEXTCOL
056026,000731:
056027,000732:
056028,000733: 11,3545 77745 RELOADSV DLOAD # RELOAD TEMPORARY STATE VECTOR
056029,000734: 11,3546 01101 TDEC # FROM PERMANENT IN CASE OF
056030,000735: 11,3547 34041 STCALL TDEC1
056031,000736: 11,3550 27120 INTEGRV2 # BY STARTING AT INTEGRV2.
056032,000737: 11,3551 43345 DIFEQCOM DLOAD DAD # INCREMENT H AND DIFEQCNT.
056033,000738: 11,3552 02314 DT/2
056034,000739: 11,3553 02212 H
056035,000740: 11,3554 66110 INCR,1 SXA,1
056036,000741: 11,3555 77763 DEC -12 B-14
056037,000742: 11,3556 01500 DIFEQCNT # DIFEQCNT SET FOR NEXT ENTRY.
056038,000743: 11,3557 02212 STORE H
056039,000744: 11,3560 74561 VXSC VSR1
056040,000745: 11,3561 02202 FV
056041,000746: 11,3562 74255 VAD VXSC
056042,000747: 11,3563 01120 ZV
056043,000748: 11,3564 02212 H
056044,000749: 11,3565 77655 VAD
056045,000750: 11,3566 01112 YV
056046,000751: 11,3567 02152 STORE ALPHAV
056047,000752: 11,3570 52014 BON GOTO
056048,000753: 11,3571 00301 JSWITCH
056049,000754: 11,3572 23610 DOW..
056050,000755: 11,3573 22410 FBR3
056051,000756:
056052,000757:
056053,000758: 11,3574 43014 WMATEND CLEAR CLEAR
056054,000759: 11,3575 01676 DIM0FLAG # DONT INTEGRATE W THIS TIME
056055,000760: 11,3576 01671 ORBWFLAG # INVALIDATE W
056056,000761: 11,3577 77614 CLEAR
056057,000762: 11,3600 02676 RENDWFLG
056058,000763: 11,3601 77414 SET EXIT
056059,000764: 11,3602 01472 STATEFLG # PICK UP STATE VECTOR UPDATE
056060,000765: 11,3603 05537 TC ALARM
056061,000766: 11,3604 00421 OCT 421
056062,000767: 11,3605 06006 TC INTPRET
|
|
Page 1315 |
056064,000769: 11,3606 77650 GOTO
056065,000770: 11,3607 27234 TESTLOOP # FINISH INTEGRATING STATE VECTOR
056066,000771:
|
|
Page 1316 |
056068,000773: # ORBITAL ROUTINE FOR EXTRAPOLATION OF THE W MATRIX. IT COMPUTES THE SECOND DERIVATIVE OF EACH COLUMN POSITION
056069,000774: # VECTOR OF THE MATRIX AND CALLS THE NYSTROM INTEGRATION ROUTINES TO SOLVETHE DIFFERENTIAL EQUATIONS. THE PROGRAM
056070,000775: # USES A TABLE OF VEHICLE POSITION VECTORS COMPUTED DURING THE INTEGRATION OF THE VEHICLES POSITION AND VELOCITY.
056071,000776: 11,3610 70754 DOW.. LXA,2 DLOAD*
056072,000777: 11,3611 02150 PBODY
056073,000778: 11,3612 50044 MUEARTH,2
056074,000779: 11,3613 36210 STCALL BETAM
056075,000780: 11,3614 23636 DOW..1
056076,000781: 11,3615 02202 STORE FV
056077,000782: 11,3616 62014 BOF INCR,1
056078,000783: 11,3617 00342 MIDFLAG
056079,000784: 11,3620 23135 NBRANCH
056080,000785: 11,3621 77771 DEC -6 B-14
056081,000786: 11,3622 70744 LXC,2 DLOAD*
056082,000787: 11,3623 02150 PBODY
056083,000788: 11,3624 50046 MUEARTH -2,2
056084,000789: 11,3625 36210 STCALL BETAM
056085,000790: 11,3626 23636 DOW..1
056086,000791: 11,3627 50414 BON VSR6
056087,000792: 11,3630 00303 MOONFLAG
056088,000793: 11,3631 23632 +1
056089,000794: 11,3632 77655 VAD
056090,000795: 11,3633 02202 FV
056091,000796: 11,3634 36202 STCALL FV
056092,000797: 11,3635 23135 NBRANCH
056093,000798: 11,3636 60575 DOW..1 VLOAD VSR4
056094,000799: 11,3637 02152 ALPHAV
056095,000800: 11,3640 53513 PDVL* UNIT
056096,000801: 11,3641 02217 VECTAB,1
056097,000802: 11,3642 46315 PDVL VPROJ
056098,000803: 11,3643 02152 ALPHAV
056099,000804: 11,3644 52361 VXSC VSU
056100,000805: 11,3645 23707 3/4
056101,000806: 11,3646 60325 PDDL NORM
056102,000807: 11,3647 00045 36D
056103,000808: 11,3650 00052 S2
056104,000809: 11,3651 63406 PUSH DSQ
056105,000810: 11,3652 77605 DMP
056106,000811: 11,3653 65301 NORM PDDL
056107,000812: 11,3654 00043 34D
056108,000813: 11,3655 02210 BETAM
056109,000814: 11,3656 56342 SR1 DDV
056110,000815: 11,3657 77761 VXSC
056111,000816: 11,3660 57154 LXA,2 XAD,2
056112,000817: 11,3661 00051 S2
056113,000818: 11,3662 00051 S2
056114,000819: 11,3663 57074 XAD,2 XAD,2
056115,000820: 11,3664 00051 S2
056116,000821: 11,3665 00042 34D
056117,000822: 11,3666 43457 VSL* RVQ
|
|
Page 1317 |
056119,000824: 11,3667 57606 0 -8D,2
056120,000825: 11,2000 SETLOC ORBITAL1
056121,000826: 11,2000 BANK
056122,000827:
056123,000828: 11,3670 04631 23146 3/5 2DEC .6 B-2
056124,000829: 11,3672 14000 00000 THREE/8 2DEC .375
056125,000830: 11,3674 02314 31463 .3D 2DEC .3 B-2
056126,000831: 11,3676 01400 00000 3/64 2DEC 3 B-6
056127,000832: 11,3700 10000 00000 DP1/4 2DEC .25
056128,000833: 11,3702 11,3700 DQUARTER EQUALS DP1/4
056129,000834: 11,3702 11,3700 POS1/4 EQUALS DP1/4
056130,000835: 11,3702 03000 00000 3/32 2DEC 3 B-5
056131,000836: 11,3704 36000 00000 15/16 2DEC 15. B -4
056132,000837: 11,3706 30000 00000 3/4 2DEC 3.0 B -2
056133,000838: 11,3710 22525 12525 7/12 2DEC .5833333333
056134,000839: 11,3712 22000 00000 9/16 2DEC 9 B -4
056135,000840: 11,3714 01200 00000 5/128 2DEC 5 B-7
056136,000841: 11,3716 04,3452 DPZERO EQUALS ZEROVEC
056137,000842: 11,3716 25252 25253 DP2/3 2DEC .6666666667
056138,000843: 11,3720 11,3716 2/3 EQUALS DP2/3
056139,000844: 11,3720 00027 OCT27 OCT 27
056140,000845: # LM504 IS TEMPORARY
056141,000846: 13,3712 BANK 13
056142,000847: 13,2000 SETLOC ORBITAL2
056143,000848: 13,2000 BANK
056144,000849: # IT IS VITAL THAT THE FOLLOWING CONSTANTS NOT BE SHUFFLED
056145,000850: 13,3712 77764 DEC -11 B-14
056146,000851: 13,3713 77775 DEC -2 B-14
056147,000852: 13,3714 77766 DEC -9 B-14
056148,000853: 13,3715 77771 DEC -6 B-14
056149,000854: 13,3716 77775 DEC -2 B-14
056150,000855: 13,3717 77775 DEC -2 B-14
056151,000856: 13,3720 00000 DEC 0 B-14
056152,000857: 13,3721 77763 DEC -12 B-14
056153,000858: 13,3722 77766 DEC -9 B-14
056154,000859: 13,3723 77773 DEC -4 B-14
056155,000860: 13,3724 77770 ASCALE DEC -7 B-14
056156,000861: 13,3725 77771 DEC -6 B-14
|
|
Page 1318 |
056158,000863: 13,3726 27446 14620 2DEC* 1.32715445 E16 B-54* # S
056159,000864: 13,3730 16471 01352 2DEC* 4.9027780 E8 B-30* # M
056160,000865: 13,3732 22437 16067 MUEARTH 2DEC* 3.986032 E10 B-36*
056161,000866: 13,3734 00000 00000 2DEC 0 B-28
056162,000867: 13,3736 02302 24736 J4REQ/J3 2DEC* .4991607391 E7 B-26*
056163,000868: 13,3740 00000 00000 2DEC 0 B-28
056164,000869: 13,3742 77776 53032 2J3RE/J2 2DEC* -.1355426363 E5 B-27*
056165,000870: 13,3744 10407 05344 2DEC* .3067493316 E18 B-60*
056166,000871: 13,3746 13710 35320 J2REQSQ 2DEC* 1.75501139 E21 B-72*
056167,000872: 13,3750 12160 12124 3J22R2MU 2DEC* 9.20479048 E16 B-58*
056168,000873: 13,3752 24000 00000 5/8 2DEC 5 B-3
056169,000874: 13,3754 74631 63145 -1/12 2DEC -.1
056170,000875: 13,3756 13,3730 MUM = MUEARTH -2
056171,000876: 13,3756 00243 32703 RECRATIO 2DEC .01
056172,000877: 13,3760 03654 21000 RSPHERE 2DEC 64373.76 E3 B-29
056173,000878: 13,3762 03654 21000 RDM 2DEC 16093.44 E3 B-27
056174,000879: 13,3764 04627 25200 RDE 2DEC 80467.20 E3 B-29
056175,000880: 13,3766 RATT EQUALS 00
056176,000881: 13,3766 VATT EQUALS 6D
056177,000882: 13,3766 TAT EQUALS 12D
056178,000883: 13,3766 RATT1 EQUALS 14D
056179,000884: 13,3766 VATT1 EQUALS 20D
056180,000885: 13,3766 MU(P) EQUALS 26D
056181,000886: 13,3766 TDEC1 EQUALS 32D
056182,000887: 13,3766 URPV EQUALS 14D
056183,000888: 13,3766 0022 COSPHI/2 EQUALS URPV +4
056184,000889: 13,3766 UZ EQUALS 20D
056185,000890: 13,3766 TVEC EQUALS 26D
End of include-file ORBITAL_INTEGRATION.agc. Parent file is MAIN.agc