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.

052895,000002:                                                                                                  ## Copyright:   Public domain.
052896,000003:                                                                                                  ## Filename:    ORBITAL_INTEGRATION.agc
052897,000004:                                                                                                  ## Purpose:     A section of Luminary revision 210.
052898,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
052899,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 15-17.
052900,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
052901,000008:                                                                                                  ##              that the code format has been changed to conform to the
052902,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
052903,000010:                                                                                                  ##              original YUL assembler.
052904,000011:                                                                                                  ## Reference:   pp. 1225-1245
052905,000012:                                                                                                  ## Assembler:   yaYUL
052906,000013:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
052907,000014:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
052908,000015:                                                                                                  ## Mod history: 2016-11-17 JL   Created from Luminary131 version.
052909,000016:                                                                                                  ##              2016-12-10 MAS  Updated for Luminary 210.
052910,000017:                                                                                                  ##              2016-12-26 RSB  Comment-text proofed using ProoferComments
052911,000018:                                                                                                  ##                              and corrected errors found.
052912,000019: 

Page 1225

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

Page 1226

052965,000072: 11,2457           20211                                    8D,1                                  
052966,000073: 11,2460           20201                                    0,1                                   #  S(-FS(1-2FS)-1/6...)(+17 OR +16)
052967,000074: 11,2461           65215                           DAD      PDDL                                  #                                 PL  6D
052968,000075: 11,2462           01553                                    XKEP                                  
052969,000076: 11,2463           53605                           DMP      SL*                                   #  S(+17 OR +16)
052970,000077: 11,2464           00001                                    0D                                    
052971,000078: 11,2465           20202                                    1,1                                   
052972,000079: 11,2466           43204                           BOVB     DAD                                   
052973,000080: 11,2467           57756                                    TCDANZIG                              
052974,000081: 11,2470           77626                           STADR                                          
052975,000082: 11,2471           75656                           STORE    XKEPNEW                               
052976,000083: 11,2472           74020                           STQ      AXC,1                                 
052977,000084: 11,2473           02111                                    KEPRTN                                
052978,000085: 11,2474           00012                           DEC      10         B-14                       
052979,000086: 11,2475           74014                           BON      AXC,1                                 
052980,000087: 11,2476           00303                                    MOONFLAG                              
052981,000088: 11,2477           24023                                    KEPLERN                               
052982,000089: 11,2500           00002                           DEC      2          B-14                       
052983,000090: 11,2501           77650                           GOTO                                           
052984,000091: 11,2502           24023                                    KEPLERN                               
052985,000092: 

Page 1227

052987,000094: 11,2503           66350        FBR3               LXA,1    SSP                                   
052988,000095: 11,2504           01500                                    DIFEQCNT                              
052989,000096: 11,2505           00051                                    S1                                    
052990,000097: 11,2506           77762                           DEC      -13        B-14                       
052991,000098: 11,2507           54345                           DLOAD    SR                                    
052992,000099: 11,2510           02076                                    DT/2                                  
052993,000100: 11,2511           20612                                    9D                                    
052994,000101: 11,2512           61500                           TIX,1    ROUND                                 
052995,000102: 11,2513           22514                                    +1                                    
052996,000103: 11,2514           43206                           PUSH     DAD                                   
052997,000104: 11,2515           01551                                    TC                                    
052998,000105: 11,2516           16074                           STODL    TAU.                                  
052999,000106: 11,2517           77615                           DAD                                            
053000,000107: 11,2520           01517                                    TET                                   
053001,000108: 11,2521           35517                           STCALL   TET                                   
053002,000109: 11,2522           22403                                    KEPPREP                               
053003,000110: 

Page 1228

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

Page 1229

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

Page 1230

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

Page 1231

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

Page 1232

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

Page 1233

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

Page 1234

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

Page 1235

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

Page 1236

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

Page 1237

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

Page 1238

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

Page 1239

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

Page 1240

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

Page 1241

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

Page 1242

053696,000803: 11,3710           77650                           GOTO                                           
053697,000804: 11,3711           27315                                    TESTLOOP                              #  FINISH INTEGRATING STATE VECTOR
053698,000805: 

Page 1243

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

Page 1244

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

Page 1245

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

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