Source Code

These source-code files were transcribed from a printout in Don Eyles's personal collection, scanned by archive.org, and financially sponsored by Linden Sims. A team of volunteers performed the transcription and proof-reading. The scanned page images are available at the Virtual AGC Project website, as well as higher-quality (but much larger) images at the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating "issues" at the Virtual AGC Project's GitHub Repository.

Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 56 OF AGC PROGRAM ZERLINA BY ZOROASTER
	9:12 OCT. 21,1970
Note that the date is the date of the printout, not the date of the program revision.

053272,000002:                                                                                                  ## Copyright:   Public domain.
053273,000003:                                                                                                  ## Filename:    ORBITAL_INTEGRATION.agc
053274,000004:                                                                                                  ## Purpose:     A log section of Zerlina 56, the final revision of
053275,000005:                                                                                                  ##              Don Eyles's offline development program for the variable 
053276,000006:                                                                                                  ##              guidance period servicer. It also includes a new P66 with LPD 
053277,000007:                                                                                                  ##              (Landing Point Designator) capability, based on an idea of John 
053278,000008:                                                                                                  ##              Young's. Neither of these advanced features were actually flown,
053279,000009:                                                                                                  ##              but Zerlina was also the birthplace of other big improvements to
053280,000010:                                                                                                  ##              Luminary including the terrain model and new (Luminary 1E)
053281,000011:                                                                                                  ##              analog display programs. Zerlina was branched off of Luminary 145,
053282,000012:                                                                                                  ##              and revision 56 includes all changes up to and including Luminary
053283,000013:                                                                                                  ##              183. It is therefore quite close to the Apollo 14 program,
053284,000014:                                                                                                  ##              Luminary 178, where not modified with new features.
053285,000015:                                                                                                  ## Reference:   pp. 1217-1237
053286,000016:                                                                                                  ## Assembler:   yaYUL
053287,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
053288,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
053289,000019:                                                                                                  ## Mod history: 2017-07-28 MAS  Created from Luminary 210.
053290,000020:                                                                                                  ##              2017-08-23 MAS  Updated for Zerlina 56.
053291,000021: 

Page 1217

053293,000023:                                                                                                  #           DELETE
053294,000024: 13,3671                                           BANK     13                                    
053295,000025: 11,2000                                           SETLOC   ORBITAL                               
053296,000026: 11,2000                                           BANK                                           
053297,000027: 11,2366                                           COUNT*   $$/ORBIT                              
053298,000028:                                                                                                  #           DELETE
053299,000029: 11,2366           40354        KEPPREP            LXA,2    SETPD                                 
053300,000030: 11,2367           02030                                    PBODY                                 
053301,000031: 11,2370           00001                                    0                                     
053302,000032: 11,2371           75543                           DLOAD*   SQRT                                  #  SQRT(MU) (+18 OR +15)  0D        PL  2D
053303,000033: 11,2372           51770                                    MUEARTH,2                             
053304,000034: 11,2373           53515                           PDVL     UNIT                                  #                                   PL  8D
053305,000035: 11,2374           01535                                    RCV                                   
053306,000036: 11,2375           60325                           PDDL     NORM                                  #  NORM R (+29 OR +27 - N1) 2D      PL  4D
053307,000037: 11,2376           00045                                    36D                                   
053308,000038: 11,2377           00047                                    X1                                    
053309,000039: 11,2400           77715                           PDVL                                           
053310,000040: 11,2401           65241                           DOT      PDDL                                  #  F*SQRT(MU)(+7 OR+5) 4D         PL  6D
053311,000041: 11,2402           01543                                    VCV                                   
053312,000042: 11,2403           02074                                    TAU.                                  #  (+28)
053313,000043: 11,2404           60225                           DSU      NORM                                  
053314,000044: 11,2405           01551                                    TC                                    
053315,000045: 11,2406           00051                                    S1                                    
053316,000046: 11,2407           77742                           SR1                                            
053317,000047: 11,2410           65271                           DDV      PDDL                                  
053318,000048: 11,2411           00003                                    2D                                    
053319,000049: 11,2412           41405                           DMP      PUSH                                  #  FS(+6 +N1-N2) 6D               PL   8D
053320,000050: 11,2413           00005                                    4D                                    
053321,000051: 11,2414           65316                           DSQ      PDDL                                  #  (FS)SQ(+12 +2(N1-N2)) 8D       PL  10D
053322,000052: 11,2415           00005                                    4D                                    
053323,000053: 11,2416           64716                           DSQ      PDDL*                                 #  SSQ/MU(-20R +2(N1-N2)) 10D       PL  12D
053324,000054: 11,2417           51770                                    MUEARTH,2                             
053325,000055: 11,2420           40442                           SR3      SR4                                   
053326,000056: 11,2421           47515                           PDVL     VSQ                                   #  PREALIGN MU (+43 OR +37) 12D   PL 14D
053327,000057: 11,2422           01543                                    VCV                                   
053328,000058: 11,2423           44205                           DMP      BDSU                                  #                                 PL 12D
053329,000059: 11,2424           00045                                    36D                                   
053330,000060: 11,2425           41271                           DDV      DMP                                   #                                 PL 10D
053331,000061: 11,2426           00003                                    2D                                    #  -(1/R-ALPHA)(+12 +3N1-2N2)
053332,000062: 11,2427           53605                           DMP      SL*                                   
053333,000063: 11,2430           11236                                    DP2/3                                 
053334,000064: 11,2431           20176                                    0          -3,1                       #  10L(1/R-ALPHA)(+13 +2(N1-N2))
053335,000065: 11,2432           43260                           XSU,1    DAD                                   #  2(FS)SQ - ETCETRA        PL 8D
053336,000066: 11,2433           00050                                    S1                                    #  X1 = N2-N1
053337,000067: 11,2434           45257                           SL*      DSU                                   #  -FS+2(FS)SQ ETC (+6 +N1-N2)    PL  6D
053338,000068: 11,2435           20211                                    8D,1                                  
053339,000069: 11,2436           41205                           DMP      DMP                                   
053340,000070: 11,2437           00001                                    0D                                    
053341,000071: 11,2440           00005                                    4D                                    
053342,000072: 11,2441           53657                           SL*      SL*                                   

Page 1218

053344,000074: 11,2442           20211                                    8D,1                                  
053345,000075: 11,2443           20201                                    0,1                                   #  S(-FS(1-2FS)-1/6...)(+17 OR +16)
053346,000076: 11,2444           65215                           DAD      PDDL                                  #                                 PL  6D
053347,000077: 11,2445           01553                                    XKEP                                  
053348,000078: 11,2446           53605                           DMP      SL*                                   #  S(+17 OR +16)
053349,000079: 11,2447           00001                                    0D                                    
053350,000080: 11,2450           20202                                    1,1                                   
053351,000081: 11,2451           43204                           BOVB     DAD                                   
053352,000082: 11,2452           57735                                    TCDANZIG                              
053353,000083: 11,2453           77626                           STADR                                          
053354,000084: 11,2454           75656                           STORE    XKEPNEW                               
053355,000085: 11,2455           74020                           STQ      AXC,1                                 
053356,000086: 11,2456           02111                                    KEPRTN                                
053357,000087: 11,2457           00012                           DEC      10         B-14                       
053358,000088: 11,2460           74014                           BON      AXC,1                                 
053359,000089: 11,2461           00303                                    MOONFLAG                              
053360,000090: 11,2462           24023                                    KEPLERN                               
053361,000091: 11,2463           00002                           DEC      2          B-14                       
053362,000092: 11,2464           77650                           GOTO                                           
053363,000093: 11,2465           24023                                    KEPLERN                               
053364,000094: 

Page 1219

053366,000096: 11,2466           66350        FBR3               LXA,1    SSP                                   
053367,000097: 11,2467           01500                                    DIFEQCNT                              
053368,000098: 11,2470           00051                                    S1                                    
053369,000099: 11,2471           77762                           DEC      -13        B-14                       
053370,000100: 11,2472           54345                           DLOAD    SR                                    
053371,000101: 11,2473           02076                                    DT/2                                  
053372,000102: 11,2474           20612                                    9D                                    
053373,000103: 11,2475           61500                           TIX,1    ROUND                                 
053374,000104: 11,2476           22477                                    +1                                    
053375,000105: 11,2477           43206                           PUSH     DAD                                   
053376,000106: 11,2500           01551                                    TC                                    
053377,000107: 11,2501           16074                           STODL    TAU.                                  
053378,000108: 11,2502           77615                           DAD                                            
053379,000109: 11,2503           01517                                    TET                                   
053380,000110: 11,2504           35517                           STCALL   TET                                   
053381,000111: 11,2505           22366                                    KEPPREP                               
053382,000112: 

Page 1220

053384,000114:                                                                                                  #  AGC ROUTINE TO COMPUTE ACCELERATION COMPONENTS.
053385,000115: 
053386,000116: 
053387,000117: 11,2506           73150        ACCOMP             LXA,1    LXA,2                                 
053388,000118: 11,2507           02030                                    PBODY                                 
053389,000119: 11,2510           02030                                    PBODY                                 
053390,000120: 11,2511           77775                           VLOAD                                          
053391,000121: 11,2512           24007                                    ZEROVEC                               
053392,000122: 11,2513           26062                           STOVL    FV                                    
053393,000123: 11,2514           02032                                    ALPHAV                                
053394,000124: 11,2515           53257                           VSL*     VAD                                   
053395,000125: 11,2516           57605                                    0          -7,2                       
053396,000126: 11,2517           01535                                    RCV                                   
053397,000127: 11,2520           02040                           STORE    BETAV                                 
053398,000128: 11,2521           65014                           BOF      XCHX,2                                
053399,000129: 11,2522           01756                                    DIM0FLAG                              
053400,000130: 11,2523           22530                                    +5                                    
053401,000131: 11,2524           01500                                    DIFEQCNT                              
053402,000132: 11,2525           12123                           STORE    VECTAB,2                              
053403,000133: 11,2526           77724                           XCHX,2                                         
053404,000134: 11,2527           01500                                    DIFEQCNT                              
053405,000135: 11,2530           53575                           VLOAD    UNIT                                  
053406,000136: 11,2531           02032                                    ALPHAV                                
053407,000137: 11,2532           16032                           STODL    ALPHAV                                
053408,000138: 11,2533           00045                                    36D                                   
053409,000139: 11,2534           36070                           STCALL   ALPHAM                                
053410,000140: 11,2535           22636                                    GAMCOMP                               
053411,000141: 11,2536           66175                           VLOAD    SXA,1                                 
053412,000142: 11,2537           02040                                    BETAV                                 
053413,000143: 11,2540           00051                                    S2                                    
053414,000144: 11,2541           16032                           STODL    ALPHAV                                
053415,000145: 11,2542           02072                                    BETAM                                 
053416,000146: 11,2543           02070                           STORE    ALPHAM                                
053417,000147: 11,2544           71214                           BOF      DLOAD                                 
053418,000148: 11,2545           00342                                    MIDFLAG                               
053419,000149: 11,2546           23007                                    OBLATE                                
053420,000150: 11,2547           01517                                    TET                                   
053421,000151: 11,2550           77624                           CALL                                           
053422,000152: 11,2551           33660                                    LSPOS                                 
053423,000153: 11,2552           72174                           AXT,2    LXA,1                                 
053424,000154: 11,2553           00002                                    2                                     
053425,000155: 11,2554           00051                                    S2                                    
053426,000156: 11,2555           77614                           BOF                                            
053427,000157: 11,2556           00343                                    MOONFLAG                              
053428,000158: 11,2557           22562                                    +3                                    
053429,000159: 11,2560           77076                           VCOMP    AXT,2                                 
053430,000160: 11,2561           00000                                    0                                     
053431,000161: 11,2562           02040                           STORE    BETAV                                 
053432,000162: 11,2563           26104                           STOVL    RPQV                                  
053433,000163: 11,2564           00003                                    2D                                    

Page 1221

053435,000165: 11,2565           02113                           STORE    RPSV                                  
053436,000166: 11,2566           45335                           SLOAD    DSU                                   
053437,000167: 11,2567           01011                                    MODREG                                
053438,000168: 11,2570           11240                                    OCT27                                 
053439,000169: 11,2571           43030                           BHIZ     BOF                                   
053440,000170: 11,2572           22575                                    +3                                    
053441,000171: 11,2573           01756                                    DIM0FLAG                              
053442,000172: 11,2574           22610                                    GETRPSV                               
053443,000173: 11,2575           74375                           VLOAD    VXSC                                  
053444,000174: 11,2576           02032                                    ALPHAV                                
053445,000175: 11,2577           02070                                    ALPHAM                                
053446,000176: 11,2600           52257                           VSR*     VSU                                   
053447,000177: 11,2601           57175                                    1,2                                   
053448,000178: 11,2602           02040                                    BETAV                                 
053449,000179: 11,2603           77724                           XCHX,2                                         
053450,000180: 11,2604           01500                                    DIFEQCNT                              
053451,000181: 11,2605           12131                           STORE    VECTAB     +6,2                       
053452,000182: 11,2606           77724                           XCHX,2                                         
053453,000183: 11,2607           01500                                    DIFEQCNT                              
053454,000184: 11,2610           62175        GETRPSV            VLOAD    INCR,1                                
053455,000185: 11,2611           02104                                    RPQV                                  
053456,000186: 11,2612           00004                                    4                                     
053457,000187: 11,2613           43014                           CLEAR    BOF                                   
053458,000188: 11,2614           04260                                    RPQFLAG                               
053459,000189: 11,2615           00343                                    MOONFLAG                              
053460,000190: 11,2616           22623                                    +5                                    
053461,000191: 11,2617           53261                           VSR      VAD                                   
053462,000192: 11,2620           20612                                    9D                                    
053463,000193: 11,2621           02113                                    RPSV                                  
053464,000194: 11,2622           02113                           STORE    RPSV                                  
053465,000195: 11,2623           77624                           CALL                                           
053466,000196: 11,2624           22636                                    GAMCOMP                               
053467,000197: 11,2625           62174                           AXT,2    INCR,1                                
053468,000198: 11,2626           00004                                    4                                     
053469,000199: 11,2627           00004                                    4                                     
053470,000200: 11,2630           77775                           VLOAD                                          
053471,000201: 11,2631           02113                                    RPSV                                  
053472,000202: 11,2632           36040                           STCALL   BETAV                                 
053473,000203: 11,2633           22636                                    GAMCOMP                               
053474,000204: 11,2634           77650                           GOTO                                           
053475,000205: 11,2635           23007                                    OBLATE                                
053476,000206: 11,2636           74575        GAMCOMP            VLOAD    VSR1                                  
053477,000207: 11,2637           02040                                    BETAV                                 
053478,000208: 11,2640           40236                           VSQ      SETPD                                 
053479,000209: 11,2641           00001                                    0                                     
053480,000210: 11,2642           61501                           NORM     ROUND                                 
053481,000211: 11,2643           00040                                    31D                                   
053482,000212: 11,2644           60325                           PDDL     NORM                                  #  NORMED B SQUARED TO PD LIST
053483,000213: 11,2645           02070                                    ALPHAM                                #  NORMALIZE (LESS ONE) LENGTH OF ALPHA
053484,000214: 11,2646           00041                                    32D                                   #  SAVING NORM SCALE FACTOR IN X1

Page 1222

053486,000216: 11,2647           63342                           SR1      PDVL                                  
053487,000217: 11,2650           02040                                    BETAV                                 #  C(PDL+2) = ALMOST NORMED ALPHA
053488,000218: 11,2651           77656                           UNIT                                           
053489,000219: 11,2652           16040                           STODL    BETAV                                 
053490,000220: 11,2653           00045                                    36D                                   
053491,000221: 11,2654           02072                           STORE    BETAM                                 
053492,000222: 11,2655           55301                           NORM     BDDV                                  #  FORM NORMALIZED QUOTIENT ALPHAM/BETAM
053493,000223: 11,2656           00042                                    33D                                   
053494,000224: 11,2657           41562                           SR1R     PUSH                                  #  C(PDL+2) = ALMOST NORMALIZED RHO.
053495,000225: 11,2660           77743                           DLOAD*                                         
053496,000226: 11,2661           27731                                    ASCALE,1                              
053497,000227: 11,2662           00051                           STORE    S1                                    
053498,000228: 11,2663           57124                           XCHX,2   XAD,2                                 
053499,000229: 11,2664           00050                                    S1                                    
053500,000230: 11,2665           00040                                    32D                                   
053501,000231: 11,2666           71264                           XSU,2    DLOAD                                 
053502,000232: 11,2667           00041                                    33D                                   
053503,000233: 11,2670           00003                                    2D                                    
053504,000234: 11,2671           65057                           SR*      XCHX,2                                
053505,000235: 11,2672           57177                                    0          -1,2                       
053506,000236: 11,2673           00050                                    S1                                    
053507,000237: 11,2674           74406                           PUSH     SR1R                                  #  RHO/4 TO 4D
053508,000238: 11,2675           50315                           PDVL     DOT                                   
053509,000239: 11,2676           02032                                    ALPHAV                                
053510,000240: 11,2677           02040                                    BETAV                                 
053511,000241: 11,2700           44372                           SL1R     BDSU                                  #  (RHO/4) - 2(ALPHAV/2.BETAV/2)
053512,000242: 11,2701           57206                           PUSH     DMPR                                  #  TO PDL+6
053513,000243: 11,2702           00005                                    4                                     
053514,000244: 11,2703           77752                           SL1                                            
053515,000245: 11,2704           43206                           PUSH     DAD                                   
053516,000246: 11,2705           25766                                    DQUARTER                              
053517,000247: 11,2706           75406                           PUSH     SQRT                                  
053518,000248: 11,2707           41475                           DMPR     PUSH                                  
053519,000249: 11,2710           00013                                    10D                                   
053520,000250: 11,2711           43352                           SL1      DAD                                   
053521,000251: 11,2712           25766                                    DQUARTER                              
053522,000252: 11,2713           43325                           PDDL     DAD                                   #  (1/4)+2((Q+1)/4)    TO PD+14D
053523,000253: 11,2714           00013                                    10D                                   
053524,000254: 11,2715           24005                                    HALFDP                                
053525,000255: 11,2716           72475                           DMPR     SL1                                   
053526,000256: 11,2717           00011                                    8D                                    
053527,000257: 11,2720           56215                           DAD      DDV                                   
053528,000258: 11,2721           25760                                    THREE/8                               
053529,000259: 11,2722           00017                                    14D                                   
053530,000260: 11,2723           74275                           DMPR     VXSC                                  
053531,000261: 11,2724           00007                                    6                                     
053532,000262: 11,2725           02040                                    BETAV                                 #                -
053533,000263: 11,2726           64515                           PDVL     VSR3                                  #  (G/2)(C(PD+4))B/2 TO PD+16D
053534,000264: 11,2727           02032                                    ALPHAV                                
053535,000265: 11,2730           41455                           VAD      PUSH                                  #  A12 + C(PD+16D) TO PD+16D

Page 1223

053537,000267: 11,2731           41345                           DLOAD    DMP                                   
053538,000268: 11,2732           00001                                    0                                     
053539,000269: 11,2733           00015                                    12D                                   #  -
053540,000270: 11,2734           61501                           NORM     ROUND                                 
053541,000271: 11,2735           00037                                    30D                                   
053542,000272: 11,2736           40665                           BDDV     DMP*                                  
053543,000273: 11,2737           00003                                    2                                     
053544,000274: 11,2740           51770                                    MUEARTH,2                             
053545,000275: 11,2741           74276                           DCOMP    VXSC                                  
053546,000276: 11,2742           57124                           XCHX,2   XAD,2                                 
053547,000277: 11,2743           00050                                    S1                                    
053548,000278: 11,2744           00051                                    S2                                    
053549,000279: 11,2745           55064                           XSU,2    XSU,2                                 
053550,000280: 11,2746           00036                                    30D                                   
053551,000281: 11,2747           00037                                    31D                                   
053552,000282: 11,2750           53604                           BOVB     VSR*                                  
053553,000283: 11,2751           57735                                    TCDANZIG                              
053554,000284: 11,2752           57177                                    0          -1,2                       
053555,000285: 11,2753           53324                           XCHX,2   VAD                                   
053556,000286: 11,2754           00050                                    S1                                    
053557,000287: 11,2755           02062                                    FV                                    
053558,000288: 11,2756           02062                           STORE    FV                                    
053559,000289: 11,2757           43400                           BOV      RVQ                                   #  RETURN IF NO OVERFLOW
053560,000290: 11,2760           22761                                    +1                                    
053561,000291: 11,2761           51575        GOBAQUE            VLOAD    ABVAL                                 
053562,000292: 11,2762           01521                                    TDELTAV                               
053563,000293: 11,2763           77654                           BZE                                            
053564,000294: 11,2764           23004                                    INT-ABRT                              
053565,000295: 11,2765           54345                           DLOAD    SR                                    
053566,000296: 11,2766           02100                                    H                                     
053567,000297: 11,2767           20612                                    9D                                    
053568,000298: 11,2770           44206                           PUSH     BDSU                                  
053569,000299: 11,2771           01551                                    TC                                    
053570,000300: 11,2772           16074                           STODL    TAU.                                  
053571,000301: 11,2773           01517                                    TET                                   
053572,000302: 11,2774           45425                           DSU      STADR                                 
053573,000303: 11,2775           42260                           STCALL   TET                                   
053574,000304: 11,2776           22366                                    KEPPREP                               
053575,000305: 11,2777           77624                           CALL                                           
053576,000306: 11,3000           27671                                    RECTIFY                               
053577,000307: 11,3001           77614                           SETGO                                          
053578,000308: 11,3002           04020                                    RPQFLAG                               
053579,000309: 11,3003           27256                                    TESTLOOP                              
053580,000310: 
053581,000311: 11,3004           77776        INT-ABRT           EXIT                                           
053582,000312: 11,3005           05653                           TC       POODOO                                
053583,000313: 11,3006           20430                           OCT      20430                                 
053584,000314: 

Page 1224

053586,000316:                                                                                                  #  THE OBLATE ROUTINE COMPUTES THE ACCELERATION DUE TO OBLATENESS. IT USES THE UNIT OF THE VEHICLE
053587,000317:                                                                                                  #  POSITION VECTOR FOUND IN ALPHAV AND THE DISTANCE TO THE CENTER IN ALPHAM. THIS IS ADDED TO THE SUM OF THE
053588,000318:                                                                                                  #  DISTURBING ACCELERATIONS IN FV AND THE PROPER DIFEQ STAGE IS CALLED VIA X1.
053589,000319: 11,3007           71354        OBLATE             LXA,2    DLOAD                                 
053590,000320: 11,3010           02030                                    PBODY                                 
053591,000321: 11,3011           02070                                    ALPHAM                                
053592,000322: 11,3012           44601                           SETPD    DSU*                                  
053593,000323: 11,3013           00001                                    0                                     
053594,000324: 11,3014           50032                                    RDE,2                                 
053595,000325: 11,3015           43044                           BPL      BOF                                   #  GET URPV
053596,000326: 11,3016           23245                                    NBRANCH                               
053597,000327: 11,3017           00343                                    MOONFLAG                              
053598,000328: 11,3020           23254                                    COSPHIE                               
053599,000329: 11,3021           65375                           VLOAD    PDDL                                  
053600,000330: 11,3022           02032                                    ALPHAV                                
053601,000331: 11,3023           01517                                    TET                                   
053602,000332: 11,3024           45125                           PDDL     CALL                                  
053603,000333: 11,3025           25756                                    3/5                                   
053604,000334: 11,3026           51644                                    R-TO-RP                               
053605,000335: 11,3027           24017                           STOVL    URPV                                  #  RP/R  B-1 IN PLANETARY COORDINATES
053606,000336: 11,3030           24001                                    ZUNIT                                 
053607,000337: 11,3031           45006                           PUSH     CALL                                  #  ZUNIT B-1 IN PLANETARY COORDL AT 00D
053608,000338: 11,3032           23262                                    MATRIX                                
053609,000339: 11,3033           77715                           PDVL                                           #  UZ    B-2 IN INERT COORD      AT 00D
053610,000340: 11,3034           24005                                    XUNIT                                 
053611,000341: 11,3035           45006                           PUSH     CALL                                  #  XUNIT B-1 IN PLANETARY COORD. AT 06D
053612,000342: 11,3036           23262                                    MATRIX                                
053613,000343: 11,3037           77772                           VSL1                                           
053614,000344: 11,3040           24041                           STOVL    32D                                   #  UX    B-1 IN INERT. COORD     AT 32D
053615,000345: 11,3041           77772                           VSL1                                           
053616,000346: 11,3042           14025        COMTERM            STODL    UZ                                    #  UZ  B-1 IN INERTIAL COORD        AT 20D
053617,000347: 11,3043           00023                                    COSPHI/2                              #   '      Z-COMPONENT OF URPV
053618,000348: 11,3044           65275                           DMPR     PDDL                                  #  P   B-6   ,  3COSPHI/64          AT 00D
053619,000349: 11,3045           25770                                    3/32                                  #   2
053620,000350: 11,3046           00023                                    COSPHI/2                              
053621,000351: 11,3047           57316                           DSQ      DMPR                                  
053622,000352: 11,3050           25772                                    15/16                                 #   '                       2
053623,000353: 11,3051           41425                           DSU      PUSH                                  #  P   B-5   ,(1/2)(15COSPHI -3)    AT 02D
053624,000354: 11,3052           25764                                    3/64                                  #   3
053625,000355: 11,3053           41275                           DMPR     DMP                                   
053626,000356: 11,3054           00023                                    COSPHI/2                              
053627,000357: 11,3055           11230                                    7/12                                  
053628,000358: 11,3056           65372                           SL1R     PDDL                                  
053629,000359: 11,3057           00001                                    0D                                    
053630,000360: 11,3060           44275                           DMPR     BDSU                                  
053631,000361: 11,3061           11236                                    2/3                                   #   '                     '    '
053632,000362: 11,3062           57206                           PUSH     DMPR                                  #  P   B-7,(1/3)(7COSPHI P  -4P )   AT 04D
053633,000363: 11,3063           00023                                    COSPHI/2                              #   4                     3    2
053634,000364: 11,3064           65275                           DMPR     PDDL                                  
053635,000365: 11,3065           11232                                    9/16                                  

Page 1225

053637,000367: 11,3066           00003                                    2D                                    #   '                      '    '
053638,000368: 11,3067           44275                           DMPR     BDSU                                  #  P   B-10,(1/4)(9COSPHI P  -5P )
053639,000369: 11,3070           11234                                    5/128                                 #   5                      4    3
053640,000370: 11,3071           56203                           DMP*     DDV                                   #                      '
053641,000371: 11,3072           51764                                    J4REQ/J3,2                            #      B- , (J RP/J R)P
053642,000372: 11,3073           02070                                    ALPHAM                                #             4    3   5
053643,000373: 11,3074           56615                           DAD      DMPR*                                 
053644,000374: 11,3075           00005                                    4D                                    #                2     2  '              '
053645,000375: 11,3076           51760                                    2J3RE/J2,2                            #      B  ,(2J RP /J2 R )P  +(2J RP/J2R)P
053646,000376: 11,3077           43271                           DDV      DAD                                   #             4           5     3        4
053647,000377: 11,3100           02070                                    ALPHAM                                #     -        2 '  2         '        '
053648,000378: 11,3101           00003                                    2D                                    #    (R/R)(J RP P /R + 2J RP P /  + J P )
053649,000379: 11,3102           77761                           VXSC                                           #           4    5       3    4  2   2 3
053650,000380: 11,3103           02032                                    ALPHAV                                #            4       2  '           -
053651,000381: 11,3104           14033                           STODL    TVEC                                  #      B-6,(SUM((J /R )P   (COSPHI))UR)
053652,000382: 11,3105           70403                           DMP*     SR1                                   #           I=2   I     I+1
053653,000383: 11,3106           51764                                    J4REQ/J3,2                            #                    '
053654,000384: 11,3107           43271                           DDV      DAD                                   #         (J RP/J R)P
053655,000385: 11,3110           02070                                    ALPHAM                                #           4    3   4
053656,000386: 11,3111           50473                           DMPR*    SR3                                   #              2    2  '              '
053657,000387: 11,3112           51760                                    2J3RE/J2,2                            #        (2J RP /J R )P  +(2J RP/J R)P
053658,000388: 11,3113           43271                           DDV      DAD                                   #           4     2    4     3    2   3
053659,000389: 11,3114           02070                                    ALPHAM                                
053660,000390: 11,3115           76561                           VXSC     VSL1                                  #            4   '        -
053661,000391: 11,3116           00025                                    UZ                                    #      B-6  SUM(P(COSPHI))UZ
053662,000392: 11,3117           77645                           BVSU                                           #           I=2  I
053663,000393: 11,3120           00033                                    TVEC                                  #    4              I-2   '          -
053664,000394: 11,3121           14033                           STODL    TVEC                                  #   SUM((MU J (RP/R)   )(P   (COSPHI)UR -
053665,000395: 11,3122           02070                                    ALPHAM                                #   I=2      I            I+2
053666,000396: 11,3123           63501                           NORM     DSQ                                   #               P (COSPHI)UZ))  B-6 AT 20D
053667,000397: 11,3124           00047                                    X1                                    #                I
053668,000398: 11,3125           60316                           DSQ      NORM                                  
053669,000399: 11,3126           00051                                    S1                                    #               4
053670,000400: 11,3127           54606                           PUSH     BDDV*                                 #  NORMALIZED  R                    AT 00D
053671,000401: 11,3130           51754                                    J2REQSQ,2                             
053672,000402: 11,3131           40161                           VXSC     BOV                                   
053673,000403: 11,3132           00033                                    TVEC                                  
053674,000404: 11,3133           23134                                    +1                                    #   B+38 FOR EARTH , B+42 FOR MOON
053675,000405: 11,3134           56070                           XAD,1    XAD,1                                 
053676,000406: 11,3135           00046                                    X1                                    
053677,000407: 11,3136           00046                                    X1                                    
053678,000408: 11,3137           53670                           XAD,1    VSL*                                  
053679,000409: 11,3140           00050                                    S1                                    
053680,000410: 11,3141           20153                                    0          -22D,1                     
053681,000411: 11,3142           40055                           VAD      BOV                                   
053682,000412: 11,3143           02062                                    FV                                    
053683,000413: 11,3144           22761                                    GOBAQUE                               
053684,000414: 11,3145           16062                           STODL    FV                                    #   B+16 FOR EARTH , B+20 FOR MOON
053685,000415: 11,3146           00017                                    URPV                                  #   B-1  X-COMPONENT OF POSITION  IN
053686,000416: 11,3147           41414                           BOF      PUSH                                  #             PLANETORY COORD.      AT 02D

Page 1226

053688,000418: 11,3150           00343                                    MOONFLAG                              
053689,000419: 11,3151           23245                                    NBRANCH                               #          2
053690,000420: 11,3152           65316                           DSQ      PDDL                                  #   B-2   X                         AT 04D
053691,000421: 11,3153           00021                                    URPV       +2                         #   B-1  Y-COMPONENT
053692,000422: 11,3154           45316                           DSQ      DSU                                   
053693,000423: 11,3155           74205                           DMP      VXSC                                  
053694,000424: 11,3156           27733                                    5/8                                   #           2  2 -
053695,000425: 11,3157           02032                                    ALPHAV                                #   B-6  5(Y -X )UR    2  2 -
053696,000426: 11,3160           65332                           VSL3     PDDL                                  #   B-3             5(Y -X )UR      AT 02D
053697,000427: 11,3161           53361                           VXSC     VAD                                   
053698,000428: 11,3162           00041                                    32D                                   #         2  2 -   2         -
053699,000429: 11,3163           47315                           PDVL     VXV                                   #     (5(Y.-X )UR/R ) +(2X/R)UX     AT 02D
053700,000430: 11,3164           00041                                    32D                                   #      B-1   UX
053701,000431: 11,3165           00025                                    UZ                                    #      B-2  -UY =(UX * UZ)
053702,000432: 11,3166           74372                           VSL1     VXSC                                  #      B-3   -(2Y/R)UY
053703,000433: 11,3167           00021                                    URPV       +2                         #              2  2 -   2        -
053704,000434: 11,3170           41455                           VAD      PUSH                                  #      B-3 (5(X -Y )UR/R )+(2X/R)UX -(
053705,000435: 11,3171           77745                           DLOAD                                          #               -
053706,000436: 11,3172           00023                                    COSPHI/2                              #          2Y/R)UY                  AT 02D
053707,000437: 11,3173           41516                           DSQ      PUSH                                  #      B-2 (Z.COMPONENT)            AT 08D
053708,000438: 11,3174           65205                           DMP      PDDL                                  #                   2
053709,000439: 11,3175           27733                                    5/8                                   #      B-5  5COSPHI/2               AT 08D
053710,000440: 11,3176           43302                           SR2      DAD                                   
053711,000441: 11,3177           00011                                    08D                                   
053712,000442: 11,3200           41221                           BDSU     DMP                                   #                       2
053713,000443: 11,3201           11015                                    D1/32                                 #      B-5  (1 - 7COSPHI )
053714,000444: 11,3202           00017                                    URPV                                  
053715,000445: 11,3203           74205                           DMP      VXSC                                  
053716,000446: 11,3204           27733                                    5/8                                   
053717,000447: 11,3205           02032                                    ALPHAV                                #                          2 -
053718,000448: 11,3206           65272                           VSL5     PDDL                                  #      B-5 (5X/R)(1-7COSPHI )UR     AT 08D
053719,000449: 11,3207           74225                           DSU      VXSC                                  
053720,000450: 11,3210           11015                                    D1/32                                 
053721,000451: 11,3211           00041                                    32D                                   
053722,000452: 11,3212           53372                           VSL1     VAD                                   #                          2 -           -
053723,000453: 11,3213           41325                           PDDL     DMP                                   #      B-5 (5X/R)(1-7COSPHI )UR +(5COSPHI
053724,000454: 11,3214           00017                                    URPV                                  #         -
053725,000455: 11,3215           00023                                    URPV       +4                         #      -1)UX                        AT 08D
053726,000456: 11,3216           74205                           DMP      VXSC                                  
053727,000457: 11,3217           27733                                    5/8                                   #      B-5   5X Y
053728,000458: 11,3220           00025                                    UZ                                    #              M M
053729,000459: 11,3221           53352                           VSL2     VAD                                   #                          2 -           2
053730,000460: 11,3222           60325                           PDDL     NORM                                  #      B-5 (5X/R)(1-7COSPHI )UR +(5COSPHI
053731,000461: 11,3223           02070                                    ALPHAM                                #         -          2 -
053732,000462: 11,3224           00050                                    X2                                    #      -1)UX +(10XZ/R )UZ           AT 08D
053733,000463: 11,3225           67206                           PUSH     SLOAD                                 
053734,000464: 11,3226           01351                                    E32C31RM                              
053735,000465: 11,3227           74271                           DDV      VXSC                                  
053736,000466: 11,3230           63257                           VSL*     PDVL                                  
053737,000467: 11,3231           57601                                    0          -3,2                       

Page 1227

053739,000469: 11,3232           67206                           PUSH     SLOAD                                 
053740,000470: 11,3233           01350                                    E3J22R2M                              
053741,000471: 11,3234           53361                           VXSC     VAD                                   
053742,000472: 11,3235           70257                           VSL*     V/SC                                  
053743,000473: 11,3236           20146                                    0          -27D,1                     #      B+16 OR B+20 (J   + C  )
053744,000474: 11,3237           40055                           VAD      BOV                                   #                     22    31
053745,000475: 11,3240           02062                                    FV                                    
053746,000476: 11,3241           22761                                    GOBAQUE                               
053747,000477: 11,3242           02062                           STORE    FV                                    
053748,000478: 11,3243           77754                           LXA,2                                          
053749,000479: 11,3244           02030                                    PBODY                                 
053750,000480: 11,3245           72135        NBRANCH            SLOAD    LXA,1                                 
053751,000481: 11,3246           01501                                    DIFEQCNT                              
053752,000482: 11,3247           00154                                    MPAC                                  
053753,000483: 11,3250           73205                           DMP      CGOTO                                 
053754,000484: 11,3251           27735                                    -1/12                                 
053755,000485: 11,3252           00155                                    MPAC                                  
053756,000486: 11,3253           23267                                    DIFEQTAB                              
053757,000487: 11,3254           77745        COSPHIE            DLOAD                                          
053758,000488: 11,3255           02036                                    ALPHAV     +4                         
053759,000489: 11,3256           24023                           STOVL    COSPHI/2                              
053760,000490: 11,3257           24001                                    ZUNIT                                 
053761,000491: 11,3260           77650                           GOTO                                           
053762,000492: 11,3261           23042                                    COMTERM                               
053763,000493: 11,3262           57435        MATRIX             VXV      VCOMP                                 
053764,000494: 11,3263           02013                                    504LM                                 #  ROUTINE TRANSLATES FROM PLANETARY
053765,000495: 11,3264           77655                           VAD                                            #  TO INERTIAL COORDINATES
053766,000496: 11,3265           43505                           VXM      RVQ                                   
053767,000497: 11,3266           00025                                    MMATRIX                               
053768,000498: 11,3267           23456        DIFEQTAB           CADR     DIFEQ+0                               
053769,000499: 11,3270           23462                           CADR     DIFEQ+1                               
053770,000500: 11,3271           23473                           CADR     DIFEQ+2                               
053771,000501: 11,3272           77214        TIMESTEP           BOF      VLOAD                                 
053772,000502: 11,3273           00342                                    MIDFLAG                               
053773,000503: 11,3274           23323                                    RECTEST                               
053774,000504: 11,3275           01535                                    RCV                                   
053775,000505: 11,3276           41241                           DOT      DMP                                   
053776,000506: 11,3277           01543                                    VCV                                   
053777,000507: 11,3300           02076                                    DT/2                                  #  (R.V) X (DELTA T)
053778,000508: 11,3301           77640                           BMN                                            
053779,000509: 11,3302           23323                                    RECTEST                               
053780,000510: 11,3303           43014                           BON      BOF                                   
053781,000511: 11,3304           00303                                    MOONFLAG                              
053782,000512: 11,3305           23400                                    LUNSPH                                
053783,000513: 11,3306           04340                                    RPQFLAG                               
053784,000514: 11,3307           23375                                    EARSPH                                
053785,000515: 11,3310           45145                           DLOAD    CALL                                  
053786,000516: 11,3311           01517                                    TET                                   
053787,000517: 11,3312           33660                                    LSPOS                                 #  RPQV IN MPAC
053788,000518: 11,3313           02104                           STORE    RPQV                                  #  RPQV

Page 1228

053790,000520: 11,3314           77754                           LXA,2                                          
053791,000521: 11,3315           02030                                    PBODY                                 
053792,000522: 11,3316           51445        INLUNCHK           BVSU     ABVAL                                 
053793,000523: 11,3317           01535                                    RCV                                   
053794,000524: 11,3320           50025                           DSU      BMN                                   
053795,000525: 11,3321           27741                                    RSPHERE                               
053796,000526: 11,3322           23415                                    DOSWITCH                              
053797,000527: 11,3323           51575        RECTEST            VLOAD    ABVAL                                 #  RECTIFY IF
053798,000528: 11,3324           01521                                    TDELTAV                               
053799,000529: 11,3325           77600                           BOV                                            
053800,000530: 11,3326           23351                                    CALLRECT                              
053801,000531: 11,3327           51025                           DSU      BPL                                   #      1) EITHER TDELTAV OR TNUV EQUALS OR
053802,000532: 11,3330           11226                                    3/4                                   #         EXCEEDS 3/4 IN MAGNITUDE
053803,000533: 11,3331           23351                                    CALLRECT                              
053804,000534: 11,3332           53615                           DAD      SL*                                   #                   OR
053805,000535: 11,3333           11226                                    3/4                                   
053806,000536: 11,3334           57605                                    0          -7,2                       #      2) ABVAL(TDELTAV) EQUALS OR EXCEEDS
053807,000537: 11,3335           45271                           DDV      DSU                                   #         .01(ABVAL(RCV))
053808,000538: 11,3336           00013                                    10D                                   
053809,000539: 11,3337           27737                                    RECRATIO                              
053810,000540: 11,3340           77244                           BPL      VLOAD                                 
053811,000541: 11,3341           23351                                    CALLRECT                              
053812,000542: 11,3342           01527                                    TNUV                                  
053813,000543: 11,3343           45246                           ABVAL    DSU                                   
053814,000544: 11,3344           11226                                    3/4                                   
053815,000545: 11,3345           77600                           BOV                                            
053816,000546: 11,3346           23351                                    CALLRECT                              
053817,000547: 11,3347           77640                           BMN                                            
053818,000548: 11,3350           23353                                    INTGRATE                              
053819,000549: 11,3351           77624        CALLRECT           CALL                                           
053820,000550: 11,3352           27671                                    RECTIFY                               
053821,000551: 11,3353           77775        INTGRATE           VLOAD                                          
053822,000552: 11,3354           01527                                    TNUV                                  
053823,000553: 11,3355           25134                           STOVL    ZV                                    
053824,000554: 11,3356           01521                                    TDELTAV                               
053825,000555: 11,3357           01126                           STORE    YV                                    
053826,000556: 11,3360           77614                           CLEAR                                          
053827,000557: 11,3361           00261                                    JSWITCH                               
053828,000558: 11,3362           66375        DIFEQ0             VLOAD    SSP                                   
053829,000559: 11,3363           01126                                    YV                                    
053830,000560: 11,3364           01501                                    DIFEQCNT                              
053831,000561: 11,3365           00000                                    0                                     
053832,000562: 11,3366           16032                           STODL    ALPHAV                                
053833,000563: 11,3367           24007                                    DPZERO                                
053834,000564: 11,3370           02100                           STORE    H                                     #  START H AT ZERO. GOES 0(DELT/2)DELT.
053835,000565: 11,3371           52014                           BON      GOTO                                  
053836,000566: 11,3372           00301                                    JSWITCH                               
053837,000567: 11,3373           23675                                    DOW..                                 
053838,000568: 11,3374           22506                                    ACCOMP                                
053839,000569: 11,3375           52175        EARSPH             VLOAD    GOTO                                  

Page 1229

053841,000571: 11,3376           02104                                    RPQV                                  
053842,000572: 11,3377           23316                                    INLUNCHK                              
053843,000573: 11,3400           60545        LUNSPH             DLOAD    SR2                                   
053844,000574: 11,3401           00013                                    10D                                   
053845,000575: 11,3402           50025                           DSU      BMN                                   
053846,000576: 11,3403           27741                                    RSPHERE                               
053847,000577: 11,3404           23323                                    RECTEST                               
053848,000578: 11,3405           71214                           BOF      DLOAD                                 
053849,000579: 11,3406           04340                                    RPQFLAG                               
053850,000580: 11,3407           23415                                    DOSWITCH                              
053851,000581: 11,3410           01517                                    TET                                   
053852,000582: 11,3411           77624                           CALL                                           
053853,000583: 11,3412           33660                                    LUNPOS                                
053854,000584: 11,3413           77676                           VCOMP                                          
053855,000585: 11,3414           02104                           STORE    RPQV                                  
053856,000586: 11,3415           77624        DOSWITCH           CALL                                           
053857,000587: 11,3416           23421                                    ORIGCHNG                              
053858,000588: 11,3417           77650                           GOTO                                           
053859,000589: 11,3420           23353                                    INTGRATE                              
053860,000590: 11,3421           45020        ORIGCHNG           STQ      CALL                                  
053861,000591: 11,3422           02111                                    ORIGEX                                
053862,000592: 11,3423           27671                                    RECTIFY                               
053863,000593: 11,3424           53775                           VLOAD    VSL*                                  
053864,000594: 11,3425           01535                                    RCV                                   
053865,000595: 11,3426           57576                                    0,2                                   
053866,000596: 11,3427           53651                           VSU      VSL*                                  
053867,000597: 11,3430           02104                                    RPQV                                  
053868,000598: 11,3431           57574                                    2,2                                   
053869,000599: 11,3432           01503                           STORE    RRECT                                 
053870,000600: 11,3433           01535                           STORE    RCV                                   
053871,000601: 11,3434           57414                           BOF      VCOMP                                 
053872,000602: 11,3435           00343                                    MOONFLAG                              
053873,000603: 11,3436           23437                                    +1                                    
053874,000604: 11,3437           53715                           PDVL     VSL*                                  
053875,000605: 11,3440           01543                                    VCV                                   
053876,000606: 11,3441           57576                                    0,2                                   
053877,000607: 11,3442           77651                           VSU                                            
053878,000608: 11,3443           77657                           VSL*                                           
053879,000609: 11,3444           57574                                    0          +2,2                       
053880,000610: 11,3445           01511                           STORE    VRECT                                 
053881,000611: 11,3446           01543                           STORE    VCV                                   
053882,000612: 11,3447           67154                           LXA,2    SXA,2                                 
053883,000613: 11,3450           02111                                    ORIGEX                                
053884,000614: 11,3451           00052                                    QPRET                                 
053885,000615: 11,3452           52014                           BON      GOTO                                  
053886,000616: 11,3453           00303                                    MOONFLAG                              
053887,000617: 11,3454           26710                                    CLRMOON                               
053888,000618: 11,3455           26715                                    SETMOON                               

Page 1230

053890,000620:                                                                                                  #  THE RECTIFY SUBROUTINE IS CALLED BY THE INTEGRATION PROGRAM AND OCCASIONALLY BY THE MEASUREMENT INCORPORATION
053891,000621:                                                                                                  #  ROUTINES TO ESTABLISH A NEW CONIC.
053892,000622: 
053893,000623: 13,3671                                           BANK     13                                    
053894,000624: 13,2000                                           SETLOC   ORBITAL2                              
053895,000625: 13,2000                                           BANK                                           
053896,000626: 
053897,000627: 13,3671           77354        RECTIFY            LXA,2    VLOAD                                 
053898,000628: 13,3672           02030                                    PBODY                                 
053899,000629: 13,3673           01521                                    TDELTAV                               
053900,000630: 13,3674           53257                           VSL*     VAD                                   
053901,000631: 13,3675           57605                                    0          -7,2                       
053902,000632: 13,3676           01535                                    RCV                                   
053903,000633: 13,3677           01503                           STORE    RRECT                                 
053904,000634: 13,3700           25535                           STOVL    RCV                                   
053905,000635: 13,3701           01527                                    TNUV                                  
053906,000636: 13,3702           53257                           VSL*     VAD                                   
053907,000637: 13,3703           57602                                    0          -4,2                       
053908,000638: 13,3704           01543                                    VCV                                   
053909,000639: 13,3705           01511        MINIRECT           STORE    VRECT                                 
053910,000640: 13,3706           25543                           STOVL    VCV                                   
053911,000641: 13,3707           24007                                    ZEROVEC                               
053912,000642: 13,3710           01521                           STORE    TDELTAV                               
053913,000643: 13,3711           15527                           STODL    TNUV                                  
053914,000644: 13,3712           24007                                    ZEROVEC                               
053915,000645: 13,3713           01551                           STORE    TC                                    
053916,000646: 13,3714           01553                           STORE    XKEP                                  
053917,000647: 13,3715           77616                           RVQ                                            
053918,000648: 11,3456                                           BANK     11                                    
053919,000649: 11,2000                                           SETLOC   ORBITAL                               
053920,000650: 11,2000                                           BANK                                           

Page 1231

053922,000652:                                                                                                  #  THE THREE DIFEQ ROUTINES - DIFEQ+0, DIFEQ+12, AND DIFEQ+24 - ARE ENTEREDTO PROCESS THE CONTRIBUTIONS AT THE
053923,000653:                                                                                                  #  BEGINNING, MIDDLE, AND END OF THE TIMESTEP, RESPECTIVELY. THE UPDATING IS DONE BY THE NYSTROM METHOD.
053924,000654: 11,3456           64575        DIFEQ+0            VLOAD    VSR3                                  
053925,000655: 11,3457           02062                                    FV                                    
053926,000656: 11,3460           36046                           STCALL   PHIV                                  
053927,000657: 11,3461           23636                                    DIFEQCOM                              
053928,000658: 11,3462           74575        DIFEQ+1            VLOAD    VSR1                                  
053929,000659: 11,3463           02062                                    FV                                    
053930,000660: 11,3464           53206                           PUSH     VAD                                   
053931,000661: 11,3465           02046                                    PHIV                                  
053932,000662: 11,3466           26054                           STOVL    PSIV                                  
053933,000663: 11,3467           53362                           VSR1     VAD                                   
053934,000664: 11,3470           02046                                    PHIV                                  
053935,000665: 11,3471           36046                           STCALL   PHIV                                  
053936,000666: 11,3472           23636                                    DIFEQCOM                              
053937,000667: 11,3473           57345        DIFEQ+2            DLOAD    DMPR                                  
053938,000668: 11,3474           02100                                    H                                     
053939,000669: 11,3475           11236                                    DP2/3                                 
053940,000670: 11,3476           74206                           PUSH     VXSC                                  
053941,000671: 11,3477           02046                                    PHIV                                  
053942,000672: 11,3500           53372                           VSL1     VAD                                   
053943,000673: 11,3501           01134                                    ZV                                    
053944,000674: 11,3502           53361                           VXSC     VAD                                   
053945,000675: 11,3503           02100                                    H                                     
053946,000676: 11,3504           01126                                    YV                                    
053947,000677: 11,3505           25126                           STOVL    YV                                    
053948,000678: 11,3506           02062                                    FV                                    
053949,000679: 11,3507           53322                           VSR3     VAD                                   
053950,000680: 11,3510           02054                                    PSIV                                  
053951,000681: 11,3511           76561                           VXSC     VSL1                                  
053952,000682: 11,3512           77655                           VAD                                            
053953,000683: 11,3513           01134                                    ZV                                    
053954,000684: 11,3514           01134                           STORE    ZV                                    
053955,000685: 11,3515           45014                           BOFF     CALL                                  
053956,000686: 11,3516           00341                                    JSWITCH                               
053957,000687: 11,3517           23567                                    ENDSTATE                              
053958,000688: 11,3520           11216                                    GRP2PC                                
053959,000689: 11,3521           77354                           LXA,2    VLOAD                                 
053960,000690: 11,3522           01116                                    COLREG                                
053961,000691: 11,3523           01134                                    ZV                                    
053962,000692: 11,3524           77732                           VSL3                                           #  ADJUST W-POSITION FOR STORAGE
053963,000693: 11,3525           12467                           STORE    W          +54D,2                     
053964,000694: 11,3526           77775                           VLOAD                                          
053965,000695: 11,3527           01126                                    YV                                    
053966,000696: 11,3530           40132                           VSL3     BOV                                   
053967,000697: 11,3531           23661                                    WMATEND                               
053968,000698: 11,3532           12401                           STORE    W,2                                   
053969,000699: 
053970,000700: 11,3533           77624                           CALL                                           
053971,000701: 11,3534           11216                                    GRP2PC                                

Page 1232

053973,000703: 11,3535           66354                           LXA,2    SSP                                   
053974,000704: 11,3536           01116                                    COLREG                                
053975,000705: 11,3537           00052                                    S2                                    
053976,000706: 11,3540           00000                                    0                                     
053977,000707: 11,3541           67114                           INCR,2   SXA,2                                 
053978,000708: 11,3542           00006                                    6                                     
053979,000709: 11,3543           01125                                    YV                                    
053980,000710: 11,3544           45104                           TIX,2    CALL                                  
053981,000711: 11,3545           23632                                    RELOADSV                              
053982,000712: 11,3546           11216                                    GRP2PC                                
053983,000713: 11,3547           67154                           LXA,2    SXA,2                                 
053984,000714: 11,3550           01125                                    YV                                    
053985,000715: 11,3551           01116                                    COLREG                                
053986,000716: 
053987,000717: 11,3552           77624        NEXTCOL            CALL                                           
053988,000718: 11,3553           11216                                    GRP2PC                                
053989,000719: 11,3554           76754                           LXA,2    VLOAD*                                
053990,000720: 11,3555           01116                                    COLREG                                
053991,000721: 11,3556           75376                                    W,2                                   
053992,000722: 11,3557           77722                           VSR3                                           #  ADJUST W-POSITION FOR INTEGRATION
053993,000723: 11,3560           01126                           STORE    YV                                    
053994,000724: 11,3561           76173                           VLOAD*   AXT,1                                 
053995,000725: 11,3562           75310                                    W          +54D,2                     
053996,000726: 11,3563           00000                                    0                                     
053997,000727: 11,3564           77722                           VSR3                                           #  ADJUST W-VELOCITY FOR INTEGRATION
053998,000728: 11,3565           35134                           STCALL   ZV                                    
053999,000729: 11,3566           23362                                    DIFEQ0                                
054000,000730: 
054001,000731: 11,3567           77200        ENDSTATE           BOV      VLOAD                                 
054002,000732: 11,3570           22761                                    GOBAQUE                               
054003,000733: 11,3571           01134                                    ZV                                    
054004,000734: 11,3572           25527                           STOVL    TNUV                                  
054005,000735: 11,3573           01126                                    YV                                    
054006,000736: 11,3574           01521                           STORE    TDELTAV                               
054007,000737: 11,3575           43014                           BON      BOFF                                  
054008,000738: 11,3576           04715                                    MIDAVFLG                              
054009,000739: 11,3577           27627                                    CKMID2                                #  CHECK FOR MID2 BEFORE GOING TO TIMEINC
054010,000740: 11,3600           01756                                    DIM0FLAG                              
054011,000741: 11,3601           27256                                    TESTLOOP                              
054012,000742: 11,3602           77776                           EXIT                                           
054013,000743: 11,3603           05364                           TC       PHASCHNG                              
054014,000744: 11,3604           04022                           OCT      04022                                 #  PHASE 1
054015,000745: 11,3605           05515                           TC       UPFLAG                                #  PHASE CHANGE HAS OCCURRED BETWEEN
054016,000746: 11,3606           00236                           ADRES    REINTFLG                              #  INTSTALL AND INTWAKE
054017,000747: 11,3607           06051                           TC       INTPRET                               
054018,000748: 11,3610           77731                           SSP                                            
054019,000749: 11,3611           00053                                    QPRET                                 
054020,000750: 11,3612           23617                                    AMOVED                                
054021,000751: 11,3613           52014                           BON      GOTO                                  
054022,000752: 11,3614           01714                                    VINTFLAG                              

Page 1233

054024,000754: 11,3615           26660                                    ATOPCSM                               
054025,000755: 11,3616           26733                                    ATOPLEM                               
054026,000756: 11,3617           66214        AMOVED             SET      SSP                                   
054027,000757: 11,3620           00061                                    JSWITCH                               
054028,000758: 11,3621           01117                                    COLREG                                
054029,000759: 11,3622           77741                           DEC      -30        B-14                       
054030,000760: 11,3623           66214                           BOFF     SSP                                   
054031,000761: 11,3624           01755                                    D6OR9FLG                              
054032,000762: 11,3625           23552                                    NEXTCOL                               
054033,000763: 11,3626           01117                                    COLREG                                
054034,000764: 11,3627           77717                           DEC      -48        B-14                       
054035,000765: 11,3630           77650                           GOTO                                           
054036,000766: 11,3631           23552                                    NEXTCOL                               
054037,000767: 
054038,000768: 
054039,000769: 11,3632           77745        RELOADSV           DLOAD                                          #  RELOAD TEMPORARY STATE VECTOR
054040,000770: 11,3633           01115                                    TDEC                                  #  FROM PERMANENT IN CASE OF
054041,000771: 11,3634           34041                           STCALL   TDEC1                                 
054042,000772: 11,3635           27140                                    INTEGRV2                              #  BY STARTING AT INTEGRV2.
054043,000773: 11,3636           43345        DIFEQCOM           DLOAD    DAD                                   #  INCREMENT H AND DIFEQCNT.
054044,000774: 11,3637           02076                                    DT/2                                  
054045,000775: 11,3640           02100                                    H                                     
054046,000776: 11,3641           66110                           INCR,1   SXA,1                                 
054047,000777: 11,3642           77763                           DEC      -12        B-14                       
054048,000778: 11,3643           01500                                    DIFEQCNT                              #  DIFEQCNT SET FOR NEXT ENTRY.
054049,000779: 11,3644           02100                           STORE    H                                     
054050,000780: 11,3645           74561                           VXSC     VSR1                                  
054051,000781: 11,3646           02062                                    FV                                    
054052,000782: 11,3647           74255                           VAD      VXSC                                  
054053,000783: 11,3650           01134                                    ZV                                    
054054,000784: 11,3651           02100                                    H                                     
054055,000785: 11,3652           77655                           VAD                                            
054056,000786: 11,3653           01126                                    YV                                    
054057,000787: 11,3654           02032                           STORE    ALPHAV                                
054058,000788: 11,3655           52014                           BON      GOTO                                  
054059,000789: 11,3656           00301                                    JSWITCH                               
054060,000790: 11,3657           23675                                    DOW..                                 
054061,000791: 11,3660           22466                                    FBR3                                  
054062,000792: 
054063,000793: 
054064,000794: 11,3661           43014        WMATEND            CLEAR    CLEAR                                 
054065,000795: 11,3662           01676                                    DIM0FLAG                              #  DONT INTEGRATE W THIS TIME
054066,000796: 11,3663           01671                                    ORBWFLAG                              #  INVALIDATE W
054067,000797: 11,3664           77614                           CLEAR                                          
054068,000798: 11,3665           02676                                    RENDWFLG                              
054069,000799: 11,3666           77414                           SET      EXIT                                  
054070,000800: 11,3667           01472                                    STATEFLG                              #  PICK UP STATE VECTOR UPDATE
054071,000801: 11,3670           05600                           TC       ALARM                                 
054072,000802: 11,3671           00421                           OCT      421                                   
054073,000803: 11,3672           06051                           TC       INTPRET                               

Page 1234

054075,000805: 11,3673           77650                           GOTO                                           
054076,000806: 11,3674           27256                                    TESTLOOP                              #  FINISH INTEGRATING STATE VECTOR
054077,000807: 

Page 1235

054079,000809:                                                                                                  #  ORBITAL ROUTINE FOR EXTRAPOLATION OF THE W MATRIX. IT COMPUTES THE SECOND DERIVATIVE OF EACH COLUMN POSITION
054080,000810:                                                                                                  #  VECTOR OF THE MATRIX AND CALLS THE NYSTROM INTEGRATION ROUTINES TO SOLVETHE DIFFERENTIAL EQUATIONS. THE PROGRAM
054081,000811:                                                                                                  #  USES A TABLE OF VEHICLE POSITION VECTORS COMPUTED DURING THE INTEGRATION OF THE VEHICLES POSITION AND VELOCITY.
054082,000812: 11,3675           70754        DOW..              LXA,2    DLOAD*                                
054083,000813: 11,3676           02030                                    PBODY                                 
054084,000814: 11,3677           51770                                    MUEARTH,2                             
054085,000815: 11,3700           36072                           STCALL   BETAM                                 
054086,000816: 11,3701           23723                                    DOW..1                                
054087,000817: 11,3702           02062                           STORE    FV                                    
054088,000818: 11,3703           62014                           BOF      INCR,1                                
054089,000819: 11,3704           00342                                    MIDFLAG                               
054090,000820: 11,3705           23245                                    NBRANCH                               
054091,000821: 11,3706           77771                           DEC      -6         B-14                       
054092,000822: 11,3707           70744                           LXC,2    DLOAD*                                
054093,000823: 11,3710           02030                                    PBODY                                 
054094,000824: 11,3711           51772                                    MUEARTH    -2,2                       
054095,000825: 11,3712           36072                           STCALL   BETAM                                 
054096,000826: 11,3713           23723                                    DOW..1                                
054097,000827: 11,3714           50414                           BON      VSR6                                  
054098,000828: 11,3715           00303                                    MOONFLAG                              
054099,000829: 11,3716           23717                                    +1                                    
054100,000830: 11,3717           77655                           VAD                                            
054101,000831: 11,3720           02062                                    FV                                    
054102,000832: 11,3721           36062                           STCALL   FV                                    
054103,000833: 11,3722           23245                                    NBRANCH                               
054104,000834: 11,3723           60575        DOW..1             VLOAD    VSR4                                  
054105,000835: 11,3724           02032                                    ALPHAV                                
054106,000836: 11,3725           53513                           PDVL*    UNIT                                  
054107,000837: 11,3726           02123                                    VECTAB,1                              
054108,000838: 11,3727           46315                           PDVL     VPROJ                                 
054109,000839: 11,3730           02032                                    ALPHAV                                
054110,000840: 11,3731           52361                           VXSC     VSU                                   
054111,000841: 11,3732           11226                                    3/4                                   
054112,000842: 11,3733           60325                           PDDL     NORM                                  
054113,000843: 11,3734           00045                                    36D                                   
054114,000844: 11,3735           00052                                    S2                                    
054115,000845: 11,3736           63406                           PUSH     DSQ                                   
054116,000846: 11,3737           77605                           DMP                                            
054117,000847: 11,3740           65301                           NORM     PDDL                                  
054118,000848: 11,3741           00043                                    34D                                   
054119,000849: 11,3742           02072                                    BETAM                                 
054120,000850: 11,3743           56342                           SR1      DDV                                   
054121,000851: 11,3744           77761                           VXSC                                           
054122,000852: 11,3745           57154                           LXA,2    XAD,2                                 
054123,000853: 11,3746           00051                                    S2                                    
054124,000854: 11,3747           00051                                    S2                                    
054125,000855: 11,3750           57074                           XAD,2    XAD,2                                 
054126,000856: 11,3751           00051                                    S2                                    
054127,000857: 11,3752           00042                                    34D                                   
054128,000858: 11,3753           43457                           VSL*     RVQ                                   

Page 1236

054130,000860: 11,3754           57606                                    0          -8D,2                      #  ****************************************
054131,000861: 12,2000                                           SETLOC   ORBITAL1                              
054132,000862: 12,2000                                           BANK                                           
054133,000863: 
054134,000864: 12,3755           04631 23146  3/5                2DEC     .6         B-2                        
054135,000865: 
054136,000866: 12,3757           14000 00000  THREE/8            2DEC     .375                                  
054137,000867: 
054138,000868: 12,3761           02314 31463  .3D                2DEC     .3         B-2                        
054139,000869: 
054140,000870: 12,3763           01400 00000  3/64               2DEC     3          B-6                        
054141,000871: 
054142,000872: 12,3765           10000 00000  DP1/4              2DEC     .25                                   
054143,000873: 
054144,000874: 12,3767  12,3765               DQUARTER           EQUALS   DP1/4                                 
054145,000875: 12,3767  12,3765               POS1/4             EQUALS   DP1/4                                 
054146,000876: 12,3767           03000 00000  3/32               2DEC     3          B-5                        
054147,000877: 
054148,000878: 12,3771           36000 00000  15/16              2DEC     15.        B-4                        
054149,000879: 
054150,000880: 05,3776                                           BANK     05                                    
054151,000881: 04,2000                                           SETLOC   ORBITAL3                              
054152,000882: 04,2000                                           BANK                                           
054153,000883: 
054154,000884: 04,3225           30000 00000  3/4                2DEC     3.0        B-2                        
054155,000885: 
054156,000886: 04,3227           22525 12525  7/12               2DEC     .5833333333                            
054157,000887: 
054158,000888: 04,3231           22000 00000  9/16               2DEC     9          B-4                        
054159,000889: 
054160,000890: 04,3233           01200 00000  5/128              2DEC     5          B-7                        
054161,000891: 
054162,000892: 04,3235  12,2006               DPZERO             EQUALS   ZEROVEC                               
054163,000893: 04,3235           25252 25253  DP2/3              2DEC     .6666666667                            
054164,000894: 
054165,000895: 04,3237  04,3235               2/3                EQUALS   DP2/3                                 
054166,000896: 04,3237           00027        OCT27              OCT      27                                    
054167,000897: 13,3716                                           BANK     13                                    
054168,000898: 13,2000                                           SETLOC   ORBITAL2                              
054169,000899: 13,2000                                           BANK                                           
054170,000900:                                                                                                  #  IT IS VITAL THAT THE FOLLOWING CONSTANTS NOT BE SHUFFLED
054171,000901: 13,3716           77764                           DEC      -11        B-14                       
054172,000902: 13,3717           77775                           DEC      -2         B-14                       
054173,000903: 13,3720           77766                           DEC      -9         B-14                       
054174,000904: 13,3721           77771                           DEC      -6         B-14                       
054175,000905: 13,3722           77775                           DEC      -2         B-14                       
054176,000906: 13,3723           77775                           DEC      -2         B-14                       
054177,000907: 13,3724           00000                           DEC      0          B-14                       
054178,000908: 13,3725           77763                           DEC      -12        B-14                       
054179,000909: 13,3726           77766                           DEC      -9         B-14                       

Page 1237

054181,000911: 13,3727           77773                           DEC      -4         B-14                       
054182,000912: 13,3730           77770        ASCALE             DEC      -7         B-14                       
054183,000913: 13,3731           77771                           DEC      -6         B-14                       
054184,000914: 13,3732           24000 00000  5/8                2DEC     5          B-3                        
054185,000915: 
054186,000916: 13,3734           74631 63145  -1/12              2DEC     -.1                                   
054187,000917: 
054188,000918: 13,3736           00243 32703  RECRATIO           2DEC     .01                                   
054189,000919: 
054190,000920: 13,3740           03654 21000  RSPHERE            2DEC     64373.76   E3         B-29            
054191,000921: 
054192,000922: 13,3742           03654 21000  RDM                2DEC     16093.44   E3         B-27            
054193,000923: 
054194,000924: 13,3744           04627 25200  RDE                2DEC     80467.20   E3         B-29            
054195,000925: 
054196,000926: 13,3746                        RATT               EQUALS   00                                    
054197,000927: 13,3746                        VATT               EQUALS   6D                                    
054198,000928: 13,3746                        TAT                EQUALS   12D                                   
054199,000929: 13,3746                        RATT1              EQUALS   14D                                   
054200,000930: 13,3746                        VATT1              EQUALS   20D                                   
054201,000931: 13,3746                        MU(P)              EQUALS   26D                                   
054202,000932: 13,3746                        TDEC1              EQUALS   32D                                   
054203,000933: 13,3746                        URPV               EQUALS   14D                                   
054204,000934: 13,3746     0022               COSPHI/2           EQUALS   URPV       +4                         
054205,000935: 13,3746                        UZ                 EQUALS   20D                                   
054206,000936: 13,3746                        TVEC               EQUALS   26D                                   

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