Source Code

These source-code files were transcribed from scans made from Don Eyles's personal copy of BURST120 (SUNBURST 120). They were scanned at archive.org's Boston facility, and the scanning was sponsored by Mike Stewart. The code was transcribed from these scans by a team of volunteers who are referenced in the program comments. Comments from the original source code are in ALL-CAPS, whereas comments added later in transcription are in Mixed-Case. In some cases, where similar code blocks exist in previously-transcribed AGC programs (primarily Luminary 99, from Apollo 11) those code blocks were used as a starting point and then corrected to agree with the BURST120 scans. The full scans are available at the Virtual AGC project's collection at archive.org, while more-convenient reduced-size (but reduced-quality) images are available at the main Virtual AGC website. Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository. Notations on the program listing read, in part:

	YUL SYSTEM FOR AGC: REVISION 0 OF PROGRAM BURST120 
	BY NASA 2021106-031 DEC 7, 1967

	THIS LISTING IS A COPY OF A VERSION OF THE PROGRAM INTENDED 
	FOR USE IN THE ON-BOARD PRIMARY GUIDANCE COMPUTER IN THE 
	UNMANNED FLIGHT OF APOLLO LUNAR MODULE 1 --- THE AS206 MISSION.
Note that the date is the date of the printout, not the date of the program revision.

013185,000002:                                                                                                  ## Copyright:   Public domain.
013186,000003:                                                                                                  ## Filename:    UPDATE_PROGRAM_PART_2_OF_2.agc
013187,000004:                                                                                                  ## Purpose:     A module for revision 0 of BURST120 (Sunburst). It 
013188,000005:                                                                                                  ##              is part of the source code for the Lunar Module's
013189,000006:                                                                                                  ##              (LM) Apollo Guidance Computer (AGC) for Apollo 5.
013190,000007:                                                                                                  ## Assembler:   yaYUL
013191,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
013192,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
013193,000010:                                                                                                  ## Mod history: 2016-09-30 RSB  Created draft version.
013194,000011:                                                                                                  ##              2016-10-14 RSB  Transcribed.
013195,000012:                                                                                                  ##              2016-10-31 RSB  Typos.
013196,000013:                                                                                                  ##              2016-11-01 RSB  More typos.
013197,000014:                                                                                                  ##              2016-11-02 RSB  Removed workaround I had added for TC without
013198,000015:                                                                                                  ##                              an operand.  Ended up supporting it in yaYUL
013199,000016:                                                                                                  ##                              instead, since it had already been supported
013200,000017:                                                                                                  ##                              for block 1 and BLK2 targets anyway.
013201,000018:                                                                                                  ##              2016-12-05 RSB  Comment-proofing pass with octopus/ProoferComments completed;
013202,000019:                                                                                                  ##                              changes made.
013203,000020: 

Page 321

013205,000022: 26,2000                                           BANK     26                                    
013206,000023: 26,2000  E4,1677                                  EBANK=   STBUFF                                
013207,000024: 26,2000           32515        UPPART2            CA       UPE4                                  
013208,000025: 26,2001           54003                           TS       EBANK                                 
013209,000026: 26,2002           04133                           TC       CHECKMM                               
013210,000027: 26,2003           00027                           OCT      27                                    
013211,000028: 26,2004           02006                           TC       +2                                    
013212,000029: 26,2005           02513                           TC       21XCTALM                              
013213,000030: 26,2006           37763                           CA       ONE                                   
013214,000031: 26,2007           55715                           TS       STCOUNT                               
013215,000032: 26,2010           04644                           TC       GRABWAIT                              
013216,000033: 26,2011           30144                           CA       MPAC                                  
013217,000034: 26,2012           55721                           TS       UPVERB                                
013218,000035: 26,2013           30302                           CA       MODREG                                
013219,000036: 26,2014           55716                           TS       UPOLDMOD                              
013220,000037: 26,2015           04161                           TC       PHASCHNG                              
013221,000038: 26,2016           00076                           OCT      00076                                 #  6.7 SPOT TO RESTORE OLD PROGRAM MODE.
013222,000039: 
013223,000040: 26,2017           04117                           TC       NEWMODEX                              
013224,000041: 26,2020           00027                           OCT      27                                    
013225,000042: 26,2021           41721                           CS       UPVERB                                
013226,000043: 26,2022           62362                           AD       21OCT75                               
013227,000044: 26,2023           00006                           EXTEND                                         
013228,000045: 26,2024           12030                           BZF      +4                                    
013229,000046: 26,2025           30145                           CA       MPAC       +1                         
013230,000047: 26,2026           55722                           TS       COMPNUMB                              
013231,000048: 26,2027           02052                           TC       UPIN       +1                         
013232,000049: 26,2030           37763        UPNO33             CA       ONE                                   #  CONTINUE V75
013233,000050: 26,2031           62523                           AD       ASTBFM1                               
013234,000051: 26,2032           54146                           TS       MPAC       +2                         
013235,000052: 26,2033           32364                           CA       STATENV                               #  UPDATE PROGRAM IS READY TO ACCEPT TARGET
013236,000053: 26,2034           04657                           TC       NVSBWAIT                              #  UPDATE INDEX. FLASH V 21 N 01
013237,000054: 26,2035           04475                           TC       ENDIDLE                               #  WAIT FOR V33, V34 OR DATA.
013238,000055: 26,2036           12463                           TCF      UPVERB34                              #  V34 TERMINATE UPDATE PROGRAM.
013239,000056: 26,2037           02030                           TC       UPNO33                                #  V33, IGNORE
013240,000057: 26,2040           37761                           CA       FOUR                                  #  OCTAL NO. IN STBUFF
013241,000058: 26,2041           55717                           TS       UPTEMP                                
013242,000059: 26,2042           31677                           CA       STBUFF                                
013243,000060: 26,2043           02473                           TC       UPRANGE                               #  IS STBUFF GE 1 AND LE 4
013244,000061: 26,2044           02030                           TC       UPNO33                                #   NO, TRY AGAIN
013245,000062: 26,2045           51677                           INDEX    STBUFF                                #   YES
013246,000063: 26,2046           32515                           CA       AOFC       -1                         
013247,000064: 26,2047           55722                           TS       COMPNUMB                              
013248,000065: 26,2050           37762                           CA       TWO                                   
013249,000066: 26,2051           55715        UPIN               TS       STCOUNT                               
013250,000067: 26,2052           32523                           CA       ASTBFM1                               
013251,000068: 26,2053           61715                           AD       STCOUNT                               
013252,000069: 26,2054           54146                           TS       MPAC       +2                         
013253,000070: 26,2055           32364                           CA       STATENV                               #  UPDATE PROGRAM IS READY TO ACCEPT THE
013254,000071: 26,2056           04657                           TC       NVSBWAIT                              #  NEXT COMPONENT, FLASH V21 N01

Page 322

013256,000073: 26,2057           04475                           TC       ENDIDLE                               #  WAIT FOR V33, V34 OR DATA.
013257,000074: 26,2060           12463                           TCF      UPVERB34                              #  V34 TERMINATE UPDATE PROGRAM.
013258,000075: 26,2061           02052                           TC       UPIN       +1                         #  V33 , IGNORE
013259,000076: 26,2062           41715                           CS       STCOUNT                               #  OCTAL NO.
013260,000077: 26,2063           61722                           AD       COMPNUMB                              
013261,000078: 26,2064           00006                           EXTEND                                         
013262,000079: 26,2065           12070                           BZF      +3                                    
013263,000080: 26,2066           25715                           INCR     STCOUNT                               
013264,000081: 26,2067           02052                           TC       UPIN       +1                         
013265,000082: 26,2070           32522        UPHERE             CA       UPAOFTP1                              
013266,000083: 26,2071           54146                           TS       MPAC       +2                         
013267,000084: 26,2072           32353                           CA       OCTID                                 #  INDICATE TO GROUND THAT ALL COMPONENTS
013268,000085: 26,2073           04657                           TC       NVSBWAIT                              #  HAVE BEEN RECEIVED BY FLASHING V21 N02.
013269,000086: 26,2074           04475                           TC       ENDIDLE                               #  WAIT FOR V33, V34 OR DATA(COMPONENT NO.)
013270,000087: 26,2075           12463                           TCF      UPVERB34                              #  V34 TERMINATE UPDATE PROGRAM.
013271,000088: 26,2076           02107                           TC       UPSTORE                               #  V33, VERIFY
013272,000089: 26,2077           31722                           CA       COMPNUMB                              #  OCTAL IDENTIFIER
013273,000090: 26,2100           55717                           TS       UPTEMP                                
013274,000091: 26,2101           31720                           CA       UPTEMP1                               
013275,000092: 26,2102           02473                           TC       UPRANGE                               
013276,000093: 26,2103           02070                           TC       UPHERE                                #  BAD OCTAL IDENTIFIER
013277,000094: 26,2104           31720                           CA       UPTEMP1                               
013278,000095: 26,2105           62523                           AD       ASTBFM1                               
013279,000096: 26,2106           02054                           TC       UPIN       +3                         
013280,000097: 26,2107           04724        UPSTORE            TC       FREEDSP                               
013281,000098: 26,2110           00004                           INHINT                                         
013282,000099: 26,2111           40076                           CS       FLAGWRD2                              #  INVERT VERIFLAG FOR GROUND VERIFY
013283,000100: 26,2112           77756                           MASK     BIT6                                  
013284,000101: 26,2113           54002                           TS       Q                                     
013285,000102: 26,2114           47756                           CS       BIT6                                  
013286,000103: 26,2115           70076                           MASK     FLAGWRD2                              
013287,000104: 26,2116           60002                           AD       Q                                     
013288,000105: 26,2117           54076                           TS       FLAGWRD2                              
013289,000106: 26,2120           00003                           RELINT                                         
013290,000107: 26,2121           41721                           CS       UPVERB                                #  IF A VERB 75 OR 76 UPDATE
013291,000108: 26,2122           62362                           AD       21OCT75                               #  STAY IN P27 UNTIL UPDATE IS COMPLETED.
013292,000109: 26,2123           00006                           EXTEND                                         #  (THIS IS DONE SO THAT NO OTHER UPDATES
013293,000110: 26,2124           62132                           BZMF     UPRETURN                              #  WILL BE ALLOWED IF ORBIT INT IS ON)
013294,000111: 26,2125           04133                           TC       CHECKMM                               
013295,000112: 26,2126           00027                           OCT      27                                    
013296,000113: 26,2127           02132                           TC       UPRETURN                              
013297,000114: 26,2130           31716                           CA       UPOLDMOD                              #  RESTORE PRE-P27 MODE
013298,000115: 26,2131           04122                           TC       NEWMODEX   +3                         #  (THIS WILL CAUSE A RELINT)
013299,000116: 26,2132           00004        UPRETURN           INHINT                                         
013300,000117: 26,2133           37757                           CA       BIT5                                  
013301,000118: 26,2134           70076                           MASK     FLAGWRD2                              
013302,000119: 26,2135           00006                           EXTEND                                         
013303,000120: 26,2136           12504                           BZF      XCTALMRM                              
013304,000121: 26,2137           42153                           CS       21OCT64                               #    BEGIN STORING DATA FROM STBUFF
013305,000122: 26,2140           61721                           AD       UPVERB                                #  YES, CONTINUE
013306,000123: 

Page 323

013308,000125: 26,2141           50000                           INDEX    A                                     
013309,000126: 26,2142           02143                           TC       +1                                    
013310,000127: 26,2143           00006                           EXTEND                                         
013311,000128: 26,2144           31701                           DCA      STBUFF     +1                         
013312,000129: 26,2145           02301                           TC       UPEND64                               
013313,000130: 26,2146           02311                           TC       UPEND67                               #  V67
013314,000131: 26,2147           02315                           TC       UPEND70                               #  V70
013315,000132: 26,2150           02323                           TC       UPEND71                               #  V71
013316,000133: 26,2151           02331                           TC       UPEND72                               #  V72
013317,000134: 26,2152           02341                           TC       UPEND73                               
013318,000135: 26,2153           00064        21OCT64            OCT      00064                                 
013319,000136: 26,2154           02345                           TC       UPEND75                               #  V75
013320,000137: 26,2155           40076        UPEND76            CS       FLAGWRD2                              #  IS ORBITAL INTEGRATION ON
013321,000138: 26,2156           77755                           MASK     BIT7                                  
013322,000139: 26,2157           00006                           EXTEND                                         
013323,000140: 26,2160           12262                           BZF      SETUPRCK                              #  YES, SET UP 3SEC CALL TO CHECK AGAIN
013324,000141: 26,2161           04161                           TC       PHASCHNG                              
013325,000142: 26,2162           05026                           OCT      05026                                 
013326,000143: 26,2163           33000                           OCT      33000                                 
013327,000144: 26,2164           00004                           INHINT                                         #  INHINT BECAUSE PHASCHNG RELINTS AND BECA
013328,000145:                                                                                                  #  USE RESTARTED JOB WILL NEED IT.
013329,000146: 26,2165           00006                           EXTEND                                         #  V76
013330,000147: 26,2166           31700                           DCA      STBUFF                                #  NO, BEGIN LOAD OF UPDATE PARAMETERS
013331,000148: 26,2167           53211                           DXCH     REFRRECT                              
013332,000149: 26,2170           00006                           EXTEND                                         
013333,000150: 26,2171           31700                           DCA      STBUFF                                
013334,000151: 26,2172           53241                           DXCH     REFRCV                                
013335,000152: 26,2173           00006                           EXTEND                                         
013336,000153: 26,2174           31702                           DCA      STBUFF     +2                         
013337,000154: 26,2175           53213                           DXCH     REFRRECT   +2                         
013338,000155: 26,2176           00006                           EXTEND                                         
013339,000156: 26,2177           31702                           DCA      STBUFF     +2                         
013340,000157: 26,2200           53243                           DXCH     REFRCV     +2                         
013341,000158: 26,2201           00006                           EXTEND                                         
013342,000159: 26,2202           31704                           DCA      STBUFF     +4                         
013343,000160: 26,2203           53215                           DXCH     REFRRECT   +4                         
013344,000161: 26,2204           00006                           EXTEND                                         
013345,000162: 26,2205           31704                           DCA      STBUFF     +4                         
013346,000163: 26,2206           53245                           DXCH     REFRCV     +4                         
013347,000164: 26,2207           00006                           EXTEND                                         
013348,000165: 26,2210           31706                           DCA      STBUFF     +6                         
013349,000166: 26,2211           53217                           DXCH     REFVRECT                              
013350,000167: 26,2212           00006                           EXTEND                                         
013351,000168: 26,2213           31706                           DCA      STBUFF     +6                         
013352,000169: 26,2214           53247                           DXCH     REFVCV                                
013353,000170: 26,2215           00006                           EXTEND                                         
013354,000171: 26,2216           31710                           DCA      STBUFF     +8D                        
013355,000172: 26,2217           53221                           DXCH     REFVRECT   +2                         
013356,000173: 26,2220           00006                           EXTEND                                         
013357,000174: 26,2221           31710                           DCA      STBUFF     +8D                        

Page 324

013359,000176: 26,2222           53251                           DXCH     REFVCV     +2                         
013360,000177: 26,2223           00006                           EXTEND                                         
013361,000178: 26,2224           31712                           DCA      STBUFF     +10D                       
013362,000179: 26,2225           53223                           DXCH     REFVRECT   +4                         
013363,000180: 26,2226           00006                           EXTEND                                         
013364,000181: 26,2227           31712                           DCA      STBUFF     +10D                       
013365,000182: 26,2230           53253                           DXCH     REFVCV     +4                         
013366,000183: 26,2231           00006                           EXTEND                                         
013367,000184: 26,2232           31714                           DCA      STBUFF     +12D                       
013368,000185: 26,2233           53257                           DXCH     TE                                    
013369,000186: 26,2234           37767                           CA       ZERO                                  
013370,000187: 26,2235           55224                           TS       DELTAV                                
013371,000188: 26,2236           55225                           TS       DELTAV     +1                         
013372,000189: 26,2237           55226                           TS       DELTAV     +2                         
013373,000190: 26,2240           55227                           TS       DELTAV     +3                         
013374,000191: 26,2241           55230                           TS       DELTAV     +4                         
013375,000192: 26,2242           55231                           TS       DELTAV     +5                         
013376,000193: 26,2243           55232                           TS       NUV                                   
013377,000194: 26,2244           55233                           TS       NUV        +1                         
013378,000195: 26,2245           55234                           TS       NUV        +2                         
013379,000196: 26,2246           55235                           TS       NUV        +3                         
013380,000197: 26,2247           55236                           TS       NUV        +4                         
013381,000198: 26,2250           55237                           TS       NUV        +5                         
013382,000199: 26,2251           55254                           TS       REFTC                                 
013383,000200: 26,2252           55255                           TS       REFTC      +1                         
013384,000201: 26,2253           55260                           TS       REFXKEP                               
013385,000202: 26,2254           55261                           TS       REFXKEP    +1                         
013386,000203: 26,2255           37746                           CAF      PRIO20                                #  SET UP JOB TO STORE NEW STATE FOR DWNTEL
013387,000204: 26,2256           05516                           TC       FINDVAC                               
013388,000205: 26,2257  E4,1566                                  EBANK=   TDEC                                  
013389,000206: 26,2257           02475 16064                     2CADR    UPDATINT                              
013390,000207: 
013391,000208: 26,2261           12464                           TCF      UPVERB34   +1                         #  RESTORE PRE-P27 MODE AND EXIT UPDATE
013392,000209: 26,2262           32524        SETUPRCK           CA       3SEC21                                
013393,000210: 26,2263           05663                           TC       WAITLIST                              
013394,000211: 26,2264  E4,1677                                  EBANK=   STBUFF                                
013395,000212: 26,2264           02274 54064                     2CADR    UPDOAGN                               
013396,000213: 
013397,000214: 26,2266           04161                           TC       PHASCHNG                              
013398,000215: 26,2267           47016                           OCT      47016                                 
013399,000216: 26,2270           00454                           DEC      300        B-14                       
013400,000217: 26,2271  E4,1677                                  EBANK=   STBUFF                                
013401,000218: 26,2271           02274 54064                     2CADR    UPDOAGN                               
013402,000219: 
013403,000220: 26,2273           05567                           TC       ENDOFJOB                              
013404,000221: 26,2274           35651        UPDOAGN            CA       PRIO27                                
013405,000222: 26,2275           05505                           TC       NOVAC                                 
013406,000223: 26,2276  E4,1677                                  EBANK=   STBUFF                                
013407,000224: 26,2276           02132 54064                     2CADR    UPRETURN                              

Page 325

013409,000226: 26,2300           05727                           TC       TASKOVER                              
013410,000227: 26,2301           53206        UPEND64            DXCH     UPGET                                 
013411,000228: 26,2302           31677                           CA       STBUFF                                
013412,000229: 26,2303           55204                           TS       UPINDEX                               
013413,000230: 26,2304           35651                           CA       PRIO27                                
013414,000231: 26,2305           05516                           TC       FINDVAC                               
013415,000232: 26,2306  E4,1677                                  EBANK=   STBUFF                                
013416,000233: 26,2306           02325 62064                     2CADR    MGETUP                                
013417,000234: 
013418,000235: 26,2310           02471                           TC       UPQUIT                                
013419,000236: 26,2311           31677        UPEND67            CA       STBUFF                                
013420,000237: 26,2312           55204                           TS       UPINDEX                               
013421,000238: 26,2313           05225                           TC       POSTJUMP                              
013422,000239: 26,2314           62202                           CADR     DOV67                                 
013423,000240: 26,2315           31677        UPEND70            CA       STBUFF                                
013424,000241: 26,2316           55204                           TS       UPINDEX                               
013425,000242: 26,2317           31700                           CA       STBUFF     +1                         
013426,000243: 26,2320           55203                           TS       UPDT                                  
013427,000244: 26,2321           05225                           TC       POSTJUMP                              
013428,000245: 26,2322           62153                           CADR     DOV70                                 
013429,000246: 26,2323           31677        UPEND71            CA       STBUFF                                
013430,000247: 26,2324           55204                           TS       UPINDEX                               
013431,000248: 26,2325           31700                           CA       STBUFF     +1                         
013432,000249: 26,2326           55202                           TS       UPPHASE                               
013433,000250: 26,2327           05225                           TC       POSTJUMP                              
013434,000251: 26,2330           62155                           CADR     DOV71                                 
013435,000252: 26,2331           31677        UPEND72            CA       STBUFF                                
013436,000253: 26,2332           55204                           TS       UPINDEX                               
013437,000254: 26,2333           31700                           CA       STBUFF     +1                         
013438,000255: 26,2334           55202                           TS       UPPHASE                               
013439,000256: 26,2335           31701                           CA       STBUFF     +2                         
013440,000257: 26,2336           55203                           TS       UPDT                                  
013441,000258: 26,2337           05225                           TC       POSTJUMP                              
013442,000259: 26,2340           62157                           CADR     DOV72                                 
013443,000260: 26,2341           31677        UPEND73            CA       STBUFF                                
013444,000261: 26,2342           55204                           TS       UPINDEX                               
013445,000262: 26,2343           05225                           TC       POSTJUMP                              
013446,000263: 26,2344           62165                           CADR     DOV73                                 
013447,000264: 26,2345           04161        UPEND75            TC       PHASCHNG                              
013448,000265: 26,2346           05026                           OCT      05026                                 
013449,000266: 26,2347           33000                           OCT      33000                                 
013450,000267: 26,2350           00004                           INHINT                                         #  INHINT BECAUSE PHASCHNG RELINTS AND BECA
013451,000268:                                                                                                  #  USE RESTARTED JOB WILL NEED IT.
013452,000269: 26,2351           51722                           INDEX    COMPNUMB                              #  V75
013453,000270: 26,2352           02352                           TC       -0                                    #  FAN TO V75 ROUTINES
013454,000271: 26,2353           02102        OCTID              OCT      02102                                 
013455,000272: 26,2354           02417                           TC       I=4                                   
013456,000273: 26,2355           00006        I=1                EXTEND                                         
013457,000274: 26,2356           31701                           DCA      STBUFF     +1                         
013458,000275: 26,2357           53755                           DXCH     RP                                    

Page 326

013460,000277: 26,2360           02464                           TC       UPQUITRM                              #  RESTORE PRE-P27 MODE AND EXIT UPDATE
013461,000278: 26,2361           02405                           TC       I=2                                   
013462,000279: 26,2362           00075        21OCT75            OCT      75                                    
013463,000280: 26,2363           02417                           TC       I=4                                   
013464,000281: 26,2364           02101        STATENV            OCT      2101                                  
013465,000282: 26,2365           00006        I=3                EXTEND                                         
013466,000283: 26,2366           31701                           DCA      STBUFF     +1                         
013467,000284: 26,2367           53765                           DXCH     R1VEC                                 
013468,000285: 26,2370           00006                           EXTEND                                         
013469,000286: 26,2371           31703                           DCA      STBUFF     +3                         
013470,000287: 26,2372           53767                           DXCH     R1VEC      +2                         
013471,000288: 26,2373           00006                           EXTEND                                         
013472,000289: 26,2374           31705                           DCA      STBUFF     +5                         
013473,000290: 26,2375           53771                           DXCH     R1VEC      +4                         
013474,000291: 26,2376           00006                           EXTEND                                         
013475,000292: 26,2377           31707                           DCA      STBUFF     +7                         
013476,000293: 26,2400           53773                           DXCH     TINT                                  
013477,000294: 26,2401           00006                           EXTEND                                         
013478,000295: 26,2402           31711                           DCA      STBUFF     +9D                        
013479,000296: 26,2403           53775                           DXCH     RCO                                   
013480,000297: 26,2404           02464                           TC       UPQUITRM                              #  RESTORE PRE-P27 MODE AND EXIT UPDATE
013481,000298: 26,2405           00006        I=2                EXTEND                                         
013482,000299: 26,2406           31701                           DCA      STBUFF     +1                         
013483,000300: 26,2407           53757                           DXCH     CPT6/2                                
013484,000301: 26,2410           00006                           EXTEND                                         
013485,000302: 26,2411           31703                           DCA      STBUFF     +3                         
013486,000303: 26,2412           53761                           DXCH     CPT6/2     +2                         
013487,000304: 26,2413           00006                           EXTEND                                         
013488,000305: 26,2414           31705                           DCA      STBUFF     +5                         
013489,000306: 26,2415           53763                           DXCH     CPT6/2     +4                         
013490,000307: 26,2416           02464                           TC       UPQUITRM                              #  RESTORE PRE-P27 MODE AND EXIT UPDATE
013491,000308: 26,2417           40076        I=4                CS       FLAGWRD2                              #  IS ORBITAL INTEGRATION ON
013492,000309: 26,2420           77755                           MASK     BIT7                                  
013493,000310: 26,2421           00006                           EXTEND                                         
013494,000311: 26,2422           12262                           BZF      SETUPRCK                              #  YES
013495,000312: 26,2423           31700                           CAE      STBUFF     +1                         
013496,000313: 26,2424           61257                           AD       TE         +1                         
013497,000314: 26,2425           55714                           TS       STBUFF     +13D                       
013498,000315: 26,2426           37767                           CAF      ZERO                                  
013499,000316: 26,2427           61256                           AD       TE                                    
013500,000317: 26,2430           55713                           TS       STBUFF     +12D                       
013501,000318: 26,2431           37767                           CA       ZERO                                  
013502,000319: 26,2432           54001                           TS       L                                     
013503,000320: 26,2433           52025                           DXCH     TIME2                                 
013504,000321: 26,2434           53712                           DXCH     STBUFF     +10D                       
013505,000322: 26,2435           37766                           CA       FIVE                                  
013506,000323: 26,2436           04246                           TC       NEWPHASE                              
013507,000324: 26,2437           00006                           OCT      00006                                 
013508,000325: 
013509,000326: 26,2440           00004        I=4.CONT           INHINT                                         

Page 327

013511,000328: 26,2441           37767                           CA       ZERO                                  
013512,000329: 26,2442           54146                           TS       MPAC       +2                         #  FOR TPAGREE
013513,000330: 26,2443           00006                           EXTEND                                         
013514,000331: 26,2444           31714                           DCA      STBUFF     +12D                       
013515,000332: 26,2445           53257                           DXCH     TE                                    
013516,000333: 26,2446           31700                           CA       STBUFF     +1                         
013517,000334: 26,2447           61712                           AD       STBUFF     +11D                       
013518,000335: 26,2450           54001                           TS       L                                     
013519,000336: 26,2451           37767                           CA       ZERO                                  
013520,000337: 26,2452           61711                           AD       STBUFF     +10D                       
013521,000338: 26,2453           52145                           DXCH     MPAC                                  
013522,000339: 26,2454           07327                           TC       TPAGREE                               #  FORCE SIGN AGREEMENT
013523,000340: 26,2455           52145                           DXCH     MPAC                                  
013524,000341: 26,2456           20025                           DAS      TIME2                                 #  NEW CLOCK
013525,000342: 26,2457           37765                           CAF      SEVEN                                 #  6.7 SPOT TO RESTORE OLD PROGRAM MODE.
013526,000343: 26,2460           04246                           TC       NEWPHASE                              
013527,000344: 26,2461           00006                           OCT      00006                                 
013528,000345: 
013529,000346: 26,2462           02464                           TC       UPQUITRM                              #  RESTORE PRE-P27 MODE AND EXIT UPDATE
013530,000347: 26,2463           04724        UPVERB34           TC       FREEDSP                               
013531,000348: 26,2464           04133        UPQUITRM           TC       CHECKMM                               #  RESTORE MODE AND UPQUIT
013532,000349: 26,2465           00027                           OCT      27                                    
013533,000350: 26,2466           12471                           TCF      UPQUIT                                
013534,000351: 26,2467           31716                           CA       UPOLDMOD                              
013535,000352: 26,2470           04122                           TC       NEWMODEX   +3                         
013536,000353: 
013537,000354: 26,2471           05206        UPQUIT             TC       BANKCALL                              #  SETS 6.0 SPOT AND DOES ENDOFJOB
013538,000355: 26,2472           62351                           CADR     ENDUP                                 
013539,000356: 26,2473           00006        UPRANGE            EXTEND                                         
013540,000357: 26,2474           62503                           BZMF     UPRAUS                                #  C(A) LE ZERO RETURN TO Q
013541,000358: 26,2475           40000                           CS       A                                     
013542,000359: 26,2476           24000                           INCR     A                                     
013543,000360: 26,2477           61717                           AD       UPTEMP                                
013544,000361: 26,2500           00006                           EXTEND                                         
013545,000362: 26,2501           62503                           BZMF     UPRAUS                                #  C(A) GT C(LOC) RETURN TO Q
013546,000363: 26,2502           24002                           INCR     Q                                     
013547,000364: 26,2503           00002        UPRAUS             TC       Q                                     #  C(A) LE C(LOC) AND GT 0 RETURN TO Q+1
013548,000365: 26,2504           04133        XCTALMRM           TC       CHECKMM                               
013549,000366: 26,2505           00027                           OCT      27                                    
013550,000367: 26,2506           12511                           TCF      +3                                    
013551,000368: 26,2507           31716                           CA       UPOLDMOD                              
013552,000369: 26,2510           04122                           TC       NEWMODEX   +3                         
013553,000370: 26,2511           04161                           TC       PHASCHNG                              
013554,000371: 26,2512           00006                           OCT      00006                                 
013555,000372: 26,2513           05206        21XCTALM           TC       BANKCALL                              
013556,000373: 26,2514           22053                           CADR     XACTALM                               
013557,000374: 
013558,000375: 26,2515           02000        UPE4               OCT      2000                                  
013559,000376: 26,2516           00003        AOFC               OCT      00003                                 
013560,000377: 26,2517           00007                           OCT      00007                                 

Page 328

013562,000379: 26,2520           00013                           OCT      00013                                 
013563,000380: 26,2521           00002                           OCT      00002                                 
013564,000381: 26,2522           02320        UPAOFTP1           ECADR    UPTEMP1                               
013565,000382: 26,2523           02276        ASTBFM1            ECADR    STBUFF     -1                         
013566,000383: 26,2524           00454        3SEC21             DEC      300        B-14                       

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