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. |
008204,000002: ## Copyright: Public domain.
008205,000003: ## Filename: AGC_BLK2_INSTRUCTION_CHECK.agc
008206,000004: ## Purpose: Part of the source code for AGC program Retread 50.
008207,000005: ## Assembler: yaYUL
008208,000006: ## Contact: Ron Burkey <info@sandroid.org>.
008209,000007: ## Website: www.ibiblio.org/apollo/Restoration.html
008210,000008: ## Mod history: 2019-06-12 MAS Recreated from Computer History Museum's
008211,000009: ## physical core-rope modules.
008212,000010:
|
|
Page 210 |
008214,000012: 4663 SETLOC ABORT +1
008215,000013:
008216,000014: # ADDRESSES OF ERASABLE REGISTERS
008217,000015: 4663 01034 ADRS1 ADRES KEEP1
008218,000016: 4664 01035 ADRS2 ADRES KEEP2
008219,000017: 4665 01036 ADRS3 ADRES KEEP3
008220,000018: 4666 02411 ADRS4 ADRES SELF1
008221,000019: 4667 02417 ADRS5 ADRES SELF2
008222,000020: 4670 04725 ADRS6 ADRES S+MAX
008223,000021: 4671 02473 ADRS7 ADRES SELF3
008224,000022:
008225,000023: # CONSTANTS USED THROUGHOUT THE INSTRUCTIONS CHECK
008226,000024: 4672 00001 SBIT1 OCTAL 00001
008227,000025: 4673 00002 SBIT2 OCTAL 00002
008228,000026: 4674 00004 SBIT3 OCTAL 00004
008229,000027: 4675 00010 SBIT4 OCTAL 00010
008230,000028: 4676 00020 SBIT5 OCTAL 00020
008231,000029: 4677 00040 SBIT6 OCTAL 00040
008232,000030: 4700 00100 SBIT7 OCTAL 00100
008233,000031: 4701 00200 SBIT8 OCTAL 00200
008234,000032: 4702 00400 SBIT9 OCTAL 00400
008235,000033: 4703 01000 SBIT10 OCTAL 01000
008236,000034: 4704 02000 SBIT11 OCTAL 02000
008237,000035: 4705 04000 SBIT12 OCTAL 04000
008238,000036: 4706 10000 SBIT13 OCTAL 10000
008239,000037: 4707 20000 SBIT14 OCTAL 20000
008240,000038: 4710 40000 SBIT15 OCTAL 40000
008241,000039:
008242,000040: 4711 00000 S+ZERO OCTAL 00000
008243,000041: 4712 00001 S+1 OCTAL 00001
008244,000042: 4713 00002 S+2 OCTAL 00002
008245,000043: 4714 00003 S+3 OCTAL 00003
008246,000044: 4715 00004 S+4 OCTAL 00004
008247,000045: 4716 00005 S+5 OCTAL 00005
008248,000046: 4717 00006 S+6 OCTAL 00006
008249,000047: 4720 00007 S+7 OCTAL 00007
008250,000048: 4721 00077 S6BITS OCTAL 00077
008251,000049: 4722 00177 S7BITS OCTAL 00177
008252,000050: 4723 17777 S13BITS OCTAL 17777
008253,000051: 4724 25252 SODD OCTAL 25252 # SEVEN ONE BITS
008254,000052: 4725 37777 S+MAX OCTAL 37777
008255,000053: 4726 40000 S-MAX OCTAL 40000
008256,000054: 4727 40400 ALARMCON OCTAL 40400
008257,000055: 4730 52500 SINOUT1 OCTAL 52500
008258,000056: 4731 52525 SEVENS OCTAL 52525 # EIGHT ONE BITS
008259,000057: 4732 52552 SINOUT2 OCTAL 52552
008260,000058: 4733 57761 CYRCON OCTAL 57761
008261,000059: 4734 77725 SINOUT3 OCTAL 77725
008262,000060: 4735 77760 S-15 OCTAL 77760
008263,000061: 4736 77761 S-14 OCTAL 77761
008264,000062: 4737 77770 S-7 OCTAL 77770
|
|
Page 211 |
008266,000064: 4740 77771 S-6 OCTAL 77771
008267,000065: 4741 77772 S-5 OCTAL 77772
008268,000066: 4742 77773 S-4 OCTAL 77773
008269,000067: 4743 77774 S-3 OCTAL 77774
008270,000068: 4744 77775 S-2 OCTAL 77775
008271,000069: 4745 77776 S-1 OCTAL 77776
008272,000070: 4746 77777 S-ZERO OCTAL 77777
008273,000071:
008274,000072: # NEXT TWO CONSTANTS ARE USED IN THE DEVIDE SUBROUTINE
008275,000073: 4747 14000 DV1CON OCTAL 14000
008276,000074: 4750 37776 DV2CON OCTAL 37776
008277,000075:
008278,000076: # NEXT TWO CONSTANTS ARE ADDRESSESS USED BY EXTRACODE INDEX INSTRUCTIONS
008279,000077: 4751 04712 ADRS+1 ADRES S+1
008280,000078: 4752 04747 ADRSDV1 ADRES DV1CON
008281,000079:
008282,000080: 4753 40000 CS A
008283,000081: 4754 10000 -0CHK CCS A
008284,000082: 4755 14770 TCF ERRORS
008285,000083: 4756 14770 TCF ERRORS
008286,000084: 4757 14770 TCF ERRORS
008287,000085: 4760 00002 TC Q
008288,000086:
008289,000087: 4761 40000 CS A
008290,000088: 4762 10000 -1CHK CCS A
008291,000089: 4763 14770 TCF ERRORS
008292,000090: 4764 14770 TCF ERRORS
008293,000091: 4765 10000 CCS A
008294,000092: 4766 14770 TCF ERRORS
008295,000093: 4767 00002 TC Q
008296,000094:
008297,000095:
008298,000096: 4770 56002 ERRORS XCH Q
008299,000097: 4771 55044 TS SFAIL # SAVE Q FOR FAILURE LOCATION
|
|
!! START CHANGE FOR RETREAD 50 !! |
008301,000099: 4772 30004 CA FBANK
008302,000100: 4773 55045 TS SFAIL +1
|
|
!! END CHANGE FOR RETREAD 50 !! |
008304,000102: 4774 25046 INCR ERCOUNT # KEEP TRACK OF NUMBER OF MALFUNCTIONS
008305,000103: 4775 00004 INHINT # TURN ON PROGRAM ALARM LIGHT
008306,000104: 4776 44727 CS ALARMCON
008307,000105: 4777 70675 MASK DSPTAB +11D
008308,000106: 5000 64727 AD ALARMCON
008309,000107: 5001 54675 TS DSPTAB +11D
008310,000108: 5002 00003 RELINT
008311,000109:
008312,000110: # IF C(SMODE) IS +NON-ZERO START CHECKING AGAIN AT TCCHK
008313,000111: # IF C(SMODE) IS + PUT +0 IN SMODE AND IDLE
008314,000112: 5003 31050 CA SMODE
008315,000113: 5004 00006 EXTEND
008316,000114: 5005 65007 BZMF STOPCHK
008317,000115: 5006 05012 TC SMODECHK
008318,000116: 5007 34711 STOPCHK CA S+ZERO
008319,000117: 5010 55050 TS SMODE
|
|
Page 212 |
008321,000119: 5011 04224 TC CHECKNJ
008322,000120: 5012 11050 SMODECHK CCS SMODE
008323,000121: 5013 05016 TC +3
008324,000122: 5014 05011 TC SMODECHK -1
008325,000123: 5015 05016 TC +1
008326,000124: 5016 04224 TC CHECKNJ
008327,000125: 5017 35021 CAF STRTCHK
008328,000126: 5020 04105 TC BANKJUMP # TO START OF CHECKING ROUTINES
008329,000127: 5021 16003 STRTCHK CADR TCCHK
008330,000128:
008331,000129: 07,2000 SETLOC 26000
008332,000130:
008333,000131: 07,2000 34711 CA S+ZERO # INITIALIZE COUNT REGISTER
008334,000132: 07,2001 55046 TS ERCOUNT
008335,000133: 07,2002 55047 TS SCOUNT
008336,000134:
008337,000135: # NORMAL USE OF TC AND TCF
008338,000136: 07,2003 02005 TCCHK TC +2
008339,000137: 07,2004 02011 TC CCSCHK
008340,000138: 07,2005 12007 TCF +2
008341,000139: 07,2006 04770 TC ERRORS
008342,000140: 07,2007 00002 TC Q
008343,000141: 07,2010 04770 TC ERRORS
008344,000142:
008345,000143: # NORMAL USE OF CA, CS, AND CCS
008346,000144: 07,2011 34743 CCSCHK CA S-3
008347,000145: 07,2012 55034 TS KEEP1
008348,000146: 07,2013 11034 CCS KEEP1
008349,000147: 07,2014 04770 TC ERRORS
008350,000148: 07,2015 04770 TC ERRORS
008351,000149: 07,2016 02020 TC +2
008352,000150: 07,2017 04770 TC ERRORS
008353,000151: 07,2020 10000 CCS A # C(A) =+2, RESULT OF CCS -NUMBER
008354,000152: 07,2021 02025 TC +4
008355,000153: 07,2022 04770 TC ERRORS
008356,000154: 07,2023 04770 TC ERRORS
008357,000155: 07,2024 04770 TC ERRORS
008358,000156: 07,2025 10000 CCS A # C(A) = +1, RESULT OF CCS + NUMBER
008359,000157: 07,2026 02032 TC +4
008360,000158: 07,2027 04770 TC ERRORS
008361,000159: 07,2030 04770 TC ERRORS
008362,000160: 07,2031 04770 TC ERRORS
008363,000161: 07,2032 10000 CCS A # C(A) = +0, RESULT OF CCS + NUMBER
008364,000162: 07,2033 04770 TC ERRORS
008365,000163: 07,2034 02037 TC +3
008366,000164: 07,2035 04770 TC ERRORS
008367,000165: 07,2036 04770 TC ERRORS
008368,000166: 07,2037 40000 CS A
008369,000167: 07,2040 10000 CCS A # C(A) = -0, RESULT OF CCS +0
008370,000168: 07,2041 04770 TC ERRORS
|
|
Page 213 |
008372,000170: 07,2042 04770 TC ERRORS
008373,000171: 07,2043 04770 TC ERRORS
008374,000172: 07,2044 10000 CCS A # RESULT OF CCS -0
008375,000173: 07,2045 04770 TC ERRORS
008376,000174: 07,2046 02051 TC +3
008377,000175: 07,2047 04770 TC ERRORS
008378,000176: 07,2050 04770 TC ERRORS
008379,000177:
008380,000178: # NORMAL USE OF MASK
008381,000179: 07,2051 44746 MSKCHK CS S-ZERO
008382,000180: 07,2052 74746 MASK S-ZERO # 00000, 77777
008383,000181: 07,2053 04753 TC -0CHK -1
008384,000182: 07,2054 44711 CS S+ZERO
008385,000183: 07,2055 74711 MASK S+ZERO # 77777, 00000
008386,000184: 07,2056 04753 TC -0CHK -1
008387,000185: 07,2057 34711 CA S+ZERO
008388,000186: 07,2060 74711 MASK S+ZERO # 00000, 00000
008389,000187: 07,2061 04753 TC -0CHK -1
008390,000188: 07,2062 34746 CA S-ZERO
008391,000189: 07,2063 74746 MASK S-ZERO # 77777, 77777
008392,000190: 07,2064 04754 TC -0CHK
008393,000191: # NO EDIT FEATURE OF MASK IS CHECKED
008394,000192: # BITS 9-14 OF WRITE LINES GO TO BITS 1-7 OF EDOP
008395,000193: 07,2065 34746 CA S-ZERO # 77777
008396,000194: 07,2066 54023 TS EDOP # 00177
008397,000195: 07,2067 70023 MASK EDOP # 00177
008398,000196: 07,2070 55034 TS KEEP1 # 00177
008399,000197: 07,2071 70023 MASK EDOP # 00177
008400,000198: 07,2072 40000 CS A # 77600
008401,000199: 07,2073 61034 AD KEEP1 # 77777
008402,000200: 07,2074 04754 TC -0CHK
008403,000201: # CHECK MASK OF AN SC REGISTER
008404,000202: 07,2075 34712 CA S+1
008405,000203: 07,2076 54001 TS L
008406,000204: 07,2077 34746 CA S-ZERO
008407,000205: 07,2100 70001 MASK L
008408,000206: 07,2101 04761 TC -1CHK -1
008409,000207:
008410,000208: # NORMAL USE OF XCH, AD, AND TS
008411,000209: 07,2102 34725 CA S+MAX # 37777
008412,000210: 07,2103 55034 TS KEEP1
008413,000211: 07,2104 61034 AD KEEP1 # 01 - 37776
008414,000212: 07,2105 55035 TS KEEP2 # 37776
008415,000213: 07,2106 04770 TC ERRORS
008416,000214: 07,2107 04761 TC -1CHK -1
008417,000215: 07,2110 57034 XCH KEEP1 # SKEEP1 NOW +0
008418,000216: 07,2111 40000 CS A # 40000
008419,000217: 07,2112 60000 AD A # 10 - 00001
008420,000218: 07,2113 55036 TS KEEP3 # 40001, C(A) = -1
008421,000219: 07,2114 04770 TC ERRORS
|
|
Page 214 |
008423,000221: 07,2115 61036 AD KEEP3 # C(A) = 40000
008424,000222: 07,2116 61035 AD KEEP2 # C(A) = -1
008425,000223: 07,2117 61034 AD KEEP1 # C(A) = -1
008426,000224: 07,2120 55037 TS KEEP4 # -1
008427,000225: 07,2121 41037 CS KEEP4 # +1
008428,000226: 07,2122 04761 TC -1CHK -1
008429,000227:
008430,000228: # NORMAL USE OF INCR
008431,000229: # NOT CHECKING COUNTER INTERRUPT
008432,000230: 07,2123 34725 CA S+MAX # 37777
008433,000231: 07,2124 55034 TS KEEP1
008434,000232: 07,2125 25034 INCR KEEP1 # +0
008435,000233: 07,2126 25034 INCR KEEP1 # +1
008436,000234: 07,2127 25034 INCR KEEP1 # +2
008437,000235: 07,2130 64726 AD S-MAX
008438,000236: 07,2131 04754 TC -0CHK # CHECK C(A) HAS NOT CHANGED
008439,000237: 07,2132 41034 CS KEEP1
008440,000238: 07,2133 55034 TS KEEP1 # -2
008441,000239: 07,2134 25034 INCR KEEP1 # -1
008442,000240: 07,2135 31034 CA KEEP1
008443,000241: 07,2136 04762 TC -1CHK
008444,000242: # CHECK INCREMENT OF AN SC REGISTER
008445,000243: 07,2137 34744 CA S-2
008446,000244: 07,2140 54001 TS L
008447,000245: 07,2141 24001 INCR L
008448,000246: 07,2142 30001 CA L
008449,000247: 07,2143 04762 TC -1CHK
008450,000248:
008451,000249: # NORMAL USE OF ADS
008452,000250: 07,2144 34706 CA SBIT13
008453,000251: 07,2145 55034 TS KEEP1 # 10000
008454,000252: 07,2146 27034 ADS KEEP1 # 20000
008455,000253: 07,2147 27034 ADS KEEP1 # OV WITH +0
008456,000254: 07,2150 55035 TS KEEP2
008457,000255: 07,2151 04770 TC ERRORS
008458,000256: 07,2152 41034 CS KEEP1
008459,000257: 07,2153 04754 TC -0CHK
008460,000258: # CHECKS ADS OF AN SC REGISTER
008461,000259: 07,2154 34723 CA S13BITS # 17777
008462,000260: 07,2155 54001 TS L
008463,000261: 07,2156 64712 AD S+1 # C(A) = 20000
008464,000262: 07,2157 26001 ADS L
008465,000263: 07,2160 64726 AD S-MAX
008466,000264: 07,2161 04754 TC -0CHK
008467,000265: 07,2162 40001 CS L
008468,000266: 07,2163 64725 AD S+MAX
008469,000267: 07,2164 04754 TC -0CHK
008470,000268:
008471,000269: # NORMAL USE OF LXCH
008472,000270: 07,2165 34712 CA S+1
|
|
Page 215 |
008474,000272: 07,2166 55034 TS KEEP1 # +1
008475,000273: 07,2167 23034 LXCH KEEP1 # +1 IN L
008476,000274: 07,2170 40000 CS A
008477,000275: 07,2171 55035 TS KEEP2 # -1 IN KEEP2
008478,000276: 07,2172 23035 LXCH KEEP2 # L = -1, KEEP2 = +1
008479,000277: 07,2173 41035 CS KEEP2
008480,000278: 07,2174 04762 TC -1CHK
008481,000279: 07,2175 30001 CA L
008482,000280: 07,2176 04762 TC -1CHK
008483,000281:
008484,000282: # UNDERFLOW AND OVERFLOW IS LOST IN L REGISTER
008485,000283: 07,2177 34725 CA S+MAX
008486,000284: 07,2200 60000 AD A
008487,000285: 07,2201 54001 TS L # OV WITH 37776
008488,000286: 07,2202 04770 TC ERRORS
008489,000287: 07,2203 44725 CS S+MAX
008490,000288: 07,2204 60000 AD A # UV WITH 40001
008491,000289: 07,2205 22000 LXCH A # C(A) = 37776, C(L) = 40001
008492,000290: 07,2206 55034 TS KEEP1 # 37776
008493,000291: 07,2207 02211 TC +2
008494,000292: 07,2210 04770 TC ERRORS
008495,000293: 07,2211 30001 CA L
008496,000294: 07,2212 55035 TS KEEP2 # 40001
008497,000295: 07,2213 02215 TC +2
008498,000296: 07,2214 04770 TC ERRORS
008499,000297: 07,2215 61034 AD KEEP1 # -0
008500,000298: 07,2216 04754 TC -0CHK
008501,000299:
008502,000300: # NORMAL USE OF DXCH
008503,000301: 07,2217 34725 CA S+MAX
008504,000302: 07,2220 55035 TS KEEP2 # 37777, K+1
008505,000303: 07,2221 40000 CS A
008506,000304: 07,2222 54001 TS L # 40000
008507,000305: 07,2223 64712 AD S+1
008508,000306: 07,2224 55034 TS KEEP1 # 40001, K
008509,000307: 07,2225 40000 CS A # 37776
008510,000308: 07,2226 53035 DXCH KEEP1
008511,000309: # A = 40001, L = 37777 ....... KEEP1 = 37776, KEEP2 = 40000
008512,000310: 07,2227 60001 AD L
008513,000311: 07,2230 04761 TC -1CHK -1
008514,000312: 07,2231 31034 CA KEEP1
008515,000313: 07,2232 61035 AD KEEP2
008516,000314: 07,2233 04762 TC -1CHK
008517,000315:
008518,000316: # NORMAL USE OF DAS (6 CHECKS)
008519,000317: # IF ADDRESS OF K DOES NOT = ZERO, C(L) = +0 AND C(A) = NET OVERFLOW
008520,000318: # C(A) = +0 IF NO OVERFLOW OR UNDERFLOW
008521,000319: # DAD++ WITH NO OVERFLOW
008522,000320: 07,2234 34723 DAS++ CAF S13BITS
008523,000321: 07,2235 55034 TS KEEP1 # 17777
|
|
Page 216 |
008525,000323: 07,2236 55035 TS KEEP2 # 17777
008526,000324: 07,2237 54001 TS L # 17777
008527,000325: 07,2240 64712 AD S+1 # 20000
008528,000326: 07,2241 21035 DAS KEEP1
008529,000327: # C(KEEP1) = 37777, C(KEEP2) = 377776
008530,000328: 07,2242 04753 TC -0CHK -1
008531,000329: 07,2243 56001 XCH L
008532,000330: 07,2244 04753 TC -0CHK -1
008533,000331: 07,2245 41034 CS KEEP1
008534,000332: 07,2246 61035 AD KEEP2
008535,000333: 07,2247 04762 TC -1CHK
008536,000334: # DAS++ WITH OVERFLOW
008537,000335: 07,2250 34725 DAS++OV CA S+MAX
008538,000336: 07,2251 55034 TS KEEP1 # 37777
008539,000337: 07,2252 55035 TS KEEP2 # 37777
008540,000338: 07,2253 54001 TS L # 37777
008541,000339: 07,2254 34712 CA S+1 # +1
008542,000340: 07,2255 21035 DAS KEEP1
008543,000341: # C(KEEP1) = +1, C(KEEP2) = 37776, C(A) = +1,
008544,000342: 07,2256 04761 TC -1CHK -1
008545,000343: 07,2257 56001 XCH L
008546,000344: 07,2260 04753 TC -0CHK -1
008547,000345: 07,2261 41034 CS KEEP1
008548,000346: 07,2262 04762 TC -1CHK
008549,000347: 07,2263 34726 CA S-MAX
008550,000348: 07,2264 61035 AD KEEP2
008551,000349: 07,2265 04762 TC -1CHK
008552,000350: # DAS MIXED SIGNS
008553,000351: 07,2266 34725 DAS+--+ CA S+MAX
008554,000352: 07,2267 55034 TS KEEP1 # 37777
008555,000353: 07,2270 40000 CS A
008556,000354: 07,2271 55035 TS KEEP2 # 40000
008557,000355: 07,2272 40000 CS A
008558,000356: 07,2273 64745 AD S-1
008559,000357: 07,2274 54001 TS L # 37776
008560,000358: 07,2275 40000 CS A # 40001
008561,000359: 07,2276 21035 DAS KEEP1
008562,000360: # C(KEEP1) = +1, C(KEEP2) = -1
008563,000361: 07,2277 04753 TC -0CHK -1
008564,000362: 07,2300 56001 XCH L
008565,000363: 07,2301 04753 TC -0CHK -1
008566,000364: 07,2302 31034 CA KEEP1
008567,000365: 07,2303 04761 TC -1CHK -1
008568,000366: 07,2304 31035 CA KEEP2
008569,000367: 07,2305 04762 TC -1CHK
008570,000368: # DAS-- WITH NO UNDERFLOW
008571,000369: 07,2306 44723 DAS-- CS S13BITS
008572,000370: 07,2307 55034 TS KEEP1 # 60000
008573,000371: 07,2310 55035 TS KEEP2 # 60000
008574,000372: 07,2311 54001 TS L # 60000
|
|
Page 217 |
008576,000374: 07,2312 64745 AD S-1 # 57777
008577,000375: 07,2313 21035 DAS KEEP1
008578,000376: # C(KEEP1) = 40000, C(KEEP2) = 40001
008579,000377: 07,2314 04753 TC -0CHK -1
008580,000378: 07,2315 56001 XCH L
008581,000379: 07,2316 04753 TC -0CHK -1
008582,000380: 07,2317 41035 CS KEEP2
008583,000381: 07,2320 61034 AD KEEP1
008584,000382: 07,2321 04762 TC -1CHK
008585,000383: # DAS-- WITH UNDERFLOW
008586,000384: 07,2322 34726 DAS--UV CA S-MAX
008587,000385: 07,2323 55034 TS KEEP1 # 40000
008588,000386: 07,2324 55035 TS KEEP2 # 40000
008589,000387: 07,2325 54001 TS L # 40000
008590,000388: 07,2326 34745 CA S-1 # -1
008591,000389: 07,2327 21035 DAS KEEP1
008592,000390: # C:KEEP1) = -1, C(KEEP2) = 40001, C(A) = -1
008593,000391: 07,2330 04762 TC -1CHK
008594,000392: 07,2331 56001 XCH L
008595,000393: 07,2332 04753 TC -0CHK -1
008596,000394: 07,2333 31034 CA KEEP1
008597,000395: 07,2334 04762 TC -1CHK
008598,000396: 07,2335 34725 CA S+MAX
008599,000397: 07,2336 61035 AD KEEP2
008600,000398: 07,2337 04761 TC -1CHK -1
008601,000399: # DAS A. DOUBLES THE CONTENTS OF THE A REGISTER AND THE L REGISTER.
008602,000400: 07,2340 34726 CA S-MAX
008603,000401: 07,2341 55035 TS KEEP2 # 40000
008604,000402: 07,2342 54001 TS L # 40000
008605,000403: 07,2343 40000 CS A
008606,000404: 07,2344 55034 TS KEEP1 # 37777
008607,000405: 07,2345 20001 DAS A
008608,000406: # C(A) = OV 37775, C(L) = 40001
008609,000407: 07,2346 55036 TS KEEP3
008610,000408: 07,2347 04770 TC ERRORS
008611,000409: 07,2350 30001 CA L
008612,000410: 07,2351 61036 AD KEEP3
008613,000411: 07,2352 04762 TC -1CHK
008614,000412:
008615,000413: # NORMAL USE OF INDEX WITHOUT EXTRACODE.
008616,000414: # INSTRUCTIONS CHECKED WITH INDEX UP TO FIRST SPACE SKIPPED
008617,000415: # ARE CA, TS, XCH, CCS, AD, TC, TCF, TS WITH OVERFLOW, AND MASK
008618,000416: # FIRST INITIALIZE ERASABLE REGISTERS USED FOR INDEX INSTRUCTION
008619,000417: 07,2353 34711 CA S+ZERO
008620,000418: 07,2354 55025 TS NDX+0
008621,000419: 07,2355 34670 CA ADRS6 # ADDRESS OF S+MAX
008622,000420: 07,2356 55026 TS NDX+MAX
008623,000421: 07,2357 34663 CA ADRS1
008624,000422: 07,2360 55027 TS NDXKEEP1
008625,000423: 07,2361 34664 CA ADRS2
|
|
Page 218 |
008627,000425: 07,2362 55030 TS NDXKEEP2
008628,000426: 07,2363 34665 CA ADRS3
008629,000427: 07,2364 55031 TS NDXKEEP3
008630,000428: 07,2365 34666 CA ADRS4
008631,000429: 07,2366 55032 TS NDXSELF1
008632,000430: 07,2367 34667 CA ADRS5
008633,000431: 07,2370 55033 TS NDXSELF2
008634,000432: 07,2371 51026 NDXCHK NDX NDX+MAX # CA S+MAX
008635,000433: 07,2372 30000 CA 0000 # A = 37777
008636,000434: 07,2373 51027 NDX NDXKEEP1 # TS KEEP1
008637,000435: 07,2374 54000 TS 0000 # TS WITH NO OV, UV
008638,000436: 07,2375 51025 NDX NDX+0 # CS A
008639,000437: 07,2376 40000 CS 0000 # A = 40000
008640,000438: 07,2377 51027 NDX NDXKEEP1 # XCH KEEP1
008641,000439: 07,2400 56000 XCH 0000 # A = +MAX, KEEP1 = - MAX
008642,000440: 07,2401 51025 NDX NDX+0 # CCS A
008643,000441: 07,2402 10000 CCS 0000 # A = 37776
008644,000442: 07,2403 02407 TC +4
008645,000443: 07,2404 04770 TC ERRORS
008646,000444: 07,2405 04770 TC ERRORS
008647,000445: 07,2406 04770 TC ERRORS
008648,000446: 07,2407 51027 NDX NDXKEEP1 # AD KEEP1
008649,000447: 07,2410 60000 AD 0000 # A = -1
008650,000448: 07,2411 51032 SELF1 NDX NDXSELF1 # TC +2
008651,000449: 07,2412 00003 TC 0003
008652,000450: 07,2413 04770 TC ERRORS # DID NOT PERFORM A TC
008653,000451: 07,2414 51032 NDX NDXSELF1 # TC +2
008654,000452: 07,2415 00006 TC 0006
008655,000453: 07,2416 02423 TC CNTINU # CHECK C(Q)
008656,000454: 07,2417 51033 SELF2 NDX NDXSELF2 # TCF +2
008657,000455: 07,2420 10003 TCF 003
008658,000456: 07,2421 04770 TC ERRORS
008659,000457: 07,2422 00002 TC Q # SHOULD GO TO SELF1 +2
008660,000458: 07,2423 04762 CNTINU TC -1CHK
008661,000459: 07,2424 34725 CA S+MAX
008662,000460: 07,2425 64712 AD S+1
008663,000461: 07,2426 51027 NDX NDXKEEP1 # TS KEEP1 WITH OV
008664,000462: 07,2427 54000 TS 0000 # A = +1, KEEP1 = +0
008665,000463: 07,2430 04770 TC ERRORS
008666,000464: 07,2431 61034 AD KEEP1 # A = +1
008667,000465: 07,2432 51026 NDX NDX+MAX # MASK S+MAX
008668,000466: 07,2433 70000 MASK 0000 # A = +1
008669,000467: 07,2434 04761 TC -1CHK -1
008670,000468:
008671,000469: # INDEX USED WITH ADS, NDX, AND INCR
008672,000470: 07,2435 34723 CA S13BITS
008673,000471: 07,2436 55034 TS KEEP1
008674,000472: 07,2437 51025 NDX NDX+0 # INDEX +0
008675,000473: 07,2440 51027 NDX NDXKEEP1 # ADS KEEP1
008676,000474: 07,2441 26000 ADS 0000 # C(A) AND C(KEEP1) = 377776
|
|
Page 219 |
008678,000476: 07,2442 51027 NDX NDXKEEP1 # INCR KEEP1
008679,000477: 07,2443 24000 INCR 0000 # C(KEEP1) = 37777
008680,000478: 07,2444 40000 CS A # 40001
008681,000479: 07,2445 61034 AD KEEP1 # A = +1
008682,000480: 07,2446 04761 TC -1CHK -1
008683,000481: # INDEX USED WITH LXCH, DAS, AND DXCH
008684,000482: 07,2447 34726 CA S-MAX
008685,000483: 07,2450 55035 TS KEEP2 # KEEP2 HOLDS 40000, KEEP1 HOLDS 37777
008686,000484: 07,2451 34712 CA S+1
008687,000485: 07,2452 55036 TS KEEP3 # +1
008688,000486: 07,2453 51031 NDX NDXKEEP3 # LXCH KEEP3
008689,000487: 07,2454 22000 LXCH 0000 # C(L) = +1
008690,000488: 07,2455 34744 CA S-2
008691,000489: 07,2456 51027 NDX NDXKEEP1 # DAS KEEP1
008692,000490: 07,2457 20001 DAS 0000
008693,000491: # BEFORE DAS, K = 37777 K+1 = 40000
008694,000492: # A = -2 L = +1
008695,000493: # AFTER DAS, K = 37775 K+1 = 40001
008696,000494: # A = +0 L = +0
008697,000495: 07,2460 51027 NDX NDXKEEP1 # DXCH KEEP1
008698,000496: 07,2461 52001 DXCH 0000
008699,000497: 07,2462 60001 AD L
008700,000498: 07,2463 04762 TC -1CHK
008701,000499: 07,2464 41034 CS KEEP1
008702,000500: 07,2465 04754 TC -0CHK
008703,000501: 07,2466 31035 CA KEEP2
008704,000502: 07,2467 04753 TC -0CHK -1
008705,000503: # INDEX INSTRUCTION USED WITH OVERFLOW
008706,000504: 07,2470 34671 CA ADRS7 # ADDRESS OF SELF3
008707,000505: 07,2471 64707 AD SBIT14
008708,000506: 07,2472 55042 TS KEEP7
008709,000507: 07,2473 51042 SELF3 NDX KEEP7
008710,000508: 07,2474 20003 2 0002
008711,000509: 07,2475 04770 TC ERRORS
008712,000510: # CHECK INDEX OF AN SC REGISTER
008713,000511: 07,2476 34663 CA ADRS1 # 01371, ADDRESS OF KEEP1
008714,000512: 07,2477 50000 NDX A
008715,000513: 07,2500 54000 TS 0000 # PUT 01371 IN KEEP1
008716,000514: 07,2501 40000 CS A
008717,000515: 07,2502 61034 AD KEEP1
008718,000516: 07,2503 04754 TC -0CHK
008719,000517:
|
|
Page 220 |
008721,000519: # START CHECKING EXTRACODE INSTRUCTIONS
008722,000520: # NORMAL USE OF DCA, DCS, AND SU
008723,000521: 07,2504 00006 STRTXTRA EXTEND
008724,000522: 07,2505 34673 DCA SBIT1
008725,000523: # C(A) = +1, C(L) = +2
008726,000524: 07,2506 55035 TS KEEP2 # +1
008727,000525: 07,2507 56001 XCH L
008728,000526: 07,2510 55034 TS KEEP1 # +2
008729,000527: 07,2511 00006 EXTEND
008730,000528: 07,2512 61035 SU KEEP2 # C(KEEP2) = +1
008731,000529: 07,2513 04761 TC -1CHK -1
008732,000530: 07,2514 00006 EXTEND
008733,000531: 07,2515 41035 DCS KEEP1
008734,000532: # C(A) = -2, C(L) = -1
008735,000533: 07,2516 00006 EXTEND
008736,000534: 07,2517 60001 SU L
008737,000535: 07,2520 04762 TC -1CHK
008738,000536: # COMPLEMENTING OF THE DOUBLE PRECISION ACCUMULATOR
008739,000537: 07,2521 34725 CA S+MAX
008740,000538: 07,2522 54001 TS L # 37777
008741,000539: 07,2523 60000 AD A # OV37776
008742,000540: 07,2524 00006 EXTEND
008743,000541: 07,2525 40001 DCS A
008744,000542: 07,2526 55034 TS KEEP1
008745,000543: 07,2527 04770 TC ERRORS
008746,000544: 07,2530 31034 CA KEEP1
008747,000545: 07,2531 00006 EXTEND
008748,000546: 07,2532 60001 SU L
008749,000547: 07,2533 04761 TC -1CHK -1
008750,000548:
008751,000549: # CHECKS DCA OF AN SC REGISTER
|
|
!! START CHANGE FOR RETREAD 50 !! |
008753,000551: 07,2534 34725 CA S+MAX # 37777
008754,000552: 07,2535 54001 TS L
008755,000553: 07,2536 34745 CA S-1 # -1
008756,000554: 07,2537 54002 TS Q
008757,000555: 07,2540 40000 COM
008758,000556: 07,2541 00006 EXTEND
008759,000557: 07,2542 30002 DCA L # -1
008760,000558: 07,2543 04762 TC -1CHK
008761,000559: 07,2544 30001 CA L
008762,000560: 07,2545 04762 TC -1CHK # -1
|
|
!! END CHANGE FOR RETREAD 50 !! |
008764,000562:
008765,000563: # NORMAL USE OF QXCH
008766,000564: 07,2546 32556 CA QXCHCON1
008767,000565: 07,2547 55034 TS KEEP1 # STORE ADDRESS OF AUGCHK IN KEEP1
008768,000566: 07,2550 02552 TC +2 # Q NOW HOLDS ADDRESS OF QNMBR
008769,000567: 07,2551 04770 QNMBR TC ERRORS
008770,000568: 07,2552 00006 EXTEND
008771,000569: 07,2553 23034 QXCH KEEP1 # Q NOW HOLDS ADDRESS OF AUGCHK
008772,000570: 07,2554 00002 TC Q # SHOULD GO TO QXCHCON2 +1, NOT QNMBR
008773,000571: 07,2555 04770 TC ERRORS
008774,000572: 07,2556 02560 QXCHCON1 ADRES QXCHCON2 +1
|
|
Page 221 |
008776,000574: 07,2557 02551 QXCHCON2 ADRES QNMBR
008777,000575: 07,2560 41034 CS KEEP1 # CHECK THAT KEEP1 HOLDS B(Q)
008778,000576: 07,2561 62557 AD QXCHCON2
008779,000577: 07,2562 04754 TC -0CHK
008780,000578: # CHECKS QXCH OF AN SC REGISTER
008781,000579: 07,2563 34711 CA S+ZERO
008782,000580: 07,2564 02566 TC +2
008783,000581: 07,2565 12572 TCF +5
008784,000582: 07,2566 00006 EXTEND
008785,000583: 07,2567 22000 QXCH A
008786,000584: 07,2570 22002 LXCH Q
008787,000585: 07,2571 00000 TC A
008788,000586: 07,2572 30001 CA L
008789,000587: 07,2573 04753 TC -0CHK -1
008790,000588:
008791,000589: # NORMAL USE OF AUG
008792,000590: 07,2574 34711 AUGCHK CA S+ZERO
008793,000591: 07,2575 55034 TS KEEP1 # +0
008794,000592: 07,2576 40000 CS A
008795,000593: 07,2577 55035 TS KEEP2 # -0
008796,000594: 07,2600 00006 EXTEND
008797,000595: 07,2601 25034 AUG KEEP1 # +1
008798,000596: 07,2602 00006 EXTEND
008799,000597: 07,2603 25034 AUG KEEP1 # +2
008800,000598: 07,2604 04754 TC -0CHK # CHECK C(A) HAS NOT CHANGED
008801,000599: 07,2605 00006 EXTEND
008802,000600: 07,2606 25035 AUG KEEP2 # -1
008803,000601: 07,2607 00006 EXTEND
008804,000602: 07,2610 25035 AUG KEEP2 # -2
008805,000603: 07,2611 00006 EXTEND
008806,000604: 07,2612 25035 AUG KEEP2 # -3
008807,000605: 07,2613 04753 TC -0CHK -1
008808,000606: 07,2614 31035 CA KEEP2
008809,000607: 07,2615 61034 AD KEEP1
008810,000608: 07,2616 04762 TC -1CHK
008811,000609: # CHECKS AUG OF AN SC REGISTER
008812,000610: 07,2617 34746 CA S-ZERO
008813,000611: 07,2620 00006 EXTEND
008814,000612: 07,2621 24000 AUG A
008815,000613: 07,2622 04762 TC -1CHK
008816,000614:
008817,000615: # NORMAL USE OF DIM
008818,000616: 07,2623 34711 DIMCHK CA S+ZERO
008819,000617: 07,2624 55034 TS KEEP1 # +0
008820,000618: 07,2625 00006 EXTEND
008821,000619: 07,2626 27034 DIM KEEP1
008822,000620: 07,2627 31034 CA KEEP1
008823,000621: 07,2630 04753 TC -0CHK -1
008824,000622: 07,2631 40000 CS A
008825,000623: 07,2632 55034 TS KEEP1 # -0
|
|
Page 222 |
008827,000625: 07,2633 00006 EXTEND
008828,000626: 07,2634 27034 DIM KEEP1
008829,000627: 07,2635 31034 CA KEEP1
008830,000628: 07,2636 04754 TC -0CHK
008831,000629: 07,2637 34713 CA S+2
008832,000630: 07,2640 55034 TS KEEP1 # +2
008833,000631: 07,2641 00006 EXTEND
008834,000632: 07,2642 27034 DIM KEEP1 # +1
008835,000633: 07,2643 64745 AD S-1
008836,000634: 07,2644 04761 TC -1CHK -1 # CHECK C(A) HAS NOT CHANGED
008837,000635: 07,2645 31034 CA KEEP1
008838,000636: 07,2646 04761 TC -1CHK -1
008839,000637: 07,2647 00006 EXTEND
008840,000638: 07,2650 27034 DIM KEEP1
008841,000639: 07,2651 04753 TC -0CHK -1
008842,000640: 07,2652 31034 CA KEEP1
008843,000641: 07,2653 04754 TC -0CHK
008844,000642: 07,2654 44713 CS S+2
008845,000643: 07,2655 55035 TS KEEP2 # -2
008846,000644: 07,2656 00006 EXTEND
008847,000645: 07,2657 27035 DIM KEEP2 # -1
008848,000646: 07,2660 31035 CA KEEP2
008849,000647: 07,2661 04762 TC -1CHK
008850,000648: 07,2662 00006 EXTEND
008851,000649: 07,2663 27035 DIM KEEP2 # -0
008852,000650: 07,2664 04753 TC -0CHK -1
008853,000651: 07,2665 31035 CA KEEP2
008854,000652: 07,2666 04754 TC -0CHK
008855,000653: # CHECKS DIM OF AN SC REGISTER
008856,000654: 07,2667 34744 CA S-2
008857,000655: 07,2670 00006 EXTEND
008858,000656: 07,2671 26000 DIM A
008859,000657: 07,2672 04762 TC -1CHK
008860,000658:
008861,000659: # NORMAL USE OF MSU
008862,000660: # MSU SAME (S+MAX AND S+MAX), RESULT +0
008863,000661: 07,2673 34725 CA S+MAX
008864,000662: 07,2674 55034 TS KEEP1
008865,000663: 07,2675 00006 EXTEND
008866,000664: 07,2676 21034 MSU KEEP1
008867,000665: 07,2677 04753 TC -0CHK -1
008868,000666: # MSU SAME (+0 AND +0), RESULT +0
008869,000667: 07,2700 55035 TS KEEP2
008870,000668: 07,2701 00006 EXTEND
008871,000669: 07,2702 21035 MSU KEEP2
008872,000670: 07,2703 04753 TC -0CHK -1
008873,000671: # MSU SAME (-0 AND -0), RESULT +0
008874,000672: 07,2704 34746 CA S-ZERO
008875,000673: 07,2705 55036 TS KEEP3
008876,000674: 07,2706 00006 EXTEND
|
|
Page 223 |
008878,000676: 07,2707 21036 MSU KEEP3
008879,000677: 07,2710 04753 TC -0CHK -1
008880,000678: # MSU +0 AND 77777, RESULT = +1
008881,000679: 07,2711 00006 EXTEND
008882,000680: 07,2712 21036 MSU KEEP3
008883,000681: 07,2713 04761 TC -1CHK -1
008884,000682: # MSU 77777 AND +0, RESULT = -1
008885,000683: 07,2714 40000 CS A
008886,000684: 07,2715 00006 EXTEND
008887,000685: 07,2716 21035 MSU KEEP2
008888,000686: 07,2717 04762 TC -1CHK
008889,000687: # MSU +6 AND +7, RESULT = -1
008890,000688: 07,2720 34720 CA S+7
008891,000689: 07,2721 55037 TS KEEP4
008892,000690: 07,2722 34717 CA S+6
008893,000691: 07,2723 55040 TS KEEP5
008894,000692: 07,2724 00006 EXTEND
008895,000693: 07,2725 21037 MSU KEEP4
008896,000694: 07,2726 04762 TC -1CHK
008897,000695: # MSU +7 AND +6, RESULT = +1
008898,000696: 07,2727 34720 CA S+7
008899,000697: 07,2730 00006 EXTEND
008900,000698: 07,2731 21040 MSU KEEP5
008901,000699: 07,2732 04761 TC -1CHK -1
008902,000700: # MSU 77770 AND 77771, RESULT = -1
008903,000701: 07,2733 34740 CA S-6
008904,000702: 07,2734 55041 TS KEEP6
008905,000703: 07,2735 34737 CA S-7
008906,000704: 07,2736 55042 TS KEEP7
008907,000705: 07,2737 00006 EXTEND
008908,000706: 07,2740 21041 MSU KEEP6
008909,000707: 07,2741 04762 TC -1CHK
008910,000708: # MSU 77771 AND 77770, RESULT = +1
008911,000709: 07,2742 34740 CA S-6
008912,000710: 07,2743 00006 EXTEND
008913,000711: 07,2744 21042 MSU KEEP7
008914,000712: 07,2745 04761 TC -1CHK -1
008915,000713: # CHECKS MSU OF AN SC REGISTER ( -0 AND -0 = +0)
008916,000714: 07,2746 34746 CA S-ZERO
008917,000715: 07,2747 54001 TS L
008918,000716: 07,2750 00006 EXTEND
008919,000717: 07,2751 20001 MSU L
008920,000718: 07,2752 04753 TC -0CHK -1
008921,000719:
008922,000720: # NORMAL USE OF BZF
008923,000721: 07,2753 02755 BZFCHK TC +2
008924,000722: 07,2754 02775 TC BZMFCHK # CORRECT ADDRESS IN Q
008925,000723: 07,2755 34716 CAF S+5
008926,000724: 07,2756 00006 EXTEND
008927,000725: 07,2757 14770 BZF ERRORS
008928,000726:
|
|
Page 224 |
008930,000728: 07,2760 40000 CS A
008931,000729: 07,2761 00006 EXTEND
008932,000730: 07,2762 14770 BZF ERRORS
008933,000731: 07,2763 34711 CAF S+ZERO
008934,000732: 07,2764 00006 EXTEND
008935,000733: 07,2765 12767 BZF +2
008936,000734: 07,2766 04770 TC ERRORS
008937,000735: 07,2767 40000 CS A
008938,000736: 07,2770 00006 EXTEND
008939,000737: 07,2771 12773 BZF +2
008940,000738: 07,2772 04770 TC ERRORS
008941,000739: 07,2773 00002 TC Q # SHOULD GO TO BZFCHK +1
008942,000740: 07,2774 04770 TC ERRORS
008943,000741:
008944,000742: 07,2775 02777 BZMFCHK TC +2
008945,000743: 07,2776 03020 TC MP1++ # CORRECT ADDRESS IN Q
008946,000744: 07,2777 34702 CAF SBIT9
008947,000745: 07,3000 00006 EXTEND
008948,000746: 07,3001 64770 BZMF ERRORS
008949,000747: 07,3002 40000 CS A
008950,000748: 07,3003 00006 EXTEND
008951,000749: 07,3004 63006 BZMF +2
008952,000750: 07,3005 04770 TC ERRORS
008953,000751: 07,3006 34711 CA S+ZERO
008954,000752: 07,3007 00006 EXTEND
008955,000753: 07,3010 63012 BZMF +2
008956,000754: 07,3011 04770 TC ERRORS
008957,000755: 07,3012 40000 CS A
008958,000756: 07,3013 00006 EXTEND
008959,000757: 07,3014 63016 BZMF +2
008960,000758: 07,3015 04770 TC ERRORS
008961,000759: 07,3016 00002 TC Q # SHOULD GO TO BZMFCHK +1
008962,000760: 07,3017 04770 TC ERRORS
008963,000761:
008964,000762: # NORMAL USE OF MP
008965,000763: # 37777 X 2
008966,000764: 07,3020 34725 MP1++ CA S+MAX # 37777
008967,000765: 07,3021 00006 EXTEND
008968,000766: 07,3022 74713 MP S+2 # C(A) = +1, C(L. = 37776
008969,000767: 07,3023 60001 AD L
008970,000768: 07,3024 55034 TS KEEP1 # 37777
008971,000769: 07,3025 00006 MP1+- EXTEND
008972,000770: 07,3026 74744 MP S-2 # C(A) = -1, C(L) = 40001
008973,000771: 07,3027 60001 AD L
008974,000772: 07,3030 55035 TS KEEP2 # 40000
008975,000773: 07,3031 00006 MP1-+ EXTEND
008976,000774: 07,3032 74713 MP S+2 # C(A) = -1, C(L) = 40001
008977,000775: 07,3033 60001 AD L
008978,000776: 07,3034 55036 TS KEEP3 # 40000
008979,000777: 07,3035 00006 MP1-- EXTEND
|
|
Page 225 |
008981,000779: 07,3036 74744 MP S-2 # C(A) = +1, C(L) = 37776
008982,000780: 07,3037 60001 AD L # 37777
008983,000781: 07,3040 61036 AD KEEP3 # 77777
008984,000782: 07,3041 61035 AD KEEP2 # 40000
008985,000783: 07,3042 61034 AD KEEP1 # 77777
008986,000784: 07,3043 04754 TC -0CHK
008987,000785: # 37777 X 37777
008988,000786: 07,3044 34725 MP2++ CA S+MAX # 37777
008989,000787: 07,3045 00006 EXTEND # CHECKS RSC PULSE
008990,000788: 07,3046 70000 MP A # C(A) = 37776, C(L) = +1
008991,000789: 07,3047 60001 AD L
008992,000790: 07,3050 55034 TS KEEP1 # 37777
008993,000791: 07,3051 00006 MP2+- EXTEND
008994,000792: 07,3052 74726 MP S-MAX # C(A) = 40001, C(L) = -1
008995,000793: 07,3053 60001 AD L
008996,000794: 07,3054 55035 TS KEEP2 # 40000
008997,000795: 07,3055 00006 MP2-+ EXTEND
008998,000796: 07,3056 74725 MP S+MAX # C(A) = 40001, C(L) = -1
008999,000797: 07,3057 60001 AD L
009000,000798: 07,3060 55036 TS KEEP3 # 40000
009001,000799: 07,3061 00006 MP2-- EXTEND
009002,000800: 07,3062 74726 MP S-MAX # C(A) = 37776, C(L) = +1
009003,000801: 07,3063 60001 AD L # 37777
009004,000802: 07,3064 61036 AD KEEP3 # 77777
009005,000803: 07,3065 61035 AD KEEP2 # 40000
009006,000804: 07,3066 61034 AD KEEP1 # 77777
009007,000805: 07,3067 04754 TC -0CHK
009008,000806: # C(A) = NON-ZERO, C(K) = ZERO
009009,000807: # RESULT IS ALWAYS POSITIVE ZERO
009010,000808: 07,3070 34725 MP3++ CA S+MAX # 37777
009011,000809: 07,3071 00006 EXTEND
009012,000810: 07,3072 74711 MP S+ZERO
009013,000811: 07,3073 60001 AD L
009014,000812: 07,3074 04753 TC -0CHK -1
009015,000813: 07,3075 34712 MP3+- CA S+1
009016,000814: 07,3076 00006 EXTEND
009017,000815: 07,3077 74746 MP S-ZERO
009018,000816: 07,3100 60001 AD L
009019,000817: 07,3101 04753 TC -0CHK -1
009020,000818: 07,3102 34745 MP3-+ CA S-1
009021,000819: 07,3103 00006 EXTEND
009022,000820: 07,3104 74711 MP S+ZERO
009023,000821: 07,3105 60001 AD L
009024,000822: 07,3106 04753 TC -0CHK -1
009025,000823: 07,3107 34746 MP3-- CA S-ZERO
009026,000824: 07,3110 00006 EXTEND
009027,000825: 07,3111 74746 MP S-ZERO
009028,000826: 07,3112 60001 AD L
009029,000827: 07,3113 04753 TC -0CHK -1
009030,000828: # C(A) = ZERO, C(K) = NON-ZERO,
|
|
Page 226 |
009032,000830: # RESULT IS + ZERO FOR A POSITIVE SIGN AND NEGATIVE
009033,000831: # ZERO FOR Z NEGATIVE SIGN
009034,000832: 07,3114 34711 MP4++ CA S+ZERO
009035,000833: 07,3115 00006 EXTEND
009036,000834: 07,3116 74725 MP S+MAX
009037,000835: 07,3117 60001 AD L
009038,000836: 07,3120 04753 TC -0CHK -1
009039,000837: 07,3121 00006 MP4+- EXTEND
009040,000838: 07,3122 74745 MP S-1
009041,000839: 07,3123 60001 AD L
009042,000840: 07,3124 04754 TC -0CHK
009043,000841: 07,3125 40000 MP4-+ CS A
009044,000842: 07,3126 00006 EXTEND
009045,000843: 07,3127 74716 MP S+5
009046,000844: 07,3130 60001 AD L
009047,000845: 07,3131 04754 TC -0CHK
009048,000846: 07,3132 40000 MP4-- CS A
009049,000847: 07,3133 00006 EXTEND
009050,000848: 07,3134 74746 MP S-ZERO
009051,000849: 07,3135 60001 AD L
009052,000850: 07,3136 04753 TC -0CHK -1
009053,000851: # MULTIPLY ZERO X ZERO
009054,000852: # RESULT IS ALWAYS PLUS ZERO
009055,000853: 07,3137 34711 MP5++ CA S+ZERO
009056,000854: 07,3140 55034 TS KEEP1
009057,000855: 07,3141 00006 EXTEND
009058,000856: 07,3142 71034 MP KEEP1
009059,000857: 07,3143 60001 AD L
009060,000858: 07,3144 04753 TC -0CHK -1
009061,000859: 07,3145 00006 MP5+- EXTEND
009062,000860: 07,3146 74746 MP S-ZERO
009063,000861: 07,3147 60001 AD L
009064,000862: 07,3150 04753 TC -0CHK -1
009065,000863: 07,3151 34746 MP5-+ CA S-ZERO
009066,000864: 07,3152 00006 EXTEND
009067,000865: 07,3153 74711 MP S+ZERO
009068,000866: 07,3154 60001 AD L
009069,000867: 07,3155 04753 TC -0CHK -1
009070,000868: 07,3156 34746 MP5-- CA S-ZERO
009071,000869: 07,3157 00006 EXTEND
009072,000870: 07,3160 74746 MP S-ZERO
009073,000871: 07,3161 04753 TC -0CHK -1
009074,000872:
009075,000873: 07,3162 33164 CA CONTINU
009076,000874: 07,3163 04105 TC BANKJUMP
009077,000875: 07,3164 20000 CONTINU CADR DV1++ -1 # CONTINUE WITH INSTRUCTION CHECK
009078,000876:
009079,000877: 10,2000 SETLOC 30000
009080,000878:
009081,000879: 10,2000 04224 TC CHECKNJ # CHECK FOR NEW JOB
009082,000880:
|
|
Page 227 |
009084,000882: # NORMAL USE OF DV ... REMAINDER HAS SIGN OF DIVIDEND
009085,000883: # 1/4 DIVIDED BY 3/8
009086,000884: # C(A) = 25252 WITH A + QUOTIENT AND 52525 WITH A - QUOTIENT.
009087,000885: # C(L) = REMAINDER = /100000/ WITH SIGN OF DIVIDEND.
009088,000886: 10,2001 34747 DV1++ CA DV1CON # 14000
009089,000887: 10,2002 55042 TS KEEP7 # 14000, +3/8
009090,000888: 10,2003 54002 TS Q
009091,000889: 10,2004 40000 CS A
009092,000890: 10,2005 55041 TS KEEP6 # 63000, -3/8
009093,000891: 10,2006 34711 CA S+ZERO
009094,000892: 10,2007 54001 TS L
009095,000893: 10,2010 34706 CA SBIT13 # 10000
009096,000894: 10,2011 00006 EXTEND
009097,000895: 10,2012 10002 DV Q # CHECKS RSC PULSE
009098,000896: 10,2013 55034 TS KEEP1 # 25252
009099,000897: 10,2014 34711 CA S+ZERO
009100,000898: 10,2015 22000 DV1+- LXCH A
009101,000899: 10,2016 00006 EXTEND
009102,000900: 10,2017 11041 DV KEEP6
009103,000901: 10,2020 61034 AD KEEP1
009104,000902: 10,2021 04754 TC -0CHK
009105,000903: 10,2022 34746 CA S-ZERO
009106,000904: 10,2023 22000 LXCH A
009107,000905: 10,2024 40000 DV1-+ CS A
009108,000906: 10,2025 00006 EXTEND
009109,000907: 10,2026 11042 DV KEEP7
009110,000908: 10,2027 55034 TS KEEP1 # 52525
009111,000909: 10,2030 34746 CA S-ZERO
009112,000910: 10,2031 22000 DV1-- LXCH A
009113,000911: 10,2032 00006 EXTEND
009114,000912: 10,2033 11041 DV KEEP6
009115,000913: 10,2034 61034 AD KEEP1
009116,000914: 10,2035 04754 TC -0CHK
009117,000915: 10,2036 30001 CA L
009118,000916: 10,2037 64706 AD SBIT13
009119,000917: 10,2040 04754 TC -0CHK
009120,000918: # 1/2 TO 15TH DIVIDED BY 1/2 TO 14TH
009121,000919: # C(A) SHOULD BE 1/2 AND CONTENTS OF L SHOULD BE ZERO
009122,000920: 10,2041 34712 DV2++ CA S+1
009123,000921: 10,2042 55042 TS KEEP7 # 00001, DIVISOR
009124,000922: 10,2043 40000 CS A
009125,000923: 10,2044 55041 TS KEEP6 # 77776, DIVISOR
009126,000924: 10,2045 34711 CA S+ZERO
009127,000925: 10,2046 34707 CA SBIT14 # 20000
009128,000926: 10,2047 54001 TS L
009129,000927: 10,2050 34711 CA S+ZERO
009130,000928: 10,2051 00006 EXTEND
009131,000929: 10,2052 11042 DV KEEP7 # C(A) = 1/2, C(L) = +0
009132,000930: 10,2053 55034 TS KEEP1
009133,000931: 10,2054 22000 DV2+- LXCH A
|
|
Page 228 |
009135,000933: 10,2055 00006 EXTEND
009136,000934: 10,2056 11041 DV KEEP6
009137,000935: 10,2057 55035 TS KEEP2 # -1/2
009138,000936: 10,2060 61034 AD KEEP1
009139,000937: 10,2061 04754 TC -0CHK
009140,000938: 10,2062 31035 CA KEEP2
009141,000939: 10,2063 22000 LXCH A
009142,000940: 10,2064 40000 DV2-+ CS A
009143,000941: 10,2065 00006 EXTEND
009144,000942: 10,2066 11042 DV KEEP7
009145,000943: 10,2067 55035 TS KEEP2
009146,000944: 10,2070 22000 DV2-- LXCH A
009147,000945: 10,2071 00006 EXTEND
009148,000946: 10,2072 11041 DV KEEP6
009149,000947: 10,2073 55034 TS KEEP1
009150,000948: 10,2074 61035 AD KEEP2
009151,000949: 10,2075 04754 TC -0CHK
009152,000950: 10,2076 41034 CS KEEP1 # MAKE SURE QUOTIENT IS 1/2
009153,000951: 10,2077 64707 AD SBIT14
009154,000952: 10,2100 04754 TC -0CHK
009155,000953: 10,2101 30001 CA L
009156,000954: 10,2102 04754 TC -0CHK
009157,000955: # SAME AS PREVIOUS DIVISION EXCEPT A AND L WILL HAVE OPPOSITE SIGNS
009158,000956: # BEFORE DIVISION. SINCE A WILL ALWAYS BE ZERO, THE SIGN OF THE QUOTIENT
009159,000957: # WILL DEPEND ON THE SIGN OF L AND THE SIGN OF THE DIVISOR.
009160,000958: 10,2103 34707 DV3++ CA SBIT14 # 20000
009161,000959: 10,2104 54001 TS L
009162,000960: 10,2105 34746 CA S-ZERO
009163,000961: 10,2106 00006 EXTEND
009164,000962: 10,2107 11042 DV KEEP7
009165,000963: 10,2110 55034 TS KEEP1 # 20000
009166,000964: 10,2111 22000 DV3+- LXCH A
009167,000965: 10,2112 40000 CS A # A = -0
009168,000966: 10,2113 00006 EXTEND
009169,000967: 10,2114 11041 DV KEEP6
009170,000968: 10,2115 61034 AD KEEP1
009171,000969: 10,2116 04754 TC -0CHK
009172,000970: 10,2117 44707 CS SBIT14 # -1/2
009173,000971: 10,2120 22000 DV3-+ LXCH A
009174,000972: 10,2121 00006 EXTEND
009175,000973: 10,2122 11042 DV KEEP7
009176,000974: 10,2123 55034 TS KEEP1
009177,000975: 10,2124 22000 DV3-- LXCH A
009178,000976: 10,2125 40000 CS A # A = +0
009179,000977: 10,2126 00006 EXTEND
009180,000978: 10,2127 11041 DV KEEP6
009181,000979: 10,2130 61034 AD KEEP1
009182,000980: 10,2131 04754 TC -0CHK
009183,000981: 10,2132 40001 CS L
009184,000982: 10,2133 04753 TC -0CHK -1
009185,000983:
|
|
Page 229 |
009187,000985: # C(A) = 17777 AND C(L) = 37777. THIS IS DIVIDED BY 20000. THE RESULT
009188,000986: # SHOULD BE +-/37777/ AND THE REMAINDER +-/17777/
009189,000987: 10,2134 34725 DV4++ CA S+MAX
009190,000988: 10,2135 54001 TS L
009191,000989: 10,2136 34707 CA SBIT14
009192,000990: 10,2137 55042 TS KEEP7 # 20000
009193,000991: 10,2140 40000 CS A
009194,000992: 10,2141 55041 TS KEEP6 # 57777
009195,000993: 10,2142 34723 CA S13BITS # 17777
009196,000994: 10,2143 00006 EXTEND
009197,000995: 10,2144 11042 DV KEEP7
009198,000996: 10,2145 55034 TS KEEP1
009199,000997: 10,2146 22000 DV4+- LXCH A
009200,000998: 10,2147 00006 EXTEND
009201,000999: 10,2150 11041 DV KEEP6
009202,001000: 10,2151 55035 TS KEEP2
009203,001001: 10,2152 61034 AD KEEP1
009204,001002: 10,2153 04754 TC -0CHK
009205,001003: 10,2154 31035 CA KEEP2
009206,001004: 10,2155 22000 LXCH A
009207,001005: 10,2156 40000 DV4-+ CS A
009208,001006: 10,2157 00006 EXTEND
009209,001007: 10,2160 11042 DV KEEP7
009210,001008: 10,2161 61034 AD KEEP1
009211,001009: 10,2162 04754 TC -0CHK
009212,001010: 10,2163 31035 CA KEEP2
009213,001011: 10,2164 22000 DV4-- LXCH A
009214,001012: 10,2165 00006 EXTEND
009215,001013: 10,2166 11041 DV KEEP6
009216,001014: 10,2167 55036 TS KEEP3
009217,001015: 10,2170 61035 AD KEEP2
009218,001016: 10,2171 04754 TC -0CHK
009219,001017: 10,2172 41036 CS KEEP3
009220,001018: 10,2173 64725 AD S+MAX
009221,001019: 10,2174 04754 TC -0CHK
009222,001020: 10,2175 30001 CA L
009223,001021: 10,2176 64723 AD S13BITS
009224,001022: 10,2177 04754 TC -0CHK
009225,001023: # C(A) = +-/17777/ AND C(L) = +-/37777/ WITH OPPOSITE SIGN BEFORE DEVISION
009226,001024: # THE QUOTIENT SHOULD BE +-/37774/ WITH THE SIGN DEPENDING ON THE SIGN OF
009227,001025: # A AND THE SIGN OF THE DEVISOR. THE C(L) = +-/1/ DEPENDING ON THE SIGN
009228,001026: # OF A.
009229,001027: 10,2200 44725 DV5++ CS S+MAX
009230,001028: 10,2201 54001 TS L # 40000
009231,001029: 10,2202 34723 CA S13BITS # 17777
009232,001030: 10,2203 00006 EXTEND
009233,001031: 10,2204 11042 DV KEEP7
009234,001032: 10,2205 55034 TS KEEP1 # 37774
009235,001033: 10,2206 56001 XCH L
009236,001034: 10,2207 04761 TC -1CHK -1
009237,001035:
|
|
Page 230 |
009239,001037: 10,2210 34726 DV5+- CA S-MAX
009240,001038: 10,2211 54001 TS L # 40000
009241,001039: 10,2212 34723 CA S13BITS # 17777
009242,001040: 10,2213 00006 EXTEND
009243,001041: 10,2214 11041 DV KEEP6 # C(A) = -37774, C(L) = +1
009244,001042: 10,2215 61034 AD KEEP1
009245,001043: 10,2216 04754 TC -0CHK
009246,001044: 10,2217 56001 XCH L
009247,001045: 10,2220 04761 TC -1CHK -1
009248,001046: 10,2221 34725 DV5-+ CA S+MAX
009249,001047: 10,2222 54001 TS L # 37777
009250,001048: 10,2223 44723 CS S13BITS # 60000
009251,001049: 10,2224 00006 EXTEND
009252,001050: 10,2225 11042 DV KEEP7 # C(A) = -37774, C(L) = -1
009253,001051: 10,2226 55035 TS KEEP2
009254,001052: 10,2227 61034 AD KEEP1
009255,001053: 10,2230 04754 TC -0CHK
009256,001054: 10,2231 56001 XCH L
009257,001055: 10,2232 04762 TC -1CHK
009258,001056: 10,2233 34725 DV5-- CA S+MAX
009259,001057: 10,2234 54001 TS L # 37777
009260,001058: 10,2235 44723 CS S13BITS # 60000
009261,001059: 10,2236 00006 EXTEND
009262,001060: 10,2237 11041 DV KEEP6 # C(A) = 37774, C(L) = -1
009263,001061: 10,2240 61035 AD KEEP2
009264,001062: 10,2241 04754 TC -0CHK
009265,001063: 10,2242 56001 XCH L
009266,001064: 10,2243 04762 TC -1CHK
009267,001065: 10,2244 31035 CA KEEP2 # -37774
009268,001066: 10,2245 64744 AD S-2 # -37776
009269,001067: 10,2246 64725 AD S+MAX # +1
009270,001068: 10,2247 04761 TC -1CHK -1 # CHECK THAT QUOTIENT IS +-/37774/
009271,001069:
009272,001070: # DIVIDE SAME (37776). THE RESULT SHOULD BE MAXIMUM AND THE REMAINDER
009273,001071: # SHOULD BE THE SAME VALUE AS THE DIVISOR WITH THE SAME SIGN AS THE
009274,001072: # DIVIDEND
009275,001073: 10,2250 34711 DV6++ CA S+ZERO
009276,001074: 10,2251 54001 TS L
009277,001075: 10,2252 44750 CS DV2CON # 37776
009278,001076: 10,2253 55041 TS KEEP6 # 40001
009279,001077: 10,2254 40000 CS A
009280,001078: 10,2255 55042 TS KEEP7 # 37776
009281,001079: 10,2256 00006 EXTEND
009282,001080: 10,2257 11042 DV KEEP7
009283,001081: 10,2260 40000 CS A
009284,001082: 10,2261 60001 AD L
009285,001083: 10,2262 04762 TC -1CHK
009286,001084: 10,2263 34711 CA S+ZERO
009287,001085: 10,2264 22000 DV6+- LXCH A
009288,001086: 10,2265 00006 EXTEND
|
|
Page 231 |
009290,001088: 10,2266 11041 DV KEEP6
009291,001089: 10,2267 60001 AD L
009292,001090: 10,2270 04762 TC -1CHK
009293,001091: 10,2271 34746 CA S-ZERO
009294,001092: 10,2272 22000 DV6-+ LXCH A
009295,001093: 10,2273 40000 CS A
009296,001094: 10,2274 00006 EXTEND
009297,001095: 10,2275 11042 DV KEEP7
009298,001096: 10,2276 40000 CS A
009299,001097: 10,2277 60001 AD L
009300,001098: 10,2300 04761 TC -1CHK -1
009301,001099: 10,2301 34746 CA S-ZERO
009302,001100: 10,2302 22000 DV6-- LXCH A
009303,001101: 10,2303 00006 EXTEND
009304,001102: 10,2304 11041 DV KEEP6
009305,001103: 10,2305 60001 AD L
009306,001104: 10,2306 04761 TC -1CHK -1
009307,001105: 10,2307 40001 CS L
009308,001106: 10,2310 61041 AD KEEP6
009309,001107: 10,2311 04754 TC -0CHK
009310,001108: # DIVIDE SAME (ZERO). THE RESULT SHOULD BE MAXIMUM AND THE REMAINDER
009311,001109: # SHOULD BE THE SAME VALUE AS THE DIVISOR WITH THE SAME SIGN AS THE
009312,001110: # DIVIDEND.
009313,001111: 10,2312 44711 DV7++ CS S+ZERO
009314,001112: 10,2313 55041 TS KEEP6 # -0
009315,001113: 10,2314 40000 CS A
009316,001114: 10,2315 55042 TS KEEP7 # +0
009317,001115: 10,2316 54001 TS L
009318,001116: 10,2317 00006 EXTEND
009319,001117: 10,2320 11042 DV KEEP7
009320,001118: 10,2321 64726 AD S-MAX
009321,001119: 10,2322 04754 TC -0CHK
009322,001120: 10,2323 22000 DV7+- LXCH A # C(A) = C(L) = +0
009323,001121: 10,2324 00006 EXTEND
009324,001122: 10,2325 11041 DV KEEP6
009325,001123: 10,2326 64725 AD S+MAX
009326,001124: 10,2327 04754 TC -0CHK
009327,001125: 10,2330 40000 CS A
009328,001126: 10,2331 22000 DV7-+ LXCH A
009329,001127: 10,2332 40000 CS A # C(A) = C(L) = -0
009330,001128: 10,2333 00006 EXTEND
009331,001129: 10,2334 11042 DV KEEP7
009332,001130: 10,2335 64725 AD S+MAX
009333,001131: 10,2336 04754 TC -0CHK
009334,001132: 10,2337 40000 CS A
009335,001133: 10,2340 22000 DV7-- LXCH A # C(A) = C(L) = -0
009336,001134: 10,2341 00006 EXTEND
009337,001135: 10,2342 11041 DV KEEP6
009338,001136: 10,2343 64726 AD S-MAX
009339,001137: 10,2344 04754 TC -0CHK
|
|
Page 232 |
009341,001139: 10,2345 40001 CS L
009342,001140: 10,2346 04753 TC -0CHK -1
009343,001141:
009344,001142: # DEVIDE SAME (ZERO). THE CONTENTS OF THE A REGISTER AND L REGISTER WILL
009345,001143: # HAVE OPPOSITE SIGNS BEFORE DEVISION. THE SIGN OF THE QUOTIENT WILL
009346,001144: # DEPEND ON THE SIGN OF THE L REGISTER BEFORE DEVISION AND THE SIGN OF
009347,001145: # THE DEVISOR. THE SIGN OF THE REMAINDER IS THE SAME SIGN AS THE SIGN OF
009348,001146: # THE L REGISTER BEFORE DEVISION. C(L) REMAINS SAME
009349,001147: 10,2347 34711 DV8++ CA S+ZERO
009350,001148: 10,2350 55042 TS KEEP7 # +0
009351,001149: 10,2351 54001 TS L
009352,001150: 10,2352 40000 CS A
009353,001151: 10,2353 55041 TS KEEP6 # -0
009354,001152: 10,2354 00006 EXTEND # A = -0, L = +0
009355,001153: 10,2355 11042 DV KEEP7 # A = L = +0
009356,001154: 10,2356 55034 TS KEEP1
009357,001155: 10,2357 30001 CA L # C(A) = C(L) = +0
009358,001156: 10,2360 04753 TC -0CHK -1
009359,001157: 10,2361 40000 DV8+- CS A
009360,001158: 10,2362 00006 EXTEND # A = -0, L = +0
009361,001159: 10,2363 11041 DV KEEP6 # A = -0, L = +0
009362,001160: 10,2364 61034 AD KEEP1
009363,001161: 10,2365 04754 TC -0CHK
009364,001162: 10,2366 40000 CS A
009365,001163: 10,2367 56001 XCH L # PUT -0 IN L
009366,001164: 10,2370 04753 TC -0CHK -1 # CHECK C(L)
009367,001165: 10,2371 00006 DV8-+ EXTEND # A = +0, L = -0
009368,001166: 10,2372 11042 DV KEEP7 # A = L = -0
009369,001167: 10,2373 55035 TS KEEP2
009370,001168: 10,2374 61034 AD KEEP1
009371,001169: 10,2375 04754 TC -0CHK
009372,001170: 10,2376 40000 CS A
009373,001171: 10,2377 56001 XCH L # PUT -0 IN L
009374,001172: 10,2400 04754 TC -0CHK # CHECK C(L)
009375,001173: 10,2401 00006 DV8-- EXTEND # A = +0, L = -0
009376,001174: 10,2402 11041 DV KEEP6 # A = +0, L = -0
009377,001175: 10,2403 61035 AD KEEP2
009378,001176: 10,2404 04754 TC -0CHK
009379,001177: 10,2405 34725 CA S+MAX # CHECK QUOTIENT IS CORRECT
009380,001178: 10,2406 61035 AD KEEP2
009381,001179: 10,2407 04754 TC -0CHK
009382,001180: 10,2410 56001 XCH L
009383,001181: 10,2411 04754 TC -0CHK # CHECK C(L)
009384,001182:
009385,001183: # INPUT-OUTPUT INSTRUCTIONS
009386,001184: # NORMAL USE OF READ AND WRITE
009387,001185: 10,2412 34745 IN-OUT1 CA S-1
|
|
!! START CHANGE FOR RETREAD 50 !! |
009389,001187: 10,2413 00004 INHINT
|
|
!! END CHANGE FOR RETREAD 50 !! |
009391,001189: 10,2414 00006 EXTEND
009392,001190: 10,2415 01001 WRITE L # 77776
009393,001191: 10,2416 40000 CS A # 00001
|
|
Page 233 |
009395,001193: 10,2417 00006 EXTEND
009396,001194: 10,2420 00001 READ L # 77776
009397,001195: 10,2421 04762 TC -1CHK
009398,001196: 10,2422 34726 CA S-MAX
009399,001197: 10,2423 64726 AD S-MAX # C(A) = 10 - 00001
009400,001198: 10,2424 00006 EXTEND
009401,001199: 10,2425 01002 WRITE Q
009402,001200: 10,2426 40000 CS A # 01 - 37776
009403,001201: 10,2427 00006 EXTEND
009404,001202: 10,2430 00002 READ Q # 10 - 00001
009405,001203: 10,2431 55034 TS KEEP1
009406,001204: 10,2432 04770 TC ERRORS
009407,001205: 10,2433 31034 CA KEEP1
009408,001206: 10,2434 64725 AD S+MAX
009409,001207: 10,2435 04761 TC -1CHK -1
009410,001208:
009411,001209: # NORMAL USE OF RAND, RAND = READ AND MASK
009412,001210: 10,2436 34711 RANDCHK CA S+ZERO
009413,001211: 10,2437 54001 TS L
009414,001212: 10,2440 00006 EXTEND
009415,001213: 10,2441 02001 RAND L # 00000, 00000
009416,001214: 10,2442 04753 TC -0CHK -1
009417,001215: 10,2443 34746 CA S-ZERO
009418,001216: 10,2444 00006 EXTEND
009419,001217: 10,2445 02001 RAND L # 77777, 00000
009420,001218: 10,2446 04753 TC -0CHK -1
009421,001219: 10,2447 40000 CS A
009422,001220: 10,2450 54001 TS L
009423,001221: 10,2451 40000 CS A
009424,001222: 10,2452 00006 EXTEND
009425,001223: 10,2453 02001 RAND L # 00000, 77777
009426,001224: 10,2454 04753 TC -0CHK -1
009427,001225: 10,2455 34746 CA S-ZERO
009428,001226: 10,2456 00006 EXTEND
009429,001227: 10,2457 02001 RAND L # 77777, 77777
009430,001228: 10,2460 04754 TC -0CHK
009431,001229: 10,2461 34725 RANDOV CA S+MAX
009432,001230: 10,2462 64713 AD S+2 # 01 - 00001
009433,001231: 10,2463 56002 XCH Q
009434,001232: 10,2464 34746 CA S-ZERO # 77777
009435,001233: 10,2465 00006 EXTEND
009436,001234: 10,2466 02002 RAND Q # 01 - 00001
009437,001235: 10,2467 55034 TS KEEP1
009438,001236: 10,2470 04770 TC ERRORS
009439,001237: 10,2471 04761 TC -1CHK -1
009440,001238: 10,2472 41034 CS KEEP1
009441,001239: 10,2473 04762 TC -1CHK
009442,001240:
009443,001241: # NORMAL USE OF WAND, WAND = WRITE AND MASK
009444,001242: 10,2474 34711 WANDCHK CA S+ZERO
|
|
Page 234 |
009446,001244: 10,2475 54001 TS L
009447,001245: 10,2476 00006 EXTEND
009448,001246: 10,2477 03001 WAND L # 00000, 00000
009449,001247: 10,2500 60001 AD L
009450,001248: 10,2501 04753 TC -0CHK -1
009451,001249: 10,2502 34746 CA S-ZERO
009452,001250: 10,2503 00006 EXTEND
009453,001251: 10,2504 03001 WAND L # 77777, 00000
009454,001252: 10,2505 60001 AD L
009455,001253: 10,2506 04753 TC -0CHK -1
009456,001254: 10,2507 40000 CS A
009457,001255: 10,2510 54001 TS L
009458,001256: 10,2511 40000 CS A
009459,001257: 10,2512 00006 EXTEND
009460,001258: 10,2513 03001 WAND L # 00000, 77777
009461,001259: 10,2514 60001 AD L
009462,001260: 10,2515 04753 TC -0CHK -1
009463,001261: 10,2516 34746 CA S-ZERO
009464,001262: 10,2517 54001 TS L
009465,001263: 10,2520 00006 EXTEND
009466,001264: 10,2521 03001 WAND L # 77777, 77777
009467,001265: 10,2522 60001 AD L
009468,001266: 10,2523 04754 TC -0CHK
009469,001267: 10,2524 34725 WANDUF CA S+MAX
009470,001268: 10,2525 64713 AD S+2 # 01 - 00001
009471,001269: 10,2526 56002 XCH Q
009472,001270: 10,2527 34746 CA S-ZERO # 77777
009473,001271: 10,2530 00006 EXTEND
009474,001272: 10,2531 03002 WAND Q
009475,001273: 10,2532 55035 TS KEEP2
009476,001274: 10,2533 04770 TC ERRORS
009477,001275: 10,2534 30002 CA Q
009478,001276: 10,2535 55034 TS KEEP1
009479,001277: 10,2536 04770 TC ERRORS
009480,001278: 10,2537 41034 CS KEEP1
009481,001279: 10,2540 04762 TC -1CHK
009482,001280: 10,2541 41035 CS KEEP2
009483,001281: 10,2542 04762 TC -1CHK
009484,001282:
009485,001283: # NORMAL USE OF ROR, READ AND SUPERIMPOSE
009486,001284: 10,2543 34711 RORCHK CA S+ZERO
009487,001285: 10,2544 54001 TS L
009488,001286: 10,2545 00006 EXTEND
009489,001287: 10,2546 04001 ROR L # 00000, 00000
009490,001288: 10,2547 04753 TC -0CHK -1
009491,001289: 10,2550 30001 CA L
009492,001290: 10,2551 04753 TC -0CHK -1
009493,001291: 10,2552 34746 CA S-ZERO
009494,001292: 10,2553 00006 EXTEND
009495,001293: 10,2554 04001 ROR L # 77777, 00000
009496,001294:
|
|
Page 235 |
009498,001296: 10,2555 04754 TC -0CHK
009499,001297: 10,2556 30001 CA L
009500,001298: 10,2557 04753 TC -0CHK -1
009501,001299: 10,2560 40000 CS A
009502,001300: 10,2561 54001 TS L
009503,001301: 10,2562 40000 CS A
009504,001302: 10,2563 00006 EXTEND
009505,001303: 10,2564 04001 ROR L # 00000, 77777
009506,001304: 10,2565 04754 TC -0CHK
009507,001305: 10,2566 30001 CA L
009508,001306: 10,2567 04754 TC -0CHK
009509,001307: 10,2570 34746 CA S-ZERO
009510,001308: 10,2571 00006 EXTEND
009511,001309: 10,2572 04001 ROR L # 77777, 77777
009512,001310: 10,2573 04754 TC -0CHK
009513,001311: 10,2574 34726 ROROV CA S-MAX
009514,001312: 10,2575 64744 AD S-2 # 10 - 37776
009515,001313: 10,2576 56002 XCH Q
009516,001314: 10,2577 34725 CA S+MAX
009517,001315: 10,2600 64712 AD S+1 # 01 - 00000
009518,001316: 10,2601 00006 EXTEND
009519,001317: 10,2602 04002 ROR Q # 11 - 37776
009520,001318: 10,2603 55034 TS KEEP1
009521,001319: 10,2604 02606 TC +2
009522,001320: 10,2605 04770 TC ERRORS
009523,001321: 10,2606 31034 CA KEEP1
009524,001322: 10,2607 04762 TC -1CHK
009525,001323:
009526,001324: # NORMAL USE OF WOR, WOR = WRITE AND SUPERIMPOSE
009527,001325: 10,2610 34711 WORCHK CA S+ZERO
009528,001326: 10,2611 54001 TS L
009529,001327: 10,2612 00006 EXTEND
009530,001328: 10,2613 05001 WOR L # 00000, 00000
009531,001329: 10,2614 04753 TC -0CHK -1
009532,001330: 10,2615 30001 CA L
009533,001331: 10,2616 04753 TC -0CHK -1
009534,001332: 10,2617 34746 CA S-ZERO
009535,001333: 10,2620 00006 EXTEND
009536,001334: 10,2621 05001 WOR L # 77777, 00000
009537,001335: 10,2622 04754 TC -0CHK
009538,001336: 10,2623 30001 CA L
009539,001337: 10,2624 04754 TC -0CHK
009540,001338: 10,2625 40000 CS A
009541,001339: 10,2626 54001 TS L
009542,001340: 10,2627 40000 CS A
009543,001341: 10,2630 00006 EXTEND
009544,001342: 10,2631 05001 WOR L # 00000, 77777
009545,001343: 10,2632 04754 TC -0CHK
009546,001344: 10,2633 30001 CA L
009547,001345: 10,2634 04754 TC -0CHK
|
|
Page 236 |
009549,001347: 10,2635 34726 CA S-MAX
009550,001348: 10,2636 00006 EXTEND
009551,001349: 10,2637 05001 WOR L # 77777, 77777
009552,001350: 10,2640 04754 TC -0CHK
009553,001351: 10,2641 30001 CA L
009554,001352: 10,2642 04754 TC -0CHK
009555,001353: 10,2643 34726 WOROV CA S-MAX
009556,001354: 10,2644 64744 AD S-2 # 10 - 37776
009557,001355: 10,2645 56002 XCH Q
009558,001356: 10,2646 34725 CA S+MAX
009559,001357: 10,2647 64712 AD S+1 # 01 - 00000
009560,001358: 10,2650 00006 EXTEND
009561,001359: 10,2651 05002 WOR Q # 11 - 37776
009562,001360: 10,2652 55035 TS KEEP2 # SHOULD NOT SKIP
009563,001361: 10,2653 12655 TCF +2
009564,001362: 10,2654 04770 TC ERRORS
009565,001363: 10,2655 56002 XCH Q
009566,001364: 10,2656 55036 TS KEEP3
009567,001365: 10,2657 02661 TC +2
009568,001366: 10,2660 04770 TC ERRORS
009569,001367: 10,2661 31036 CA KEEP3 # CHECK C(Q)
009570,001368: 10,2662 04762 TC -1CHK
009571,001369: 10,2663 31035 CA KEEP2
009572,001370: 10,2664 04762 TC -1CHK # CHECK C(A)
009573,001371:
009574,001372: # NORMAL USE OF RXOR
009575,001373: 10,2665 34711 RXORCHK CA S+ZERO
009576,001374: 10,2666 54001 TS L
009577,001375: 10,2667 00006 EXTEND
009578,001376: 10,2670 06001 RXOR L # 00000, 00000
009579,001377: 10,2671 04753 TC -0CHK -1
009580,001378: 10,2672 34746 CA S-ZERO
009581,001379: 10,2673 00006 EXTEND
009582,001380: 10,2674 06001 RXOR L # 77777, 00000
009583,001381: 10,2675 04754 TC -0CHK
009584,001382: 10,2676 30001 CA L
009585,001383: 10,2677 04753 TC -0CHK -1
009586,001384: 10,2700 40000 CS A
009587,001385: 10,2701 54001 TS L
009588,001386: 10,2702 40000 CS A
009589,001387: 10,2703 00006 EXTEND
009590,001388: 10,2704 06001 RXOR L # 00000, 77777
009591,001389: 10,2705 04754 TC -0CHK
009592,001390: 10,2706 34746 CA S-ZERO
009593,001391: 10,2707 00006 EXTEND
009594,001392: 10,2710 06001 RXOR L # 77777, 77777
009595,001393: 10,2711 04753 TC -0CHK -1
009596,001394: 10,2712 30001 CA L
009597,001395: 10,2713 04754 TC -0CHK
009598,001396: 10,2714 40000 CS A
|
|
Page 237 |
009600,001398: 10,2715 54002 TS Q
009601,001399: 10,2716 34725 RXORUV CA S+MAX
009602,001400: 10,2717 64713 AD S+2 # 01 - 00001
009603,001401: 10,2720 00006 EXTEND
009604,001402: 10,2721 06002 RXOR Q # 10 - 37776, C(Q) = -0
009605,001403: 10,2722 55034 TS KEEP1
009606,001404: 10,2723 04770 TC ERRORS
009607,001405: 10,2724 31034 CA KEEP1
009608,001406: 10,2725 04762 TC -1CHK
|
|
!! START CHANGE FOR RETREAD 50 !! |
009610,001408: 10,2726 00003 RELINT
|
|
!! END CHANGE FOR RETREAD 50 !! |
009612,001410:
009613,001411: 10,2727 04224 TC CHECKNJ # CHECK FOR NEW JOB
009614,001412: 10,2730 02734 TC XTRANDX
009615,001413:
009616,001414: # NEXT THREE CONSTANTS ARE ADDRESSESS USED BY EXTRACODE INSTRUCTIONS
009617,001415: 10,2731 02742 ADRSBZMF ADRES NDXBZMF
009618,001416: 10,2732 02746 ADRSDCA ADRES NDXDCA
009619,001417: 10,2733 03035 ADRSQXCH ADRES NDXAUG
009620,001418:
009621,001419: # NORMAL USE OF INDEX WITH EXTRACODE INSTRUCTIONS
009622,001420: # INDEX INSTRUCTION USED WITH INDEX AND BZF
009623,001421: 10,2734 34711 XTRANDX CA S+ZERO
009624,001422: 10,2735 00006 EXTEND
009625,001423: 10,2736 54711 NDX S+ZERO
009626,001424: 10,2737 52731 NDX ADRSBZMF
009627,001425: 10,2740 10000 BZF 00000 # BZF +2
009628,001426: 10,2741 04770 TC ERRORS
009629,001427: # INDEX INSTRUCTION USED WITH BZMF
009630,001428: 10,2742 00006 NDXBZMF EXTEND
009631,001429: 10,2743 52732 NDX ADRSDCA
009632,001430: 10,2744 60000 BZMF 0000 # BZMF+2
009633,001431: 10,2745 04770 TC ERRORS
009634,001432: # INDEX INSTRUCTION USED WITH DCA
009635,001433: 10,2746 00006 NDXDCA EXTEND
009636,001434: 10,2747 54751 INDEX ADRS+1 # DCA S+1
009637,001435: 10,2750 30001 DCA 0000 # C(A) = +1, C(L) = +2
009638,001436: 10,2751 40000 CS A
009639,001437: 10,2752 60001 AD L
009640,001438: 10,2753 04761 TC -1CHK -1
009641,001439: # INDEX INSTRUCTION USED WITH DCS
009642,001440: 10,2754 00006 EXTEND
009643,001441: 10,2755 54751 INDEX ADRS+1 # DCS S+1
009644,001442: 10,2756 40001 DCS 0000 # C(A) = -1, C(L) = -2
009645,001443: 10,2757 40000 CS A
009646,001444: 10,2760 60001 AD L
009647,001445: 10,2761 04762 TC -1CHK
009648,001446: # INDEX INSTRUCTION USED WITH MP AND SU
009649,001447: 10,2762 34725 CA S+MAX # 37777
009650,001448: 10,2763 00006 EXTEND
009651,001449: 10,2764 54751 NDX ADRS+1
009652,001450: 10,2765 70001 MP 0001 # C(A) = 1, C(L) = 37776
|
|
Page 238 |
009654,001452: 10,2766 04761 TC -1CHK -1
009655,001453: 10,2767 34725 CA S+MAX # 37777
009656,001454: 10,2770 00006 EXTEND
009657,001455: 10,2771 54712 NDX S+1
009658,001456: 10,2772 60000 SU 0000
009659,001457: 10,2773 04761 TC -1CHK -1
009660,001458: # INDEX INSTRUCTION USED WITH DV
009661,001459: 10,2774 34747 NDXDV CA DV1CON # PUT 14000 (3/8) IN KEEP3
009662,001460: 10,2775 55036 TS KEEP3
009663,001461: 10,2776 34711 CA S+ZERO
009664,001462: 10,2777 54001 TS L
009665,001463: 10,3000 34706 CA SBIT13 # 10000
009666,001464: 10,3001 00006 EXTEND
009667,001465: 10,3002 54665 NDX ADRS3
009668,001466: 10,3003 10000 DV 0000 # C(A) = 25252, C(L) = 10000
009669,001467: 10,3004 55034 TS KEEP1
009670,001468: 10,3005 34746 CA S-ZERO
009671,001469: 10,3006 56001 XCH L
009672,001470: 10,3007 40000 CS A
009673,001471: 10,3010 00006 EXTEND
009674,001472: 10,3011 54665 NDX ADRS3
009675,001473: 10,3012 10000 DV 0000
009676,001474: 10,3013 61034 AD KEEP1
009677,001475: 10,3014 04754 TC -0CHK
009678,001476: # INDEX USED WITH MSU (C(A) = +0, C(K) = -0) (RESULT = -1)
009679,001477: 10,3015 34711 NDXMSU CA S+ZERO
009680,001478: 10,3016 55034 TS KEEP1
009681,001479: 10,3017 40000 CS A
009682,001480: 10,3020 00006 EXTEND
009683,001481: 10,3021 54663 NDX ADRS1 # MSU KEEP1
009684,001482: 10,3022 20000 MSU 0000 # C(A) = -1
009685,001483: 10,3023 04762 TC -1CHK
009686,001484: # INDEX USED WITH QXCH
009687,001485: 10,3024 32733 NDXQXCH CA ADRSQXCH
009688,001486: 10,3025 55034 TS KEEP1
009689,001487: 10,3026 03030 TC +2
009690,001488: 10,3027 04770 TC ERRORS
009691,001489: 10,3030 00006 EXTEND
009692,001490: 10,3031 54663 NDX ADRS1 # QXCH KEEP1
009693,001491: 10,3032 22000 QXCH 0000
009694,001492: 10,3033 00002 TC Q
009695,001493: 10,3034 04770 TC ERRORS
009696,001494: # INDEX USED WITH AUG
009697,001495: 10,3035 44711 NDXAUG CS S+ZERO
009698,001496: 10,3036 55034 TS KEEP1 # 00000
009699,001497: 10,3037 00006 EXTEND
009700,001498: 10,3040 54663 NDX ADRS1 # AUG KEEP1
009701,001499: 10,3041 24000 AUG 0000
009702,001500: 10,3042 31034 CA KEEP1
009703,001501: 10,3043 04762 TC -1CHK
009704,001502:
|
|
Page 239 |
009706,001504: # INDEX USED WITH DIM
009707,001505: 10,3044 34713 NDXDIM CA S+2
009708,001506: 10,3045 55034 TS KEEP1
009709,001507: 10,3046 00006 EXTEND
009710,001508: 10,3047 54663 NDX ADRS1 # DIM KEEP1
009711,001509: 10,3050 26000 DIM 0000
009712,001510: 10,3051 41034 CS KEEP1
009713,001511: 10,3052 04762 TC -1CHK
009714,001512:
009715,001513: # NORMAL USE OF INDEX WITH IN-OUT INSTRUCTIONS
009716,001514: # INDEX USED WITH WRITE AND READ
009717,001515: 10,3053 34745 NDXINOUT CA S-1
009718,001516: 10,3054 00006 EXTEND
009719,001517: 10,3055 54712 NDX S+1 # WRITE L
009720,001518: 10,3056 01000 WRITE 0000
009721,001519: 10,3057 40000 CS A
009722,001520: 10,3060 00006 EXTEND
009723,001521: 10,3061 54712 NDX S+1 # READ L
009724,001522: 10,3062 00000 READ 0000
009725,001523: 10,3063 04762 TC -1CHK
009726,001524: # INDEX USED WITH RAND
009727,001525: 10,3064 34712 CA S+1 # 00001
009728,001526: 10,3065 54001 TS L
009729,001527: 10,3066 34746 CA S-ZERO # 77777
009730,001528: 10,3067 00006 EXTEND
009731,001529: 10,3070 54712 NDX S+1 # RAND L
009732,001530: 10,3071 02000 RAND 00000
009733,001531: 10,3072 04761 TC -1CHK -1
009734,001532: # INDEX USED WITH WAND
009735,001533: 10,3073 34726 CA S-MAX # 40000
009736,001534: 10,3074 64712 AD S+1 # 40001
009737,001535: 10,3075 54001 TS L
009738,001536: 10,3076 34725 CA S+MAX # 37777
009739,001537: 10,3077 00006 EXTEND
009740,001538: 10,3100 54712 NDX S+1 # WAND L
009741,001539: 10,3101 03000 WAND 0000 # C(A) = C(L) = +1
009742,001540: 10,3102 04761 TC -1CHK -1
009743,001541: 10,3103 40001 CS L
009744,001542: 10,3104 04762 TC -1CHK
009745,001543: # INDEX USED WITH ROR
009746,001544: 10,3105 34712 CA S+1
009747,001545: 10,3106 54002 TS Q
009748,001546: 10,3107 34711 CA S+ZERO
009749,001547: 10,3110 00006 EXTEND
009750,001548: 10,3111 54713 NDX S+2 # ROR Q
009751,001549: 10,3112 04000 ROR 0000
009752,001550: 10,3113 04761 TC -1CHK -1
009753,001551: # INDEX USED WITH WOR
009754,001552: 10,3114 34737 CA S-7
009755,001553: 10,3115 54001 TS L # 77770
|
|
Page 240 |
009757,001555: 10,3116 34725 CA S+MAX
009758,001556: 10,3117 64745 AD S-1 # 37776
009759,001557: 10,3120 00006 EXTEND
009760,001558: 10,3121 54712 NDX S+1 # WOR L
009761,001559: 10,3122 05000 WOR 0000 # C(A) = C(L) = -1
009762,001560: 10,3123 04762 TC -1CHK
009763,001561: 10,3124 30001 CA L
009764,001562: 10,3125 04762 TC -1CHK
009765,001563: # INDEX USED WITH RXOR
009766,001564: 10,3126 34745 CA S-1
009767,001565: 10,3127 54001 TS L # 77776
009768,001566: 10,3130 34725 CA S+MAX # 37777
009769,001567: 10,3131 00006 EXTEND
009770,001568: 10,3132 54712 NDX S+1 # RXOR L
009771,001569: 10,3133 06000 RXOR 0000 # C(A) = 40001
009772,001570: 10,3134 64725 AD S+MAX
009773,001571: 10,3135 04761 TC -1CHK -1
009774,001572: # CHECKS EXTRACODE INDEX OF AN SC REGISTER
009775,001573: 10,3136 34713 CA S+2
009776,001574: 10,3137 55034 TS KEEP1
009777,001575: 10,3140 34663 CA ADRS1 # ADDRESS OF KEEP1
009778,001576: 10,3141 54001 TS L
009779,001577: 10,3142 34712 CA S+1
009780,001578: 10,3143 00006 EXTEND
009781,001579: 10,3144 50001 NDX L
009782,001580: 10,3145 60000 SU 0000
009783,001581: 10,3146 04762 TC -1CHK
009784,001582:
009785,001583: # CHECK OF SPECIAL AND CENTRAL REGISTERS
009786,001584: # CHANGE OF SIGN BY ADDING SAME NUMBER (ADDER)
009787,001585: 10,3147 34707 ADDCHK CA SBIT14 # 20000
009788,001586: 10,3150 60000 AD A # 01 -00000
009789,001587: 10,3151 54000 TS A
009790,001588: 10,3152 04770 TC ERRORS
009791,001589: 10,3153 60000 AD A # 10 - 00000
009792,001590: 10,3154 54000 TS A
009793,001591: 10,3155 04770 TC ERRORS
009794,001592: 10,3156 60000 AD A # 00001
009795,001593: 10,3157 54000 TS A
009796,001594: 10,3160 03162 TC +2
009797,001595: 10,3161 04770 TC ERRORS
009798,001596: 10,3162 04761 TC -1CHK -1
009799,001597:
009800,001598: # NORMAL OPERATION OF CYCLE RIGHT REGISTER
009801,001599: 10,3163 34733 CYRCHK CA CYRCON # 57761
009802,001600: 10,3164 55040 TS KEEP5 # COUNTDOWN REGISTER
009803,001601: 10,3165 34726 CA S-MAX # 40000
009804,001602: 10,3166 54020 TS CYR
009805,001603: 10,3167 10020 CYRLOOP CCS CYR
009806,001604: 10,3170 03174 TC CYRCNTDN
|
|
Page 241 |
009808,001606: 10,3171 04770 TC ERRORS
009809,001607: 10,3172 03176 TC ENDCYR
009810,001608: 10,3173 04770 TC ERRORS
009811,001609: 10,3174 25040 CYRCNTDN INCR KEEP5
009812,001610: 10,3175 03167 TC CYRLOOP
009813,001611: 10,3176 31040 ENDCYR CA KEEP5 # 57777
009814,001612: 10,3177 60020 AD CYR # C(CYR) = 20000
009815,001613: 10,3200 10000 CCS A # -0 = END OF CYCLE RIGHT CHECK
009816,001614: 10,3201 04770 TC ERRORS
009817,001615: 10,3202 04770 TC ERRORS
009818,001616: 10,3203 04770 TC ERRORS
009819,001617:
009820,001618: # NORMAL OPERATION OF CYCLE LEFT REGISTER
009821,001619: 10,3204 34735 CYLCHK CA S-15 # 77760, -15
009822,001620: 10,3205 55040 TS KEEP5 # COUNT REGISTER
009823,001621: 10,3206 34726 CA S-MAX # 40000
009824,001622: 10,3207 54022 TS CYL
009825,001623: 10,3210 10022 CYLLOOP CCS CYL
009826,001624: 10,3211 03215 TC CYLCNTDN
009827,001625: 10,3212 04770 TC ERRORS
009828,001626: 10,3213 03217 TC ENDCYL
009829,001627: 10,3214 04770 TC ERRORS
009830,001628: 10,3215 25040 CYLCNTDN INCR KEEP5
009831,001629: 10,3216 03210 TC CYLLOOP
009832,001630: 10,3217 30022 ENDCYL CA CYL # C(CYL) SHOULD = +1
009833,001631: 10,3220 04761 TC -1CHK -1
009834,001632: 10,3221 31040 CA KEEP5
009835,001633: 10,3222 04762 TC -1CHK
009836,001634:
009837,001635: # NORMAL OPERATION OF SHIFT RIGHT REGISTER
009838,001636: 10,3223 34736 SRCHK CA S-14 # 77761, -14
009839,001637: 10,3224 55040 TS KEEP5 # COUNT REGISTER
009840,001638: 10,3225 34726 CA S-MAX # 40000
009841,001639: 10,3226 54021 TS SR
009842,001640: 10,3227 10021 SRLOOP CCS SR
009843,001641: 10,3230 04770 TC ERRORS
009844,001642: 10,3231 04770 TC ERRORS
009845,001643: 10,3232 03236 TC SRCNTDN
009846,001644: 10,3233 31040 CA KEEP5 # HAS SHIFTED 14 TIMES
009847,001645: 10,3234 04762 TC -1CHK
009848,001646: 10,3235 03240 TC EDOPCHK # NEXT SUBROUTINE
009849,001647: 10,3236 25040 SRCNTDN INCR KEEP5 # INCREMENT COUNT REGISTER
009850,001648: 10,3237 03227 TC SRLOOP
009851,001649:
009852,001650: # NORMAL OPERATION OF EDOP REGISTER. BITS 8 - 14 OF G REGISTER GO TO
009853,001651: # BITS 1 - 7 OF EDOP.
009854,001652: 10,3240 34735 EDOPCHK CA S-15 # 77760, -15
009855,001653: 10,3241 55040 TS KEEP5 # COUNT REGISTER
009856,001654: 10,3242 34722 CA S7BITS # 00177
009857,001655: 10,3243 54022 TS CYL
|
|
Page 242 |
009859,001657: 10,3244 30022 EDOPLOOP CA CYL
009860,001658: 10,3245 54023 TS EDOP
009861,001659: 10,3246 54020 TS CYR # SHIFT LEFT 7 TIMES
009862,001660: 10,3247 30020 CA CYR
009863,001661: 10,3250 30020 CA CYR
009864,001662: 10,3251 30020 CA CYR
009865,001663: 10,3252 30020 CA CYR
009866,001664: 10,3253 30020 CA CYR
009867,001665: 10,3254 30020 CA CYR
009868,001666: 10,3255 30020 CA CYR
009869,001667: 10,3256 74722 MASK S7BITS
009870,001668: 10,3257 40000 CS A
009871,001669: 10,3260 55034 TS KEEP1 # COMPLEMEMT OF C(EDOP)
009872,001670: 10,3261 34746 CA S-ZERO
009873,001671: 10,3262 70023 MASK EDOP
009874,001672: 10,3263 61034 AD KEEP1
009875,001673: 10,3264 04754 TC -0CHK
009876,001674: 10,3265 25040 INCR KEEP5 # INCREMEMT COUNT REGISTER
009877,001675: 10,3266 10023 CCS EDOP
009878,001676: 10,3267 03244 TC EDOPLOOP
009879,001677: 10,3270 03273 TC ENDEDOP
009880,001678: 10,3271 04770 TC ERRORS
009881,001679: 10,3272 04770 TC ERRORS
009882,001680: 10,3273 31040 ENDEDOP CA KEEP5 # SHOULD HAVE PERFORMED EDOPLOOP 14 TIMES
009883,001681: 10,3274 04762 TC -1CHK
009884,001682:
009885,001683: 10,3275 25047 INCR SCOUNT # INCREMENT UPON SUCCESSFUL COMLETION
009886,001684:
009887,001685: 10,3276 05012 TC SMODECHK
009888,001686:
009889,001687:
End of include-file AGC_BLK2_INSTRUCTION_CHECK.agc. Parent file is MAIN.agc