Source Code

These source-code files were transcribed from a printout in Don Eyles's personal collection, scanned by archive.org, and financially sponsored by Peter McDermott. A team of volunteers performed the transcription and proof-reading. The scanned page images are available at the Virtual AGC Project website, as well as higher-quality (but much larger) images at the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating "issues" at the Virtual AGC Project's GitHub Repository.

Notations on the program listing read, in part:

	YUL SYSTEM FOR AGC: NEW PROGRAM SHEPATIN BY EYLES
	DEC 13, 1966

	THIS PROGRAM WAS ASSEMBLED AS A VERSION OF REVISION 37 
        OF PROGRAM SUNBURST BY LEM GROUP
Note that the date is the date of the printout, not the date of the program revision.

012884,000002:                                                                                                  ## Copyright:   Public domain.
012885,000003:                                                                                                  ## Filename:    UPDATE_PROGRAM_PART_2_OF_2.agc
012886,000004:                                                                                                  ## Purpose:     A section of Sunburst revision 37, or Shepatin revision 0.
012887,000005:                                                                                                  ##              It is part of an early development version of the software
012888,000006:                                                                                                  ##              for Apollo Guidance Computer (AGC) on the unmanned Lunar
012889,000007:                                                                                                  ##              Module (LM) flight Apollo 5. Sunburst 37 was the program
012890,000008:                                                                                                  ##              upon which Don Eyles's offline development program Shepatin
012891,000009:                                                                                                  ##              was based; the listing herein transcribed was actually for
012892,000010:                                                                                                  ##              the equivalent revision 0 of Shepatin.
012893,000011:                                                                                                  ##              This file is intended to be a faithful transcription, except
012894,000012:                                                                                                  ##              that the code format has been changed to conform to the
012895,000013:                                                                                                  ##              requirements of the yaYUL assembler rather than the
012896,000014:                                                                                                  ##              original YUL assembler.
012897,000015:                                                                                                  ## Reference:   pp. 305-310
012898,000016:                                                                                                  ## Assembler:   yaYUL
012899,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
012900,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
012901,000019:                                                                                                  ## Mod history: 2017-05-24 MAS  Created from Sunburst 120.
012902,000020:                                                                                                  ##              2017-05-30 HG   Transcribed
012903,000021:                                                                                                  ##              2017-06-22 RSB  Proofed comment text with
012904,000022:                                                                                                  ##                              octopus/ProoferComments.
012905,000023: 

Page 305

012907,000025: 26,2000                                           BANK     26                                    
012908,000026: 26,2000  E4,1677                                  EBANK=   STBUFF                                
012909,000027: 26,2000           32430        UPPART2            CA       UPE4                                  
012910,000028: 26,2001           54003                           TS       EBANK                                 
012911,000029: 26,2002           04121                           TC       CHECKMM                               
012912,000030: 26,2003           00027                           OCT      27                                    
012913,000031: 26,2004           02006                           TC       +2                                    
012914,000032: 26,2005           02426                           TC       21XCTALM                              
012915,000033: 
012916,000034: 26,2006           37755                           CA       ONE                                   
012917,000035: 26,2007           55715                           TS       STCOUNT                               
012918,000036: 26,2010           04633                           TC       GRABWAIT                              
012919,000037: 26,2011           30144                           CA       MPAC                                  
012920,000038: 26,2012           55721                           TS       UPVERB                                
012921,000039: 26,2013           30302                           CA       MODREG                                
012922,000040: 26,2014           55716                           TS       UPOLDMOD                              
012923,000041: 26,2015           04105                           TC       NEWMODEX                              
012924,000042: 26,2016           00027                           OCT      27                                    
012925,000043: 26,2017           41721                           CS       UPVERB                                
012926,000044: 26,2020           62324                           AD       21OCT75                               
012927,000045: 26,2021           00006                           EXTEND                                         
012928,000046: 26,2022           12026                           BZF      +4                                    
012929,000047: 26,2023           30145                           CA       MPAC       +1                         
012930,000048: 26,2024           55722                           TS       COMPNUMB                              
012931,000049: 26,2025           02046                           TC       UPIN       +1                         
012932,000050: 26,2026           37755        UPNO33             CA       ONE                                   #  CONTINUE V75
012933,000051: 26,2027           62437                           AD       ASTBFM1                               
012934,000052: 26,2030           54146                           TS       MPAC       +2                         
012935,000053: 26,2031           32326                           CA       STATENV                               #  FLASH V21 N01
012936,000054: 26,2032           02405                           TC       UPNVCALL                              #  LOAD V33 OR OCTAL NO.
012937,000055: 26,2033           02026                           TC       UPNO33                                #  V33, IGNORE
012938,000056: 26,2034           37753                           CA       FOUR                                  #  OCTAL NO. IN STBUFF
012939,000057: 
012940,000058: 26,2035           55717                           TS       UPTEMP                                
012941,000059: 26,2036           31677                           CA       STBUFF                                
012942,000060: 26,2037           02415                           TC       UPRANGE                               #  IS STBUFF GE 1 AND LE 4
012943,000061: 26,2040           02026                           TC       UPNO33                                #   NO, TRY AGAIN
012944,000062: 26,2041           51677                           INDEX    STBUFF                                #   YES
012945,000063: 26,2042           32431                           CA       AOFC       -1                         
012946,000064: 26,2043           55722                           TS       COMPNUMB                              
012947,000065: 26,2044           37754                           CA       TWO                                   
012948,000066: 26,2045           55715        UPIN               TS       STCOUNT                               
012949,000067: 26,2046           32437                           CA       ASTBFM1                               
012950,000068: 26,2047           61715                           AD       STCOUNT                               
012951,000069: 26,2050           54146                           TS       MPAC       +2                         
012952,000070: 26,2051           32326                           CA       STATENV                               
012953,000071: 26,2052           02405                           TC       UPNVCALL                              
012954,000072: 26,2053           02046                           TC       UPIN       +1                         #  V33 , IGNORE
012955,000073: 26,2054           41715                           CS       STCOUNT                               #  OCTAL NO.
012956,000074: 26,2055           61722                           AD       COMPNUMB                              
012957,000075: 26,2056           00006                           EXTEND                                         
012958,000076: 26,2057           12062                           BZF      +3                                    
012959,000077: 

Page 306

012961,000079: 26,2060           25715                           INCR     STCOUNT                               
012962,000080: 26,2061           02046                           TC       UPIN       +1                         
012963,000081: 26,2062           32436        UPHERE             CA       UPAOFTP1                              
012964,000082: 26,2063           54146                           TS       MPAC       +2                         
012965,000083: 26,2064           32431                           CA       OCTID                                 
012966,000084: 26,2065           02405                           TC       UPNVCALL                              
012967,000085: 26,2066           02077                           TC       UPSTORE                               #  V33, VERIFY
012968,000086: 26,2067           31722                           CA       COMPNUMB                              #  OCTAL IDENTIFIER
012969,000087: 26,2070           55717                           TS       UPTEMP                                
012970,000088: 26,2071           31720                           CA       UPTEMP1                               
012971,000089: 26,2072           02415                           TC       UPRANGE                               
012972,000090: 26,2073           02062                           TC       UPHERE                                #  BAD OCTAL IDENTIFIER
012973,000091: 26,2074           31720                           CA       UPTEMP1                               
012974,000092: 26,2075           62437                           AD       ASTBFM1                               
012975,000093: 
012976,000094: 26,2076           02050                           TC       UPIN       +3                         
012977,000095: 26,2077           04713        UPSTORE            TC       FREEDSP                               
012978,000096: 26,2100           00004                           INHINT                                         
012979,000097: 26,2101           40076                           CS       FLAGWRD2                              #  INVERT VERIFLAG FOR GROUND VERIFY
012980,000098: 26,2102           77750                           MASK     BIT6                                  
012981,000099: 26,2103           54002                           TS       Q                                     
012982,000100: 26,2104           47750                           CS       BIT6                                  
012983,000101: 26,2105           70076                           MASK     FLAGWRD2                              
012984,000102: 26,2106           60002                           AD       Q                                     
012985,000103: 26,2107           54076                           TS       FLAGWRD2                              
012986,000104: 26,2110           04121                           TC       CHECKMM                               
012987,000105: 26,2111           00027                           OCT      27                                    
012988,000106: 26,2112           02115                           TC       UPRETURN                              
012989,000107: 26,2113           31716                           CA       UPOLDMOD                              #  RESTORE PRE-P27 MODE
012990,000108: 26,2114           04110                           TC       NEWMODEX   +3                         
012991,000109: 26,2115           37751        UPRETURN           CA       BIT5                                  
012992,000110: 26,2116           70076                           MASK     FLAGWRD2                              
012993,000111: 26,2117           00006                           EXTEND                                         
012994,000112: 26,2120           12426                           BZF      21XCTALM                              
012995,000113: 26,2121           42135                           CS       21OCT64                               #    BEGIN STORING DATA FROM STBUFF
012996,000114: 26,2122           61721                           AD       UPVERB                                #  YES, CONTINUE
012997,000115: 26,2123           50000                           INDEX    A                                     
012998,000116: 26,2124           02125                           TC       +1                                    
012999,000117: 
013000,000118: 26,2125           53701                           DXCH     STBUFF     +1                         
013001,000119: 26,2126           53220                           DXCH     UPGET                                 
013002,000120: 26,2127           02250                           TC       UPEND64                               
013003,000121: 26,2130           02257                           TC       UPEND67                               #  V67
013004,000122: 26,2131           02263                           TC       UPEND70                               #  V70
013005,000123: 26,2132           02271                           TC       UPEND71                               #  V71
013006,000124: 26,2133           02277                           TC       UPEND72                               #  V72
013007,000125: 26,2134           02307                           TC       UPEND73                               
013008,000126: 26,2135           00064        21OCT64            OCT      00064                                 
013009,000127: 26,2136           02313                           TC       UPEND75                               #  V75
013010,000128: 26,2137           40076        UPEND76            CS       FLAGWRD2                              #  IS ORBITAL INTEGRATION ON
013011,000129: 26,2140           77747                           MASK     BIT7                                  
013012,000130: 26,2141           00006                           EXTEND                                         
013013,000131: 

Page 307

013015,000133: 26,2142           12234                           BZF      SETUPRCK                              #  YES, SET UP 3SEC CALL TO CHECK AGAIN
013016,000134: 26,2143           00006                           EXTEND                                         #  V76
013017,000135: 26,2144           31700                           DCA      STBUFF                                #  NO, BEGIN LOAD OF UPDATE PARAMETERS
013018,000136: 26,2145           53223                           DXCH     REFRRECT                              
013019,000137: 26,2146           00006                           EXTEND                                         
013020,000138: 26,2147           31700                           DCA      STBUFF                                
013021,000139: 26,2150           53253                           DXCH     REFRCV                                
013022,000140: 26,2151           00006                           EXTEND                                         
013023,000141: 26,2152           31702                           DCA      STBUFF     +2                         
013024,000142: 26,2153           53225                           DXCH     REFRRECT   +2                         
013025,000143: 26,2154           00006                           EXTEND                                         
013026,000144: 26,2155           31702                           DCA      STBUFF     +2                         
013027,000145: 26,2156           53255                           DXCH     REFRCV     +2                         
013028,000146: 26,2157           00006                           EXTEND                                         
013029,000147: 26,2160           31704                           DCA      STBUFF     +4                         
013030,000148: 26,2161           53227                           DXCH     REFRRECT   +4                         
013031,000149: 26,2162           00006                           EXTEND                                         
013032,000150: 26,2163           31704                           DCA      STBUFF     +4                         
013033,000151: 26,2164           53257                           DXCH     REFRCV     +4                         
013034,000152: 
013035,000153: 26,2165           00006                           EXTEND                                         
013036,000154: 26,2166           31706                           DCA      STBUFF     +6                         
013037,000155: 26,2167           53231                           DXCH     REFVRECT                              
013038,000156: 26,2170           00006                           EXTEND                                         
013039,000157: 26,2171           31706                           DCA      STBUFF     +6                         
013040,000158: 26,2172           53261                           DXCH     REFVCV                                
013041,000159: 26,2173           00006                           EXTEND                                         
013042,000160: 26,2174           31710                           DCA      STBUFF     +8D                        
013043,000161: 26,2175           53233                           DXCH     REFVRECT   +2                         
013044,000162: 26,2176           00006                           EXTEND                                         
013045,000163: 26,2177           31710                           DCA      STBUFF     +8D                        
013046,000164: 26,2200           53263                           DXCH     REFVCV     +2                         
013047,000165: 26,2201           00006                           EXTEND                                         
013048,000166: 26,2202           31712                           DCA      STBUFF     +10D                       
013049,000167: 26,2203           53235                           DXCH     REFVRECT   +4                         
013050,000168: 26,2204           00006                           EXTEND                                         
013051,000169: 26,2205           31712                           DCA      STBUFF     +10D                       
013052,000170: 26,2206           53265                           DXCH     REFVCV     +4                         
013053,000171: 26,2207           00006                           EXTEND                                         
013054,000172: 26,2210           31714                           DCA      STBUFF     +12D                       
013055,000173: 26,2211           53271                           DXCH     TE                                    
013056,000174: 26,2212           37761                           CA       ZERO                                  
013057,000175: 26,2213           55236                           TS       DELTAV                                
013058,000176: 
013059,000177: 26,2214           55237                           TS       DELTAV     +1                         
013060,000178: 26,2215           55240                           TS       DELTAV     +2                         
013061,000179: 26,2216           55241                           TS       DELTAV     +3                         
013062,000180: 26,2217           55242                           TS       DELTAV     +4                         
013063,000181: 26,2220           55243                           TS       DELTAV     +5                         
013064,000182: 26,2221           55244                           TS       NUV                                   
013065,000183: 26,2222           55245                           TS       NUV        +1                         
013066,000184: 26,2223           55246                           TS       NUV        +2                         
013067,000185: 

Page 308

013069,000187: 26,2224           55247                           TS       NUV        +3                         
013070,000188: 26,2225           55250                           TS       NUV        +4                         
013071,000189: 
013072,000190: 26,2226           55251                           TS       NUV        +5                         
013073,000191: 26,2227           55266                           TS       REFTC                                 
013074,000192: 26,2230           55267                           TS       REFTC      +1                         
013075,000193: 26,2231           55272                           TS       REFXKEP                               
013076,000194: 26,2232           55273                           TS       REFXKEP    +1                         
013077,000195: 26,2233           02403                           TC       UPQUIT                                
013078,000196: 26,2234           32440        SETUPRCK           CA       3SEC21                                
013079,000197: 26,2235           05701                           TC       WAITLIST                              
013080,000198: 26,2236  E4,1677                                  EBANK=   STBUFF                                
013081,000199: 26,2236           02241 54004                     2CADR    UPDOAGN                               
013082,000200: 
013083,000201: 26,2240           05605                           TC       ENDOFJOB                              
013084,000202: 26,2241           35667        UPDOAGN            CA       PRIO27                                
013085,000203: 26,2242           05523                           TC       NOVAC                                 
013086,000204: 26,2243  E4,1677                                  EBANK=   STBUFF                                
013087,000205: 26,2243           02246 54004                     2CADR    UPINHINT                              
013088,000206: 26,2245           05745                           TC       TASKOVER                              
013089,000207: 26,2246           00004        UPINHINT           INHINT                                         
013090,000208: 26,2247           02115                           TC       UPRETURN                              
013091,000209: 26,2250           31677        UPEND64            CA       STBUFF                                
013092,000210: 26,2251           55216                           TS       UPINDEX                               
013093,000211: 26,2252           35667                           CA       PRIO27                                
013094,000212: 
013095,000213: 26,2253           05534                           TC       FINDVAC                               
013096,000214: 26,2254  E4,1677                                  EBANK=   STBUFF                                
013097,000215: 26,2254           02347 62064                     2CADR    MGETUP                                
013098,000216: 
013099,000217: 26,2256           02403                           TC       UPQUIT                                
013100,000218: 26,2257           31677        UPEND67            CA       STBUFF                                
013101,000219: 26,2260           55216                           TS       UPINDEX                               
013102,000220: 26,2261           05243                           TC       POSTJUMP                              
013103,000221: 26,2262           62226                           CADR     DOV67                                 
013104,000222: 26,2263           31677        UPEND70            CA       STBUFF                                
013105,000223: 26,2264           55216                           TS       UPINDEX                               
013106,000224: 26,2265           31700                           CA       STBUFF     +1                         
013107,000225: 26,2266           55215                           TS       UPDT                                  
013108,000226: 26,2267           05243                           TC       POSTJUMP                              
013109,000227: 26,2270           62201                           CADR     DOV70                                 
013110,000228: 26,2271           31677        UPEND71            CA       STBUFF                                
013111,000229: 26,2272           55216                           TS       UPINDEX                               
013112,000230: 26,2273           31700                           CA       STBUFF     +1                         
013113,000231: 26,2274           55214                           TS       UPPHASE                               
013114,000232: 26,2275           05243                           TC       POSTJUMP                              
013115,000233: 26,2276           62204                           CADR     DOV71                                 
013116,000234: 26,2277           31677        UPEND72            CA       STBUFF                                
013117,000235: 26,2300           55216                           TS       UPINDEX                               
013118,000236: 
013119,000237: 26,2301           31700                           CA       STBUFF     +1                         
013120,000238: 26,2302           55214                           TS       UPPHASE                               
013121,000239: 

Page 309

013123,000241: 26,2303           31701                           CA       STBUFF     +2                         
013124,000242: 26,2304           55215                           TS       UPDT                                  
013125,000243: 26,2305           05243                           TC       POSTJUMP                              
013126,000244: 26,2306           62203                           CADR     DOV72                                 
013127,000245: 26,2307           31677        UPEND73            CA       STBUFF                                
013128,000246: 26,2310           55216                           TS       UPINDEX                               
013129,000247: 26,2311           05243                           TC       POSTJUMP                              
013130,000248: 26,2312           62210                           CADR     DOV73                                 
013131,000249: 
013132,000250: 26,2313           47754        UPEND75            CS       BIT2                                  #  V75
013133,000251: 26,2314           61722                           AD       COMPNUMB                              
013134,000252: 26,2315           50000                           INDEX    A                                     
013135,000253: 26,2316           02316                           TC       -0                                    
013136,000254: 26,2317           00006        I=1                EXTEND                                         
013137,000255: 26,2320           31701                           DCA      STBUFF     +1                         
013138,000256: 26,2321           53755                           DXCH     RP                                    
013139,000257: 26,2322           02403                           TC       UPQUIT                                
013140,000258: 26,2323           02347                           TC       I=2                                   
013141,000259: 26,2324           00075        21OCT75            OCT      75                                    
013142,000260: 26,2325           02361                           TC       I=4                                   
013143,000261: 26,2326           02101        STATENV            OCT      2101                                  
013144,000262: 26,2327           00006        I=3                EXTEND                                         
013145,000263: 26,2330           31701                           DCA      STBUFF     +1                         
013146,000264: 26,2331           53765                           DXCH     R1VEC                                 
013147,000265: 26,2332           00006                           EXTEND                                         
013148,000266: 26,2333           31703                           DCA      STBUFF     +3                         
013149,000267: 26,2334           53767                           DXCH     R1VEC      +2                         
013150,000268: 26,2335           00006                           EXTEND                                         
013151,000269: 26,2336           31705                           DCA      STBUFF     +5                         
013152,000270: 26,2337           53771                           DXCH     R1VEC      +4                         
013153,000271: 26,2340           00006                           EXTEND                                         
013154,000272: 26,2341           31707                           DCA      STBUFF     +7                         
013155,000273: 
013156,000274: 26,2342           53773                           DXCH     TINT                                  
013157,000275: 26,2343           00006                           EXTEND                                         
013158,000276: 26,2344           31711                           DCA      STBUFF     +9D                        
013159,000277: 26,2345           53775                           DXCH     RCO                                   
013160,000278: 26,2346           02403                           TC       UPQUIT                                
013161,000279: 26,2347           00006        I=2                EXTEND                                         
013162,000280: 26,2350           31701                           DCA      STBUFF     +1                         
013163,000281: 26,2351           53757                           DXCH     CPT6/2                                
013164,000282: 26,2352           00006                           EXTEND                                         
013165,000283: 26,2353           31703                           DCA      STBUFF     +3                         
013166,000284: 26,2354           53761                           DXCH     CPT6/2     +2                         
013167,000285: 26,2355           00006                           EXTEND                                         
013168,000286: 26,2356           31705                           DCA      STBUFF     +5                         
013169,000287: 26,2357           53763                           DXCH     CPT6/2     +4                         
013170,000288: 26,2360           02403                           TC       UPQUIT                                
013171,000289: 26,2361           00006        I=4                EXTEND                                         
013172,000290: 26,2362           31701                           DCA      STBUFF     +1                         
013173,000291: 26,2363           53765                           DXCH     R1VEC                                 
013174,000292: 26,2364           00006                           EXTEND                                         
013175,000293: 

Page 310

013177,000295: 26,2365           31703                           DCA      STBUFF     +3                         
013178,000296: 26,2366           53767                           DXCH     R1VEC      +2                         
013179,000297: 26,2367           00006                           EXTEND                                         
013180,000298: 26,2370           31705                           DCA      STBUFF     +5                         
013181,000299: 26,2371           53771                           DXCH     R1VEC      +4                         
013182,000300: 26,2372           00006                           EXTEND                                         
013183,000301: 26,2373           31707                           DCA      STBUFF     +7                         
013184,000302: 26,2374           53773                           DXCH     TINT                                  
013185,000303: 26,2375           04713                           TC       FREEDSP                               
013186,000304: 26,2376           04121                           TC       CHECKMM                               
013187,000305: 26,2377           00027                           OCT      27                                    
013188,000306: 26,2400           02403                           TC       +3                                    
013189,000307: 26,2401           31716                           CA       UPOLDMOD                              
013190,000308: 26,2402           04110                           TC       NEWMODEX   +3                         
013191,000309: 
013192,000310: 26,2403           05224        UPQUIT             TC       BANKCALL                              #  TERMINATES JOB
013193,000311: 26,2404           62373                           CADR     ENDUP                                 
013194,000312: 26,2405           00006        UPNVCALL           EXTEND                                         
013195,000313: 26,2406           23717                           QXCH     UPTEMP                                
013196,000314: 26,2407           04646                           TC       NVSBWAIT                              
013197,000315: 26,2410           04464                           TC       ENDIDLE                               
013198,000316: 26,2411           02375                           TC       UPQUIT     -6                         
013199,000317: 26,2412           01717                           TC       UPTEMP                                #  V33 RETURN TO Q
013200,000318: 26,2413           25717                           INCR     UPTEMP                                #      RETURN TO Q+1
013201,000319: 26,2414           01717                           TC       UPTEMP                                
013202,000320: 26,2415           00006        UPRANGE            EXTEND                                         
013203,000321: 26,2416           62425                           BZMF     UPRAUS                                #  C(A) LE ZERO RETURN TO Q
013204,000322: 26,2417           40000                           CS       A                                     
013205,000323: 26,2420           24000                           INCR     A                                     
013206,000324: 26,2421           61717                           AD       UPTEMP                                
013207,000325: 26,2422           00006                           EXTEND                                         
013208,000326: 26,2423           62425                           BZMF     UPRAUS                                #  C(A) GT C(LOC) RETURN TO Q
013209,000327: 26,2424           24002                           INCR     Q                                     
013210,000328: 26,2425           00002        UPRAUS             TC       Q                                     #  C(A) LE C(LOC) AND GT 0 RETURN TO Q+1
013211,000329: 26,2426           05224        21XCTALM           TC       BANKCALL                              
013212,000330: 26,2427           22053                           CADR     XACTALM                               
013213,000331: 
013214,000332: 26,2430           02000        UPE4               OCT      2000                                  
013215,000333: 
013216,000334: 26,2431           02102        OCTID              OCT      02102                                 
013217,000335: 26,2432           00003        AOFC               OCT      00003                                 
013218,000336: 26,2433           00007                           OCT      00007                                 
013219,000337: 26,2434           00013                           OCT      00013                                 
013220,000338: 26,2435           00011                           OCT      00011                                 
013221,000339: 26,2436           02320        UPAOFTP1           ECADR    UPTEMP1                               
013222,000340: 26,2437           02276        ASTBFM1            ECADR    STBUFF     -1                         
013223,000341: 26,2440           00454        3SEC21             DEC      300        B-14                       

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