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 GROUPNote 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