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.

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

Page 321

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

Page 322

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

Page 323

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

Page 324

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

Page 325

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

Page 326

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

Page 327

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

Page 328

013550,000379: 26,2520           00013                           OCT      00013                                 
013551,000380: 26,2521           00002                           OCT      00002                                 
013552,000381: 26,2522           02320        UPAOFTP1           ECADR    UPTEMP1                               
013553,000382: 26,2523           02276        ASTBFM1            ECADR    STBUFF     -1                         
013554,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