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.

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

Page 1223

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

Page 1224

053158,000082: 11,2365           20211                                    8D,1                                  
053159,000083: 11,2366           20201                                    0,1                                   #  S(-FS(1-2FS)-1/6...) (+17 OR +16)
053160,000084: 11,2367           65215                           DAD      PDDL                                  #                                        PL 6D
053161,000085: 11,2370           01553                                    XKEP                                  
053162,000086: 11,2371           53605                           DMP      SL*                                   #  S(+17 OR +16)
053163,000087: 11,2372           00001                                    0D                                    
053164,000088: 11,2373           20202                                    1,1                                   
053165,000089: 11,2374           43204                           BOVB     DAD                                   
053166,000090: 11,2375           57725                                    TCDANZIG                              
053167,000091: 11,2376           77626                           STADR                                          
053168,000092: 11,2377           75647                           STORE    XKEPNEW                               
053169,000093: 11,2400           74020                           STQ      AXC,1                                 
053170,000094: 11,2401           02112                                    KEPRTN                                
053171,000095: 11,2402           00012                           DEC      10         B-14                       
053172,000096: 11,2403           74014                           BON      AXC,1                                 
053173,000097: 11,2404           00303                                    MOONFLAG                              
053174,000098: 11,2405           24000                                    KEPLERN                               
053175,000099: 11,2406           00002                           DEC      2          B-14                       
053176,000100: 11,2407           77650                           GOTO                                           
053177,000101: 11,2410           24000                                    KEPLERN                               
053178,000102: 

Page 1225

053180,000104: 11,2411           66350        FBR3               LXA,1    SSP                                   
053181,000105: 11,2412           01500                                    DIFEQCNT                              
053182,000106: 11,2413           00051                                    S1                                    
053183,000107: 11,2414           77762                           DEC      -13        B-14                       
053184,000108: 11,2415           54345                           DLOAD    SR                                    
053185,000109: 11,2416           02076                                    DT/2                                  
053186,000110: 11,2417           20612                                    9D                                    
053187,000111: 11,2420           61500                           TIX,1    ROUND                                 
053188,000112: 11,2421           22422                                    +1                                    
053189,000113: 11,2422           43206                           PUSH     DAD                                   
053190,000114: 11,2423           01551                                    TC                                    
053191,000115: 11,2424           16074                           STODL    TAU.                                  
053192,000116: 11,2425           77615                           DAD                                            
053193,000117: 11,2426           01517                                    TET                                   
053194,000118: 11,2427           35517                           STCALL   TET                                   
053195,000119: 11,2430           22311                                    KEPPREP                               
053196,000120: 

Page 1226

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

Page 1227

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

Page 1228

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

Page 1229

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

Page 1230

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

Page 1231

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

Page 1232

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

Page 1233

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

Page 1234

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

Page 1235

053651,000575: 11,3315           57574                                    2,2                                   
053652,000576: 11,3316           01503                           STORE    RRECT                                 
053653,000577: 11,3317           15535                           STODL    RCV                                   
053654,000578: 11,3320           01517                                    TET                                   
053655,000579: 11,3321           77624                           CALL                                           
053656,000580: 11,3322           33774                                    LUNVEL                                
053657,000581: 11,3323           57414                           BOF      VCOMP                                 
053658,000582: 11,3324           00343                                    MOONFLAG                              
053659,000583: 11,3325           23326                                    +1                                    
053660,000584: 11,3326           53715                           PDVL     VSL*                                  
053661,000585: 11,3327           01543                                    VCV                                   
053662,000586: 11,3330           57576                                    0,2                                   
053663,000587: 11,3331           77651                           VSU                                            
053664,000588: 11,3332           77657                           VSL*                                           
053665,000589: 11,3333           57574                                    0          +2,2                       
053666,000590: 11,3334           01511                           STORE    VRECT                                 
053667,000591: 11,3335           01543                           STORE    VCV                                   
053668,000592: 11,3336           67154                           LXA,2    SXA,2                                 
053669,000593: 11,3337           02112                                    ORIGEX                                
053670,000594: 11,3340           00052                                    QPRET                                 
053671,000595: 11,3341           52014                           BON      GOTO                                  
053672,000596: 11,3342           00303                                    MOONFLAG                              
053673,000597: 11,3343           26711                                    CLRMOON                               
053674,000598: 11,3344           26716                                    SETMOON                               

Page 1236

053676,000600:                                                                                                  #  THE RECTIFY SUBROUTINE IS CALLED BY THE INTEGRATION PROGRAM AND OCCASIONALLY BY THE MEASUREMENT INCORPORATION
053677,000601:                                                                                                  #  ROUTINES TO ESTABLISH A NEW CONIC.
053678,000602: 
053679,000603: 11,3345           77354        RECTIFY            LXA,2    VLOAD                                 
053680,000604: 11,3346           02030                                    PBODY                                 
053681,000605: 11,3347           01521                                    TDELTAV                               
053682,000606: 11,3350           53257                           VSL*     VAD                                   
053683,000607: 11,3351           57605                                    0          -7,2                       
053684,000608: 11,3352           01535                                    RCV                                   
053685,000609: 11,3353           01503                           STORE    RRECT                                 
053686,000610: 11,3354           25535                           STOVL    RCV                                   
053687,000611: 11,3355           01527                                    TNUV                                  
053688,000612: 11,3356           53257                           VSL*     VAD                                   
053689,000613: 11,3357           57602                                    0          -4,2                       
053690,000614: 11,3360           01543                                    VCV                                   
053691,000615: 11,3361           01511        MINIRECT           STORE    VRECT                                 
053692,000616: 11,3362           25543                           STOVL    VCV                                   
053693,000617: 11,3363           22275                                    ZEROVEC                               
053694,000618: 11,3364           01521                           STORE    TDELTAV                               
053695,000619: 11,3365           15527                           STODL    TNUV                                  
053696,000620: 11,3366           22275                                    ZEROVEC                               
053697,000621: 11,3367           01551                           STORE    TC                                    
053698,000622: 11,3370           01553                           STORE    XKEP                                  
053699,000623: 11,3371           77616                           RVQ                                            
053700,000624: 

Page 1237

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

Page 1238

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

Page 1239

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

Page 1240

053854,000778: 11,3607           77650                           GOTO                                           
053855,000779: 11,3610           27255                                    TESTLOOP                              #  FINISH INTEGRATING STATE VECTOR
053856,000780: 

Page 1241

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

Page 1242

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

Page 1243

053964,000888: 13,3735           24000 00000  5/8                2DEC     5          B-3                        
053965,000889: 
053966,000890: 13,3737           74631 63145  -1/12              2DEC     -.1                                   
053967,000891: 
053968,000892: 13,3741           00243 32703  RECRATIO           2DEC     .01                                   
053969,000893: 
053970,000894: 13,3743           03654 21000  RSPHERE            2DEC     64373.76   E3         B-29            
053971,000895: 
053972,000896: 13,3745           03654 21000  RDM                2DEC     16093.44   E3         B-27            
053973,000897: 
053974,000898: 13,3747           04627 25200  RDE                2DEC     80467.20   E3         B-29            
053975,000899: 
053976,000900: 13,3751                        RATT               EQUALS   00                                    
053977,000901: 13,3751                        VATT               EQUALS   6D                                    
053978,000902: 13,3751                        TAT                EQUALS   12D                                   
053979,000903: 13,3751                        RATT1              EQUALS   14D                                   
053980,000904: 13,3751                        VATT1              EQUALS   20D                                   
053981,000905: 13,3751                        MU(P)              EQUALS   26D                                   
053982,000906: 13,3751                        TDEC1              EQUALS   32D                                   
053983,000907: 13,3751                        URPV               EQUALS   14D                                   
053984,000908: 13,3751     0022               COSPHI/2           EQUALS   URPV       +4                         
053985,000909: 13,3751                        UZ                 EQUALS   20D                                   
053986,000910: 13,3751                        TVEC               EQUALS   26D                                   
053987,000911: 

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