Source Code

These source-code files are part of a reconstructed copy of Comanche 72, the first release of the Apollo Guidance Computer (AGC) Command Module (CM) software for Apollo 13.

They have been adapted from sources files created from a listing of Comanche 55. These source files were updated to match binary dumps of a set of Comanche 67 rope modules. They were then further modified by applying known changes between Comanche 67 and Comanche 72. A binary dump of module B2 of Comanche 72, part number 2010802-021, was also used to validate changes made to banks 05-13. The resulting code assembles to have identical memory-bank checksums as those specified in NASA drawing 2021153G; this gives reasonably high confidence that the changes that have been made are correct. In places where ambiguity exists, this ambiguity is discussed in "## Reconstruction:" comments.

Since no contemporary listings of Comanche 72 are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing.

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

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