Source Code

These source-code files are part of a reconstructed copy of Comanche 44, the initial release (though not the final mission release) of the Apollo 10 Command Module (CM) Apollo Guidance Computer (AGC) software. Subsequent releases were Comanche 45 and Comanche 45/2 (the flown release on Apollo 10). The reconstruction is believed to be exactly accurate, but in the absence of an actual Apollo-era listing of Comanche 44, some explanation of the reconstruction process is needed to insure confidence in that accuracy.

The starting point was the source code of Comanche 51 (separately previously reconstructed from an Apollo-era listing of Comanche 55, flown on Apollo 11). Comanche 51 source code was then modified by undoing changes known to have been made between revisions 44 and 51. The now-reconstructed Comanche 44 source code was verified by assembling it and checking that the assembled code had the expected known-correct memory-bank checksums. Note that page numbers in the reconstructed code match those on the Comanche 55 printout, although the source code would likely have different page numbers in a contemporary Comanche 44 listing.

Annotations that were not present in the contemporary source code have been added to the reconstructed code to justify each change relative to Comanche 51. Here's a guide to the Apollo documentation referenced in those annotations:
In most cases, only the titles (rather than the full texts) of PCRs are known. In addition to the explanatory annotations, there is also a step-by-step commentary about the reconstruction process.

Comments expected to have been present in the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". Report any errors noted by creating an issue report at the Virtual AGC Project's GitHub repository.

057290,000002:                                                                                                  ## Copyright:   Public domain.
057291,000003:                                                                                                  ## Filename:    ORBITAL_INTEGRATION.agc
057292,000004:                                                                                                  ## Purpose:     A section of Comanche revision 044.
057293,000005:                                                                                                  ##              It is part of the reconstructed source code for the
057294,000006:                                                                                                  ##              original release of the flight software for the Command
057295,000007:                                                                                                  ##              Module's (CM) Apollo Guidance Computer (AGC) for Apollo 10.
057296,000008:                                                                                                  ##              The code has been recreated from a copy of Comanche 055. It
057297,000009:                                                                                                  ##              has been adapted such that the resulting bugger words
057298,000010:                                                                                                  ##              exactly match those specified for Comanche 44 in NASA drawing
057299,000011:                                                                                                  ##              2021153D, which gives relatively high confidence that the
057300,000012:                                                                                                  ##              reconstruction is correct.
057301,000013:                                                                                                  ## Assembler:   yaYUL
057302,000014:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
057303,000015:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
057304,000016:                                                                                                  ## Mod history: 2020-12-03 MAS  Created from Comanche 51.
057305,000017: 

Page 1334

057307,000019:                                                                                                  #  DELETE
057308,000020: 13,3714                                           BANK     13                                    
057309,000021: 11,2000                                           SETLOC   ORBITAL                               
057310,000022: 11,2000                                           BANK                                           
057311,000023: 11,2372                                           COUNT    11/ORBIT                              
057312,000024: 
057313,000025:                                                                                                  #  DELETE
057314,000026: 11,2372           40354        KEPPREP            LXA,2    SETPD                                 
057315,000027: 11,2373           02150                                    PBODY                                 
057316,000028: 11,2374           00001                                    0                                     
057317,000029: 11,2375           75543                           DLOAD*   SQRT                                  #  SQRT(MU) (+18 OR +15)         0D      PL 2D
057318,000030: 11,2376           50042                                    MUEARTH,2                             
057319,000031: 11,2377           53515                           PDVL     UNIT                                  #                                        PL 8D
057320,000032: 11,2400           01535                                    RCV                                   
057321,000033: 11,2401           60325                           PDDL     NORM                                  #  NORM R (+29 OR +27 - N1)      2D      PL 4D
057322,000034: 11,2402           00045                                    36D                                   
057323,000035: 11,2403           00047                                    X1                                    
057324,000036: 11,2404           77715                           PDVL                                           
057325,000037: 11,2405           65241                           DOT      PDDL                                  #  F*SQRT(MU) (+7 OR +5)         4D      PL 6D
057326,000038: 11,2406           01543                                    VCV                                   
057327,000039: 11,2407           02312                                    TAU.                                  #  (+28)
057328,000040: 11,2410           60225                           DSU      NORM                                  
057329,000041: 11,2411           01551                                    TC                                    
057330,000042: 11,2412           00051                                    S1                                    
057331,000043: 11,2413           77742                           SR1                                            
057332,000044: 11,2414           65271                           DDV      PDDL                                  
057333,000045: 11,2415           00003                                    2D                                    
057334,000046: 11,2416           41405                           DMP      PUSH                                  #  FS (+6 +N1-N2)                6D      PL 8D
057335,000047: 11,2417           00005                                    4D                                    
057336,000048: 11,2420           65316                           DSQ      PDDL                                  #  (FS)SQ (+12 +2(N1-N2))        8D      PL 10D
057337,000049: 11,2421           00005                                    4D                                    
057338,000050: 11,2422           64716                           DSQ      PDDL*                                 #  SSQ/MU (-2 OR +2(N1-N2))      10D     PL 12D
057339,000051: 11,2423           50042                                    MUEARTH,2                             
057340,000052: 11,2424           40442                           SR3      SR4                                   
057341,000053: 11,2425           47515                           PDVL     VSQ                                   #  PREALIGN MU (+43 OR +37)      12D     PL 14D
057342,000054: 11,2426           01543                                    VCV                                   
057343,000055: 11,2427           44205                           DMP      BDSU                                  #                                        PL 12D
057344,000056: 11,2430           00045                                    36D                                   
057345,000057: 11,2431           41271                           DDV      DMP                                   #                                        PL 10D
057346,000058: 11,2432           00003                                    2D                                    #  -(1/R-ALPHA) (+12 +3N1-2N2)
057347,000059: 11,2433           53605                           DMP      SL*                                   
057348,000060: 11,2434           23774                                    DP2/3                                 
057349,000061: 11,2435           20176                                    0          -3,1                       #  10L(1/R-ALPHA) (+13 +2(N1-N2))
057350,000062: 11,2436           43260                           XSU,1    DAD                                   #  2(FS)SQ - ETCETRA                     PL 8D
057351,000063: 11,2437           00050                                    S1                                    #  X1 = N2-N1
057352,000064: 11,2440           45257                           SL*      DSU                                   #  -FS+2(FS)SQ ETC (+6 +N1-N2)           PL 6D
057353,000065: 11,2441           20211                                    8D,1                                  
057354,000066: 11,2442           41205                           DMP      DMP                                   
057355,000067: 11,2443           00001                                    0D                                    
057356,000068: 11,2444           00005                                    4D                                    
057357,000069: 11,2445           53657                           SL*      SL*                                   

Page 1335

057359,000071: 11,2446           20211                                    8D,1                                  
057360,000072: 11,2447           20201                                    0,1                                   #  S(-FS(1-2FS)-1/6...) (+17 OR +16)
057361,000073: 11,2450           65215                           DAD      PDDL                                  #                                        PL 6D
057362,000074: 11,2451           01553                                    XKEP                                  
057363,000075: 11,2452           53605                           DMP      SL*                                   #  S(+17 OR +16)
057364,000076: 11,2453           00001                                    0D                                    
057365,000077: 11,2454           20202                                    1,1                                   
057366,000078: 11,2455           43204                           BOVB     DAD                                   
057367,000079: 11,2456           57352                                    TCDANZIG                              
057368,000080: 11,2457           77626                           STADR                                          
057369,000081: 11,2460           75471                           STORE    XKEPNEW                               
057370,000082: 11,2461           74020                           STQ      AXC,1                                 
057371,000083: 11,2462           02270                                    KEPRTN                                
057372,000084: 11,2463           00012                           DEC      10         B-14                       
057373,000085: 11,2464           74014                           BON      AXC,1                                 
057374,000086: 11,2465           00303                                    MOONFLAG                              
057375,000087: 11,2466           24042                                    KEPLERN                               
057376,000088: 11,2467           00002                           DEC      2          B-14                       
057377,000089: 11,2470           77650                           GOTO                                           
057378,000090: 11,2471           24042                                    KEPLERN                               
057379,000091: 

Page 1336

057381,000093: 11,2472           66350        FBR3               LXA,1    SSP                                   
057382,000094: 11,2473           01500                                    DIFEQCNT                              
057383,000095: 11,2474           00051                                    S1                                    
057384,000096: 11,2475           77762                           DEC      -13        B-14                       
057385,000097: 11,2476           54345                           DLOAD    SR                                    
057386,000098: 11,2477           02314                                    DT/2                                  
057387,000099: 11,2500           20612                                    9D                                    
057388,000100: 11,2501           61500                           TIX,1    ROUND                                 
057389,000101: 11,2502           22503                                    +1                                    
057390,000102: 11,2503           43206                           PUSH     DAD                                   
057391,000103: 11,2504           01551                                    TC                                    
057392,000104: 11,2505           16312                           STODL    TAU.                                  
057393,000105: 11,2506           77615                           DAD                                            
057394,000106: 11,2507           01517                                    TET                                   
057395,000107: 11,2510           35517                           STCALL   TET                                   
057396,000108: 11,2511           22372                                    KEPPREP                               
057397,000109: 

Page 1337

057399,000111:                                                                                                  #  AGC ROUTINE TO COMPUTE ACCELERATION COMPONENTS.
057400,000112: 
057401,000113: 11,2512           73150        ACCOMP             LXA,1    LXA,2                                 
057402,000114: 11,2513           02150                                    PBODY                                 
057403,000115: 11,2514           02150                                    PBODY                                 
057404,000116: 11,2515           77775                           VLOAD                                          
057405,000117: 11,2516           11563                                    ZEROVEC                               
057406,000118: 11,2517           26202                           STOVL    FV                                    
057407,000119: 11,2520           02152                                    ALPHAV                                
057408,000120: 11,2521           53257                           VSL*     VAD                                   
057409,000121: 11,2522           57605                                    0          -7,2                       
057410,000122: 11,2523           01535                                    RCV                                   
057411,000123: 11,2524           02160                           STORE    BETAV                                 
057412,000124: 11,2525           65014                           BOF      XCHX,2                                
057413,000125: 11,2526           01756                                    DIM0FLAG                              
057414,000126: 11,2527           22534                                    +5                                    
057415,000127: 11,2530           01500                                    DIFEQCNT                              
057416,000128: 11,2531           12217                           STORE    VECTAB,2                              
057417,000129: 11,2532           77724                           XCHX,2                                         
057418,000130: 11,2533           01500                                    DIFEQCNT                              
057419,000131: 11,2534           53575                           VLOAD    UNIT                                  
057420,000132: 11,2535           02152                                    ALPHAV                                
057421,000133: 11,2536           16152                           STODL    ALPHAV                                
057422,000134: 11,2537           00045                                    36D                                   
057423,000135: 11,2540           02310                           STORE    ALPHAM                                
057424,000136: 11,2541           77624                           CALL                                           
057425,000137: 11,2542           22636                                    GAMCOMP                               
057426,000138: 11,2543           66175                           VLOAD    SXA,1                                 
057427,000139: 11,2544           02160                                    BETAV                                 
057428,000140: 11,2545           00051                                    S2                                    
057429,000141: 11,2546           16152                           STODL    ALPHAV                                
057430,000142: 11,2547           02210                                    BETAM                                 
057431,000143: 11,2550           02310                           STORE    ALPHAM                                
057432,000144: 11,2551           71214                           BOF      DLOAD                                 
057433,000145: 11,2552           00342                                    MIDFLAG                               
057434,000146: 11,2553           23010                                    OBLATE                                
057435,000147: 11,2554           01517                                    TET                                   
057436,000148: 11,2555           77624                           CALL                                           
057437,000149: 11,2556           54110                                    LSPOS                                 
057438,000150: 11,2557           72174                           AXT,2    LXA,1                                 
057439,000151: 11,2560           00002                                    2                                     
057440,000152: 11,2561           00051                                    S2                                    
057441,000153: 11,2562           77614                           BOF                                            
057442,000154: 11,2563           00343                                    MOONFLAG                              
057443,000155: 11,2564           22567                                    +3                                    
057444,000156: 11,2565           77076                           VCOMP    AXT,2                                 
057445,000157: 11,2566           00000                                    0                                     
057446,000158: 11,2567           02160                           STORE    BETAV                                 
057447,000159: 11,2570           26263                           STOVL    RPQV                                  

Page 1338

057449,000161: 11,2571           00003                                    2D                                    
057450,000162: 11,2572           02300                           STORE    RPSV                                  
057451,000163: 11,2573           77214                           BOF      VLOAD                                 
057452,000164: 11,2574           01756                                    DIM0FLAG                              
057453,000165: 11,2575           22610                                    GETRPSV                               
057454,000166: 11,2576           02152                                    ALPHAV                                
057455,000167: 11,2577           53761                           VXSC     VSR*                                  
057456,000168: 11,2600           02310                                    ALPHAM                                
057457,000169: 11,2601           57175                                    1,2                                   
057458,000170: 11,2602           65051                           VSU      XCHX,2                                
057459,000171: 11,2603           02160                                    BETAV                                 
057460,000172: 11,2604           01500                                    DIFEQCNT                              
057461,000173: 11,2605           12225                           STORE    VECTAB     +6,2                       
057462,000174: 11,2606           77724                           XCHX,2                                         
057463,000175: 11,2607           01500                                    DIFEQCNT                              
057464,000176: 11,2610           62175        GETRPSV            VLOAD    INCR,1                                
057465,000177: 11,2611           02263                                    RPQV                                  
057466,000178: 11,2612           00004                                    4                                     
057467,000179: 11,2613           43014                           CLEAR    BOF                                   
057468,000180: 11,2614           04260                                    RPQFLAG                               
057469,000181: 11,2615           00343                                    MOONFLAG                              
057470,000182: 11,2616           22623                                    +5                                    
057471,000183: 11,2617           53261                           VSR      VAD                                   
057472,000184: 11,2620           20612                                    9D                                    
057473,000185: 11,2621           02300                                    RPSV                                  
057474,000186: 11,2622           02300                           STORE    RPSV                                  
057475,000187: 11,2623           77624                           CALL                                           
057476,000188: 11,2624           22636                                    GAMCOMP                               
057477,000189: 11,2625           62174                           AXT,2    INCR,1                                
057478,000190: 11,2626           00004                                    4                                     
057479,000191: 11,2627           00004                                    4                                     
057480,000192: 11,2630           77775                           VLOAD                                          
057481,000193: 11,2631           02300                                    RPSV                                  
057482,000194: 11,2632           36160                           STCALL   BETAV                                 
057483,000195: 11,2633           22636                                    GAMCOMP                               
057484,000196: 11,2634           77650                           GOTO                                           
057485,000197: 11,2635           23010                                    OBLATE                                
057486,000198: 11,2636           74575        GAMCOMP            VLOAD    VSR1                                  
057487,000199: 11,2637           02160                                    BETAV                                 
057488,000200: 11,2640           40236                           VSQ      SETPD                                 
057489,000201: 11,2641           00001                                    0                                     
057490,000202: 11,2642           61501                           NORM     ROUND                                 
057491,000203: 11,2643           00040                                    31D                                   
057492,000204: 11,2644           60325                           PDDL     NORM                                  #  NORMED B SQUARED TO PD LIST
057493,000205: 11,2645           02310                                    ALPHAM                                #  NORMALIZE (LESS ONE) LENGTH OF ALPHA
057494,000206: 11,2646           00041                                    32D                                   #  SAVING NORM SCALE FACTOR IN X1
057495,000207: 11,2647           63342                           SR1      PDVL                                  
057496,000208: 11,2650           02160                                    BETAV                                 #  C(PDL+2) = ALMOST NORMED ALPHA
057497,000209: 11,2651           77656                           UNIT                                           
057498,000210: 11,2652           16160                           STODL    BETAV                                 

Page 1339

057500,000212: 11,2653           00045                                    36D                                   
057501,000213: 11,2654           02210                           STORE    BETAM                                 
057502,000214: 11,2655           55301                           NORM     BDDV                                  #  FORM NORMALIZED QUOTIENT ALPHAM/BETAM
057503,000215: 11,2656           00042                                    33D                                   
057504,000216: 11,2657           41562                           SR1R     PUSH                                  #  C(PDL+2) = ALMOST NORMALIZED RHO.
057505,000217: 11,2660           77743                           DLOAD*                                         
057506,000218: 11,2661           27727                                    ASCALE,1                              
057507,000219: 11,2662           00051                           STORE    S1                                    
057508,000220: 11,2663           57124                           XCHX,2   XAD,2                                 
057509,000221: 11,2664           00050                                    S1                                    
057510,000222: 11,2665           00040                                    32D                                   
057511,000223: 11,2666           71264                           XSU,2    DLOAD                                 
057512,000224: 11,2667           00041                                    33D                                   
057513,000225: 11,2670           00003                                    2D                                    
057514,000226: 11,2671           65057                           SR*      XCHX,2                                
057515,000227: 11,2672           57177                                    0          -1,2                       
057516,000228: 11,2673           00050                                    S1                                    
057517,000229: 11,2674           74406                           PUSH     SR1R                                  #  RHO/4 TO 4D
057518,000230: 11,2675           50315                           PDVL     DOT                                   
057519,000231: 11,2676           02152                                    ALPHAV                                
057520,000232: 11,2677           02160                                    BETAV                                 
057521,000233: 11,2700           44372                           SL1R     BDSU                                  #  (RHO/4) - 2(ALPHAV/2.BETAV/2)
057522,000234: 11,2701           57206                           PUSH     DMPR                                  #  TO PDL+6
057523,000235: 11,2702           00005                                    4                                     
057524,000236: 11,2703           77752                           SL1                                            
057525,000237: 11,2704           43206                           PUSH     DAD                                   
057526,000238: 11,2705           23756                                    DQUARTER                              
057527,000239: 11,2706           75406                           PUSH     SQRT                                  
057528,000240: 11,2707           41475                           DMPR     PUSH                                  
057529,000241: 11,2710           00013                                    10D                                   
057530,000242: 11,2711           43352                           SL1      DAD                                   
057531,000243: 11,2712           23756                                    DQUARTER                              
057532,000244: 11,2713           43325                           PDDL     DAD                                   #  (1/4)+2((Q+1)/4)      TO PD+14D
057533,000245: 11,2714           00013                                    10D                                   
057534,000246: 11,2715           11561                                    HALFDP                                
057535,000247: 11,2716           72475                           DMPR     SL1                                   
057536,000248: 11,2717           00011                                    8D                                    
057537,000249: 11,2720           56215                           DAD      DDV                                   
057538,000250: 11,2721           23750                                    THREE/8                               
057539,000251: 11,2722           00017                                    14D                                   
057540,000252: 11,2723           74275                           DMPR     VXSC                                  
057541,000253: 11,2724           00007                                    6                                     
057542,000254: 11,2725           02160                                    BETAV                                 #                -
057543,000255: 11,2726           64515                           PDVL     VSR3                                  #  (G/2)(C(PD+4))B/2 TO PD+16D
057544,000256: 11,2727           02152                                    ALPHAV                                
057545,000257: 11,2730           41455                           VAD      PUSH                                  #  A12 + C(PD+16D) TO PD+16D
057546,000258: 11,2731           41345                           DLOAD    DMP                                   
057547,000259: 11,2732           00001                                    0                                     
057548,000260: 11,2733           00015                                    12D                                   #  -
057549,000261: 11,2734           61501                           NORM     ROUND                                 

Page 1340

057551,000263: 11,2735           00037                                    30D                                   
057552,000264: 11,2736           40665                           BDDV     DMP*                                  
057553,000265: 11,2737           00003                                    2                                     
057554,000266: 11,2740           50042                                    MUEARTH,2                             
057555,000267: 11,2741           74276                           DCOMP    VXSC                                  
057556,000268: 11,2742           57124                           XCHX,2   XAD,2                                 
057557,000269: 11,2743           00050                                    S1                                    
057558,000270: 11,2744           00051                                    S2                                    
057559,000271: 11,2745           55064                           XSU,2    XSU,2                                 
057560,000272: 11,2746           00036                                    30D                                   
057561,000273: 11,2747           00037                                    31D                                   
057562,000274: 11,2750           77600                           BOV                                            #  CLEAR OVIND
057563,000275: 11,2751           22752                                    +1                                    
057564,000276: 11,2752           65057                           VSR*     XCHX,2                                
057565,000277: 11,2753           57177                                    0          -1,2                       
057566,000278: 11,2754           00050                                    S1                                    
057567,000279: 11,2755           77655                           VAD                                            
057568,000280: 11,2756           02202                                    FV                                    
057569,000281: 11,2757           02202                           STORE    FV                                    
057570,000282: 11,2760           43400                           BOV      RVQ                                   #  RETURN IF NO OVERFLOW
057571,000283: 11,2761           22762                                    +1                                    
057572,000284: 11,2762           51575        GOBAQUE            VLOAD    ABVAL                                 
057573,000285: 11,2763           01521                                    TDELTAV                               
057574,000286: 11,2764           77654                           BZE                                            
057575,000287: 11,2765           23005                                    INT-ABRT                              
057576,000288: 11,2766           54345                           DLOAD    SR                                    
057577,000289: 11,2767           02212                                    H                                     
057578,000290: 11,2770           20612                                    9D                                    
057579,000291: 11,2771           44206                           PUSH     BDSU                                  
057580,000292: 11,2772           01551                                    TC                                    
057581,000293: 11,2773           16312                           STODL    TAU.                                  
057582,000294: 11,2774           01517                                    TET                                   
057583,000295: 11,2775           45425                           DSU      STADR                                 
057584,000296: 11,2776           42260                           STCALL   TET                                   
057585,000297: 11,2777           22372                                    KEPPREP                               
057586,000298: 11,3000           77624                           CALL                                           
057587,000299: 11,3001           23421                                    RECTIFY                               
057588,000300: 11,3002           77614                           SETGO                                          
057589,000301: 11,3003           04020                                    RPQFLAG                               
057590,000302: 11,3004           27305                                    TESTLOOP                              
057591,000303: 
057592,000304: 11,3005           77776        INT-ABRT           EXIT                                           
057593,000305: 11,3006           05721                           TC       POODOO                                
057594,000306: 11,3007           00430                           OCT      00430                                 
057595,000307: 

Page 1341

057597,000309:                                                                                                  #  THE OBLATE ROUTINE COMPUTES THE ACCELERATION DUE TO OBLATENESS.  IT USES THE UNIT OF THE VEHICLE
057598,000310:                                                                                                  #  POSITION VECTOR FOUND IN ALPHAV AND THE DISTANCE TO THE CENTER IN ALPHAM.  THIS IS ADDED TO THE SUM OF THE
057599,000311:                                                                                                  #  DISTURBING ACCELERATIONS IN FV AND THE PROPER DIFEQ STAGE IS CALLED VIA X1.
057600,000312: 
057601,000313: 11,3010           71354        OBLATE             LXA,2    DLOAD                                 
057602,000314: 11,3011           02150                                    PBODY                                 
057603,000315: 11,3012           02310                                    ALPHAM                                
057604,000316: 11,3013           44601                           SETPD    DSU*                                  
057605,000317: 11,3014           00001                                    0                                     
057606,000318: 11,3015           50010                                    RDE,2                                 
057607,000319: 11,3016           43044                           BPL      BOF                                   #  GET URPV
057608,000320: 11,3017           23220                                    NBRANCH                               
057609,000321: 11,3020           00343                                    MOONFLAG                              
057610,000322: 11,3021           23227                                    COSPHIE                               
057611,000323: 11,3022           65375                           VLOAD    PDDL                                  
057612,000324: 11,3023           02152                                    ALPHAV                                
057613,000325: 11,3024           01517                                    TET                                   
057614,000326: 11,3025           45125                           PDDL     CALL                                  
057615,000327: 11,3026           23746                                    3/5                                   
057616,000328: 11,3027           55371                                    R-TO-RP                               
057617,000329: 11,3030           00017                           STORE    URPV                                  
057618,000330: 11,3031           47375                           VLOAD    VXV                                   
057619,000331: 11,3032           02012                                    504LM                                 
057620,000332: 11,3033           11555                                    ZUNIT                                 
057621,000333: 11,3034           61255                           VAD      VXM                                   
057622,000334: 11,3035           11555                                    ZUNIT                                 
057623,000335: 11,3036           00025                                    MMATRIX                               
057624,000336: 11,3037           77656                           UNIT                                           #  POSSIBLY UNNECESSARY
057625,000337: 11,3040           00025        COMTERM            STORE    UZ                                    
057626,000338: 11,3041           57345                           DLOAD    DMPR                                  
057627,000339: 11,3042           00023                                    COSPHI/2                              
057628,000340: 11,3043           23760                                    3/32                                  
057629,000341: 11,3044           63525                           PDDL     DSQ                                   #  P2/64 TO PD0
057630,000342: 11,3045           00023                                    COSPHI/2                              
057631,000343: 11,3046           45275                           DMPR     DSU                                   
057632,000344: 11,3047           23762                                    15/16                                 
057633,000345: 11,3050           23754                                    3/64                                  
057634,000346: 11,3051           57206                           PUSH     DMPR                                  #  P3/32 TO PD2
057635,000347: 11,3052           00023                                    COSPHI/2                              
057636,000348: 11,3053           76405                           DMP      SL1R                                  
057637,000349: 11,3054           23766                                    7/12                                  
057638,000350: 11,3055           57325                           PDDL     DMPR                                  
057639,000351: 11,3056           00001                                    0                                     
057640,000352: 11,3057           23774                                    2/3                                   
057641,000353: 11,3060           41421                           BDSU     PUSH                                  #  P4/128 TO PD4
057642,000354: 11,3061           57275                           DMPR     DMPR                                  
057643,000355: 11,3062           00023                                    COSPHI/2                              #  BEGIN COMPUTING P5/1024
057644,000356: 11,3063           23770                                    9/16                                  
057645,000357: 11,3064           57325                           PDDL     DMPR                                  
057646,000358: 11,3065           00003                                    2                                     
057647,000359: 11,3066           23772                                    5/128                                 
057648,000360: 11,3067           77621                           BDSU                                           
057649,000361: 11,3070           77603                           DMP*                                           
057650,000362: 11,3071           50036                                    J4REQ/J3,2                            
057651,000363: 11,3072           43271                           DDV      DAD                                   #               -3
057652,000364: 11,3073           02310                                    ALPHAM                                #  (((P5/256)B 2  /R+P4/32)  /R+P3/8)ALPHAV
057653,000365: 11,3074           00005                                    4                                     #             4             3
057654,000366: 11,3075           56273                           DMPR*    DDV                                   
057655,000367: 11,3076           50032                                    2J3RE/J2,2                            
057656,000368: 11,3077           02310                                    ALPHAM                                
057657,000369: 11,3100           74215                           DAD      VXSC                                  
057658,000370: 11,3101           00003                                    2                                     
057659,000371: 11,3102           02152                                    ALPHAV                                
057660,000372: 11,3103           14033                           STODL    TVEC                                  
057661,000373: 11,3104           70403                           DMP*     SR1                                   
057662,000374: 11,3105           50036                                    J4REQ/J3,2                            
057663,000375: 11,3106           43271                           DDV      DAD                                   
057664,000376: 11,3107           02310                                    ALPHAM                                #                 -3
057665,000377: 11,3110           50473                           DMPR*    SR3                                   
057666,000378: 11,3111           50032                                    2J3RE/J2,2                            #   3           4
057667,000379: 11,3112           43271                           DDV      DAD                                   
057668,000380: 11,3113           02310                                    ALPHAM                                
057669,000381: 11,3114           76561                           VXSC     VSL1                                  
057670,000382: 11,3115           00025                                    UZ                                    
057671,000383: 11,3116           77645                           BVSU                                           
057672,000384: 11,3117           00033                                    TVEC                                  
057673,000385: 11,3120           14033                           STODL    TVEC                                  
057674,000386: 11,3121           02310                                    ALPHAM                                
057675,000387: 11,3122           63501                           NORM     DSQ                                   
057676,000388: 11,3123           00047                                    X1                                    
057677,000389: 11,3124           60316                           DSQ      NORM                                  
057678,000390: 11,3125           00051                                    S1                                    #          4
057679,000391: 11,3126           54606                           PUSH     BDDV*                                 #  NORMED R  TO 0D
057680,000392: 11,3127           50026                                    J2REQSQ,2                             
057681,000393: 11,3130           77761                           VXSC                                           
057682,000394: 11,3131           00033                                    TVEC                                  
057683,000395: 11,3132           00033                           STORE    TVEC                                  
057684,000396: 11,3133           56070                           XAD,1    XAD,1                                 
057685,000397: 11,3134           00046                                    X1                                    
057686,000398: 11,3135           00046                                    X1                                    
057687,000399: 11,3136           43070                           XAD,1    BOF                                   
057688,000400: 11,3137           00050                                    S1                                    
057689,000401: 11,3140           00343                                    MOONFLAG                              
057690,000402: 11,3141           23210                                    NBRANCH1                              
057691,000403: 11,3142           63545                           DLOAD    DSQ                                   #   2
057692,000404: 11,3143           00017                                    URPV                                  #  X  B-2 TO 2D
057693,000405: 11,3144           63525                           PDDL     DSQ                                   
057694,000406: 11,3145           00021                                    URPV       +2                         #   2  2
057695,000407: 11,3146           65215                           DAD      PDDL                                  #  Y +X  B-2 TO 2D
057696,000408: 11,3147           00003                                    2D                                    
057697,000409: 11,3150           45352                           SL1      DSU                                   
057698,000410: 

Page 1232

057700,000412: 11,3151           00003                                    2D                                    
057701,000413: 11,3152           41525                           PDDL     PUSH                                  #  X -Y  B-2 TO 4D  COSPHI2 TO 6D
057702,000414: 11,3153           00023                                    COSPHI/2                              
057703,000415: 11,3154           65361                           VXSC     PDDL                                  #  2COSPHI(UZ) B-3 TO 6D
057704,000416: 11,3155           00025                                    UZ                                    
057705,000417: 11,3156           45316                           DSQ      DSU                                   
057706,000418: 11,3157           23746                                    3/5                                   #    2   2      2
057707,000419: 11,3160           52405                           DMP      SL3                                   #  (X -Y)((5COS (PHI)-3)UR 2COS(PHI)UZ)
057708,000420: 11,3161           27755                                    5/8                                   
057709,000421: 11,3162           52361                           VXSC     VSU                                   #       B-3 TO 4D
057710,000422: 11,3163           02152                                    ALPHAV                                
057711,000423: 11,3164           72561                           VXSC     VSL2                                  
057712,000424: 11,3165           77725                           PDDL                                           
057713,000425: 11,3166           00017                                    URPV                                  
057714,000426: 11,3167           63205                           DMP      PDVL                                  #  XY B-2 TO 10D
057715,000427: 11,3170           00021                                    URPV       +2                         
057716,000428: 11,3171           02152                                    ALPHAV                                
057717,000429: 11,3172           74235                           VXV      VXSC                                  
057718,000430: 11,3173           00025                                    UZ                                    
057719,000431: 11,3174           53332                           VSL3     VAD                                   #  4XY(UR X UZ) +D( 4D) B-3
057720,000432: 11,3175           77725                           PDDL                                           
057721,000433: 11,3176           41301                           NORM     DMP                                   
057722,000434: 11,3177           00050                                    X2                                    
057723,000435: 11,3200           00001                                    0D                                    #  3J22R2MU/(X +Y )R
057724,000436: 11,3201           74265                           BDDV     VXSC                                  
057725,000437: 11,3202           27753                                    3J22R2MU                              
057726,000438: 11,3203           53257                           VSL*     VAD                                   
057727,000439: 11,3204           57605                                    0          -7,2                       
057728,000440: 11,3205           00033                                    TVEC                                  
057729,000441: 11,3206           77754                           LXA,2                                          
057730,000442: 11,3207           02150                                    PBODY                                 
057731,000443: 11,3210           77600        NBRANCH1           BOV                                            
057732,000444: 11,3211           23212                                    +1                                    
057733,000445: 11,3212           53257                           VSL*     VAD                                   
057734,000446: 11,3213           20153                                    0          -22D,1                     
057735,000447: 11,3214           02202                                    FV                                    
057736,000448: 11,3215           02202                           STORE    FV                                    
057737,000449: 11,3216           77600                           BOV                                            
057738,000450: 11,3217           22762                                    GOBAQUE                               

Page 1344

057740,000452: 11,3220           72135        NBRANCH            SLOAD    LXA,1                                 
057741,000453: 11,3221           01501                                    DIFEQCNT                              
057742,000454: 11,3222           00154                                    MPAC                                  
057743,000455: 11,3223           73205                           DMP      CGOTO                                 
057744,000456: 11,3224           27757                                    -1/12                                 
057745,000457: 11,3225           00155                                    MPAC                                  
057746,000458: 11,3226           23235                                    DIFEQTAB                              
057747,000459: 11,3227           77745        COSPHIE            DLOAD                                          
057748,000460: 11,3230           02156                                    ALPHAV     +4                         
057749,000461: 11,3231           24023                           STOVL    COSPHI/2                              
057750,000462: 11,3232           11555                                    ZUNIT                                 
057751,000463: 11,3233           77650                           GOTO                                           
057752,000464: 11,3234           23040                                    COMTERM                               
057753,000465: 11,3235           23446        DIFEQTAB           CADR     DIFEQ+0                               
057754,000466: 11,3236           23452                           CADR     DIFEQ+1                               
057755,000467: 11,3237           23463                           CADR     DIFEQ+2                               
057756,000468: 
057757,000469: 11,3240           45014        TIMESTEP           BOF      CALL                                  
057758,000470: 11,3241           00342                                    MIDFLAG                               
057759,000471: 11,3242           23246                                    RECTEST                               #  SKIP ORIGIN CHANGE LOGIC
057760,000472: 11,3243           23320                                    CHKSWTCH                              
057761,000473: 11,3244           77640                           BMN                                            
057762,000474: 11,3245           23355                                    DOSWITCH                              
057763,000475: 
057764,000476: 11,3246           51575        RECTEST            VLOAD    ABVAL                                 #  RECTIFY IF
057765,000477: 11,3247           01521                                    TDELTAV                               
057766,000478: 11,3250           77600                           BOV                                            
057767,000479: 11,3251           23274                                    CALLRECT                              
057768,000480: 11,3252           51025                           DSU      BPL                                   #        1) EITHER TDELTAV OR TNUV EQUALS OR
057769,000481: 11,3253           23764                                    3/4                                   #           EXCEEDS 3/4 IN MAGNITUDE
057770,000482: 11,3254           23274                                    CALLRECT                              
057771,000483: 11,3255           53615                           DAD      SL*                                   #                        OR
057772,000484: 11,3256           23764                                    3/4                                   
057773,000485: 11,3257           57605                                    0          -7,2                       #        2) ABVAL(TDELTAV) EQUALS OR EXCEEDS
057774,000486: 11,3260           45271                           DDV      DSU                                   #           .01(ABVAL(RCV))
057775,000487: 11,3261           00013                                    10D                                   
057776,000488: 11,3262           27761                                    RECRATIO                              
057777,000489: 11,3263           77244                           BPL      VLOAD                                 
057778,000490: 11,3264           23274                                    CALLRECT                              
057779,000491: 11,3265           01527                                    TNUV                                  
057780,000492: 11,3266           45246                           ABVAL    DSU                                   
057781,000493: 11,3267           23764                                    3/4                                   
057782,000494: 11,3270           77600                           BOV                                            
057783,000495: 11,3271           23274                                    CALLRECT                              
057784,000496: 11,3272           77640                           BMN                                            
057785,000497: 11,3273           23276                                    INTGRATE                              
057786,000498: 11,3274           77624        CALLRECT           CALL                                           
057787,000499: 11,3275           23421                                    RECTIFY                               
057788,000500: 11,3276           77775        INTGRATE           VLOAD                                          
057789,000501: 11,3277           01527                                    TNUV                                  

Page 1345

057791,000503: 11,3300           25120                           STOVL    ZV                                    
057792,000504: 11,3301           01521                                    TDELTAV                               
057793,000505: 11,3302           01112                           STORE    YV                                    
057794,000506: 11,3303           77614                           CLEAR                                          
057795,000507: 11,3304           00261                                    JSWITCH                               
057796,000508: 11,3305           66375        DIFEQ0             VLOAD    SSP                                   
057797,000509: 11,3306           01112                                    YV                                    
057798,000510: 11,3307           01501                                    DIFEQCNT                              
057799,000511: 11,3310           00000                                    0                                     
057800,000512: 11,3311           16152                           STODL    ALPHAV                                
057801,000513: 11,3312           11563                                    DPZERO                                
057802,000514: 11,3313           02212                           STORE    H                                     #  START H AT ZERO.  GOES 0(DELT/2)DELT.
057803,000515: 11,3314           52014                           BON      GOTO                                  
057804,000516: 11,3315           00301                                    JSWITCH                               
057805,000517: 11,3316           23665                                    DOW..                                 
057806,000518: 11,3317           22512                                    ACCOMP                                
057807,000519: 
057808,000520: 11,3320           43020        CHKSWTCH           STQ      BOF                                   
057809,000521: 11,3321           02270                                    ORIGEX                                
057810,000522: 11,3322           04340                                    RPQFLAG                               
057811,000523: 11,3323           23333                                    RPQOK                                 #  MOON POSITION IS AVAILABLE
057812,000524: 11,3324           45145                           DLOAD    CALL                                  
057813,000525: 11,3325           01517                                    TET                                   
057814,000526: 11,3326           54115                                    LUNPOS                                #  GET MOON POSITION
057815,000527: 11,3327           57414                           BOF      VCOMP                                 
057816,000528: 11,3330           00343                                    MOONFLAG                              
057817,000529: 11,3331           23332                                    +1                                    
057818,000530: 11,3332           02263                           STORE    RPQV                                  
057819,000531: 
057820,000532: 11,3333           77354        RPQOK              LXA,2    VLOAD                                 #  RESTORE X2 AFTER USING LUNPOS
057821,000533: 11,3334           02150                                    PBODY                                 
057822,000534: 11,3335           01521                                    TDELTAV                               #   -
057823,000535: 11,3336           53257                           VSL*     VAD                                   #  |RQC|-RSPHERE WHEN OUTSIDE THE SPHERE.
057824,000536: 11,3337           57605                                    0          -7,2                       #  -   -            -
057825,000537: 11,3340           01535                                    RCV                                   #  R = RDEVIATION + RCONIC
057826,000538: 11,3341           51414                           BOF      ABVAL                                 
057827,000539: 11,3342           00343                                    MOONFLAG                              
057828,000540: 11,3343           23350                                    EARSPH                                
057829,000541: 11,3344           44302                           SR2      BDSU                                  #  INSIDE
057830,000542: 11,3345           27763                                    RSPHERE                               
057831,000543: 11,3346           77650                           GOTO                                           
057832,000544: 11,3347           02270                                    ORIGEX                                
057833,000545: 11,3350           51451        EARSPH             VSU      ABVAL                                 #  OUTSIDE
057834,000546: 11,3351           02263                                    RPQV                                  
057835,000547: 11,3352           52025                           DSU      GOTO                                  
057836,000548: 11,3353           27763                                    RSPHERE                               
057837,000549: 11,3354           02270                                    ORIGEX                                
057838,000550: 
057839,000551: 11,3355           77624        DOSWITCH           CALL                                           
057840,000552: 11,3356           23361                                    ORIGCHNG                              
057841,000553: 11,3357           77650                           GOTO                                           
057842,000554: 11,3360           23276                                    INTGRATE                              
057843,000555: 

Page 1346

057845,000557: 11,3361           45020        ORIGCHNG           STQ      CALL                                  
057846,000558: 11,3362           02270                                    ORIGEX                                
057847,000559: 11,3363           23421                                    RECTIFY                               
057848,000560: 11,3364           53775                           VLOAD    VSL*                                  
057849,000561: 11,3365           01535                                    RCV                                   
057850,000562: 11,3366           57576                                    0,2                                   
057851,000563: 11,3367           53651                           VSU      VSL*                                  
057852,000564: 11,3370           02263                                    RPQV                                  
057853,000565: 11,3371           57574                                    2,2                                   
057854,000566: 11,3372           01503                           STORE    RRECT                                 
057855,000567: 11,3373           15535                           STODL    RCV                                   
057856,000568: 11,3374           01517                                    TET                                   
057857,000569: 11,3375           77624                           CALL                                           
057858,000570: 11,3376           54120                                    LUNVEL                                
057859,000571: 11,3377           57414                           BOF      VCOMP                                 
057860,000572: 11,3400           00343                                    MOONFLAG                              
057861,000573: 11,3401           23402                                    +1                                    
057862,000574: 11,3402           53715                           PDVL     VSL*                                  
057863,000575: 11,3403           01543                                    VCV                                   
057864,000576: 11,3404           57576                                    0,2                                   
057865,000577: 11,3405           77651                           VSU                                            
057866,000578: 11,3406           77657                           VSL*                                           
057867,000579: 11,3407           57574                                    0          +2,2                       
057868,000580: 11,3410           01511                           STORE    VRECT                                 
057869,000581: 11,3411           01543                           STORE    VCV                                   
057870,000582: 11,3412           67154                           LXA,2    SXA,2                                 
057871,000583: 11,3413           02270                                    ORIGEX                                
057872,000584: 11,3414           00052                                    QPRET                                 
057873,000585: 11,3415           52014                           BON      GOTO                                  
057874,000586: 11,3416           00303                                    MOONFLAG                              
057875,000587: 11,3417           26735                                    CLRMOON                               
057876,000588: 11,3420           26742                                    SETMOON                               

Page 1347

057878,000590:                                                                                                  #  THE RECTIFY SUBROUTINE IS CALLED BY THE INTEGRATION PROGRAM AND OCCASIONALLY BY THE MEASUREMENT INCORPORATION
057879,000591:                                                                                                  #  ROUTINES TO ESTABLISH A NEW CONIC.
057880,000592: 
057881,000593: 11,3421           77354        RECTIFY            LXA,2    VLOAD                                 
057882,000594: 11,3422           02150                                    PBODY                                 
057883,000595: 11,3423           01521                                    TDELTAV                               
057884,000596: 11,3424           53257                           VSL*     VAD                                   
057885,000597: 11,3425           57605                                    0          -7,2                       
057886,000598: 11,3426           01535                                    RCV                                   
057887,000599: 11,3427           01503                           STORE    RRECT                                 
057888,000600: 11,3430           25535                           STOVL    RCV                                   
057889,000601: 11,3431           01527                                    TNUV                                  
057890,000602: 11,3432           53257                           VSL*     VAD                                   
057891,000603: 11,3433           57602                                    0          -4,2                       
057892,000604: 11,3434           01543                                    VCV                                   
057893,000605: 11,3435           01511        MINIRECT           STORE    VRECT                                 
057894,000606: 11,3436           25543                           STOVL    VCV                                   
057895,000607: 11,3437           11563                                    ZEROVEC                               
057896,000608: 11,3440           01521                           STORE    TDELTAV                               
057897,000609: 11,3441           15527                           STODL    TNUV                                  
057898,000610: 11,3442           11563                                    ZEROVEC                               
057899,000611: 11,3443           01551                           STORE    TC                                    
057900,000612: 11,3444           01553                           STORE    XKEP                                  
057901,000613: 11,3445           77616                           RVQ                                            
057902,000614: 

Page 1348

057904,000616:                                                                                                  #  THE THREE DIFEQ ROUTINES - DIFEQ+0, DIFEQ+12, AND DIFEQ+24 - ARE ENTEREDTO PROCESS THE CONTRIBUTIONS AT THE
057905,000617:                                                                                                  #  BEGINNING, MIDDLE, AND END OF THE TIMESTEP, RESPECTIVELY.  THE UPDATING IS DONE BY THE NYSTROM METHOD.
057906,000618: 
057907,000619: 11,3446           64575        DIFEQ+0            VLOAD    VSR3                                  
057908,000620: 11,3447           02202                                    FV                                    
057909,000621: 11,3450           36166                           STCALL   PHIV                                  
057910,000622: 11,3451           23626                                    DIFEQCOM                              
057911,000623: 11,3452           74575        DIFEQ+1            VLOAD    VSR1                                  
057912,000624: 11,3453           02202                                    FV                                    
057913,000625: 11,3454           53206                           PUSH     VAD                                   
057914,000626: 11,3455           02166                                    PHIV                                  
057915,000627: 11,3456           26174                           STOVL    PSIV                                  
057916,000628: 11,3457           53362                           VSR1     VAD                                   
057917,000629: 11,3460           02166                                    PHIV                                  
057918,000630: 11,3461           36166                           STCALL   PHIV                                  
057919,000631: 11,3462           23626                                    DIFEQCOM                              
057920,000632: 11,3463           57345        DIFEQ+2            DLOAD    DMPR                                  
057921,000633: 11,3464           02212                                    H                                     
057922,000634: 11,3465           23774                                    DP2/3                                 
057923,000635: 11,3466           74206                           PUSH     VXSC                                  
057924,000636: 11,3467           02166                                    PHIV                                  
057925,000637: 11,3470           53372                           VSL1     VAD                                   
057926,000638: 11,3471           01120                                    ZV                                    
057927,000639: 11,3472           53361                           VXSC     VAD                                   
057928,000640: 11,3473           02212                                    H                                     
057929,000641: 11,3474           01112                                    YV                                    
057930,000642: 11,3475           25112                           STOVL    YV                                    
057931,000643: 11,3476           02202                                    FV                                    
057932,000644: 11,3477           53322                           VSR3     VAD                                   
057933,000645: 11,3500           02174                                    PSIV                                  
057934,000646: 11,3501           76561                           VXSC     VSL1                                  
057935,000647: 11,3502           77655                           VAD                                            
057936,000648: 11,3503           01120                                    ZV                                    
057937,000649: 11,3504           01120                           STORE    ZV                                    
057938,000650: 11,3505           45014                           BOFF     CALL                                  
057939,000651: 11,3506           00341                                    JSWITCH                               
057940,000652: 11,3507           23557                                    ENDSTATE                              
057941,000653: 11,3510           56750                                    GRP2PC                                
057942,000654: 11,3511           77354                           LXA,2    VLOAD                                 
057943,000655: 11,3512           01102                                    COLREG                                
057944,000656: 11,3513           01120                                    ZV                                    
057945,000657: 11,3514           77732                           VSL3                                           #  ADJUST W-POSITION FOR STORAGE
057946,000658: 11,3515           12467                           STORE    W          +54D,2                     
057947,000659: 11,3516           77775                           VLOAD                                          
057948,000660: 11,3517           01112                                    YV                                    
057949,000661: 11,3520           40132                           VSL3     BOV                                   
057950,000662: 11,3521           23651                                    WMATEND                               
057951,000663: 11,3522           12401                           STORE    W,2                                   
057952,000664: 
057953,000665: 11,3523           77624                           CALL                                           
057954,000666: 11,3524           56750                                    GRP2PC                                

Page 1349

057956,000668: 11,3525           66354                           LXA,2    SSP                                   
057957,000669: 11,3526           01102                                    COLREG                                
057958,000670: 11,3527           00052                                    S2                                    
057959,000671: 11,3530           00000                                    0                                     
057960,000672: 11,3531           67114                           INCR,2   SXA,2                                 
057961,000673: 11,3532           00006                                    6                                     
057962,000674: 11,3533           01111                                    YV                                    
057963,000675: 11,3534           45104                           TIX,2    CALL                                  
057964,000676: 11,3535           23622                                    RELOADSV                              
057965,000677: 11,3536           56750                                    GRP2PC                                
057966,000678: 11,3537           67154                           LXA,2    SXA,2                                 
057967,000679: 11,3540           01111                                    YV                                    
057968,000680: 11,3541           01102                                    COLREG                                
057969,000681: 
057970,000682: 11,3542           77624        NEXTCOL            CALL                                           
057971,000683: 11,3543           56750                                    GRP2PC                                
057972,000684: 11,3544           76754                           LXA,2    VLOAD*                                
057973,000685: 11,3545           01102                                    COLREG                                
057974,000686: 11,3546           75376                                    W,2                                   
057975,000687: 11,3547           77722                           VSR3                                           #  ADJUST W-POSITION FOR INTEGRATION
057976,000688: 11,3550           01112                           STORE    YV                                    
057977,000689: 11,3551           76173                           VLOAD*   AXT,1                                 
057978,000690: 11,3552           75310                                    W          +54D,2                     
057979,000691: 11,3553           00000                                    0                                     
057980,000692: 11,3554           77722                           VSR3                                           #  ADJUST W-VELOCITY FOR INTEGRATION
057981,000693: 11,3555           35120                           STCALL   ZV                                    
057982,000694: 11,3556           23305                                    DIFEQ0                                
057983,000695: 
057984,000696: 11,3557           77200        ENDSTATE           BOV      VLOAD                                 
057985,000697: 11,3560           22762                                    GOBAQUE                               
057986,000698: 11,3561           01120                                    ZV                                    
057987,000699: 11,3562           25527                           STOVL    TNUV                                  
057988,000700: 11,3563           01112                                    YV                                    
057989,000701: 11,3564           01521                           STORE    TDELTAV                               
057990,000702: 11,3565           43014                           BON      BOFF                                  
057991,000703: 11,3566           04715                                    MIDAVFLG                              
057992,000704: 11,3567           27633                                    CKMID2                                #  CHECK FOR MID2 BEFORE GOING TO TIMEINC
057993,000705: 11,3570           01756                                    DIM0FLAG                              
057994,000706: 11,3571           27305                                    TESTLOOP                              
057995,000707: 11,3572           77776                           EXIT                                           
057996,000708: 11,3573           05412                           TC       PHASCHNG                              
057997,000709: 11,3574           04022                           OCT      04022                                 #  PHASE 1
057998,000710: 11,3575           05546                           TC       UPFLAG                                #  PHASE CHANGE HAS OCCURRED BETWEEN
057999,000711: 11,3576           00236                           ADRES    REINTFLG                              #  INTSTALL AND INTWAKE
058000,000712: 11,3577           06006                           TC       INTPRET                               
058001,000713: 11,3600           77731                           SSP                                            
058002,000714: 11,3601           00053                                    QPRET                                 
058003,000715: 11,3602           23607                                    AMOVED                                
058004,000716: 11,3603           52014                           BON      GOTO                                  
058005,000717: 11,3604           01714                                    VINTFLAG                              

Page 1350

058007,000719: 11,3605           26705                                    ATOPCSM                               
058008,000720: 11,3606           26760                                    ATOPLEM                               
058009,000721: 11,3607           66214        AMOVED             SET      SSP                                   
058010,000722: 11,3610           00061                                    JSWITCH                               
058011,000723: 11,3611           01103                                    COLREG                                
058012,000724: 11,3612           77741                           DEC      -30        B-14                       
058013,000725: 11,3613           66214                           BOFF     SSP                                   
058014,000726: 11,3614           01755                                    D6OR9FLG                              
058015,000727: 11,3615           23542                                    NEXTCOL                               
058016,000728: 11,3616           01103                                    COLREG                                
058017,000729: 11,3617           77717                           DEC      -48        B-14                       
058018,000730: 11,3620           77650                           GOTO                                           
058019,000731: 11,3621           23542                                    NEXTCOL                               
058020,000732: 
058021,000733: 11,3622           77745        RELOADSV           DLOAD                                          #  RELOAD TEMPORARY STATE VECTOR
058022,000734: 11,3623           01101                                    TDEC                                  #  FROM PERMANENT IN CASE OF
058023,000735: 11,3624           34041                           STCALL   TDEC1                                 
058024,000736: 11,3625           27167                                    INTEGRV2                              #  BY STARTING AT INTEGRV2.
058025,000737: 11,3626           43345        DIFEQCOM           DLOAD    DAD                                   #  INCREMENT H AND DIFEQCNT.
058026,000738: 11,3627           02314                                    DT/2                                  
058027,000739: 11,3630           02212                                    H                                     
058028,000740: 11,3631           66110                           INCR,1   SXA,1                                 
058029,000741: 11,3632           77763                           DEC      -12        B-14                       
058030,000742: 11,3633           01500                                    DIFEQCNT                              #  DIFEQCNT SET FOR NEXT ENTRY.
058031,000743: 11,3634           02212                           STORE    H                                     
058032,000744: 11,3635           74561                           VXSC     VSR1                                  
058033,000745: 11,3636           02202                                    FV                                    
058034,000746: 11,3637           74255                           VAD      VXSC                                  
058035,000747: 11,3640           01120                                    ZV                                    
058036,000748: 11,3641           02212                                    H                                     
058037,000749: 11,3642           77655                           VAD                                            
058038,000750: 11,3643           01112                                    YV                                    
058039,000751: 11,3644           02152                           STORE    ALPHAV                                
058040,000752: 11,3645           52014                           BON      GOTO                                  
058041,000753: 11,3646           00301                                    JSWITCH                               
058042,000754: 11,3647           23665                                    DOW..                                 
058043,000755: 11,3650           22472                                    FBR3                                  
058044,000756: 
058045,000757: 11,3651           43014        WMATEND            CLEAR    CLEAR                                 
058046,000758: 11,3652           01676                                    DIM0FLAG                              #  DONT INTEGRATE W THIS TIME
058047,000759: 11,3653           01671                                    ORBWFLAG                              #  INVALIDATE W
058048,000760: 11,3654           77614                           CLEAR                                          
058049,000761: 11,3655           02676                                    RENDWFLG                              
058050,000762: 11,3656           77414                           SET      EXIT                                  
058051,000763: 11,3657           01472                                    STATEFLG                              #  PICK UP STATE VECTOR UPDATE
058052,000764: 11,3660           05650                           TC       ALARM                                 
058053,000765: 11,3661           00421                           OCT      421                                   
058054,000766: 11,3662           06006                           TC       INTPRET                               

Page 1351

058056,000768: 11,3663           77650                           GOTO                                           
058057,000769: 11,3664           27305                                    TESTLOOP                              #  FINISH INTEGRATING STATE VECTOR
058058,000770: 

Page 1352

058060,000772:                                                                                                  #  ORBITAL ROUTINE FOR EXTRAPOLATION OF THE W MATRIX.  IT COMPUTES THE SECOND DERIVATIVE OF EACH COLUMN POSITION
058061,000773:                                                                                                  #  VECTOR OF THE MATRIX AND CALLS THE NYSTROM INTEGRATION ROUTINES TO SOLVE THE DIFFERENTIAL EQUATIONS.  THE PROGRAM
058062,000774:                                                                                                  #  USES A TABLE OF VEHICLE POSITION VECTORS COMPUTED DURING THE INTEGRATION OF THE VEHICLES POSITION AND VELOCITY.
058063,000775: 
058064,000776: 11,3665           70754        DOW..              LXA,2    DLOAD*                                
058065,000777: 11,3666           02150                                    PBODY                                 
058066,000778: 11,3667           50042                                    MUEARTH,2                             
058067,000779: 11,3670           36210                           STCALL   BETAM                                 
058068,000780: 11,3671           23713                                    DOW..1                                
058069,000781: 11,3672           02202                           STORE    FV                                    
058070,000782: 11,3673           62014                           BOF      INCR,1                                
058071,000783: 11,3674           00342                                    MIDFLAG                               
058072,000784: 11,3675           23220                                    NBRANCH                               
058073,000785: 11,3676           77771                           DEC      -6         B-14                       
058074,000786: 11,3677           70744                           LXC,2    DLOAD*                                
058075,000787: 11,3700           02150                                    PBODY                                 
058076,000788: 11,3701           50044                                    MUEARTH    -2,2                       
058077,000789: 11,3702           36210                           STCALL   BETAM                                 
058078,000790: 11,3703           23713                                    DOW..1                                
058079,000791: 11,3704           50414                           BON      VSR6                                  
058080,000792: 11,3705           00303                                    MOONFLAG                              
058081,000793: 11,3706           23707                                    +1                                    
058082,000794: 11,3707           77655                           VAD                                            
058083,000795: 11,3710           02202                                    FV                                    
058084,000796: 11,3711           36202                           STCALL   FV                                    
058085,000797: 11,3712           23220                                    NBRANCH                               
058086,000798: 11,3713           60575        DOW..1             VLOAD    VSR4                                  
058087,000799: 11,3714           02152                                    ALPHAV                                
058088,000800: 11,3715           53513                           PDVL*    UNIT                                  
058089,000801: 11,3716           02217                                    VECTAB,1                              
058090,000802: 11,3717           46315                           PDVL     VPROJ                                 
058091,000803: 11,3720           02152                                    ALPHAV                                
058092,000804: 11,3721           52361                           VXSC     VSU                                   
058093,000805: 11,3722           23764                                    3/4                                   
058094,000806: 11,3723           60325                           PDDL     NORM                                  
058095,000807: 11,3724           00045                                    36D                                   
058096,000808: 11,3725           00052                                    S2                                    
058097,000809: 11,3726           63406                           PUSH     DSQ                                   
058098,000810: 11,3727           77605                           DMP                                            
058099,000811: 11,3730           65301                           NORM     PDDL                                  
058100,000812: 11,3731           00043                                    34D                                   
058101,000813: 11,3732           02210                                    BETAM                                 
058102,000814: 11,3733           56342                           SR1      DDV                                   
058103,000815: 11,3734           77761                           VXSC                                           
058104,000816: 11,3735           57154                           LXA,2    XAD,2                                 
058105,000817: 11,3736           00051                                    S2                                    
058106,000818: 11,3737           00051                                    S2                                    
058107,000819: 11,3740           57074                           XAD,2    XAD,2                                 
058108,000820: 11,3741           00051                                    S2                                    
058109,000821: 11,3742           00042                                    34D                                   
058110,000822: 11,3743           43457                           VSL*     RVQ                                   

Page 1353

058112,000824: 11,3744           57606                                    0          -8D,2                      
058113,000825: 
058114,000826: 11,2000                                           SETLOC   ORBITAL1                              
058115,000827: 11,2000                                           BANK                                           
058116,000828: 
058117,000829: 11,3745           04631 23146  3/5                2DEC     .6         B-2                        
058118,000830: 11,3747           14000 00000  THREE/8            2DEC     .375                                  
058119,000831: 11,3751           02314 31463  .3D                2DEC     .3         B-2                        
058120,000832: 11,3753           01400 00000  3/64               2DEC     3          B-6                        
058121,000833: 11,3755           10000 00000  DP1/4              2DEC     .25                                   
058122,000834: 11,3757  11,3755               DQUARTER           EQUALS   DP1/4                                 
058123,000835: 11,3757  11,3755               POS1/4             EQUALS   DP1/4                                 
058124,000836: 11,3757           03000 00000  3/32               2DEC     3          B-5                        
058125,000837: 11,3761           36000 00000  15/16              2DEC     15.        B-4                        
058126,000838: 11,3763           30000 00000  3/4                2DEC     3.0        B-2                        
058127,000839: 11,3765           22525 12525  7/12               2DEC     .5833333333                            
058128,000840: 11,3767           22000 00000  9/16               2DEC     9          B-4                        
058129,000841: 11,3771           01200 00000  5/128              2DEC     5          B-7                        
058130,000842: 11,3773  04,3562               DPZERO             EQUALS   ZEROVEC                               
058131,000843: 11,3773           25252 25253  DP2/3              2DEC     .6666666667                            
058132,000844: 11,3775  11,3773               2/3                EQUALS   DP2/3                                 
058133,000845: 11,3775           00027        OCT27              OCT      27                                    
058134,000846:                                                                                                  #  LM504 IS TEMPORARY
058135,000847: 13,3714                                           BANK     13                                    
058136,000848: 13,2000                                           SETLOC   ORBITAL2                              
058137,000849: 13,2000                                           BANK                                           
058138,000850:                                                                                                  #  IT IS VITAL THAT THE FOLLOWING CONSTANTS NOT BE SHUFFLED
058139,000851: 13,3714           77764                           DEC      -11        B-14                       
058140,000852: 13,3715           77775                           DEC      -2         B-14                       
058141,000853: 13,3716           77766                           DEC      -9         B-14                       
058142,000854: 13,3717           77771                           DEC      -6         B-14                       
058143,000855: 13,3720           77775                           DEC      -2         B-14                       
058144,000856: 13,3721           77775                           DEC      -2         B-14                       
058145,000857: 13,3722           00000                           DEC      0          B-14                       
058146,000858: 13,3723           77763                           DEC      -12        B-14                       
058147,000859: 13,3724           77766                           DEC      -9         B-14                       
058148,000860: 13,3725           77773                           DEC      -4         B-14                       
058149,000861: 13,3726           77770        ASCALE             DEC      -7         B-14                       
058150,000862: 13,3727           77771                           DEC      -6         B-14                       

Page 1354

058152,000864: 13,3730           27446 14620                     2DEC*    1.32715445 E16        B-54*           #  S
058153,000865: 13,3732           16471 01352                     2DEC*    4.9027780  E8         B-30*           #  M
058154,000866: 13,3734           22437 16067  MUEARTH            2DEC*    3.986032   E10        B-36*           
058155,000867: 13,3736           00000 00000                     2DEC     0          B-28                       
058156,000868: 13,3740           02302 24736  J4REQ/J3           2DEC*    .4991607391 E7         B-26*           
058157,000869: 13,3742           00000 00000                     2DEC     0          B-28                       
058158,000870: 13,3744           77776 53032  2J3RE/J2           2DEC*    -.1355426363 E5         B-27*           
058159,000871: 13,3746           10407 05344                     2DEC*    .3067493316 E18        B-60*           
058160,000872: 13,3750           13710 35320  J2REQSQ            2DEC*    1.75501139 E21        B-72*           
058161,000873: 13,3752           12160 12124  3J22R2MU           2DEC*    9.20479048 E16        B-58*           
058162,000874: 13,3754           24000 00000  5/8                2DEC     5          B-3                        
058163,000875: 13,3756           74631 63145  -1/12              2DEC     -.1                                   
058164,000876: 13,3760  13,3732               MUM                =        MUEARTH    -2                         
058165,000877: 13,3760           00243 32703  RECRATIO           2DEC     .01                                   
058166,000878: 13,3762           03654 21000  RSPHERE            2DEC     64373.76   E3         B-29            
058167,000879: 13,3764           03654 21000  RDM                2DEC     16093.44   E3         B-27            
058168,000880: 13,3766           04627 25200  RDE                2DEC     80467.20   E3         B-29            
058169,000881: 13,3770                        RATT               EQUALS   00                                    
058170,000882: 13,3770                        VATT               EQUALS   6D                                    
058171,000883: 13,3770                        TAT                EQUALS   12D                                   
058172,000884: 13,3770                        RATT1              EQUALS   14D                                   
058173,000885: 13,3770                        VATT1              EQUALS   20D                                   
058174,000886: 13,3770                        MU(P)              EQUALS   26D                                   
058175,000887: 13,3770                        TDEC1              EQUALS   32D                                   
058176,000888: 13,3770                        URPV               EQUALS   14D                                   
058177,000889: 13,3770     0022               COSPHI/2           EQUALS   URPV       +4                         
058178,000890: 13,3770                        UZ                 EQUALS   20D                                   
058179,000891: 13,3770                        TVEC               EQUALS   26D                                   
058180,000892: 
058181,000893: 
058182,000894: 

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