Source Code

These source-code files derive from a printout of Luminary 116 (the Apollo 12 Lunar Module guidance computer program), from the personal library of original AGC developer Don Eyles, digitally photographed at archive.org, financially sponsored by Ron Burkey, and transcribed to source code by a team of volunteers. This colorized, syntax-highlighted form was created by assembling that transcribed source code. Note that the full page images are available on the Virtual AGC project page at archive.org, while reduced-size images are presented at the VirtualAGC project website. Report or fix any transcription errors at the Virtual AGC project code repository.

Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 116 OF AGC PROGRAM LUMINARY BY NASA 2021112-071
	19:09 AUG. 11,1969
Note that the date is the date of the printout, not the date of the program revision.

051642,000002:                                                                                                  ## Copyright:   Public domain.
051643,000003:                                                                                                  ## Filename:    ORBITAL_INTEGRATION.agc
051644,000004:                                                                                                  ## Purpose:     A section of Luminary revision 116.
051645,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM) 
051646,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 12.
051647,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
051648,000008:                                                                                                  ##              that the code format has been changed to conform to the
051649,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
051650,000010:                                                                                                  ##              original YUL assembler.
051651,000011:                                                                                                  ## Reference:   pp. 1218-1238
051652,000012:                                                                                                  ## Assembler:   yaYUL
051653,000013:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
051654,000014:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
051655,000015:                                                                                                  ## Mod history: 2017-01-22 MAS  Created from Luminary 99.
051656,000016:                                                                                                  ##              2017-02-20 RRB  Updated for Luminary 116.
051657,000017:                                                                                                  ##              2017-03-13 RSB  Proofed comment text via 3-way diff vs
051658,000018:                                                                                                  ##                              Luminary 99 and 131.
051659,000019:                                                                                                  ##              2017-03-16 RSB  Comment-text fixes identified in 5-way
051660,000020:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
051661,000021: 

Page 1218

051663,000023:                                                                                                  #  DELETE
051664,000024: 13,3673                                           BANK     13                                    
051665,000025: 11,2000                                           SETLOC   ORBITAL                               
051666,000026: 11,2000                                           BANK                                           
051667,000027: 11,2404                                           COUNT*   $$/ORBIT                              
051668,000028: 
051669,000029:                                                                                                  #  DELETE
051670,000030: 11,2404           40354        KEPPREP            LXA,2    SETPD                                 
051671,000031: 11,2405           02030                                    PBODY                                 
051672,000032: 11,2406           00001                                    0                                     
051673,000033: 11,2407           75543                           DLOAD*   SQRT                                  #  SQRT(MU) (+18 OR +15)  0D        PL 2D
051674,000034: 11,2410           51770                                    MUEARTH,2                             
051675,000035: 11,2411           53515                           PDVL     UNIT                                  #                                   PL 8D
051676,000036: 11,2412           01535                                    RCV                                   
051677,000037: 11,2413           60325                           PDDL     NORM                                  #  NORM R (+29 OR +27 - N1) 2D      PL 4D
051678,000038: 11,2414           00045                                    36D                                   
051679,000039: 11,2415           00047                                    X1                                    
051680,000040: 11,2416           77715                           PDVL                                           
051681,000041: 11,2417           65241                           DOT      PDDL                                  #  F*SQRT(MU)(+7 OR +5) 4D        PL 6D
051682,000042: 11,2420           01543                                    VCV                                   
051683,000043: 11,2421           02074                                    TAU.                                  #  (+28)
051684,000044: 11,2422           60225                           DSU      NORM                                  
051685,000045: 11,2423           01551                                    TC                                    
051686,000046: 11,2424           00051                                    S1                                    
051687,000047: 11,2425           77742                           SR1                                            
051688,000048: 11,2426           65271                           DDV      PDDL                                  
051689,000049: 11,2427           00003                                    2D                                    
051690,000050: 11,2430           41405                           DMP      PUSH                                  #  FS(+6 +N1-N2) 6D               PL 8D
051691,000051: 11,2431           00005                                    4D                                    
051692,000052: 11,2432           65316                           DSQ      PDDL                                  #  (FS)SQ(+12 +2(N1-N2)) 8D       PL 10D
051693,000053: 11,2433           00005                                    4D                                    
051694,000054: 11,2434           64716                           DSQ      PDDL*                                 #  SSQ/MU(-20R +2(N1-N2)) 10D       PL 12D
051695,000055: 11,2435           51770                                    MUEARTH,2                             
051696,000056: 11,2436           40442                           SR3      SR4                                   
051697,000057: 11,2437           47515                           PDVL     VSQ                                   #  PREALIGN MU (+43 OR +37) 12D   PL 14D
051698,000058: 11,2440           01543                                    VCV                                   
051699,000059: 11,2441           44205                           DMP      BDSU                                  #                                 PL 12D
051700,000060: 11,2442           00045                                    36D                                   
051701,000061: 11,2443           41271                           DDV      DMP                                   #                                 PL 10D
051702,000062: 11,2444           00003                                    2D                                    #  -(1/R-ALPHA)(+12 +3N1-2N2)
051703,000063: 11,2445           53605                           DMP      SL*                                   
051704,000064: 11,2446           13772                                    DP2/3                                 
051705,000065: 11,2447           20176                                    0          -3,1                       #  10L(1/R-ALPHA)(+13 +2(N1-N2))
051706,000066: 11,2450           43260                           XSU,1    DAD                                   #  2(FS)SQ - ETCETRA             PL 8D
051707,000067: 11,2451           00050                                    S1                                    #  X1 = N2-N1
051708,000068: 11,2452           45257                           SL*      DSU                                   #  -FS+2(FS)SQ ETC (+6 +N1-N2)    PL 6D
051709,000069: 11,2453           20211                                    8D,1                                  
051710,000070: 11,2454           41205                           DMP      DMP                                   
051711,000071: 11,2455           00001                                    0D                                    
051712,000072: 11,2456           00005                                    4D                                    
051713,000073: 11,2457           53657                           SL*      SL*                                   

Page 1219

051715,000075: 11,2460           20211                                    8D,1                                  
051716,000076: 11,2461           20201                                    0,1                                   #  S(-FS(1-2FS)-1/6...)(+17 OR +16)
051717,000077: 11,2462           65215                           DAD      PDDL                                  #                                 PL 6D
051718,000078: 11,2463           01553                                    XKEP                                  
051719,000079: 11,2464           53605                           DMP      SL*                                   #  S(+17 OR +16)
051720,000080: 11,2465           00001                                    0D                                    
051721,000081: 11,2466           20202                                    1,1                                   
051722,000082: 11,2467           43204                           BOVB     DAD                                   
051723,000083: 11,2470           57753                                    TCDANZIG                              
051724,000084: 11,2471           77626                           STADR                                          
051725,000085: 11,2472           75647                           STORE    XKEPNEW                               
051726,000086: 11,2473           74020                           STQ      AXC,1                                 
051727,000087: 11,2474           02112                                    KEPRTN                                
051728,000088: 11,2475           00012                           DEC      10         B-14                       
051729,000089: 11,2476           74014                           BON      AXC,1                                 
051730,000090: 11,2477           00303                                    MOONFLAG                              
051731,000091: 11,2500           24023                                    KEPLERN                               
051732,000092: 11,2501           00002                           DEC      2          B-14                       
051733,000093: 11,2502           77650                           GOTO                                           
051734,000094: 11,2503           24023                                    KEPLERN                               
051735,000095: 

Page 1220

051737,000097: 11,2504           66350        FBR3               LXA,1    SSP                                   
051738,000098: 11,2505           01500                                    DIFEQCNT                              
051739,000099: 11,2506           00051                                    S1                                    
051740,000100: 11,2507           77762                           DEC      -13        B-14                       
051741,000101: 11,2510           54345                           DLOAD    SR                                    
051742,000102: 11,2511           02076                                    DT/2                                  
051743,000103: 11,2512           20612                                    9D                                    
051744,000104: 11,2513           61500                           TIX,1    ROUND                                 
051745,000105: 11,2514           22515                                    +1                                    
051746,000106: 11,2515           43206                           PUSH     DAD                                   
051747,000107: 11,2516           01551                                    TC                                    
051748,000108: 11,2517           16074                           STODL    TAU.                                  
051749,000109: 11,2520           77615                           DAD                                            
051750,000110: 11,2521           01517                                    TET                                   
051751,000111: 11,2522           35517                           STCALL   TET                                   
051752,000112: 11,2523           22404                                    KEPPREP                               
051753,000113: 

Page 1221

051755,000115:                                                                                                  #  AGC ROUTINE TO COMPUTE ACCELERATION COMPONENTS.
051756,000116: 
051757,000117: 11,2524           73150        ACCOMP             LXA,1    LXA,2                                 
051758,000118: 11,2525           02030                                    PBODY                                 
051759,000119: 11,2526           02030                                    PBODY                                 
051760,000120: 11,2527           77775                           VLOAD                                          
051761,000121: 11,2530           24007                                    ZEROVEC                               
051762,000122: 11,2531           26062                           STOVL    FV                                    
051763,000123: 11,2532           02032                                    ALPHAV                                
051764,000124: 11,2533           53257                           VSL*     VAD                                   
051765,000125: 11,2534           57605                                    0          -7,2                       
051766,000126: 11,2535           01535                                    RCV                                   
051767,000127: 11,2536           02040                           STORE    BETAV                                 
051768,000128: 11,2537           65014                           BOF      XCHX,2                                
051769,000129: 11,2540           01756                                    DIM0FLAG                              
051770,000130: 11,2541           22546                                    +5                                    
051771,000131: 11,2542           01500                                    DIFEQCNT                              
051772,000132: 11,2543           12132                           STORE    VECTAB,2                              
051773,000133: 11,2544           77724                           XCHX,2                                         
051774,000134: 11,2545           01500                                    DIFEQCNT                              
051775,000135: 11,2546           53575                           VLOAD    UNIT                                  
051776,000136: 11,2547           02032                                    ALPHAV                                
051777,000137: 11,2550           16032                           STODL    ALPHAV                                
051778,000138: 11,2551           00045                                    36D                                   
051779,000139: 11,2552           36070                           STCALL   ALPHAM                                
051780,000140: 11,2553           22655                                    GAMCOMP                               
051781,000141: 11,2554           66175                           VLOAD    SXA,1                                 
051782,000142: 11,2555           02040                                    BETAV                                 
051783,000143: 11,2556           00051                                    S2                                    
051784,000144: 11,2557           16032                           STODL    ALPHAV                                
051785,000145: 11,2560           02072                                    BETAM                                 
051786,000146: 11,2561           02070                           STORE    ALPHAM                                
051787,000147: 11,2562           71214                           BOF      DLOAD                                 
051788,000148: 11,2563           00342                                    MIDFLAG                               
051789,000149: 11,2564           23026                                    OBLATE                                
051790,000150: 11,2565           01517                                    TET                                   
051791,000151: 11,2566           77624                           CALL                                           
051792,000152: 11,2567           33647                                    LSPOS                                 
051793,000153: 11,2570           72174                           AXT,2    LXA,1                                 
051794,000154: 11,2571           00002                                    2                                     
051795,000155: 11,2572           00051                                    S2                                    
051796,000156: 11,2573           77614                           BOF                                            
051797,000157: 11,2574           00343                                    MOONFLAG                              
051798,000158: 11,2575           22600                                    +3                                    
051799,000159: 11,2576           77076                           VCOMP    AXT,2                                 
051800,000160: 11,2577           00000                                    0                                     
051801,000161: 11,2600           02040                           STORE    BETAV                                 
051802,000162: 11,2601           26105                           STOVL    RPQV                                  
051803,000163: 11,2602           00003                                    2D                                    

Page 1222

051805,000165: 11,2603           02122                           STORE    RPSV                                  
051806,000166: 11,2604           45335                           SLOAD    DSU                                   
051807,000167: 11,2605           01011                                    MODREG                                
051808,000168: 11,2606           13774                                    OCT27                                 
051809,000169: 11,2607           43030                           BHIZ     BOF                                   
051810,000170: 11,2610           22613                                    +3                                    
051811,000171: 11,2611           01756                                    DIM0FLAG                              
051812,000172: 11,2612           22627                                    GETRPSV                               
051813,000173: 11,2613           74375                           VLOAD    VXSC                                  
051814,000174: 11,2614           02032                                    ALPHAV                                
051815,000175: 11,2615           02070                                    ALPHAM                                
051816,000176: 11,2616           52257                           VSR*     VSU                                   
051817,000177: 11,2617           57175                                    1,2                                   
051818,000178: 11,2620           02040                                    BETAV                                 
051819,000179: 11,2621           77724                           XCHX,2                                         
051820,000180: 11,2622           01500                                    DIFEQCNT                              
051821,000181: 11,2623           12140                           STORE    VECTAB     +6,2                       
051822,000182: 11,2624           02114                           STORE    RQVV                                  
051823,000183: 11,2625           77724                           XCHX,2                                         
051824,000184: 11,2626           01500                                    DIFEQCNT                              
051825,000185: 11,2627           62175        GETRPSV            VLOAD    INCR,1                                
051826,000186: 11,2630           02105                                    RPQV                                  
051827,000187: 11,2631           00004                                    4                                     
051828,000188: 11,2632           43014                           CLEAR    BOF                                   
051829,000189: 11,2633           04260                                    RPQFLAG                               
051830,000190: 11,2634           00343                                    MOONFLAG                              
051831,000191: 11,2635           22642                                    +5                                    
051832,000192: 11,2636           53261                           VSR      VAD                                   
051833,000193: 11,2637           20612                                    9D                                    
051834,000194: 11,2640           02122                                    RPSV                                  
051835,000195: 11,2641           02122                           STORE    RPSV                                  
051836,000196: 11,2642           77624                           CALL                                           
051837,000197: 11,2643           22655                                    GAMCOMP                               
051838,000198: 11,2644           62174                           AXT,2    INCR,1                                
051839,000199: 11,2645           00004                                    4                                     
051840,000200: 11,2646           00004                                    4                                     
051841,000201: 11,2647           77775                           VLOAD                                          
051842,000202: 11,2650           02122                                    RPSV                                  
051843,000203: 11,2651           36040                           STCALL   BETAV                                 
051844,000204: 11,2652           22655                                    GAMCOMP                               
051845,000205: 11,2653           77650                           GOTO                                           
051846,000206: 11,2654           23026                                    OBLATE                                
051847,000207: 11,2655           74575        GAMCOMP            VLOAD    VSR1                                  
051848,000208: 11,2656           02040                                    BETAV                                 
051849,000209: 11,2657           40236                           VSQ      SETPD                                 
051850,000210: 11,2660           00001                                    0                                     
051851,000211: 11,2661           61501                           NORM     ROUND                                 
051852,000212: 11,2662           00040                                    31D                                   
051853,000213: 11,2663           60325                           PDDL     NORM                                  #  NORMED B SQUARED TO PD LIST
051854,000214: 11,2664           02070                                    ALPHAM                                #  NORMALIZE (LESS ONE) LENGTH OF ALPHA

Page 1223

051856,000216: 11,2665           00041                                    32D                                   #  SAVING NORM SCALE FACTOR IN X1
051857,000217: 11,2666           63342                           SR1      PDVL                                  
051858,000218: 11,2667           02040                                    BETAV                                 #  C(PDL+2) = ALMOST NORMED ALPHA
051859,000219: 11,2670           77656                           UNIT                                           
051860,000220: 11,2671           16040                           STODL    BETAV                                 
051861,000221: 11,2672           00045                                    36D                                   
051862,000222: 11,2673           02072                           STORE    BETAM                                 
051863,000223: 11,2674           55301                           NORM     BDDV                                  #  FORM NORMALIZED QUOTIENT ALPHAM/BETAM
051864,000224: 11,2675           00042                                    33D                                   
051865,000225: 11,2676           41562                           SR1R     PUSH                                  #  C(PDL+2) = ALMOST NORMALIZED RHO.
051866,000226: 11,2677           77743                           DLOAD*                                         
051867,000227: 11,2700           27733                                    ASCALE,1                              
051868,000228: 11,2701           00051                           STORE    S1                                    
051869,000229: 11,2702           57124                           XCHX,2   XAD,2                                 
051870,000230: 11,2703           00050                                    S1                                    
051871,000231: 11,2704           00040                                    32D                                   
051872,000232: 11,2705           71264                           XSU,2    DLOAD                                 
051873,000233: 11,2706           00041                                    33D                                   
051874,000234: 11,2707           00003                                    2D                                    
051875,000235: 11,2710           65057                           SR*      XCHX,2                                
051876,000236: 11,2711           57177                                    0          -1,2                       
051877,000237: 11,2712           00050                                    S1                                    
051878,000238: 11,2713           74406                           PUSH     SR1R                                  #  RHO/4 TO 4D
051879,000239: 11,2714           50315                           PDVL     DOT                                   
051880,000240: 11,2715           02032                                    ALPHAV                                
051881,000241: 11,2716           02040                                    BETAV                                 
051882,000242: 11,2717           44372                           SL1R     BDSU                                  #  (RHO/4) - 2(ALPHAV/2.BETAV/2)
051883,000243: 11,2720           57206                           PUSH     DMPR                                  #  TO PDL+6
051884,000244: 11,2721           00005                                    4                                     
051885,000245: 11,2722           77752                           SL1                                            
051886,000246: 11,2723           43206                           PUSH     DAD                                   
051887,000247: 11,2724           25766                                    DQUARTER                              
051888,000248: 11,2725           75406                           PUSH     SQRT                                  
051889,000249: 11,2726           41475                           DMPR     PUSH                                  
051890,000250: 11,2727           00013                                    10D                                   
051891,000251: 11,2730           43352                           SL1      DAD                                   
051892,000252: 11,2731           25766                                    DQUARTER                              
051893,000253: 11,2732           43325                           PDDL     DAD                                   #  (1/4)+2((Q+1)/4)    TO PD+14D
051894,000254: 11,2733           00013                                    10D                                   
051895,000255: 11,2734           24005                                    HALFDP                                
051896,000256: 11,2735           72475                           DMPR     SL1                                   
051897,000257: 11,2736           00011                                    8D                                    
051898,000258: 11,2737           56215                           DAD      DDV                                   
051899,000259: 11,2740           25760                                    THREE/8                               
051900,000260: 11,2741           00017                                    14D                                   
051901,000261: 11,2742           74275                           DMPR     VXSC                                  
051902,000262: 11,2743           00007                                    6                                     
051903,000263: 11,2744           02040                                    BETAV                                 #                -
051904,000264: 11,2745           64515                           PDVL     VSR3                                  #  (G/2)(C(PD+4))B/2 TO PD+16D
051905,000265: 11,2746           02032                                    ALPHAV                                

Page 1224

051907,000267: 11,2747           41455                           VAD      PUSH                                  #  A12 + C(PD+16D) TO PD+16D
051908,000268: 11,2750           41345                           DLOAD    DMP                                   
051909,000269: 11,2751           00001                                    0                                     
051910,000270: 11,2752           00015                                    12D                                   
051911,000271: 11,2753           61501                           NORM     ROUND                                 
051912,000272: 11,2754           00037                                    30D                                   
051913,000273: 11,2755           40665                           BDDV     DMP*                                  
051914,000274: 11,2756           00003                                    2                                     
051915,000275: 11,2757           51770                                    MUEARTH,2                             
051916,000276: 11,2760           74276                           DCOMP    VXSC                                  
051917,000277: 11,2761           57124                           XCHX,2   XAD,2                                 
051918,000278: 11,2762           00050                                    S1                                    
051919,000279: 11,2763           00051                                    S2                                    
051920,000280: 11,2764           55064                           XSU,2    XSU,2                                 
051921,000281: 11,2765           00036                                    30D                                   
051922,000282: 11,2766           00037                                    31D                                   
051923,000283: 11,2767           53604                           BOVB     VSR*                                  
051924,000284: 11,2770           57753                                    TCDANZIG                              
051925,000285: 11,2771           57177                                    0          -1,2                       
051926,000286: 11,2772           53324                           XCHX,2   VAD                                   
051927,000287: 11,2773           00050                                    S1                                    
051928,000288: 11,2774           02062                                    FV                                    
051929,000289: 11,2775           02062                           STORE    FV                                    
051930,000290: 11,2776           43400                           BOV      RVQ                                   #  RETURN IF NO OVERFLOW
051931,000291: 11,2777           23000                                    +1                                    
051932,000292: 11,3000           51575        GOBAQUE            VLOAD    ABVAL                                 
051933,000293: 11,3001           01521                                    TDELTAV                               
051934,000294: 11,3002           77654                           BZE                                            
051935,000295: 11,3003           23023                                    INT-ABRT                              
051936,000296: 11,3004           54345                           DLOAD    SR                                    
051937,000297: 11,3005           02100                                    H                                     
051938,000298: 11,3006           20612                                    9D                                    
051939,000299: 11,3007           44206                           PUSH     BDSU                                  
051940,000300: 11,3010           01551                                    TC                                    
051941,000301: 11,3011           16074                           STODL    TAU.                                  
051942,000302: 11,3012           01517                                    TET                                   
051943,000303: 11,3013           45425                           DSU      STADR                                 
051944,000304: 11,3014           42260                           STCALL   TET                                   
051945,000305: 11,3015           22404                                    KEPPREP                               
051946,000306: 11,3016           77624                           CALL                                           
051947,000307: 11,3017           27673                                    RECTIFY                               
051948,000308: 11,3020           77614                           SETGO                                          
051949,000309: 11,3021           04020                                    RPQFLAG                               
051950,000310: 11,3022           27260                                    TESTLOOP                              
051951,000311: 
051952,000312: 11,3023           77776        INT-ABRT           EXIT                                           
051953,000313: 11,3024           05642                           TC       POODOO                                
051954,000314: 11,3025           20430                           OCT      20430                                 
051955,000315: 

Page 1225

051957,000317:                                                                                                  #  THE OBLATE ROUTINE COMPUTES THE ACCELERATION DUE TO OBLATENESS. IT USES THE UNIT OF THE VEHICLE
051958,000318:                                                                                                  #  POSITION VECTOR FOUND IN ALPHAV AND THE DISTANCE TO THE CENTER IN ALPHAM. THIS IS ADDED TO THE SUM OF THE
051959,000319:                                                                                                  #  DISTURBING ACCELERATIONS IN FV AND THE PROPER DIFEQ STAGE IS CALLED VIA X1.
051960,000320: 
051961,000321: 11,3026           71354        OBLATE             LXA,2    DLOAD                                 
051962,000322: 11,3027           02030                                    PBODY                                 
051963,000323: 11,3030           02070                                    ALPHAM                                
051964,000324: 11,3031           44601                           SETPD    DSU*                                  
051965,000325: 11,3032           00001                                    0                                     
051966,000326: 11,3033           50030                                    RDE,2                                 
051967,000327: 11,3034           43044                           BPL      BOF                                   #  GET URPV
051968,000328: 11,3035           23264                                    NBRANCH                               
051969,000329: 11,3036           00343                                    MOONFLAG                              
051970,000330: 11,3037           23273                                    COSPHIE                               
051971,000331: 11,3040           65375                           VLOAD    PDDL                                  
051972,000332: 11,3041           02032                                    ALPHAV                                
051973,000333: 11,3042           01517                                    TET                                   
051974,000334: 11,3043           45125                           PDDL     CALL                                  
051975,000335: 11,3044           25756                                    3/5                                   
051976,000336: 11,3045           51677                                    R-TO-RP                               
051977,000337: 11,3046           24017                           STOVL    URPV                                  #  RP/R  B-1 IN PLANETARY COORDINATES
051978,000338: 11,3047           24001                                    ZUNIT                                 
051979,000339: 11,3050           45006                           PUSH     CALL                                  #  ZUNIT B-1 IN PLANETARY COORDL AT 00D
051980,000340: 11,3051           23301                                    MATRIX                                
051981,000341: 11,3052           77715                           PDVL                                           #  UZ    B-2 IN INERT COORD      AT 00D
051982,000342: 11,3053           24005                                    XUNIT                                 
051983,000343: 11,3054           45006                           PUSH     CALL                                  #  XUNIT B-1 IN PLANETARY COORD. AT 06D
051984,000344: 11,3055           23301                                    MATRIX                                
051985,000345: 11,3056           77772                           VSL1                                           
051986,000346: 11,3057           24041                           STOVL    32D                                   #  UX    B-1 IN INERT. COORD     AT 32D
051987,000347: 11,3060           77772                           VSL1                                           
051988,000348: 11,3061           14025        COMTERM            STODL    UZ                                    #  UZ  B-1 IN INERTIAL COORD        AT 20D
051989,000349: 11,3062           00023                                    COSPHI/2                              #   '      Z-COMPONENT OF URPV
051990,000350: 11,3063           65275                           DMPR     PDDL                                  #  P   B-6   ,  3COSPHI/64           AT 00D
051991,000351: 11,3064           25770                                    3/32                                  #   2
051992,000352: 11,3065           00023                                    COSPHI/2                              
051993,000353: 11,3066           57316                           DSQ      DMPR                                  
051994,000354: 11,3067           25772                                    15/16                                 #   '                       2
051995,000355: 11,3070           41425                           DSU      PUSH                                  #  P   B-5   ,(1/2)(15COSPHI -3)     AT 02D
051996,000356: 11,3071           25764                                    3/64                                  #   3
051997,000357: 11,3072           41275                           DMPR     DMP                                   
051998,000358: 11,3073           00023                                    COSPHI/2                              
051999,000359: 11,3074           13764                                    7/12                                  
052000,000360: 11,3075           65372                           SL1R     PDDL                                  
052001,000361: 11,3076           00001                                    0D                                    
052002,000362: 11,3077           44275                           DMPR     BDSU                                  
052003,000363: 11,3100           13772                                    2/3                                   #   '                     '   '
052004,000364: 11,3101           57206                           PUSH     DMPR                                  #  P   B-7,(1/3)(7COSPHI P -4P )     AT 04D
052005,000365: 11,3102           00023                                    COSPHI/2                              #   4                     3   2
052006,000366: 11,3103           65275                           DMPR     PDDL                                  
052007,000367: 11,3104           13766                                    9/16                                  

Page 1226

052009,000369: 11,3105           00003                                    2D                                    #   '                      '    '
052010,000370: 11,3106           44275                           DMPR     BDSU                                  #  P   B-10,(1/4)(9COSPHI P  -5P )
052011,000371: 11,3107           13770                                    5/128                                 #   5                      4    3
052012,000372: 11,3110           56203                           DMP*     DDV                                   #                     '
052013,000373: 11,3111           51764                                    J4REQ/J3,2                            #     B- , (J RP/J R)P
052014,000374: 11,3112           02070                                    ALPHAM                                #            4    3   5
052015,000375: 11,3113           56615                           DAD      DMPR*                                 
052016,000376: 11,3114           00005                                    4D                                    #              2     2  '              '
052017,000377: 11,3115           51760                                    2J3RE/J2,2                            #    B , (2J RP /J2 R )P  +(2J RP/J2R)P
052018,000378: 11,3116           43271                           DDV      DAD                                   #         4           5     3        4
052019,000379: 11,3117           02070                                    ALPHAM                                #   -        2 '  2         '        '
052020,000380: 11,3120           00003                                    2D                                    #  (R/R)(J RP P /R + 2J RP P /  + J P )
052021,000381: 11,3121           77761                           VXSC                                           #         4    5       3    4  2   2 3
052022,000382: 11,3122           02032                                    ALPHAV                                #          4       2  '           -
052023,000383: 11,3123           14033                           STODL    TVEC                                  #    B-6,(SUM((J /R )P   (COSPHI))UR)
052024,000384: 11,3124           70403                           DMP*     SR1                                   #          I=2  I     I+1
052025,000385: 11,3125           51764                                    J4REQ/J3,2                            #                  '
052026,000386: 11,3126           43271                           DDV      DAD                                   #       (J RP/J R)P
052027,000387: 11,3127           02070                                    ALPHAM                                #         4    3   4
052028,000388: 11,3130           50473                           DMPR*    SR3                                   #           2    2  '              '
052029,000389: 11,3131           51760                                    2J3RE/J2,2                            #     (2J RP /J R )P  +(2J RP/J R)P
052030,000390: 11,3132           43271                           DDV      DAD                                   #        4     2    4     3    2   3
052031,000391: 11,3133           02070                                    ALPHAM                                
052032,000392: 11,3134           76561                           VXSC     VSL1                                  #         4   '        -
052033,000393: 11,3135           00025                                    UZ                                    #   B-6  SUM(P(COSPHI))UZ
052034,000394: 11,3136           77645                           BVSU                                           #        I=2  I
052035,000395: 11,3137           00033                                    TVEC                                  #   4              I-2   '          -
052036,000396: 11,3140           14033                           STODL    TVEC                                  #  SUM((MU J (RP/R)   )(P   (COSPHI)UR -
052037,000397: 11,3141           02070                                    ALPHAM                                #  I=2      I            I+2
052038,000398: 11,3142           63501                           NORM     DSQ                                   #              P (COSPHI)UZ))  B-6 AT 20D
052039,000399: 11,3143           00047                                    X1                                    #               I
052040,000400: 11,3144           60316                           DSQ      NORM                                  
052041,000401: 11,3145           00051                                    S1                                    #               4
052042,000402: 11,3146           54606                           PUSH     BDDV*                                 #  NORMALIZED  R                   AT 00D
052043,000403: 11,3147           51754                                    J2REQSQ,2                             
052044,000404: 11,3150           40161                           VXSC     BOV                                   
052045,000405: 11,3151           00033                                    TVEC                                  
052046,000406: 11,3152           23153                                    +1                                    #  B+38 FOR EARTH , B+42 FOR MOON
052047,000407: 11,3153           56070                           XAD,1    XAD,1                                 
052048,000408: 11,3154           00046                                    X1                                    
052049,000409: 11,3155           00046                                    X1                                    
052050,000410: 11,3156           53670                           XAD,1    VSL*                                  
052051,000411: 11,3157           00050                                    S1                                    
052052,000412: 11,3160           20153                                    0          -22D,1                     
052053,000413: 11,3161           40055                           VAD      BOV                                   
052054,000414: 11,3162           02062                                    FV                                    
052055,000415: 11,3163           23000                                    GOBAQUE                               
052056,000416: 11,3164           16062                           STODL    FV                                    #  B+16 FOR EARTH , B+20 FOR MOON
052057,000417: 11,3165           00017                                    URPV                                  #  B-1  X-COMPONENT OF POSITION  IN
052058,000418: 11,3166           41414                           BOF      PUSH                                  #            PLANETORY COORD.      AT 02D

Page 1227

052060,000420: 11,3167           00343                                    MOONFLAG                              
052061,000421: 11,3170           23264                                    NBRANCH                               #         2
052062,000422: 11,3171           65316                           DSQ      PDDL                                  #  B-2   X                          AT 04D
052063,000423: 11,3172           00021                                    URPV       +2                         #  B-1  Y-COMPONENT
052064,000424: 11,3173           45316                           DSQ      DSU                                   
052065,000425: 11,3174           74205                           DMP      VXSC                                  
052066,000426: 11,3175           27735                                    5/8                                   #          2  2 -
052067,000427: 11,3176           02032                                    ALPHAV                                #  B-6  5(Y -X )UR   2  2 -
052068,000428: 11,3177           65332                           VSL3     PDDL                                  #  B-3            5(Y -X )UR        AT 02D
052069,000429: 11,3200           53361                           VXSC     VAD                                   
052070,000430: 11,3201           00041                                    32D                                   #        2  2 -   2          -
052071,000431: 11,3202           47315                           PDVL     VXV                                   #    (5(Y.-X )UR/R ) +(2X/R)UX      AT 02D
052072,000432: 11,3203           00041                                    32D                                   #     B-1   UX
052073,000433: 11,3204           00025                                    UZ                                    #     B-2  -UY =(UX * UZ)
052074,000434: 11,3205           74372                           VSL1     VXSC                                  #     B-3   -(2Y/R)UY
052075,000435: 11,3206           00021                                    URPV       +2                         #              2  2 -   2        -
052076,000436: 11,3207           41455                           VAD      PUSH                                  #     B-3  (5(X -Y )UR/R )+(2X/R)UX -(
052077,000437: 11,3210           77745                           DLOAD                                          #               -
052078,000438: 11,3211           00023                                    COSPHI/2                              #          2Y/R)UY                  AT 02D
052079,000439: 11,3212           41516                           DSQ      PUSH                                  #     B-2  (Z.COMPONENT)            AT 08D
052080,000440: 11,3213           65205                           DMP      PDDL                                  #              2
052081,000441: 11,3214           27735                                    5/8                                   #     B-5  5COSPHI /2               AT 08D
052082,000442: 11,3215           43302                           SR2      DAD                                   
052083,000443: 11,3216           00011                                    08D                                   
052084,000444: 11,3217           41221                           BDSU     DMP                                   #                      2
052085,000445: 11,3220           11025                                    D1/32                                 #     B-5  (1 - 7COSPHI )
052086,000446: 11,3221           00017                                    URPV                                  
052087,000447: 11,3222           74205                           DMP      VXSC                                  
052088,000448: 11,3223           27735                                    5/8                                   
052089,000449: 11,3224           02032                                    ALPHAV                                #                          2 -
052090,000450: 11,3225           65272                           VSL5     PDDL                                  #     B-5  (5X/R)(1-7COSPHI )UR     AT 08D
052091,000451: 11,3226           74225                           DSU      VXSC                                  
052092,000452: 11,3227           11025                                    D1/32                                 
052093,000453: 11,3230           00041                                    32D                                   
052094,000454: 11,3231           53372                           VSL1     VAD                                   #                          2 -           -
052095,000455: 11,3232           41325                           PDDL     DMP                                   #     B-5  (5X/R)(1-7COSPHI )UR +(5COSPHI
052096,000456: 11,3233           00017                                    URPV                                  #        -
052097,000457: 11,3234           00023                                    URPV       +4                         #     -1)UX                         AT 08D
052098,000458: 11,3235           74205                           DMP      VXSC                                  
052099,000459: 11,3236           27735                                    5/8                                   #     B-5  5X Y
052100,000460: 11,3237           00025                                    UZ                                    #             M M
052101,000461: 11,3240           53352                           VSL2     VAD                                   #                          2 -           2
052102,000462: 11,3241           60325                           PDDL     NORM                                  #     B-5  (5X/R)(1-7COSPHI )UR +(5COSPHI
052103,000463: 11,3242           02070                                    ALPHAM                                #        -          2 -
052104,000464: 11,3243           00050                                    X2                                    #     -1)UX +(10XZ/R )UZ            AT 08D

In original, the SLOAD and E32C31RM of the below two lines were cirlced in red. - 2017 RRB

052106,000466: 11,3244           67206                           PUSH     SLOAD                                 
052107,000467: 11,3245           01351                                    E32C31RM                              
052108,000468: 11,3246           74271                           DDV      VXSC                                  
052109,000469: 11,3247           63257                           VSL*     PDVL                                  
052110,000470: 11,3250           57601                                    0          -3,2                       

Page 1228

052112,000472: 11,3251           67206                           PUSH     SLOAD                                 
052113,000473: 11,3252           01350                                    E3J22R2M                              
052114,000474: 11,3253           53361                           VXSC     VAD                                   
052115,000475: 11,3254           70257                           VSL*     V/SC                                  
052116,000476: 11,3255           20146                                    0          -27D,1                     #  B+16 OR B+20 (J  + C  )
052117,000477: 11,3256           40055                           VAD      BOV                                   #                 22   31
052118,000478: 11,3257           02062                                    FV                                    
052119,000479: 11,3260           23000                                    GOBAQUE                               
052120,000480: 11,3261           02062                           STORE    FV                                    
052121,000481: 11,3262           77754                           LXA,2                                          
052122,000482: 11,3263           02030                                    PBODY                                 
052123,000483: 11,3264           72135        NBRANCH            SLOAD    LXA,1                                 
052124,000484: 11,3265           01501                                    DIFEQCNT                              
052125,000485: 11,3266           00154                                    MPAC                                  
052126,000486: 11,3267           73205                           DMP      CGOTO                                 
052127,000487: 11,3270           27737                                    -1/12                                 
052128,000488: 11,3271           00155                                    MPAC                                  
052129,000489: 11,3272           23306                                    DIFEQTAB                              
052130,000490: 11,3273           77745        COSPHIE            DLOAD                                          
052131,000491: 11,3274           02036                                    ALPHAV     +4                         
052132,000492: 11,3275           24023                           STOVL    COSPHI/2                              
052133,000493: 11,3276           24001                                    ZUNIT                                 
052134,000494: 11,3277           77650                           GOTO                                           
052135,000495: 11,3300           23061                                    COMTERM                               
052136,000496: 11,3301           57435        MATRIX             VXV      VCOMP                                 
052137,000497: 11,3302           02013                                    504LM                                 #  ROUTINE TRANSLATES FROM PLANETARY
052138,000498: 11,3303           77655                           VAD                                            #  TO INERTIAL COORDINATES
052139,000499: 11,3304           43505                           VXM      RVQ                                   
052140,000500: 11,3305           00025                                    MMATRIX                               
052141,000501: 11,3306           23475        DIFEQTAB           CADR     DIFEQ+0                               
052142,000502: 11,3307           23501                           CADR     DIFEQ+1                               
052143,000503: 11,3310           23512                           CADR     DIFEQ+2                               
052144,000504: 11,3311           77214        TIMESTEP           BOF      VLOAD                                 
052145,000505: 11,3312           00342                                    MIDFLAG                               
052146,000506: 11,3313           23342                                    RECTEST                               
052147,000507: 11,3314           01535                                    RCV                                   
052148,000508: 11,3315           41241                           DOT      DMP                                   
052149,000509: 11,3316           01543                                    VCV                                   
052150,000510: 11,3317           02076                                    DT/2                                  #  (R.V) X (DELTA T)
052151,000511: 11,3320           77640                           BMN                                            
052152,000512: 11,3321           23342                                    RECTEST                               
052153,000513: 11,3322           43014                           BON      BOF                                   
052154,000514: 11,3323           00303                                    MOONFLAG                              
052155,000515: 11,3324           23417                                    LUNSPH                                
052156,000516: 11,3325           04340                                    RPQFLAG                               
052157,000517: 11,3326           23414                                    EARSPH                                
052158,000518: 11,3327           45145                           DLOAD    CALL                                  
052159,000519: 11,3330           01517                                    TET                                   
052160,000520: 11,3331           33647                                    LSPOS                                 #  RPQV IN MPAC
052161,000521: 11,3332           02105                           STORE    RPQV                                  #  RPQV

Page 1229

052163,000523: 11,3333           77754                           LXA,2                                          
052164,000524: 11,3334           02030                                    PBODY                                 
052165,000525: 11,3335           51445        INLUNCHK           BVSU     ABVAL                                 
052166,000526: 11,3336           01535                                    RCV                                   
052167,000527: 11,3337           50025                           DSU      BMN                                   
052168,000528: 11,3340           27743                                    RSPHERE                               
052169,000529: 11,3341           23434                                    DOSWITCH                              
052170,000530: 11,3342           51575        RECTEST            VLOAD    ABVAL                                 #  RECTIFY IF
052171,000531: 11,3343           01521                                    TDELTAV                               
052172,000532: 11,3344           77600                           BOV                                            
052173,000533: 11,3345           23370                                    CALLRECT                              
052174,000534: 11,3346           51025                           DSU      BPL                                   #       1) EITHER TDELTAV OR TNUV EQUALS OR
052175,000535: 11,3347           13762                                    3/4                                   #          EXCEEDS 3/4 IN MAGNITUDE
052176,000536: 11,3350           23370                                    CALLRECT                              
052177,000537: 11,3351           53615                           DAD      SL*                                   #                    OR
052178,000538: 11,3352           13762                                    3/4                                   
052179,000539: 11,3353           57605                                    0          -7,2                       #       2) ABVAL(TDELTAV) EQUALS OR EXCEEDS
052180,000540: 11,3354           45271                           DDV      DSU                                   #          .01(ABVAL(RCV))
052181,000541: 11,3355           00013                                    10D                                   
052182,000542: 11,3356           27741                                    RECRATIO                              
052183,000543: 11,3357           77244                           BPL      VLOAD                                 
052184,000544: 11,3360           23370                                    CALLRECT                              
052185,000545: 11,3361           01527                                    TNUV                                  
052186,000546: 11,3362           45246                           ABVAL    DSU                                   
052187,000547: 11,3363           13762                                    3/4                                   
052188,000548: 11,3364           77600                           BOV                                            
052189,000549: 11,3365           23370                                    CALLRECT                              
052190,000550: 11,3366           77640                           BMN                                            
052191,000551: 11,3367           23372                                    INTGRATE                              
052192,000552: 11,3370           77624        CALLRECT           CALL                                           
052193,000553: 11,3371           27673                                    RECTIFY                               
052194,000554: 11,3372           77775        INTGRATE           VLOAD                                          
052195,000555: 11,3373           01527                                    TNUV                                  
052196,000556: 11,3374           25134                           STOVL    ZV                                    
052197,000557: 11,3375           01521                                    TDELTAV                               
052198,000558: 11,3376           01126                           STORE    YV                                    
052199,000559: 11,3377           77614                           CLEAR                                          
052200,000560: 11,3400           00261                                    JSWITCH                               
052201,000561: 11,3401           66375        DIFEQ0             VLOAD    SSP                                   
052202,000562: 11,3402           01126                                    YV                                    
052203,000563: 11,3403           01501                                    DIFEQCNT                              
052204,000564: 11,3404           00000                                    0                                     
052205,000565: 11,3405           16032                           STODL    ALPHAV                                
052206,000566: 11,3406           24007                                    DPZERO                                
052207,000567: 11,3407           02100                           STORE    H                                     #  START H AT ZERO. GOES 0(DELT/2)DELT.
052208,000568: 11,3410           52014                           BON      GOTO                                  
052209,000569: 11,3411           00301                                    JSWITCH                               
052210,000570: 11,3412           23714                                    DOW..                                 
052211,000571: 11,3413           22524                                    ACCOMP                                
052212,000572: 11,3414           52175        EARSPH             VLOAD    GOTO                                  

Page 1230

052214,000574: 11,3415           02105                                    RPQV                                  
052215,000575: 11,3416           23335                                    INLUNCHK                              
052216,000576: 11,3417           60545        LUNSPH             DLOAD    SR2                                   
052217,000577: 11,3420           00013                                    10D                                   
052218,000578: 11,3421           50025                           DSU      BMN                                   
052219,000579: 11,3422           27743                                    RSPHERE                               
052220,000580: 11,3423           23342                                    RECTEST                               
052221,000581: 11,3424           71214                           BOF      DLOAD                                 
052222,000582: 11,3425           04340                                    RPQFLAG                               
052223,000583: 11,3426           23434                                    DOSWITCH                              
052224,000584: 11,3427           01517                                    TET                                   
052225,000585: 11,3430           77624                           CALL                                           
052226,000586: 11,3431           33647                                    LUNPOS                                
052227,000587: 11,3432           77676                           VCOMP                                          
052228,000588: 11,3433           02105                           STORE    RPQV                                  
052229,000589: 11,3434           77624        DOSWITCH           CALL                                           
052230,000590: 11,3435           23440                                    ORIGCHNG                              
052231,000591: 11,3436           77650                           GOTO                                           
052232,000592: 11,3437           23372                                    INTGRATE                              
052233,000593: 11,3440           45020        ORIGCHNG           STQ      CALL                                  
052234,000594: 11,3441           02112                                    ORIGEX                                
052235,000595: 11,3442           27673                                    RECTIFY                               
052236,000596: 11,3443           53775                           VLOAD    VSL*                                  
052237,000597: 11,3444           01535                                    RCV                                   
052238,000598: 11,3445           57576                                    0,2                                   
052239,000599: 11,3446           53651                           VSU      VSL*                                  
052240,000600: 11,3447           02105                                    RPQV                                  
052241,000601: 11,3450           57574                                    2,2                                   
052242,000602: 11,3451           01503                           STORE    RRECT                                 
052243,000603: 11,3452           01535                           STORE    RCV                                   
052244,000604: 11,3453           57414                           BOF      VCOMP                                 
052245,000605: 11,3454           00343                                    MOONFLAG                              
052246,000606: 11,3455           23456                                    +1                                    
052247,000607: 11,3456           53715                           PDVL     VSL*                                  
052248,000608: 11,3457           01543                                    VCV                                   
052249,000609: 11,3460           57576                                    0,2                                   
052250,000610: 11,3461           77651                           VSU                                            
052251,000611: 11,3462           77657                           VSL*                                           
052252,000612: 11,3463           57574                                    0          +2,2                       
052253,000613: 11,3464           01511                           STORE    VRECT                                 
052254,000614: 11,3465           01543                           STORE    VCV                                   
052255,000615: 11,3466           67154                           LXA,2    SXA,2                                 
052256,000616: 11,3467           02112                                    ORIGEX                                
052257,000617: 11,3470           00052                                    QPRET                                 
052258,000618: 11,3471           52014                           BON      GOTO                                  
052259,000619: 11,3472           00303                                    MOONFLAG                              
052260,000620: 11,3473           26712                                    CLRMOON                               
052261,000621: 11,3474           26717                                    SETMOON                               

Page 1231

052263,000623:                                                                                                  #  THE RECTIFY SUBROUTINE IS CALLED BY THE INTEGRATION PROGRAM AND OCCASIONALLY BY THE MEASUREMENT INCORPORATION
052264,000624:                                                                                                  #  ROUTINES TO ESTABLISH A NEW CONIC.
052265,000625: 
052266,000626: 13,3673                                           BANK     13                                    
052267,000627: 13,2000                                           SETLOC   ORBITAL2                              
052268,000628: 13,2000                                           BANK                                           
052269,000629: 
052270,000630: 13,3673           77354        RECTIFY            LXA,2    VLOAD                                 
052271,000631: 13,3674           02030                                    PBODY                                 
052272,000632: 13,3675           01521                                    TDELTAV                               
052273,000633: 13,3676           53257                           VSL*     VAD                                   
052274,000634: 13,3677           57605                                    0          -7,2                       
052275,000635: 13,3700           01535                                    RCV                                   
052276,000636: 13,3701           01503                           STORE    RRECT                                 
052277,000637: 13,3702           25535                           STOVL    RCV                                   
052278,000638: 13,3703           01527                                    TNUV                                  
052279,000639: 13,3704           53257                           VSL*     VAD                                   
052280,000640: 13,3705           57602                                    0          -4,2                       
052281,000641: 13,3706           01543                                    VCV                                   
052282,000642: 13,3707           01511        MINIRECT           STORE    VRECT                                 
052283,000643: 13,3710           25543                           STOVL    VCV                                   
052284,000644: 13,3711           24007                                    ZEROVEC                               
052285,000645: 13,3712           01521                           STORE    TDELTAV                               
052286,000646: 13,3713           15527                           STODL    TNUV                                  
052287,000647: 13,3714           24007                                    ZEROVEC                               
052288,000648: 13,3715           01551                           STORE    TC                                    
052289,000649: 13,3716           01553                           STORE    XKEP                                  
052290,000650: 13,3717           77616                           RVQ                                            
052291,000651: 
052292,000652: 11,3475                                           BANK     11                                    
052293,000653: 11,2000                                           SETLOC   ORBITAL                               
052294,000654: 11,2000                                           BANK                                           

Page 1232

052296,000656:                                                                                                  #  THE THREE DIFEQ ROUTINES - DIFEQ+0, DIFEQ+12, AND DIFEQ+24 - ARE ENTERED TO PROCESS THE CONTRIBUTIONS AT THE
052297,000657:                                                                                                  #  BEGINNING, MIDDLE, AND END OF THE TIMESTEP, RESPECTIVELY. THE UPDATING IS DONE BY THE NYSTROM METHOD.
052298,000658: 
052299,000659: 11,3475           64575        DIFEQ+0            VLOAD    VSR3                                  
052300,000660: 11,3476           02062                                    FV                                    
052301,000661: 11,3477           36046                           STCALL   PHIV                                  
052302,000662: 11,3500           23655                                    DIFEQCOM                              
052303,000663: 11,3501           74575        DIFEQ+1            VLOAD    VSR1                                  
052304,000664: 11,3502           02062                                    FV                                    
052305,000665: 11,3503           53206                           PUSH     VAD                                   
052306,000666: 11,3504           02046                                    PHIV                                  
052307,000667: 11,3505           26054                           STOVL    PSIV                                  
052308,000668: 11,3506           53362                           VSR1     VAD                                   
052309,000669: 11,3507           02046                                    PHIV                                  
052310,000670: 11,3510           36046                           STCALL   PHIV                                  
052311,000671: 11,3511           23655                                    DIFEQCOM                              
052312,000672: 11,3512           57345        DIFEQ+2            DLOAD    DMPR                                  
052313,000673: 11,3513           02100                                    H                                     
052314,000674: 11,3514           13772                                    DP2/3                                 
052315,000675: 11,3515           74206                           PUSH     VXSC                                  
052316,000676: 11,3516           02046                                    PHIV                                  
052317,000677: 11,3517           53372                           VSL1     VAD                                   
052318,000678: 11,3520           01134                                    ZV                                    
052319,000679: 11,3521           53361                           VXSC     VAD                                   
052320,000680: 11,3522           02100                                    H                                     
052321,000681: 11,3523           01126                                    YV                                    
052322,000682: 11,3524           25126                           STOVL    YV                                    
052323,000683: 11,3525           02062                                    FV                                    
052324,000684: 11,3526           53322                           VSR3     VAD                                   
052325,000685: 11,3527           02054                                    PSIV                                  
052326,000686: 11,3530           76561                           VXSC     VSL1                                  
052327,000687: 11,3531           77655                           VAD                                            
052328,000688: 11,3532           01134                                    ZV                                    
052329,000689: 11,3533           01134                           STORE    ZV                                    
052330,000690: 11,3534           45014                           BOFF     CALL                                  
052331,000691: 11,3535           00341                                    JSWITCH                               
052332,000692: 11,3536           23606                                    ENDSTATE                              
052333,000693: 11,3537           11226                                    GRP2PC                                
052334,000694: 11,3540           77354                           LXA,2    VLOAD                                 
052335,000695: 11,3541           01116                                    COLREG                                
052336,000696: 11,3542           01134                                    ZV                                    
052337,000697: 11,3543           77732                           VSL3                                           #  ADJUST W-POSITION FOR STORAGE
052338,000698: 11,3544           12467                           STORE    W          +54D,2                     
052339,000699: 11,3545           77775                           VLOAD                                          
052340,000700: 11,3546           01126                                    YV                                    
052341,000701: 11,3547           40132                           VSL3     BOV                                   
052342,000702: 11,3550           23700                                    WMATEND                               
052343,000703: 11,3551           12401                           STORE    W,2                                   
052344,000704: 
052345,000705: 11,3552           77624                           CALL                                           
052346,000706: 11,3553           11226                                    GRP2PC                                

Page 1233

052348,000708: 11,3554           66354                           LXA,2    SSP                                   
052349,000709: 11,3555           01116                                    COLREG                                
052350,000710: 11,3556           00052                                    S2                                    
052351,000711: 11,3557           00000                                    0                                     
052352,000712: 11,3560           67114                           INCR,2   SXA,2                                 
052353,000713: 11,3561           00006                                    6                                     
052354,000714: 11,3562           01125                                    YV                                    
052355,000715: 11,3563           45104                           TIX,2    CALL                                  
052356,000716: 11,3564           23651                                    RELOADSV                              
052357,000717: 11,3565           11226                                    GRP2PC                                
052358,000718: 11,3566           67154                           LXA,2    SXA,2                                 
052359,000719: 11,3567           01125                                    YV                                    
052360,000720: 11,3570           01116                                    COLREG                                
052361,000721: 
052362,000722: 11,3571           77624        NEXTCOL            CALL                                           
052363,000723: 11,3572           11226                                    GRP2PC                                
052364,000724: 11,3573           76754                           LXA,2    VLOAD*                                
052365,000725: 11,3574           01116                                    COLREG                                
052366,000726: 11,3575           75376                                    W,2                                   
052367,000727: 11,3576           77722                           VSR3                                           #  ADJUST W-POSITION FOR INTEGRATION
052368,000728: 11,3577           01126                           STORE    YV                                    
052369,000729: 11,3600           76173                           VLOAD*   AXT,1                                 
052370,000730: 11,3601           75310                                    W          +54D,2                     
052371,000731: 11,3602           00000                                    0                                     
052372,000732: 11,3603           77722                           VSR3                                           #  ADJUST W-VELOCITY FOR INTEGRATION
052373,000733: 11,3604           35134                           STCALL   ZV                                    
052374,000734: 11,3605           23401                                    DIFEQ0                                
052375,000735: 
052376,000736: 11,3606           77200        ENDSTATE           BOV      VLOAD                                 
052377,000737: 11,3607           23000                                    GOBAQUE                               
052378,000738: 11,3610           01134                                    ZV                                    
052379,000739: 11,3611           25527                           STOVL    TNUV                                  
052380,000740: 11,3612           01126                                    YV                                    
052381,000741: 11,3613           01521                           STORE    TDELTAV                               
052382,000742: 11,3614           43014                           BON      BOFF                                  
052383,000743: 11,3615           04715                                    MIDAVFLG                              
052384,000744: 11,3616           27631                                    CKMID2                                #  CHECK FOR MID2 BEFORE GOING TO TIMEINC
052385,000745: 11,3617           01756                                    DIM0FLAG                              
052386,000746: 11,3620           27260                                    TESTLOOP                              
052387,000747: 11,3621           77776                           EXIT                                           
052388,000748: 11,3622           05353                           TC       PHASCHNG                              
052389,000749: 11,3623           04022                           OCT      04022                                 #  PHASE 1
052390,000750: 11,3624           05504                           TC       UPFLAG                                #  PHASE CHANGE HAS OCCURRED BETWEEN
052391,000751: 11,3625           00236                           ADRES    REINTFLG                              #  INTSTALL AND INTWAKE
052392,000752: 11,3626           06042                           TC       INTPRET                               
052393,000753: 11,3627           77731                           SSP                                            
052394,000754: 11,3630           00053                                    QPRET                                 
052395,000755: 11,3631           23636                                    AMOVED                                
052396,000756: 11,3632           52014                           BON      GOTO                                  
052397,000757: 11,3633           01714                                    VINTFLAG                              

Page 1234

052399,000759: 11,3634           26662                                    ATOPCSM                               
052400,000760: 11,3635           26735                                    ATOPLEM                               
052401,000761: 11,3636           66214        AMOVED             SET      SSP                                   
052402,000762: 11,3637           00061                                    JSWITCH                               
052403,000763: 11,3640           01117                                    COLREG                                
052404,000764: 11,3641           77741                           DEC      -30        B-14                       
052405,000765: 11,3642           66214                           BOFF     SSP                                   
052406,000766: 11,3643           01755                                    D6OR9FLG                              
052407,000767: 11,3644           23571                                    NEXTCOL                               
052408,000768: 11,3645           01117                                    COLREG                                
052409,000769: 11,3646           77717                           DEC      -48        B-14                       
052410,000770: 11,3647           77650                           GOTO                                           
052411,000771: 11,3650           23571                                    NEXTCOL                               
052412,000772: 
052413,000773: 11,3651           77745        RELOADSV           DLOAD                                          #  RELOAD TEMPORARY STATE VECTOR
052414,000774: 11,3652           01115                                    TDEC                                  #  FROM PERMANENT IN CASE OF
052415,000775: 11,3653           34041                           STCALL   TDEC1                                 
052416,000776: 11,3654           27142                                    INTEGRV2                              #  BY STARTING AT INTEGRV2.
052417,000777: 11,3655           43345        DIFEQCOM           DLOAD    DAD                                   #  INCREMENT H AND DIFEQCNT.
052418,000778: 11,3656           02076                                    DT/2                                  
052419,000779: 11,3657           02100                                    H                                     
052420,000780: 11,3660           66110                           INCR,1   SXA,1                                 
052421,000781: 11,3661           77763                           DEC      -12        B-14                       
052422,000782: 11,3662           01500                                    DIFEQCNT                              #  DIFEQCNT SET FOR NEXT ENTRY.
052423,000783: 11,3663           02100                           STORE    H                                     
052424,000784: 11,3664           74561                           VXSC     VSR1                                  
052425,000785: 11,3665           02062                                    FV                                    
052426,000786: 11,3666           74255                           VAD      VXSC                                  
052427,000787: 11,3667           01134                                    ZV                                    
052428,000788: 11,3670           02100                                    H                                     
052429,000789: 11,3671           77655                           VAD                                            
052430,000790: 11,3672           01126                                    YV                                    
052431,000791: 11,3673           02032                           STORE    ALPHAV                                
052432,000792: 11,3674           52014                           BON      GOTO                                  
052433,000793: 11,3675           00301                                    JSWITCH                               
052434,000794: 11,3676           23714                                    DOW..                                 
052435,000795: 11,3677           22504                                    FBR3                                  
052436,000796: 
052437,000797: 11,3700           43014        WMATEND            CLEAR    CLEAR                                 
052438,000798: 11,3701           01676                                    DIM0FLAG                              #  DONT INTEGRATE W THIS TIME
052439,000799: 11,3702           01671                                    ORBWFLAG                              #  INVALIDATE W
052440,000800: 11,3703           77614                           CLEAR                                          
052441,000801: 11,3704           02676                                    RENDWFLG                              
052442,000802: 11,3705           77414                           SET      EXIT                                  
052443,000803: 11,3706           01472                                    STATEFLG                              #  PICK UP STATE VECTOR UPDATE
052444,000804: 11,3707           05567                           TC       ALARM                                 
052445,000805: 11,3710           00421                           OCT      421                                   
052446,000806: 11,3711           06042                           TC       INTPRET                               

Page 1235

052448,000808: 11,3712           77650                           GOTO                                           
052449,000809: 11,3713           27260                                    TESTLOOP                              #  FINISH INTEGRATING STATE VECTOR
052450,000810: 

Page 1236

052452,000812:                                                                                                  #  ORBITAL ROUTINE FOR EXTRAPOLATION OF THE W MATRIX. IT COMPUTES THE SECOND DERIVATIVE OF EACH COLUMN POSITION
052453,000813:                                                                                                  #  VECTOR OF THE MATRIX AND CALLS THE NYSTROM INTEGRATION ROUTINES TO SOLVE THE DIFFERENTIAL EQUATIONS. THE PROGRAM
052454,000814:                                                                                                  #  USES A TABLE OF VEHICLE POSITION VECTORS COMPUTED DURING THE INTEGRATION OF THE VEHICLES POSITION AND VELOCITY.
052455,000815: 
052456,000816: 11,3714           70754        DOW..              LXA,2    DLOAD*                                
052457,000817: 11,3715           02030                                    PBODY                                 
052458,000818: 11,3716           51770                                    MUEARTH,2                             
052459,000819: 11,3717           36072                           STCALL   BETAM                                 
052460,000820: 11,3720           23742                                    DOW..1                                
052461,000821: 11,3721           02062                           STORE    FV                                    
052462,000822: 11,3722           62014                           BOF      INCR,1                                
052463,000823: 11,3723           00342                                    MIDFLAG                               
052464,000824: 11,3724           23264                                    NBRANCH                               
052465,000825: 11,3725           77771                           DEC      -6         B-14                       
052466,000826: 11,3726           70744                           LXC,2    DLOAD*                                
052467,000827: 11,3727           02030                                    PBODY                                 
052468,000828: 11,3730           51772                                    MUEARTH    -2,2                       
052469,000829: 11,3731           36072                           STCALL   BETAM                                 
052470,000830: 11,3732           23742                                    DOW..1                                
052471,000831: 11,3733           50414                           BON      VSR6                                  
052472,000832: 11,3734           00303                                    MOONFLAG                              
052473,000833: 11,3735           23736                                    +1                                    
052474,000834: 11,3736           77655                           VAD                                            
052475,000835: 11,3737           02062                                    FV                                    
052476,000836: 11,3740           36062                           STCALL   FV                                    
052477,000837: 11,3741           23264                                    NBRANCH                               
052478,000838: 11,3742           60575        DOW..1             VLOAD    VSR4                                  
052479,000839: 11,3743           02032                                    ALPHAV                                
052480,000840: 11,3744           53513                           PDVL*    UNIT                                  
052481,000841: 11,3745           02132                                    VECTAB,1                              
052482,000842: 11,3746           46315                           PDVL     VPROJ                                 
052483,000843: 11,3747           02032                                    ALPHAV                                
052484,000844: 11,3750           52361                           VXSC     VSU                                   
052485,000845: 11,3751           13762                                    3/4                                   
052486,000846: 11,3752           60325                           PDDL     NORM                                  
052487,000847: 11,3753           00045                                    36D                                   
052488,000848: 11,3754           00052                                    S2                                    
052489,000849: 11,3755           63406                           PUSH     DSQ                                   
052490,000850: 11,3756           77605                           DMP                                            
052491,000851: 11,3757           65301                           NORM     PDDL                                  
052492,000852: 11,3760           00043                                    34D                                   
052493,000853: 11,3761           02072                                    BETAM                                 
052494,000854: 11,3762           56342                           SR1      DDV                                   
052495,000855: 11,3763           77761                           VXSC                                           
052496,000856: 11,3764           57154                           LXA,2    XAD,2                                 
052497,000857: 11,3765           00051                                    S2                                    
052498,000858: 11,3766           00051                                    S2                                    
052499,000859: 11,3767           57074                           XAD,2    XAD,2                                 
052500,000860: 11,3770           00051                                    S2                                    
052501,000861: 11,3771           00042                                    34D                                   
052502,000862: 11,3772           43457                           VSL*     RVQ                                   

Page 1237

052504,000864: 11,3773           57606                                    0          -8D,2                      #  ****************************************
052505,000865: 
052506,000866: 12,2000                                           SETLOC   ORBITAL1                              
052507,000867: 12,2000                                           BANK                                           
052508,000868: 
052509,000869: 12,3755           04631 23146  3/5                2DEC     .6         B-2                        
052510,000870: 12,3757           14000 00000  THREE/8            2DEC     .375                                  
052511,000871: 12,3761           02314 31463  .3D                2DEC     .3         B-2                        
052512,000872: 12,3763           01400 00000  3/64               2DEC     3          B-6                        
052513,000873: 12,3765           10000 00000  DP1/4              2DEC     .25                                   
052514,000874: 12,3767  12,3765               DQUARTER           EQUALS   DP1/4                                 
052515,000875: 12,3767  12,3765               POS1/4             EQUALS   DP1/4                                 
052516,000876: 12,3767           03000 00000  3/32               2DEC     3          B-5                        
052517,000877: 12,3771           36000 00000  15/16              2DEC     15.        B-4                        
052518,000878: 
052519,000879: 05,3761                                           BANK     05                                    
052520,000880: 05,2000                                           SETLOC   ORBITAL3                              
052521,000881: 05,2000                                           BANK                                           
052522,000882: 
052523,000883: 05,3761           30000 00000  3/4                2DEC     3.0        B-2                        
052524,000884: 05,3763           22525 12525  7/12               2DEC     .5833333333                            
052525,000885: 05,3765           22000 00000  9/16               2DEC     9          B-4                        
052526,000886: 05,3767           01200 00000  5/128              2DEC     5          B-7                        
052527,000887: 05,3771  12,2006               DPZERO             EQUALS   ZEROVEC                               
052528,000888: 05,3771           25252 25253  DP2/3              2DEC     .6666666667                            
052529,000889: 05,3773  05,3771               2/3                EQUALS   DP2/3                                 
052530,000890: 05,3773           00027        OCT27              OCT      27                                    
052531,000891: 
052532,000892: 13,3720                                           BANK     13                                    
052533,000893: 13,2000                                           SETLOC   ORBITAL2                              
052534,000894: 13,2000                                           BANK                                           
052535,000895:                                                                                                  #  IT IS VITAL THAT THE FOLLOWING CONSTANTS NOT BE SHUFFLED
052536,000896: 13,3720           77764                           DEC      -11        B-14                       
052537,000897: 13,3721           77775                           DEC      -2         B-14                       
052538,000898: 13,3722           77766                           DEC      -9         B-14                       
052539,000899: 13,3723           77771                           DEC      -6         B-14                       
052540,000900: 13,3724           77775                           DEC      -2         B-14                       
052541,000901: 13,3725           77775                           DEC      -2         B-14                       
052542,000902: 13,3726           00000                           DEC      0          B-14                       
052543,000903: 13,3727           77763                           DEC      -12        B-14                       
052544,000904: 13,3730           77766                           DEC      -9         B-14                       

Page 1238

052546,000906: 13,3731           77773                           DEC      -4         B-14                       
052547,000907: 13,3732           77770        ASCALE             DEC      -7         B-14                       
052548,000908: 13,3733           77771                           DEC      -6         B-14                       
052549,000909: 13,3734           24000 00000  5/8                2DEC     5          B-3                        
052550,000910: 13,3736           74631 63145  -1/12              2DEC     -.1                                   
052551,000911: 13,3740           00243 32703  RECRATIO           2DEC     .01                                   
052552,000912: 13,3742           03654 21000  RSPHERE            2DEC     64373.76   E3         B-29            
052553,000913: 13,3744           03654 21000  RDM                2DEC     16093.44   E3         B-27            
052554,000914: 13,3746           04627 25200  RDE                2DEC     80467.20   E3         B-29            
052555,000915: 
052556,000916: 13,3750                        RATT               EQUALS   00                                    
052557,000917: 13,3750                        VATT               EQUALS   6D                                    
052558,000918: 13,3750                        TAT                EQUALS   12D                                   
052559,000919: 13,3750                        RATT1              EQUALS   14D                                   
052560,000920: 13,3750                        VATT1              EQUALS   20D                                   
052561,000921: 13,3750                        MU(P)              EQUALS   26D                                   
052562,000922: 13,3750                        TDEC1              EQUALS   32D                                   
052563,000923: 13,3750                        URPV               EQUALS   14D                                   
052564,000924: 13,3750     0022               COSPHI/2           EQUALS   URPV       +4                         
052565,000925: 13,3750                        UZ                 EQUALS   20D                                   
052566,000926: 13,3750                        TVEC               EQUALS   26D                                   
052567,000927: 

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