Source Code

This source code is very close to the Apollo Guidance Computer software for the Apollo 13 Lunar module. This revision of the Luminary 131 program is from December of 1969, whereas there was a later revision in January of 1970, and still another revision in February, which is the code that flew on the mission. As far as this transcription is concerned, it was originally from a copy made in 1991 of a printout from the collection of AGC developer Don Eyles for collector David Craig. It was subsequently scanned by Gary Neff, reprocessed for online presentation at the now-discontinued History of Recent Science and Technology (HRST) website of MIT's Dibner Institute (the full-quality scans being discarded in the process), and finally transcribed by Ron Burkey for the Virtual AGC Project. Although a high-quality replacement scan for a completely illegible page was later provided by Gary Neff, the reduced legibility of the reprocessed HRST posting nevertheless caused many errors to be introduced into the transcription. Accordingly, a second scan of the same physical printout was made in 2017 for the Virtual AGC Project's collection at the Internet Archive, and used to correct the transcription errors. All of the scanned materials mentioned, as well as other Luminary 131 related material, are available online. Don Eyles apprently made additional hand-written notes in printout between 1991 and 2017, so the two scans are not identical in that respect. The page-headings in the printout read, in part:
	GAP:  ASSEMBLE REVISION 131 OF AGC PROGRAM LUMINARY BY NASA 2021112-091
	17:53 DEC. 19, 1969
Note that the date is the date the printout was made, not the date on which the program revision was released, although these happen to be very close together.

051349,000002:                                                                                                  ## Copyright:   Public domain.
051350,000003:                                                                                                  ## Filename:    ORBITAL_INTEGRATION.agc
051351,000004:                                                                                                  ## Purpose:     A section of Luminary 1C, revision 131.
051352,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
051353,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 13.
051354,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
051355,000008:                                                                                                  ##              that the code format has been changed to conform to the
051356,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
051357,000010:                                                                                                  ##              original YUL assembler.
051358,000011:                                                                                                  ## Reference:   pp. 1220-1240
051359,000012:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
051360,000013:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
051361,000014:                                                                                                  ## Mod history: 06/02/03 RSB.   Began transcribing.
051362,000015:                                                                                                  ##              05/14/05 RSB    Corrected website reference above.
051363,000016:                                                                                                  ##              2017-01-06 RSB  Page numbers now agree with those on the
051364,000017:                                                                                                  ##                              original hardcopy, as opposed to the PDF page
051365,000018:                                                                                                  ##                              numbers in 1701.pdf.
051366,000019:                                                                                                  ##              2017-02-27 RSB  Proofed comment text using octopus/ProoferComments.
051367,000020:                                                                                                  ##              2017-03-13 RSB  Comment-text fixes noted in proofing Luminary 116.
051368,000021:                                                                                                  ##              2017-03-16 RSB  Comment-text fixes identified in 5-way
051369,000022:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
051370,000023:                                                                                                  ##              2017-03-17 RSB  Comment-text fixes identified in diff'ing
051371,000024:                                                                                                  ##                              Luminary 99 vs Comanche 55.
051372,000025: 

Page 1220

051374,000027:                                                                                                  #  DELETE
051375,000028: 13,3671                                           BANK     13                                    
051376,000029: 11,2000                                           SETLOC   ORBITAL                               
051377,000030: 11,2000                                           BANK                                           
051378,000031: 11,2404                                           COUNT*   $$/ORBIT                              
051379,000032: 
051380,000033:                                                                                                  #  DELETE
051381,000034: 11,2404           40354        KEPPREP            LXA,2    SETPD                                 
051382,000035: 11,2405           02030                                    PBODY                                 
051383,000036: 11,2406           00001                                    0                                     
051384,000037: 11,2407           75543                           DLOAD*   SQRT                                  #  SQRT(MU) (+18 OR +15)         0D      PL 2D
051385,000038: 11,2410           51770                                    MUEARTH,2                             
051386,000039: 11,2411           53515                           PDVL     UNIT                                  #                                        PL 8D
051387,000040: 11,2412           01535                                    RCV                                   
051388,000041: 11,2413           60325                           PDDL     NORM                                  #  NORM R (+29 OR +27 - N1)      2D      PL 4D
051389,000042: 11,2414           00045                                    36D                                   
051390,000043: 11,2415           00047                                    X1                                    
051391,000044: 11,2416           77715                           PDVL                                           
051392,000045: 11,2417           65241                           DOT      PDDL                                  #  F*SQRT(MU) (+7 OR +5)         4D      PL 6D
051393,000046: 11,2420           01543                                    VCV                                   
051394,000047: 11,2421           02074                                    TAU.                                  #  (+28)
051395,000048: 11,2422           60225                           DSU      NORM                                  
051396,000049: 11,2423           01551                                    TC                                    
051397,000050: 11,2424           00051                                    S1                                    
051398,000051: 11,2425           77742                           SR1                                            
051399,000052: 11,2426           65271                           DDV      PDDL                                  
051400,000053: 11,2427           00003                                    2D                                    
051401,000054: 11,2430           41405                           DMP      PUSH                                  #  FS (+6 +N1-N2)                6D      PL 8D
051402,000055: 11,2431           00005                                    4D                                    
051403,000056: 11,2432           65316                           DSQ      PDDL                                  #  (FS)SQ (+12 +2(N1-N2))        8D      PL 10D
051404,000057: 11,2433           00005                                    4D                                    
051405,000058: 11,2434           64716                           DSQ      PDDL*                                 #  SSQ/MU (-2 OR +2(N1-N2))      10D     PL 12D
051406,000059: 11,2435           51770                                    MUEARTH,2                             
051407,000060: 11,2436           40442                           SR3      SR4                                   
051408,000061: 11,2437           47515                           PDVL     VSQ                                   #  PREALIGN MU (+43 OR +37)      12D     PL 14D
051409,000062: 11,2440           01543                                    VCV                                   
051410,000063: 11,2441           44205                           DMP      BDSU                                  #                                        PL 12D
051411,000064: 11,2442           00045                                    36D                                   
051412,000065: 11,2443           41271                           DDV      DMP                                   #                                        PL 10D
051413,000066: 11,2444           00003                                    2D                                    #  -(1/R-ALPHA) (+12 +3N1-2N2)
051414,000067: 11,2445           53605                           DMP      SL*                                   
051415,000068: 11,2446           11230                                    DP2/3                                 
051416,000069: 11,2447           20176                                    0          -3,1                       #  10L(1/R-ALPHA) (+13 +2(N1-N2))
051417,000070: 11,2450           43260                           XSU,1    DAD                                   #  2(FS)SQ - ETCETRA                     PL 8D
051418,000071: 11,2451           00050                                    S1                                    #  X1 = N2-N1
051419,000072: 11,2452           45257                           SL*      DSU                                   #  -FS+2(FS)SQ ETC (+6 +N1-N2)           PL 6D
051420,000073: 11,2453           20211                                    8D,1                                  
051421,000074: 11,2454           41205                           DMP      DMP                                   
051422,000075: 11,2455           00001                                    0D                                    
051423,000076: 11,2456           00005                                    4D                                    
051424,000077: 11,2457           53657                           SL*      SL*                                   

Page 1221

051426,000079: 11,2460           20211                                    8D,1                                  
051427,000080: 11,2461           20201                                    0,1                                   #  S(-FS(1-2FS)-1/6...) (+17 OR +16)
051428,000081: 11,2462           65215                           DAD      PDDL                                  #                                        PL 6D
051429,000082: 11,2463           01553                                    XKEP                                  
051430,000083: 11,2464           53605                           DMP      SL*                                   #  S(+17 OR +16)
051431,000084: 11,2465           00001                                    0D                                    
051432,000085: 11,2466           20202                                    1,1                                   
051433,000086: 11,2467           43204                           BOVB     DAD                                   
051434,000087: 11,2470           57754                                    TCDANZIG                              
051435,000088: 11,2471           77626                           STADR                                          
051436,000089: 11,2472           75647                           STORE    XKEPNEW                               
051437,000090: 11,2473           74020                           STQ      AXC,1                                 
051438,000091: 11,2474           02112                                    KEPRTN                                
051439,000092: 11,2475           00012                           DEC      10         B-14                       
051440,000093: 11,2476           74014                           BON      AXC,1                                 
051441,000094: 11,2477           00303                                    MOONFLAG                              
051442,000095: 11,2500           24023                                    KEPLERN                               
051443,000096: 11,2501           00002                           DEC      2          B-14                       
051444,000097: 11,2502           77650                           GOTO                                           
051445,000098: 11,2503           24023                                    KEPLERN                               
051446,000099: 

Page 1222

051448,000101: 11,2504           66350        FBR3               LXA,1    SSP                                   
051449,000102: 11,2505           01500                                    DIFEQCNT                              
051450,000103: 11,2506           00051                                    S1                                    
051451,000104: 11,2507           77762                           DEC      -13        B-14                       
051452,000105: 11,2510           54345                           DLOAD    SR                                    
051453,000106: 11,2511           02076                                    DT/2                                  
051454,000107: 11,2512           20612                                    9D                                    
051455,000108: 11,2513           61500                           TIX,1    ROUND                                 
051456,000109: 11,2514           22515                                    +1                                    
051457,000110: 11,2515           43206                           PUSH     DAD                                   
051458,000111: 11,2516           01551                                    TC                                    
051459,000112: 11,2517           16074                           STODL    TAU.                                  
051460,000113: 11,2520           77615                           DAD                                            
051461,000114: 11,2521           01517                                    TET                                   
051462,000115: 11,2522           35517                           STCALL   TET                                   
051463,000116: 11,2523           22404                                    KEPPREP                               
051464,000117: 

Page 1223

051466,000119:                                                                                                  #  AGC ROUTINE TO COMPUTE ACCELERATION COMPONENTS.
051467,000120: 
051468,000121: 11,2524           73150        ACCOMP             LXA,1    LXA,2                                 
051469,000122: 11,2525           02030                                    PBODY                                 
051470,000123: 11,2526           02030                                    PBODY                                 
051471,000124: 11,2527           77775                           VLOAD                                          
051472,000125: 11,2530           24007                                    ZEROVEC                               
051473,000126: 11,2531           26062                           STOVL    FV                                    
051474,000127: 11,2532           02032                                    ALPHAV                                
051475,000128: 11,2533           53257                           VSL*     VAD                                   
051476,000129: 11,2534           57605                                    0          -7,2                       
051477,000130: 11,2535           01535                                    RCV                                   
051478,000131: 11,2536           02040                           STORE    BETAV                                 
051479,000132: 11,2537           65014                           BOF      XCHX,2                                
051480,000133: 11,2540           01756                                    DIM0FLAG                              
051481,000134: 11,2541           22546                                    +5                                    
051482,000135: 11,2542           01500                                    DIFEQCNT                              
051483,000136: 11,2543           12132                           STORE    VECTAB,2                              
051484,000137: 11,2544           77724                           XCHX,2                                         
051485,000138: 11,2545           01500                                    DIFEQCNT                              
051486,000139: 11,2546           53575                           VLOAD    UNIT                                  
051487,000140: 11,2547           02032                                    ALPHAV                                
051488,000141: 11,2550           16032                           STODL    ALPHAV                                
051489,000142: 11,2551           00045                                    36D                                   
051490,000143: 11,2552           36070                           STCALL   ALPHAM                                
051491,000144: 11,2553           22655                                    GAMCOMP                               
051492,000145: 11,2554           66175                           VLOAD    SXA,1                                 
051493,000146: 11,2555           02040                                    BETAV                                 
051494,000147: 11,2556           00051                                    S2                                    
051495,000148: 11,2557           16032                           STODL    ALPHAV                                
051496,000149: 11,2560           02072                                    BETAM                                 
051497,000150: 11,2561           02070                           STORE    ALPHAM                                
051498,000151: 11,2562           71214                           BOF      DLOAD                                 
051499,000152: 11,2563           00342                                    MIDFLAG                               
051500,000153: 11,2564           23026                                    OBLATE                                
051501,000154: 11,2565           01517                                    TET                                   
051502,000155: 11,2566           77624                           CALL                                           
051503,000156: 11,2567           33647                                    LSPOS                                 
051504,000157: 11,2570           72174                           AXT,2    LXA,1                                 
051505,000158: 11,2571           00002                                    2                                     
051506,000159: 11,2572           00051                                    S2                                    
051507,000160: 11,2573           77614                           BOF                                            
051508,000161: 11,2574           00343                                    MOONFLAG                              
051509,000162: 11,2575           22600                                    +3                                    
051510,000163: 11,2576           77076                           VCOMP    AXT,2                                 
051511,000164: 11,2577           00000                                    0                                     
051512,000165: 11,2600           02040                           STORE    BETAV                                 
051513,000166: 11,2601           26105                           STOVL    RPQV                                  
051514,000167: 11,2602           00003                                    2D                                    

Page 1224

051516,000169: 11,2603           02122                           STORE    RPSV                                  
051517,000170: 11,2604           45335                           SLOAD    DSU                                   
051518,000171: 11,2605           01011                                    MODREG                                
051519,000172: 11,2606           11232                                    OCT27                                 
051520,000173: 11,2607           43030                           BHIZ     BOF                                   
051521,000174: 11,2610           22613                                    +3                                    
051522,000175: 11,2611           01756                                    DIM0FLAG                              
051523,000176: 11,2612           22627                                    GETRPSV                               
051524,000177: 11,2613           74375                           VLOAD    VXSC                                  
051525,000178: 11,2614           02032                                    ALPHAV                                
051526,000179: 11,2615           02070                                    ALPHAM                                
051527,000180: 11,2616           52257                           VSR*     VSU                                   
051528,000181: 11,2617           57175                                    1,2                                   
051529,000182: 11,2620           02040                                    BETAV                                 
051530,000183: 11,2621           77724                           XCHX,2                                         
051531,000184: 11,2622           01500                                    DIFEQCNT                              
051532,000185: 11,2623           12140                           STORE    VECTAB     +6,2                       
051533,000186: 11,2624           02114                           STORE    RQVV                                  
051534,000187: 11,2625           77724                           XCHX,2                                         
051535,000188: 11,2626           01500                                    DIFEQCNT                              
051536,000189: 11,2627           62175        GETRPSV            VLOAD    INCR,1                                
051537,000190: 11,2630           02105                                    RPQV                                  
051538,000191: 11,2631           00004                                    4                                     
051539,000192: 11,2632           43014                           CLEAR    BOF                                   
051540,000193: 11,2633           04260                                    RPQFLAG                               
051541,000194: 11,2634           00343                                    MOONFLAG                              
051542,000195: 11,2635           22642                                    +5                                    
051543,000196: 11,2636           53261                           VSR      VAD                                   
051544,000197: 11,2637           20612                                    9D                                    
051545,000198: 11,2640           02122                                    RPSV                                  
051546,000199: 11,2641           02122                           STORE    RPSV                                  
051547,000200: 11,2642           77624                           CALL                                           
051548,000201: 11,2643           22655                                    GAMCOMP                               
051549,000202: 11,2644           62174                           AXT,2    INCR,1                                
051550,000203: 11,2645           00004                                    4                                     
051551,000204: 11,2646           00004                                    4                                     
051552,000205: 11,2647           77775                           VLOAD                                          
051553,000206: 11,2650           02122                                    RPSV                                  
051554,000207: 11,2651           36040                           STCALL   BETAV                                 
051555,000208: 11,2652           22655                                    GAMCOMP                               
051556,000209: 11,2653           77650                           GOTO                                           
051557,000210: 11,2654           23026                                    OBLATE                                
051558,000211: 11,2655           74575        GAMCOMP            VLOAD    VSR1                                  
051559,000212: 11,2656           02040                                    BETAV                                 
051560,000213: 11,2657           40236                           VSQ      SETPD                                 
051561,000214: 11,2660           00001                                    0                                     
051562,000215: 11,2661           61501                           NORM     ROUND                                 
051563,000216: 11,2662           00040                                    31D                                   
051564,000217: 11,2663           60325                           PDDL     NORM                                  #  NORMED B SQUARED TO PD LIST
051565,000218: 11,2664           02070                                    ALPHAM                                #  NORMALIZE (LESS ONE) LENGTH OF ALPHA

Page 1225

051567,000220: 11,2665           00041                                    32D                                   #  SAVING NORM SCALE FACTOR IN X1
051568,000221: 11,2666           63342                           SR1      PDVL                                  
051569,000222: 11,2667           02040                                    BETAV                                 #  C(PDL+2) = ALMOST NORMED ALPHA
051570,000223: 11,2670           77656                           UNIT                                           
051571,000224: 11,2671           16040                           STODL    BETAV                                 
051572,000225: 11,2672           00045                                    36D                                   
051573,000226: 11,2673           02072                           STORE    BETAM                                 
051574,000227: 11,2674           55301                           NORM     BDDV                                  #  FORM NORMALIZED QUOTIENT ALPHAM/BETAM
051575,000228: 11,2675           00042                                    33D                                   
051576,000229: 11,2676           41562                           SR1R     PUSH                                  #  C(PDL+2) = ALMOST NORMALIZED RHO.
051577,000230: 11,2677           77743                           DLOAD*                                         
051578,000231: 11,2700           27731                                    ASCALE,1                              
051579,000232: 11,2701           00051                           STORE    S1                                    
051580,000233: 11,2702           57124                           XCHX,2   XAD,2                                 
051581,000234: 11,2703           00050                                    S1                                    
051582,000235: 11,2704           00040                                    32D                                   
051583,000236: 11,2705           71264                           XSU,2    DLOAD                                 
051584,000237: 11,2706           00041                                    33D                                   
051585,000238: 11,2707           00003                                    2D                                    
051586,000239: 11,2710           65057                           SR*      XCHX,2                                
051587,000240: 11,2711           57177                                    0          -1,2                       
051588,000241: 11,2712           00050                                    S1                                    
051589,000242: 11,2713           74406                           PUSH     SR1R                                  #  RHO/4 TO 4D
051590,000243: 11,2714           50315                           PDVL     DOT                                   
051591,000244: 11,2715           02032                                    ALPHAV                                
051592,000245: 11,2716           02040                                    BETAV                                 
051593,000246: 11,2717           44372                           SL1R     BDSU                                  #  (RHO/4) - 2(ALPHAV/2.BETAV/2)
051594,000247: 11,2720           57206                           PUSH     DMPR                                  #  TO PDL+6
051595,000248: 11,2721           00005                                    4                                     
051596,000249: 11,2722           77752                           SL1                                            
051597,000250: 11,2723           43206                           PUSH     DAD                                   
051598,000251: 11,2724           25766                                    DQUARTER                              
051599,000252: 11,2725           75406                           PUSH     SQRT                                  
051600,000253: 11,2726           41475                           DMPR     PUSH                                  
051601,000254: 11,2727           00013                                    10D                                   
051602,000255: 11,2730           43352                           SL1      DAD                                   
051603,000256: 11,2731           25766                                    DQUARTER                              
051604,000257: 11,2732           43325                           PDDL     DAD                                   #  (1/4)+2((Q+1)/4)      TO PD+14D
051605,000258: 11,2733           00013                                    10D                                   
051606,000259: 11,2734           24005                                    HALFDP                                
051607,000260: 11,2735           72475                           DMPR     SL1                                   
051608,000261: 11,2736           00011                                    8D                                    
051609,000262: 11,2737           56215                           DAD      DDV                                   
051610,000263: 11,2740           25760                                    THREE/8                               
051611,000264: 11,2741           00017                                    14D                                   
051612,000265: 11,2742           74275                           DMPR     VXSC                                  
051613,000266: 11,2743           00007                                    6                                     
051614,000267: 11,2744           02040                                    BETAV                                 #                -
051615,000268: 11,2745           64515                           PDVL     VSR3                                  #  (G/2)(C(PD+4))B/2 TO PD+16D
051616,000269: 11,2746           02032                                    ALPHAV                                

Page 1226

051618,000271: 11,2747           41455                           VAD      PUSH                                  #  A12 + C(PD+16D) TO PD+16D
051619,000272: 11,2750           41345                           DLOAD    DMP                                   
051620,000273: 11,2751           00001                                    0                                     
051621,000274: 11,2752           00015                                    12D                                   
051622,000275: 11,2753           61501                           NORM     ROUND                                 
051623,000276: 11,2754           00037                                    30D                                   
051624,000277: 11,2755           40665                           BDDV     DMP*                                  
051625,000278: 11,2756           00003                                    2                                     
051626,000279: 11,2757           51770                                    MUEARTH,2                             
051627,000280: 11,2760           74276                           DCOMP    VXSC                                  
051628,000281: 11,2761           57124                           XCHX,2   XAD,2                                 
051629,000282: 11,2762           00050                                    S1                                    
051630,000283: 11,2763           00051                                    S2                                    
051631,000284: 11,2764           55064                           XSU,2    XSU,2                                 
051632,000285: 11,2765           00036                                    30D                                   
051633,000286: 11,2766           00037                                    31D                                   
051634,000287: 11,2767           53604                           BOVB     VSR*                                  
051635,000288: 11,2770           57754                                    TCDANZIG                              
051636,000289: 11,2771           57177                                    0          -1,2                       
051637,000290: 11,2772           53324                           XCHX,2   VAD                                   
051638,000291: 11,2773           00050                                    S1                                    
051639,000292: 11,2774           02062                                    FV                                    
051640,000293: 11,2775           02062                           STORE    FV                                    
051641,000294: 11,2776           43400                           BOV      RVQ                                   #  RETURN IF NO OVERFLOW
051642,000295: 11,2777           23000                                    +1                                    
051643,000296: 11,3000           51575        GOBAQUE            VLOAD    ABVAL                                 
051644,000297: 11,3001           01521                                    TDELTAV                               
051645,000298: 11,3002           77654                           BZE                                            
051646,000299: 11,3003           23023                                    INT-ABRT                              
051647,000300: 11,3004           54345                           DLOAD    SR                                    
051648,000301: 11,3005           02100                                    H                                     
051649,000302: 11,3006           20612                                    9D                                    
051650,000303: 11,3007           44206                           PUSH     BDSU                                  
051651,000304: 11,3010           01551                                    TC                                    
051652,000305: 11,3011           16074                           STODL    TAU.                                  
051653,000306: 11,3012           01517                                    TET                                   
051654,000307: 11,3013           45425                           DSU      STADR                                 
051655,000308: 11,3014           42260                           STCALL   TET                                   
051656,000309: 11,3015           22404                                    KEPPREP                               
051657,000310: 11,3016           77624                           CALL                                           
051658,000311: 11,3017           27671                                    RECTIFY                               
051659,000312: 11,3020           77614                           SETGO                                          
051660,000313: 11,3021           04020                                    RPQFLAG                               
051661,000314: 11,3022           27256                                    TESTLOOP                              
051662,000315: 
051663,000316: 11,3023           77776        INT-ABRT           EXIT                                           
051664,000317: 11,3024           05642                           TC       POODOO                                
051665,000318: 11,3025           20430                           OCT      20430                                 
051666,000319: 

Page 1227

051668,000321:                                                                                                  #  THE OBLATE ROUTINE COMPUTES THE ACCELERATION DUE TO OBLATENESS.  IT USES THE UNIT OF THE VEHICLE
051669,000322:                                                                                                  #  POSITION VECTOR FOUND IN ALPHAV AND THE DISTANCE TO THE CENTER IN ALPHAM.  THIS IS ADDED TO THE SUM OF THE
051670,000323:                                                                                                  #  DISTURBING ACCELERATIONS IN FV AND THE PROPER DIFEQ STAGE IS CALLED VIA X1.
051671,000324: 
051672,000325: 11,3026           71354        OBLATE             LXA,2    DLOAD                                 
051673,000326: 11,3027           02030                                    PBODY                                 
051674,000327: 11,3030           02070                                    ALPHAM                                
051675,000328: 11,3031           44601                           SETPD    DSU*                                  
051676,000329: 11,3032           00001                                    0                                     
051677,000330: 11,3033           50032                                    RDE,2                                 
051678,000331: 11,3034           43044                           BPL      BOF                                   #  GET URPV
051679,000332: 11,3035           23264                                    NBRANCH                               
051680,000333: 11,3036           00343                                    MOONFLAG                              
051681,000334: 11,3037           23273                                    COSPHIE                               
051682,000335: 11,3040           65375                           VLOAD    PDDL                                  
051683,000336: 11,3041           02032                                    ALPHAV                                
051684,000337: 11,3042           01517                                    TET                                   
051685,000338: 11,3043           45125                           PDDL     CALL                                  
051686,000339: 11,3044           25756                                    3/5                                   
051687,000340: 11,3045           51700                                    R-TO-RP                               
051688,000341: 11,3046           24017                           STOVL    URPV                                  #  RP/R B-1 IN PLANETARY COORDINATES
051689,000342: 11,3047           24001                                    ZUNIT                                 
051690,000343: 11,3050           45006                           PUSH     CALL                                  #  ZUNIT B-1 IN PLANETARY COORDL AT 00D
051691,000344: 11,3051           23301                                    MATRIX                                
051692,000345: 11,3052           77715                           PDVL                                           #  UZ B-2 IN INERT COORD         AT 00D
051693,000346: 11,3053           24005                                    XUNIT                                 
051694,000347: 11,3054           45006                           PUSH     CALL                                  #  XUNIT B-1 IN PLANETARY COORD. AT 06D
051695,000348: 11,3055           23301                                    MATRIX                                
051696,000349: 11,3056           77772                           VSL1                                           
051697,000350: 11,3057           24041                           STOVL    32D                                   #  UX B-1 IN INERT. COORD       AT 32D
051698,000351: 11,3060           77772                           VSL1                                           
051699,000352: 11,3061           14025        COMTERM            STODL    UZ                                    #  UZ B-1 IN INERTIAL COORD      AT 20D
051700,000353: 11,3062           00023                                    COSPHI/2                              #   '    Z-COMPONENT OF URPV
051701,000354: 11,3063           65275                           DMPR     PDDL                                  #  P  B-6, 3COSPHI/64            AT 00D
051702,000355: 11,3064           25770                                    3/32                                  #   2
051703,000356: 11,3065           00023                                    COSPHI/2                              
051704,000357: 11,3066           57316                           DSQ      DMPR                                  
051705,000358: 11,3067           25772                                    15/16                                 #   '                    2
051706,000359: 11,3070           41425                           DSU      PUSH                                  #  P  B-5, (1/2)(15COSPHI -3)    AT 02D
051707,000360: 11,3071           25764                                    3/64                                  #   3
051708,000361: 11,3072           41275                           DMPR     DMP                                   
051709,000362: 11,3073           00023                                    COSPHI/2                              
051710,000363: 11,3074           11222                                    7/12                                  
051711,000364: 11,3075           65372                           SL1R     PDDL                                  
051712,000365: 11,3076           00001                                    0D                                    
051713,000366: 11,3077           44275                           DMPR     BDSU                                  
051714,000367: 11,3100           11230                                    2/3                                   #   '                     '   '
051715,000368: 11,3101           57206                           PUSH     DMPR                                  #  P  B-7, (1/3)(7COSPHI P -4P ) AT 04D
051716,000369: 11,3102           00023                                    COSPHI/2                              #   4                     3   2
051717,000370: 11,3103           65275                           DMPR     PDDL                                  
051718,000371: 11,3104           11224                                    9/16                                  

Page 1228

051720,000373: 11,3105           00003                                    2D                                    #   '                      '    '
051721,000374: 11,3106           44275                           DMPR     BDSU                                  #  P  B-10, (1/4)(9COSPHI P  -5P )
051722,000375: 11,3107           11226                                    5/128                                 #   5                      4    3
051723,000376: 11,3110           56203                           DMP*     DDV                                   #                  '
051724,000377: 11,3111           51764                                    J4REQ/J3,2                            #  B- , (J RP/J R)P
051725,000378: 11,3112           02070                                    ALPHAM                                #         4    3   5
051726,000379: 11,3113           56615                           DAD      DMPR*                                 
051727,000380: 11,3114           00005                                    4D                                    #            2     2  '              '
051728,000381: 11,3115           51760                                    2J3RE/J2,2                            #  B , (2J RP /J2 R )P  +(2J RP/J2R)P
051729,000382: 11,3116           43271                           DDV      DAD                                   #         4           5     3        4
051730,000383: 11,3117           02070                                    ALPHAM                                #   -        2 '  2         '        '
051731,000384: 11,3120           00003                                    2D                                    #  (R/R)(J RP P /R + 2J RP P /  + J P )
051732,000385: 11,3121           77761                           VXSC                                           #         4    5       3    4  2   2 3
051733,000386: 11,3122           02032                                    ALPHAV                                #        4       2  '           -
051734,000387: 11,3123           14033                           STODL    TVEC                                  #  B-6,(SUM((J /R )P   (COSPHI))UR)
051735,000388: 11,3124           70403                           DMP*     SR1                                   #       I=2   I     I+1
051736,000389: 11,3125           51764                                    J4REQ/J3,2                            #             '
051737,000390: 11,3126           43271                           DDV      DAD                                   #  (J RP/J R)P
051738,000391: 11,3127           02070                                    ALPHAM                                #    4    3   4
051739,000392: 11,3130           50473                           DMPR*    SR3                                   #        2    2  '              '
051740,000393: 11,3131           51760                                    2J3RE/J2,2                            #  (2J RP /J R )P  +(2J RP/J R)P
051741,000394: 11,3132           43271                           DDV      DAD                                   #     4     2    4     3    2   3
051742,000395: 11,3133           02070                                    ALPHAM                                
051743,000396: 11,3134           76561                           VXSC     VSL1                                  #        4   '         -
051744,000397: 11,3135           00025                                    UZ                                    #  B-6  SUM(P (COSPHI))UZ
051745,000398: 11,3136           77645                           BVSU                                           #       I=2  I
051746,000399: 11,3137           00033                                    TVEC                                  #   4              I-2   '          -
051747,000400: 11,3140           14033                           STODL    TVEC                                  #  SUM((MU J (RP/R)   )(P   (COSPHI)UR -
051748,000401: 11,3141           02070                                    ALPHAM                                #  I=2      I            I+2
051749,000402: 11,3142           63501                           NORM     DSQ                                   #              P (COSPHI)UZ))  B-6 AT 20D
051750,000403: 11,3143           00047                                    X1                                    #               I
051751,000404: 11,3144           60316                           DSQ      NORM                                  
051752,000405: 11,3145           00051                                    S1                                    #               4
051753,000406: 11,3146           54606                           PUSH     BDDV*                                 #  NORMALIZED  R                 AT 00D
051754,000407: 11,3147           51754                                    J2REQSQ,2                             
051755,000408: 11,3150           40161                           VXSC     BOV                                   
051756,000409: 11,3151           00033                                    TVEC                                  
051757,000410: 11,3152           23153                                    +1                                    #  B+38 FOR EARTH , B+42 FOR MOON
051758,000411: 11,3153           56070                           XAD,1    XAD,1                                 
051759,000412: 11,3154           00046                                    X1                                    
051760,000413: 11,3155           00046                                    X1                                    
051761,000414: 11,3156           53670                           XAD,1    VSL*                                  
051762,000415: 11,3157           00050                                    S1                                    
051763,000416: 11,3160           20153                                    0          -22D,1                     
051764,000417: 11,3161           40055                           VAD      BOV                                   
051765,000418: 11,3162           02062                                    FV                                    
051766,000419: 11,3163           23000                                    GOBAQUE                               
051767,000420: 11,3164           16062                           STODL    FV                                    #  B+16 FOR EARTH , B+20 FOR MOON
051768,000421: 11,3165           00017                                    URPV                                  #  B-1  X-COMPONENT OF POSITION IN
051769,000422: 11,3166           41414                           BOF      PUSH                                  #        PLANETORY COORD.        AT 02D

Page 1229

051771,000424: 11,3167           00343                                    MOONFLAG                              
051772,000425: 11,3170           23264                                    NBRANCH                               #        2
051773,000426: 11,3171           65316                           DSQ      PDDL                                  #  B-2  X                        AT 04D
051774,000427: 11,3172           00021                                    URPV       +2                         #  B-1  Y-COMPONENT
051775,000428: 11,3173           45316                           DSQ      DSU                                   
051776,000429: 11,3174           74205                           DMP      VXSC                                  
051777,000430: 11,3175           27733                                    5/8                                   #          2  2 -
051778,000431: 11,3176           02032                                    ALPHAV                                #  B-6  5(Y -X )UR   2  2 -
051779,000432: 11,3177           65332                           VSL3     PDDL                                  #  B-3           5(Y -X )UR      AT 02D
051780,000433: 11,3200           53361                           VXSC     VAD                                   
051781,000434: 11,3201           00041                                    32D                                   #      2  2 -   2          -
051782,000435: 11,3202           47315                           PDVL     VXV                                   #  (5(Y.-X )UR/R ) +(2X/R)UX     AT 02D
051783,000436: 11,3203           00041                                    32D                                   #  B-1   UX
051784,000437: 11,3204           00025                                    UZ                                    #  B-2  -UY =(UX * UZ)
051785,000438: 11,3205           74372                           VSL1     VXSC                                  #  B-3  -(2Y/R)UY
051786,000439: 11,3206           00021                                    URPV       +2                         #           2  2 -   2        -
051787,000440: 11,3207           41455                           VAD      PUSH                                  #  B-3  (5(X -Y )UR/R )+(2X/R)UX -(
051788,000441: 11,3210           77745                           DLOAD                                          #             -
051789,000442: 11,3211           00023                                    COSPHI/2                              #        2Y/R)UY                 AT 02D
051790,000443: 11,3212           41516                           DSQ      PUSH                                  #  B-2  (Z.COMPONENT)            AT 08D
051791,000444: 11,3213           65205                           DMP      PDDL                                  #              2
051792,000445: 11,3214           27733                                    5/8                                   #  B-5  5COSPHI /2               AT 08D
051793,000446: 11,3215           43302                           SR2      DAD                                   
051794,000447: 11,3216           00011                                    08D                                   
051795,000448: 11,3217           41221                           BDSU     DMP                                   #                   2
051796,000449: 11,3220           11007                                    D1/32                                 #  B-5  (1 - 7COSPHI )
051797,000450: 11,3221           00017                                    URPV                                  
051798,000451: 11,3222           74205                           DMP      VXSC                                  
051799,000452: 11,3223           27733                                    5/8                                   
051800,000453: 11,3224           02032                                    ALPHAV                                #                       2 -
051801,000454: 11,3225           65272                           VSL5     PDDL                                  #  B-5  (5X/R)(1-7COSPHI )UR     AT 08D
051802,000455: 11,3226           74225                           DSU      VXSC                                  
051803,000456: 11,3227           11007                                    D1/32                                 
051804,000457: 11,3230           00041                                    32D                                   
051805,000458: 11,3231           53372                           VSL1     VAD                                   #                       2 -           -
051806,000459: 11,3232           41325                           PDDL     DMP                                   #  B-5  (5X/R)(1-7COSPHI )UR +(5COSPHI
051807,000460: 11,3233           00017                                    URPV                                  #     -
051808,000461: 11,3234           00023                                    URPV       +4                         #  -1)UX                         AT 08D
051809,000462: 11,3235           74205                           DMP      VXSC                                  
051810,000463: 11,3236           27733                                    5/8                                   #  B-5  5X Y
051811,000464: 11,3237           00025                                    UZ                                    #         M M
051812,000465: 11,3240           53352                           VSL2     VAD                                   #                       2 -           2
051813,000466: 11,3241           60325                           PDDL     NORM                                  #  B-5  (5X/R)(1-7COSPHI )UR +(5COSPHI
051814,000467: 11,3242           02070                                    ALPHAM                                #     -          2 -
051815,000468: 11,3243           00050                                    X2                                    #  -1)UX +(10XZ/R )UZ            AT 08D
051816,000469: 11,3244           67206                           PUSH     SLOAD                                 
051817,000470: 11,3245           01351                                    E32C31RM                              
051818,000471: 11,3246           74271                           DDV      VXSC                                  
051819,000472: 11,3247           63257                           VSL*     PDVL                                  
051820,000473: 11,3250           57601                                    0          -3,2                       

Page 1230

051822,000475: 11,3251           67206                           PUSH     SLOAD                                 
051823,000476: 11,3252           01350                                    E3J22R2M                              
051824,000477: 11,3253           53361                           VXSC     VAD                                   
051825,000478: 11,3254           70257                           VSL*     V/SC                                  
051826,000479: 11,3255           20146                                    0          -27D,1                     #  B+16 OR B+20 (J  + C  )
051827,000480: 11,3256           40055                           VAD      BOV                                   #                 22   31
051828,000481: 11,3257           02062                                    FV                                    
051829,000482: 11,3260           23000                                    GOBAQUE                               
051830,000483: 11,3261           02062                           STORE    FV                                    
051831,000484: 11,3262           77754                           LXA,2                                          
051832,000485: 11,3263           02030                                    PBODY                                 
051833,000486: 11,3264           72135        NBRANCH            SLOAD    LXA,1                                 
051834,000487: 11,3265           01501                                    DIFEQCNT                              
051835,000488: 11,3266           00154                                    MPAC                                  
051836,000489: 11,3267           73205                           DMP      CGOTO                                 
051837,000490: 11,3270           27735                                    -1/12                                 
051838,000491: 11,3271           00155                                    MPAC                                  
051839,000492: 11,3272           23306                                    DIFEQTAB                              
051840,000493: 11,3273           77745        COSPHIE            DLOAD                                          
051841,000494: 11,3274           02036                                    ALPHAV     +4                         
051842,000495: 11,3275           24023                           STOVL    COSPHI/2                              
051843,000496: 11,3276           24001                                    ZUNIT                                 
051844,000497: 11,3277           77650                           GOTO                                           
051845,000498: 11,3300           23061                                    COMTERM                               
051846,000499: 11,3301           57435        MATRIX             VXV      VCOMP                                 
051847,000500: 11,3302           02013                                    504LM                                 #  ROUTINE TRANSLATES FROM PLANETARY
051848,000501: 11,3303           77655                           VAD                                            #  TO INERTIAL COORDINATES
051849,000502: 11,3304           43505                           VXM      RVQ                                   
051850,000503: 11,3305           00025                                    MMATRIX                               
051851,000504: 11,3306           23475        DIFEQTAB           CADR     DIFEQ+0                               
051852,000505: 11,3307           23501                           CADR     DIFEQ+1                               
051853,000506: 11,3310           23512                           CADR     DIFEQ+2                               
051854,000507: 11,3311           77214        TIMESTEP           BOF      VLOAD                                 
051855,000508: 11,3312           00342                                    MIDFLAG                               
051856,000509: 11,3313           23342                                    RECTEST                               
051857,000510: 11,3314           01535                                    RCV                                   
051858,000511: 11,3315           41241                           DOT      DMP                                   
051859,000512: 11,3316           01543                                    VCV                                   
051860,000513: 11,3317           02076                                    DT/2                                  #  (R.V) X (DELTA T)
051861,000514: 11,3320           77640                           BMN                                            
051862,000515: 11,3321           23342                                    RECTEST                               
051863,000516: 11,3322           43014                           BON      BOF                                   
051864,000517: 11,3323           00303                                    MOONFLAG                              
051865,000518: 11,3324           23417                                    LUNSPH                                
051866,000519: 11,3325           04340                                    RPQFLAG                               
051867,000520: 11,3326           23414                                    EARSPH                                
051868,000521: 11,3327           45145                           DLOAD    CALL                                  
051869,000522: 11,3330           01517                                    TET                                   
051870,000523: 11,3331           33647                                    LSPOS                                 #  RPQV IN MPAC
051871,000524: 11,3332           02105                           STORE    RPQV                                  #  RPQV

Page 1231

051873,000526: 11,3333           77754                           LXA,2                                          
051874,000527: 11,3334           02030                                    PBODY                                 
051875,000528: 11,3335           51445        INLUNCHK           BVSU     ABVAL                                 
051876,000529: 11,3336           01535                                    RCV                                   
051877,000530: 11,3337           50025                           DSU      BMN                                   
051878,000531: 11,3340           27741                                    RSPHERE                               
051879,000532: 11,3341           23434                                    DOSWITCH                              
051880,000533: 11,3342           51575        RECTEST            VLOAD    ABVAL                                 #  RECTIFY IF
051881,000534: 11,3343           01521                                    TDELTAV                               
051882,000535: 11,3344           77600                           BOV                                            
051883,000536: 11,3345           23370                                    CALLRECT                              
051884,000537: 11,3346           51025                           DSU      BPL                                   #        1) EITHER TDELTAV OR TNUV EQUALS OR
051885,000538: 11,3347           11220                                    3/4                                   #           EXCEEDS 3/4 IN MAGNITUDE
051886,000539: 11,3350           23370                                    CALLRECT                              
051887,000540: 11,3351           53615                           DAD      SL*                                   #                        OR
051888,000541: 11,3352           11220                                    3/4                                   
051889,000542: 11,3353           57605                                    0          -7,2                       #        2) ABVAL(TDELTAV) EQUALS OR EXCEEDS
051890,000543: 11,3354           45271                           DDV      DSU                                   #           .01(ABVAL(RCV))
051891,000544: 11,3355           00013                                    10D                                   
051892,000545: 11,3356           27737                                    RECRATIO                              
051893,000546: 11,3357           77244                           BPL      VLOAD                                 
051894,000547: 11,3360           23370                                    CALLRECT                              
051895,000548: 11,3361           01527                                    TNUV                                  
051896,000549: 11,3362           45246                           ABVAL    DSU                                   
051897,000550: 11,3363           11220                                    3/4                                   
051898,000551: 11,3364           77600                           BOV                                            
051899,000552: 11,3365           23370                                    CALLRECT                              
051900,000553: 11,3366           77640                           BMN                                            
051901,000554: 11,3367           23372                                    INTGRATE                              
051902,000555: 11,3370           77624        CALLRECT           CALL                                           
051903,000556: 11,3371           27671                                    RECTIFY                               
051904,000557: 11,3372           77775        INTGRATE           VLOAD                                          
051905,000558: 11,3373           01527                                    TNUV                                  
051906,000559: 11,3374           25134                           STOVL    ZV                                    
051907,000560: 11,3375           01521                                    TDELTAV                               
051908,000561: 11,3376           01126                           STORE    YV                                    
051909,000562: 11,3377           77614                           CLEAR                                          
051910,000563: 11,3400           00261                                    JSWITCH                               
051911,000564: 11,3401           66375        DIFEQ0             VLOAD    SSP                                   
051912,000565: 11,3402           01126                                    YV                                    
051913,000566: 11,3403           01501                                    DIFEQCNT                              
051914,000567: 11,3404           00000                                    0                                     
051915,000568: 11,3405           16032                           STODL    ALPHAV                                
051916,000569: 11,3406           24007                                    DPZERO                                
051917,000570: 11,3407           02100                           STORE    H                                     #  START H AT ZERO.  GOES 0(DELT/2)DELT.
051918,000571: 11,3410           52014                           BON      GOTO                                  
051919,000572: 11,3411           00301                                    JSWITCH                               
051920,000573: 11,3412           23714                                    DOW..                                 
051921,000574: 11,3413           22524                                    ACCOMP                                
051922,000575: 11,3414           52175        EARSPH             VLOAD    GOTO                                  

Page 1232

051924,000577: 11,3415           02105                                    RPQV                                  
051925,000578: 11,3416           23335                                    INLUNCHK                              
051926,000579: 11,3417           60545        LUNSPH             DLOAD    SR2                                   
051927,000580: 11,3420           00013                                    10D                                   
051928,000581: 11,3421           50025                           DSU      BMN                                   
051929,000582: 11,3422           27741                                    RSPHERE                               
051930,000583: 11,3423           23342                                    RECTEST                               
051931,000584: 11,3424           71214                           BOF      DLOAD                                 
051932,000585: 11,3425           04340                                    RPQFLAG                               
051933,000586: 11,3426           23434                                    DOSWITCH                              
051934,000587: 11,3427           01517                                    TET                                   
051935,000588: 11,3430           77624                           CALL                                           
051936,000589: 11,3431           33647                                    LUNPOS                                
051937,000590: 11,3432           77676                           VCOMP                                          
051938,000591: 11,3433           02105                           STORE    RPQV                                  
051939,000592: 11,3434           77624        DOSWITCH           CALL                                           
051940,000593: 11,3435           23440                                    ORIGCHNG                              
051941,000594: 11,3436           77650                           GOTO                                           
051942,000595: 11,3437           23372                                    INTGRATE                              
051943,000596: 11,3440           45020        ORIGCHNG           STQ      CALL                                  
051944,000597: 11,3441           02112                                    ORIGEX                                
051945,000598: 11,3442           27671                                    RECTIFY                               
051946,000599: 11,3443           53775                           VLOAD    VSL*                                  
051947,000600: 11,3444           01535                                    RCV                                   
051948,000601: 11,3445           57576                                    0,2                                   
051949,000602: 11,3446           53651                           VSU      VSL*                                  
051950,000603: 11,3447           02105                                    RPQV                                  
051951,000604: 11,3450           57574                                    2,2                                   
051952,000605: 11,3451           01503                           STORE    RRECT                                 
051953,000606: 11,3452           01535                           STORE    RCV                                   
051954,000607: 11,3453           57414                           BOF      VCOMP                                 
051955,000608: 11,3454           00343                                    MOONFLAG                              
051956,000609: 11,3455           23456                                    +1                                    
051957,000610: 11,3456           53715                           PDVL     VSL*                                  
051958,000611: 11,3457           01543                                    VCV                                   
051959,000612: 11,3460           57576                                    0,2                                   
051960,000613: 11,3461           77651                           VSU                                            
051961,000614: 11,3462           77657                           VSL*                                           
051962,000615: 11,3463           57574                                    0          +2,2                       
051963,000616: 11,3464           01511                           STORE    VRECT                                 
051964,000617: 11,3465           01543                           STORE    VCV                                   
051965,000618: 11,3466           67154                           LXA,2    SXA,2                                 
051966,000619: 11,3467           02112                                    ORIGEX                                
051967,000620: 11,3470           00052                                    QPRET                                 
051968,000621: 11,3471           52014                           BON      GOTO                                  
051969,000622: 11,3472           00303                                    MOONFLAG                              
051970,000623: 11,3473           26710                                    CLRMOON                               
051971,000624: 11,3474           26715                                    SETMOON                               

Page 1233

051973,000626:                                                                                                  #  THE RECTIFY SUBROUTINE IS CALLED BY THE INTEGRATION PROGRAM AND OCCASIONALLY BY THE MEASUREMENT INCORPORATION
051974,000627:                                                                                                  #  ROUTINES TO ESTABLISH A NEW CONIC.
051975,000628: 
051976,000629: 13,3671                                           BANK     13                                    
051977,000630: 13,2000                                           SETLOC   ORBITAL2                              
051978,000631: 13,2000                                           BANK                                           
051979,000632: 
051980,000633: 13,3671           77354        RECTIFY            LXA,2    VLOAD                                 
051981,000634: 13,3672           02030                                    PBODY                                 
051982,000635: 13,3673           01521                                    TDELTAV                               
051983,000636: 13,3674           53257                           VSL*     VAD                                   
051984,000637: 13,3675           57605                                    0          -7,2                       
051985,000638: 13,3676           01535                                    RCV                                   
051986,000639: 13,3677           01503                           STORE    RRECT                                 
051987,000640: 13,3700           25535                           STOVL    RCV                                   
051988,000641: 13,3701           01527                                    TNUV                                  
051989,000642: 13,3702           53257                           VSL*     VAD                                   
051990,000643: 13,3703           57602                                    0          -4,2                       
051991,000644: 13,3704           01543                                    VCV                                   
051992,000645: 13,3705           01511        MINIRECT           STORE    VRECT                                 
051993,000646: 13,3706           25543                           STOVL    VCV                                   
051994,000647: 13,3707           24007                                    ZEROVEC                               
051995,000648: 13,3710           01521                           STORE    TDELTAV                               
051996,000649: 13,3711           15527                           STODL    TNUV                                  
051997,000650: 13,3712           24007                                    ZEROVEC                               
051998,000651: 13,3713           01551                           STORE    TC                                    
051999,000652: 13,3714           01553                           STORE    XKEP                                  
052000,000653: 13,3715           77616                           RVQ                                            
052001,000654: 
052002,000655: 11,3475                                           BANK     11                                    
052003,000656: 11,2000                                           SETLOC   ORBITAL                               
052004,000657: 11,2000                                           BANK                                           

Page 1234

052006,000659:                                                                                                  #  THE THREE DIFEQ ROUTINES - DIFEQ+0, DIFEQ+12, AND DIFEQ+24 - ARE ENTERED TO PROCESS THE CONTRIBUTIONS AT THE
052007,000660:                                                                                                  #  BEGINNING, MIDDLE, AND END OF THE TIMESTEP, RESPECTIVELY.  THE UPDATING IS DONE BY THE NYSTROM METHOD.
052008,000661: 
052009,000662: 11,3475           64575        DIFEQ+0            VLOAD    VSR3                                  
052010,000663: 11,3476           02062                                    FV                                    
052011,000664: 11,3477           36046                           STCALL   PHIV                                  
052012,000665: 11,3500           23655                                    DIFEQCOM                              
052013,000666: 11,3501           74575        DIFEQ+1            VLOAD    VSR1                                  
052014,000667: 11,3502           02062                                    FV                                    
052015,000668: 11,3503           53206                           PUSH     VAD                                   
052016,000669: 11,3504           02046                                    PHIV                                  
052017,000670: 11,3505           26054                           STOVL    PSIV                                  
052018,000671: 11,3506           53362                           VSR1     VAD                                   
052019,000672: 11,3507           02046                                    PHIV                                  
052020,000673: 11,3510           36046                           STCALL   PHIV                                  
052021,000674: 11,3511           23655                                    DIFEQCOM                              
052022,000675: 11,3512           57345        DIFEQ+2            DLOAD    DMPR                                  
052023,000676: 11,3513           02100                                    H                                     
052024,000677: 11,3514           11230                                    DP2/3                                 
052025,000678: 11,3515           74206                           PUSH     VXSC                                  
052026,000679: 11,3516           02046                                    PHIV                                  
052027,000680: 11,3517           53372                           VSL1     VAD                                   
052028,000681: 11,3520           01134                                    ZV                                    
052029,000682: 11,3521           53361                           VXSC     VAD                                   
052030,000683: 11,3522           02100                                    H                                     
052031,000684: 11,3523           01126                                    YV                                    
052032,000685: 11,3524           25126                           STOVL    YV                                    
052033,000686: 11,3525           02062                                    FV                                    
052034,000687: 11,3526           53322                           VSR3     VAD                                   
052035,000688: 11,3527           02054                                    PSIV                                  
052036,000689: 11,3530           76561                           VXSC     VSL1                                  
052037,000690: 11,3531           77655                           VAD                                            
052038,000691: 11,3532           01134                                    ZV                                    
052039,000692: 11,3533           01134                           STORE    ZV                                    
052040,000693: 11,3534           45014                           BOFF     CALL                                  
052041,000694: 11,3535           00341                                    JSWITCH                               
052042,000695: 11,3536           23606                                    ENDSTATE                              
052043,000696: 11,3537           11210                                    GRP2PC                                
052044,000697: 11,3540           77354                           LXA,2    VLOAD                                 
052045,000698: 11,3541           01116                                    COLREG                                
052046,000699: 11,3542           01134                                    ZV                                    
052047,000700: 11,3543           77732                           VSL3                                           #  ADJUST W-POSITION FOR STORAGE
052048,000701: 11,3544           12467                           STORE    W          +54D,2                     
052049,000702: 11,3545           77775                           VLOAD                                          
052050,000703: 11,3546           01126                                    YV                                    
052051,000704: 11,3547           40132                           VSL3     BOV                                   
052052,000705: 11,3550           23700                                    WMATEND                               
052053,000706: 11,3551           12401                           STORE    W,2                                   
052054,000707: 
052055,000708: 11,3552           77624                           CALL                                           
052056,000709: 11,3553           11210                                    GRP2PC                                

Page 1235

052058,000711: 11,3554           66354                           LXA,2    SSP                                   
052059,000712: 11,3555           01116                                    COLREG                                
052060,000713: 11,3556           00052                                    S2                                    
052061,000714: 11,3557           00000                                    0                                     
052062,000715: 11,3560           67114                           INCR,2   SXA,2                                 
052063,000716: 11,3561           00006                                    6                                     
052064,000717: 11,3562           01125                                    YV                                    
052065,000718: 11,3563           45104                           TIX,2    CALL                                  
052066,000719: 11,3564           23651                                    RELOADSV                              
052067,000720: 11,3565           11210                                    GRP2PC                                
052068,000721: 11,3566           67154                           LXA,2    SXA,2                                 
052069,000722: 11,3567           01125                                    YV                                    
052070,000723: 11,3570           01116                                    COLREG                                
052071,000724: 
052072,000725: 11,3571           77624        NEXTCOL            CALL                                           
052073,000726: 11,3572           11210                                    GRP2PC                                
052074,000727: 11,3573           76754                           LXA,2    VLOAD*                                
052075,000728: 11,3574           01116                                    COLREG                                
052076,000729: 11,3575           75376                                    W,2                                   
052077,000730: 11,3576           77722                           VSR3                                           #  ADJUST W-POSITION FOR INTEGRATION
052078,000731: 11,3577           01126                           STORE    YV                                    
052079,000732: 11,3600           76173                           VLOAD*   AXT,1                                 
052080,000733: 11,3601           75310                                    W          +54D,2                     
052081,000734: 11,3602           00000                                    0                                     
052082,000735: 11,3603           77722                           VSR3                                           #  ADJUST W-VELOCITY FOR INTEGRATION
052083,000736: 11,3604           35134                           STCALL   ZV                                    
052084,000737: 11,3605           23401                                    DIFEQ0                                
052085,000738: 
052086,000739: 11,3606           77200        ENDSTATE           BOV      VLOAD                                 
052087,000740: 11,3607           23000                                    GOBAQUE                               
052088,000741: 11,3610           01134                                    ZV                                    
052089,000742: 11,3611           25527                           STOVL    TNUV                                  
052090,000743: 11,3612           01126                                    YV                                    
052091,000744: 11,3613           01521                           STORE    TDELTAV                               
052092,000745: 11,3614           43014                           BON      BOFF                                  
052093,000746: 11,3615           04715                                    MIDAVFLG                              
052094,000747: 11,3616           27627                                    CKMID2                                #  CHECK FOR MID2 BEFORE GOING TO TIMEINC
052095,000748: 11,3617           01756                                    DIM0FLAG                              
052096,000749: 11,3620           27256                                    TESTLOOP                              
052097,000750: 11,3621           77776                           EXIT                                           
052098,000751: 11,3622           05353                           TC       PHASCHNG                              
052099,000752: 11,3623           04022                           OCT      04022                                 #  PHASE 1
052100,000753: 11,3624           05504                           TC       UPFLAG                                #  PHASE CHANGE HAS OCCURRED BETWEEN
052101,000754: 11,3625           00236                           ADRES    REINTFLG                              #  INTSTALL AND INTWAKE
052102,000755: 11,3626           06042                           TC       INTPRET                               
052103,000756: 11,3627           77731                           SSP                                            
052104,000757: 11,3630           00053                                    QPRET                                 
052105,000758: 11,3631           23636                                    AMOVED                                
052106,000759: 11,3632           52014                           BON      GOTO                                  
052107,000760: 11,3633           01714                                    VINTFLAG                              

Page 1236

052109,000762: 11,3634           26660                                    ATOPCSM                               
052110,000763: 11,3635           26733                                    ATOPLEM                               
052111,000764: 11,3636           66214        AMOVED             SET      SSP                                   
052112,000765: 11,3637           00061                                    JSWITCH                               
052113,000766: 11,3640           01117                                    COLREG                                
052114,000767: 11,3641           77741                           DEC      -30        B-14                       
052115,000768: 11,3642           66214                           BOFF     SSP                                   
052116,000769: 11,3643           01755                                    D6OR9FLG                              
052117,000770: 11,3644           23571                                    NEXTCOL                               
052118,000771: 11,3645           01117                                    COLREG                                
052119,000772: 11,3646           77717                           DEC      -48        B-14                       
052120,000773: 11,3647           77650                           GOTO                                           
052121,000774: 11,3650           23571                                    NEXTCOL                               
052122,000775: 
052123,000776: 11,3651           77745        RELOADSV           DLOAD                                          #  RELOAD TEMPORARY STATE VECTOR
052124,000777: 11,3652           01115                                    TDEC                                  #  FROM PERMANENT IN CASE OF
052125,000778: 11,3653           34041                           STCALL   TDEC1                                 
052126,000779: 11,3654           27140                                    INTEGRV2                              #  BY STARTING AT INTEGRV2.
052127,000780: 11,3655           43345        DIFEQCOM           DLOAD    DAD                                   #  INCREMENT H AND DIFEQCNT.
052128,000781: 11,3656           02076                                    DT/2                                  
052129,000782: 11,3657           02100                                    H                                     
052130,000783: 11,3660           66110                           INCR,1   SXA,1                                 
052131,000784: 11,3661           77763                           DEC      -12        B-14                       
052132,000785: 11,3662           01500                                    DIFEQCNT                              #  DIFEQCNT SET FOR NEXT ENTRY.
052133,000786: 11,3663           02100                           STORE    H                                     
052134,000787: 11,3664           74561                           VXSC     VSR1                                  
052135,000788: 11,3665           02062                                    FV                                    
052136,000789: 11,3666           74255                           VAD      VXSC                                  
052137,000790: 11,3667           01134                                    ZV                                    
052138,000791: 11,3670           02100                                    H                                     
052139,000792: 11,3671           77655                           VAD                                            
052140,000793: 11,3672           01126                                    YV                                    
052141,000794: 11,3673           02032                           STORE    ALPHAV                                
052142,000795: 11,3674           52014                           BON      GOTO                                  
052143,000796: 11,3675           00301                                    JSWITCH                               
052144,000797: 11,3676           23714                                    DOW..                                 
052145,000798: 11,3677           22504                                    FBR3                                  
052146,000799: 
052147,000800: 11,3700           43014        WMATEND            CLEAR    CLEAR                                 
052148,000801: 11,3701           01676                                    DIM0FLAG                              #  DONT INTEGRATE W THIS TIME
052149,000802: 11,3702           01671                                    ORBWFLAG                              #  INVALIDATE W
052150,000803: 11,3703           77614                           CLEAR                                          
052151,000804: 11,3704           02676                                    RENDWFLG                              
052152,000805: 11,3705           77414                           SET      EXIT                                  
052153,000806: 11,3706           01472                                    STATEFLG                              #  PICK UP STATE VECTOR UPDATE
052154,000807: 11,3707           05567                           TC       ALARM                                 
052155,000808: 11,3710           00421                           OCT      421                                   
052156,000809: 11,3711           06042                           TC       INTPRET                               

Page 1237

052158,000811: 11,3712           77650                           GOTO                                           
052159,000812: 11,3713           27256                                    TESTLOOP                              #  FINISH INTEGRATING STATE VECTOR
052160,000813: 

Page 1238

052162,000815:                                                                                                  #  ORBITAL ROUTINE FOR EXTRAPOLATION OF THE W MATRIX.  IT COMPUTES THE SECOND DERIVATIVE OF EACH COLUMN POSITION
052163,000816:                                                                                                  #  VECTOR OF THE MATRIX AND CALLS THE NYSTROM INTEGRATION ROUTINES TO SOLVE THE DIFFERENTIAL EQUATIONS.  THE PROGRAM
052164,000817:                                                                                                  #  USES A TABLE OF VEHICLE POSITION VECTORS COMPUTED DURING THE INTEGRATION OF THE VEHICLES POSITION AND VELOCITY.
052165,000818: 
052166,000819: 11,3714           70754        DOW..              LXA,2    DLOAD*                                
052167,000820: 11,3715           02030                                    PBODY                                 
052168,000821: 11,3716           51770                                    MUEARTH,2                             
052169,000822: 11,3717           36072                           STCALL   BETAM                                 
052170,000823: 11,3720           23742                                    DOW..1                                
052171,000824: 11,3721           02062                           STORE    FV                                    
052172,000825: 11,3722           62014                           BOF      INCR,1                                
052173,000826: 11,3723           00342                                    MIDFLAG                               
052174,000827: 11,3724           23264                                    NBRANCH                               
052175,000828: 11,3725           77771                           DEC      -6         B-14                       
052176,000829: 11,3726           70744                           LXC,2    DLOAD*                                
052177,000830: 11,3727           02030                                    PBODY                                 
052178,000831: 11,3730           51772                                    MUEARTH    -2,2                       
052179,000832: 11,3731           36072                           STCALL   BETAM                                 
052180,000833: 11,3732           23742                                    DOW..1                                
052181,000834: 11,3733           50414                           BON      VSR6                                  
052182,000835: 11,3734           00303                                    MOONFLAG                              
052183,000836: 11,3735           23736                                    +1                                    
052184,000837: 11,3736           77655                           VAD                                            
052185,000838: 11,3737           02062                                    FV                                    
052186,000839: 11,3740           36062                           STCALL   FV                                    
052187,000840: 11,3741           23264                                    NBRANCH                               
052188,000841: 11,3742           60575        DOW..1             VLOAD    VSR4                                  
052189,000842: 11,3743           02032                                    ALPHAV                                
052190,000843: 11,3744           53513                           PDVL*    UNIT                                  
052191,000844: 11,3745           02132                                    VECTAB,1                              
052192,000845: 11,3746           46315                           PDVL     VPROJ                                 
052193,000846: 11,3747           02032                                    ALPHAV                                
052194,000847: 11,3750           52361                           VXSC     VSU                                   
052195,000848: 11,3751           11220                                    3/4                                   
052196,000849: 11,3752           60325                           PDDL     NORM                                  
052197,000850: 11,3753           00045                                    36D                                   
052198,000851: 11,3754           00052                                    S2                                    
052199,000852: 11,3755           63406                           PUSH     DSQ                                   
052200,000853: 11,3756           77605                           DMP                                            
052201,000854: 11,3757           65301                           NORM     PDDL                                  
052202,000855: 11,3760           00043                                    34D                                   
052203,000856: 11,3761           02072                                    BETAM                                 
052204,000857: 11,3762           56342                           SR1      DDV                                   
052205,000858: 11,3763           77761                           VXSC                                           
052206,000859: 11,3764           57154                           LXA,2    XAD,2                                 
052207,000860: 11,3765           00051                                    S2                                    
052208,000861: 11,3766           00051                                    S2                                    
052209,000862: 11,3767           57074                           XAD,2    XAD,2                                 
052210,000863: 11,3770           00051                                    S2                                    
052211,000864: 11,3771           00042                                    34D                                   
052212,000865: 11,3772           43457                           VSL*     RVQ                                   

Page 1239

052214,000867: 11,3773           57606                                    0          -8D,2                      #  ****************************************
052215,000868: 
052216,000869: 12,2000                                           SETLOC   ORBITAL1                              
052217,000870: 12,2000                                           BANK                                           
052218,000871: 
052219,000872: 12,3755           04631 23146  3/5                2DEC     .6         B-2                        
052220,000873: 12,3757           14000 00000  THREE/8            2DEC     .375                                  
052221,000874: 12,3761           02314 31463  .3D                2DEC     .3         B-2                        
052222,000875: 12,3763           01400 00000  3/64               2DEC     3          B-6                        
052223,000876: 12,3765           10000 00000  DP1/4              2DEC     .25                                   
052224,000877: 12,3767  12,3765               DQUARTER           EQUALS   DP1/4                                 
052225,000878: 12,3767  12,3765               POS1/4             EQUALS   DP1/4                                 
052226,000879: 12,3767           03000 00000  3/32               2DEC     3          B-5                        
052227,000880: 12,3771           36000 00000  15/16              2DEC     15.        B-4                        
052228,000881: 
052229,000882: 05,3774                                           BANK     05                                    
052230,000883: 04,2000                                           SETLOC   ORBITAL3                              
052231,000884: 04,2000                                           BANK                                           
052232,000885: 
052233,000886: 04,3217           30000 00000  3/4                2DEC     3.0        B-2                        
052234,000887: 04,3221           22525 12525  7/12               2DEC     .5833333333                            
052235,000888: 04,3223           22000 00000  9/16               2DEC     9          B-4                        
052236,000889: 04,3225           01200 00000  5/128              2DEC     5          B-7                        
052237,000890: 04,3227  12,2006               DPZERO             EQUALS   ZEROVEC                               
052238,000891: 04,3227           25252 25253  DP2/3              2DEC     .6666666667                            
052239,000892: 04,3231  04,3227               2/3                EQUALS   DP2/3                                 
052240,000893: 04,3231           00027        OCT27              OCT      27                                    
052241,000894: 
052242,000895: 13,3716                                           BANK     13                                    
052243,000896: 13,2000                                           SETLOC   ORBITAL2                              
052244,000897: 13,2000                                           BANK                                           
052245,000898:                                                                                                  #  IT IS VITAL THAT THE FOLLOWING CONSTANTS NOT BE SHUFFLED
052246,000899: 13,3716           77764                           DEC      -11        B-14                       
052247,000900: 13,3717           77775                           DEC      -2         B-14                       
052248,000901: 13,3720           77766                           DEC      -9         B-14                       
052249,000902: 13,3721           77771                           DEC      -6         B-14                       
052250,000903: 13,3722           77775                           DEC      -2         B-14                       
052251,000904: 13,3723           77775                           DEC      -2         B-14                       
052252,000905: 13,3724           00000                           DEC      0          B-14                       
052253,000906: 13,3725           77763                           DEC      -12        B-14                       
052254,000907: 13,3726           77766                           DEC      -9         B-14                       

Page 1240

052256,000909: 13,3727           77773                           DEC      -4         B-14                       
052257,000910: 13,3730           77770        ASCALE             DEC      -7         B-14                       
052258,000911: 13,3731           77771                           DEC      -6         B-14                       
052259,000912: 13,3732           24000 00000  5/8                2DEC     5          B-3                        
052260,000913: 13,3734           74631 63145  -1/12              2DEC     -.1                                   
052261,000914: 13,3736           00243 32703  RECRATIO           2DEC     .01                                   
052262,000915: 13,3740           03654 21000  RSPHERE            2DEC     64373.76   E3         B-29            
052263,000916: 13,3742           03654 21000  RDM                2DEC     16093.44   E3         B-27            
052264,000917: 13,3744           04627 25200  RDE                2DEC     80467.20   E3         B-29            
052265,000918: 
052266,000919: 13,3746                        RATT               EQUALS   00                                    
052267,000920: 13,3746                        VATT               EQUALS   6D                                    
052268,000921: 13,3746                        TAT                EQUALS   12D                                   
052269,000922: 13,3746                        RATT1              EQUALS   14D                                   
052270,000923: 13,3746                        VATT1              EQUALS   20D                                   
052271,000924: 13,3746                        MU(P)              EQUALS   26D                                   
052272,000925: 13,3746                        TDEC1              EQUALS   32D                                   
052273,000926: 13,3746                        URPV               EQUALS   14D                                   
052274,000927: 13,3746     0022               COSPHI/2           EQUALS   URPV       +4                         
052275,000928: 13,3746                        UZ                 EQUALS   20D                                   
052276,000929: 13,3746                        TVEC               EQUALS   26D                                   
052277,000930: 

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