Source Code
|
These source-code files were transcribed from a printout in Don Eyles's personal
collection, scanned by archive.org, and financially sponsored by Peter McDermott.
A team of volunteers performed the transcription and proof-reading. The scanned
page images are available at
the Virtual AGC Project website, as well as higher-quality (but much larger)
images at
the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating
"issues" at
the Virtual AGC Project's GitHub Repository. Notations on the program listing read, in part:
YUL SYSTEM FOR AGC: NEW PROGRAM SHEPATIN BY EYLES
DEC 13, 1966
THIS PROGRAM WAS ASSEMBLED AS A VERSION OF REVISION 37
OF PROGRAM SUNBURST BY LEM GROUP
Note that the date is the date of the printout, not the date of the program revision.
|
044983,000002: ## Copyright: Public domain.
044984,000003: ## Filename: AGC_BLOCK_TWO_SELF-CHECK.agc
044985,000004: ## Purpose: A section of Sunburst revision 37, or Shepatin revision 0.
044986,000005: ## It is part of an early development version of the software
044987,000006: ## for Apollo Guidance Computer (AGC) on the unmanned Lunar
044988,000007: ## Module (LM) flight Apollo 5. Sunburst 37 was the program
044989,000008: ## upon which Don Eyles's offline development program Shepatin
044990,000009: ## was based; the listing herein transcribed was actually for
044991,000010: ## the equivalent revision 0 of Shepatin.
044992,000011: ## This file is intended to be a faithful transcription, except
044993,000012: ## that the code format has been changed to conform to the
044994,000013: ## requirements of the yaYUL assembler rather than the
044995,000014: ## original YUL assembler.
044996,000015: ## Reference: pp. 1014-1037
044997,000016: ## Assembler: yaYUL
044998,000017: ## Contact: Ron Burkey <info@sandroid.org>.
044999,000018: ## Website: www.ibiblio.org/apollo/index.html
045000,000019: ## Mod history: 2017-05-24 MAS Created from Sunburst 120.
045001,000020: ## 2017-06-04 MAS Transcribed.
045002,000021: ## 2017-06-08 HG Add missing EXTEND instruction
045003,000022: ## 2017-06-23 RSB Proofed comment text with
045004,000023: ## octopus/ProoferComments.
045005,000024:
|
|
Page 1014 |
045007,000026: 37,2000 BANK 37
045008,000027:
045009,000028: 37,2000 7755 SBIT1 EQUALS BIT1
045010,000029: 37,2000 7754 SBIT2 EQUALS BIT2
045011,000030: 37,2000 7753 SBIT3 EQUALS BIT3
045012,000031: 37,2000 7752 SBIT4 EQUALS BIT4
045013,000032: 37,2000 7751 SBIT5 EQUALS BIT5
045014,000033: 37,2000 7750 SBIT6 EQUALS BIT6
045015,000034: 37,2000 7747 SBIT7 EQUALS BIT7
045016,000035: 37,2000 7746 SBIT8 EQUALS BIT8
045017,000036: 37,2000 7745 SBIT9 EQUALS BIT9
045018,000037: 37,2000 7744 SBIT10 EQUALS BIT10
045019,000038: 37,2000 7743 SBIT11 EQUALS BIT11
045020,000039: 37,2000 7742 SBIT12 EQUALS BIT12
045021,000040:
045022,000041: 37,2000 7741 SBIT13 EQUALS BIT13
045023,000042: 37,2000 7740 SBIT14 EQUALS BIT14
045024,000043: 37,2000 7737 SBIT15 EQUALS BIT15
045025,000044:
045026,000045: 37,2000 7761 S+ZERO EQUALS ZERO
045027,000046: 37,2000 7755 S+1 EQUALS BIT1
045028,000047: 37,2000 7754 S+2 EQUALS BIT2
045029,000048: 37,2000 6301 S+3 EQUALS THREE
045030,000049: 37,2000 7753 S+4 EQUALS FOUR
045031,000050: 37,2000 7760 S+5 EQUALS FIVE
045032,000051:
045033,000052: 37,2000 6276 S+6 EQUALS SIX
045034,000053: 37,2000 7757 S+7 EQUALS SEVEN
045035,000054: 37,2000 4553 S8BITS EQUALS LOW8 # 00377
045036,000055: 37,2000 00050 CNTRCON OCTAL 00050 # USED IN CNTRCHK
045037,000056: 37,2001 00061 ERASCON1 OCTAL 00061 # USED IN ERASCHK
045038,000057: 37,2002 01374 ERASCON2 OCTAL 01374 # USED IN ERASCHK
045039,000058: 37,2003 01400 ERASCON6 OCTAL 01400 # USED IN ERASCHK
045040,000059: 37,2004 01461 ERASCON3 OCTAL 01461 # USED IN ERASCHK
045041,000060: 37,2005 01774 ERASCON4 OCTAL 01774 # USED IN ERASCHK
045042,000061: 37,2006 5356 S10BITS EQUALS LOW10 # 01777, USED IN ERASCHK
045043,000062: 37,2006 5652 SBNK03 EQUALS PRIO6 # 06000, USED IN ROPECHK
045044,000063: 37,2006 00060 SIXTY OCTAL 00060
045045,000064:
045046,000065: 37,2007 60017 SUPRCON OCTAL 60017 # USED IN ROPECHK
045047,000066: 37,2010 17777 S13BITS OCTAL 17777
045048,000067: 37,2011 25252 CONC+S1 OCTAL 25252 # USED IN CYCLSHFT
045049,000068: 37,2012 37737 OVCON OCTAL 37737 # USED IN RUPTCHK
045050,000069: 37,2013 37776 DVCON OCTAL 37776
045051,000070: 37,2014 52400 CONC+S2 OCTAL 52400 # USED IN CYCLSHFT
045052,000071: 37,2015 76777 ERASCON5 OCTAL 76777
045053,000072: 37,2016 77770 S-7 OCTAL 77770
045054,000073: 37,2017 6146 S-4 EQUALS NEG4
045055,000074: 37,2017 5357 S-3 EQUALS NEG3
045056,000075:
045057,000076: 37,2017 5355 S-2 EQUALS NEG2
045058,000077: 37,2017 7763 S-1 EQUALS NEGONE
045059,000078: 37,2017 7762 S-ZERO EQUALS NEG0
045060,000079:
045061,000080: 37,2017 E3,1400 EBANK= LST1
|
|
Page 1015 |
045063,000082: 37,2017 01371 ADRS1 ADRES SKEEP1
045064,000083: 37,2020 00021 SRADRS ADRES SR
045065,000084: 37,2021 02102 SELFADRS ADRES SELFCHK # SELFCHK RETURN ADDRESS. SHOULD BE PUT
045066,000085: # IN SELFRET WHEN GOING FROM SELFCHK TO
045067,000086: # SHOWSUM AND PUT IN SKEEP1 WHEN GOING
045068,000087: # FROM SHOWSUM TO SELF-CHECK.
045069,000088:
045070,000089: 37,2022 30002 ERRORS CA Q
045071,000090: 37,2023 55361 TS SFAIL # SAVE Q FOR FAILURE LOCATION
045072,000091: 37,2024 25362 INCR ERCOUNT # KEEP TRACK OF NUMBER OF MALFUNCTIONS.
045073,000092: 37,2025 04744 TC ALARM
045074,000093: 37,2026 01102 OCT 01102 # SELF-CHECK MALFUNCTION INDICATOR
045075,000094: 37,2027 11357 CCS SMODE
045076,000095: 37,2030 37761 CA S+ZERO
045077,000096: 37,2031 55357 TS SMODE
045078,000097: 37,2032 02102 TC SELFCHK # GO TO IDLE LOOP
045079,000098: 37,2033 01361 TC SFAIL # CONTINUE WITH SELF-CHECK
045080,000099:
045081,000100: 37,2034 40000 +0CHK CS A
045082,000101:
045083,000102: 37,2035 10000 -0CHK CCS A
045084,000103: 37,2036 12022 TCF ERRORS
045085,000104: 37,2037 12022 TCF ERRORS
045086,000105: 37,2040 12022 TCF ERRORS
045087,000106: 37,2041 00002 TC Q
045088,000107:
045089,000108: 37,2042 40000 +1CHK CS A
045090,000109: 37,2043 10000 -1CHK CCS A
045091,000110: 37,2044 12022 TCF ERRORS
045092,000111: 37,2045 12022 TCF ERRORS
045093,000112:
045094,000113: 37,2046 10000 CCS A
045095,000114: 37,2047 12022 TCF ERRORS
045096,000115: 37,2050 00002 TC Q
045097,000116:
045098,000117: 37,2051 00006 SMODECHK EXTEND
045099,000118: 37,2052 23371 QXCH SKEEP1
045100,000119: 37,2053 05623 TC CHECKNJ # CHECK FOR NEW JOB
045101,000120: 37,2054 11357 CCS SMODE
045102,000121: 37,2055 02062 TC SOPTIONS
045103,000122: 37,2056 02053 TC SMODECHK +2 # TO BACKUP IDLE LOOP
045104,000123: 37,2057 02062 TC SOPTIONS
045105,000124: 37,2060 25366 INCR SCOUNT
045106,000125:
045107,000126: 37,2061 01371 TC SKEEP1 # CONTINUE WITH SELF-CHECK
045108,000127:
045109,000128: 37,2062 62016 SOPTIONS AD S-7
045110,000129: 37,2063 00006 EXTEND
045111,000130: 37,2064 62066 BZMF +2 # FOR OPTIONS BELOW NINE.
045112,000131: 37,2065 03547 BNKOPTN TC SBNKOPTN # FOR OPTIONS ABOVE EIGHT
045113,000132: 37,2066 25366 INCR SCOUNT # FOR OPTIONS BELOW NINE.
045114,000133: 37,2067 67757 AD S+7
045115,000134:
|
|
Page 1016 |
045117,000136: 37,2070 50000 INDEX A
045118,000137: 37,2071 02072 TC SOPTION1
045119,000138:
045120,000139: 37,2072 02103 SOPTION1 TC TC+TCF
045121,000140: 37,2073 02767 SOPTION2 TC IN-OUT1
045122,000141: 37,2074 03043 SOPTION3 TC COUNTCHK
045123,000142: 37,2075 03137 SOPTION4 TC ERASCHK
045124,000143: 37,2076 03313 SOPTION5 TC ROPECHK
045125,000144: 37,2077 01371 SOPTION6 TC SKEEP1
045126,000145: 37,2100 01371 SOPTION7 TC SKEEP1
045127,000146: 37,2101 01371 SOPTON10 TC SKEEP1 # CONTINUE WITH SELF-CHECK
045128,000147:
045129,000148: 37,2102 02051 SELFCHK TC SMODECHK # ** CHARLEY, COME IN HERE
045130,000149:
045131,000150: # TC+TCF CHECKS ALL OF THE PULSES OF TCF AND ALL OF THE PULSES OF TC
045132,000151: # EXCEPT ABILITY TO TC TO ERASABLE.
045133,000152: # ALSO FIRST TIME CS FIXED MEMORY IS USED
045134,000153: 37,2103 02105 TC+TCF TC +2
045135,000154: 37,2104 02112 TC CCSCHK
045136,000155: 37,2105 12107 TCF +2 # $ TCF FIXED MEMORY
045137,000156: 37,2106 02022 TC ERRORS
045138,000157: 37,2107 46301 CS S+3 # $ CS FIXED MEMORY
045139,000158: 37,2110 00002 TC Q # $
045140,000159: 37,2111 02022 TC ERRORS
045141,000160:
045142,000161: # CCSCHK CHECKS ALL OF CCS EXCEPT RB WG.
045143,000162:
045144,000163: # ALSO CHECKS TS ERASABLE, CS SC, AND CS ERASABLE MEMORY.
045145,000164: 37,2112 10000 CCSCHK CCS A # $ CCS SC, C(A) = -3
045146,000165: 37,2113 02022 TC ERRORS
045147,000166: 37,2114 02022 TC ERRORS
045148,000167: 37,2115 02117 TC +2
045149,000168: 37,2116 02022 TC ERRORS
045150,000169: 37,2117 10000 CCS A # $ C(A) = +2, RESULT OF CCS -NUMBER
045151,000170: 37,2120 02124 TC +4
045152,000171: 37,2121 02022 TC ERRORS
045153,000172: 37,2122 02022 TC ERRORS
045154,000173:
045155,000174: 37,2123 02022 TC ERRORS
045156,000175: 37,2124 55371 TS SKEEP1 # $ TS ERASABLE
045157,000176: 37,2125 11371 CCS SKEEP1 # $ CCS ERASABLE, C(A) = +1, RESULT OF
045158,000177: 37,2126 02132 TC +4 # CCS +NUMBER
045159,000178: 37,2127 02022 TC ERRORS
045160,000179: 37,2130 02022 TC ERRORS
045161,000180: 37,2131 02022 TC ERRORS
045162,000181: 37,2132 10000 CCS A # $ C(A) = +0, RESULT OF CCS +1, CHECKS CI
045163,000182: 37,2133 02022 TC ERRORS
045164,000183: 37,2134 02137 TC +3
045165,000184: 37,2135 02022 TC ERRORS
045166,000185: 37,2136 02022 TC ERRORS
045167,000186:
045168,000187: 37,2137 40000 CS A # $ CS SC
045169,000188: 37,2140 10000 CCS A # $ C(A) = -0, RESULT OF CCS +0
045170,000189: 37,2141 02022 TC ERRORS
|
|
Page 1017 |
045172,000191: 37,2142 02022 TC ERRORS
045173,000192: 37,2143 02022 TC ERRORS
045174,000193: 37,2144 10000 CCS A # $ RESULT OF CCS -0
045175,000194: 37,2145 02022 TC ERRORS
045176,000195: 37,2146 02151 TC +3
045177,000196: 37,2147 02022 TC ERRORS
045178,000197: 37,2150 02022 TC ERRORS
045179,000198: 37,2151 41371 CS SKEEP1 # $ CS ERASABLE. ALSO CHECKS BACK INTO
045180,000199:
045181,000200: 37,2152 02043 TC -1CHK # ERASABLE SEQUENCE.
045182,000201:
045183,000202: # BZMFCHK CHECKS ALL PULSES OF BZMF.
045184,000203: # ALSO CHECKS CA FIXED MEMORY.
045185,000204: 37,2153 37745 BZMFCHK CAF SBIT9 # $ CA FIXED MEMORY
045186,000205: 37,2154 00006 EXTEND
045187,000206: 37,2155 62176 BZMF ERRBZMF
045188,000207: 37,2156 40000 CS A
045189,000208: 37,2157 00006 EXTEND
045190,000209: 37,2160 62162 BZMF +2 # $
045191,000210:
045192,000211: 37,2161 02022 TC ERRORS
045193,000212: 37,2162 33455 CA S+MAX
045194,000213: 37,2163 67755 AD S+1
045195,000214: 37,2164 00006 EXTEND
045196,000215: 37,2165 62177 BZMF ERRBZMF2 # $ + OVERFLOW, CHECK 01-0000
045197,000216: 37,2166 37761 CA S+ZERO
045198,000217: 37,2167 00006 EXTEND
045199,000218: 37,2170 62172 BZMF +2 # $
045200,000219: 37,2171 02022 TC ERRORS
045201,000220: 37,2172 40000 CS A
045202,000221: 37,2173 00006 EXTEND
045203,000222: 37,2174 62200 BZMF +4 # $
045204,000223:
045205,000224: 37,2175 02022 TC ERRORS
045206,000225: 37,2176 02022 ERRBZMF TC ERRORS # FROM BZMF WITH +NON-ZERO
045207,000226: 37,2177 02022 ERRBZMF2 TC ERRORS # OVERFLOW WITH +0
045208,000227:
045209,000228: # RESTORE1 AND 2 CHECKS INSTRUCTIONS (WITH STAR) ABILITY TO READ BACK INTO
045210,000229: # ERASABLE MEMORY. NOT NORMALLY INTERESTED IN CONTENTS OF A REGISTER.
045211,000230: # FIRST TIME MANY INSTRUCTIONS ARE USED.
045212,000231: # RESTORE1 ALSO CHECKS INDEX (WITHOUT EXTRACODE) ERASABLE, CA ERASABLE,
045213,000232: # AND MASK ERASABLE.
045214,000233: 37,2200 32020 RESTORE1 CAF SRADRS # ADDRESS OF SR
045215,000234:
045216,000235: 37,2201 55377 TS SKEEP7
045217,000236: 37,2202 34553 CA S8BITS # 00377
045218,000237: 37,2203 51377 NDX SKEEP7 # $ INDEX ERASABLE *
045219,000238: 37,2204 54000 TS 0000 # TS SR, C(SR) = 00177
045220,000239: 37,2205 10021 CCS SR # C(SR) = 00077 *
045221,000240: 37,2206 51377 NDX SKEEP7 # CHECKS C(SKEEP7) CORRECT
045222,000241: 37,2207 40000 CS 0000 # C(SR) = 00037
045223,000242: 37,2210 60021 AD SR # C(SR) = 00017 *
045224,000243: 37,2211 00006 EXTEND
045225,000244: 37,2212 20021 MSU SR # C(SR) = 00007 *
|
|
Page 1018 |
045227,000246: 37,2213 00006 EXTEND
045228,000247:
045229,000248: 37,2214 60021 SU SR # C(SR) = 00003 *
045230,000249: 37,2215 30021 CA SR # $ C(SR) = +1, C(A) = +3, CA ERASABLE *
045231,000250: 37,2216 70021 MASK SR # $ B(SR) = C(SR) = +1, MASK ERASABLE *
045232,000251: 37,2217 02042 TC +1CHK
045233,000252: 37,2220 00006 EXTEND
045234,000253: 37,2221 70021 MP SR
045235,000254: 37,2222 00006 EXTEND
045236,000255: 37,2223 10021 DV SR
045237,000256: 37,2224 30021 CA SR # $ CA ERASABLE
045238,000257: 37,2225 02042 TC +1CHK # MAKES SURE MASK, MP, AND DV DO NOT EDIT.
045239,000258:
045240,000259: # RESTORE2 ALSO CHECKS XCH ERASABLE,INDEX (WITH EXTRACODE) ERASABLE AND
045241,000260:
045242,000261: # FIXED MEMORY, DCS ERASABLE, CA SC, AND DCA ERASABLE.
045243,000262: 37,2226 32017 RESTORE2 CAF ADRS1 # ADDRESS OF SKEEP1
045244,000263: 37,2227 55376 TS SKEEP6
045245,000264: 37,2230 37763 CA S-1
045246,000265: 37,2231 55371 TS SKEEP1 # -1
045247,000266: 37,2232 40000 CS A
045248,000267: 37,2233 57371 XCH SKEEP1 # $ XCH ERASABLE, C(SKEEP1) = +1
045249,000268: 37,2234 57372 XCH SKEEP2 # $ XCH ERASABLE, C(SKEEP2) = -1
045250,000269: 37,2235 00006 EXTEND
045251,000270: 37,2236 51376 NDX SKEEP6 # $ NDX ERASABLE *
045252,000271:
045253,000272: 37,2237 30001 DCA 0000 # DCA ERASABLE *
045254,000273: 37,2240 00006 EXTEND
045255,000274: 37,2241 52017 NDX ADRS1 # $ NDX FIXED MEMORY *
045256,000275: 37,2242 40001 DCS 0000 # $ DCS ERASABLE MEMORY *
045257,000276: 37,2243 02043 TC -1CHK # MAKES SURE DCS ERASABLE OK
045258,000277: 37,2244 30001 CA L # $ CA SC
045259,000278: 37,2245 02042 TC +1CHK
045260,000279: 37,2246 00006 EXTEND
045261,000280: 37,2247 51376 NDX SKEEP6 # MAKE SURE C(SKEEP6) IS STILL CORRECT
045262,000281: 37,2250 30001 DCA 0000 # $ DCA ERASABLE
045263,000282: 37,2251 02042 TC +1CHK
045264,000283: 37,2252 30001 CA L
045265,000284:
045266,000285: 37,2253 02043 TC -1CHK
045267,000286:
045268,000287: # RESTORE3 CHECKS ABILITY TO RESTORE INSTRUCTIONS BACK INTO ERASABLE
045269,000288: # MEMORY. IT IS ONLY NECESSARY TO RESTORE ONE INSTRUCTION BECAUSE THE
045270,000289: # G REGISTER DOES NOT CHANGE.
045271,000290: # ALSO CHECKS TC TO ERASABLE MEMORY.
045272,000291: 37,2254 37737 RESTORE3 CA SBIT15 # CS
045273,000292: 37,2255 55371 TS SKEEP1 # 40000
045274,000293: 37,2256 37754 CA S+2 # TC Q
045275,000294: 37,2257 55372 TS SKEEP2
045276,000295:
045277,000296: 37,2260 37755 CA S+1 # +1
045278,000297: 37,2261 01371 TC SKEEP1 # $ TC ERASABLE
045279,000298: 37,2262 02043 TC -1CHK # FIRST TIME BACK FROM ERASABLE.
045280,000299: 37,2263 01371 TC SKEEP1
045281,000300: 37,2264 02035 TC -0CHK # SECOND TIME BACK FROM ERASABLE.
045282,000301:
|
|
Page 1019 |
045284,000303: # BZFCHK CHECKS ALL PULSES OF BZF.
045285,000304: 37,2265 37760 BZFCHK CAF S+5
045286,000305: 37,2266 00006 EXTEND
045287,000306: 37,2267 12312 BZF ERRBZF1 # $
045288,000307: 37,2270 40000 CS A
045289,000308: 37,2271 00006 EXTEND
045290,000309:
045291,000310: 37,2272 12313 BZF ERRBZF2 # $
045292,000311: 37,2273 33455 CA S+MAX
045293,000312: 37,2274 67755 AD S+1 # 01-00000
045294,000313: 37,2275 00006 EXTEND
045295,000314: 37,2276 12314 BZF ERRBZF3 # $
045296,000315: 37,2277 40000 CS A
045297,000316: 37,2300 00006 EXTEND
045298,000317: 37,2301 12315 BZF ERRBZF4 # $
045299,000318: 37,2302 37761 CAF S+ZERO
045300,000319: 37,2303 00006 EXTEND
045301,000320: 37,2304 12306 BZF +2 # $
045302,000321: 37,2305 02022 TC ERRORS
045303,000322:
045304,000323: 37,2306 40000 CS A
045305,000324: 37,2307 00006 EXTEND
045306,000325: 37,2310 12316 BZF +6 # $
045307,000326: 37,2311 02022 TC ERRORS
045308,000327: 37,2312 02022 ERRBZF1 TC ERRORS # +NON-ZERO
045309,000328: 37,2313 02022 ERRBZF2 TC ERRORS # -NON-ZERO
045310,000329: 37,2314 02022 ERRBZF3 TC ERRORS # 01-00000
045311,000330: 37,2315 02022 ERRBZF4 TC ERRORS # 10-37777
045312,000331:
045313,000332: # DXCH+DIM CHECKS ALL PULSES OF DXCH AND DIM.
045314,000333: # ALSO CHECKS TS WITH OVERFLOW, TS SC, CA SC, AND AD ERASABLE.
045315,000334: 37,2316 33455 DXCH+DIM CA S+MAX
045316,000335: 37,2317 67754 AD S+2 # OVERFLOW WITH +1
045317,000336: 37,2320 55371 TS SKEEP1 # $ TS WITH OVERFLOW, +1
045318,000337: 37,2321 02022 TC ERRORS
045319,000338: 37,2322 40000 CS A
045320,000339: 37,2323 55372 TS SKEEP2
045321,000340: 37,2324 43455 CS S+MAX
045322,000341: 37,2325 54001 TS L # $ TS SC, 40000
045323,000342: 37,2326 40000 CS A # 37777
045324,000343: 37,2327 53372 DXCH SKEEP1 # $ DXCH ERASABLE
045325,000344: 37,2330 02042 TC +1CHK
045326,000345: 37,2331 30001 CA L # $ CA SC
045327,000346:
045328,000347: 37,2332 02043 TC -1CHK
045329,000348: 37,2333 00006 EXTEND
045330,000349: 37,2334 27371 DIM SKEEP1 # $ DIM ERASABLE, DIM + NUMBER, 37776
045331,000350: 37,2335 00006 EXTEND
045332,000351: 37,2336 27372 DIM SKEEP2 # $ DIM - NUMBER, 40001
045333,000352: 37,2337 33455 CA S+MAX # 37777
045334,000353: 37,2340 61372 AD SKEEP2 # $ AD ERASABLE, +1
045335,000354: 37,2341 02042 TC +1CHK
045336,000355: 37,2342 43455 CS S+MAX # 40000
|
|
Page 1020 |
045338,000357: 37,2343 61371 AD SKEEP1 # -1
045339,000358: 37,2344 02043 TC -1CHK
045340,000359:
045341,000360: 37,2345 37755 CA S+1 # +1
045342,000361: 37,2346 00006 EXTEND
045343,000362: 37,2347 26000 DIM A # $ DIM SC, DIM +1
045344,000363: 37,2350 00006 EXTEND
045345,000364: 37,2351 26000 DIM A # $ DIM -0
045346,000365: 37,2352 02035 TC -0CHK
045347,000366: 37,2353 00006 EXTEND
045348,000367: 37,2354 26000 DIM A # $ DIM +0
045349,000368: 37,2355 02034 TC +0CHK
045350,000369:
045351,000370: # DAS+INCR CHECKS ALL PULSES OF DAS AND INCR.
045352,000371: # ALSO CHECKS DCA FIXED, LXCH SC, DCA ERASABLE, AD ERASABLE, DCS FIXED,
045353,000372: # DCS ERASABLE, AND XCH SC.
045354,000373: 37,2356 37763 DAS+INCR CA S-1
045355,000374: 37,2357 54001 DAS++ TS L # -1
045356,000375: 37,2360 37754 CA S+2 # +2
045357,000376: 37,2361 20001 DAS A # $ DAS SC, C(A) = +4 AND C(L) = -2
045358,000377: 37,2362 65357 AD S-3 # $ AD FIXED MEMORY
045359,000378: 37,2363 02042 TC +1CHK
045360,000379: 37,2364 37755 CA S+1
045361,000380: 37,2365 60001 AD L # $ AD SC, -1
045362,000381: 37,2366 02043 TC -1CHK
045363,000382: # DAS WITH INTERFLOW IN LOW ORDER AND NET OVERFLOW
045364,000383:
045365,000384: 37,2367 00006 DAS+- EXTEND
045366,000385: 37,2370 33456 DCA S+MAX # $DCA FIXED MEMORY
045367,000386: 37,2371 53374 DXCH SKEEP3 # 37777, 40000
045368,000387: 37,2372 35355 CA S-2
045369,000388: 37,2373 54001 TS L
045370,000389: 37,2374 36301 CA S+3 # C(A) = +3, C(L) = -2
045371,000390: 37,2375 21374 DAS SKEEP3 # $ DAS ERASABLE
045372,000391: 37,2376 22000 LXCH A # $ LXCH SC
045373,000392: 37,2377 02034 TC +0CHK
045374,000393: 37,2400 30001 CA L
045375,000394:
045376,000395: 37,2401 02042 TC +1CHK
045377,000396: 37,2402 00006 EXTEND
045378,000397: 37,2403 31374 DCA SKEEP3 # $ DCA ERASABLE
045379,000398: 37,2404 22000 LXCH A # C(A) = -1, C(L) = +1
045380,000399: 37,2405 02043 TC -1CHK
045381,000400: 37,2406 30001 CA L
045382,000401: 37,2407 02042 TC +1CHK
045383,000402: # INCRCHK CHECKS ALL INCR PULSES EXCEPT WOVR.
045384,000403: 37,2410 25374 INCRCHK INCR SKEEP4 # $ INCR ERASABLE, -0
045385,000404: 37,2411 61374 AD SKEEP4 # $ AD ERASABLE
045386,000405: 37,2412 02035 TC -0CHK
045387,000406: 37,2413 24000 INCR A # $ INCR SC, +1
045388,000407:
045389,000408: 37,2414 02042 TC +1CHK
045390,000409: # DAS WITH OVERFLOW IN LOW ORDER AND NET UNDERFLOW
045391,000410: 37,2415 00006 DAS-+ EXTEND
|
|
Page 1021 |
045393,000412: 37,2416 43456 DCS S+MAX # $ DCS FIXED MEMORY
045394,000413: 37,2417 53372 DXCH SKEEP1 # 40000, 37777
045395,000414: 37,2420 36301 CA S+3 # +3
045396,000415: 37,2421 54001 TS L
045397,000416: 37,2422 40000 CS A # -3
045398,000417: 37,2423 21372 DAS SKEEP1 # $
045399,000418: 37,2424 02043 TC -1CHK
045400,000419: 37,2425 00006 EXTEND
045401,000420:
045402,000421: 37,2426 41372 DCS SKEEP1 # $ DCS ERASABLE (+1, -2)
045403,000422: 37,2427 56001 XCH L # $ XCH SC (-2, +1)
045404,000423: 37,2430 67755 AD S+1
045405,000424: 37,2431 02043 TC -1CHK
045406,000425: 37,2432 30001 CA L
045407,000426: 37,2433 02042 TC +1CHK
045408,000427:
045409,000428: # MPCHK CHECKS ALL PULSES OF MP, AUG, AND ADS.
045410,000429: 37,2434 37755 MPCHK CA S+1
045411,000430: 37,2435 00006 EXTEND
045412,000431:
045413,000432: 37,2436 24000 AUG A # $ AUG SC, +2
045414,000433: 37,2437 55375 TS SKEEP5 # +2
045415,000434: 37,2440 40000 CS A
045416,000435: 37,2441 54002 TS Q # -2
045417,000436: 37,2442 40000 CS A
045418,000437: 37,2443 00006 MP++ EXTEND
045419,000438: 37,2444 73455 MP S+MAX # $ MP FIXED MEMORY, +1, 37776
045420,000439: 37,2445 60001 AD L # 37777
045421,000440: 37,2446 00006 MP+- EXTEND
045422,000441: 37,2447 70002 MP Q # $ MP SC, -1, 40001
045423,000442: 37,2450 26001 ADS L # $ ADS SC, 40000
045424,000443: 37,2451 62013 AD DVCON
045425,000444:
045426,000445: 37,2452 02043 TC -1CHK
045427,000446: 37,2453 30001 CA L
045428,000447: 37,2454 00006 MP-+ EXTEND
045429,000448: 37,2455 71375 MP SKEEP5 # $ MP ERASABLE, -1, 40001
045430,000449: 37,2456 55376 TS SKEEP6
045431,000450: 37,2457 00006 EXTEND
045432,000451: 37,2460 25376 AUG SKEEP6 # $ AUG ERASABLE, -2
045433,000452: 37,2461 60001 AD L # 40000
045434,000453: 37,2462 00006 MP-- EXTEND
045435,000454: 37,2463 71376 MP SKEEP6 # $ +1, 37776
045436,000455:
045437,000456: 37,2464 02042 TC +1CHK
045438,000457: 37,2465 40001 CS L # 40001
045439,000458: 37,2466 62013 AD DVCON
045440,000459: 37,2467 02035 TC -0CHK
045441,000460: 37,2470 37755 CA S+1
045442,000461: 37,2471 27376 ADS SKEEP6 # $ ADS ERASABLE, +1
045443,000462: 37,2472 02043 TC -1CHK
045444,000463: 37,2473 31376 CA SKEEP6
045445,000464: 37,2474 02043 TC -1CHK
045446,000465:
|
|
Page 1022 |
045448,000467: # DVCH AND DVQXCHK CHECK ALL OF PULSES OF DV AND QXCH.
045449,000468:
045450,000469: # ALSO CHECKS TS WITH UNDERFLOW
045451,000470: 37,2475 37740 DVCHK CA SBIT14 # 20000
045452,000471: 37,2476 55371 TS SKEEP1
045453,000472: 37,2477 60000 AD A # OVERFLOW
045454,000473: 37,2500 67755 AD S+1
045455,000474: 37,2501 54001 TS L # $ TS SC WITH OVERFLOW, +1
045456,000475: 37,2502 02022 TC ERRORS
045457,000476: 37,2503 40000 CS A
045458,000477: 37,2504 55372 TS SKEEP2 # -1
045459,000478: 37,2505 37762 CA S-ZERO # -0
045460,000479: 37,2506 23371 LXCH SKEEP1 # $ LXCH ERASABLE
045461,000480: 37,2507 00006 DV++ EXTEND
045462,000481:
045463,000482: 37,2510 11371 DV SKEEP1 # $ DV ERASABLE, C(A) = 20000, C(L) = +0
045464,000483: 37,2511 40000 CS A
045465,000484: 37,2512 22000 LXCH A
045466,000485: 37,2513 02034 TC +0CHK
045467,000486: 37,2514 00006 DV-- EXTEND
045468,000487: 37,2515 11372 DV SKEEP2 # $ 20000, +0
045469,000488: 37,2516 55374 TS SKEEP4 # 20000
045470,000489: 37,2517 40000 CS A
045471,000490: 37,2520 55373 TS SKEEP3 # -(20000)
045472,000491: 37,2521 67740 AD SBIT14
045473,000492:
045474,000493: 37,2522 02035 TC -0CHK
045475,000494: 37,2523 30001 CA L
045476,000495: 37,2524 02035 TC -0CHK
045477,000496: 37,2525 33455 DV+- CA S+MAX
045478,000497: 37,2526 54001 TS L
045479,000498: 37,2527 32010 CA S13BITS
045480,000499: 37,2530 00006 EXTEND
045481,000500: 37,2531 11373 DV SKEEP3 # $ -(37777), +(17777)
045482,000501: 37,2532 56001 XCH L
045483,000502: 37,2533 40000 CS A
045484,000503: 37,2534 00006 DV-+ EXTEND
045485,000504: 37,2535 11374 DV SKEEP4 # $ -(37777), -(17777)
045486,000505:
045487,000506: 37,2536 62013 AD DVCON
045488,000507: 37,2537 02043 TC -1CHK
045489,000508: 37,2540 33455 CA S+MAX
045490,000509: 37,2541 56001 XCH L # ALSO PUTS 37777 IN L FOR DV-+,-
045491,000510: 37,2542 67740 AD SBIT14
045492,000511: 37,2543 02042 TC +1CHK
045493,000512: 37,2544 42010 DV-+,+ CS S13BITS # -(17777)
045494,000513: 37,2545 00006 EXTEND
045495,000514: 37,2546 11374 DV SKEEP4
045496,000515: 37,2547 60001 AD L # -(37775)
045497,000516:
045498,000517: 37,2550 62013 AD DVCON
045499,000518: 37,2551 02042 TC +1CHK
045500,000519: 37,2552 56001 XCH L
045501,000520: 37,2553 02043 TC -1CHK # ALSO PUTS +0 IN L FOR DVQXCH
045502,000521: 37,2554 42013 DVQXCHK CS DVCON
|
|
Page 1023 |
045504,000523: 37,2555 54002 TS Q # 40001
045505,000524: 37,2556 40000 CS A
045506,000525: 37,2557 00006 EXTEND
045507,000526: 37,2560 10002 DV Q # $ DV SC, -(37777), +(37776)
045508,000527: 37,2561 00006 EXTEND
045509,000528: 37,2562 22001 QXCH L # $ QXCH SC, C(L) = 40001, C(Q) = 37776
045510,000529:
045511,000530: 37,2563 60002 AD Q
045512,000531: 37,2564 02043 TC -1CHK
045513,000532: 37,2565 30001 CA L
045514,000533: 37,2566 63455 AD S+MAX
045515,000534: 37,2567 02042 TC +1CHK
045516,000535: 37,2570 00006 EXTEND
045517,000536: 37,2571 23371 QXCH SKEEP1 # $ QXCH ERAS., C(Q) = +1, C(SKEEP1) = +3
045518,000537: 37,2572 30002 CA Q
045519,000538: 37,2573 02042 TC +1CHK
045520,000539: 37,2574 41371 CS SKEEP1 # -3
045521,000540: 37,2575 67754 AD S+2
045522,000541: 37,2576 02043 TC -1CHK
045523,000542:
045524,000543:
045525,000544: # MSUCHK CHECKS ALL PULSES OF MSU EXCEPT RB WG.
045526,000545: 37,2577 37761 MSUCHK CA S+ZERO
045527,000546: 37,2600 55371 TS SKEEP1 # +0
045528,000547: 37,2601 40000 CS A
045529,000548: 37,2602 55372 TS SKEEP2 # -0
045530,000549: 37,2603 00006 EXTEND
045531,000550: 37,2604 20000 MSU A # $ MSU SC, +0
045532,000551: 37,2605 02034 TC +0CHK
045533,000552: 37,2606 00006 EXTEND
045534,000553:
045535,000554: 37,2607 21372 MSU SKEEP2 # $ MSU ERASABLE, +1
045536,000555: 37,2610 02042 TC +1CHK
045537,000556: 37,2611 00006 EXTEND
045538,000557: 37,2612 33456 DCA S+MAX
045539,000558: 37,2613 00006 EXTEND
045540,000559: 37,2614 20001 MSU L # $ CHECKS RUS WA, ALSO -1 FROM NEG. NO.
045541,000560: 37,2615 54000 TS A
045542,000561: 37,2616 02620 TC +2
045543,000562: 37,2617 02022 TC ERRORS
045544,000563: 37,2620 02043 TC -1CHK
045545,000564:
045546,000565: # MASKCHK FINISHES CHECKING MASK INSTRUCTION.
045547,000566:
045548,000567: 37,2621 37757 MASKCHK CA S+7
045549,000568: 37,2622 54001 TS L
045550,000569: 37,2623 72016 MASK S-7 # $ MASK FIXED MEMORY
045551,000570: 37,2624 02034 TC +0CHK
045552,000571: 37,2625 37755 CA S+1
045553,000572: 37,2626 70001 MASK L # $ MASK SC
045554,000573: 37,2627 02042 TC +1CHK
045555,000574:
045556,000575: # NDX+SU FINISHES CHECKING BOTH INDEX INSTRUCTIONS. ALSO CHECKS ALL OF SU
045557,000576: # EXCEPT RB WG.
|
|
Page 1024 |
045559,000578: 37,2630 37755 NDX+SU CA S+1
045560,000579: 37,2631 54001 TS L
045561,000580:
045562,000581: 37,2632 55371 TS SKEEP1
045563,000582: 37,2633 50000 NDX A # $ NDX SC
045564,000583: 37,2634 60000 AD 0000 # AD L, +2
045565,000584: 37,2635 00006 EXTEND
045566,000585: 37,2636 61371 SU SKEEP1 # $ SU ERASABLE
045567,000586: 37,2637 02042 TC +1CHK
045568,000587: 37,2640 00006 EXTEND
045569,000588: 37,2641 50001 NDX L # $ NDX SC
045570,000589: 37,2642 60000 SU 0000 # $ SU SC, SU L
045571,000590: 37,2643 02043 TC -1CHK
045572,000591:
045573,000592: # D--SC CHECKS DCS SC, DXCH SC, AND DCA SC.
045574,000593: 37,2644 37754 D--SC CA S+2
045575,000594: 37,2645 54001 TS L # +2
045576,000595: 37,2646 37755 CA S+1
045577,000596: 37,2647 00006 EXTEND
045578,000597: 37,2650 40001 DCS A # $ DCS SC, C(L) = -2
045579,000598: 37,2651 02043 TC -1CHK
045580,000599: # AFTER DXCH C(A) = B(Q) = +3, C(L) = B(A) = +0, C(Q) = B(L) = -1.
045581,000600: 37,2652 52002 DXCH L # $ DXCH SC
045582,000601: 37,2653 55373 TS SKEEP3
045583,000602: 37,2654 60002 AD Q
045584,000603: 37,2655 02042 TC +1CHK
045585,000604:
045586,000605: 37,2656 30001 CA L
045587,000606: 37,2657 02034 TC +0CHK
045588,000607: 37,2660 37763 CA S-1
045589,000608: 37,2661 54002 TS Q
045590,000609: 37,2662 40000 CS A
045591,000610: 37,2663 00006 EXTEND
045592,000611: # AFTER DCA C(A) = C(L) = C(Q) = B(Q) = -1.
045593,000612: 37,2664 30002 DCA L # $ DCA SC
045594,000613: 37,2665 60002 AD Q
045595,000614: 37,2666 61373 AD SKEEP3
045596,000615:
045597,000616: 37,2667 02042 TC +1CHK
045598,000617: 37,2670 30001 CA L
045599,000618: 37,2671 02043 TC -1CHK
045600,000619:
045601,000620: # D--LCHK CHECKS THAT OVERFLOW IS LOST IN PROCESS OF GOING THROUGH L REG.
045602,000621: # ALSO CHECKS THAT Q WILL HOLD 16 BITS
045603,000622: 37,2672 35355 D--LCHK CA S-2
045604,000623: 37,2673 54002 TS Q
045605,000624: 37,2674 33456 CA S-MAX
045606,000625: 37,2675 26002 ADS Q
045607,000626: 37,2676 40002 CS Q
045608,000627: 37,2677 54000 TS A
045609,000628:
045610,000629: 37,2700 02022 TC ERRORS
045611,000630: 37,2701 00006 EXTEND
045612,000631: 37,2702 30002 DCA L
|
|
Page 1025 |
045614,000633: 37,2703 54000 TS A
045615,000634: 37,2704 02706 TC +2
045616,000635: 37,2705 02022 TC ERRORS
045617,000636: 37,2706 02043 TC -1CHK
045618,000637:
045619,000638: # CHECKS OVERFLOW, UNDERFLOW,END-AROUND-CARRY, AND SIGN CHANGE OF ADDER.
045620,000639: # ALSO CHECKS ADS SC WITH OVERFLOW AND TS A WITH UNDERFLOW
045621,000640: 37,2707 37740 ADDRCHK CA SBIT14 # 20000
045622,000641:
045623,000642: 37,2710 54002 TS Q
045624,000643: 37,2711 26002 ADS Q # $ ADS SC, OVERFLOW
045625,000644: 37,2712 26002 ADS Q # UNDERFLOW
045626,000645: 37,2713 54000 TS A # $ TS SC WITH UNDERFLOW
045627,000646: 37,2714 02022 TC ERRORS
045628,000647: 37,2715 26002 ADS Q
045629,000648: 37,2716 02042 TC +1CHK
045630,000649:
045631,000650: # RUPTCHK CHECKS THAT INTERRUPT DOES NOT OCCUR WHILE OVERFLOW OR UNDERFLOW
045632,000651: # IS IN THE A REGISTER. ALSO CHECKS THAT INHINT RELINT WORK PROPERLY.
045633,000652:
045634,000653: 37,2717 00004 RUPTCHK INHINT
045635,000654: 37,2720 37761 CA S+ZERO
045636,000655: 37,2721 54015 TS ZRUPT
045637,000656: 37,2722 00003 RELINT
045638,000657: 37,2723 60027 AD TIME4
045639,000658: 37,2724 55371 TS SKEEP1
045640,000659: 37,2725 41371 TENMS CS SKEEP1
045641,000660: 37,2726 60027 AD TIME4 # WAIT FOR NEXT TIME4 INCREMENT
045642,000661: 37,2727 00006 EXTEND
045643,000662: 37,2730 12725 BZF TENMS
045644,000663: 37,2731 00004 INHINT
045645,000664: 37,2732 30015 CA ZRUPT
045646,000665:
045647,000666: 37,2733 00006 EXTEND
045648,000667: 37,2734 12736 BZF +2 # NO INTERRUPT.
045649,000668: 37,2735 02717 TC RUPTCHK # THERE WAS AN INTERRUPT. START AGAIN.
045650,000669: 37,2736 37755 CAF S+1 # 2 1/2 MS UNTILE NEXT T3 INTERRUPT.
045651,000670: 37,2737 05701 TC WAITLIST
045652,000671: 37,2740 E3,1400 EBANK= LST1
045653,000672: 37,2740 02763 76063 2CADR TSKADRS
045654,000673:
045655,000674: 37,2742 33455 CA S+MAX
045656,000675: 37,2743 62012 AD OVCON # CONTROLS TIME SPENT IN OF-UF LOOP
045657,000676:
045658,000677: 37,2744 00003 RELINT
045659,000678: 37,2745 40000 WAIT CS A
045660,000679: 37,2746 10000 CCS A
045661,000680: 37,2747 02753 TC INHNTCHK
045662,000681: 37,2750 02757 RUPTCON ADRES C(BRUPT)
045663,000682: 37,2751 67754 AD S+2
045664,000683: 37,2752 02745 TC WAIT
045665,000684: 37,2753 00004 INHNTCHK INHINT # T3 RUPT SHOULD BE WAITING
045666,000685: 37,2754 55375 TS SKEEP5
045667,000686: 37,2755 02022 TC ERRORS
|
|
Page 1026 |
045669,000688: 37,2756 00003 RELINT
045670,000689:
045671,000690: 37,2757 40015 C(BRUPT) CS ZRUPT # INTERRUPT SHOULD HAPPEN HERE
045672,000691: 37,2760 00006 EXTEND
045673,000692: 37,2761 12022 BZF ERRORS # MAKES SURE AN INTERRUPT DID HAPPEN
045674,000693: 37,2762 02767 TC +5 # END OF RUPTCHK
045675,000694: 37,2763 40015 TSKADRS CS ZRUPT
045676,000695: 37,2764 62750 AD RUPTCON
045677,000696: 37,2765 02043 TC -1CHK
045678,000697: 37,2766 05745 TC TASKOVER
045679,000698:
045680,000699: # IN-OUT1 CHECKS ALL PULSES OF WRITE AND READ
045681,000700: 37,2767 37763 IN-OUT1 CA S-1
045682,000701: 37,2770 00006 WRITECHK EXTEND
045683,000702:
045684,000703: 37,2771 01002 WRITE Q
045685,000704: 37,2772 22002 LXCH Q # PUT C(Q) IN L
045686,000705: 37,2773 02043 TC -1CHK
045687,000706: 37,2774 00006 READCHK EXTEND # C(L) = 77776
045688,000707: 37,2775 00001 READ L
045689,000708: 37,2776 02043 TC -1CHK
045690,000709: 37,2777 30001 CA L
045691,000710: 37,3000 02043 TC -1CHK
045692,000711:
045693,000712: # IN-OUT2 CHECKS ALL PULSES OF ROR AND WOR
045694,000713:
045695,000714: 37,3001 46301 IN-OUT2 CS S+3
045696,000715: 37,3002 54001 RORCHK TS L # 77774
045697,000716: 37,3003 32013 CA DVCON # 37776
045698,000717: 37,3004 00006 EXTEND
045699,000718: 37,3005 04001 ROR L # $ ROR, -1
045700,000719: 37,3006 02043 TC -1CHK
045701,000720: 37,3007 32013 WORCHK CA DVCON # C(L) STILL 77774
045702,000721: 37,3010 00006 EXTEND
045703,000722: 37,3011 05001 WOR L # $ WOR, -1
045704,000723: 37,3012 02043 TC -1CHK
045705,000724: 37,3013 30001 CA L
045706,000725: 37,3014 02043 TC -1CHK
045707,000726:
045708,000727: # IN-OUT3 CHECKS ALL PULSES OF RAND, WAND, AND RXOR
045709,000728: 37,3015 42013 IN-OUT3 CS DVCON
045710,000729: 37,3016 54001 RANDCHK TS L # 40001
045711,000730: 37,3017 32010 CA S13BITS # 17777
045712,000731: 37,3020 00006 EXTEND
045713,000732: 37,3021 02001 RAND L # $ RAND, +1
045714,000733: 37,3022 02042 TC +1CHK
045715,000734: 37,3023 32010 WANDCHK CA S13BITS # C(L) STILL 40001
045716,000735: 37,3024 00006 EXTEND
045717,000736: 37,3025 03001 WAND L # $ WAND, +1
045718,000737:
045719,000738: 37,3026 02042 TC +1CHK
045720,000739: 37,3027 47760 CS S+5
045721,000740: 37,3030 56001 XCH L # ALSO PUT -5 IN L FOR RXORCHK
045722,000741: 37,3031 02042 TC +1CHK
|
|
Page 1027 |
045724,000743: 37,3032 36276 RXORCHK CA S+6
045725,000744: 37,3033 00006 EXTEND
045726,000745: 37,3034 06001 RXOR L # $ RXOR, -3
045727,000746: 37,3035 67754 AD S+2
045728,000747: 37,3036 02043 TC -1CHK
045729,000748: 37,3037 30001 CA L
045730,000749:
045731,000750: 37,3040 67753 AD S+4
045732,000751: 37,3041 02043 TC -1CHK
045733,000752:
045734,000753: 37,3042 02051 TC SMODECHK
045735,000754:
045736,000755: # COUNTCHK COUNTS UP 14 BIT NUMBER WITH SIGN.
045737,000756: # TAKES APPROXIMATELY 8.7 SECONDS.
045738,000757: # ** PUT IN CCS NEWJOB FOR ROPE.
045739,000758: 37,3043 00006 COUNTCHK EXTEND
045740,000759: 37,3044 33456 DCA S+MAX
045741,000760: 37,3045 53377 DXCH SKEEP6 # PUT 37777 IN SKEEP6 AND 40000 IN SKEEP7
045742,000761: 37,3046 31376 +LOOP CA SKEEP6
045743,000762:
045744,000763: 37,3047 56002 XCH Q
045745,000764: 37,3050 00006 EXTEND
045746,000765: 37,3051 40002 DCS L
045747,000766: 37,3052 10000 CCS A
045748,000767: 37,3053 03062 TC -NMBR
045749,000768: 37,3054 03067 TC ENDCOUNT
045750,000769: 37,3055 55376 TS SKEEP6
045751,000770: 37,3056 61377 AD SKEEP7
045752,000771: 37,3057 02043 TC -1CHK
045753,000772: 37,3060 25377 INCR SKEEP7
045754,000773:
045755,000774: 37,3061 03046 TC +LOOP
045756,000775: 37,3062 60001 -NMBR AD L
045757,000776: 37,3063 02043 TC -1CHK
045758,000777: 37,3064 05623 TC CHECKNJ # CHECK FOR NEW JOB
045759,000778: 37,3065 41376 CS SKEEP6
045760,000779: 37,3066 03047 TC +LOOP +1
045761,000780: 37,3067 31377 ENDCOUNT CA SKEEP7 # -0
045762,000781: 37,3070 61376 AD SKEEP6 # SKEEP6 SHOULD BE +0
045763,000782: 37,3071 02035 TC -0CHK
045764,000783:
045765,000784: # O-UFLOW COUNTS DOWN OVERFLOW AND UNDERFLOW NUMBERS.
045766,000785: # TAKES APPROXIMATELY 10.8 SECONDS
045767,000786:
045768,000787: 37,3072 33456 O-UFLOW CA S-MAX
045769,000788: 37,3073 55375 TS SKEEP5 # 40000
045770,000789: 37,3074 40000 CS A
045771,000790: 37,3075 00004 OFLOOP INHINT
045772,000791: 37,3076 63455 AD S+MAX
045773,000792: 37,3077 67755 AD S+1
045774,000793: 37,3100 56002 XCH Q
045775,000794: 37,3101 10002 CCS Q
045776,000795: 37,3102 03117 TC -NMBRS
045777,000796: 37,3103 02022 TC ERRORS # CAN PUT IN CONSTANT
|
|
Page 1028 |
045779,000798: 37,3104 55373 TS SKEEP3
045780,000799: 37,3105 02022 TC ERRORS
045781,000800:
045782,000801: 37,3106 31373 CA SKEEP3
045783,000802: 37,3107 61375 AD SKEEP5
045784,000803: 37,3110 02043 TC -1CHK
045785,000804: 37,3111 00003 RELINT
045786,000805: 37,3112 05623 TC CHECKNJ # CHECK FOR NEW JOB
045787,000806: 37,3113 31374 CA SKEEP4
045788,000807: 37,3114 00006 EXTEND
045789,000808: 37,3115 27375 DIM SKEEP5
045790,000809: 37,3116 03075 TC OFLOOP
045791,000810: 37,3117 55374 -NMBRS TS SKEEP4
045792,000811:
045793,000812: 37,3120 03130 TC ENDOFUF
045794,000813: 37,3121 31374 CA SKEEP4
045795,000814: 37,3122 61375 AD SKEEP5
045796,000815: 37,3123 02043 TC -1CHK
045797,000816: 37,3124 31375 CA SKEEP5
045798,000817: 37,3125 63456 AD S-MAX
045799,000818: 37,3126 67763 AD S-1
045800,000819: 37,3127 03100 TC OFLOOP +3
045801,000820: 37,3130 31375 ENDOFUF CA SKEEP5
045802,000821: 37,3131 02035 TC -0CHK
045803,000822: 37,3132 41374 CS SKEEP4
045804,000823: 37,3133 62013 AD DVCON
045805,000824:
045806,000825: 37,3134 02043 TC -1CHK
045807,000826: 37,3135 00003 RELINT
045808,000827:
045809,000828: 37,3136 02051 TC SMODECHK
045810,000829:
045811,000830: # SKEEP7 HOLDS LOWEST OF TWO ADDRESSES BEING CHECKED.
045812,000831: # SKEEP6 HOLDS B(X+1).
045813,000832: # SKEEP5 HOLDS B(X).
045814,000833: # SKEEP4 CONTROLS CHECKING OF NON-SWITCHABLE ERASABLE MEMORY WITH
045815,000834: # BANK NUMBERS IN EB.
045816,000835:
045817,000836: # SKEEP3 HOLDS LAST ADDRESS BEING CHECKED (HIGHEST ADDRESS).
045818,000837: # SKEEP2 HOLDS C(EBANK) DURING CHECKNJ
045819,000838: # ERASCHK TAKES APPROXMATELY 7 SECONDS
045820,000839: 37,3137 37755 ERASCHK CA S+1
045821,000840: 37,3140 55374 TS SKEEP4
045822,000841: 37,3141 37761 0EBANK CA S+ZERO
045823,000842: 37,3142 54003 TS EBANK
045824,000843: 37,3143 32004 CA ERASCON3 # 01461
045825,000844: 37,3144 55377 TS SKEEP7 # STARTING ADDRESS
045826,000845: 37,3145 35356 CA S10BITS # 01777
045827,000846: 37,3146 55373 TS SKEEP3 # LAST ADDRESS CHECKED
045828,000847: 37,3147 03167 TC ERASLOOP
045829,000848:
045830,000849:
045831,000850: 37,3150 32003 E134567B CA ERASCON6 # 01400
045832,000851: 37,3151 55377 TS SKEEP7 # STARTING ADDRESS
045833,000852: 37,3152 35356 CA S10BITS # 01777
|
|
Page 1029 |
045835,000854: 37,3153 55373 TS SKEEP3 # LAST ADDRESS CHECKED
045836,000855: 37,3154 03167 TC ERASLOOP
045837,000856:
045838,000857: 37,3155 32003 2EBANK CA ERASCON6 # 01400
045839,000858: 37,3156 55377 TS SKEEP7 # STARTING ADDRESS
045840,000859: 37,3157 32005 CA ERASCON4 # 01774
045841,000860: 37,3160 55373 TS SKEEP3 # LAST ADDRESS CHECKED
045842,000861: 37,3161 03167 TC ERASLOOP
045843,000862:
045844,000863:
045845,000864: 37,3162 55374 NOEBANK TS SKEEP4 # +0
045846,000865: 37,3163 32001 CA ERASCON1 # 00061
045847,000866: 37,3164 55377 TS SKEEP7 # STARTING ADDRESS
045848,000867: 37,3165 32002 CA ERASCON2 # 01374
045849,000868: 37,3166 55373 TS SKEEP3 # LAST ADDRESS CHECKED
045850,000869:
045851,000870: 37,3167 00004 ERASLOOP INHINT
045852,000871: 37,3170 00006 EXTEND
045853,000872: 37,3171 51377 NDX SKEEP7
045854,000873:
045855,000874: 37,3172 30001 DCA 0000
045856,000875: 37,3173 53376 DXCH SKEEP5 # STORES C(X) AND C(X-1) IN SKEEP6 AND 5.
045857,000876: 37,3174 31377 CA SKEEP7
045858,000877: 37,3175 55355 TS ERESTORE # IF RESTART, RESTORE C(X) AND C(X+1)
045859,000878: 37,3176 54001 TS L
045860,000879: 37,3177 24001 INCR L
045861,000880: 37,3200 50000 NDX A
045862,000881: 37,3201 52001 DXCH 0000 # PUTS OWN ADDRESS IN X AND X +1
045863,000882: 37,3202 51377 NDX SKEEP7
045864,000883: 37,3203 40001 CS 0001 # CS X+1
045865,000884: 37,3204 51377 NDX SKEEP7
045866,000885: 37,3205 60000 AD 0000 # AD X
045867,000886:
045868,000887: 37,3206 02043 TC -1CHK
045869,000888: 37,3207 00006 EXTEND
045870,000889: 37,3210 51377 NDX SKEEP7
045871,000890: 37,3211 40001 DCS 0000 # COMPLEMENT OF ADDRESS OF X AND X+1
045872,000891: 37,3212 51377 NDX SKEEP7
045873,000892: 37,3213 52001 DXCH 0000 # PUT COMPLEMENT OF ADDRESS OF X AND X+1
045874,000893: 37,3214 51377 NDX SKEEP7
045875,000894: 37,3215 40000 CS 0000 # CS X
045876,000895: 37,3216 51377 NDX SKEEP7
045877,000896: 37,3217 60001 AD 0001 # AD X+1
045878,000897:
045879,000898: 37,3220 02043 TC -1CHK
045880,000899: 37,3221 00006 EXTEND
045881,000900: 37,3222 31376 DCA SKEEP5
045882,000901: 37,3223 51377 NDX SKEEP7
045883,000902: 37,3224 52001 DXCH 0000 # PUT B(X) AND B(X+1) BACK INTO X AND X+1
045884,000903: 37,3225 37761 CA S+ZERO
045885,000904: 37,3226 55355 TS ERESTORE # IF RESTART, DO NOT RESTORE C(X), C(X+1)
045886,000905: 37,3227 00003 RELINT
045887,000906: 37,3230 30003 CA EBANK # STORES C(EBANK)
045888,000907: 37,3231 55372 TS SKEEP2
|
|
Page 1030 |
045890,000909: 37,3232 05623 TC CHECKNJ # CHECK FOR NEW JOB
045891,000910:
045892,000911: 37,3233 31372 CA SKEEP2 # REPLACES B(EBANK)
045893,000912: 37,3234 54003 TS EBANK
045894,000913: 37,3235 25377 INCR SKEEP7
045895,000914: 37,3236 41377 CS SKEEP7
045896,000915: 37,3237 61373 AD SKEEP3
045897,000916: 37,3240 00006 EXTEND
045898,000917: 37,3241 13243 BZF +2
045899,000918: 37,3242 03167 TC ERASLOOP # GO TO NEXT ADDRESS IN SAME BANK
045900,000919: 37,3243 11374 CCS SKEEP4
045901,000920: 37,3244 03162 TC NOEBANK
045902,000921: 37,3245 25374 INCR SKEEP4 # PUT +1 IN SKEEP4
045903,000922: 37,3246 30003 CA EBANK
045904,000923:
045905,000924: 37,3247 67745 AD SBIT9
045906,000925: 37,3250 54003 TS EBANK
045907,000926: 37,3251 62015 AD ERASCON5 # 76777, CHECK FOR BANK E2
045908,000927: 37,3252 00006 EXTEND
045909,000928: 37,3253 13155 BZF 2EBANK
045910,000929: 37,3254 10003 CCS EBANK
045911,000930: 37,3255 03150 TC E134567B # GO TO EBANKS 1,3,4,5,6, AND 7
045912,000931: 37,3256 32003 CA ERASCON6 # END OF ERASCHK
045913,000932: 37,3257 54003 TS EBANK
045914,000933: # CNTRCHK PERFORMS A CS OF ALL REGISTERS FROM OCT. 60 THROUGH OCT. 10.
045915,000934:
045916,000935: # INCLUDED ARE ALL COUNTERS, T6-1, CYCLE AND SHIFT, AND ALL RUPT REGISTERS
045917,000936: 37,3260 32000 CNTRCHK CAF CNTRCON # 00050
045918,000937: 37,3261 55372 CNTRLOOP TS SKEEP2
045919,000938: 37,3262 67752 AD SBIT4 # +10 OCTAL
045920,000939: 37,3263 50000 INDEX A
045921,000940: 37,3264 40000 CS 0000
045922,000941: 37,3265 11372 CCS SKEEP2
045923,000942: 37,3266 03261 TC CNTRLOOP
045924,000943:
045925,000944: # CYCLSHFT CHECKS THE CYCLE AND SHIFT REGISTERS
045926,000945: 37,3267 32011 CYCLSHFT CA CONC+S1 # 25252
045927,000946: 37,3270 54020 TS CYR # C(CYR) = 12525
045928,000947:
045929,000948: 37,3271 54022 TS CYL # C(CYL) = 52524
045930,000949: 37,3272 54021 TS SR # C(SR) = 12525
045931,000950: 37,3273 54023 TS EDOP # C(EDOP) = 00125
045932,000951: 37,3274 60020 AD CYR # 37777 C(CYR) = 45252
045933,000952: 37,3275 60022 AD CYL # 00-12524 C(CYL) = 25251
045934,000953: 37,3276 60021 AD SR # 00-25251 C(SR) = 05252
045935,000954: 37,3277 60023 AD EDOP # 00-25376 C(EDOP) = +0
045936,000955: 37,3300 62014 AD CONC+S2 # C(CONC+S2) = 52400
045937,000956: 37,3301 02043 TC -1CHK
045938,000957: 37,3302 60020 AD CYR # 45252
045939,000958:
045940,000959: 37,3303 60022 AD CYL # 72523
045941,000960: 37,3304 60021 AD SR # 77775
045942,000961: 37,3305 60023 AD EDOP # 77775
045943,000962: 37,3306 67755 AD S+1 # 77776
045944,000963: 37,3307 02043 TC -1CHK
045945,000964:
|
|
Page 1031 |
045947,000966: 37,3310 25367 INCR SCOUNT +1
045948,000967: 37,3311 02051 TC SMODECHK
045949,000968: 37,3312 03313 TC ROPECHK
045950,000969:
045951,000970: # SKEEP1 HOLDS SUM
045952,000971: # SKEEP2 HOLDS PRESENT CONTENTS OF ADDRESS IN ROPECHK AND SHOWSUM ROUTINES
045953,000972:
045954,000973: # SKEEP2 HOLDS BANK NUMBER IN LOW ORDER BITS DURING SHOWSUM DISPLAY
045955,000974: # SKEEP3 HOLDS PRESENT ADDRESS (00000 TO 01777 IN COMMON FIXED BANKS)
045956,000975: # (04000 TO 07777 IN FXFX BANKS)
045957,000976: # SKEEP3 HOLDS BUGGER WORD DURING SHOWSUM DISPLAY
045958,000977: # SKEEP4 HOLDS BANK NUMBER AND SUPER BANK NUMBER
045959,000978: # SKEEP5 COUNTS 2 SUCCESSIVE TC SELF WORDS
045960,000979: # SKEEP6 CONTROLS ROPECHK OR SHOWSUM OPTION
045961,000980: # SKEEP7 CONTROLS WHEN ROUNTINE IS IN COMMON FIXED OR FIXED FIXED BANKS
045962,000981:
045963,000982: 37,3313 37762 ROPECHK CA S-ZERO
045964,000983: 37,3314 55376 TS SKEEP6 # ROPECHK OPTION
045965,000984: 37,3315 37761 STSHOSUM CA S+ZERO
045966,000985:
045967,000986: 37,3316 55374 TS SKEEP4 # BANK NUMBER
045968,000987: 37,3317 37755 CA S+1
045969,000988: 37,3320 55377 COMMFX TS SKEEP7
045970,000989: 37,3321 37761 CA S+ZERO
045971,000990: 37,3322 55371 TS SKEEP1
045972,000991: 37,3323 55373 TS SKEEP3
045973,000992: 37,3324 37755 CA S+1
045974,000993: 37,3325 55375 TS SKEEP5 # COUNTS DOWN 2 TC SELF WORDS
045975,000994: 37,3326 31374 COMADRS CA SKEEP4
045976,000995: 37,3327 54001 TS L # TO SET SUPER BANK
045977,000996:
045978,000997: 37,3330 74547 MASK HI5
045979,000998: 37,3331 61373 AD SKEEP3
045980,000999: 37,3332 05263 TC SUPDACAL # SUPER DATA CALL
045981,001000: 37,3333 03357 TC ADSUM
045982,001001: 37,3334 67743 AD SBIT11 # 02000
045983,001002: 37,3335 03370 TC ADRSCHK
045984,001003:
045985,001004: 37,3336 40000 FXFX CS A
045986,001005: 37,3337 55377 TS SKEEP7
045987,001006: 37,3340 00006 EXTEND
045988,001007: 37,3341 13344 BZF +3
045989,001008: 37,3342 37742 CA SBIT12 # 04000, STARTING ADDRESS OF BANK 02
045990,001009:
045991,001010: 37,3343 03345 TC +2
045992,001011: 37,3344 35652 CA SBNK03 # 06000, STARTING ADDRESS OF BANK 03
045993,001012: 37,3345 55373 TS SKEEP3
045994,001013: 37,3346 37761 CA S+ZERO
045995,001014: 37,3347 55371 TS SKEEP1
045996,001015: 37,3350 37755 CA S+1
045997,001016: 37,3351 55375 TS SKEEP5 # COUNTS DOWN 2 TC SELF WORDS
045998,001017: 37,3352 00006 FXADRS EXTEND
045999,001018: 37,3353 51373 NDX SKEEP3
046000,001019: 37,3354 30001 DCA 0000
|
|
Page 1032 |
046002,001021: 37,3355 03357 TC ADSUM
046003,001022: 37,3356 03370 TC ADRSCHK
046004,001023:
046005,001024:
046006,001025: 37,3357 55372 ADSUM TS SKEEP2
046007,001026: 37,3360 61371 AD SKEEP1
046008,001027: 37,3361 55371 TS SKEEP1
046009,001028: 37,3362 37761 CAF S+ZERO
046010,001029: 37,3363 61371 AD SKEEP1
046011,001030: 37,3364 55371 TS SKEEP1
046012,001031: 37,3365 41372 CS SKEEP2
046013,001032: 37,3366 61373 AD SKEEP3
046014,001033: 37,3367 00002 TC Q
046015,001034:
046016,001035: 37,3370 10000 ADRSCHK CCS A
046017,001036: 37,3371 03401 TC CONTINU
046018,001037: 37,3372 03401 TC CONTINU
046019,001038: 37,3373 03401 TC CONTINU
046020,001039: 37,3374 11375 CCS SKEEP5
046021,001040: 37,3375 03402 TC CONTINU +1
046022,001041: 37,3376 30001 CA L
046023,001042: 37,3377 03357 TC ADSUM
046024,001043: 37,3400 03460 TC SOPTION # GO TO ROPECHK SHOSUM OPTION
046025,001044: 37,3401 37755 CONTINU CA S+1 # MAKE SURE TWO CONSECUTIVE TC SELF WORDS
046026,001045: 37,3402 55375 TS SKEEP5
046027,001046: 37,3403 11376 CCS SKEEP6 # +1 IN SKEEP6, SHOWSUM VIA EXECUTIVE
046028,001047:
046029,001048: 37,3404 10067 CCS NEWJOB
046030,001049: 37,3405 05550 TC CHANG1
046031,001050: 37,3406 03410 TC +2
046032,001051: 37,3407 05623 TC CHECKNJ # -0 IN SKEEP6 FOR ROPECHK
046033,001052:
046034,001053: 37,3410 25373 ADRS+1 INCR SKEEP3
046035,001054: 37,3411 11377 CCS SKEEP7
046036,001055: 37,3412 03326 TC COMADRS
046037,001056: 37,3413 03326 TC COMADRS
046038,001057: 37,3414 03352 TC FXADRS
046039,001058:
046040,001059: 37,3415 03352 TC FXADRS
046041,001060:
046042,001061: 37,3416 41374 NXTBNK CS SKEEP4
046043,001062: 37,3417 63474 AD LSTBNKCH # LAST BANK TO BE CHECKED
046044,001063: 37,3420 00006 EXTEND
046045,001064: 37,3421 13453 BZF ENDSUMS # END OF SUMMING OF BANKS.
046046,001065: 37,3422 31374 CA SKEEP4
046047,001066: 37,3423 67743 AD SBIT11
046048,001067: 37,3424 55374 TS SKEEP4 # 37 TO 40 INCRMTS SKEEP4 BY END RND CARRY
046049,001068: 37,3425 03431 TC CHKSUPR
046050,001069: 37,3426 37737 17TO20 CA SBIT15
046051,001070: 37,3427 27374 ADS SKEEP4 # SET FOR BANK 20
046052,001071:
046053,001072: 37,3430 03445 TC GONXTBNK
046054,001073: 37,3431 74547 CHKSUPR MASK HI5
046055,001074: 37,3432 00006 EXTEND
|
|
Page 1033 |
046057,001076: 37,3433 13443 BZF NXTSUPR # INCREMENT SUPER BANK
046058,001077: 37,3434 62010 27TO30 AD S13BITS
046059,001078: 37,3435 00006 EXTEND
046060,001079: 37,3436 13440 BZF +2 # BANK SET FOR 30
046061,001080: 37,3437 03445 TC GONXTBNK
046062,001081: 37,3440 32006 CA SIXTY # FIRST SUPER BANK
046063,001082: 37,3441 27374 ADS SKEEP4
046064,001083: 37,3442 03445 TC GONXTBNK
046065,001084:
046066,001085: 37,3443 62007 NXTSUPR AD SUPRCON # SET BNK 30 + INCR SUPR BNK AND CANCEL
046067,001086: 37,3444 27374 ADS SKEEP4 # ERC BIT OF THE 37 TO 40 ADVANCE.
046068,001087: 37,3445 11377 GONXTBNK CCS SKEEP7
046069,001088: 37,3446 03320 TC COMMFX
046070,001089: 37,3447 37755 CA S+1
046071,001090: 37,3450 03336 TC FXFX
046072,001091: 37,3451 37747 CA SBIT7 # HAS TO BE LARGER THAN NO OF FXSW BANKS.
046073,001092: 37,3452 03320 TC COMMFX
046074,001093:
046075,001094: 37,3453 11376 ENDSUMS CCS SKEEP6
046076,001095: 37,3454 03315 TC ROPECHK +2 # START SHOWSUM AGAIN
046077,001096: 37,3455 37777 S+MAX OCTAL 37777 # ** S+MAX AND S-MAX MUST BE TOGETHER
046078,001097: 37,3456 40000 S-MAX OCTAL 40000 # FOR DOUBLE PRECISION CHECKING.
046079,001098: 37,3457 03546 TC RPCHKFIN # ROPECHK IS COMPLETE
046080,001099:
046081,001100: 37,3460 31374 SOPTION CA SKEEP4
046082,001101: 37,3461 74553 MASK S8BITS # = SUPER BANK BITS
046083,001102: 37,3462 54021 TS SR
046084,001103: 37,3463 31374 CA SKEEP4
046085,001104: 37,3464 74547 MASK HI5 # = BANK BITS
046086,001105: 37,3465 04530 TC LEFT5
046087,001106: 37,3466 22021 LXCH SR
046088,001107: 37,3467 00006 EXTEND
046089,001108:
046090,001109: 37,3470 05001 WOR L # = BANK NUMBER
046091,001110: 37,3471 11376 CCS SKEEP6 # DECIDE ON ROPECHK OR SHOWSUM OPTION.
046092,001111: 37,3472 03524 TC SDISPLAY
046093,001112: 37,3473 01201 VNCON OCTAL 01201 # USED IN SHOWSUM. V05N01 DECIMAL
046094,001113: 37,3474 0067 EBANK= NEWJOB
046095,001114: 37,3474 76060 LSTBNKCH BBCON* # * CONSTANT, LAST BANK.
046096,001115:
046097,001116: 37,3475 11371 BNKCHK CCS SKEEP1 # WHEN C(SKEEP6) = -0
046098,001117: 37,3476 03502 TC +4
046099,001118: 37,3477 77527 SCADR FCADR NOKILL # * CONSTANT, USED IN SHOWSUM ONLY
046100,001119:
046101,001120: 37,3500 03502 TC +2
046102,001121: 37,3501 37763 CA S-1 # FOR BANK 00
046103,001122: 37,3502 55371 TS SKEEP1
046104,001123: 37,3503 40001 CS L # = - BANK NUMBER
046105,001124: 37,3504 61371 AD SKEEP1
046106,001125: 37,3505 02043 TC -1CHK
046107,001126: 37,3506 03416 TC NXTBNK
046108,001127:
046109,001128: # INITIALIZE SKEEP6 TO +1 TO PERFORM SHOWSUM
|
|
Page 1034 |
046111,001130: # START OF ROUTINE THAT DISPLAYS SUM OF EACH BANK
046112,001131:
046113,001132: 37,3507 37755 SHOWSUM CAF S+1
046114,001133: 37,3510 55376 TS SKEEP6 # SHOWSUM OPTION
046115,001134: 37,3511 37761 CAF S+ZERO
046116,001135: 37,3512 55357 TS SMODE # PUT SELF-CHECK TO SLEEP
046117,001136: 37,3513 32021 CA SELFADRS # INITIALIZE SELFRET TO GO TO SELFCHK.
046118,001137: 37,3514 55356 TS SELFRET
046119,001138: 37,3515 00004 INHINT
046120,001139: 37,3516 37743 CAF PRIO2
046121,001140: 37,3517 05523 TC NOVAC
046122,001141: 37,3520 1356 EBANK= SELFRET
046123,001142: 37,3520 03315 76062 2CADR STSHOSUM
046124,001143:
046125,001144:
046126,001145: 37,3522 00003 RELINT
046127,001146: 37,3523 05605 TC ENDOFJOB
046128,001147:
046129,001148: 37,3524 30001 SDISPLAY CA L # = BANK NUMBER
046130,001149: 37,3525 57372 XCH SKEEP2 # SKEEP2 HOLDS BANK NUMBER DURING DISPLAY
046131,001150: 37,3526 55373 TS SKEEP3 # SKEEP3 HOLDS BUGGER WORD DURING DISPLAY
046132,001151: 37,3527 32017 NOKILL CAF ADRS1 # ADDRESS OF SKEEP1
046133,001152: 37,3530 54146 TS MPAC +2
046134,001153: 37,3531 33473 CAF VNCON # DISPLAY 3 REGISTERS
046135,001154: 37,3532 04433 TC NVSUB
046136,001155:
046137,001156: 37,3533 03544 TC SBUSY
046138,001157: 37,3534 04611 TC FLASHON
046139,001158: 37,3535 04464 TC ENDIDLE
046140,001159: 37,3536 03541 TC +3 # FINISHED WITH SHOWSUM
046141,001160: 37,3537 03416 TC NXTBNK
046142,001161: 37,3540 03527 TC NOKILL # SO CAN LOAD WITHOUT KILLING SHOWSUM
046143,001162: 37,3541 32021 CA SELFADRS # INITIALIZE SKEEP1 TO GO TO SELFCHK.
046144,001163: 37,3542 55371 TS SKEEP1
046145,001164: 37,3543 05605 TC ENDOFJOB
046146,001165:
046147,001166: 37,3544 33477 SBUSY CAF SCADR
046148,001167: 37,3545 04643 TC NVSUBUSY
046149,001168:
046150,001169:
046151,001170: 37,3546 02102 RPCHKFIN TC SELFCHK # START SELF-CHECK AGAIN.
046152,001171:
046153,001172: 37,3547 40000 SBNKOPTN CS A # GO TO BACKUP IDLE LOOP IF C(SMODE) IS
046154,001173: 37,3550 67754 AD TWO # GREATER THAN OCTAL 11
046155,001174: 37,3551 00006 EXTEND
046156,001175: 37,3552 63556 BZMF TOSMODE -2
046157,001176: 37,3553 37761 CA S+ZERO # ZERO SMODE FOR OPTIONS ABOVE 8.
046158,001177: 37,3554 55357 TS SMODE
046159,001178: 37,3555 03576 SOPTON11 TC DSKYCHK
046160,001179:
046161,001180: 37,3556 37761 CA S+ZERO
046162,001181: 37,3557 55357 TS SMODE
046163,001182: 37,3560 02102 TOSMODE TC SELFCHK
046164,001183:
|
|
Page 1035 |
046166,001185: # THE FOLLOWING CONSTANTS ARE USED BY DSKYCHK.
046167,001186: 37,3561 05265 DSKYCODE OCTAL 05265 # 00
046168,001187: 37,3562 04143 OCTAL 04143 # 11
046169,001188: 37,3563 05471 OCTAL 05471 # 22
046170,001189: 37,3564 05573 OCTAL 05573 # 33
046171,001190: 37,3565 04757 OCTAL 04757 # 44
046172,001191:
046173,001192: 37,3566 05736 OCTAL 05736 # 55
046174,001193: 37,3567 05634 OCTAL 05634 # 66
046175,001194: 37,3570 05163 OCTAL 05163 # 77
046176,001195: 37,3571 05675 OCTAL 05675 # 88
046177,001196: 37,3572 05777 OCTAL 05777 # 99
046178,001197: 37,3573 07265 +-ZERO OCTAL 07265
046179,001198: 37,3574 00013 11DEC. OCTAL 00013
046180,001199:
046181,001200: # BITS 2 AND 6 TURN ON THE COMPUTER ACTIVITY AND VERB-NOUN FLASH.
046182,001201: 37,3575 00042 S11CHAN OCTAL 00042
046183,001202:
046184,001203: 37,3576 34557 DSKYCHK CAF TEN
046185,001204:
046186,001205: 37,3577 55373 TS SKEEP3
046187,001206: 37,3600 00004 INHINT
046188,001207: 37,3601 37755 CAF S+1 # SET UP TEN MS INTERRUPT
046189,001208: 37,3602 05701 TC WAITLIST
046190,001209: 37,3603 E3,1400 EBANK= LST1
046191,001210: 37,3603 03637 76063 2CADR NXTNMBR
046192,001211:
046193,001212: 37,3605 00003 RELINT
046194,001213: 37,3606 03560 TC TOSMODE # GO TO IDLE LOOP
046195,001214:
046196,001215: 37,3607 55373 SDSPTAB TS SKEEP3
046197,001216: 37,3610 00004 INHINT
046198,001217: 37,3611 51373 NDX SKEEP3
046199,001218: 37,3612 43561 CS DSKYCODE
046200,001219: 37,3613 54313 SBLANKS TS DSPTAB
046201,001220: 37,3614 54314 TS DSPTAB +1
046202,001221: 37,3615 54315 TS DSPTAB +2
046203,001222: 37,3616 54316 TS DSPTAB +3
046204,001223: 37,3617 54317 TS DSPTAB +4
046205,001224: 37,3620 54320 TS DSPTAB +5
046206,001225: 37,3621 54321 TS DSPTAB +6
046207,001226: 37,3622 54322 TS DSPTAB +7
046208,001227: 37,3623 54323 TS DSPTAB +8D
046209,001228:
046210,001229: 37,3624 54324 TS DSPTAB +9D
046211,001230: 37,3625 54325 TS DSPTAB +10D
046212,001231: 37,3626 33574 CA 11DEC.
046213,001232: 37,3627 54307 TS NOUT
046214,001233:
046215,001234: 37,3630 00004 DSKYWAIT INHINT
046216,001235: 37,3631 37744 CAF BIT10 # 5.12 SECOND WAIT
046217,001236: 37,3632 05701 TC WAITLIST
046218,001237: 37,3633 E3,1400 EBANK= LST1
|
|
Page 1036 |
046220,001239: 37,3633 03637 76063 2CADR NXTNMBR
046221,001240:
046222,001241:
046223,001242: 37,3635 00003 RELINT
046224,001243: 37,3636 05745 TC TASKOVER
046225,001244:
046226,001245: 37,3637 11373 NXTNMBR CCS SKEEP3
046227,001246: 37,3640 03607 TC SDSPTAB # 9 THROUGH 0
046228,001247: 37,3641 03646 TC -SIGN # -ZEROS
046229,001248: 37,3642 03663 TC +SIGN # +ZEROS
046230,001249: 37,3643 11372 CCS SKEEP2
046231,001250: 37,3644 03677 TC NODSPLAY # PUTS BLANKS IN DSKY DISPLAY
046232,001251: 37,3645 03703 TC LITESOUT # TURN OFF LIGHTS
046233,001252:
046234,001253: 37,3646 47755 -SIGN CS S+1
046235,001254: 37,3647 55373 TS SKEEP3
046236,001255: 37,3650 33575 CA S11CHAN # TURN ON VERB-NOUN FLASH
046237,001256: 37,3651 00006 EXTEND # AND COMPUTER ACTIVITY LIGHTS.
046238,001257: 37,3652 05011 WOR DSALMOUT
046239,001258: 37,3653 43573 CS +-ZERO
046240,001259: 37,3654 00004 INHINT
046241,001260: 37,3655 54313 TS DSPTAB
046242,001261: 37,3656 54316 TS DSPTAB +3
046243,001262: 37,3657 54320 TS DSPTAB +5
046244,001263: 37,3660 36301 CAF THREE
046245,001264: 37,3661 54307 TS NOUT
046246,001265:
046247,001266: 37,3662 03630 TC DSKYWAIT
046248,001267:
046249,001268: 37,3663 47761 +SIGN CS ZERO
046250,001269: 37,3664 55373 TS SKEEP3
046251,001270: 37,3665 37755 CA S+1
046252,001271: 37,3666 55372 TS SKEEP2
046253,001272: 37,3667 00004 INHINT
046254,001273: 37,3670 43573 CS +-ZERO
046255,001274: 37,3671 54314 TS DSPTAB +1
046256,001275: 37,3672 54317 TS DSPTAB +4
046257,001276:
046258,001277: 37,3673 54321 TS DSPTAB +6
046259,001278: 37,3674 36301 CAF THREE
046260,001279: 37,3675 54307 TS NOUT
046261,001280: 37,3676 03630 TC DSKYWAIT
046262,001281:
046263,001282: 37,3677 55372 NODSPLAY TS SKEEP2 # +0
046264,001283: 37,3700 47742 CS BIT12 # BLANKS
046265,001284: 37,3701 00004 INHINT
046266,001285: 37,3702 03613 TC SBLANKS # PUTS BLANKS IN ALL DISPLAYS
046267,001286:
046268,001287: 37,3703 43575 LITESOUT CS S11CHAN
046269,001288: 37,3704 00006 EXTEND
046270,001289:
046271,001290: 37,3705 03011 WAND DSALMOUT # TURN OFF COMPUTER ACTIVITY LIGHT.
046272,001291: 37,3706 05745 TC TASKOVER # END OF DSKYCHK
046273,001292:
|
|
Page 1037
This page contains only output from YUL reading:
END OF REVISION 4 OF SUBROUTINE SELFCHEC BY REICHERT LAST ASSEMBLED ON DEC 2, 1966 |
046279,001298:
End of include-file AGC_BLOCK_TWO_SELF-CHECK.agc. Parent file is MAIN.agc