Source Code
|
These source-code files are part of a reconstructed copy of Comanche 72, the
first release of the Apollo Guidance Computer (AGC) Command Module (CM) software
for Apollo 13.
They have been adapted from sources files created from a listing of Comanche 55.
These source files were updated to match binary dumps of a set of Comanche 67 rope modules.
They were then further modified by applying known changes between Comanche 67 and Comanche 72.
A binary dump of module B2 of Comanche 72, part number 2010802-021, was also used
to validate changes made to banks 05-13. The resulting code assembles to have identical
memory-bank checksums as those specified in NASA drawing 2021153G; this gives reasonably
high confidence that the changes that have been made are correct. In places where
ambiguity exists, this ambiguity is discussed in "## Reconstruction:" comments.
Since no contemporary listings of Comanche 72 are available as source material,
all comments and labels are approximate.
They have been taken from other AGC programs where possible, or, in some places, written
from scratch to match what we believe would have been in the original listing.
|
055806,000002: ## Copyright: Public domain.
055807,000003: ## Filename: ORBITAL_INTEGRATION.agc
055808,000004: ## Purpose: A section of Comanche revision 072.
055809,000005: ## It is part of the reconstructed source code for the first
055810,000006: ## release of the software for the Command Module's (CM) Apollo
055811,000007: ## Guidance Computer (AGC) for Apollo 13. No original listings
055812,000008: ## of this program are available; instead, this file was recreated
055813,000009: ## from a printout of Comanche 055, binary dumps of a set of
055814,000010: ## Comanche 067 rope modules, and changelogs between Comanche 067
055815,000011: ## and 072. It has been adapted such that the resulting bugger words
055816,000012: ## exactly match those specified for Comanche 072 in NASA drawing
055817,000013: ## 2021153G, which gives relatively high confidence that the
055818,000014: ## reconstruction is correct.
055819,000015: ## Assembler: yaYUL
055820,000016: ## Contact: Ron Burkey <info@sandroid.org>.
055821,000017: ## Website: www.ibiblio.org/apollo/index.html
055822,000018: ## Mod history: 2024-05-13 MAS Created from Comanche 067.
055823,000019:
055824,000020: # DELETE
055825,000021: 13,3720 BANK 13
055826,000022: 11,2000 SETLOC ORBITAL
055827,000023: 11,2000 BANK
055828,000024: 11,2321 COUNT 11/ORBIT
055829,000025:
055830,000026: # DELETE
055831,000027: 11,2321 40354 KEPPREP LXA,2 SETPD
055832,000028: 11,2322 02150 PBODY
055833,000029: 11,2323 00001 0
055834,000030: 11,2324 75543 DLOAD* SQRT # SQRT(MU) (+18 OR +15) 0D PL 2D
055835,000031: 11,2325 50036 MUEARTH,2
055836,000032: 11,2326 53515 PDVL UNIT # PL 8D
055837,000033: 11,2327 01535 RCV
055838,000034: 11,2330 60325 PDDL NORM # NORM R (+29 OR +27 - N1) 2D PL 4D
055839,000035: 11,2331 00045 36D
055840,000036: 11,2332 00047 X1
055841,000037: 11,2333 77715 PDVL
055842,000038: 11,2334 65241 DOT PDDL # F*SQRT(MU) (+7 OR +5) 4D PL 6D
055843,000039: 11,2335 01543 VCV
055844,000040: 11,2336 02312 TAU. # (+28)
055845,000041: 11,2337 60225 DSU NORM
055846,000042: 11,2340 01551 TC
055847,000043: 11,2341 00051 S1
055848,000044: 11,2342 77742 SR1
055849,000045: 11,2343 65271 DDV PDDL
055850,000046: 11,2344 00003 2D
055851,000047: 11,2345 41405 DMP PUSH # FS (+6 +N1-N2) 6D PL 8D
055852,000048: 11,2346 00005 4D
055853,000049: 11,2347 65316 DSQ PDDL # (FS)SQ (+12 +2(N1-N2)) 8D PL 10D
055854,000050: 11,2350 00005 4D
055855,000051: 11,2351 64716 DSQ PDDL* # SSQ/MU (-2 OR +2(N1-N2)) 10D PL 12D
055856,000052: 11,2352 50036 MUEARTH,2
055857,000053: 11,2353 40442 SR3 SR4
055858,000054: 11,2354 47515 PDVL VSQ # PREALIGN MU (+43 OR +37) 12D PL 14D
055859,000055: 11,2355 01543 VCV
055860,000056: 11,2356 44205 DMP BDSU # PL 12D
055861,000057: 11,2357 00045 36D
055862,000058: 11,2360 41271 DDV DMP # PL 10D
055863,000059: 11,2361 00003 2D # -(1/R-ALPHA) (+12 +3N1-2N2)
055864,000060: 11,2362 53605 DMP SL*
055865,000061: 11,2363 23756 DP2/3
055866,000062: 11,2364 20176 0 -3,1 # 10L(1/R-ALPHA) (+13 +2(N1-N2))
055867,000063: 11,2365 43260 XSU,1 DAD # 2(FS)SQ - ETCETRA PL 8D
055868,000064: 11,2366 00050 S1 # X1 = N2-N1
055869,000065: 11,2367 45257 SL* DSU # -FS+2(FS)SQ ETC (+6 +N1-N2) PL 6D
055870,000066: 11,2370 20211 8D,1
055871,000067: 11,2371 41205 DMP DMP
055872,000068: 11,2372 00001 0D
055873,000069: 11,2373 00005 4D
055874,000070: 11,2374 53657 SL* SL*
055875,000071: 11,2375 20211 8D,1
055876,000072: 11,2376 20201 0,1 # S(-FS(1-2FS)-1/6...) (+17 OR +16)
055877,000073: 11,2377 65215 DAD PDDL # PL 6D
055878,000074: 11,2400 01553 XKEP
055879,000075: 11,2401 53605 DMP SL* # S(+17 OR +16)
055880,000076: 11,2402 00001 0D
055881,000077: 11,2403 20202 1,1
055882,000078: 11,2404 43204 BOVB DAD
055883,000079: 11,2405 57353 TCDANZIG
055884,000080: 11,2406 77626 STADR
055885,000081: 11,2407 75471 STORE XKEPNEW
055886,000082: 11,2410 74020 STQ AXC,1
055887,000083: 11,2411 02270 KEPRTN
055888,000084: 11,2412 00012 DEC 10 B-14
055889,000085: 11,2413 74014 BON AXC,1
055890,000086: 11,2414 00303 MOONFLAG
055891,000087: 11,2415 24042 KEPLERN
055892,000088: 11,2416 00002 DEC 2 B-14
055893,000089: 11,2417 77650 GOTO
055894,000090: 11,2420 24042 KEPLERN
055895,000091:
055896,000092: 11,2421 66350 FBR3 LXA,1 SSP
055897,000093: 11,2422 01500 DIFEQCNT
055898,000094: 11,2423 00051 S1
055899,000095: 11,2424 77762 DEC -13 B-14
055900,000096: 11,2425 54345 DLOAD SR
055901,000097: 11,2426 02314 DT/2
055902,000098: 11,2427 20612 9D
055903,000099: 11,2430 61500 TIX,1 ROUND
055904,000100: 11,2431 22432 +1
055905,000101: 11,2432 43206 PUSH DAD
055906,000102: 11,2433 01551 TC
055907,000103: 11,2434 16312 STODL TAU.
055908,000104: 11,2435 77615 DAD
055909,000105: 11,2436 01517 TET
055910,000106: 11,2437 35517 STCALL TET
055911,000107: 11,2440 22321 KEPPREP
055912,000108:
055913,000109: # AGC ROUTINE TO COMPUTE ACCELERATION COMPONENTS.
055914,000110:
055915,000111: 11,2441 73150 ACCOMP LXA,1 LXA,2
055916,000112: 11,2442 02150 PBODY
055917,000113: 11,2443 02150 PBODY
055918,000114: 11,2444 77775 VLOAD
055919,000115: 11,2445 11566 ZEROVEC
055920,000116: 11,2446 26202 STOVL FV
055921,000117: 11,2447 02152 ALPHAV
055922,000118: 11,2450 53257 VSL* VAD
055923,000119: 11,2451 57605 0 -7,2
055924,000120: 11,2452 01535 RCV
055925,000121: 11,2453 02160 STORE BETAV
055926,000122: 11,2454 65014 BOF XCHX,2
055927,000123: 11,2455 01756 DIM0FLAG
055928,000124: 11,2456 22463 +5
055929,000125: 11,2457 01500 DIFEQCNT
055930,000126: 11,2460 12217 STORE VECTAB,2
055931,000127: 11,2461 77724 XCHX,2
055932,000128: 11,2462 01500 DIFEQCNT
055933,000129: 11,2463 53575 VLOAD UNIT
055934,000130: 11,2464 02152 ALPHAV
055935,000131: 11,2465 16152 STODL ALPHAV
055936,000132: 11,2466 00045 36D
055937,000133: 11,2467 02310 STORE ALPHAM
055938,000134: 11,2470 77624 CALL
055939,000135: 11,2471 22565 GAMCOMP
055940,000136: 11,2472 66175 VLOAD SXA,1
055941,000137: 11,2473 02160 BETAV
055942,000138: 11,2474 00051 S2
055943,000139: 11,2475 16152 STODL ALPHAV
055944,000140: 11,2476 02210 BETAM
055945,000141: 11,2477 02310 STORE ALPHAM
055946,000142: 11,2500 71214 BOF DLOAD
055947,000143: 11,2501 00342 MIDFLAG
055948,000144: 11,2502 22737 OBLATE
055949,000145: 11,2503 01517 TET
055950,000146: 11,2504 77624 CALL
055951,000147: 11,2505 54110 LSPOS
055952,000148: 11,2506 72174 AXT,2 LXA,1
055953,000149: 11,2507 00002 2
055954,000150: 11,2510 00051 S2
055955,000151: 11,2511 77614 BOF
055956,000152: 11,2512 00343 MOONFLAG
055957,000153: 11,2513 22516 +3
055958,000154: 11,2514 77076 VCOMP AXT,2
055959,000155: 11,2515 00000 0
055960,000156: 11,2516 02160 STORE BETAV
055961,000157: 11,2517 26263 STOVL RPQV
055962,000158: 11,2520 00003 2D
055963,000159: 11,2521 02300 STORE RPSV
055964,000160: 11,2522 77214 BOF VLOAD
055965,000161: 11,2523 01756 DIM0FLAG
055966,000162: 11,2524 22537 GETRPSV
055967,000163: 11,2525 02152 ALPHAV
055968,000164: 11,2526 53761 VXSC VSR*
055969,000165: 11,2527 02310 ALPHAM
055970,000166: 11,2530 57175 1,2
055971,000167: 11,2531 65051 VSU XCHX,2
055972,000168: 11,2532 02160 BETAV
055973,000169: 11,2533 01500 DIFEQCNT
055974,000170: 11,2534 12225 STORE VECTAB +6,2
055975,000171: 11,2535 77724 XCHX,2
055976,000172: 11,2536 01500 DIFEQCNT
055977,000173: 11,2537 62175 GETRPSV VLOAD INCR,1
055978,000174: 11,2540 02263 RPQV
055979,000175: 11,2541 00004 4
055980,000176: 11,2542 43014 CLEAR BOF
055981,000177: 11,2543 04260 RPQFLAG
055982,000178: 11,2544 00343 MOONFLAG
055983,000179: 11,2545 22552 +5
055984,000180: 11,2546 53261 VSR VAD
055985,000181: 11,2547 20612 9D
055986,000182: 11,2550 02300 RPSV
055987,000183: 11,2551 02300 STORE RPSV
055988,000184: 11,2552 77624 CALL
055989,000185: 11,2553 22565 GAMCOMP
055990,000186: 11,2554 62174 AXT,2 INCR,1
055991,000187: 11,2555 00004 4
055992,000188: 11,2556 00004 4
055993,000189: 11,2557 77775 VLOAD
055994,000190: 11,2560 02300 RPSV
055995,000191: 11,2561 36160 STCALL BETAV
055996,000192: 11,2562 22565 GAMCOMP
055997,000193: 11,2563 77650 GOTO
055998,000194: 11,2564 22737 OBLATE
055999,000195: 11,2565 74575 GAMCOMP VLOAD VSR1
056000,000196: 11,2566 02160 BETAV
056001,000197: 11,2567 40236 VSQ SETPD
056002,000198: 11,2570 00001 0
056003,000199: 11,2571 61501 NORM ROUND
056004,000200: 11,2572 00040 31D
056005,000201: 11,2573 60325 PDDL NORM # NORMED B SQUARED TO PD LIST
056006,000202: 11,2574 02310 ALPHAM # NORMALIZE (LESS ONE) LENGTH OF ALPHA
056007,000203: 11,2575 00041 32D # SAVING NORM SCALE FACTOR IN X1
056008,000204: 11,2576 63342 SR1 PDVL
056009,000205: 11,2577 02160 BETAV # C(PDL+2) = ALMOST NORMED ALPHA
056010,000206: 11,2600 77656 UNIT
056011,000207: 11,2601 16160 STODL BETAV
056012,000208: 11,2602 00045 36D
056013,000209: 11,2603 02210 STORE BETAM
056014,000210: 11,2604 55301 NORM BDDV # FORM NORMALIZED QUOTIENT ALPHAM/BETAM
056015,000211: 11,2605 00042 33D
056016,000212: 11,2606 41562 SR1R PUSH # C(PDL+2) = ALMOST NORMALIZED RHO.
056017,000213: 11,2607 77743 DLOAD*
056018,000214: 11,2610 27733 ASCALE,1
056019,000215: 11,2611 00051 STORE S1
056020,000216: 11,2612 57124 XCHX,2 XAD,2
056021,000217: 11,2613 00050 S1
056022,000218: 11,2614 00040 32D
056023,000219: 11,2615 71264 XSU,2 DLOAD
056024,000220: 11,2616 00041 33D
056025,000221: 11,2617 00003 2D
056026,000222: 11,2620 65057 SR* XCHX,2
056027,000223: 11,2621 57177 0 -1,2
056028,000224: 11,2622 00050 S1
056029,000225: 11,2623 74406 PUSH SR1R # RHO/4 TO 4D
056030,000226: 11,2624 50315 PDVL DOT
056031,000227: 11,2625 02152 ALPHAV
056032,000228: 11,2626 02160 BETAV
056033,000229: 11,2627 44372 SL1R BDSU # (RHO/4) - 2(ALPHAV/2.BETAV/2)
056034,000230: 11,2630 57206 PUSH DMPR # TO PDL+6
056035,000231: 11,2631 00005 4
056036,000232: 11,2632 77752 SL1
056037,000233: 11,2633 43206 PUSH DAD
056038,000234: 11,2634 23740 DQUARTER
056039,000235: 11,2635 75406 PUSH SQRT
056040,000236: 11,2636 41475 DMPR PUSH
056041,000237: 11,2637 00013 10D
056042,000238: 11,2640 43352 SL1 DAD
056043,000239: 11,2641 23740 DQUARTER
056044,000240: 11,2642 43325 PDDL DAD # (1/4)+2((Q+1)/4) TO PD+14D
056045,000241: 11,2643 00013 10D
056046,000242: 11,2644 11564 HALFDP
056047,000243: 11,2645 72475 DMPR SL1
056048,000244: 11,2646 00011 8D
056049,000245: 11,2647 56215 DAD DDV
056050,000246: 11,2650 23732 THREE/8
056051,000247: 11,2651 00017 14D
056052,000248: 11,2652 74275 DMPR VXSC
056053,000249: 11,2653 00007 6
056054,000250: 11,2654 02160 BETAV # -
056055,000251: 11,2655 64515 PDVL VSR3 # (G/2)(C(PD+4))B/2 TO PD+16D
056056,000252: 11,2656 02152 ALPHAV
056057,000253: 11,2657 41455 VAD PUSH # A12 + C(PD+16D) TO PD+16D
056058,000254: 11,2660 41345 DLOAD DMP
056059,000255: 11,2661 00001 0
056060,000256: 11,2662 00015 12D # -
056061,000257: 11,2663 61501 NORM ROUND
056062,000258: 11,2664 00037 30D
056063,000259: 11,2665 40665 BDDV DMP*
056064,000260: 11,2666 00003 2
056065,000261: 11,2667 50036 MUEARTH,2
056066,000262: 11,2670 74276 DCOMP VXSC
056067,000263: 11,2671 57124 XCHX,2 XAD,2
056068,000264: 11,2672 00050 S1
056069,000265: 11,2673 00051 S2
056070,000266: 11,2674 55064 XSU,2 XSU,2
056071,000267: 11,2675 00036 30D
056072,000268: 11,2676 00037 31D
056073,000269: 11,2677 77600 BOV # CLEAR OVIND
056074,000270: 11,2700 22701 +1
056075,000271: 11,2701 65057 VSR* XCHX,2
056076,000272: 11,2702 57177 0 -1,2
056077,000273: 11,2703 00050 S1
056078,000274: 11,2704 77655 VAD
056079,000275: 11,2705 02202 FV
056080,000276: 11,2706 02202 STORE FV
056081,000277: 11,2707 43400 BOV RVQ # RETURN IF NO OVERFLOW
056082,000278: 11,2710 22711 +1
056083,000279: 11,2711 51575 GOBAQUE VLOAD ABVAL
056084,000280: 11,2712 01521 TDELTAV
056085,000281: 11,2713 77654 BZE
056086,000282: 11,2714 22734 INT-ABRT
056087,000283: 11,2715 54345 DLOAD SR
056088,000284: 11,2716 02212 H
056089,000285: 11,2717 20612 9D
056090,000286: 11,2720 44206 PUSH BDSU
056091,000287: 11,2721 01551 TC
056092,000288: 11,2722 16312 STODL TAU.
056093,000289: 11,2723 01517 TET
056094,000290: 11,2724 45425 DSU STADR
056095,000291: 11,2725 42260 STCALL TET
056096,000292: 11,2726 22321 KEPPREP
056097,000293: 11,2727 77624 CALL
056098,000294: 11,2730 23403 RECTIFY
056099,000295: 11,2731 77614 SETGO
056100,000296: 11,2732 04020 RPQFLAG
056101,000297: 11,2733 27314 TESTLOOP
056102,000298:
056103,000299: 11,2734 77776 INT-ABRT EXIT
056104,000300: 11,2735 05725 TC POODOO
056105,000301: 11,2736 20430 OCT 20430 # SUB-SURFACE STATE VECTOR
056106,000302:
056107,000303: # THE OBLATE ROUTINE COMPUTES THE ACCELERATION DUE TO OBLATENESS. IT USES THE UNIT OF THE VEHICLE
056108,000304: # POSITION VECTOR FOUND IN ALPHAV AND THE DISTANCE TO THE CENTER IN ALPHAM. THIS IS ADDED TO THE SUM OF THE
056109,000305: # DISTURBING ACCELERATIONS IN FV AND THE PROPER DIFEQ STAGE IS CALLED VIA X1.
056110,000306:
056111,000307: 11,2737 71354 OBLATE LXA,2 DLOAD
056112,000308: 11,2740 02150 PBODY
056113,000309: 11,2741 02310 ALPHAM
056114,000310: 11,2742 44601 SETPD DSU*
056115,000311: 11,2743 00001 0
056116,000312: 11,2744 50006 RDE,2
056117,000313: 11,2745 43044 BPL BOF # GET URPV
056118,000314: 11,2746 23175 NBRANCH
056119,000315: 11,2747 00343 MOONFLAG
056120,000316: 11,2750 23204 COSPHIE
056121,000317: 11,2751 65375 VLOAD PDDL
056122,000318: 11,2752 02152 ALPHAV
056123,000319: 11,2753 01517 TET
056124,000320: 11,2754 45125 PDDL CALL
056125,000321: 11,2755 23730 3/5
056126,000322: 11,2756 55370 R-TO-RP
056127,000323: 11,2757 24017 STOVL URPV # RP/R B-1 IN PLANETARY COORDINATES
056128,000324: 11,2760 11560 ZUNIT
056129,000325: 11,2761 45006 PUSH CALL # ZUNIT B-1 IN PLANETARY COORDL AT 00D
056130,000326: 11,2762 23212 MATRIX
056131,000327: 11,2763 77715 PDVL # UZ B-2 IN INERT COORD AT 00D
056132,000328: 11,2764 11564 XUNIT
056133,000329: 11,2765 45006 PUSH CALL # XUNIT B-1 IN PLANETARY COORD. AT 06D
056134,000330: 11,2766 23212 MATRIX
056135,000331: 11,2767 77772 VSL1
056136,000332: 11,2770 24041 STOVL 32D # UX B-1 IN INERT. COORD AT 32D
056137,000333: 11,2771 77772 VSL1
056138,000334: 11,2772 14025 COMTERM STODL UZ # UZ B-1 IN INERTIAL COORD AT 20D
056139,000335: 11,2773 00023 COSPHI/2 # ' Z-COMPONENT OF URPV
056140,000336: 11,2774 65275 DMPR PDDL # P B-6 , 3COSPHI/64 AT 00D
056141,000337: 11,2775 23742 3/32 # 2
056142,000338: 11,2776 00023 COSPHI/2
056143,000339: 11,2777 57316 DSQ DMPR
056144,000340: 11,3000 23744 15/16 # ' 2
056145,000341: 11,3001 41425 DSU PUSH # P B-5 ,(1/2)(15COSPHI -3) AT 02D
056146,000342: 11,3002 23736 3/64 # 3
056147,000343: 11,3003 41275 DMPR DMP
056148,000344: 11,3004 00023 COSPHI/2
056149,000345: 11,3005 23750 7/12
056150,000346: 11,3006 65372 SL1R PDDL
056151,000347: 11,3007 00001 0D
056152,000348: 11,3010 44275 DMPR BDSU
056153,000349: 11,3011 23756 2/3 # ' ' '
056154,000350: 11,3012 57206 PUSH DMPR # P B-7 ,(1/3)(7COSPHI P -4P ) AT 04D
056155,000351: 11,3013 00023 COSPHI/2 # 4 3 2
056156,000352: 11,3014 65275 DMPR PDDL
056157,000353: 11,3015 23752 9/16
056158,000354: 11,3016 00003 2D # ' ' '
056159,000355: 11,3017 44275 DMPR BDSU # P B-10 ,(1/4)(9COSPHI P -5P )
056160,000356: 11,3020 23754 5/128 # 5 4 3
056161,000357: 11,3021 56203 DMP* DDV # '
056162,000358: 11,3022 50032 J4REQ/J3,2 # B- ,(J RP/J R)P
056163,000359: 11,3023 02310 ALPHAM
056164,000360: 11,3024 56615 DAD DMPR*
056165,000361: 11,3025 00005 4D # 2 2 ' '
056166,000362: 11,3026 50026 2J3RE/J2,2 # B ,(2J RP /J2 R )P +(2J RP/J2R)P
056167,000363: 11,3027 43271 DDV DAD # 4 5 3 4
056168,000364: 11,3030 02310 ALPHAM # - 2 ' 2 ' '
056169,000365: 11,3031 00003 2D # (R/R)(J RP P /R + 2J RP P / + J P )
056170,000366: 11,3032 77761 VXSC # 4 5 3 4 2 2 3
056171,000367: 11,3033 02152 ALPHAV # 4 2 ' -
056172,000368: 11,3034 14033 STODL TVEC # B-6,(SUM((J /R )P (COSPHI))UR)
056173,000369: 11,3035 70403 DMP* SR1 # I=2 I I+1
056174,000370: 11,3036 50032 J4REQ/J3,2 # '
056175,000371: 11,3037 43271 DDV DAD # (J RP/J R)P
056176,000372: 11,3040 02310 ALPHAM # 4 3 4
056177,000373: 11,3041 50473 DMPR* SR3 # 2 2 ' '
056178,000374: 11,3042 50026 2J3RE/J2,2 # (2J RP /J R )P +(2J RP/J R)P
056179,000375: 11,3043 43271 DDV DAD # 4 2 4 3 2 3
056180,000376: 11,3044 02310 ALPHAM
056181,000377: 11,3045 76561 VXSC VSL1 # 4 ' -
056182,000378: 11,3046 00025 UZ # B-6 SUM(P(COSPHI))UZ
056183,000379: 11,3047 77645 BVSU # I=2 I
056184,000380: 11,3050 00033 TVEC # 4 I-2 ' -
056185,000381: 11,3051 14033 STODL TVEC # SUM((MU J (RP/R) )(P (COSPHI)UR -
056186,000382: 11,3052 02310 ALPHAM # I=2 I I+2
056187,000383: 11,3053 63501 NORM DSQ # P (COSPHI)UZ)) B-6 AT 20D
056188,000384: 11,3054 00047 X1 # I
056189,000385: 11,3055 60316 DSQ NORM
056190,000386: 11,3056 00051 S1 # 4
056191,000387: 11,3057 54606 PUSH BDDV* # NORMED R TO 0D
056192,000388: 11,3060 50022 J2REQSQ,2
056193,000389: 11,3061 40161 VXSC BOV
056194,000390: 11,3062 00033 TVEC
056195,000391: 11,3063 23064 +1 # (RESET OVERFLOW INDICATOR)
056196,000392: 11,3064 56070 XAD,1 XAD,1
056197,000393: 11,3065 00046 X1
056198,000394: 11,3066 00046 X1
056199,000395: 11,3067 53670 XAD,1 VSL*
056200,000396: 11,3070 00050 S1
056201,000397: 11,3071 20153 0 -22D,1
056202,000398: 11,3072 40055 VAD BOV
056203,000399: 11,3073 02202 FV
056204,000400: 11,3074 22711 GOBAQUE
056205,000401: 11,3075 16202 STODL FV # B+16 FOR EARTH , B+20 FOR MOON
056206,000402: 11,3076 00017 URPV # B-1 X-COMPONENT OF POSITION IN
056207,000403: 11,3077 41414 BOF PUSH # PLANETORY COORD. AT 02D
056208,000404: 11,3100 00343 MOONFLAG
056209,000405: 11,3101 23175 NBRANCH # 2
056210,000406: 11,3102 65316 DSQ PDDL # B-2 X AT 04D
056211,000407: 11,3103 00021 URPV +2 # B-1 Y-COMPONENT
056212,000408: 11,3104 45316 DSQ DSU
056213,000409: 11,3105 74205 DMP VXSC
056214,000410: 11,3106 27757 5/8 # 2 2 -
056215,000411: 11,3107 02152 ALPHAV # B-6 5(Y -X )UR 2 2 -
056216,000412: 11,3110 65332 VSL3 PDDL # B-3 5(Y -X )UR AT 02D
056217,000413: 11,3111 53361 VXSC VAD
056218,000414: 11,3112 00041 32D # 2 2 - 2 -
056219,000415: 11,3113 47315 PDVL VXV # (5(Y.-X )UR/R ) +(2X/R)UX AT 02D
056220,000416: 11,3114 00041 32D # B-1 UX
056221,000417: 11,3115 00025 UZ # B-2 -UY =(UX * UZ)
056222,000418: 11,3116 74372 VSL1 VXSC # B-3 -(2Y/R)UY
056223,000419: 11,3117 00021 URPV +2 # 2 2 - 2 -
056224,000420: 11,3120 41455 VAD PUSH # B-3 (5(X -Y )UR/R )+(2X/R)UX -(
056225,000421: 11,3121 77745 DLOAD # -
056226,000422: 11,3122 00023 COSPHI/2 # 2Y/R)UY AT 02D
056227,000423: 11,3123 41516 DSQ PUSH # B-2 (Z.COMPONENT) AT 08D
056228,000424: 11,3124 65205 DMP PDDL # 2
056229,000425: 11,3125 27757 5/8 # B-5 5COSPHI/2 AT 08D
056230,000426: 11,3126 43302 SR2 DAD
056231,000427: 11,3127 00011 08D
056232,000428: 11,3130 41221 BDSU DMP # 2
056233,000429: 11,3131 11616 D1/32 # B-5 (1 - 7COSPHI )
056234,000430: 11,3132 00017 URPV
056235,000431: 11,3133 74205 DMP VXSC
056236,000432: 11,3134 27757 5/8
056237,000433: 11,3135 02152 ALPHAV # 2 -
056238,000434: 11,3136 65272 VSL5 PDDL # B-5 (5X/R)(1-7COSPHI )UR AT 08D
056239,000435: 11,3137 74225 DSU VXSC
056240,000436: 11,3140 11616 D1/32
056241,000437: 11,3141 00041 32D
056242,000438: 11,3142 53372 VSL1 VAD # 2 - -
056243,000439: 11,3143 41325 PDDL DMP # B-5 (5X/R)(1-7COSPHI )UR +(5COSPHI
056244,000440: 11,3144 00017 URPV # -
056245,000441: 11,3145 00023 URPV +4 # -1)UX AT 08D
056246,000442: 11,3146 74205 DMP VXSC
056247,000443: 11,3147 27757 5/8 # B-5 5X Y
056248,000444: 11,3150 00025 UZ # M M
056249,000445: 11,3151 53352 VSL2 VAD # 2 - 2
056250,000446: 11,3152 60325 PDDL NORM # B-5 (5X/R)(1-7COSPHI )UR +(5COSPHI
056251,000447: 11,3153 02310 ALPHAM # - 2 -
056252,000448: 11,3154 00050 X2 # -1)UX +(10XZ/R )UZ AT 08D
056253,000449: 11,3155 67206 PUSH SLOAD
056254,000450: 11,3156 02000 E32C31RM
056255,000451: 11,3157 74271 DDV VXSC
056256,000452: 11,3160 63257 VSL* PDVL
056257,000453: 11,3161 57601 0 -3,2
056258,000454: 11,3162 67206 PUSH SLOAD
056259,000455: 11,3163 01777 E3J22R2M
056260,000456: 11,3164 53361 VXSC VAD
056261,000457: 11,3165 70257 VSL* V/SC
056262,000458: 11,3166 20146 0 -27D,1 # B+16 OR B+20 (J + C )
056263,000459: 11,3167 40055 VAD BOV # 22 31
056264,000460: 11,3170 02202 FV
056265,000461: 11,3171 22711 GOBAQUE
056266,000462: 11,3172 02202 STORE FV
056267,000463: 11,3173 77754 LXA,2
056268,000464: 11,3174 02150 PBODY
056269,000465: 11,3175 72135 NBRANCH SLOAD LXA,1
056270,000466: 11,3176 01501 DIFEQCNT
056271,000467: 11,3177 00154 MPAC
056272,000468: 11,3200 73205 DMP CGOTO
056273,000469: 11,3201 27761 -1/12
056274,000470: 11,3202 00155 MPAC
056275,000471: 11,3203 23217 DIFEQTAB
056276,000472: 11,3204 77745 COSPHIE DLOAD
056277,000473: 11,3205 02156 ALPHAV +4
056278,000474: 11,3206 24023 STOVL COSPHI/2
056279,000475: 11,3207 11560 ZUNIT
056280,000476: 11,3210 77650 GOTO
056281,000477: 11,3211 22772 COMTERM
056282,000478: 11,3212 57435 MATRIX VXV VCOMP
056283,000479: 11,3213 02012 504LM # ROUTINE TRANSLATES FROM PLANETARY
056284,000480: 11,3214 77655 VAD # TO INERTIAL COORDINATES
056285,000481: 11,3215 43505 VXM RVQ
056286,000482: 11,3216 00025 MMATRIX
056287,000483: 11,3217 23430 DIFEQTAB CADR DIFEQ+0
056288,000484: 11,3220 23434 CADR DIFEQ+1
056289,000485: 11,3221 23445 CADR DIFEQ+2
056290,000486:
056291,000487: 11,3222 45014 TIMESTEP BOF CALL
056292,000488: 11,3223 00342 MIDFLAG
056293,000489: 11,3224 23230 RECTEST # SKIP ORIGIN CHANGE LOGIC
056294,000490: 11,3225 23302 CHKSWTCH
056295,000491: 11,3226 77640 BMN
056296,000492: 11,3227 23337 DOSWITCH
056297,000493:
056298,000494: 11,3230 51575 RECTEST VLOAD ABVAL # RECTIFY IF
056299,000495: 11,3231 01521 TDELTAV
056300,000496: 11,3232 77600 BOV
056301,000497: 11,3233 23256 CALLRECT
056302,000498: 11,3234 51025 DSU BPL # 1) EITHER TDELTAV OR TNUV EQUALS OR
056303,000499: 11,3235 23746 3/4 # EXCEEDS 3/4 IN MAGNITUDE
056304,000500: 11,3236 23256 CALLRECT
056305,000501: 11,3237 53615 DAD SL* # OR
056306,000502: 11,3240 23746 3/4
056307,000503: 11,3241 57605 0 -7,2 # 2) ABVAL(TDELTAV) EQUALS OR EXCEEDS
056308,000504: 11,3242 45271 DDV DSU # .01(ABVAL(RCV))
056309,000505: 11,3243 00013 10D
056310,000506: 11,3244 27763 RECRATIO
056311,000507: 11,3245 77244 BPL VLOAD
056312,000508: 11,3246 23256 CALLRECT
056313,000509: 11,3247 01527 TNUV
056314,000510: 11,3250 45246 ABVAL DSU
056315,000511: 11,3251 23746 3/4
056316,000512: 11,3252 77600 BOV
056317,000513: 11,3253 23256 CALLRECT
056318,000514: 11,3254 77640 BMN
056319,000515: 11,3255 23260 INTGRATE
056320,000516: 11,3256 77624 CALLRECT CALL
056321,000517: 11,3257 23403 RECTIFY
056322,000518: 11,3260 77775 INTGRATE VLOAD
056323,000519: 11,3261 01527 TNUV
056324,000520: 11,3262 25120 STOVL ZV
056325,000521: 11,3263 01521 TDELTAV
056326,000522: 11,3264 01112 STORE YV
056327,000523: 11,3265 77614 CLEAR
056328,000524: 11,3266 00261 JSWITCH
056329,000525: 11,3267 66375 DIFEQ0 VLOAD SSP
056330,000526: 11,3270 01112 YV
056331,000527: 11,3271 01501 DIFEQCNT
056332,000528: 11,3272 00000 0
056333,000529: 11,3273 16152 STODL ALPHAV
056334,000530: 11,3274 11566 DPZERO
056335,000531: 11,3275 02212 STORE H # START H AT ZERO. GOES 0(DELT/2)DELT.
056336,000532: 11,3276 52014 BON GOTO
056337,000533: 11,3277 00301 JSWITCH
056338,000534: 11,3300 23647 DOW..
056339,000535: 11,3301 22441 ACCOMP
056340,000536:
056341,000537: 11,3302 43020 CHKSWTCH STQ BOF
056342,000538: 11,3303 02270 ORIGEX
056343,000539: 11,3304 04340 RPQFLAG
056344,000540: 11,3305 23315 RPQOK # MOON POSITION IS AVAILABLE
056345,000541: 11,3306 45145 DLOAD CALL
056346,000542: 11,3307 01517 TET
056347,000543: 11,3310 54115 LUNPOS # GET MOON POSITION
056348,000544: 11,3311 57414 BOF VCOMP
056349,000545: 11,3312 00343 MOONFLAG
056350,000546: 11,3313 23314 +1
056351,000547: 11,3314 02263 STORE RPQV
056352,000548:
056353,000549: 11,3315 77354 RPQOK LXA,2 VLOAD # RESTORE X2 AFTER USING LUNPOS
056354,000550: 11,3316 02150 PBODY
056355,000551: 11,3317 01521 TDELTAV # -
056356,000552: 11,3320 53257 VSL* VAD # |RQC|-RSPHERE WHEN OUTSIDE THE SPHERE.
056357,000553: 11,3321 57605 0 -7,2 # - - -
056358,000554: 11,3322 01535 RCV # R = RDEVIATION + RCONIC
056359,000555: 11,3323 51414 BOF ABVAL
056360,000556: 11,3324 00343 MOONFLAG
056361,000557: 11,3325 23332 EARSPH
056362,000558: 11,3326 44302 SR2 BDSU # INSIDE
056363,000559: 11,3327 27765 RSPHERE
056364,000560: 11,3330 77650 GOTO
056365,000561: 11,3331 02270 ORIGEX
056366,000562: 11,3332 51451 EARSPH VSU ABVAL # OUTSIDE
056367,000563: 11,3333 02263 RPQV
056368,000564: 11,3334 52025 DSU GOTO
056369,000565: 11,3335 27765 RSPHERE
056370,000566: 11,3336 02270 ORIGEX
056371,000567:
056372,000568: 11,3337 77624 DOSWITCH CALL
056373,000569: 11,3340 23343 ORIGCHNG
056374,000570: 11,3341 77650 GOTO
056375,000571: 11,3342 23260 INTGRATE
056376,000572:
056377,000573: 11,3343 45020 ORIGCHNG STQ CALL
056378,000574: 11,3344 02270 ORIGEX
056379,000575: 11,3345 23403 RECTIFY
056380,000576: 11,3346 53775 VLOAD VSL*
056381,000577: 11,3347 01535 RCV
056382,000578: 11,3350 57576 0,2
056383,000579: 11,3351 53651 VSU VSL*
056384,000580: 11,3352 02263 RPQV
056385,000581: 11,3353 57574 2,2
056386,000582: 11,3354 01503 STORE RRECT
056387,000583: 11,3355 15535 STODL RCV
056388,000584: 11,3356 01517 TET
056389,000585: 11,3357 77624 CALL
056390,000586: 11,3360 54120 LUNVEL
056391,000587: 11,3361 57414 BOF VCOMP
056392,000588: 11,3362 00343 MOONFLAG
056393,000589: 11,3363 23364 +1
056394,000590: 11,3364 53715 PDVL VSL*
056395,000591: 11,3365 01543 VCV
056396,000592: 11,3366 57576 0,2
056397,000593: 11,3367 77651 VSU
056398,000594: 11,3370 77657 VSL*
056399,000595: 11,3371 57574 0 +2,2
056400,000596: 11,3372 01511 STORE VRECT
056401,000597: 11,3373 01543 STORE VCV
056402,000598: 11,3374 67154 LXA,2 SXA,2
056403,000599: 11,3375 02270 ORIGEX
056404,000600: 11,3376 00052 QPRET
056405,000601: 11,3377 52014 BON GOTO
056406,000602: 11,3400 00303 MOONFLAG
056407,000603: 11,3401 26744 CLRMOON
056408,000604: 11,3402 26751 SETMOON
056409,000605: # THE RECTIFY SUBROUTINE IS CALLED BY THE INTEGRATION PROGRAM AND OCCASIONALLY BY THE MEASUREMENT INCORPORATION
056410,000606: # ROUTINES TO ESTABLISH A NEW CONIC.
056411,000607:
056412,000608: 11,3403 77354 RECTIFY LXA,2 VLOAD
056413,000609: 11,3404 02150 PBODY
056414,000610: 11,3405 01521 TDELTAV
056415,000611: 11,3406 53257 VSL* VAD
056416,000612: 11,3407 57605 0 -7,2
056417,000613: 11,3410 01535 RCV
056418,000614: 11,3411 01503 STORE RRECT
056419,000615: 11,3412 25535 STOVL RCV
056420,000616: 11,3413 01527 TNUV
056421,000617: 11,3414 53257 VSL* VAD
056422,000618: 11,3415 57602 0 -4,2
056423,000619: 11,3416 01543 VCV
056424,000620: 11,3417 01511 MINIRECT STORE VRECT
056425,000621: 11,3420 25543 STOVL VCV
056426,000622: 11,3421 11566 ZEROVEC
056427,000623: 11,3422 01521 STORE TDELTAV
056428,000624: 11,3423 15527 STODL TNUV
056429,000625: 11,3424 11566 ZEROVEC
056430,000626: 11,3425 01551 STORE TC
056431,000627: 11,3426 01553 STORE XKEP
056432,000628: 11,3427 77616 RVQ
056433,000629:
056434,000630: # THE THREE DIFEQ ROUTINES - DIFEQ+0, DIFEQ+12, AND DIFEQ+24 - ARE ENTEREDTO PROCESS THE CONTRIBUTIONS AT THE
056435,000631: # BEGINNING, MIDDLE, AND END OF THE TIMESTEP, RESPECTIVELY. THE UPDATING IS DONE BY THE NYSTROM METHOD.
056436,000632:
056437,000633: 11,3430 64575 DIFEQ+0 VLOAD VSR3
056438,000634: 11,3431 02202 FV
056439,000635: 11,3432 36166 STCALL PHIV
056440,000636: 11,3433 23610 DIFEQCOM
056441,000637: 11,3434 74575 DIFEQ+1 VLOAD VSR1
056442,000638: 11,3435 02202 FV
056443,000639: 11,3436 53206 PUSH VAD
056444,000640: 11,3437 02166 PHIV
056445,000641: 11,3440 26174 STOVL PSIV
056446,000642: 11,3441 53362 VSR1 VAD
056447,000643: 11,3442 02166 PHIV
056448,000644: 11,3443 36166 STCALL PHIV
056449,000645: 11,3444 23610 DIFEQCOM
056450,000646: 11,3445 57345 DIFEQ+2 DLOAD DMPR
056451,000647: 11,3446 02212 H
056452,000648: 11,3447 23756 DP2/3
056453,000649: 11,3450 74206 PUSH VXSC
056454,000650: 11,3451 02166 PHIV
056455,000651: 11,3452 53372 VSL1 VAD
056456,000652: 11,3453 01120 ZV
056457,000653: 11,3454 53361 VXSC VAD
056458,000654: 11,3455 02212 H
056459,000655: 11,3456 01112 YV
056460,000656: 11,3457 25112 STOVL YV
056461,000657: 11,3460 02202 FV
056462,000658: 11,3461 53322 VSR3 VAD
056463,000659: 11,3462 02174 PSIV
056464,000660: 11,3463 76561 VXSC VSL1
056465,000661: 11,3464 77655 VAD
056466,000662: 11,3465 01120 ZV
056467,000663: 11,3466 01120 STORE ZV
056468,000664: 11,3467 45014 BOFF CALL
056469,000665: 11,3470 00341 JSWITCH
056470,000666: 11,3471 23541 ENDSTATE
056471,000667: 11,3472 56751 GRP2PC
056472,000668: 11,3473 77354 LXA,2 VLOAD
056473,000669: 11,3474 01102 COLREG
056474,000670: 11,3475 01120 ZV
056475,000671: 11,3476 77732 VSL3 # ADJUST W-POSITION FOR STORAGE
056476,000672: 11,3477 12467 STORE W +54D,2
056477,000673: 11,3500 77775 VLOAD
056478,000674: 11,3501 01112 YV
056479,000675: 11,3502 40132 VSL3 BOV
056480,000676: 11,3503 23633 WMATEND
056481,000677: 11,3504 12401 STORE W,2
056482,000678:
056483,000679: 11,3505 77624 CALL
056484,000680: 11,3506 56751 GRP2PC
056485,000681: 11,3507 66354 LXA,2 SSP
056486,000682: 11,3510 01102 COLREG
056487,000683: 11,3511 00052 S2
056488,000684: 11,3512 00000 0
056489,000685: 11,3513 67114 INCR,2 SXA,2
056490,000686: 11,3514 00006 6
056491,000687: 11,3515 01111 YV
056492,000688: 11,3516 45104 TIX,2 CALL
056493,000689: 11,3517 23604 RELOADSV
056494,000690: 11,3520 56751 GRP2PC
056495,000691: 11,3521 67154 LXA,2 SXA,2
056496,000692: 11,3522 01111 YV
056497,000693: 11,3523 01102 COLREG
056498,000694:
056499,000695: 11,3524 77624 NEXTCOL CALL
056500,000696: 11,3525 56751 GRP2PC
056501,000697: 11,3526 76754 LXA,2 VLOAD*
056502,000698: 11,3527 01102 COLREG
056503,000699: 11,3530 75376 W,2
056504,000700: 11,3531 77722 VSR3 # ADJUST W-POSITION FOR INTEGRATION
056505,000701: 11,3532 01112 STORE YV
056506,000702: 11,3533 76173 VLOAD* AXT,1
056507,000703: 11,3534 75310 W +54D,2
056508,000704: 11,3535 00000 0
056509,000705: 11,3536 77722 VSR3 # ADJUST W-VELOCITY FOR INTEGRATION
056510,000706: 11,3537 35120 STCALL ZV
056511,000707: 11,3540 23267 DIFEQ0
056512,000708:
056513,000709: 11,3541 77200 ENDSTATE BOV VLOAD
056514,000710: 11,3542 22711 GOBAQUE
056515,000711: 11,3543 01120 ZV
056516,000712: 11,3544 25527 STOVL TNUV
056517,000713: 11,3545 01112 YV
056518,000714: 11,3546 01521 STORE TDELTAV
056519,000715: 11,3547 43014 BON BOFF
056520,000716: 11,3550 04715 MIDAVFLG
056521,000717: 11,3551 27637 CKMID2 # CHECK FOR MID2 BEFORE GOING TO TIMEINC
056522,000718: 11,3552 01756 DIM0FLAG
056523,000719: 11,3553 27314 TESTLOOP
056524,000720: 11,3554 77776 EXIT
056525,000721: 11,3555 05426 TC PHASCHNG
056526,000722: 11,3556 04022 OCT 04022 # PHASE 1
056527,000723: 11,3557 05562 TC UPFLAG # PHASE CHANGE HAS OCCURRED BETWEEN
056528,000724: 11,3560 00236 ADRES REINTFLG # INTSTALL AND INTWAKE
056529,000725: 11,3561 06006 TC INTPRET
056530,000726: 11,3562 77731 SSP
056531,000727: 11,3563 00053 QPRET
056532,000728: 11,3564 23571 AMOVED
056533,000729: 11,3565 52014 BON GOTO
056534,000730: 11,3566 01714 VINTFLAG
056535,000731: 11,3567 26714 ATOPCSM
056536,000732: 11,3570 26767 ATOPLEM
056537,000733: 11,3571 66214 AMOVED SET SSP
056538,000734: 11,3572 00061 JSWITCH
056539,000735: 11,3573 01103 COLREG
056540,000736: 11,3574 77741 DEC -30 B-14
056541,000737: 11,3575 66214 BOFF SSP
056542,000738: 11,3576 01755 D6OR9FLG
056543,000739: 11,3577 23524 NEXTCOL
056544,000740: 11,3600 01103 COLREG
056545,000741: 11,3601 77717 DEC -48 B-14
056546,000742: 11,3602 77650 GOTO
056547,000743: 11,3603 23524 NEXTCOL
056548,000744:
056549,000745: 11,3604 77745 RELOADSV DLOAD # RELOAD TEMPORARY STATE VECTOR
056550,000746: 11,3605 01101 TDEC # FROM PERMANENT IN CASE OF
056551,000747: 11,3606 34041 STCALL TDEC1
056552,000748: 11,3607 27176 INTEGRV2 # BY STARTING AT INTEGRV2.
056553,000749: 11,3610 43345 DIFEQCOM DLOAD DAD # INCREMENT H AND DIFEQCNT.
056554,000750: 11,3611 02314 DT/2
056555,000751: 11,3612 02212 H
056556,000752: 11,3613 66110 INCR,1 SXA,1
056557,000753: 11,3614 77763 DEC -12 B-14
056558,000754: 11,3615 01500 DIFEQCNT # DIFEQCNT SET FOR NEXT ENTRY.
056559,000755: 11,3616 02212 STORE H
056560,000756: 11,3617 74561 VXSC VSR1
056561,000757: 11,3620 02202 FV
056562,000758: 11,3621 74255 VAD VXSC
056563,000759: 11,3622 01120 ZV
056564,000760: 11,3623 02212 H
056565,000761: 11,3624 77655 VAD
056566,000762: 11,3625 01112 YV
056567,000763: 11,3626 02152 STORE ALPHAV
056568,000764: 11,3627 52014 BON GOTO
056569,000765: 11,3630 00301 JSWITCH
056570,000766: 11,3631 23647 DOW..
056571,000767: 11,3632 22421 FBR3
056572,000768:
056573,000769: 11,3633 43014 WMATEND CLEAR CLEAR
056574,000770: 11,3634 01676 DIM0FLAG # DONT INTEGRATE W THIS TIME
056575,000771: 11,3635 01671 ORBWFLAG # INVALIDATE W
056576,000772: 11,3636 77614 CLEAR
056577,000773: 11,3637 02676 RENDWFLG
056578,000774: 11,3640 77414 SET EXIT
056579,000775: 11,3641 01472 STATEFLG # PICK UP STATE VECTOR UPDATE
056580,000776: 11,3642 05664 TC ALARM
056581,000777: 11,3643 00421 OCT 421
056582,000778: 11,3644 06006 TC INTPRET
056583,000779: 11,3645 77650 GOTO
056584,000780: 11,3646 27314 TESTLOOP # FINISH INTEGRATING STATE VECTOR
056585,000781:
056586,000782: # ORBITAL ROUTINE FOR EXTRAPOLATION OF THE W MATRIX. IT COMPUTES THE SECOND DERIVATIVE OF EACH COLUMN POSITION
056587,000783: # VECTOR OF THE MATRIX AND CALLS THE NYSTROM INTEGRATION ROUTINES TO SOLVE THE DIFFERENTIAL EQUATIONS. THE PROGRAM
056588,000784: # USES A TABLE OF VEHICLE POSITION VECTORS COMPUTED DURING THE INTEGRATION OF THE VEHICLES POSITION AND VELOCITY.
056589,000785:
056590,000786: 11,3647 70754 DOW.. LXA,2 DLOAD*
056591,000787: 11,3650 02150 PBODY
056592,000788: 11,3651 50036 MUEARTH,2
056593,000789: 11,3652 36210 STCALL BETAM
056594,000790: 11,3653 23675 DOW..1
056595,000791: 11,3654 02202 STORE FV
056596,000792: 11,3655 62014 BOF INCR,1
056597,000793: 11,3656 00342 MIDFLAG
056598,000794: 11,3657 23175 NBRANCH
056599,000795: 11,3660 77771 DEC -6 B-14
056600,000796: 11,3661 70744 LXC,2 DLOAD*
056601,000797: 11,3662 02150 PBODY
056602,000798: 11,3663 50040 MUEARTH -2,2
056603,000799: 11,3664 36210 STCALL BETAM
056604,000800: 11,3665 23675 DOW..1
056605,000801: 11,3666 50414 BON VSR6
056606,000802: 11,3667 00303 MOONFLAG
056607,000803: 11,3670 23671 +1
056608,000804: 11,3671 77655 VAD
056609,000805: 11,3672 02202 FV
056610,000806: 11,3673 36202 STCALL FV
056611,000807: 11,3674 23175 NBRANCH
056612,000808: 11,3675 60575 DOW..1 VLOAD VSR4
056613,000809: 11,3676 02152 ALPHAV
056614,000810: 11,3677 53513 PDVL* UNIT
056615,000811: 11,3700 02217 VECTAB,1
056616,000812: 11,3701 46315 PDVL VPROJ
056617,000813: 11,3702 02152 ALPHAV
056618,000814: 11,3703 52361 VXSC VSU
056619,000815: 11,3704 23746 3/4
056620,000816: 11,3705 60325 PDDL NORM
056621,000817: 11,3706 00045 36D
056622,000818: 11,3707 00052 S2
056623,000819: 11,3710 63406 PUSH DSQ
056624,000820: 11,3711 77605 DMP
056625,000821: 11,3712 65301 NORM PDDL
056626,000822: 11,3713 00043 34D
056627,000823: 11,3714 02210 BETAM
056628,000824: 11,3715 56342 SR1 DDV
056629,000825: 11,3716 77761 VXSC
056630,000826: 11,3717 57154 LXA,2 XAD,2
056631,000827: 11,3720 00051 S2
056632,000828: 11,3721 00051 S2
056633,000829: 11,3722 57074 XAD,2 XAD,2
056634,000830: 11,3723 00051 S2
056635,000831: 11,3724 00042 34D
056636,000832: 11,3725 43457 VSL* RVQ
056637,000833: 11,3726 57606 0 -8D,2
056638,000834:
056639,000835: 11,2000 SETLOC ORBITAL1
056640,000836: 11,2000 BANK
056641,000837:
056642,000838: 11,3727 04631 23146 3/5 2DEC .6 B-2
056643,000839: 11,3731 14000 00000 THREE/8 2DEC .375
056644,000840: 11,3733 02314 31463 .3D 2DEC .3 B-2
056645,000841: 11,3735 01400 00000 3/64 2DEC 3 B-6
056646,000842: 11,3737 10000 00000 DP1/4 2DEC .25
056647,000843: 11,3741 11,3737 DQUARTER EQUALS DP1/4
056648,000844: 11,3741 11,3737 POS1/4 EQUALS DP1/4
056649,000845: 11,3741 03000 00000 3/32 2DEC 3 B-5
056650,000846: 11,3743 36000 00000 15/16 2DEC 15. B-4
056651,000847: 11,3745 30000 00000 3/4 2DEC 3.0 B-2
056652,000848: 11,3747 22525 12525 7/12 2DEC .5833333333
056653,000849: 11,3751 22000 00000 9/16 2DEC 9 B-4
056654,000850: 11,3753 01200 00000 5/128 2DEC 5 B-7
056655,000851: 11,3755 04,3565 DPZERO EQUALS ZEROVEC
056656,000852: 11,3755 25252 25253 DP2/3 2DEC .6666666667
056657,000853: 11,3757 11,3755 2/3 EQUALS DP2/3
056658,000854: 11,3757 00027 OCT27 OCT 27
056659,000855: # LM504 IS TEMPORARY
056660,000856: 13,3720 BANK 13
056661,000857: 13,2000 SETLOC ORBITAL2
056662,000858: 13,2000 BANK
056663,000859: # IT IS VITAL THAT THE FOLLOWING CONSTANTS NOT BE SHUFFLED
056664,000860: 13,3720 77764 DEC -11 B-14
056665,000861: 13,3721 77775 DEC -2 B-14
056666,000862: 13,3722 77766 DEC -9 B-14
056667,000863: 13,3723 77771 DEC -6 B-14
056668,000864: 13,3724 77775 DEC -2 B-14
056669,000865: 13,3725 77775 DEC -2 B-14
056670,000866: 13,3726 00000 DEC 0 B-14
056671,000867: 13,3727 77763 DEC -12 B-14
056672,000868: 13,3730 77766 DEC -9 B-14
056673,000869: 13,3731 77773 DEC -4 B-14
056674,000870: 13,3732 77770 ASCALE DEC -7 B-14
056675,000871: 13,3733 77771 DEC -6 B-14
056676,000872: 13,3734 27446 14620 2DEC* 1.32715445 E16 B-54* # S
056677,000873: 13,3736 16471 01352 2DEC* 4.9027780 E8 B-30* # M
056678,000874: 13,3740 22437 16067 MUEARTH 2DEC* 3.986032 E10 B-36*
056679,000875: 13,3742 00000 00000 2DEC 0 B-28
056680,000876: 13,3744 02302 24736 J4REQ/J3 2DEC* .4991607391 E7 B-26*
056681,000877: 13,3746 77651 76237 2DEC -176236.02 B-25
056682,000878: 13,3750 77776 53032 2J3RE/J2 2DEC* -.1355426363 E5 B-27*
056683,000879: 13,3752 10407 05344 2DEC* .3067493316 E18 B-60*
056684,000880: 13,3754 13710 35320 J2REQSQ 2DEC* 1.75501139 E21 B-72*
056685,000881: 13,3756 24000 00000 5/8 2DEC 5 B-3
056686,000882: 13,3760 74631 63145 -1/12 2DEC -.1
056687,000883: 13,3762 13,3736 MUM = MUEARTH -2
056688,000884: 13,3762 00243 32703 RECRATIO 2DEC .01
056689,000885: 13,3764 03654 21000 RSPHERE 2DEC 64373.76 E3 B-29
056690,000886: 13,3766 03654 21000 RDM 2DEC 16093.44 E3 B-27
056691,000887: 13,3770 04627 25200 RDE 2DEC 80467.20 E3 B-29
056692,000888: 13,3772 RATT EQUALS 00
056693,000889: 13,3772 VATT EQUALS 6D
056694,000890: 13,3772 TAT EQUALS 12D
056695,000891: 13,3772 RATT1 EQUALS 14D
056696,000892: 13,3772 VATT1 EQUALS 20D
056697,000893: 13,3772 MU(P) EQUALS 26D
056698,000894: 13,3772 TDEC1 EQUALS 32D
056699,000895: 13,3772 URPV EQUALS 14D
056700,000896: 13,3772 0022 COSPHI/2 EQUALS URPV +4
056701,000897: 13,3772 UZ EQUALS 20D
056702,000898: 13,3772 TVEC EQUALS 26D
056703,000899:
056704,000900:
056705,000901:
End of include-file ORBITAL_INTEGRATION.agc. Parent file is MAIN.agc