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