Source Code

These source-code files were obtained by digitally photographing an Artemis 72 program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. Note that the page images presented online are of reduced quality, and that additional images may be available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS 
	BY NASA 2021114-011 11:40 FEB. 26, 1971

	THIS AGC PROGRAM SHALL ALSO BE REFERRED TO AS
				COLOSSUS 3
	THIS PROGRAM IS INTENDED FOR USE IN THE CM AS SPECIFIED
	IN REPORT R-577.  THIS PROGRAM WAS PREPARED UNDER OSR
	PROJECT 55-23890, SPONSORED BY THE MANNED SPACECRAFT
	CENTER OF THE NATIONAL AERONAUTICS AND SPACE
	ADMINISTRATION THROUGH CONTRACT NAS 9-4065 WITH THE
	CHARLES STARK DRAPER LABORATORY, MASSACHUSETTS INSTITUTE OF
	TECHNOLOGY, CAMBRIDGE, MASS.

056961,000002:                                                                                                 #  Copyright:     Public domain.
056962,000003:                                                                                                 #  Filename:      ORBITAL_INTEGRATION.agc
056963,000004:                                                                                                 #  Purpose:       Part of the source code for Artemis (i.e., Colossus 3),
056964,000005:                                                                                                 #                 build 072.  This is for the Command Module's (CM)
056965,000006:                                                                                                 #                 Apollo Guidance Computer (AGC), we believe for
056966,000007:                                                                                                 #                 Apollo 15-17.
056967,000008:                                                                                                 #  Assembler:     yaYUL
056968,000009:                                                                                                 #  Contact:       Jim Lawton <jim DOT lawton AT gmail DOT com>
056969,000010:                                                                                                 #  Website:       www.ibiblio.org/apollo/index.html
056970,000011:                                                                                                 #  Page scans:    www.ibiblio.org/apollo/ScansForConversion/Artemis072/
056971,000012:                                                                                                 #  Mod history:   2009-08-21 JL   Adapted from corresponding Comanche 055 file.
056972,000013:                                                                                                 #                 2010-02-20 RSB  Un-##'d this header.
056973,000014: 
056974,000015:                                                                                                 # # Page 1333
056975,000016: 
056976,000017:                                                                                                 #  ORBITAL INTEGRATION
056977,000018: 
056978,000019:                                                                                                 #  DELETE
056979,000020: 11,2000                                          SETLOC   ORBITAL                               
056980,000021: 11,2000                                          BANK                                           
056981,000022: 11,2336                                          COUNT*   $$/ORBIT                              
056982,000023: 
056983,000024:                                                                                                 #  DELETE
056984,000025: 11,2336           40354        KEPPREP           LXA,2    SETPD                                 
056985,000026: 11,2337           02150                                   PBODY                                 
056986,000027: 11,2340           00001                                   0                                     
056987,000028: 11,2341           75543                          DLOAD*   SQRT                                  #  SQRT(MU) (+18 OR +15)          0D      PL 2D
056988,000029: 11,2342           50037                                   MUEARTH,2                             
056989,000030: 11,2343           53515                          PDVL     UNIT                                  #                                         PL 8D
056990,000031: 11,2344           01535                                   RCV                                   
056991,000032: 11,2345           60325                          PDDL     NORM                                  #  NORM R (+29 OR +27 - N1)       2D      PL 4D
056992,000033: 11,2346           00045                                   36D                                   
056993,000034: 11,2347           00047                                   X1                                    
056994,000035: 11,2350           77715                          PDVL                                           
056995,000036: 11,2351           65241                          DOT      PDDL                                  #  F*SQRT(MU) (+7 OR +5)  4D      PL 6D
056996,000037: 11,2352           01543                                   VCV                                   
056997,000038: 11,2353           02303                                   TAU.                                  #  (+28)
056998,000039: 11,2354           60225                          DSU      NORM                                  
056999,000040: 11,2355           01551                                   TC                                    
057000,000041: 11,2356           00051                                   S1                                    
057001,000042: 11,2357           77742                          SR1                                            
057002,000043: 11,2360           65271                          DDV      PDDL                                  
057003,000044: 11,2361           00003                                   2D                                    
057004,000045: 11,2362           41405                          DMP      PUSH                                  #  FS (+6 +N1-N2)                 6D      PL 8D
057005,000046: 11,2363           00005                                   4D                                    
057006,000047: 11,2364           65316                          DSQ      PDDL                                  #  (FS)SQ (+12 +2(N1-N2)) 8D      PL 10D
057007,000048: 11,2365           00005                                   4D                                    
057008,000049: 11,2366           64716                          DSQ      PDDL*                                 #  SSQ/MU (-2 OR +2(N1-N2))       10D     PL 12D
057009,000050: 11,2367           50037                                   MUEARTH,2                             
057010,000051: 11,2370           40442                          SR3      SR4                                   
057011,000052: 11,2371           47515                          PDVL     VSQ                                   #  PREALIGN MU (+43 OR +37)       12D     PL 14D
057012,000053: 11,2372           01543                                   VCV                                   
057013,000054: 11,2373           44205                          DMP      BDSU                                  #                                         PL 12D
057014,000055: 11,2374           00045                                   36D                                   
057015,000056: 11,2375           41271                          DDV      DMP                                   #                                         PL 10D
057016,000057: 11,2376           00003                                   2D                                    #  -(1/R-ALPHA) (+12 +3N1-2N2)
057017,000058: 11,2377           53605                          DMP      SL*                                   
057018,000059: 11,2400           23771                                   DP2/3                                 
057019,000060: 11,2401           20176                                   0          -3,1                       #  10L(1/R-ALPHA) (+13 +2(N1-N2))
057020,000061: 11,2402           43260                          XSU,1    DAD                                   #  2(FS)SQ - ETCETRA                      PL 8D
057021,000062: 11,2403           00050                                   S1                                    #  X1 = N2-N1
057022,000063: 11,2404           45257                          SL*      DSU                                   #  -FS+2(FS)SQ ETC (+6 +N1-N2)            PL 6D
057023,000064: 11,2405           20211                                   8D,1                                  
057024,000065: 11,2406           41205                          DMP      DMP                                   
057025,000066: 11,2407           00001                                   0D                                    
057026,000067: 11,2410           00005                                   4D                                    
057027,000068: 11,2411           53657                          SL*      SL*                                   
057028,000069: 11,2412           20211                                   8D,1                                  
057029,000070:                                                                                                 # # Page 1334
057030,000071: 11,2413           20201                                   0,1                                   #  S(-FS(1-2FS)-1/6...) (+17 OR +16)
057031,000072: 11,2414           65215                          DAD      PDDL                                  #                                         PL 6D
057032,000073: 11,2415           01553                                   XKEP                                  
057033,000074: 11,2416           53605                          DMP      SL*                                   #  S(+17 OR +16)
057034,000075: 11,2417           00001                                   0D                                    
057035,000076: 11,2420           20202                                   1,1                                   
057036,000077: 11,2421           43204                          BOVB     DAD                                   
057037,000078: 11,2422           57544                                   TCDANZIG                              
057038,000079: 11,2423           77626                          STADR                                          
057039,000080: 11,2424           75500                          STORE    XKEPNEW                               
057040,000081: 11,2425           74020                          STQ      AXC,1                                 
057041,000082: 11,2426           02267                                   KEPRTN                                
057042,000083: 11,2427           00012                          DEC      10         B-14                       
057043,000084: 11,2430           74014                          BON      AXC,1                                 
057044,000085: 11,2431           00303                                   MOONFLAG                              
057045,000086: 11,2432           24077                                   KEPLERN                               
057046,000087: 11,2433           00002                          DEC      2          B-14                       
057047,000088: 11,2434           77650                          GOTO                                           
057048,000089: 11,2435           24077                                   KEPLERN                               
057049,000090: 
057050,000091:                                                                                                 # # Page 1335
057051,000092: 11,2436           66350        FBR3              LXA,1    SSP                                   
057052,000093: 11,2437           01500                                   DIFEQCNT                              
057053,000094: 11,2440           00051                                   S1                                    
057054,000095: 11,2441           77762                          DEC      -13        B-14                       
057055,000096: 11,2442           54345                          DLOAD    SR                                    
057056,000097: 11,2443           02305                                   DT/2                                  
057057,000098: 11,2444           20612                                   9D                                    
057058,000099: 11,2445           61500                          TIX,1    ROUND                                 
057059,000100: 11,2446           22447                                   +1                                    
057060,000101: 11,2447           43206                          PUSH     DAD                                   
057061,000102: 11,2450           01551                                   TC                                    
057062,000103: 11,2451           16303                          STODL    TAU.                                  
057063,000104: 11,2452           77615                          DAD                                            
057064,000105: 11,2453           01517                                   TET                                   
057065,000106: 11,2454           35517                          STCALL   TET                                   
057066,000107: 11,2455           22336                                   KEPPREP                               
057067,000108: 
057068,000109:                                                                                                 # # Page 1336
057069,000110: 
057070,000111:                                                                                                 #  AGC ROUTINE TO COMPUTE ACCELERATION COMPONENTS.
057071,000112: 
057072,000113: 11,2456           73150        ACCOMP            LXA,1    LXA,2                                 
057073,000114: 11,2457           02150                                   PBODY                                 
057074,000115: 11,2460           02150                                   PBODY                                 
057075,000116: 11,2461           77775                          VLOAD                                          
057076,000117: 11,2462           11762                                   ZEROVEC                               
057077,000118: 11,2463           26202                          STOVL    FV                                    
057078,000119: 11,2464           02152                                   ALPHAV                                
057079,000120: 11,2465           53257                          VSL*     VAD                                   
057080,000121: 11,2466           57605                                   0          -7,2                       
057081,000122: 11,2467           01535                                   RCV                                   
057082,000123: 11,2470           02160                          STORE    BETAV                                 
057083,000124: 11,2471           65014                          BOF      XCHX,2                                
057084,000125: 11,2472           01756                                   DIM0FLAG                              
057085,000126: 11,2473           22500                                   +5                                    
057086,000127: 11,2474           01500                                   DIFEQCNT                              
057087,000128: 11,2475           12216                          STORE    VECTAB,2                              
057088,000129: 11,2476           77724                          XCHX,2                                         
057089,000130: 11,2477           01500                                   DIFEQCNT                              
057090,000131: 11,2500           53575                          VLOAD    UNIT                                  
057091,000132: 11,2501           02152                                   ALPHAV                                
057092,000133: 11,2502           16152                          STODL    ALPHAV                                
057093,000134: 11,2503           00045                                   36D                                   
057094,000135: 11,2504           02301                          STORE    ALPHAM                                
057095,000136: 11,2505           77624                          CALL                                           
057096,000137: 11,2506           22602                                   GAMCOMP                               
057097,000138: 11,2507           66175                          VLOAD    SXA,1                                 
057098,000139: 11,2510           02160                                   BETAV                                 
057099,000140: 11,2511           00051                                   S2                                    
057100,000141: 11,2512           16152                          STODL    ALPHAV                                
057101,000142: 11,2513           02210                                   BETAM                                 
057102,000143: 11,2514           02301                          STORE    ALPHAM                                
057103,000144: 11,2515           71214                          BOF      DLOAD                                 
057104,000145: 11,2516           00342                                   MIDFLAG                               
057105,000146: 11,2517           22754                                   OBLATE                                
057106,000147: 11,2520           01517                                   TET                                   
057107,000148: 11,2521           77624                          CALL                                           
057108,000149: 11,2522           54136                                   LSPOS                                 
057109,000150: 11,2523           72174                          AXT,2    LXA,1                                 
057110,000151: 11,2524           00002                                   2                                     
057111,000152: 11,2525           00051                                   S2                                    
057112,000153: 11,2526           77614                          BOF                                            
057113,000154: 11,2527           00343                                   MOONFLAG                              
057114,000155: 11,2530           22533                                   +3                                    
057115,000156: 11,2531           77076                          VCOMP    AXT,2                                 
057116,000157: 11,2532           00000                                   0                                     
057117,000158: 11,2533           02160                          STORE    BETAV                                 
057118,000159: 11,2534           26262                          STOVL    RPQV                                  
057119,000160:                                                                                                 # # Page 1337
057120,000161: 11,2535           00003                                   2D                                    
057121,000162: 11,2536           02271                          STORE    RPSV                                  
057122,000163: 11,2537           77214                          BOF      VLOAD                                 
057123,000164: 11,2540           01756                                   DIM0FLAG                              
057124,000165: 11,2541           22554                                   GETRPSV                               
057125,000166: 11,2542           02152                                   ALPHAV                                
057126,000167: 11,2543           53761                          VXSC     VSR*                                  
057127,000168: 11,2544           02301                                   ALPHAM                                
057128,000169: 11,2545           57175                                   1,2                                   
057129,000170: 11,2546           65051                          VSU      XCHX,2                                
057130,000171: 11,2547           02160                                   BETAV                                 
057131,000172: 11,2550           01500                                   DIFEQCNT                              
057132,000173: 11,2551           12224                          STORE    VECTAB     +6,2                       
057133,000174: 11,2552           77724                          XCHX,2                                         
057134,000175: 11,2553           01500                                   DIFEQCNT                              
057135,000176: 11,2554           62175        GETRPSV           VLOAD    INCR,1                                
057136,000177: 11,2555           02262                                   RPQV                                  
057137,000178: 11,2556           00004                                   4                                     
057138,000179: 11,2557           43014                          CLEAR    BOF                                   
057139,000180: 11,2560           04260                                   RPQFLAG                               
057140,000181: 11,2561           00343                                   MOONFLAG                              
057141,000182: 11,2562           22567                                   +5                                    
057142,000183: 11,2563           53261                          VSR      VAD                                   
057143,000184: 11,2564           20612                                   9D                                    
057144,000185: 11,2565           02271                                   RPSV                                  
057145,000186: 11,2566           02271                          STORE    RPSV                                  
057146,000187: 11,2567           77624                          CALL                                           
057147,000188: 11,2570           22602                                   GAMCOMP                               
057148,000189: 11,2571           62174                          AXT,2    INCR,1                                
057149,000190: 11,2572           00004                                   4                                     
057150,000191: 11,2573           00004                                   4                                     
057151,000192: 11,2574           77775                          VLOAD                                          
057152,000193: 11,2575           02271                                   RPSV                                  
057153,000194: 11,2576           36160                          STCALL   BETAV                                 
057154,000195: 11,2577           22602                                   GAMCOMP                               
057155,000196: 11,2600           77650                          GOTO                                           
057156,000197: 11,2601           22754                                   OBLATE                                
057157,000198: 11,2602           74575        GAMCOMP           VLOAD    VSR1                                  
057158,000199: 11,2603           02160                                   BETAV                                 
057159,000200: 11,2604           40236                          VSQ      SETPD                                 
057160,000201: 11,2605           00001                                   0                                     
057161,000202: 11,2606           61501                          NORM     ROUND                                 
057162,000203: 11,2607           00040                                   31D                                   
057163,000204: 11,2610           60325                          PDDL     NORM                                  #  NORMED B SQUARED TO PD LIST
057164,000205: 11,2611           02301                                   ALPHAM                                #  NORMALIZE (LESS ONE) LENGTH OF ALPHA
057165,000206: 11,2612           00041                                   32D                                   #  SAVING NORM SCALE FACTOR IN X1
057166,000207: 11,2613           63342                          SR1      PDVL                                  
057167,000208: 11,2614           02160                                   BETAV                                 #  C(PDL+2) = ALMOST NORMED ALPHA
057168,000209: 11,2615           77656                          UNIT                                           
057169,000210: 11,2616           16160                          STODL    BETAV                                 
057170,000211:                                                                                                 # # Page 1338
057171,000212: 11,2617           00045                                   36D                                   
057172,000213: 11,2620           02210                          STORE    BETAM                                 
057173,000214: 11,2621           55301                          NORM     BDDV                                  #  FORM NORMALIZE QUOTIEN ALPHAM/BETAM
057174,000215: 11,2622           00042                                   33D                                   
057175,000216: 11,2623           41562                          SR1R     PUSH                                  #  C(PDL+2) = ALMOST NORMALIZE RHO.
057176,000217: 11,2624           77743                          DLOAD*                                         
057177,000218: 11,2625           27732                                   ASCALE,1                              
057178,000219: 11,2626           00051                          STORE    S1                                    
057179,000220: 11,2627           57124                          XCHX,2   XAD,2                                 
057180,000221: 11,2630           00050                                   S1                                    
057181,000222: 11,2631           00040                                   32D                                   
057182,000223: 11,2632           71264                          XSU,2    DLOAD                                 
057183,000224: 11,2633           00041                                   33D                                   
057184,000225: 11,2634           00003                                   2D                                    
057185,000226: 11,2635           65057                          SR*      XCHX,2                                
057186,000227: 11,2636           57177                                   0          -1,2                       
057187,000228: 11,2637           00050                                   S1                                    
057188,000229: 11,2640           74406                          PUSH     SR1R                                  #  RHO/4 TO 4D
057189,000230: 11,2641           50315                          PDVL     DOT                                   
057190,000231: 11,2642           02152                                   ALPHAV                                
057191,000232: 11,2643           02160                                   BETAV                                 
057192,000233: 11,2644           44372                          SL1R     BDSU                                  #  (RHO/4) - 2(ALPHAV/2.BETAV/2)
057193,000234: 11,2645           57206                          PUSH     DMPR                                  #  TO PDL+6
057194,000235: 11,2646           00005                                   4                                     
057195,000236: 11,2647           77752                          SL1                                            
057196,000237: 11,2650           43206                          PUSH     DAD                                   
057197,000238: 11,2651           33412                                   DQUARTER                              
057198,000239: 11,2652           75406                          PUSH     SQRT                                  
057199,000240: 11,2653           41475                          DMPR     PUSH                                  
057200,000241: 11,2654           00013                                   10D                                   
057201,000242: 11,2655           43352                          SL1      DAD                                   
057202,000243: 11,2656           33412                                   DQUARTER                              
057203,000244: 11,2657           43325                          PDDL     DAD                                   #  (1/4)+2((Q+1)/4)       TO PD+14D
057204,000245: 11,2660           00013                                   10D                                   
057205,000246: 11,2661           11760                                   HALFDP                                
057206,000247: 11,2662           72475                          DMPR     SL1                                   
057207,000248: 11,2663           00011                                   8D                                    
057208,000249: 11,2664           56215                          DAD      DDV                                   
057209,000250: 11,2665           23747                                   THREE/8                               
057210,000251: 11,2666           00017                                   14D                                   
057211,000252: 11,2667           74275                          DMPR     VXSC                                  
057212,000253: 11,2670           00007                                   6                                     
057213,000254: 11,2671           02160                                   BETAV                                 #                _
057214,000255: 11,2672           64515                          PDVL     VSR3                                  #  (G/2)(C(PD+4))B/2 TO PD+16D
057215,000256: 11,2673           02152                                   ALPHAV                                
057216,000257: 11,2674           41455                          VAD      PUSH                                  #  A12 + C(PD+16D) TO PD+16D
057217,000258: 11,2675           41345                          DLOAD    DMP                                   
057218,000259: 11,2676           00001                                   0                                     
057219,000260: 11,2677           00015                                   12D                                   #  -
057220,000261: 11,2700           61501                          NORM     ROUND                                 
057221,000262:                                                                                                 # # Page 1339
057222,000263: 11,2701           00037                                   30D                                   
057223,000264: 11,2702           40665                          BDDV     DMP*                                  
057224,000265: 11,2703           00003                                   2                                     
057225,000266: 11,2704           50037                                   MUEARTH,2                             
057226,000267: 11,2705           74276                          DCOMP    VXSC                                  
057227,000268: 11,2706           57124                          XCHX,2   XAD,2                                 
057228,000269: 11,2707           00050                                   S1                                    
057229,000270: 11,2710           00051                                   S2                                    
057230,000271: 11,2711           55064                          XSU,2    XSU,2                                 
057231,000272: 11,2712           00036                                   30D                                   
057232,000273: 11,2713           00037                                   31D                                   
057233,000274: 11,2714           77600                          BOV                                            #  CLEAR OVIND
057234,000275: 11,2715           22716                                   +1                                    
057235,000276: 11,2716           65057                          VSR*     XCHX,2                                
057236,000277: 11,2717           57177                                   0          -1,2                       
057237,000278: 11,2720           00050                                   S1                                    
057238,000279: 11,2721           77655                          VAD                                            
057239,000280: 11,2722           02202                                   FV                                    
057240,000281: 11,2723           02202                          STORE    FV                                    
057241,000282: 11,2724           43400                          BOV      RVQ                                   #  RETURN IF NO OVERFLOW
057242,000283: 11,2725           22726                                   +1                                    
057243,000284: 11,2726           51575        GOBAQUE           VLOAD    ABVAL                                 
057244,000285: 11,2727           01521                                   TDELTAV                               
057245,000286: 11,2730           77654                          BZE                                            
057246,000287: 11,2731           22751                                   INT-ABRT                              
057247,000288: 11,2732           54345                          DLOAD    SR                                    
057248,000289: 11,2733           02212                                   H                                     
057249,000290: 11,2734           20612                                   9D                                    
057250,000291: 11,2735           44206                          PUSH     BDSU                                  
057251,000292: 11,2736           01551                                   TC                                    
057252,000293: 11,2737           16303                          STODL    TAU.                                  
057253,000294: 11,2740           01517                                   TET                                   
057254,000295: 11,2741           45425                          DSU      STADR                                 
057255,000296: 11,2742           42260                          STCALL   TET                                   
057256,000297: 11,2743           22336                                   KEPPREP                               
057257,000298: 11,2744           77624                          CALL                                           
057258,000299: 11,2745           23420                                   RECTIFY                               
057259,000300: 11,2746           77614                          SETGO                                          
057260,000301: 11,2747           04020                                   RPQFLAG                               
057261,000302: 11,2750           27364                                   TESTLOOP                              
057262,000303: 
057263,000304: 11,2751           77776        INT-ABRT          EXIT                                           
057264,000305: 11,2752           05726                          TC       POODOO                                
057265,000306: 11,2753           20430                          OCT      20430                                 #  SUB-SURFACE STATE VECTOR
057266,000307: 
057267,000308:                                                                                                 # # Page 1340
057268,000309: 
057269,000310:                                                                                                 #  THE OBLATE ROUTINE COMPUTES THE ACCELERATION DUE TO OBLATENESS. IT USES THE UNIT OF THE VEHICLE
057270,000311:                                                                                                 #  POSITION VECTOR FOUND IN ALPHAV AND THE DISTANCE TO THE CENTER IN ALPHAM. THIS IS ADDED TO THE SUM OF THE
057271,000312:                                                                                                 #  DISTURBING ACCELERATIONS IN FV AND THE PROPER DIFEQ STAGE IS CALLED VIA X1.
057272,000313: 
057273,000314: 11,2754           71354        OBLATE            LXA,2    DLOAD                                 
057274,000315: 11,2755           02150                                   PBODY                                 
057275,000316: 11,2756           02301                                   ALPHAM                                
057276,000317: 11,2757           44601                          SETPD    DSU*                                  
057277,000318: 11,2760           00001                                   0                                     
057278,000319: 11,2761           50007                                   RDE,2                                 
057279,000320: 11,2762           43044                          BPL      BOF                                   #  GET URPV
057280,000321: 11,2763           23212                                   NBRANCH                               
057281,000322: 11,2764           00343                                   MOONFLAG                              
057282,000323: 11,2765           23221                                   COSPHIE                               
057283,000324: 11,2766           65375                          VLOAD    PDDL                                  
057284,000325: 11,2767           02152                                   ALPHAV                                
057285,000326: 11,2770           01517                                   TET                                   
057286,000327: 11,2771           45125                          PDDL     CALL                                  
057287,000328: 11,2772           23745                                   3/5                                   
057288,000329: 11,2773           55370                                   R-TO-RP                               
057289,000330: 11,2774           24017                          STOVL    URPV                                  #  RP/R   B-1     IN PLANETARY COORDINATES
057290,000331: 11,2775           11754                                   ZUNIT                                 
057291,000332: 11,2776           45006                          PUSH     CALL                                  #  ZUNIT  B-1     IN PLANETARY COORDL      AT 00D
057292,000333: 11,2777           23227                                   MATRIX                                
057293,000334: 11,3000           77715                          PDVL                                           #  UZ     B-2     IN INERT COORD           AT 00D
057294,000335: 11,3001           11760                                   XUNIT                                 
057295,000336: 11,3002           45006                          PUSH     CALL                                  #  XUNIT  B-1     IN PLANETARY COORD.      AT 06D
057296,000337: 11,3003           23227                                   MATRIX                                
057297,000338: 11,3004           77772                          VSL1                                           
057298,000339: 11,3005           24041                          STOVL    32D                                   #  UX     B-1     IN INERT. COORD          AT 32D
057299,000340: 11,3006           77772                          VSL1                                           
057300,000341: 11,3007           14025        COMTERM           STODL    UZ                                    #  UZ     B-1     IN INERTIAL COORD        AT 20D
057301,000342: 11,3010           00023                                   COSPHI/2                              #   '             Z-COMPONENT OF URPV
057302,000343: 11,3011           65275                          DMPR     PDDL                                  #  P      B-6      ,  3COSPHI/64           AT 00D
057303,000344: 11,3012           23755                                   3/32                                  #   2
057304,000345: 11,3013           00023                                   COSPHI/2                              
057305,000346: 11,3014           57316                          DSQ      DMPR                                  
057306,000347: 11,3015           23757                                   15/16                                 #   '                             2
057307,000348: 11,3016           41425                          DSU      PUSH                                  #  P      B-5      ,(1/2)(15COSPHI -3)     AT 02D
057308,000349: 11,3017           23753                                   3/64                                  #   3
057309,000350: 11,3020           41275                          DMPR     DMP                                   
057310,000351: 11,3021           00023                                   COSPHI/2                              
057311,000352: 11,3022           23763                                   7/12                                  
057312,000353: 11,3023           65372                          SL1R     PDDL                                  
057313,000354: 11,3024           00001                                   0D                                    
057314,000355: 11,3025           44275                          DMPR     BDSU                                  
057315,000356: 11,3026           23771                                   2/3                                   #   '                              '    '
057316,000357: 11,3027           57206                          PUSH     DMPR                                  #  P      B-7      ,(1/3)(7COSPHI P  -4P ) AT 04D
057317,000358: 11,3030           00023                                   COSPHI/2                              #   4                              3    2
057318,000359: 11,3031           65275                          DMPR     PDDL                                  
057319,000360: 11,3032           23765                                   9/16                                  
057320,000361:                                                                                                 # # Page 1341
057321,000362: 11,3033           00003                                   2D                                    #   '                              '    '
057322,000363: 11,3034           44275                          DMPR     BDSU                                  #  P      B-10     ,(1/4)(9COSPHI P  -5P )
057323,000364: 11,3035           23767                                   5/128                                 #   5                              4    3
057324,000365: 11,3036           56203                          DMP*     DDV                                   #                              '
057325,000366: 11,3037           50033                                   J4REQ/J3,2                            #         B-       ,(J RP/J R)P
057326,000367: 11,3040           02301                                   ALPHAM                                #                     4    3   5
057327,000368: 11,3041           56615                          DAD      DMPR*                                 
057328,000369: 11,3042           00005                                   4D                                    #                         2     2  '              '
057329,000370: 11,3043           50027                                   2J3RE/J2,2                            #         B        ,(2J RP /J2 R )P  +(2J RP/J2R)P
057330,000371: 11,3044           43271                          DDV      DAD                                   #                      4           5     3        4
057331,000372: 11,3045           02301                                   ALPHAM                                #   _        2 '  2         '        '
057332,000373: 11,3046           00003                                   2D                                    #  (R/R)(J RP P /R + 2J RP P /  + J P )
057333,000374: 11,3047           77761                          VXSC                                           #         4    5       3    4  2   2 3
057334,000375: 11,3050           02152                                   ALPHAV                                #                    4       2  '           _
057335,000376: 11,3051           14033                          STODL    TVEC                                  #         B-6     , (SUM((J /R )P   (COSPHI))UR)
057336,000377: 11,3052           70403                          DMP*     SR1                                   #                   I=2   I     I+1
057337,000378: 11,3053           50033                                   J4REQ/J3,2                            #                           '
057338,000379: 11,3054           43271                          DDV      DAD                                   #                 (J RP/J R)P
057339,000380: 11,3055           02301                                   ALPHAM                                #                   4    3   4
057340,000381: 11,3056           50473                          DMPR*    SR3                                   #               2    2  '              '
057341,000382: 11,3057           50027                                   2J3RE/J2,2                            #         (2J RP /J R )P  +(2J RP/J R)P
057342,000383: 11,3060           43271                          DDV      DAD                                   #            4     2    4     3    2   3
057343,000384: 11,3061           02301                                   ALPHAM                                #  
057344,000385: 11,3062           76561                          VXSC     VSL1                                  #                  4   '        _
057345,000386: 11,3063           00025                                   UZ                                    #         B-6     SUM(P(COSPHI))UZ
057346,000387: 11,3064           77645                          BVSU                                           #                 I=2  I
057347,000388: 11,3065           00033                                   TVEC                                  #   4              I-2   '          _
057348,000389: 11,3066           14033                          STODL    TVEC                                  #  SUM((MU J (RP/R)   )(P   (COSPHI)UR -
057349,000390: 11,3067           02301                                   ALPHAM                                #  I=2      I            I+2
057350,000391: 11,3070           63501                          NORM     DSQ                                   #              P (COSPHI)UZ))     B-6     AT 20D
057351,000392: 11,3071           00047                                   X1                                    #               I
057352,000393: 11,3072           60316                          DSQ      NORM                                  
057353,000394: 11,3073           00051                                   S1                                    #              4
057354,000395: 11,3074           54606                          PUSH     BDDV*                                 #  NORMALIZED R                           AT 00D
057355,000396: 11,3075           50023                                   J2REQSQ,2                             
057356,000397: 11,3076           40161                          VXSC     BOV                                   
057357,000398: 11,3077           00033                                   TVEC                                  
057358,000399: 11,3100           23101                                   +1                                    #  B+38 FOR EARTH, B+42 FOR MOON
057359,000400: 11,3101           56070                          XAD,1    XAD,1                                 
057360,000401: 11,3102           00046                                   X1                                    
057361,000402: 11,3103           00046                                   X1                                    
057362,000403: 11,3104           53670                          XAD,1    VSL*                                  
057363,000404: 11,3105           00050                                   S1                                    
057364,000405: 11,3106           20153                                   0          -22D,1                     
057365,000406: 11,3107           40055                          VAD      BOV                                   
057366,000407: 11,3110           02202                                   FV                                    
057367,000408: 11,3111           22726                                   GOBAQUE                               
057368,000409: 11,3112           16202                          STODL    FV                                    #  B+16 FOR EARTH, B+20 FOR MOON
057369,000410: 11,3113           00017                                   URPV                                  #  B-1  X-COMPONENT OF POSITION IN
057370,000411: 11,3114           41414                          BOF      PUSH                                  #         PLANETARY COORD.                AT 02D
057371,000412:                                                                                                 # # Page 1342
057372,000413: 11,3115           00343                                   MOONFLAG                              
057373,000414: 11,3116           23212                                   NBRANCH                               #          2
057374,000415: 11,3117           65316                          DSQ      PDDL                                  #  B-2    X                               AT 04D
057375,000416: 11,3120           00021                                   URPV       +2                         #  B-1    Y-COMPONENT
057376,000417: 11,3121           45316                          DSQ      DSU                                   
057377,000418: 11,3122           74205                          DMP      VXSC                                  
057378,000419: 11,3123           27756                                   5/8                                   #            2  2 _
057379,000420: 11,3124           02152                                   ALPHAV                                #  B-6    5(Y -X )UR         2  2 _
057380,000421: 11,3125           65332                          VSL3     PDDL                                  #  B-3                    5(Y -X )UR      AT 02D
057381,000422: 11,3126           53361                          VXSC     VAD                                   
057382,000423: 11,3127           00041                                   32D                                   #      2  2 _   2         _
057383,000424: 11,3130           47315                          PDVL     VXV                                   #  (5(Y.-X )UR/R ) +(2X/R)UX              AT 02D
057384,000425: 11,3131           00041                                   32D                                   #  B-1     UX
057385,000426: 11,3132           00025                                   UZ                                    #  B-2    -UY =(UX * UZ)
057386,000427: 11,3133           74372                          VSL1     VXSC                                  #  B-3     -(2Y/R)UY
057387,000428: 11,3134           00021                                   URPV       +2                         #             2  2 _   2        _
057388,000429: 11,3135           41455                          VAD      PUSH                                  #  B-3    (5(X -Y )UR/R )+(2X/R)UX -(
057389,000430: 11,3136           77745                          DLOAD                                          #              _
057390,000431: 11,3137           00023                                   COSPHI/2                              #         2Y/R)UY                         AT 02D
057391,000432: 11,3140           41516                          DSQ      PUSH                                  #  B-2    (Z.COMPONENT)                   AT 08D
057392,000433: 11,3141           65205                          DMP      PDDL                                  #                 2
057393,000434: 11,3142           27756                                   5/8                                   #  B-5    5COSPHI/2                       AT 08D
057394,000435: 11,3143           43302                          SR2      DAD                                   
057395,000436: 11,3144           00011                                   08D                                   
057396,000437: 11,3145           41221                          BDSU     DMP                                   #                     2
057397,000438: 11,3146           33416                                   D1/32                                 #  B-5    (1 - 7COSPHI )
057398,000439: 11,3147           00017                                   URPV                                  
057399,000440: 11,3150           74205                          DMP      VXSC                                  
057400,000441: 11,3151           27756                                   5/8                                   
057401,000442: 11,3152           02152                                   ALPHAV                                #                         2 _
057402,000443: 11,3153           65272                          VSL5     PDDL                                  #  B-5    (5X/R)(1-7COSPHI )UR            AT 08D
057403,000444: 11,3154           74225                          DSU      VXSC                                  
057404,000445: 11,3155           33416                                   D1/32                                 
057405,000446: 11,3156           00041                                   32D                                   
057406,000447: 11,3157           53372                          VSL1     VAD                                   #                         2 _           _
057407,000448: 11,3160           41325                          PDDL     DMP                                   #  B-5    (5X/R)(1-7COSPHI )UR +(5COSPHI
057408,000449: 11,3161           00017                                   URPV                                  #     _
057409,000450: 11,3162           00023                                   URPV       +4                         #  -1)UX                                  AT 08D
057410,000451: 11,3163           74205                          DMP      VXSC                                  
057411,000452: 11,3164           27756                                   5/8                                   #  B-5    5X Y
057412,000453: 11,3165           00025                                   UZ                                    #           M M
057413,000454: 11,3166           53352                          VSL2     VAD                                   #                         2             2
057414,000455: 11,3167           60325                          PDDL     NORM                                  #  B-5    (5X/R)(1-7COSPHI )UR +(5COSPHI
057415,000456: 11,3170           02301                                   ALPHAM                                #     _          2 _
057416,000457: 11,3171           00050                                   X2                                    #  -1)UX +(10XZ/R )UZ                     AT 08D
057417,000458: 11,3172           67206                          PUSH     SLOAD                                 
057418,000459: 11,3173           01770                                   E32C31RM                              
057419,000460: 11,3174           74271                          DDV      VXSC                                  
057420,000461: 11,3175           63257                          VSL*     PDVL                                  
057421,000462: 11,3176           57601                                   0          -3,2                       
057422,000463:                                                                                                 # # Page 1343
057423,000464: 11,3177           67206                          PUSH     SLOAD                                 
057424,000465: 11,3200           01767                                   E3J22R2M                              
057425,000466: 11,3201           53361                          VXSC     VAD                                   
057426,000467: 11,3202           70257                          VSL*     V/SC                                  
057427,000468: 11,3203           20146                                   0          -27D,1                     #  B+16 OR B+20 (J   + C  )
057428,000469: 11,3204           40055                          VAD      BOV                                   #                 22    31
057429,000470: 11,3205           02202                                   FV                                    
057430,000471: 11,3206           22726                                   GOBAQUE                               
057431,000472: 11,3207           02202                          STORE    FV                                    
057432,000473: 11,3210           77754                          LXA,2                                          
057433,000474: 11,3211           02150                                   PBODY                                 
057434,000475: 11,3212           72135        NBRANCH           SLOAD    LXA,1                                 
057435,000476: 11,3213           01501                                   DIFEQCNT                              
057436,000477: 11,3214           00154                                   MPAC                                  
057437,000478: 11,3215           73205                          DMP      CGOTO                                 
057438,000479: 11,3216           27760                                   -1/12                                 
057439,000480: 11,3217           00155                                   MPAC                                  
057440,000481: 11,3220           23234                                   DIFEQTAB                              
057441,000482: 11,3221           77745        COSPHIE           DLOAD                                          
057442,000483: 11,3222           02156                                   ALPHAV     +4                         
057443,000484: 11,3223           24023                          STOVL    COSPHI/2                              
057444,000485: 11,3224           11754                                   ZUNIT                                 
057445,000486: 11,3225           77650                          GOTO                                           
057446,000487: 11,3226           23007                                   COMTERM                               
057447,000488: 
057448,000489: 11,3227           57435        MATRIX            VXV      VCOMP                                 
057449,000490: 11,3230           02012                                   504LM                                 #  ROUTINE TRANSLATES FROM PLANETARY
057450,000491: 11,3231           77655                          VAD                                            #  TO INERTIAL COORDINATES
057451,000492: 11,3232           43505                          VXM      RVQ                                   
057452,000493: 11,3233           00025                                   MMATRIX                               
057453,000494: 
057454,000495: 11,3234           23445        DIFEQTAB          CADR     DIFEQ+0                               
057455,000496: 11,3235           23451                          CADR     DIFEQ+1                               
057456,000497: 11,3236           23462                          CADR     DIFEQ+2                               
057457,000498: 
057458,000499: 11,3237           45014        TIMESTEP          BOF      CALL                                  
057459,000500: 11,3240           00342                                   MIDFLAG                               
057460,000501: 11,3241           23245                                   RECTEST                               #  SKIP ORIGIN CHANGE LOGIC
057461,000502: 11,3242           23317                                   CHKSWTCH                              
057462,000503: 11,3243           77640                          BMN                                            
057463,000504: 11,3244           23354                                   DOSWITCH                              
057464,000505: 
057465,000506: 11,3245           51575        RECTEST           VLOAD    ABVAL                                 #  RECTIFY IF
057466,000507: 11,3246           01521                                   TDELTAV                               
057467,000508: 11,3247           77600                          BOV                                            
057468,000509: 11,3250           23273                                   CALLRECT                              
057469,000510: 11,3251           51025                          DSU      BPL                                   #         1) EITHER TDELTAV OR TNUV EQUALS OR
057470,000511: 11,3252           23761                                   3/4                                   #            EXCEEDS 3/4 IN MAGNITUDE
057471,000512: 11,3253           23273                                   CALLRECT                              
057472,000513: 11,3254           53615                          DAD      SL*                                   #                         OR
057473,000514:                                                                                                 # # Page 1344
057474,000515: 11,3255           23761                                   3/4                                   
057475,000516: 11,3256           57605                                   0          -7,2                       #         2) ABVAL(TDELTAV) EQUALS OR EXCEEDS
057476,000517: 11,3257           45271                          DDV      DSU                                   #            .01(ABVAL(RCV))
057477,000518: 11,3260           00013                                   10D                                   
057478,000519: 11,3261           27762                                   RECRATIO                              
057479,000520: 11,3262           77244                          BPL      VLOAD                                 
057480,000521: 11,3263           23273                                   CALLRECT                              
057481,000522: 11,3264           01527                                   TNUV                                  
057482,000523: 11,3265           45246                          ABVAL    DSU                                   
057483,000524: 11,3266           23761                                   3/4                                   
057484,000525: 11,3267           77600                          BOV                                            
057485,000526: 11,3270           23273                                   CALLRECT                              
057486,000527: 11,3271           77640                          BMN                                            
057487,000528: 11,3272           23275                                   INTGRATE                              
057488,000529: 11,3273           77624        CALLRECT          CALL                                           
057489,000530: 11,3274           23420                                   RECTIFY                               
057490,000531: 11,3275           77775        INTGRATE          VLOAD                                          
057491,000532: 11,3276           01527                                   TNUV                                  
057492,000533: 11,3277           24763                          STOVL    ZV                                    
057493,000534: 11,3300           01521                                   TDELTAV                               
057494,000535: 11,3301           00755                          STORE    YV                                    
057495,000536: 11,3302           77614                          CLEAR                                          
057496,000537: 11,3303           00261                                   JSWITCH                               
057497,000538: 11,3304           66375        DIFEQ0            VLOAD    SSP                                   
057498,000539: 11,3305           00755                                   YV                                    
057499,000540: 11,3306           01501                                   DIFEQCNT                              
057500,000541: 11,3307           00000                                   0                                     
057501,000542: 11,3310           16152                          STODL    ALPHAV                                
057502,000543: 11,3311           11762                                   DPZERO                                
057503,000544: 11,3312           02212                          STORE    H                                     #  START H AT ZERO. GOES 0(DELT/2)DELT.
057504,000545: 11,3313           52014                          BON      GOTO                                  
057505,000546: 11,3314           00301                                   JSWITCH                               
057506,000547: 11,3315           23664                                   DOW..                                 
057507,000548: 11,3316           22456                                   ACCOMP                                
057508,000549: 
057509,000550: 11,3317           43020        CHKSWTCH          STQ      BOF                                   
057510,000551: 11,3320           02267                                   ORIGEX                                
057511,000552: 11,3321           04340                                   RPQFLAG                               
057512,000553: 11,3322           23332                                   RPQOK                                 #  MOON POSITION IS AVAILABLE
057513,000554: 11,3323           45145                          DLOAD    CALL                                  
057514,000555: 11,3324           01517                                   TET                                   
057515,000556: 11,3325           54141                                   LUNPOS                                #  GET MOON POSITION
057516,000557: 11,3326           57414                          BOF      VCOMP                                 
057517,000558: 11,3327           00343                                   MOONFLAG                              
057518,000559: 11,3330           23331                                   +1                                    
057519,000560: 11,3331           02262                          STORE    RPQV                                  
057520,000561: 11,3332           77354        RPQOK             LXA,2    VLOAD                                 #  RESTORE X2 AFTER USING LUNPOS
057521,000562: 11,3333           02150                                   PBODY                                 
057522,000563: 11,3334           01521                                   TDELTAV                               #   _
057523,000564: 11,3335           53257                          VSL*     VAD                                   #  |RQC|-RSPHERE WHEN OUTSIDE THE SPHERE.
057524,000565:                                                                                                 # # Page 1345
057525,000566: 11,3336           57605                                   0          -7,2                       #  _   _            _
057526,000567: 11,3337           01535                                   RCV                                   #  R = RDEVIATION + RCONIC
057527,000568: 11,3340           51414                          BOF      ABVAL                                 
057528,000569: 11,3341           00343                                   MOONFLAG                              
057529,000570: 11,3342           23347                                   EARSPH                                
057530,000571: 11,3343           44302                          SR2      BDSU                                  #  INSIDE
057531,000572: 11,3344           27764                                   RSPHERE                               
057532,000573: 11,3345           77650                          GOTO                                           
057533,000574: 11,3346           02267                                   ORIGEX                                
057534,000575: 11,3347           51451        EARSPH            VSU      ABVAL                                 #  OUTSIDE
057535,000576: 11,3350           02262                                   RPQV                                  
057536,000577: 11,3351           52025                          DSU      GOTO                                  
057537,000578: 11,3352           27764                                   RSPHERE                               
057538,000579: 11,3353           02267                                   ORIGEX                                
057539,000580: 11,3354           77624        DOSWITCH          CALL                                           
057540,000581: 11,3355           23360                                   ORIGCHNG                              
057541,000582: 11,3356           77650                          GOTO                                           
057542,000583: 11,3357           23275                                   INTGRATE                              
057543,000584: 11,3360           45020        ORIGCHNG          STQ      CALL                                  
057544,000585: 11,3361           02267                                   ORIGEX                                
057545,000586: 11,3362           23420                                   RECTIFY                               
057546,000587: 11,3363           53775                          VLOAD    VSL*                                  
057547,000588: 11,3364           01535                                   RCV                                   
057548,000589: 11,3365           57576                                   0,2                                   
057549,000590: 11,3366           53651                          VSU      VSL*                                  
057550,000591: 11,3367           02262                                   RPQV                                  
057551,000592: 11,3370           57574                                   2,2                                   
057552,000593: 11,3371           01503                          STORE    RRECT                                 
057553,000594: 11,3372           15535                          STODL    RCV                                   
057554,000595: 11,3373           01517                                   TET                                   
057555,000596: 11,3374           77624                          CALL                                           
057556,000597: 11,3375           54144                                   LUNVEL                                
057557,000598: 11,3376           57414                          BOF      VCOMP                                 
057558,000599: 11,3377           00343                                   MOONFLAG                              
057559,000600: 11,3400           23401                                   +1                                    
057560,000601: 11,3401           53715                          PDVL     VSL*                                  
057561,000602: 11,3402           01543                                   VCV                                   
057562,000603: 11,3403           57576                                   0,2                                   
057563,000604: 11,3404           77651                          VSU                                            
057564,000605: 11,3405           77657                          VSL*                                           
057565,000606: 11,3406           57574                                   0          +2,2                       
057566,000607: 11,3407           01511                          STORE    VRECT                                 
057567,000608: 11,3410           01543                          STORE    VCV                                   
057568,000609: 11,3411           67154                          LXA,2    SXA,2                                 
057569,000610: 11,3412           02267                                   ORIGEX                                
057570,000611: 11,3413           00052                                   QPRET                                 
057571,000612: 11,3414           52014                          BON      GOTO                                  
057572,000613: 11,3415           00303                                   MOONFLAG                              
057573,000614: 11,3416           27011                                   CLRMOON                               
057574,000615: 11,3417           27016                                   SETMOON                               
057575,000616: 
057576,000617:                                                                                                 # # Page 1346
057577,000618: 
057578,000619:                                                                                                 #  THE RECTIFY SUBROUTINE IS CALLED BY THE INTEGRATION PROGRAM AND OCCASIONALLY BY THE MEASUREMENT INCORPORATION
057579,000620:                                                                                                 #  ROUTINES TO ESTABLISH A NEW CONIC.
057580,000621: 
057581,000622: 11,3420           77354        RECTIFY           LXA,2    VLOAD                                 
057582,000623: 11,3421           02150                                   PBODY                                 
057583,000624: 11,3422           01521                                   TDELTAV                               
057584,000625: 11,3423           53257                          VSL*     VAD                                   
057585,000626: 11,3424           57605                                   0          -7,2                       
057586,000627: 11,3425           01535                                   RCV                                   
057587,000628: 11,3426           01503                          STORE    RRECT                                 
057588,000629: 11,3427           25535                          STOVL    RCV                                   
057589,000630: 11,3430           01527                                   TNUV                                  
057590,000631: 11,3431           53257                          VSL*     VAD                                   
057591,000632: 11,3432           57602                                   0          -4,2                       
057592,000633: 11,3433           01543                                   VCV                                   
057593,000634: 11,3434           01511        MINIRECT          STORE    VRECT                                 
057594,000635: 11,3435           25543        TINIRECT          STOVL    VCV                                   
057595,000636: 11,3436           11762                                   ZEROVEC                               
057596,000637: 11,3437           01521                          STORE    TDELTAV                               
057597,000638: 11,3440           15527                          STODL    TNUV                                  
057598,000639: 11,3441           11762                                   ZEROVEC                               
057599,000640: 11,3442           01551                          STORE    TC                                    
057600,000641: 11,3443           01553                          STORE    XKEP                                  
057601,000642: 11,3444           77616                          RVQ                                            
057602,000643: 
057603,000644:                                                                                                 # # Page 1347
057604,000645: 
057605,000646:                                                                                                 #  THE THREE DIFEQ ROUTINES - DIFEQ+0, DIFEQ+12, DIFEQ+24 - ARE ENTERED TO PROCESS THE CONTRIBUTIONS AT THE
057606,000647:                                                                                                 #  BEGINNING, MIDDLE, AND END OF THE TIMESTEP, RESPECTIVELY. THE UPDATING IS DONE BY THE NYSTROM METHOD.
057607,000648: 
057608,000649: 11,3445           64575        DIFEQ+0           VLOAD    VSR3                                  
057609,000650: 11,3446           02202                                   FV                                    
057610,000651: 11,3447           36166                          STCALL   PHIV                                  
057611,000652: 11,3450           23625                                   DIFEQCOM                              
057612,000653: 11,3451           74575        DIFEQ+1           VLOAD    VSR1                                  
057613,000654: 11,3452           02202                                   FV                                    
057614,000655: 11,3453           53206                          PUSH     VAD                                   
057615,000656: 11,3454           02166                                   PHIV                                  
057616,000657: 11,3455           26174                          STOVL    PSIV                                  
057617,000658: 11,3456           53362                          VSR1     VAD                                   
057618,000659: 11,3457           02166                                   PHIV                                  
057619,000660: 11,3460           36166                          STCALL   PHIV                                  
057620,000661: 11,3461           23625                                   DIFEQCOM                              
057621,000662: 11,3462           57345        DIFEQ+2           DLOAD    DMPR                                  
057622,000663: 11,3463           02212                                   H                                     
057623,000664: 11,3464           23771                                   DP2/3                                 
057624,000665: 11,3465           74206                          PUSH     VXSC                                  
057625,000666: 11,3466           02166                                   PHIV                                  
057626,000667: 11,3467           53372                          VSL1     VAD                                   
057627,000668: 11,3470           00763                                   ZV                                    
057628,000669: 11,3471           53361                          VXSC     VAD                                   
057629,000670: 11,3472           02212                                   H                                     
057630,000671: 11,3473           00755                                   YV                                    
057631,000672: 11,3474           24755                          STOVL    YV                                    
057632,000673: 11,3475           02202                                   FV                                    
057633,000674: 11,3476           53322                          VSR3     VAD                                   
057634,000675: 11,3477           02174                                   PSIV                                  
057635,000676: 11,3500           76561                          VXSC     VSL1                                  
057636,000677: 11,3501           77655                          VAD                                            
057637,000678: 11,3502           00763                                   ZV                                    
057638,000679: 11,3503           00763                          STORE    ZV                                    
057639,000680: 11,3504           45014                          BOFF     CALL                                  
057640,000681: 11,3505           00341                                   JSWITCH                               
057641,000682: 11,3506           23556                                   ENDSTATE                              
057642,000683: 11,3507           22327                                   GRP2PC                                
057643,000684: 11,3510           77354                          LXA,2    VLOAD                                 
057644,000685: 11,3511           00770                                   COLREG                                
057645,000686: 11,3512           00763                                   ZV                                    
057646,000687: 11,3513           77732                          VSL3                                           #  ADJUST W-POSITION FOR STORAGE
057647,000688: 11,3514           12467                          STORE    W          +54D,2                     
057648,000689: 11,3515           77775                          VLOAD                                          
057649,000690: 11,3516           00755                                   YV                                    
057650,000691: 11,3517           40132                          VSL3     BOV                                   
057651,000692: 11,3520           23650                                   WMATEND                               
057652,000693: 11,3521           12401                          STORE    W,2                                   
057653,000694: 
057654,000695: 11,3522           77624                          CALL                                           
057655,000696: 11,3523           22327                                   GRP2PC                                
057656,000697:                                                                                                 # # Page 1348
057657,000698: 11,3524           66354                          LXA,2    SSP                                   
057658,000699: 11,3525           00770                                   COLREG                                
057659,000700: 11,3526           00052                                   S2                                    
057660,000701: 11,3527           00000                                   0                                     
057661,000702: 11,3530           67114                          INCR,2   SXA,2                                 
057662,000703: 11,3531           00006                                   6                                     
057663,000704: 11,3532           00754                                   YV                                    
057664,000705: 11,3533           45104                          TIX,2    CALL                                  
057665,000706: 11,3534           23621                                   RELOADSV                              
057666,000707: 11,3535           22327                                   GRP2PC                                
057667,000708: 11,3536           67154                          LXA,2    SXA,2                                 
057668,000709: 11,3537           00754                                   YV                                    
057669,000710: 11,3540           00770                                   COLREG                                
057670,000711: 
057671,000712: 11,3541           77624        NEXTCOL           CALL                                           
057672,000713: 11,3542           22327                                   GRP2PC                                
057673,000714: 11,3543           76754                          LXA,2    VLOAD*                                
057674,000715: 11,3544           00770                                   COLREG                                
057675,000716: 11,3545           75376                                   W,2                                   
057676,000717: 11,3546           77722                          VSR3                                           #  ADJUST W-POSITION FOR INTEGRATION
057677,000718: 11,3547           00755                          STORE    YV                                    
057678,000719: 11,3550           76173                          VLOAD*   AXT,1                                 
057679,000720: 11,3551           75310                                   W          +54D,2                     
057680,000721: 11,3552           00000                                   0                                     
057681,000722: 11,3553           77722                          VSR3                                           #  ADJUST W-VELOCITY FOR INTEGRATION
057682,000723: 11,3554           34763                          STCALL   ZV                                    
057683,000724: 11,3555           23304                                   DIFEQ0                                
057684,000725: 
057685,000726: 11,3556           77200        ENDSTATE          BOV      VLOAD                                 
057686,000727: 11,3557           22726                                   GOBAQUE                               
057687,000728: 11,3560           00763                                   ZV                                    
057688,000729: 11,3561           25527                          STOVL    TNUV                                  
057689,000730: 11,3562           00755                                   YV                                    
057690,000731: 11,3563           01521                          STORE    TDELTAV                               
057691,000732: 11,3564           43014                          BON      BOFF                                  
057692,000733: 11,3565           04715                                   MIDAVFLG                              
057693,000734: 11,3566           27656                                   CKMID2                                #  CHECK FOR MID2 BEFORE GOING TO TIMEINC
057694,000735: 11,3567           01756                                   DIM0FLAG                              
057695,000736: 11,3570           27364                                   TESTLOOP                              
057696,000737: 11,3571           77776                          EXIT                                           
057697,000738: 11,3572           05402                          TC       PHASCHNG                              
057698,000739: 11,3573           04022                          OCT      04022                                 #  PHASE 1
057699,000740: 11,3574           05547                          TC       UPFLAG                                #  PHASE CHANGE HAS OCCURRED BETWEEN
057700,000741: 11,3575           00230                          ADRES    REINTFLG                              #  INTSTALL AND INTWAKE
057701,000742: 11,3576           06006                          TC       INTPRET                               
057702,000743: 11,3577           77731                          SSP                                            
057703,000744: 11,3600           00053                                   QPRET                                 
057704,000745: 11,3601           23606                                   AMOVED                                
057705,000746: 11,3602           52014                          BON      GOTO                                  
057706,000747: 11,3603           01714                                   VINTFLAG                              
057707,000748:                                                                                                 # # Page 1349
057708,000749: 11,3604           26761                                   ATOPCSM                               
057709,000750: 11,3605           27034                                   ATOPLEM                               
057710,000751: 11,3606           66214        AMOVED            SET      SSP                                   
057711,000752: 11,3607           00061                                   JSWITCH                               
057712,000753: 11,3610           00771                                   COLREG                                
057713,000754: 11,3611           77741                          DEC      -30        B-14                       
057714,000755: 11,3612           66214                          BOFF     SSP                                   
057715,000756: 11,3613           01755                                   D6OR9FLG                              
057716,000757: 11,3614           23541                                   NEXTCOL                               
057717,000758: 11,3615           00771                                   COLREG                                
057718,000759: 11,3616           77717                          DEC      -48        B-14                       
057719,000760: 11,3617           77650                          GOTO                                           
057720,000761: 11,3620           23541                                   NEXTCOL                               
057721,000762: 
057722,000763: 
057723,000764: 11,3621           77745        RELOADSV          DLOAD                                          #  RELOAD TEMPORARY STATE VECTOR
057724,000765: 11,3622           00745                                   TDEC                                  #  FROM PERMANENT IN CASE OF
057725,000766: 11,3623           34041                          STCALL   TDEC1                                 
057726,000767: 11,3624           27243                                   INTEGRV2                              #  BY STARTING AT INTEGRV2.
057727,000768: 11,3625           43345        DIFEQCOM          DLOAD    DAD                                   #  INCREMENT H AND DIFEQCNT.
057728,000769: 11,3626           02305                                   DT/2                                  
057729,000770: 11,3627           02212                                   H                                     
057730,000771: 11,3630           66110                          INCR,1   SXA,1                                 
057731,000772: 11,3631           77763                          DEC      -12        B-14                       
057732,000773: 11,3632           01500                                   DIFEQCNT                              #  DIFEQCNT SET FOR NEXT ENTRY.
057733,000774: 11,3633           02212                          STORE    H                                     
057734,000775: 11,3634           74561                          VXSC     VSR1                                  
057735,000776: 11,3635           02202                                   FV                                    
057736,000777: 11,3636           74255                          VAD      VXSC                                  
057737,000778: 11,3637           00763                                   ZV                                    
057738,000779: 11,3640           02212                                   H                                     
057739,000780: 11,3641           77655                          VAD                                            
057740,000781: 11,3642           00755                                   YV                                    
057741,000782: 11,3643           02152                          STORE    ALPHAV                                
057742,000783: 11,3644           52014                          BON      GOTO                                  
057743,000784: 11,3645           00301                                   JSWITCH                               
057744,000785: 11,3646           23664                                   DOW..                                 
057745,000786: 11,3647           22436                                   FBR3                                  
057746,000787: 
057747,000788: 11,3650           43014        WMATEND           CLEAR    CLEAR                                 
057748,000789: 11,3651           01676                                   DIM0FLAG                              #  DONT INTEGRATE W THIS TIME
057749,000790: 11,3652           01671                                   ORBWFLAG                              #  INVALIDATE W
057750,000791: 11,3653           77614                          CLEAR                                          
057751,000792: 11,3654           02676                                   RENDWFLG                              
057752,000793: 11,3655           77414                          SET      EXIT                                  
057753,000794: 11,3656           01472                                   STATEFLG                              #  PICK UP STATE VECTOR UPDATE
057754,000795: 11,3657           05671                          TC       ALARM                                 
057755,000796: 11,3660           00421                          OCT      421                                   
057756,000797: 11,3661           06006                          TC       INTPRET                               
057757,000798:                                                                                                 # # Page 1350
057758,000799: 11,3662           77650                          GOTO                                           
057759,000800: 11,3663           27364                                   TESTLOOP                              #  FINISH INTEGRATING STATE VECTOR
057760,000801: 
057761,000802:                                                                                                 # # Page 1351
057762,000803: 
057763,000804:                                                                                                 #  ORBITAL ROUTINE FOR EXTRAPOLATION OF THE W MATRIX. IT COMPUTES THE SECOND DERIVATIVE OF EACH COLUMN POSITION
057764,000805:                                                                                                 #  VECTOR OF THE MATRIX AND CALLS THE NYSTROM INTEGRATION ROUTINES TO SOLVE THE DIFFERENTIAL EQUATIONS. THE PROGRAM
057765,000806:                                                                                                 #  USES A TABLE OF VEHICLE POSITION VECTORS COMPUTED DURING THE INTEGRATION OF THE VEHICLES POSITION AND VELOCITY.
057766,000807: 
057767,000808: 11,3664           70754        DOW..             LXA,2    DLOAD*                                
057768,000809: 11,3665           02150                                   PBODY                                 
057769,000810: 11,3666           50037                                   MUEARTH,2                             
057770,000811: 11,3667           36210                          STCALL   BETAM                                 
057771,000812: 11,3670           23712                                   DOW..1                                
057772,000813: 11,3671           02202                          STORE    FV                                    
057773,000814: 11,3672           62014                          BOF      INCR,1                                
057774,000815: 11,3673           00342                                   MIDFLAG                               
057775,000816: 11,3674           23212                                   NBRANCH                               
057776,000817: 11,3675           77771                          DEC      -6         B-14                       
057777,000818: 11,3676           70744                          LXC,2    DLOAD*                                
057778,000819: 11,3677           02150                                   PBODY                                 
057779,000820: 11,3700           50041                                   MUEARTH    -2,2                       
057780,000821: 11,3701           36210                          STCALL   BETAM                                 
057781,000822: 11,3702           23712                                   DOW..1                                
057782,000823: 11,3703           50414                          BON      VSR6                                  
057783,000824: 11,3704           00303                                   MOONFLAG                              
057784,000825: 11,3705           23706                                   +1                                    
057785,000826: 11,3706           77655                          VAD                                            
057786,000827: 11,3707           02202                                   FV                                    
057787,000828: 11,3710           36202                          STCALL   FV                                    
057788,000829: 11,3711           23212                                   NBRANCH                               
057789,000830: 11,3712           60575        DOW..1            VLOAD    VSR4                                  
057790,000831: 11,3713           02152                                   ALPHAV                                
057791,000832: 11,3714           53513                          PDVL*    UNIT                                  
057792,000833: 11,3715           02216                                   VECTAB,1                              
057793,000834: 11,3716           46315                          PDVL     VPROJ                                 
057794,000835: 11,3717           02152                                   ALPHAV                                
057795,000836: 11,3720           52361                          VXSC     VSU                                   
057796,000837: 11,3721           23761                                   3/4                                   
057797,000838: 11,3722           60325                          PDDL     NORM                                  
057798,000839: 11,3723           00045                                   36D                                   
057799,000840: 11,3724           00052                                   S2                                    
057800,000841: 11,3725           63406                          PUSH     DSQ                                   
057801,000842: 11,3726           77605                          DMP                                            
057802,000843: 11,3727           65301                          NORM     PDDL                                  
057803,000844: 11,3730           00043                                   34D                                   
057804,000845: 11,3731           02210                                   BETAM                                 
057805,000846: 11,3732           56342                          SR1      DDV                                   
057806,000847: 11,3733           77761                          VXSC                                           
057807,000848: 11,3734           57154                          LXA,2    XAD,2                                 
057808,000849: 11,3735           00051                                   S2                                    
057809,000850: 11,3736           00051                                   S2                                    
057810,000851: 11,3737           57074                          XAD,2    XAD,2                                 
057811,000852: 11,3740           00051                                   S2                                    
057812,000853: 11,3741           00042                                   34D                                   
057813,000854: 11,3742           43457                          VSL*     RVQ                                   
057814,000855:                                                                                                 # # Page 1352
057815,000856: 11,3743           57606                                   0          -8D,2                      
057816,000857: 
057817,000858: 11,2000                                          SETLOC   ORBITAL1                              
057818,000859: 11,2000                                          BANK                                           
057819,000860: 
057820,000861: 11,3744                                          COUNT*   $$/ORBIT                              
057821,000862: 11,3744           04631 23146  3/5               2DEC     .6         B-2                        
057822,000863: 
057823,000864: 11,3746           14000 00000  THREE/8           2DEC     .375                                  
057824,000865: 
057825,000866: 11,3750           02314 31463  .3D               2DEC     .3         B-2                        
057826,000867: 
057827,000868: 11,3752           01400 00000  3/64              2DEC     3          B-6                        
057828,000869: 
057829,000870: 11,3754  15,3411               DP1/4             =        D1/4                                  #  1 B-2
057830,000871: 11,3754  15,3411               DQUARTER          EQUALS   DP1/4                                 
057831,000872: 11,3754           03000 00000  3/32              2DEC     3          B-5                        
057832,000873: 
057833,000874: 11,3756           36000 00000  15/16             2DEC     15.        B-4                        
057834,000875: 
057835,000876: 11,3760           30000 00000  3/4               2DEC     3.0        B-2                        
057836,000877: 
057837,000878: 11,3762           22525 12525  7/12              2DEC     .5833333333                            
057838,000879: 
057839,000880: 11,3764           22000 00000  9/16              2DEC     9          B-4                        
057840,000881: 
057841,000882: 11,3766           01200 00000  5/128             2DEC     5          B-7                        
057842,000883: 
057843,000884: 11,3770  04,3761               DPZERO            EQUALS   ZEROVEC                               
057844,000885: 11,3770           25252 25253  DP2/3             2DEC     .6666666667                            
057845,000886: 
057846,000887: 11,3772  11,3770               2/3               EQUALS   DP2/3                                 
057847,000888: 
057848,000889: 13,2000                                          SETLOC   ORBITAL2                              
057849,000890: 13,2000                                          BANK                                           
057850,000891: 13,3717                                          COUNT*   $$/ORBIT                              
057851,000892:                                                                                                 #  IT IS VITAL THAT THE FOLLOWING CONSTANTS NOT BE SHUFFLED
057852,000893: 13,3717           77764                          DEC      -11        B-14                       
057853,000894: 13,3720           77775                          DEC      -2         B-14                       
057854,000895: 13,3721           77766                          DEC      -9         B-14                       
057855,000896: 13,3722           77771                          DEC      -6         B-14                       
057856,000897: 13,3723           77775                          DEC      -2         B-14                       
057857,000898: 13,3724           77775                          DEC      -2         B-14                       
057858,000899: 13,3725           00000                          DEC      0          B-14                       
057859,000900: 13,3726           77763                          DEC      -12        B-14                       
057860,000901: 13,3727           77766                          DEC      -9         B-14                       
057861,000902: 13,3730           77773                          DEC      -4         B-14                       
057862,000903: 13,3731           77770        ASCALE            DEC      -7         B-14                       
057863,000904: 13,3732           77771                          DEC      -6         B-14                       
057864,000905: 13,3733           27446 14620                    2DEC*    1.32715445 E16        B-54*           #  S
057865,000906: 
057866,000907:                                                                                                 # # Page 1353
057867,000908: 13,3735           16471 01352                    2DEC*    4.9027780  E8         B-30*           #  M
057868,000909: 
057869,000910: 13,3737           22437 16067  MUEARTH           2DEC*    3.986032   E10        B-36*           
057870,000911: 
057871,000912: 13,3741           00000 00000                    2DEC     0          B-28                       
057872,000913: 
057873,000914: 13,3743           02302 24736  J4REQ/J3          2DEC*    .4991607391 E7         B-26*           
057874,000915: 
057875,000916: 13,3745           77651 76237                    2DEC     -176236.02 B-25                       
057876,000917: 
057877,000918: 13,3747           77776 53032  2J3RE/J2          2DEC*    -.1355426363 E5         B-27*           
057878,000919: 
057879,000920: 13,3751           10407 05344                    2DEC*    .3067493316 E18        B-60*           
057880,000921: 
057881,000922: 13,3753           13710 35320  J2REQSQ           2DEC*    1.75501139 E21        B-72*           
057882,000923: 
057883,000924: 13,3755           24000 00000  5/8               2DEC     5          B-3                        
057884,000925: 
057885,000926: 13,3757           74631 63145  -1/12             2DEC     -.1                                   
057886,000927: 
057887,000928: 13,3761  13,3735               MUM               =        MUEARTH    -2                         
057888,000929: 13,3761           00243 32703  RECRATIO          2DEC     .01                                   
057889,000930: 
057890,000931: 13,3763           03654 21000  RSPHERE           2DEC     64373.76   E3         B-29            
057891,000932: 
057892,000933: 13,3765           03654 21000  RDM               2DEC     16093.44   E3         B-27            
057893,000934: 
057894,000935: 13,3767           04627 25200  RDE               2DEC     80467.20   E3         B-29            
057895,000936: 
057896,000937: 13,3771                        RATT              EQUALS   00                                    
057897,000938: 13,3771                        VATT              EQUALS   6D                                    
057898,000939: 13,3771                        TAT               EQUALS   12D                                   
057899,000940: 13,3771                        RATT1             EQUALS   14D                                   
057900,000941: 13,3771                        VATT1             EQUALS   20D                                   
057901,000942: 13,3771                        MU(P)             EQUALS   26D                                   
057902,000943: 13,3771                        TDEC1             EQUALS   32D                                   
057903,000944: 13,3771                        URPV              EQUALS   14D                                   
057904,000945: 13,3771  0000022               COSPHI/2          EQUALS   URPV       +4                         
057905,000946: 13,3771                        UZ                EQUALS   20D                                   
057906,000947: 13,3771                        TVEC              EQUALS   26D                                   

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