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.

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

Page 1218

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

Page 1219

051732,000075: 11,2460           20211                                    8D,1                                  
051733,000076: 11,2461           20201                                    0,1                                   #  S(-FS(1-2FS)-1/6...)(+17 OR +16)
051734,000077: 11,2462           65215                           DAD      PDDL                                  #                                 PL 6D
051735,000078: 11,2463           01553                                    XKEP                                  
051736,000079: 11,2464           53605                           DMP      SL*                                   #  S(+17 OR +16)
051737,000080: 11,2465           00001                                    0D                                    
051738,000081: 11,2466           20202                                    1,1                                   
051739,000082: 11,2467           43204                           BOVB     DAD                                   
051740,000083: 11,2470           57753                                    TCDANZIG                              
051741,000084: 11,2471           77626                           STADR                                          
051742,000085: 11,2472           75647                           STORE    XKEPNEW                               
051743,000086: 11,2473           74020                           STQ      AXC,1                                 
051744,000087: 11,2474           02112                                    KEPRTN                                
051745,000088: 11,2475           00012                           DEC      10         B-14                       
051746,000089: 11,2476           74014                           BON      AXC,1                                 
051747,000090: 11,2477           00303                                    MOONFLAG                              
051748,000091: 11,2500           24023                                    KEPLERN                               
051749,000092: 11,2501           00002                           DEC      2          B-14                       
051750,000093: 11,2502           77650                           GOTO                                           
051751,000094: 11,2503           24023                                    KEPLERN                               
051752,000095: 

Page 1220

051754,000097: 11,2504           66350        FBR3               LXA,1    SSP                                   
051755,000098: 11,2505           01500                                    DIFEQCNT                              
051756,000099: 11,2506           00051                                    S1                                    
051757,000100: 11,2507           77762                           DEC      -13        B-14                       
051758,000101: 11,2510           54345                           DLOAD    SR                                    
051759,000102: 11,2511           02076                                    DT/2                                  
051760,000103: 11,2512           20612                                    9D                                    
051761,000104: 11,2513           61500                           TIX,1    ROUND                                 
051762,000105: 11,2514           22515                                    +1                                    
051763,000106: 11,2515           43206                           PUSH     DAD                                   
051764,000107: 11,2516           01551                                    TC                                    
051765,000108: 11,2517           16074                           STODL    TAU.                                  
051766,000109: 11,2520           77615                           DAD                                            
051767,000110: 11,2521           01517                                    TET                                   
051768,000111: 11,2522           35517                           STCALL   TET                                   
051769,000112: 11,2523           22404                                    KEPPREP                               
051770,000113: 

Page 1221

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

Page 1222

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

Page 1223

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

Page 1224

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

Page 1225

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

Page 1226

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

Page 1227

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

052123,000466: 11,3244           67206                           PUSH     SLOAD                                 
052124,000467: 11,3245           01351                                    E32C31RM                              
052125,000468: 11,3246           74271                           DDV      VXSC                                  
052126,000469: 11,3247           63257                           VSL*     PDVL                                  
052127,000470: 11,3250           57601                                    0          -3,2                       

Page 1228

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

Page 1229

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

Page 1230

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

Page 1231

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

Page 1232

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

Page 1233

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

Page 1234

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

Page 1235

052465,000808: 11,3712           77650                           GOTO                                           
052466,000809: 11,3713           27260                                    TESTLOOP                              #  FINISH INTEGRATING STATE VECTOR
052467,000810: 

Page 1236

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

Page 1237

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

Page 1238

052563,000906: 13,3731           77773                           DEC      -4         B-14                       
052564,000907: 13,3732           77770        ASCALE             DEC      -7         B-14                       
052565,000908: 13,3733           77771                           DEC      -6         B-14                       
052566,000909: 13,3734           24000 00000  5/8                2DEC     5          B-3                        
052567,000910: 13,3736           74631 63145  -1/12              2DEC     -.1                                   
052568,000911: 13,3740           00243 32703  RECRATIO           2DEC     .01                                   
052569,000912: 13,3742           03654 21000  RSPHERE            2DEC     64373.76   E3         B-29            
052570,000913: 13,3744           03654 21000  RDM                2DEC     16093.44   E3         B-27            
052571,000914: 13,3746           04627 25200  RDE                2DEC     80467.20   E3         B-29            
052572,000915: 
052573,000916: 13,3750                        RATT               EQUALS   00                                    
052574,000917: 13,3750                        VATT               EQUALS   6D                                    
052575,000918: 13,3750                        TAT                EQUALS   12D                                   
052576,000919: 13,3750                        RATT1              EQUALS   14D                                   
052577,000920: 13,3750                        VATT1              EQUALS   20D                                   
052578,000921: 13,3750                        MU(P)              EQUALS   26D                                   
052579,000922: 13,3750                        TDEC1              EQUALS   32D                                   
052580,000923: 13,3750                        URPV               EQUALS   14D                                   
052581,000924: 13,3750     0022               COSPHI/2           EQUALS   URPV       +4                         
052582,000925: 13,3750                        UZ                 EQUALS   20D                                   
052583,000926: 13,3750                        TVEC               EQUALS   26D                                   
052584,000927: 

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