Source Code

These source-code files were obtained by digitally photographing an Artemis 72 (Apollo 15-17 Command Module) program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. Photography was by Ron Burkey, and transcription was performed by a team of volunteers. Note that the page images presented online are of reduced quality, and that additional images may be 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 072 OF AGC PROGRAM ARTEMIS 
	BY NASA 2021114-011 11:40 FEB. 26, 1971
Note that the date is the date of the printout, not the date of the program revision.

057216,000002:                                                                                                  ## Copyright:   Public domain.
057217,000003:                                                                                                  ## Filename:    ORBITAL_INTEGRATION.agc
057218,000004:                                                                                                  ## Purpose:     Part of the source code for Artemis (i.e., Colossus 3),
057219,000005:                                                                                                  ##              build 072.  This is for the Command Module's (CM)
057220,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for
057221,000007:                                                                                                  ##              Apollo 15-17.
057222,000008:                                                                                                  ## Assembler:   yaYUL
057223,000009:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
057224,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
057225,000011:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Artemis072/
057226,000012:                                                                                                  ## Mod history: 2009-08-21 JL   Adapted from corresponding Comanche 055 file.
057227,000013:                                                                                                  ##              2010-02-20 RSB  Un-##'d this header.
057228,000014:                                                                                                  ##              2017-02-05 RSB  Proofed comment text by diff'ing vs Comanche 55
057229,000015:                                                                                                  ##                              and corrected errors found.
057230,000016:                                                                                                  ##              2017-03-17 RSB  Comment-text fixes identified by 4-way diff'ing
057231,000017:                                                                                                  ##                              of Colossus 237 & 249, Comanche 55, and Artemis 72.
057232,000018: 

Page 1333

057234,000020:                                                                                                  #  DELETE
057235,000021: 11,2000                                           SETLOC   ORBITAL                               
057236,000022: 11,2000                                           BANK                                           
057237,000023: 11,2336                                           COUNT*   $$/ORBIT                              
057238,000024: 
057239,000025:                                                                                                  #  DELETE
057240,000026: 11,2336           40354        KEPPREP            LXA,2    SETPD                                 
057241,000027: 11,2337           02150                                    PBODY                                 
057242,000028: 11,2340           00001                                    0                                     
057243,000029: 11,2341           75543                           DLOAD*   SQRT                                  #  SQRT(MU) (+18 OR +15)         0D      PL 2D
057244,000030: 11,2342           50037                                    MUEARTH,2                             
057245,000031: 11,2343           53515                           PDVL     UNIT                                  #                                        PL 8D
057246,000032: 11,2344           01535                                    RCV                                   
057247,000033: 11,2345           60325                           PDDL     NORM                                  #  NORM R (+29 OR +27 - N1)      2D      PL 4D
057248,000034: 11,2346           00045                                    36D                                   
057249,000035: 11,2347           00047                                    X1                                    
057250,000036: 11,2350           77715                           PDVL                                           
057251,000037: 11,2351           65241                           DOT      PDDL                                  #  F*SQRT(MU) (+7 OR +5)         4D      PL 6D
057252,000038: 11,2352           01543                                    VCV                                   
057253,000039: 11,2353           02303                                    TAU.                                  #  (+28)
057254,000040: 11,2354           60225                           DSU      NORM                                  
057255,000041: 11,2355           01551                                    TC                                    
057256,000042: 11,2356           00051                                    S1                                    
057257,000043: 11,2357           77742                           SR1                                            
057258,000044: 11,2360           65271                           DDV      PDDL                                  
057259,000045: 11,2361           00003                                    2D                                    
057260,000046: 11,2362           41405                           DMP      PUSH                                  #  FS (+6 +N1-N2)                6D      PL 8D
057261,000047: 11,2363           00005                                    4D                                    
057262,000048: 11,2364           65316                           DSQ      PDDL                                  #  (FS)SQ (+12 +2(N1-N2))        8D      PL 10D
057263,000049: 11,2365           00005                                    4D                                    
057264,000050: 11,2366           64716                           DSQ      PDDL*                                 #  SSQ/MU (-2 OR +2(N1-N2))      10D     PL 12D
057265,000051: 11,2367           50037                                    MUEARTH,2                             
057266,000052: 11,2370           40442                           SR3      SR4                                   
057267,000053: 11,2371           47515                           PDVL     VSQ                                   #  PREALIGN MU (+43 OR +37)      12D     PL 14D
057268,000054: 11,2372           01543                                    VCV                                   
057269,000055: 11,2373           44205                           DMP      BDSU                                  #                                        PL 12D
057270,000056: 11,2374           00045                                    36D                                   
057271,000057: 11,2375           41271                           DDV      DMP                                   #                                        PL 10D
057272,000058: 11,2376           00003                                    2D                                    #  -(1/R-ALPHA) (+12 +3N1-2N2)
057273,000059: 11,2377           53605                           DMP      SL*                                   
057274,000060: 11,2400           23771                                    DP2/3                                 
057275,000061: 11,2401           20176                                    0          -3,1                       #  10L(1/R-ALPHA) (+13 +2(N1-N2))
057276,000062: 11,2402           43260                           XSU,1    DAD                                   #  2(FS)SQ - ETCETRA                     PL 8D
057277,000063: 11,2403           00050                                    S1                                    #  X1 = N2-N1
057278,000064: 11,2404           45257                           SL*      DSU                                   #  -FS+2(FS)SQ ETC (+6 +N1-N2)           PL 6D
057279,000065: 11,2405           20211                                    8D,1                                  
057280,000066: 11,2406           41205                           DMP      DMP                                   
057281,000067: 11,2407           00001                                    0D                                    
057282,000068: 11,2410           00005                                    4D                                    
057283,000069: 11,2411           53657                           SL*      SL*                                   
057284,000070: 11,2412           20211                                    8D,1                                  

Page 1334

057286,000072: 11,2413           20201                                    0,1                                   #  S(-FS(1-2FS)-1/6...) (+17 OR +16)
057287,000073: 11,2414           65215                           DAD      PDDL                                  #                                        PL 6D
057288,000074: 11,2415           01553                                    XKEP                                  
057289,000075: 11,2416           53605                           DMP      SL*                                   #  S(+17 OR +16)
057290,000076: 11,2417           00001                                    0D                                    
057291,000077: 11,2420           20202                                    1,1                                   
057292,000078: 11,2421           43204                           BOVB     DAD                                   
057293,000079: 11,2422           57544                                    TCDANZIG                              
057294,000080: 11,2423           77626                           STADR                                          
057295,000081: 11,2424           75500                           STORE    XKEPNEW                               
057296,000082: 11,2425           74020                           STQ      AXC,1                                 
057297,000083: 11,2426           02267                                    KEPRTN                                
057298,000084: 11,2427           00012                           DEC      10         B-14                       
057299,000085: 11,2430           74014                           BON      AXC,1                                 
057300,000086: 11,2431           00303                                    MOONFLAG                              
057301,000087: 11,2432           24077                                    KEPLERN                               
057302,000088: 11,2433           00002                           DEC      2          B-14                       
057303,000089: 11,2434           77650                           GOTO                                           
057304,000090: 11,2435           24077                                    KEPLERN                               
057305,000091: 

Page 1335

057307,000093: 11,2436           66350        FBR3               LXA,1    SSP                                   
057308,000094: 11,2437           01500                                    DIFEQCNT                              
057309,000095: 11,2440           00051                                    S1                                    
057310,000096: 11,2441           77762                           DEC      -13        B-14                       
057311,000097: 11,2442           54345                           DLOAD    SR                                    
057312,000098: 11,2443           02305                                    DT/2                                  
057313,000099: 11,2444           20612                                    9D                                    
057314,000100: 11,2445           61500                           TIX,1    ROUND                                 
057315,000101: 11,2446           22447                                    +1                                    
057316,000102: 11,2447           43206                           PUSH     DAD                                   
057317,000103: 11,2450           01551                                    TC                                    
057318,000104: 11,2451           16303                           STODL    TAU.                                  
057319,000105: 11,2452           77615                           DAD                                            
057320,000106: 11,2453           01517                                    TET                                   
057321,000107: 11,2454           35517                           STCALL   TET                                   
057322,000108: 11,2455           22336                                    KEPPREP                               
057323,000109: 

Page 1336

057325,000111: 
057326,000112:                                                                                                  #  AGC ROUTINE TO COMPUTE ACCELERATION COMPONENTS.
057327,000113: 
057328,000114: 11,2456           73150        ACCOMP             LXA,1    LXA,2                                 
057329,000115: 11,2457           02150                                    PBODY                                 
057330,000116: 11,2460           02150                                    PBODY                                 
057331,000117: 11,2461           77775                           VLOAD                                          
057332,000118: 11,2462           11762                                    ZEROVEC                               
057333,000119: 11,2463           26202                           STOVL    FV                                    
057334,000120: 11,2464           02152                                    ALPHAV                                
057335,000121: 11,2465           53257                           VSL*     VAD                                   
057336,000122: 11,2466           57605                                    0          -7,2                       
057337,000123: 11,2467           01535                                    RCV                                   
057338,000124: 11,2470           02160                           STORE    BETAV                                 
057339,000125: 11,2471           65014                           BOF      XCHX,2                                
057340,000126: 11,2472           01756                                    DIM0FLAG                              
057341,000127: 11,2473           22500                                    +5                                    
057342,000128: 11,2474           01500                                    DIFEQCNT                              
057343,000129: 11,2475           12216                           STORE    VECTAB,2                              
057344,000130: 11,2476           77724                           XCHX,2                                         
057345,000131: 11,2477           01500                                    DIFEQCNT                              
057346,000132: 11,2500           53575                           VLOAD    UNIT                                  
057347,000133: 11,2501           02152                                    ALPHAV                                
057348,000134: 11,2502           16152                           STODL    ALPHAV                                
057349,000135: 11,2503           00045                                    36D                                   
057350,000136: 11,2504           02301                           STORE    ALPHAM                                
057351,000137: 11,2505           77624                           CALL                                           
057352,000138: 11,2506           22602                                    GAMCOMP                               
057353,000139: 11,2507           66175                           VLOAD    SXA,1                                 
057354,000140: 11,2510           02160                                    BETAV                                 
057355,000141: 11,2511           00051                                    S2                                    
057356,000142: 11,2512           16152                           STODL    ALPHAV                                
057357,000143: 11,2513           02210                                    BETAM                                 
057358,000144: 11,2514           02301                           STORE    ALPHAM                                
057359,000145: 11,2515           71214                           BOF      DLOAD                                 
057360,000146: 11,2516           00342                                    MIDFLAG                               
057361,000147: 11,2517           22754                                    OBLATE                                
057362,000148: 11,2520           01517                                    TET                                   
057363,000149: 11,2521           77624                           CALL                                           
057364,000150: 11,2522           54136                                    LSPOS                                 
057365,000151: 11,2523           72174                           AXT,2    LXA,1                                 
057366,000152: 11,2524           00002                                    2                                     
057367,000153: 11,2525           00051                                    S2                                    
057368,000154: 11,2526           77614                           BOF                                            
057369,000155: 11,2527           00343                                    MOONFLAG                              
057370,000156: 11,2530           22533                                    +3                                    
057371,000157: 11,2531           77076                           VCOMP    AXT,2                                 
057372,000158: 11,2532           00000                                    0                                     
057373,000159: 11,2533           02160                           STORE    BETAV                                 
057374,000160: 11,2534           26262                           STOVL    RPQV                                  

Page 1337

057376,000162: 11,2535           00003                                    2D                                    
057377,000163: 11,2536           02271                           STORE    RPSV                                  
057378,000164: 11,2537           77214                           BOF      VLOAD                                 
057379,000165: 11,2540           01756                                    DIM0FLAG                              
057380,000166: 11,2541           22554                                    GETRPSV                               
057381,000167: 11,2542           02152                                    ALPHAV                                
057382,000168: 11,2543           53761                           VXSC     VSR*                                  
057383,000169: 11,2544           02301                                    ALPHAM                                
057384,000170: 11,2545           57175                                    1,2                                   
057385,000171: 11,2546           65051                           VSU      XCHX,2                                
057386,000172: 11,2547           02160                                    BETAV                                 
057387,000173: 11,2550           01500                                    DIFEQCNT                              
057388,000174: 11,2551           12224                           STORE    VECTAB     +6,2                       
057389,000175: 11,2552           77724                           XCHX,2                                         
057390,000176: 11,2553           01500                                    DIFEQCNT                              
057391,000177: 11,2554           62175        GETRPSV            VLOAD    INCR,1                                
057392,000178: 11,2555           02262                                    RPQV                                  
057393,000179: 11,2556           00004                                    4                                     
057394,000180: 11,2557           43014                           CLEAR    BOF                                   
057395,000181: 11,2560           04260                                    RPQFLAG                               
057396,000182: 11,2561           00343                                    MOONFLAG                              
057397,000183: 11,2562           22567                                    +5                                    
057398,000184: 11,2563           53261                           VSR      VAD                                   
057399,000185: 11,2564           20612                                    9D                                    
057400,000186: 11,2565           02271                                    RPSV                                  
057401,000187: 11,2566           02271                           STORE    RPSV                                  
057402,000188: 11,2567           77624                           CALL                                           
057403,000189: 11,2570           22602                                    GAMCOMP                               
057404,000190: 11,2571           62174                           AXT,2    INCR,1                                
057405,000191: 11,2572           00004                                    4                                     
057406,000192: 11,2573           00004                                    4                                     
057407,000193: 11,2574           77775                           VLOAD                                          
057408,000194: 11,2575           02271                                    RPSV                                  
057409,000195: 11,2576           36160                           STCALL   BETAV                                 
057410,000196: 11,2577           22602                                    GAMCOMP                               
057411,000197: 11,2600           77650                           GOTO                                           
057412,000198: 11,2601           22754                                    OBLATE                                
057413,000199: 11,2602           74575        GAMCOMP            VLOAD    VSR1                                  
057414,000200: 11,2603           02160                                    BETAV                                 
057415,000201: 11,2604           40236                           VSQ      SETPD                                 
057416,000202: 11,2605           00001                                    0                                     
057417,000203: 11,2606           61501                           NORM     ROUND                                 
057418,000204: 11,2607           00040                                    31D                                   
057419,000205: 11,2610           60325                           PDDL     NORM                                  #  NORMED B SQUARED TO PD LIST
057420,000206: 11,2611           02301                                    ALPHAM                                #  NORMALIZE (LESS ONE) LENGTH OF ALPHA
057421,000207: 11,2612           00041                                    32D                                   #  SAVING NORM SCALE FACTOR IN X1
057422,000208: 11,2613           63342                           SR1      PDVL                                  
057423,000209: 11,2614           02160                                    BETAV                                 #  C(PDL+2) = ALMOST NORMED ALPHA
057424,000210: 11,2615           77656                           UNIT                                           
057425,000211: 11,2616           16160                           STODL    BETAV                                 

Page 1338

057427,000213: 11,2617           00045                                    36D                                   
057428,000214: 11,2620           02210                           STORE    BETAM                                 
057429,000215: 11,2621           55301                           NORM     BDDV                                  #  FORM NORMALIZED QUOTIENT ALPHAM/BETAM
057430,000216: 11,2622           00042                                    33D                                   
057431,000217: 11,2623           41562                           SR1R     PUSH                                  #  C(PDL+2) = ALMOST NORMALIZED RHO.
057432,000218: 11,2624           77743                           DLOAD*                                         
057433,000219: 11,2625           27732                                    ASCALE,1                              
057434,000220: 11,2626           00051                           STORE    S1                                    
057435,000221: 11,2627           57124                           XCHX,2   XAD,2                                 
057436,000222: 11,2630           00050                                    S1                                    
057437,000223: 11,2631           00040                                    32D                                   
057438,000224: 11,2632           71264                           XSU,2    DLOAD                                 
057439,000225: 11,2633           00041                                    33D                                   
057440,000226: 11,2634           00003                                    2D                                    
057441,000227: 11,2635           65057                           SR*      XCHX,2                                
057442,000228: 11,2636           57177                                    0          -1,2                       
057443,000229: 11,2637           00050                                    S1                                    
057444,000230: 11,2640           74406                           PUSH     SR1R                                  #  RHO/4 TO 4D
057445,000231: 11,2641           50315                           PDVL     DOT                                   
057446,000232: 11,2642           02152                                    ALPHAV                                
057447,000233: 11,2643           02160                                    BETAV                                 
057448,000234: 11,2644           44372                           SL1R     BDSU                                  #  (RHO/4) - 2(ALPHAV/2.BETAV/2)
057449,000235: 11,2645           57206                           PUSH     DMPR                                  #  TO PDL+6
057450,000236: 11,2646           00005                                    4                                     
057451,000237: 11,2647           77752                           SL1                                            
057452,000238: 11,2650           43206                           PUSH     DAD                                   
057453,000239: 11,2651           33412                                    DQUARTER                              
057454,000240: 11,2652           75406                           PUSH     SQRT                                  
057455,000241: 11,2653           41475                           DMPR     PUSH                                  
057456,000242: 11,2654           00013                                    10D                                   
057457,000243: 11,2655           43352                           SL1      DAD                                   
057458,000244: 11,2656           33412                                    DQUARTER                              
057459,000245: 11,2657           43325                           PDDL     DAD                                   #  (1/4)+2((Q+1)/4)      TO PD+14D
057460,000246: 11,2660           00013                                    10D                                   
057461,000247: 11,2661           11760                                    HALFDP                                
057462,000248: 11,2662           72475                           DMPR     SL1                                   
057463,000249: 11,2663           00011                                    8D                                    
057464,000250: 11,2664           56215                           DAD      DDV                                   
057465,000251: 11,2665           23747                                    THREE/8                               
057466,000252: 11,2666           00017                                    14D                                   
057467,000253: 11,2667           74275                           DMPR     VXSC                                  
057468,000254: 11,2670           00007                                    6                                     
057469,000255: 11,2671           02160                                    BETAV                                 #                -
057470,000256: 11,2672           64515                           PDVL     VSR3                                  #  (G/2)(C(PD+4))B/2 TO PD+16D
057471,000257: 11,2673           02152                                    ALPHAV                                
057472,000258: 11,2674           41455                           VAD      PUSH                                  #  A12 + C(PD+16D) TO PD+16D
057473,000259: 11,2675           41345                           DLOAD    DMP                                   
057474,000260: 11,2676           00001                                    0                                     
057475,000261: 11,2677           00015                                    12D                                   #  -
057476,000262: 11,2700           61501                           NORM     ROUND                                 

Page 1339

057478,000264: 11,2701           00037                                    30D                                   
057479,000265: 11,2702           40665                           BDDV     DMP*                                  
057480,000266: 11,2703           00003                                    2                                     
057481,000267: 11,2704           50037                                    MUEARTH,2                             
057482,000268: 11,2705           74276                           DCOMP    VXSC                                  
057483,000269: 11,2706           57124                           XCHX,2   XAD,2                                 
057484,000270: 11,2707           00050                                    S1                                    
057485,000271: 11,2710           00051                                    S2                                    
057486,000272: 11,2711           55064                           XSU,2    XSU,2                                 
057487,000273: 11,2712           00036                                    30D                                   
057488,000274: 11,2713           00037                                    31D                                   
057489,000275: 11,2714           77600                           BOV                                            #  CLEAR OVIND
057490,000276: 11,2715           22716                                    +1                                    
057491,000277: 11,2716           65057                           VSR*     XCHX,2                                
057492,000278: 11,2717           57177                                    0          -1,2                       
057493,000279: 11,2720           00050                                    S1                                    
057494,000280: 11,2721           77655                           VAD                                            
057495,000281: 11,2722           02202                                    FV                                    
057496,000282: 11,2723           02202                           STORE    FV                                    
057497,000283: 11,2724           43400                           BOV      RVQ                                   #  RETURN IF NO OVERFLOW
057498,000284: 11,2725           22726                                    +1                                    
057499,000285: 11,2726           51575        GOBAQUE            VLOAD    ABVAL                                 
057500,000286: 11,2727           01521                                    TDELTAV                               
057501,000287: 11,2730           77654                           BZE                                            
057502,000288: 11,2731           22751                                    INT-ABRT                              
057503,000289: 11,2732           54345                           DLOAD    SR                                    
057504,000290: 11,2733           02212                                    H                                     
057505,000291: 11,2734           20612                                    9D                                    
057506,000292: 11,2735           44206                           PUSH     BDSU                                  
057507,000293: 11,2736           01551                                    TC                                    
057508,000294: 11,2737           16303                           STODL    TAU.                                  
057509,000295: 11,2740           01517                                    TET                                   
057510,000296: 11,2741           45425                           DSU      STADR                                 
057511,000297: 11,2742           42260                           STCALL   TET                                   
057512,000298: 11,2743           22336                                    KEPPREP                               
057513,000299: 11,2744           77624                           CALL                                           
057514,000300: 11,2745           23420                                    RECTIFY                               
057515,000301: 11,2746           77614                           SETGO                                          
057516,000302: 11,2747           04020                                    RPQFLAG                               
057517,000303: 11,2750           27364                                    TESTLOOP                              
057518,000304: 
057519,000305: 11,2751           77776        INT-ABRT           EXIT                                           
057520,000306: 11,2752           05726                           TC       POODOO                                
057521,000307: 11,2753           20430                           OCT      20430                                 #  SUB-SURFACE STATE VECTOR
057522,000308: 

Page 1340

057524,000310: 
057525,000311:                                                                                                  #  THE OBLATE ROUTINE COMPUTES THE ACCELERATION DUE TO OBLATENESS. IT USES THE UNIT OF THE VEHICLE
057526,000312:                                                                                                  #  POSITION VECTOR FOUND IN ALPHAV AND THE DISTANCE TO THE CENTER IN ALPHAM. THIS IS ADDED TO THE SUM OF THE
057527,000313:                                                                                                  #  DISTURBING ACCELERATIONS IN FV AND THE PROPER DIFEQ STAGE IS CALLED VIA X1.
057528,000314: 
057529,000315: 11,2754           71354        OBLATE             LXA,2    DLOAD                                 
057530,000316: 11,2755           02150                                    PBODY                                 
057531,000317: 11,2756           02301                                    ALPHAM                                
057532,000318: 11,2757           44601                           SETPD    DSU*                                  
057533,000319: 11,2760           00001                                    0                                     
057534,000320: 11,2761           50007                                    RDE,2                                 
057535,000321: 11,2762           43044                           BPL      BOF                                   #  GET URPV
057536,000322: 11,2763           23212                                    NBRANCH                               
057537,000323: 11,2764           00343                                    MOONFLAG                              
057538,000324: 11,2765           23221                                    COSPHIE                               
057539,000325: 11,2766           65375                           VLOAD    PDDL                                  
057540,000326: 11,2767           02152                                    ALPHAV                                
057541,000327: 11,2770           01517                                    TET                                   
057542,000328: 11,2771           45125                           PDDL     CALL                                  
057543,000329: 11,2772           23745                                    3/5                                   
057544,000330: 11,2773           55370                                    R-TO-RP                               
057545,000331: 11,2774           24017                           STOVL    URPV                                  #  RP/R  B-1     IN PLANETARY COORDINATES
057546,000332: 11,2775           11754                                    ZUNIT                                 
057547,000333: 11,2776           45006                           PUSH     CALL                                  #  ZUNIT B-1     IN PLANETARY COORDL      AT 00D
057548,000334: 11,2777           23227                                    MATRIX                                
057549,000335: 11,3000           77715                           PDVL                                           #  UZ    B-2     IN INERT COORD           AT 00D
057550,000336: 11,3001           11760                                    XUNIT                                 
057551,000337: 11,3002           45006                           PUSH     CALL                                  #  XUNIT B-1     IN PLANETARY COORD.      AT 06D
057552,000338: 11,3003           23227                                    MATRIX                                
057553,000339: 11,3004           77772                           VSL1                                           
057554,000340: 11,3005           24041                           STOVL    32D                                   #  UX    B-1     IN INERT. COORD          AT 32D
057555,000341: 11,3006           77772                           VSL1                                           
057556,000342: 11,3007           14025        COMTERM            STODL    UZ                                    #  UZ    B-1     IN INERTIAL COORD        AT 20D
057557,000343: 11,3010           00023                                    COSPHI/2                              #   '            Z-COMPONENT OF URPV
057558,000344: 11,3011           65275                           DMPR     PDDL                                  #  P     B-6      ,  3COSPHI/64           AT 00D
057559,000345: 11,3012           23755                                    3/32                                  #   2
057560,000346: 11,3013           00023                                    COSPHI/2                              
057561,000347: 11,3014           57316                           DSQ      DMPR                                  
057562,000348: 11,3015           23757                                    15/16                                 #   '                            2
057563,000349: 11,3016           41425                           DSU      PUSH                                  #  P     B-5      ,(1/2)(15COSPHI -3)     AT 02D
057564,000350: 11,3017           23753                                    3/64                                  #   3
057565,000351: 11,3020           41275                           DMPR     DMP                                   
057566,000352: 11,3021           00023                                    COSPHI/2                              
057567,000353: 11,3022           23763                                    7/12                                  
057568,000354: 11,3023           65372                           SL1R     PDDL                                  
057569,000355: 11,3024           00001                                    0D                                    
057570,000356: 11,3025           44275                           DMPR     BDSU                                  
057571,000357: 11,3026           23771                                    2/3                                   #   '                             '    '
057572,000358: 11,3027           57206                           PUSH     DMPR                                  #  P     B-7      ,(1/3)(7COSPHI P  -4P ) AT 04D
057573,000359: 11,3030           00023                                    COSPHI/2                              #   4                             3    2
057574,000360: 11,3031           65275                           DMPR     PDDL                                  
057575,000361: 11,3032           23765                                    9/16                                  

Page 1341

057577,000363: 11,3033           00003                                    2D                                    #   '                             '    '
057578,000364: 11,3034           44275                           DMPR     BDSU                                  #  P     B-10     ,(1/4)(9COSPHI P  -5P )
057579,000365: 11,3035           23767                                    5/128                                 #   5                             4    3
057580,000366: 11,3036           56203                           DMP*     DDV                                   #                             '
057581,000367: 11,3037           50033                                    J4REQ/J3,2                            #        B-       ,(J RP/J R)P
057582,000368: 11,3040           02301                                    ALPHAM                                #                    4    3   5
057583,000369: 11,3041           56615                           DAD      DMPR*                                 
057584,000370: 11,3042           00005                                    4D                                    #                        2     2  '              '
057585,000371: 11,3043           50027                                    2J3RE/J2,2                            #        B        ,(2J RP /J2 R )P  +(2J RP/J2R)P
057586,000372: 11,3044           43271                           DDV      DAD                                   #                     4           5     3        4
057587,000373: 11,3045           02301                                    ALPHAM                                #   -        2 '  2         '        '
057588,000374: 11,3046           00003                                    2D                                    #  (R/R)(J RP P /R + 2J RP P /  + J P )
057589,000375: 11,3047           77761                           VXSC                                           #         4    5       3    4  2   2 3
057590,000376: 11,3050           02152                                    ALPHAV                                #                    4       2  '           -
057591,000377: 11,3051           14033                           STODL    TVEC                                  #        B-6     , (SUM((J /R )P   (COSPHI))UR)
057592,000378: 11,3052           70403                           DMP*     SR1                                   #                   I=2   I     I+1
057593,000379: 11,3053           50033                                    J4REQ/J3,2                            #                           '
057594,000380: 11,3054           43271                           DDV      DAD                                   #                (J RP/J R)P
057595,000381: 11,3055           02301                                    ALPHAM                                #                  4    3   4
057596,000382: 11,3056           50473                           DMPR*    SR3                                   #              2    2  '              '
057597,000383: 11,3057           50027                                    2J3RE/J2,2                            #        (2J RP /J R )P  +(2J RP/J R)P
057598,000384: 11,3060           43271                           DDV      DAD                                   #           4     2    4     3    2   3
057599,000385: 11,3061           02301                                    ALPHAM                                #  
057600,000386: 11,3062           76561                           VXSC     VSL1                                  #                 4   '        -
057601,000387: 11,3063           00025                                    UZ                                    #        B-6     SUM(P(COSPHI))UZ
057602,000388: 11,3064           77645                           BVSU                                           #                I=2  I
057603,000389: 11,3065           00033                                    TVEC                                  #   4              I-2   '          -
057604,000390: 11,3066           14033                           STODL    TVEC                                  #  SUM((MU J (RP/R)   )(P   (COSPHI)UR -
057605,000391: 11,3067           02301                                    ALPHAM                                #  I=2      I            I+2
057606,000392: 11,3070           63501                           NORM     DSQ                                   #              P (COSPHI)UZ))    B-6     AT 20D
057607,000393: 11,3071           00047                                    X1                                    #               I
057608,000394: 11,3072           60316                           DSQ      NORM                                  
057609,000395: 11,3073           00051                                    S1                                    #              4
057610,000396: 11,3074           54606                           PUSH     BDDV*                                 #  NORMALIZED R                          AT 00D
057611,000397: 11,3075           50023                                    J2REQSQ,2                             
057612,000398: 11,3076           40161                           VXSC     BOV                                   
057613,000399: 11,3077           00033                                    TVEC                                  
057614,000400: 11,3100           23101                                    +1                                    #  B+38 FOR EARTH, B+42 FOR MOON
057615,000401: 11,3101           56070                           XAD,1    XAD,1                                 
057616,000402: 11,3102           00046                                    X1                                    
057617,000403: 11,3103           00046                                    X1                                    
057618,000404: 11,3104           53670                           XAD,1    VSL*                                  
057619,000405: 11,3105           00050                                    S1                                    
057620,000406: 11,3106           20153                                    0          -22D,1                     
057621,000407: 11,3107           40055                           VAD      BOV                                   
057622,000408: 11,3110           02202                                    FV                                    
057623,000409: 11,3111           22726                                    GOBAQUE                               
057624,000410: 11,3112           16202                           STODL    FV                                    #  B+16 FOR EARTH, B+20 FOR MOON
057625,000411: 11,3113           00017                                    URPV                                  #  B-1  X-COMPONENT OF POSITION  IN
057626,000412: 11,3114           41414                           BOF      PUSH                                  #            PLANETORY COORD.      AT 02D

Page 1342

057628,000414: 11,3115           00343                                    MOONFLAG                              
057629,000415: 11,3116           23212                                    NBRANCH                               #         2
057630,000416: 11,3117           65316                           DSQ      PDDL                                  #  B-2   X                               AT 04D
057631,000417: 11,3120           00021                                    URPV       +2                         #  B-1   Y-COMPONENT
057632,000418: 11,3121           45316                           DSQ      DSU                                   
057633,000419: 11,3122           74205                           DMP      VXSC                                  
057634,000420: 11,3123           27756                                    5/8                                   #           2  2 -
057635,000421: 11,3124           02152                                    ALPHAV                                #  B-6   5(Y -X )UR         2  2 -
057636,000422: 11,3125           65332                           VSL3     PDDL                                  #  B-3                   5(Y -X )UR      AT 02D
057637,000423: 11,3126           53361                           VXSC     VAD                                   
057638,000424: 11,3127           00041                                    32D                                   #      2  2 -   2         -
057639,000425: 11,3130           47315                           PDVL     VXV                                   #  (5(Y.-X )UR/R ) +(2X/R)UX             AT 02D
057640,000426: 11,3131           00041                                    32D                                   #  B-1    UX
057641,000427: 11,3132           00025                                    UZ                                    #  B-2   -UY =(UX * UZ)
057642,000428: 11,3133           74372                           VSL1     VXSC                                  #  B-3    -(2Y/R)UY
057643,000429: 11,3134           00021                                    URPV       +2                         #            2  2 -   2        -
057644,000430: 11,3135           41455                           VAD      PUSH                                  #  B-3   (5(X -Y )UR/R )+(2X/R)UX -(
057645,000431: 11,3136           77745                           DLOAD                                          #             -
057646,000432: 11,3137           00023                                    COSPHI/2                              #        2Y/R)UY                         AT 02D
057647,000433: 11,3140           41516                           DSQ      PUSH                                  #  B-2   (Z.COMPONENT)                   AT 08D
057648,000434: 11,3141           65205                           DMP      PDDL                                  #                2
057649,000435: 11,3142           27756                                    5/8                                   #  B-5   5COSPHI/2                       AT 08D
057650,000436: 11,3143           43302                           SR2      DAD                                   
057651,000437: 11,3144           00011                                    08D                                   
057652,000438: 11,3145           41221                           BDSU     DMP                                   #                    2
057653,000439: 11,3146           33416                                    D1/32                                 #  B-5   (1 - 7COSPHI )
057654,000440: 11,3147           00017                                    URPV                                  
057655,000441: 11,3150           74205                           DMP      VXSC                                  
057656,000442: 11,3151           27756                                    5/8                                   
057657,000443: 11,3152           02152                                    ALPHAV                                #                        2 -
057658,000444: 11,3153           65272                           VSL5     PDDL                                  #  B-5   (5X/R)(1-7COSPHI )UR            AT 08D
057659,000445: 11,3154           74225                           DSU      VXSC                                  
057660,000446: 11,3155           33416                                    D1/32                                 
057661,000447: 11,3156           00041                                    32D                                   
057662,000448: 11,3157           53372                           VSL1     VAD                                   #                        2 -           -
057663,000449: 11,3160           41325                           PDDL     DMP                                   #  B-5   (5X/R)(1-7COSPHI )UR +(5COSPHI
057664,000450: 11,3161           00017                                    URPV                                  #     -
057665,000451: 11,3162           00023                                    URPV       +4                         #  -1)UX                                 AT 08D
057666,000452: 11,3163           74205                           DMP      VXSC                                  
057667,000453: 11,3164           27756                                    5/8                                   #  B-5   5X Y
057668,000454: 11,3165           00025                                    UZ                                    #          M M
057669,000455: 11,3166           53352                           VSL2     VAD                                   #                        2             2
057670,000456: 11,3167           60325                           PDDL     NORM                                  #  B-5   (5X/R)(1-7COSPHI )UR +(5COSPHI
057671,000457: 11,3170           02301                                    ALPHAM                                #     -          2 -
057672,000458: 11,3171           00050                                    X2                                    #  -1)UX +(10XZ/R )UZ                    AT 08D
057673,000459: 11,3172           67206                           PUSH     SLOAD                                 
057674,000460: 11,3173           01770                                    E32C31RM                              
057675,000461: 11,3174           74271                           DDV      VXSC                                  
057676,000462: 11,3175           63257                           VSL*     PDVL                                  
057677,000463: 11,3176           57601                                    0          -3,2                       

Page 1343

057679,000465: 11,3177           67206                           PUSH     SLOAD                                 
057680,000466: 11,3200           01767                                    E3J22R2M                              
057681,000467: 11,3201           53361                           VXSC     VAD                                   
057682,000468: 11,3202           70257                           VSL*     V/SC                                  
057683,000469: 11,3203           20146                                    0          -27D,1                     #  B+16 OR B+20 (J   + C  )
057684,000470: 11,3204           40055                           VAD      BOV                                   #                 22    31
057685,000471: 11,3205           02202                                    FV                                    
057686,000472: 11,3206           22726                                    GOBAQUE                               
057687,000473: 11,3207           02202                           STORE    FV                                    
057688,000474: 11,3210           77754                           LXA,2                                          
057689,000475: 11,3211           02150                                    PBODY                                 
057690,000476: 11,3212           72135        NBRANCH            SLOAD    LXA,1                                 
057691,000477: 11,3213           01501                                    DIFEQCNT                              
057692,000478: 11,3214           00154                                    MPAC                                  
057693,000479: 11,3215           73205                           DMP      CGOTO                                 
057694,000480: 11,3216           27760                                    -1/12                                 
057695,000481: 11,3217           00155                                    MPAC                                  
057696,000482: 11,3220           23234                                    DIFEQTAB                              
057697,000483: 11,3221           77745        COSPHIE            DLOAD                                          
057698,000484: 11,3222           02156                                    ALPHAV     +4                         
057699,000485: 11,3223           24023                           STOVL    COSPHI/2                              
057700,000486: 11,3224           11754                                    ZUNIT                                 
057701,000487: 11,3225           77650                           GOTO                                           
057702,000488: 11,3226           23007                                    COMTERM                               
057703,000489: 
057704,000490: 11,3227           57435        MATRIX             VXV      VCOMP                                 
057705,000491: 11,3230           02012                                    504LM                                 #  ROUTINE TRANSLATES FROM PLANETARY
057706,000492: 11,3231           77655                           VAD                                            #  TO INERTIAL COORDINATES
057707,000493: 11,3232           43505                           VXM      RVQ                                   
057708,000494: 11,3233           00025                                    MMATRIX                               
057709,000495: 
057710,000496: 11,3234           23445        DIFEQTAB           CADR     DIFEQ+0                               
057711,000497: 11,3235           23451                           CADR     DIFEQ+1                               
057712,000498: 11,3236           23462                           CADR     DIFEQ+2                               
057713,000499: 
057714,000500: 11,3237           45014        TIMESTEP           BOF      CALL                                  
057715,000501: 11,3240           00342                                    MIDFLAG                               
057716,000502: 11,3241           23245                                    RECTEST                               #  SKIP ORIGIN CHANGE LOGIC
057717,000503: 11,3242           23317                                    CHKSWTCH                              
057718,000504: 11,3243           77640                           BMN                                            
057719,000505: 11,3244           23354                                    DOSWITCH                              
057720,000506: 
057721,000507: 11,3245           51575        RECTEST            VLOAD    ABVAL                                 #  RECTIFY IF
057722,000508: 11,3246           01521                                    TDELTAV                               
057723,000509: 11,3247           77600                           BOV                                            
057724,000510: 11,3250           23273                                    CALLRECT                              
057725,000511: 11,3251           51025                           DSU      BPL                                   #        1) EITHER TDELTAV OR TNUV EQUALS OR
057726,000512: 11,3252           23761                                    3/4                                   #           EXCEEDS 3/4 IN MAGNITUDE
057727,000513: 11,3253           23273                                    CALLRECT                              
057728,000514: 11,3254           53615                           DAD      SL*                                   #                        OR

Page 1344

057730,000516: 11,3255           23761                                    3/4                                   
057731,000517: 11,3256           57605                                    0          -7,2                       #        2) ABVAL(TDELTAV) EQUALS OR EXCEEDS
057732,000518: 11,3257           45271                           DDV      DSU                                   #           .01(ABVAL(RCV))
057733,000519: 11,3260           00013                                    10D                                   
057734,000520: 11,3261           27762                                    RECRATIO                              
057735,000521: 11,3262           77244                           BPL      VLOAD                                 
057736,000522: 11,3263           23273                                    CALLRECT                              
057737,000523: 11,3264           01527                                    TNUV                                  
057738,000524: 11,3265           45246                           ABVAL    DSU                                   
057739,000525: 11,3266           23761                                    3/4                                   
057740,000526: 11,3267           77600                           BOV                                            
057741,000527: 11,3270           23273                                    CALLRECT                              
057742,000528: 11,3271           77640                           BMN                                            
057743,000529: 11,3272           23275                                    INTGRATE                              
057744,000530: 11,3273           77624        CALLRECT           CALL                                           
057745,000531: 11,3274           23420                                    RECTIFY                               
057746,000532: 11,3275           77775        INTGRATE           VLOAD                                          
057747,000533: 11,3276           01527                                    TNUV                                  
057748,000534: 11,3277           24763                           STOVL    ZV                                    
057749,000535: 11,3300           01521                                    TDELTAV                               
057750,000536: 11,3301           00755                           STORE    YV                                    
057751,000537: 11,3302           77614                           CLEAR                                          
057752,000538: 11,3303           00261                                    JSWITCH                               
057753,000539: 11,3304           66375        DIFEQ0             VLOAD    SSP                                   
057754,000540: 11,3305           00755                                    YV                                    
057755,000541: 11,3306           01501                                    DIFEQCNT                              
057756,000542: 11,3307           00000                                    0                                     
057757,000543: 11,3310           16152                           STODL    ALPHAV                                
057758,000544: 11,3311           11762                                    DPZERO                                
057759,000545: 11,3312           02212                           STORE    H                                     #  START H AT ZERO. GOES 0(DELT/2)DELT.
057760,000546: 11,3313           52014                           BON      GOTO                                  
057761,000547: 11,3314           00301                                    JSWITCH                               
057762,000548: 11,3315           23664                                    DOW..                                 
057763,000549: 11,3316           22456                                    ACCOMP                                
057764,000550: 
057765,000551: 11,3317           43020        CHKSWTCH           STQ      BOF                                   
057766,000552: 11,3320           02267                                    ORIGEX                                
057767,000553: 11,3321           04340                                    RPQFLAG                               
057768,000554: 11,3322           23332                                    RPQOK                                 #  MOON POSITION IS AVAILABLE
057769,000555: 11,3323           45145                           DLOAD    CALL                                  
057770,000556: 11,3324           01517                                    TET                                   
057771,000557: 11,3325           54141                                    LUNPOS                                #  GET MOON POSITION
057772,000558: 11,3326           57414                           BOF      VCOMP                                 
057773,000559: 11,3327           00343                                    MOONFLAG                              
057774,000560: 11,3330           23331                                    +1                                    
057775,000561: 11,3331           02262                           STORE    RPQV                                  
057776,000562: 11,3332           77354        RPQOK              LXA,2    VLOAD                                 #  RESTORE X2 AFTER USING LUNPOS
057777,000563: 11,3333           02150                                    PBODY                                 
057778,000564: 11,3334           01521                                    TDELTAV                               #   -
057779,000565: 11,3335           53257                           VSL*     VAD                                   #  |RQC|-RSPHERE WHEN OUTSIDE THE SPHERE.

Page 1345

057781,000567: 11,3336           57605                                    0          -7,2                       #  -   -            -
057782,000568: 11,3337           01535                                    RCV                                   #  R = RDEVIATION + RCONIC
057783,000569: 11,3340           51414                           BOF      ABVAL                                 
057784,000570: 11,3341           00343                                    MOONFLAG                              
057785,000571: 11,3342           23347                                    EARSPH                                
057786,000572: 11,3343           44302                           SR2      BDSU                                  #  INSIDE
057787,000573: 11,3344           27764                                    RSPHERE                               
057788,000574: 11,3345           77650                           GOTO                                           
057789,000575: 11,3346           02267                                    ORIGEX                                
057790,000576: 11,3347           51451        EARSPH             VSU      ABVAL                                 #  OUTSIDE
057791,000577: 11,3350           02262                                    RPQV                                  
057792,000578: 11,3351           52025                           DSU      GOTO                                  
057793,000579: 11,3352           27764                                    RSPHERE                               
057794,000580: 11,3353           02267                                    ORIGEX                                
057795,000581: 11,3354           77624        DOSWITCH           CALL                                           
057796,000582: 11,3355           23360                                    ORIGCHNG                              
057797,000583: 11,3356           77650                           GOTO                                           
057798,000584: 11,3357           23275                                    INTGRATE                              
057799,000585: 11,3360           45020        ORIGCHNG           STQ      CALL                                  
057800,000586: 11,3361           02267                                    ORIGEX                                
057801,000587: 11,3362           23420                                    RECTIFY                               
057802,000588: 11,3363           53775                           VLOAD    VSL*                                  
057803,000589: 11,3364           01535                                    RCV                                   
057804,000590: 11,3365           57576                                    0,2                                   
057805,000591: 11,3366           53651                           VSU      VSL*                                  
057806,000592: 11,3367           02262                                    RPQV                                  
057807,000593: 11,3370           57574                                    2,2                                   
057808,000594: 11,3371           01503                           STORE    RRECT                                 
057809,000595: 11,3372           15535                           STODL    RCV                                   
057810,000596: 11,3373           01517                                    TET                                   
057811,000597: 11,3374           77624                           CALL                                           
057812,000598: 11,3375           54144                                    LUNVEL                                
057813,000599: 11,3376           57414                           BOF      VCOMP                                 
057814,000600: 11,3377           00343                                    MOONFLAG                              
057815,000601: 11,3400           23401                                    +1                                    
057816,000602: 11,3401           53715                           PDVL     VSL*                                  
057817,000603: 11,3402           01543                                    VCV                                   
057818,000604: 11,3403           57576                                    0,2                                   
057819,000605: 11,3404           77651                           VSU                                            
057820,000606: 11,3405           77657                           VSL*                                           
057821,000607: 11,3406           57574                                    0          +2,2                       
057822,000608: 11,3407           01511                           STORE    VRECT                                 
057823,000609: 11,3410           01543                           STORE    VCV                                   
057824,000610: 11,3411           67154                           LXA,2    SXA,2                                 
057825,000611: 11,3412           02267                                    ORIGEX                                
057826,000612: 11,3413           00052                                    QPRET                                 
057827,000613: 11,3414           52014                           BON      GOTO                                  
057828,000614: 11,3415           00303                                    MOONFLAG                              
057829,000615: 11,3416           27011                                    CLRMOON                               
057830,000616: 11,3417           27016                                    SETMOON                               
057831,000617: 

Page 1346

057833,000619: 
057834,000620:                                                                                                  #  THE RECTIFY SUBROUTINE IS CALLED BY THE INTEGRATION PROGRAM AND OCCASIONALLY BY THE MEASUREMENT INCORPORATION
057835,000621:                                                                                                  #  ROUTINES TO ESTABLISH A NEW CONIC.
057836,000622: 
057837,000623: 11,3420           77354        RECTIFY            LXA,2    VLOAD                                 
057838,000624: 11,3421           02150                                    PBODY                                 
057839,000625: 11,3422           01521                                    TDELTAV                               
057840,000626: 11,3423           53257                           VSL*     VAD                                   
057841,000627: 11,3424           57605                                    0          -7,2                       
057842,000628: 11,3425           01535                                    RCV                                   
057843,000629: 11,3426           01503                           STORE    RRECT                                 
057844,000630: 11,3427           25535                           STOVL    RCV                                   
057845,000631: 11,3430           01527                                    TNUV                                  
057846,000632: 11,3431           53257                           VSL*     VAD                                   
057847,000633: 11,3432           57602                                    0          -4,2                       
057848,000634: 11,3433           01543                                    VCV                                   
057849,000635: 11,3434           01511        MINIRECT           STORE    VRECT                                 
057850,000636: 11,3435           25543        TINIRECT           STOVL    VCV                                   
057851,000637: 11,3436           11762                                    ZEROVEC                               
057852,000638: 11,3437           01521                           STORE    TDELTAV                               
057853,000639: 11,3440           15527                           STODL    TNUV                                  
057854,000640: 11,3441           11762                                    ZEROVEC                               
057855,000641: 11,3442           01551                           STORE    TC                                    
057856,000642: 11,3443           01553                           STORE    XKEP                                  
057857,000643: 11,3444           77616                           RVQ                                            
057858,000644: 

Page 1347

057860,000646: 
057861,000647:                                                                                                  #  THE THREE DIFEQ ROUTINES - DIFEQ+0, DIFEQ+12, AND DIFEQ+24 - ARE ENTEREDTO PROCESS THE CONTRIBUTIONS AT THE
057862,000648:                                                                                                  #  BEGINNING, MIDDLE, AND END OF THE TIMESTEP, RESPECTIVELY. THE UPDATING IS DONE BY THE NYSTROM METHOD.
057863,000649: 
057864,000650: 11,3445           64575        DIFEQ+0            VLOAD    VSR3                                  
057865,000651: 11,3446           02202                                    FV                                    
057866,000652: 11,3447           36166                           STCALL   PHIV                                  
057867,000653: 11,3450           23625                                    DIFEQCOM                              
057868,000654: 11,3451           74575        DIFEQ+1            VLOAD    VSR1                                  
057869,000655: 11,3452           02202                                    FV                                    
057870,000656: 11,3453           53206                           PUSH     VAD                                   
057871,000657: 11,3454           02166                                    PHIV                                  
057872,000658: 11,3455           26174                           STOVL    PSIV                                  
057873,000659: 11,3456           53362                           VSR1     VAD                                   
057874,000660: 11,3457           02166                                    PHIV                                  
057875,000661: 11,3460           36166                           STCALL   PHIV                                  
057876,000662: 11,3461           23625                                    DIFEQCOM                              
057877,000663: 11,3462           57345        DIFEQ+2            DLOAD    DMPR                                  
057878,000664: 11,3463           02212                                    H                                     
057879,000665: 11,3464           23771                                    DP2/3                                 
057880,000666: 11,3465           74206                           PUSH     VXSC                                  
057881,000667: 11,3466           02166                                    PHIV                                  
057882,000668: 11,3467           53372                           VSL1     VAD                                   
057883,000669: 11,3470           00763                                    ZV                                    
057884,000670: 11,3471           53361                           VXSC     VAD                                   
057885,000671: 11,3472           02212                                    H                                     
057886,000672: 11,3473           00755                                    YV                                    
057887,000673: 11,3474           24755                           STOVL    YV                                    
057888,000674: 11,3475           02202                                    FV                                    
057889,000675: 11,3476           53322                           VSR3     VAD                                   
057890,000676: 11,3477           02174                                    PSIV                                  
057891,000677: 11,3500           76561                           VXSC     VSL1                                  
057892,000678: 11,3501           77655                           VAD                                            
057893,000679: 11,3502           00763                                    ZV                                    
057894,000680: 11,3503           00763                           STORE    ZV                                    
057895,000681: 11,3504           45014                           BOFF     CALL                                  
057896,000682: 11,3505           00341                                    JSWITCH                               
057897,000683: 11,3506           23556                                    ENDSTATE                              
057898,000684: 11,3507           22327                                    GRP2PC                                
057899,000685: 11,3510           77354                           LXA,2    VLOAD                                 
057900,000686: 11,3511           00770                                    COLREG                                
057901,000687: 11,3512           00763                                    ZV                                    
057902,000688: 11,3513           77732                           VSL3                                           #  ADJUST W-POSITION FOR STORAGE
057903,000689: 11,3514           12467                           STORE    W          +54D,2                     
057904,000690: 11,3515           77775                           VLOAD                                          
057905,000691: 11,3516           00755                                    YV                                    
057906,000692: 11,3517           40132                           VSL3     BOV                                   
057907,000693: 11,3520           23650                                    WMATEND                               
057908,000694: 11,3521           12401                           STORE    W,2                                   
057909,000695: 
057910,000696: 11,3522           77624                           CALL                                           
057911,000697: 11,3523           22327                                    GRP2PC                                

Page 1348

057913,000699: 11,3524           66354                           LXA,2    SSP                                   
057914,000700: 11,3525           00770                                    COLREG                                
057915,000701: 11,3526           00052                                    S2                                    
057916,000702: 11,3527           00000                                    0                                     
057917,000703: 11,3530           67114                           INCR,2   SXA,2                                 
057918,000704: 11,3531           00006                                    6                                     
057919,000705: 11,3532           00754                                    YV                                    
057920,000706: 11,3533           45104                           TIX,2    CALL                                  
057921,000707: 11,3534           23621                                    RELOADSV                              
057922,000708: 11,3535           22327                                    GRP2PC                                
057923,000709: 11,3536           67154                           LXA,2    SXA,2                                 
057924,000710: 11,3537           00754                                    YV                                    
057925,000711: 11,3540           00770                                    COLREG                                
057926,000712: 
057927,000713: 11,3541           77624        NEXTCOL            CALL                                           
057928,000714: 11,3542           22327                                    GRP2PC                                
057929,000715: 11,3543           76754                           LXA,2    VLOAD*                                
057930,000716: 11,3544           00770                                    COLREG                                
057931,000717: 11,3545           75376                                    W,2                                   
057932,000718: 11,3546           77722                           VSR3                                           #  ADJUST W-POSITION FOR INTEGRATION
057933,000719: 11,3547           00755                           STORE    YV                                    
057934,000720: 11,3550           76173                           VLOAD*   AXT,1                                 
057935,000721: 11,3551           75310                                    W          +54D,2                     
057936,000722: 11,3552           00000                                    0                                     
057937,000723: 11,3553           77722                           VSR3                                           #  ADJUST W-VELOCITY FOR INTEGRATION
057938,000724: 11,3554           34763                           STCALL   ZV                                    
057939,000725: 11,3555           23304                                    DIFEQ0                                
057940,000726: 
057941,000727: 11,3556           77200        ENDSTATE           BOV      VLOAD                                 
057942,000728: 11,3557           22726                                    GOBAQUE                               
057943,000729: 11,3560           00763                                    ZV                                    
057944,000730: 11,3561           25527                           STOVL    TNUV                                  
057945,000731: 11,3562           00755                                    YV                                    
057946,000732: 11,3563           01521                           STORE    TDELTAV                               
057947,000733: 11,3564           43014                           BON      BOFF                                  
057948,000734: 11,3565           04715                                    MIDAVFLG                              
057949,000735: 11,3566           27656                                    CKMID2                                #  CHECK FOR MID2 BEFORE GOING TO TIMEINC
057950,000736: 11,3567           01756                                    DIM0FLAG                              
057951,000737: 11,3570           27364                                    TESTLOOP                              
057952,000738: 11,3571           77776                           EXIT                                           
057953,000739: 11,3572           05402                           TC       PHASCHNG                              
057954,000740: 11,3573           04022                           OCT      04022                                 #  PHASE 1
057955,000741: 11,3574           05547                           TC       UPFLAG                                #  PHASE CHANGE HAS OCCURRED BETWEEN
057956,000742: 11,3575           00230                           ADRES    REINTFLG                              #  INTSTALL AND INTWAKE
057957,000743: 11,3576           06006                           TC       INTPRET                               
057958,000744: 11,3577           77731                           SSP                                            
057959,000745: 11,3600           00053                                    QPRET                                 
057960,000746: 11,3601           23606                                    AMOVED                                
057961,000747: 11,3602           52014                           BON      GOTO                                  
057962,000748: 11,3603           01714                                    VINTFLAG                              

Page 1349

057964,000750: 11,3604           26761                                    ATOPCSM                               
057965,000751: 11,3605           27034                                    ATOPLEM                               
057966,000752: 11,3606           66214        AMOVED             SET      SSP                                   
057967,000753: 11,3607           00061                                    JSWITCH                               
057968,000754: 11,3610           00771                                    COLREG                                
057969,000755: 11,3611           77741                           DEC      -30        B-14                       
057970,000756: 11,3612           66214                           BOFF     SSP                                   
057971,000757: 11,3613           01755                                    D6OR9FLG                              
057972,000758: 11,3614           23541                                    NEXTCOL                               
057973,000759: 11,3615           00771                                    COLREG                                
057974,000760: 11,3616           77717                           DEC      -48        B-14                       
057975,000761: 11,3617           77650                           GOTO                                           
057976,000762: 11,3620           23541                                    NEXTCOL                               
057977,000763: 
057978,000764: 
057979,000765: 11,3621           77745        RELOADSV           DLOAD                                          #  RELOAD TEMPORARY STATE VECTOR
057980,000766: 11,3622           00745                                    TDEC                                  #  FROM PERMANENT IN CASE OF
057981,000767: 11,3623           34041                           STCALL   TDEC1                                 
057982,000768: 11,3624           27243                                    INTEGRV2                              #  BY STARTING AT INTEGRV2.
057983,000769: 11,3625           43345        DIFEQCOM           DLOAD    DAD                                   #  INCREMENT H AND DIFEQCNT.
057984,000770: 11,3626           02305                                    DT/2                                  
057985,000771: 11,3627           02212                                    H                                     
057986,000772: 11,3630           66110                           INCR,1   SXA,1                                 
057987,000773: 11,3631           77763                           DEC      -12        B-14                       
057988,000774: 11,3632           01500                                    DIFEQCNT                              #  DIFEQCNT SET FOR NEXT ENTRY.
057989,000775: 11,3633           02212                           STORE    H                                     
057990,000776: 11,3634           74561                           VXSC     VSR1                                  
057991,000777: 11,3635           02202                                    FV                                    
057992,000778: 11,3636           74255                           VAD      VXSC                                  
057993,000779: 11,3637           00763                                    ZV                                    
057994,000780: 11,3640           02212                                    H                                     
057995,000781: 11,3641           77655                           VAD                                            
057996,000782: 11,3642           00755                                    YV                                    
057997,000783: 11,3643           02152                           STORE    ALPHAV                                
057998,000784: 11,3644           52014                           BON      GOTO                                  
057999,000785: 11,3645           00301                                    JSWITCH                               
058000,000786: 11,3646           23664                                    DOW..                                 
058001,000787: 11,3647           22436                                    FBR3                                  
058002,000788: 
058003,000789: 11,3650           43014        WMATEND            CLEAR    CLEAR                                 
058004,000790: 11,3651           01676                                    DIM0FLAG                              #  DONT INTEGRATE W THIS TIME
058005,000791: 11,3652           01671                                    ORBWFLAG                              #  INVALIDATE W
058006,000792: 11,3653           77614                           CLEAR                                          
058007,000793: 11,3654           02676                                    RENDWFLG                              
058008,000794: 11,3655           77414                           SET      EXIT                                  
058009,000795: 11,3656           01472                                    STATEFLG                              #  PICK UP STATE VECTOR UPDATE
058010,000796: 11,3657           05671                           TC       ALARM                                 
058011,000797: 11,3660           00421                           OCT      421                                   
058012,000798: 11,3661           06006                           TC       INTPRET                               

Page 1350

058014,000800: 11,3662           77650                           GOTO                                           
058015,000801: 11,3663           27364                                    TESTLOOP                              #  FINISH INTEGRATING STATE VECTOR
058016,000802: 

Page 1351

058018,000804: 
058019,000805:                                                                                                  #  ORBITAL ROUTINE FOR EXTRAPOLATION OF THE W MATRIX. IT COMPUTES THE SECOND DERIVATIVE OF EACH COLUMN POSITION
058020,000806:                                                                                                  #  VECTOR OF THE MATRIX AND CALLS THE NYSTROM INTEGRATION ROUTINES TO SOLVE THE DIFFERENTIAL EQUATIONS. THE PROGRAM
058021,000807:                                                                                                  #  USES A TABLE OF VEHICLE POSITION VECTORS COMPUTED DURING THE INTEGRATION OF THE VEHICLES POSITION AND VELOCITY.
058022,000808: 
058023,000809: 11,3664           70754        DOW..              LXA,2    DLOAD*                                
058024,000810: 11,3665           02150                                    PBODY                                 
058025,000811: 11,3666           50037                                    MUEARTH,2                             
058026,000812: 11,3667           36210                           STCALL   BETAM                                 
058027,000813: 11,3670           23712                                    DOW..1                                
058028,000814: 11,3671           02202                           STORE    FV                                    
058029,000815: 11,3672           62014                           BOF      INCR,1                                
058030,000816: 11,3673           00342                                    MIDFLAG                               
058031,000817: 11,3674           23212                                    NBRANCH                               
058032,000818: 11,3675           77771                           DEC      -6         B-14                       
058033,000819: 11,3676           70744                           LXC,2    DLOAD*                                
058034,000820: 11,3677           02150                                    PBODY                                 
058035,000821: 11,3700           50041                                    MUEARTH    -2,2                       
058036,000822: 11,3701           36210                           STCALL   BETAM                                 
058037,000823: 11,3702           23712                                    DOW..1                                
058038,000824: 11,3703           50414                           BON      VSR6                                  
058039,000825: 11,3704           00303                                    MOONFLAG                              
058040,000826: 11,3705           23706                                    +1                                    
058041,000827: 11,3706           77655                           VAD                                            
058042,000828: 11,3707           02202                                    FV                                    
058043,000829: 11,3710           36202                           STCALL   FV                                    
058044,000830: 11,3711           23212                                    NBRANCH                               
058045,000831: 11,3712           60575        DOW..1             VLOAD    VSR4                                  
058046,000832: 11,3713           02152                                    ALPHAV                                
058047,000833: 11,3714           53513                           PDVL*    UNIT                                  
058048,000834: 11,3715           02216                                    VECTAB,1                              
058049,000835: 11,3716           46315                           PDVL     VPROJ                                 
058050,000836: 11,3717           02152                                    ALPHAV                                
058051,000837: 11,3720           52361                           VXSC     VSU                                   
058052,000838: 11,3721           23761                                    3/4                                   
058053,000839: 11,3722           60325                           PDDL     NORM                                  
058054,000840: 11,3723           00045                                    36D                                   
058055,000841: 11,3724           00052                                    S2                                    
058056,000842: 11,3725           63406                           PUSH     DSQ                                   
058057,000843: 11,3726           77605                           DMP                                            
058058,000844: 11,3727           65301                           NORM     PDDL                                  
058059,000845: 11,3730           00043                                    34D                                   
058060,000846: 11,3731           02210                                    BETAM                                 
058061,000847: 11,3732           56342                           SR1      DDV                                   
058062,000848: 11,3733           77761                           VXSC                                           
058063,000849: 11,3734           57154                           LXA,2    XAD,2                                 
058064,000850: 11,3735           00051                                    S2                                    
058065,000851: 11,3736           00051                                    S2                                    
058066,000852: 11,3737           57074                           XAD,2    XAD,2                                 
058067,000853: 11,3740           00051                                    S2                                    
058068,000854: 11,3741           00042                                    34D                                   
058069,000855: 11,3742           43457                           VSL*     RVQ                                   

Page 1352

058071,000857: 11,3743           57606                                    0          -8D,2                      
058072,000858: 
058073,000859: 11,2000                                           SETLOC   ORBITAL1                              
058074,000860: 11,2000                                           BANK                                           
058075,000861: 
058076,000862: 11,3744                                           COUNT*   $$/ORBIT                              
058077,000863: 11,3744           04631 23146  3/5                2DEC     .6         B-2                        
058078,000864: 
058079,000865: 11,3746           14000 00000  THREE/8            2DEC     .375                                  
058080,000866: 
058081,000867: 11,3750           02314 31463  .3D                2DEC     .3         B-2                        
058082,000868: 
058083,000869: 11,3752           01400 00000  3/64               2DEC     3          B-6                        
058084,000870: 
058085,000871: 11,3754  15,3411               DP1/4              =        D1/4                                  #  1 B-2
058086,000872: 11,3754  15,3411               DQUARTER           EQUALS   DP1/4                                 
058087,000873: 11,3754           03000 00000  3/32               2DEC     3          B-5                        
058088,000874: 
058089,000875: 11,3756           36000 00000  15/16              2DEC     15.        B-4                        
058090,000876: 
058091,000877: 11,3760           30000 00000  3/4                2DEC     3.0        B-2                        
058092,000878: 
058093,000879: 11,3762           22525 12525  7/12               2DEC     .5833333333                            
058094,000880: 
058095,000881: 11,3764           22000 00000  9/16               2DEC     9          B-4                        
058096,000882: 
058097,000883: 11,3766           01200 00000  5/128              2DEC     5          B-7                        
058098,000884: 
058099,000885: 11,3770  04,3761               DPZERO             EQUALS   ZEROVEC                               
058100,000886: 11,3770           25252 25253  DP2/3              2DEC     .6666666667                            
058101,000887: 
058102,000888: 11,3772  11,3770               2/3                EQUALS   DP2/3                                 
058103,000889:                                                                                                  #  LM504 IS TEMPORARY
058104,000890: 13,2000                                           SETLOC   ORBITAL2                              
058105,000891: 13,2000                                           BANK                                           
058106,000892: 13,3717                                           COUNT*   $$/ORBIT                              
058107,000893:                                                                                                  #  IT IS VITAL THAT THE FOLLOWING CONSTANTS NOT BE SHUFFLED
058108,000894: 13,3717           77764                           DEC      -11        B-14                       
058109,000895: 13,3720           77775                           DEC      -2         B-14                       
058110,000896: 13,3721           77766                           DEC      -9         B-14                       
058111,000897: 13,3722           77771                           DEC      -6         B-14                       
058112,000898: 13,3723           77775                           DEC      -2         B-14                       
058113,000899: 13,3724           77775                           DEC      -2         B-14                       
058114,000900: 13,3725           00000                           DEC      0          B-14                       
058115,000901: 13,3726           77763                           DEC      -12        B-14                       
058116,000902: 13,3727           77766                           DEC      -9         B-14                       
058117,000903: 13,3730           77773                           DEC      -4         B-14                       
058118,000904: 13,3731           77770        ASCALE             DEC      -7         B-14                       
058119,000905: 13,3732           77771                           DEC      -6         B-14                       
058120,000906: 13,3733           27446 14620                     2DEC*    1.32715445 E16        B-54*           #  S
058121,000907: 

Page 1353

058123,000909: 13,3735           16471 01352                     2DEC*    4.9027780  E8         B-30*           #  M
058124,000910: 
058125,000911: 13,3737           22437 16067  MUEARTH            2DEC*    3.986032   E10        B-36*           
058126,000912: 
058127,000913: 13,3741           00000 00000                     2DEC     0          B-28                       
058128,000914: 
058129,000915: 13,3743           02302 24736  J4REQ/J3           2DEC*    .4991607391 E7         B-26*           
058130,000916: 
058131,000917: 13,3745           77651 76237                     2DEC     -176236.02 B-25                       
058132,000918: 
058133,000919: 13,3747           77776 53032  2J3RE/J2           2DEC*    -.1355426363 E5         B-27*           
058134,000920: 
058135,000921: 13,3751           10407 05344                     2DEC*    .3067493316 E18        B-60*           
058136,000922: 
058137,000923: 13,3753           13710 35320  J2REQSQ            2DEC*    1.75501139 E21        B-72*           
058138,000924: 
058139,000925: 13,3755           24000 00000  5/8                2DEC     5          B-3                        
058140,000926: 
058141,000927: 13,3757           74631 63145  -1/12              2DEC     -.1                                   
058142,000928: 
058143,000929: 13,3761  13,3735               MUM                =        MUEARTH    -2                         
058144,000930: 13,3761           00243 32703  RECRATIO           2DEC     .01                                   
058145,000931: 
058146,000932: 13,3763           03654 21000  RSPHERE            2DEC     64373.76   E3         B-29            
058147,000933: 
058148,000934: 13,3765           03654 21000  RDM                2DEC     16093.44   E3         B-27            
058149,000935: 
058150,000936: 13,3767           04627 25200  RDE                2DEC     80467.20   E3         B-29            
058151,000937: 
058152,000938: 13,3771                        RATT               EQUALS   00                                    
058153,000939: 13,3771                        VATT               EQUALS   6D                                    
058154,000940: 13,3771                        TAT                EQUALS   12D                                   
058155,000941: 13,3771                        RATT1              EQUALS   14D                                   
058156,000942: 13,3771                        VATT1              EQUALS   20D                                   
058157,000943: 13,3771                        MU(P)              EQUALS   26D                                   
058158,000944: 13,3771                        TDEC1              EQUALS   32D                                   
058159,000945: 13,3771                        URPV               EQUALS   14D                                   
058160,000946: 13,3771     0022               COSPHI/2           EQUALS   URPV       +4                         
058161,000947: 13,3771                        UZ                 EQUALS   20D                                   
058162,000948: 13,3771                        TVEC               EQUALS   26D                                   

End of include-file ORBITAL_INTEGRATION.agc.  Parent file is MAIN.agc