Source Code
These source-code files were reconstructed by Mike Stewart from dumps of the RETREAD 50 program stored in physical AGC core-rope modules (B1 and B2) belonging to the Computer History Museum, Mountain View, California. The reconstruction was aided by pre-existing source code for the AGC programs RETREAD 44 and AURORA 12. Read about the process here. Assembling this source code with yaYUL produces core ropes identical to those of the physical modules. Page-number references refer to corresponding sections of RETREAD 44 source code. No printouts of RETREAD 50 program listings are available. Names of variables and program constants of the form "UNKnnnn" appear in areas not yet correlated with other pre-existing source code, and which are therefore unknown. |
009892,000002: ## Copyright: Public domain.
009893,000003: ## Filename: BANK11.agc
009894,000004: ## Purpose: Part of the source code for AGC program Retread 50.
009895,000005: ## Assembler: yaYUL
009896,000006: ## Contact: Ron Burkey <info@sandroid.org>.
009897,000007: ## Website: www.ibiblio.org/apollo/Restoration.html
009898,000008: ## Mod history: 2019-06-12 MAS Recreated from Computer History Museum's
009899,000009: ## physical core-rope modules.
009900,000010:
009901,000011: 11,2000 SETLOC 32000
009902,000012: 11,2000 1202 EBANK= COMMAND
009903,000013:
009904,000014: 11,2000 37642 BANK11 CA BIT5
009905,000015: 11,2001 00006 EXTEND
009906,000016: 11,2002 05012 WOR 12
009907,000017:
009908,000018: 11,2003 32342 CA UNK2342
009909,000019: 11,2004 00004 INHINT
009910,000020: 11,2005 04251 TC WAITLIST
009911,000021: 11,2006 02011 22002 2CADR ZEROICDU
009912,000022:
009913,000023: 11,2010 04205 TC ENDOFJOB
009914,000024:
009915,000025: 11,2011 37653 ZEROICDU CAF ZERO
009916,000026: 11,2012 54032 TS CDUX
009917,000027: 11,2013 54033 TS CDUY
009918,000028: 11,2014 54034 TS CDUZ
009919,000029:
009920,000030: 11,2015 47642 CS BIT5
009921,000031: 11,2016 00006 EXTEND
009922,000032: 11,2017 03012 WAND 12
009923,000033:
009924,000034: 11,2020 04321 TC TASKOVER
009925,000035:
009926,000036: # IMU COARSE ALIGN MODE.
009927,000037:
009928,000038: 11,2021 37643 IMUCOARS CAF BIT4
009929,000039: 11,2022 00006 EXTEND
009930,000040: 11,2023 05012 WOR 12
009931,000041:
009932,000042: 11,2024 32344 CA UNK2344
009933,000043: 11,2025 00004 INHINT
009934,000044: 11,2026 04251 TC WAITLIST
009935,000045: 11,2027 02032 22002 2CADR COARS
009936,000046:
009937,000047: 11,2031 04205 TC ENDOFJOB
009938,000048:
009939,000049: 11,2032 37641 COARS CAF BIT6
009940,000050: 11,2033 00006 EXTEND
009941,000051: 11,2034 05012 WOR 12
009942,000052:
009943,000053: 11,2035 37645 CAF TWO # SET CDU INDICATOR
009944,000054: 11,2036 55200 COARS1 TS CDUIND
009945,000055:
009946,000056: 11,2037 51200 INDEX CDUIND # COMPUTE THETAD - THETAA IN 1:S
009947,000057: 11,2040 30716 CA THETAD # COMPLEMENT FORM
009948,000058: 11,2041 00006 EXTEND
009949,000059: 11,2042 51200 INDEX CDUIND
009950,000060: 11,2043 20032 MSU CDUX
009951,000061: 11,2044 00006 EXTEND
009952,000062: 11,2045 77632 MP BIT13 # SHIFT RIGHT 2
009953,000063: 11,2046 56001 XCH L # ROUND
009954,000064: 11,2047 60000 DOUBLE
009955,000065: 11,2050 55201 TS ITEMP1
009956,000066: 11,2051 12053 TCF +2
009957,000067: 11,2052 26001 ADS L
009958,000068:
009959,000069: 11,2053 51200 INDEX CDUIND # DIFFERENCE TO BE COMPUTED
009960,000070: 11,2054 23202 LXCH COMMAND
009961,000071: 11,2055 11200 CCS CDUIND
009962,000072: 11,2056 02036 TC COARS1
009963,000073:
009964,000074: 11,2057 32342 CA UNK2342
009965,000075: 11,2060 04251 TC WAITLIST
009966,000076: 11,2061 02064 22002 2CADR COARS2
009967,000077:
009968,000078: 11,2063 04321 TC TASKOVER
009969,000079:
009970,000080: 11,2064 37653 COARS2 CAF ZERO
009971,000081: 11,2065 55201 TS ITEMP1 # SETS TO +0.
009972,000082: 11,2066 37645 CAF TWO # SET CDU INDICATOR
009973,000083: 11,2067 55200 +3 TS CDUIND
009974,000084:
009975,000085: 11,2070 51200 INDEX CDUIND
009976,000086: 11,2071 11202 CCS COMMAND # NUMBER OF PULSES REQUIRED
009977,000087: 11,2072 02076 TC COMPOS # GREATER THAN MAX ALLOWED
009978,000088: 11,2073 02105 TC NEXTCDU +1
009979,000089: 11,2074 02117 TC COMNEG
009980,000090: 11,2075 02105 TC NEXTCDU +1
009981,000091:
009982,000092: 11,2076 62350 COMPOS AD -COMMAX # COMMAX = MAX NUMBER OF PULSES ALLOWED
009983,000093: 11,2077 00006 EXTEND # MINUS ONE
009984,000094: 11,2100 62127 BZMF COMZERO
009985,000095: 11,2101 51200 INDEX CDUIND
009986,000096: 11,2102 55202 TS COMMAND # REDUCE COMMAND BY MAX NUMBER OF PULSES
009987,000097: 11,2103 42351 CS -COMMAX- # ALLOWED
009988,000098:
009989,000099: 11,2104 25201 NEXTCDU INCR ITEMP1
009990,000100: 11,2105 51200 INDEX CDUIND
009991,000101: 11,2106 54050 TS CDUXCMD # SET UP COMMAND REGISTER.
009992,000102:
009993,000103: 11,2107 11200 CCS CDUIND
009994,000104: 11,2110 02067 TC COARS2 +3
009995,000105:
009996,000106: 11,2111 11201 CCS ITEMP1 # SEE IF ANY PULSES TO GO OUT.
009997,000107: 11,2112 02133 TC SENDPULS
009998,000108: 11,2113 02035 TC COARS1 -1
009999,000109: 11,2114 00006 EXTEND
010000,000110: 11,2115 03012 WAND 12
010001,000111:
010002,000112: 11,2116 04321 TC TASKOVER
010003,000113:
010004,000114: 11,2117 62350 COMNEG AD -COMMAX
010005,000115: 11,2120 00006 EXTEND
010006,000116: 11,2121 62127 BZMF COMZERO
010007,000117: 11,2122 40000 COM
010008,000118: 11,2123 51200 INDEX CDUIND
010009,000119: 11,2124 55202 TS COMMAND
010010,000120: 11,2125 32351 CA -COMMAX-
010011,000121: 11,2126 02104 TC NEXTCDU
010012,000122:
010013,000123: 11,2127 37653 COMZERO CAF ZERO
010014,000124: 11,2130 51200 INDEX CDUIND
010015,000125: 11,2131 57202 XCH COMMAND
010016,000126: 11,2132 02104 TC NEXTCDU
010017,000127:
010018,000128: 11,2133 32360 SENDPULS CAF 13,14,15
010019,000129: 11,2134 00006 EXTEND
010020,000130: 11,2135 05014 WOR 14
010021,000131: 11,2136 32345 CAF 600MS
010022,000132: 11,2137 04251 TC WAITLIST
010023,000133: 11,2140 02064 22002 2CADR COARS2
010024,000134: 11,2142 04321 TC TASKOVER
010025,000135:
010026,000136: 11,2143 42355 IMUFINE CS BITS4-6 # RESET ZERO, COARSE, AND ECTR ENABLE.
010027,000137: 11,2144 00006 EXTEND
010028,000138: 11,2145 03012 WAND 12
010029,000139:
010030,000140: 11,2146 37645 CAF TWO
010031,000141: 11,2147 55205 TS UNK1205
010032,000142: 11,2150 60000 DOUBLE
010033,000143: 11,2151 55206 TS UNK1206
010034,000144: 11,2152 67646 AD ONE
010035,000145: 11,2153 55207 TS UNK1207
010036,000146:
010037,000147: 11,2154 37641 CAF BIT6
010038,000148: 11,2155 00006 EXTEND
010039,000149: 11,2156 05014 WOR 14
010040,000150:
010041,000151: 11,2157 32343 CA UNK2343
010042,000152: 11,2160 00004 INHINT
010043,000153: 11,2161 04251 TC WAITLIST
010044,000154: 11,2162 02165 22002 2CADR UNK2165
010045,000155:
010046,000156: 11,2164 04205 TC ENDOFJOB
010047,000157:
010048,000158: 11,2165 51206 UNK2165 INDEX UNK1206
010049,000159: 11,2166 11210 CCS UNK1210
010050,000160: 11,2167 02173 TC +4
010051,000161: 11,2170 02220 TC UNK2220
010052,000162: 11,2171 02173 TC +2
010053,000163: 11,2172 02220 TC UNK2220
010054,000164:
010055,000165: 11,2173 51206 +4 INDEX UNK1206
010056,000166: 11,2174 55210 TS UNK1210
010057,000167:
010058,000168: 11,2175 51207 INDEX UNK1207
010059,000169: 11,2176 25210 INCR UNK1210
010060,000170:
010061,000171: 11,2177 37626 CAF POSMAX
010062,000172: 11,2200 54047 TS GYROCTR
010063,000173: 11,2201 32352 CA UNK2352
010064,000174: 11,2202 02203 TC +1
010065,000175: 11,2203 04251 TC WAITLIST
010066,000176: 11,2204 02165 22002 2CADR UNK2165
010067,000177:
010068,000178: 11,2206 51207 UNK2206 INDEX UNK1207
010069,000179: 11,2207 11210 CCS UNK1210
010070,000180: 11,2210 37653 CAF ZERO
010071,000181: 11,2211 12213 TCF +2
010072,000182: 11,2212 37636 CAF BIT9
010073,000183:
010074,000184: 11,2213 51205 INDEX UNK1205
010075,000185: 11,2214 62361 AD UNK2361
010076,000186: 11,2215 00006 EXTEND
010077,000187: 11,2216 01014 WRITE 14
010078,000188:
010079,000189: 11,2217 04321 TC TASKOVER
010080,000190:
010081,000191: 11,2220 51207 UNK2220 INDEX UNK1207
010082,000192: 11,2221 11210 CCS UNK1210
010083,000193: 11,2222 02226 TC +4
010084,000194: 11,2223 02244 TC UNK2244
010085,000195: 11,2224 02226 TC +2
010086,000196: 11,2225 02244 TC UNK2244
010087,000197:
010088,000198: 11,2226 67646 AD ONE
010089,000199: 11,2227 54047 TS GYROCTR
010090,000200:
010091,000201: 11,2230 62353 AD UNK2353
010092,000202: 11,2231 00006 EXTEND
010093,000203: 11,2232 62244 BZMF UNK2244
010094,000204:
010095,000205: 11,2233 37635 CAF BIT10
010096,000206: 11,2234 00006 EXTEND
010097,000207: 11,2235 70047 MP GYROCTR
010098,000208: 11,2236 67645 AD TWO
010099,000209: 11,2237 02240 TC +1
010100,000210: 11,2240 04251 TC WAITLIST
010101,000211: 11,2241 02244 22002 2CADR UNK2244
010102,000212:
010103,000213: 11,2243 02206 TC UNK2206
010104,000214:
010105,000215: 11,2244 11205 UNK2244 CCS UNK1205
010106,000216: 11,2245 12252 TCF +5
010107,000217: 11,2246 47641 CS BIT6
010108,000218: 11,2247 00006 EXTEND
010109,000219: 11,2250 03014 WAND 14
010110,000220:
010111,000221: 11,2251 04321 TC TASKOVER
010112,000222:
010113,000223: 11,2252 55205 TS UNK1205
010114,000224: 11,2253 60000 DOUBLE
010115,000225: 11,2254 55206 TS UNK1206
010116,000226: 11,2255 67646 AD ONE
010117,000227: 11,2256 55207 TS UNK1207
010118,000228: 11,2257 02165 TC UNK2165
010119,000229:
010120,000230: 11,2260 47630 UNK2260 CS BIT15
010121,000231: 11,2261 00006 EXTEND
010122,000232: 11,2262 03012 WAND 12
010123,000233:
010124,000234: 11,2263 37631 CAF BIT14
010125,000235: 11,2264 00006 EXTEND
010126,000236: 11,2265 02030 RAND 30
010127,000237: 11,2266 10000 CCS A
010128,000238: 11,2267 02271 TC +2
010129,000239: 11,2270 02276 TC +6
010130,000240: 11,2271 32346 CA UNK2346
010131,000241: 11,2272 04251 TC WAITLIST
010132,000242: 11,2273 02260 22002 2CADR UNK2260
010133,000243:
010134,000244: 11,2275 04321 TC TASKOVER
010135,000245:
010136,000246: 11,2276 32356 CA UNK2356
010137,000247: 11,2277 00006 EXTEND
010138,000248: 11,2300 05012 WOR 12
010139,000249: 11,2301 32347 CA UNK2347
010140,000250: 11,2302 02303 TC +1
010141,000251: 11,2303 04251 TC WAITLIST
010142,000252: 11,2304 02307 22002 2CADR UNK2307
010143,000253:
010144,000254: 11,2306 04321 TC TASKOVER
010145,000255:
010146,000256: 11,2307 37630 UNK2307 CAF BIT15
010147,000257: 11,2310 00006 EXTEND
010148,000258: 11,2311 05012 WOR 12
010149,000259:
010150,000260: 11,2312 37631 UNK2312 CAF BIT14
010151,000261: 11,2313 00006 EXTEND
010152,000262: 11,2314 02030 RAND 30
010153,000263: 11,2315 10000 CCS A
010154,000264: 11,2316 02320 TC +2
010155,000265: 11,2317 02327 TC +8
010156,000266: 11,2320 42357 CS UNK2357
010157,000267: 11,2321 00006 EXTEND
010158,000268: 11,2322 03012 WAND 12
010159,000269: 11,2323 37641 CAF BIT6
010160,000270: 11,2324 00006 EXTEND
010161,000271: 11,2325 05012 WOR 12
010162,000272:
010163,000273: 11,2326 04321 TC TASKOVER
010164,000274:
010165,000275: 11,2327 32341 CA UNK2341
010166,000276: 11,2330 02331 TC +1
010167,000277: 11,2331 04251 TC WAITLIST
010168,000278: 11,2332 02312 22002 2CADR UNK2312
010169,000279:
010170,000280: 11,2334 04321 TC TASKOVER
010171,000281:
010172,000282: 11,2335 42355 UNK2335 CS BITS4-6
010173,000283: 11,2336 00006 EXTEND
010174,000284: 11,2337 03012 WAND 12
010175,000285: 11,2340 04205 TC ENDOFJOB
010176,000286:
010177,000287: 11,2341 00001 UNK2341 OCT 1
010178,000288: 11,2342 00002 UNK2342 OCT 2
010179,000289: 11,2343 00003 UNK2343 OCT 3
010180,000290: 11,2344 00005 UNK2344 OCT 5
010181,000291: 11,2345 00074 600MS DEC 60 B-14
010182,000292: 11,2346 00144 UNK2346 OCT 144
010183,000293: 11,2347 21450 UNK2347 OCT 21450
010184,000294: 11,2350 77500 -COMMAX DEC -191 B-14
010185,000295: 11,2351 77477 -COMMAX- DEC -192 B-14
010186,000296: 11,2352 01001 UNK2352 OCT 1001
010187,000297: 11,2353 77757 UNK2353 OCT 77757
010188,000298: 11,2354 00050 UNK2354 OCT 50
010189,000299: 11,2355 00070 BITS4-6 OCT 00070
010190,000300: 11,2356 00030 UNK2356 OCT 30
010191,000301: 11,2357 40020 UNK2357 OCT 40020
010192,000302: 11,2360 70000 13,14,15 OCT 70000
010193,000303: 11,2361 01140 UNK2361 OCT 1140
010194,000304: 11,2362 01340 OCT 1340
010195,000305: 11,2363 01240 OCT 1240
010196,000306:
010197,000307: 11,2364 02000 LST2FAN TC BANK11
010198,000308: 11,2365 02021 TC IMUCOARS
010199,000309: 11,2366 02335 TC UNK2335
010200,000310: 11,2367 02143 TC IMUFINE
010201,000311:
010202,000312: 11,2370 00004 INHINT
010203,000313: 11,2371 37646 CAF ONE
010204,000314: 11,2372 04251 TC WAITLIST
010205,000315: 11,2373 02260 22002 2CADR UNK2260
010206,000316: 11,2375 04205 TC ENDOFJOB
End of include-file BANK11.agc. Parent file is MAIN.agc