Source Code

This is the source-code for the Apollo 9 Command Module's Guidance Computer. These files were derived originally from the scan from MIT's Dibner Institute's now-discontinued website titled "History of Recent Science and Technology", which in turn was originally created by Gary Neff, though his high-quality scans were unfortunately reduced in legibility when presented online. The markings on the front of the printout imply that it was the original AGC developer Norm Brodeur's copy. A scan by Ron Burkey has superceded it, made from a more-legible copy from the collection of original AGC developer Fred Martin. The source code was transcribed from those images by Ron Burkey. Note that the page images presented online are of reduced quality, and that higher-quality images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041
	20'35 OCT. 28,1968
Note that the date is the date of the printout, not the date of the program revision.

056999,000002:                                                                                                  ## Copyright:   Public domain.
057000,000003:                                                                                                  ## Filename:    ORBITAL_INTEGRATION.agc
057001,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus, build 249.
057002,000005:                                                                                                  ##              It is part of the source code for the Command Module's (CM)
057003,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 9.
057004,000007:                                                                                                  ## Assembler:   yaYUL
057005,000008:                                                                                                  ## Reference:   p. 1302
057006,000009:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
057007,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo.
057008,000011:                                                                                                  ## Mod history: 08/29/04 RSB.   Began adapting from correspoinding Luminary131 file.
057009,000012:                                                                                                  ##              2017-01-06 RSB  Page numbers now agree with those on the
057010,000013:                                                                                                  ##                              original harcopy, as opposed to the PDF page
057011,000014:                                                                                                  ##                              numbers in 1701.pdf.
057012,000015:                                                                                                  ##              2017-01-15 RSB  Cross-diff'd comment text (not whitespace)
057013,000016:                                                                                                  ##                              vs the already-proofed corresponding Colossus
057014,000017:                                                                                                  ##                              237 and Comanche 55 source-code files
057015,000018:                                                                                                  ##                              and corrected errors found.  The comment-text
057016,000019:                                                                                                  ##                              ended up being identical to Colossus 237, but 
057017,000020:                                                                                                  ##                              differing from Comanche 55.
057018,000021:                                                                                                  ##
057019,000022:                                                                                                  ## The contents of the "Colossus249" files, in general, are transcribed 
057020,000023:                                                                                                  ## from a scanned copy of the program listing.  Notations on this
057021,000024:                                                                                                  ## document read, in part:
057022,000025:                                                                                                  ##
057023,000026:                                                                                                  ##      Assemble revision 249 of AGC program Colossus by NASA
057024,000027:                                                                                                  ##      2021111-041.  October 28, 1968.  
057025,000028:                                                                                                  ##
057026,000029:                                                                                                  ##      This AGC program shall also be referred to as
057027,000030:                                                                                                  ##                              Colossus 1A
057028,000031:                                                                                                  ##
057029,000032:                                                                                                  ##      Prepared by
057030,000033:                                                                                                  ##                      Massachusetts Institute of Technology
057031,000034:                                                                                                  ##                      75 Cambridge Parkway
057032,000035:                                                                                                  ##                      Cambridge, Massachusetts
057033,000036:                                                                                                  ##      under NASA contract NAS 9-4065.
057034,000037:                                                                                                  ##
057035,000038:                                                                                                  ## Refer directly to the online document mentioned above for further information.
057036,000039:                                                                                                  ## Please report any errors (relative to the scanned pages) to info@sandroid.org.
057037,000040:                                                                                                  ##
057038,000041:                                                                                                  ## In some cases, where the source code for Luminary 131 overlaps that of 
057039,000042:                                                                                                  ## Colossus 249, this code is instead copied from the corresponding Luminary 131
057040,000043:                                                                                                  ## source file, and then is proofed to incorporate any changes.
057041,000044: 

Page 1302

057043,000046:                                                                                                  #  DELETE
057044,000047: 13,3715                                           BANK     13                                    
057045,000048: 11,2000                                           SETLOC   ORBITAL                               
057046,000049: 11,2000                                           BANK                                           
057047,000050: 11,2310                                           COUNT    11/ORBIT                              
057048,000051: 
057049,000052:                                                                                                  #  DELETE
057050,000053: 11,2310           40354        KEPPREP            LXA,2    SETPD                                 
057051,000054: 11,2311           02150                                    PBODY                                 
057052,000055: 11,2312           00001                                    0                                     
057053,000056: 11,2313           75543                           DLOAD*   SQRT                                  #  SQRT(MU) (+18 OR +15)         0D      PL 2D
057054,000057: 11,2314           50041                                    MUEARTH,2                             
057055,000058: 11,2315           53515                           PDVL     UNIT                                  #                                        PL 8D
057056,000059: 11,2316           01535                                    RCV                                   
057057,000060: 11,2317           60325                           PDDL     NORM                                  #  NORM R (+29 OR +27 - N1)      2D      PL 4D
057058,000061: 11,2320           00045                                    36D                                   
057059,000062: 11,2321           00047                                    X1                                    
057060,000063: 11,2322           77715                           PDVL                                           
057061,000064: 11,2323           65241                           DOT      PDDL                                  #  F*SQRT(MU) (+7 OR +5)         4D      PL 6D
057062,000065: 11,2324           01543                                    VCV                                   
057063,000066: 11,2325           02312                                    TAU.                                  #  (+28)
057064,000067: 11,2326           60225                           DSU      NORM                                  
057065,000068: 11,2327           01551                                    TC                                    
057066,000069: 11,2330           00051                                    S1                                    
057067,000070: 11,2331           77742                           SR1                                            
057068,000071: 11,2332           65271                           DDV      PDDL                                  
057069,000072: 11,2333           00003                                    2D                                    
057070,000073: 11,2334           41405                           DMP      PUSH                                  #  FS (+6 +N1-N2)                6D      PL 8D
057071,000074: 11,2335           00005                                    4D                                    
057072,000075: 11,2336           65316                           DSQ      PDDL                                  #  (FS)SQ (+12 +2(N1-N2))        8D      PL 10D
057073,000076: 11,2337           00005                                    4D                                    
057074,000077: 11,2340           64716                           DSQ      PDDL*                                 #  SSQ/MU (-2OR +2(N1-N2))       10D     PL 12D
057075,000078: 11,2341           50041                                    MUEARTH,2                             
057076,000079: 11,2342           40442                           SR3      SR4                                   
057077,000080: 11,2343           47515                           PDVL     VSQ                                   #  PREALIGN MU (+43 OR +37)      12D     PL 14D
057078,000081: 11,2344           01543                                    VCV                                   
057079,000082: 11,2345           44205                           DMP      BDSU                                  #                                        PL 12D
057080,000083: 11,2346           00045                                    36D                                   
057081,000084: 11,2347           41271                           DDV      DMP                                   #                                        PL 10D
057082,000085: 11,2350           00003                                    2D                                    #  -(1/R-ALPHA) (+12 +3N1-2N2)
057083,000086: 11,2351           53605                           DMP      SL*                                   
057084,000087: 11,2352           23717                                    DP2/3                                 
057085,000088: 11,2353           20176                                    0          -3,1                       #  10L(1/R-ALPHA) (+13 +2(N1-N2))
057086,000089: 11,2354           43260                           XSU,1    DAD                                   #  2(FS)SQ - ETCETRA                     PL 8D
057087,000090: 11,2355           00050                                    S1                                    #  X1 = N2-N1
057088,000091: 11,2356           45257                           SL*      DSU                                   #  -FS+2(FS)SQ ETC (+6 +N1-N2)           PL 6D
057089,000092: 11,2357           20211                                    8D,1                                  
057090,000093: 11,2360           41205                           DMP      DMP                                   
057091,000094: 11,2361           00001                                    0D                                    
057092,000095: 11,2362           00005                                    4D                                    
057093,000096: 11,2363           53657                           SL*      SL*                                   

Page 1303

057095,000098: 11,2364           20211                                    8D,1                                  
057096,000099: 11,2365           20201                                    0,1                                   #  S(-FS(1-2FS)-1/6...) (+17 OR +16)
057097,000100: 11,2366           65215                           DAD      PDDL                                  #                                        PL 6D
057098,000101: 11,2367           01553                                    XKEP                                  
057099,000102: 11,2370           53605                           DMP      SL*                                   #  S(+17 OR +16)
057100,000103: 11,2371           00001                                    0D                                    
057101,000104: 11,2372           20202                                    1,1                                   
057102,000105: 11,2373           43204                           BOVB     DAD                                   
057103,000106: 11,2374           57343                                    TCDANZIG                              
057104,000107: 11,2375           77626                           STADR                                          
057105,000108: 11,2376           75471                           STORE    XKEPNEW                               
057106,000109: 11,2377           74020                           STQ      AXC,1                                 
057107,000110: 11,2400           02270                                    KEPRTN                                
057108,000111: 11,2401           00012                           DEC      10         B-14                       
057109,000112: 11,2402           74014                           BON      AXC,1                                 
057110,000113: 11,2403           00303                                    MOONFLAG                              
057111,000114: 11,2404           24000                                    KEPLERN                               
057112,000115: 11,2405           00002                           DEC      2          B-14                       
057113,000116: 11,2406           77650                           GOTO                                           
057114,000117: 11,2407           24000                                    KEPLERN                               
057115,000118: 

Page 1304

057117,000120: 11,2410           66350        FBR3               LXA,1    SSP                                   
057118,000121: 11,2411           01500                                    DIFEQCNT                              
057119,000122: 11,2412           00051                                    S1                                    
057120,000123: 11,2413           77762                           DEC      -13        B-14                       
057121,000124: 11,2414           54345                           DLOAD    SR                                    
057122,000125: 11,2415           02314                                    DT/2                                  
057123,000126: 11,2416           20612                                    9D                                    
057124,000127: 11,2417           61500                           TIX,1    ROUND                                 
057125,000128: 11,2420           22421                                    +1                                    
057126,000129: 11,2421           43206                           PUSH     DAD                                   
057127,000130: 11,2422           01551                                    TC                                    
057128,000131: 11,2423           16312                           STODL    TAU.                                  
057129,000132: 11,2424           77615                           DAD                                            
057130,000133: 11,2425           01517                                    TET                                   
057131,000134: 11,2426           35517                           STCALL   TET                                   
057132,000135: 11,2427           22310                                    KEPPREP                               
057133,000136: 

Page 1305

057135,000138:                                                                                                  #  AGC ROUTINE TO COMPUTE ACCELERATION COMPONENTS.
057136,000139: 
057137,000140: 11,2430           73150        ACCOMP             LXA,1    LXA,2                                 
057138,000141: 11,2431           02150                                    PBODY                                 
057139,000142: 11,2432           02150                                    PBODY                                 
057140,000143: 11,2433           77775                           VLOAD                                          
057141,000144: 11,2434           11456                                    ZEROVEC                               
057142,000145: 11,2435           26202                           STOVL    FV                                    
057143,000146: 11,2436           02152                                    ALPHAV                                
057144,000147: 11,2437           53257                           VSL*     VAD                                   
057145,000148: 11,2440           57605                                    0          -7,2                       
057146,000149: 11,2441           01535                                    RCV                                   
057147,000150: 11,2442           02160                           STORE    BETAV                                 
057148,000151: 11,2443           65014                           BOF      XCHX,2                                
057149,000152: 11,2444           01756                                    DIM0FLAG                              
057150,000153: 11,2445           22452                                    +5                                    
057151,000154: 11,2446           01500                                    DIFEQCNT                              
057152,000155: 11,2447           12217                           STORE    VECTAB,2                              
057153,000156: 11,2450           77724                           XCHX,2                                         
057154,000157: 11,2451           01500                                    DIFEQCNT                              
057155,000158: 11,2452           53575                           VLOAD    UNIT                                  
057156,000159: 11,2453           02152                                    ALPHAV                                
057157,000160: 11,2454           16152                           STODL    ALPHAV                                
057158,000161: 11,2455           00045                                    36D                                   
057159,000162: 11,2456           02310                           STORE    ALPHAM                                
057160,000163: 11,2457           77624                           CALL                                           
057161,000164: 11,2460           22562                                    GAMCOMP                               
057162,000165: 11,2461           66175                           VLOAD    SXA,1                                 
057163,000166: 11,2462           02160                                    BETAV                                 
057164,000167: 11,2463           00051                                    S2                                    
057165,000168: 11,2464           16152                           STODL    ALPHAV                                
057166,000169: 11,2465           02210                                    BETAM                                 
057167,000170: 11,2466           02310                           STORE    ALPHAM                                
057168,000171: 11,2467           71214                           BOF      DLOAD                                 
057169,000172: 11,2470           00342                                    MIDFLAG                               
057170,000173: 11,2471           22725                                    OBLATE                                
057171,000174: 11,2472           01517                                    TET                                   
057172,000175: 11,2473           77624                           CALL                                           
057173,000176: 11,2474           54110                                    LSPOS                                 
057174,000177: 11,2475           72174                           AXT,2    LXA,1                                 
057175,000178: 11,2476           00002                                    2                                     
057176,000179: 11,2477           00051                                    S2                                    
057177,000180: 11,2500           77614                           BOF                                            
057178,000181: 11,2501           00343                                    MOONFLAG                              
057179,000182: 11,2502           22505                                    +3                                    
057180,000183: 11,2503           77076                           VCOMP    AXT,2                                 
057181,000184: 11,2504           00000                                    0                                     
057182,000185: 11,2505           02160                           STORE    BETAV                                 
057183,000186: 11,2506           26263                           STOVL    RPQV                                  

Page 1306

057185,000188: 11,2507           00003                                    2D                                    
057186,000189: 11,2510           02300                           STORE    RPSV                                  
057187,000190: 11,2511           45335                           SLOAD    DSU                                   
057188,000191: 11,2512           01012                                    MODREG                                
057189,000192: 11,2513           23721                                    OCT27                                 
057190,000193: 11,2514           43030                           BHIZ     BOF                                   
057191,000194: 11,2515           22520                                    +3                                    
057192,000195: 11,2516           01756                                    DIM0FLAG                              
057193,000196: 11,2517           22534                                    GETRPSV                               
057194,000197: 11,2520           74375                           VLOAD    VXSC                                  
057195,000198: 11,2521           02152                                    ALPHAV                                
057196,000199: 11,2522           02310                                    ALPHAM                                
057197,000200: 11,2523           52257                           VSR*     VSU                                   
057198,000201: 11,2524           57175                                    1,2                                   
057199,000202: 11,2525           02160                                    BETAV                                 
057200,000203: 11,2526           77724                           XCHX,2                                         
057201,000204: 11,2527           01500                                    DIFEQCNT                              
057202,000205: 11,2530           12225                           STORE    VECTAB     +6,2                       
057203,000206: 11,2531           02272                           STORE    RQVV                                  
057204,000207: 11,2532           77724                           XCHX,2                                         
057205,000208: 11,2533           01500                                    DIFEQCNT                              
057206,000209: 11,2534           62175        GETRPSV            VLOAD    INCR,1                                
057207,000210: 11,2535           02263                                    RPQV                                  
057208,000211: 11,2536           00004                                    4                                     
057209,000212: 11,2537           43014                           CLEAR    BOF                                   
057210,000213: 11,2540           04260                                    RPQFLAG                               
057211,000214: 11,2541           00343                                    MOONFLAG                              
057212,000215: 11,2542           22547                                    +5                                    
057213,000216: 11,2543           53261                           VSR      VAD                                   
057214,000217: 11,2544           20612                                    9D                                    
057215,000218: 11,2545           02300                                    RPSV                                  
057216,000219: 11,2546           02300                           STORE    RPSV                                  
057217,000220: 11,2547           77624                           CALL                                           
057218,000221: 11,2550           22562                                    GAMCOMP                               
057219,000222: 11,2551           62174                           AXT,2    INCR,1                                
057220,000223: 11,2552           00004                                    4                                     
057221,000224: 11,2553           00004                                    4                                     
057222,000225: 11,2554           77775                           VLOAD                                          
057223,000226: 11,2555           02300                                    RPSV                                  
057224,000227: 11,2556           36160                           STCALL   BETAV                                 
057225,000228: 11,2557           22562                                    GAMCOMP                               
057226,000229: 11,2560           77650                           GOTO                                           
057227,000230: 11,2561           22725                                    OBLATE                                
057228,000231: 11,2562           74575        GAMCOMP            VLOAD    VSR1                                  
057229,000232: 11,2563           02160                                    BETAV                                 
057230,000233: 11,2564           40236                           VSQ      SETPD                                 
057231,000234: 11,2565           00001                                    0                                     
057232,000235: 11,2566           61501                           NORM     ROUND                                 
057233,000236: 11,2567           00040                                    31D                                   
057234,000237: 11,2570           60325                           PDDL     NORM                                  #  NORMED B SQUARED TO PD LIST

Page 1307

057236,000239: 11,2571           02310                                    ALPHAM                                #  NORMALIZE (LESS ONE) LENGTH OF ALPHA
057237,000240: 11,2572           00041                                    32D                                   #  SAVING NORM SCALE FACTOR IN X1
057238,000241: 11,2573           63342                           SR1      PDVL                                  
057239,000242: 11,2574           02160                                    BETAV                                 #  C(PDL+2) = ALMOST NORMED ALPHA
057240,000243: 11,2575           77656                           UNIT                                           
057241,000244: 11,2576           16160                           STODL    BETAV                                 
057242,000245: 11,2577           00045                                    36D                                   
057243,000246: 11,2600           02210                           STORE    BETAM                                 
057244,000247: 11,2601           55301                           NORM     BDDV                                  #  FORM NORMALIZED QUOTIENT ALPHAM/BETAM
057245,000248: 11,2602           00042                                    33D                                   
057246,000249: 11,2603           41562                           SR1R     PUSH                                  #  C(PDL+2) = ALMOST NORMALIZED RHO.
057247,000250: 11,2604           77743                           DLOAD*                                         
057248,000251: 11,2605           27730                                    ASCALE,1                              
057249,000252: 11,2606           00051                           STORE    S1                                    
057250,000253: 11,2607           57124                           XCHX,2   XAD,2                                 
057251,000254: 11,2610           00050                                    S1                                    
057252,000255: 11,2611           00040                                    32D                                   
057253,000256: 11,2612           71264                           XSU,2    DLOAD                                 
057254,000257: 11,2613           00041                                    33D                                   
057255,000258: 11,2614           00003                                    2D                                    
057256,000259: 11,2615           65057                           SR*      XCHX,2                                
057257,000260: 11,2616           57177                                    0          -1,2                       
057258,000261: 11,2617           00050                                    S1                                    
057259,000262: 11,2620           74406                           PUSH     SR1R                                  #  RHO/4 TO 4D
057260,000263: 11,2621           50315                           PDVL     DOT                                   
057261,000264: 11,2622           02152                                    ALPHAV                                
057262,000265: 11,2623           02160                                    BETAV                                 
057263,000266: 11,2624           44372                           SL1R     BDSU                                  #  (RHO/4) - 2(ALPHAV/2.BETAV/2)
057264,000267: 11,2625           57206                           PUSH     DMPR                                  #  TO PDL+6
057265,000268: 11,2626           00005                                    4                                     
057266,000269: 11,2627           77752                           SL1                                            
057267,000270: 11,2630           43206                           PUSH     DAD                                   
057268,000271: 11,2631           23701                                    DQUARTER                              
057269,000272: 11,2632           75406                           PUSH     SQRT                                  
057270,000273: 11,2633           41475                           DMPR     PUSH                                  
057271,000274: 11,2634           00013                                    10D                                   
057272,000275: 11,2635           43352                           SL1      DAD                                   
057273,000276: 11,2636           23701                                    DQUARTER                              
057274,000277: 11,2637           43325                           PDDL     DAD                                   #  (1/4)+2((Q+1)/4)      TO PD+14D
057275,000278: 11,2640           00013                                    10D                                   
057276,000279: 11,2641           11454                                    HALFDP                                
057277,000280: 11,2642           72475                           DMPR     SL1                                   
057278,000281: 11,2643           00011                                    8D                                    
057279,000282: 11,2644           56215                           DAD      DDV                                   
057280,000283: 11,2645           23673                                    THREE/8                               
057281,000284: 11,2646           00017                                    14D                                   
057282,000285: 11,2647           74275                           DMPR     VXSC                                  
057283,000286: 11,2650           00007                                    6                                     
057284,000287: 11,2651           02160                                    BETAV                                 #                -
057285,000288: 11,2652           64515                           PDVL     VSR3                                  #  (G/2)(C(PD+4))B/2 TO PD+16D

Page 1308

057287,000290: 11,2653           02152                                    ALPHAV                                
057288,000291: 11,2654           41455                           VAD      PUSH                                  #  A12 + C(PD+16D) TO PD+16D
057289,000292: 11,2655           41345                           DLOAD    DMP                                   
057290,000293: 11,2656           00001                                    0                                     
057291,000294: 11,2657           00015                                    12D                                   #  -
057292,000295: 11,2660           61501                           NORM     ROUND                                 
057293,000296: 11,2661           00037                                    30D                                   
057294,000297: 11,2662           40665                           BDDV     DMP*                                  
057295,000298: 11,2663           00003                                    2                                     
057296,000299: 11,2664           50041                                    MUEARTH,2                             
057297,000300: 11,2665           74276                           DCOMP    VXSC                                  
057298,000301: 11,2666           57124                           XCHX,2   XAD,2                                 
057299,000302: 11,2667           00050                                    S1                                    
057300,000303: 11,2670           00051                                    S2                                    
057301,000304: 11,2671           55064                           XSU,2    XSU,2                                 
057302,000305: 11,2672           00036                                    30D                                   
057303,000306: 11,2673           00037                                    31D                                   
057304,000307: 11,2674           77600                           BOV                                            #  CLEAR OVIND
057305,000308: 11,2675           22676                                    +1                                    
057306,000309: 11,2676           65057                           VSR*     XCHX,2                                
057307,000310: 11,2677           57177                                    0          -1,2                       
057308,000311: 11,2700           00050                                    S1                                    
057309,000312: 11,2701           77655                           VAD                                            
057310,000313: 11,2702           02202                                    FV                                    
057311,000314: 11,2703           02202                           STORE    FV                                    
057312,000315: 11,2704           43400                           BOV      RVQ                                   #  RETURN IF NO OVERFLOW
057313,000316: 11,2705           22706                                    +1                                    
057314,000317: 11,2706           54345        GOBAQUE            DLOAD    SR                                    
057315,000318: 11,2707           02212                                    H                                     
057316,000319: 11,2710           20612                                    9D                                    
057317,000320: 11,2711           44206                           PUSH     BDSU                                  
057318,000321: 11,2712           01551                                    TC                                    
057319,000322: 11,2713           16312                           STODL    TAU.                                  
057320,000323: 11,2714           01517                                    TET                                   
057321,000324: 11,2715           45425                           DSU      STADR                                 
057322,000325: 11,2716           42260                           STCALL   TET                                   
057323,000326: 11,2717           22310                                    KEPPREP                               
057324,000327: 11,2720           77624                           CALL                                           
057325,000328: 11,2721           23344                                    RECTIFY                               
057326,000329: 11,2722           77614                           SETGO                                          
057327,000330: 11,2723           04020                                    RPQFLAG                               
057328,000331: 11,2724           27234                                    TESTLOOP                              
057329,000332: 

Page 1309

057331,000334:                                                                                                  #  THE OBLATE ROUTINE COMPUTES THE ACCELERATION DUE TO OBLATENESS.  IT USES THE UNIT OF THE VEHICLE
057332,000335:                                                                                                  #  POSITION VECTOR FOUND IN ALPHAV AND THE DISTANCE TO THE CENTER IN ALPHAM.  THIS IS ADDED TO THE SUM OF THE
057333,000336:                                                                                                  #  DISTURBING ACCELERATIONS IN FV AND THE PROPER DIFEQ STAGE IS CALLED VIA X1.
057334,000337: 
057335,000338: 11,2725           71354        OBLATE             LXA,2    DLOAD                                 
057336,000339: 11,2726           02150                                    PBODY                                 
057337,000340: 11,2727           02310                                    ALPHAM                                
057338,000341: 11,2730           44601                           SETPD    DSU*                                  
057339,000342: 11,2731           00001                                    0                                     
057340,000343: 11,2732           50007                                    RDE,2                                 
057341,000344: 11,2733           43044                           BPL      BOF                                   #  GET URPV
057342,000345: 11,2734           23135                                    NBRANCH                               
057343,000346: 11,2735           00343                                    MOONFLAG                              
057344,000347: 11,2736           23144                                    COSPHIE                               
057345,000348: 11,2737           65375                           VLOAD    PDDL                                  
057346,000349: 11,2740           02152                                    ALPHAV                                
057347,000350: 11,2741           01517                                    TET                                   
057348,000351: 11,2742           45125                           PDDL     CALL                                  
057349,000352: 11,2743           23671                                    3/5                                   
057350,000353: 11,2744           55366                                    R-TO-RP                               
057351,000354: 11,2745           00017                           STORE    URPV                                  
057352,000355: 11,2746           47375                           VLOAD    VXV                                   
057353,000356: 11,2747           02012                                    504LM                                 
057354,000357: 11,2750           11450                                    ZUNIT                                 
057355,000358: 11,2751           61255                           VAD      VXM                                   
057356,000359: 11,2752           11450                                    ZUNIT                                 
057357,000360: 11,2753           00025                                    MMATRIX                               
057358,000361: 11,2754           77656                           UNIT                                           #  POSSIBLY UNNECESSARY
057359,000362: 11,2755           00025        COMTERM            STORE    UZ                                    
057360,000363: 11,2756           57345                           DLOAD    DMPR                                  
057361,000364: 11,2757           00023                                    COSPHI/2                              
057362,000365: 11,2760           23703                                    3/32                                  
057363,000366: 11,2761           63525                           PDDL     DSQ                                   #  P2/64 TO PD0
057364,000367: 11,2762           00023                                    COSPHI/2                              
057365,000368: 11,2763           45275                           DMPR     DSU                                   
057366,000369: 11,2764           23705                                    15/16                                 
057367,000370: 11,2765           23677                                    3/64                                  
057368,000371: 11,2766           57206                           PUSH     DMPR                                  #  P3/32 TO PD2
057369,000372: 11,2767           00023                                    COSPHI/2                              
057370,000373: 11,2770           76405                           DMP      SL1R                                  
057371,000374: 11,2771           23711                                    7/12                                  
057372,000375: 11,2772           57325                           PDDL     DMPR                                  
057373,000376: 11,2773           00001                                    0                                     
057374,000377: 11,2774           23717                                    2/3                                   
057375,000378: 11,2775           41421                           BDSU     PUSH                                  #  P4/128 TO PD4
057376,000379: 11,2776           57275                           DMPR     DMPR                                  
057377,000380: 11,2777           00023                                    COSPHI/2                              #  BEGIN COMPUTING P5/1024
057378,000381: 11,3000           23713                                    9/16                                  
057379,000382: 11,3001           57325                           PDDL     DMPR                                  
057380,000383: 11,3002           00003                                    2                                     
057381,000384: 11,3003           23715                                    5/128                                 

Page 1310

057383,000386: 11,3004           77621                           BDSU                                           
057384,000387: 11,3005           77603                           DMP*                                           
057385,000388: 11,3006           50035                                    J4REQ/J3,2                            
057386,000389: 11,3007           43271                           DDV      DAD                                   #               -3
057387,000390: 11,3010           02310                                    ALPHAM                                #  (((P5/256)B 2  /R+P4/32)  /R+P3/8)ALPHAV
057388,000391: 11,3011           00005                                    4                                     #             4             3
057389,000392: 11,3012           56273                           DMPR*    DDV                                   
057390,000393: 11,3013           50031                                    2J3RE/J2,2                            
057391,000394: 11,3014           02310                                    ALPHAM                                
057392,000395: 11,3015           74215                           DAD      VXSC                                  
057393,000396: 11,3016           00003                                    2                                     
057394,000397: 11,3017           02152                                    ALPHAV                                
057395,000398: 11,3020           14033                           STODL    TVEC                                  
057396,000399: 11,3021           70403                           DMP*     SR1                                   
057397,000400: 11,3022           50035                                    J4REQ/J3,2                            
057398,000401: 11,3023           43271                           DDV      DAD                                   
057399,000402: 11,3024           02310                                    ALPHAM                                #                 -3
057400,000403: 11,3025           50473                           DMPR*    SR3                                   
057401,000404: 11,3026           50031                                    2J3RE/J2,2                            #     3         4
057402,000405: 11,3027           43271                           DDV      DAD                                   
057403,000406: 11,3030           02310                                    ALPHAM                                
057404,000407: 11,3031           76561                           VXSC     VSL1                                  
057405,000408: 11,3032           00025                                    UZ                                    
057406,000409: 11,3033           77645                           BVSU                                           
057407,000410: 11,3034           00033                                    TVEC                                  
057408,000411: 11,3035           14033                           STODL    TVEC                                  
057409,000412: 11,3036           02310                                    ALPHAM                                
057410,000413: 11,3037           63501                           NORM     DSQ                                   
057411,000414: 11,3040           00047                                    X1                                    
057412,000415: 11,3041           60316                           DSQ      NORM                                  
057413,000416: 11,3042           00051                                    S1                                    #          4
057414,000417: 11,3043           54606                           PUSH     BDDV*                                 #  NORMED R  TO 0D
057415,000418: 11,3044           50025                                    J2REQSQ,2                             
057416,000419: 11,3045           77761                           VXSC                                           
057417,000420: 11,3046           00033                                    TVEC                                  
057418,000421: 11,3047           00033                           STORE    TVEC                                  
057419,000422: 11,3050           56070                           XAD,1    XAD,1                                 
057420,000423: 11,3051           00046                                    X1                                    
057421,000424: 11,3052           00046                                    X1                                    
057422,000425: 11,3053           43070                           XAD,1    BOF                                   
057423,000426: 11,3054           00050                                    S1                                    
057424,000427: 11,3055           00343                                    MOONFLAG                              
057425,000428: 11,3056           23125                                    NBRANCH1                              
057426,000429: 11,3057           63545                           DLOAD    DSQ                                   #   2
057427,000430: 11,3060           00017                                    URPV                                  #  X  B-2 TO 2D
057428,000431: 11,3061           63525                           PDDL     DSQ                                   
057429,000432: 11,3062           00021                                    URPV       +2                         #   2   2
057430,000433: 11,3063           65215                           DAD      PDDL                                  #  Y  +X  B-2 TO 2D
057431,000434: 11,3064           00003                                    2D                                    
057432,000435: 11,3065           45352                           SL1      DSU                                   

Page 1311

057434,000437: 11,3066           00003                                    2D                                    
057435,000438: 11,3067           41525                           PDDL     PUSH                                  #  X -Y B-2 TO 4D  COSPHI 2 TO 6D
057436,000439: 11,3070           00023                                    COSPHI/2                              
057437,000440: 11,3071           65361                           VXSC     PDDL                                  #  2COSPHI(UZ) B-3 TO 6D
057438,000441: 11,3072           00025                                    UZ                                    
057439,000442: 11,3073           45316                           DSQ      DSU                                   
057440,000443: 11,3074           23671                                    3/5                                   #    2  2       2
057441,000444: 11,3075           52405                           DMP      SL3                                   #  (X -Y)((5COS (PHI)-3)UR 2COS(PHI)UZ)
057442,000445: 11,3076           27756                                    5/8                                   
057443,000446: 11,3077           52361                           VXSC     VSU                                   #        B-3 TO 4D
057444,000447: 11,3100           02152                                    ALPHAV                                
057445,000448: 11,3101           72561                           VXSC     VSL2                                  
057446,000449: 11,3102           77725                           PDDL                                           
057447,000450: 11,3103           00017                                    URPV                                  
057448,000451: 11,3104           63205                           DMP      PDVL                                  #  XY B-2 TO 10D
057449,000452: 11,3105           00021                                    URPV       +2                         
057450,000453: 11,3106           02152                                    ALPHAV                                
057451,000454: 11,3107           74235                           VXV      VXSC                                  
057452,000455: 11,3110           00025                                    UZ                                    
057453,000456: 11,3111           53332                           VSL3     VAD                                   #  4XY(UR X UZ) + D( 4D) B-3
057454,000457: 11,3112           77725                           PDDL                                           
057455,000458: 11,3113           41301                           NORM     DMP                                   
057456,000459: 11,3114           00050                                    X2                                    
057457,000460: 11,3115           00001                                    0D                                    #  3J22R2MU/(X + Y)R
057458,000461: 11,3116           74265                           BDDV     VXSC                                  
057459,000462: 11,3117           27754                                    3J22R2MU                              
057460,000463: 11,3120           53257                           VSL*     VAD                                   
057461,000464: 11,3121           57605                                    0          -7,2                       
057462,000465: 11,3122           00033                                    TVEC                                  
057463,000466: 11,3123           77754                           LXA,2                                          
057464,000467: 11,3124           02150                                    PBODY                                 
057465,000468: 
057466,000469: 11,3125           77600        NBRANCH1           BOV                                            
057467,000470: 11,3126           23127                                    +1                                    
057468,000471: 11,3127           53257                           VSL*     VAD                                   
057469,000472: 11,3130           20153                                    0          -22D,1                     
057470,000473: 11,3131           02202                                    FV                                    
057471,000474: 11,3132           02202                           STORE    FV                                    
057472,000475: 11,3133           77600                           BOV                                            
057473,000476: 11,3134           22706                                    GOBAQUE                               
057474,000477: 
057475,000478: 11,3135           72135        NBRANCH            SLOAD    LXA,1                                 
057476,000479: 11,3136           01501                                    DIFEQCNT                              
057477,000480: 11,3137           00154                                    MPAC                                  
057478,000481: 11,3140           73205                           DMP      CGOTO                                 
057479,000482: 11,3141           27760                                    -1/12                                 
057480,000483: 11,3142           00155                                    MPAC                                  
057481,000484: 11,3143           23152                                    DIFEQTAB                              
057482,000485: 11,3144           77745        COSPHIE            DLOAD                                          
057483,000486: 11,3145           02156                                    ALPHAV     +4                         
057484,000487: 11,3146           24023                           STOVL    COSPHI/2                              
057485,000488: 11,3147           11450                                    ZUNIT                                 

Page 1312

057487,000490: 11,3150           77650                           GOTO                                           
057488,000491: 11,3151           22755                                    COMTERM                               
057489,000492: 11,3152           23371        DIFEQTAB           CADR     DIFEQ+0                               
057490,000493: 11,3153           23375                           CADR     DIFEQ+1                               
057491,000494: 11,3154           23406                           CADR     DIFEQ+2                               
057492,000495: 11,3155           77214        TIMESTEP           BOF      VLOAD                                 
057493,000496: 11,3156           00342                                    MIDFLAG                               
057494,000497: 11,3157           23206                                    RECTEST                               
057495,000498: 11,3160           01535                                    RCV                                   
057496,000499: 11,3161           41241                           DOT      DMP                                   
057497,000500: 11,3162           01543                                    VCV                                   
057498,000501: 11,3163           02314                                    DT/2                                  #  (R.V) X (DELTA T)
057499,000502: 11,3164           77640                           BMN                                            
057500,000503: 11,3165           23206                                    RECTEST                               
057501,000504: 11,3166           43014                           BON      BOF                                   
057502,000505: 11,3167           00303                                    MOONFLAG                              
057503,000506: 11,3170           23263                                    LUNSPH                                
057504,000507: 11,3171           04340                                    RPQFLAG                               
057505,000508: 11,3172           23260                                    EARSPH                                
057506,000509: 11,3173           45145                           DLOAD    CALL                                  
057507,000510: 11,3174           01517                                    TET                                   
057508,000511: 11,3175           54110                                    LSPOS                                 #  RPQV IN MPAC
057509,000512: 11,3176           02263                           STORE    RPQV                                  #  RPQV
057510,000513: 11,3177           77754                           LXA,2                                          
057511,000514: 11,3200           02150                                    PBODY                                 
057512,000515: 11,3201           51445        INLUNCHK           BVSU     ABVAL                                 
057513,000516: 11,3202           01535                                    RCV                                   
057514,000517: 11,3203           50025                           DSU      BMN                                   
057515,000518: 11,3204           27764                                    RSPHERE                               
057516,000519: 11,3205           23300                                    DOSWITCH                              
057517,000520: 11,3206           51575        RECTEST            VLOAD    ABVAL                                 #  RECTIFY IF
057518,000521: 11,3207           01521                                    TDELTAV                               
057519,000522: 11,3210           77600                           BOV                                            
057520,000523: 11,3211           23234                                    CALLRECT                              
057521,000524: 11,3212           51025                           DSU      BPL                                   #        1) EITHER TDELTAV OR TNUV EQUALS OR
057522,000525: 11,3213           23707                                    3/4                                   #           EXCEEDS 3/4 IN MAGNITUDE
057523,000526: 11,3214           23234                                    CALLRECT                              
057524,000527: 11,3215           53615                           DAD      SL*                                   #                        OR
057525,000528: 11,3216           23707                                    3/4                                   
057526,000529: 11,3217           57605                                    0          -7,2                       #        2) ABVAL(TDELTAV) EQUALS OR EXCEEDS
057527,000530: 11,3220           45271                           DDV      DSU                                   #           .01(ABVAL(RCV))
057528,000531: 11,3221           00013                                    10D                                   
057529,000532: 11,3222           27762                                    RECRATIO                              
057530,000533: 11,3223           77244                           BPL      VLOAD                                 
057531,000534: 11,3224           23234                                    CALLRECT                              
057532,000535: 11,3225           01527                                    TNUV                                  
057533,000536: 11,3226           45246                           ABVAL    DSU                                   
057534,000537: 11,3227           23707                                    3/4                                   
057535,000538: 11,3230           77600                           BOV                                            
057536,000539: 11,3231           23234                                    CALLRECT                              

Page 1313

057538,000541: 11,3232           77640                           BMN                                            
057539,000542: 11,3233           23236                                    INTGRATE                              
057540,000543: 11,3234           77624        CALLRECT           CALL                                           
057541,000544: 11,3235           23344                                    RECTIFY                               
057542,000545: 11,3236           77775        INTGRATE           VLOAD                                          
057543,000546: 11,3237           01527                                    TNUV                                  
057544,000547: 11,3240           25120                           STOVL    ZV                                    
057545,000548: 11,3241           01521                                    TDELTAV                               
057546,000549: 11,3242           01112                           STORE    YV                                    
057547,000550: 11,3243           77614                           CLEAR                                          
057548,000551: 11,3244           00261                                    JSWITCH                               
057549,000552: 11,3245           66375        DIFEQ0             VLOAD    SSP                                   
057550,000553: 11,3246           01112                                    YV                                    
057551,000554: 11,3247           01501                                    DIFEQCNT                              
057552,000555: 11,3250           00000                                    0                                     
057553,000556: 11,3251           16152                           STODL    ALPHAV                                
057554,000557: 11,3252           11456                                    DPZERO                                
057555,000558: 11,3253           02212                           STORE    H                                     #  START H AT ZERO.  GOES 0(DELT/2)DELT.
057556,000559: 11,3254           52014                           BON      GOTO                                  
057557,000560: 11,3255           00301                                    JSWITCH                               
057558,000561: 11,3256           23610                                    DOW..                                 
057559,000562: 11,3257           22430                                    ACCOMP                                
057560,000563: 11,3260           52175        EARSPH             VLOAD    GOTO                                  
057561,000564: 11,3261           02263                                    RPQV                                  
057562,000565: 11,3262           23201                                    INLUNCHK                              
057563,000566: 11,3263           60545        LUNSPH             DLOAD    SR2                                   
057564,000567: 11,3264           00013                                    10D                                   
057565,000568: 11,3265           50025                           DSU      BMN                                   
057566,000569: 11,3266           27764                                    RSPHERE                               
057567,000570: 11,3267           23206                                    RECTEST                               
057568,000571: 11,3270           71214                           BOF      DLOAD                                 
057569,000572: 11,3271           04340                                    RPQFLAG                               
057570,000573: 11,3272           23300                                    DOSWITCH                              
057571,000574: 11,3273           01517                                    TET                                   
057572,000575: 11,3274           77624                           CALL                                           
057573,000576: 11,3275           54115                                    LUNPOS                                
057574,000577: 11,3276           77676                           VCOMP                                          
057575,000578: 11,3277           02263                           STORE    RPQV                                  
057576,000579: 11,3300           77624        DOSWITCH           CALL                                           
057577,000580: 11,3301           23304                                    ORIGCHNG                              
057578,000581: 11,3302           77650                           GOTO                                           
057579,000582: 11,3303           23236                                    INTGRATE                              
057580,000583: 11,3304           45020        ORIGCHNG           STQ      CALL                                  
057581,000584: 11,3305           02270                                    ORIGEX                                
057582,000585: 11,3306           23344                                    RECTIFY                               
057583,000586: 11,3307           53775                           VLOAD    VSL*                                  
057584,000587: 11,3310           01535                                    RCV                                   
057585,000588: 11,3311           57576                                    0,2                                   
057586,000589: 11,3312           53651                           VSU      VSL*                                  
057587,000590: 11,3313           02263                                    RPQV                                  

Page 1314

057589,000592: 11,3314           57574                                    2,2                                   
057590,000593: 11,3315           01503                           STORE    RRECT                                 
057591,000594: 11,3316           15535                           STODL    RCV                                   
057592,000595: 11,3317           01517                                    TET                                   
057593,000596: 11,3320           77624                           CALL                                           
057594,000597: 11,3321           54120                                    LUNVEL                                
057595,000598: 11,3322           57414                           BOF      VCOMP                                 
057596,000599: 11,3323           00343                                    MOONFLAG                              
057597,000600: 11,3324           23325                                    +1                                    
057598,000601: 11,3325           53715                           PDVL     VSL*                                  
057599,000602: 11,3326           01543                                    VCV                                   
057600,000603: 11,3327           57576                                    0,2                                   
057601,000604: 11,3330           77651                           VSU                                            
057602,000605: 11,3331           77657                           VSL*                                           
057603,000606: 11,3332           57574                                    0          +2,2                       
057604,000607: 11,3333           01511                           STORE    VRECT                                 
057605,000608: 11,3334           01543                           STORE    VCV                                   
057606,000609: 11,3335           67154                           LXA,2    SXA,2                                 
057607,000610: 11,3336           02270                                    ORIGEX                                
057608,000611: 11,3337           00052                                    QPRET                                 
057609,000612: 11,3340           52014                           BON      GOTO                                  
057610,000613: 11,3341           00303                                    MOONFLAG                              
057611,000614: 11,3342           26666                                    CLRMOON                               
057612,000615: 11,3343           26673                                    SETMOON                               

Page 1315

057614,000617:                                                                                                  #  THE RECTIFY SUBROUTINE IS CALLED BY THE INTEGRATION PROGRAM AND OCCASIONALLY BY THE MEASUREMENT INCORPORATION
057615,000618:                                                                                                  #  ROUTINES TO ESTABLISH A NEW CONIC.
057616,000619: 
057617,000620: 11,3344           77354        RECTIFY            LXA,2    VLOAD                                 
057618,000621: 11,3345           02150                                    PBODY                                 
057619,000622: 11,3346           01521                                    TDELTAV                               
057620,000623: 11,3347           53257                           VSL*     VAD                                   
057621,000624: 11,3350           57605                                    0          -7,2                       
057622,000625: 11,3351           01535                                    RCV                                   
057623,000626: 11,3352           01503                           STORE    RRECT                                 
057624,000627: 11,3353           25535                           STOVL    RCV                                   
057625,000628: 11,3354           01527                                    TNUV                                  
057626,000629: 11,3355           53257                           VSL*     VAD                                   
057627,000630: 11,3356           57602                                    0          -4,2                       
057628,000631: 11,3357           01543                                    VCV                                   
057629,000632: 11,3360           01511        MINIRECT           STORE    VRECT                                 
057630,000633: 11,3361           25543                           STOVL    VCV                                   
057631,000634: 11,3362           11456                                    ZEROVEC                               
057632,000635: 11,3363           01521                           STORE    TDELTAV                               
057633,000636: 11,3364           15527                           STODL    TNUV                                  
057634,000637: 11,3365           11456                                    ZEROVEC                               
057635,000638: 11,3366           01551                           STORE    TC                                    
057636,000639: 11,3367           01553                           STORE    XKEP                                  
057637,000640: 11,3370           77616                           RVQ                                            
057638,000641: 

Page 1316

057640,000643:                                                                                                  #  THE THREE DIFEQ ROUTINES - DIFEQ+0, DIFEQ+12, AND DIFEQ+24 - ARE ENTEREDTO PROCESS THE CONTRIBUTIONS AT THE
057641,000644:                                                                                                  #  BEGINNING, MIDDLE, AND END OF THE TIMESTEP, RESPECTIVELY.  THE UPDATING IS DONE BY THE NYSTROM METHOD.
057642,000645: 
057643,000646: 11,3371           64575        DIFEQ+0            VLOAD    VSR3                                  
057644,000647: 11,3372           02202                                    FV                                    
057645,000648: 11,3373           36166                           STCALL   PHIV                                  
057646,000649: 11,3374           23551                                    DIFEQCOM                              
057647,000650: 11,3375           74575        DIFEQ+1            VLOAD    VSR1                                  
057648,000651: 11,3376           02202                                    FV                                    
057649,000652: 11,3377           53206                           PUSH     VAD                                   
057650,000653: 11,3400           02166                                    PHIV                                  
057651,000654: 11,3401           26174                           STOVL    PSIV                                  
057652,000655: 11,3402           53362                           VSR1     VAD                                   
057653,000656: 11,3403           02166                                    PHIV                                  
057654,000657: 11,3404           36166                           STCALL   PHIV                                  
057655,000658: 11,3405           23551                                    DIFEQCOM                              
057656,000659: 11,3406           57345        DIFEQ+2            DLOAD    DMPR                                  
057657,000660: 11,3407           02212                                    H                                     
057658,000661: 11,3410           23717                                    DP2/3                                 
057659,000662: 11,3411           74206                           PUSH     VXSC                                  
057660,000663: 11,3412           02166                                    PHIV                                  
057661,000664: 11,3413           53372                           VSL1     VAD                                   
057662,000665: 11,3414           01120                                    ZV                                    
057663,000666: 11,3415           53361                           VXSC     VAD                                   
057664,000667: 11,3416           02212                                    H                                     
057665,000668: 11,3417           01112                                    YV                                    
057666,000669: 11,3420           25112                           STOVL    YV                                    
057667,000670: 11,3421           02202                                    FV                                    
057668,000671: 11,3422           53322                           VSR3     VAD                                   
057669,000672: 11,3423           02174                                    PSIV                                  
057670,000673: 11,3424           76561                           VXSC     VSL1                                  
057671,000674: 11,3425           77655                           VAD                                            
057672,000675: 11,3426           01120                                    ZV                                    
057673,000676: 11,3427           01120                           STORE    ZV                                    
057674,000677: 11,3430           45014                           BOFF     CALL                                  
057675,000678: 11,3431           00341                                    JSWITCH                               
057676,000679: 11,3432           23502                                    ENDSTATE                              
057677,000680: 11,3433           56741                                    GRP2PC                                
057678,000681: 11,3434           77354                           LXA,2    VLOAD                                 
057679,000682: 11,3435           01102                                    COLREG                                
057680,000683: 11,3436           01120                                    ZV                                    
057681,000684: 11,3437           77732                           VSL3                                           #  ADJUST W-POSITION FOR STORAGE
057682,000685: 11,3440           12467                           STORE    W          +54D,2                     
057683,000686: 11,3441           77775                           VLOAD                                          
057684,000687: 11,3442           01112                                    YV                                    
057685,000688: 11,3443           40132                           VSL3     BOV                                   
057686,000689: 11,3444           23574                                    WMATEND                               
057687,000690: 11,3445           12401                           STORE    W,2                                   
057688,000691: 
057689,000692: 11,3446           77624                           CALL                                           
057690,000693: 11,3447           56741                                    GRP2PC                                

Page 1317

057692,000695: 11,3450           66354                           LXA,2    SSP                                   
057693,000696: 11,3451           01102                                    COLREG                                
057694,000697: 11,3452           00052                                    S2                                    
057695,000698: 11,3453           00000                                    0                                     
057696,000699: 11,3454           67114                           INCR,2   SXA,2                                 
057697,000700: 11,3455           00006                                    6                                     
057698,000701: 11,3456           01111                                    YV                                    
057699,000702: 11,3457           45104                           TIX,2    CALL                                  
057700,000703: 11,3460           23545                                    RELOADSV                              
057701,000704: 11,3461           56741                                    GRP2PC                                
057702,000705: 11,3462           67154                           LXA,2    SXA,2                                 
057703,000706: 11,3463           01111                                    YV                                    
057704,000707: 11,3464           01102                                    COLREG                                
057705,000708: 
057706,000709: 11,3465           77624        NEXTCOL            CALL                                           
057707,000710: 11,3466           56741                                    GRP2PC                                
057708,000711: 11,3467           76754                           LXA,2    VLOAD*                                
057709,000712: 11,3470           01102                                    COLREG                                
057710,000713: 11,3471           75376                                    W,2                                   
057711,000714: 11,3472           77722                           VSR3                                           #  ADJUST W-POSITION FOR INTEGRATION
057712,000715: 11,3473           01112                           STORE    YV                                    
057713,000716: 11,3474           76173                           VLOAD*   AXT,1                                 
057714,000717: 11,3475           75310                                    W          +54D,2                     
057715,000718: 11,3476           00000                                    0                                     
057716,000719: 11,3477           77722                           VSR3                                           #  ADJUST W-VELOCITY FOR INTEGRATION
057717,000720: 11,3500           35120                           STCALL   ZV                                    
057718,000721: 11,3501           23245                                    DIFEQ0                                
057719,000722: 
057720,000723: 11,3502           77200        ENDSTATE           BOV      VLOAD                                 
057721,000724: 11,3503           22706                                    GOBAQUE                               
057722,000725: 11,3504           01120                                    ZV                                    
057723,000726: 11,3505           25527                           STOVL    TNUV                                  
057724,000727: 11,3506           01112                                    YV                                    
057725,000728: 11,3507           01521                           STORE    TDELTAV                               
057726,000729: 11,3510           43014                           BON      BOFF                                  
057727,000730: 11,3511           04715                                    MIDAVFLG                              
057728,000731: 11,3512           27653                                    CKMID2                                #  CHECK FOR MID2 BEFORE GOING TO TIMEINC
057729,000732: 11,3513           01756                                    DIM0FLAG                              
057730,000733: 11,3514           27234                                    TESTLOOP                              
057731,000734: 11,3515           77776                           EXIT                                           
057732,000735: 11,3516           05301                           TC       PHASCHNG                              
057733,000736: 11,3517           04022                           OCT      04022                                 #  PHASE 1
057734,000737: 11,3520           05435                           TC       UPFLAG                                #  PHASE CHANGE HAS OCCURRED BETWEEN
057735,000738: 11,3521           00236                           ADRES    REINTFLG                              #  INTSTALL AND INTWAKE
057736,000739: 11,3522           06006                           TC       INTPRET                               
057737,000740: 11,3523           77731                           SSP                                            
057738,000741: 11,3524           00053                                    QPRET                                 
057739,000742: 11,3525           23532                                    AMOVED                                
057740,000743: 11,3526           52014                           BON      GOTO                                  
057741,000744: 11,3527           01714                                    VINTFLAG                              

Page 1318

057743,000746: 11,3530           26636                                    ATOPCSM                               
057744,000747: 11,3531           26711                                    ATOPLEM                               
057745,000748: 11,3532           66214        AMOVED             SET      SSP                                   
057746,000749: 11,3533           00061                                    JSWITCH                               
057747,000750: 11,3534           01103                                    COLREG                                
057748,000751: 11,3535           77741                           DEC      -30        B-14                       
057749,000752: 11,3536           66214                           BOFF     SSP                                   
057750,000753: 11,3537           01755                                    D6OR9FLG                              
057751,000754: 11,3540           23465                                    NEXTCOL                               
057752,000755: 11,3541           01103                                    COLREG                                
057753,000756: 11,3542           77717                           DEC      -48        B-14                       
057754,000757: 11,3543           77650                           GOTO                                           
057755,000758: 11,3544           23465                                    NEXTCOL                               
057756,000759: 
057757,000760: 11,3545           77745        RELOADSV           DLOAD                                          #  RELOAD TEMPORARY STATE VECTOR
057758,000761: 11,3546           01101                                    TDEC                                  #  FROM PERMANENT IN CASE OF
057759,000762: 11,3547           34041                           STCALL   TDEC1                                 
057760,000763: 11,3550           27120                                    INTEGRV2                              #  BY STARTING AT INTEGRV2.
057761,000764: 11,3551           43345        DIFEQCOM           DLOAD    DAD                                   #  INCREMENT H AND DIFEQCNT.
057762,000765: 11,3552           02314                                    DT/2                                  
057763,000766: 11,3553           02212                                    H                                     
057764,000767: 11,3554           66110                           INCR,1   SXA,1                                 
057765,000768: 11,3555           77763                           DEC      -12        B-14                       
057766,000769: 11,3556           01500                                    DIFEQCNT                              #  DIFEQCNT SET FOR NEXT ENTRY.
057767,000770: 11,3557           02212                           STORE    H                                     
057768,000771: 11,3560           74561                           VXSC     VSR1                                  
057769,000772: 11,3561           02202                                    FV                                    
057770,000773: 11,3562           74255                           VAD      VXSC                                  
057771,000774: 11,3563           01120                                    ZV                                    
057772,000775: 11,3564           02212                                    H                                     
057773,000776: 11,3565           77655                           VAD                                            
057774,000777: 11,3566           01112                                    YV                                    
057775,000778: 11,3567           02152                           STORE    ALPHAV                                
057776,000779: 11,3570           52014                           BON      GOTO                                  
057777,000780: 11,3571           00301                                    JSWITCH                               
057778,000781: 11,3572           23610                                    DOW..                                 
057779,000782: 11,3573           22410                                    FBR3                                  
057780,000783: 
057781,000784: 11,3574           43014        WMATEND            CLEAR    CLEAR                                 
057782,000785: 11,3575           01676                                    DIM0FLAG                              #  DONT INTEGRATE W THIS TIME
057783,000786: 11,3576           01671                                    ORBWFLAG                              #  INVALIDATE W
057784,000787: 11,3577           77614                           CLEAR                                          
057785,000788: 11,3600           02676                                    RENDWFLG                              
057786,000789: 11,3601           77414                           SET      EXIT                                  
057787,000790: 11,3602           01472                                    STATEFLG                              #  PICK UP STATE VECTOR UPDATE
057788,000791: 11,3603           05537                           TC       ALARM                                 
057789,000792: 11,3604           00421                           OCT      421                                   
057790,000793: 11,3605           06006                           TC       INTPRET                               

Page 1319

057792,000795: 11,3606           77650                           GOTO                                           
057793,000796: 11,3607           27234                                    TESTLOOP                              #  FINISH INTEGRATING STATE VECTOR
057794,000797: 

Page 1320

057796,000799:                                                                                                  #  ORBITAL ROUTINE FOR EXTRAPOLATION OF THE W MATRIX.  IT COMPUTES THE SECOND DERIVATIVE OF EACH COLUMN POSITION
057797,000800:                                                                                                  #  VECTOR OF THE MATRIX AND CALLS THE NYSTROM INTEGRATION ROUTINES TO SOLVE THE DIFFERENTIAL EQUATIONS.  THE PROGRAM
057798,000801:                                                                                                  #  USES A TABLE OF VEHICLE POSITION VECTORS COMPUTED DURING THE INTEGRATION OF THE VEHICLES POSITION AND VELOCITY.
057799,000802: 
057800,000803: 11,3610           70754        DOW..              LXA,2    DLOAD*                                
057801,000804: 11,3611           02150                                    PBODY                                 
057802,000805: 11,3612           50041                                    MUEARTH,2                             
057803,000806: 11,3613           36210                           STCALL   BETAM                                 
057804,000807: 11,3614           23636                                    DOW..1                                
057805,000808: 11,3615           02202                           STORE    FV                                    
057806,000809: 11,3616           62014                           BOF      INCR,1                                
057807,000810: 11,3617           00342                                    MIDFLAG                               
057808,000811: 11,3620           23135                                    NBRANCH                               
057809,000812: 11,3621           77771                           DEC      -6         B-14                       
057810,000813: 11,3622           70744                           LXC,2    DLOAD*                                
057811,000814: 11,3623           02150                                    PBODY                                 
057812,000815: 11,3624           50043                                    MUEARTH    -2,2                       
057813,000816: 11,3625           36210                           STCALL   BETAM                                 
057814,000817: 11,3626           23636                                    DOW..1                                
057815,000818: 11,3627           50414                           BON      VSR6                                  
057816,000819: 11,3630           00303                                    MOONFLAG                              
057817,000820: 11,3631           23632                                    +1                                    
057818,000821: 11,3632           77655                           VAD                                            
057819,000822: 11,3633           02202                                    FV                                    
057820,000823: 11,3634           36202                           STCALL   FV                                    
057821,000824: 11,3635           23135                                    NBRANCH                               
057822,000825: 11,3636           60575        DOW..1             VLOAD    VSR4                                  
057823,000826: 11,3637           02152                                    ALPHAV                                
057824,000827: 11,3640           53513                           PDVL*    UNIT                                  
057825,000828: 11,3641           02217                                    VECTAB,1                              
057826,000829: 11,3642           46315                           PDVL     VPROJ                                 
057827,000830: 11,3643           02152                                    ALPHAV                                
057828,000831: 11,3644           52361                           VXSC     VSU                                   
057829,000832: 11,3645           23707                                    3/4                                   
057830,000833: 11,3646           60325                           PDDL     NORM                                  
057831,000834: 11,3647           00045                                    36D                                   
057832,000835: 11,3650           00052                                    S2                                    
057833,000836: 11,3651           63406                           PUSH     DSQ                                   
057834,000837: 11,3652           77605                           DMP                                            
057835,000838: 11,3653           65301                           NORM     PDDL                                  
057836,000839: 11,3654           00043                                    34D                                   
057837,000840: 11,3655           02210                                    BETAM                                 
057838,000841: 11,3656           56342                           SR1      DDV                                   
057839,000842: 11,3657           77761                           VXSC                                           
057840,000843: 11,3660           57154                           LXA,2    XAD,2                                 
057841,000844: 11,3661           00051                                    S2                                    
057842,000845: 11,3662           00051                                    S2                                    
057843,000846: 11,3663           57074                           XAD,2    XAD,2                                 
057844,000847: 11,3664           00051                                    S2                                    
057845,000848: 11,3665           00042                                    34D                                   
057846,000849: 11,3666           43457                           VSL*     RVQ                                   

Page 1321

057848,000851: 11,3667           57606                                    0          -8D,2                      
057849,000852: 
057850,000853: 11,2000                                           SETLOC   ORBITAL1                              
057851,000854: 11,2000                                           BANK                                           
057852,000855: 
057853,000856: 11,3670           04631 23146  3/5                2DEC     .6         B-2                        
057854,000857: 11,3672           14000 00000  THREE/8            2DEC     .375                                  
057855,000858: 11,3674           02314 31463  .3D                2DEC     .3         B-2                        
057856,000859: 11,3676           01400 00000  3/64               2DEC     3          B-6                        
057857,000860: 11,3700           10000 00000  DP1/4              2DEC     .25                                   
057858,000861: 11,3702  11,3700               DQUARTER           EQUALS   DP1/4                                 
057859,000862: 11,3702  11,3700               POS1/4             EQUALS   DP1/4                                 
057860,000863: 11,3702           03000 00000  3/32               2DEC     3          B-5                        
057861,000864: 11,3704           36000 00000  15/16              2DEC     15.        B-4                        
057862,000865: 11,3706           30000 00000  3/4                2DEC     3.0        B-2                        
057863,000866: 11,3710           22525 12525  7/12               2DEC     .5833333333                            
057864,000867: 11,3712           22000 00000  9/16               2DEC     9          B-4                        
057865,000868: 11,3714           01200 00000  5/128              2DEC     5          B-7                        
057866,000869: 11,3716  04,3455               DPZERO             EQUALS   ZEROVEC                               
057867,000870: 11,3716           25252 25253  DP2/3              2DEC     .6666666667                            
057868,000871: 11,3720  11,3716               2/3                EQUALS   DP2/3                                 
057869,000872: 11,3720           00027        OCT27              OCT      27                                    
057870,000873: 
057871,000874:                                                                                                  #  LM504 IS TEMPORARY
057872,000875: 
057873,000876: 13,3715                                           BANK     13                                    
057874,000877: 13,2000                                           SETLOC   ORBITAL2                              
057875,000878: 13,2000                                           BANK                                           
057876,000879:                                                                                                  #  IT IS VITAL THAT THE FOLLOWING CONSTANTS NOT BE SHUFFLED
057877,000880: 13,3715           77764                           DEC      -11        B-14                       
057878,000881: 13,3716           77775                           DEC      -2         B-14                       
057879,000882: 13,3717           77766                           DEC      -9         B-14                       
057880,000883: 13,3720           77771                           DEC      -6         B-14                       
057881,000884: 13,3721           77775                           DEC      -2         B-14                       
057882,000885: 13,3722           77775                           DEC      -2         B-14                       
057883,000886: 13,3723           00000                           DEC      0          B-14                       
057884,000887: 13,3724           77763                           DEC      -12        B-14                       
057885,000888: 13,3725           77766                           DEC      -9         B-14                       
057886,000889: 13,3726           77773                           DEC      -4         B-14                       
057887,000890: 13,3727           77770        ASCALE             DEC      -7         B-14                       
057888,000891: 13,3730           77771                           DEC      -6         B-14                       

Page 1322

057890,000893: 13,3731           27446 14620                     2DEC*    1.32715445 E16        B-54*           #  S
057891,000894: 13,3733           16471 01352                     2DEC*    4.9027780  E8         B-30*           #  M
057892,000895: 13,3735           22437 16067  MUEARTH            2DEC*    3.986032   E10        B-36*           
057893,000896: 13,3737           00000 00000                     2DEC     0          B-28                       
057894,000897: 13,3741           02302 24736  J4REQ/J3           2DEC*    .4991607391 E7         B-26*           
057895,000898: 13,3743           00000 00000                     2DEC     0          B-28                       
057896,000899: 13,3745           77776 53032  2J3RE/J2           2DEC*    -.1355426363 E5         B-27*           
057897,000900: 13,3747           10407 05344                     2DEC*    .3067493316 E18        B-60*           
057898,000901: 13,3751           13710 35320  J2REQSQ            2DEC*    1.75501139 E21        B-72*           
057899,000902: 13,3753           12160 12124  3J22R2MU           2DEC*    9.20479048 E16        B-58*           
057900,000903: 
057901,000904: 13,3755           24000 00000  5/8                2DEC     5          B-3                        
057902,000905: 13,3757           74631 63145  -1/12              2DEC     -.1                                   
057903,000906: 13,3761  13,3733               MUM                =        MUEARTH    -2                         
057904,000907: 13,3761           00243 32703  RECRATIO           2DEC     .01                                   
057905,000908: 13,3763           03654 21000  RSPHERE            2DEC     64373.76   E3         B-29            
057906,000909: 13,3765           03654 21000  RDM                2DEC     16093.44   E3         B-27            
057907,000910: 13,3767           04627 25200  RDE                2DEC     80467.20   E3         B-29            
057908,000911: 
057909,000912: 13,3771                        RATT               EQUALS   00                                    
057910,000913: 13,3771                        VATT               EQUALS   6D                                    
057911,000914: 13,3771                        TAT                EQUALS   12D                                   
057912,000915: 13,3771                        RATT1              EQUALS   14D                                   
057913,000916: 13,3771                        VATT1              EQUALS   20D                                   
057914,000917: 13,3771                        MU(P)              EQUALS   26D                                   
057915,000918: 13,3771                        TDEC1              EQUALS   32D                                   
057916,000919: 13,3771                        URPV               EQUALS   14D                                   
057917,000920: 13,3771     0022               COSPHI/2           EQUALS   URPV       +4                         
057918,000921: 13,3771                        UZ                 EQUALS   20D                                   
057919,000922: 13,3771                        TVEC               EQUALS   26D                                   
057920,000923: 
057921,000924: 
057922,000925: 

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