Source Code

These source-code files were transcribed from scans made from Don Eyles's personal copy of Luminary 069. They were scanned at archive.org's Boston facility, and the scanning was sponsored by Onno Hommes. The code was transcribed from these scans by a team of volunteers who are referenced in the program comments. Comments from the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". In some cases, where similar code blocks exist in previously-transcribed AGC programs (primarily Luminary 99, from Apollo 11) those code blocks were used as a starting point and then corrected to agree with the Luminary 69 scans. The full scans are available at the Virtual AGC project's collection at archive.org, while more-convenient reduced-size (but reduced-quality) images are available at the main Virtual AGC website. Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository. Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011
	19:02 NOV. 25,1968
Note that the date is the date of the printout, not the date of the program revision.

053044,000002:                                                                                                  ## Copyright:   Public domain.
053045,000003:                                                                                                  ## Filename:    ORBITAL_INTEGRATION.agc
053046,000004:                                                                                                  ## Purpose:     The main source file for Luminary revision 069.
053047,000005:                                                                                                  ##              It is part of the source code for the original release
053048,000006:                                                                                                  ##              of the flight software for the Lunar Module's (LM) Apollo
053049,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 10. The actual flown
053050,000008:                                                                                                  ##              version was Luminary 69 revision 2, which included a
053051,000009:                                                                                                  ##              newer lunar gravity model and only affected module 2.
053052,000010:                                                                                                  ##              This file is intended to be a faithful transcription, except
053053,000011:                                                                                                  ##              that the code format has been changed to conform to the
053054,000012:                                                                                                  ##              requirements of the yaYUL assembler rather than the
053055,000013:                                                                                                  ##              original YUL assembler.
053056,000014:                                                                                                  ## Reference:   pp. 1223-1243
053057,000015:                                                                                                  ## Assembler:   yaYUL
053058,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
053059,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
053060,000018:                                                                                                  ## Mod history: 2016-12-13 MAS  Created from Luminary 99.
053061,000019:                                                                                                  ##              2016-12-18 MAS  Updated from comment-proofed Luminary 99 version.
053062,000020:                                                                                                  ##              2017-01-21 RRB  Updated for Luminary 69.
053063,000021:                                                                                                  ##              2017-01-22 HG   Remove non existent code arround label GOBAQUE
053064,000022:                                                                                                  ##                              Remove incorrect "," in interpretative operand
053065,000023:                                                                                                  ##                              Fix interpretive operators VXSC BOV -> VXSC
053066,000024:                                                                                                  ##              2017-01-28 RSB  Proofed comment text using octopus/prooferComments
053067,000025:                                                                                                  ##                              and fixed errors found.
053068,000026:                                                                                                  ##              2017-03-17 RSB  Comment-text fixes identified in diff'ing
053069,000027:                                                                                                  ##                              Luminary 99 vs Comanche 55.
053070,000028: 

Page 1223

053072,000030:                                                                                                  #  DELETE
053073,000031: 13,3721                                           BANK     13                                    
053074,000032: 11,2000                                           SETLOC   ORBITAL                               
053075,000033: 11,2000                                           BANK                                           
053076,000034: 11,2311                                           COUNT*   $$/ORBIT                              
053077,000035: 
053078,000036:                                                                                                  #  DELETE
053079,000037: 11,2311           40354        KEPPREP            LXA,2    SETPD                                 
053080,000038: 11,2312           02030                                    PBODY                                 
053081,000039: 11,2313           00001                                    0                                     
053082,000040: 11,2314           75543                           DLOAD*   SQRT                                  #  SQRT(MU) (+18 OR +15)         0D      PL 2D
053083,000041: 11,2315           51770                                    MUEARTH,2                             
053084,000042: 11,2316           53515                           PDVL     UNIT                                  #                                        PL 8D
053085,000043: 11,2317           01535                                    RCV                                   
053086,000044: 11,2320           60325                           PDDL     NORM                                  #  NORM R (+29 OR +27 - N1)      2D      PL 4D
053087,000045: 11,2321           00045                                    36D                                   
053088,000046: 11,2322           00047                                    X1                                    
053089,000047: 11,2323           77715                           PDVL                                           
053090,000048: 11,2324           65241                           DOT      PDDL                                  #  F*SQRT(MU)(+7 OR +5)          4D      PL 6D
053091,000049: 11,2325           01543                                    VCV                                   
053092,000050: 11,2326           02074                                    TAU.                                  #  (+28)
053093,000051: 11,2327           60225                           DSU      NORM                                  
053094,000052: 11,2330           01551                                    TC                                    
053095,000053: 11,2331           00051                                    S1                                    
053096,000054: 11,2332           77742                           SR1                                            
053097,000055: 11,2333           65271                           DDV      PDDL                                  
053098,000056: 11,2334           00003                                    2D                                    
053099,000057: 11,2335           41405                           DMP      PUSH                                  #  FS(+6 +N1-N2)                 6D      PL 8D
053100,000058: 11,2336           00005                                    4D                                    
053101,000059: 11,2337           65316                           DSQ      PDDL                                  #  (FS)SQ (+12 +2(N1-N2))        8D      PL 10D
053102,000060: 11,2340           00005                                    4D                                    
053103,000061: 11,2341           64716                           DSQ      PDDL*                                 #  SSQ/MU (-2 OR +2(N1-N2))      10D     PL 12D
053104,000062: 11,2342           51770                                    MUEARTH,2                             
053105,000063: 11,2343           40442                           SR3      SR4                                   
053106,000064: 11,2344           47515                           PDVL     VSQ                                   #  PREALIGN MU (+43 OR +37)      12D     PL 14D
053107,000065: 11,2345           01543                                    VCV                                   
053108,000066: 11,2346           44205                           DMP      BDSU                                  #                                        PL 12D
053109,000067: 11,2347           00045                                    36D                                   
053110,000068: 11,2350           41271                           DDV      DMP                                   #                                        PL 10D
053111,000069: 11,2351           00003                                    2D                                    #  -(1/R-ALPHA) (+12 +3N1-2N2)
053112,000070: 11,2352           53605                           DMP      SL*                                   
053113,000071: 11,2353           23720                                    DP2/3                                 
053114,000072: 11,2354           20176                                    0          -3,1                       #  10L(1/R-ALPHA) (+13 +2(N1-N2))
053115,000073: 11,2355           43260                           XSU,1    DAD                                   #  2(FS)SQ - ETCETRA                     PL 8D
053116,000074: 11,2356           00050                                    S1                                    #  X1 = N2-N1
053117,000075: 11,2357           45257                           SL*      DSU                                   #  -FS+2(FS)SQ ETC (+6 +N1-N2)           PL 6D
053118,000076: 11,2360           20211                                    8D,1                                  
053119,000077: 11,2361           41205                           DMP      DMP                                   
053120,000078: 11,2362           00001                                    0D                                    
053121,000079: 11,2363           00005                                    4D                                    
053122,000080: 11,2364           53657                           SL*      SL*                                   

Page 1224

053124,000082: 11,2365           20211                                    8D,1                                  
053125,000083: 11,2366           20201                                    0,1                                   #  S(-FS(1-2FS)-1/6...) (+17 OR +16)
053126,000084: 11,2367           65215                           DAD      PDDL                                  #                                        PL 6D
053127,000085: 11,2370           01553                                    XKEP                                  
053128,000086: 11,2371           53605                           DMP      SL*                                   #  S(+17 OR +16)
053129,000087: 11,2372           00001                                    0D                                    
053130,000088: 11,2373           20202                                    1,1                                   
053131,000089: 11,2374           43204                           BOVB     DAD                                   
053132,000090: 11,2375           57725                                    TCDANZIG                              
053133,000091: 11,2376           77626                           STADR                                          
053134,000092: 11,2377           75647                           STORE    XKEPNEW                               
053135,000093: 11,2400           74020                           STQ      AXC,1                                 
053136,000094: 11,2401           02112                                    KEPRTN                                
053137,000095: 11,2402           00012                           DEC      10         B-14                       
053138,000096: 11,2403           74014                           BON      AXC,1                                 
053139,000097: 11,2404           00303                                    MOONFLAG                              
053140,000098: 11,2405           24000                                    KEPLERN                               
053141,000099: 11,2406           00002                           DEC      2          B-14                       
053142,000100: 11,2407           77650                           GOTO                                           
053143,000101: 11,2410           24000                                    KEPLERN                               
053144,000102: 

Page 1225

053146,000104: 11,2411           66350        FBR3               LXA,1    SSP                                   
053147,000105: 11,2412           01500                                    DIFEQCNT                              
053148,000106: 11,2413           00051                                    S1                                    
053149,000107: 11,2414           77762                           DEC      -13        B-14                       
053150,000108: 11,2415           54345                           DLOAD    SR                                    
053151,000109: 11,2416           02076                                    DT/2                                  
053152,000110: 11,2417           20612                                    9D                                    
053153,000111: 11,2420           61500                           TIX,1    ROUND                                 
053154,000112: 11,2421           22422                                    +1                                    
053155,000113: 11,2422           43206                           PUSH     DAD                                   
053156,000114: 11,2423           01551                                    TC                                    
053157,000115: 11,2424           16074                           STODL    TAU.                                  
053158,000116: 11,2425           77615                           DAD                                            
053159,000117: 11,2426           01517                                    TET                                   
053160,000118: 11,2427           35517                           STCALL   TET                                   
053161,000119: 11,2430           22311                                    KEPPREP                               
053162,000120: 

Page 1226

053164,000122:                                                                                                  #  AGC ROUTINE TO COMPUTE ACCELERATION COMPONENTS.
053165,000123: 
053166,000124: 11,2431           73150        ACCOMP             LXA,1    LXA,2                                 
053167,000125: 11,2432           02030                                    PBODY                                 
053168,000126: 11,2433           02030                                    PBODY                                 
053169,000127: 11,2434           77775                           VLOAD                                          
053170,000128: 11,2435           22275                                    ZEROVEC                               
053171,000129: 11,2436           26062                           STOVL    FV                                    
053172,000130: 11,2437           02032                                    ALPHAV                                
053173,000131: 11,2440           53257                           VSL*     VAD                                   
053174,000132: 11,2441           57605                                    0          -7,2                       
053175,000133: 11,2442           01535                                    RCV                                   
053176,000134: 11,2443           02040                           STORE    BETAV                                 
053177,000135: 11,2444           65014                           BOF      XCHX,2                                
053178,000136: 11,2445           01756                                    DIM0FLAG                              
053179,000137: 11,2446           22453                                    +5                                    
053180,000138: 11,2447           01500                                    DIFEQCNT                              
053181,000139: 11,2450           12132                           STORE    VECTAB,2                              
053182,000140: 11,2451           77724                           XCHX,2                                         
053183,000141: 11,2452           01500                                    DIFEQCNT                              
053184,000142: 11,2453           53575                           VLOAD    UNIT                                  
053185,000143: 11,2454           02032                                    ALPHAV                                
053186,000144: 11,2455           16032                           STODL    ALPHAV                                
053187,000145: 11,2456           00045                                    36D                                   
053188,000146: 11,2457           02070                           STORE    ALPHAM                                
053189,000147: 11,2460           77624                           CALL                                           
053190,000148: 11,2461           22563                                    GAMCOMP                               
053191,000149: 11,2462           66175                           VLOAD    SXA,1                                 
053192,000150: 11,2463           02040                                    BETAV                                 
053193,000151: 11,2464           00051                                    S2                                    
053194,000152: 11,2465           16032                           STODL    ALPHAV                                
053195,000153: 11,2466           02072                                    BETAM                                 
053196,000154: 11,2467           02070                           STORE    ALPHAM                                
053197,000155: 11,2470           71214                           BOF      DLOAD                                 
053198,000156: 11,2471           00342                                    MIDFLAG                               
053199,000157: 11,2472           22726                                    OBLATE                                
053200,000158: 11,2473           01517                                    TET                                   
053201,000159: 11,2474           77624                           CALL                                           
053202,000160: 11,2475           33663                                    LSPOS                                 
053203,000161: 11,2476           72174                           AXT,2    LXA,1                                 
053204,000162: 11,2477           00002                                    2                                     
053205,000163: 11,2500           00051                                    S2                                    
053206,000164: 11,2501           77614                           BOF                                            
053207,000165: 11,2502           00343                                    MOONFLAG                              
053208,000166: 11,2503           22506                                    +3                                    
053209,000167: 11,2504           77076                           VCOMP    AXT,2                                 
053210,000168: 11,2505           00000                                    0                                     
053211,000169: 11,2506           02040                           STORE    BETAV                                 
053212,000170: 11,2507           26105                           STOVL    RPQV                                  

Page 1227

053214,000172: 11,2510           00003                                    2D                                    
053215,000173: 11,2511           02122                           STORE    RPSV                                  
053216,000174: 11,2512           45335                           SLOAD    DSU                                   
053217,000175: 11,2513           01012                                    MODREG                                
053218,000176: 11,2514           23722                                    OCT27                                 
053219,000177: 11,2515           43030                           BHIZ     BOF                                   
053220,000178: 11,2516           22521                                    +3                                    
053221,000179: 11,2517           01756                                    DIM0FLAG                              
053222,000180: 11,2520           22535                                    GETRPSV                               
053223,000181: 11,2521           74375                           VLOAD    VXSC                                  
053224,000182: 11,2522           02032                                    ALPHAV                                
053225,000183: 11,2523           02070                                    ALPHAM                                
053226,000184: 11,2524           52257                           VSR*     VSU                                   
053227,000185: 11,2525           57175                                    1,2                                   
053228,000186: 11,2526           02040                                    BETAV                                 
053229,000187: 11,2527           77724                           XCHX,2                                         
053230,000188: 11,2530           01500                                    DIFEQCNT                              
053231,000189: 11,2531           12140                           STORE    VECTAB     +6,2                       
053232,000190: 11,2532           02114                           STORE    RQVV                                  
053233,000191: 11,2533           77724                           XCHX,2                                         
053234,000192: 11,2534           01500                                    DIFEQCNT                              
053235,000193: 11,2535           62175        GETRPSV            VLOAD    INCR,1                                
053236,000194: 11,2536           02105                                    RPQV                                  
053237,000195: 11,2537           00004                                    4                                     
053238,000196: 11,2540           43014                           CLEAR    BOF                                   
053239,000197: 11,2541           04260                                    RPQFLAG                               
053240,000198: 11,2542           00343                                    MOONFLAG                              
053241,000199: 11,2543           22550                                    +5                                    
053242,000200: 11,2544           53261                           VSR      VAD                                   
053243,000201: 11,2545           20612                                    9D                                    
053244,000202: 11,2546           02122                                    RPSV                                  
053245,000203: 11,2547           02122                           STORE    RPSV                                  
053246,000204: 11,2550           77624                           CALL                                           
053247,000205: 11,2551           22563                                    GAMCOMP                               
053248,000206: 11,2552           62174                           AXT,2    INCR,1                                
053249,000207: 11,2553           00004                                    4                                     
053250,000208: 11,2554           00004                                    4                                     
053251,000209: 11,2555           77775                           VLOAD                                          
053252,000210: 11,2556           02122                                    RPSV                                  
053253,000211: 11,2557           36040                           STCALL   BETAV                                 
053254,000212: 11,2560           22563                                    GAMCOMP                               
053255,000213: 11,2561           77650                           GOTO                                           
053256,000214: 11,2562           22726                                    OBLATE                                
053257,000215: 11,2563           74575        GAMCOMP            VLOAD    VSR1                                  
053258,000216: 11,2564           02040                                    BETAV                                 
053259,000217: 11,2565           40236                           VSQ      SETPD                                 
053260,000218: 11,2566           00001                                    0                                     
053261,000219: 11,2567           61501                           NORM     ROUND                                 
053262,000220: 11,2570           00040                                    31D                                   
053263,000221: 11,2571           60325                           PDDL     NORM                                  #  NORMED B SQUARED TO PD LIST

Page 1228

053265,000223: 11,2572           02070                                    ALPHAM                                #  NORMALIZE (LESS ONE) LENGTH OF ALPHA
053266,000224: 11,2573           00041                                    32D                                   #  SAVING NORM SCALE FACTOR IN X1
053267,000225: 11,2574           63342                           SR1      PDVL                                  
053268,000226: 11,2575           02040                                    BETAV                                 #  C(PDL+2) = ALMOST NORMED ALPHA
053269,000227: 11,2576           77656                           UNIT                                           
053270,000228: 11,2577           16040                           STODL    BETAV                                 
053271,000229: 11,2600           00045                                    36D                                   
053272,000230: 11,2601           02072                           STORE    BETAM                                 
053273,000231: 11,2602           55301                           NORM     BDDV                                  #  FORM NORMALIZED QUOTIENT ALPHAM/BETAM
053274,000232: 11,2603           00042                                    33D                                   
053275,000233: 11,2604           41562                           SR1R     PUSH                                  #  C(PDL+2) = ALMOST NORMALIZED RHO.
053276,000234: 11,2605           77743                           DLOAD*                                         
053277,000235: 11,2606           27734                                    ASCALE,1                              
053278,000236: 11,2607           00051                           STORE    S1                                    
053279,000237: 11,2610           57124                           XCHX,2   XAD,2                                 
053280,000238: 11,2611           00050                                    S1                                    
053281,000239: 11,2612           00040                                    32D                                   
053282,000240: 11,2613           71264                           XSU,2    DLOAD                                 
053283,000241: 11,2614           00041                                    33D                                   
053284,000242: 11,2615           00003                                    2D                                    
053285,000243: 11,2616           65057                           SR*      XCHX,2                                
053286,000244: 11,2617           57177                                    0          -1,2                       
053287,000245: 11,2620           00050                                    S1                                    
053288,000246: 11,2621           74406                           PUSH     SR1R                                  #  RHO/4 TO 4D
053289,000247: 11,2622           50315                           PDVL     DOT                                   
053290,000248: 11,2623           02032                                    ALPHAV                                
053291,000249: 11,2624           02040                                    BETAV                                 
053292,000250: 11,2625           44372                           SL1R     BDSU                                  #  (RHO/4) - 2(ALPHAV/2.BETAV/2)
053293,000251: 11,2626           57206                           PUSH     DMPR                                  #  TO PDL+6
053294,000252: 11,2627           00005                                    4                                     
053295,000253: 11,2630           77752                           SL1                                            
053296,000254: 11,2631           43206                           PUSH     DAD                                   
053297,000255: 11,2632           23702                                    DQUARTER                              
053298,000256: 11,2633           75406                           PUSH     SQRT                                  
053299,000257: 11,2634           41475                           DMPR     PUSH                                  
053300,000258: 11,2635           00013                                    10D                                   
053301,000259: 11,2636           43352                           SL1      DAD                                   
053302,000260: 11,2637           23702                                    DQUARTER                              
053303,000261: 11,2640           43325                           PDDL     DAD                                   #  (1/4)+2((Q+1)/4)      TO PD+14D
053304,000262: 11,2641           00013                                    10D                                   
053305,000263: 11,2642           22273                                    HALFDP                                
053306,000264: 11,2643           72475                           DMPR     SL1                                   
053307,000265: 11,2644           00011                                    8D                                    
053308,000266: 11,2645           56215                           DAD      DDV                                   
053309,000267: 11,2646           23674                                    THREE/8                               
053310,000268: 11,2647           00017                                    14D                                   
053311,000269: 11,2650           74275                           DMPR     VXSC                                  
053312,000270: 11,2651           00007                                    6                                     
053313,000271: 11,2652           02040                                    BETAV                                 #                -
053314,000272: 11,2653           64515                           PDVL     VSR3                                  #  (G/2)(C(PD+4))B/2 TO PD+16D

Page 1229

053316,000274: 11,2654           02032                                    ALPHAV                                
053317,000275: 11,2655           41455                           VAD      PUSH                                  #  A12 + C(PD+16D) TO PD+16D
053318,000276: 11,2656           41345                           DLOAD    DMP                                   
053319,000277: 11,2657           00001                                    0                                     
053320,000278: 11,2660           00015                                    12D                                   
053321,000279: 11,2661           61501                           NORM     ROUND                                 
053322,000280: 11,2662           00037                                    30D                                   
053323,000281: 11,2663           40665                           BDDV     DMP*                                  
053324,000282: 11,2664           00003                                    2                                     
053325,000283: 11,2665           51770                                    MUEARTH,2                             
053326,000284: 11,2666           74276                           DCOMP    VXSC                                  
053327,000285: 11,2667           57124                           XCHX,2   XAD,2                                 
053328,000286: 11,2670           00050                                    S1                                    
053329,000287: 11,2671           00051                                    S2                                    
053330,000288: 11,2672           55064                           XSU,2    XSU,2                                 
053331,000289: 11,2673           00036                                    30D                                   
053332,000290: 11,2674           00037                                    31D                                   
053333,000291: 11,2675           77600                           BOV                                            #  CLEAR OVIND
053334,000292: 11,2676           22677                                    +1                                    
053335,000293: 11,2677           65057                           VSR*     XCHX,2                                
053336,000294: 11,2700           57177                                    0          -1,2                       
053337,000295: 11,2701           00050                                    S1                                    
053338,000296: 11,2702           77655                           VAD                                            
053339,000297: 11,2703           02062                                    FV                                    
053340,000298: 11,2704           02062                           STORE    FV                                    
053341,000299: 11,2705           43400                           BOV      RVQ                                   #  RETURN IF NO OVERFLOW
053342,000300: 11,2706           22707                                    +1                                    
053343,000301: 11,2707           54345        GOBAQUE            DLOAD    SR                                    
053344,000302: 11,2710           02100                                    H                                     
053345,000303: 11,2711           20612                                    9D                                    
053346,000304: 11,2712           44206                           PUSH     BDSU                                  
053347,000305: 11,2713           01551                                    TC                                    
053348,000306: 11,2714           16074                           STODL    TAU.                                  
053349,000307: 11,2715           01517                                    TET                                   
053350,000308: 11,2716           45425                           DSU      STADR                                 
053351,000309: 11,2717           42260                           STCALL   TET                                   
053352,000310: 11,2720           22311                                    KEPPREP                               
053353,000311: 11,2721           77624                           CALL                                           
053354,000312: 11,2722           23345                                    RECTIFY                               
053355,000313: 11,2723           77614                           SETGO                                          
053356,000314: 11,2724           04020                                    RPQFLAG                               
053357,000315: 11,2725           27255                                    TESTLOOP                              

Page 1230

053359,000317:                                                                                                  #  THE OBLATE ROUTINE COMPUTES THE ACCELERATION DUE TO OBLATENESS. IT USES THE UNIT OF THE VEHICLE
053360,000318:                                                                                                  #  POSITION VECTOR FOUND IN ALPHAV AND THE DISTANCE TO THE CENTER IN ALPHAM. THIS IS ADDED TO THE SUM OF THE
053361,000319:                                                                                                  #  DISTURBING ACCELERATIONS IN FV AND THE PROPER DIFEQ STAGE IS CALLED VIA X1.
053362,000320: 
053363,000321: 11,2726           71354        OBLATE             LXA,2    DLOAD                                 
053364,000322: 11,2727           02030                                    PBODY                                 
053365,000323: 11,2730           02070                                    ALPHAM                                
053366,000324: 11,2731           44601                           SETPD    DSU*                                  
053367,000325: 11,2732           00001                                    0                                     
053368,000326: 11,2733           50027                                    RDE,2                                 
053369,000327: 11,2734           43044                           BPL      BOF                                   #  GET URPV
053370,000328: 11,2735           23136                                    NBRANCH                               
053371,000329: 11,2736           00343                                    MOONFLAG                              
053372,000330: 11,2737           23145                                    COSPHIE                               
053373,000331: 11,2740           65375                           VLOAD    PDDL                                  
053374,000332: 11,2741           02032                                    ALPHAV                                
053375,000333: 11,2742           01517                                    TET                                   
053376,000334: 11,2743           45125                           PDDL     CALL                                  
053377,000335: 11,2744           23672                                    3/5                                   
053378,000336: 11,2745           51531                                    R-TO-RP                               
053379,000337: 11,2746           00017                           STORE    URPV                                  
053380,000338: 11,2747           47375                           VLOAD    VXV                                   
053381,000339: 11,2750           02013                                    504LM                                 
053382,000340: 11,2751           22267                                    ZUNIT                                 
053383,000341: 11,2752           61255                           VAD      VXM                                   
053384,000342: 11,2753           22267                                    ZUNIT                                 
053385,000343: 11,2754           00025                                    MMATRIX                               
053386,000344: 11,2755           77656                           UNIT                                           #  POSSIBLY UNNECESSARY
053387,000345: 11,2756           00025        COMTERM            STORE    UZ                                    
053388,000346: 11,2757           57345                           DLOAD    DMPR                                  
053389,000347: 11,2760           00023                                    COSPHI/2                              
053390,000348: 11,2761           23704                                    3/32                                  
053391,000349: 11,2762           63525                           PDDL     DSQ                                   #  P2/64 TO PD0
053392,000350: 11,2763           00023                                    COSPHI/2                              
053393,000351: 11,2764           45275                           DMPR     DSU                                   
053394,000352: 11,2765           23706                                    15/16                                 
053395,000353: 11,2766           23700                                    3/64                                  
053396,000354: 11,2767           57206                           PUSH     DMPR                                  #  P3/32 TO PD2
053397,000355: 11,2770           00023                                    COSPHI/2                              
053398,000356: 11,2771           76405                           DMP      SL1R                                  
053399,000357: 11,2772           23712                                    7/12                                  
053400,000358: 11,2773           57325                           PDDL     DMPR                                  
053401,000359: 11,2774           00001                                    0                                     
053402,000360: 11,2775           23720                                    2/3                                   
053403,000361: 11,2776           41421                           BDSU     PUSH                                  #  P4/128 TO PD4
053404,000362: 11,2777           57275                           DMPR     DMPR                                  
053405,000363: 11,3000           00023                                    COSPHI/2                              #  BEGIN COMPUTING P5/1024
053406,000364: 11,3001           23714                                    9/16                                  
053407,000365: 11,3002           57325                           PDDL     DMPR                                  
053408,000366: 11,3003           00003                                    2                                     
053409,000367: 11,3004           23716                                    5/128                                 

Page 1231

053411,000369: 11,3005           77621                           BDSU                                           
053412,000370: 11,3006           77603                           DMP*                                           
053413,000371: 11,3007           51764                                    J4REQ/J3,2                            
053414,000372: 11,3010           43271                           DDV      DAD                                   #               -3
053415,000373: 11,3011           02070                                    ALPHAM                                #  (((P5/256)B 2  /R+P4/32)  /R+P3/8)ALPHAV
053416,000374: 11,3012           00005                                    4                                     #             4             3
053417,000375: 11,3013           56273                           DMPR*    DDV                                   
053418,000376: 11,3014           51760                                    2J3RE/J2,2                            
053419,000377: 11,3015           02070                                    ALPHAM                                
053420,000378: 11,3016           74215                           DAD      VXSC                                  
053421,000379: 11,3017           00003                                    2                                     
053422,000380: 11,3020           02032                                    ALPHAV                                
053423,000381: 11,3021           14033                           STODL    TVEC                                  
053424,000382: 11,3022           70403                           DMP*     SR1                                   
053425,000383: 11,3023           51764                                    J4REQ/J3,2                            
053426,000384: 11,3024           43271                           DDV      DAD                                   
053427,000385: 11,3025           02070                                    ALPHAM                                #                -3
053428,000386: 11,3026           50473                           DMPR*    SR3                                   
053429,000387: 11,3027           51760                                    2J3RE/J2,2                            #     3        4
053430,000388: 11,3030           43271                           DDV      DAD                                   
053431,000389: 11,3031           02070                                    ALPHAM                                
053432,000390: 11,3032           76561                           VXSC     VSL1                                  
053433,000391: 11,3033           00025                                    UZ                                    
053434,000392: 11,3034           77645                           BVSU                                           
053435,000393: 11,3035           00033                                    TVEC                                  
053436,000394: 11,3036           14033                           STODL    TVEC                                  
053437,000395: 11,3037           02070                                    ALPHAM                                
053438,000396: 11,3040           63501                           NORM     DSQ                                   
053439,000397: 11,3041           00047                                    X1                                    
053440,000398: 11,3042           60316                           DSQ      NORM                                  
053441,000399: 11,3043           00051                                    S1                                    #          4
053442,000400: 11,3044           54606                           PUSH     BDDV*                                 #  NORMED R  TO 0D
053443,000401: 11,3045           51754                                    J2REQSQ,2                             
053444,000402: 11,3046           77761                           VXSC                                           
053445,000403: 11,3047           00033                                    TVEC                                  
053446,000404: 11,3050           00033                           STORE    TVEC                                  
053447,000405: 11,3051           56070                           XAD,1    XAD,1                                 
053448,000406: 11,3052           00046                                    X1                                    
053449,000407: 11,3053           00046                                    X1                                    
053450,000408: 11,3054           43070                           XAD,1    BOF                                   
053451,000409: 11,3055           00050                                    S1                                    
053452,000410: 11,3056           00343                                    MOONFLAG                              
053453,000411: 11,3057           23126                                    NBRANCH1                              
053454,000412: 11,3060           63545                           DLOAD    DSQ                                   #   2
053455,000413: 11,3061           00017                                    URPV                                  #  X  B-2 TO 2D
053456,000414: 11,3062           63525                           PDDL     DSQ                                   
053457,000415: 11,3063           00021                                    URPV       +2                         #   2  2
053458,000416: 11,3064           65215                           DAD      PDDL                                  #  Y +X  B-2 TO 2D
053459,000417: 11,3065           00003                                    2D                                    
053460,000418: 11,3066           45352                           SL1      DSU                                   
053461,000419: 

Page 1232

053463,000421: 11,3067           00003                                    2D                                    
053464,000422: 11,3070           41525                           PDDL     PUSH                                  #  X -Y  B-2 TO 4D  COSPHI2 TO 6D
053465,000423: 11,3071           00023                                    COSPHI/2                              
053466,000424: 11,3072           65361                           VXSC     PDDL                                  #  2COSPHI(UZ) B-3 TO 6D
053467,000425: 11,3073           00025                                    UZ                                    
053468,000426: 11,3074           45316                           DSQ      DSU                                   
053469,000427: 11,3075           23672                                    3/5                                   #    2   2      2
053470,000428: 11,3076           52405                           DMP      SL3                                   #  (X -Y)((5COS (PHI)-3)UR 2COS(PHI)UZ)
053471,000429: 11,3077           27736                                    5/8                                   
053472,000430: 11,3100           52361                           VXSC     VSU                                   #       B-3 TO 4D
053473,000431: 11,3101           02032                                    ALPHAV                                
053474,000432: 11,3102           72561                           VXSC     VSL2                                  
053475,000433: 11,3103           77725                           PDDL                                           
053476,000434: 11,3104           00017                                    URPV                                  
053477,000435: 11,3105           63205                           DMP      PDVL                                  #  XY B-2 TO 10D
053478,000436: 11,3106           00021                                    URPV       +2                         
053479,000437: 11,3107           02032                                    ALPHAV                                
053480,000438: 11,3110           74235                           VXV      VXSC                                  
053481,000439: 11,3111           00025                                    UZ                                    
053482,000440: 11,3112           53332                           VSL3     VAD                                   #  4XY(UR X UZ) +D( 4D) B-3
053483,000441: 11,3113           77725                           PDDL                                           
053484,000442: 11,3114           41301                           NORM     DMP                                   
053485,000443: 11,3115           00050                                    X2                                    
053486,000444: 11,3116           00001                                    0D                                    #  3J22R2MU/(X +Y )R
053487,000445: 11,3117           74265                           BDDV     VXSC                                  
053488,000446: 11,3120           26025                                    3J22R2MU                              
053489,000447: 11,3121           53257                           VSL*     VAD                                   
053490,000448: 11,3122           57605                                    0          -7,2                       
053491,000449: 11,3123           00033                                    TVEC                                  
053492,000450: 11,3124           77754                           LXA,2                                          
053493,000451: 11,3125           02030                                    PBODY                                 
053494,000452: 11,3126           77600        NBRANCH1           BOV                                            
053495,000453: 11,3127           23130                                    +1                                    
053496,000454: 11,3130           53257                           VSL*     VAD                                   
053497,000455: 11,3131           20153                                    0          -22D,1                     
053498,000456: 11,3132           02062                                    FV                                    
053499,000457: 11,3133           02062                           STORE    FV                                    
053500,000458: 11,3134           77600                           BOV                                            
053501,000459: 11,3135           22707                                    GOBAQUE                               
053502,000460: 
053503,000461: 11,3136           72135        NBRANCH            SLOAD    LXA,1                                 
053504,000462: 11,3137           01501                                    DIFEQCNT                              
053505,000463: 11,3140           00154                                    MPAC                                  
053506,000464: 11,3141           73205                           DMP      CGOTO                                 
053507,000465: 11,3142           27740                                    -1/12                                 
053508,000466: 11,3143           00155                                    MPAC                                  
053509,000467: 11,3144           23153                                    DIFEQTAB                              
053510,000468: 11,3145           77745        COSPHIE            DLOAD                                          
053511,000469: 11,3146           02036                                    ALPHAV     +4                         
053512,000470: 11,3147           24023                           STOVL    COSPHI/2                              
053513,000471: 11,3150           22267                                    ZUNIT                                 

Page 1233

053515,000473: 11,3151           77650                           GOTO                                           
053516,000474: 11,3152           22756                                    COMTERM                               
053517,000475: 11,3153           23372        DIFEQTAB           CADR     DIFEQ+0                               
053518,000476: 11,3154           23376                           CADR     DIFEQ+1                               
053519,000477: 11,3155           23407                           CADR     DIFEQ+2                               
053520,000478: 11,3156           77214        TIMESTEP           BOF      VLOAD                                 
053521,000479: 11,3157           00342                                    MIDFLAG                               
053522,000480: 11,3160           23207                                    RECTEST                               
053523,000481: 11,3161           01535                                    RCV                                   
053524,000482: 11,3162           41241                           DOT      DMP                                   
053525,000483: 11,3163           01543                                    VCV                                   
053526,000484: 11,3164           02076                                    DT/2                                  #  (R.V) X (DELTA T)
053527,000485: 11,3165           77640                           BMN                                            
053528,000486: 11,3166           23207                                    RECTEST                               
053529,000487: 11,3167           43014                           BON      BOF                                   
053530,000488: 11,3170           00303                                    MOONFLAG                              
053531,000489: 11,3171           23264                                    LUNSPH                                
053532,000490: 11,3172           04340                                    RPQFLAG                               
053533,000491: 11,3173           23261                                    EARSPH                                
053534,000492: 11,3174           45145                           DLOAD    CALL                                  
053535,000493: 11,3175           01517                                    TET                                   
053536,000494: 11,3176           33663                                    LSPOS                                 #  RPQV IN MPAC
053537,000495: 11,3177           02105                           STORE    RPQV                                  #  RPQV
053538,000496: 11,3200           77754                           LXA,2                                          
053539,000497: 11,3201           02030                                    PBODY                                 
053540,000498: 11,3202           51445        INLUNCHK           BVSU     ABVAL                                 
053541,000499: 11,3203           01535                                    RCV                                   
053542,000500: 11,3204           50025                           DSU      BMN                                   
053543,000501: 11,3205           27744                                    RSPHERE                               
053544,000502: 11,3206           23301                                    DOSWITCH                              
053545,000503: 11,3207           51575        RECTEST            VLOAD    ABVAL                                 #  RECTIFY IF
053546,000504: 11,3210           01521                                    TDELTAV                               
053547,000505: 11,3211           77600                           BOV                                            
053548,000506: 11,3212           23235                                    CALLRECT                              
053549,000507: 11,3213           51025                           DSU      BPL                                   #        1) EITHER TDELTAV OR TNUV EQUALS OR
053550,000508: 11,3214           23710                                    3/4                                   #           EXCEEDS 3/4 IN MAGNITUDE
053551,000509: 11,3215           23235                                    CALLRECT                              
053552,000510: 11,3216           53615                           DAD      SL*                                   #                        OR
053553,000511: 11,3217           23710                                    3/4                                   
053554,000512: 11,3220           57605                                    0          -7,2                       #        2) ABVAL(TDELTAV) EQUALS OR EXCEEDS
053555,000513: 11,3221           45271                           DDV      DSU                                   #           .01(ABVAL(RCV))
053556,000514: 11,3222           00013                                    10D                                   
053557,000515: 11,3223           27742                                    RECRATIO                              
053558,000516: 11,3224           77244                           BPL      VLOAD                                 
053559,000517: 11,3225           23235                                    CALLRECT                              
053560,000518: 11,3226           01527                                    TNUV                                  
053561,000519: 11,3227           45246                           ABVAL    DSU                                   
053562,000520: 11,3230           23710                                    3/4                                   
053563,000521: 11,3231           77600                           BOV                                            
053564,000522: 11,3232           23235                                    CALLRECT                              

Page 1234

053566,000524: 11,3233           77640                           BMN                                            
053567,000525: 11,3234           23237                                    INTGRATE                              
053568,000526: 11,3235           77624        CALLRECT           CALL                                           
053569,000527: 11,3236           23345                                    RECTIFY                               
053570,000528: 11,3237           77775        INTGRATE           VLOAD                                          
053571,000529: 11,3240           01527                                    TNUV                                  
053572,000530: 11,3241           25135                           STOVL    ZV                                    
053573,000531: 11,3242           01521                                    TDELTAV                               
053574,000532: 11,3243           01127                           STORE    YV                                    
053575,000533: 11,3244           77614                           CLEAR                                          
053576,000534: 11,3245           00261                                    JSWITCH                               
053577,000535: 11,3246           66375        DIFEQ0             VLOAD    SSP                                   
053578,000536: 11,3247           01127                                    YV                                    
053579,000537: 11,3250           01501                                    DIFEQCNT                              
053580,000538: 11,3251           00000                                    0                                     
053581,000539: 11,3252           16032                           STODL    ALPHAV                                
053582,000540: 11,3253           22275                                    DPZERO                                
053583,000541: 11,3254           02100                           STORE    H                                     #  START H AT ZERO.  GOES 0(DELT/2)DELT.
053584,000542: 11,3255           52014                           BON      GOTO                                  
053585,000543: 11,3256           00301                                    JSWITCH                               
053586,000544: 11,3257           23611                                    DOW..                                 
053587,000545: 11,3260           22431                                    ACCOMP                                
053588,000546: 11,3261           52175        EARSPH             VLOAD    GOTO                                  
053589,000547: 11,3262           02105                                    RPQV                                  
053590,000548: 11,3263           23202                                    INLUNCHK                              
053591,000549: 11,3264           60545        LUNSPH             DLOAD    SR2                                   
053592,000550: 11,3265           00013                                    10D                                   
053593,000551: 11,3266           50025                           DSU      BMN                                   
053594,000552: 11,3267           27744                                    RSPHERE                               
053595,000553: 11,3270           23207                                    RECTEST                               
053596,000554: 11,3271           71214                           BOF      DLOAD                                 
053597,000555: 11,3272           04340                                    RPQFLAG                               
053598,000556: 11,3273           23301                                    DOSWITCH                              
053599,000557: 11,3274           01517                                    TET                                   
053600,000558: 11,3275           77624                           CALL                                           
053601,000559: 11,3276           33663                                    LUNPOS                                
053602,000560: 11,3277           77676                           VCOMP                                          
053603,000561: 11,3300           02105                           STORE    RPQV                                  
053604,000562: 11,3301           77624        DOSWITCH           CALL                                           
053605,000563: 11,3302           23305                                    ORIGCHNG                              
053606,000564: 11,3303           77650                           GOTO                                           
053607,000565: 11,3304           23237                                    INTGRATE                              
053608,000566: 11,3305           45020        ORIGCHNG           STQ      CALL                                  
053609,000567: 11,3306           02112                                    ORIGEX                                
053610,000568: 11,3307           23345                                    RECTIFY                               
053611,000569: 11,3310           53775                           VLOAD    VSL*                                  
053612,000570: 11,3311           01535                                    RCV                                   
053613,000571: 11,3312           57576                                    0,2                                   
053614,000572: 11,3313           53651                           VSU      VSL*                                  
053615,000573: 11,3314           02105                                    RPQV                                  

Page 1235

053617,000575: 11,3315           57574                                    2,2                                   
053618,000576: 11,3316           01503                           STORE    RRECT                                 
053619,000577: 11,3317           15535                           STODL    RCV                                   
053620,000578: 11,3320           01517                                    TET                                   
053621,000579: 11,3321           77624                           CALL                                           
053622,000580: 11,3322           33774                                    LUNVEL                                
053623,000581: 11,3323           57414                           BOF      VCOMP                                 
053624,000582: 11,3324           00343                                    MOONFLAG                              
053625,000583: 11,3325           23326                                    +1                                    
053626,000584: 11,3326           53715                           PDVL     VSL*                                  
053627,000585: 11,3327           01543                                    VCV                                   
053628,000586: 11,3330           57576                                    0,2                                   
053629,000587: 11,3331           77651                           VSU                                            
053630,000588: 11,3332           77657                           VSL*                                           
053631,000589: 11,3333           57574                                    0          +2,2                       
053632,000590: 11,3334           01511                           STORE    VRECT                                 
053633,000591: 11,3335           01543                           STORE    VCV                                   
053634,000592: 11,3336           67154                           LXA,2    SXA,2                                 
053635,000593: 11,3337           02112                                    ORIGEX                                
053636,000594: 11,3340           00052                                    QPRET                                 
053637,000595: 11,3341           52014                           BON      GOTO                                  
053638,000596: 11,3342           00303                                    MOONFLAG                              
053639,000597: 11,3343           26711                                    CLRMOON                               
053640,000598: 11,3344           26716                                    SETMOON                               

Page 1236

053642,000600:                                                                                                  #  THE RECTIFY SUBROUTINE IS CALLED BY THE INTEGRATION PROGRAM AND OCCASIONALLY BY THE MEASUREMENT INCORPORATION
053643,000601:                                                                                                  #  ROUTINES TO ESTABLISH A NEW CONIC.
053644,000602: 
053645,000603: 11,3345           77354        RECTIFY            LXA,2    VLOAD                                 
053646,000604: 11,3346           02030                                    PBODY                                 
053647,000605: 11,3347           01521                                    TDELTAV                               
053648,000606: 11,3350           53257                           VSL*     VAD                                   
053649,000607: 11,3351           57605                                    0          -7,2                       
053650,000608: 11,3352           01535                                    RCV                                   
053651,000609: 11,3353           01503                           STORE    RRECT                                 
053652,000610: 11,3354           25535                           STOVL    RCV                                   
053653,000611: 11,3355           01527                                    TNUV                                  
053654,000612: 11,3356           53257                           VSL*     VAD                                   
053655,000613: 11,3357           57602                                    0          -4,2                       
053656,000614: 11,3360           01543                                    VCV                                   
053657,000615: 11,3361           01511        MINIRECT           STORE    VRECT                                 
053658,000616: 11,3362           25543                           STOVL    VCV                                   
053659,000617: 11,3363           22275                                    ZEROVEC                               
053660,000618: 11,3364           01521                           STORE    TDELTAV                               
053661,000619: 11,3365           15527                           STODL    TNUV                                  
053662,000620: 11,3366           22275                                    ZEROVEC                               
053663,000621: 11,3367           01551                           STORE    TC                                    
053664,000622: 11,3370           01553                           STORE    XKEP                                  
053665,000623: 11,3371           77616                           RVQ                                            
053666,000624: 

Page 1237

053668,000626:                                                                                                  #  THE THREE DIFEQ ROUTINES - DIFEQ+0, DIFEQ+12, AND DIFEQ+24 - ARE ENTEREDTO PROCESS THE CONTRIBUTIONS AT THE
053669,000627:                                                                                                  #  BEGINNING, MIDDLE, AND END OF THE TIMESTEP, RESPECTIVELY.  THE UPDATING IS DONE BY THE NYSTROM METHOD.
053670,000628: 
053671,000629: 11,3372           64575        DIFEQ+0            VLOAD    VSR3                                  
053672,000630: 11,3373           02062                                    FV                                    
053673,000631: 11,3374           36046                           STCALL   PHIV                                  
053674,000632: 11,3375           23552                                    DIFEQCOM                              
053675,000633: 11,3376           74575        DIFEQ+1            VLOAD    VSR1                                  
053676,000634: 11,3377           02062                                    FV                                    
053677,000635: 11,3400           53206                           PUSH     VAD                                   
053678,000636: 11,3401           02046                                    PHIV                                  
053679,000637: 11,3402           26054                           STOVL    PSIV                                  
053680,000638: 11,3403           53362                           VSR1     VAD                                   
053681,000639: 11,3404           02046                                    PHIV                                  
053682,000640: 11,3405           36046                           STCALL   PHIV                                  
053683,000641: 11,3406           23552                                    DIFEQCOM                              
053684,000642: 11,3407           57345        DIFEQ+2            DLOAD    DMPR                                  
053685,000643: 11,3410           02100                                    H                                     
053686,000644: 11,3411           23720                                    DP2/3                                 
053687,000645: 11,3412           74206                           PUSH     VXSC                                  
053688,000646: 11,3413           02046                                    PHIV                                  
053689,000647: 11,3414           53372                           VSL1     VAD                                   
053690,000648: 11,3415           01135                                    ZV                                    
053691,000649: 11,3416           53361                           VXSC     VAD                                   
053692,000650: 11,3417           02100                                    H                                     
053693,000651: 11,3420           01127                                    YV                                    
053694,000652: 11,3421           25127                           STOVL    YV                                    
053695,000653: 11,3422           02062                                    FV                                    
053696,000654: 11,3423           53322                           VSR3     VAD                                   
053697,000655: 11,3424           02054                                    PSIV                                  
053698,000656: 11,3425           76561                           VXSC     VSL1                                  
053699,000657: 11,3426           77655                           VAD                                            
053700,000658: 11,3427           01135                                    ZV                                    
053701,000659: 11,3430           01135                           STORE    ZV                                    
053702,000660: 11,3431           45014                           BOFF     CALL                                  
053703,000661: 11,3432           00341                                    JSWITCH                               
053704,000662: 11,3433           23503                                    ENDSTATE                              
053705,000663: 11,3434           11165                                    GRP2PC                                
053706,000664: 11,3435           77354                           LXA,2    VLOAD                                 
053707,000665: 11,3436           01117                                    COLREG                                
053708,000666: 11,3437           01135                                    ZV                                    
053709,000667: 11,3440           77732                           VSL3                                           #  ADJUST W-POSITION FOR STORAGE
053710,000668: 11,3441           12467                           STORE    W          +54D,2                     
053711,000669: 11,3442           77775                           VLOAD                                          
053712,000670: 11,3443           01127                                    YV                                    
053713,000671: 11,3444           40132                           VSL3     BOV                                   
053714,000672: 11,3445           23575                                    WMATEND                               
053715,000673: 11,3446           12401                           STORE    W,2                                   
053716,000674: 
053717,000675: 11,3447           77624                           CALL                                           
053718,000676: 11,3450           11165                                    GRP2PC                                

Page 1238

053720,000678: 11,3451           66354                           LXA,2    SSP                                   
053721,000679: 11,3452           01117                                    COLREG                                
053722,000680: 11,3453           00052                                    S2                                    
053723,000681: 11,3454           00000                                    0                                     
053724,000682: 11,3455           67114                           INCR,2   SXA,2                                 
053725,000683: 11,3456           00006                                    6                                     
053726,000684: 11,3457           01126                                    YV                                    
053727,000685: 11,3460           45104                           TIX,2    CALL                                  
053728,000686: 11,3461           23546                                    RELOADSV                              
053729,000687: 11,3462           11165                                    GRP2PC                                
053730,000688: 11,3463           67154                           LXA,2    SXA,2                                 
053731,000689: 11,3464           01126                                    YV                                    
053732,000690: 11,3465           01117                                    COLREG                                
053733,000691: 
053734,000692: 11,3466           77624        NEXTCOL            CALL                                           
053735,000693: 11,3467           11165                                    GRP2PC                                
053736,000694: 11,3470           76754                           LXA,2    VLOAD*                                
053737,000695: 11,3471           01117                                    COLREG                                
053738,000696: 11,3472           75376                                    W,2                                   
053739,000697: 11,3473           77722                           VSR3                                           #  ADJUST W-POSITION FOR INTEGRATION
053740,000698: 11,3474           01127                           STORE    YV                                    
053741,000699: 11,3475           76173                           VLOAD*   AXT,1                                 
053742,000700: 11,3476           75310                                    W          +54D,2                     
053743,000701: 11,3477           00000                                    0                                     
053744,000702: 11,3500           77722                           VSR3                                           #  ADJUST W-VELOCITY FOR INTEGRATION
053745,000703: 11,3501           35135                           STCALL   ZV                                    
053746,000704: 11,3502           23246                                    DIFEQ0                                
053747,000705: 
053748,000706: 11,3503           77200        ENDSTATE           BOV      VLOAD                                 
053749,000707: 11,3504           22707                                    GOBAQUE                               
053750,000708: 11,3505           01135                                    ZV                                    
053751,000709: 11,3506           25527                           STOVL    TNUV                                  
053752,000710: 11,3507           01127                                    YV                                    
053753,000711: 11,3510           01521                           STORE    TDELTAV                               
053754,000712: 11,3511           43014                           BON      BOFF                                  
053755,000713: 11,3512           04715                                    MIDAVFLG                              
053756,000714: 11,3513           27657                                    CKMID2                                #  CHECK FOR MID2 BEFORE GOING TO TIMEINC
053757,000715: 11,3514           01756                                    DIM0FLAG                              
053758,000716: 11,3515           27255                                    TESTLOOP                              
053759,000717: 11,3516           77776                           EXIT                                           
053760,000718: 11,3517           05353                           TC       PHASCHNG                              
053761,000719: 11,3520           04022                           OCT      04022                                 #  PHASE 1
053762,000720: 11,3521           05504                           TC       UPFLAG                                #  PHASE CHANGE HAS OCCURRED BETWEEN
053763,000721: 11,3522           00236                           ADRES    REINTFLG                              #  INTSTALL AND INTWAKE
053764,000722: 11,3523           06036                           TC       INTPRET                               
053765,000723: 11,3524           77731                           SSP                                            
053766,000724: 11,3525           00053                                    QPRET                                 
053767,000725: 11,3526           23533                                    AMOVED                                
053768,000726: 11,3527           52014                           BON      GOTO                                  
053769,000727: 11,3530           01714                                    VINTFLAG                              

Page 1239

053771,000729: 11,3531           26661                                    ATOPCSM                               
053772,000730: 11,3532           26734                                    ATOPLEM                               
053773,000731: 11,3533           66214        AMOVED             SET      SSP                                   
053774,000732: 11,3534           00061                                    JSWITCH                               
053775,000733: 11,3535           01120                                    COLREG                                
053776,000734: 11,3536           77741                           DEC      -30        B-14                       
053777,000735: 11,3537           66214                           BOFF     SSP                                   
053778,000736: 11,3540           01755                                    D6OR9FLG                              
053779,000737: 11,3541           23466                                    NEXTCOL                               
053780,000738: 11,3542           01120                                    COLREG                                
053781,000739: 11,3543           77717                           DEC      -48        B-14                       
053782,000740: 11,3544           77650                           GOTO                                           
053783,000741: 11,3545           23466                                    NEXTCOL                               
053784,000742: 
053785,000743: 11,3546           77745        RELOADSV           DLOAD                                          #  RELOAD TEMPORARY STATE VECTOR
053786,000744: 11,3547           01116                                    TDEC                                  #  FROM PERMANENT IN CASE OF
053787,000745: 11,3550           34041                           STCALL   TDEC1                                 
053788,000746: 11,3551           27141                                    INTEGRV2                              #  BY STARTING AT INTEGRV2.
053789,000747: 11,3552           43345        DIFEQCOM           DLOAD    DAD                                   #  INCREMENT H AND DIFEQCNT.
053790,000748: 11,3553           02076                                    DT/2                                  
053791,000749: 11,3554           02100                                    H                                     
053792,000750: 11,3555           66110                           INCR,1   SXA,1                                 
053793,000751: 11,3556           77763                           DEC      -12        B-14                       
053794,000752: 11,3557           01500                                    DIFEQCNT                              #  DIFEQCNT SET FOR NEXT ENTRY.
053795,000753: 11,3560           02100                           STORE    H                                     
053796,000754: 11,3561           74561                           VXSC     VSR1                                  
053797,000755: 11,3562           02062                                    FV                                    
053798,000756: 11,3563           74255                           VAD      VXSC                                  
053799,000757: 11,3564           01135                                    ZV                                    
053800,000758: 11,3565           02100                                    H                                     
053801,000759: 11,3566           77655                           VAD                                            
053802,000760: 11,3567           01127                                    YV                                    
053803,000761: 11,3570           02032                           STORE    ALPHAV                                
053804,000762: 11,3571           52014                           BON      GOTO                                  
053805,000763: 11,3572           00301                                    JSWITCH                               
053806,000764: 11,3573           23611                                    DOW..                                 
053807,000765: 11,3574           22411                                    FBR3                                  
053808,000766: 
053809,000767: 11,3575           43014        WMATEND            CLEAR    CLEAR                                 
053810,000768: 11,3576           01676                                    DIM0FLAG                              #  DONT INTEGRATE W THIS TIME
053811,000769: 11,3577           01671                                    ORBWFLAG                              #  INVALIDATE W
053812,000770: 11,3600           77614                           CLEAR                                          
053813,000771: 11,3601           02676                                    RENDWFLG                              
053814,000772: 11,3602           77414                           SET      EXIT                                  
053815,000773: 11,3603           01472                                    STATEFLG                              #  PICK UP STATE VECTOR UPDATE
053816,000774: 11,3604           05567                           TC       ALARM                                 
053817,000775: 11,3605           00421                           OCT      421                                   
053818,000776: 11,3606           06036                           TC       INTPRET                               

Page 1240

053820,000778: 11,3607           77650                           GOTO                                           
053821,000779: 11,3610           27255                                    TESTLOOP                              #  FINISH INTEGRATING STATE VECTOR
053822,000780: 

Page 1241

053824,000782:                                                                                                  #  ORBITAL ROUTINE FOR EXTRAPOLATION OF THE W MATRIX. IT COMPUTES THE SECOND DERIVATIVE OF EACH COLUMN POSITION
053825,000783:                                                                                                  #  VECTOR OF THE MATRIX AND CALLS THE NYSTROM INTEGRATION ROUTINES TO SOLVE THE DIFFERENTIAL EQUATIONS. THE PROGRAM
053826,000784:                                                                                                  #  USES A TABLE OF VEHICLE POSITION VECTORS COMPUTED DURING THE INTEGRATION OF THE VEHICLES POSITION AND VELOCITY.
053827,000785: 
053828,000786: 11,3611           70754        DOW..              LXA,2    DLOAD*                                
053829,000787: 11,3612           02030                                    PBODY                                 
053830,000788: 11,3613           51770                                    MUEARTH,2                             
053831,000789: 11,3614           36072                           STCALL   BETAM                                 
053832,000790: 11,3615           23637                                    DOW..1                                
053833,000791: 11,3616           02062                           STORE    FV                                    
053834,000792: 11,3617           62014                           BOF      INCR,1                                
053835,000793: 11,3620           00342                                    MIDFLAG                               
053836,000794: 11,3621           23136                                    NBRANCH                               
053837,000795: 11,3622           77771                           DEC      -6         B-14                       
053838,000796: 11,3623           70744                           LXC,2    DLOAD*                                
053839,000797: 11,3624           02030                                    PBODY                                 
053840,000798: 11,3625           51772                                    MUEARTH    -2,2                       
053841,000799: 11,3626           36072                           STCALL   BETAM                                 
053842,000800: 11,3627           23637                                    DOW..1                                
053843,000801: 11,3630           50414                           BON      VSR6                                  
053844,000802: 11,3631           00303                                    MOONFLAG                              
053845,000803: 11,3632           23633                                    +1                                    
053846,000804: 11,3633           77655                           VAD                                            
053847,000805: 11,3634           02062                                    FV                                    
053848,000806: 11,3635           36062                           STCALL   FV                                    
053849,000807: 11,3636           23136                                    NBRANCH                               
053850,000808: 11,3637           60575        DOW..1             VLOAD    VSR4                                  
053851,000809: 11,3640           02032                                    ALPHAV                                
053852,000810: 11,3641           53513                           PDVL*    UNIT                                  
053853,000811: 11,3642           02132                                    VECTAB,1                              
053854,000812: 11,3643           46315                           PDVL     VPROJ                                 
053855,000813: 11,3644           02032                                    ALPHAV                                
053856,000814: 11,3645           52361                           VXSC     VSU                                   
053857,000815: 11,3646           23710                                    3/4                                   
053858,000816: 11,3647           60325                           PDDL     NORM                                  
053859,000817: 11,3650           00045                                    36D                                   
053860,000818: 11,3651           00052                                    S2                                    
053861,000819: 11,3652           63406                           PUSH     DSQ                                   
053862,000820: 11,3653           77605                           DMP                                            
053863,000821: 11,3654           65301                           NORM     PDDL                                  
053864,000822: 11,3655           00043                                    34D                                   
053865,000823: 11,3656           02072                                    BETAM                                 
053866,000824: 11,3657           56342                           SR1      DDV                                   
053867,000825: 11,3660           77761                           VXSC                                           
053868,000826: 11,3661           57154                           LXA,2    XAD,2                                 
053869,000827: 11,3662           00051                                    S2                                    
053870,000828: 11,3663           00051                                    S2                                    
053871,000829: 11,3664           57074                           XAD,2    XAD,2                                 
053872,000830: 11,3665           00051                                    S2                                    
053873,000831: 11,3666           00042                                    34D                                   
053874,000832: 11,3667           43457                           VSL*     RVQ                                   

Page 1242

053876,000834: 11,3670           57606                                    0          -8D,2                      
053877,000835: 
053878,000836: 11,2000                                           SETLOC   ORBITAL1                              
053879,000837: 11,2000                                           BANK                                           
053880,000838: 
053881,000839: 11,3671           04631 23146  3/5                2DEC     .6         B-2                        
053882,000840: 
053883,000841: 11,3673           14000 00000  THREE/8            2DEC     .375                                  
053884,000842: 
053885,000843: 11,3675           02314 31463  .3D                2DEC     .3         B-2                        
053886,000844: 
053887,000845: 11,3677           01400 00000  3/64               2DEC     3          B-6                        
053888,000846: 
053889,000847: 11,3701           10000 00000  DP1/4              2DEC     .25                                   
053890,000848: 
053891,000849: 11,3703  11,3701               DQUARTER           EQUALS   DP1/4                                 
053892,000850: 11,3703  11,3701               POS1/4             EQUALS   DP1/4                                 
053893,000851: 11,3703           03000 00000  3/32               2DEC     3          B-5                        
053894,000852: 
053895,000853: 11,3705           36000 00000  15/16              2DEC     15.        B-4                        
053896,000854: 
053897,000855: 11,3707           30000 00000  3/4                2DEC     3.0        B-2                        
053898,000856: 
053899,000857: 11,3711           22525 12525  7/12               2DEC     .5833333333                            
053900,000858: 
053901,000859: 11,3713           22000 00000  9/16               2DEC     9          B-4                        
053902,000860: 
053903,000861: 11,3715           01200 00000  5/128              2DEC     5          B-7                        
053904,000862: 
053905,000863: 11,3717  11,2274               DPZERO             EQUALS   ZEROVEC                               
053906,000864: 11,3717           25252 25253  DP2/3              2DEC     .6666666667                            
053907,000865: 
053908,000866: 11,3721  11,3717               2/3                EQUALS   DP2/3                                 
053909,000867: 11,3721           00027        OCT27              OCT      27                                    
053910,000868: 
053911,000869:                                                                                                  #  LM504 IS TEMPORARY
053912,000870: 
053913,000871: 13,3721                                           BANK     13                                    
053914,000872: 13,2000                                           SETLOC   ORBITAL2                              
053915,000873: 13,2000                                           BANK                                           
053916,000874:                                                                                                  #  IT IS VITAL THAT THE FOLLOWING CONSTANTS NOT BE SHUFFLED
053917,000875: 13,3721           77764                           DEC      -11        B-14                       
053918,000876: 13,3722           77775                           DEC      -2         B-14                       
053919,000877: 13,3723           77766                           DEC      -9         B-14                       
053920,000878: 13,3724           77771                           DEC      -6         B-14                       
053921,000879: 13,3725           77775                           DEC      -2         B-14                       
053922,000880: 13,3726           77775                           DEC      -2         B-14                       
053923,000881: 13,3727           00000                           DEC      0          B-14                       
053924,000882: 13,3730           77763                           DEC      -12        B-14                       
053925,000883: 13,3731           77766                           DEC      -9         B-14                       
053926,000884: 13,3732           77773                           DEC      -4         B-14                       
053927,000885: 13,3733           77770        ASCALE             DEC      -7         B-14                       
053928,000886: 13,3734           77771                           DEC      -6         B-14                       

Page 1243

053930,000888: 13,3735           24000 00000  5/8                2DEC     5          B-3                        
053931,000889: 
053932,000890: 13,3737           74631 63145  -1/12              2DEC     -.1                                   
053933,000891: 
053934,000892: 13,3741           00243 32703  RECRATIO           2DEC     .01                                   
053935,000893: 
053936,000894: 13,3743           03654 21000  RSPHERE            2DEC     64373.76   E3         B-29            
053937,000895: 
053938,000896: 13,3745           03654 21000  RDM                2DEC     16093.44   E3         B-27            
053939,000897: 
053940,000898: 13,3747           04627 25200  RDE                2DEC     80467.20   E3         B-29            
053941,000899: 
053942,000900: 13,3751                        RATT               EQUALS   00                                    
053943,000901: 13,3751                        VATT               EQUALS   6D                                    
053944,000902: 13,3751                        TAT                EQUALS   12D                                   
053945,000903: 13,3751                        RATT1              EQUALS   14D                                   
053946,000904: 13,3751                        VATT1              EQUALS   20D                                   
053947,000905: 13,3751                        MU(P)              EQUALS   26D                                   
053948,000906: 13,3751                        TDEC1              EQUALS   32D                                   
053949,000907: 13,3751                        URPV               EQUALS   14D                                   
053950,000908: 13,3751     0022               COSPHI/2           EQUALS   URPV       +4                         
053951,000909: 13,3751                        UZ                 EQUALS   20D                                   
053952,000910: 13,3751                        TVEC               EQUALS   26D                                   
053953,000911: 

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