Source Code

This is a reconstruction of the AGC program Luminary 99 Rev 0. It was the third release of the Lunar Module flight software targeted for use in Apollo 11, after Luminary 96 and 97. A bug (which had been around since at least Apollo 10, Luminary 69) was discovered in Rev 0 shortly before the Apollo 11 flight, resulting in a last minute revision into Rev 1, which is what actually flew rather than the Rev 0 presented here. A hardcopy of Rev 0 is known to exist — it belonged to AGC developer Allan Klumpp for many years — but unfortunately the Virtual AGC Project has not had access to that hardcopy. Thus the code you see here had been reconstructed (we believe accurately) rather than transcribed. The first step of the reconstruction of the Rev 0 source code was the transcription of the Rev 1 source code from a hardcopy in the MIT Museum collection. The process of reverting the active portion of the source code (i.e., other than program comments) from Rev 1 to Rev 0 was very minor, consisting only of moving the position of the STARTSB1 label in FRESH START AND RESTART. Allan had previously given us the checksums of the memory banks of Rev 0, and we have verified the program presented here has checksums identical to all banks of Allan's listing of Rev 0. The notations on Allan's Rev 0 program listing read, in part:

	GAP:  ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-051

A single program comment is known to differ between Rev 0 and Rev 1, but these are harder to reconstruct and verify than changes to the active portion of the code. Thus it is possible that there are additional differences between the program comments in Rev 0 and Rev 1 that are unknown to us, and therefore are not reflected in the code presented here.

053504,000002:                                                                                                  ## Copyright:   Public domain.
053505,000003:                                                                                                  ## Filename:    ORBITAL_INTEGRATION.agc
053506,000004:                                                                                                  ## Purpose:     Part of the reconstructed source code for LMY99 Rev 0,
053507,000005:                                                                                                  ##              otherwise known as Luminary Rev 99, the third release
053508,000006:                                                                                                  ##              of the Apollo Guidance Computer (AGC) software for Apollo 11.
053509,000007:                                                                                                  ##              It differs from LMY99 Rev 1 (the flown version) only in the
053510,000008:                                                                                                  ##              placement of a single label. The corrections shown here have
053511,000009:                                                                                                  ##              been verified to have the same bank checksums as AGC developer
053512,000010:                                                                                                  ##              Allan Klumpp's copy of Luminary Rev 99, and so are believed
053513,000011:                                                                                                  ##              to be accurate. This file is intended to be a faithful 
053514,000012:                                                                                                  ##              recreation, except that the code format has been changed to 
053515,000013:                                                                                                  ##              conform to the requirements of the yaYUL assembler rather than 
053516,000014:                                                                                                  ##              the original YUL assembler.
053517,000015:                                                                                                  ##
053518,000016:                                                                                                  ## Assembler:   yaYUL
053519,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
053520,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo.
053521,000019:                                                                                                  ## Pages:       1227-1248
053522,000020:                                                                                                  ## Mod history: 2009-05-26 RSB  Adapted from the corresponding 
053523,000021:                                                                                                  ##                              Luminary131 file, using page 
053524,000022:                                                                                                  ##                              images from Luminary 1A.
053525,000023:                                                                                                  ##              2009-06-05 RSB  Fixed 3 typos.
053526,000024:                                                                                                  ##              2009-06-06 RSB  Page 1248 was missing entirely for some reason.
053527,000025:                                                                                                  ##              2009-06-07 RSB  Corrected a typo.
053528,000026:                                                                                                  ##              2016-12-17 RSB  Proofed text comments with octopus/ProoferComments
053529,000027:                                                                                                  ##                              and corrected the errors found.
053530,000028:                                                                                                  ##              2017-03-17 RSB  Comment-text fixes identified in diff'ing
053531,000029:                                                                                                  ##                              Luminary 99 vs Comanche 55.
053532,000030:                                                                                                  ##              2017-08-01 MAS  Created from LMY99 Rev 1.
053533,000031:                                                                                                  ##              2017-08-17 RSB  Comment-text fixes identified from AP11ROPE scans.
053534,000032: 
053535,000033:                                                                                                  ## This source code has been transcribed or otherwise adapted from
053536,000034:                                                                                                  ## digitized images of a hardcopy from the MIT Museum.  The digitization
053537,000035:                                                                                                  ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of
053538,000036:                                                                                                  ## the Museum.  Many thanks to both.  The images (with suitable reduction
053539,000037:                                                                                                  ## in storage size and consequent reduction in image quality as well) are
053540,000038:                                                                                                  ## available online at www.ibiblio.org/apollo.  If for some reason you
053541,000039:                                                                                                  ## find that the images are illegible, contact me at info@sandroid.org
053542,000040:                                                                                                  ## about getting access to the (much) higher-quality images which Paul
053543,000041:                                                                                                  ## actually created.
053544,000042:                                                                                                  ##
053545,000043:                                                                                                  ## The code has been modified to match LMY99 Revision 0, otherwise
053546,000044:                                                                                                  ## known as Luminary Revision 99, the Apollo 11 software release preceeding
053547,000045:                                                                                                  ## the listing from which it was transcribed. It has been verified to
053548,000046:                                                                                                  ## contain the same bank checksums as AGC developer Allan Klumpp's listing
053549,000047:                                                                                                  ## of Luminary Revision 99 (for which we do not have scans).
053550,000048:                                                                                                  ##
053551,000049:                                                                                                  ## Notations on Allan Klumpp's listing read, in part:
053552,000050:                                                                                                  ##
053553,000051:                                                                                                  ##      ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-51
053554,000052: 

Page 1227

053556,000054:                                                                                                  #  DELETE
053557,000055: 13,3675                                           BANK     13                                    
053558,000056: 11,2000                                           SETLOC   ORBITAL                               
053559,000057: 11,2000                                           BANK                                           
053560,000058: 11,2376                                           COUNT*   $$/ORBIT                              
053561,000059: 
053562,000060:                                                                                                  #  DELETE
053563,000061: 11,2376           40354        KEPPREP            LXA,2    SETPD                                 
053564,000062: 11,2377           02030                                    PBODY                                 
053565,000063: 11,2400           00001                                    0                                     
053566,000064: 11,2401           75543                           DLOAD*   SQRT                                  #  SQRT(MU) (+18 OR +15)         0D      PL 2D
053567,000065: 11,2402           51770                                    MUEARTH,2                             
053568,000066: 11,2403           53515                           PDVL     UNIT                                  #                                        PL 8D
053569,000067: 11,2404           01535                                    RCV                                   
053570,000068: 11,2405           60325                           PDDL     NORM                                  #  NORM R (+29 OR +27 - N1)      2D      PL 4D
053571,000069: 11,2406           00045                                    36D                                   
053572,000070: 11,2407           00047                                    X1                                    
053573,000071: 11,2410           77715                           PDVL                                           
053574,000072: 11,2411           65241                           DOT      PDDL                                  #  F*SQRT(MU) (+7 OR +5)         4D      PL 6D
053575,000073: 11,2412           01543                                    VCV                                   
053576,000074: 11,2413           02074                                    TAU.                                  #  (+28)
053577,000075: 11,2414           60225                           DSU      NORM                                  
053578,000076: 11,2415           01551                                    TC                                    
053579,000077: 11,2416           00051                                    S1                                    
053580,000078: 11,2417           77742                           SR1                                            
053581,000079: 11,2420           65271                           DDV      PDDL                                  
053582,000080: 11,2421           00003                                    2D                                    
053583,000081: 11,2422           41405                           DMP      PUSH                                  #  FS (+6 +N1-N2)                6D      PL 8D
053584,000082: 11,2423           00005                                    4D                                    
053585,000083: 11,2424           65316                           DSQ      PDDL                                  #  (FS)SQ (+12 +2(N1-N2))        8D      PL 10D
053586,000084: 11,2425           00005                                    4D                                    
053587,000085: 11,2426           64716                           DSQ      PDDL*                                 #  SSQ/MU (-2 OR +2(N1-N2))      10D     PL 12D
053588,000086: 11,2427           51770                                    MUEARTH,2                             
053589,000087: 11,2430           40442                           SR3      SR4                                   
053590,000088: 11,2431           47515                           PDVL     VSQ                                   #  PREALIGN MU (+43 OR +37)      12D     PL 14D
053591,000089: 11,2432           01543                                    VCV                                   
053592,000090: 11,2433           44205                           DMP      BDSU                                  #                                        PL 12D
053593,000091: 11,2434           00045                                    36D                                   
053594,000092: 11,2435           41271                           DDV      DMP                                   #                                        PL 10D
053595,000093: 11,2436           00003                                    2D                                    #  -(1/R-ALPHA) (+12 +3N1-2N2)
053596,000094: 11,2437           53605                           DMP      SL*                                   
053597,000095: 11,2440           25774                                    DP2/3                                 
053598,000096: 11,2441           20176                                    0          -3,1                       #  10L(1/R-ALPHA) (+13 +2(N1-N2))
053599,000097: 11,2442           43260                           XSU,1    DAD                                   #  2(FS)SQ - ETCETRA                     PL 8D
053600,000098: 11,2443           00050                                    S1                                    #  X1 = N2-N1
053601,000099: 11,2444           45257                           SL*      DSU                                   #  -FS+2(FS)SQ ETC (+6 +N1-N2)           PL 6D
053602,000100: 11,2445           20211                                    8D,1                                  
053603,000101: 11,2446           41205                           DMP      DMP                                   
053604,000102: 11,2447           00001                                    0D                                    
053605,000103: 11,2450           00005                                    4D                                    
053606,000104: 11,2451           53657                           SL*      SL*                                   

Page 1228

053608,000106: 11,2452           20211                                    8D,1                                  
053609,000107: 11,2453           20201                                    0,1                                   #  S(-FS(1-2FS)-1/6...) (+17 OR +16)
053610,000108: 11,2454           65215                           DAD      PDDL                                  #                                        PL 6D
053611,000109: 11,2455           01553                                    XKEP                                  
053612,000110: 11,2456           53605                           DMP      SL*                                   #  S(+17 OR +16)
053613,000111: 11,2457           00001                                    0D                                    
053614,000112: 11,2460           20202                                    1,1                                   
053615,000113: 11,2461           43204                           BOVB     DAD                                   
053616,000114: 11,2462           57753                                    TCDANZIG                              
053617,000115: 11,2463           77626                           STADR                                          
053618,000116: 11,2464           75647                           STORE    XKEPNEW                               
053619,000117: 11,2465           74020                           STQ      AXC,1                                 
053620,000118: 11,2466           02112                                    KEPRTN                                
053621,000119: 11,2467           00012                           DEC      10         B-14                       
053622,000120: 11,2470           74014                           BON      AXC,1                                 
053623,000121: 11,2471           00303                                    MOONFLAG                              
053624,000122: 11,2472           24023                                    KEPLERN                               
053625,000123: 11,2473           00002                           DEC      2          B-14                       
053626,000124: 11,2474           77650                           GOTO                                           
053627,000125: 11,2475           24023                                    KEPLERN                               
053628,000126: 

Page 1229

053630,000128: 11,2476           66350        FBR3               LXA,1    SSP                                   
053631,000129: 11,2477           01500                                    DIFEQCNT                              
053632,000130: 11,2500           00051                                    S1                                    
053633,000131: 11,2501           77762                           DEC      -13        B-14                       
053634,000132: 11,2502           54345                           DLOAD    SR                                    
053635,000133: 11,2503           02076                                    DT/2                                  
053636,000134: 11,2504           20612                                    9D                                    
053637,000135: 11,2505           61500                           TIX,1    ROUND                                 
053638,000136: 11,2506           22507                                    +1                                    
053639,000137: 11,2507           43206                           PUSH     DAD                                   
053640,000138: 11,2510           01551                                    TC                                    
053641,000139: 11,2511           16074                           STODL    TAU.                                  
053642,000140: 11,2512           77615                           DAD                                            
053643,000141: 11,2513           01517                                    TET                                   
053644,000142: 11,2514           35517                           STCALL   TET                                   
053645,000143: 11,2515           22376                                    KEPPREP                               
053646,000144: 

Page 1230

053648,000146:                                                                                                  #  AGC ROUTINE TO COMPUTE ACCELERATION COMPONENTS.
053649,000147: 
053650,000148: 11,2516           73150        ACCOMP             LXA,1    LXA,2                                 
053651,000149: 11,2517           02030                                    PBODY                                 
053652,000150: 11,2520           02030                                    PBODY                                 
053653,000151: 11,2521           77775                           VLOAD                                          
053654,000152: 11,2522           24007                                    ZEROVEC                               
053655,000153: 11,2523           26062                           STOVL    FV                                    
053656,000154: 11,2524           02032                                    ALPHAV                                
053657,000155: 11,2525           53257                           VSL*     VAD                                   
053658,000156: 11,2526           57605                                    0          -7,2                       
053659,000157: 11,2527           01535                                    RCV                                   
053660,000158: 11,2530           02040                           STORE    BETAV                                 
053661,000159: 11,2531           65014                           BOF      XCHX,2                                
053662,000160: 11,2532           01756                                    DIM0FLAG                              
053663,000161: 11,2533           22540                                    +5                                    
053664,000162: 11,2534           01500                                    DIFEQCNT                              
053665,000163: 11,2535           12132                           STORE    VECTAB,2                              
053666,000164: 11,2536           77724                           XCHX,2                                         
053667,000165: 11,2537           01500                                    DIFEQCNT                              
053668,000166: 11,2540           53575                           VLOAD    UNIT                                  
053669,000167: 11,2541           02032                                    ALPHAV                                
053670,000168: 11,2542           16032                           STODL    ALPHAV                                
053671,000169: 11,2543           00045                                    36D                                   
053672,000170: 11,2544           02070                           STORE    ALPHAM                                
053673,000171: 11,2545           77624                           CALL                                           
053674,000172: 11,2546           22650                                    GAMCOMP                               
053675,000173: 11,2547           66175                           VLOAD    SXA,1                                 
053676,000174: 11,2550           02040                                    BETAV                                 
053677,000175: 11,2551           00051                                    S2                                    
053678,000176: 11,2552           16032                           STODL    ALPHAV                                
053679,000177: 11,2553           02072                                    BETAM                                 
053680,000178: 11,2554           02070                           STORE    ALPHAM                                
053681,000179: 11,2555           71214                           BOF      DLOAD                                 
053682,000180: 11,2556           00342                                    MIDFLAG                               
053683,000181: 11,2557           23022                                    OBLATE                                
053684,000182: 11,2560           01517                                    TET                                   
053685,000183: 11,2561           77624                           CALL                                           
053686,000184: 11,2562           33664                                    LSPOS                                 
053687,000185: 11,2563           72174                           AXT,2    LXA,1                                 
053688,000186: 11,2564           00002                                    2                                     
053689,000187: 11,2565           00051                                    S2                                    
053690,000188: 11,2566           77614                           BOF                                            
053691,000189: 11,2567           00343                                    MOONFLAG                              
053692,000190: 11,2570           22573                                    +3                                    
053693,000191: 11,2571           77076                           VCOMP    AXT,2                                 
053694,000192: 11,2572           00000                                    0                                     
053695,000193: 11,2573           02040                           STORE    BETAV                                 
053696,000194: 11,2574           26105                           STOVL    RPQV                                  

Page 1231

053698,000196: 11,2575           00003                                    2D                                    
053699,000197: 11,2576           02122                           STORE    RPSV                                  
053700,000198: 11,2577           45335                           SLOAD    DSU                                   
053701,000199: 11,2600           01012                                    MODREG                                
053702,000200: 11,2601           25776                                    OCT27                                 
053703,000201: 11,2602           43030                           BHIZ     BOF                                   
053704,000202: 11,2603           22606                                    +3                                    
053705,000203: 11,2604           01756                                    DIM0FLAG                              
053706,000204: 11,2605           22622                                    GETRPSV                               
053707,000205: 11,2606           74375                           VLOAD    VXSC                                  
053708,000206: 11,2607           02032                                    ALPHAV                                
053709,000207: 11,2610           02070                                    ALPHAM                                
053710,000208: 11,2611           52257                           VSR*     VSU                                   
053711,000209: 11,2612           57175                                    1,2                                   
053712,000210: 11,2613           02040                                    BETAV                                 
053713,000211: 11,2614           77724                           XCHX,2                                         
053714,000212: 11,2615           01500                                    DIFEQCNT                              
053715,000213: 11,2616           12140                           STORE    VECTAB     +6,2                       
053716,000214: 11,2617           02114                           STORE    RQVV                                  
053717,000215: 11,2620           77724                           XCHX,2                                         
053718,000216: 11,2621           01500                                    DIFEQCNT                              
053719,000217: 11,2622           62175        GETRPSV            VLOAD    INCR,1                                
053720,000218: 11,2623           02105                                    RPQV                                  
053721,000219: 11,2624           00004                                    4                                     
053722,000220: 11,2625           43014                           CLEAR    BOF                                   
053723,000221: 11,2626           04260                                    RPQFLAG                               
053724,000222: 11,2627           00343                                    MOONFLAG                              
053725,000223: 11,2630           22635                                    +5                                    
053726,000224: 11,2631           53261                           VSR      VAD                                   
053727,000225: 11,2632           20612                                    9D                                    
053728,000226: 11,2633           02122                                    RPSV                                  
053729,000227: 11,2634           02122                           STORE    RPSV                                  
053730,000228: 11,2635           77624                           CALL                                           
053731,000229: 11,2636           22650                                    GAMCOMP                               
053732,000230: 11,2637           62174                           AXT,2    INCR,1                                
053733,000231: 11,2640           00004                                    4                                     
053734,000232: 11,2641           00004                                    4                                     
053735,000233: 11,2642           77775                           VLOAD                                          
053736,000234: 11,2643           02122                                    RPSV                                  
053737,000235: 11,2644           36040                           STCALL   BETAV                                 
053738,000236: 11,2645           22650                                    GAMCOMP                               
053739,000237: 11,2646           77650                           GOTO                                           
053740,000238: 11,2647           23022                                    OBLATE                                
053741,000239: 11,2650           74575        GAMCOMP            VLOAD    VSR1                                  
053742,000240: 11,2651           02040                                    BETAV                                 
053743,000241: 11,2652           40236                           VSQ      SETPD                                 
053744,000242: 11,2653           00001                                    0                                     
053745,000243: 11,2654           61501                           NORM     ROUND                                 
053746,000244: 11,2655           00040                                    31D                                   
053747,000245: 11,2656           60325                           PDDL     NORM                                  #  NORMED B SQUARED TO PD LIST

Page 1232

053749,000247: 11,2657           02070                                    ALPHAM                                #  NORMALIZE (LESS ONE) LENGTH OF ALPHA
053750,000248: 11,2660           00041                                    32D                                   #  SAVING NORM SCALE FACTOR IN X1
053751,000249: 11,2661           63342                           SR1      PDVL                                  
053752,000250: 11,2662           02040                                    BETAV                                 #  C(PDL+2) = ALMOST NORMED ALPHA
053753,000251: 11,2663           77656                           UNIT                                           
053754,000252: 11,2664           16040                           STODL    BETAV                                 
053755,000253: 11,2665           00045                                    36D                                   
053756,000254: 11,2666           02072                           STORE    BETAM                                 
053757,000255: 11,2667           55301                           NORM     BDDV                                  #  FORM NORMALIZED QUOTIENT ALPHAM/BETAM
053758,000256: 11,2670           00042                                    33D                                   
053759,000257: 11,2671           41562                           SR1R     PUSH                                  #  C(PDL+2) = ALMOST NORMALIZED RHO.
053760,000258: 11,2672           77743                           DLOAD*                                         
053761,000259: 11,2673           27710                                    ASCALE,1                              
053762,000260: 11,2674           00051                           STORE    S1                                    
053763,000261: 11,2675           57124                           XCHX,2   XAD,2                                 
053764,000262: 11,2676           00050                                    S1                                    
053765,000263: 11,2677           00040                                    32D                                   
053766,000264: 11,2700           71264                           XSU,2    DLOAD                                 
053767,000265: 11,2701           00041                                    33D                                   
053768,000266: 11,2702           00003                                    2D                                    
053769,000267: 11,2703           65057                           SR*      XCHX,2                                
053770,000268: 11,2704           57177                                    0          -1,2                       
053771,000269: 11,2705           00050                                    S1                                    
053772,000270: 11,2706           74406                           PUSH     SR1R                                  #  RHO/4 TO 4D
053773,000271: 11,2707           50315                           PDVL     DOT                                   
053774,000272: 11,2710           02032                                    ALPHAV                                
053775,000273: 11,2711           02040                                    BETAV                                 
053776,000274: 11,2712           44372                           SL1R     BDSU                                  #  (RHO/4) - 2(ALPHAV/2.BETAV/2)
053777,000275: 11,2713           57206                           PUSH     DMPR                                  #  TO PDL+6
053778,000276: 11,2714           00005                                    4                                     
053779,000277: 11,2715           77752                           SL1                                            
053780,000278: 11,2716           43206                           PUSH     DAD                                   
053781,000279: 11,2717           25756                                    DQUARTER                              
053782,000280: 11,2720           75406                           PUSH     SQRT                                  
053783,000281: 11,2721           41475                           DMPR     PUSH                                  
053784,000282: 11,2722           00013                                    10D                                   
053785,000283: 11,2723           43352                           SL1      DAD                                   
053786,000284: 11,2724           25756                                    DQUARTER                              
053787,000285: 11,2725           43325                           PDDL     DAD                                   #  (1/4)+2((Q+1)/4)      TO PD+14D
053788,000286: 11,2726           00013                                    10D                                   
053789,000287: 11,2727           24005                                    HALFDP                                
053790,000288: 11,2730           72475                           DMPR     SL1                                   
053791,000289: 11,2731           00011                                    8D                                    
053792,000290: 11,2732           56215                           DAD      DDV                                   
053793,000291: 11,2733           25750                                    THREE/8                               
053794,000292: 11,2734           00017                                    14D                                   
053795,000293: 11,2735           74275                           DMPR     VXSC                                  
053796,000294: 11,2736           00007                                    6                                     
053797,000295: 11,2737           02040                                    BETAV                                 #                -
053798,000296: 11,2740           64515                           PDVL     VSR3                                  #  (G/2)(C(PD+4))B/2 TO PD+16D

Page 1233

053800,000298: 11,2741           02032                                    ALPHAV                                
053801,000299: 11,2742           41455                           VAD      PUSH                                  #  A12 + C(PD+16D) TO PD+16D
053802,000300: 11,2743           41345                           DLOAD    DMP                                   
053803,000301: 11,2744           00001                                    0                                     
053804,000302: 11,2745           00015                                    12D                                   
053805,000303: 11,2746           61501                           NORM     ROUND                                 
053806,000304: 11,2747           00037                                    30D                                   
053807,000305: 11,2750           40665                           BDDV     DMP*                                  
053808,000306: 11,2751           00003                                    2                                     
053809,000307: 11,2752           51770                                    MUEARTH,2                             
053810,000308: 11,2753           74276                           DCOMP    VXSC                                  
053811,000309: 11,2754           57124                           XCHX,2   XAD,2                                 
053812,000310: 11,2755           00050                                    S1                                    
053813,000311: 11,2756           00051                                    S2                                    
053814,000312: 11,2757           55064                           XSU,2    XSU,2                                 
053815,000313: 11,2760           00036                                    30D                                   
053816,000314: 11,2761           00037                                    31D                                   
053817,000315: 11,2762           77600                           BOV                                            #  CLEAR OVIND
053818,000316: 11,2763           22764                                    +1                                    
053819,000317: 11,2764           65057                           VSR*     XCHX,2                                
053820,000318: 11,2765           57177                                    0          -1,2                       
053821,000319: 11,2766           00050                                    S1                                    
053822,000320: 11,2767           77655                           VAD                                            
053823,000321: 11,2770           02062                                    FV                                    
053824,000322: 11,2771           02062                           STORE    FV                                    
053825,000323: 11,2772           43400                           BOV      RVQ                                   #  RETURN IF NO OVERFLOW
053826,000324: 11,2773           22774                                    +1                                    
053827,000325: 11,2774           51575        GOBAQUE            VLOAD    ABVAL                                 
053828,000326: 11,2775           01521                                    TDELTAV                               
053829,000327: 11,2776           77654                           BZE                                            
053830,000328: 11,2777           23017                                    INT-ABRT                              
053831,000329: 11,3000           54345                           DLOAD    SR                                    
053832,000330: 11,3001           02100                                    H                                     
053833,000331: 11,3002           20612                                    9D                                    
053834,000332: 11,3003           44206                           PUSH     BDSU                                  
053835,000333: 11,3004           01551                                    TC                                    
053836,000334: 11,3005           16074                           STODL    TAU.                                  
053837,000335: 11,3006           01517                                    TET                                   
053838,000336: 11,3007           45425                           DSU      STADR                                 
053839,000337: 11,3010           42260                           STCALL   TET                                   
053840,000338: 11,3011           22376                                    KEPPREP                               
053841,000339: 11,3012           77624                           CALL                                           
053842,000340: 11,3013           23441                                    RECTIFY                               
053843,000341: 11,3014           77614                           SETGO                                          
053844,000342: 11,3015           04020                                    RPQFLAG                               
053845,000343: 11,3016           27257                                    TESTLOOP                              
053846,000344: 
053847,000345: 11,3017           77776        INT-ABRT           EXIT                                           
053848,000346: 11,3020           05652                           TC       POODOO                                
053849,000347: 11,3021           00430                           OCT      00430                                 
053850,000348: 

Page 1234

053852,000350:                                                                                                  #  THE OBLATE ROUTINE COMPUTES THE ACCELERATION DUE TO OBLATENESS.  IT USES THE UNIT OF THE VEHICLE
053853,000351:                                                                                                  #  POSITION VECTOR FOUND IN ALPHAV AND THE DISTANCE TO THE CENTER IN ALPHAM.  THIS IS ADDED TO THE SUM OF THE
053854,000352:                                                                                                  #  DISTURBING ACCELERATIONS IN FV AND THE PROPER DIFEQ STAGE IS CALLED VIA X1.
053855,000353: 
053856,000354: 11,3022           71354        OBLATE             LXA,2    DLOAD                                 
053857,000355: 11,3023           02030                                    PBODY                                 
053858,000356: 11,3024           02070                                    ALPHAM                                
053859,000357: 11,3025           44601                           SETPD    DSU*                                  
053860,000358: 11,3026           00001                                    0                                     
053861,000359: 11,3027           50053                                    RDE,2                                 
053862,000360: 11,3030           43044                           BPL      BOF                                   #  GET URPV
053863,000361: 11,3031           23232                                    NBRANCH                               
053864,000362: 11,3032           00343                                    MOONFLAG                              
053865,000363: 11,3033           23241                                    COSPHIE                               
053866,000364: 11,3034           65375                           VLOAD    PDDL                                  
053867,000365: 11,3035           02032                                    ALPHAV                                
053868,000366: 11,3036           01517                                    TET                                   
053869,000367: 11,3037           45125                           PDDL     CALL                                  
053870,000368: 11,3040           25746                                    3/5                                   
053871,000369: 11,3041           51670                                    R-TO-RP                               
053872,000370: 11,3042           00017                           STORE    URPV                                  
053873,000371: 11,3043           47375                           VLOAD    VXV                                   
053874,000372: 11,3044           02013                                    504LM                                 
053875,000373: 11,3045           24001                                    ZUNIT                                 
053876,000374: 11,3046           61255                           VAD      VXM                                   
053877,000375: 11,3047           24001                                    ZUNIT                                 
053878,000376: 11,3050           00025                                    MMATRIX                               
053879,000377: 11,3051           77656                           UNIT                                           #  POSSIBLY UNNECESSARY
053880,000378: 11,3052           00025        COMTERM            STORE    UZ                                    
053881,000379: 11,3053           57345                           DLOAD    DMPR                                  
053882,000380: 11,3054           00023                                    COSPHI/2                              
053883,000381: 11,3055           25760                                    3/32                                  
053884,000382: 11,3056           63525                           PDDL     DSQ                                   #  P2/64 TO PD0
053885,000383: 11,3057           00023                                    COSPHI/2                              
053886,000384: 11,3060           45275                           DMPR     DSU                                   
053887,000385: 11,3061           25762                                    15/16                                 
053888,000386: 11,3062           25754                                    3/64                                  
053889,000387: 11,3063           57206                           PUSH     DMPR                                  #  P3/32 TO PD2
053890,000388: 11,3064           00023                                    COSPHI/2                              
053891,000389: 11,3065           76405                           DMP      SL1R                                  
053892,000390: 11,3066           25766                                    7/12                                  
053893,000391: 11,3067           57325                           PDDL     DMPR                                  
053894,000392: 11,3070           00001                                    0                                     
053895,000393: 11,3071           25774                                    2/3                                   
053896,000394: 11,3072           41421                           BDSU     PUSH                                  #  P4/128 TO PD4
053897,000395: 11,3073           57275                           DMPR     DMPR                                  
053898,000396: 11,3074           00023                                    COSPHI/2                              #  BEGIN COMPUTING P5/1024
053899,000397: 11,3075           25770                                    9/16                                  
053900,000398: 11,3076           57325                           PDDL     DMPR                                  
053901,000399: 11,3077           00003                                    2                                     
053902,000400: 11,3100           25772                                    5/128                                 

Page 1235

053904,000402: 11,3101           77621                           BDSU                                           
053905,000403: 11,3102           77603                           DMP*                                           
053906,000404: 11,3103           51764                                    J4REQ/J3,2                            
053907,000405: 11,3104           43271                           DDV      DAD                                   #               -3
053908,000406: 11,3105           02070                                    ALPHAM                                #  (((P5/256)B 2  /R+P4/32)  /R+P3/8)ALPHAV
053909,000407: 11,3106           00005                                    4                                     #             4             3
053910,000408: 11,3107           56273                           DMPR*    DDV                                   
053911,000409: 11,3110           51760                                    2J3RE/J2,2                            
053912,000410: 11,3111           02070                                    ALPHAM                                
053913,000411: 11,3112           74215                           DAD      VXSC                                  
053914,000412: 11,3113           00003                                    2                                     
053915,000413: 11,3114           02032                                    ALPHAV                                
053916,000414: 11,3115           14033                           STODL    TVEC                                  
053917,000415: 11,3116           70403                           DMP*     SR1                                   
053918,000416: 11,3117           51764                                    J4REQ/J3,2                            
053919,000417: 11,3120           43271                           DDV      DAD                                   
053920,000418: 11,3121           02070                                    ALPHAM                                #                -3
053921,000419: 11,3122           50473                           DMPR*    SR3                                   
053922,000420: 11,3123           51760                                    2J3RE/J2,2                            #     3        4
053923,000421: 11,3124           43271                           DDV      DAD                                   
053924,000422: 11,3125           02070                                    ALPHAM                                
053925,000423: 11,3126           76561                           VXSC     VSL1                                  
053926,000424: 11,3127           00025                                    UZ                                    
053927,000425: 11,3130           77645                           BVSU                                           
053928,000426: 11,3131           00033                                    TVEC                                  
053929,000427: 11,3132           14033                           STODL    TVEC                                  
053930,000428: 11,3133           02070                                    ALPHAM                                
053931,000429: 11,3134           63501                           NORM     DSQ                                   
053932,000430: 11,3135           00047                                    X1                                    
053933,000431: 11,3136           60316                           DSQ      NORM                                  
053934,000432: 11,3137           00051                                    S1                                    #          4
053935,000433: 11,3140           54606                           PUSH     BDDV*                                 #  NORMED R  TO 0D
053936,000434: 11,3141           51754                                    J2REQSQ,2                             
053937,000435: 11,3142           40161                           VXSC     BOV                                   
053938,000436: 11,3143           00033                                    TVEC                                  
053939,000437: 11,3144           23145                                    +1                                    #  (RESET OVERFLOW INDICATOR)
053940,000438: 11,3145           56070                           XAD,1    XAD,1                                 
053941,000439: 11,3146           00046                                    X1                                    
053942,000440: 11,3147           00046                                    X1                                    
053943,000441: 11,3150           53670                           XAD,1    VSL*                                  
053944,000442: 11,3151           00050                                    S1                                    
053945,000443: 11,3152           20153                                    0          -22D,1                     
053946,000444: 11,3153           40055                           VAD      BOV                                   
053947,000445: 11,3154           02062                                    FV                                    
053948,000446: 11,3155           22774                                    GOBAQUE                               
053949,000447: 11,3156           36062                           STCALL   FV                                    
053950,000448: 11,3157           27725                                    QUALITY1                              
053951,000449: 
053952,000450: 11,3160           77716        QUALITY3           DSQ                                            #  J22 TERM X R**4 IN 2D, SCALED B61
053953,000451:                                                                                                  #  AS VECTOR.

Page 1236

053955,000453: 11,3161           41206                           PUSH     DMP                                   #  STORE COSPHI**2 SCALED B2 IN 8D
053956,000454: 11,3162           27712                                    5/8                                   #  5 SCALED B3
053957,000455: 11,3163           60525                           PDDL     SR2                                   #  PUT 5 COSPHI**2, D5, IN 8D.  GET
053958,000456:                                                                                                  #  COSPHI**2 D2 FROM 8D
053959,000457: 11,3164           44215                           DAD      BDSU                                  #  END UP WITH (1-7 COSPHI**2), B5
053960,000458: 11,3165           00011                                    8D                                    #  ADDING COSPHI**2 B4 SAME AS COSPHI**2
053961,000459:                                                                                                  #  X 2 D5
053962,000460: 11,3166           11043                                    D1/32                                 #  1 SCALED B5
053963,000461: 11,3167           41205                           DMP      DMP                                   
053964,000462: 11,3170           00017                                    URPV                                  #  X COMPONENT
053965,000463: 11,3171           27712                                    5/8                                   #  5 SCALED B3
053966,000464: 11,3172           56561                           VXSC     VSL5                                  #  AFTER SHIFT, SCALED B5
053967,000465: 11,3173           00017                                    URPV                                  #  VECTOR, B1.
053968,000466: 11,3174           77725                           PDDL                                           #  VECTOR INTO 8D, 10D, 12D, SCALED B5.
053969,000467:                                                                                                  #  GET 5 COSPHI**2 OUT OF 8D
053970,000468: 11,3175           43225                           DSU      DAD                                   
053971,000469: 11,3176           11043                                    D1/32                                 #  1 B5
053972,000470: 11,3177           00011                                    8D                                    #  X COMPONENT (SAME AS MULTIPLYING
053973,000471:                                                                                                  #  BY UNITX)
053974,000472: 11,3200           14011                           STODL    8D                                    
053975,000473: 11,3201           00017                                    URPV                                  #  X COMPONENT
053976,000474: 11,3202           41205                           DMP      DMP                                   
053977,000475: 11,3203           00023                                    URPV       +4                         #  Z COMPONENT
053978,000476: 11,3204           27712                                    5/8                                   #  5 B3 ANSWER B5
053979,000477: 11,3205           43352                           SL1      DAD                                   #  FROM 12D FOR Z COMPONENT (SL1 GIVES 10
053980,000478:                                                                                                  #  INSTEAD OF 5 FOR COEFFICIENT)
053981,000479: 11,3206           60325                           PDDL     NORM                                  #  BACK INTO 12D FOR Z COMPONENT.
053982,000480: 11,3207           02070                                    ALPHAM                                #  SCALED B27 FOR MOON
053983,000481: 11,3210           00050                                    X2                                    
053984,000482: 11,3211           67206                           PUSH     SLOAD                                 #  STORE IN 14D, DESTROYING URPV
053985,000483:                                                                                                  #  X COMPONENT
053986,000484: 11,3212           01354                                    E32C31RM                              
053987,000485: 11,3213           74271                           DDV      VXSC                                  #  IF X2 = 0, DIVISION GIVES B53, VXSC
053988,000486:                                                                                                  #  OUT OF 8D B5 GIVES B58
053989,000487: 11,3214           53257                           VSL*     VAD                                   #  SHIFT MAKES B61, FOR ADDITION OF 
053990,000488:                                                                                                  #  VECTOR IN 2D
053991,000489: 11,3215           57601                                    0          -3,2                       
053992,000490: 11,3216           70257                           VSL*     V/SC                                  #  OPERAND FROM 0D, B108 FOR X1 = 0
053993,000491: 11,3217           20146                                    0          -27D,1                     #  FOR X1 = 0, MAKES B88, GIVING B-20
053994,000492:                                                                                                  #  FOR RESULT.
053995,000493: 11,3220           65325                           PDDL     PDDL                                  
053996,000494: 11,3221           01517                                    TET                                   
053997,000495: 11,3222           27712                                    5/8                                   #  ANY NON-ZERO CONSTANT
053998,000496: 11,3223           45154                           LXA,2    CALL                                  #  POSITION IN 0D, TIME IN 6D.  X2 LEFT
053999,000497:                                                                                                  #  ALONE.
054000,000498: 11,3224           02030                                    PBODY                                 
054001,000499: 11,3225           55716                                    RP-TO-R                               
054002,000500: 11,3226           40055                           VAD      BOV                                   #  OVERFLOW INDICATOR RESET IN "RP-TO-R"
054003,000501: 11,3227           02062                                    FV                                    
054004,000502: 11,3230           22774                                    GOBAQUE                               

Page 1237

054006,000504: 11,3231           02062                           STORE    FV                                    
054007,000505: 11,3232           72135        NBRANCH            SLOAD    LXA,1                                 
054008,000506: 11,3233           01501                                    DIFEQCNT                              
054009,000507: 11,3234           00154                                    MPAC                                  
054010,000508: 11,3235           73205                           DMP      CGOTO                                 
054011,000509: 11,3236           27714                                    -1/12                                 
054012,000510: 11,3237           00155                                    MPAC                                  
054013,000511: 11,3240           23247                                    DIFEQTAB                              
054014,000512: 11,3241           77745        COSPHIE            DLOAD                                          
054015,000513: 11,3242           02036                                    ALPHAV     +4                         
054016,000514: 11,3243           24023                           STOVL    COSPHI/2                              
054017,000515: 11,3244           24001                                    ZUNIT                                 
054018,000516: 11,3245           77650                           GOTO                                           
054019,000517: 11,3246           23052                                    COMTERM                               
054020,000518: 11,3247           23466        DIFEQTAB           CADR     DIFEQ+0                               
054021,000519: 11,3250           23472                           CADR     DIFEQ+1                               
054022,000520: 11,3251           23503                           CADR     DIFEQ+2                               
054023,000521: 11,3252           77214        TIMESTEP           BOF      VLOAD                                 
054024,000522: 11,3253           00342                                    MIDFLAG                               
054025,000523: 11,3254           23303                                    RECTEST                               
054026,000524: 11,3255           01535                                    RCV                                   
054027,000525: 11,3256           41241                           DOT      DMP                                   
054028,000526: 11,3257           01543                                    VCV                                   
054029,000527: 11,3260           02076                                    DT/2                                  #  (R.V) X (DELTA T)
054030,000528: 11,3261           77640                           BMN                                            
054031,000529: 11,3262           23303                                    RECTEST                               
054032,000530: 11,3263           43014                           BON      BOF                                   
054033,000531: 11,3264           00303                                    MOONFLAG                              
054034,000532: 11,3265           23360                                    LUNSPH                                
054035,000533: 11,3266           04340                                    RPQFLAG                               
054036,000534: 11,3267           23355                                    EARSPH                                
054037,000535: 11,3270           45145                           DLOAD    CALL                                  
054038,000536: 11,3271           01517                                    TET                                   
054039,000537: 11,3272           33664                                    LSPOS                                 #  RPQV IN MPAC
054040,000538: 11,3273           02105                           STORE    RPQV                                  #  RPQV
054041,000539: 11,3274           77754                           LXA,2                                          
054042,000540: 11,3275           02030                                    PBODY                                 
054043,000541: 11,3276           51445        INLUNCHK           BVSU     ABVAL                                 
054044,000542: 11,3277           01535                                    RCV                                   
054045,000543: 11,3300           50025                           DSU      BMN                                   
054046,000544: 11,3301           27720                                    RSPHERE                               
054047,000545: 11,3302           23375                                    DOSWITCH                              
054048,000546: 11,3303           51575        RECTEST            VLOAD    ABVAL                                 #  RECTIFY IF
054049,000547: 11,3304           01521                                    TDELTAV                               
054050,000548: 11,3305           77600                           BOV                                            
054051,000549: 11,3306           23331                                    CALLRECT                              
054052,000550: 11,3307           51025                           DSU      BPL                                   #        1) EITHER TDELTAV OR TNUV EQUALS OR
054053,000551: 11,3310           25764                                    3/4                                   #           EXCEEDS 3/4 IN MAGNITUDE
054054,000552: 11,3311           23331                                    CALLRECT                              
054055,000553: 11,3312           53615                           DAD      SL*                                   #                        OR

Page 1238

054057,000555: 11,3313           25764                                    3/4                                   
054058,000556: 11,3314           57605                                    0          -7,2                       #        2) ABVAL(TDELTAV) EQUALS OR EXCEEDS
054059,000557: 11,3315           45271                           DDV      DSU                                   #           .01(ABVAL(RCV))
054060,000558: 11,3316           00013                                    10D                                   
054061,000559: 11,3317           27716                                    RECRATIO                              
054062,000560: 11,3320           77244                           BPL      VLOAD                                 
054063,000561: 11,3321           23331                                    CALLRECT                              
054064,000562: 11,3322           01527                                    TNUV                                  
054065,000563: 11,3323           45246                           ABVAL    DSU                                   
054066,000564: 11,3324           25764                                    3/4                                   
054067,000565: 11,3325           77600                           BOV                                            
054068,000566: 11,3326           23331                                    CALLRECT                              
054069,000567: 11,3327           77640                           BMN                                            
054070,000568: 11,3330           23333                                    INTGRATE                              
054071,000569: 11,3331           77624        CALLRECT           CALL                                           
054072,000570: 11,3332           23441                                    RECTIFY                               
054073,000571: 11,3333           77775        INTGRATE           VLOAD                                          
054074,000572: 11,3334           01527                                    TNUV                                  
054075,000573: 11,3335           25135                           STOVL    ZV                                    
054076,000574: 11,3336           01521                                    TDELTAV                               
054077,000575: 11,3337           01127                           STORE    YV                                    
054078,000576: 11,3340           77614                           CLEAR                                          
054079,000577: 11,3341           00261                                    JSWITCH                               
054080,000578: 11,3342           66375        DIFEQ0             VLOAD    SSP                                   
054081,000579: 11,3343           01127                                    YV                                    
054082,000580: 11,3344           01501                                    DIFEQCNT                              
054083,000581: 11,3345           00000                                    0                                     
054084,000582: 11,3346           16032                           STODL    ALPHAV                                
054085,000583: 11,3347           24007                                    DPZERO                                
054086,000584: 11,3350           02100                           STORE    H                                     #  START H AT ZERO.  GOES 0(DELT/2)DELT.
054087,000585: 11,3351           52014                           BON      GOTO                                  
054088,000586: 11,3352           00301                                    JSWITCH                               
054089,000587: 11,3353           23705                                    DOW..                                 
054090,000588: 11,3354           22516                                    ACCOMP                                
054091,000589: 11,3355           52175        EARSPH             VLOAD    GOTO                                  
054092,000590: 11,3356           02105                                    RPQV                                  
054093,000591: 11,3357           23276                                    INLUNCHK                              
054094,000592: 11,3360           60545        LUNSPH             DLOAD    SR2                                   
054095,000593: 11,3361           00013                                    10D                                   
054096,000594: 11,3362           50025                           DSU      BMN                                   
054097,000595: 11,3363           27720                                    RSPHERE                               
054098,000596: 11,3364           23303                                    RECTEST                               
054099,000597: 11,3365           71214                           BOF      DLOAD                                 
054100,000598: 11,3366           04340                                    RPQFLAG                               
054101,000599: 11,3367           23375                                    DOSWITCH                              
054102,000600: 11,3370           01517                                    TET                                   
054103,000601: 11,3371           77624                           CALL                                           
054104,000602: 11,3372           33664                                    LUNPOS                                
054105,000603: 11,3373           77676                           VCOMP                                          
054106,000604: 11,3374           02105                           STORE    RPQV                                  

Page 1239

054108,000606: 11,3375           77624        DOSWITCH           CALL                                           
054109,000607: 11,3376           23401                                    ORIGCHNG                              
054110,000608: 11,3377           77650                           GOTO                                           
054111,000609: 11,3400           23333                                    INTGRATE                              
054112,000610: 11,3401           45020        ORIGCHNG           STQ      CALL                                  
054113,000611: 11,3402           02112                                    ORIGEX                                
054114,000612: 11,3403           23441                                    RECTIFY                               
054115,000613: 11,3404           53775                           VLOAD    VSL*                                  
054116,000614: 11,3405           01535                                    RCV                                   
054117,000615: 11,3406           57576                                    0,2                                   
054118,000616: 11,3407           53651                           VSU      VSL*                                  
054119,000617: 11,3410           02105                                    RPQV                                  
054120,000618: 11,3411           57574                                    2,2                                   
054121,000619: 11,3412           01503                           STORE    RRECT                                 
054122,000620: 11,3413           15535                           STODL    RCV                                   
054123,000621: 11,3414           01517                                    TET                                   
054124,000622: 11,3415           77624                           CALL                                           
054125,000623: 11,3416           33775                                    LUNVEL                                
054126,000624: 11,3417           57414                           BOF      VCOMP                                 
054127,000625: 11,3420           00343                                    MOONFLAG                              
054128,000626: 11,3421           23422                                    +1                                    
054129,000627: 11,3422           53715                           PDVL     VSL*                                  
054130,000628: 11,3423           01543                                    VCV                                   
054131,000629: 11,3424           57576                                    0,2                                   
054132,000630: 11,3425           77651                           VSU                                            
054133,000631: 11,3426           77657                           VSL*                                           
054134,000632: 11,3427           57574                                    0          +2,2                       
054135,000633: 11,3430           01511                           STORE    VRECT                                 
054136,000634: 11,3431           01543                           STORE    VCV                                   
054137,000635: 11,3432           67154                           LXA,2    SXA,2                                 
054138,000636: 11,3433           02112                                    ORIGEX                                
054139,000637: 11,3434           00052                                    QPRET                                 
054140,000638: 11,3435           52014                           BON      GOTO                                  
054141,000639: 11,3436           00303                                    MOONFLAG                              
054142,000640: 11,3437           26711                                    CLRMOON                               
054143,000641: 11,3440           26716                                    SETMOON                               

Page 1240

054145,000643:                                                                                                  #  THE RECTIFY SUBROUTINE IS CALLED BY THE INTEGRATION PROGRAM AND OCCASIONALLY BY THE MEASUREMENT INCORPORATION
054146,000644:                                                                                                  #  ROUTINES TO ESTABLISH A NEW CONIC.
054147,000645: 
054148,000646: 11,3441           77354        RECTIFY            LXA,2    VLOAD                                 
054149,000647: 11,3442           02030                                    PBODY                                 
054150,000648: 11,3443           01521                                    TDELTAV                               
054151,000649: 11,3444           53257                           VSL*     VAD                                   
054152,000650: 11,3445           57605                                    0          -7,2                       
054153,000651: 11,3446           01535                                    RCV                                   
054154,000652: 11,3447           01503                           STORE    RRECT                                 
054155,000653: 11,3450           25535                           STOVL    RCV                                   
054156,000654: 11,3451           01527                                    TNUV                                  
054157,000655: 11,3452           53257                           VSL*     VAD                                   
054158,000656: 11,3453           57602                                    0          -4,2                       
054159,000657: 11,3454           01543                                    VCV                                   
054160,000658: 11,3455           01511        MINIRECT           STORE    VRECT                                 
054161,000659: 11,3456           25543                           STOVL    VCV                                   
054162,000660: 11,3457           24007                                    ZEROVEC                               
054163,000661: 11,3460           01521                           STORE    TDELTAV                               
054164,000662: 11,3461           15527                           STODL    TNUV                                  
054165,000663: 11,3462           24007                                    ZEROVEC                               
054166,000664: 11,3463           01551                           STORE    TC                                    
054167,000665: 11,3464           01553                           STORE    XKEP                                  
054168,000666: 11,3465           77616                           RVQ                                            
054169,000667: 

Page 1241

054171,000669:                                                                                                  #  THE THREE DIFEQ ROUTINES - DIFEQ+0, DIFEQ+12, AND DIFEQ+24 - ARE ENTERED TO PROCESS THE CONTRIBUTIONS AT THE
054172,000670:                                                                                                  #  BEGINNING, MIDDLE, AND END OF THE TIMESTEP, RESPECTIVELY.  THE UPDATING IS DONE BY THE NYSTROM METHOD.
054173,000671: 
054174,000672: 11,3466           64575        DIFEQ+0            VLOAD    VSR3                                  
054175,000673: 11,3467           02062                                    FV                                    
054176,000674: 11,3470           36046                           STCALL   PHIV                                  
054177,000675: 11,3471           23646                                    DIFEQCOM                              
054178,000676: 11,3472           74575        DIFEQ+1            VLOAD    VSR1                                  
054179,000677: 11,3473           02062                                    FV                                    
054180,000678: 11,3474           53206                           PUSH     VAD                                   
054181,000679: 11,3475           02046                                    PHIV                                  
054182,000680: 11,3476           26054                           STOVL    PSIV                                  
054183,000681: 11,3477           53362                           VSR1     VAD                                   
054184,000682: 11,3500           02046                                    PHIV                                  
054185,000683: 11,3501           36046                           STCALL   PHIV                                  
054186,000684: 11,3502           23646                                    DIFEQCOM                              
054187,000685: 11,3503           57345        DIFEQ+2            DLOAD    DMPR                                  
054188,000686: 11,3504           02100                                    H                                     
054189,000687: 11,3505           25774                                    DP2/3                                 
054190,000688: 11,3506           74206                           PUSH     VXSC                                  
054191,000689: 11,3507           02046                                    PHIV                                  
054192,000690: 11,3510           53372                           VSL1     VAD                                   
054193,000691: 11,3511           01135                                    ZV                                    
054194,000692: 11,3512           53361                           VXSC     VAD                                   
054195,000693: 11,3513           02100                                    H                                     
054196,000694: 11,3514           01127                                    YV                                    
054197,000695: 11,3515           25127                           STOVL    YV                                    
054198,000696: 11,3516           02062                                    FV                                    
054199,000697: 11,3517           53322                           VSR3     VAD                                   
054200,000698: 11,3520           02054                                    PSIV                                  
054201,000699: 11,3521           76561                           VXSC     VSL1                                  
054202,000700: 11,3522           77655                           VAD                                            
054203,000701: 11,3523           01135                                    ZV                                    
054204,000702: 11,3524           01135                           STORE    ZV                                    
054205,000703: 11,3525           45014                           BOFF     CALL                                  
054206,000704: 11,3526           00341                                    JSWITCH                               
054207,000705: 11,3527           23577                                    ENDSTATE                              
054208,000706: 11,3530           11244                                    GRP2PC                                
054209,000707: 11,3531           77354                           LXA,2    VLOAD                                 
054210,000708: 11,3532           01117                                    COLREG                                
054211,000709: 11,3533           01135                                    ZV                                    
054212,000710: 11,3534           77732                           VSL3                                           #  ADJUST W-POSITION FOR STORAGE
054213,000711: 11,3535           12467                           STORE    W          +54D,2                     
054214,000712: 11,3536           77775                           VLOAD                                          
054215,000713: 11,3537           01127                                    YV                                    
054216,000714: 11,3540           40132                           VSL3     BOV                                   
054217,000715: 11,3541           23671                                    WMATEND                               
054218,000716: 11,3542           12401                           STORE    W,2                                   
054219,000717: 
054220,000718: 11,3543           77624                           CALL                                           
054221,000719: 11,3544           11244                                    GRP2PC                                

Page 1242

054223,000721: 11,3545           66354                           LXA,2    SSP                                   
054224,000722: 11,3546           01117                                    COLREG                                
054225,000723: 11,3547           00052                                    S2                                    
054226,000724: 11,3550           00000                                    0                                     
054227,000725: 11,3551           67114                           INCR,2   SXA,2                                 
054228,000726: 11,3552           00006                                    6                                     
054229,000727: 11,3553           01126                                    YV                                    
054230,000728: 11,3554           45104                           TIX,2    CALL                                  
054231,000729: 11,3555           23642                                    RELOADSV                              
054232,000730: 11,3556           11244                                    GRP2PC                                
054233,000731: 11,3557           67154                           LXA,2    SXA,2                                 
054234,000732: 11,3560           01126                                    YV                                    
054235,000733: 11,3561           01117                                    COLREG                                
054236,000734: 
054237,000735: 11,3562           77624        NEXTCOL            CALL                                           
054238,000736: 11,3563           11244                                    GRP2PC                                
054239,000737: 11,3564           76754                           LXA,2    VLOAD*                                
054240,000738: 11,3565           01117                                    COLREG                                
054241,000739: 11,3566           75376                                    W,2                                   
054242,000740: 11,3567           77722                           VSR3                                           #  ADJUST W-POSITION FOR INTEGRATION
054243,000741: 11,3570           01127                           STORE    YV                                    
054244,000742: 11,3571           76173                           VLOAD*   AXT,1                                 
054245,000743: 11,3572           75310                                    W          +54D,2                     
054246,000744: 11,3573           00000                                    0                                     
054247,000745: 11,3574           77722                           VSR3                                           #  ADJUST W-VELOCITY FOR INTEGRATION
054248,000746: 11,3575           35135                           STCALL   ZV                                    
054249,000747: 11,3576           23342                                    DIFEQ0                                
054250,000748: 
054251,000749: 11,3577           77200        ENDSTATE           BOV      VLOAD                                 
054252,000750: 11,3600           22774                                    GOBAQUE                               
054253,000751: 11,3601           01135                                    ZV                                    
054254,000752: 11,3602           25527                           STOVL    TNUV                                  
054255,000753: 11,3603           01127                                    YV                                    
054256,000754: 11,3604           01521                           STORE    TDELTAV                               
054257,000755: 11,3605           43014                           BON      BOFF                                  
054258,000756: 11,3606           04715                                    MIDAVFLG                              
054259,000757: 11,3607           27633                                    CKMID2                                #  CHECK FOR MID2 BEFORE GOING TO TIMEINC
054260,000758: 11,3610           01756                                    DIM0FLAG                              
054261,000759: 11,3611           27257                                    TESTLOOP                              
054262,000760: 11,3612           77776                           EXIT                                           
054263,000761: 11,3613           05353                           TC       PHASCHNG                              
054264,000762: 11,3614           04022                           OCT      04022                                 #  PHASE 1
054265,000763: 11,3615           05504                           TC       UPFLAG                                #  PHASE CHANGE HAS OCCURRED BETWEEN
054266,000764: 11,3616           00236                           ADRES    REINTFLG                              #  INTSTALL AND INTWAKE
054267,000765: 11,3617           06037                           TC       INTPRET                               
054268,000766: 11,3620           77731                           SSP                                            
054269,000767: 11,3621           00053                                    QPRET                                 
054270,000768: 11,3622           23627                                    AMOVED                                
054271,000769: 11,3623           52014                           BON      GOTO                                  
054272,000770: 11,3624           01714                                    VINTFLAG                              

Page 1243

054274,000772: 11,3625           26661                                    ATOPCSM                               
054275,000773: 11,3626           26734                                    ATOPLEM                               
054276,000774: 11,3627           66214        AMOVED             SET      SSP                                   
054277,000775: 11,3630           00061                                    JSWITCH                               
054278,000776: 11,3631           01120                                    COLREG                                
054279,000777: 11,3632           77741                           DEC      -30        B-14                       
054280,000778: 11,3633           66214                           BOFF     SSP                                   
054281,000779: 11,3634           01755                                    D6OR9FLG                              
054282,000780: 11,3635           23562                                    NEXTCOL                               
054283,000781: 11,3636           01120                                    COLREG                                
054284,000782: 11,3637           77717                           DEC      -48        B-14                       
054285,000783: 11,3640           77650                           GOTO                                           
054286,000784: 11,3641           23562                                    NEXTCOL                               
054287,000785: 
054288,000786: 11,3642           77745        RELOADSV           DLOAD                                          #  RELOAD TEMPORARY STATE VECTOR
054289,000787: 11,3643           01116                                    TDEC                                  #  FROM PERMANENT IN CASE OF
054290,000788: 11,3644           34041                           STCALL   TDEC1                                 
054291,000789: 11,3645           27141                                    INTEGRV2                              #  BY STARTING AT INTEGRV2.
054292,000790: 11,3646           43345        DIFEQCOM           DLOAD    DAD                                   #  INCREMENT H AND DIFEQCNT.
054293,000791: 11,3647           02076                                    DT/2                                  
054294,000792: 11,3650           02100                                    H                                     
054295,000793: 11,3651           66110                           INCR,1   SXA,1                                 
054296,000794: 11,3652           77763                           DEC      -12        B-14                       
054297,000795: 11,3653           01500                                    DIFEQCNT                              #  DIFEQCNT SET FOR NEXT ENTRY.
054298,000796: 11,3654           02100                           STORE    H                                     
054299,000797: 11,3655           74561                           VXSC     VSR1                                  
054300,000798: 11,3656           02062                                    FV                                    
054301,000799: 11,3657           74255                           VAD      VXSC                                  
054302,000800: 11,3660           01135                                    ZV                                    
054303,000801: 11,3661           02100                                    H                                     
054304,000802: 11,3662           77655                           VAD                                            
054305,000803: 11,3663           01127                                    YV                                    
054306,000804: 11,3664           02032                           STORE    ALPHAV                                
054307,000805: 11,3665           52014                           BON      GOTO                                  
054308,000806: 11,3666           00301                                    JSWITCH                               
054309,000807: 11,3667           23705                                    DOW..                                 
054310,000808: 11,3670           22476                                    FBR3                                  
054311,000809: 
054312,000810: 11,3671           43014        WMATEND            CLEAR    CLEAR                                 
054313,000811: 11,3672           01676                                    DIM0FLAG                              #  DONT INTEGRATE W THIS TIME
054314,000812: 11,3673           01671                                    ORBWFLAG                              #  INVALIDATE W
054315,000813: 11,3674           77614                           CLEAR                                          
054316,000814: 11,3675           02676                                    RENDWFLG                              
054317,000815: 11,3676           77414                           SET      EXIT                                  
054318,000816: 11,3677           01472                                    STATEFLG                              #  PICK UP STATE VECTOR UPDATE
054319,000817: 11,3700           05567                           TC       ALARM                                 
054320,000818: 11,3701           00421                           OCT      421                                   
054321,000819: 11,3702           06037                           TC       INTPRET                               

Page 1244

054323,000821: 11,3703           77650                           GOTO                                           
054324,000822: 11,3704           27257                                    TESTLOOP                              #  FINISH INTEGRATING STATE VECTOR
054325,000823: 

Page 1245

054327,000825:                                                                                                  #  ORBITAL ROUTINE FOR EXTRAPOLATION OF THE W MATRIX.  IT COMPUTES THE SECOND DERIVATIVE OF EACH COLUMN POSITION
054328,000826:                                                                                                  #  VECTOR OF THE MATRIX AND CALLS THE NYSTROM INTEGRATION ROUTINES TO SOLVE THE DIFFERENTIAL EQUATIONS.  THE PROGRAM
054329,000827:                                                                                                  #  USES A TABLE OF VEHICLE POSITION VECTORS COMPUTED DURING THE INTEGRATION OF THE VEHICLES POSITION AND VELOCITY.
054330,000828: 
054331,000829: 11,3705           70754        DOW..              LXA,2    DLOAD*                                
054332,000830: 11,3706           02030                                    PBODY                                 
054333,000831: 11,3707           51770                                    MUEARTH,2                             
054334,000832: 11,3710           36072                           STCALL   BETAM                                 
054335,000833: 11,3711           23733                                    DOW..1                                
054336,000834: 11,3712           02062                           STORE    FV                                    
054337,000835: 11,3713           62014                           BOF      INCR,1                                
054338,000836: 11,3714           00342                                    MIDFLAG                               
054339,000837: 11,3715           23232                                    NBRANCH                               
054340,000838: 11,3716           77771                           DEC      -6         B-14                       
054341,000839: 11,3717           70744                           LXC,2    DLOAD*                                
054342,000840: 11,3720           02030                                    PBODY                                 
054343,000841: 11,3721           51772                                    MUEARTH    -2,2                       
054344,000842: 11,3722           36072                           STCALL   BETAM                                 
054345,000843: 11,3723           23733                                    DOW..1                                
054346,000844: 11,3724           50414                           BON      VSR6                                  
054347,000845: 11,3725           00303                                    MOONFLAG                              
054348,000846: 11,3726           23727                                    +1                                    
054349,000847: 11,3727           77655                           VAD                                            
054350,000848: 11,3730           02062                                    FV                                    
054351,000849: 11,3731           36062                           STCALL   FV                                    
054352,000850: 11,3732           23232                                    NBRANCH                               
054353,000851: 11,3733           60575        DOW..1             VLOAD    VSR4                                  
054354,000852: 11,3734           02032                                    ALPHAV                                
054355,000853: 11,3735           53513                           PDVL*    UNIT                                  
054356,000854: 11,3736           02132                                    VECTAB,1                              
054357,000855: 11,3737           46315                           PDVL     VPROJ                                 
054358,000856: 11,3740           02032                                    ALPHAV                                
054359,000857: 11,3741           52361                           VXSC     VSU                                   
054360,000858: 11,3742           25764                                    3/4                                   
054361,000859: 11,3743           60325                           PDDL     NORM                                  
054362,000860: 11,3744           00045                                    36D                                   
054363,000861: 11,3745           00052                                    S2                                    
054364,000862: 11,3746           63406                           PUSH     DSQ                                   
054365,000863: 11,3747           77605                           DMP                                            
054366,000864: 11,3750           65301                           NORM     PDDL                                  
054367,000865: 11,3751           00043                                    34D                                   
054368,000866: 11,3752           02072                                    BETAM                                 
054369,000867: 11,3753           56342                           SR1      DDV                                   
054370,000868: 11,3754           77761                           VXSC                                           
054371,000869: 11,3755           57154                           LXA,2    XAD,2                                 
054372,000870: 11,3756           00051                                    S2                                    
054373,000871: 11,3757           00051                                    S2                                    
054374,000872: 11,3760           57074                           XAD,2    XAD,2                                 
054375,000873: 11,3761           00051                                    S2                                    
054376,000874: 11,3762           00042                                    34D                                   
054377,000875: 11,3763           43457                           VSL*     RVQ                                   

Page 1246

054379,000877: 11,3764           57606                                    0          -8D,2                      
054380,000878: 
054381,000879:                                                                                                  #  ****************************************************************************************************************
054382,000880:                                                                                                  #  ****************************************************************************************************************
054383,000881: 11,3765           43131        SETITCTR           SSP      BOFF                                  #  SET ITERCTR FOR LAMBERT CALLS.  THIS
054384,000882: 11,3766           00027                                    ITERCTR                               #  CODING BELONGS IN INITVEL AND IS HERE
054385,000883: 11,3767           00024                                    20D                                   #  FOR PURPOSES OF A ONE-MODULE
054386,000884: 11,3770           03752                                    AVEGFLAG                              #  REMANUFACTURE ONLY.  CODING SHOULD
054387,000885: 11,3771           25212                                    LAMBERT                               #  BE MOVED BACK TO INITVEL FOR LUMINARY 1B
054388,000886: 11,3772           52131                           SSP      GOTO                                  
054389,000887: 11,3773           00027                                    ITERCTR                               
054390,000888: 11,3774           00005                                    5                                     
054391,000889: 11,3775           25212                                    LAMBERT                               
054392,000890:                                                                                                  #  ****************************************************************************************************************
054393,000891:                                                                                                  #  ****************************************************************************************************************
054394,000892: 
054395,000893: 12,2000                                           SETLOC   ORBITAL1                              
054396,000894: 12,2000                                           BANK                                           
054397,000895: 
054398,000896: 12,3745           04631 23146  3/5                2DEC     .6         B-2                        
054399,000897: 
054400,000898: 12,3747           14000 00000  THREE/8            2DEC     .375                                  
054401,000899: 
054402,000900: 12,3751           02314 31463  .3D                2DEC     .3         B-2                        
054403,000901: 
054404,000902: 12,3753           01400 00000  3/64               2DEC     3          B-6                        
054405,000903: 
054406,000904: 12,3755           10000 00000  DP1/4              2DEC     .25                                   
054407,000905: 
054408,000906: 12,3757  12,3755               DQUARTER           EQUALS   DP1/4                                 
054409,000907: 12,3757  12,3755               POS1/4             EQUALS   DP1/4                                 
054410,000908: 12,3757           03000 00000  3/32               2DEC     3          B-5                        
054411,000909: 
054412,000910: 12,3761           36000 00000  15/16              2DEC     15.        B-4                        
054413,000911: 
054414,000912: 12,3763           30000 00000  3/4                2DEC     3.0        B-2                        
054415,000913: 
054416,000914: 12,3765           22525 12525  7/12               2DEC     .5833333333                            
054417,000915: 
054418,000916: 12,3767           22000 00000  9/16               2DEC     9          B-4                        
054419,000917: 
054420,000918: 12,3771           01200 00000  5/128              2DEC     5          B-7                        
054421,000919: 
054422,000920: 12,3773  12,2006               DPZERO             EQUALS   ZEROVEC                               
054423,000921: 12,3773           25252 25253  DP2/3              2DEC     .6666666667                            
054424,000922: 
054425,000923: 12,3775  12,3773               2/3                EQUALS   DP2/3                                 
054426,000924: 12,3775           00027        OCT27              OCT      27                                    
054427,000925: 

Page 1247

054429,000927: 13,3675                                           BANK     13                                    
054430,000928: 13,2000                                           SETLOC   ORBITAL2                              
054431,000929: 13,2000                                           BANK                                           
054432,000930:                                                                                                  #  IT IS VITAL THAT THE FOLLOWING CONSTANTS NOT BE SHUFFLED
054433,000931: 13,3675           77764                           DEC      -11        B-14                       
054434,000932: 13,3676           77775                           DEC      -2         B-14                       
054435,000933: 13,3677           77766                           DEC      -9         B-14                       
054436,000934: 13,3700           77771                           DEC      -6         B-14                       
054437,000935: 13,3701           77775                           DEC      -2         B-14                       
054438,000936: 13,3702           77775                           DEC      -2         B-14                       
054439,000937: 13,3703           00000                           DEC      0          B-14                       
054440,000938: 13,3704           77763                           DEC      -12        B-14                       
054441,000939: 13,3705           77766                           DEC      -9         B-14                       
054442,000940: 13,3706           77773                           DEC      -4         B-14                       
054443,000941: 13,3707           77770        ASCALE             DEC      -7         B-14                       
054444,000942: 13,3710           77771                           DEC      -6         B-14                       
054445,000943: 13,3711           24000 00000  5/8                2DEC     5          B-3                        
054446,000944: 
054447,000945: 13,3713           74631 63145  -1/12              2DEC     -.1                                   
054448,000946: 
054449,000947: 13,3715           00243 32703  RECRATIO           2DEC     .01                                   
054450,000948: 
054451,000949: 13,3717           03654 21000  RSPHERE            2DEC     64373.76   E3         B-29            
054452,000950: 
054453,000951: 13,3721           03654 21000  RDM                2DEC     16093.44   E3         B-27            
054454,000952: 
054455,000953: 13,3723           04627 25200  RDE                2DEC     80467.20   E3         B-29            
054456,000954: 
054457,000955: 13,3725                        RATT               EQUALS   00                                    
054458,000956: 13,3725                        VATT               EQUALS   6D                                    
054459,000957: 13,3725                        TAT                EQUALS   12D                                   
054460,000958: 13,3725                        RATT1              EQUALS   14D                                   
054461,000959: 13,3725                        VATT1              EQUALS   20D                                   
054462,000960: 13,3725                        MU(P)              EQUALS   26D                                   
054463,000961: 13,3725                        TDEC1              EQUALS   32D                                   
054464,000962: 13,3725                        URPV               EQUALS   14D                                   
054465,000963: 13,3725     0022               COSPHI/2           EQUALS   URPV       +4                         
054466,000964: 13,3725                        UZ                 EQUALS   20D                                   
054467,000965: 13,3725                        TVEC               EQUALS   26D                                   
054468,000966: 
054469,000967: 13,3725           71214        QUALITY1           BOF      DLOAD                                 
054470,000968: 13,3726           00343                                    MOONFLAG                              
054471,000969: 13,3727           23232                                    NBRANCH                               
054472,000970: 13,3730           00017                                    URPV                                  
054473,000971: 13,3731           77716                           DSQ                                            
054474,000972: 13,3732           63525        QUALITY2           PDDL     DSQ                                   #  SQUARE INTO 2D, B2
054475,000973: 13,3733           00021                                    URPV       +2                         #  Y COMPONENT, B1
054476,000974: 13,3734           77625                           DSU                                            
054477,000975: 13,3735           74205                           DMP      VXSC                                  #  5(Y**2-X**2)UR
054478,000976: 13,3736           27712                                    5/8                                   #  CONSTANT, 5B3
054479,000977: 13,3737           00017                                    URPV                                  #  VECTOR.  RESULT MAXIMUM IS 5, SCALING

Page 1248

054481,000979:                                                                                                  #  HERE B6
054482,000980: 13,3740           65332                           VSL3     PDDL                                  #  STORE SCALED B3 IN 2D, 4D, 6D FOR XYZ
054483,000981: 13,3741           00017                                    URPV                                  #  X COMPONENT, B1
054484,000982: 13,3742           43342                           SR1      DAD                                   #  2 X X COMPONENT FOR B3 SCALING
054485,000983: 13,3743           00003                                    2D                                    #  ADD TO VECTOR X COMPONENT OF ANSWER,
054486,000984:                                                                                                  #  SAME AS MULTIPLYING BY UNITX.  MAX IS 7.
054487,000985: 13,3744           14003                           STODL    2D                                    
054488,000986: 13,3745           00021                                    URPV       +2                         #  Y COMPONENT, B1
054489,000987: 13,3746           44342                           SR1      BDSU                                  #  2 X Y COMPONENT FOR B3 SCALING
054490,000988: 13,3747           00005                                    4D                                    #  SUBTRACT FROM VECTOR Y COMPONENT OF
054491,000989:                                                                                                  #  ANSWER, SAME AS MULTIPLYING BY UNITY.
054492,000990:                                                                                                  #  MAX IS 7.
054493,000991: 13,3750           00005                           STORE    4D                                    #  2D HAS VECTOR, B3.
054494,000992: 13,3751           74335                           SLOAD    VXSC                                  #  MULTIPLY COEFFIECIENT TIMES VECTOR IN 2D
054495,000993: 13,3752           01353                                    E3J22R2M                              
054496,000994: 13,3753           43525                           PDDL     RVQ                                   #  J22 TERM X R**4 IN 2D, SCALED B61
054497,000995: 13,3754           00023                                    COSPHI/2                              #  SAME AS URPV +4  Z COMPONENT
054498,000996: 

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