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.

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

Page 1218

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

Page 1219

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

Page 1220

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

Page 1221

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

Page 1222

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

Page 1223

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

Page 1224

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

Page 1225

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

Page 1226

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

Page 1227

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

052097,000466: 11,3244           67206                           PUSH     SLOAD                                 
052098,000467: 11,3245           01351                                    E32C31RM                              
052099,000468: 11,3246           74271                           DDV      VXSC                                  
052100,000469: 11,3247           63257                           VSL*     PDVL                                  
052101,000470: 11,3250           57601                                    0          -3,2                       

Page 1228

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

Page 1229

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

Page 1230

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

Page 1231

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

Page 1232

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

Page 1233

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

Page 1234

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

Page 1235

052439,000808: 11,3712           77650                           GOTO                                           
052440,000809: 11,3713           27260                                    TESTLOOP                              #  FINISH INTEGRATING STATE VECTOR
052441,000810: 

Page 1236

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

Page 1237

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

Page 1238

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

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