Source Code

These source-code files derive from a printout of Luminary 210 (Apollo 15-17 Lunar Module guidance computer program), from the personal library of original AGC developer Don Eyles, digitally photographed at archive.org, financially sponsored by Jim Lawton, 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 210 OF AGC PROGRAM LUMINARY 
	BY NASA 2021112-161 17:11 MAR. 19,1971
Note that the date is the date of the printout, not the date of the program revision.

052879,000002:                                                                                                  ## Copyright:   Public domain.
052880,000003:                                                                                                  ## Filename:    ORBITAL_INTEGRATION.agc
052881,000004:                                                                                                  ## Purpose:     A section of Luminary revision 210.
052882,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
052883,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 15-17.
052884,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
052885,000008:                                                                                                  ##              that the code format has been changed to conform to the
052886,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
052887,000010:                                                                                                  ##              original YUL assembler.
052888,000011:                                                                                                  ## Reference:   pp. 1225-1245
052889,000012:                                                                                                  ## Assembler:   yaYUL
052890,000013:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
052891,000014:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
052892,000015:                                                                                                  ## Mod history: 2016-11-17 JL   Created from Luminary131 version.
052893,000016:                                                                                                  ##              2016-12-10 MAS  Updated for Luminary 210.
052894,000017:                                                                                                  ##              2016-12-26 RSB  Comment-text proofed using ProoferComments
052895,000018:                                                                                                  ##                              and corrected errors found.
052896,000019: 

Page 1225

052898,000021:                                                                                                  #           DELETE
052899,000022: 13,3720                                           BANK     13                                    
052900,000023: 11,2000                                           SETLOC   ORBITAL                               
052901,000024: 11,2000                                           BANK                                           
052902,000025: 11,2403                                           COUNT*   $$/ORBIT                              
052903,000026:                                                                                                  #           DELETE
052904,000027: 11,2403           40354        KEPPREP            LXA,2    SETPD                                 
052905,000028: 11,2404           02030                                    PBODY                                 
052906,000029: 11,2405           00001                                    0                                     
052907,000030: 11,2406           75543                           DLOAD*   SQRT                                  #  SQRT(MU) (+18 OR +15)  0D        PL  2D
052908,000031: 11,2407           51770                                    MUEARTH,2                             
052909,000032: 11,2410           53515                           PDVL     UNIT                                  #                                   PL  8D
052910,000033: 11,2411           01535                                    RCV                                   
052911,000034: 11,2412           60325                           PDDL     NORM                                  #  NORM R (+29 OR +27 - N1) 2D      PL  4D
052912,000035: 11,2413           00045                                    36D                                   
052913,000036: 11,2414           00047                                    X1                                    
052914,000037: 11,2415           77715                           PDVL                                           
052915,000038: 11,2416           65241                           DOT      PDDL                                  #  F*SQRT(MU)(+7 OR+5) 4D         PL  6D
052916,000039: 11,2417           01543                                    VCV                                   
052917,000040: 11,2420           02074                                    TAU.                                  #  (+28)
052918,000041: 11,2421           60225                           DSU      NORM                                  
052919,000042: 11,2422           01551                                    TC                                    
052920,000043: 11,2423           00051                                    S1                                    
052921,000044: 11,2424           77742                           SR1                                            
052922,000045: 11,2425           65271                           DDV      PDDL                                  
052923,000046: 11,2426           00003                                    2D                                    
052924,000047: 11,2427           41405                           DMP      PUSH                                  #  FS(+6 +N1-N2) 6D               PL  8D
052925,000048: 11,2430           00005                                    4D                                    
052926,000049: 11,2431           65316                           DSQ      PDDL                                  #  (FS)SQ(+12 +2(N1-N2)) 8D       PL 10D
052927,000050: 11,2432           00005                                    4D                                    
052928,000051: 11,2433           64716                           DSQ      PDDL*                                 #  SSQ/MU(-20R +2(N1-N2)) 10D       PL 12D
052929,000052: 11,2434           51770                                    MUEARTH,2                             
052930,000053: 11,2435           40442                           SR3      SR4                                   
052931,000054: 11,2436           47515                           PDVL     VSQ                                   #  PREALIGN MU (+43 OR +37) 12D   PL 14D
052932,000055: 11,2437           01543                                    VCV                                   
052933,000056: 11,2440           44205                           DMP      BDSU                                  #                                 PL 12D
052934,000057: 11,2441           00045                                    36D                                   
052935,000058: 11,2442           41271                           DDV      DMP                                   #                                 PL 10D
052936,000059: 11,2443           00003                                    2D                                    #  -(1/R-ALPHA)(+12 +3N1-2N2)
052937,000060: 11,2444           53605                           DMP      SL*                                   
052938,000061: 11,2445           11254                                    DP2/3                                 
052939,000062: 11,2446           20176                                    0          -3,1                       #  10L(1/R-ALPHA)(+13 +2(N1-N2))
052940,000063: 11,2447           43260                           XSU,1    DAD                                   #  2(FS)SQ - ETCETRA        PL 8D
052941,000064: 11,2450           00050                                    S1                                    #  X1 = N2-N1
052942,000065: 11,2451           45257                           SL*      DSU                                   #  -FS+2(FS)SQ ETC (+6 +N1-N2)    PL  6D
052943,000066: 11,2452           20211                                    8D,1                                  
052944,000067: 11,2453           41205                           DMP      DMP                                   
052945,000068: 11,2454           00001                                    0D                                    
052946,000069: 11,2455           00005                                    4D                                    
052947,000070: 11,2456           53657                           SL*      SL*                                   

Page 1226

052949,000072: 11,2457           20211                                    8D,1                                  
052950,000073: 11,2460           20201                                    0,1                                   #  S(-FS(1-2FS)-1/6...)(+17 OR +16)
052951,000074: 11,2461           65215                           DAD      PDDL                                  #                                 PL  6D
052952,000075: 11,2462           01553                                    XKEP                                  
052953,000076: 11,2463           53605                           DMP      SL*                                   #  S(+17 OR +16)
052954,000077: 11,2464           00001                                    0D                                    
052955,000078: 11,2465           20202                                    1,1                                   
052956,000079: 11,2466           43204                           BOVB     DAD                                   
052957,000080: 11,2467           57756                                    TCDANZIG                              
052958,000081: 11,2470           77626                           STADR                                          
052959,000082: 11,2471           75656                           STORE    XKEPNEW                               
052960,000083: 11,2472           74020                           STQ      AXC,1                                 
052961,000084: 11,2473           02111                                    KEPRTN                                
052962,000085: 11,2474           00012                           DEC      10         B-14                       
052963,000086: 11,2475           74014                           BON      AXC,1                                 
052964,000087: 11,2476           00303                                    MOONFLAG                              
052965,000088: 11,2477           24023                                    KEPLERN                               
052966,000089: 11,2500           00002                           DEC      2          B-14                       
052967,000090: 11,2501           77650                           GOTO                                           
052968,000091: 11,2502           24023                                    KEPLERN                               
052969,000092: 

Page 1227

052971,000094: 11,2503           66350        FBR3               LXA,1    SSP                                   
052972,000095: 11,2504           01500                                    DIFEQCNT                              
052973,000096: 11,2505           00051                                    S1                                    
052974,000097: 11,2506           77762                           DEC      -13        B-14                       
052975,000098: 11,2507           54345                           DLOAD    SR                                    
052976,000099: 11,2510           02076                                    DT/2                                  
052977,000100: 11,2511           20612                                    9D                                    
052978,000101: 11,2512           61500                           TIX,1    ROUND                                 
052979,000102: 11,2513           22514                                    +1                                    
052980,000103: 11,2514           43206                           PUSH     DAD                                   
052981,000104: 11,2515           01551                                    TC                                    
052982,000105: 11,2516           16074                           STODL    TAU.                                  
052983,000106: 11,2517           77615                           DAD                                            
052984,000107: 11,2520           01517                                    TET                                   
052985,000108: 11,2521           35517                           STCALL   TET                                   
052986,000109: 11,2522           22403                                    KEPPREP                               
052987,000110: 

Page 1228

052989,000112:                                                                                                  #  AGC ROUTINE TO COMPUTE ACCELERATION COMPONENTS.
052990,000113: 
052991,000114: 
052992,000115: 11,2523           73150        ACCOMP             LXA,1    LXA,2                                 
052993,000116: 11,2524           02030                                    PBODY                                 
052994,000117: 11,2525           02030                                    PBODY                                 
052995,000118: 11,2526           77775                           VLOAD                                          
052996,000119: 11,2527           24007                                    ZEROVEC                               
052997,000120: 11,2530           26062                           STOVL    FV                                    
052998,000121: 11,2531           02032                                    ALPHAV                                
052999,000122: 11,2532           53257                           VSL*     VAD                                   
053000,000123: 11,2533           57605                                    0          -7,2                       
053001,000124: 11,2534           01535                                    RCV                                   
053002,000125: 11,2535           02040                           STORE    BETAV                                 
053003,000126: 11,2536           65014                           BOF      XCHX,2                                
053004,000127: 11,2537           01756                                    DIM0FLAG                              
053005,000128: 11,2540           22545                                    +5                                    
053006,000129: 11,2541           01500                                    DIFEQCNT                              
053007,000130: 11,2542           12123                           STORE    VECTAB,2                              
053008,000131: 11,2543           77724                           XCHX,2                                         
053009,000132: 11,2544           01500                                    DIFEQCNT                              
053010,000133: 11,2545           53575                           VLOAD    UNIT                                  
053011,000134: 11,2546           02032                                    ALPHAV                                
053012,000135: 11,2547           16032                           STODL    ALPHAV                                
053013,000136: 11,2550           00045                                    36D                                   
053014,000137: 11,2551           36070                           STCALL   ALPHAM                                
053015,000138: 11,2552           22653                                    GAMCOMP                               
053016,000139: 11,2553           66175                           VLOAD    SXA,1                                 
053017,000140: 11,2554           02040                                    BETAV                                 
053018,000141: 11,2555           00051                                    S2                                    
053019,000142: 11,2556           16032                           STODL    ALPHAV                                
053020,000143: 11,2557           02072                                    BETAM                                 
053021,000144: 11,2560           02070                           STORE    ALPHAM                                
053022,000145: 11,2561           71214                           BOF      DLOAD                                 
053023,000146: 11,2562           00342                                    MIDFLAG                               
053024,000147: 11,2563           23024                                    OBLATE                                
053025,000148: 11,2564           01517                                    TET                                   
053026,000149: 11,2565           77624                           CALL                                           
053027,000150: 11,2566           33646                                    LSPOS                                 
053028,000151: 11,2567           72174                           AXT,2    LXA,1                                 
053029,000152: 11,2570           00002                                    2                                     
053030,000153: 11,2571           00051                                    S2                                    
053031,000154: 11,2572           77614                           BOF                                            
053032,000155: 11,2573           00343                                    MOONFLAG                              
053033,000156: 11,2574           22577                                    +3                                    
053034,000157: 11,2575           77076                           VCOMP    AXT,2                                 
053035,000158: 11,2576           00000                                    0                                     
053036,000159: 11,2577           02040                           STORE    BETAV                                 
053037,000160: 11,2600           26104                           STOVL    RPQV                                  
053038,000161: 11,2601           00003                                    2D                                    

Page 1229

053040,000163: 11,2602           02113                           STORE    RPSV                                  
053041,000164: 11,2603           45335                           SLOAD    DSU                                   
053042,000165: 11,2604           01011                                    MODREG                                
053043,000166: 11,2605           11256                                    OCT27                                 
053044,000167: 11,2606           43030                           BHIZ     BOF                                   
053045,000168: 11,2607           22612                                    +3                                    
053046,000169: 11,2610           01756                                    DIM0FLAG                              
053047,000170: 11,2611           22625                                    GETRPSV                               
053048,000171: 11,2612           74375                           VLOAD    VXSC                                  
053049,000172: 11,2613           02032                                    ALPHAV                                
053050,000173: 11,2614           02070                                    ALPHAM                                
053051,000174: 11,2615           52257                           VSR*     VSU                                   
053052,000175: 11,2616           57175                                    1,2                                   
053053,000176: 11,2617           02040                                    BETAV                                 
053054,000177: 11,2620           77724                           XCHX,2                                         
053055,000178: 11,2621           01500                                    DIFEQCNT                              
053056,000179: 11,2622           12131                           STORE    VECTAB     +6,2                       
053057,000180: 11,2623           77724                           XCHX,2                                         
053058,000181: 11,2624           01500                                    DIFEQCNT                              
053059,000182: 11,2625           62175        GETRPSV            VLOAD    INCR,1                                
053060,000183: 11,2626           02104                                    RPQV                                  
053061,000184: 11,2627           00004                                    4                                     
053062,000185: 11,2630           43014                           CLEAR    BOF                                   
053063,000186: 11,2631           04260                                    RPQFLAG                               
053064,000187: 11,2632           00343                                    MOONFLAG                              
053065,000188: 11,2633           22640                                    +5                                    
053066,000189: 11,2634           53261                           VSR      VAD                                   
053067,000190: 11,2635           20612                                    9D                                    
053068,000191: 11,2636           02113                                    RPSV                                  
053069,000192: 11,2637           02113                           STORE    RPSV                                  
053070,000193: 11,2640           77624                           CALL                                           
053071,000194: 11,2641           22653                                    GAMCOMP                               
053072,000195: 11,2642           62174                           AXT,2    INCR,1                                
053073,000196: 11,2643           00004                                    4                                     
053074,000197: 11,2644           00004                                    4                                     
053075,000198: 11,2645           77775                           VLOAD                                          
053076,000199: 11,2646           02113                                    RPSV                                  
053077,000200: 11,2647           36040                           STCALL   BETAV                                 
053078,000201: 11,2650           22653                                    GAMCOMP                               
053079,000202: 11,2651           77650                           GOTO                                           
053080,000203: 11,2652           23024                                    OBLATE                                
053081,000204: 11,2653           74575        GAMCOMP            VLOAD    VSR1                                  
053082,000205: 11,2654           02040                                    BETAV                                 
053083,000206: 11,2655           40236                           VSQ      SETPD                                 
053084,000207: 11,2656           00001                                    0                                     
053085,000208: 11,2657           61501                           NORM     ROUND                                 
053086,000209: 11,2660           00040                                    31D                                   
053087,000210: 11,2661           60325                           PDDL     NORM                                  #  NORMED B SQUARED TO PD LIST
053088,000211: 11,2662           02070                                    ALPHAM                                #  NORMALIZE (LESS ONE) LENGTH OF ALPHA
053089,000212: 11,2663           00041                                    32D                                   #  SAVING NORM SCALE FACTOR IN X1

Page 1230

053091,000214: 11,2664           63342                           SR1      PDVL                                  
053092,000215: 11,2665           02040                                    BETAV                                 #  C(PDL+2) = ALMOST NORMED ALPHA
053093,000216: 11,2666           77656                           UNIT                                           
053094,000217: 11,2667           16040                           STODL    BETAV                                 
053095,000218: 11,2670           00045                                    36D                                   
053096,000219: 11,2671           02072                           STORE    BETAM                                 
053097,000220: 11,2672           55301                           NORM     BDDV                                  #  FORM NORMALIZED QUOTIENT ALPHAM/BETAM
053098,000221: 11,2673           00042                                    33D                                   
053099,000222: 11,2674           41562                           SR1R     PUSH                                  #  C(PDL+2) = ALMOST NORMALIZED RHO.
053100,000223: 11,2675           77743                           DLOAD*                                         
053101,000224: 11,2676           27760                                    ASCALE,1                              
053102,000225: 11,2677           00051                           STORE    S1                                    
053103,000226: 11,2700           57124                           XCHX,2   XAD,2                                 
053104,000227: 11,2701           00050                                    S1                                    
053105,000228: 11,2702           00040                                    32D                                   
053106,000229: 11,2703           71264                           XSU,2    DLOAD                                 
053107,000230: 11,2704           00041                                    33D                                   
053108,000231: 11,2705           00003                                    2D                                    
053109,000232: 11,2706           65057                           SR*      XCHX,2                                
053110,000233: 11,2707           57177                                    0          -1,2                       
053111,000234: 11,2710           00050                                    S1                                    
053112,000235: 11,2711           74406                           PUSH     SR1R                                  #  RHO/4 TO 4D
053113,000236: 11,2712           50315                           PDVL     DOT                                   
053114,000237: 11,2713           02032                                    ALPHAV                                
053115,000238: 11,2714           02040                                    BETAV                                 
053116,000239: 11,2715           44372                           SL1R     BDSU                                  #  (RHO/4) - 2(ALPHAV/2.BETAV/2)
053117,000240: 11,2716           57206                           PUSH     DMPR                                  #  TO PDL+6
053118,000241: 11,2717           00005                                    4                                     
053119,000242: 11,2720           77752                           SL1                                            
053120,000243: 11,2721           43206                           PUSH     DAD                                   
053121,000244: 11,2722           25766                                    DQUARTER                              
053122,000245: 11,2723           75406                           PUSH     SQRT                                  
053123,000246: 11,2724           41475                           DMPR     PUSH                                  
053124,000247: 11,2725           00013                                    10D                                   
053125,000248: 11,2726           43352                           SL1      DAD                                   
053126,000249: 11,2727           25766                                    DQUARTER                              
053127,000250: 11,2730           43325                           PDDL     DAD                                   #  (1/4)+2((Q+1)/4)    TO PD+14D
053128,000251: 11,2731           00013                                    10D                                   
053129,000252: 11,2732           24005                                    HALFDP                                
053130,000253: 11,2733           72475                           DMPR     SL1                                   
053131,000254: 11,2734           00011                                    8D                                    
053132,000255: 11,2735           56215                           DAD      DDV                                   
053133,000256: 11,2736           25760                                    THREE/8                               
053134,000257: 11,2737           00017                                    14D                                   
053135,000258: 11,2740           74275                           DMPR     VXSC                                  
053136,000259: 11,2741           00007                                    6                                     
053137,000260: 11,2742           02040                                    BETAV                                 #                -
053138,000261: 11,2743           64515                           PDVL     VSR3                                  #  (G/2)(C(PD+4))B/2 TO PD+16D
053139,000262: 11,2744           02032                                    ALPHAV                                
053140,000263: 11,2745           41455                           VAD      PUSH                                  #  A12 + C(PD+16D) TO PD+16D

Page 1231

053142,000265: 11,2746           41345                           DLOAD    DMP                                   
053143,000266: 11,2747           00001                                    0                                     
053144,000267: 11,2750           00015                                    12D                                   #  -
053145,000268: 11,2751           61501                           NORM     ROUND                                 
053146,000269: 11,2752           00037                                    30D                                   
053147,000270: 11,2753           40665                           BDDV     DMP*                                  
053148,000271: 11,2754           00003                                    2                                     
053149,000272: 11,2755           51770                                    MUEARTH,2                             
053150,000273: 11,2756           74276                           DCOMP    VXSC                                  
053151,000274: 11,2757           57124                           XCHX,2   XAD,2                                 
053152,000275: 11,2760           00050                                    S1                                    
053153,000276: 11,2761           00051                                    S2                                    
053154,000277: 11,2762           55064                           XSU,2    XSU,2                                 
053155,000278: 11,2763           00036                                    30D                                   
053156,000279: 11,2764           00037                                    31D                                   
053157,000280: 11,2765           53604                           BOVB     VSR*                                  
053158,000281: 11,2766           57756                                    TCDANZIG                              
053159,000282: 11,2767           57177                                    0          -1,2                       
053160,000283: 11,2770           53324                           XCHX,2   VAD                                   
053161,000284: 11,2771           00050                                    S1                                    
053162,000285: 11,2772           02062                                    FV                                    
053163,000286: 11,2773           02062                           STORE    FV                                    
053164,000287: 11,2774           43400                           BOV      RVQ                                   #  RETURN IF NO OVERFLOW
053165,000288: 11,2775           22776                                    +1                                    
053166,000289: 11,2776           51575        GOBAQUE            VLOAD    ABVAL                                 
053167,000290: 11,2777           01521                                    TDELTAV                               
053168,000291: 11,3000           77654                           BZE                                            
053169,000292: 11,3001           23021                                    INT-ABRT                              
053170,000293: 11,3002           54345                           DLOAD    SR                                    
053171,000294: 11,3003           02100                                    H                                     
053172,000295: 11,3004           20612                                    9D                                    
053173,000296: 11,3005           44206                           PUSH     BDSU                                  
053174,000297: 11,3006           01551                                    TC                                    
053175,000298: 11,3007           16074                           STODL    TAU.                                  
053176,000299: 11,3010           01517                                    TET                                   
053177,000300: 11,3011           45425                           DSU      STADR                                 
053178,000301: 11,3012           42260                           STCALL   TET                                   
053179,000302: 11,3013           22403                                    KEPPREP                               
053180,000303: 11,3014           77624                           CALL                                           
053181,000304: 11,3015           27720                                    RECTIFY                               
053182,000305: 11,3016           77614                           SETGO                                          
053183,000306: 11,3017           04020                                    RPQFLAG                               
053184,000307: 11,3020           27315                                    TESTLOOP                              
053185,000308: 
053186,000309: 11,3021           77776        INT-ABRT           EXIT                                           
053187,000310: 11,3022           05644                           TC       POODOO                                
053188,000311: 11,3023           20430                           OCT      20430                                 
053189,000312: 

Page 1232

053191,000314:                                                                                                  #  THE OBLATE ROUTINE COMPUTES THE ACCELERATION DUE TO OBLATENESS. IT USES THE UNIT OF THE VEHICLE
053192,000315:                                                                                                  #  POSITION VECTOR FOUND IN ALPHAV AND THE DISTANCE TO THE CENTER IN ALPHAM. THIS IS ADDED TO THE SUM OF THE
053193,000316:                                                                                                  #  DISTURBING ACCELERATIONS IN FV AND THE PROPER DIFEQ STAGE IS CALLED VIA X1.
053194,000317: 11,3024           71354        OBLATE             LXA,2    DLOAD                                 
053195,000318: 11,3025           02030                                    PBODY                                 
053196,000319: 11,3026           02070                                    ALPHAM                                
053197,000320: 11,3027           44601                           SETPD    DSU*                                  
053198,000321: 11,3030           00001                                    0                                     
053199,000322: 11,3031           50003                                    RDE,2                                 
053200,000323: 11,3032           43044                           BPL      BOF                                   #  GET URPV
053201,000324: 11,3033           23262                                    NBRANCH                               
053202,000325: 11,3034           00343                                    MOONFLAG                              
053203,000326: 11,3035           23271                                    COSPHIE                               
053204,000327: 11,3036           65375                           VLOAD    PDDL                                  
053205,000328: 11,3037           02032                                    ALPHAV                                
053206,000329: 11,3040           01517                                    TET                                   
053207,000330: 11,3041           45125                           PDDL     CALL                                  
053208,000331: 11,3042           25756                                    3/5                                   
053209,000332: 11,3043           51644                                    R-TO-RP                               
053210,000333: 11,3044           24017                           STOVL    URPV                                  #  RP/R  B-1 IN PLANETARY COORDINATES
053211,000334: 11,3045           24001                                    ZUNIT                                 
053212,000335: 11,3046           45006                           PUSH     CALL                                  #  ZUNIT B-1 IN PLANETARY COORDL AT 00D
053213,000336: 11,3047           23277                                    MATRIX                                
053214,000337: 11,3050           77715                           PDVL                                           #  UZ    B-2 IN INERT COORD      AT 00D
053215,000338: 11,3051           24005                                    XUNIT                                 
053216,000339: 11,3052           45006                           PUSH     CALL                                  #  XUNIT B-1 IN PLANETARY COORD. AT 06D
053217,000340: 11,3053           23277                                    MATRIX                                
053218,000341: 11,3054           77772                           VSL1                                           
053219,000342: 11,3055           24041                           STOVL    32D                                   #  UX    B-1 IN INERT. COORD     AT 32D
053220,000343: 11,3056           77772                           VSL1                                           
053221,000344: 11,3057           14025        COMTERM            STODL    UZ                                    #  UZ  B-1 IN INERTIAL COORD        AT 20D
053222,000345: 11,3060           00023                                    COSPHI/2                              #   '      Z-COMPONENT OF URPV
053223,000346: 11,3061           65275                           DMPR     PDDL                                  #  P   B-6   ,  3COSPHI/64          AT 00D
053224,000347: 11,3062           25770                                    3/32                                  #   2
053225,000348: 11,3063           00023                                    COSPHI/2                              
053226,000349: 11,3064           57316                           DSQ      DMPR                                  
053227,000350: 11,3065           25772                                    15/16                                 #   '                       2
053228,000351: 11,3066           41425                           DSU      PUSH                                  #  P   B-5   ,(1/2)(15COSPHI -3)    AT 02D
053229,000352: 11,3067           25764                                    3/64                                  #   3
053230,000353: 11,3070           41275                           DMPR     DMP                                   
053231,000354: 11,3071           00023                                    COSPHI/2                              
053232,000355: 11,3072           23775                                    7/12                                  
053233,000356: 11,3073           65372                           SL1R     PDDL                                  
053234,000357: 11,3074           00001                                    0D                                    
053235,000358: 11,3075           44275                           DMPR     BDSU                                  
053236,000359: 11,3076           11254                                    2/3                                   #   '                     '    '
053237,000360: 11,3077           57206                           PUSH     DMPR                                  #  P   B-7,(1/3)(7COSPHI P  -4P )   AT 04D
053238,000361: 11,3100           00023                                    COSPHI/2                              #   4                     3    2
053239,000362: 11,3101           65275                           DMPR     PDDL                                  
053240,000363: 11,3102           25774                                    9/16                                  

Page 1233

053242,000365: 11,3103           00003                                    2D                                    #   '                      '    '
053243,000366: 11,3104           44275                           DMPR     BDSU                                  #  P   B-10,(1/4)(9COSPHI P  -5P )
053244,000367: 11,3105           11252                                    5/128                                 #   5                      4    3
053245,000368: 11,3106           56203                           DMP*     DDV                                   #                      '
053246,000369: 11,3107           51764                                    J4REQ/J3,2                            #      B- , (J RP/J R)P
053247,000370: 11,3110           02070                                    ALPHAM                                #             4    3   5
053248,000371: 11,3111           56615                           DAD      DMPR*                                 
053249,000372: 11,3112           00005                                    4D                                    #                2     2  '              '
053250,000373: 11,3113           51760                                    2J3RE/J2,2                            #      B  ,(2J RP /J2 R )P  +(2J RP/J2R)P
053251,000374: 11,3114           43271                           DDV      DAD                                   #             4           5     3        4
053252,000375: 11,3115           02070                                    ALPHAM                                #     -        2 '  2         '        '
053253,000376: 11,3116           00003                                    2D                                    #    (R/R)(J RP P /R + 2J RP P /  + J P )
053254,000377: 11,3117           77761                           VXSC                                           #           4    5       3    4  2   2 3
053255,000378: 11,3120           02032                                    ALPHAV                                #            4       2  '           -
053256,000379: 11,3121           14033                           STODL    TVEC                                  #      B-6,(SUM((J /R )P   (COSPHI))UR)
053257,000380: 11,3122           70403                           DMP*     SR1                                   #           I=2   I     I+1
053258,000381: 11,3123           51764                                    J4REQ/J3,2                            #                    '
053259,000382: 11,3124           43271                           DDV      DAD                                   #         (J RP/J R)P
053260,000383: 11,3125           02070                                    ALPHAM                                #           4    3   4
053261,000384: 11,3126           50473                           DMPR*    SR3                                   #              2    2  '              '
053262,000385: 11,3127           51760                                    2J3RE/J2,2                            #        (2J RP /J R )P  +(2J RP/J R)P
053263,000386: 11,3130           43271                           DDV      DAD                                   #           4     2    4     3    2   3
053264,000387: 11,3131           02070                                    ALPHAM                                
053265,000388: 11,3132           76561                           VXSC     VSL1                                  #            4   '        -
053266,000389: 11,3133           00025                                    UZ                                    #      B-6  SUM(P(COSPHI))UZ
053267,000390: 11,3134           77645                           BVSU                                           #           I=2  I
053268,000391: 11,3135           00033                                    TVEC                                  #    4              I-2   '          -
053269,000392: 11,3136           14033                           STODL    TVEC                                  #   SUM((MU J (RP/R)   )(P   (COSPHI)UR -
053270,000393: 11,3137           02070                                    ALPHAM                                #   I=2      I            I+2
053271,000394: 11,3140           63501                           NORM     DSQ                                   #               P (COSPHI)UZ))  B-6 AT 20D
053272,000395: 11,3141           00047                                    X1                                    #                I
053273,000396: 11,3142           60316                           DSQ      NORM                                  
053274,000397: 11,3143           00051                                    S1                                    #               4
053275,000398: 11,3144           54606                           PUSH     BDDV*                                 #  NORMALIZED  R                    AT 00D
053276,000399: 11,3145           51754                                    J2REQSQ,2                             
053277,000400: 11,3146           40161                           VXSC     BOV                                   
053278,000401: 11,3147           00033                                    TVEC                                  
053279,000402: 11,3150           23151                                    +1                                    #   B+38 FOR EARTH , B+42 FOR MOON
053280,000403: 11,3151           56070                           XAD,1    XAD,1                                 
053281,000404: 11,3152           00046                                    X1                                    
053282,000405: 11,3153           00046                                    X1                                    
053283,000406: 11,3154           53670                           XAD,1    VSL*                                  
053284,000407: 11,3155           00050                                    S1                                    
053285,000408: 11,3156           20153                                    0          -22D,1                     
053286,000409: 11,3157           40055                           VAD      BOV                                   
053287,000410: 11,3160           02062                                    FV                                    
053288,000411: 11,3161           22776                                    GOBAQUE                               
053289,000412: 11,3162           16062                           STODL    FV                                    #   B+16 FOR EARTH , B+20 FOR MOON
053290,000413: 11,3163           00017                                    URPV                                  #   B-1  X-COMPONENT OF POSITION  IN
053291,000414: 11,3164           41414                           BOF      PUSH                                  #             PLANETORY COORD.      AT 02D

Page 1234

053293,000416: 11,3165           00343                                    MOONFLAG                              
053294,000417: 11,3166           23262                                    NBRANCH                               #          2
053295,000418: 11,3167           65316                           DSQ      PDDL                                  #   B-2   X                         AT 04D
053296,000419: 11,3170           00021                                    URPV       +2                         #   B-1  Y-COMPONENT
053297,000420: 11,3171           45316                           DSQ      DSU                                   
053298,000421: 11,3172           74205                           DMP      VXSC                                  
053299,000422: 11,3173           27762                                    5/8                                   #           2  2 -
053300,000423: 11,3174           02032                                    ALPHAV                                #   B-6  5(Y -X )UR    2  2 -
053301,000424: 11,3175           65332                           VSL3     PDDL                                  #   B-3             5(Y -X )UR      AT 02D
053302,000425: 11,3176           53361                           VXSC     VAD                                   
053303,000426: 11,3177           00041                                    32D                                   #         2  2 -   2         -
053304,000427: 11,3200           47315                           PDVL     VXV                                   #     (5(Y.-X )UR/R ) +(2X/R)UX     AT 02D
053305,000428: 11,3201           00041                                    32D                                   #      B-1   UX
053306,000429: 11,3202           00025                                    UZ                                    #      B-2  -UY =(UX * UZ)
053307,000430: 11,3203           74372                           VSL1     VXSC                                  #      B-3   -(2Y/R)UY
053308,000431: 11,3204           00021                                    URPV       +2                         #              2  2 -   2        -
053309,000432: 11,3205           41455                           VAD      PUSH                                  #      B-3 (5(X -Y )UR/R )+(2X/R)UX -(
053310,000433: 11,3206           77745                           DLOAD                                          #               -
053311,000434: 11,3207           00023                                    COSPHI/2                              #          2Y/R)UY                  AT 02D
053312,000435: 11,3210           41516                           DSQ      PUSH                                  #      B-2 (Z.COMPONENT)            AT 08D
053313,000436: 11,3211           65205                           DMP      PDDL                                  #                   2
053314,000437: 11,3212           27762                                    5/8                                   #      B-5  5COSPHI/2               AT 08D
053315,000438: 11,3213           43302                           SR2      DAD                                   
053316,000439: 11,3214           00011                                    08D                                   
053317,000440: 11,3215           41221                           BDSU     DMP                                   #                       2
053318,000441: 11,3216           11044                                    D1/32                                 #      B-5  (1 - 7COSPHI )
053319,000442: 11,3217           00017                                    URPV                                  
053320,000443: 11,3220           74205                           DMP      VXSC                                  
053321,000444: 11,3221           27762                                    5/8                                   
053322,000445: 11,3222           02032                                    ALPHAV                                #                          2 -
053323,000446: 11,3223           65272                           VSL5     PDDL                                  #      B-5 (5X/R)(1-7COSPHI )UR     AT 08D
053324,000447: 11,3224           74225                           DSU      VXSC                                  
053325,000448: 11,3225           11044                                    D1/32                                 
053326,000449: 11,3226           00041                                    32D                                   
053327,000450: 11,3227           53372                           VSL1     VAD                                   #                          2 -           -
053328,000451: 11,3230           41325                           PDDL     DMP                                   #      B-5 (5X/R)(1-7COSPHI )UR +(5COSPHI
053329,000452: 11,3231           00017                                    URPV                                  #         -
053330,000453: 11,3232           00023                                    URPV       +4                         #      -1)UX                        AT 08D
053331,000454: 11,3233           74205                           DMP      VXSC                                  
053332,000455: 11,3234           27762                                    5/8                                   #      B-5   5X Y
053333,000456: 11,3235           00025                                    UZ                                    #              M M
053334,000457: 11,3236           53352                           VSL2     VAD                                   #                          2 -           2
053335,000458: 11,3237           60325                           PDDL     NORM                                  #      B-5 (5X/R)(1-7COSPHI )UR +(5COSPHI
053336,000459: 11,3240           02070                                    ALPHAM                                #         -          2 -
053337,000460: 11,3241           00050                                    X2                                    #      -1)UX +(10XZ/R )UZ           AT 08D
053338,000461: 11,3242           67206                           PUSH     SLOAD                                 
053339,000462: 11,3243           01351                                    E32C31RM                              
053340,000463: 11,3244           74271                           DDV      VXSC                                  
053341,000464: 11,3245           63257                           VSL*     PDVL                                  
053342,000465: 11,3246           57601                                    0          -3,2                       

Page 1235

053344,000467: 11,3247           67206                           PUSH     SLOAD                                 
053345,000468: 11,3250           01350                                    E3J22R2M                              
053346,000469: 11,3251           53361                           VXSC     VAD                                   
053347,000470: 11,3252           70257                           VSL*     V/SC                                  
053348,000471: 11,3253           20146                                    0          -27D,1                     #      B+16 OR B+20 (J   + C  )
053349,000472: 11,3254           40055                           VAD      BOV                                   #                     22    31
053350,000473: 11,3255           02062                                    FV                                    
053351,000474: 11,3256           22776                                    GOBAQUE                               
053352,000475: 11,3257           02062                           STORE    FV                                    
053353,000476: 11,3260           77754                           LXA,2                                          
053354,000477: 11,3261           02030                                    PBODY                                 
053355,000478: 11,3262           72135        NBRANCH            SLOAD    LXA,1                                 
053356,000479: 11,3263           01501                                    DIFEQCNT                              
053357,000480: 11,3264           00154                                    MPAC                                  
053358,000481: 11,3265           73205                           DMP      CGOTO                                 
053359,000482: 11,3266           27764                                    -1/12                                 
053360,000483: 11,3267           00155                                    MPAC                                  
053361,000484: 11,3270           23304                                    DIFEQTAB                              
053362,000485: 11,3271           77745        COSPHIE            DLOAD                                          
053363,000486: 11,3272           02036                                    ALPHAV     +4                         
053364,000487: 11,3273           24023                           STOVL    COSPHI/2                              
053365,000488: 11,3274           24001                                    ZUNIT                                 
053366,000489: 11,3275           77650                           GOTO                                           
053367,000490: 11,3276           23057                                    COMTERM                               
053368,000491: 11,3277           57435        MATRIX             VXV      VCOMP                                 
053369,000492: 11,3300           02013                                    504LM                                 #  ROUTINE TRANSLATES FROM PLANETARY
053370,000493: 11,3301           77655                           VAD                                            #  TO INERTIAL COORDINATES
053371,000494: 11,3302           43505                           VXM      RVQ                                   
053372,000495: 11,3303           00025                                    MMATRIX                               
053373,000496: 11,3304           23473        DIFEQTAB           CADR     DIFEQ+0                               
053374,000497: 11,3305           23477                           CADR     DIFEQ+1                               
053375,000498: 11,3306           23510                           CADR     DIFEQ+2                               
053376,000499: 11,3307           77214        TIMESTEP           BOF      VLOAD                                 
053377,000500: 11,3310           00342                                    MIDFLAG                               
053378,000501: 11,3311           23340                                    RECTEST                               
053379,000502: 11,3312           01535                                    RCV                                   
053380,000503: 11,3313           41241                           DOT      DMP                                   
053381,000504: 11,3314           01543                                    VCV                                   
053382,000505: 11,3315           02076                                    DT/2                                  #  (R.V) X (DELTA T)
053383,000506: 11,3316           77640                           BMN                                            
053384,000507: 11,3317           23340                                    RECTEST                               
053385,000508: 11,3320           43014                           BON      BOF                                   
053386,000509: 11,3321           00303                                    MOONFLAG                              
053387,000510: 11,3322           23415                                    LUNSPH                                
053388,000511: 11,3323           04340                                    RPQFLAG                               
053389,000512: 11,3324           23412                                    EARSPH                                
053390,000513: 11,3325           45145                           DLOAD    CALL                                  
053391,000514: 11,3326           01517                                    TET                                   
053392,000515: 11,3327           33646                                    LSPOS                                 #  RPQV IN MPAC
053393,000516: 11,3330           02104                           STORE    RPQV                                  #  RPQV

Page 1236

053395,000518: 11,3331           77754                           LXA,2                                          
053396,000519: 11,3332           02030                                    PBODY                                 
053397,000520: 11,3333           51445        INLUNCHK           BVSU     ABVAL                                 
053398,000521: 11,3334           01535                                    RCV                                   
053399,000522: 11,3335           50025                           DSU      BMN                                   
053400,000523: 11,3336           27770                                    RSPHERE                               
053401,000524: 11,3337           23432                                    DOSWITCH                              
053402,000525: 11,3340           51575        RECTEST            VLOAD    ABVAL                                 #  RECTIFY IF
053403,000526: 11,3341           01521                                    TDELTAV                               
053404,000527: 11,3342           77600                           BOV                                            
053405,000528: 11,3343           23366                                    CALLRECT                              
053406,000529: 11,3344           51025                           DSU      BPL                                   #      1) EITHER TDELTAV OR TNUV EQUALS OR
053407,000530: 11,3345           23773                                    3/4                                   #         EXCEEDS 3/4 IN MAGNITUDE
053408,000531: 11,3346           23366                                    CALLRECT                              
053409,000532: 11,3347           53615                           DAD      SL*                                   #                   OR
053410,000533: 11,3350           23773                                    3/4                                   
053411,000534: 11,3351           57605                                    0          -7,2                       #      2) ABVAL(TDELTAV) EQUALS OR EXCEEDS
053412,000535: 11,3352           45271                           DDV      DSU                                   #         .01(ABVAL(RCV))
053413,000536: 11,3353           00013                                    10D                                   
053414,000537: 11,3354           27766                                    RECRATIO                              
053415,000538: 11,3355           77244                           BPL      VLOAD                                 
053416,000539: 11,3356           23366                                    CALLRECT                              
053417,000540: 11,3357           01527                                    TNUV                                  
053418,000541: 11,3360           45246                           ABVAL    DSU                                   
053419,000542: 11,3361           23773                                    3/4                                   
053420,000543: 11,3362           77600                           BOV                                            
053421,000544: 11,3363           23366                                    CALLRECT                              
053422,000545: 11,3364           77640                           BMN                                            
053423,000546: 11,3365           23370                                    INTGRATE                              
053424,000547: 11,3366           77624        CALLRECT           CALL                                           
053425,000548: 11,3367           27720                                    RECTIFY                               
053426,000549: 11,3370           77775        INTGRATE           VLOAD                                          
053427,000550: 11,3371           01527                                    TNUV                                  
053428,000551: 11,3372           25134                           STOVL    ZV                                    
053429,000552: 11,3373           01521                                    TDELTAV                               
053430,000553: 11,3374           01126                           STORE    YV                                    
053431,000554: 11,3375           77614                           CLEAR                                          
053432,000555: 11,3376           00261                                    JSWITCH                               
053433,000556: 11,3377           66375        DIFEQ0             VLOAD    SSP                                   
053434,000557: 11,3400           01126                                    YV                                    
053435,000558: 11,3401           01501                                    DIFEQCNT                              
053436,000559: 11,3402           00000                                    0                                     
053437,000560: 11,3403           16032                           STODL    ALPHAV                                
053438,000561: 11,3404           24007                                    DPZERO                                
053439,000562: 11,3405           02100                           STORE    H                                     #  START H AT ZERO. GOES 0(DELT/2)DELT.
053440,000563: 11,3406           52014                           BON      GOTO                                  
053441,000564: 11,3407           00301                                    JSWITCH                               
053442,000565: 11,3410           23712                                    DOW..                                 
053443,000566: 11,3411           22523                                    ACCOMP                                
053444,000567: 11,3412           52175        EARSPH             VLOAD    GOTO                                  

Page 1237

053446,000569: 11,3413           02104                                    RPQV                                  
053447,000570: 11,3414           23333                                    INLUNCHK                              
053448,000571: 11,3415           60545        LUNSPH             DLOAD    SR2                                   
053449,000572: 11,3416           00013                                    10D                                   
053450,000573: 11,3417           50025                           DSU      BMN                                   
053451,000574: 11,3420           27770                                    RSPHERE                               
053452,000575: 11,3421           23340                                    RECTEST                               
053453,000576: 11,3422           71214                           BOF      DLOAD                                 
053454,000577: 11,3423           04340                                    RPQFLAG                               
053455,000578: 11,3424           23432                                    DOSWITCH                              
053456,000579: 11,3425           01517                                    TET                                   
053457,000580: 11,3426           77624                           CALL                                           
053458,000581: 11,3427           33646                                    LUNPOS                                
053459,000582: 11,3430           77676                           VCOMP                                          
053460,000583: 11,3431           02104                           STORE    RPQV                                  
053461,000584: 11,3432           77624        DOSWITCH           CALL                                           
053462,000585: 11,3433           23436                                    ORIGCHNG                              
053463,000586: 11,3434           77650                           GOTO                                           
053464,000587: 11,3435           23370                                    INTGRATE                              
053465,000588: 11,3436           45020        ORIGCHNG           STQ      CALL                                  
053466,000589: 11,3437           02111                                    ORIGEX                                
053467,000590: 11,3440           27720                                    RECTIFY                               
053468,000591: 11,3441           53775                           VLOAD    VSL*                                  
053469,000592: 11,3442           01535                                    RCV                                   
053470,000593: 11,3443           57576                                    0,2                                   
053471,000594: 11,3444           53651                           VSU      VSL*                                  
053472,000595: 11,3445           02104                                    RPQV                                  
053473,000596: 11,3446           57574                                    2,2                                   
053474,000597: 11,3447           01503                           STORE    RRECT                                 
053475,000598: 11,3450           01535                           STORE    RCV                                   
053476,000599: 11,3451           57414                           BOF      VCOMP                                 
053477,000600: 11,3452           00343                                    MOONFLAG                              
053478,000601: 11,3453           23454                                    +1                                    
053479,000602: 11,3454           53715                           PDVL     VSL*                                  
053480,000603: 11,3455           01543                                    VCV                                   
053481,000604: 11,3456           57576                                    0,2                                   
053482,000605: 11,3457           77651                           VSU                                            
053483,000606: 11,3460           77657                           VSL*                                           
053484,000607: 11,3461           57574                                    0          +2,2                       
053485,000608: 11,3462           01511                           STORE    VRECT                                 
053486,000609: 11,3463           01543                           STORE    VCV                                   
053487,000610: 11,3464           67154                           LXA,2    SXA,2                                 
053488,000611: 11,3465           02111                                    ORIGEX                                
053489,000612: 11,3466           00052                                    QPRET                                 
053490,000613: 11,3467           52014                           BON      GOTO                                  
053491,000614: 11,3470           00303                                    MOONFLAG                              
053492,000615: 11,3471           26747                                    CLRMOON                               
053493,000616: 11,3472           26754                                    SETMOON                               

Page 1238

053495,000618:                                                                                                  #  THE RECTIFY SUBROUTINE IS CALLED BY THE INTEGRATION PROGRAM AND OCCASIONALLY BY THE MEASUREMENT INCORPORATION
053496,000619:                                                                                                  #  ROUTINES TO ESTABLISH A NEW CONIC.
053497,000620: 
053498,000621: 13,3720                                           BANK     13                                    
053499,000622: 13,2000                                           SETLOC   ORBITAL2                              
053500,000623: 13,2000                                           BANK                                           
053501,000624: 
053502,000625: 13,3720           77354        RECTIFY            LXA,2    VLOAD                                 
053503,000626: 13,3721           02030                                    PBODY                                 
053504,000627: 13,3722           01521                                    TDELTAV                               
053505,000628: 13,3723           53257                           VSL*     VAD                                   
053506,000629: 13,3724           57605                                    0          -7,2                       
053507,000630: 13,3725           01535                                    RCV                                   
053508,000631: 13,3726           01503                           STORE    RRECT                                 
053509,000632: 13,3727           25535                           STOVL    RCV                                   
053510,000633: 13,3730           01527                                    TNUV                                  
053511,000634: 13,3731           53257                           VSL*     VAD                                   
053512,000635: 13,3732           57602                                    0          -4,2                       
053513,000636: 13,3733           01543                                    VCV                                   
053514,000637: 13,3734           01511        MINIRECT           STORE    VRECT                                 
053515,000638: 13,3735           25543                           STOVL    VCV                                   
053516,000639: 13,3736           24007                                    ZEROVEC                               
053517,000640: 13,3737           01521                           STORE    TDELTAV                               
053518,000641: 13,3740           15527                           STODL    TNUV                                  
053519,000642: 13,3741           24007                                    ZEROVEC                               
053520,000643: 13,3742           01551                           STORE    TC                                    
053521,000644: 13,3743           01553                           STORE    XKEP                                  
053522,000645: 13,3744           77616                           RVQ                                            
053523,000646: 11,3473                                           BANK     11                                    
053524,000647: 11,2000                                           SETLOC   ORBITAL                               
053525,000648: 11,2000                                           BANK                                           

Page 1239

053527,000650:                                                                                                  #  THE THREE DIFEQ ROUTINES - DIFEQ+0, DIFEQ+12, AND DIFEQ+24 - ARE ENTEREDTO PROCESS THE CONTRIBUTIONS AT THE
053528,000651:                                                                                                  #  BEGINNING, MIDDLE, AND END OF THE TIMESTEP, RESPECTIVELY. THE UPDATING IS DONE BY THE NYSTROM METHOD.
053529,000652: 11,3473           64575        DIFEQ+0            VLOAD    VSR3                                  
053530,000653: 11,3474           02062                                    FV                                    
053531,000654: 11,3475           36046                           STCALL   PHIV                                  
053532,000655: 11,3476           23653                                    DIFEQCOM                              
053533,000656: 11,3477           74575        DIFEQ+1            VLOAD    VSR1                                  
053534,000657: 11,3500           02062                                    FV                                    
053535,000658: 11,3501           53206                           PUSH     VAD                                   
053536,000659: 11,3502           02046                                    PHIV                                  
053537,000660: 11,3503           26054                           STOVL    PSIV                                  
053538,000661: 11,3504           53362                           VSR1     VAD                                   
053539,000662: 11,3505           02046                                    PHIV                                  
053540,000663: 11,3506           36046                           STCALL   PHIV                                  
053541,000664: 11,3507           23653                                    DIFEQCOM                              
053542,000665: 11,3510           57345        DIFEQ+2            DLOAD    DMPR                                  
053543,000666: 11,3511           02100                                    H                                     
053544,000667: 11,3512           11254                                    DP2/3                                 
053545,000668: 11,3513           74206                           PUSH     VXSC                                  
053546,000669: 11,3514           02046                                    PHIV                                  
053547,000670: 11,3515           53372                           VSL1     VAD                                   
053548,000671: 11,3516           01134                                    ZV                                    
053549,000672: 11,3517           53361                           VXSC     VAD                                   
053550,000673: 11,3520           02100                                    H                                     
053551,000674: 11,3521           01126                                    YV                                    
053552,000675: 11,3522           25126                           STOVL    YV                                    
053553,000676: 11,3523           02062                                    FV                                    
053554,000677: 11,3524           53322                           VSR3     VAD                                   
053555,000678: 11,3525           02054                                    PSIV                                  
053556,000679: 11,3526           76561                           VXSC     VSL1                                  
053557,000680: 11,3527           77655                           VAD                                            
053558,000681: 11,3530           01134                                    ZV                                    
053559,000682: 11,3531           01134                           STORE    ZV                                    
053560,000683: 11,3532           45014                           BOFF     CALL                                  
053561,000684: 11,3533           00341                                    JSWITCH                               
053562,000685: 11,3534           23604                                    ENDSTATE                              
053563,000686: 11,3535           51770                                    GRP2PC                                
053564,000687: 11,3536           77354                           LXA,2    VLOAD                                 
053565,000688: 11,3537           01116                                    COLREG                                
053566,000689: 11,3540           01134                                    ZV                                    
053567,000690: 11,3541           77732                           VSL3                                           #  ADJUST W-POSITION FOR STORAGE
053568,000691: 11,3542           12467                           STORE    W          +54D,2                     
053569,000692: 11,3543           77775                           VLOAD                                          
053570,000693: 11,3544           01126                                    YV                                    
053571,000694: 11,3545           40132                           VSL3     BOV                                   
053572,000695: 11,3546           23676                                    WMATEND                               
053573,000696: 11,3547           12401                           STORE    W,2                                   
053574,000697: 
053575,000698: 11,3550           77624                           CALL                                           
053576,000699: 11,3551           51770                                    GRP2PC                                

Page 1240

053578,000701: 11,3552           66354                           LXA,2    SSP                                   
053579,000702: 11,3553           01116                                    COLREG                                
053580,000703: 11,3554           00052                                    S2                                    
053581,000704: 11,3555           00000                                    0                                     
053582,000705: 11,3556           67114                           INCR,2   SXA,2                                 
053583,000706: 11,3557           00006                                    6                                     
053584,000707: 11,3560           01125                                    YV                                    
053585,000708: 11,3561           45104                           TIX,2    CALL                                  
053586,000709: 11,3562           23647                                    RELOADSV                              
053587,000710: 11,3563           51770                                    GRP2PC                                
053588,000711: 11,3564           67154                           LXA,2    SXA,2                                 
053589,000712: 11,3565           01125                                    YV                                    
053590,000713: 11,3566           01116                                    COLREG                                
053591,000714: 
053592,000715: 11,3567           77624        NEXTCOL            CALL                                           
053593,000716: 11,3570           51770                                    GRP2PC                                
053594,000717: 11,3571           76754                           LXA,2    VLOAD*                                
053595,000718: 11,3572           01116                                    COLREG                                
053596,000719: 11,3573           75376                                    W,2                                   
053597,000720: 11,3574           77722                           VSR3                                           #  ADJUST W-POSITION FOR INTEGRATION
053598,000721: 11,3575           01126                           STORE    YV                                    
053599,000722: 11,3576           76173                           VLOAD*   AXT,1                                 
053600,000723: 11,3577           75310                                    W          +54D,2                     
053601,000724: 11,3600           00000                                    0                                     
053602,000725: 11,3601           77722                           VSR3                                           #  ADJUST W-VELOCITY FOR INTEGRATION
053603,000726: 11,3602           35134                           STCALL   ZV                                    
053604,000727: 11,3603           23377                                    DIFEQ0                                
053605,000728: 
053606,000729: 11,3604           77200        ENDSTATE           BOV      VLOAD                                 
053607,000730: 11,3605           22776                                    GOBAQUE                               
053608,000731: 11,3606           01134                                    ZV                                    
053609,000732: 11,3607           25527                           STOVL    TNUV                                  
053610,000733: 11,3610           01126                                    YV                                    
053611,000734: 11,3611           01521                           STORE    TDELTAV                               
053612,000735: 11,3612           43014                           BON      BOFF                                  
053613,000736: 11,3613           04715                                    MIDAVFLG                              
053614,000737: 11,3614           27662                                    CKMID2                                #  CHECK FOR MID2 BEFORE GOING TO TIMEINC
053615,000738: 11,3615           01756                                    DIM0FLAG                              
053616,000739: 11,3616           27315                                    TESTLOOP                              
053617,000740: 11,3617           77776                           EXIT                                           
053618,000741: 11,3620           05355                           TC       PHASCHNG                              
053619,000742: 11,3621           04022                           OCT      04022                                 #  PHASE 1
053620,000743: 11,3622           05506                           TC       UPFLAG                                #  PHASE CHANGE HAS OCCURRED BETWEEN
053621,000744: 11,3623           00236                           ADRES    REINTFLG                              #  INTSTALL AND INTWAKE
053622,000745: 11,3624           06060                           TC       INTPRET                               
053623,000746: 11,3625           77731                           SSP                                            
053624,000747: 11,3626           00053                                    QPRET                                 
053625,000748: 11,3627           23634                                    AMOVED                                
053626,000749: 11,3630           52014                           BON      GOTO                                  
053627,000750: 11,3631           01714                                    VINTFLAG                              

Page 1241

053629,000752: 11,3632           26717                                    ATOPCSM                               
053630,000753: 11,3633           26772                                    ATOPLEM                               
053631,000754: 11,3634           66214        AMOVED             SET      SSP                                   
053632,000755: 11,3635           00061                                    JSWITCH                               
053633,000756: 11,3636           01117                                    COLREG                                
053634,000757: 11,3637           77741                           DEC      -30        B-14                       
053635,000758: 11,3640           66214                           BOFF     SSP                                   
053636,000759: 11,3641           01755                                    D6OR9FLG                              
053637,000760: 11,3642           23567                                    NEXTCOL                               
053638,000761: 11,3643           01117                                    COLREG                                
053639,000762: 11,3644           77717                           DEC      -48        B-14                       
053640,000763: 11,3645           77650                           GOTO                                           
053641,000764: 11,3646           23567                                    NEXTCOL                               
053642,000765: 
053643,000766: 
053644,000767: 11,3647           77745        RELOADSV           DLOAD                                          #  RELOAD TEMPORARY STATE VECTOR
053645,000768: 11,3650           01115                                    TDEC                                  #  FROM PERMANENT IN CASE OF
053646,000769: 11,3651           34041                           STCALL   TDEC1                                 
053647,000770: 11,3652           27177                                    INTEGRV2                              #  BY STARTING AT INTEGRV2.
053648,000771: 11,3653           43345        DIFEQCOM           DLOAD    DAD                                   #  INCREMENT H AND DIFEQCNT.
053649,000772: 11,3654           02076                                    DT/2                                  
053650,000773: 11,3655           02100                                    H                                     
053651,000774: 11,3656           66110                           INCR,1   SXA,1                                 
053652,000775: 11,3657           77763                           DEC      -12        B-14                       
053653,000776: 11,3660           01500                                    DIFEQCNT                              #  DIFEQCNT SET FOR NEXT ENTRY.
053654,000777: 11,3661           02100                           STORE    H                                     
053655,000778: 11,3662           74561                           VXSC     VSR1                                  
053656,000779: 11,3663           02062                                    FV                                    
053657,000780: 11,3664           74255                           VAD      VXSC                                  
053658,000781: 11,3665           01134                                    ZV                                    
053659,000782: 11,3666           02100                                    H                                     
053660,000783: 11,3667           77655                           VAD                                            
053661,000784: 11,3670           01126                                    YV                                    
053662,000785: 11,3671           02032                           STORE    ALPHAV                                
053663,000786: 11,3672           52014                           BON      GOTO                                  
053664,000787: 11,3673           00301                                    JSWITCH                               
053665,000788: 11,3674           23712                                    DOW..                                 
053666,000789: 11,3675           22503                                    FBR3                                  
053667,000790: 
053668,000791: 
053669,000792: 11,3676           43014        WMATEND            CLEAR    CLEAR                                 
053670,000793: 11,3677           01676                                    DIM0FLAG                              #  DONT INTEGRATE W THIS TIME
053671,000794: 11,3700           01671                                    ORBWFLAG                              #  INVALIDATE W
053672,000795: 11,3701           77614                           CLEAR                                          
053673,000796: 11,3702           02676                                    RENDWFLG                              
053674,000797: 11,3703           77414                           SET      EXIT                                  
053675,000798: 11,3704           01472                                    STATEFLG                              #  PICK UP STATE VECTOR UPDATE
053676,000799: 11,3705           05571                           TC       ALARM                                 
053677,000800: 11,3706           00421                           OCT      421                                   
053678,000801: 11,3707           06060                           TC       INTPRET                               

Page 1242

053680,000803: 11,3710           77650                           GOTO                                           
053681,000804: 11,3711           27315                                    TESTLOOP                              #  FINISH INTEGRATING STATE VECTOR
053682,000805: 

Page 1243

053684,000807:                                                                                                  #  ORBITAL ROUTINE FOR EXTRAPOLATION OF THE W MATRIX. IT COMPUTES THE SECOND DERIVATIVE OF EACH COLUMN POSITION
053685,000808:                                                                                                  #  VECTOR OF THE MATRIX AND CALLS THE NYSTROM INTEGRATION ROUTINES TO SOLVETHE DIFFERENTIAL EQUATIONS. THE PROGRAM
053686,000809:                                                                                                  #  USES A TABLE OF VEHICLE POSITION VECTORS COMPUTED DURING THE INTEGRATION OF THE VEHICLES POSITION AND VELOCITY.
053687,000810: 11,3712           70754        DOW..              LXA,2    DLOAD*                                
053688,000811: 11,3713           02030                                    PBODY                                 
053689,000812: 11,3714           51770                                    MUEARTH,2                             
053690,000813: 11,3715           36072                           STCALL   BETAM                                 
053691,000814: 11,3716           23740                                    DOW..1                                
053692,000815: 11,3717           02062                           STORE    FV                                    
053693,000816: 11,3720           62014                           BOF      INCR,1                                
053694,000817: 11,3721           00342                                    MIDFLAG                               
053695,000818: 11,3722           23262                                    NBRANCH                               
053696,000819: 11,3723           77771                           DEC      -6         B-14                       
053697,000820: 11,3724           70744                           LXC,2    DLOAD*                                
053698,000821: 11,3725           02030                                    PBODY                                 
053699,000822: 11,3726           51772                                    MUEARTH    -2,2                       
053700,000823: 11,3727           36072                           STCALL   BETAM                                 
053701,000824: 11,3730           23740                                    DOW..1                                
053702,000825: 11,3731           50414                           BON      VSR6                                  
053703,000826: 11,3732           00303                                    MOONFLAG                              
053704,000827: 11,3733           23734                                    +1                                    
053705,000828: 11,3734           77655                           VAD                                            
053706,000829: 11,3735           02062                                    FV                                    
053707,000830: 11,3736           36062                           STCALL   FV                                    
053708,000831: 11,3737           23262                                    NBRANCH                               
053709,000832: 11,3740           60575        DOW..1             VLOAD    VSR4                                  
053710,000833: 11,3741           02032                                    ALPHAV                                
053711,000834: 11,3742           53513                           PDVL*    UNIT                                  
053712,000835: 11,3743           02123                                    VECTAB,1                              
053713,000836: 11,3744           46315                           PDVL     VPROJ                                 
053714,000837: 11,3745           02032                                    ALPHAV                                
053715,000838: 11,3746           52361                           VXSC     VSU                                   
053716,000839: 11,3747           23773                                    3/4                                   
053717,000840: 11,3750           60325                           PDDL     NORM                                  
053718,000841: 11,3751           00045                                    36D                                   
053719,000842: 11,3752           00052                                    S2                                    
053720,000843: 11,3753           63406                           PUSH     DSQ                                   
053721,000844: 11,3754           77605                           DMP                                            
053722,000845: 11,3755           65301                           NORM     PDDL                                  
053723,000846: 11,3756           00043                                    34D                                   
053724,000847: 11,3757           02072                                    BETAM                                 
053725,000848: 11,3760           56342                           SR1      DDV                                   
053726,000849: 11,3761           77761                           VXSC                                           
053727,000850: 11,3762           57154                           LXA,2    XAD,2                                 
053728,000851: 11,3763           00051                                    S2                                    
053729,000852: 11,3764           00051                                    S2                                    
053730,000853: 11,3765           57074                           XAD,2    XAD,2                                 
053731,000854: 11,3766           00051                                    S2                                    
053732,000855: 11,3767           00042                                    34D                                   
053733,000856: 11,3770           43457                           VSL*     RVQ                                   

Page 1244

053735,000858: 11,3771           57606                                    0          -8D,2                      #  ****************************************
053736,000859: 12,2000                                           SETLOC   ORBITAL1                              
053737,000860: 12,2000                                           BANK                                           
053738,000861: 
053739,000862: 12,3755           04631 23146  3/5                2DEC     .6         B-2                        
053740,000863: 
053741,000864: 12,3757           14000 00000  THREE/8            2DEC     .375                                  
053742,000865: 
053743,000866: 12,3761           02314 31463  .3D                2DEC     .3         B-2                        
053744,000867: 
053745,000868: 12,3763           01400 00000  3/64               2DEC     3          B-6                        
053746,000869: 
053747,000870: 12,3765           10000 00000  DP1/4              2DEC     .25                                   
053748,000871: 
053749,000872: 12,3767  12,3765               DQUARTER           EQUALS   DP1/4                                 
053750,000873: 12,3767  12,3765               POS1/4             EQUALS   DP1/4                                 
053751,000874: 12,3767           03000 00000  3/32               2DEC     3          B-5                        
053752,000875: 
053753,000876: 12,3771           36000 00000  15/16              2DEC     15.        B-4                        
053754,000877: 
053755,000878: 05,3776                                           BANK     05                                    
053756,000879: 11,2000                                           SETLOC   ORBITAL                               
053757,000880: 11,2000                                           BANK                                           
053758,000881: 
053759,000882: 11,3772           30000 00000  3/4                2DEC     3.0        B-2                        
053760,000883: 
053761,000884: 11,3774           22525 12525  7/12               2DEC     .5833333333                            
053762,000885: 
053763,000886: 12,2000                                           SETLOC   ORBITAL1                              
053764,000887: 12,2000                                           BANK                                           
053765,000888: 
053766,000889: 12,3773           22000 00000  9/16               2DEC     9          B-4                        
053767,000890: 
053768,000891: 04,2000                                           SETLOC   ORBITAL3                              
053769,000892: 04,2000                                           BANK                                           
053770,000893: 
053771,000894: 04,3251           01200 00000  5/128              2DEC     5          B-7                        
053772,000895: 
053773,000896: 04,3253  12,2006               DPZERO             EQUALS   ZEROVEC                               
053774,000897: 04,3253           25252 25253  DP2/3              2DEC     .6666666667                            
053775,000898: 
053776,000899: 04,3255  04,3253               2/3                EQUALS   DP2/3                                 
053777,000900: 04,3255           00027        OCT27              OCT      27                                    
053778,000901: 13,3745                                           BANK     13                                    
053779,000902: 13,2000                                           SETLOC   ORBITAL2                              
053780,000903: 13,2000                                           BANK                                           
053781,000904:                                                                                                  #  IT IS VITAL THAT THE FOLLOWING CONSTANTS NOT BE SHUFFLED
053782,000905: 13,3745           77764                           DEC      -11        B-14                       
053783,000906: 13,3746           77775                           DEC      -2         B-14                       
053784,000907: 13,3747           77766                           DEC      -9         B-14                       

Page 1245

053786,000909: 13,3750           77771                           DEC      -6         B-14                       
053787,000910: 13,3751           77775                           DEC      -2         B-14                       
053788,000911: 13,3752           77775                           DEC      -2         B-14                       
053789,000912: 13,3753           00000                           DEC      0          B-14                       
053790,000913: 13,3754           77763                           DEC      -12        B-14                       
053791,000914: 13,3755           77766                           DEC      -9         B-14                       
053792,000915: 13,3756           77773                           DEC      -4         B-14                       
053793,000916: 13,3757           77770        ASCALE             DEC      -7         B-14                       
053794,000917: 13,3760           77771                           DEC      -6         B-14                       
053795,000918: 13,3761           24000 00000  5/8                2DEC     5          B-3                        
053796,000919: 
053797,000920: 13,3763           74631 63145  -1/12              2DEC     -.1                                   
053798,000921: 
053799,000922: 13,3765           00243 32703  RECRATIO           2DEC     .01                                   
053800,000923: 
053801,000924: 13,3767           03654 21000  RSPHERE            2DEC     64373.76   E3         B-29            
053802,000925: 
053803,000926: 13,3771           03654 21000  RDM                2DEC     16093.44   E3         B-27            
053804,000927: 
053805,000928: 13,3773           04627 25200  RDE                2DEC     80467.20   E3         B-29            
053806,000929: 
053807,000930: 13,3775                        RATT               EQUALS   00                                    
053808,000931: 13,3775                        VATT               EQUALS   6D                                    
053809,000932: 13,3775                        TAT                EQUALS   12D                                   
053810,000933: 13,3775                        RATT1              EQUALS   14D                                   
053811,000934: 13,3775                        VATT1              EQUALS   20D                                   
053812,000935: 13,3775                        MU(P)              EQUALS   26D                                   
053813,000936: 13,3775                        TDEC1              EQUALS   32D                                   
053814,000937: 13,3775                        URPV               EQUALS   14D                                   
053815,000938: 13,3775     0022               COSPHI/2           EQUALS   URPV       +4                         
053816,000939: 13,3775                        UZ                 EQUALS   20D                                   
053817,000940: 13,3775                        TVEC               EQUALS   26D                                   

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