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