Source Code

These source code files are an attempted reconstruction of Sundance revision 306, the Apollo 9 LM (Lunar Module) AGC (Apollo Guidance Computer) flight software, created from binary dumps of original core rope program modules, as follows:
  • B1 — Revision 292
  • B2 — Revision 302
  • B3 — Revision 302
  • B4 — Revision 302
  • B5 — Revision 292
  • B6 — Revision 306
These dumps were then modified using memos, checklists, observed address changes, and the Sundance GSOPs to get the entire program to match Sundance revision 306 as closely as possible. Without more information, it is not possible to say how close it actually is; however, this code should be quite close. It is capable of flying the whole Apollo 9 mission using the original checklists and padload. Since only binary dumps (rather than listings) of Sundance are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing.

047910,000002:                                                                                                  ## Copyright:   Public domain.
047911,000003:                                                                                                  ## Filename:    ORBITAL_INTEGRATION.agc
047912,000004:                                                                                                  ## Purpose:     A section of an attempt to reconstruct Sundance revision 306
047913,000005:                                                                                                  ##              as closely as possible with available information. Sundance
047914,000006:                                                                                                  ##              306 is the source code for the Lunar Module's (LM) Apollo
047915,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 9. This program was created
047916,000008:                                                                                                  ##              using the mixed-revision SundanceXXX as a starting point, and
047917,000009:                                                                                                  ##              pulling back features from Luminary 69 believed to have been
047918,000010:                                                                                                  ##              added based on memos, checklists, observed address changes,
047919,000011:                                                                                                  ##              or the Sundance GSOPs.
047920,000012:                                                                                                  ## Assembler:   yaYUL
047921,000013:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
047922,000014:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
047923,000015:                                                                                                  ## Mod history: 2020-07-24 MAS  Created from SundanceXXX.
047924,000016: 
047925,000017: 
047926,000018: 
047927,000019:                                                                                                  #  DELETE
047928,000020: 13,3703                                           BANK     13                                    
047929,000021: 11,2000                                           SETLOC   ORBITAL                               
047930,000022: 11,2000                                           BANK                                           
047931,000023: 11,2312                                           COUNT*   $$/ORBIT                              
047932,000024: 
047933,000025:                                                                                                  #  DELETE
047934,000026: 11,2312           40354        KEPPREP            LXA,2    SETPD                                 
047935,000027: 11,2313           02032                                    PBODY                                 
047936,000028: 11,2314           00001                                    0                                     
047937,000029: 11,2315           75543                           DLOAD*   SQRT                                  #  SQRT(MU) (+18 OR +15)         0D      PL 2D
047938,000030: 11,2316           54040                                    MUEARTH,2                             
047939,000031: 11,2317           53515                           PDVL     UNIT                                  #                                        PL 8D
047940,000032: 11,2320           01535                                    RCV                                   
047941,000033: 11,2321           60325                           PDDL     NORM                                  #  NORM R (+29 OR +27 - N1)      2D      PL 4D
047942,000034: 11,2322           00045                                    36D                                   
047943,000035: 11,2323           00047                                    X1                                    
047944,000036: 11,2324           77715                           PDVL                                           
047945,000037: 11,2325           65241                           DOT      PDDL                                  #  F*SQRT(MU)(+7 OR +5)          4D      PL 6D
047946,000038: 11,2326           01543                                    VCV                                   
047947,000039: 11,2327           02076                                    TAU.                                  #  (+28)
047948,000040: 11,2330           60225                           DSU      NORM                                  
047949,000041: 11,2331           01551                                    TC                                    
047950,000042: 11,2332           00051                                    S1                                    
047951,000043: 11,2333           77742                           SR1                                            
047952,000044: 11,2334           65271                           DDV      PDDL                                  
047953,000045: 11,2335           00003                                    2D                                    
047954,000046: 11,2336           41405                           DMP      PUSH                                  #  FS(+6 +N1-N2)                 6D      PL 8D
047955,000047: 11,2337           00005                                    4D                                    
047956,000048: 11,2340           65316                           DSQ      PDDL                                  #  (FS)SQ (+12 +2(N1-N2))        8D      PL 10D
047957,000049: 11,2341           00005                                    4D                                    
047958,000050: 11,2342           64716                           DSQ      PDDL*                                 #  SSQ/MU (-2 OR +2(N1-N2))      10D     PL 12D
047959,000051: 11,2343           54040                                    MUEARTH,2                             
047960,000052: 11,2344           40442                           SR3      SR4                                   
047961,000053: 11,2345           47515                           PDVL     VSQ                                   #  PREALIGN MU (+43 OR +37)      12D     PL 14D
047962,000054: 11,2346           01543                                    VCV                                   
047963,000055: 11,2347           44205                           DMP      BDSU                                  #                                        PL 12D
047964,000056: 11,2350           00045                                    36D                                   
047965,000057: 11,2351           41271                           DDV      DMP                                   #                                        PL 10D
047966,000058: 11,2352           00003                                    2D                                    #  -(1/R-ALPHA) (+12 +3N1-2N2)
047967,000059: 11,2353           53605                           DMP      SL*                                   
047968,000060: 11,2354           23714                                    DP2/3                                 
047969,000061: 11,2355           20176                                    0          -3,1                       #  10L(1/R-ALPHA) (+13 +2(N1-N2))
047970,000062: 11,2356           43260                           XSU,1    DAD                                   #  2(FS)SQ - ETCETRA                     PL 8D
047971,000063: 11,2357           00050                                    S1                                    #  X1 = N2-N1
047972,000064: 11,2360           45257                           SL*      DSU                                   #  -FS+2(FS)SQ ETC (+6 +N1-N2)           PL 6D
047973,000065: 11,2361           20211                                    8D,1                                  
047974,000066: 11,2362           41205                           DMP      DMP                                   
047975,000067: 11,2363           00001                                    0D                                    
047976,000068: 11,2364           00005                                    4D                                    
047977,000069: 11,2365           53657                           SL*      SL*                                   
047978,000070: 11,2366           20211                                    8D,1                                  
047979,000071: 11,2367           20201                                    0,1                                   #  S(-FS(1-2FS)-1/6...) (+17 OR +16)
047980,000072: 11,2370           65215                           DAD      PDDL                                  #                                        PL 6D
047981,000073: 11,2371           01553                                    XKEP                                  
047982,000074: 11,2372           53605                           DMP      SL*                                   #  S(+17 OR +16)
047983,000075: 11,2373           00001                                    0D                                    
047984,000076: 11,2374           20202                                    1,1                                   
047985,000077: 11,2375           43204                           BOVB     DAD                                   
047986,000078: 11,2376           57702                                    TCDANZIG                              
047987,000079: 11,2377           77626                           STADR                                          
047988,000080: 11,2400           75645                           STORE    XKEPNEW                               
047989,000081: 11,2401           74020                           STQ      AXC,1                                 
047990,000082: 11,2402           02114                                    KEPRTN                                
047991,000083: 11,2403           00012                           DEC      10         B-14                       
047992,000084: 11,2404           74014                           BON      AXC,1                                 
047993,000085: 11,2405           00303                                    MOONFLAG                              
047994,000086: 11,2406           24000                                    KEPLERN                               
047995,000087: 11,2407           00002                           DEC      2          B-14                       
047996,000088: 11,2410           77650                           GOTO                                           
047997,000089: 11,2411           24000                                    KEPLERN                               
047998,000090: 
047999,000091: 11,2412           66350        FBR3               LXA,1    SSP                                   
048000,000092: 11,2413           01500                                    DIFEQCNT                              
048001,000093: 11,2414           00051                                    S1                                    
048002,000094: 11,2415           77762                           DEC      -13        B-14                       
048003,000095: 11,2416           54345                           DLOAD    SR                                    
048004,000096: 11,2417           02100                                    DT/2                                  
048005,000097: 11,2420           20612                                    9D                                    
048006,000098: 11,2421           61500                           TIX,1    ROUND                                 
048007,000099: 11,2422           22423                                    +1                                    
048008,000100: 11,2423           43206                           PUSH     DAD                                   
048009,000101: 11,2424           01551                                    TC                                    
048010,000102: 11,2425           16076                           STODL    TAU.                                  
048011,000103: 11,2426           77615                           DAD                                            
048012,000104: 11,2427           01517                                    TET                                   
048013,000105: 11,2430           35517                           STCALL   TET                                   
048014,000106: 11,2431           22312                                    KEPPREP                               
048015,000107: 
048016,000108:                                                                                                  #  AGC ROUTINE TO COMPUTE ACCELERATION COMPONENTS.
048017,000109: 
048018,000110: 11,2432           73150        ACCOMP             LXA,1    LXA,2                                 
048019,000111: 11,2433           02032                                    PBODY                                 
048020,000112: 11,2434           02032                                    PBODY                                 
048021,000113: 11,2435           77775                           VLOAD                                          
048022,000114: 11,2436           22276                                    ZEROVEC                               
048023,000115: 11,2437           26064                           STOVL    FV                                    
048024,000116: 11,2440           02034                                    ALPHAV                                
048025,000117: 11,2441           53257                           VSL*     VAD                                   
048026,000118: 11,2442           57605                                    0          -7,2                       
048027,000119: 11,2443           01535                                    RCV                                   
048028,000120: 11,2444           02042                           STORE    BETAV                                 
048029,000121: 11,2445           65014                           BOF      XCHX,2                                
048030,000122: 11,2446           01756                                    DIM0FLAG                              
048031,000123: 11,2447           22454                                    +5                                    
048032,000124: 11,2450           01500                                    DIFEQCNT                              
048033,000125: 11,2451           12134                           STORE    VECTAB,2                              
048034,000126: 11,2452           77724                           XCHX,2                                         
048035,000127: 11,2453           01500                                    DIFEQCNT                              
048036,000128: 11,2454           53575                           VLOAD    UNIT                                  
048037,000129: 11,2455           02034                                    ALPHAV                                
048038,000130: 11,2456           16034                           STODL    ALPHAV                                
048039,000131: 11,2457           00045                                    36D                                   
048040,000132: 11,2460           02072                           STORE    ALPHAM                                
048041,000133: 11,2461           77624                           CALL                                           
048042,000134: 11,2462           22564                                    GAMCOMP                               
048043,000135: 11,2463           66175                           VLOAD    SXA,1                                 
048044,000136: 11,2464           02042                                    BETAV                                 
048045,000137: 11,2465           00051                                    S2                                    
048046,000138: 11,2466           16034                           STODL    ALPHAV                                
048047,000139: 11,2467           02074                                    BETAM                                 
048048,000140: 11,2470           02072                           STORE    ALPHAM                                
048049,000141: 11,2471           71214                           BOF      DLOAD                                 
048050,000142: 11,2472           00342                                    MIDFLAG                               
048051,000143: 11,2473           22727                                    OBLATE                                
048052,000144: 11,2474           01517                                    TET                                   
048053,000145: 11,2475           77624                           CALL                                           
048054,000146: 11,2476           33236                                    LSPOS                                 
048055,000147: 11,2477           72174                           AXT,2    LXA,1                                 
048056,000148: 11,2500           00002                                    2                                     
048057,000149: 11,2501           00051                                    S2                                    
048058,000150: 11,2502           77614                           BOF                                            
048059,000151: 11,2503           00343                                    MOONFLAG                              
048060,000152: 11,2504           22507                                    +3                                    
048061,000153: 11,2505           77076                           VCOMP    AXT,2                                 
048062,000154: 11,2506           00000                                    0                                     
048063,000155: 11,2507           02042                           STORE    BETAV                                 
048064,000156: 11,2510           26107                           STOVL    RPQV                                  
048065,000157: 11,2511           00003                                    2D                                    
048066,000158: 11,2512           02124                           STORE    RPSV                                  
048067,000159: 11,2513           45335                           SLOAD    DSU                                   
048068,000160: 11,2514           01013                                    MODREG                                
048069,000161: 11,2515           23716                                    OCT27                                 
048070,000162: 11,2516           43030                           BHIZ     BOF                                   
048071,000163: 11,2517           22522                                    +3                                    
048072,000164: 11,2520           01756                                    DIM0FLAG                              
048073,000165: 11,2521           22536                                    GETRPSV                               
048074,000166: 11,2522           74375                           VLOAD    VXSC                                  
048075,000167: 11,2523           02034                                    ALPHAV                                
048076,000168: 11,2524           02072                                    ALPHAM                                
048077,000169: 11,2525           52257                           VSR*     VSU                                   
048078,000170: 11,2526           57175                                    1,2                                   
048079,000171: 11,2527           02042                                    BETAV                                 
048080,000172: 11,2530           77724                           XCHX,2                                         
048081,000173: 11,2531           01500                                    DIFEQCNT                              
048082,000174: 11,2532           12142                           STORE    VECTAB     +6,2                       
048083,000175: 11,2533           02116                           STORE    RQVV                                  
048084,000176: 11,2534           77724                           XCHX,2                                         
048085,000177: 11,2535           01500                                    DIFEQCNT                              
048086,000178: 11,2536           62175        GETRPSV            VLOAD    INCR,1                                
048087,000179: 11,2537           02107                                    RPQV                                  
048088,000180: 11,2540           00004                                    4                                     
048089,000181: 11,2541           43014                           CLEAR    BOF                                   
048090,000182: 11,2542           04260                                    RPQFLAG                               
048091,000183: 11,2543           00343                                    MOONFLAG                              
048092,000184: 11,2544           22551                                    +5                                    
048093,000185: 11,2545           53261                           VSR      VAD                                   
048094,000186: 11,2546           20612                                    9D                                    
048095,000187: 11,2547           02124                                    RPSV                                  
048096,000188: 11,2550           02124                           STORE    RPSV                                  
048097,000189: 11,2551           77624                           CALL                                           
048098,000190: 11,2552           22564                                    GAMCOMP                               
048099,000191: 11,2553           62174                           AXT,2    INCR,1                                
048100,000192: 11,2554           00004                                    4                                     
048101,000193: 11,2555           00004                                    4                                     
048102,000194: 11,2556           77775                           VLOAD                                          
048103,000195: 11,2557           02124                                    RPSV                                  
048104,000196: 11,2560           36042                           STCALL   BETAV                                 
048105,000197: 11,2561           22564                                    GAMCOMP                               
048106,000198: 11,2562           77650                           GOTO                                           
048107,000199: 11,2563           22727                                    OBLATE                                
048108,000200: 11,2564           74575        GAMCOMP            VLOAD    VSR1                                  
048109,000201: 11,2565           02042                                    BETAV                                 
048110,000202: 11,2566           40236                           VSQ      SETPD                                 
048111,000203: 11,2567           00001                                    0                                     
048112,000204: 11,2570           61501                           NORM     ROUND                                 
048113,000205: 11,2571           00040                                    31D                                   
048114,000206: 11,2572           60325                           PDDL     NORM                                  #  NORMED B SQUARED TO PD LIST
048115,000207: 11,2573           02072                                    ALPHAM                                #  NORMALIZE (LESS ONE) LENGTH OF ALPHA
048116,000208: 11,2574           00041                                    32D                                   #  SAVING NORM SCALE FACTOR IN X1
048117,000209: 11,2575           63342                           SR1      PDVL                                  
048118,000210: 11,2576           02042                                    BETAV                                 #  C(PDL+2) = ALMOST NORMED ALPHA
048119,000211: 11,2577           77656                           UNIT                                           
048120,000212: 11,2600           16042                           STODL    BETAV                                 
048121,000213: 11,2601           00045                                    36D                                   
048122,000214: 11,2602           02074                           STORE    BETAM                                 
048123,000215: 11,2603           55301                           NORM     BDDV                                  #  FORM NORMALIZED QUOTIENT ALPHAM/BETAM
048124,000216: 11,2604           00042                                    33D                                   
048125,000217: 11,2605           41562                           SR1R     PUSH                                  #  C(PDL+2) = ALMOST NORMALIZED RHO.
048126,000218: 11,2606           77743                           DLOAD*                                         
048127,000219: 11,2607           23731                                    ASCALE,1                              
048128,000220: 11,2610           00051                           STORE    S1                                    
048129,000221: 11,2611           57124                           XCHX,2   XAD,2                                 
048130,000222: 11,2612           00050                                    S1                                    
048131,000223: 11,2613           00040                                    32D                                   
048132,000224: 11,2614           71264                           XSU,2    DLOAD                                 
048133,000225: 11,2615           00041                                    33D                                   
048134,000226: 11,2616           00003                                    2D                                    
048135,000227: 11,2617           65057                           SR*      XCHX,2                                
048136,000228: 11,2620           57177                                    0          -1,2                       
048137,000229: 11,2621           00050                                    S1                                    
048138,000230: 11,2622           74406                           PUSH     SR1R                                  #  RHO/4 TO 4D
048139,000231: 11,2623           50315                           PDVL     DOT                                   
048140,000232: 11,2624           02034                                    ALPHAV                                
048141,000233: 11,2625           02042                                    BETAV                                 
048142,000234: 11,2626           44372                           SL1R     BDSU                                  #  (RHO/4) - 2(ALPHAV/2.BETAV/2)
048143,000235: 11,2627           57206                           PUSH     DMPR                                  #  TO PDL+6
048144,000236: 11,2630           00005                                    4                                     
048145,000237: 11,2631           77752                           SL1                                            
048146,000238: 11,2632           43206                           PUSH     DAD                                   
048147,000239: 11,2633           23676                                    DQUARTER                              
048148,000240: 11,2634           75406                           PUSH     SQRT                                  
048149,000241: 11,2635           41475                           DMPR     PUSH                                  
048150,000242: 11,2636           00013                                    10D                                   
048151,000243: 11,2637           43352                           SL1      DAD                                   
048152,000244: 11,2640           23676                                    DQUARTER                              
048153,000245: 11,2641           43325                           PDDL     DAD                                   #  (1/4)+2((Q+1)/4)      TO PD+14D
048154,000246: 11,2642           00013                                    10D                                   
048155,000247: 11,2643           22274                                    HALFDP                                
048156,000248: 11,2644           72475                           DMPR     SL1                                   
048157,000249: 11,2645           00011                                    8D                                    
048158,000250: 11,2646           56215                           DAD      DDV                                   
048159,000251: 11,2647           23670                                    THREE/8                               
048160,000252: 11,2650           00017                                    14D                                   
048161,000253: 11,2651           74275                           DMPR     VXSC                                  
048162,000254: 11,2652           00007                                    6                                     
048163,000255: 11,2653           02042                                    BETAV                                 #                -
048164,000256: 11,2654           64515                           PDVL     VSR3                                  #  (G/2)(C(PD+4))B/2 TO PD+16D
048165,000257: 11,2655           02034                                    ALPHAV                                
048166,000258: 11,2656           41455                           VAD      PUSH                                  #  A12 + C(PD+16D) TO PD+16D
048167,000259: 11,2657           41345                           DLOAD    DMP                                   
048168,000260: 11,2660           00001                                    0                                     
048169,000261: 11,2661           00015                                    12D                                   
048170,000262: 11,2662           61501                           NORM     ROUND                                 
048171,000263: 11,2663           00037                                    30D                                   
048172,000264: 11,2664           40665                           BDDV     DMP*                                  
048173,000265: 11,2665           00003                                    2                                     
048174,000266: 11,2666           54040                                    MUEARTH,2                             
048175,000267: 11,2667           74276                           DCOMP    VXSC                                  
048176,000268: 11,2670           57124                           XCHX,2   XAD,2                                 
048177,000269: 11,2671           00050                                    S1                                    
048178,000270: 11,2672           00051                                    S2                                    
048179,000271: 11,2673           55064                           XSU,2    XSU,2                                 
048180,000272: 11,2674           00036                                    30D                                   
048181,000273: 11,2675           00037                                    31D                                   
048182,000274: 11,2676           77600                           BOV                                            #  CLEAR OVIND
048183,000275: 11,2677           22700                                    +1                                    
048184,000276: 11,2700           65057                           VSR*     XCHX,2                                
048185,000277: 11,2701           57177                                    0          -1,2                       
048186,000278: 11,2702           00050                                    S1                                    
048187,000279: 11,2703           77655                           VAD                                            
048188,000280: 11,2704           02064                                    FV                                    
048189,000281: 11,2705           02064                           STORE    FV                                    
048190,000282: 11,2706           43400                           BOV      RVQ                                   #  RETURN IF NO OVERFLOW
048191,000283: 11,2707           22710                                    +1                                    
048192,000284: 11,2710           54345        GOBAQUE            DLOAD    SR                                    
048193,000285: 11,2711           02102                                    H                                     
048194,000286: 11,2712           20612                                    9D                                    
048195,000287: 11,2713           44206                           PUSH     BDSU                                  
048196,000288: 11,2714           01551                                    TC                                    
048197,000289: 11,2715           16076                           STODL    TAU.                                  
048198,000290: 11,2716           01517                                    TET                                   
048199,000291: 11,2717           45425                           DSU      STADR                                 
048200,000292: 11,2720           42260                           STCALL   TET                                   
048201,000293: 11,2721           22312                                    KEPPREP                               
048202,000294: 11,2722           77624                           CALL                                           
048203,000295: 11,2723           23340                                    RECTIFY                               
048204,000296: 11,2724           77614                           SETGO                                          
048205,000297: 11,2725           04020                                    RPQFLAG                               
048206,000298: 11,2726           27227                                    TESTLOOP                              
048207,000299:                                                                                                  #  THE OBLATE ROUTINE COMPUTES THE ACCELERATION DUE TO OBLATENESS. IT USES THE UNIT OF THE VEHICLE
048208,000300:                                                                                                  #  POSITION VECTOR FOUND IN ALPHAV AND THE DISTANCE TO THE CENTER IN ALPHAM. THIS IS ADDED TO THE SUM OF THE
048209,000301:                                                                                                  #  DISTURBING ACCELERATIONS IN FV AND THE PROPER DIFEQ STAGE IS CALLED VIA X1.
048210,000302: 
048211,000303: 11,2727           71354        OBLATE             LXA,2    DLOAD                                 
048212,000304: 11,2730           02032                                    PBODY                                 
048213,000305: 11,2731           02072                                    ALPHAM                                
048214,000306: 11,2732           44601                           SETPD    DSU*                                  
048215,000307: 11,2733           00001                                    0                                     
048216,000308: 11,2734           54006                                    RDE,2                                 
048217,000309: 11,2735           43044                           BPL      BOF                                   #  GET URPV
048218,000310: 11,2736           23133                                    NBRANCH                               
048219,000311: 11,2737           00343                                    MOONFLAG                              
048220,000312: 11,2740           23142                                    COSPHIE                               
048221,000313: 11,2741           65375                           VLOAD    PDDL                                  
048222,000314: 11,2742           02034                                    ALPHAV                                
048223,000315: 11,2743           01517                                    TET                                   
048224,000316: 11,2744           45125                           PDDL     CALL                                  
048225,000317: 11,2745           23666                                    3/5                                   
048226,000318: 11,2746           51247                                    R-TO-RP                               
048227,000319: 11,2747           00017                           STORE    URPV                                  
048228,000320: 11,2750           47375                           VLOAD    VXV                                   
048229,000321: 11,2751           02011                                    504LM                                 
048230,000322: 11,2752           22270                                    ZUNIT                                 
048231,000323: 11,2753           61255                           VAD      VXM                                   
048232,000324: 11,2754           22270                                    ZUNIT                                 
048233,000325: 11,2755           00025                                    MMATRIX                               
048234,000326: 11,2756           77656                           UNIT                                           #  POSSIBLY UNNECESSARY
048235,000327: 11,2757           00025        COMTERM            STORE    UZ                                    
048236,000328: 11,2760           57345                           DLOAD    DMPR                                  
048237,000329: 11,2761           00023                                    COSPHI/2                              
048238,000330: 11,2762           23700                                    3/32                                  
048239,000331: 11,2763           63525                           PDDL     DSQ                                   #  P2/64 TO PD0
048240,000332: 11,2764           00023                                    COSPHI/2                              
048241,000333: 11,2765           45275                           DMPR     DSU                                   
048242,000334: 11,2766           23702                                    15/16                                 
048243,000335: 11,2767           23674                                    3/64                                  
048244,000336: 11,2770           57206                           PUSH     DMPR                                  #  P3/32 TO PD2
048245,000337: 11,2771           00023                                    COSPHI/2                              
048246,000338: 11,2772           76405                           DMP      SL1R                                  
048247,000339: 11,2773           23706                                    7/12                                  
048248,000340: 11,2774           57325                           PDDL     DMPR                                  
048249,000341: 11,2775           00001                                    0                                     
048250,000342: 11,2776           23714                                    2/3                                   
048251,000343: 11,2777           41421                           BDSU     PUSH                                  #  P4/128 TO PD4
048252,000344: 11,3000           57275                           DMPR     DMPR                                  
048253,000345: 11,3001           00023                                    COSPHI/2                              #  BEGIN COMPUTING P5/1024
048254,000346: 11,3002           23710                                    9/16                                  
048255,000347: 11,3003           57325                           PDDL     DMPR                                  
048256,000348: 11,3004           00003                                    2                                     
048257,000349: 11,3005           23712                                    5/128                                 
048258,000350: 11,3006           77621                           BDSU                                           
048259,000351: 11,3007           77603                           DMP*                                           
048260,000352: 11,3010           54034                                    J4REQ/J3,2                            
048261,000353: 11,3011           43271                           DDV      DAD                                   #               -3
048262,000354: 11,3012           02072                                    ALPHAM                                #  (((P5/256)B 2  /R+P4/32)  /R+P3/8)ALPHAV
048263,000355: 11,3013           00005                                    4                                     #             4             3
048264,000356: 11,3014           56273                           DMPR*    DDV                                   
048265,000357: 11,3015           54030                                    2J3RE/J2,2                            
048266,000358: 11,3016           02072                                    ALPHAM                                
048267,000359: 11,3017           74215                           DAD      VXSC                                  
048268,000360: 11,3020           00003                                    2                                     
048269,000361: 11,3021           02034                                    ALPHAV                                
048270,000362: 11,3022           14033                           STODL    TVEC                                  
048271,000363: 11,3023           70403                           DMP*     SR1                                   
048272,000364: 11,3024           54034                                    J4REQ/J3,2                            
048273,000365: 11,3025           43271                           DDV      DAD                                   
048274,000366: 11,3026           02072                                    ALPHAM                                #                -3
048275,000367: 11,3027           50473                           DMPR*    SR3                                   
048276,000368: 11,3030           54030                                    2J3RE/J2,2                            #     3        4
048277,000369: 11,3031           43271                           DDV      DAD                                   
048278,000370: 11,3032           02072                                    ALPHAM                                
048279,000371: 11,3033           76561                           VXSC     VSL1                                  
048280,000372: 11,3034           00025                                    UZ                                    
048281,000373: 11,3035           77645                           BVSU                                           
048282,000374: 11,3036           00033                                    TVEC                                  
048283,000375: 11,3037           14033                           STODL    TVEC                                  
048284,000376: 11,3040           02072                                    ALPHAM                                
048285,000377: 11,3041           63501                           NORM     DSQ                                   
048286,000378: 11,3042           00047                                    X1                                    
048287,000379: 11,3043           60316                           DSQ      NORM                                  
048288,000380: 11,3044           00051                                    S1                                    #          4
048289,000381: 11,3045           54606                           PUSH     BDDV*                                 #  NORMED R  TO 0D
048290,000382: 11,3046           54024                                    J2REQSQ,2                             
048291,000383: 11,3047           77761                           VXSC                                           
048292,000384: 11,3050           00033                                    TVEC                                  
048293,000385: 11,3051           00033                           STORE    TVEC                                  
048294,000386: 11,3052           56070                           XAD,1    XAD,1                                 
048295,000387: 11,3053           00046                                    X1                                    
048296,000388: 11,3054           00046                                    X1                                    
048297,000389: 11,3055           43070                           XAD,1    BOF                                   
048298,000390: 11,3056           00050                                    S1                                    
048299,000391: 11,3057           00343                                    MOONFLAG                              
048300,000392: 11,3060           23123                                    NBRANCH1                              
048301,000393: 11,3061           63545                           DLOAD    DSQ                                   #   2
048302,000394: 11,3062           00017                                    URPV                                  #  X  B-2 TO 2D
048303,000395: 11,3063           63525                           PDDL     DSQ                                   
048304,000396: 11,3064           00021                                    URPV       +2                         #   2  2
048305,000397: 11,3065           65215                           DAD      PDDL                                  #  Y +X  B-2 TO 2D
048306,000398: 11,3066           00003                                    2D                                    
048307,000399: 11,3067           45352                           SL1      DSU                                   
048308,000400: 
048309,000401: 11,3070           00003                                    2D                                    
048310,000402: 11,3071           41525                           PDDL     PUSH                                  #  X -Y  B-2 TO 4D  COSPHI2 TO 6D
048311,000403: 11,3072           00023                                    COSPHI/2                              
048312,000404: 11,3073           65361                           VXSC     PDDL                                  #  2COSPHI(UZ) B-3 TO 6D
048313,000405: 11,3074           00025                                    UZ                                    
048314,000406: 11,3075           45316                           DSQ      DSU                                   
048315,000407: 11,3076           23666                                    3/5                                   #    2   2      2
048316,000408: 11,3077           52405                           DMP      SL3                                   #  (X -Y)((5COS (PHI)-3)UR 2COS(PHI)UZ)
048317,000409: 11,3100           23757                                    5/8                                   
048318,000410: 11,3101           52361                           VXSC     VSU                                   #       B-3 TO 4D
048319,000411: 11,3102           02034                                    ALPHAV                                
048320,000412: 11,3103           72561                           VXSC     VSL2                                  
048321,000413: 11,3104           77725                           PDDL                                           
048322,000414: 11,3105           00017                                    URPV                                  
048323,000415: 11,3106           63205                           DMP      PDVL                                  #  XY B-2 TO 10D
048324,000416: 11,3107           00021                                    URPV       +2                         
048325,000417: 11,3110           02034                                    ALPHAV                                
048326,000418: 11,3111           74235                           VXV      VXSC                                  
048327,000419: 11,3112           00025                                    UZ                                    
048328,000420: 11,3113           53332                           VSL3     VAD                                   #  4XY(UR X UZ) +D( 4D) B-3
048329,000421: 11,3114           62525                           PDDL     SL2                                   
048330,000422: 11,3115           55205                           DMP      BDDV                                  
048331,000423: 11,3116           00001                                    0D                                    #  3J22R2MU/(X +Y )R
048332,000424: 11,3117           23755                                    3J22R2MU                              
048333,000425: 11,3120           64561                           VXSC     VSR3                                  
048334,000426: 11,3121           53342                           VSR2     VAD                                   
048335,000427: 11,3122           00033                                    TVEC                                  
048336,000428: 11,3123           77600        NBRANCH1           BOV                                            
048337,000429: 11,3124           23125                                    +1                                    
048338,000430: 11,3125           53257                           VSL*     VAD                                   
048339,000431: 11,3126           20153                                    0          -22D,1                     
048340,000432: 11,3127           02064                                    FV                                    
048341,000433: 11,3130           02064                           STORE    FV                                    
048342,000434: 11,3131           77600                           BOV                                            
048343,000435: 11,3132           22710                                    GOBAQUE                               
048344,000436: 
048345,000437: 11,3133           72135        NBRANCH            SLOAD    LXA,1                                 
048346,000438: 11,3134           01501                                    DIFEQCNT                              
048347,000439: 11,3135           00154                                    MPAC                                  
048348,000440: 11,3136           73205                           DMP      CGOTO                                 
048349,000441: 11,3137           23761                                    -1/12                                 
048350,000442: 11,3140           00155                                    MPAC                                  
048351,000443: 11,3141           23150                                    DIFEQTAB                              
048352,000444: 11,3142           77745        COSPHIE            DLOAD                                          
048353,000445: 11,3143           02040                                    ALPHAV     +4                         
048354,000446: 11,3144           24023                           STOVL    COSPHI/2                              
048355,000447: 11,3145           22270                                    ZUNIT                                 
048356,000448: 11,3146           77650                           GOTO                                           
048357,000449: 11,3147           22757                                    COMTERM                               
048358,000450: 11,3150           23365        DIFEQTAB           CADR     DIFEQ+0                               
048359,000451: 11,3151           23371                           CADR     DIFEQ+1                               
048360,000452: 11,3152           23402                           CADR     DIFEQ+2                               
048361,000453: 11,3153           77214        TIMESTEP           BOF      VLOAD                                 
048362,000454: 11,3154           00342                                    MIDFLAG                               
048363,000455: 11,3155           23202                                    RECTEST                               
048364,000456: 11,3156           01535                                    RCV                                   
048365,000457: 11,3157           50041                           DOT      BMN                                   
048366,000458: 11,3160           01543                                    VCV                                   
048367,000459: 11,3161           23202                                    RECTEST                               
048368,000460: 11,3162           43014                           BON      BOF                                   
048369,000461: 11,3163           00303                                    MOONFLAG                              
048370,000462: 11,3164           23257                                    LUNSPH                                
048371,000463: 11,3165           04340                                    RPQFLAG                               
048372,000464: 11,3166           23254                                    EARSPH                                
048373,000465: 11,3167           45145                           DLOAD    CALL                                  
048374,000466: 11,3170           01517                                    TET                                   
048375,000467: 11,3171           33236                                    LSPOS                                 #  RPQV IN MPAC
048376,000468: 11,3172           02107                           STORE    RPQV                                  #  RPQV
048377,000469: 11,3173           77754                           LXA,2                                          
048378,000470: 11,3174           02032                                    PBODY                                 
048379,000471: 11,3175           51445        INLUNCHK           BVSU     ABVAL                                 
048380,000472: 11,3176           01535                                    RCV                                   
048381,000473: 11,3177           50025                           DSU      BMN                                   
048382,000474: 11,3200           23765                                    RSPHERE                               
048383,000475: 11,3201           23274                                    DOSWITCH                              
048384,000476: 11,3202           51575        RECTEST            VLOAD    ABVAL                                 #  RECTIFY IF
048385,000477: 11,3203           01521                                    TDELTAV                               
048386,000478: 11,3204           77600                           BOV                                            
048387,000479: 11,3205           23230                                    CALLRECT                              
048388,000480: 11,3206           51025                           DSU      BPL                                   #        1) EITHER TDELTAV OR TNUV EQUALS OR
048389,000481: 11,3207           23704                                    3/4                                   #           EXCEEDS 3/4 IN MAGNITUDE
048390,000482: 11,3210           23230                                    CALLRECT                              
048391,000483: 11,3211           53615                           DAD      SL*                                   #                        OR
048392,000484: 11,3212           23704                                    3/4                                   
048393,000485: 11,3213           57605                                    0          -7,2                       #        2) ABVAL(TDELTAV) EQUALS OR EXCEEDS
048394,000486: 11,3214           45271                           DDV      DSU                                   #           .01(ABVAL(RCV))
048395,000487: 11,3215           00013                                    10D                                   
048396,000488: 11,3216           23763                                    RECRATIO                              
048397,000489: 11,3217           77244                           BPL      VLOAD                                 
048398,000490: 11,3220           23230                                    CALLRECT                              
048399,000491: 11,3221           01527                                    TNUV                                  
048400,000492: 11,3222           45246                           ABVAL    DSU                                   
048401,000493: 11,3223           23704                                    3/4                                   
048402,000494: 11,3224           77600                           BOV                                            
048403,000495: 11,3225           23230                                    CALLRECT                              
048404,000496: 11,3226           77640                           BMN                                            
048405,000497: 11,3227           23232                                    INTGRATE                              
048406,000498: 11,3230           77624        CALLRECT           CALL                                           
048407,000499: 11,3231           23340                                    RECTIFY                               
048408,000500: 11,3232           77775        INTGRATE           VLOAD                                          
048409,000501: 11,3233           01527                                    TNUV                                  
048410,000502: 11,3234           25140                           STOVL    ZV                                    
048411,000503: 11,3235           01521                                    TDELTAV                               
048412,000504: 11,3236           01132                           STORE    YV                                    
048413,000505: 11,3237           77614                           CLEAR                                          
048414,000506: 11,3240           00261                                    JSWITCH                               
048415,000507: 11,3241           66375        DIFEQ0             VLOAD    SSP                                   
048416,000508: 11,3242           01132                                    YV                                    
048417,000509: 11,3243           01501                                    DIFEQCNT                              
048418,000510: 11,3244           00000                                    0                                     
048419,000511: 11,3245           16034                           STODL    ALPHAV                                
048420,000512: 11,3246           22276                                    DPZERO                                
048421,000513: 11,3247           02102                           STORE    H                                     #  START H AT ZERO.  GOES 0(DELT/2)DELT.
048422,000514: 11,3250           52014                           BON      GOTO                                  
048423,000515: 11,3251           00301                                    JSWITCH                               
048424,000516: 11,3252           23605                                    DOW..                                 
048425,000517: 11,3253           22432                                    ACCOMP                                
048426,000518: 11,3254           52175        EARSPH             VLOAD    GOTO                                  
048427,000519: 11,3255           02107                                    RPQV                                  
048428,000520: 11,3256           23175                                    INLUNCHK                              
048429,000521: 11,3257           60545        LUNSPH             DLOAD    SR2                                   
048430,000522: 11,3260           00013                                    10D                                   
048431,000523: 11,3261           50025                           DSU      BMN                                   
048432,000524: 11,3262           23765                                    RSPHERE                               
048433,000525: 11,3263           23202                                    RECTEST                               
048434,000526: 11,3264           71214                           BOF      DLOAD                                 
048435,000527: 11,3265           04340                                    RPQFLAG                               
048436,000528: 11,3266           23274                                    DOSWITCH                              
048437,000529: 11,3267           01517                                    TET                                   
048438,000530: 11,3270           77624                           CALL                                           
048439,000531: 11,3271           33236                                    LUNPOS                                
048440,000532: 11,3272           77676                           VCOMP                                          
048441,000533: 11,3273           02107                           STORE    RPQV                                  
048442,000534: 11,3274           77624        DOSWITCH           CALL                                           
048443,000535: 11,3275           23300                                    ORIGCHNG                              
048444,000536: 11,3276           77650                           GOTO                                           
048445,000537: 11,3277           23232                                    INTGRATE                              
048446,000538: 11,3300           45020        ORIGCHNG           STQ      CALL                                  
048447,000539: 11,3301           02114                                    ORIGEX                                
048448,000540: 11,3302           23340                                    RECTIFY                               
048449,000541: 11,3303           53775                           VLOAD    VSL*                                  
048450,000542: 11,3304           01535                                    RCV                                   
048451,000543: 11,3305           57576                                    0,2                                   
048452,000544: 11,3306           53651                           VSU      VSL*                                  
048453,000545: 11,3307           02107                                    RPQV                                  
048454,000546: 11,3310           57574                                    2,2                                   
048455,000547: 11,3311           01503                           STORE    RRECT                                 
048456,000548: 11,3312           15535                           STODL    RCV                                   
048457,000549: 11,3313           01517                                    TET                                   
048458,000550: 11,3314           77624                           CALL                                           
048459,000551: 11,3315           33347                                    LUNVEL                                
048460,000552: 11,3316           57414                           BOF      VCOMP                                 
048461,000553: 11,3317           00343                                    MOONFLAG                              
048462,000554: 11,3320           23321                                    +1                                    
048463,000555: 11,3321           53715                           PDVL     VSL*                                  
048464,000556: 11,3322           01543                                    VCV                                   
048465,000557: 11,3323           57576                                    0,2                                   
048466,000558: 11,3324           77651                           VSU                                            
048467,000559: 11,3325           77657                           VSL*                                           
048468,000560: 11,3326           57574                                    0          +2,2                       
048469,000561: 11,3327           01511                           STORE    VRECT                                 
048470,000562: 11,3330           01543                           STORE    VCV                                   
048471,000563: 11,3331           67154                           LXA,2    SXA,2                                 
048472,000564: 11,3332           02114                                    ORIGEX                                
048473,000565: 11,3333           00052                                    QPRET                                 
048474,000566: 11,3334           52014                           BON      GOTO                                  
048475,000567: 11,3335           00303                                    MOONFLAG                              
048476,000568: 11,3336           26661                                    CLRMOON                               
048477,000569: 11,3337           26666                                    SETMOON                               
048478,000570:                                                                                                  #  THE RECTIFY SUBROUTINE IS CALLED BY THE INTEGRATION PROGRAM AND OCCASIONALLY BY THE MEASUREMENT INCORPORATION
048479,000571:                                                                                                  #  ROUTINES TO ESTABLISH A NEW CONIC.
048480,000572: 
048481,000573: 11,3340           77354        RECTIFY            LXA,2    VLOAD                                 
048482,000574: 11,3341           02032                                    PBODY                                 
048483,000575: 11,3342           01521                                    TDELTAV                               
048484,000576: 11,3343           53257                           VSL*     VAD                                   
048485,000577: 11,3344           57605                                    0          -7,2                       
048486,000578: 11,3345           01535                                    RCV                                   
048487,000579: 11,3346           01503                           STORE    RRECT                                 
048488,000580: 11,3347           25535                           STOVL    RCV                                   
048489,000581: 11,3350           01527                                    TNUV                                  
048490,000582: 11,3351           53257                           VSL*     VAD                                   
048491,000583: 11,3352           57602                                    0          -4,2                       
048492,000584: 11,3353           01543                                    VCV                                   
048493,000585: 11,3354           01511        MINIRECT           STORE    VRECT                                 
048494,000586: 11,3355           25543                           STOVL    VCV                                   
048495,000587: 11,3356           22276                                    ZEROVEC                               
048496,000588: 11,3357           01521                           STORE    TDELTAV                               
048497,000589: 11,3360           15527                           STODL    TNUV                                  
048498,000590: 11,3361           22276                                    ZEROVEC                               
048499,000591: 11,3362           01551                           STORE    TC                                    
048500,000592: 11,3363           01553                           STORE    XKEP                                  
048501,000593: 11,3364           77616                           RVQ                                            
048502,000594: 
048503,000595:                                                                                                  #  THE THREE DIFEQ ROUTINES - DIFEQ+0, DIFEQ+12, AND DIFEQ+24 - ARE ENTEREDTO PROCESS THE CONTRIBUTIONS AT THE
048504,000596:                                                                                                  #  BEGINNING, MIDDLE, AND END OF THE TIMESTEP, RESPECTIVELY.  THE UPDATING IS DONE BY THE NYSTROM METHOD.
048505,000597: 
048506,000598: 11,3365           64575        DIFEQ+0            VLOAD    VSR3                                  
048507,000599: 11,3366           02064                                    FV                                    
048508,000600: 11,3367           36050                           STCALL   PHIV                                  
048509,000601: 11,3370           23546                                    DIFEQCOM                              
048510,000602: 11,3371           74575        DIFEQ+1            VLOAD    VSR1                                  
048511,000603: 11,3372           02064                                    FV                                    
048512,000604: 11,3373           53206                           PUSH     VAD                                   
048513,000605: 11,3374           02050                                    PHIV                                  
048514,000606: 11,3375           26056                           STOVL    PSIV                                  
048515,000607: 11,3376           53362                           VSR1     VAD                                   
048516,000608: 11,3377           02050                                    PHIV                                  
048517,000609: 11,3400           36050                           STCALL   PHIV                                  
048518,000610: 11,3401           23546                                    DIFEQCOM                              
048519,000611: 11,3402           57345        DIFEQ+2            DLOAD    DMPR                                  
048520,000612: 11,3403           02102                                    H                                     
048521,000613: 11,3404           23714                                    DP2/3                                 
048522,000614: 11,3405           74206                           PUSH     VXSC                                  
048523,000615: 11,3406           02050                                    PHIV                                  
048524,000616: 11,3407           53372                           VSL1     VAD                                   
048525,000617: 11,3410           01140                                    ZV                                    
048526,000618: 11,3411           53361                           VXSC     VAD                                   
048527,000619: 11,3412           02102                                    H                                     
048528,000620: 11,3413           01132                                    YV                                    
048529,000621: 11,3414           25132                           STOVL    YV                                    
048530,000622: 11,3415           02064                                    FV                                    
048531,000623: 11,3416           53322                           VSR3     VAD                                   
048532,000624: 11,3417           02056                                    PSIV                                  
048533,000625: 11,3420           76561                           VXSC     VSL1                                  
048534,000626: 11,3421           40055                           VAD      BOV                                   
048535,000627: 11,3422           01140                                    ZV                                    
048536,000628: 11,3423           23424                                    +1                                    
048537,000629: 11,3424           01140                           STORE    ZV                                    
048538,000630: 11,3425           45014                           BOFF     CALL                                  
048539,000631: 11,3426           00341                                    JSWITCH                               
048540,000632: 11,3427           23477                                    ENDSTATE                              
048541,000633: 11,3430           11057                                    GRP2PC                                
048542,000634: 11,3431           77354                           LXA,2    VLOAD                                 
048543,000635: 11,3432           01122                                    COLREG                                
048544,000636: 11,3433           01140                                    ZV                                    
048545,000637: 11,3434           77732                           VSL3                                           #  ADJUST W-POSITION FOR STORAGE
048546,000638: 11,3435           12467                           STORE    W          +54D,2                     
048547,000639: 11,3436           77775                           VLOAD                                          
048548,000640: 11,3437           01132                                    YV                                    
048549,000641: 11,3440           40132                           VSL3     BOV                                   
048550,000642: 11,3441           23571                                    WMATEND                               
048551,000643: 11,3442           12401                           STORE    W,2                                   
048552,000644: 
048553,000645: 11,3443           77624                           CALL                                           
048554,000646: 11,3444           11057                                    GRP2PC                                
048555,000647: 11,3445           66354                           LXA,2    SSP                                   
048556,000648: 11,3446           01122                                    COLREG                                
048557,000649: 11,3447           00052                                    S2                                    
048558,000650: 11,3450           00000                                    0                                     
048559,000651: 11,3451           67114                           INCR,2   SXA,2                                 
048560,000652: 11,3452           00006                                    6                                     
048561,000653: 11,3453           01131                                    YV                                    
048562,000654: 11,3454           45104                           TIX,2    CALL                                  
048563,000655: 11,3455           23542                                    RELOADSV                              
048564,000656: 11,3456           11057                                    GRP2PC                                
048565,000657: 11,3457           67154                           LXA,2    SXA,2                                 
048566,000658: 11,3460           01131                                    YV                                    
048567,000659: 11,3461           01122                                    COLREG                                
048568,000660: 
048569,000661: 11,3462           77624        NEXTCOL            CALL                                           
048570,000662: 11,3463           11057                                    GRP2PC                                
048571,000663: 11,3464           76754                           LXA,2    VLOAD*                                
048572,000664: 11,3465           01122                                    COLREG                                
048573,000665: 11,3466           75376                                    W,2                                   
048574,000666: 11,3467           77722                           VSR3                                           #  ADJUST W-POSITION FOR INTEGRATION
048575,000667: 11,3470           01132                           STORE    YV                                    
048576,000668: 11,3471           76173                           VLOAD*   AXT,1                                 
048577,000669: 11,3472           75310                                    W          +54D,2                     
048578,000670: 11,3473           00000                                    0                                     
048579,000671: 11,3474           77722                           VSR3                                           #  ADJUST W-VELOCITY FOR INTEGRATION
048580,000672: 11,3475           35140                           STCALL   ZV                                    
048581,000673: 11,3476           23241                                    DIFEQ0                                
048582,000674: 
048583,000675: 11,3477           77775        ENDSTATE           VLOAD                                          
048584,000676: 11,3500           01140                                    ZV                                    
048585,000677: 11,3501           25527                           STOVL    TNUV                                  
048586,000678: 11,3502           01132                                    YV                                    
048587,000679: 11,3503           01521                           STORE    TDELTAV                               
048588,000680: 11,3504           43014                           BON      BOFF                                  
048589,000681: 11,3505           04715                                    MIDAVFLG                              
048590,000682: 11,3506           27641                                    CKMID2                                #  CHECK FOR MID2 BEFORE GOING TO TIMEINC
048591,000683: 11,3507           01756                                    DIM0FLAG                              
048592,000684: 11,3510           27227                                    TESTLOOP                              
048593,000685: 11,3511           77776                           EXIT                                           
048594,000686: 11,3512           05423                           TC       PHASCHNG                              
048595,000687: 11,3513           04022                           OCT      04022                                 #  PHASE 1
048596,000688: 11,3514           40774                           CS       RASFLAG                               #  PHASE CHANGE HAS OCCURRED BETWEEN
048597,000689: 11,3515           75020                           MASK     REINTBIT                              #  INTSTALL AND INTWAKE
048598,000690: 11,3516           26774                           ADS      RASFLAG                               
048599,000691: 11,3517           06014                           TC       INTPRET                               
048600,000692: 11,3520           77731                           SSP                                            
048601,000693: 11,3521           00053                                    QPRET                                 
048602,000694: 11,3522           23527                                    AMOVED                                
048603,000695: 11,3523           52014                           BON      GOTO                                  
048604,000696: 11,3524           01714                                    VINTFLAG                              
048605,000697: 11,3525           26631                                    ATOPCSM                               
048606,000698: 11,3526           26704                                    ATOPLEM                               
048607,000699: 11,3527           66214        AMOVED             SET      SSP                                   
048608,000700: 11,3530           00061                                    JSWITCH                               
048609,000701: 11,3531           01123                                    COLREG                                
048610,000702: 11,3532           77741                           DEC      -30        B-14                       
048611,000703: 11,3533           66214                           BOFF     SSP                                   
048612,000704: 11,3534           01755                                    D6OR9FLG                              
048613,000705: 11,3535           23462                                    NEXTCOL                               
048614,000706: 11,3536           01123                                    COLREG                                
048615,000707: 11,3537           77717                           DEC      -48        B-14                       
048616,000708: 11,3540           77650                           GOTO                                           
048617,000709: 11,3541           23462                                    NEXTCOL                               
048618,000710: 
048619,000711: 11,3542           77745        RELOADSV           DLOAD                                          #  RELOAD TEMPORARY STATE VECTOR
048620,000712: 11,3543           01121                                    TDEC                                  #  FROM PERMANENT IN CASE OF
048621,000713: 11,3544           34041                           STCALL   TDEC1                                 
048622,000714: 11,3545           27112                                    INTEGRV2                              #  BY STARTING AT INTEGRV2.
048623,000715: 11,3546           43345        DIFEQCOM           DLOAD    DAD                                   #  INCREMENT H AND DIFEQCNT.
048624,000716: 11,3547           02100                                    DT/2                                  
048625,000717: 11,3550           02102                                    H                                     
048626,000718: 11,3551           66110                           INCR,1   SXA,1                                 
048627,000719: 11,3552           77763                           DEC      -12        B-14                       
048628,000720: 11,3553           01500                                    DIFEQCNT                              #  DIFEQCNT SET FOR NEXT ENTRY.
048629,000721: 11,3554           02102                           STORE    H                                     
048630,000722: 11,3555           74561                           VXSC     VSR1                                  
048631,000723: 11,3556           02064                                    FV                                    
048632,000724: 11,3557           74255                           VAD      VXSC                                  
048633,000725: 11,3560           01140                                    ZV                                    
048634,000726: 11,3561           02102                                    H                                     
048635,000727: 11,3562           77655                           VAD                                            
048636,000728: 11,3563           01132                                    YV                                    
048637,000729: 11,3564           02034                           STORE    ALPHAV                                
048638,000730: 11,3565           52014                           BON      GOTO                                  
048639,000731: 11,3566           00301                                    JSWITCH                               
048640,000732: 11,3567           23605                                    DOW..                                 
048641,000733: 11,3570           22412                                    FBR3                                  
048642,000734: 
048643,000735: 11,3571           43014        WMATEND            CLEAR    CLEAR                                 
048644,000736: 11,3572           01676                                    DIM0FLAG                              #  DONT INTEGRATE W THIS TIME
048645,000737: 11,3573           01671                                    ORBWFLAG                              #  INVALIDATE W
048646,000738: 11,3574           77614                           CLEAR                                          
048647,000739: 11,3575           02676                                    RENDWFLG                              
048648,000740: 11,3576           77414                           SET      EXIT                                  
048649,000741: 11,3577           01472                                    STATEFLG                              #  PICK UP STATE VECTOR UPDATE
048650,000742: 11,3600           05651                           TC       ALARM                                 
048651,000743: 11,3601           00421                           OCT      421                                   
048652,000744: 11,3602           06014                           TC       INTPRET                               
048653,000745: 11,3603           77650                           GOTO                                           
048654,000746: 11,3604           27227                                    TESTLOOP                              #  FINISH INTEGRATING STATE VECTOR
048655,000747: 
048656,000748:                                                                                                  #  ORBITAL ROUTINE FOR EXTRAPOLATION OF THE W MATRIX. IT COMPUTES THE SECOND DERIVATIVE OF EACH COLUMN POSITION
048657,000749:                                                                                                  #  VECTOR OF THE MATRIX AND CALLS THE NYSTROM INTEGRATION ROUTINES TO SOLVE THE DIFFERENTIAL EQUATIONS. THE PROGRAM
048658,000750:                                                                                                  #  USES A TABLE OF VEHICLE POSITION VECTORS COMPUTED DURING THE INTEGRATION OF THE VEHICLES POSITION AND VELOCITY.
048659,000751: 
048660,000752: 11,3605           70754        DOW..              LXA,2    DLOAD*                                
048661,000753: 11,3606           02032                                    PBODY                                 
048662,000754: 11,3607           54040                                    MUEARTH,2                             
048663,000755: 11,3610           36074                           STCALL   BETAM                                 
048664,000756: 11,3611           23633                                    DOW..1                                
048665,000757: 11,3612           02064                           STORE    FV                                    
048666,000758: 11,3613           62014                           BOF      INCR,1                                
048667,000759: 11,3614           00342                                    MIDFLAG                               
048668,000760: 11,3615           23133                                    NBRANCH                               
048669,000761: 11,3616           77771                           DEC      -6         B-14                       

The following line was LXC,2 in Luminary. Was this fixed for Sundance 306?

048671,000763: 11,3617           70754                           LXA,2    DLOAD*                                
048672,000764: 11,3620           02032                                    PBODY                                 
048673,000765: 11,3621           54042                                    MUEARTH    -2,2                       
048674,000766: 11,3622           36074                           STCALL   BETAM                                 
048675,000767: 11,3623           23633                                    DOW..1                                
048676,000768: 11,3624           50414                           BON      VSR6                                  
048677,000769: 11,3625           00303                                    MOONFLAG                              
048678,000770: 11,3626           23627                                    +1                                    
048679,000771: 11,3627           77655                           VAD                                            
048680,000772: 11,3630           02064                                    FV                                    
048681,000773: 11,3631           36064                           STCALL   FV                                    
048682,000774: 11,3632           23133                                    NBRANCH                               
048683,000775: 11,3633           60575        DOW..1             VLOAD    VSR4                                  
048684,000776: 11,3634           02034                                    ALPHAV                                
048685,000777: 11,3635           53513                           PDVL*    UNIT                                  
048686,000778: 11,3636           02134                                    VECTAB,1                              
048687,000779: 11,3637           46315                           PDVL     VPROJ                                 
048688,000780: 11,3640           02034                                    ALPHAV                                
048689,000781: 11,3641           52361                           VXSC     VSU                                   
048690,000782: 11,3642           23704                                    3/4                                   
048691,000783: 11,3643           60325                           PDDL     NORM                                  
048692,000784: 11,3644           00045                                    36D                                   
048693,000785: 11,3645           00052                                    S2                                    
048694,000786: 11,3646           63406                           PUSH     DSQ                                   
048695,000787: 11,3647           77605                           DMP                                            
048696,000788: 11,3650           65301                           NORM     PDDL                                  
048697,000789: 11,3651           00043                                    34D                                   
048698,000790: 11,3652           02074                                    BETAM                                 
048699,000791: 11,3653           56342                           SR1      DDV                                   
048700,000792: 11,3654           77761                           VXSC                                           
048701,000793: 11,3655           57154                           LXA,2    XAD,2                                 
048702,000794: 11,3656           00051                                    S2                                    
048703,000795: 11,3657           00051                                    S2                                    
048704,000796: 11,3660           57074                           XAD,2    XAD,2                                 
048705,000797: 11,3661           00051                                    S2                                    
048706,000798: 11,3662           00042                                    34D                                   
048707,000799: 11,3663           43457                           VSL*     RVQ                                   
048708,000800: 11,3664           57606                                    0          -8D,2                      
048709,000801: 
048710,000802: 11,2000                                           SETLOC   ORBITAL1                              
048711,000803: 11,2000                                           BANK                                           
048712,000804: 
048713,000805: 11,3665           04631 23146  3/5                2DEC     .6         B-2                        
048714,000806: 
048715,000807: 11,3667           14000 00000  THREE/8            2DEC     .375                                  
048716,000808: 
048717,000809: 11,3671           02314 31463  .3D                2DEC     .3         B-2                        
048718,000810: 
048719,000811: 11,3673           01400 00000  3/64               2DEC     3          B-6                        
048720,000812: 
048721,000813: 11,3675           10000 00000  DP1/4              2DEC     .25                                   
048722,000814: 
048723,000815: 11,3677  11,3675               DQUARTER           EQUALS   DP1/4                                 
048724,000816: 11,3677  11,3675               POS1/4             EQUALS   DP1/4                                 
048725,000817: 11,3677           03000 00000  3/32               2DEC     3          B-5                        
048726,000818: 
048727,000819: 11,3701           36000 00000  15/16              2DEC     15.        B-4                        
048728,000820: 
048729,000821: 11,3703           30000 00000  3/4                2DEC     3.0        B-2                        
048730,000822: 
048731,000823: 11,3705           22525 12525  7/12               2DEC     .5833333333                            
048732,000824: 
048733,000825: 11,3707           22000 00000  9/16               2DEC     9          B-4                        
048734,000826: 
048735,000827: 11,3711           01200 00000  5/128              2DEC     5          B-7                        
048736,000828: 
048737,000829: 11,3713  11,2275               DPZERO             EQUALS   ZEROVEC                               
048738,000830: 11,3713           25252 25253  DP2/3              2DEC     .6666666667                            
048739,000831: 
048740,000832: 11,3715  11,3713               2/3                EQUALS   DP2/3                                 
048741,000833: 11,3715           00027        OCT27              OCT      27                                    
048742,000834: 
048743,000835:                                                                                                  #  LM504 IS TEMPORARY
048744,000836: 
048745,000837:                                                                                                  #  IT IS VITAL THAT THE FOLLOWING CONSTANTS NOT BE SHUFFLED
048746,000838: 11,3716           77764                           DEC      -11        B-14                       
048747,000839: 11,3717           77775                           DEC      -2         B-14                       
048748,000840: 11,3720           77766                           DEC      -9         B-14                       
048749,000841: 11,3721           77771                           DEC      -6         B-14                       
048750,000842: 11,3722           77775                           DEC      -2         B-14                       
048751,000843: 11,3723           77775                           DEC      -2         B-14                       
048752,000844: 11,3724           00000                           DEC      0          B-14                       
048753,000845: 11,3725           77763                           DEC      -12        B-14                       
048754,000846: 11,3726           77766                           DEC      -9         B-14                       
048755,000847: 11,3727           77773                           DEC      -4         B-14                       
048756,000848: 11,3730           77770        ASCALE             DEC      -7         B-14                       
048757,000849: 11,3731           77771                           DEC      -6         B-14                       
048758,000850: 
048759,000851:                                                                                                  #  *** THE ORDER OF THE FOLLOWING CONSTANTS MUST NOT BE CHANGED ***********
048760,000852: 
048761,000853: 11,3732           27446 14620                     2DEC*    1.32715445 E16        B-54*           #  S
048762,000854: 11,3734           16471 01352  MUM                2DEC*    4.9027780  E8         B-30*           #  M
048763,000855: 
048764,000856: 11,3736           22437 16067  MUEARTH            2DEC*    3.986032   E10        B-36*           
048765,000857: 11,3740           00000 00000                     2DEC     0          B-28                       
048766,000858: 
048767,000859: 11,3742           02302 24736  J4REQ/J3           2DEC*    .4991607391 E7         B-26*           
048768,000860: 11,3744           00000 00000                     2DEC     0          B-28                       
048769,000861: 11,3746           77776 53032  2J3RE/J2           2DEC*    -.1355426363 E5         B-27*           
048770,000862: 11,3750           10407 05344                     2DEC*    .3067493316 E18        B-60*           
048771,000863: 11,3752           13710 35320  J2REQSQ            2DEC*    1.75501139 E21        B-72*           
048772,000864: 11,3754           12160 12124  3J22R2MU           2DEC*    9.20479048 E16        B-58*           
048773,000865: 
048774,000866: 11,3756           24000 00000  5/8                2DEC     5          B-3                        
048775,000867: 
048776,000868: 11,3760           74631 63145  -1/12              2DEC     -.1                                   
048777,000869: 
048778,000870: 11,3762           00243 32703  RECRATIO           2DEC     .01                                   
048779,000871: 
048780,000872: 11,3764           03654 21000  RSPHERE            2DEC     64373.76   E3         B-29            
048781,000873: 
048782,000874: 11,3766           03654 21000  RDM                2DEC     16093.44   E3         B-27            
048783,000875: 
048784,000876: 11,3770           04627 25200  RDE                2DEC     80467.20   E3         B-29            
048785,000877: 
048786,000878: 11,3772     5011               INTFLBIT           =        BIT14                                 
048787,000879: 11,3772     5020               REINTBIT           =        BIT7                                  
048788,000880: 
048789,000881: 11,3772                        RATT               EQUALS   00                                    
048790,000882: 11,3772                        VATT               EQUALS   6D                                    
048791,000883: 11,3772                        TAT                EQUALS   12D                                   
048792,000884: 11,3772                        RATT1              EQUALS   14D                                   
048793,000885: 11,3772                        VATT1              EQUALS   20D                                   
048794,000886: 11,3772                        MU(P)              EQUALS   26D                                   
048795,000887: 11,3772                        TDEC1              EQUALS   32D                                   
048796,000888: 11,3772                        URPV               EQUALS   14D                                   
048797,000889: 11,3772     0022               COSPHI/2           EQUALS   URPV       +4                         
048798,000890: 11,3772                        UZ                 EQUALS   20D                                   
048799,000891: 11,3772                        TVEC               EQUALS   26D                                   
048800,000892: 

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