Source Code

These source code files are a reconstruction of Sundance, the Apollo 9 LM (Lunar Module) AGC (Apollo Guidance Computer) flight software, created from binary dumps of original core rope program modules, as follows:
  • B1 — Revision 292
  • B2 — Revision 302
  • B3 — Revision 302
  • B4 — Revision 302
  • B5 — Revision 292
  • B6 — Revision 306
This means that source code does not represent a specific historical revision of Sundance, but rather a mixture of the three released versions. Nonetheless, it is capable of flying the whole Apollo 9 mission. This source code matches the binary dumps, as closely as feasible, but 100% match is not possible, due mostly to changes in memory addresses at which code and variables were allocated in different revisions of Sundance. Refer to this list of explanations for each binary mismatch.

Since only binary dumps (rather than listings) of Sundance are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing.

019057,000002:                                                                                                  ## Copyright:   Public domain.
019058,000003:                                                                                                  ## Filename:    P32-P35,_P72-P75.agc
019059,000004:                                                                                                  ## Purpose:     A section of a reconstructed, mixed version of Sundance
019060,000005:                                                                                                  ##              It is part of the reconstructed source code for the Lunar
019061,000006:                                                                                                  ##              Module's (LM) Apollo Guidance Computer (AGC) for Apollo 9.
019062,000007:                                                                                                  ##              No original listings of this program are available;
019063,000008:                                                                                                  ##              instead, this file was created via disassembly of dumps
019064,000009:                                                                                                  ##              of various revisions of Sundance core rope modules.
019065,000010:                                                                                                  ## Assembler:   yaYUL
019066,000011:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
019067,000012:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
019068,000013:                                                                                                  ## Mod history: 2020-06-17 MAS  Created from Luminary 69.
019069,000014: 
019070,000015:                                                                                                  ## Sundance 292
019071,000016: 
019072,000017: 32,2000                                           BANK     32                                    
019073,000018: 32,2000                                           SETLOC   P10S                                  
019074,000019: 32,2000                                           BANK                                           
019075,000020: 
019076,000021: 32,2000  E7,1424                                  EBANK=   TIG                                   
019077,000022: 
019078,000023: 32,2000           05575        P10                TC       DOWNFLAG                              
019079,000024: 32,2001           00140                           ADRES    LTCPFLG                               
019080,000025: 32,2002           02005                           TC       P10/P11                               
019081,000026: 
019082,000027: 32,2003           05563        P11                TC       UPFLAG                                
019083,000028: 32,2004           00140                           ADRES    LTCPFLG                               
019084,000029: 
019085,000030: 32,2005           00006        P10/P11            EXTEND                                         
019086,000031: 32,2006           31423                           DCA      TIG(AS)                               
019087,000032: 32,2007           53425                           DXCH     TIG                                   
019088,000033: 32,2010           55424                           TS       TIG                                   
019089,000034: 
019090,000035: 32,2011           32657                           CAF      V06N33AP                              
019091,000036: 32,2012           02643                           TC       VNDISP                                
019092,000037: 
019093,000038: 32,2013           32664                           CAF      V06N81AP                              
019094,000039: 32,2014           02643                           TC       VNDISP                                
019095,000040: 
019096,000041: 32,2015           30140                           CA       DSPMMTEM                              
019097,000042: 32,2016           00006                           EXTEND                                         
019098,000043: 32,2017           12032                           BZF      P10DISPS                              
019099,000044: 
019100,000045: 32,2020           32665                           CAF      V06N91                                
019101,000046: 32,2021           02643                           TC       VNDISP                                
019102,000047: 
019103,000048: 32,2022           32666                           CAF      V06N92                                
019104,000049: 32,2023           04655                           TC       BANKCALL                              
019105,000050: 32,2024           20544                           CADR     GOFLASHR                              
019106,000051: 32,2025           14106                           TCF      GOTOPOOH                              
019107,000052: 32,2026           02042                           TC       P1XSETUP                              
019108,000053: 32,2027           02022                           TC       -5                                    
019109,000054: 
019110,000055: 32,2030           35026                           CAF      ONE                                   
019111,000056: 32,2031           05553                           TC       BLANKET                               
019112,000057: 
019113,000058: 32,2032           32551        P10DISPS           CA       P10ZERO                               
019114,000059: 32,2033           55454                           TS       NN         +1                         
019115,000060: 
019116,000061: 32,2034           32663                           CAF      V06N56                                
019117,000062: 32,2035           02643                           TC       VNDISP                                
019118,000063: 
019119,000064: 32,2036           32661                           CAF      V06N37AP                              
019120,000065: 32,2037           02643                           TC       VNDISP                                
019121,000066: 
019122,000067: 32,2040           32667                           CAF      V06N94                                
019123,000068: 32,2041           02643                           TC       VNDISP                                
019124,000069: 
019125,000070: 32,2042           06014        P1XSETUP           TC       INTPRET                               
019126,000071: 32,2043           43345                           DLOAD    DAD                                   
019127,000072: 32,2044           03423                                    TIG(AS)                               
019128,000073: 32,2045           03744                                    INJTIME                               
019129,000074: 32,2046           03674                           STORE    TCSITPF                               
019130,000075: 32,2047           34041                           STCALL   TDEC1                                 
019131,000076: 32,2050           27014                                    CSMPREC                               
019132,000077: 32,2051           77331                           SSP      VLOAD                                 
019133,000078: 32,2052           03663                                    P1XITCNT                              
019134,000079: 32,2053           00000                                    0                                     
019135,000080: 32,2054           00025                                    VATT1                                 
019136,000081: 32,2055           17706                           STODL    VCSMINT                               
019137,000082: 32,2056           03716                                    INJALT                                
019138,000083: 32,2057           43312                           SL2      DAD                                   
019139,000084: 32,2060           24564                                    P10RM                                 
019140,000085: 32,2061           27704                           STOVL    RLEMT2                                
019141,000086: 32,2062           00017                                    RATT1                                 
019142,000087: 32,2063           03664                           STORE    RCSMINT                               
019143,000088: 32,2064           53435                           VXV      UNIT                                  
019144,000089: 32,2065           00025                                    VATT1                                 
019145,000090: 32,2066           17762                           STODL    UNVEC2                                
019146,000091: 32,2067           24560                                    30MIN                                 
019147,000092: 32,2070           43206                           PUSH     DAD                                   
019148,000093: 32,2071           03423                                    TIG(AS)                               
019149,000094: 32,2072           17740                           STODL    P1XMAX                                
019150,000095: 32,2073           43021                           BDSU     SET                                   
019151,000096: 32,2074           03423                                    TIG(AS)                               
019152,000097: 32,2075           00474                                    SLOPESW                               
019153,000098: 32,2076           17427                           STODL    P1XTMIN                               
019154,000099: 32,2077           06233                                    ZEROVECS                              
019155,000100: 32,2100           03756                           STORE    P1XDT                                 
019156,000101: 
019157,000102: 32,2101           77601        P1XLOOP            SETPD                                          
019158,000103: 32,2102           00001                                    0                                     
019159,000104: 32,2103           65375                           VLOAD    PDDL                                  
019160,000105: 32,2104           02025                                    RLS                                   
019161,000106: 32,2105           03423                                    TIG(AS)                               
019162,000107: 32,2106           45006                           PUSH     CALL                                  
019163,000108: 32,2107           51220                                    RP-TO-R                               
019164,000109: 32,2110           03676                           STORE    RLSBRCS                               
019165,000110: 32,2111           46206                           PUSH     VPROJ                                 
019166,000111: 32,2112           03762                                    UNVEC2                                
019167,000112: 32,2113           57552                           VSL2     VCOMP                                 
019168,000113: 32,2114           77655                           VAD                                            
019169,000114: 32,2115           72056                           UNIT     LXA,1                                 
019170,000115: 32,2116           03662                                    P1XITCNT                              
019171,000116: 32,2117           66110                           INCR,1   SXA,1                                 
019172,000117: 32,2120           00001                                    1                                     
019173,000118: 32,2121           03662                                    P1XITCNT                              
019174,000119: 32,2122           37750                           STCALL   ULVEC                                 
019175,000120: 32,2123           64516                                    P1XROT                                
019176,000121: 32,2124           77624                           CALL                                           
019177,000122: 32,2125           27362                                    INTSTALL                              
019178,000123: 32,2126           43175                           VLOAD    SET                                   
019179,000124: 32,2127           03706                                    VCSMINT                               
019180,000125: 32,2130           00063                                    MOONFLAG                              
019181,000126: 32,2131           01543                           STORE    VCV                                   
019182,000127: 32,2132           43175                           VLOAD    SET                                   
019183,000128: 32,2133           03664                                    RCSMINT                               
019184,000129: 32,2134           01473                                    INTYPFLG                              
019185,000130: 32,2135           15535                           STODL    RCV                                   
019186,000131: 32,2136           06233                                    ZEROVECS                              
019187,000132: 32,2137           15517                           STODL    TET                                   
019188,000133: 32,2140           03423                                    TIG(AS)                               
019189,000134: 32,2141           45215                           DAD      DSU                                   
019190,000135: 32,2142           03744                                    INJTIME                               
019191,000136: 32,2143           03674                                    TCSITPF                               
019192,000137: 32,2144           34041                           STCALL   TDEC1                                 
019193,000138: 32,2145           27060                                    INTEGRVS                              
019194,000139: 32,2146           77214                           BOFF     VLOAD                                 
019195,000140: 32,2147           03346                                    LTCPFLG                               
019196,000141: 32,2150           64210                                    P10CSI                                
019197,000142: 32,2151           00017                                    RATT1                                 
019198,000143: 32,2152           01772                           STORE    RTARG                                 
019199,000144: 32,2153           63256                           UNIT     PDVL                                  
019200,000145: 32,2154           03724                                    RP1XROT                               
019201,000146: 32,2155           50256                           UNIT     DOT                                   
019202,000147: 32,2156           65552                           SL1      ACOS                                  
019203,000148: 32,2157           51515                           PDVL     ABVAL                                 
019204,000149: 32,2160           00017                                    RATT1                                 
019205,000150: 32,2161           77715                           PDVL                                           
019206,000151: 32,2162           00025                                    VATT1                                 
019207,000152: 32,2163           03770                           STORE    P11VTPF                               
019208,000153: 32,2164           77646                           ABVAL                                          
019209,000154: 32,2165           45006                           PUSH     CALL                                  
019210,000155: 32,2166           64477                                    P11SMA                                
019211,000156: 32,2167           47375                           VLOAD    VXV                                   
019212,000157: 32,2170           00017                                    RATT1                                 
019213,000158: 32,2171           03724                                    RP1XROT                               
019214,000159: 32,2172           65241                           DOT      PDDL                                  
019215,000160: 32,2173           03762                                    UNVEC2                                
019216,000161: 32,2174           00003                                    2D                                    
019217,000162: 32,2175           41366                           SQRT     DMP                                   
019218,000163: 32,2176           00003                                    2D                                    
019219,000164: 32,2177           41205                           DMP      DMP                                   
019220,000165: 32,2200           24577                                    ROOT1/MU                              
019221,000166: 32,2201           00001                                    0                                     
019222,000167: 32,2202           75205                           DMP      SIGN                                  
019223,000168: 32,2203           24562                                    P1XPI                                 
019224,000169: 32,2204           41502                           SR2      PUSH                                  
019225,000170: 32,2205           03756                           STORE    P1XDT                                 
019226,000171: 32,2206           77650                           GOTO                                           
019227,000172: 32,2207           64341                                    P1XCONV                               
019228,000173: 
019229,000174: 32,2210           43345        P10CSI             DLOAD    DAD                                   
019230,000175: 32,2211           03423                                    TIG(AS)                               
019231,000176: 32,2212           03744                                    INJTIME                               
019232,000177: 32,2213           27621                           STOVL    TCSI                                  
019233,000178: 32,2214           03724                                    RP1XROT                               
019234,000179: 32,2215           43142                           SR1      SET                                   
019235,000180: 32,2216           01072                                    AVFLAG                                
019236,000181: 32,2217           26317                           STOVL    RACT1                                 
019237,000182: 32,2220           03732                                    VP1XROT                               
019238,000183: 32,2221           77742                           VSR2                                           
019239,000184: 32,2222           27457                           STOVL    VACT1                                 
019240,000185: 32,2223           00001                                    0D                                    
019241,000186: 32,2224           27465                           STOVL    RPASS1                                
019242,000187: 32,2225           00007                                    6D                                    
019243,000188: 32,2226           03473                           STORE    VPASS1                                
019244,000189: 
019245,000190: 32,2227           77201                           SETPD    VLOAD                                 
019246,000191: 32,2230           00001                                    0                                     
019247,000192: 32,2231           03473                                    VPASS1                                
019248,000193: 32,2232           65315                           PDVL     PDDL                                  
019249,000194: 32,2233           03465                                    RPASS1                                
019250,000195: 32,2234           03621                                    TCSI                                  
019251,000196: 32,2235           65325                           PDDL     PDDL                                  
019252,000197: 32,2236           03623                                    TTPI                                  
019253,000198: 32,2237           33634                                    TWOPI                                 
019254,000199: 32,2240           77006                           PUSH     AXT,2                                 
019255,000200: 32,2241           00002                                    2                                     
019256,000201: 32,2242           45134                           SXA,2    CALL                                  
019257,000202: 32,2243           02333                                    RTX2                                  
019258,000203: 32,2244           73406                                    INTINT                                
019259,000204: 32,2245           77624                           CALL                                           
019260,000205: 32,2246           46202                                    PASSIVE                               
019261,000206: 32,2247           77160                           AXC,1    AXT,2                                 
019262,000207: 32,2250           00012                                    10D                                   
019263,000208: 32,2251           00002                                    2D                                    
019264,000209: 32,2252           53575                           VLOAD    UNIT                                  
019265,000210: 32,2253           03465                                    RPASS1                                
019266,000211: 32,2254           53435                           VXV      UNIT                                  
019267,000212: 32,2255           03473                                    VPASS1                                
019268,000213: 32,2256           02275                           STORE    UP1                                   
019269,000214: 32,2257           66145                           DLOAD    SXA,1                                 
019270,000215: 32,2260           24577                                    ROOT1/MU                              
019271,000216: 32,2261           02332                                    RTX1                                  
019272,000217: 32,2262           16335                           STODL    RTSR1/MU                              
019273,000218: 32,2263           24571                                    P10MU                                 
019274,000219: 32,2264           67061                           SR       SXA,2                                 
019275,000220: 32,2265           20607                                    6D                                    
019276,000221: 32,2266           02333                                    RTX2                                  
019277,000222: 32,2267           36337                           STCALL   RTMU                                  
019278,000223: 32,2270           70077                                    CSI/A                                 
019279,000224: 
019280,000225: 32,2271           53135        P10ALARM           SLOAD    BZE                                   
019281,000226: 32,2272           03601                                    CSIALRM                               
019282,000227: 32,2273           64276                                    P10ITER                               
019283,000228: 32,2274           77776                           EXIT                                           
019284,000229: 
019285,000230: 32,2275           02471                           TC       P1XERDIS                              
019286,000231: 
019287,000232: 32,2276           45345        P10ITER            DLOAD    DSU                                   
019288,000233: 32,2277           03746                                    CDHDELH                               
019289,000234: 32,2300           03567                                    DIFFALT                               
019290,000235: 32,2301           26760                           STOVL    DELDEP                                
019291,000236: 32,2302           02303                                    DELVEET1                              
019292,000237: 32,2303           77646                           ABVAL                                          
019293,000238: 32,2304           27563                           STOVL    DELVTPI                               
019294,000239: 32,2305           02311                                    DELVEET2                              
019295,000240: 32,2306           40246                           ABVAL    SETPD                                 
019296,000241: 32,2307           00001                                    0                                     
019297,000242: 32,2310           17565                           STODL    DELVTPF                               
019298,000243: 32,2311           03756                                    P1XDT                                 
019299,000244: 32,2312           14015                           STODL    DELINDEP                              
019300,000245: 32,2313           03740                                    P1XMAX                                
019301,000246: 32,2314           14017                           STODL    MAX                                   
019302,000247: 32,2315           03427                                    P1XTMIN                               
019303,000248: 32,2316           14011                           STODL    MIN                                   
019304,000249: 32,2317           24556                                    P10FRAC                               
019305,000250: 32,2320           14051                           STODL    TWEEKIT                               
019306,000251: 32,2321           03423                                    TIG(AS)                               
019307,000252: 32,2322           16766                           STODL    INDEP                                 
019308,000253: 32,2323           03567                                    DIFFALT                               
019309,000254: 32,2324           00037                           STORE    DEP                                   
019310,000255: 32,2325           45014                           CLEAR    CALL                                  
019311,000256: 32,2326           04271                                    ORDERSW                               
019312,000257: 32,2327           24536                                    ITERATOR                              
019313,000258: 32,2330           77745                           DLOAD                                          
019314,000259: 32,2331           03567                                    DIFFALT                               
019315,000260: 32,2332           16762                           STODL    DEPREV                                
019316,000261: 32,2333           00017                                    MAX                                   
019317,000262: 32,2334           17740                           STODL    P1XMAX                                
019318,000263: 32,2335           00011                                    MIN                                   
019319,000264: 32,2336           17427                           STODL    P1XTMIN                               
019320,000265: 32,2337           00015                                    DELINDEP                              
019321,000266: 32,2340           03756                           STORE    P1XDT                                 
019322,000267: 
019323,000268: 32,2341           77646        P1XCONV            ABVAL                                          
019324,000269: 32,2342           50025                           DSU      BMN                                   
019325,000270: 32,2343           24554                                    ONESEC                                
019326,000271: 32,2344           64361                                    P1XFINAL                              
019327,000272: 32,2345           54335                           SLOAD    SR                                    
019328,000273: 32,2346           03663                                    P1XITCNT                              
019329,000274: 32,2347           20617                                    14D                                   
019330,000275: 32,2350           51025                           DSU      BPL                                   
019331,000276: 32,2351           24552                                    P1MAXIT                               
019332,000277: 32,2352           64466                                    P1XERR                                
019333,000278: 32,2353           43345                           DLOAD    DAD                                   
019334,000279: 32,2354           03423                                    TIG(AS)                               
019335,000280: 32,2355           03756                                    P1XDT                                 
019336,000281: 32,2356           03423                           STORE    TIG(AS)                               
019337,000282: 32,2357           77650                           GOTO                                           
019338,000283: 32,2360           64101                                    P1XLOOP                               
019339,000284: 
019340,000285: 32,2361           50375        P1XFINAL           VLOAD    DOT                                   
019341,000286: 32,2362           03676                                    RLSBRCS                               
019342,000287: 32,2363           03762                                    UNVEC2                                
019343,000288: 32,2364           53515                           PDVL     UNIT                                  
019344,000289: 32,2365           03676                                    RLSBRCS                               
019345,000290: 32,2366           72441                           DOT      SL1                                   
019346,000291: 32,2367           03750                                    ULVEC                                 
019347,000292: 32,2370           75326                           ACOS     SIGN                                  
019348,000293: 32,2371           57405                           DMP      DCOMP                                 
019349,000294: 32,2372           24564                                    P10RM                                 
019350,000295: 32,2373           54205                           DMP      SL                                    
019351,000296: 32,2374           24562                                    P1XPI                                 
019352,000297: 32,2375           20206                                    5D                                    
019353,000298: 32,2376           17740                           STODL    P1XMAX                                
019354,000299: 32,2377           03423                                    TIG(AS)                               
019355,000300: 32,2400           45214                           SET      DSU                                   
019356,000301: 32,2401           03075                                    ASCNTFLG                              
019357,000302: 32,2402           03672                                    P1XDELTT                              
019358,000303: 32,2403           17427                           STODL    P1XTMIN                               
019359,000304: 32,2404           03423                                    TIG(AS)                               
019360,000305: 32,2405           43006                           PUSH     BON                                   
019361,000306: 32,2406           03306                                    LTCPFLG                               
019362,000307: 32,2407           64420                                    P11DISP                               
019363,000308: 32,2410           77615                           DAD                                            
019364,000309: 32,2411           03744                                    INJTIME                               
019365,000310: 32,2412           03621                           STORE    TCSI                                  
019366,000311: 32,2413           77615                           DAD                                            
019367,000312: 32,2414           02261                                    T1TOT2                                
019368,000313: 32,2415           03371                           STORE    TCDH                                  
019369,000314: 32,2416           77650                           GOTO                                           
019370,000315: 32,2417           64464                                    P1XEND                                
019371,000316: 
019372,000317: 32,2420           77615        P11DISP            DAD                                            
019373,000318: 32,2421           03742                                    TPITIME                               
019374,000319: 32,2422           03577                           STORE    INTIME                                
019375,000320: 32,2423           17623                           STODL    TTPI                                  
019376,000321: 32,2424           03760                                    TPIANGLE                              
019377,000322: 32,2425           17714                           STODL    INJANGLE                              
019378,000323: 32,2426           03744                                    INJTIME                               
019379,000324: 32,2427           45415                           DAD      STADR                                 
019380,000325: 32,2430           40103                           STCALL   TCSITPF                               
019381,000326: 32,2431           64516                                    P1XROT                                
019382,000327: 
019383,000328: 32,2432           67201                           SETPD    SLOAD                                 
019384,000329: 32,2433           00001                                    0                                     
019385,000330: 32,2434           14423                                    P31ZERO                               
019386,000331: 32,2435           41525                           PDDL     PUSH                                  
019387,000332: 32,2436           24566                                    EPSFOUR*                              
019388,000333: 32,2437           43160                           AXC,1    CLEAR                                 
019389,000334: 32,2440           00012                                    10D                                   
019390,000335: 32,2441           00275                                    B29FLAG                               
019391,000336: 32,2442           45345                           DLOAD    DSU                                   
019392,000337: 32,2443           03744                                    INJTIME                               
019393,000338: 32,2444           03742                                    TPITIME                               
019394,000339: 32,2445           26355                           STOVL    DELLT4                                
019395,000340: 32,2446           03724                                    RP1XROT                               
019396,000341: 32,2447           26341                           STOVL    RINIT                                 
019397,000342: 32,2450           03732                                    VP1XROT                               
019398,000343: 32,2451           36347                           STCALL   VINIT                                 
019399,000344: 32,2452           22022                                    INITVEL                               
019400,000345: 32,2453           70575                           VLOAD    VSR2                                  
019401,000346: 32,2454           03363                                    DELVEET3                              
019402,000347: 32,2455           77646                           ABVAL                                          
019403,000348: 32,2456           27563                           STOVL    DELVTPI                               
019404,000349: 32,2457           03553                                    VACT4                                 
019405,000350: 32,2460           70451                           VSU      VSR2                                  
019406,000351: 32,2461           03770                                    P11VTPF                               
019407,000352: 32,2462           77646                           ABVAL                                          
019408,000353: 32,2463           03565                           STORE    DELVTPF                               
019409,000354: 
019410,000355: 32,2464           77776        P1XEND             EXIT                                           
019411,000356: 32,2465           02600                           TC       P1XDISP                               
019412,000357: 
019413,000358: 32,2466           77776        P1XERR             EXIT                                           
019414,000359: 32,2467           05646                           TC       ALARM                                 
019415,000360: 32,2470           00605                           OCT      605                                   
019416,000361: 
019417,000362: 32,2471           32654        P1XERDIS           CAF      V05N09AP                              
019418,000363: 32,2472           04655                           TC       BANKCALL                              
019419,000364: 32,2473           20406                           CADR     GOFLASH                               
019420,000365: 32,2474           14106                           TCF      GOTOPOOH                              
019421,000366: 32,2475           12005                           TCF      P10/P11                               
019422,000367: 32,2476           12471                           TCF      -5                                    
019423,000368: 
019424,000369: 32,2477           41205        P11SMA             DMP      DMP                                   
019425,000370: 32,2500           00003                                    2D                                    
019426,000371: 32,2501           24573                                    1/MU*                                 
019427,000372: 32,2502           41405                           DMP      PUSH                                  
019428,000373: 32,2503           45335                           SLOAD    DSU                                   
019429,000374: 32,2504           24570                                    SMATWO                                
019430,000375: 32,2505           65301                           NORM     PDDL                                  
019431,000376: 32,2506           00047                                    X1                                    
019432,000377: 32,2507           70501                           NORM     SR1                                   
019433,000378: 32,2510           00050                                    X2                                    
019434,000379: 32,2511           77671                           DDV                                            
019435,000380: 32,2512           53664                           XSU,2    SR*                                   
019436,000381: 32,2513           00046                                    X1                                    
019437,000382: 32,2514           57173                                    3,2                                   
019438,000383: 32,2515           43406                           PUSH     RVQ                                   
019439,000384: 
019440,000385: 32,2516           41345        P1XROT             DLOAD    DMP                                   
019441,000386: 32,2517           03714                                    INJANGLE                              
019442,000387: 32,2520           24575                                    DEGTOREV                              
019443,000388: 32,2521           41461                           SL       PUSH                                  
019444,000389: 32,2522           20217                                    14D                                   
019445,000390: 32,2523           74346                           COS      VXSC                                  
019446,000391: 32,2524           03750                                    ULVEC                                 
019447,000392: 32,2525           73525                           PDDL     SIN                                   
019448,000393: 32,2526           47315                           PDVL     VXV                                   
019449,000394: 32,2527           03762                                    UNVEC2                                
019450,000395: 32,2530           03750                                    ULVEC                                 
019451,000396: 32,2531           74256                           UNIT     VXSC                                  
019452,000397: 32,2532           77655                           VAD                                            
019453,000398: 32,2533           72561                           VXSC     VSL2                                  
019454,000399: 32,2534           03704                                    RLEMT2                                
019455,000400: 32,2535           03724                           STORE    RP1XROT                               
019456,000401: 32,2536           74256                           UNIT     VXSC                                  
019457,000402: 32,2537           03720                                    P1XVVER                               
019458,000403: 32,2540           53515                           PDVL     UNIT                                  
019459,000404: 32,2541           03724                                    RP1XROT                               
019460,000405: 32,2542           74235                           VXV      VXSC                                  
019461,000406: 32,2543           03762                                    UNVEC2                                
019462,000407: 32,2544           03722                                    P1XVHOR                               
019463,000408: 32,2545           52372                           VSL1     VSU                                   
019464,000409: 32,2546           66476                           VCOMP    VSL3                                  
019465,000410: 32,2547           03732                           STORE    VP1XROT                               
019466,000411: 32,2550           77616                           RVQ                                            
019467,000412: 
019468,000413: 32,2551           00000 00012  P1MAXIT            2DEC     10         B-28                       
019469,000414: 32,2553  32,2551               P10ZERO            =        P1MAXIT                               
019470,000415: 32,2553           00000 00144  ONESEC             2DEC     100        B-28                       
019471,000416: 32,2555           06314 31463  P10FRAC            2DEC     0.2                                   
019472,000417: 32,2557           00012 37440  30MIN              2DEC     1800       E2                         
019473,000418: 32,2561           01444 07733  P1XPI              2DEC     3.141592659 B-6                        
019474,000419: 32,2563           00324 05324  P10RM              2DEC     1738090    B-27                       
019475,000420: 32,2565           01252 25253  EPSFOUR*           2DEC     0.0416666666                            
019476,000421: 32,2567           00100        SMATWO             DEC      2          B5                         
019477,000422: 32,2570           16471 01352  P10MU              2DEC     4.902778   E8         B-30            
019478,000423: 32,2572           21412 20500  1/MU*              2DEC     2.03966    E-9        B28             
019479,000424: 32,2574           00055 20266  DEGTOREV           2DEC     0.0055555555 B-1                        
019480,000425: 32,2576           27533 07571  ROOT1/MU           2DEC     4.516259492 E-5        B14             
019481,000426: 
019482,000427: 32,2600           00006        P1XDISP            EXTEND                                         
019483,000428: 32,2601           31423                           DCA      TIG(AS)                               
019484,000429: 32,2602           53425                           DXCH     TIG                                   
019485,000430: 32,2603           55424                           TS       TIG                                   
019486,000431: 
019487,000432: 32,2604           32657                           CAF      V06N33AP                              
019488,000433: 32,2605           02643                           TC       VNDISP                                
019489,000434: 
019490,000435: 32,2606           30140                           CA       DSPMMTEM                              
019491,000436: 32,2607           00006                           EXTEND                                         
019492,000437: 32,2610           12620                           BZF      P10OUTD                               
019493,000438: 
019494,000439: 32,2611           32661                           CAF      V06N37AP                              
019495,000440: 32,2612           02643                           TC       VNDISP                                
019496,000441: 
019497,000442: 32,2613           31673                           CA       TCSITPF                               
019498,000443: 32,2614           55046                           TS       DSPTEM1                               
019499,000444: 32,2615           32660                           CAF      V06N34AP                              
019500,000445: 32,2616           02643                           TC       VNDISP                                
019501,000446: 32,2617           02624                           TC       P10N53                                
019502,000447: 
019503,000448: 32,2620           32655        P10OUTD            CAF      V06N30AP                              
019504,000449: 32,2621           02643                           TC       VNDISP                                
019505,000450: 
019506,000451: 32,2622           32656                           CAF      V06N31AP                              
019507,000452: 32,2623           02643                           TC       VNDISP                                
019508,000453: 
019509,000454: 32,2624           32662        P10N53             CAF      V06N53AP                              
019510,000455: 32,2625           02643                           TC       VNDISP                                
019511,000456: 
019512,000457: 32,2626           35026        P1XCNTD            CAF      ONE                                   
019513,000458: 32,2627           00004                           INHINT                                         
019514,000459: 32,2630           05252                           TC       WAITLIST                              
019515,000460: 32,2631  E7,1424                                  EBANK=   TIG                                   
019516,000461: 32,2631           02707 74067                     2CADR    CLOKTASK                              
019517,000462: 
019518,000463: 32,2633           00003                           RELINT                                         
019519,000464: 
019520,000465: 32,2634           32670                           CAF      V16N35AP                              
019521,000466: 32,2635           04655                           TC       BANKCALL                              
019522,000467: 32,2636           20406                           CADR     GOFLASH                               
019523,000468: 32,2637           04106                           TC       GOTOPOOH                              
019524,000469: 32,2640           12642                           TCF      +2                                    
019525,000470: 32,2641           12626                           TCF      P1XCNTD                               
019526,000471: 32,2642           04106                           TC       GOTOPOOH                              
019527,000472: 
019528,000473: 32,2643           00006        VNDISP             EXTEND                                         
019529,000474: 32,2644           23452                           QXCH     RTRN                                  
019530,000475: 32,2645           55602                           TS       VERBNOUN                              
019531,000476: 32,2646           31602                           CA       VERBNOUN                              
019532,000477: 32,2647           04655                           TCR      BANKCALL                              
019533,000478: 32,2650           20406                           CADR     GOFLASH                               
019534,000479: 32,2651           14106                           TCF      GOTOPOOH                              
019535,000480: 32,2652           01452                           TC       RTRN                                  
019536,000481: 32,2653           12646                           TCF      -5                                    
019537,000482: 
019538,000483: 32,2654           01211        V05N09AP           VN       0509                                  
019539,000484: 32,2655           01436        V06N30AP           VN       0630                                  
019540,000485: 32,2656           01437        V06N31AP           VN       0631                                  
019541,000486: 32,2657           01441        V06N33AP           VN       0633                                  
019542,000487: 32,2660           01442        V06N34AP           VN       0634                                  
019543,000488: 32,2661           01445        V06N37AP           VN       0637                                  
019544,000489: 32,2662           01465        V06N53AP           VN       0653                                  
019545,000490: 32,2663           01470        V06N56             VN       0656                                  
019546,000491: 32,2664           01521        V06N81AP           VN       0681                                  
019547,000492: 32,2665           01533        V06N91             VN       0691                                  
019548,000493: 32,2666           01534        V06N92             VN       0692                                  
019549,000494: 32,2667           01536        V06N94             VN       0694                                  
019550,000495: 32,2670           04043        V16N35AP           VN       1635                                  
019551,000496: 
019552,000497: 

End of include-file P10,P11.agc.  Parent file is MAIN.agc