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