Source Code

These source-code files were obtained by digitally photographing the Colossus 237 program listing from the private collection of original AGC developer Fred Martin, and then modifying pre-existing Colossus 249 (Apollo 9) source files to incorporate changes. Note that the page images presented online are of reduced quality, and that additional images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 237 OF AGC PROGRAM COLOSSUS 
	BY NASA 2021111-031  1:17 AUG. 24, 1968

054992,000002:                                                                                                 #  Copyright:     Public domain.
054993,000003:                                                                                                 #  Filename:      ORBITAL_INTEGRATION.agc
054994,000004:                                                                                                 #  Purpose:       Part of the source code for Colossus build 237.  
054995,000005:                                                                                                 #                 This is for the Command Module's (CM) Apollo Guidance
054996,000006:                                                                                                 #                 Computer (AGC), we believe for Apollo 8.
054997,000007:                                                                                                 #  Assembler:     yaYUL
054998,000008:                                                                                                 #  Contact:       Onno Hommes <ohommes@alumni.cmu.edu>
054999,000009:                                                                                                 #  Website:       www.ibiblio.org/apollo/index.html
055000,000010:                                                                                                 #  Page scans:    www.ibiblio.org/apollo/ScansForConversion/Colossus237/
055001,000011:                                                                                                 #  Mod history:   2010-05-22 OH   Adapted from corresponding Colossus 249 file.
055002,000012:                                                                                                 #                 2010-12-04 JL   Remove Colossus 249 header comments. Change to double-has page numbers.
055003,000013:                                                                                                 #                 2011-02-12 JL   Minor fixes.
055004,000014: 
055005,000015:                                                                                                 # # Page 1298
055006,000016:                                                                                                 #           DELETE
055007,000017: 13,3712                                          BANK     13                                    
055008,000018: 11,2000                                          SETLOC   ORBITAL                               
055009,000019: 11,2000                                          BANK                                           
055010,000020: 11,2310                                          COUNT    11/ORBIT                              
055011,000021:                                                                                                 #           DELETE
055012,000022: 11,2310           40354        KEPPREP           LXA,2    SETPD                                 
055013,000023: 11,2311           02150                                   PBODY                                 
055014,000024: 11,2312           00001                                   0                                     
055015,000025: 11,2313           75543                          DLOAD*   SQRT                                  #  SQRT(MU) (+18 OR +15)  0D        PL  2D
055016,000026: 11,2314           50044                                   MUEARTH,2                             
055017,000027: 11,2315           53515                          PDVL     UNIT                                  #                                   PL 8D
055018,000028: 11,2316           01535                                   RCV                                   
055019,000029: 11,2317           60325                          PDDL     NORM                                  #  NORM R (+29 OR +27 - N1) 2D      PL 4D
055020,000030: 11,2320           00045                                   36D                                   
055021,000031: 11,2321           00047                                   X1                                    
055022,000032: 11,2322           77715                          PDVL                                           
055023,000033: 11,2323           65241                          DOT      PDDL                                  #  F*SQRT(MU)(+7 OR+5) 4D         PL  6D
055024,000034: 11,2324           01543                                   VCV                                   
055025,000035: 11,2325           02312                                   TAU.                                  #  (+28)
055026,000036: 11,2326           60225                          DSU      NORM                                  
055027,000037: 11,2327           01551                                   TC                                    
055028,000038: 11,2330           00051                                   S1                                    
055029,000039: 11,2331           77742                          SR1                                            
055030,000040: 11,2332           65271                          DDV      PDDL                                  
055031,000041: 11,2333           00003                                   2D                                    
055032,000042: 11,2334           41405                          DMP      PUSH                                  #  FS(+6 +N1-N2) 6D               PL  8D
055033,000043: 11,2335           00005                                   4D                                    
055034,000044: 11,2336           65316                          DSQ      PDDL                                  #  (FS)SQ(+12 +2(N1-N2)) 8D       PL 10D
055035,000045: 11,2337           00005                                   4D                                    
055036,000046: 11,2340           64716                          DSQ      PDDL*                                 #  SSQ/MU(-20R +2(N1-N2)) 10D       PL 12D
055037,000047: 11,2341           50044                                   MUEARTH,2                             
055038,000048: 11,2342           40442                          SR3      SR4                                   
055039,000049: 11,2343           47515                          PDVL     VSQ                                   #  PREALIGN MU (+43 OR +37) 12D   PL 14D
055040,000050: 11,2344           01543                                   VCV                                   
055041,000051: 11,2345           44205                          DMP      BDSU                                  #                                 PL 12D
055042,000052: 11,2346           00045                                   36D                                   
055043,000053: 11,2347           41271                          DDV      DMP                                   #                                 PL 10D
055044,000054: 11,2350           00003                                   2D                                    #  -(1/R-ALPHA)(+12 +3N1-2N2)
055045,000055: 11,2351           53605                          DMP      SL*                                   
055046,000056: 11,2352           23717                                   DP2/3                                 
055047,000057: 11,2353           20176                                   0          -3,1                       #  10L(1/R-ALPHA)(+13 +2(N1-N2))
055048,000058: 11,2354           43260                          XSU,1    DAD                                   #  2(FS)SQ - ETCETERA       PL 8D
055049,000059: 11,2355           00050                                   S1                                    #  X1 = N2-N1
055050,000060: 11,2356           45257                          SL*      DSU                                   #  -FS+2(FS)SQ ETC (+6 +N1-N2)    PL  6D
055051,000061: 11,2357           20211                                   8D,1                                  
055052,000062: 11,2360           41205                          DMP      DMP                                   
055053,000063: 11,2361           00001                                   0D                                    
055054,000064: 11,2362           00005                                   4D                                    
055055,000065: 11,2363           53657                          SL*      SL*                                   
055056,000066:                                                                                                 # # Page 1299
055057,000067: 11,2364           20211                                   8D,1                                  
055058,000068: 11,2365           20201                                   0,1                                   #  S(-FS(1-2FS)-1/6...)(+17 OR +16)
055059,000069: 11,2366           65215                          DAD      PDDL                                  #                                 PL  6D
055060,000070: 11,2367           01553                                   XKEP                                  
055061,000071: 11,2370           53605                          DMP      SL*                                   #  S(+17 OR +16)
055062,000072: 11,2371           00001                                   0D                                    
055063,000073: 11,2372           20202                                   1,1                                   
055064,000074: 11,2373           43204                          BOVB     DAD                                   
055065,000075: 11,2374           57314                                   TCDANZIG                              
055066,000076: 11,2375           77626                          STADR                                          
055067,000077: 11,2376           75471                          STORE    XKEPNEW                               
055068,000078: 11,2377           74020                          STQ      AXC,1                                 
055069,000079: 11,2400           02270                                   KEPRTN                                
055070,000080: 11,2401           00012                          DEC      10         B-14                       
055071,000081: 11,2402           74014                          BON      AXC,1                                 
055072,000082: 11,2403           00303                                   MOONFLAG                              
055073,000083: 11,2404           24000                                   KEPLERN                               
055074,000084: 11,2405           00002                          DEC      2          B-14                       
055075,000085: 11,2406           77650                          GOTO                                           
055076,000086: 11,2407           24000                                   KEPLERN                               
055077,000087: 
055078,000088:                                                                                                 # # Page 1300
055079,000089: 11,2410           66350        FBR3              LXA,1    SSP                                   
055080,000090: 11,2411           01500                                   DIFEQCNT                              
055081,000091: 11,2412           00051                                   S1                                    
055082,000092: 11,2413           77762                          DEC      -13        B-14                       
055083,000093: 11,2414           54345                          DLOAD    SR                                    
055084,000094: 11,2415           02314                                   DT/2                                  
055085,000095: 11,2416           20612                                   9D                                    
055086,000096: 11,2417           61500                          TIX,1    ROUND                                 
055087,000097: 11,2420           22421                                   +1                                    
055088,000098: 11,2421           43206                          PUSH     DAD                                   
055089,000099: 11,2422           01551                                   TC                                    
055090,000100: 11,2423           16312                          STODL    TAU.                                  
055091,000101: 11,2424           77615                          DAD                                            
055092,000102: 11,2425           01517                                   TET                                   
055093,000103: 11,2426           35517                          STCALL   TET                                   
055094,000104: 11,2427           22310                                   KEPPREP                               
055095,000105: 
055096,000106:                                                                                                 # # Page 1301
055097,000107:                                                                                                 #  AGC ROUTINE TO COMPUTE ACCELERATION COMPONENTS.
055098,000108: 
055099,000109: 
055100,000110: 11,2430           73150        ACCOMP            LXA,1    LXA,2                                 
055101,000111: 11,2431           02150                                   PBODY                                 
055102,000112: 11,2432           02150                                   PBODY                                 
055103,000113: 11,2433           77775                          VLOAD                                          
055104,000114: 11,2434           11453                                   ZEROVEC                               
055105,000115: 11,2435           26202                          STOVL    FV                                    
055106,000116: 11,2436           02152                                   ALPHAV                                
055107,000117: 11,2437           53257                          VSL*     VAD                                   
055108,000118: 11,2440           57605                                   0          -7,2                       
055109,000119: 11,2441           01535                                   RCV                                   
055110,000120: 11,2442           02160                          STORE    BETAV                                 
055111,000121: 11,2443           65014                          BOF      XCHX,2                                
055112,000122: 11,2444           01756                                   DIM0FLAG                              
055113,000123: 11,2445           22452                                   +5                                    
055114,000124: 11,2446           01500                                   DIFEQCNT                              
055115,000125: 11,2447           12217                          STORE    VECTAB,2                              
055116,000126: 11,2450           77724                          XCHX,2                                         
055117,000127: 11,2451           01500                                   DIFEQCNT                              
055118,000128: 11,2452           53575                          VLOAD    UNIT                                  
055119,000129: 11,2453           02152                                   ALPHAV                                
055120,000130: 11,2454           16152                          STODL    ALPHAV                                
055121,000131: 11,2455           00045                                   36D                                   
055122,000132: 11,2456           02310                          STORE    ALPHAM                                
055123,000133: 11,2457           77624                          CALL                                           
055124,000134: 11,2460           22562                                   GAMCOMP                               
055125,000135: 11,2461           66175                          VLOAD    SXA,1                                 
055126,000136: 11,2462           02160                                   BETAV                                 
055127,000137: 11,2463           00051                                   S2                                    
055128,000138: 11,2464           16152                          STODL    ALPHAV                                
055129,000139: 11,2465           02210                                   BETAM                                 
055130,000140: 11,2466           02310                          STORE    ALPHAM                                
055131,000141: 11,2467           71214                          BOF      DLOAD                                 
055132,000142: 11,2470           00342                                   MIDFLAG                               
055133,000143: 11,2471           22725                                   OBLATE                                
055134,000144: 11,2472           01517                                   TET                                   
055135,000145: 11,2473           77624                          CALL                                           
055136,000146: 11,2474           54110                                   LSPOS                                 
055137,000147: 11,2475           72174                          AXT,2    LXA,1                                 
055138,000148: 11,2476           00002                                   2                                     
055139,000149: 11,2477           00051                                   S2                                    
055140,000150: 11,2500           77614                          BOF                                            
055141,000151: 11,2501           00343                                   MOONFLAG                              
055142,000152: 11,2502           22505                                   +3                                    
055143,000153: 11,2503           77076                          VCOMP    AXT,2                                 
055144,000154: 11,2504           00000                                   0                                     
055145,000155: 11,2505           02160                          STORE    BETAV                                 
055146,000156: 11,2506           26263                          STOVL    RPQV                                  
055147,000157:                                                                                                 # # Page 1302
055148,000158: 11,2507           00003                                   2D                                    
055149,000159: 11,2510           02300                          STORE    RPSV                                  
055150,000160: 11,2511           45335                          SLOAD    DSU                                   
055151,000161: 11,2512           01012                                   MODREG                                
055152,000162: 11,2513           23721                                   OCT27                                 
055153,000163: 11,2514           43030                          BHIZ     BOF                                   
055154,000164: 11,2515           22520                                   +3                                    
055155,000165: 11,2516           01756                                   DIM0FLAG                              
055156,000166: 11,2517           22534                                   GETRPSV                               
055157,000167: 11,2520           74375                          VLOAD    VXSC                                  
055158,000168: 11,2521           02152                                   ALPHAV                                
055159,000169: 11,2522           02310                                   ALPHAM                                
055160,000170: 11,2523           52257                          VSR*     VSU                                   
055161,000171: 11,2524           57175                                   1,2                                   
055162,000172: 11,2525           02160                                   BETAV                                 
055163,000173: 11,2526           77724                          XCHX,2                                         
055164,000174: 11,2527           01500                                   DIFEQCNT                              
055165,000175: 11,2530           12225                          STORE    VECTAB     +6,2                       
055166,000176: 11,2531           02272                          STORE    RQVV                                  
055167,000177: 11,2532           77724                          XCHX,2                                         
055168,000178: 11,2533           01500                                   DIFEQCNT                              
055169,000179: 11,2534           62175        GETRPSV           VLOAD    INCR,1                                
055170,000180: 11,2535           02263                                   RPQV                                  
055171,000181: 11,2536           00004                                   4                                     
055172,000182: 11,2537           43014                          CLEAR    BOF                                   
055173,000183: 11,2540           04260                                   RPQFLAG                               
055174,000184: 11,2541           00343                                   MOONFLAG                              
055175,000185: 11,2542           22547                                   +5                                    
055176,000186: 11,2543           53261                          VSR      VAD                                   
055177,000187: 11,2544           20612                                   9D                                    
055178,000188: 11,2545           02300                                   RPSV                                  
055179,000189: 11,2546           02300                          STORE    RPSV                                  
055180,000190: 11,2547           77624                          CALL                                           
055181,000191: 11,2550           22562                                   GAMCOMP                               
055182,000192: 11,2551           62174                          AXT,2    INCR,1                                
055183,000193: 11,2552           00004                                   4                                     
055184,000194: 11,2553           00004                                   4                                     
055185,000195: 11,2554           77775                          VLOAD                                          
055186,000196: 11,2555           02300                                   RPSV                                  
055187,000197: 11,2556           36160                          STCALL   BETAV                                 
055188,000198: 11,2557           22562                                   GAMCOMP                               
055189,000199: 11,2560           77650                          GOTO                                           
055190,000200: 11,2561           22725                                   OBLATE                                
055191,000201: 11,2562           74575        GAMCOMP           VLOAD    VSR1                                  
055192,000202: 11,2563           02160                                   BETAV                                 
055193,000203: 11,2564           40236                          VSQ      SETPD                                 
055194,000204: 11,2565           00001                                   0                                     
055195,000205: 11,2566           61501                          NORM     ROUND                                 
055196,000206: 11,2567           00040                                   31D                                   
055197,000207: 11,2570           60325                          PDDL     NORM                                  #  NORMED B SQUARED TO PD LIST
055198,000208:                                                                                                 # # Page 1303
055199,000209: 11,2571           02310                                   ALPHAM                                #  NORMALIZE (LESS ONE) LENGTH OF ALPHA
055200,000210: 11,2572           00041                                   32D                                   #  SAVING NORM SCALE FACTOR IN X1
055201,000211: 11,2573           63342                          SR1      PDVL                                  
055202,000212: 11,2574           02160                                   BETAV                                 #  C(PDL+2) = ALMOST NORMED ALPHA
055203,000213: 11,2575           77656                          UNIT                                           
055204,000214: 11,2576           16160                          STODL    BETAV                                 
055205,000215: 11,2577           00045                                   36D                                   
055206,000216: 11,2600           02210                          STORE    BETAM                                 
055207,000217: 11,2601           55301                          NORM     BDDV                                  #  FORM NORMALIZED QUOTIENT ALPHAM/BETAM
055208,000218: 11,2602           00042                                   33D                                   
055209,000219: 11,2603           41562                          SR1R     PUSH                                  #  C(PDL+2) = ALMOST NORMALIZE RHO.
055210,000220: 11,2604           77743                          DLOAD*                                         
055211,000221: 11,2605           27725                                   ASCALE,1                              
055212,000222: 11,2606           00051                          STORE    S1                                    
055213,000223: 11,2607           57124                          XCHX,2   XAD,2                                 
055214,000224: 11,2610           00050                                   S1                                    
055215,000225: 11,2611           00040                                   32D                                   
055216,000226: 11,2612           71264                          XSU,2    DLOAD                                 
055217,000227: 11,2613           00041                                   33D                                   
055218,000228: 11,2614           00003                                   2D                                    
055219,000229: 11,2615           65057                          SR*      XCHX,2                                
055220,000230: 11,2616           57177                                   0          -1,2                       
055221,000231: 11,2617           00050                                   S1                                    
055222,000232: 11,2620           74406                          PUSH     SR1R                                  #  RHO/4 TO 4D
055223,000233: 11,2621           50315                          PDVL     DOT                                   
055224,000234: 11,2622           02152                                   ALPHAV                                
055225,000235: 11,2623           02160                                   BETAV                                 
055226,000236: 11,2624           44372                          SL1R     BDSU                                  #  (RHO/4) - 2(ALPHAV/2.BETAV/2)
055227,000237: 11,2625           57206                          PUSH     DMPR                                  #  TO PDL+6
055228,000238: 11,2626           00005                                   4                                     
055229,000239: 11,2627           77752                          SL1                                            
055230,000240: 11,2630           43206                          PUSH     DAD                                   
055231,000241: 11,2631           23701                                   DQUARTER                              
055232,000242: 11,2632           75406                          PUSH     SQRT                                  
055233,000243: 11,2633           41475                          DMPR     PUSH                                  
055234,000244: 11,2634           00013                                   10D                                   
055235,000245: 11,2635           43352                          SL1      DAD                                   
055236,000246: 11,2636           23701                                   DQUARTER                              
055237,000247: 11,2637           43325                          PDDL     DAD                                   #  (1/4)+2((Q+1)/4)   TO PD+14D
055238,000248: 11,2640           00013                                   10D                                   
055239,000249: 11,2641           11451                                   HALFDP                                
055240,000250: 11,2642           72475                          DMPR     SL1                                   
055241,000251: 11,2643           00011                                   8D                                    
055242,000252: 11,2644           56215                          DAD      DDV                                   
055243,000253: 11,2645           23673                                   THREE/8                               
055244,000254: 11,2646           00017                                   14D                                   
055245,000255: 11,2647           74275                          DMPR     VXSC                                  
055246,000256: 11,2650           00007                                   6                                     
055247,000257: 11,2651           02160                                   BETAV                                 #                -
055248,000258: 11,2652           64515                          PDVL     VSR3                                  #  (G/2)(C(PD+4))B/2 TO PD+16D
055249,000259:                                                                                                 # # Page 1304
055250,000260: 11,2653           02152                                   ALPHAV                                
055251,000261: 11,2654           41455                          VAD      PUSH                                  #  A12 + C(PD+16D) TO PD+16D
055252,000262: 11,2655           41345                          DLOAD    DMP                                   
055253,000263: 11,2656           00001                                   0                                     
055254,000264: 11,2657           00015                                   12D                                   #  -
055255,000265: 11,2660           61501                          NORM     ROUND                                 
055256,000266: 11,2661           00037                                   30D                                   
055257,000267: 11,2662           40665                          BDDV     DMP*                                  
055258,000268: 11,2663           00003                                   2                                     
055259,000269: 11,2664           50044                                   MUEARTH,2                             
055260,000270: 11,2665           74276                          DCOMP    VXSC                                  
055261,000271: 11,2666           57124                          XCHX,2   XAD,2                                 
055262,000272: 11,2667           00050                                   S1                                    
055263,000273: 11,2670           00051                                   S2                                    
055264,000274: 11,2671           55064                          XSU,2    XSU,2                                 
055265,000275: 11,2672           00036                                   30D                                   
055266,000276: 11,2673           00037                                   31D                                   
055267,000277: 11,2674           77600                          BOV                                            #  CLEAR OVIND
055268,000278: 11,2675           22676                                   +1                                    
055269,000279: 11,2676           65057                          VSR*     XCHX,2                                
055270,000280: 11,2677           57177                                   0          -1,2                       
055271,000281: 11,2700           00050                                   S1                                    
055272,000282: 11,2701           77655                          VAD                                            
055273,000283: 11,2702           02202                                   FV                                    
055274,000284: 11,2703           02202                          STORE    FV                                    
055275,000285: 11,2704           43400                          BOV      RVQ                                   #  RETURN IF NO OVERFLOW
055276,000286: 11,2705           22706                                   +1                                    
055277,000287: 11,2706           54345        GOBAQUE           DLOAD    SR                                    
055278,000288: 11,2707           02212                                   H                                     
055279,000289: 11,2710           20612                                   9D                                    
055280,000290: 11,2711           44206                          PUSH     BDSU                                  
055281,000291: 11,2712           01551                                   TC                                    
055282,000292: 11,2713           16312                          STODL    TAU.                                  
055283,000293: 11,2714           01517                                   TET                                   
055284,000294: 11,2715           45425                          DSU      STADR                                 
055285,000295: 11,2716           42260                          STCALL   TET                                   
055286,000296: 11,2717           22310                                   KEPPREP                               
055287,000297: 11,2720           77624                          CALL                                           
055288,000298: 11,2721           23344                                   RECTIFY                               
055289,000299: 11,2722           77614                          SETGO                                          
055290,000300: 11,2723           04020                                   RPQFLAG                               
055291,000301: 11,2724           27234                                   TESTLOOP                              
055292,000302: 
055293,000303:                                                                                                 # # Page 1305
055294,000304:                                                                                                 #  THE OBLATE ROUTINE COMPUTES THE ACCELERATION DUE TO OBLATENESS. IT USES THE UNIT OF THE VEHICLE
055295,000305:                                                                                                 #  POSITION VECTOR FOUND IN ALPHAV AND THE DISTANCE TO THE CENTER IN ALPHAM. THIS IS ADDED TO THE SUM OF THE
055296,000306:                                                                                                 #  DISTURBING ACCELERATIONS IN FV AND THE PROPER DIFEQ STAGE IS CALLED VIA X1.
055297,000307: 11,2725           71354        OBLATE            LXA,2    DLOAD                                 
055298,000308: 11,2726           02150                                   PBODY                                 
055299,000309: 11,2727           02310                                   ALPHAM                                
055300,000310: 11,2730           44601                          SETPD    DSU*                                  
055301,000311: 11,2731           00001                                   0                                     
055302,000312: 11,2732           50012                                   RDE,2                                 
055303,000313: 11,2733           43044                          BPL      BOF                                   #  GET URPV
055304,000314: 11,2734           23135                                   NBRANCH                               
055305,000315: 11,2735           00343                                   MOONFLAG                              
055306,000316: 11,2736           23144                                   COSPHIE                               
055307,000317: 11,2737           65375                          VLOAD    PDDL                                  
055308,000318: 11,2740           02152                                   ALPHAV                                
055309,000319: 11,2741           01517                                   TET                                   
055310,000320: 11,2742           45125                          PDDL     CALL                                  
055311,000321: 11,2743           23671                                   3/5                                   
055312,000322: 11,2744           55366                                   R-TO-RP                               
055313,000323: 11,2745           00017                          STORE    URPV                                  
055314,000324: 11,2746           47375                          VLOAD    VXV                                   
055315,000325: 11,2747           02012                                   504LM                                 
055316,000326: 11,2750           11445                                   ZUNIT                                 
055317,000327: 11,2751           61255                          VAD      VXM                                   
055318,000328: 11,2752           11445                                   ZUNIT                                 
055319,000329: 11,2753           00025                                   MMATRIX                               
055320,000330: 11,2754           77656                          UNIT                                           #  POSSIBLY UNNECESSARY
055321,000331: 11,2755           00025        COMTERM           STORE    UZ                                    
055322,000332: 11,2756           57345                          DLOAD    DMPR                                  
055323,000333: 11,2757           00023                                   COSPHI/2                              
055324,000334: 11,2760           23703                                   3/32                                  
055325,000335: 11,2761           63525                          PDDL     DSQ                                   #  P2/64 TO PD0
055326,000336: 11,2762           00023                                   COSPHI/2                              
055327,000337: 11,2763           45275                          DMPR     DSU                                   
055328,000338: 11,2764           23705                                   15/16                                 
055329,000339: 11,2765           23677                                   3/64                                  
055330,000340: 11,2766           57206                          PUSH     DMPR                                  #  P3/32 TO PD2
055331,000341: 11,2767           00023                                   COSPHI/2                              
055332,000342: 11,2770           76405                          DMP      SL1R                                  
055333,000343: 11,2771           23711                                   7/12                                  
055334,000344: 11,2772           57325                          PDDL     DMPR                                  
055335,000345: 11,2773           00001                                   0                                     
055336,000346: 11,2774           23717                                   2/3                                   
055337,000347: 11,2775           41421                          BDSU     PUSH                                  #  P4/128 TO PD4
055338,000348: 11,2776           57275                          DMPR     DMPR                                  
055339,000349: 11,2777           00023                                   COSPHI/2                              #  BEGIN COMPUTING P5/1024
055340,000350: 11,3000           23713                                   9/16                                  
055341,000351: 11,3001           57325                          PDDL     DMPR                                  
055342,000352: 11,3002           00003                                   2                                     
055343,000353: 11,3003           23715                                   5/128                                 
055344,000354:                                                                                                 # # Page 1306
055345,000355: 11,3004           77621                          BDSU                                           
055346,000356: 11,3005           77603                          DMP*                                           
055347,000357: 11,3006           50040                                   J4REQ/J3,2                            
055348,000358: 11,3007           43271                          DDV      DAD                                   #               -3
055349,000359: 11,3010           02310                                   ALPHAM                                #  (((P5/256)B 2  /R+P4/32)  /R+P3/8)ALPHAV
055350,000360: 11,3011           00005                                   4                                     #             4             3
055351,000361: 11,3012           56273                          DMPR*    DDV                                   
055352,000362: 11,3013           50034                                   2J3RE/J2,2                            
055353,000363: 11,3014           02310                                   ALPHAM                                
055354,000364: 11,3015           74215                          DAD      VXSC                                  
055355,000365: 11,3016           00003                                   2                                     
055356,000366: 11,3017           02152                                   ALPHAV                                
055357,000367: 11,3020           14033                          STODL    TVEC                                  
055358,000368: 11,3021           70403                          DMP*     SR1                                   
055359,000369: 11,3022           50040                                   J4REQ/J3,2                            
055360,000370: 11,3023           43271                          DDV      DAD                                   
055361,000371: 11,3024           02310                                   ALPHAM                                #                 -3
055362,000372: 11,3025           50473                          DMPR*    SR3                                   
055363,000373: 11,3026           50034                                   2J3RE/J2,2                            #     3         4
055364,000374: 11,3027           43271                          DDV      DAD                                   
055365,000375: 11,3030           02310                                   ALPHAM                                
055366,000376: 11,3031           76561                          VXSC     VSL1                                  
055367,000377: 11,3032           00025                                   UZ                                    
055368,000378: 11,3033           77645                          BVSU                                           
055369,000379: 11,3034           00033                                   TVEC                                  
055370,000380: 11,3035           14033                          STODL    TVEC                                  
055371,000381: 11,3036           02310                                   ALPHAM                                
055372,000382: 11,3037           63501                          NORM     DSQ                                   
055373,000383: 11,3040           00047                                   X1                                    
055374,000384: 11,3041           60316                          DSQ      NORM                                  
055375,000385: 11,3042           00051                                   S1                                    #          4
055376,000386: 11,3043           54606                          PUSH     BDDV*                                 #  NORMED R  TO 0D
055377,000387: 11,3044           50030                                   J2REQSQ,2                             
055378,000388: 11,3045           77761                          VXSC                                           
055379,000389: 11,3046           00033                                   TVEC                                  
055380,000390: 11,3047           00033                          STORE    TVEC                                  
055381,000391: 11,3050           56070                          XAD,1    XAD,1                                 
055382,000392: 11,3051           00046                                   X1                                    
055383,000393: 11,3052           00046                                   X1                                    
055384,000394: 11,3053           43070                          XAD,1    BOF                                   
055385,000395: 11,3054           00050                                   S1                                    
055386,000396: 11,3055           00343                                   MOONFLAG                              
055387,000397: 11,3056           23125                                   NBRANCH1                              
055388,000398: 11,3057           63545                          DLOAD    DSQ                                   #   2
055389,000399: 11,3060           00017                                   URPV                                  #  X  B-2 TO 2D
055390,000400: 11,3061           63525                          PDDL     DSQ                                   
055391,000401: 11,3062           00021                                   URPV       +2                         #   2   2
055392,000402: 11,3063           65215                          DAD      PDDL                                  #  Y  +X  B-2 TO 2D
055393,000403: 11,3064           00003                                   2D                                    
055394,000404: 11,3065           45352                          SL1      DSU                                   
055395,000405:                                                                                                 # # Page 1307
055396,000406: 11,3066           00003                                   2D                                    
055397,000407: 11,3067           41525                          PDDL     PUSH                                  #  X -Y  B-2 TO 4D  COSPHI 2 TO 6D
055398,000408: 11,3070           00023                                   COSPHI/2                              
055399,000409: 11,3071           65361                          VXSC     PDDL                                  #  2COSPHI(UZ) B-3 TO 6D
055400,000410: 11,3072           00025                                   UZ                                    
055401,000411: 11,3073           45316                          DSQ      DSU                                   
055402,000412: 11,3074           23671                                   3/5                                   #    2  2       2
055403,000413: 11,3075           52405                          DMP      SL3                                   #  (X -Y)((5COS (PHI)-3)UR 2COS(PHI)UZ)
055404,000414: 11,3076           27753                                   5/8                                   
055405,000415: 11,3077           52361                          VXSC     VSU                                   #       B-3 TO 4D
055406,000416: 11,3100           02152                                   ALPHAV                                
055407,000417: 11,3101           72561                          VXSC     VSL2                                  
055408,000418: 11,3102           77725                          PDDL                                           
055409,000419: 11,3103           00017                                   URPV                                  
055410,000420: 11,3104           63205                          DMP      PDVL                                  #  XY B-2 TO 10D
055411,000421: 11,3105           00021                                   URPV       +2                         
055412,000422: 11,3106           02152                                   ALPHAV                                
055413,000423: 11,3107           74235                          VXV      VXSC                                  
055414,000424: 11,3110           00025                                   UZ                                    
055415,000425: 11,3111           53332                          VSL3     VAD                                   #  4XY(UR X UZ) + D( 4D) B-3
055416,000426: 11,3112           77725                          PDDL                                           
055417,000427: 11,3113           41301                          NORM     DMP                                   
055418,000428: 11,3114           00050                                   X2                                    
055419,000429: 11,3115           00001                                   0D                                    #  3J22R2MU/(X +Y )R
055420,000430: 11,3116           74265                          BDDV     VXSC                                  
055421,000431: 11,3117           27751                                   3J22R2MU                              
055422,000432: 11,3120           53257                          VSL*     VAD                                   
055423,000433: 11,3121           57605                                   0          -7,2                       
055424,000434: 11,3122           00033                                   TVEC                                  
055425,000435: 11,3123           77754                          LXA,2                                          
055426,000436: 11,3124           02150                                   PBODY                                 
055427,000437: 11,3125           77600        NBRANCH1          BOV                                            
055428,000438: 11,3126           23127                                   +1                                    
055429,000439: 11,3127           53257                          VSL*     VAD                                   
055430,000440: 11,3130           20153                                   0          -22D,1                     
055431,000441: 11,3131           02202                                   FV                                    
055432,000442: 11,3132           02202                          STORE    FV                                    
055433,000443: 11,3133           77600                          BOV                                            
055434,000444: 11,3134           22706                                   GOBAQUE                               
055435,000445: 11,3135           72135        NBRANCH           SLOAD    LXA,1                                 
055436,000446: 11,3136           01501                                   DIFEQCNT                              
055437,000447: 11,3137           00154                                   MPAC                                  
055438,000448: 11,3140           73205                          DMP      CGOTO                                 
055439,000449: 11,3141           27755                                   -1/12                                 
055440,000450: 11,3142           00155                                   MPAC                                  
055441,000451: 11,3143           23152                                   DIFEQTAB                              
055442,000452: 11,3144           77745        COSPHIE           DLOAD                                          
055443,000453: 11,3145           02156                                   ALPHAV     +4                         
055444,000454: 11,3146           24023                          STOVL    COSPHI/2                              
055445,000455: 11,3147           11445                                   ZUNIT                                 
055446,000456:                                                                                                 # # Page 1308
055447,000457: 11,3150           77650                          GOTO                                           
055448,000458: 11,3151           22755                                   COMTERM                               
055449,000459: 11,3152           23371        DIFEQTAB          CADR     DIFEQ+0                               
055450,000460: 11,3153           23375                          CADR     DIFEQ+1                               
055451,000461: 11,3154           23406                          CADR     DIFEQ+2                               
055452,000462: 11,3155           77214        TIMESTEP          BOF      VLOAD                                 
055453,000463: 11,3156           00342                                   MIDFLAG                               
055454,000464: 11,3157           23206                                   RECTEST                               
055455,000465: 11,3160           01535                                   RCV                                   
055456,000466: 11,3161           41241                          DOT      DMP                                   
055457,000467: 11,3162           01543                                   VCV                                   
055458,000468: 11,3163           02314                                   DT/2                                  #  (R.V) X (DELTA T)
055459,000469: 11,3164           77640                          BMN                                            
055460,000470: 11,3165           23206                                   RECTEST                               
055461,000471: 11,3166           43014                          BON      BOF                                   
055462,000472: 11,3167           00303                                   MOONFLAG                              
055463,000473: 11,3170           23263                                   LUNSPH                                
055464,000474: 11,3171           04340                                   RPQFLAG                               
055465,000475: 11,3172           23260                                   EARSPH                                
055466,000476: 11,3173           45145                          DLOAD    CALL                                  
055467,000477: 11,3174           01517                                   TET                                   
055468,000478: 11,3175           54110                                   LSPOS                                 #  RPQV IN MPAC
055469,000479: 11,3176           02263                          STORE    RPQV                                  #  RPQV
055470,000480: 11,3177           77754                          LXA,2                                          
055471,000481: 11,3200           02150                                   PBODY                                 
055472,000482: 11,3201           51445        INLUNCHK          BVSU     ABVAL                                 
055473,000483: 11,3202           01535                                   RCV                                   
055474,000484: 11,3203           50025                          DSU      BMN                                   
055475,000485: 11,3204           27761                                   RSPHERE                               
055476,000486: 11,3205           23300                                   DOSWITCH                              
055477,000487: 11,3206           51575        RECTEST           VLOAD    ABVAL                                 #  RECTIFY IF
055478,000488: 11,3207           01521                                   TDELTAV                               
055479,000489: 11,3210           77600                          BOV                                            
055480,000490: 11,3211           23234                                   CALLRECT                              
055481,000491: 11,3212           51025                          DSU      BPL                                   #      1) EITHER TDELTAV OR TNUV EQUALS OR
055482,000492: 11,3213           23707                                   3/4                                   #         EXCEEDS 3/4 IN MAGNITUDE
055483,000493: 11,3214           23234                                   CALLRECT                              
055484,000494: 11,3215           53615                          DAD      SL*                                   #                   OR
055485,000495: 11,3216           23707                                   3/4                                   
055486,000496: 11,3217           57605                                   0          -7,2                       #      2) ABVAL(TDELTAV) EQUALS OR EXCEEDS
055487,000497: 11,3220           45271                          DDV      DSU                                   #         .01(ABVAL(RCV))
055488,000498: 11,3221           00013                                   10D                                   
055489,000499: 11,3222           27757                                   RECRATIO                              
055490,000500: 11,3223           77244                          BPL      VLOAD                                 
055491,000501: 11,3224           23234                                   CALLRECT                              
055492,000502: 11,3225           01527                                   TNUV                                  
055493,000503: 11,3226           45246                          ABVAL    DSU                                   
055494,000504: 11,3227           23707                                   3/4                                   
055495,000505: 11,3230           77600                          BOV                                            
055496,000506: 11,3231           23234                                   CALLRECT                              
055497,000507:                                                                                                 # # Page 1309
055498,000508: 11,3232           77640                          BMN                                            
055499,000509: 11,3233           23236                                   INTGRATE                              
055500,000510: 11,3234           77624        CALLRECT          CALL                                           
055501,000511: 11,3235           23344                                   RECTIFY                               
055502,000512: 11,3236           77775        INTGRATE          VLOAD                                          
055503,000513: 11,3237           01527                                   TNUV                                  
055504,000514: 11,3240           25120                          STOVL    ZV                                    
055505,000515: 11,3241           01521                                   TDELTAV                               
055506,000516: 11,3242           01112                          STORE    YV                                    
055507,000517: 11,3243           77614                          CLEAR                                          
055508,000518: 11,3244           00261                                   JSWITCH                               
055509,000519: 11,3245           66375        DIFEQ0            VLOAD    SSP                                   
055510,000520: 11,3246           01112                                   YV                                    
055511,000521: 11,3247           01501                                   DIFEQCNT                              
055512,000522: 11,3250           00000                                   0                                     
055513,000523: 11,3251           16152                          STODL    ALPHAV                                
055514,000524: 11,3252           11453                                   DPZERO                                
055515,000525: 11,3253           02212                          STORE    H                                     #  START H AT ZERO. GOES 0(DELT/2)DELT.
055516,000526: 11,3254           52014                          BON      GOTO                                  
055517,000527: 11,3255           00301                                   JSWITCH                               
055518,000528: 11,3256           23610                                   DOW..                                 
055519,000529: 11,3257           22430                                   ACCOMP                                
055520,000530: 11,3260           52175        EARSPH            VLOAD    GOTO                                  
055521,000531: 11,3261           02263                                   RPQV                                  
055522,000532: 11,3262           23201                                   INLUNCHK                              
055523,000533: 11,3263           60545        LUNSPH            DLOAD    SR2                                   
055524,000534: 11,3264           00013                                   10D                                   
055525,000535: 11,3265           50025                          DSU      BMN                                   
055526,000536: 11,3266           27761                                   RSPHERE                               
055527,000537: 11,3267           23206                                   RECTEST                               
055528,000538: 11,3270           71214                          BOF      DLOAD                                 
055529,000539: 11,3271           04340                                   RPQFLAG                               
055530,000540: 11,3272           23300                                   DOSWITCH                              
055531,000541: 11,3273           01517                                   TET                                   
055532,000542: 11,3274           77624                          CALL                                           
055533,000543: 11,3275           54115                                   LUNPOS                                
055534,000544: 11,3276           77676                          VCOMP                                          
055535,000545: 11,3277           02263                          STORE    RPQV                                  
055536,000546: 11,3300           77624        DOSWITCH          CALL                                           
055537,000547: 11,3301           23304                                   ORIGCHNG                              
055538,000548: 11,3302           77650                          GOTO                                           
055539,000549: 11,3303           23236                                   INTGRATE                              
055540,000550: 11,3304           45020        ORIGCHNG          STQ      CALL                                  
055541,000551: 11,3305           02270                                   ORIGEX                                
055542,000552: 11,3306           23344                                   RECTIFY                               
055543,000553: 11,3307           53775                          VLOAD    VSL*                                  
055544,000554: 11,3310           01535                                   RCV                                   
055545,000555: 11,3311           57576                                   0,2                                   
055546,000556: 11,3312           53651                          VSU      VSL*                                  
055547,000557: 11,3313           02263                                   RPQV                                  
055548,000558:                                                                                                 # # Page 1310
055549,000559: 11,3314           57574                                   2,2                                   
055550,000560: 11,3315           01503                          STORE    RRECT                                 
055551,000561: 11,3316           15535                          STODL    RCV                                   
055552,000562: 11,3317           01517                                   TET                                   
055553,000563: 11,3320           77624                          CALL                                           
055554,000564: 11,3321           54120                                   LUNVEL                                
055555,000565: 11,3322           57414                          BOF      VCOMP                                 
055556,000566: 11,3323           00343                                   MOONFLAG                              
055557,000567: 11,3324           23325                                   +1                                    
055558,000568: 11,3325           53715                          PDVL     VSL*                                  
055559,000569: 11,3326           01543                                   VCV                                   
055560,000570: 11,3327           57576                                   0,2                                   
055561,000571: 11,3330           77651                          VSU                                            
055562,000572: 11,3331           77657                          VSL*                                           
055563,000573: 11,3332           57574                                   0          +2,2                       
055564,000574: 11,3333           01511                          STORE    VRECT                                 
055565,000575: 11,3334           01543                          STORE    VCV                                   
055566,000576: 11,3335           67154                          LXA,2    SXA,2                                 
055567,000577: 11,3336           02270                                   ORIGEX                                
055568,000578: 11,3337           00052                                   QPRET                                 
055569,000579: 11,3340           52014                          BON      GOTO                                  
055570,000580: 11,3341           00303                                   MOONFLAG                              
055571,000581: 11,3342           26666                                   CLRMOON                               
055572,000582: 11,3343           26673                                   SETMOON                               
055573,000583: 
055574,000584:                                                                                                 # # Page 1311
055575,000585:                                                                                                 #  THE RECTIFY SUBROUTINE IS CALLED BY THE INTEGRATION PROGRAM AND OCCASIONALLY BY THE MEASUREMENT INCORPORATION
055576,000586:                                                                                                 #  ROUTINES TO ESTABLISH A NEW CONIC.
055577,000587: 
055578,000588: 
055579,000589: 11,3344           77354        RECTIFY           LXA,2    VLOAD                                 
055580,000590: 11,3345           02150                                   PBODY                                 
055581,000591: 11,3346           01521                                   TDELTAV                               
055582,000592: 11,3347           53257                          VSL*     VAD                                   
055583,000593: 11,3350           57605                                   0          -7,2                       
055584,000594: 11,3351           01535                                   RCV                                   
055585,000595: 11,3352           01503                          STORE    RRECT                                 
055586,000596: 11,3353           25535                          STOVL    RCV                                   
055587,000597: 11,3354           01527                                   TNUV                                  
055588,000598: 11,3355           53257                          VSL*     VAD                                   
055589,000599: 11,3356           57602                                   0          -4,2                       
055590,000600: 11,3357           01543                                   VCV                                   
055591,000601: 11,3360           01511        MINIRECT          STORE    VRECT                                 
055592,000602: 11,3361           25543                          STOVL    VCV                                   
055593,000603: 11,3362           11453                                   ZEROVEC                               
055594,000604: 11,3363           01521                          STORE    TDELTAV                               
055595,000605: 11,3364           15527                          STODL    TNUV                                  
055596,000606: 11,3365           11453                                   ZEROVEC                               
055597,000607: 11,3366           01551                          STORE    TC                                    
055598,000608: 11,3367           01553                          STORE    XKEP                                  
055599,000609: 11,3370           77616                          RVQ                                            
055600,000610: 
055601,000611:                                                                                                 # # Page 1312
055602,000612:                                                                                                 #  THE THREE DIFEQ ROUTINES - DIFEQ+0, DIFEQ+12, AND DIFEQ+24 - ARE ENTEREDTO PROCESS THE CONTRIBUTIONS AT THE
055603,000613:                                                                                                 #  BEGINNING, MIDDLE, AND END OF THE TIMESTEP, RESPECTIVELY. THE UPDATING IS DONE BY THE NYSTROM METHOD.
055604,000614: 11,3371           64575        DIFEQ+0           VLOAD    VSR3                                  
055605,000615: 11,3372           02202                                   FV                                    
055606,000616: 11,3373           36166                          STCALL   PHIV                                  
055607,000617: 11,3374           23551                                   DIFEQCOM                              
055608,000618: 11,3375           74575        DIFEQ+1           VLOAD    VSR1                                  
055609,000619: 11,3376           02202                                   FV                                    
055610,000620: 11,3377           53206                          PUSH     VAD                                   
055611,000621: 11,3400           02166                                   PHIV                                  
055612,000622: 11,3401           26174                          STOVL    PSIV                                  
055613,000623: 11,3402           53362                          VSR1     VAD                                   
055614,000624: 11,3403           02166                                   PHIV                                  
055615,000625: 11,3404           36166                          STCALL   PHIV                                  
055616,000626: 11,3405           23551                                   DIFEQCOM                              
055617,000627: 11,3406           57345        DIFEQ+2           DLOAD    DMPR                                  
055618,000628: 11,3407           02212                                   H                                     
055619,000629: 11,3410           23717                                   DP2/3                                 
055620,000630: 11,3411           74206                          PUSH     VXSC                                  
055621,000631: 11,3412           02166                                   PHIV                                  
055622,000632: 11,3413           53372                          VSL1     VAD                                   
055623,000633: 11,3414           01120                                   ZV                                    
055624,000634: 11,3415           53361                          VXSC     VAD                                   
055625,000635: 11,3416           02212                                   H                                     
055626,000636: 11,3417           01112                                   YV                                    
055627,000637: 11,3420           25112                          STOVL    YV                                    
055628,000638: 11,3421           02202                                   FV                                    
055629,000639: 11,3422           53322                          VSR3     VAD                                   
055630,000640: 11,3423           02174                                   PSIV                                  
055631,000641: 11,3424           76561                          VXSC     VSL1                                  
055632,000642: 11,3425           77655                          VAD                                            
055633,000643: 11,3426           01120                                   ZV                                    
055634,000644: 11,3427           01120                          STORE    ZV                                    
055635,000645: 11,3430           45014                          BOFF     CALL                                  
055636,000646: 11,3431           00341                                   JSWITCH                               
055637,000647: 11,3432           23502                                   ENDSTATE                              
055638,000648: 11,3433           56712                                   GRP2PC                                
055639,000649: 11,3434           77354                          LXA,2    VLOAD                                 
055640,000650: 11,3435           01102                                   COLREG                                
055641,000651: 11,3436           01120                                   ZV                                    
055642,000652: 11,3437           77732                          VSL3                                           #  ADJUST W-POSITION FOR STORAGE
055643,000653: 11,3440           12467                          STORE    W          +54D,2                     
055644,000654: 11,3441           77775                          VLOAD                                          
055645,000655: 11,3442           01112                                   YV                                    
055646,000656: 11,3443           40132                          VSL3     BOV                                   
055647,000657: 11,3444           23574                                   WMATEND                               
055648,000658: 11,3445           12401                          STORE    W,2                                   
055649,000659: 
055650,000660: 11,3446           77624                          CALL                                           
055651,000661: 11,3447           56712                                   GRP2PC                                
055652,000662:                                                                                                 # # Page 1313
055653,000663: 11,3450           66354                          LXA,2    SSP                                   
055654,000664: 11,3451           01102                                   COLREG                                
055655,000665: 11,3452           00052                                   S2                                    
055656,000666: 11,3453           00000                                   0                                     
055657,000667: 11,3454           67114                          INCR,2   SXA,2                                 
055658,000668: 11,3455           00006                                   6                                     
055659,000669: 11,3456           01111                                   YV                                    
055660,000670: 11,3457           45104                          TIX,2    CALL                                  
055661,000671: 11,3460           23545                                   RELOADSV                              
055662,000672: 11,3461           56712                                   GRP2PC                                
055663,000673: 11,3462           67154                          LXA,2    SXA,2                                 
055664,000674: 11,3463           01111                                   YV                                    
055665,000675: 11,3464           01102                                   COLREG                                
055666,000676: 
055667,000677: 11,3465           77624        NEXTCOL           CALL                                           
055668,000678: 11,3466           56712                                   GRP2PC                                
055669,000679: 11,3467           76754                          LXA,2    VLOAD*                                
055670,000680: 11,3470           01102                                   COLREG                                
055671,000681: 11,3471           75376                                   W,2                                   
055672,000682: 11,3472           77722                          VSR3                                           #  ADJUST W-POSITION FOR INTEGRATION
055673,000683: 11,3473           01112                          STORE    YV                                    
055674,000684: 11,3474           76173                          VLOAD*   AXT,1                                 
055675,000685: 11,3475           75310                                   W          +54D,2                     
055676,000686: 11,3476           00000                                   0                                     
055677,000687: 11,3477           77722                          VSR3                                           #  ADJUST W-VELOCITY FOR INTEGRATION
055678,000688: 11,3500           35120                          STCALL   ZV                                    
055679,000689: 11,3501           23245                                   DIFEQ0                                
055680,000690: 
055681,000691: 11,3502           77200        ENDSTATE          BOV      VLOAD                                 
055682,000692: 11,3503           22706                                   GOBAQUE                               
055683,000693: 11,3504           01120                                   ZV                                    
055684,000694: 11,3505           25527                          STOVL    TNUV                                  
055685,000695: 11,3506           01112                                   YV                                    
055686,000696: 11,3507           01521                          STORE    TDELTAV                               
055687,000697: 11,3510           43014                          BON      BOFF                                  
055688,000698: 11,3511           04715                                   MIDAVFLG                              
055689,000699: 11,3512           27650                                   CKMID2                                #  CHECK FOR MID2 BEFORE GOING TO TIMEINC
055690,000700: 11,3513           01756                                   DIM0FLAG                              
055691,000701: 11,3514           27234                                   TESTLOOP                              
055692,000702: 11,3515           77776                          EXIT                                           
055693,000703: 11,3516           05301                          TC       PHASCHNG                              
055694,000704: 11,3517           04022                          OCT      04022                                 #  PHASE 1
055695,000705: 11,3520           05435                          TC       UPFLAG                                #  PHASE CHANGE HAS OCCURRED BETWEEN
055696,000706: 11,3521           00236                          ADRES    REINTFLG                              #  INTSTALL AND INTWAKE
055697,000707: 11,3522           06006                          TC       INTPRET                               
055698,000708: 11,3523           77731                          SSP                                            
055699,000709: 11,3524           00053                                   QPRET                                 
055700,000710: 11,3525           23532                                   AMOVED                                
055701,000711: 11,3526           52014                          BON      GOTO                                  
055702,000712: 11,3527           01714                                   VINTFLAG                              
055703,000713:                                                                                                 # # Page 1314
055704,000714: 11,3530           26636                                   ATOPCSM                               
055705,000715: 11,3531           26711                                   ATOPLEM                               
055706,000716: 11,3532           66214        AMOVED            SET      SSP                                   
055707,000717: 11,3533           00061                                   JSWITCH                               
055708,000718: 11,3534           01103                                   COLREG                                
055709,000719: 11,3535           77741                          DEC      -30        B-14                       
055710,000720: 11,3536           66214                          BOFF     SSP                                   
055711,000721: 11,3537           01755                                   D6OR9FLG                              
055712,000722: 11,3540           23465                                   NEXTCOL                               
055713,000723: 11,3541           01103                                   COLREG                                
055714,000724: 11,3542           77717                          DEC      -48        B-14                       
055715,000725: 11,3543           77650                          GOTO                                           
055716,000726: 11,3544           23465                                   NEXTCOL                               
055717,000727: 
055718,000728: 
055719,000729: 11,3545           77745        RELOADSV          DLOAD                                          #  RELOAD TEMPORARY STATE VECTOR
055720,000730: 11,3546           01101                                   TDEC                                  #  FROM PERMANENT IN CASE OF
055721,000731: 11,3547           34041                          STCALL   TDEC1                                 
055722,000732: 11,3550           27120                                   INTEGRV2                              #  BY STARTING AT INTEGRV2.
055723,000733: 11,3551           43345        DIFEQCOM          DLOAD    DAD                                   #  INCREMENT H AND DIFEQCNT.
055724,000734: 11,3552           02314                                   DT/2                                  
055725,000735: 11,3553           02212                                   H                                     
055726,000736: 11,3554           66110                          INCR,1   SXA,1                                 
055727,000737: 11,3555           77763                          DEC      -12        B-14                       
055728,000738: 11,3556           01500                                   DIFEQCNT                              #  DIFEQCNT SET FOR NEXT ENTRY.
055729,000739: 11,3557           02212                          STORE    H                                     
055730,000740: 11,3560           74561                          VXSC     VSR1                                  
055731,000741: 11,3561           02202                                   FV                                    
055732,000742: 11,3562           74255                          VAD      VXSC                                  
055733,000743: 11,3563           01120                                   ZV                                    
055734,000744: 11,3564           02212                                   H                                     
055735,000745: 11,3565           77655                          VAD                                            
055736,000746: 11,3566           01112                                   YV                                    
055737,000747: 11,3567           02152                          STORE    ALPHAV                                
055738,000748: 11,3570           52014                          BON      GOTO                                  
055739,000749: 11,3571           00301                                   JSWITCH                               
055740,000750: 11,3572           23610                                   DOW..                                 
055741,000751: 11,3573           22410                                   FBR3                                  
055742,000752: 
055743,000753: 
055744,000754: 11,3574           43014        WMATEND           CLEAR    CLEAR                                 
055745,000755: 11,3575           01676                                   DIM0FLAG                              #  DONT INTEGRATE W THIS TIME
055746,000756: 11,3576           01671                                   ORBWFLAG                              #  INVALIDATE W
055747,000757: 11,3577           77614                          CLEAR                                          
055748,000758: 11,3600           02676                                   RENDWFLG                              
055749,000759: 11,3601           77414                          SET      EXIT                                  
055750,000760: 11,3602           01472                                   STATEFLG                              #  PICK UP STATE VECTOR UPDATE
055751,000761: 11,3603           05537                          TC       ALARM                                 
055752,000762: 11,3604           00421                          OCT      421                                   
055753,000763: 11,3605           06006                          TC       INTPRET                               
055754,000764:                                                                                                 # # Page 1315
055755,000765: 11,3606           77650                          GOTO                                           
055756,000766: 11,3607           27234                                   TESTLOOP                              #  FINISH INTEGRATING STATE VECTOR
055757,000767: 
055758,000768:                                                                                                 # # Page 1316
055759,000769:                                                                                                 #  ORBITAL ROUTINE FOR EXTRAPOLATION OF THE W MATRIX. IT COMPUTES THE SECOND DERIVATIVE OF EACH COLUMN POSITION
055760,000770:                                                                                                 #  VECTOR OF THE MATRIX AND CALLS THE NYSTROM INTEGRATION ROUTINES TO SOLVETHE DIFFERENTIAL EQUATIONS. THE PROGRAM
055761,000771:                                                                                                 #  USES A TABLE OF VEHICL POSITION VECTORS COMPUTED DURING THE INTEGRATION OF THE VEHICLES POSITION AND VELOCITY.
055762,000772: 11,3610           70754        DOW..             LXA,2    DLOAD*                                
055763,000773: 11,3611           02150                                   PBODY                                 
055764,000774: 11,3612           50044                                   MUEARTH,2                             
055765,000775: 11,3613           36210                          STCALL   BETAM                                 
055766,000776: 11,3614           23636                                   DOW..1                                
055767,000777: 11,3615           02202                          STORE    FV                                    
055768,000778: 11,3616           62014                          BOF      INCR,1                                
055769,000779: 11,3617           00342                                   MIDFLAG                               
055770,000780: 11,3620           23135                                   NBRANCH                               
055771,000781: 11,3621           77771                          DEC      -6         B-14                       
055772,000782: 11,3622           70744                          LXC,2    DLOAD*                                
055773,000783: 11,3623           02150                                   PBODY                                 
055774,000784: 11,3624           50046                                   MUEARTH    -2,2                       
055775,000785: 11,3625           36210                          STCALL   BETAM                                 
055776,000786: 11,3626           23636                                   DOW..1                                
055777,000787: 11,3627           50414                          BON      VSR6                                  
055778,000788: 11,3630           00303                                   MOONFLAG                              
055779,000789: 11,3631           23632                                   +1                                    
055780,000790: 11,3632           77655                          VAD                                            
055781,000791: 11,3633           02202                                   FV                                    
055782,000792: 11,3634           36202                          STCALL   FV                                    
055783,000793: 11,3635           23135                                   NBRANCH                               
055784,000794: 11,3636           60575        DOW..1            VLOAD    VSR4                                  
055785,000795: 11,3637           02152                                   ALPHAV                                
055786,000796: 11,3640           53513                          PDVL*    UNIT                                  
055787,000797: 11,3641           02217                                   VECTAB,1                              
055788,000798: 11,3642           46315                          PDVL     VPROJ                                 
055789,000799: 11,3643           02152                                   ALPHAV                                
055790,000800: 11,3644           52361                          VXSC     VSU                                   
055791,000801: 11,3645           23707                                   3/4                                   
055792,000802: 11,3646           60325                          PDDL     NORM                                  
055793,000803: 11,3647           00045                                   36D                                   
055794,000804: 11,3650           00052                                   S2                                    
055795,000805: 11,3651           63406                          PUSH     DSQ                                   
055796,000806: 11,3652           77605                          DMP                                            
055797,000807: 11,3653           65301                          NORM     PDDL                                  
055798,000808: 11,3654           00043                                   34D                                   
055799,000809: 11,3655           02210                                   BETAM                                 
055800,000810: 11,3656           56342                          SR1      DDV                                   
055801,000811: 11,3657           77761                          VXSC                                           
055802,000812: 11,3660           57154                          LXA,2    XAD,2                                 
055803,000813: 11,3661           00051                                   S2                                    
055804,000814: 11,3662           00051                                   S2                                    
055805,000815: 11,3663           57074                          XAD,2    XAD,2                                 
055806,000816: 11,3664           00051                                   S2                                    
055807,000817: 11,3665           00042                                   34D                                   
055808,000818: 11,3666           43457                          VSL*     RVQ                                   
055809,000819:                                                                                                 # # Page 1317
055810,000820: 11,3667           57606                                   0          -8D,2                      
055811,000821: 11,2000                                          SETLOC   ORBITAL1                              
055812,000822: 11,2000                                          BANK                                           
055813,000823: 
055814,000824: 11,3670           04631 23146  3/5               2DEC     .6         B-2                        
055815,000825: 11,3672           14000 00000  THREE/8           2DEC     .375                                  
055816,000826: 11,3674           02314 31463  .3D               2DEC     .3         B-2                        
055817,000827: 11,3676           01400 00000  3/64              2DEC     3          B-6                        
055818,000828: 11,3700           10000 00000  DP1/4             2DEC     .25                                   
055819,000829: 11,3702  11,3700               DQUARTER          EQUALS   DP1/4                                 
055820,000830: 11,3702  11,3700               POS1/4            EQUALS   DP1/4                                 
055821,000831: 11,3702           03000 00000  3/32              2DEC     3          B-5                        
055822,000832: 11,3704           36000 00000  15/16             2DEC     15.        B          -4              
055823,000833: 11,3706           30000 00000  3/4               2DEC     3.0        B          -2              
055824,000834: 11,3710           22525 12525  7/12              2DEC     .5833333333                            
055825,000835: 11,3712           22000 00000  9/16              2DEC     9          B          -4              
055826,000836: 11,3714           01200 00000  5/128             2DEC     5          B-7                        
055827,000837: 11,3716  04,3452               DPZERO            EQUALS   ZEROVEC                               
055828,000838: 11,3716           25252 25253  DP2/3             2DEC     .6666666667                            
055829,000839: 11,3720  11,3716               2/3               EQUALS   DP2/3                                 
055830,000840: 11,3720           00027        OCT27             OCT      27                                    
055831,000841:                                                                                                 #  LM504 1S TEMPORARY
055832,000842: 13,3712                                          BANK     13                                    
055833,000843: 13,2000                                          SETLOC   ORBITAL2                              
055834,000844: 13,2000                                          BANK                                           
055835,000845:                                                                                                 #  IT IS VITAL THAT THE FOLLOWING CONSTANTS NOT BE SHUFFLED
055836,000846: 13,3712           77764                          DEC      -11        B-14                       
055837,000847: 13,3713           77775                          DEC      -2         B-14                       
055838,000848: 13,3714           77766                          DEC      -9         B-14                       
055839,000849: 13,3715           77771                          DEC      -6         B-14                       
055840,000850: 13,3716           77775                          DEC      -2         B-14                       
055841,000851: 13,3717           77775                          DEC      -2         B-14                       
055842,000852: 13,3720           00000                          DEC      0          B-14                       
055843,000853: 13,3721           77763                          DEC      -12        B-14                       
055844,000854: 13,3722           77766                          DEC      -9         B-14                       
055845,000855: 13,3723           77773                          DEC      -4         B-14                       
055846,000856: 13,3724           77770        ASCALE            DEC      -7         B-14                       
055847,000857: 13,3725           77771                          DEC      -6         B-14                       
055848,000858:                                                                                                 # # Page 1318
055849,000859: 13,3726           27446 14620                    2DEC*    1.32715445 E16        B-54*           #  S
055850,000860: 13,3730           16471 01352                    2DEC*    4.9027780  E8         B-30*           #  M
055851,000861: 13,3732           22437 16067  MUEARTH           2DEC*    3.986032   E10        B-36*           
055852,000862: 13,3734           00000 00000                    2DEC     0          B-28                       
055853,000863: 13,3736           02302 24736  J4REQ/J3          2DEC*    .4991607391 E7         B-26*           
055854,000864: 13,3740           00000 00000                    2DEC     0          B-28                       
055855,000865: 13,3742           77776 53032  2J3RE/J2          2DEC*    -.1355426363 E5         B-27*           
055856,000866: 13,3744           10407 05344                    2DEC*    .3067493316 E18        B-60*           
055857,000867: 13,3746           13710 35320  J2REQSQ           2DEC*    1.75501139 E21        B-72*           
055858,000868: 13,3750           12160 12124  3J22R2MU          2DEC*    9.20479048 E16        B-58*           
055859,000869: 13,3752           24000 00000  5/8               2DEC     5          B-3                        
055860,000870: 13,3754           74631 63145  -1/12             2DEC     -.1                                   
055861,000871: 13,3756  13,3730               MUM               =        MUEARTH    -2                         
055862,000872: 13,3756           00243 32703  RECRATIO          2DEC     .01                                   
055863,000873: 13,3760           03654 21000  RSPHERE           2DEC     64373.76   E3         B-29            
055864,000874: 13,3762           03654 21000  RDM               2DEC     16093.44   E3         B-27            
055865,000875: 13,3764           04627 25200  RDE               2DEC     80467.20   E3         B-29            
055866,000876: 13,3766                        RATT              EQUALS   00                                    
055867,000877: 13,3766                        VATT              EQUALS   6D                                    
055868,000878: 13,3766                        TAT               EQUALS   12D                                   
055869,000879: 13,3766                        RATT1             EQUALS   14D                                   
055870,000880: 13,3766                        VATT1             EQUALS   20D                                   
055871,000881: 13,3766                        MU(P)             EQUALS   26D                                   
055872,000882: 13,3766                        TDEC1             EQUALS   32D                                   
055873,000883: 13,3766                        URPV              EQUALS   14D                                   
055874,000884: 13,3766  0000022               COSPHI/2          EQUALS   URPV       +4                         
055875,000885: 13,3766                        UZ                EQUALS   20D                                   
055876,000886: 13,3766                        TVEC              EQUALS   26D                                   

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