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.

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

Page 305

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

Page 306

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

Page 307

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

Page 308

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

Page 309

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

Page 310

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