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.

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

Page 1220

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

Page 1221

051410,000079: 11,2460           20211                                    8D,1                                  
051411,000080: 11,2461           20201                                    0,1                                   #  S(-FS(1-2FS)-1/6...) (+17 OR +16)
051412,000081: 11,2462           65215                           DAD      PDDL                                  #                                        PL 6D
051413,000082: 11,2463           01553                                    XKEP                                  
051414,000083: 11,2464           53605                           DMP      SL*                                   #  S(+17 OR +16)
051415,000084: 11,2465           00001                                    0D                                    
051416,000085: 11,2466           20202                                    1,1                                   
051417,000086: 11,2467           43204                           BOVB     DAD                                   
051418,000087: 11,2470           57754                                    TCDANZIG                              
051419,000088: 11,2471           77626                           STADR                                          
051420,000089: 11,2472           75647                           STORE    XKEPNEW                               
051421,000090: 11,2473           74020                           STQ      AXC,1                                 
051422,000091: 11,2474           02112                                    KEPRTN                                
051423,000092: 11,2475           00012                           DEC      10         B-14                       
051424,000093: 11,2476           74014                           BON      AXC,1                                 
051425,000094: 11,2477           00303                                    MOONFLAG                              
051426,000095: 11,2500           24023                                    KEPLERN                               
051427,000096: 11,2501           00002                           DEC      2          B-14                       
051428,000097: 11,2502           77650                           GOTO                                           
051429,000098: 11,2503           24023                                    KEPLERN                               
051430,000099: 

Page 1222

051432,000101: 11,2504           66350        FBR3               LXA,1    SSP                                   
051433,000102: 11,2505           01500                                    DIFEQCNT                              
051434,000103: 11,2506           00051                                    S1                                    
051435,000104: 11,2507           77762                           DEC      -13        B-14                       
051436,000105: 11,2510           54345                           DLOAD    SR                                    
051437,000106: 11,2511           02076                                    DT/2                                  
051438,000107: 11,2512           20612                                    9D                                    
051439,000108: 11,2513           61500                           TIX,1    ROUND                                 
051440,000109: 11,2514           22515                                    +1                                    
051441,000110: 11,2515           43206                           PUSH     DAD                                   
051442,000111: 11,2516           01551                                    TC                                    
051443,000112: 11,2517           16074                           STODL    TAU.                                  
051444,000113: 11,2520           77615                           DAD                                            
051445,000114: 11,2521           01517                                    TET                                   
051446,000115: 11,2522           35517                           STCALL   TET                                   
051447,000116: 11,2523           22404                                    KEPPREP                               
051448,000117: 

Page 1223

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

Page 1224

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

Page 1225

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

Page 1226

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

Page 1227

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

Page 1228

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

Page 1229

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

Page 1230

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

Page 1231

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

Page 1232

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

Page 1233

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

Page 1234

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

Page 1235

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

Page 1236

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

Page 1237

052142,000811: 11,3712           77650                           GOTO                                           
052143,000812: 11,3713           27256                                    TESTLOOP                              #  FINISH INTEGRATING STATE VECTOR
052144,000813: 

Page 1238

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

Page 1239

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

Page 1240

052240,000909: 13,3727           77773                           DEC      -4         B-14                       
052241,000910: 13,3730           77770        ASCALE             DEC      -7         B-14                       
052242,000911: 13,3731           77771                           DEC      -6         B-14                       
052243,000912: 13,3732           24000 00000  5/8                2DEC     5          B-3                        
052244,000913: 13,3734           74631 63145  -1/12              2DEC     -.1                                   
052245,000914: 13,3736           00243 32703  RECRATIO           2DEC     .01                                   
052246,000915: 13,3740           03654 21000  RSPHERE            2DEC     64373.76   E3         B-29            
052247,000916: 13,3742           03654 21000  RDM                2DEC     16093.44   E3         B-27            
052248,000917: 13,3744           04627 25200  RDE                2DEC     80467.20   E3         B-29            
052249,000918: 
052250,000919: 13,3746                        RATT               EQUALS   00                                    
052251,000920: 13,3746                        VATT               EQUALS   6D                                    
052252,000921: 13,3746                        TAT                EQUALS   12D                                   
052253,000922: 13,3746                        RATT1              EQUALS   14D                                   
052254,000923: 13,3746                        VATT1              EQUALS   20D                                   
052255,000924: 13,3746                        MU(P)              EQUALS   26D                                   
052256,000925: 13,3746                        TDEC1              EQUALS   32D                                   
052257,000926: 13,3746                        URPV               EQUALS   14D                                   
052258,000927: 13,3746     0022               COSPHI/2           EQUALS   URPV       +4                         
052259,000928: 13,3746                        UZ                 EQUALS   20D                                   
052260,000929: 13,3746                        TVEC               EQUALS   26D                                   
052261,000930: 

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