Source Code
![]() |
These source-code files were transcribed from scans made from Don Eyles's personal
copy of BURST120 (SUNBURST 120). They were scanned at archive.org's Boston
facility, and the scanning was sponsored by Mike Stewart. The code was transcribed
from these scans by a team of volunteers who are referenced in the program
comments. Comments from the original source code are in ALL-CAPS, whereas
comments added later in transcription are in Mixed-Case. In some cases, where
similar code blocks exist in previously-transcribed AGC programs (primarily
Luminary 99, from Apollo 11) those code blocks were used as a starting point and
then corrected to agree with the BURST120 scans. The full scans are available
at the Virtual AGC
project's collection at archive.org, while more-convenient reduced-size (but reduced-quality)
images are available at
the main Virtual AGC website. Report any errors noted by creating an
issue report at the Virtual AGC
project's GitHub repository. Notations on the program listing read, in part:YUL SYSTEM FOR AGC: REVISION 0 OF PROGRAM BURST120 BY NASA 2021106-031 DEC 7, 1967 THIS LISTING IS A COPY OF A VERSION OF THE PROGRAM INTENDED FOR USE IN THE ON-BOARD PRIMARY GUIDANCE COMPUTER IN THE UNMANNED FLIGHT OF APOLLO LUNAR MODULE 1 --- THE AS206 MISSION.Note that the date is the date of the printout, not the date of the program revision. |
045098,000002: ## Copyright: Public domain.
045099,000003: ## Filename: AGC_BLOCK_TWO_SELF_CHECK.agc
045100,000004: ## Purpose: A module for revision 0 of BURST120 (Sunburst). It
045101,000005: ## is part of the source code for the Lunar Module's
045102,000006: ## (LM) Apollo Guidance Computer (AGC) for Apollo 5.
045103,000007: ## Assembler: yaYUL
045104,000008: ## Contact: Ron Burkey <info@sandroid.org>.
045105,000009: ## Website: www.ibiblio.org/apollo/index.html
045106,000010: ## Mod history: 2016-09-30 RSB Created draft version.
045107,000011: ## 2016-10-19 RSB Transcribed. This largely involved selecting
045108,000012: ## various bits and pieces from the Aurora 12 and
045109,000013: ## Luminary 99 versions of this file, and then
045110,000014: ## merging them together, with corrections. In
045111,000015: ## retrospect, I'd say this file is mostly taken
045112,000016: ## from Aurora 12, but there is a significant
045113,000017: ## mass of comments at the beginning of the file,
045114,000018: ## as well as code for dealing with superbanks,
045115,000019: ## which instead come from Luminary 99.
045116,000020: ## 2016-10-31 RSB Typos.
045117,000021: ## 2016-12-06 RSB Comments proofed using octopus/ProoferComments,
045118,000022: ## changes made.
045119,000023: ## 2017-01-28 RSB WTIH -> WITH.
045120,000024:
![]() |
Page 1075 |
045122,000026: # PROGRAM DESCRIPTION DATE 14 FEBRUARY 1967
045123,000027: # PROGRAM NAME - SELF-CHECK LOG SECTION AGC BLOCK TWO SELF-CHECK
045124,000028: # MOD NO - 0 ASSEMBLY SUNBURST REV 107
045125,000029: # MOD BY - GAUNTT
045126,000030:
045127,000031:
045128,000032: # FUNCTIONAL DESCRIPTION
045129,000033:
045130,000034: # PROGRAM HAS TWO MAIN PARTS. THE FIRST IS SELF-CHECK WHICH RUNS AS A ZERO PRIORITY JOB WITH NO CORE SET, AS
045131,000035: # PART OF THE BACK-UP IDLE LOOP. THE SECOND IS SHOW-BANKSUM WHICH RUNS AS A REGULAR EXECUTIVE JOB WITH ITS OWN
045132,000036: # STARTING VERB.
045133,000037: # THE PURPOSE OF SELF-CHECK IS TO CHECK OUT VARIOUS PARTS OF THE COMPUTER AS OUTLINED BELOW IN THE OPTIONS.
045134,000038: # THE PURPOSE OF SHOW-BANKSUM IS TO DISPLAY THE SUM OF EACH BANK, ONE AT A TIME.
045135,000039: # A THIRD SECTION, DSKYCHK, LIGHTS UP ALL THE DSKY ELECTROLUMINESCENT ELEMENTS.
045136,000040: # IN ALL THERE ARE 15 POSSIBLE OPTIONS IN THIS BLOCK II VERSION OF SELF-CHECK. MORE DETAIL DESCRIPTION MAY BE
045137,000041: # FOUND IN E-2065 BLOCK II AGC SELF-CHECK AND SHOW BANKSUM BY EDWIN D. SMALLY DECEMBER 1966.
045138,000042: # THE DIFFERENT OPTIONS ARE CONTROLLED BY PUTTING DIFFERENT NUMBERS IN THE SMODE REGISTER (NOUN 27). BELOW IS
045139,000043: # A DESCRIPTION OF WHAT PARTS OF THE COMPUTER THAT ARE CHECKED BY THE OPTIONS, AND THE CORRESPONDING NUMBER, IN
045140,000044: # OCTAL, TO LOAD INTO SMODE.
045141,000045: # +-1 ALL PULSES POSSIBLE BY INTERNAL CONTROL OF THE COMPUTER.
045142,000046: # +-2 ALL THE IN-OUT INSTRUCTION PULSES.
045143,000047: # +-3 SPECIAL AND CENTRAL REGISTERS, ALL BIT COMBINATIONS.
045144,000048: # +-4 ERASABLE MEMORY
045145,000049: # +-5 FIXED MEMORY
045146,000050: # +-6,7,10 EVERYTHING IN THE PREVIOUS 5 OPTIONS.
045147,000051: # +-11 TURNS ON THE ELECTROLUMINESCENT DISPLAY IN THE DSKY.
045148,000052: # -0 SAME AS +-10 UNTIL AN ERROR IS DETECTED.
045149,000053: # +0 NO CHECK, PUTS COMPUTER INTO THE BACKUP IDLE LOOP.
045150,000054:
045151,000055:
045152,000056: # WARNINGS
045153,000057:
045154,000058: # SMODE LOADED WITH GREATER THAN OCTAL 11 PUTS COMPUTER INTO THE BACKUP IDLE LOOP.
045155,000059:
045156,000060:
045157,000061:
045158,000062: # CALLING SEQUENCE
045159,000063:
045160,000064: # TO CALL SELF-CHECK KEY IN
045161,000065: # V 21 N 27 E OPTION NUMBER E
045162,000066: # TO CALL DSKYCHK KEY IN
045163,000067: # V 21 N 27 E +-11 E
045164,000068: # TO CALL SHOW-BANKSUM KEY IN
045165,000069: # V 56 E DISPLAYS FIRST BANK
045166,000070: # V 33 E PROCEED, DISPLAYS NEXT BANK
![]() |
Page 1076 |
045168,000072:
045169,000073: # EXIT MODES, NORMAL AND ALARM
045170,000074:
045171,000075: # SELF-CHECK NORMALLY CONTINUES INDEFINITELY UNLESS THERE IS AN ERROR DETECTED. IF SO + OPTION NUMBERS PUT
045172,000076: # COMPUTER INTO BACKUP IDLE LOOP, - OPTION NUMBERS RESTART THE OPTION.
045173,000077: # THE -0 OPTION PROCEEDS FROM THE LINE FOLLOWING THE LINE WHERE THE ERROR WAS DETECTED.
045174,000078: # COMPLETION OF DSKYCHK PUTS THE COMPUTER INTO THE BACKUP IDLE LOOP.
045175,000079: # SHOW-BANKSUM PROCEEDS UNTIL A TERMINATE IS KEYED IN (V 34 E). THE COMPUTER IS PUT INTO THE BACKUP IDLE LOOP
045176,000080:
045177,000081:
045178,000082: # OUTPUT
045179,000083:
045180,000084: # SELF-CHECK UPON DETECTING AN ERROR LOADS THE SELF-CHECK ALARM CONSTANT (01102) INTO THE FAILREG SET AND
045181,000085: # TRIGGERS THE ALARM. THE ALARM ROUTINE DISPLAYS THE THREE FAILREGS. IF OPERATOR DESIRES FURTHER INFORMATION HE
045182,000086: # MAY KEY IN V 05 N 31 E DSKY DISPLAY IN R1 WILL BE ADDRESS +1 OF WHERE THE ERROR WAS DETECTED, IN R2 THE
045183,000087: # BANK NUMBER OF SELF-CHECK (37 OCTAL), AND IN R3 THE TOTAL NUMBER OF ERRORS DETECTED BY SELF-CHECK SINCE THE LAST
045184,000088: # FRESH START
045185,000089: # DSKYCHK LIGHTS UP THE DSKY DISPLAY ELEMENTS STARTING WITH THE DIGIT9 IN ALL POSITIONS. EACH DISPLAY LASTS
045186,000090: # 5 SECONDS
045187,000091: # SHOW-BANKSUM STARTING WITH BANK 0 DISPLAYS IN R1 +- THE BANK SUM (SHOULD EQUAL THE BANK NUMBER), IN R2 THE
045188,000092: # BANK NUMBER, AND IN R3 THE BUGGER WORD.
045189,000093:
045190,000094:
045191,000095: # ERASABLE INITIALIZATION REQUIRED
045192,000096:
045193,000097: # ACCOMPLISHED BY FRESH START
045194,000098: # SMODE & ERESTORE SET TO +0
045195,000099:
045196,000100:
045197,000101: # DEBRIS
045198,000102:
045199,000103: # ALL EXITS FROM THE CHECK OF ERASABLE (ERASCHK) RESTORE ORIGINAL CONTENTS TO REGISTERS UNDER CHECK.
045200,000104: # EXCEPTION IS A RESTART. RESTART THAT OCCURS DURING ERASCHK DOES A FRESH START.
045201,000105:
045202,000106:
045203,000107:
045204,000108: 37,2000 BANK 37
045205,000109: 37,2000 7763 SBIT1 EQUALS BIT1
045206,000110: 37,2000 7762 SBIT2 EQUALS BIT2
045207,000111: 37,2000 7761 SBIT3 EQUALS BIT3
045208,000112: 37,2000 7760 SBIT4 EQUALS BIT4
045209,000113: 37,2000 7757 SBIT5 EQUALS BIT5
045210,000114: 37,2000 7756 SBIT6 EQUALS BIT6
045211,000115: 37,2000 7755 SBIT7 EQUALS BIT7
![]() |
Page 1077 |
045213,000117: 37,2000 7754 SBIT8 EQUALS BIT8
045214,000118: 37,2000 7753 SBIT9 EQUALS BIT9
045215,000119: 37,2000 7752 SBIT10 EQUALS BIT10
045216,000120: 37,2000 7751 SBIT11 EQUALS BIT11
045217,000121: 37,2000 7750 SBIT12 EQUALS BIT12
045218,000122: 37,2000 7747 SBIT13 EQUALS BIT13
045219,000123: 37,2000 7746 SBIT14 EQUALS BIT14
045220,000124: 37,2000 7745 SBIT15 EQUALS BIT15
045221,000125:
045222,000126: 37,2000 7767 S+ZERO EQUALS ZERO
045223,000127: 37,2000 7763 S+1 EQUALS BIT1
045224,000128: 37,2000 7762 S+2 EQUALS BIT2
045225,000129: 37,2000 6311 S+3 EQUALS THREE
045226,000130: 37,2000 7761 S+4 EQUALS FOUR
045227,000131: 37,2000 7766 S+5 EQUALS FIVE
045228,000132: 37,2000 6306 S+6 EQUALS SIX
045229,000133: 37,2000 7765 S+7 EQUALS SEVEN
045230,000134: 37,2000 4564 S8BITS EQUALS LOW8 # 00377
045231,000135: 37,2000 00050 CNTRCON OCTAL 00050 # USED IN CNTRCHK
045232,000136: 37,2001 00061 ERASCON1 OCTAL 00061 # USED IN ERASCHK
045233,000137: 37,2002 01374 ERASCON2 OCTAL 01374 # USED IN ERASCHK
045234,000138: 37,2003 01400 ERASCON6 OCTAL 01400 # USED IN ERASCHK
045235,000139: 37,2004 01461 ERASCON3 OCTAL 01461 # USED IN ERASCHK
045236,000140: 37,2005 01774 ERASCON4 OCTAL 01774 # USED IN ERASCHK
045237,000141: 37,2006 5337 S10BITS EQUALS LOW10 # 01777, USED IN ERASCHK
045238,000142: 37,2006 5634 SBNK03 EQUALS PRIO6 # 06000, USED IN ROPECHK
045239,000143: 37,2006 00060 SIXTY OCTAL 00060
045240,000144: 37,2007 60017 SUPRCON OCTAL 60017 # USED IN ROPECHK
045241,000145: 37,2010 17777 S13BITS OCTAL 17777
045242,000146: 37,2011 25252 CONC+S1 OCTAL 25252 # USED IN CYCLSHFT
045243,000147: 37,2012 37737 OVCON OCTAL 37737 # USED IN RUPTCHK
045244,000148: 37,2013 37776 DVCON OCTAL 37776
045245,000149: 37,2014 52400 CONC+S2 OCTAL 52400 # USED IN CYCLSHFT
045246,000150: 37,2015 76777 ERASCON5 OCTAL 76777
045247,000151: 37,2016 77770 S-7 OCTAL 77770
045248,000152: 37,2017 6156 S-4 EQUALS NEG4
045249,000153: 37,2017 5340 S-3 EQUALS NEG3
045250,000154: 37,2017 5336 S-2 EQUALS NEG2
045251,000155: 37,2017 7771 S-1 EQUALS NEGONE
045252,000156: 37,2017 7770 S-ZERO EQUALS NEG0
045253,000157:
045254,000158: 37,2017 E3,1400 EBANK= LST1
045255,000159: 37,2017 01371 ADRS1 ADRES SKEEP1
045256,000160: 37,2020 00021 SRADRS ADRES SR
045257,000161: 37,2021 02115 SELFADRS ADRES SELFCHK # SELFCHK RETURN ADDRESS. SHOULD BE PUT
045258,000162: # IN SELFRET WHEN GOING FROM SELFCHK TO
045259,000163: # SHOWSUM AND PUT IN SKEEP1 WHEN GOING
045260,000164: # FROM SHOWSUM TO SELF-CHECK.
045261,000165:
045262,000166: 37,2022 31353 PRERRORS CA ERESTORE # IS IT NECESSARY TO RESTORE ERASABLE
![]() |
Page 1078 |
045264,000168: 37,2023 00006 EXTEND
045265,000169: 37,2024 12033 BZF ERRORS # NO
045266,000170: 37,2025 00006 EXTEND
045267,000171: 37,2026 31376 DCA SKEEP5
045268,000172: 37,2027 51377 INDEX SKEEP7
045269,000173: 37,2030 52001 DXCH 0000 # RESTORE THE TWO ERASABLE REGISTERS
045270,000174: 37,2031 37767 CA S+ZERO
045271,000175: 37,2032 55353 TS ERESTORE
045272,000176: 37,2033 00004 ERRORS INHINT
045273,000177: 37,2034 30002 CA Q
045274,000178: 37,2035 55357 TS SFAIL # SAVE Q FOR FAILURE LOCATION
045275,000179: 37,2036 55363 TS ALMCADR # FOR DISPLAY WITH BBANK AND ERCOUNT
045276,000180: 37,2037 25365 INCR ERCOUNT # KEEP TRACK OF NUMBER OF MALFUNCTIONS.
045277,000181: 37,2040 04760 TCALARM2 TC ALARM2
045278,000182: 37,2041 01102 OCT 01102 # SELF-CHECK MALFUNCTION INDICATOR
045279,000183: 37,2042 11355 CCS SMODE
045280,000184: 37,2043 37767 SIDLOOP CA S+ZERO
045281,000185: 37,2044 55355 TS SMODE
045282,000186: 37,2045 02115 TC SELFCHK # GO TO IDLE LOOP
045283,000187: 37,2046 01357 TC SFAIL # CONTINUE WITH SELF-CHECK
045284,000188:
045285,000189: 37,2047 40000 +0CHK CS A
045286,000190: 37,2050 10000 -0CHK CCS A
045287,000191: 37,2051 12033 TCF ERRORS
045288,000192: 37,2052 12033 TCF ERRORS
045289,000193: 37,2053 12033 TCF ERRORS
045290,000194: 37,2054 00002 TC Q
045291,000195:
045292,000196: 37,2055 40000 +1CHK CS A
045293,000197: 37,2056 10000 -1CHK CCS A
045294,000198: 37,2057 12022 TCF PRERRORS
045295,000199: 37,2060 12022 TCF PRERRORS
045296,000200: 37,2061 10000 CCS A
045297,000201: 37,2062 12022 TCF PRERRORS
045298,000202: 37,2063 00002 TC Q
045299,000203:
045300,000204: 37,2064 00006 SMODECHK EXTEND
045301,000205: 37,2065 23371 QXCH SKEEP1
045302,000206: 37,2066 05605 TC CHECKNJ # CHECK FOR NEW JOB
045303,000207: 37,2067 11355 CCS SMODE
045304,000208: 37,2070 02075 TC SOPTIONS
045305,000209: 37,2071 02066 TC SMODECHK +2 # TO BACKUP IDLE LOOP
045306,000210: 37,2072 02075 TC SOPTIONS
045307,000211: 37,2073 25366 INCR SCOUNT
045308,000212: 37,2074 01371 TC SKEEP1 # CONTINUE WITH SELF-CHECK
045309,000213:
045310,000214: 37,2075 62016 SOPTIONS AD S-7
045311,000215: 37,2076 00006 EXTEND
045312,000216: 37,2077 62101 BZMF +2 # FOR OPTIONS BELOW NINE.
045313,000217: 37,2100 03604 BNKOPTN TC SBNKOPTN # FOR OPTIONS ABOVE EIGHT
![]() |
Page 1079 |
045315,000219: 37,2101 25366 INCR SCOUNT # FOR OPTIONS BELOW NINE.
045316,000220: 37,2102 67765 AD S+7
045317,000221:
045318,000222: 37,2103 50000 INDEX A
045319,000223: 37,2104 02105 TC SOPTION1
045320,000224: 37,2105 02116 SOPTION1 TC TC+TCF
045321,000225: 37,2106 03003 SOPTION2 TC IN-OUT1
045322,000226: 37,2107 03057 SOPTION3 TC COUNTCHK
045323,000227: 37,2110 03153 SOPTION4 TC ERASCHK
045324,000228: 37,2111 03340 SOPTION5 TC ROPECHK
045325,000229: 37,2112 01371 SOPTION6 TC SKEEP1
045326,000230: 37,2113 01371 SOPTION7 TC SKEEP1
045327,000231: 37,2114 01371 SOPTON10 TC SKEEP1 # CONTINUE WITH SELF-CHECK
045328,000232:
045329,000233: 37,2115 02064 SELFCHK TC SMODECHK # ** CHARLEY, COME IN HERE
045330,000234:
045331,000235: # TC+TCF CHECKS ALL OF THE PULSES OF TCF AND ALL OF THE PULSES OF TC
045332,000236: # EXCEPT ABILITY TO TC TO ERASABLE.
045333,000237: # ALSO FIRST TIME CS FIXED MEMORY IS USED
045334,000238: 37,2116 02120 TC+TCF TC +2
045335,000239: 37,2117 02125 TC CCSCHK
045336,000240: 37,2120 12122 TCF +2 # $ TCF FIXED MEMORY
045337,000241: 37,2121 02033 TC ERRORS
045338,000242: 37,2122 46311 CS S+3 # $ CS FIXED MEMORY
045339,000243: 37,2123 00002 TC Q # $
045340,000244: 37,2124 02033 TC ERRORS
045341,000245:
045342,000246: # CCSCHK CHECKS ALL OF CCS EXCEPT RB WG.
045343,000247: # ALSO CHECKS TS ERASABLE, CS SC, AND CS ERASABLE MEMORY.
045344,000248: 37,2125 10000 CCSCHK CCS A # $ CCS SC, C(A) = -3
045345,000249: 37,2126 02033 TC ERRORS
045346,000250: 37,2127 02033 TC ERRORS
045347,000251: 37,2130 02132 TC +2
045348,000252: 37,2131 02033 TC ERRORS
045349,000253: 37,2132 10000 CCS A # $ C(A) = +2, RESULT OF CCS -NUMBER
045350,000254: 37,2133 02137 TC +4
045351,000255: 37,2134 02033 TC ERRORS
045352,000256: 37,2135 02033 TC ERRORS
045353,000257: 37,2136 02033 TC ERRORS
045354,000258: 37,2137 55371 TS SKEEP1 # $ TS ERASABLE
045355,000259: 37,2140 11371 CCS SKEEP1 # $ CCS ERASABLE, C(A) = +1, RESULT OF
045356,000260: 37,2141 02145 TC +4 # CCS +NUMBER
045357,000261: 37,2142 02033 TC ERRORS
045358,000262: 37,2143 02033 TC ERRORS
045359,000263: 37,2144 02033 TC ERRORS
045360,000264: 37,2145 10000 CCS A # $ C(A) = +0, RESULT OF CCS +1, CHECKS CI
045361,000265: 37,2146 02033 TC ERRORS
045362,000266: 37,2147 02152 TC +3
045363,000267: 37,2150 02033 TC ERRORS
045364,000268: 37,2151 02033 TC ERRORS
![]() |
Page 1080 |
045366,000270: 37,2152 40000 CS A # $ CS SC
045367,000271: 37,2153 10000 CCS A # $ C(A) = -0, RESULT OF CCS +0
045368,000272: 37,2154 02033 TC ERRORS
045369,000273: 37,2155 02033 TC ERRORS
045370,000274: 37,2156 02033 TC ERRORS
045371,000275: 37,2157 10000 CCS A # $ RESULT OF CCS -0
045372,000276: 37,2160 02033 TC ERRORS
045373,000277: 37,2161 02164 TC +3
045374,000278: 37,2162 02033 TC ERRORS
045375,000279: 37,2163 02033 TC ERRORS
045376,000280: 37,2164 41371 CS SKEEP1 # $ CS ERASABLE. ALSO CHECKS BACK INTO
045377,000281: 37,2165 02056 TC -1CHK # ERASABLE SEQUENCE.
045378,000282:
045379,000283: # BZMFCHK CHECKS ALL PULSES OF BZMF.
045380,000284: # ALSO CHECKS CA FIXED MEMORY.
045381,000285: 37,2166 37753 BZMFCHK CAF SBIT9 # $ CA FIXED MEMORY
045382,000286: 37,2167 00006 EXTEND
045383,000287: 37,2170 62211 BZMF ERRBZMF
045384,000288: 37,2171 40000 CS A
045385,000289: 37,2172 00006 EXTEND
045386,000290: 37,2173 62175 BZMF +2 # $
045387,000291: 37,2174 02033 TC ERRORS
045388,000292: 37,2175 33505 CA S+MAX
045389,000293: 37,2176 67763 AD S+1
045390,000294: 37,2177 00006 EXTEND
045391,000295: 37,2200 62212 BZMF ERRBZMF2 # $ + OVERFLOW, CHECK 01-0000
045392,000296: 37,2201 37767 CA S+ZERO
045393,000297: 37,2202 00006 EXTEND
045394,000298: 37,2203 62205 BZMF +2 # $
045395,000299: 37,2204 02033 TC ERRORS
045396,000300: 37,2205 40000 CS A
045397,000301: 37,2206 00006 EXTEND
045398,000302: 37,2207 62213 BZMF +4 # $
045399,000303: 37,2210 02033 TC ERRORS
045400,000304: 37,2211 02033 ERRBZMF TC ERRORS # FROM BZMF WITH +NON-ZERO
045401,000305: 37,2212 02033 ERRBZMF2 TC ERRORS # OVERFLOW WITH +0
045402,000306:
045403,000307: # RESTORE1 AND 2 CHECKS INSTRUCTIONS (WITH STAR) ABILITY TO READ BACK INTO
045404,000308: # ERASABLE MEMORY. NOT NORMALLY INTERESTED IN CONTENTS OF A REGISTER.
045405,000309: # FIRST TIME MANY INSTRUCTIONS ARE USED.
045406,000310: # RESTORE1 ALSO CHECKS INDEX (WITHOUT EXTRACODE) ERASABLE, CA ERASABLE,
045407,000311: # AND MASK ERASABLE.
045408,000312: 37,2213 32020 RESTORE1 CAF SRADRS # ADDRESS OF SR
045409,000313: 37,2214 55377 TS SKEEP7
045410,000314: 37,2215 34564 CA S8BITS # 00377
045411,000315: 37,2216 51377 NDX SKEEP7 # $ INDEX ERASABLE *
045412,000316: 37,2217 54000 TS 0000 # TS SR, C(SR) = 00177
045413,000317: 37,2220 10021 CCS SR # C(SR) = 00077 *
045414,000318: 37,2221 51377 NDX SKEEP7 # CHECKS C(SKEEP7) CORRECT
045415,000319: 37,2222 40000 CS 0000 # C(SR) = 00037
![]() |
Page 1081 |
045417,000321: 37,2223 60021 AD SR # C(SR) = 00017 *
045418,000322: 37,2224 00006 EXTEND
045419,000323: 37,2225 20021 MSU SR # C(SR) = 00007 *
045420,000324: 37,2226 00006 EXTEND
045421,000325: 37,2227 60021 SU SR # C(SR) = 00003 *
045422,000326: 37,2230 30021 CA SR # $ C(SR) = +1, C(A) = +3, CA ERASABLE *
045423,000327: 37,2231 70021 MASK SR # $ B(SR) = C(SR) = +1, MASK ERASABLE *
045424,000328: 37,2232 02055 TC +1CHK
045425,000329: 37,2233 00006 EXTEND
045426,000330: 37,2234 70021 MP SR
045427,000331: 37,2235 00006 EXTEND
045428,000332: 37,2236 10021 DV SR
045429,000333: 37,2237 30021 CA SR # $ CA ERASABLE
045430,000334: 37,2240 02055 TC +1CHK # MAKES SURE MASK, MP, AND DV DO NOT EDIT.
045431,000335:
045432,000336: # RESTORE2 ALSO CHECKS XCH ERASABLE,INDEX (WITH EXTRACODE) ERASABLE AND
045433,000337: # FIXED MEMORY, DCS ERASABLE, CA SC, AND DCA ERASABLE.
045434,000338: 37,2241 32017 RESTORE2 CAF ADRS1 # ADDRESS OF SKEEP1
045435,000339: 37,2242 55376 TS SKEEP6
045436,000340: 37,2243 37771 CA S-1
045437,000341: 37,2244 55371 TS SKEEP1 # -1
045438,000342: 37,2245 40000 CS A
045439,000343: 37,2246 57371 XCH SKEEP1 # $ XCH ERASABLE, C(SKEEP1) = +1
045440,000344: 37,2247 57372 XCH SKEEP2 # $ XCH ERASABLE, C(SKEEP2) = -1
045441,000345: 37,2250 00006 EXTEND
045442,000346: 37,2251 51376 NDX SKEEP6 # $ NDX ERASABLE *
045443,000347: 37,2252 30001 DCA 0000 # DCA ERASABLE *
045444,000348: 37,2253 00006 EXTEND
045445,000349: 37,2254 52017 NDX ADRS1 # $ NDX FIXED MEMORY *
045446,000350: 37,2255 40001 DCS 0000 # $ DCS ERASABLE MEMORY *
045447,000351: 37,2256 02056 TC -1CHK # MAKES SURE DCS ERASABLE OK
045448,000352: 37,2257 30001 CA L # $ CA SC
045449,000353: 37,2260 02055 TC +1CHK
045450,000354: 37,2261 00006 EXTEND
045451,000355: 37,2262 51376 NDX SKEEP6 # MAKE SURE C(SKEEP6) IS STILL CORRECT
045452,000356: 37,2263 30001 DCA 0000 # $ DCA ERASABLE
045453,000357: 37,2264 02055 TC +1CHK
045454,000358: 37,2265 30001 CA L
045455,000359: 37,2266 02056 TC -1CHK
045456,000360:
045457,000361: # RESTORE3 CHECKS ABILITY TO RESTORE INSTRUCTIONS BACK INTO ERASABLE
045458,000362: # MEMORY. IT IS ONLY NECESSARY TO RESTORE ONE INSTRUCTION BECAUSE THE
045459,000363: # G REGISTER DOES NOT CHANGE.
045460,000364: # ALSO CHECKS TC TO ERASABLE MEMORY.
045461,000365: 37,2267 37745 RESTORE3 CA SBIT15 # CS
045462,000366: 37,2270 55371 TS SKEEP1 # 40000
045463,000367: 37,2271 37762 CA S+2 # TC Q
045464,000368: 37,2272 55372 TS SKEEP2
045465,000369: 37,2273 37763 CA S+1 # +1
045466,000370: 37,2274 01371 TC SKEEP1 # $ TC ERASABLE
![]() |
Page 1082 |
045468,000372: 37,2275 02056 TC -1CHK # FIRST TIME BACK FROM ERASABLE.
045469,000373: 37,2276 01371 TC SKEEP1
045470,000374: 37,2277 02050 TC -0CHK # SECOND TIME BACK FROM ERASABLE.
045471,000375:
045472,000376: # BZFCHK CHECKS ALL PULSES OF BZF.
045473,000377: 37,2300 37766 BZFCHK CAF S+5
045474,000378: 37,2301 00006 EXTEND
045475,000379: 37,2302 12325 BZF ERRBZF1 # $
045476,000380: 37,2303 40000 CS A
045477,000381: 37,2304 00006 EXTEND
045478,000382: 37,2305 12326 BZF ERRBZF2 # $
045479,000383: 37,2306 33505 CA S+MAX
045480,000384: 37,2307 67763 AD S+1 # 01-00000
045481,000385: 37,2310 00006 EXTEND
045482,000386: 37,2311 12327 BZF ERRBZF3 # $
045483,000387: 37,2312 40000 CS A
045484,000388: 37,2313 00006 EXTEND
045485,000389: 37,2314 12330 BZF ERRBZF4 # $
045486,000390: 37,2315 37767 CAF S+ZERO
045487,000391: 37,2316 00006 EXTEND
045488,000392: 37,2317 12321 BZF +2 # $
045489,000393: 37,2320 02033 TC ERRORS
045490,000394: 37,2321 40000 CS A
045491,000395: 37,2322 00006 EXTEND
045492,000396: 37,2323 12331 BZF +6 # $
045493,000397: 37,2324 02033 TC ERRORS
045494,000398: 37,2325 02033 ERRBZF1 TC ERRORS # +NON-ZERO
045495,000399: 37,2326 02033 ERRBZF2 TC ERRORS # -NON-ZERO
045496,000400: 37,2327 02033 ERRBZF3 TC ERRORS # 01-00000
045497,000401: 37,2330 02033 ERRBZF4 TC ERRORS # 10-37777
045498,000402:
045499,000403: # DXCH+DIM CHECKS ALL PULSES OF DXCH AND DIM.
045500,000404: # ALSO CHECKS TS WITH OVERFLOW, TS SC, CA SC, AND AD ERASABLE.
045501,000405: 37,2331 33505 DXCH+DIM CA S+MAX
045502,000406: 37,2332 67762 AD S+2 # OVERFLOW WITH +1
045503,000407: 37,2333 55371 TS SKEEP1 # $ TS WITH OVERFLOW, +1
045504,000408: 37,2334 02033 TC ERRORS
045505,000409: 37,2335 40000 CS A
045506,000410: 37,2336 55372 TS SKEEP2
045507,000411: 37,2337 43505 CS S+MAX
045508,000412: 37,2340 54001 TS L # $ TS SC, 40000
045509,000413: 37,2341 40000 CS A # 37777
045510,000414: 37,2342 53372 DXCH SKEEP1 # $ DXCH ERASABLE
045511,000415: 37,2343 02055 TC +1CHK
045512,000416: 37,2344 30001 CA L # $ CA SC
045513,000417: 37,2345 02056 TC -1CHK
045514,000418: 37,2346 00006 EXTEND
045515,000419: 37,2347 27371 DIM SKEEP1 # $ DIM ERASABLE, DIM + NUMBER, 37776
045516,000420: 37,2350 00006 EXTEND
045517,000421: 37,2351 27372 DIM SKEEP2 # $ DIM - NUMBER, 40001
![]() |
Page 1083 |
045519,000423: 37,2352 33505 CA S+MAX # 37777
045520,000424: 37,2353 61372 AD SKEEP2 # $ AD ERASABLE, +1
045521,000425: 37,2354 02055 TC +1CHK
045522,000426: 37,2355 43505 CS S+MAX # 40000
045523,000427: 37,2356 61371 AD SKEEP1 # -1
045524,000428: 37,2357 02056 TC -1CHK
045525,000429: 37,2360 37763 CA S+1 # +1
045526,000430: 37,2361 00006 EXTEND
045527,000431: 37,2362 26000 DIM A # $ DIM SC, DIM +1
045528,000432: 37,2363 00006 EXTEND
045529,000433: 37,2364 26000 DIM A # $ DIM -0
045530,000434: 37,2365 02050 TC -0CHK
045531,000435: 37,2366 00006 EXTEND
045532,000436: 37,2367 26000 DIM A # $ DIM +0
045533,000437: 37,2370 02047 TC +0CHK
045534,000438:
045535,000439: # DAS+INCR CHECKS ALL PULSES OF DAS AND INCR.
045536,000440: # ALSO CHECKS DCA FIXED, LXCH SC, DCA ERASABLE, AD ERASABLE, DCS FIXED,
045537,000441: # DCS ERASABLE, AND XCH SC.
045538,000442: 37,2371 37771 DAS+INCR CA S-1
045539,000443: 37,2372 54001 DAS++ TS L # -1
045540,000444: 37,2373 37762 CA S+2 # +2
045541,000445: 37,2374 20001 DAS A # $ DAS SC, C(A) = +4 AND C(L) = -2
045542,000446: 37,2375 65340 AD S-3 # $ AD FIXED MEMORY
045543,000447: 37,2376 02055 TC +1CHK
045544,000448: 37,2377 37763 CA S+1
045545,000449: 37,2400 60001 AD L # $ AD SC, -1
045546,000450: 37,2401 02056 TC -1CHK
045547,000451: # DAS WITH INTERFLOW IN LOW ORDER AND NET OVERFLOW
045548,000452: 37,2402 00006 DAS+- EXTEND
045549,000453: 37,2403 33506 DCA S+MAX # $DCA FIXED MEMORY
045550,000454: 37,2404 53374 DXCH SKEEP3 # 37777, 40000
045551,000455: 37,2405 35336 CA S-2
045552,000456: 37,2406 54001 TS L
045553,000457: 37,2407 36311 CA S+3 # C(A) = +3, C(L) = -2
045554,000458: 37,2410 21374 DAS SKEEP3 # $ DAS ERASABLE
045555,000459: 37,2411 22000 LXCH A # $ LXCH SC
045556,000460: 37,2412 02047 TC +0CHK
045557,000461: 37,2413 30001 CA L
045558,000462: 37,2414 02055 TC +1CHK
045559,000463: 37,2415 00006 EXTEND
045560,000464: 37,2416 31374 DCA SKEEP3 # $ DCA ERASABLE
045561,000465: 37,2417 22000 LXCH A # C(A) = -1, C(L) = +1
045562,000466: 37,2420 02056 TC -1CHK
045563,000467: 37,2421 30001 CA L
045564,000468: 37,2422 02055 TC +1CHK
045565,000469: # INCRCHK CHECKS ALL INCR PULSES EXCEPT WOVR.
045566,000470: 37,2423 25374 INCRCHK INCR SKEEP4 # $ INCR ERASABLE, -0
045567,000471: 37,2424 61374 AD SKEEP4 # $ AD ERASABLE
045568,000472: 37,2425 02050 TC -0CHK
![]() |
Page 1084 |
045570,000474: 37,2426 24000 INCR A # $ INCR SC, +1
045571,000475: 37,2427 02055 TC +1CHK
045572,000476: # DAS WITH OVERFLOW IN LOW ORDER AND NET UNDERFLOW
045573,000477: 37,2430 00006 DAS-+ EXTEND
045574,000478: 37,2431 43506 DCS S+MAX # $ DCS FIXED MEMORY
045575,000479: 37,2432 53372 DXCH SKEEP1 # 40000, 37777
045576,000480: 37,2433 36311 CA S+3 # +3
045577,000481: 37,2434 54001 TS L
045578,000482: 37,2435 40000 CS A # -3
045579,000483: 37,2436 21372 DAS SKEEP1 # $
045580,000484: 37,2437 02056 TC -1CHK
045581,000485: 37,2440 00006 EXTEND
045582,000486: 37,2441 41372 DCS SKEEP1 # $ DCS ERASABLE (+1, -2)
045583,000487: 37,2442 56001 XCH L # $ XCH SC (-2, +1)
045584,000488: 37,2443 67763 AD S+1
045585,000489: 37,2444 02056 TC -1CHK
045586,000490: 37,2445 30001 CA L
045587,000491: 37,2446 02055 TC +1CHK
045588,000492:
045589,000493: # MPCHK CHECKS ALL PULSES OF MP, AUG, AND ADS.
045590,000494: 37,2447 37763 MPCHK CA S+1
045591,000495: 37,2450 00006 EXTEND
045592,000496: 37,2451 24000 AUG A # $ AUG SC, +2
045593,000497: 37,2452 55375 TS SKEEP5 # +2
045594,000498: 37,2453 40000 CS A
045595,000499: 37,2454 54002 TS Q # -2
045596,000500: 37,2455 40000 CS A
045597,000501: 37,2456 00006 MP++ EXTEND
045598,000502: 37,2457 73505 MP S+MAX # $ MP FIXED MEMORY, +1, 37776
045599,000503: 37,2460 60001 AD L # 37777
045600,000504: 37,2461 00006 MP+- EXTEND
045601,000505: 37,2462 70002 MP Q # $ MP SC, -1, 40001
045602,000506: 37,2463 26001 ADS L # $ ADS SC, 40000
045603,000507: 37,2464 62013 AD DVCON
045604,000508: 37,2465 02056 TC -1CHK
045605,000509: 37,2466 30001 CA L
045606,000510: 37,2467 00006 MP-+ EXTEND
045607,000511: 37,2470 71375 MP SKEEP5 # $ MP ERASABLE, -1, 40001
045608,000512: 37,2471 55376 TS SKEEP6
045609,000513: 37,2472 00006 EXTEND
045610,000514: 37,2473 25376 AUG SKEEP6 # $ AUG ERASABLE, -2
045611,000515: 37,2474 60001 AD L # 40000
045612,000516: 37,2475 00006 MP-- EXTEND
045613,000517: 37,2476 71376 MP SKEEP6 # $ +1, 37776
045614,000518: 37,2477 02055 TC +1CHK
045615,000519: 37,2500 40001 CS L # 40001
045616,000520: 37,2501 62013 AD DVCON
045617,000521: 37,2502 02050 TC -0CHK
045618,000522: 37,2503 37763 CA S+1
045619,000523: 37,2504 27376 ADS SKEEP6 # $ ADS ERASABLE, +1
![]() |
Page 1085 |
045621,000525: 37,2505 02056 TC -1CHK
045622,000526: 37,2506 31376 CA SKEEP6
045623,000527: 37,2507 02056 TC -1CHK
045624,000528:
045625,000529: # DVCH AND DVQXCHK CHECK ALL OF PULSES OF DV AND QXCH.
045626,000530: # ALSO CHECKS TS WITH UNDERFLOW
045627,000531: 37,2510 37746 DVCHK CA SBIT14 # 20000
045628,000532: 37,2511 55371 TS SKEEP1
045629,000533: 37,2512 60000 AD A # OVERFLOW
045630,000534: 37,2513 67763 AD S+1
045631,000535: 37,2514 54001 TS L # $ TS SC WITH OVERFLOW, +1
045632,000536: 37,2515 02033 TC ERRORS
045633,000537: 37,2516 40000 CS A
045634,000538: 37,2517 55372 TS SKEEP2 # -1
045635,000539: 37,2520 37770 CA S-ZERO # -0
045636,000540: 37,2521 23371 LXCH SKEEP1 # $ LXCH ERASABLE
045637,000541: 37,2522 00006 DV++ EXTEND
045638,000542: 37,2523 11371 DV SKEEP1 # $ DV ERASABLE, C(A) = 20000, C(L) = +0
045639,000543: 37,2524 40000 CS A
045640,000544: 37,2525 22000 LXCH A
045641,000545: 37,2526 02047 TC +0CHK
045642,000546: 37,2527 00006 DV-- EXTEND
045643,000547: 37,2530 11372 DV SKEEP2 # $ 20000, +0
045644,000548: 37,2531 55374 TS SKEEP4 # 20000
045645,000549: 37,2532 40000 CS A
045646,000550: 37,2533 55373 TS SKEEP3 # -(20000)
045647,000551: 37,2534 67746 AD SBIT14
045648,000552: 37,2535 02050 TC -0CHK
045649,000553: 37,2536 30001 CA L
045650,000554: 37,2537 02050 TC -0CHK
045651,000555: 37,2540 33505 DV+- CA S+MAX
045652,000556: 37,2541 54001 TS L
045653,000557: 37,2542 32010 CA S13BITS
045654,000558: 37,2543 00006 EXTEND
045655,000559: 37,2544 11373 DV SKEEP3 # $ -(37777), +(17777)
045656,000560: 37,2545 56001 XCH L
045657,000561: 37,2546 40000 CS A
045658,000562: 37,2547 00006 DV-+ EXTEND
045659,000563: 37,2550 11374 DV SKEEP4 # $ -(37777), -(17777)
045660,000564: 37,2551 62013 AD DVCON
045661,000565: 37,2552 02056 TC -1CHK
045662,000566: 37,2553 33505 CA S+MAX
045663,000567: 37,2554 56001 XCH L # ALSO PUTS 37777 IN L FOR DV-+,-
045664,000568: 37,2555 67746 AD SBIT14
045665,000569: 37,2556 02055 TC +1CHK
045666,000570: 37,2557 42010 DV-+,+ CS S13BITS # -(17777)
045667,000571: 37,2560 00006 EXTEND
045668,000572: 37,2561 11374 DV SKEEP4
045669,000573: 37,2562 60001 AD L # -(37775)
045670,000574: 37,2563 62013 AD DVCON
![]() |
Page 1086 |
045672,000576: 37,2564 02055 TC +1CHK
045673,000577: 37,2565 56001 XCH L
045674,000578: 37,2566 02056 TC -1CHK # ALSO PUTS +0 IN L FOR DVQXCH
045675,000579: 37,2567 42013 DVQXCHK CS DVCON
045676,000580: 37,2570 54002 TS Q # 40001
045677,000581: 37,2571 40000 CS A
045678,000582: 37,2572 00006 EXTEND
045679,000583: 37,2573 10002 DV Q # $ DV SC, -(37777), +(37776)
045680,000584: 37,2574 00006 EXTEND
045681,000585: 37,2575 22001 QXCH L # $ QXCH SC, C(L) = 40001, C(Q) = 37776
045682,000586: 37,2576 60002 AD Q
045683,000587: 37,2577 02056 TC -1CHK
045684,000588: 37,2600 30001 CA L
045685,000589: 37,2601 63505 AD S+MAX
045686,000590: 37,2602 02055 TC +1CHK
045687,000591: 37,2603 00006 EXTEND
045688,000592: 37,2604 23371 QXCH SKEEP1 # $ QXCH ERAS., C(Q) = +1, C(SKEEP1) = +3
045689,000593: 37,2605 30002 CA Q
045690,000594: 37,2606 02055 TC +1CHK
045691,000595: 37,2607 41371 CS SKEEP1 # -3
045692,000596: 37,2610 67762 AD S+2
045693,000597: 37,2611 02056 TC -1CHK
045694,000598:
045695,000599: # MSUCHK CHECKS ALL PULSES OF MSU EXCEPT RB WG.
045696,000600: 37,2612 37767 MSUCHK CA S+ZERO
045697,000601: 37,2613 55371 TS SKEEP1 # +0
045698,000602: 37,2614 40000 CS A
045699,000603: 37,2615 55372 TS SKEEP2 # -0
045700,000604: 37,2616 00006 EXTEND
045701,000605: 37,2617 20000 MSU A # $ MSU SC, +0
045702,000606: 37,2620 02047 TC +0CHK
045703,000607: 37,2621 00006 EXTEND
045704,000608: 37,2622 21372 MSU SKEEP2 # $ MSU ERASABLE, +1
045705,000609: 37,2623 02055 TC +1CHK
045706,000610: 37,2624 00006 EXTEND
045707,000611: 37,2625 33506 DCA S+MAX
045708,000612: 37,2626 00006 EXTEND
045709,000613: 37,2627 20001 MSU L # $ CHECKS RUS WA, ALSO -1 FROM NEG. NO.
045710,000614: 37,2630 54000 TS A
045711,000615: 37,2631 02633 TC +2
045712,000616: 37,2632 02033 TC ERRORS
045713,000617: 37,2633 02056 TC -1CHK
045714,000618:
045715,000619: # MASKCHK FINISHES CHECKING MASK INSTRUCTION.
045716,000620: 37,2634 37765 MASKCHK CA S+7
045717,000621: 37,2635 54001 TS L
045718,000622: 37,2636 72016 MASK S-7 # $ MASK FIXED MEMORY
045719,000623: 37,2637 02047 TC +0CHK
045720,000624: 37,2640 37763 CA S+1
045721,000625: 37,2641 70001 MASK L # $ MASK SC
![]() |
Page 1087 |
045723,000627: 37,2642 02055 TC +1CHK
045724,000628:
045725,000629: # NDX+SU FINISHES CHECKING BOTH INDEX INSTRUCTIONS. ALSO CHECKS ALL OF SU
045726,000630: # EXCEPT RB WG.
045727,000631: 37,2643 37763 NDX+SU CA S+1
045728,000632: 37,2644 54001 TS L
045729,000633: 37,2645 55371 TS SKEEP1
045730,000634: 37,2646 50000 NDX A # $ NDX SC
045731,000635: 37,2647 60000 AD 0000 # AD L, +2
045732,000636: 37,2650 00006 EXTEND
045733,000637: 37,2651 61371 SU SKEEP1 # $ SU ERASABLE
045734,000638: 37,2652 02055 TC +1CHK
045735,000639: 37,2653 00006 EXTEND
045736,000640: 37,2654 50001 NDX L # $ NDX SC
045737,000641: 37,2655 60000 SU 0000 # $ SU SC, SU L
045738,000642: 37,2656 02056 TC -1CHK
045739,000643:
045740,000644: # D--SC CHECKS DCS SC, DXCH SC, AND DCA SC.
045741,000645: 37,2657 37762 D--SC CA S+2
045742,000646: 37,2660 54001 TS L # +2
045743,000647: 37,2661 37763 CA S+1
045744,000648: 37,2662 00006 EXTEND
045745,000649: 37,2663 40001 DCS A # $ DCS SC, C(L) = -2
045746,000650: 37,2664 02056 TC -1CHK
045747,000651: # AFTER DXCH C(A) = B(Q) = +3, C(L) = B(A) = +0, C(Q) = B(L) = -1.
045748,000652: 37,2665 52002 DXCH L # $ DXCH SC
045749,000653: 37,2666 55373 TS SKEEP3
045750,000654: 37,2667 60002 AD Q
045751,000655: 37,2670 02055 TC +1CHK
045752,000656: 37,2671 30001 CA L
045753,000657: 37,2672 02047 TC +0CHK
045754,000658: 37,2673 37771 CA S-1
045755,000659: 37,2674 54002 TS Q
045756,000660: 37,2675 40000 CS A
045757,000661: 37,2676 00006 EXTEND
045758,000662: # AFTER DCA C(A) = C(L) = C(Q) = B(Q) = -1.
045759,000663: 37,2677 30002 DCA L # $ DCA SC
045760,000664: 37,2700 60002 AD Q
045761,000665: 37,2701 61373 AD SKEEP3
045762,000666: 37,2702 02055 TC +1CHK
045763,000667: 37,2703 30001 CA L
045764,000668: 37,2704 02056 TC -1CHK
045765,000669:
045766,000670: # D--LCHK CHECKS THAT OVERFLOW IS LOST IN PROCESS OF GOING THROUGH L REG.
045767,000671: # ALSO CHECKS THAT Q WILL HOLD 16 BITS
045768,000672: 37,2705 35336 D--LCHK CA S-2
045769,000673: 37,2706 54002 TS Q
045770,000674: 37,2707 33506 CA S-MAX
045771,000675: 37,2710 26002 ADS Q
045772,000676: 37,2711 40002 CS Q
![]() |
Page 1088 |
045774,000678: 37,2712 54000 TS A
045775,000679: 37,2713 02033 TC ERRORS
045776,000680: 37,2714 00006 EXTEND
045777,000681: 37,2715 30002 DCA L
045778,000682: 37,2716 54000 TS A
045779,000683: 37,2717 02721 TC +2
045780,000684: 37,2720 02033 TC ERRORS
045781,000685: 37,2721 02056 TC -1CHK
045782,000686:
045783,000687: # CHECKS OVERFLOW, UNDERFLOW,END-AROUND-CARRY, AND SIGN CHANGE OF ADDER.
045784,000688: # ALSO CHECKS ADS SC WITH OVERFLOW AND TS A WITH UNDERFLOW
045785,000689: 37,2722 37746 ADDRCHK CA SBIT14 # 20000
045786,000690: 37,2723 54002 TS Q
045787,000691: 37,2724 26002 ADS Q # $ ADS SC, OVERFLOW
045788,000692: 37,2725 26002 ADS Q # UNDERFLOW
045789,000693: 37,2726 54000 TS A # $ TS SC WITH UNDERFLOW
045790,000694: 37,2727 02033 TC ERRORS
045791,000695: 37,2730 26002 ADS Q
045792,000696: 37,2731 02055 TC +1CHK
045793,000697:
045794,000698: # RUPTCHK CHECKS THAT INTERRUPT DOES NOT OCCUR WHILE OVERFLOW OR UNDERFLOW
045795,000699: # IS IN THE A REGISTER. ALSO CHECKS THAT INHINT RELINT WORK PROPERLY.
045796,000700: 37,2732 00004 RUPTCHK INHINT
045797,000701: 37,2733 37767 CA S+ZERO
045798,000702: 37,2734 54015 TS ZRUPT
045799,000703: 37,2735 00003 RELINT
045800,000704: 37,2736 60027 AD TIME4
045801,000705: 37,2737 55371 TS SKEEP1
045802,000706: 37,2740 41371 TENMS CS SKEEP1
045803,000707: 37,2741 60027 AD TIME4 # WAIT FOR NEXT TIME4 INCREMENT
045804,000708: 37,2742 00006 EXTEND
045805,000709: 37,2743 12740 BZF TENMS
045806,000710: 37,2744 00004 INHINT
045807,000711: 37,2745 30015 CA ZRUPT
045808,000712: 37,2746 00006 EXTEND
045809,000713: 37,2747 12751 BZF +2 # NO INTERRUPT.
045810,000714: 37,2750 02732 TC RUPTCHK # THERE WAS AN INTERRUPT. START AGAIN.
045811,000715: 37,2751 37763 CAF S+1 # 2 1/2 MS UNTILE NEXT T3 INTERRUPT.
045812,000716: 37,2752 05663 TC WAITLIST
045813,000717: 37,2753 E3,1400 EBANK= LST1
045814,000718: 37,2753 02776 76063 2CADR TSKADRS
045815,000719:
045816,000720: 37,2755 33505 CA S+MAX
045817,000721: 37,2756 62012 AD OVCON # CONTROLS TIME SPENT IN OF-UF LOOP
045818,000722: 37,2757 00003 RELINT
045819,000723: 37,2760 40000 WAIT CS A
045820,000724: 37,2761 10000 CCS A
045821,000725: 37,2762 02766 TC INHNTCHK
045822,000726: 37,2763 02772 RUPTCON ADRES C(BRUPT)
045823,000727: 37,2764 67762 AD S+2
![]() |
Page 1089 |
045825,000729: 37,2765 02760 TC WAIT
045826,000730: 37,2766 00004 INHNTCHK INHINT # T3 RUPT SHOULD BE WAITING
045827,000731: 37,2767 55375 TS SKEEP5
045828,000732: 37,2770 02033 TC ERRORS
045829,000733: 37,2771 00003 RELINT
045830,000734: 37,2772 40015 C(BRUPT) CS ZRUPT # INTERRUPT SHOULD HAPPEN HERE
045831,000735: 37,2773 00006 EXTEND
045832,000736: 37,2774 13002 BZF +6 # MAKES SURE AN INTERRUPT DID OCCUR
045833,000737: 37,2775 03003 TC IN-OUT1 # AN INTERRUPT. END OF RUPTCHK
045834,000738: 37,2776 40015 TSKADRS CS ZRUPT
045835,000739: 37,2777 62763 AD RUPTCON
045836,000740: 37,3000 02056 TC -1CHK
045837,000741: 37,3001 05727 TC TASKOVER
045838,000742: 37,3002 02033 TC ERRORS # NO INTERRUPT
045839,000743:
045840,000744: # IN-OUT1 CHECKS ALL PULSES OF WRITE AND READ
045841,000745: 37,3003 37771 IN-OUT1 CA S-1
045842,000746: 37,3004 00006 WRITECHK EXTEND
045843,000747: 37,3005 01002 WRITE Q
045844,000748: 37,3006 22002 LXCH Q # PUT C(Q) IN L
045845,000749: 37,3007 02056 TC -1CHK
045846,000750: 37,3010 00006 READCHK EXTEND # C(L) = 77776
045847,000751: 37,3011 00001 READ L
045848,000752: 37,3012 02056 TC -1CHK
045849,000753: 37,3013 30001 CA L
045850,000754: 37,3014 02056 TC -1CHK
045851,000755:
045852,000756: # IN-OUT2 CHECKS ALL PULSES OF ROR AND WOR
045853,000757: 37,3015 46311 IN-OUT2 CS S+3
045854,000758: 37,3016 54001 RORCHK TS L # 77774
045855,000759: 37,3017 32013 CA DVCON # 37776
045856,000760: 37,3020 00006 EXTEND
045857,000761: 37,3021 04001 ROR L # $ ROR, -1
045858,000762: 37,3022 02056 TC -1CHK
045859,000763: 37,3023 32013 WORCHK CA DVCON # C(L) STILL 77774
045860,000764: 37,3024 00006 EXTEND
045861,000765: 37,3025 05001 WOR L # $ WOR, -1
045862,000766: 37,3026 02056 TC -1CHK
045863,000767: 37,3027 30001 CA L
045864,000768: 37,3030 02056 TC -1CHK
045865,000769:
045866,000770: # IN-OUT3 CHECKS ALL PULSES OF RAND, WAND, AND RXOR
045867,000771: 37,3031 42013 IN-OUT3 CS DVCON
045868,000772: 37,3032 54001 RANDCHK TS L # 40001
045869,000773: 37,3033 32010 CA S13BITS # 17777
045870,000774: 37,3034 00006 EXTEND
045871,000775: 37,3035 02001 RAND L # $ RAND, +1
045872,000776: 37,3036 02055 TC +1CHK
045873,000777: 37,3037 32010 WANDCHK CA S13BITS # C(L) STILL 40001
045874,000778: 37,3040 00006 EXTEND
![]() |
Page 1090 |
045876,000780: 37,3041 03001 WAND L # $ WAND, +1
045877,000781: 37,3042 02055 TC +1CHK
045878,000782: 37,3043 47766 CS S+5
045879,000783: 37,3044 56001 XCH L # ALSO PUT -5 IN L FOR RXORCHK
045880,000784: 37,3045 02055 TC +1CHK
045881,000785: 37,3046 36306 RXORCHK CA S+6
045882,000786: 37,3047 00006 EXTEND
045883,000787: 37,3050 06001 RXOR L # $ RXOR, -3
045884,000788: 37,3051 67762 AD S+2
045885,000789: 37,3052 02056 TC -1CHK
045886,000790: 37,3053 30001 CA L
045887,000791: 37,3054 67761 AD S+4
045888,000792: 37,3055 02056 TC -1CHK
045889,000793:
045890,000794: 37,3056 02064 TC SMODECHK
045891,000795:
045892,000796: # COUNTCHK COUNTS UP 14 BIT NUMBER WITH SIGN.
045893,000797: # TAKES APPROXIMATELY 8.7 SECONDS.
045894,000798: # ** PUT IN CCS NEWJOB FOR ROPE.
045895,000799: 37,3057 00006 COUNTCHK EXTEND
045896,000800: 37,3060 33506 DCA S+MAX
045897,000801: 37,3061 53377 DXCH SKEEP6 # PUT 37777 IN SKEEP6 AND 40000 IN SKEEP7
045898,000802: 37,3062 31376 +LOOP CA SKEEP6
045899,000803: 37,3063 56002 XCH Q
045900,000804: 37,3064 00006 EXTEND
045901,000805: 37,3065 40002 DCS L
045902,000806: 37,3066 10000 CCS A
045903,000807: 37,3067 03076 TC -NMBR
045904,000808: 37,3070 03103 TC ENDCOUNT
045905,000809: 37,3071 55376 TS SKEEP6
045906,000810: 37,3072 61377 AD SKEEP7
045907,000811: 37,3073 02056 TC -1CHK
045908,000812: 37,3074 25377 INCR SKEEP7
045909,000813: 37,3075 03062 TC +LOOP
045910,000814: 37,3076 60001 -NMBR AD L
045911,000815: 37,3077 02056 TC -1CHK
045912,000816: 37,3100 05605 TC CHECKNJ # CHECK FOR NEW JOB
045913,000817: 37,3101 41376 CS SKEEP6
045914,000818: 37,3102 03063 TC +LOOP +1
045915,000819: 37,3103 31377 ENDCOUNT CA SKEEP7 # -0
045916,000820: 37,3104 61376 AD SKEEP6 # SKEEP6 SHOULD BE +0
045917,000821: 37,3105 02050 TC -0CHK
045918,000822:
045919,000823: # O-UFLOW COUNTS DOWN OVERFLOW AND UNDERFLOW NUMBERS.
045920,000824: # TAKES APPROXIMATELY 10.8 SECONDS
045921,000825: 37,3106 33506 O-UFLOW CA S-MAX
045922,000826: 37,3107 55375 TS SKEEP5 # 40000
045923,000827: 37,3110 40000 CS A
045924,000828: 37,3111 00004 OFLOOP INHINT
045925,000829: 37,3112 63505 AD S+MAX
![]() |
Page 1091 |
045927,000831: 37,3113 67763 AD S+1
045928,000832: 37,3114 56002 XCH Q
045929,000833: 37,3115 10002 CCS Q
045930,000834: 37,3116 03133 TC -NMBRS
045931,000835: 37,3117 02033 TC ERRORS # CAN PUT IN CONSTANT
045932,000836: 37,3120 55373 TS SKEEP3
045933,000837: 37,3121 02033 TC ERRORS
045934,000838: 37,3122 31373 CA SKEEP3
045935,000839: 37,3123 61375 AD SKEEP5
045936,000840: 37,3124 02056 TC -1CHK
045937,000841: 37,3125 00003 RELINT
045938,000842: 37,3126 05605 TC CHECKNJ # CHECK FOR NEW JOB
045939,000843: 37,3127 31374 CA SKEEP4
045940,000844: 37,3130 00006 EXTEND
045941,000845: 37,3131 27375 DIM SKEEP5
045942,000846: 37,3132 03111 TC OFLOOP
045943,000847: 37,3133 55374 -NMBRS TS SKEEP4
045944,000848: 37,3134 03144 TC ENDOFUF
045945,000849: 37,3135 31374 CA SKEEP4
045946,000850: 37,3136 61375 AD SKEEP5
045947,000851: 37,3137 02056 TC -1CHK
045948,000852: 37,3140 31375 CA SKEEP5
045949,000853: 37,3141 63506 AD S-MAX
045950,000854: 37,3142 67771 AD S-1
045951,000855: 37,3143 03114 TC OFLOOP +3
045952,000856: 37,3144 31375 ENDOFUF CA SKEEP5
045953,000857: 37,3145 02050 TC -0CHK
045954,000858: 37,3146 41374 CS SKEEP4
045955,000859: 37,3147 62013 AD DVCON
045956,000860: 37,3150 02056 TC -1CHK
045957,000861: 37,3151 00003 RELINT
045958,000862:
045959,000863: 37,3152 02064 TC SMODECHK
045960,000864:
045961,000865: # SKEEP7 HOLDS LOWEST OF TWO ADDRESSES BEING CHECKED.
045962,000866: # SKEEP6 HOLDS B(X+1).
045963,000867: # SKEEP5 HOLDS B(X).
045964,000868: # SKEEP4 CONTROLS CHECKING OF NON-SWITCHABLE ERASABLE MEMORY WITH
045965,000869: # BANK NUMBERS IN EB.
045966,000870: # SKEEP3 HOLDS LAST ADDRESS BEING CHECKED (HIGHEST ADDRESS).
045967,000871: # SKEEP2 HOLDS C(EBANK) DURING CHECKNJ
045968,000872: # ERASCHK TAKES APPROXMATELY 7 SECONDS
045969,000873: 37,3153 37763 ERASCHK CA S+1
045970,000874: 37,3154 55374 TS SKEEP4
045971,000875: 37,3155 37767 0EBANK CA S+ZERO
045972,000876: 37,3156 54003 TS EBANK
045973,000877: 37,3157 32004 CA ERASCON3 # 01461
045974,000878: 37,3160 55377 TS SKEEP7 # STARTING ADDRESS
045975,000879: 37,3161 35337 CA S10BITS # 01777
045976,000880: 37,3162 55373 TS SKEEP3 # LAST ADDRESS CHECKED
![]() |
Page 1092 |
045978,000882: 37,3163 03203 TC ERASLOOP
045979,000883:
045980,000884: 37,3164 32003 E134567B CA ERASCON6 # 01400
045981,000885: 37,3165 55377 TS SKEEP7 # STARTING ADDRESS
045982,000886: 37,3166 35337 CA S10BITS # 01777
045983,000887: 37,3167 55373 TS SKEEP3 # LAST ADDRESS CHECKED
045984,000888: 37,3170 03203 TC ERASLOOP
045985,000889:
045986,000890: 37,3171 32003 2EBANK CA ERASCON6 # 01400
045987,000891: 37,3172 55377 TS SKEEP7 # STARTING ADDRESS
045988,000892: 37,3173 32005 CA ERASCON4 # 01774
045989,000893: 37,3174 55373 TS SKEEP3 # LAST ADDRESS CHECKED
045990,000894: 37,3175 03203 TC ERASLOOP
045991,000895:
045992,000896: 37,3176 55374 NOEBANK TS SKEEP4 # +0
045993,000897: 37,3177 32001 CA ERASCON1 # 00061
045994,000898: 37,3200 55377 TS SKEEP7 # STARTING ADDRESS
045995,000899: 37,3201 32002 CA ERASCON2 # 01374
045996,000900: 37,3202 55373 TS SKEEP3 # LAST ADDRESS CHECKED
045997,000901:
045998,000902: 37,3203 00004 ERASLOOP INHINT
045999,000903: 37,3204 00006 EXTEND
046000,000904: 37,3205 51377 INDEX SKEEP7
046001,000905: 37,3206 30001 DCA 0000
046002,000906: 37,3207 53376 DXCH SKEEP5 # STORES C(X) AND C(X-1) IN SKEEP6 AND 5.
046003,000907: 37,3210 31377 CA SKEEP7
046004,000908: 37,3211 55353 TS ERESTORE # IF RESTART, RESTORE C(X) AND C(X+1)
046005,000909: 37,3212 54001 TS L
046006,000910: 37,3213 24001 INCR L
046007,000911: 37,3214 50000 NDX A
046008,000912: 37,3215 52001 DXCH 0000 # PUTS OWN ADDRESS IN X AND X +1
046009,000913: 37,3216 51377 NDX SKEEP7
046010,000914: 37,3217 40001 CS 0001 # CS X+1
046011,000915: 37,3220 51377 NDX SKEEP7
046012,000916: 37,3221 60000 AD 0000 # AD X
046013,000917: 37,3222 02056 TC -1CHK
046014,000918: 37,3223 31353 CA ERESTORE # HAS ERASABLE BEEN RESTORED
046015,000919: 37,3224 00006 EXTEND
046016,000920: 37,3225 13251 BZF ELOOPFIN # YES, EXIT ERASLOOP.
046017,000921: 37,3226 00006 EXTEND
046018,000922: 37,3227 51377 NDX SKEEP7
046019,000923: 37,3230 40001 DCS 0000 # COMPLEMENT OF ADDRESS OF X AND X+1
046020,000924: 37,3231 51377 NDX SKEEP7
046021,000925: 37,3232 52001 DXCH 0000 # PUT COMPLEMENT OF ADDRESS OF X AND X+1
046022,000926: 37,3233 51377 NDX SKEEP7
046023,000927: 37,3234 40000 CS 0000 # CS X
046024,000928: 37,3235 51377 NDX SKEEP7
046025,000929: 37,3236 60001 AD 0001 # AD X+1
046026,000930: 37,3237 02056 TC -1CHK
046027,000931: 37,3240 31353 CA ERESTORE # HAS ERASABLE BEEN RESTORED
![]() |
Page 1093 |
046029,000933: 37,3241 00006 EXTEND
046030,000934: 37,3242 13251 BZF ELOOPFIN # YES, EXIT ERASLOOP.
046031,000935: 37,3243 00006 EXTEND
046032,000936: 37,3244 31376 DCA SKEEP5
046033,000937: 37,3245 51377 NDX SKEEP7
046034,000938: 37,3246 52001 DXCH 0000 # PUT B(X) AND B(X+1) BACK INTO X AND X+1
046035,000939: 37,3247 37767 CA S+ZERO
046036,000940: 37,3250 55353 TS ERESTORE # IF RESTART, DO NOT RESTORE C(X), C(X+1)
046037,000941: 37,3251 00003 ELOOPFIN RELINT
046038,000942: 37,3252 30003 CA EBANK # STORES C(EBANK)
046039,000943: 37,3253 55372 TS SKEEP2
046040,000944: 37,3254 05605 TC CHECKNJ # CHECK FOR NEW JOB
046041,000945: 37,3255 31372 CA SKEEP2 # REPLACES B(EBANK)
046042,000946: 37,3256 54003 TS EBANK
046043,000947: 37,3257 25377 INCR SKEEP7
046044,000948: 37,3260 41377 CS SKEEP7
046045,000949: 37,3261 61373 AD SKEEP3
046046,000950: 37,3262 00006 EXTEND
046047,000951: 37,3263 13265 BZF +2
046048,000952: 37,3264 03203 TC ERASLOOP # GO TO NEXT ADDRESS IN SAME BANK
046049,000953: 37,3265 11374 CCS SKEEP4
046050,000954: 37,3266 03176 TC NOEBANK
046051,000955: 37,3267 25374 INCR SKEEP4 # PUT +1 IN SKEEP4
046052,000956: 37,3270 30003 CA EBANK
046053,000957: 37,3271 67753 AD SBIT9
046054,000958: 37,3272 54003 TS EBANK
046055,000959: 37,3273 62015 AD ERASCON5 # 76777, CHECK FOR BANK E3
046056,000960: 37,3274 00006 EXTEND
046057,000961: 37,3275 13171 BZF 2EBANK
046058,000962: 37,3276 10003 CCS EBANK
046059,000963: 37,3277 03164 TC E134567B # GO TO EBANKS 1,3,4,5,6, AND 7
046060,000964: 37,3300 32003 CA ERASCON6 # END OF ERASCHK
046061,000965: 37,3301 54003 TS EBANK
046062,000966: # CNTRCHK PERFORMS A CS OF ALL REGISTERS FROM OCT. 60 THROUGH OCT. 10.
046063,000967: # INCLUDED ARE ALL COUNTERS, T6-1, CYCLE AND SHIFT, AND ALL RUPT REGISTERS
046064,000968: 37,3302 32000 CNTRCHK CAF CNTRCON # 00050
046065,000969: 37,3303 55372 CNTRLOOP TS SKEEP2
046066,000970: 37,3304 67760 AD SBIT4 # +10 OCTAL
046067,000971: 37,3305 50000 INDEX A
046068,000972: 37,3306 40000 CS 0000
046069,000973: 37,3307 11372 CCS SKEEP2
046070,000974: 37,3310 03303 TC CNTRLOOP
046071,000975:
046072,000976: # CYCLSHFT CHECKS THE CYCLE AND SHIFT REGISTERS
046073,000977: 37,3311 32011 CYCLSHFT CA CONC+S1 # 25252
046074,000978: 37,3312 54020 TS CYR # C(CYR) = 12525
046075,000979: 37,3313 54022 TS CYL # C(CYL) = 52524
046076,000980: 37,3314 54021 TS SR # C(SR) = 12525
046077,000981: 37,3315 54023 TS EDOP # C(EDOP) = 00125
046078,000982: 37,3316 60020 AD CYR # 37777 C(CYR) = 45252
![]() |
Page 1094 |
046080,000984: 37,3317 60022 AD CYL # 00-12524 C(CYL) = 25251
046081,000985: 37,3320 60021 AD SR # 00-25251 C(SR) = 05252
046082,000986: 37,3321 60023 AD EDOP # 00-25376 C(EDOP) = +0
046083,000987: 37,3322 62014 AD CONC+S2 # C(CONC+S2) = 52400
046084,000988: 37,3323 02056 TC -1CHK
046085,000989: 37,3324 60020 AD CYR # 45252
046086,000990: 37,3325 60022 AD CYL # 72523
046087,000991: 37,3326 60021 AD SR # 77775
046088,000992: 37,3327 60023 AD EDOP # 77775
046089,000993: 37,3330 67763 AD S+1 # 77776
046090,000994: 37,3331 02056 TC -1CHK
046091,000995:
046092,000996: 37,3332 25367 INCR SCOUNT +1
046093,000997: 37,3333 02064 TC SMODECHK
046094,000998: 37,3334 03340 TC ROPECHK
046095,000999:
046096,001000: # SKEEP1 HOLDS SUM
046097,001001: # SKEEP2 HOLDS PRESENT CONTENTS OF ADDRESS IN ROPECHK AND SHOWSUM ROUTINES
046098,001002: # SKEEP2 HOLDS BANK NUMBER IN LOW ORDER BITS DURING SHOWSUM DISPLAY
046099,001003: # SKEEP3 HOLDS PRESENT ADDRESS (00000 TO 01777 IN COMMON FIXED BANKS)
046100,001004: # (04000 TO 07777 IN FXFX BANKS)
046101,001005: # SKEEP3 HOLDS BUGGER WORD DURING SHOWSUM DISPLAY
046102,001006: # SKEEP4 HOLDS BANK NUMBER AND SUPER BANK NUMBER
046103,001007: # SKEEP5 COUNTS 2 SUCCESSIVE TC SELF WORDS
046104,001008: # SKEEP6 CONTROLS ROPECHK OR SHOWSUM OPTION
046105,001009: # SKEEP7 CONTROLS WHEN ROUNTINE IS IN COMMON FIXED OR FIXED FIXED BANKS
046106,001010:
046107,001011: 37,3335 04632 STSHOSUM TC GRABDSP
046108,001012: 37,3336 04637 TC PREGBSY
046109,001013: 37,3337 03342 TC +3
046110,001014: 37,3340 37770 ROPECHK CA S-ZERO
046111,001015: 37,3341 55376 TS SKEEP6 # ROPECHK OPTION
046112,001016: 37,3342 37767 CA S+ZERO
046113,001017: 37,3343 55374 TS SKEEP4 # BANK NUMBER
046114,001018: 37,3344 37763 CA S+1
046115,001019: 37,3345 55377 COMMFX TS SKEEP7
046116,001020: 37,3346 37767 CA S+ZERO
046117,001021: 37,3347 55371 TS SKEEP1
046118,001022: 37,3350 55373 TS SKEEP3
046119,001023: 37,3351 37763 CA S+1
046120,001024: 37,3352 55375 TS SKEEP5 # COUNTS DOWN 2 TC SELF WORDS
046121,001025: 37,3353 31374 COMADRS CA SKEEP4
046122,001026: 37,3354 54001 TS L # TO SET SUPER BANK
046123,001027: 37,3355 74560 MASK HI5
046124,001028: 37,3356 61373 AD SKEEP3
046125,001029: 37,3357 05245 TC SUPDACAL # SUPER DATA CALL
046126,001030: 37,3360 03403 TC ADSUM
046127,001031: 37,3361 67751 AD SBIT11 # 02000
046128,001032: 37,3362 03414 TC ADRSCHK
![]() |
Page 1095 |
046130,001034: 37,3363 40000 FXFX CS A
046131,001035: 37,3364 55377 TS SKEEP7
046132,001036: 37,3365 00006 EXTEND
046133,001037: 37,3366 13371 BZF +3
046134,001038: 37,3367 37750 CA SBIT12 # 04000, STARTING ADDRESS OF BANK 02
046135,001039: 37,3370 03372 TC +2
046136,001040: 37,3371 35634 CA SBNK03 # 06000, STARTING ADDRESS OF BANK 03
046137,001041: 37,3372 55373 TS SKEEP3
046138,001042: 37,3373 37767 CA S+ZERO
046139,001043: 37,3374 55371 TS SKEEP1
046140,001044: 37,3375 37763 CA S+1
046141,001045: 37,3376 55375 TS SKEEP5 # COUNTS DOWN 2 TC SELF WORDS
046142,001046: 37,3377 51373 FXADRS INDEX SKEEP3
046143,001047: 37,3400 30000 CA 0000
046144,001048: 37,3401 03403 TC ADSUM
046145,001049: 37,3402 03414 TC ADRSCHK
046146,001050:
046147,001051: 37,3403 55372 ADSUM TS SKEEP2
046148,001052: 37,3404 61371 AD SKEEP1
046149,001053: 37,3405 55371 TS SKEEP1
046150,001054: 37,3406 37767 CAF S+ZERO
046151,001055: 37,3407 61371 AD SKEEP1
046152,001056: 37,3410 55371 TS SKEEP1
046153,001057: 37,3411 41372 CS SKEEP2
046154,001058: 37,3412 61373 AD SKEEP3
046155,001059: 37,3413 00002 TC Q
046156,001060:
046157,001061: 37,3414 22000 ADRSCHK LXCH A
046158,001062: 37,3415 11375 CCS SKEEP5 # IS CHECKSUM FINISHED
046159,001063: 37,3416 03421 TC +3 # NO
046160,001064: 37,3417 03421 TC +2 # NO
046161,001065: 37,3420 03510 TC SOPTION # GO TO ROPECHK SHOWSUM OPTION
046162,001066: 37,3421 10001 CCS L # -0 MEANS A TC SELF WORD.
046163,001067: 37,3422 03431 TC CONTINU
046164,001068: 37,3423 03431 TC CONTINU
046165,001069: 37,3424 03431 TC CONTINU
046166,001070: 37,3425 11375 CCS SKEEP5
046167,001071: 37,3426 03432 TC CONTINU +1
046168,001072: 37,3427 37771 CA S-1
046169,001073: 37,3430 03432 TC CONTINU +1 # AD IN THE BUGGER WORD
046170,001074: 37,3431 37763 CONTINU CA S+1 # MAKE SURE TWO CONSECUTIVE TC SELF WORDS
046171,001075: 37,3432 55375 TS SKEEP5
046172,001076: 37,3433 11376 CCS SKEEP6 # +1 IN SKEEP6, SHOWSUM VIA EXECUTIVE
046173,001077: 37,3434 10067 CCS NEWJOB
046174,001078: 37,3435 05532 TC CHANG1
046175,001079: 37,3436 03440 TC +2
046176,001080: 37,3437 05605 TC CHECKNJ # -0 IN SKEEP6 FOR ROPECHK
046177,001081:
046178,001082: 37,3440 25373 ADRS+1 INCR SKEEP3
046179,001083: 37,3441 11377 CCS SKEEP7
![]() |
Page 1096 |
046181,001085: 37,3442 03353 TC COMADRS
046182,001086: 37,3443 03353 TC COMADRS
046183,001087: 37,3444 03377 TC FXADRS
046184,001088: 37,3445 03377 TC FXADRS
046185,001089:
046186,001090: 37,3446 41374 NXTBNK CS SKEEP4
046187,001091: 37,3447 63530 AD LSTBNKCH # LAST BANK TO BE CHECKED
046188,001092: 37,3450 00006 EXTEND
046189,001093: 37,3451 13503 BZF ENDSUMS # END OF SUMMING OF BANKS.
046190,001094: 37,3452 31374 CA SKEEP4
046191,001095: 37,3453 67751 AD SBIT11
046192,001096: 37,3454 55374 TS SKEEP4 # 37 TO 40 INCRMTS SKEEP4 BY END RND CARRY
046193,001097: 37,3455 03461 TC CHKSUPR
046194,001098: 37,3456 37745 17TO20 CA SBIT15
046195,001099: 37,3457 27374 ADS SKEEP4 # SET FOR BANK 20
046196,001100: 37,3460 03475 TC GONXTBNK
046197,001101: 37,3461 74560 CHKSUPR MASK HI5
046198,001102: 37,3462 00006 EXTEND
046199,001103: 37,3463 13473 BZF NXTSUPR # INCREMENT SUPER BANK
046200,001104: 37,3464 62010 27TO30 AD S13BITS
046201,001105: 37,3465 00006 EXTEND
046202,001106: 37,3466 13470 BZF +2 # BANK SET FOR 30
046203,001107: 37,3467 03475 TC GONXTBNK
046204,001108: 37,3470 32006 CA SIXTY # FIRST SUPER BANK
046205,001109: 37,3471 27374 ADS SKEEP4
046206,001110: 37,3472 03475 TC GONXTBNK
046207,001111: 37,3473 62007 NXTSUPR AD SUPRCON # SET BNK 30 + INCR SUPR BNK AND CANCEL
046208,001112: 37,3474 27374 ADS SKEEP4 # ERC BIT OF THE 37 TO 40 ADVANCE.
046209,001113: 37,3475 11377 GONXTBNK CCS SKEEP7
046210,001114: 37,3476 03345 TC COMMFX
046211,001115: 37,3477 37763 CA S+1
046212,001116: 37,3500 03363 TC FXFX
046213,001117: 37,3501 37755 CA SBIT7 # HAS TO BE LARGER THAN NO OF FXSW BANKS.
046214,001118: 37,3502 03345 TC COMMFX
046215,001119:
046216,001120: 37,3503 11376 ENDSUMS CCS SKEEP6
046217,001121: 37,3504 03342 TC ROPECHK +2 # START SHOWSUM AGAIN
046218,001122: 37,3505 37777 S+MAX OCTAL 37777 # ** S+MAX AND S-MAX MUST BE TOGETHER
046219,001123: 37,3506 40000 S-MAX OCTAL 40000 # FOR DOUBLE PRECISION CHECKING.
046220,001124: 37,3507 03603 TC RPCHKFIN # ROPECHK IS COMPLETE
046221,001125:
046222,001126: 37,3510 31374 SOPTION CA SKEEP4
046223,001127: 37,3511 74560 MASK HI5 # = BANK BITS
046224,001128: 37,3512 04541 TC LEFT5
046225,001129: 37,3513 54001 TS L # BANK NUMBER BEFORE SUPER BANK
046226,001130: 37,3514 31374 CA SKEEP4
046227,001131: 37,3515 74564 MASK S8BITS # = SUPER BANK BITS
046228,001132: 37,3516 00006 EXTEND
046229,001133: 37,3517 13525 BZF SOPT # BEFORE SUPER BANK
046230,001134: 37,3520 54021 TS SR # SUPER BANK NECESSARY
![]() |
Page 1097 |
046232,001136: 37,3521 30001 CA L
046233,001137: 37,3522 77765 MASK SEVEN
046234,001138: 37,3523 60021 AD SR
046235,001139: 37,3524 54001 TS L # BANK NUMBER WITH SUPER BANK
046236,001140: 37,3525 11376 SOPT CCS SKEEP6
046237,001141: 37,3526 03560 TC SDISPLAY
046238,001142: 37,3527 00501 VNCON OCTAL 00501 # USED IN SHOWSUM. DISPLAY 3 REGISTERS.
046239,001143: 37,3530 0067 EBANK= NEWJOB
046240,001144: 37,3530 76060 LSTBNKCH BBCON* # * CONSTANT, LAST BANK.
046241,001145:
046242,001146: 37,3531 11371 BNKCHK CCS SKEEP1 # WHEN C(SKEEP6) = -0
046243,001147: 37,3532 03536 TC +4
046244,001148: 37,3533 77563 SCADR FCADR NOKILL # * CONSTANT, USED IN SHOWSUM ONLY
046245,001149: 37,3534 03536 TC +2
046246,001150: 37,3535 37771 CA S-1 # FOR BANK 00
046247,001151: 37,3536 55371 TS SKEEP1
046248,001152: 37,3537 40001 CS L # = - BANK NUMBER
046249,001153: 37,3540 61371 AD SKEEP1
046250,001154: 37,3541 02056 TC -1CHK
046251,001155: 37,3542 03446 TC NXTBNK
046252,001156:
046253,001157: # INITIALIZE SKEEP6 TO +1 TO PERFORM SHOWSUM
046254,001158: # START OF ROUTINE THAT DISPLAYS SUM OF EACH BANK
046255,001159: 37,3543 37763 SHOWSUM CAF S+1
046256,001160: 37,3544 55376 TS SKEEP6 # SHOWSUM OPTION
046257,001161: 37,3545 37767 CAF S+ZERO
046258,001162: 37,3546 55355 TS SMODE # PUT SELF-CHECK TO SLEEP
046259,001163: 37,3547 32021 CA SELFADRS # INITIALIZE SELFRET TO GO TO SELFCHK.
046260,001164: 37,3550 55354 TS SELFRET
046261,001165: 37,3551 00004 INHINT
046262,001166: 37,3552 37751 CAF PRIO2
046263,001167: 37,3553 05505 TC NOVAC
046264,001168: 37,3554 1354 EBANK= SELFRET
046265,001169: 37,3554 03335 76062 2CADR STSHOSUM
046266,001170:
046267,001171: 37,3556 00003 RELINT
046268,001172: 37,3557 05567 TC ENDOFJOB
046269,001173:
046270,001174: 37,3560 30001 SDISPLAY CA L # = BANK NUMBER
046271,001175: 37,3561 57372 XCH SKEEP2 # SKEEP2 HOLDS BANK NUMBER DURING DISPLAY
046272,001176: 37,3562 55373 TS SKEEP3 # SKEEP3 HOLDS BUGGER WORD DURING DISPLAY
046273,001177: 37,3563 32017 NOKILL CAF ADRS1 # ADDRESS OF SKEEP1
046274,001178: 37,3564 54146 TS MPAC +2
046275,001179: 37,3565 33527 CAF VNCON # DISPLAY 3 REGISTERS
046276,001180: 37,3566 04444 TC NVSUB
046277,001181: 37,3567 03601 TC SBUSY
046278,001182: 37,3570 04622 TC FLASHON
046279,001183: 37,3571 04475 TC ENDIDLE
046280,001184: 37,3572 03575 TC +3 # FINISHED WITH SHOWSUM
046281,001185: 37,3573 03446 TC NXTBNK
![]() |
Page 1098 |
046283,001187: 37,3574 03563 TC NOKILL # SO CAN LOAD WITHOUT KILLING SHOWSUM
046284,001188: 37,3575 04724 TC FREEDSP
046285,001189: 37,3576 32021 CA SELFADRS # INITIALIZE SKEEP1 TO GO TO SELFCHK.
046286,001190: 37,3577 55371 TS SKEEP1
046287,001191: 37,3600 05567 TC ENDOFJOB
046288,001192:
046289,001193: 37,3601 33533 SBUSY CAF SCADR
046290,001194: 37,3602 04654 TC NVSUBUSY
046291,001195:
046292,001196: 37,3603 02115 RPCHKFIN TC SELFCHK # START SELF-CHECK AGAIN.
046293,001197:
046294,001198: 37,3604 40000 SBNKOPTN CS A # GO TO BACKUP IDLE LOOP IF C(SMODE) IS
046295,001199: 37,3605 67762 AD TWO # GREATER THAN OCTAL 11
046296,001200: 37,3606 00006 EXTEND
046297,001201: 37,3607 63613 BZMF TOSMODE -2
046298,001202: 37,3610 37767 CA S+ZERO # ZERO SMODE FOR OPTIONS ABOVE 8.
046299,001203: 37,3611 55355 TS SMODE
046300,001204: 37,3612 03633 SOPTON11 TC DSKYCHK
046301,001205:
046302,001206: 37,3613 37767 CA S+ZERO
046303,001207: 37,3614 55355 TS SMODE
046304,001208: 37,3615 02115 TOSMODE TC SELFCHK
046305,001209:
046306,001210: # THE FOLLOWING CONSTANTS ARE USED BY DSKYCHK.
046307,001211: 37,3616 05265 DSKYCODE OCTAL 05265 # 00
046308,001212: 37,3617 04143 OCTAL 04143 # 11
046309,001213: 37,3620 05471 OCTAL 05471 # 22
046310,001214: 37,3621 05573 OCTAL 05573 # 33
046311,001215: 37,3622 04757 OCTAL 04757 # 44
046312,001216: 37,3623 05736 OCTAL 05736 # 55
046313,001217: 37,3624 05634 OCTAL 05634 # 66
046314,001218: 37,3625 05163 OCTAL 05163 # 77
046315,001219: 37,3626 05675 OCTAL 05675 # 88
046316,001220: 37,3627 05777 OCTAL 05777 # 99
046317,001221: 37,3630 07265 +-ZERO OCTAL 07265
046318,001222: 37,3631 00013 11DEC. OCTAL 00013
046319,001223:
046320,001224: # BITS 2 AND 6 TURN ON THE COMPUTER ACTIVITY AND VERB-NOUN FLASH.
046321,001225: 37,3632 00042 S11CHAN OCTAL 00042
046322,001226:
046323,001227: 37,3633 34570 DSKYCHK CAF TEN
046324,001228: 37,3634 55373 TS SKEEP3
046325,001229: 37,3635 00004 INHINT
046326,001230: 37,3636 37763 CAF S+1 # SET UP TEN MS INTERRUPT
046327,001231: 37,3637 05663 TC WAITLIST
046328,001232: 37,3640 E3,1400 EBANK= LST1
046329,001233: 37,3640 03674 76063 2CADR NXTNMBR
046330,001234:
046331,001235: 37,3642 00003 RELINT
046332,001236: 37,3643 03615 TC TOSMODE # GO TO IDLE LOOP
![]() |
Page 1099 |
046334,001238:
046335,001239: 37,3644 55373 SDSPTAB TS SKEEP3
046336,001240: 37,3645 00004 INHINT
046337,001241: 37,3646 51373 NDX SKEEP3
046338,001242: 37,3647 43616 CS DSKYCODE
046339,001243: 37,3650 54313 SBLANKS TS DSPTAB
046340,001244: 37,3651 54314 TS DSPTAB +1
046341,001245: 37,3652 54315 TS DSPTAB +2
046342,001246: 37,3653 54316 TS DSPTAB +3
046343,001247: 37,3654 54317 TS DSPTAB +4
046344,001248: 37,3655 54320 TS DSPTAB +5
046345,001249: 37,3656 54321 TS DSPTAB +6
046346,001250: 37,3657 54322 TS DSPTAB +7
046347,001251: 37,3660 54323 TS DSPTAB +8D
046348,001252: 37,3661 54324 TS DSPTAB +9D
046349,001253: 37,3662 54325 TS DSPTAB +10D
046350,001254: 37,3663 33631 CA 11DEC.
046351,001255: 37,3664 54307 TS NOUT
046352,001256:
046353,001257: 37,3665 00004 DSKYWAIT INHINT
046354,001258: 37,3666 37752 CAF BIT10 # 5.12 SECOND WAIT
046355,001259: 37,3667 05663 TC WAITLIST
046356,001260: 37,3670 E3,1400 EBANK= LST1
046357,001261: 37,3670 03674 76063 2CADR NXTNMBR
046358,001262:
046359,001263: 37,3672 00003 RELINT
046360,001264: 37,3673 05727 TC TASKOVER
046361,001265:
046362,001266: 37,3674 11373 NXTNMBR CCS SKEEP3
046363,001267: 37,3675 03644 TC SDSPTAB # 9 THROUGH 0
046364,001268: 37,3676 03703 TC -SIGN # -ZEROS
046365,001269: 37,3677 03720 TC +SIGN # +ZEROS
046366,001270: 37,3700 11372 CCS SKEEP2
046367,001271: 37,3701 03734 TC NODSPLAY # PUTS BLANKS IN DSKY DISPLAY
046368,001272: 37,3702 03740 TC LITESOUT # TURN OFF LIGHTS
046369,001273:
046370,001274: 37,3703 47763 -SIGN CS S+1
046371,001275: 37,3704 55373 TS SKEEP3
046372,001276: 37,3705 33632 CA S11CHAN # TURN ON VERB-NOUN FLASH
046373,001277: 37,3706 00006 EXTEND # AND COMPUTER ACTIVITY LIGHTS.
046374,001278: 37,3707 05011 WOR DSALMOUT
046375,001279: 37,3710 43630 CS +-ZERO
046376,001280: 37,3711 00004 INHINT
046377,001281: 37,3712 54313 TS DSPTAB
046378,001282: 37,3713 54316 TS DSPTAB +3
046379,001283: 37,3714 54320 TS DSPTAB +5
046380,001284: 37,3715 36311 CAF THREE
046381,001285: 37,3716 54307 TS NOUT
046382,001286: 37,3717 03665 TC DSKYWAIT
046383,001287:
046384,001288: 37,3720 47767 +SIGN CS ZERO
![]() |
Page 1100 |
046386,001290: 37,3721 55373 TS SKEEP3
046387,001291: 37,3722 37763 CA S+1
046388,001292: 37,3723 55372 TS SKEEP2
046389,001293: 37,3724 00004 INHINT
046390,001294: 37,3725 43630 CS +-ZERO
046391,001295: 37,3726 54314 TS DSPTAB +1
046392,001296: 37,3727 54317 TS DSPTAB +4
046393,001297: 37,3730 54321 TS DSPTAB +6
046394,001298: 37,3731 36311 CAF THREE
046395,001299: 37,3732 54307 TS NOUT
046396,001300: 37,3733 03665 TC DSKYWAIT
046397,001301:
046398,001302: 37,3734 55372 NODSPLAY TS SKEEP2 # +0
046399,001303: 37,3735 47750 CS BIT12 # BLANKS
046400,001304: 37,3736 00004 INHINT
046401,001305: 37,3737 03650 TC SBLANKS # PUTS BLANKS IN ALL DISPLAYS
046402,001306:
046403,001307: 37,3740 43632 LITESOUT CS S11CHAN
046404,001308: 37,3741 00006 EXTEND
046405,001309: 37,3742 03011 WAND DSALMOUT # TURN OFF COMPUTER ACTIVITY LIGHT.
046406,001310: 37,3743 05727 TC TASKOVER # END OF DSKYCHK
046407,001311:
End of include-file AGC_BLOCK_TWO_SELF-CHECK.agc. Parent file is MAIN.agc