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.

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

Page 1223

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

Page 1224

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

Page 1225

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

Page 1226

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

Page 1227

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

Page 1228

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

Page 1229

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

Page 1230

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

Page 1231

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

Page 1232

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

Page 1233

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

Page 1234

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

Page 1235

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

Page 1236

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

Page 1237

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

Page 1238

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

Page 1239

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

Page 1240

053831,000778: 11,3607           77650                           GOTO                                           
053832,000779: 11,3610           27255                                    TESTLOOP                              #  FINISH INTEGRATING STATE VECTOR
053833,000780: 

Page 1241

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

Page 1242

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

Page 1243

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

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