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