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