Source Code

These source-code files were from the printout at the MIT Museum, with many thanks to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing it to us. The printout was digitally photographed by Paul Fjeld. A team of volunteers transcribed the source code manually from these images or, where appropriate, modified already-transcribed but similar source Colossus 249 (Apollo 9) source code to agree with the images from the printout. Note that the page images presented online are of reduced quality, and that higher-quality images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051
	10:28 APR.  1,1969
Note that the date is the date of the printout, not the date of the program revision.

058145,000002:                                                                                                  ## Copyright:   Public domain.
058146,000003:                                                                                                  ## Filename:    ORBITAL_INTEGRATION.agc
058147,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus 2A, AKA Comanche 055.
058148,000005:                                                                                                  ##              It is part of the source code for the Command Module's (CM)
058149,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 11.
058150,000007:                                                                                                  ## Assembler:   yaYUL
058151,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
058152,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo.
058153,000010:                                                                                                  ## Pages:       1334-1354
058154,000011:                                                                                                  ## Mod history: 2009-05-14 RSB  Adapted from the Colossus249/ file of the
058155,000012:                                                                                                  ##                              same name, using Comanche055 page images.
058156,000013:                                                                                                  ##              2009-05-20 RSB  Corrections:  DAT -> DAD in one place, 
058157,000014:                                                                                                  ##                              BWM -> BMN, DEFEQCNT -> DIFEQCNT.
058158,000015:                                                                                                  ##              2010-08-27 JL   Fixed some indentation, whitespace.
058159,000016:                                                                                                  ##              2016-12-22 RSB  Proofed comment text using octopus/ProoferComments
058160,000017:                                                                                                  ##                              and corrected the errors found.
058161,000018:                                                                                                  ##              2017-01-15 RSB  Fixed comment-text errors noted while diff'ing vs
058162,000019:                                                                                                  ##                              Colossus 249.
058163,000020:                                                                                                  ##              2017-03-17 RSB  Comment-text fixes identified in diff'ing
058164,000021:                                                                                                  ##                              Luminary 99 vs Comanche 55.
058165,000022: 
058166,000023:                                                                                                  ## This source code has been transcribed or otherwise adapted from digitized
058167,000024:                                                                                                  ## images of a hardcopy from the MIT Museum.  The digitization was performed
058168,000025:                                                                                                  ## by Paul Fjeld, and arranged for by Deborah Douglas of the Museum.  Many
058169,000026:                                                                                                  ## thanks to both.  The images (with suitable reduction in storage size and
058170,000027:                                                                                                  ## consequent reduction in image quality as well) are available online at
058171,000028:                                                                                                  ## www.ibiblio.org/apollo.  If for some reason you find that the images are
058172,000029:                                                                                                  ## illegible, contact me at info@sandroid.org about getting access to the 
058173,000030:                                                                                                  ## (much) higher-quality images which Paul actually created.
058174,000031:                                                                                                  ##
058175,000032:                                                                                                  ## Notations on the hardcopy document read, in part:
058176,000033:                                                                                                  ##
058177,000034:                                                                                                  ##      Assemble revision 055 of AGC program Comanche by NASA
058178,000035:                                                                                                  ##      2021113-051.  10:28 APR. 1, 1969  
058179,000036:                                                                                                  ##
058180,000037:                                                                                                  ##      This AGC program shall also be referred to as
058181,000038:                                                                                                  ##                      Colossus 2A
058182,000039: 

Page 1334

058184,000041:                                                                                                  #  DELETE
058185,000042: 13,3714                                           BANK     13                                    
058186,000043: 11,2000                                           SETLOC   ORBITAL                               
058187,000044: 11,2000                                           BANK                                           
058188,000045: 11,2372                                           COUNT    11/ORBIT                              
058189,000046: 
058190,000047:                                                                                                  #  DELETE
058191,000048: 11,2372           40354        KEPPREP            LXA,2    SETPD                                 
058192,000049: 11,2373           02150                                    PBODY                                 
058193,000050: 11,2374           00001                                    0                                     
058194,000051: 11,2375           75543                           DLOAD*   SQRT                                  #  SQRT(MU) (+18 OR +15)         0D      PL 2D
058195,000052: 11,2376           50042                                    MUEARTH,2                             
058196,000053: 11,2377           53515                           PDVL     UNIT                                  #                                        PL 8D
058197,000054: 11,2400           01535                                    RCV                                   
058198,000055: 11,2401           60325                           PDDL     NORM                                  #  NORM R (+29 OR +27 - N1)      2D      PL 4D
058199,000056: 11,2402           00045                                    36D                                   
058200,000057: 11,2403           00047                                    X1                                    
058201,000058: 11,2404           77715                           PDVL                                           
058202,000059: 11,2405           65241                           DOT      PDDL                                  #  F*SQRT(MU) (+7 OR +5)         4D      PL 6D
058203,000060: 11,2406           01543                                    VCV                                   
058204,000061: 11,2407           02312                                    TAU.                                  #  (+28)
058205,000062: 11,2410           60225                           DSU      NORM                                  
058206,000063: 11,2411           01551                                    TC                                    
058207,000064: 11,2412           00051                                    S1                                    
058208,000065: 11,2413           77742                           SR1                                            
058209,000066: 11,2414           65271                           DDV      PDDL                                  
058210,000067: 11,2415           00003                                    2D                                    
058211,000068: 11,2416           41405                           DMP      PUSH                                  #  FS (+6 +N1-N2)                6D      PL 8D
058212,000069: 11,2417           00005                                    4D                                    
058213,000070: 11,2420           65316                           DSQ      PDDL                                  #  (FS)SQ (+12 +2(N1-N2))        8D      PL 10D
058214,000071: 11,2421           00005                                    4D                                    
058215,000072: 11,2422           64716                           DSQ      PDDL*                                 #  SSQ/MU (-2 OR +2(N1-N2))      10D     PL 12D
058216,000073: 11,2423           50042                                    MUEARTH,2                             
058217,000074: 11,2424           40442                           SR3      SR4                                   
058218,000075: 11,2425           47515                           PDVL     VSQ                                   #  PREALIGN MU (+43 OR +37)      12D     PL 14D
058219,000076: 11,2426           01543                                    VCV                                   
058220,000077: 11,2427           44205                           DMP      BDSU                                  #                                        PL 12D
058221,000078: 11,2430           00045                                    36D                                   
058222,000079: 11,2431           41271                           DDV      DMP                                   #                                        PL 10D
058223,000080: 11,2432           00003                                    2D                                    #  -(1/R-ALPHA) (+12 +3N1-2N2)
058224,000081: 11,2433           53605                           DMP      SL*                                   
058225,000082: 11,2434           23774                                    DP2/3                                 
058226,000083: 11,2435           20176                                    0          -3,1                       #  10L(1/R-ALPHA) (+13 +2(N1-N2))
058227,000084: 11,2436           43260                           XSU,1    DAD                                   #  2(FS)SQ - ETCETRA                     PL 8D
058228,000085: 11,2437           00050                                    S1                                    #  X1 = N2-N1
058229,000086: 11,2440           45257                           SL*      DSU                                   #  -FS+2(FS)SQ ETC (+6 +N1-N2)           PL 6D
058230,000087: 11,2441           20211                                    8D,1                                  
058231,000088: 11,2442           41205                           DMP      DMP                                   
058232,000089: 11,2443           00001                                    0D                                    
058233,000090: 11,2444           00005                                    4D                                    
058234,000091: 11,2445           53657                           SL*      SL*                                   

Page 1335

058236,000093: 11,2446           20211                                    8D,1                                  
058237,000094: 11,2447           20201                                    0,1                                   #  S(-FS(1-2FS)-1/6...) (+17 OR +16)
058238,000095: 11,2450           65215                           DAD      PDDL                                  #                                        PL 6D
058239,000096: 11,2451           01553                                    XKEP                                  
058240,000097: 11,2452           53605                           DMP      SL*                                   #  S(+17 OR +16)
058241,000098: 11,2453           00001                                    0D                                    
058242,000099: 11,2454           20202                                    1,1                                   
058243,000100: 11,2455           43204                           BOVB     DAD                                   
058244,000101: 11,2456           57352                                    TCDANZIG                              
058245,000102: 11,2457           77626                           STADR                                          
058246,000103: 11,2460           75471                           STORE    XKEPNEW                               
058247,000104: 11,2461           74020                           STQ      AXC,1                                 
058248,000105: 11,2462           02270                                    KEPRTN                                
058249,000106: 11,2463           00012                           DEC      10         B-14                       
058250,000107: 11,2464           74014                           BON      AXC,1                                 
058251,000108: 11,2465           00303                                    MOONFLAG                              
058252,000109: 11,2466           24042                                    KEPLERN                               
058253,000110: 11,2467           00002                           DEC      2          B-14                       
058254,000111: 11,2470           77650                           GOTO                                           
058255,000112: 11,2471           24042                                    KEPLERN                               
058256,000113: 

Page 1336

058258,000115: 11,2472           66350        FBR3               LXA,1    SSP                                   
058259,000116: 11,2473           01500                                    DIFEQCNT                              
058260,000117: 11,2474           00051                                    S1                                    
058261,000118: 11,2475           77762                           DEC      -13        B-14                       
058262,000119: 11,2476           54345                           DLOAD    SR                                    
058263,000120: 11,2477           02314                                    DT/2                                  
058264,000121: 11,2500           20612                                    9D                                    
058265,000122: 11,2501           61500                           TIX,1    ROUND                                 
058266,000123: 11,2502           22503                                    +1                                    
058267,000124: 11,2503           43206                           PUSH     DAD                                   
058268,000125: 11,2504           01551                                    TC                                    
058269,000126: 11,2505           16312                           STODL    TAU.                                  
058270,000127: 11,2506           77615                           DAD                                            
058271,000128: 11,2507           01517                                    TET                                   
058272,000129: 11,2510           35517                           STCALL   TET                                   
058273,000130: 11,2511           22372                                    KEPPREP                               
058274,000131: 

Page 1337

058276,000133:                                                                                                  #  AGC ROUTINE TO COMPUTE ACCELERATION COMPONENTS.
058277,000134: 
058278,000135: 11,2512           73150        ACCOMP             LXA,1    LXA,2                                 
058279,000136: 11,2513           02150                                    PBODY                                 
058280,000137: 11,2514           02150                                    PBODY                                 
058281,000138: 11,2515           77775                           VLOAD                                          
058282,000139: 11,2516           11566                                    ZEROVEC                               
058283,000140: 11,2517           26202                           STOVL    FV                                    
058284,000141: 11,2520           02152                                    ALPHAV                                
058285,000142: 11,2521           53257                           VSL*     VAD                                   
058286,000143: 11,2522           57605                                    0          -7,2                       
058287,000144: 11,2523           01535                                    RCV                                   
058288,000145: 11,2524           02160                           STORE    BETAV                                 
058289,000146: 11,2525           65014                           BOF      XCHX,2                                
058290,000147: 11,2526           01756                                    DIM0FLAG                              
058291,000148: 11,2527           22534                                    +5                                    
058292,000149: 11,2530           01500                                    DIFEQCNT                              
058293,000150: 11,2531           12217                           STORE    VECTAB,2                              
058294,000151: 11,2532           77724                           XCHX,2                                         
058295,000152: 11,2533           01500                                    DIFEQCNT                              
058296,000153: 11,2534           53575                           VLOAD    UNIT                                  
058297,000154: 11,2535           02152                                    ALPHAV                                
058298,000155: 11,2536           16152                           STODL    ALPHAV                                
058299,000156: 11,2537           00045                                    36D                                   
058300,000157: 11,2540           02310                           STORE    ALPHAM                                
058301,000158: 11,2541           77624                           CALL                                           
058302,000159: 11,2542           22636                                    GAMCOMP                               
058303,000160: 11,2543           66175                           VLOAD    SXA,1                                 
058304,000161: 11,2544           02160                                    BETAV                                 
058305,000162: 11,2545           00051                                    S2                                    
058306,000163: 11,2546           16152                           STODL    ALPHAV                                
058307,000164: 11,2547           02210                                    BETAM                                 
058308,000165: 11,2550           02310                           STORE    ALPHAM                                
058309,000166: 11,2551           71214                           BOF      DLOAD                                 
058310,000167: 11,2552           00342                                    MIDFLAG                               
058311,000168: 11,2553           23010                                    OBLATE                                
058312,000169: 11,2554           01517                                    TET                                   
058313,000170: 11,2555           77624                           CALL                                           
058314,000171: 11,2556           54110                                    LSPOS                                 
058315,000172: 11,2557           72174                           AXT,2    LXA,1                                 
058316,000173: 11,2560           00002                                    2                                     
058317,000174: 11,2561           00051                                    S2                                    
058318,000175: 11,2562           77614                           BOF                                            
058319,000176: 11,2563           00343                                    MOONFLAG                              
058320,000177: 11,2564           22567                                    +3                                    
058321,000178: 11,2565           77076                           VCOMP    AXT,2                                 
058322,000179: 11,2566           00000                                    0                                     
058323,000180: 11,2567           02160                           STORE    BETAV                                 
058324,000181: 11,2570           26263                           STOVL    RPQV                                  

Page 1338

058326,000183: 11,2571           00003                                    2D                                    
058327,000184: 11,2572           02300                           STORE    RPSV                                  
058328,000185: 11,2573           77214                           BOF      VLOAD                                 
058329,000186: 11,2574           01756                                    DIM0FLAG                              
058330,000187: 11,2575           22610                                    GETRPSV                               
058331,000188: 11,2576           02152                                    ALPHAV                                
058332,000189: 11,2577           53761                           VXSC     VSR*                                  
058333,000190: 11,2600           02310                                    ALPHAM                                
058334,000191: 11,2601           57175                                    1,2                                   
058335,000192: 11,2602           65051                           VSU      XCHX,2                                
058336,000193: 11,2603           02160                                    BETAV                                 
058337,000194: 11,2604           01500                                    DIFEQCNT                              
058338,000195: 11,2605           12225                           STORE    VECTAB     +6,2                       
058339,000196: 11,2606           77724                           XCHX,2                                         
058340,000197: 11,2607           01500                                    DIFEQCNT                              
058341,000198: 11,2610           62175        GETRPSV            VLOAD    INCR,1                                
058342,000199: 11,2611           02263                                    RPQV                                  
058343,000200: 11,2612           00004                                    4                                     
058344,000201: 11,2613           43014                           CLEAR    BOF                                   
058345,000202: 11,2614           04260                                    RPQFLAG                               
058346,000203: 11,2615           00343                                    MOONFLAG                              
058347,000204: 11,2616           22623                                    +5                                    
058348,000205: 11,2617           53261                           VSR      VAD                                   
058349,000206: 11,2620           20612                                    9D                                    
058350,000207: 11,2621           02300                                    RPSV                                  
058351,000208: 11,2622           02300                           STORE    RPSV                                  
058352,000209: 11,2623           77624                           CALL                                           
058353,000210: 11,2624           22636                                    GAMCOMP                               
058354,000211: 11,2625           62174                           AXT,2    INCR,1                                
058355,000212: 11,2626           00004                                    4                                     
058356,000213: 11,2627           00004                                    4                                     
058357,000214: 11,2630           77775                           VLOAD                                          
058358,000215: 11,2631           02300                                    RPSV                                  
058359,000216: 11,2632           36160                           STCALL   BETAV                                 
058360,000217: 11,2633           22636                                    GAMCOMP                               
058361,000218: 11,2634           77650                           GOTO                                           
058362,000219: 11,2635           23010                                    OBLATE                                
058363,000220: 11,2636           74575        GAMCOMP            VLOAD    VSR1                                  
058364,000221: 11,2637           02160                                    BETAV                                 
058365,000222: 11,2640           40236                           VSQ      SETPD                                 
058366,000223: 11,2641           00001                                    0                                     
058367,000224: 11,2642           61501                           NORM     ROUND                                 
058368,000225: 11,2643           00040                                    31D                                   
058369,000226: 11,2644           60325                           PDDL     NORM                                  #  NORMED B SQUARED TO PD LIST
058370,000227: 11,2645           02310                                    ALPHAM                                #  NORMALIZE (LESS ONE) LENGTH OF ALPHA
058371,000228: 11,2646           00041                                    32D                                   #  SAVING NORM SCALE FACTOR IN X1
058372,000229: 11,2647           63342                           SR1      PDVL                                  
058373,000230: 11,2650           02160                                    BETAV                                 #  C(PDL+2) = ALMOST NORMED ALPHA
058374,000231: 11,2651           77656                           UNIT                                           
058375,000232: 11,2652           16160                           STODL    BETAV                                 

Page 1339

058377,000234: 11,2653           00045                                    36D                                   
058378,000235: 11,2654           02210                           STORE    BETAM                                 
058379,000236: 11,2655           55301                           NORM     BDDV                                  #  FORM NORMALIZED QUOTIENT ALPHAM/BETAM
058380,000237: 11,2656           00042                                    33D                                   
058381,000238: 11,2657           41562                           SR1R     PUSH                                  #  C(PDL+2) = ALMOST NORMALIZED RHO.
058382,000239: 11,2660           77743                           DLOAD*                                         
058383,000240: 11,2661           27727                                    ASCALE,1                              
058384,000241: 11,2662           00051                           STORE    S1                                    
058385,000242: 11,2663           57124                           XCHX,2   XAD,2                                 
058386,000243: 11,2664           00050                                    S1                                    
058387,000244: 11,2665           00040                                    32D                                   
058388,000245: 11,2666           71264                           XSU,2    DLOAD                                 
058389,000246: 11,2667           00041                                    33D                                   
058390,000247: 11,2670           00003                                    2D                                    
058391,000248: 11,2671           65057                           SR*      XCHX,2                                
058392,000249: 11,2672           57177                                    0          -1,2                       
058393,000250: 11,2673           00050                                    S1                                    
058394,000251: 11,2674           74406                           PUSH     SR1R                                  #  RHO/4 TO 4D
058395,000252: 11,2675           50315                           PDVL     DOT                                   
058396,000253: 11,2676           02152                                    ALPHAV                                
058397,000254: 11,2677           02160                                    BETAV                                 
058398,000255: 11,2700           44372                           SL1R     BDSU                                  #  (RHO/4) - 2(ALPHAV/2.BETAV/2)
058399,000256: 11,2701           57206                           PUSH     DMPR                                  #  TO PDL+6
058400,000257: 11,2702           00005                                    4                                     
058401,000258: 11,2703           77752                           SL1                                            
058402,000259: 11,2704           43206                           PUSH     DAD                                   
058403,000260: 11,2705           23756                                    DQUARTER                              
058404,000261: 11,2706           75406                           PUSH     SQRT                                  
058405,000262: 11,2707           41475                           DMPR     PUSH                                  
058406,000263: 11,2710           00013                                    10D                                   
058407,000264: 11,2711           43352                           SL1      DAD                                   
058408,000265: 11,2712           23756                                    DQUARTER                              
058409,000266: 11,2713           43325                           PDDL     DAD                                   #  (1/4)+2((Q+1)/4)      TO PD+14D
058410,000267: 11,2714           00013                                    10D                                   
058411,000268: 11,2715           11564                                    HALFDP                                
058412,000269: 11,2716           72475                           DMPR     SL1                                   
058413,000270: 11,2717           00011                                    8D                                    
058414,000271: 11,2720           56215                           DAD      DDV                                   
058415,000272: 11,2721           23750                                    THREE/8                               
058416,000273: 11,2722           00017                                    14D                                   
058417,000274: 11,2723           74275                           DMPR     VXSC                                  
058418,000275: 11,2724           00007                                    6                                     
058419,000276: 11,2725           02160                                    BETAV                                 #                -
058420,000277: 11,2726           64515                           PDVL     VSR3                                  #  (G/2)(C(PD+4))B/2 TO PD+16D
058421,000278: 11,2727           02152                                    ALPHAV                                
058422,000279: 11,2730           41455                           VAD      PUSH                                  #  A12 + C(PD+16D) TO PD+16D
058423,000280: 11,2731           41345                           DLOAD    DMP                                   
058424,000281: 11,2732           00001                                    0                                     
058425,000282: 11,2733           00015                                    12D                                   #  -
058426,000283: 11,2734           61501                           NORM     ROUND                                 

Page 1340

058428,000285: 11,2735           00037                                    30D                                   
058429,000286: 11,2736           40665                           BDDV     DMP*                                  
058430,000287: 11,2737           00003                                    2                                     
058431,000288: 11,2740           50042                                    MUEARTH,2                             
058432,000289: 11,2741           74276                           DCOMP    VXSC                                  
058433,000290: 11,2742           57124                           XCHX,2   XAD,2                                 
058434,000291: 11,2743           00050                                    S1                                    
058435,000292: 11,2744           00051                                    S2                                    
058436,000293: 11,2745           55064                           XSU,2    XSU,2                                 
058437,000294: 11,2746           00036                                    30D                                   
058438,000295: 11,2747           00037                                    31D                                   
058439,000296: 11,2750           77600                           BOV                                            #  CLEAR OVIND
058440,000297: 11,2751           22752                                    +1                                    
058441,000298: 11,2752           65057                           VSR*     XCHX,2                                
058442,000299: 11,2753           57177                                    0          -1,2                       
058443,000300: 11,2754           00050                                    S1                                    
058444,000301: 11,2755           77655                           VAD                                            
058445,000302: 11,2756           02202                                    FV                                    
058446,000303: 11,2757           02202                           STORE    FV                                    
058447,000304: 11,2760           43400                           BOV      RVQ                                   #  RETURN IF NO OVERFLOW
058448,000305: 11,2761           22762                                    +1                                    
058449,000306: 11,2762           51575        GOBAQUE            VLOAD    ABVAL                                 
058450,000307: 11,2763           01521                                    TDELTAV                               
058451,000308: 11,2764           77654                           BZE                                            
058452,000309: 11,2765           23005                                    INT-ABRT                              
058453,000310: 11,2766           54345                           DLOAD    SR                                    
058454,000311: 11,2767           02212                                    H                                     
058455,000312: 11,2770           20612                                    9D                                    
058456,000313: 11,2771           44206                           PUSH     BDSU                                  
058457,000314: 11,2772           01551                                    TC                                    
058458,000315: 11,2773           16312                           STODL    TAU.                                  
058459,000316: 11,2774           01517                                    TET                                   
058460,000317: 11,2775           45425                           DSU      STADR                                 
058461,000318: 11,2776           42260                           STCALL   TET                                   
058462,000319: 11,2777           22372                                    KEPPREP                               
058463,000320: 11,3000           77624                           CALL                                           
058464,000321: 11,3001           23421                                    RECTIFY                               
058465,000322: 11,3002           77614                           SETGO                                          
058466,000323: 11,3003           04020                                    RPQFLAG                               
058467,000324: 11,3004           27305                                    TESTLOOP                              
058468,000325: 
058469,000326: 11,3005           77776        INT-ABRT           EXIT                                           
058470,000327: 11,3006           05721                           TC       POODOO                                
058471,000328: 11,3007           00430                           OCT      00430                                 
058472,000329: 

Page 1341

058474,000331:                                                                                                  #  THE OBLATE ROUTINE COMPUTES THE ACCELERATION DUE TO OBLATENESS.  IT USES THE UNIT OF THE VEHICLE
058475,000332:                                                                                                  #  POSITION VECTOR FOUND IN ALPHAV AND THE DISTANCE TO THE CENTER IN ALPHAM.  THIS IS ADDED TO THE SUM OF THE
058476,000333:                                                                                                  #  DISTURBING ACCELERATIONS IN FV AND THE PROPER DIFEQ STAGE IS CALLED VIA X1.
058477,000334: 
058478,000335: 11,3010           71354        OBLATE             LXA,2    DLOAD                                 
058479,000336: 11,3011           02150                                    PBODY                                 
058480,000337: 11,3012           02310                                    ALPHAM                                
058481,000338: 11,3013           44601                           SETPD    DSU*                                  
058482,000339: 11,3014           00001                                    0                                     
058483,000340: 11,3015           50010                                    RDE,2                                 
058484,000341: 11,3016           43044                           BPL      BOF                                   #  GET URPV
058485,000342: 11,3017           23220                                    NBRANCH                               
058486,000343: 11,3020           00343                                    MOONFLAG                              
058487,000344: 11,3021           23227                                    COSPHIE                               
058488,000345: 11,3022           65375                           VLOAD    PDDL                                  
058489,000346: 11,3023           02152                                    ALPHAV                                
058490,000347: 11,3024           01517                                    TET                                   
058491,000348: 11,3025           45125                           PDDL     CALL                                  
058492,000349: 11,3026           23746                                    3/5                                   
058493,000350: 11,3027           55371                                    R-TO-RP                               
058494,000351: 11,3030           00017                           STORE    URPV                                  
058495,000352: 11,3031           47375                           VLOAD    VXV                                   
058496,000353: 11,3032           02012                                    504LM                                 
058497,000354: 11,3033           11560                                    ZUNIT                                 
058498,000355: 11,3034           61255                           VAD      VXM                                   
058499,000356: 11,3035           11560                                    ZUNIT                                 
058500,000357: 11,3036           00025                                    MMATRIX                               
058501,000358: 11,3037           77656                           UNIT                                           #  POSSIBLY UNNECESSARY
058502,000359: 11,3040           00025        COMTERM            STORE    UZ                                    
058503,000360: 11,3041           57345                           DLOAD    DMPR                                  
058504,000361: 11,3042           00023                                    COSPHI/2                              
058505,000362: 11,3043           23760                                    3/32                                  
058506,000363: 11,3044           63525                           PDDL     DSQ                                   #  P2/64 TO PD0
058507,000364: 11,3045           00023                                    COSPHI/2                              
058508,000365: 11,3046           45275                           DMPR     DSU                                   
058509,000366: 11,3047           23762                                    15/16                                 
058510,000367: 11,3050           23754                                    3/64                                  
058511,000368: 11,3051           57206                           PUSH     DMPR                                  #  P3/32 TO PD2
058512,000369: 11,3052           00023                                    COSPHI/2                              
058513,000370: 11,3053           76405                           DMP      SL1R                                  
058514,000371: 11,3054           23766                                    7/12                                  
058515,000372: 11,3055           57325                           PDDL     DMPR                                  
058516,000373: 11,3056           00001                                    0                                     
058517,000374: 11,3057           23774                                    2/3                                   
058518,000375: 11,3060           41421                           BDSU     PUSH                                  #  P4/128 TO PD4
058519,000376: 11,3061           57275                           DMPR     DMPR                                  
058520,000377: 11,3062           00023                                    COSPHI/2                              #  BEGIN COMPUTING P5/1024
058521,000378: 11,3063           23770                                    9/16                                  
058522,000379: 11,3064           57325                           PDDL     DMPR                                  
058523,000380: 11,3065           00003                                    2                                     
058524,000381: 11,3066           23772                                    5/128                                 

Page 1342

058526,000383: 11,3067           77621                           BDSU                                           
058527,000384: 11,3070           77603                           DMP*                                           
058528,000385: 11,3071           50036                                    J4REQ/J3,2                            
058529,000386: 11,3072           43271                           DDV      DAD                                   #               -3
058530,000387: 11,3073           02310                                    ALPHAM                                #  (((P5/256)B 2  /R+P4/32)  /R+P3/8)ALPHAV
058531,000388: 11,3074           00005                                    4                                     #             4             3
058532,000389: 11,3075           56273                           DMPR*    DDV                                   
058533,000390: 11,3076           50032                                    2J3RE/J2,2                            
058534,000391: 11,3077           02310                                    ALPHAM                                
058535,000392: 11,3100           74215                           DAD      VXSC                                  
058536,000393: 11,3101           00003                                    2                                     
058537,000394: 11,3102           02152                                    ALPHAV                                
058538,000395: 11,3103           14033                           STODL    TVEC                                  
058539,000396: 11,3104           70403                           DMP*     SR1                                   
058540,000397: 11,3105           50036                                    J4REQ/J3,2                            
058541,000398: 11,3106           43271                           DDV      DAD                                   
058542,000399: 11,3107           02310                                    ALPHAM                                #                 -3
058543,000400: 11,3110           50473                           DMPR*    SR3                                   
058544,000401: 11,3111           50032                                    2J3RE/J2,2                            #   3           4
058545,000402: 11,3112           43271                           DDV      DAD                                   
058546,000403: 11,3113           02310                                    ALPHAM                                
058547,000404: 11,3114           76561                           VXSC     VSL1                                  
058548,000405: 11,3115           00025                                    UZ                                    
058549,000406: 11,3116           77645                           BVSU                                           
058550,000407: 11,3117           00033                                    TVEC                                  
058551,000408: 11,3120           14033                           STODL    TVEC                                  
058552,000409: 11,3121           02310                                    ALPHAM                                
058553,000410: 11,3122           63501                           NORM     DSQ                                   
058554,000411: 11,3123           00047                                    X1                                    
058555,000412: 11,3124           60316                           DSQ      NORM                                  
058556,000413: 11,3125           00051                                    S1                                    #          4
058557,000414: 11,3126           54606                           PUSH     BDDV*                                 #  NORMED R  TO 0D
058558,000415: 11,3127           50026                                    J2REQSQ,2                             
058559,000416: 11,3130           40161                           VXSC     BOV                                   
058560,000417: 11,3131           00033                                    TVEC                                  
058561,000418: 11,3132           23133                                    +1                                    #  (RESET OVERFLOW INDICATOR)
058562,000419: 11,3133           56070                           XAD,1    XAD,1                                 
058563,000420: 11,3134           00046                                    X1                                    
058564,000421: 11,3135           00046                                    X1                                    
058565,000422: 11,3136           53670                           XAD,1    VSL*                                  
058566,000423: 11,3137           00050                                    S1                                    
058567,000424: 11,3140           20153                                    0          -22D,1                     
058568,000425: 11,3141           40055                           VAD      BOV                                   
058569,000426: 11,3142           02202                                    FV                                    
058570,000427: 11,3143           22762                                    GOBAQUE                               
058571,000428: 11,3144           36202                           STCALL   FV                                    
058572,000429: 11,3145           27770                                    QUALITY1                              
058573,000430: 11,3146           77716        QUALITY3           DSQ                                            #  J22 TERM X R**4 IN 2D,  SCALED B61
058574,000431:                                                                                                  #  AS VECTOR.
058575,000432: 11,3147           41206                           PUSH     DMP                                   #  STORE COSPHI**2 SCALED B2 IN 8D

Page 1343

058577,000434: 11,3150           27755                                    5/8                                   #  5 SCALED B3
058578,000435: 11,3151           60525                           PDDL     SR2                                   #  PUT 5 COSPHI**2, D5, IN 8D. GET
058579,000436:                                                                                                  #  COSPHI**2 D2 FROM 8D
058580,000437: 11,3152           44215                           DAD      BDSU                                  #  END UP WITH (1-7 COSPHI**2), B5
058581,000438: 11,3153           00011                                    8D                                    #  ADDING COSPHI**2 B4 SAME AS COSPHI**2
058582,000439:                                                                                                  #  X 2 D5
058583,000440: 11,3154           11616                                    D1/32                                 #  1 SCALED B5
058584,000441: 11,3155           41205                           DMP      DMP                                   
058585,000442: 11,3156           00017                                    URPV                                  #  X COMPONENT
058586,000443: 11,3157           27755                                    5/8                                   #  5 SCALED B3
058587,000444: 11,3160           56561                           VXSC     VSL5                                  #  AFTER SHIFT, SCALED B5
058588,000445: 11,3161           00017                                    URPV                                  #  VECTOR, B1.
058589,000446: 11,3162           77725                           PDDL                                           #  VECTOR INTO 8D, 10D, 12D, SCALED B5.
058590,000447:                                                                                                  #  GET 5 COSPHI**2 OUT OF 8D
058591,000448: 11,3163           43225                           DSU      DAD                                   
058592,000449: 11,3164           11616                                    D1/32                                 #  1 B5
058593,000450: 11,3165           00011                                    8D                                    #  X COMPONENT (SAME AS MULTIPLYING
058594,000451:                                                                                                  #  BY UNITX)
058595,000452: 11,3166           14011                           STODL    8D                                    
058596,000453: 11,3167           00017                                    URPV                                  #  X COMPONENT
058597,000454: 11,3170           41205                           DMP      DMP                                   
058598,000455: 11,3171           00023                                    URPV       +4                         #  Z COMPONENT
058599,000456: 11,3172           27755                                    5/8                                   #  5 B3 ANSWER B5
058600,000457: 11,3173           43352                           SL1      DAD                                   #  FROM 12D FOR Z COMPONENT (SL1 GIVES 10
058601,000458:                                                                                                  #  INSTEAD OF 5 FOR COEFFICIENT)
058602,000459: 11,3174           60325                           PDDL     NORM                                  #  BACK INTO 12D FOR Z COMPONENT.
058603,000460: 11,3175           02310                                    ALPHAM                                #  SCALED B27 FOR MOON
058604,000461: 11,3176           00050                                    X2                                    
058605,000462: 11,3177           67206                           PUSH     SLOAD                                 #  STORE IN 14D, DESTROYING URPV
058606,000463:                                                                                                  #  X COMPONENT
058607,000464: 11,3200           02000                                    E32C31RM                              
058608,000465: 11,3201           74271                           DDV      VXSC                                  #  IF X2 = 0, DIVISION GIVES B53, VXSC
058609,000466:                                                                                                  #  OUT OF 8D B5 GIVES B58
058610,000467: 11,3202           53257                           VSL*     VAD                                   #  SHIFT MAKES B61, FOR ADDITION OF
058611,000468:                                                                                                  #  VECTOR IN 2D
058612,000469: 11,3203           57601                                    0          -3,2                       
058613,000470: 11,3204           70257                           VSL*     V/SC                                  #  OPERAND FROM 0D, B108 FOR X1 = 0
058614,000471: 11,3205           20146                                    0          -27D,1                     #  FOR X1 = 0, MAKES B88, GIVING B-20
058615,000472:                                                                                                  #  FOR RESULT.
058616,000473: 11,3206           65325                           PDDL     PDDL                                  
058617,000474: 11,3207           01517                                    TET                                   
058618,000475: 11,3210           27755                                    5/8                                   #  ANY NON-ZERO CONSTANT
058619,000476: 11,3211           45154                           LXA,2    CALL                                  #  POSITION IN 0D, TIME IN 6D. X2 LEFT
058620,000477:                                                                                                  #  ALONE.
058621,000478: 11,3212           02150                                    PBODY                                 
058622,000479: 11,3213           55344                                    RP-TO-R                               
058623,000480: 11,3214           40055                           VAD      BOV                                   #  OVERFLOW INDICATOR RESET IN "RP-TO-R"
058624,000481: 11,3215           02202                                    FV                                    
058625,000482: 11,3216           22762                                    GOBAQUE                               
058626,000483: 11,3217           02202                           STORE    FV                                    

Page 1344

058628,000485: 11,3220           72135        NBRANCH            SLOAD    LXA,1                                 
058629,000486: 11,3221           01501                                    DIFEQCNT                              
058630,000487: 11,3222           00154                                    MPAC                                  
058631,000488: 11,3223           73205                           DMP      CGOTO                                 
058632,000489: 11,3224           27757                                    -1/12                                 
058633,000490: 11,3225           00155                                    MPAC                                  
058634,000491: 11,3226           23235                                    DIFEQTAB                              
058635,000492: 11,3227           77745        COSPHIE            DLOAD                                          
058636,000493: 11,3230           02156                                    ALPHAV     +4                         
058637,000494: 11,3231           24023                           STOVL    COSPHI/2                              
058638,000495: 11,3232           11560                                    ZUNIT                                 
058639,000496: 11,3233           77650                           GOTO                                           
058640,000497: 11,3234           23040                                    COMTERM                               
058641,000498: 11,3235           23446        DIFEQTAB           CADR     DIFEQ+0                               
058642,000499: 11,3236           23452                           CADR     DIFEQ+1                               
058643,000500: 11,3237           23463                           CADR     DIFEQ+2                               
058644,000501: 
058645,000502: 11,3240           45014        TIMESTEP           BOF      CALL                                  
058646,000503: 11,3241           00342                                    MIDFLAG                               
058647,000504: 11,3242           23246                                    RECTEST                               #  SKIP ORIGIN CHANGE LOGIC
058648,000505: 11,3243           23320                                    CHKSWTCH                              
058649,000506: 11,3244           77640                           BMN                                            
058650,000507: 11,3245           23355                                    DOSWITCH                              
058651,000508: 
058652,000509: 11,3246           51575        RECTEST            VLOAD    ABVAL                                 #  RECTIFY IF
058653,000510: 11,3247           01521                                    TDELTAV                               
058654,000511: 11,3250           77600                           BOV                                            
058655,000512: 11,3251           23274                                    CALLRECT                              
058656,000513: 11,3252           51025                           DSU      BPL                                   #        1) EITHER TDELTAV OR TNUV EQUALS OR
058657,000514: 11,3253           23764                                    3/4                                   #           EXCEEDS 3/4 IN MAGNITUDE
058658,000515: 11,3254           23274                                    CALLRECT                              
058659,000516: 11,3255           53615                           DAD      SL*                                   #                        OR
058660,000517: 11,3256           23764                                    3/4                                   
058661,000518: 11,3257           57605                                    0          -7,2                       #        2) ABVAL(TDELTAV) EQUALS OR EXCEEDS
058662,000519: 11,3260           45271                           DDV      DSU                                   #           .01(ABVAL(RCV))
058663,000520: 11,3261           00013                                    10D                                   
058664,000521: 11,3262           27761                                    RECRATIO                              
058665,000522: 11,3263           77244                           BPL      VLOAD                                 
058666,000523: 11,3264           23274                                    CALLRECT                              
058667,000524: 11,3265           01527                                    TNUV                                  
058668,000525: 11,3266           45246                           ABVAL    DSU                                   
058669,000526: 11,3267           23764                                    3/4                                   
058670,000527: 11,3270           77600                           BOV                                            
058671,000528: 11,3271           23274                                    CALLRECT                              
058672,000529: 11,3272           77640                           BMN                                            
058673,000530: 11,3273           23276                                    INTGRATE                              
058674,000531: 11,3274           77624        CALLRECT           CALL                                           
058675,000532: 11,3275           23421                                    RECTIFY                               
058676,000533: 11,3276           77775        INTGRATE           VLOAD                                          
058677,000534: 11,3277           01527                                    TNUV                                  

Page 1345

058679,000536: 11,3300           25120                           STOVL    ZV                                    
058680,000537: 11,3301           01521                                    TDELTAV                               
058681,000538: 11,3302           01112                           STORE    YV                                    
058682,000539: 11,3303           77614                           CLEAR                                          
058683,000540: 11,3304           00261                                    JSWITCH                               
058684,000541: 11,3305           66375        DIFEQ0             VLOAD    SSP                                   
058685,000542: 11,3306           01112                                    YV                                    
058686,000543: 11,3307           01501                                    DIFEQCNT                              
058687,000544: 11,3310           00000                                    0                                     
058688,000545: 11,3311           16152                           STODL    ALPHAV                                
058689,000546: 11,3312           11566                                    DPZERO                                
058690,000547: 11,3313           02212                           STORE    H                                     #  START H AT ZERO.  GOES 0(DELT/2)DELT.
058691,000548: 11,3314           52014                           BON      GOTO                                  
058692,000549: 11,3315           00301                                    JSWITCH                               
058693,000550: 11,3316           23665                                    DOW..                                 
058694,000551: 11,3317           22512                                    ACCOMP                                
058695,000552: 
058696,000553: 11,3320           43020        CHKSWTCH           STQ      BOF                                   
058697,000554: 11,3321           02270                                    ORIGEX                                
058698,000555: 11,3322           04340                                    RPQFLAG                               
058699,000556: 11,3323           23333                                    RPQOK                                 #  MOON POSITION IS AVAILABLE
058700,000557: 11,3324           45145                           DLOAD    CALL                                  
058701,000558: 11,3325           01517                                    TET                                   
058702,000559: 11,3326           54115                                    LUNPOS                                #  GET MOON POSITION
058703,000560: 11,3327           57414                           BOF      VCOMP                                 
058704,000561: 11,3330           00343                                    MOONFLAG                              
058705,000562: 11,3331           23332                                    +1                                    
058706,000563: 11,3332           02263                           STORE    RPQV                                  
058707,000564: 
058708,000565: 11,3333           77354        RPQOK              LXA,2    VLOAD                                 #  RESTORE X2 AFTER USING LUNPOS
058709,000566: 11,3334           02150                                    PBODY                                 
058710,000567: 11,3335           01521                                    TDELTAV                               #   -
058711,000568: 11,3336           53257                           VSL*     VAD                                   #  |RQC|-RSPHERE WHEN OUTSIDE THE SPHERE.
058712,000569: 11,3337           57605                                    0          -7,2                       #  -   -            -
058713,000570: 11,3340           01535                                    RCV                                   #  R = RDEVIATION + RCONIC
058714,000571: 11,3341           51414                           BOF      ABVAL                                 
058715,000572: 11,3342           00343                                    MOONFLAG                              
058716,000573: 11,3343           23350                                    EARSPH                                
058717,000574: 11,3344           44302                           SR2      BDSU                                  #  INSIDE
058718,000575: 11,3345           27763                                    RSPHERE                               
058719,000576: 11,3346           77650                           GOTO                                           
058720,000577: 11,3347           02270                                    ORIGEX                                
058721,000578: 11,3350           51451        EARSPH             VSU      ABVAL                                 #  OUTSIDE
058722,000579: 11,3351           02263                                    RPQV                                  
058723,000580: 11,3352           52025                           DSU      GOTO                                  
058724,000581: 11,3353           27763                                    RSPHERE                               
058725,000582: 11,3354           02270                                    ORIGEX                                
058726,000583: 
058727,000584: 11,3355           77624        DOSWITCH           CALL                                           
058728,000585: 11,3356           23361                                    ORIGCHNG                              
058729,000586: 11,3357           77650                           GOTO                                           
058730,000587: 11,3360           23276                                    INTGRATE                              
058731,000588: 

Page 1346

058733,000590: 11,3361           45020        ORIGCHNG           STQ      CALL                                  
058734,000591: 11,3362           02270                                    ORIGEX                                
058735,000592: 11,3363           23421                                    RECTIFY                               
058736,000593: 11,3364           53775                           VLOAD    VSL*                                  
058737,000594: 11,3365           01535                                    RCV                                   
058738,000595: 11,3366           57576                                    0,2                                   
058739,000596: 11,3367           53651                           VSU      VSL*                                  
058740,000597: 11,3370           02263                                    RPQV                                  
058741,000598: 11,3371           57574                                    2,2                                   
058742,000599: 11,3372           01503                           STORE    RRECT                                 
058743,000600: 11,3373           15535                           STODL    RCV                                   
058744,000601: 11,3374           01517                                    TET                                   
058745,000602: 11,3375           77624                           CALL                                           
058746,000603: 11,3376           54120                                    LUNVEL                                
058747,000604: 11,3377           57414                           BOF      VCOMP                                 
058748,000605: 11,3400           00343                                    MOONFLAG                              
058749,000606: 11,3401           23402                                    +1                                    
058750,000607: 11,3402           53715                           PDVL     VSL*                                  
058751,000608: 11,3403           01543                                    VCV                                   
058752,000609: 11,3404           57576                                    0,2                                   
058753,000610: 11,3405           77651                           VSU                                            
058754,000611: 11,3406           77657                           VSL*                                           
058755,000612: 11,3407           57574                                    0          +2,2                       
058756,000613: 11,3410           01511                           STORE    VRECT                                 
058757,000614: 11,3411           01543                           STORE    VCV                                   
058758,000615: 11,3412           67154                           LXA,2    SXA,2                                 
058759,000616: 11,3413           02270                                    ORIGEX                                
058760,000617: 11,3414           00052                                    QPRET                                 
058761,000618: 11,3415           52014                           BON      GOTO                                  
058762,000619: 11,3416           00303                                    MOONFLAG                              
058763,000620: 11,3417           26735                                    CLRMOON                               
058764,000621: 11,3420           26742                                    SETMOON                               

Page 1347

058766,000623:                                                                                                  #  THE RECTIFY SUBROUTINE IS CALLED BY THE INTEGRATION PROGRAM AND OCCASIONALLY BY THE MEASUREMENT INCORPORATION
058767,000624:                                                                                                  #  ROUTINES TO ESTABLISH A NEW CONIC.
058768,000625: 
058769,000626: 11,3421           77354        RECTIFY            LXA,2    VLOAD                                 
058770,000627: 11,3422           02150                                    PBODY                                 
058771,000628: 11,3423           01521                                    TDELTAV                               
058772,000629: 11,3424           53257                           VSL*     VAD                                   
058773,000630: 11,3425           57605                                    0          -7,2                       
058774,000631: 11,3426           01535                                    RCV                                   
058775,000632: 11,3427           01503                           STORE    RRECT                                 
058776,000633: 11,3430           25535                           STOVL    RCV                                   
058777,000634: 11,3431           01527                                    TNUV                                  
058778,000635: 11,3432           53257                           VSL*     VAD                                   
058779,000636: 11,3433           57602                                    0          -4,2                       
058780,000637: 11,3434           01543                                    VCV                                   
058781,000638: 11,3435           01511        MINIRECT           STORE    VRECT                                 
058782,000639: 11,3436           25543                           STOVL    VCV                                   
058783,000640: 11,3437           11566                                    ZEROVEC                               
058784,000641: 11,3440           01521                           STORE    TDELTAV                               
058785,000642: 11,3441           15527                           STODL    TNUV                                  
058786,000643: 11,3442           11566                                    ZEROVEC                               
058787,000644: 11,3443           01551                           STORE    TC                                    
058788,000645: 11,3444           01553                           STORE    XKEP                                  
058789,000646: 11,3445           77616                           RVQ                                            
058790,000647: 

Page 1348

058792,000649:                                                                                                  #  THE THREE DIFEQ ROUTINES - DIFEQ+0, DIFEQ+12, AND DIFEQ+24 - ARE ENTEREDTO PROCESS THE CONTRIBUTIONS AT THE
058793,000650:                                                                                                  #  BEGINNING, MIDDLE, AND END OF THE TIMESTEP, RESPECTIVELY.  THE UPDATING IS DONE BY THE NYSTROM METHOD.
058794,000651: 
058795,000652: 11,3446           64575        DIFEQ+0            VLOAD    VSR3                                  
058796,000653: 11,3447           02202                                    FV                                    
058797,000654: 11,3450           36166                           STCALL   PHIV                                  
058798,000655: 11,3451           23626                                    DIFEQCOM                              
058799,000656: 11,3452           74575        DIFEQ+1            VLOAD    VSR1                                  
058800,000657: 11,3453           02202                                    FV                                    
058801,000658: 11,3454           53206                           PUSH     VAD                                   
058802,000659: 11,3455           02166                                    PHIV                                  
058803,000660: 11,3456           26174                           STOVL    PSIV                                  
058804,000661: 11,3457           53362                           VSR1     VAD                                   
058805,000662: 11,3460           02166                                    PHIV                                  
058806,000663: 11,3461           36166                           STCALL   PHIV                                  
058807,000664: 11,3462           23626                                    DIFEQCOM                              
058808,000665: 11,3463           57345        DIFEQ+2            DLOAD    DMPR                                  
058809,000666: 11,3464           02212                                    H                                     
058810,000667: 11,3465           23774                                    DP2/3                                 
058811,000668: 11,3466           74206                           PUSH     VXSC                                  
058812,000669: 11,3467           02166                                    PHIV                                  
058813,000670: 11,3470           53372                           VSL1     VAD                                   
058814,000671: 11,3471           01120                                    ZV                                    
058815,000672: 11,3472           53361                           VXSC     VAD                                   
058816,000673: 11,3473           02212                                    H                                     
058817,000674: 11,3474           01112                                    YV                                    
058818,000675: 11,3475           25112                           STOVL    YV                                    
058819,000676: 11,3476           02202                                    FV                                    
058820,000677: 11,3477           53322                           VSR3     VAD                                   
058821,000678: 11,3500           02174                                    PSIV                                  
058822,000679: 11,3501           76561                           VXSC     VSL1                                  
058823,000680: 11,3502           77655                           VAD                                            
058824,000681: 11,3503           01120                                    ZV                                    
058825,000682: 11,3504           01120                           STORE    ZV                                    
058826,000683: 11,3505           45014                           BOFF     CALL                                  
058827,000684: 11,3506           00341                                    JSWITCH                               
058828,000685: 11,3507           23557                                    ENDSTATE                              
058829,000686: 11,3510           56750                                    GRP2PC                                
058830,000687: 11,3511           77354                           LXA,2    VLOAD                                 
058831,000688: 11,3512           01102                                    COLREG                                
058832,000689: 11,3513           01120                                    ZV                                    
058833,000690: 11,3514           77732                           VSL3                                           #  ADJUST W-POSITION FOR STORAGE
058834,000691: 11,3515           12467                           STORE    W          +54D,2                     
058835,000692: 11,3516           77775                           VLOAD                                          
058836,000693: 11,3517           01112                                    YV                                    
058837,000694: 11,3520           40132                           VSL3     BOV                                   
058838,000695: 11,3521           23651                                    WMATEND                               
058839,000696: 11,3522           12401                           STORE    W,2                                   
058840,000697: 
058841,000698: 11,3523           77624                           CALL                                           
058842,000699: 11,3524           56750                                    GRP2PC                                

Page 1349

058844,000701: 11,3525           66354                           LXA,2    SSP                                   
058845,000702: 11,3526           01102                                    COLREG                                
058846,000703: 11,3527           00052                                    S2                                    
058847,000704: 11,3530           00000                                    0                                     
058848,000705: 11,3531           67114                           INCR,2   SXA,2                                 
058849,000706: 11,3532           00006                                    6                                     
058850,000707: 11,3533           01111                                    YV                                    
058851,000708: 11,3534           45104                           TIX,2    CALL                                  
058852,000709: 11,3535           23622                                    RELOADSV                              
058853,000710: 11,3536           56750                                    GRP2PC                                
058854,000711: 11,3537           67154                           LXA,2    SXA,2                                 
058855,000712: 11,3540           01111                                    YV                                    
058856,000713: 11,3541           01102                                    COLREG                                
058857,000714: 
058858,000715: 11,3542           77624        NEXTCOL            CALL                                           
058859,000716: 11,3543           56750                                    GRP2PC                                
058860,000717: 11,3544           76754                           LXA,2    VLOAD*                                
058861,000718: 11,3545           01102                                    COLREG                                
058862,000719: 11,3546           75376                                    W,2                                   
058863,000720: 11,3547           77722                           VSR3                                           #  ADJUST W-POSITION FOR INTEGRATION
058864,000721: 11,3550           01112                           STORE    YV                                    
058865,000722: 11,3551           76173                           VLOAD*   AXT,1                                 
058866,000723: 11,3552           75310                                    W          +54D,2                     
058867,000724: 11,3553           00000                                    0                                     
058868,000725: 11,3554           77722                           VSR3                                           #  ADJUST W-VELOCITY FOR INTEGRATION
058869,000726: 11,3555           35120                           STCALL   ZV                                    
058870,000727: 11,3556           23305                                    DIFEQ0                                
058871,000728: 
058872,000729: 11,3557           77200        ENDSTATE           BOV      VLOAD                                 
058873,000730: 11,3560           22762                                    GOBAQUE                               
058874,000731: 11,3561           01120                                    ZV                                    
058875,000732: 11,3562           25527                           STOVL    TNUV                                  
058876,000733: 11,3563           01112                                    YV                                    
058877,000734: 11,3564           01521                           STORE    TDELTAV                               
058878,000735: 11,3565           43014                           BON      BOFF                                  
058879,000736: 11,3566           04715                                    MIDAVFLG                              
058880,000737: 11,3567           27633                                    CKMID2                                #  CHECK FOR MID2 BEFORE GOING TO TIMEINC
058881,000738: 11,3570           01756                                    DIM0FLAG                              
058882,000739: 11,3571           27305                                    TESTLOOP                              
058883,000740: 11,3572           77776                           EXIT                                           
058884,000741: 11,3573           05412                           TC       PHASCHNG                              
058885,000742: 11,3574           04022                           OCT      04022                                 #  PHASE 1
058886,000743: 11,3575           05546                           TC       UPFLAG                                #  PHASE CHANGE HAS OCCURRED BETWEEN
058887,000744: 11,3576           00236                           ADRES    REINTFLG                              #  INTSTALL AND INTWAKE
058888,000745: 11,3577           06006                           TC       INTPRET                               
058889,000746: 11,3600           77731                           SSP                                            
058890,000747: 11,3601           00053                                    QPRET                                 
058891,000748: 11,3602           23607                                    AMOVED                                
058892,000749: 11,3603           52014                           BON      GOTO                                  
058893,000750: 11,3604           01714                                    VINTFLAG                              

Page 1350

058895,000752: 11,3605           26705                                    ATOPCSM                               
058896,000753: 11,3606           26760                                    ATOPLEM                               
058897,000754: 11,3607           66214        AMOVED             SET      SSP                                   
058898,000755: 11,3610           00061                                    JSWITCH                               
058899,000756: 11,3611           01103                                    COLREG                                
058900,000757: 11,3612           77741                           DEC      -30        B-14                       
058901,000758: 11,3613           66214                           BOFF     SSP                                   
058902,000759: 11,3614           01755                                    D6OR9FLG                              
058903,000760: 11,3615           23542                                    NEXTCOL                               
058904,000761: 11,3616           01103                                    COLREG                                
058905,000762: 11,3617           77717                           DEC      -48        B-14                       
058906,000763: 11,3620           77650                           GOTO                                           
058907,000764: 11,3621           23542                                    NEXTCOL                               
058908,000765: 
058909,000766: 11,3622           77745        RELOADSV           DLOAD                                          #  RELOAD TEMPORARY STATE VECTOR
058910,000767: 11,3623           01101                                    TDEC                                  #  FROM PERMANENT IN CASE OF
058911,000768: 11,3624           34041                           STCALL   TDEC1                                 
058912,000769: 11,3625           27167                                    INTEGRV2                              #  BY STARTING AT INTEGRV2.
058913,000770: 11,3626           43345        DIFEQCOM           DLOAD    DAD                                   #  INCREMENT H AND DIFEQCNT.
058914,000771: 11,3627           02314                                    DT/2                                  
058915,000772: 11,3630           02212                                    H                                     
058916,000773: 11,3631           66110                           INCR,1   SXA,1                                 
058917,000774: 11,3632           77763                           DEC      -12        B-14                       
058918,000775: 11,3633           01500                                    DIFEQCNT                              #  DIFEQCNT SET FOR NEXT ENTRY.
058919,000776: 11,3634           02212                           STORE    H                                     
058920,000777: 11,3635           74561                           VXSC     VSR1                                  
058921,000778: 11,3636           02202                                    FV                                    
058922,000779: 11,3637           74255                           VAD      VXSC                                  
058923,000780: 11,3640           01120                                    ZV                                    
058924,000781: 11,3641           02212                                    H                                     
058925,000782: 11,3642           77655                           VAD                                            
058926,000783: 11,3643           01112                                    YV                                    
058927,000784: 11,3644           02152                           STORE    ALPHAV                                
058928,000785: 11,3645           52014                           BON      GOTO                                  
058929,000786: 11,3646           00301                                    JSWITCH                               
058930,000787: 11,3647           23665                                    DOW..                                 
058931,000788: 11,3650           22472                                    FBR3                                  
058932,000789: 
058933,000790: 11,3651           43014        WMATEND            CLEAR    CLEAR                                 
058934,000791: 11,3652           01676                                    DIM0FLAG                              #  DONT INTEGRATE W THIS TIME
058935,000792: 11,3653           01671                                    ORBWFLAG                              #  INVALIDATE W
058936,000793: 11,3654           77614                           CLEAR                                          
058937,000794: 11,3655           02676                                    RENDWFLG                              
058938,000795: 11,3656           77414                           SET      EXIT                                  
058939,000796: 11,3657           01472                                    STATEFLG                              #  PICK UP STATE VECTOR UPDATE
058940,000797: 11,3660           05650                           TC       ALARM                                 
058941,000798: 11,3661           00421                           OCT      421                                   
058942,000799: 11,3662           06006                           TC       INTPRET                               

Page 1351

058944,000801: 11,3663           77650                           GOTO                                           
058945,000802: 11,3664           27305                                    TESTLOOP                              #  FINISH INTEGRATING STATE VECTOR
058946,000803: 

Page 1352

058948,000805:                                                                                                  #  ORBITAL ROUTINE FOR EXTRAPOLATION OF THE W MATRIX.  IT COMPUTES THE SECOND DERIVATIVE OF EACH COLUMN POSITION
058949,000806:                                                                                                  #  VECTOR OF THE MATRIX AND CALLS THE NYSTROM INTEGRATION ROUTINES TO SOLVE THE DIFFERENTIAL EQUATIONS.  THE PROGRAM
058950,000807:                                                                                                  #  USES A TABLE OF VEHICLE POSITION VECTORS COMPUTED DURING THE INTEGRATION OF THE VEHICLES POSITION AND VELOCITY.
058951,000808: 
058952,000809: 11,3665           70754        DOW..              LXA,2    DLOAD*                                
058953,000810: 11,3666           02150                                    PBODY                                 
058954,000811: 11,3667           50042                                    MUEARTH,2                             
058955,000812: 11,3670           36210                           STCALL   BETAM                                 
058956,000813: 11,3671           23713                                    DOW..1                                
058957,000814: 11,3672           02202                           STORE    FV                                    
058958,000815: 11,3673           62014                           BOF      INCR,1                                
058959,000816: 11,3674           00342                                    MIDFLAG                               
058960,000817: 11,3675           23220                                    NBRANCH                               
058961,000818: 11,3676           77771                           DEC      -6         B-14                       
058962,000819: 11,3677           70744                           LXC,2    DLOAD*                                
058963,000820: 11,3700           02150                                    PBODY                                 
058964,000821: 11,3701           50044                                    MUEARTH    -2,2                       
058965,000822: 11,3702           36210                           STCALL   BETAM                                 
058966,000823: 11,3703           23713                                    DOW..1                                
058967,000824: 11,3704           50414                           BON      VSR6                                  
058968,000825: 11,3705           00303                                    MOONFLAG                              
058969,000826: 11,3706           23707                                    +1                                    
058970,000827: 11,3707           77655                           VAD                                            
058971,000828: 11,3710           02202                                    FV                                    
058972,000829: 11,3711           36202                           STCALL   FV                                    
058973,000830: 11,3712           23220                                    NBRANCH                               
058974,000831: 11,3713           60575        DOW..1             VLOAD    VSR4                                  
058975,000832: 11,3714           02152                                    ALPHAV                                
058976,000833: 11,3715           53513                           PDVL*    UNIT                                  
058977,000834: 11,3716           02217                                    VECTAB,1                              
058978,000835: 11,3717           46315                           PDVL     VPROJ                                 
058979,000836: 11,3720           02152                                    ALPHAV                                
058980,000837: 11,3721           52361                           VXSC     VSU                                   
058981,000838: 11,3722           23764                                    3/4                                   
058982,000839: 11,3723           60325                           PDDL     NORM                                  
058983,000840: 11,3724           00045                                    36D                                   
058984,000841: 11,3725           00052                                    S2                                    
058985,000842: 11,3726           63406                           PUSH     DSQ                                   
058986,000843: 11,3727           77605                           DMP                                            
058987,000844: 11,3730           65301                           NORM     PDDL                                  
058988,000845: 11,3731           00043                                    34D                                   
058989,000846: 11,3732           02210                                    BETAM                                 
058990,000847: 11,3733           56342                           SR1      DDV                                   
058991,000848: 11,3734           77761                           VXSC                                           
058992,000849: 11,3735           57154                           LXA,2    XAD,2                                 
058993,000850: 11,3736           00051                                    S2                                    
058994,000851: 11,3737           00051                                    S2                                    
058995,000852: 11,3740           57074                           XAD,2    XAD,2                                 
058996,000853: 11,3741           00051                                    S2                                    
058997,000854: 11,3742           00042                                    34D                                   
058998,000855: 11,3743           43457                           VSL*     RVQ                                   

Page 1353

059000,000857: 11,3744           57606                                    0          -8D,2                      
059001,000858: 
059002,000859: 11,2000                                           SETLOC   ORBITAL1                              
059003,000860: 11,2000                                           BANK                                           
059004,000861: 
059005,000862: 11,3745           04631 23146  3/5                2DEC     .6         B-2                        
059006,000863: 11,3747           14000 00000  THREE/8            2DEC     .375                                  
059007,000864: 11,3751           02314 31463  .3D                2DEC     .3         B-2                        
059008,000865: 11,3753           01400 00000  3/64               2DEC     3          B-6                        
059009,000866: 11,3755           10000 00000  DP1/4              2DEC     .25                                   
059010,000867: 11,3757  11,3755               DQUARTER           EQUALS   DP1/4                                 
059011,000868: 11,3757  11,3755               POS1/4             EQUALS   DP1/4                                 
059012,000869: 11,3757           03000 00000  3/32               2DEC     3          B-5                        
059013,000870: 11,3761           36000 00000  15/16              2DEC     15.        B-4                        
059014,000871: 11,3763           30000 00000  3/4                2DEC     3.0        B-2                        
059015,000872: 11,3765           22525 12525  7/12               2DEC     .5833333333                            
059016,000873: 11,3767           22000 00000  9/16               2DEC     9          B-4                        
059017,000874: 11,3771           01200 00000  5/128              2DEC     5          B-7                        
059018,000875: 11,3773  04,3565               DPZERO             EQUALS   ZEROVEC                               
059019,000876: 11,3773           25252 25253  DP2/3              2DEC     .6666666667                            
059020,000877: 11,3775  11,3773               2/3                EQUALS   DP2/3                                 
059021,000878: 11,3775           00027        OCT27              OCT      27                                    
059022,000879:                                                                                                  #  LM504 IS TEMPORARY
059023,000880: 13,3714                                           BANK     13                                    
059024,000881: 13,2000                                           SETLOC   ORBITAL2                              
059025,000882: 13,2000                                           BANK                                           
059026,000883:                                                                                                  #  IT IS VITAL THAT THE FOLLOWING CONSTANTS NOT BE SHUFFLED
059027,000884: 13,3714           77764                           DEC      -11        B-14                       
059028,000885: 13,3715           77775                           DEC      -2         B-14                       
059029,000886: 13,3716           77766                           DEC      -9         B-14                       
059030,000887: 13,3717           77771                           DEC      -6         B-14                       
059031,000888: 13,3720           77775                           DEC      -2         B-14                       
059032,000889: 13,3721           77775                           DEC      -2         B-14                       
059033,000890: 13,3722           00000                           DEC      0          B-14                       
059034,000891: 13,3723           77763                           DEC      -12        B-14                       
059035,000892: 13,3724           77766                           DEC      -9         B-14                       
059036,000893: 13,3725           77773                           DEC      -4         B-14                       
059037,000894: 13,3726           77770        ASCALE             DEC      -7         B-14                       
059038,000895: 13,3727           77771                           DEC      -6         B-14                       

Page 1354

059040,000897: 13,3730           27446 14620                     2DEC*    1.32715445 E16        B-54*           #  S
059041,000898: 13,3732           16471 01352                     2DEC*    4.9027780  E8         B-30*           #  M
059042,000899: 13,3734           22437 16067  MUEARTH            2DEC*    3.986032   E10        B-36*           
059043,000900: 13,3736           00000 00000                     2DEC     0          B-28                       
059044,000901: 13,3740           02302 24736  J4REQ/J3           2DEC*    .4991607391 E7         B-26*           
059045,000902: 13,3742           77651 76237                     2DEC     -176236.02 B-25                       
059046,000903: 13,3744           77776 53032  2J3RE/J2           2DEC*    -.1355426363 E5         B-27*           
059047,000904: 13,3746           10407 05344                     2DEC*    .3067493316 E18        B-60*           
059048,000905: 13,3750           13710 35320  J2REQSQ            2DEC*    1.75501139 E21        B-72*           
059049,000906: 13,3752           12160 12124  3J22R2MU           2DEC*    9.20479048 E16        B-58*           
059050,000907: 13,3754           24000 00000  5/8                2DEC     5          B-3                        
059051,000908: 13,3756           74631 63145  -1/12              2DEC     -.1                                   
059052,000909: 13,3760  13,3732               MUM                =        MUEARTH    -2                         
059053,000910: 13,3760           00243 32703  RECRATIO           2DEC     .01                                   
059054,000911: 13,3762           03654 21000  RSPHERE            2DEC     64373.76   E3         B-29            
059055,000912: 13,3764           03654 21000  RDM                2DEC     16093.44   E3         B-27            
059056,000913: 13,3766           04627 25200  RDE                2DEC     80467.20   E3         B-29            
059057,000914: 13,3770                        RATT               EQUALS   00                                    
059058,000915: 13,3770                        VATT               EQUALS   6D                                    
059059,000916: 13,3770                        TAT                EQUALS   12D                                   
059060,000917: 13,3770                        RATT1              EQUALS   14D                                   
059061,000918: 13,3770                        VATT1              EQUALS   20D                                   
059062,000919: 13,3770                        MU(P)              EQUALS   26D                                   
059063,000920: 13,3770                        TDEC1              EQUALS   32D                                   
059064,000921: 13,3770                        URPV               EQUALS   14D                                   
059065,000922: 13,3770     0022               COSPHI/2           EQUALS   URPV       +4                         
059066,000923: 13,3770                        UZ                 EQUALS   20D                                   
059067,000924: 13,3770                        TVEC               EQUALS   26D                                   
059068,000925: 
059069,000926: 
059070,000927: 

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