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