Source Code

These source-code files were transcribed from a printout in Don Eyles's personal collection, scanned by archive.org, and financially sponsored by Peter McDermott. A team of volunteers performed the transcription and proof-reading. The scanned page images are available at the Virtual AGC Project website, as well as higher-quality (but much larger) images at the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating "issues" at the Virtual AGC Project's GitHub Repository.

Notations on the program listing read, in part:

	YUL SYSTEM FOR AGC: NEW PROGRAM SHEPATIN BY EYLES
	DEC 13, 1966

	THIS PROGRAM WAS ASSEMBLED AS A VERSION OF REVISION 37 
        OF PROGRAM SUNBURST BY LEM GROUP
Note that the date is the date of the printout, not the date of the program revision.

044973,000002:                                                                                                  ## Copyright:   Public domain.
044974,000003:                                                                                                  ## Filename:    AGC_BLOCK_TWO_SELF-CHECK.agc
044975,000004:                                                                                                  ## Purpose:     A section of Sunburst revision 37, or Shepatin revision 0.
044976,000005:                                                                                                  ##              It is part of an early development version of the software
044977,000006:                                                                                                  ##              for Apollo Guidance Computer (AGC) on the unmanned Lunar
044978,000007:                                                                                                  ##              Module (LM) flight Apollo 5. Sunburst 37 was the program
044979,000008:                                                                                                  ##              upon which Don Eyles's offline development program Shepatin
044980,000009:                                                                                                  ##              was based; the listing herein transcribed was actually for
044981,000010:                                                                                                  ##              the equivalent revision 0 of Shepatin.
044982,000011:                                                                                                  ##              This file is intended to be a faithful transcription, except
044983,000012:                                                                                                  ##              that the code format has been changed to conform to the
044984,000013:                                                                                                  ##              requirements of the yaYUL assembler rather than the
044985,000014:                                                                                                  ##              original YUL assembler.
044986,000015:                                                                                                  ## Reference:   pp. 1014-1037
044987,000016:                                                                                                  ## Assembler:   yaYUL
044988,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
044989,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
044990,000019:                                                                                                  ## Mod history: 2017-05-24 MAS  Created from Sunburst 120.
044991,000020:                                                                                                  ##              2017-06-04 MAS  Transcribed.
044992,000021:                                                                                                  ##              2017-06-08 HG   Add missing EXTEND instruction
044993,000022:                                                                                                  ##              2017-06-23 RSB  Proofed comment text with
044994,000023:                                                                                                  ##                              octopus/ProoferComments.
044995,000024: 

Page 1014

044997,000026: 37,2000                                           BANK     37                                    
044998,000027: 
044999,000028: 37,2000     7755               SBIT1              EQUALS   BIT1                                  
045000,000029: 37,2000     7754               SBIT2              EQUALS   BIT2                                  
045001,000030: 37,2000     7753               SBIT3              EQUALS   BIT3                                  
045002,000031: 37,2000     7752               SBIT4              EQUALS   BIT4                                  
045003,000032: 37,2000     7751               SBIT5              EQUALS   BIT5                                  
045004,000033: 37,2000     7750               SBIT6              EQUALS   BIT6                                  
045005,000034: 37,2000     7747               SBIT7              EQUALS   BIT7                                  
045006,000035: 37,2000     7746               SBIT8              EQUALS   BIT8                                  
045007,000036: 37,2000     7745               SBIT9              EQUALS   BIT9                                  
045008,000037: 37,2000     7744               SBIT10             EQUALS   BIT10                                 
045009,000038: 37,2000     7743               SBIT11             EQUALS   BIT11                                 
045010,000039: 37,2000     7742               SBIT12             EQUALS   BIT12                                 
045011,000040: 
045012,000041: 37,2000     7741               SBIT13             EQUALS   BIT13                                 
045013,000042: 37,2000     7740               SBIT14             EQUALS   BIT14                                 
045014,000043: 37,2000     7737               SBIT15             EQUALS   BIT15                                 
045015,000044: 
045016,000045: 37,2000     7761               S+ZERO             EQUALS   ZERO                                  
045017,000046: 37,2000     7755               S+1                EQUALS   BIT1                                  
045018,000047: 37,2000     7754               S+2                EQUALS   BIT2                                  
045019,000048: 37,2000     6301               S+3                EQUALS   THREE                                 
045020,000049: 37,2000     7753               S+4                EQUALS   FOUR                                  
045021,000050: 37,2000     7760               S+5                EQUALS   FIVE                                  
045022,000051: 
045023,000052: 37,2000     6276               S+6                EQUALS   SIX                                   
045024,000053: 37,2000     7757               S+7                EQUALS   SEVEN                                 
045025,000054: 37,2000     4553               S8BITS             EQUALS   LOW8                                  #  00377
045026,000055: 37,2000           00050        CNTRCON            OCTAL    00050                                 #  USED IN CNTRCHK
045027,000056: 37,2001           00061        ERASCON1           OCTAL    00061                                 #  USED IN ERASCHK
045028,000057: 37,2002           01374        ERASCON2           OCTAL    01374                                 #  USED IN ERASCHK
045029,000058: 37,2003           01400        ERASCON6           OCTAL    01400                                 #  USED IN ERASCHK
045030,000059: 37,2004           01461        ERASCON3           OCTAL    01461                                 #  USED IN ERASCHK
045031,000060: 37,2005           01774        ERASCON4           OCTAL    01774                                 #  USED IN ERASCHK
045032,000061: 37,2006     5356               S10BITS            EQUALS   LOW10                                 #  01777, USED IN ERASCHK
045033,000062: 37,2006     5652               SBNK03             EQUALS   PRIO6                                 #  06000, USED IN ROPECHK
045034,000063: 37,2006           00060        SIXTY              OCTAL    00060                                 
045035,000064: 
045036,000065: 37,2007           60017        SUPRCON            OCTAL    60017                                 #  USED IN ROPECHK
045037,000066: 37,2010           17777        S13BITS            OCTAL    17777                                 
045038,000067: 37,2011           25252        CONC+S1            OCTAL    25252                                 #  USED IN CYCLSHFT
045039,000068: 37,2012           37737        OVCON              OCTAL    37737                                 #  USED IN RUPTCHK
045040,000069: 37,2013           37776        DVCON              OCTAL    37776                                 
045041,000070: 37,2014           52400        CONC+S2            OCTAL    52400                                 #  USED IN CYCLSHFT
045042,000071: 37,2015           76777        ERASCON5           OCTAL    76777                                 
045043,000072: 37,2016           77770        S-7                OCTAL    77770                                 
045044,000073: 37,2017     6146               S-4                EQUALS   NEG4                                  
045045,000074: 37,2017     5357               S-3                EQUALS   NEG3                                  
045046,000075: 
045047,000076: 37,2017     5355               S-2                EQUALS   NEG2                                  
045048,000077: 37,2017     7763               S-1                EQUALS   NEGONE                                
045049,000078: 37,2017     7762               S-ZERO             EQUALS   NEG0                                  
045050,000079: 
045051,000080: 37,2017  E3,1400                                  EBANK=   LST1                                  

Page 1015

045053,000082: 37,2017           01371        ADRS1              ADRES    SKEEP1                                
045054,000083: 37,2020           00021        SRADRS             ADRES    SR                                    
045055,000084: 37,2021           02102        SELFADRS           ADRES    SELFCHK                               #  SELFCHK RETURN ADDRESS. SHOULD BE PUT
045056,000085:                                                                                                  #  IN SELFRET WHEN GOING FROM SELFCHK TO
045057,000086:                                                                                                  #  SHOWSUM AND PUT IN SKEEP1 WHEN GOING
045058,000087:                                                                                                  #  FROM SHOWSUM TO SELF-CHECK.
045059,000088: 
045060,000089: 37,2022           30002        ERRORS             CA       Q                                     
045061,000090: 37,2023           55361                           TS       SFAIL                                 #  SAVE Q FOR FAILURE LOCATION
045062,000091: 37,2024           25362                           INCR     ERCOUNT                               #  KEEP TRACK OF NUMBER OF MALFUNCTIONS.
045063,000092: 37,2025           04744                           TC       ALARM                                 
045064,000093: 37,2026           01102                           OCT      01102                                 #  SELF-CHECK MALFUNCTION INDICATOR
045065,000094: 37,2027           11357                           CCS      SMODE                                 
045066,000095: 37,2030           37761                           CA       S+ZERO                                
045067,000096: 37,2031           55357                           TS       SMODE                                 
045068,000097: 37,2032           02102                           TC       SELFCHK                               #  GO TO IDLE LOOP
045069,000098: 37,2033           01361                           TC       SFAIL                                 #  CONTINUE WITH SELF-CHECK
045070,000099: 
045071,000100: 37,2034           40000        +0CHK              CS       A                                     
045072,000101: 
045073,000102: 37,2035           10000        -0CHK              CCS      A                                     
045074,000103: 37,2036           12022                           TCF      ERRORS                                
045075,000104: 37,2037           12022                           TCF      ERRORS                                
045076,000105: 37,2040           12022                           TCF      ERRORS                                
045077,000106: 37,2041           00002                           TC       Q                                     
045078,000107: 
045079,000108: 37,2042           40000        +1CHK              CS       A                                     
045080,000109: 37,2043           10000        -1CHK              CCS      A                                     
045081,000110: 37,2044           12022                           TCF      ERRORS                                
045082,000111: 37,2045           12022                           TCF      ERRORS                                
045083,000112: 
045084,000113: 37,2046           10000                           CCS      A                                     
045085,000114: 37,2047           12022                           TCF      ERRORS                                
045086,000115: 37,2050           00002                           TC       Q                                     
045087,000116: 
045088,000117: 37,2051           00006        SMODECHK           EXTEND                                         
045089,000118: 37,2052           23371                           QXCH     SKEEP1                                
045090,000119: 37,2053           05623                           TC       CHECKNJ                               #  CHECK FOR NEW JOB
045091,000120: 37,2054           11357                           CCS      SMODE                                 
045092,000121: 37,2055           02062                           TC       SOPTIONS                              
045093,000122: 37,2056           02053                           TC       SMODECHK   +2                         #  TO BACKUP IDLE LOOP
045094,000123: 37,2057           02062                           TC       SOPTIONS                              
045095,000124: 37,2060           25366                           INCR     SCOUNT                                
045096,000125: 
045097,000126: 37,2061           01371                           TC       SKEEP1                                #  CONTINUE WITH SELF-CHECK
045098,000127: 
045099,000128: 37,2062           62016        SOPTIONS           AD       S-7                                   
045100,000129: 37,2063           00006                           EXTEND                                         
045101,000130: 37,2064           62066                           BZMF     +2                                    #  FOR OPTIONS BELOW NINE.
045102,000131: 37,2065           03547        BNKOPTN            TC       SBNKOPTN                              #  FOR OPTIONS ABOVE EIGHT
045103,000132: 37,2066           25366                           INCR     SCOUNT                                #  FOR OPTIONS BELOW NINE.
045104,000133: 37,2067           67757                           AD       S+7                                   
045105,000134: 

Page 1016

045107,000136: 37,2070           50000                           INDEX    A                                     
045108,000137: 37,2071           02072                           TC       SOPTION1                              
045109,000138: 
045110,000139: 37,2072           02103        SOPTION1           TC       TC+TCF                                
045111,000140: 37,2073           02767        SOPTION2           TC       IN-OUT1                               
045112,000141: 37,2074           03043        SOPTION3           TC       COUNTCHK                              
045113,000142: 37,2075           03137        SOPTION4           TC       ERASCHK                               
045114,000143: 37,2076           03313        SOPTION5           TC       ROPECHK                               
045115,000144: 37,2077           01371        SOPTION6           TC       SKEEP1                                
045116,000145: 37,2100           01371        SOPTION7           TC       SKEEP1                                
045117,000146: 37,2101           01371        SOPTON10           TC       SKEEP1                                #  CONTINUE WITH SELF-CHECK
045118,000147: 
045119,000148: 37,2102           02051        SELFCHK            TC       SMODECHK                              #  ** CHARLEY, COME IN HERE
045120,000149: 
045121,000150:                                                                                                  #  TC+TCF CHECKS ALL OF THE PULSES OF TCF AND ALL OF THE PULSES OF TC
045122,000151:                                                                                                  #  EXCEPT ABILITY TO TC TO ERASABLE.
045123,000152:                                                                                                  #  ALSO FIRST TIME CS FIXED MEMORY IS USED
045124,000153: 37,2103           02105        TC+TCF             TC       +2                                    
045125,000154: 37,2104           02112                           TC       CCSCHK                                
045126,000155: 37,2105           12107                           TCF      +2                                    #  $ TCF FIXED MEMORY
045127,000156: 37,2106           02022                           TC       ERRORS                                
045128,000157: 37,2107           46301                           CS       S+3                                   #  $ CS FIXED MEMORY
045129,000158: 37,2110           00002                           TC       Q                                     #  $
045130,000159: 37,2111           02022                           TC       ERRORS                                
045131,000160: 
045132,000161:                                                                                                  #  CCSCHK CHECKS ALL OF CCS EXCEPT RB WG.
045133,000162: 
045134,000163:                                                                                                  #  ALSO CHECKS TS ERASABLE, CS SC, AND CS ERASABLE MEMORY.
045135,000164: 37,2112           10000        CCSCHK             CCS      A                                     #  $ CCS SC, C(A) = -3
045136,000165: 37,2113           02022                           TC       ERRORS                                
045137,000166: 37,2114           02022                           TC       ERRORS                                
045138,000167: 37,2115           02117                           TC       +2                                    
045139,000168: 37,2116           02022                           TC       ERRORS                                
045140,000169: 37,2117           10000                           CCS      A                                     #  $ C(A) = +2, RESULT OF CCS -NUMBER
045141,000170: 37,2120           02124                           TC       +4                                    
045142,000171: 37,2121           02022                           TC       ERRORS                                
045143,000172: 37,2122           02022                           TC       ERRORS                                
045144,000173: 
045145,000174: 37,2123           02022                           TC       ERRORS                                
045146,000175: 37,2124           55371                           TS       SKEEP1                                #  $ TS ERASABLE
045147,000176: 37,2125           11371                           CCS      SKEEP1                                #  $ CCS ERASABLE, C(A) = +1, RESULT OF
045148,000177: 37,2126           02132                           TC       +4                                    #  CCS +NUMBER
045149,000178: 37,2127           02022                           TC       ERRORS                                
045150,000179: 37,2130           02022                           TC       ERRORS                                
045151,000180: 37,2131           02022                           TC       ERRORS                                
045152,000181: 37,2132           10000                           CCS      A                                     #  $ C(A) = +0, RESULT OF CCS +1, CHECKS CI
045153,000182: 37,2133           02022                           TC       ERRORS                                
045154,000183: 37,2134           02137                           TC       +3                                    
045155,000184: 37,2135           02022                           TC       ERRORS                                
045156,000185: 37,2136           02022                           TC       ERRORS                                
045157,000186: 
045158,000187: 37,2137           40000                           CS       A                                     #  $ CS SC
045159,000188: 37,2140           10000                           CCS      A                                     #  $ C(A) = -0, RESULT OF CCS +0
045160,000189: 37,2141           02022                           TC       ERRORS                                

Page 1017

045162,000191: 37,2142           02022                           TC       ERRORS                                
045163,000192: 37,2143           02022                           TC       ERRORS                                
045164,000193: 37,2144           10000                           CCS      A                                     #  $ RESULT OF CCS -0
045165,000194: 37,2145           02022                           TC       ERRORS                                
045166,000195: 37,2146           02151                           TC       +3                                    
045167,000196: 37,2147           02022                           TC       ERRORS                                
045168,000197: 37,2150           02022                           TC       ERRORS                                
045169,000198: 37,2151           41371                           CS       SKEEP1                                #  $ CS ERASABLE. ALSO CHECKS BACK INTO
045170,000199: 
045171,000200: 37,2152           02043                           TC       -1CHK                                 #  ERASABLE SEQUENCE.
045172,000201: 
045173,000202:                                                                                                  #  BZMFCHK CHECKS ALL PULSES OF BZMF.
045174,000203:                                                                                                  #  ALSO CHECKS CA FIXED MEMORY.
045175,000204: 37,2153           37745        BZMFCHK            CAF      SBIT9                                 #  $ CA FIXED MEMORY
045176,000205: 37,2154           00006                           EXTEND                                         
045177,000206: 37,2155           62176                           BZMF     ERRBZMF                               
045178,000207: 37,2156           40000                           CS       A                                     
045179,000208: 37,2157           00006                           EXTEND                                         
045180,000209: 37,2160           62162                           BZMF     +2                                    #  $
045181,000210: 
045182,000211: 37,2161           02022                           TC       ERRORS                                
045183,000212: 37,2162           33455                           CA       S+MAX                                 
045184,000213: 37,2163           67755                           AD       S+1                                   
045185,000214: 37,2164           00006                           EXTEND                                         
045186,000215: 37,2165           62177                           BZMF     ERRBZMF2                              #  $ + OVERFLOW, CHECK 01-0000
045187,000216: 37,2166           37761                           CA       S+ZERO                                
045188,000217: 37,2167           00006                           EXTEND                                         
045189,000218: 37,2170           62172                           BZMF     +2                                    #  $
045190,000219: 37,2171           02022                           TC       ERRORS                                
045191,000220: 37,2172           40000                           CS       A                                     
045192,000221: 37,2173           00006                           EXTEND                                         
045193,000222: 37,2174           62200                           BZMF     +4                                    #  $
045194,000223: 
045195,000224: 37,2175           02022                           TC       ERRORS                                
045196,000225: 37,2176           02022        ERRBZMF            TC       ERRORS                                #  FROM BZMF WITH +NON-ZERO
045197,000226: 37,2177           02022        ERRBZMF2           TC       ERRORS                                #  OVERFLOW WITH +0
045198,000227: 
045199,000228:                                                                                                  #  RESTORE1 AND 2 CHECKS INSTRUCTIONS (WITH STAR) ABILITY TO READ BACK INTO
045200,000229:                                                                                                  #  ERASABLE MEMORY. NOT NORMALLY INTERESTED IN CONTENTS OF A REGISTER.
045201,000230:                                                                                                  #  FIRST TIME MANY INSTRUCTIONS ARE USED.
045202,000231:                                                                                                  #  RESTORE1 ALSO CHECKS INDEX (WITHOUT EXTRACODE) ERASABLE, CA ERASABLE,
045203,000232:                                                                                                  #  AND MASK ERASABLE.
045204,000233: 37,2200           32020        RESTORE1           CAF      SRADRS                                #  ADDRESS OF SR
045205,000234: 
045206,000235: 37,2201           55377                           TS       SKEEP7                                
045207,000236: 37,2202           34553                           CA       S8BITS                                #  00377
045208,000237: 37,2203           51377                           NDX      SKEEP7                                #  $ INDEX ERASABLE                       *
045209,000238: 37,2204           54000                           TS       0000                                  #  TS SR, C(SR) = 00177
045210,000239: 37,2205           10021                           CCS      SR                                    #  C(SR) = 00077                          *
045211,000240: 37,2206           51377                           NDX      SKEEP7                                #  CHECKS C(SKEEP7) CORRECT
045212,000241: 37,2207           40000                           CS       0000                                  #  C(SR) = 00037
045213,000242: 37,2210           60021                           AD       SR                                    #  C(SR) = 00017                          *
045214,000243: 37,2211           00006                           EXTEND                                         
045215,000244: 37,2212           20021                           MSU      SR                                    #  C(SR) = 00007                          *

Page 1018

045217,000246: 37,2213           00006                           EXTEND                                         
045218,000247: 
045219,000248: 37,2214           60021                           SU       SR                                    #  C(SR) = 00003                          *
045220,000249: 37,2215           30021                           CA       SR                                    #  $ C(SR) = +1, C(A) = +3, CA ERASABLE   *
045221,000250: 37,2216           70021                           MASK     SR                                    #  $ B(SR) = C(SR) = +1, MASK ERASABLE    *
045222,000251: 37,2217           02042                           TC       +1CHK                                 
045223,000252: 37,2220           00006                           EXTEND                                         
045224,000253: 37,2221           70021                           MP       SR                                    
045225,000254: 37,2222           00006                           EXTEND                                         
045226,000255: 37,2223           10021                           DV       SR                                    
045227,000256: 37,2224           30021                           CA       SR                                    #  $ CA ERASABLE
045228,000257: 37,2225           02042                           TC       +1CHK                                 #  MAKES SURE MASK, MP, AND DV DO NOT EDIT.
045229,000258: 
045230,000259:                                                                                                  #  RESTORE2 ALSO CHECKS XCH ERASABLE,INDEX (WITH EXTRACODE) ERASABLE AND
045231,000260: 
045232,000261:                                                                                                  #  FIXED MEMORY, DCS ERASABLE, CA SC, AND DCA ERASABLE.
045233,000262: 37,2226           32017        RESTORE2           CAF      ADRS1                                 #  ADDRESS OF SKEEP1
045234,000263: 37,2227           55376                           TS       SKEEP6                                
045235,000264: 37,2230           37763                           CA       S-1                                   
045236,000265: 37,2231           55371                           TS       SKEEP1                                #  -1
045237,000266: 37,2232           40000                           CS       A                                     
045238,000267: 37,2233           57371                           XCH      SKEEP1                                #  $ XCH ERASABLE, C(SKEEP1) = +1
045239,000268: 37,2234           57372                           XCH      SKEEP2                                #  $ XCH ERASABLE, C(SKEEP2) = -1
045240,000269: 37,2235           00006                           EXTEND                                         
045241,000270: 37,2236           51376                           NDX      SKEEP6                                #  $ NDX ERASABLE                         *
045242,000271: 
045243,000272: 37,2237           30001                           DCA      0000                                  #  DCA ERASABLE                           *
045244,000273: 37,2240           00006                           EXTEND                                         
045245,000274: 37,2241           52017                           NDX      ADRS1                                 #  $ NDX FIXED MEMORY                     *
045246,000275: 37,2242           40001                           DCS      0000                                  #  $ DCS ERASABLE MEMORY                  *
045247,000276: 37,2243           02043                           TC       -1CHK                                 #  MAKES SURE DCS ERASABLE OK
045248,000277: 37,2244           30001                           CA       L                                     #  $ CA SC
045249,000278: 37,2245           02042                           TC       +1CHK                                 
045250,000279: 37,2246           00006                           EXTEND                                         
045251,000280: 37,2247           51376                           NDX      SKEEP6                                #  MAKE SURE C(SKEEP6) IS STILL CORRECT
045252,000281: 37,2250           30001                           DCA      0000                                  #  $ DCA ERASABLE
045253,000282: 37,2251           02042                           TC       +1CHK                                 
045254,000283: 37,2252           30001                           CA       L                                     
045255,000284: 
045256,000285: 37,2253           02043                           TC       -1CHK                                 
045257,000286: 
045258,000287:                                                                                                  #  RESTORE3 CHECKS ABILITY TO RESTORE INSTRUCTIONS BACK INTO ERASABLE
045259,000288:                                                                                                  #  MEMORY. IT IS ONLY NECESSARY TO RESTORE ONE INSTRUCTION BECAUSE THE
045260,000289:                                                                                                  #  G REGISTER DOES NOT CHANGE.
045261,000290:                                                                                                  #  ALSO CHECKS TC TO ERASABLE MEMORY.
045262,000291: 37,2254           37737        RESTORE3           CA       SBIT15                                #  CS
045263,000292: 37,2255           55371                           TS       SKEEP1                                #  40000
045264,000293: 37,2256           37754                           CA       S+2                                   #  TC Q
045265,000294: 37,2257           55372                           TS       SKEEP2                                
045266,000295: 
045267,000296: 37,2260           37755                           CA       S+1                                   #  +1
045268,000297: 37,2261           01371                           TC       SKEEP1                                #  $ TC ERASABLE
045269,000298: 37,2262           02043                           TC       -1CHK                                 #  FIRST TIME BACK FROM ERASABLE.
045270,000299: 37,2263           01371                           TC       SKEEP1                                
045271,000300: 37,2264           02035                           TC       -0CHK                                 #  SECOND TIME BACK FROM ERASABLE.
045272,000301: 

Page 1019

045274,000303:                                                                                                  #  BZFCHK CHECKS ALL PULSES OF BZF.
045275,000304: 37,2265           37760        BZFCHK             CAF      S+5                                   
045276,000305: 37,2266           00006                           EXTEND                                         
045277,000306: 37,2267           12312                           BZF      ERRBZF1                               #  $
045278,000307: 37,2270           40000                           CS       A                                     
045279,000308: 37,2271           00006                           EXTEND                                         
045280,000309: 
045281,000310: 37,2272           12313                           BZF      ERRBZF2                               #  $
045282,000311: 37,2273           33455                           CA       S+MAX                                 
045283,000312: 37,2274           67755                           AD       S+1                                   #  01-00000
045284,000313: 37,2275           00006                           EXTEND                                         
045285,000314: 37,2276           12314                           BZF      ERRBZF3                               #  $
045286,000315: 37,2277           40000                           CS       A                                     
045287,000316: 37,2300           00006                           EXTEND                                         
045288,000317: 37,2301           12315                           BZF      ERRBZF4                               #  $
045289,000318: 37,2302           37761                           CAF      S+ZERO                                
045290,000319: 37,2303           00006                           EXTEND                                         
045291,000320: 37,2304           12306                           BZF      +2                                    #  $
045292,000321: 37,2305           02022                           TC       ERRORS                                
045293,000322: 
045294,000323: 37,2306           40000                           CS       A                                     
045295,000324: 37,2307           00006                           EXTEND                                         
045296,000325: 37,2310           12316                           BZF      +6                                    #  $
045297,000326: 37,2311           02022                           TC       ERRORS                                
045298,000327: 37,2312           02022        ERRBZF1            TC       ERRORS                                #  +NON-ZERO
045299,000328: 37,2313           02022        ERRBZF2            TC       ERRORS                                #  -NON-ZERO
045300,000329: 37,2314           02022        ERRBZF3            TC       ERRORS                                #  01-00000
045301,000330: 37,2315           02022        ERRBZF4            TC       ERRORS                                #  10-37777
045302,000331: 
045303,000332:                                                                                                  #  DXCH+DIM CHECKS ALL PULSES OF DXCH AND DIM.
045304,000333:                                                                                                  #  ALSO CHECKS TS WITH OVERFLOW, TS SC, CA SC, AND AD ERASABLE.
045305,000334: 37,2316           33455        DXCH+DIM           CA       S+MAX                                 
045306,000335: 37,2317           67754                           AD       S+2                                   #  OVERFLOW WITH +1
045307,000336: 37,2320           55371                           TS       SKEEP1                                #  $ TS WITH OVERFLOW, +1
045308,000337: 37,2321           02022                           TC       ERRORS                                
045309,000338: 37,2322           40000                           CS       A                                     
045310,000339: 37,2323           55372                           TS       SKEEP2                                
045311,000340: 37,2324           43455                           CS       S+MAX                                 
045312,000341: 37,2325           54001                           TS       L                                     #  $ TS SC, 40000
045313,000342: 37,2326           40000                           CS       A                                     #  37777
045314,000343: 37,2327           53372                           DXCH     SKEEP1                                #  $ DXCH ERASABLE
045315,000344: 37,2330           02042                           TC       +1CHK                                 
045316,000345: 37,2331           30001                           CA       L                                     #  $ CA SC
045317,000346: 
045318,000347: 37,2332           02043                           TC       -1CHK                                 
045319,000348: 37,2333           00006                           EXTEND                                         
045320,000349: 37,2334           27371                           DIM      SKEEP1                                #  $ DIM ERASABLE, DIM + NUMBER, 37776
045321,000350: 37,2335           00006                           EXTEND                                         
045322,000351: 37,2336           27372                           DIM      SKEEP2                                #  $ DIM - NUMBER, 40001
045323,000352: 37,2337           33455                           CA       S+MAX                                 #  37777
045324,000353: 37,2340           61372                           AD       SKEEP2                                #  $ AD ERASABLE, +1
045325,000354: 37,2341           02042                           TC       +1CHK                                 
045326,000355: 37,2342           43455                           CS       S+MAX                                 #  40000

Page 1020

045328,000357: 37,2343           61371                           AD       SKEEP1                                #  -1
045329,000358: 37,2344           02043                           TC       -1CHK                                 
045330,000359: 
045331,000360: 37,2345           37755                           CA       S+1                                   #  +1
045332,000361: 37,2346           00006                           EXTEND                                         
045333,000362: 37,2347           26000                           DIM      A                                     #  $ DIM SC, DIM +1
045334,000363: 37,2350           00006                           EXTEND                                         
045335,000364: 37,2351           26000                           DIM      A                                     #  $ DIM -0
045336,000365: 37,2352           02035                           TC       -0CHK                                 
045337,000366: 37,2353           00006                           EXTEND                                         
045338,000367: 37,2354           26000                           DIM      A                                     #  $ DIM +0
045339,000368: 37,2355           02034                           TC       +0CHK                                 
045340,000369: 
045341,000370:                                                                                                  #  DAS+INCR CHECKS ALL PULSES OF DAS AND INCR.
045342,000371:                                                                                                  #  ALSO CHECKS DCA FIXED, LXCH SC, DCA ERASABLE, AD ERASABLE, DCS FIXED,
045343,000372:                                                                                                  #  DCS ERASABLE, AND XCH SC.
045344,000373: 37,2356           37763        DAS+INCR           CA       S-1                                   
045345,000374: 37,2357           54001        DAS++              TS       L                                     #  -1
045346,000375: 37,2360           37754                           CA       S+2                                   #  +2
045347,000376: 37,2361           20001                           DAS      A                                     #  $ DAS SC, C(A) = +4 AND C(L) = -2
045348,000377: 37,2362           65357                           AD       S-3                                   #  $ AD FIXED MEMORY
045349,000378: 37,2363           02042                           TC       +1CHK                                 
045350,000379: 37,2364           37755                           CA       S+1                                   
045351,000380: 37,2365           60001                           AD       L                                     #  $ AD SC, -1
045352,000381: 37,2366           02043                           TC       -1CHK                                 
045353,000382:                                                                                                  #  DAS WITH INTERFLOW IN LOW ORDER AND NET OVERFLOW
045354,000383: 
045355,000384: 37,2367           00006        DAS+-              EXTEND                                         
045356,000385: 37,2370           33456                           DCA      S+MAX                                 #  $DCA FIXED MEMORY
045357,000386: 37,2371           53374                           DXCH     SKEEP3                                #  37777, 40000
045358,000387: 37,2372           35355                           CA       S-2                                   
045359,000388: 37,2373           54001                           TS       L                                     
045360,000389: 37,2374           36301                           CA       S+3                                   #  C(A) = +3, C(L) = -2
045361,000390: 37,2375           21374                           DAS      SKEEP3                                #  $ DAS ERASABLE
045362,000391: 37,2376           22000                           LXCH     A                                     #  $ LXCH SC
045363,000392: 37,2377           02034                           TC       +0CHK                                 
045364,000393: 37,2400           30001                           CA       L                                     
045365,000394: 
045366,000395: 37,2401           02042                           TC       +1CHK                                 
045367,000396: 37,2402           00006                           EXTEND                                         
045368,000397: 37,2403           31374                           DCA      SKEEP3                                #  $ DCA ERASABLE
045369,000398: 37,2404           22000                           LXCH     A                                     #  C(A) = -1, C(L) = +1
045370,000399: 37,2405           02043                           TC       -1CHK                                 
045371,000400: 37,2406           30001                           CA       L                                     
045372,000401: 37,2407           02042                           TC       +1CHK                                 
045373,000402:                                                                                                  #  INCRCHK CHECKS ALL INCR PULSES EXCEPT WOVR.
045374,000403: 37,2410           25374        INCRCHK            INCR     SKEEP4                                #  $ INCR ERASABLE, -0
045375,000404: 37,2411           61374                           AD       SKEEP4                                #  $ AD ERASABLE
045376,000405: 37,2412           02035                           TC       -0CHK                                 
045377,000406: 37,2413           24000                           INCR     A                                     #  $ INCR SC, +1
045378,000407: 
045379,000408: 37,2414           02042                           TC       +1CHK                                 
045380,000409:                                                                                                  #  DAS WITH OVERFLOW IN LOW ORDER AND NET UNDERFLOW
045381,000410: 37,2415           00006        DAS-+              EXTEND                                         

Page 1021

045383,000412: 37,2416           43456                           DCS      S+MAX                                 #  $ DCS FIXED MEMORY
045384,000413: 37,2417           53372                           DXCH     SKEEP1                                #  40000, 37777
045385,000414: 37,2420           36301                           CA       S+3                                   #  +3
045386,000415: 37,2421           54001                           TS       L                                     
045387,000416: 37,2422           40000                           CS       A                                     #  -3
045388,000417: 37,2423           21372                           DAS      SKEEP1                                #  $
045389,000418: 37,2424           02043                           TC       -1CHK                                 
045390,000419: 37,2425           00006                           EXTEND                                         
045391,000420: 
045392,000421: 37,2426           41372                           DCS      SKEEP1                                #  $ DCS ERASABLE (+1, -2)
045393,000422: 37,2427           56001                           XCH      L                                     #  $ XCH SC (-2, +1)
045394,000423: 37,2430           67755                           AD       S+1                                   
045395,000424: 37,2431           02043                           TC       -1CHK                                 
045396,000425: 37,2432           30001                           CA       L                                     
045397,000426: 37,2433           02042                           TC       +1CHK                                 
045398,000427: 
045399,000428:                                                                                                  #  MPCHK CHECKS ALL PULSES OF MP, AUG, AND ADS.
045400,000429: 37,2434           37755        MPCHK              CA       S+1                                   
045401,000430: 37,2435           00006                           EXTEND                                         
045402,000431: 
045403,000432: 37,2436           24000                           AUG      A                                     #  $ AUG SC, +2
045404,000433: 37,2437           55375                           TS       SKEEP5                                #  +2
045405,000434: 37,2440           40000                           CS       A                                     
045406,000435: 37,2441           54002                           TS       Q                                     #  -2
045407,000436: 37,2442           40000                           CS       A                                     
045408,000437: 37,2443           00006        MP++               EXTEND                                         
045409,000438: 37,2444           73455                           MP       S+MAX                                 #  $ MP FIXED MEMORY, +1, 37776
045410,000439: 37,2445           60001                           AD       L                                     #  37777
045411,000440: 37,2446           00006        MP+-               EXTEND                                         
045412,000441: 37,2447           70002                           MP       Q                                     #  $ MP SC, -1, 40001
045413,000442: 37,2450           26001                           ADS      L                                     #  $ ADS SC, 40000
045414,000443: 37,2451           62013                           AD       DVCON                                 
045415,000444: 
045416,000445: 37,2452           02043                           TC       -1CHK                                 
045417,000446: 37,2453           30001                           CA       L                                     
045418,000447: 37,2454           00006        MP-+               EXTEND                                         
045419,000448: 37,2455           71375                           MP       SKEEP5                                #  $ MP ERASABLE, -1, 40001
045420,000449: 37,2456           55376                           TS       SKEEP6                                
045421,000450: 37,2457           00006                           EXTEND                                         
045422,000451: 37,2460           25376                           AUG      SKEEP6                                #  $ AUG ERASABLE, -2
045423,000452: 37,2461           60001                           AD       L                                     #  40000
045424,000453: 37,2462           00006        MP--               EXTEND                                         
045425,000454: 37,2463           71376                           MP       SKEEP6                                #  $ +1, 37776
045426,000455: 
045427,000456: 37,2464           02042                           TC       +1CHK                                 
045428,000457: 37,2465           40001                           CS       L                                     #  40001
045429,000458: 37,2466           62013                           AD       DVCON                                 
045430,000459: 37,2467           02035                           TC       -0CHK                                 
045431,000460: 37,2470           37755                           CA       S+1                                   
045432,000461: 37,2471           27376                           ADS      SKEEP6                                #  $ ADS ERASABLE, +1
045433,000462: 37,2472           02043                           TC       -1CHK                                 
045434,000463: 37,2473           31376                           CA       SKEEP6                                
045435,000464: 37,2474           02043                           TC       -1CHK                                 
045436,000465: 

Page 1022

045438,000467:                                                                                                  #  DVCH AND DVQXCHK CHECK ALL OF PULSES OF DV AND QXCH.
045439,000468: 
045440,000469:                                                                                                  #  ALSO CHECKS TS WITH UNDERFLOW
045441,000470: 37,2475           37740        DVCHK              CA       SBIT14                                #  20000
045442,000471: 37,2476           55371                           TS       SKEEP1                                
045443,000472: 37,2477           60000                           AD       A                                     #  OVERFLOW
045444,000473: 37,2500           67755                           AD       S+1                                   
045445,000474: 37,2501           54001                           TS       L                                     #  $ TS SC WITH OVERFLOW, +1
045446,000475: 37,2502           02022                           TC       ERRORS                                
045447,000476: 37,2503           40000                           CS       A                                     
045448,000477: 37,2504           55372                           TS       SKEEP2                                #  -1
045449,000478: 37,2505           37762                           CA       S-ZERO                                #  -0
045450,000479: 37,2506           23371                           LXCH     SKEEP1                                #  $ LXCH ERASABLE
045451,000480: 37,2507           00006        DV++               EXTEND                                         
045452,000481: 
045453,000482: 37,2510           11371                           DV       SKEEP1                                #  $ DV ERASABLE, C(A) = 20000, C(L) = +0
045454,000483: 37,2511           40000                           CS       A                                     
045455,000484: 37,2512           22000                           LXCH     A                                     
045456,000485: 37,2513           02034                           TC       +0CHK                                 
045457,000486: 37,2514           00006        DV--               EXTEND                                         
045458,000487: 37,2515           11372                           DV       SKEEP2                                #  $ 20000, +0
045459,000488: 37,2516           55374                           TS       SKEEP4                                #  20000
045460,000489: 37,2517           40000                           CS       A                                     
045461,000490: 37,2520           55373                           TS       SKEEP3                                #  -(20000)
045462,000491: 37,2521           67740                           AD       SBIT14                                
045463,000492: 
045464,000493: 37,2522           02035                           TC       -0CHK                                 
045465,000494: 37,2523           30001                           CA       L                                     
045466,000495: 37,2524           02035                           TC       -0CHK                                 
045467,000496: 37,2525           33455        DV+-               CA       S+MAX                                 
045468,000497: 37,2526           54001                           TS       L                                     
045469,000498: 37,2527           32010                           CA       S13BITS                               
045470,000499: 37,2530           00006                           EXTEND                                         
045471,000500: 37,2531           11373                           DV       SKEEP3                                #  $ -(37777), +(17777)
045472,000501: 37,2532           56001                           XCH      L                                     
045473,000502: 37,2533           40000                           CS       A                                     
045474,000503: 37,2534           00006        DV-+               EXTEND                                         
045475,000504: 37,2535           11374                           DV       SKEEP4                                #  $ -(37777), -(17777)
045476,000505: 
045477,000506: 37,2536           62013                           AD       DVCON                                 
045478,000507: 37,2537           02043                           TC       -1CHK                                 
045479,000508: 37,2540           33455                           CA       S+MAX                                 
045480,000509: 37,2541           56001                           XCH      L                                     #  ALSO PUTS 37777 IN L FOR DV-+,-
045481,000510: 37,2542           67740                           AD       SBIT14                                
045482,000511: 37,2543           02042                           TC       +1CHK                                 
045483,000512: 37,2544           42010        DV-+,+             CS       S13BITS                               #  -(17777)
045484,000513: 37,2545           00006                           EXTEND                                         
045485,000514: 37,2546           11374                           DV       SKEEP4                                
045486,000515: 37,2547           60001                           AD       L                                     #  -(37775)
045487,000516: 
045488,000517: 37,2550           62013                           AD       DVCON                                 
045489,000518: 37,2551           02042                           TC       +1CHK                                 
045490,000519: 37,2552           56001                           XCH      L                                     
045491,000520: 37,2553           02043                           TC       -1CHK                                 #  ALSO PUTS +0 IN L FOR DVQXCH
045492,000521: 37,2554           42013        DVQXCHK            CS       DVCON                                 

Page 1023

045494,000523: 37,2555           54002                           TS       Q                                     #  40001
045495,000524: 37,2556           40000                           CS       A                                     
045496,000525: 37,2557           00006                           EXTEND                                         
045497,000526: 37,2560           10002                           DV       Q                                     #  $ DV SC, -(37777), +(37776)
045498,000527: 37,2561           00006                           EXTEND                                         
045499,000528: 37,2562           22001                           QXCH     L                                     #  $ QXCH SC, C(L) = 40001, C(Q) = 37776
045500,000529: 
045501,000530: 37,2563           60002                           AD       Q                                     
045502,000531: 37,2564           02043                           TC       -1CHK                                 
045503,000532: 37,2565           30001                           CA       L                                     
045504,000533: 37,2566           63455                           AD       S+MAX                                 
045505,000534: 37,2567           02042                           TC       +1CHK                                 
045506,000535: 37,2570           00006                           EXTEND                                         
045507,000536: 37,2571           23371                           QXCH     SKEEP1                                #  $ QXCH ERAS., C(Q) = +1, C(SKEEP1) = +3
045508,000537: 37,2572           30002                           CA       Q                                     
045509,000538: 37,2573           02042                           TC       +1CHK                                 
045510,000539: 37,2574           41371                           CS       SKEEP1                                #  -3
045511,000540: 37,2575           67754                           AD       S+2                                   
045512,000541: 37,2576           02043                           TC       -1CHK                                 
045513,000542: 
045514,000543: 
045515,000544:                                                                                                  #  MSUCHK CHECKS ALL PULSES OF MSU EXCEPT RB WG.
045516,000545: 37,2577           37761        MSUCHK             CA       S+ZERO                                
045517,000546: 37,2600           55371                           TS       SKEEP1                                #  +0
045518,000547: 37,2601           40000                           CS       A                                     
045519,000548: 37,2602           55372                           TS       SKEEP2                                #  -0
045520,000549: 37,2603           00006                           EXTEND                                         
045521,000550: 37,2604           20000                           MSU      A                                     #  $ MSU SC, +0
045522,000551: 37,2605           02034                           TC       +0CHK                                 
045523,000552: 37,2606           00006                           EXTEND                                         
045524,000553: 
045525,000554: 37,2607           21372                           MSU      SKEEP2                                #  $ MSU ERASABLE, +1
045526,000555: 37,2610           02042                           TC       +1CHK                                 
045527,000556: 37,2611           00006                           EXTEND                                         
045528,000557: 37,2612           33456                           DCA      S+MAX                                 
045529,000558: 37,2613           00006                           EXTEND                                         
045530,000559: 37,2614           20001                           MSU      L                                     #  $ CHECKS RUS WA, ALSO -1 FROM NEG. NO.
045531,000560: 37,2615           54000                           TS       A                                     
045532,000561: 37,2616           02620                           TC       +2                                    
045533,000562: 37,2617           02022                           TC       ERRORS                                
045534,000563: 37,2620           02043                           TC       -1CHK                                 
045535,000564: 
045536,000565:                                                                                                  #  MASKCHK FINISHES CHECKING MASK INSTRUCTION.
045537,000566: 
045538,000567: 37,2621           37757        MASKCHK            CA       S+7                                   
045539,000568: 37,2622           54001                           TS       L                                     
045540,000569: 37,2623           72016                           MASK     S-7                                   #  $ MASK FIXED MEMORY
045541,000570: 37,2624           02034                           TC       +0CHK                                 
045542,000571: 37,2625           37755                           CA       S+1                                   
045543,000572: 37,2626           70001                           MASK     L                                     #  $ MASK SC
045544,000573: 37,2627           02042                           TC       +1CHK                                 
045545,000574: 
045546,000575:                                                                                                  #  NDX+SU FINISHES CHECKING BOTH INDEX INSTRUCTIONS. ALSO CHECKS ALL OF SU
045547,000576:                                                                                                  #  EXCEPT RB WG.

Page 1024

045549,000578: 37,2630           37755        NDX+SU             CA       S+1                                   
045550,000579: 37,2631           54001                           TS       L                                     
045551,000580: 
045552,000581: 37,2632           55371                           TS       SKEEP1                                
045553,000582: 37,2633           50000                           NDX      A                                     #  $ NDX SC
045554,000583: 37,2634           60000                           AD       0000                                  #  AD L, +2
045555,000584: 37,2635           00006                           EXTEND                                         
045556,000585: 37,2636           61371                           SU       SKEEP1                                #  $ SU ERASABLE
045557,000586: 37,2637           02042                           TC       +1CHK                                 
045558,000587: 37,2640           00006                           EXTEND                                         
045559,000588: 37,2641           50001                           NDX      L                                     #  $ NDX SC
045560,000589: 37,2642           60000                           SU       0000                                  #  $ SU SC, SU L
045561,000590: 37,2643           02043                           TC       -1CHK                                 
045562,000591: 
045563,000592:                                                                                                  #  D--SC CHECKS DCS SC, DXCH SC, AND DCA SC.
045564,000593: 37,2644           37754        D--SC              CA       S+2                                   
045565,000594: 37,2645           54001                           TS       L                                     #  +2
045566,000595: 37,2646           37755                           CA       S+1                                   
045567,000596: 37,2647           00006                           EXTEND                                         
045568,000597: 37,2650           40001                           DCS      A                                     #  $ DCS SC, C(L) = -2
045569,000598: 37,2651           02043                           TC       -1CHK                                 
045570,000599:                                                                                                  #  AFTER DXCH C(A) = B(Q) = +3, C(L) = B(A) = +0, C(Q) = B(L) = -1.
045571,000600: 37,2652           52002                           DXCH     L                                     #  $ DXCH SC
045572,000601: 37,2653           55373                           TS       SKEEP3                                
045573,000602: 37,2654           60002                           AD       Q                                     
045574,000603: 37,2655           02042                           TC       +1CHK                                 
045575,000604: 
045576,000605: 37,2656           30001                           CA       L                                     
045577,000606: 37,2657           02034                           TC       +0CHK                                 
045578,000607: 37,2660           37763                           CA       S-1                                   
045579,000608: 37,2661           54002                           TS       Q                                     
045580,000609: 37,2662           40000                           CS       A                                     
045581,000610: 37,2663           00006                           EXTEND                                         
045582,000611:                                                                                                  #  AFTER DCA C(A) = C(L) = C(Q) = B(Q) = -1.
045583,000612: 37,2664           30002                           DCA      L                                     #  $ DCA SC
045584,000613: 37,2665           60002                           AD       Q                                     
045585,000614: 37,2666           61373                           AD       SKEEP3                                
045586,000615: 
045587,000616: 37,2667           02042                           TC       +1CHK                                 
045588,000617: 37,2670           30001                           CA       L                                     
045589,000618: 37,2671           02043                           TC       -1CHK                                 
045590,000619: 
045591,000620:                                                                                                  #  D--LCHK CHECKS THAT OVERFLOW IS LOST IN PROCESS OF GOING THROUGH L REG.
045592,000621:                                                                                                  #  ALSO CHECKS THAT Q WILL HOLD 16 BITS
045593,000622: 37,2672           35355        D--LCHK            CA       S-2                                   
045594,000623: 37,2673           54002                           TS       Q                                     
045595,000624: 37,2674           33456                           CA       S-MAX                                 
045596,000625: 37,2675           26002                           ADS      Q                                     
045597,000626: 37,2676           40002                           CS       Q                                     
045598,000627: 37,2677           54000                           TS       A                                     
045599,000628: 
045600,000629: 37,2700           02022                           TC       ERRORS                                
045601,000630: 37,2701           00006                           EXTEND                                         
045602,000631: 37,2702           30002                           DCA      L                                     

Page 1025

045604,000633: 37,2703           54000                           TS       A                                     
045605,000634: 37,2704           02706                           TC       +2                                    
045606,000635: 37,2705           02022                           TC       ERRORS                                
045607,000636: 37,2706           02043                           TC       -1CHK                                 
045608,000637: 
045609,000638:                                                                                                  #  CHECKS OVERFLOW, UNDERFLOW,END-AROUND-CARRY, AND SIGN CHANGE OF ADDER.
045610,000639:                                                                                                  #  ALSO CHECKS ADS SC WITH OVERFLOW AND TS A WITH UNDERFLOW
045611,000640: 37,2707           37740        ADDRCHK            CA       SBIT14                                #  20000
045612,000641: 
045613,000642: 37,2710           54002                           TS       Q                                     
045614,000643: 37,2711           26002                           ADS      Q                                     #  $ ADS SC, OVERFLOW
045615,000644: 37,2712           26002                           ADS      Q                                     #  UNDERFLOW
045616,000645: 37,2713           54000                           TS       A                                     #  $ TS SC WITH UNDERFLOW
045617,000646: 37,2714           02022                           TC       ERRORS                                
045618,000647: 37,2715           26002                           ADS      Q                                     
045619,000648: 37,2716           02042                           TC       +1CHK                                 
045620,000649: 
045621,000650:                                                                                                  #  RUPTCHK CHECKS THAT INTERRUPT DOES NOT OCCUR WHILE OVERFLOW OR UNDERFLOW
045622,000651:                                                                                                  #  IS IN THE A REGISTER. ALSO CHECKS THAT INHINT RELINT WORK PROPERLY.
045623,000652: 
045624,000653: 37,2717           00004        RUPTCHK            INHINT                                         
045625,000654: 37,2720           37761                           CA       S+ZERO                                
045626,000655: 37,2721           54015                           TS       ZRUPT                                 
045627,000656: 37,2722           00003                           RELINT                                         
045628,000657: 37,2723           60027                           AD       TIME4                                 
045629,000658: 37,2724           55371                           TS       SKEEP1                                
045630,000659: 37,2725           41371        TENMS              CS       SKEEP1                                
045631,000660: 37,2726           60027                           AD       TIME4                                 #  WAIT FOR NEXT TIME4 INCREMENT
045632,000661: 37,2727           00006                           EXTEND                                         
045633,000662: 37,2730           12725                           BZF      TENMS                                 
045634,000663: 37,2731           00004                           INHINT                                         
045635,000664: 37,2732           30015                           CA       ZRUPT                                 
045636,000665: 
045637,000666: 37,2733           00006                           EXTEND                                         
045638,000667: 37,2734           12736                           BZF      +2                                    #  NO INTERRUPT.
045639,000668: 37,2735           02717                           TC       RUPTCHK                               #  THERE WAS AN INTERRUPT. START AGAIN.
045640,000669: 37,2736           37755                           CAF      S+1                                   #  2 1/2 MS UNTILE NEXT T3 INTERRUPT.
045641,000670: 37,2737           05701                           TC       WAITLIST                              
045642,000671: 37,2740  E3,1400                                  EBANK=   LST1                                  
045643,000672: 37,2740           02763 76063                     2CADR    TSKADRS                               
045644,000673: 
045645,000674: 37,2742           33455                           CA       S+MAX                                 
045646,000675: 37,2743           62012                           AD       OVCON                                 #  CONTROLS TIME SPENT IN OF-UF LOOP
045647,000676: 
045648,000677: 37,2744           00003                           RELINT                                         
045649,000678: 37,2745           40000        WAIT               CS       A                                     
045650,000679: 37,2746           10000                           CCS      A                                     
045651,000680: 37,2747           02753                           TC       INHNTCHK                              
045652,000681: 37,2750           02757        RUPTCON            ADRES    C(BRUPT)                              
045653,000682: 37,2751           67754                           AD       S+2                                   
045654,000683: 37,2752           02745                           TC       WAIT                                  
045655,000684: 37,2753           00004        INHNTCHK           INHINT                                         #  T3 RUPT SHOULD BE WAITING
045656,000685: 37,2754           55375                           TS       SKEEP5                                
045657,000686: 37,2755           02022                           TC       ERRORS                                

Page 1026

045659,000688: 37,2756           00003                           RELINT                                         
045660,000689: 
045661,000690: 37,2757           40015        C(BRUPT)           CS       ZRUPT                                 #  INTERRUPT SHOULD HAPPEN HERE
045662,000691: 37,2760           00006                           EXTEND                                         
045663,000692: 37,2761           12022                           BZF      ERRORS                                #  MAKES SURE AN INTERRUPT DID HAPPEN
045664,000693: 37,2762           02767                           TC       +5                                    #  END OF RUPTCHK
045665,000694: 37,2763           40015        TSKADRS            CS       ZRUPT                                 
045666,000695: 37,2764           62750                           AD       RUPTCON                               
045667,000696: 37,2765           02043                           TC       -1CHK                                 
045668,000697: 37,2766           05745                           TC       TASKOVER                              
045669,000698: 
045670,000699:                                                                                                  #  IN-OUT1 CHECKS ALL PULSES OF WRITE AND READ
045671,000700: 37,2767           37763        IN-OUT1            CA       S-1                                   
045672,000701: 37,2770           00006        WRITECHK           EXTEND                                         
045673,000702: 
045674,000703: 37,2771           01002                           WRITE    Q                                     
045675,000704: 37,2772           22002                           LXCH     Q                                     #  PUT C(Q) IN L
045676,000705: 37,2773           02043                           TC       -1CHK                                 
045677,000706: 37,2774           00006        READCHK            EXTEND                                         #  C(L) = 77776
045678,000707: 37,2775           00001                           READ     L                                     
045679,000708: 37,2776           02043                           TC       -1CHK                                 
045680,000709: 37,2777           30001                           CA       L                                     
045681,000710: 37,3000           02043                           TC       -1CHK                                 
045682,000711: 
045683,000712:                                                                                                  #  IN-OUT2 CHECKS ALL PULSES OF ROR AND WOR
045684,000713: 
045685,000714: 37,3001           46301        IN-OUT2            CS       S+3                                   
045686,000715: 37,3002           54001        RORCHK             TS       L                                     #  77774
045687,000716: 37,3003           32013                           CA       DVCON                                 #  37776
045688,000717: 37,3004           00006                           EXTEND                                         
045689,000718: 37,3005           04001                           ROR      L                                     #  $ ROR, -1
045690,000719: 37,3006           02043                           TC       -1CHK                                 
045691,000720: 37,3007           32013        WORCHK             CA       DVCON                                 #  C(L) STILL 77774
045692,000721: 37,3010           00006                           EXTEND                                         
045693,000722: 37,3011           05001                           WOR      L                                     #  $ WOR, -1
045694,000723: 37,3012           02043                           TC       -1CHK                                 
045695,000724: 37,3013           30001                           CA       L                                     
045696,000725: 37,3014           02043                           TC       -1CHK                                 
045697,000726: 
045698,000727:                                                                                                  #  IN-OUT3 CHECKS ALL PULSES OF RAND, WAND, AND RXOR
045699,000728: 37,3015           42013        IN-OUT3            CS       DVCON                                 
045700,000729: 37,3016           54001        RANDCHK            TS       L                                     #  40001
045701,000730: 37,3017           32010                           CA       S13BITS                               #  17777
045702,000731: 37,3020           00006                           EXTEND                                         
045703,000732: 37,3021           02001                           RAND     L                                     #  $ RAND, +1
045704,000733: 37,3022           02042                           TC       +1CHK                                 
045705,000734: 37,3023           32010        WANDCHK            CA       S13BITS                               #  C(L) STILL 40001
045706,000735: 37,3024           00006                           EXTEND                                         
045707,000736: 37,3025           03001                           WAND     L                                     #  $ WAND, +1
045708,000737: 
045709,000738: 37,3026           02042                           TC       +1CHK                                 
045710,000739: 37,3027           47760                           CS       S+5                                   
045711,000740: 37,3030           56001                           XCH      L                                     #  ALSO PUT -5 IN L FOR RXORCHK
045712,000741: 37,3031           02042                           TC       +1CHK                                 

Page 1027

045714,000743: 37,3032           36276        RXORCHK            CA       S+6                                   
045715,000744: 37,3033           00006                           EXTEND                                         
045716,000745: 37,3034           06001                           RXOR     L                                     #  $ RXOR, -3
045717,000746: 37,3035           67754                           AD       S+2                                   
045718,000747: 37,3036           02043                           TC       -1CHK                                 
045719,000748: 37,3037           30001                           CA       L                                     
045720,000749: 
045721,000750: 37,3040           67753                           AD       S+4                                   
045722,000751: 37,3041           02043                           TC       -1CHK                                 
045723,000752: 
045724,000753: 37,3042           02051                           TC       SMODECHK                              
045725,000754: 
045726,000755:                                                                                                  #  COUNTCHK COUNTS UP 14 BIT NUMBER WITH SIGN.
045727,000756:                                                                                                  #  TAKES APPROXIMATELY 8.7 SECONDS.
045728,000757:                                                                                                  #  ** PUT IN CCS NEWJOB FOR ROPE.
045729,000758: 37,3043           00006        COUNTCHK           EXTEND                                         
045730,000759: 37,3044           33456                           DCA      S+MAX                                 
045731,000760: 37,3045           53377                           DXCH     SKEEP6                                #  PUT 37777 IN SKEEP6 AND 40000 IN SKEEP7
045732,000761: 37,3046           31376        +LOOP              CA       SKEEP6                                
045733,000762: 
045734,000763: 37,3047           56002                           XCH      Q                                     
045735,000764: 37,3050           00006                           EXTEND                                         
045736,000765: 37,3051           40002                           DCS      L                                     
045737,000766: 37,3052           10000                           CCS      A                                     
045738,000767: 37,3053           03062                           TC       -NMBR                                 
045739,000768: 37,3054           03067                           TC       ENDCOUNT                              
045740,000769: 37,3055           55376                           TS       SKEEP6                                
045741,000770: 37,3056           61377                           AD       SKEEP7                                
045742,000771: 37,3057           02043                           TC       -1CHK                                 
045743,000772: 37,3060           25377                           INCR     SKEEP7                                
045744,000773: 
045745,000774: 37,3061           03046                           TC       +LOOP                                 
045746,000775: 37,3062           60001        -NMBR              AD       L                                     
045747,000776: 37,3063           02043                           TC       -1CHK                                 
045748,000777: 37,3064           05623                           TC       CHECKNJ                               #  CHECK FOR NEW JOB
045749,000778: 37,3065           41376                           CS       SKEEP6                                
045750,000779: 37,3066           03047                           TC       +LOOP      +1                         
045751,000780: 37,3067           31377        ENDCOUNT           CA       SKEEP7                                #  -0
045752,000781: 37,3070           61376                           AD       SKEEP6                                #  SKEEP6 SHOULD BE +0
045753,000782: 37,3071           02035                           TC       -0CHK                                 
045754,000783: 
045755,000784:                                                                                                  #  O-UFLOW COUNTS DOWN OVERFLOW AND UNDERFLOW NUMBERS.
045756,000785:                                                                                                  #  TAKES APPROXIMATELY 10.8 SECONDS
045757,000786: 
045758,000787: 37,3072           33456        O-UFLOW            CA       S-MAX                                 
045759,000788: 37,3073           55375                           TS       SKEEP5                                #  40000
045760,000789: 37,3074           40000                           CS       A                                     
045761,000790: 37,3075           00004        OFLOOP             INHINT                                         
045762,000791: 37,3076           63455                           AD       S+MAX                                 
045763,000792: 37,3077           67755                           AD       S+1                                   
045764,000793: 37,3100           56002                           XCH      Q                                     
045765,000794: 37,3101           10002                           CCS      Q                                     
045766,000795: 37,3102           03117                           TC       -NMBRS                                
045767,000796: 37,3103           02022                           TC       ERRORS                                #  CAN PUT IN CONSTANT

Page 1028

045769,000798: 37,3104           55373                           TS       SKEEP3                                
045770,000799: 37,3105           02022                           TC       ERRORS                                
045771,000800: 
045772,000801: 37,3106           31373                           CA       SKEEP3                                
045773,000802: 37,3107           61375                           AD       SKEEP5                                
045774,000803: 37,3110           02043                           TC       -1CHK                                 
045775,000804: 37,3111           00003                           RELINT                                         
045776,000805: 37,3112           05623                           TC       CHECKNJ                               #  CHECK FOR NEW JOB
045777,000806: 37,3113           31374                           CA       SKEEP4                                
045778,000807: 37,3114           00006                           EXTEND                                         
045779,000808: 37,3115           27375                           DIM      SKEEP5                                
045780,000809: 37,3116           03075                           TC       OFLOOP                                
045781,000810: 37,3117           55374        -NMBRS             TS       SKEEP4                                
045782,000811: 
045783,000812: 37,3120           03130                           TC       ENDOFUF                               
045784,000813: 37,3121           31374                           CA       SKEEP4                                
045785,000814: 37,3122           61375                           AD       SKEEP5                                
045786,000815: 37,3123           02043                           TC       -1CHK                                 
045787,000816: 37,3124           31375                           CA       SKEEP5                                
045788,000817: 37,3125           63456                           AD       S-MAX                                 
045789,000818: 37,3126           67763                           AD       S-1                                   
045790,000819: 37,3127           03100                           TC       OFLOOP     +3                         
045791,000820: 37,3130           31375        ENDOFUF            CA       SKEEP5                                
045792,000821: 37,3131           02035                           TC       -0CHK                                 
045793,000822: 37,3132           41374                           CS       SKEEP4                                
045794,000823: 37,3133           62013                           AD       DVCON                                 
045795,000824: 
045796,000825: 37,3134           02043                           TC       -1CHK                                 
045797,000826: 37,3135           00003                           RELINT                                         
045798,000827: 
045799,000828: 37,3136           02051                           TC       SMODECHK                              
045800,000829: 
045801,000830:                                                                                                  #  SKEEP7 HOLDS LOWEST OF TWO ADDRESSES BEING CHECKED.
045802,000831:                                                                                                  #  SKEEP6 HOLDS B(X+1).
045803,000832:                                                                                                  #  SKEEP5 HOLDS B(X).
045804,000833:                                                                                                  #  SKEEP4 CONTROLS CHECKING OF NON-SWITCHABLE ERASABLE MEMORY WITH
045805,000834:                                                                                                  #  BANK NUMBERS IN EB.
045806,000835: 
045807,000836:                                                                                                  #  SKEEP3 HOLDS LAST ADDRESS BEING CHECKED (HIGHEST ADDRESS).
045808,000837:                                                                                                  #  SKEEP2 HOLDS C(EBANK) DURING CHECKNJ
045809,000838:                                                                                                  #  ERASCHK TAKES APPROXMATELY 7 SECONDS
045810,000839: 37,3137           37755        ERASCHK            CA       S+1                                   
045811,000840: 37,3140           55374                           TS       SKEEP4                                
045812,000841: 37,3141           37761        0EBANK             CA       S+ZERO                                
045813,000842: 37,3142           54003                           TS       EBANK                                 
045814,000843: 37,3143           32004                           CA       ERASCON3                              #  01461
045815,000844: 37,3144           55377                           TS       SKEEP7                                #  STARTING ADDRESS
045816,000845: 37,3145           35356                           CA       S10BITS                               #  01777
045817,000846: 37,3146           55373                           TS       SKEEP3                                #  LAST ADDRESS CHECKED
045818,000847: 37,3147           03167                           TC       ERASLOOP                              
045819,000848: 
045820,000849: 
045821,000850: 37,3150           32003        E134567B           CA       ERASCON6                              #  01400
045822,000851: 37,3151           55377                           TS       SKEEP7                                #  STARTING ADDRESS
045823,000852: 37,3152           35356                           CA       S10BITS                               #  01777

Page 1029

045825,000854: 37,3153           55373                           TS       SKEEP3                                #  LAST ADDRESS CHECKED
045826,000855: 37,3154           03167                           TC       ERASLOOP                              
045827,000856: 
045828,000857: 37,3155           32003        2EBANK             CA       ERASCON6                              #  01400
045829,000858: 37,3156           55377                           TS       SKEEP7                                #  STARTING ADDRESS
045830,000859: 37,3157           32005                           CA       ERASCON4                              #  01774
045831,000860: 37,3160           55373                           TS       SKEEP3                                #  LAST ADDRESS CHECKED
045832,000861: 37,3161           03167                           TC       ERASLOOP                              
045833,000862: 
045834,000863: 
045835,000864: 37,3162           55374        NOEBANK            TS       SKEEP4                                #  +0
045836,000865: 37,3163           32001                           CA       ERASCON1                              #  00061
045837,000866: 37,3164           55377                           TS       SKEEP7                                #  STARTING ADDRESS
045838,000867: 37,3165           32002                           CA       ERASCON2                              #  01374
045839,000868: 37,3166           55373                           TS       SKEEP3                                #  LAST ADDRESS CHECKED
045840,000869: 
045841,000870: 37,3167           00004        ERASLOOP           INHINT                                         
045842,000871: 37,3170           00006                           EXTEND                                         
045843,000872: 37,3171           51377                           NDX      SKEEP7                                
045844,000873: 
045845,000874: 37,3172           30001                           DCA      0000                                  
045846,000875: 37,3173           53376                           DXCH     SKEEP5                                #  STORES C(X) AND C(X-1) IN SKEEP6 AND 5.
045847,000876: 37,3174           31377                           CA       SKEEP7                                
045848,000877: 37,3175           55355                           TS       ERESTORE                              #  IF RESTART, RESTORE C(X) AND C(X+1)
045849,000878: 37,3176           54001                           TS       L                                     
045850,000879: 37,3177           24001                           INCR     L                                     
045851,000880: 37,3200           50000                           NDX      A                                     
045852,000881: 37,3201           52001                           DXCH     0000                                  #  PUTS OWN ADDRESS IN X AND X +1
045853,000882: 37,3202           51377                           NDX      SKEEP7                                
045854,000883: 37,3203           40001                           CS       0001                                  #  CS  X+1
045855,000884: 37,3204           51377                           NDX      SKEEP7                                
045856,000885: 37,3205           60000                           AD       0000                                  #  AD X
045857,000886: 
045858,000887: 37,3206           02043                           TC       -1CHK                                 
045859,000888: 37,3207           00006                           EXTEND                                         
045860,000889: 37,3210           51377                           NDX      SKEEP7                                
045861,000890: 37,3211           40001                           DCS      0000                                  #  COMPLEMENT OF ADDRESS OF X AND X+1
045862,000891: 37,3212           51377                           NDX      SKEEP7                                
045863,000892: 37,3213           52001                           DXCH     0000                                  #  PUT COMPLEMENT OF ADDRESS OF X AND X+1
045864,000893: 37,3214           51377                           NDX      SKEEP7                                
045865,000894: 37,3215           40000                           CS       0000                                  #  CS X
045866,000895: 37,3216           51377                           NDX      SKEEP7                                
045867,000896: 37,3217           60001                           AD       0001                                  #  AD X+1
045868,000897: 
045869,000898: 37,3220           02043                           TC       -1CHK                                 
045870,000899: 37,3221           00006                           EXTEND                                         
045871,000900: 37,3222           31376                           DCA      SKEEP5                                
045872,000901: 37,3223           51377                           NDX      SKEEP7                                
045873,000902: 37,3224           52001                           DXCH     0000                                  #  PUT B(X) AND B(X+1) BACK INTO X AND X+1
045874,000903: 37,3225           37761                           CA       S+ZERO                                
045875,000904: 37,3226           55355                           TS       ERESTORE                              #  IF RESTART, DO NOT RESTORE C(X), C(X+1)
045876,000905: 37,3227           00003                           RELINT                                         
045877,000906: 37,3230           30003                           CA       EBANK                                 #  STORES C(EBANK)
045878,000907: 37,3231           55372                           TS       SKEEP2                                

Page 1030

045880,000909: 37,3232           05623                           TC       CHECKNJ                               #  CHECK FOR NEW JOB
045881,000910: 
045882,000911: 37,3233           31372                           CA       SKEEP2                                #  REPLACES B(EBANK)
045883,000912: 37,3234           54003                           TS       EBANK                                 
045884,000913: 37,3235           25377                           INCR     SKEEP7                                
045885,000914: 37,3236           41377                           CS       SKEEP7                                
045886,000915: 37,3237           61373                           AD       SKEEP3                                
045887,000916: 37,3240           00006                           EXTEND                                         
045888,000917: 37,3241           13243                           BZF      +2                                    
045889,000918: 37,3242           03167                           TC       ERASLOOP                              #  GO TO NEXT ADDRESS IN SAME BANK
045890,000919: 37,3243           11374                           CCS      SKEEP4                                
045891,000920: 37,3244           03162                           TC       NOEBANK                               
045892,000921: 37,3245           25374                           INCR     SKEEP4                                #  PUT +1 IN SKEEP4
045893,000922: 37,3246           30003                           CA       EBANK                                 
045894,000923: 
045895,000924: 37,3247           67745                           AD       SBIT9                                 
045896,000925: 37,3250           54003                           TS       EBANK                                 
045897,000926: 37,3251           62015                           AD       ERASCON5                              #  76777, CHECK FOR BANK E2
045898,000927: 37,3252           00006                           EXTEND                                         
045899,000928: 37,3253           13155                           BZF      2EBANK                                
045900,000929: 37,3254           10003                           CCS      EBANK                                 
045901,000930: 37,3255           03150                           TC       E134567B                              #  GO TO EBANKS 1,3,4,5,6, AND 7
045902,000931: 37,3256           32003                           CA       ERASCON6                              #  END OF ERASCHK
045903,000932: 37,3257           54003                           TS       EBANK                                 
045904,000933:                                                                                                  #  CNTRCHK PERFORMS A CS OF ALL REGISTERS FROM OCT. 60 THROUGH OCT. 10.
045905,000934: 
045906,000935:                                                                                                  #  INCLUDED ARE ALL COUNTERS, T6-1, CYCLE AND SHIFT, AND ALL RUPT REGISTERS
045907,000936: 37,3260           32000        CNTRCHK            CAF      CNTRCON                               #  00050
045908,000937: 37,3261           55372        CNTRLOOP           TS       SKEEP2                                
045909,000938: 37,3262           67752                           AD       SBIT4                                 #  +10 OCTAL
045910,000939: 37,3263           50000                           INDEX    A                                     
045911,000940: 37,3264           40000                           CS       0000                                  
045912,000941: 37,3265           11372                           CCS      SKEEP2                                
045913,000942: 37,3266           03261                           TC       CNTRLOOP                              
045914,000943: 
045915,000944:                                                                                                  #  CYCLSHFT CHECKS THE CYCLE AND SHIFT REGISTERS
045916,000945: 37,3267           32011        CYCLSHFT           CA       CONC+S1                               #  25252
045917,000946: 37,3270           54020                           TS       CYR                                   #  C(CYR) = 12525
045918,000947: 
045919,000948: 37,3271           54022                           TS       CYL                                   #  C(CYL) = 52524
045920,000949: 37,3272           54021                           TS       SR                                    #  C(SR) = 12525
045921,000950: 37,3273           54023                           TS       EDOP                                  #  C(EDOP) = 00125
045922,000951: 37,3274           60020                           AD       CYR                                   #  37777         C(CYR) = 45252
045923,000952: 37,3275           60022                           AD       CYL                                   #  00-12524      C(CYL) = 25251
045924,000953: 37,3276           60021                           AD       SR                                    #  00-25251      C(SR) = 05252
045925,000954: 37,3277           60023                           AD       EDOP                                  #  00-25376      C(EDOP) = +0
045926,000955: 37,3300           62014                           AD       CONC+S2                               #  C(CONC+S2) = 52400
045927,000956: 37,3301           02043                           TC       -1CHK                                 
045928,000957: 37,3302           60020                           AD       CYR                                   #  45252
045929,000958: 
045930,000959: 37,3303           60022                           AD       CYL                                   #  72523
045931,000960: 37,3304           60021                           AD       SR                                    #  77775
045932,000961: 37,3305           60023                           AD       EDOP                                  #  77775
045933,000962: 37,3306           67755                           AD       S+1                                   #  77776
045934,000963: 37,3307           02043                           TC       -1CHK                                 
045935,000964: 

Page 1031

045937,000966: 37,3310           25367                           INCR     SCOUNT     +1                         
045938,000967: 37,3311           02051                           TC       SMODECHK                              
045939,000968: 37,3312           03313                           TC       ROPECHK                               
045940,000969: 
045941,000970:                                                                                                  #  SKEEP1 HOLDS SUM
045942,000971:                                                                                                  #  SKEEP2 HOLDS PRESENT CONTENTS OF ADDRESS IN ROPECHK AND SHOWSUM ROUTINES
045943,000972: 
045944,000973:                                                                                                  #  SKEEP2 HOLDS BANK NUMBER IN LOW ORDER BITS DURING SHOWSUM DISPLAY
045945,000974:                                                                                                  #  SKEEP3 HOLDS PRESENT ADDRESS (00000 TO 01777 IN COMMON FIXED BANKS)
045946,000975:                                                                                                  #                               (04000 TO 07777 IN FXFX BANKS)
045947,000976:                                                                                                  #  SKEEP3 HOLDS BUGGER WORD DURING SHOWSUM DISPLAY
045948,000977:                                                                                                  #  SKEEP4 HOLDS BANK NUMBER AND SUPER BANK NUMBER
045949,000978:                                                                                                  #  SKEEP5 COUNTS 2 SUCCESSIVE TC SELF WORDS
045950,000979:                                                                                                  #  SKEEP6 CONTROLS ROPECHK OR SHOWSUM OPTION
045951,000980:                                                                                                  #  SKEEP7 CONTROLS WHEN ROUNTINE IS IN COMMON FIXED OR FIXED FIXED BANKS
045952,000981: 
045953,000982: 37,3313           37762        ROPECHK            CA       S-ZERO                                
045954,000983: 37,3314           55376                           TS       SKEEP6                                #  ROPECHK OPTION
045955,000984: 37,3315           37761        STSHOSUM           CA       S+ZERO                                
045956,000985: 
045957,000986: 37,3316           55374                           TS       SKEEP4                                #  BANK NUMBER
045958,000987: 37,3317           37755                           CA       S+1                                   
045959,000988: 37,3320           55377        COMMFX             TS       SKEEP7                                
045960,000989: 37,3321           37761                           CA       S+ZERO                                
045961,000990: 37,3322           55371                           TS       SKEEP1                                
045962,000991: 37,3323           55373                           TS       SKEEP3                                
045963,000992: 37,3324           37755                           CA       S+1                                   
045964,000993: 37,3325           55375                           TS       SKEEP5                                #  COUNTS DOWN 2 TC SELF WORDS
045965,000994: 37,3326           31374        COMADRS            CA       SKEEP4                                
045966,000995: 37,3327           54001                           TS       L                                     #  TO SET SUPER BANK
045967,000996: 
045968,000997: 37,3330           74547                           MASK     HI5                                   
045969,000998: 37,3331           61373                           AD       SKEEP3                                
045970,000999: 37,3332           05263                           TC       SUPDACAL                              #  SUPER DATA CALL
045971,001000: 37,3333           03357                           TC       ADSUM                                 
045972,001001: 37,3334           67743                           AD       SBIT11                                #  02000
045973,001002: 37,3335           03370                           TC       ADRSCHK                               
045974,001003: 
045975,001004: 37,3336           40000        FXFX               CS       A                                     
045976,001005: 37,3337           55377                           TS       SKEEP7                                
045977,001006: 37,3340           00006                           EXTEND                                         
045978,001007: 37,3341           13344                           BZF      +3                                    
045979,001008: 37,3342           37742                           CA       SBIT12                                #  04000, STARTING ADDRESS OF BANK 02
045980,001009: 
045981,001010: 37,3343           03345                           TC       +2                                    
045982,001011: 37,3344           35652                           CA       SBNK03                                #  06000, STARTING ADDRESS OF BANK 03
045983,001012: 37,3345           55373                           TS       SKEEP3                                
045984,001013: 37,3346           37761                           CA       S+ZERO                                
045985,001014: 37,3347           55371                           TS       SKEEP1                                
045986,001015: 37,3350           37755                           CA       S+1                                   
045987,001016: 37,3351           55375                           TS       SKEEP5                                #  COUNTS DOWN 2 TC SELF WORDS
045988,001017: 37,3352           00006        FXADRS             EXTEND                                         
045989,001018: 37,3353           51373                           NDX      SKEEP3                                
045990,001019: 37,3354           30001                           DCA      0000                                  

Page 1032

045992,001021: 37,3355           03357                           TC       ADSUM                                 
045993,001022: 37,3356           03370                           TC       ADRSCHK                               
045994,001023: 
045995,001024: 
045996,001025: 37,3357           55372        ADSUM              TS       SKEEP2                                
045997,001026: 37,3360           61371                           AD       SKEEP1                                
045998,001027: 37,3361           55371                           TS       SKEEP1                                
045999,001028: 37,3362           37761                           CAF      S+ZERO                                
046000,001029: 37,3363           61371                           AD       SKEEP1                                
046001,001030: 37,3364           55371                           TS       SKEEP1                                
046002,001031: 37,3365           41372                           CS       SKEEP2                                
046003,001032: 37,3366           61373                           AD       SKEEP3                                
046004,001033: 37,3367           00002                           TC       Q                                     
046005,001034: 
046006,001035: 37,3370           10000        ADRSCHK            CCS      A                                     
046007,001036: 37,3371           03401                           TC       CONTINU                               
046008,001037: 37,3372           03401                           TC       CONTINU                               
046009,001038: 37,3373           03401                           TC       CONTINU                               
046010,001039: 37,3374           11375                           CCS      SKEEP5                                
046011,001040: 37,3375           03402                           TC       CONTINU    +1                         
046012,001041: 37,3376           30001                           CA       L                                     
046013,001042: 37,3377           03357                           TC       ADSUM                                 
046014,001043: 37,3400           03460                           TC       SOPTION                               #  GO TO ROPECHK SHOSUM OPTION
046015,001044: 37,3401           37755        CONTINU            CA       S+1                                   #  MAKE SURE TWO CONSECUTIVE TC SELF WORDS
046016,001045: 37,3402           55375                           TS       SKEEP5                                
046017,001046: 37,3403           11376                           CCS      SKEEP6                                #  +1 IN SKEEP6, SHOWSUM VIA EXECUTIVE
046018,001047: 
046019,001048: 37,3404           10067                           CCS      NEWJOB                                
046020,001049: 37,3405           05550                           TC       CHANG1                                
046021,001050: 37,3406           03410                           TC       +2                                    
046022,001051: 37,3407           05623                           TC       CHECKNJ                               #  -0 IN SKEEP6 FOR ROPECHK
046023,001052: 
046024,001053: 37,3410           25373        ADRS+1             INCR     SKEEP3                                
046025,001054: 37,3411           11377                           CCS      SKEEP7                                
046026,001055: 37,3412           03326                           TC       COMADRS                               
046027,001056: 37,3413           03326                           TC       COMADRS                               
046028,001057: 37,3414           03352                           TC       FXADRS                                
046029,001058: 
046030,001059: 37,3415           03352                           TC       FXADRS                                
046031,001060: 
046032,001061: 37,3416           41374        NXTBNK             CS       SKEEP4                                
046033,001062: 37,3417           63474                           AD       LSTBNKCH                              #  LAST BANK TO BE CHECKED
046034,001063: 37,3420           00006                           EXTEND                                         
046035,001064: 37,3421           13453                           BZF      ENDSUMS                               #  END OF SUMMING OF BANKS.
046036,001065: 37,3422           31374                           CA       SKEEP4                                
046037,001066: 37,3423           67743                           AD       SBIT11                                
046038,001067: 37,3424           55374                           TS       SKEEP4                                #  37 TO 40 INCRMTS SKEEP4 BY END RND CARRY
046039,001068: 37,3425           03431                           TC       CHKSUPR                               
046040,001069: 37,3426           37737        17TO20             CA       SBIT15                                
046041,001070: 37,3427           27374                           ADS      SKEEP4                                #  SET FOR BANK 20
046042,001071: 
046043,001072: 37,3430           03445                           TC       GONXTBNK                              
046044,001073: 37,3431           74547        CHKSUPR            MASK     HI5                                   
046045,001074: 37,3432           00006                           EXTEND                                         

Page 1033

046047,001076: 37,3433           13443                           BZF      NXTSUPR                               #  INCREMENT SUPER BANK
046048,001077: 37,3434           62010        27TO30             AD       S13BITS                               
046049,001078: 37,3435           00006                           EXTEND                                         
046050,001079: 37,3436           13440                           BZF      +2                                    #  BANK SET FOR 30
046051,001080: 37,3437           03445                           TC       GONXTBNK                              
046052,001081: 37,3440           32006                           CA       SIXTY                                 #  FIRST SUPER BANK
046053,001082: 37,3441           27374                           ADS      SKEEP4                                
046054,001083: 37,3442           03445                           TC       GONXTBNK                              
046055,001084: 
046056,001085: 37,3443           62007        NXTSUPR            AD       SUPRCON                               #  SET BNK 30 + INCR SUPR BNK AND CANCEL
046057,001086: 37,3444           27374                           ADS      SKEEP4                                #  ERC BIT OF THE 37 TO 40 ADVANCE.
046058,001087: 37,3445           11377        GONXTBNK           CCS      SKEEP7                                
046059,001088: 37,3446           03320                           TC       COMMFX                                
046060,001089: 37,3447           37755                           CA       S+1                                   
046061,001090: 37,3450           03336                           TC       FXFX                                  
046062,001091: 37,3451           37747                           CA       SBIT7                                 #  HAS TO BE LARGER THAN NO OF FXSW BANKS.
046063,001092: 37,3452           03320                           TC       COMMFX                                
046064,001093: 
046065,001094: 37,3453           11376        ENDSUMS            CCS      SKEEP6                                
046066,001095: 37,3454           03315                           TC       ROPECHK    +2                         #  START SHOWSUM AGAIN
046067,001096: 37,3455           37777        S+MAX              OCTAL    37777                                 #  ** S+MAX AND S-MAX MUST BE TOGETHER
046068,001097: 37,3456           40000        S-MAX              OCTAL    40000                                 #  FOR DOUBLE PRECISION CHECKING.
046069,001098: 37,3457           03546                           TC       RPCHKFIN                              #  ROPECHK IS COMPLETE
046070,001099: 
046071,001100: 37,3460           31374        SOPTION            CA       SKEEP4                                
046072,001101: 37,3461           74553                           MASK     S8BITS                                #  = SUPER BANK BITS
046073,001102: 37,3462           54021                           TS       SR                                    
046074,001103: 37,3463           31374                           CA       SKEEP4                                
046075,001104: 37,3464           74547                           MASK     HI5                                   #  = BANK BITS
046076,001105: 37,3465           04530                           TC       LEFT5                                 
046077,001106: 37,3466           22021                           LXCH     SR                                    
046078,001107: 37,3467           00006                           EXTEND                                         
046079,001108: 
046080,001109: 37,3470           05001                           WOR      L                                     #  = BANK NUMBER
046081,001110: 37,3471           11376                           CCS      SKEEP6                                #  DECIDE ON ROPECHK OR SHOWSUM OPTION.
046082,001111: 37,3472           03524                           TC       SDISPLAY                              
046083,001112: 37,3473           01201        VNCON              OCTAL    01201                                 #  USED IN SHOWSUM. V05N01 DECIMAL
046084,001113: 37,3474     0067                                  EBANK=   NEWJOB                                
046085,001114: 37,3474           76060        LSTBNKCH           BBCON*                                         #  * CONSTANT, LAST BANK.                
046086,001115: 
046087,001116: 37,3475           11371        BNKCHK             CCS      SKEEP1                                #  WHEN C(SKEEP6) = -0
046088,001117: 37,3476           03502                           TC       +4                                    
046089,001118: 37,3477           77527        SCADR              FCADR    NOKILL                                #  * CONSTANT, USED IN SHOWSUM ONLY
046090,001119: 
046091,001120: 37,3500           03502                           TC       +2                                    
046092,001121: 37,3501           37763                           CA       S-1                                   #  FOR BANK 00
046093,001122: 37,3502           55371                           TS       SKEEP1                                
046094,001123: 37,3503           40001                           CS       L                                     #  = - BANK NUMBER
046095,001124: 37,3504           61371                           AD       SKEEP1                                
046096,001125: 37,3505           02043                           TC       -1CHK                                 
046097,001126: 37,3506           03416                           TC       NXTBNK                                
046098,001127: 
046099,001128:                                                                                                  #  INITIALIZE SKEEP6 TO +1 TO PERFORM SHOWSUM

Page 1034

046101,001130:                                                                                                  #  START OF ROUTINE THAT DISPLAYS SUM OF EACH BANK
046102,001131: 
046103,001132: 37,3507           37755        SHOWSUM            CAF      S+1                                   
046104,001133: 37,3510           55376                           TS       SKEEP6                                #  SHOWSUM OPTION
046105,001134: 37,3511           37761                           CAF      S+ZERO                                
046106,001135: 37,3512           55357                           TS       SMODE                                 #  PUT SELF-CHECK TO SLEEP
046107,001136: 37,3513           32021                           CA       SELFADRS                              #  INITIALIZE SELFRET TO GO TO SELFCHK.
046108,001137: 37,3514           55356                           TS       SELFRET                               
046109,001138: 37,3515           00004                           INHINT                                         
046110,001139: 37,3516           37743                           CAF      PRIO2                                 
046111,001140: 37,3517           05523                           TC       NOVAC                                 
046112,001141: 37,3520     1356                                  EBANK=   SELFRET                               
046113,001142: 37,3520           03315 76062                     2CADR    STSHOSUM                              
046114,001143: 
046115,001144: 
046116,001145: 37,3522           00003                           RELINT                                         
046117,001146: 37,3523           05605                           TC       ENDOFJOB                              
046118,001147: 
046119,001148: 37,3524           30001        SDISPLAY           CA       L                                     #  = BANK NUMBER
046120,001149: 37,3525           57372                           XCH      SKEEP2                                #  SKEEP2 HOLDS BANK NUMBER DURING DISPLAY
046121,001150: 37,3526           55373                           TS       SKEEP3                                #  SKEEP3 HOLDS BUGGER WORD DURING DISPLAY
046122,001151: 37,3527           32017        NOKILL             CAF      ADRS1                                 #  ADDRESS OF SKEEP1
046123,001152: 37,3530           54146                           TS       MPAC       +2                         
046124,001153: 37,3531           33473                           CAF      VNCON                                 #  DISPLAY 3 REGISTERS
046125,001154: 37,3532           04433                           TC       NVSUB                                 
046126,001155: 
046127,001156: 37,3533           03544                           TC       SBUSY                                 
046128,001157: 37,3534           04611                           TC       FLASHON                               
046129,001158: 37,3535           04464                           TC       ENDIDLE                               
046130,001159: 37,3536           03541                           TC       +3                                    #  FINISHED WITH SHOWSUM
046131,001160: 37,3537           03416                           TC       NXTBNK                                
046132,001161: 37,3540           03527                           TC       NOKILL                                #  SO CAN LOAD WITHOUT KILLING SHOWSUM
046133,001162: 37,3541           32021                           CA       SELFADRS                              #  INITIALIZE SKEEP1 TO GO TO SELFCHK.
046134,001163: 37,3542           55371                           TS       SKEEP1                                
046135,001164: 37,3543           05605                           TC       ENDOFJOB                              
046136,001165: 
046137,001166: 37,3544           33477        SBUSY              CAF      SCADR                                 
046138,001167: 37,3545           04643                           TC       NVSUBUSY                              
046139,001168: 
046140,001169: 
046141,001170: 37,3546           02102        RPCHKFIN           TC       SELFCHK                               #  START SELF-CHECK AGAIN.
046142,001171: 
046143,001172: 37,3547           40000        SBNKOPTN           CS       A                                     #  GO TO BACKUP IDLE LOOP IF C(SMODE) IS
046144,001173: 37,3550           67754                           AD       TWO                                   #  GREATER THAN OCTAL 11
046145,001174: 37,3551           00006                           EXTEND                                         
046146,001175: 37,3552           63556                           BZMF     TOSMODE    -2                         
046147,001176: 37,3553           37761                           CA       S+ZERO                                #  ZERO SMODE FOR OPTIONS ABOVE 8.
046148,001177: 37,3554           55357                           TS       SMODE                                 
046149,001178: 37,3555           03576        SOPTON11           TC       DSKYCHK                               
046150,001179: 
046151,001180: 37,3556           37761                           CA       S+ZERO                                
046152,001181: 37,3557           55357                           TS       SMODE                                 
046153,001182: 37,3560           02102        TOSMODE            TC       SELFCHK                               
046154,001183: 

Page 1035

046156,001185:                                                                                                  #  THE FOLLOWING CONSTANTS ARE USED BY DSKYCHK.
046157,001186: 37,3561           05265        DSKYCODE           OCTAL    05265                                 #  00
046158,001187: 37,3562           04143                           OCTAL    04143                                 #  11
046159,001188: 37,3563           05471                           OCTAL    05471                                 #  22
046160,001189: 37,3564           05573                           OCTAL    05573                                 #  33
046161,001190: 37,3565           04757                           OCTAL    04757                                 #  44
046162,001191: 
046163,001192: 37,3566           05736                           OCTAL    05736                                 #  55
046164,001193: 37,3567           05634                           OCTAL    05634                                 #  66
046165,001194: 37,3570           05163                           OCTAL    05163                                 #  77
046166,001195: 37,3571           05675                           OCTAL    05675                                 #  88
046167,001196: 37,3572           05777                           OCTAL    05777                                 #  99
046168,001197: 37,3573           07265        +-ZERO             OCTAL    07265                                 
046169,001198: 37,3574           00013        11DEC.             OCTAL    00013                                 
046170,001199: 
046171,001200:                                                                                                  #  BITS 2 AND 6 TURN ON THE COMPUTER ACTIVITY AND VERB-NOUN FLASH.
046172,001201: 37,3575           00042        S11CHAN            OCTAL    00042                                 
046173,001202: 
046174,001203: 37,3576           34557        DSKYCHK            CAF      TEN                                   
046175,001204: 
046176,001205: 37,3577           55373                           TS       SKEEP3                                
046177,001206: 37,3600           00004                           INHINT                                         
046178,001207: 37,3601           37755                           CAF      S+1                                   #  SET UP TEN MS INTERRUPT
046179,001208: 37,3602           05701                           TC       WAITLIST                              
046180,001209: 37,3603  E3,1400                                  EBANK=   LST1                                  
046181,001210: 37,3603           03637 76063                     2CADR    NXTNMBR                               
046182,001211: 
046183,001212: 37,3605           00003                           RELINT                                         
046184,001213: 37,3606           03560                           TC       TOSMODE                               #  GO TO IDLE LOOP
046185,001214: 
046186,001215: 37,3607           55373        SDSPTAB            TS       SKEEP3                                
046187,001216: 37,3610           00004                           INHINT                                         
046188,001217: 37,3611           51373                           NDX      SKEEP3                                
046189,001218: 37,3612           43561                           CS       DSKYCODE                              
046190,001219: 37,3613           54313        SBLANKS            TS       DSPTAB                                
046191,001220: 37,3614           54314                           TS       DSPTAB     +1                         
046192,001221: 37,3615           54315                           TS       DSPTAB     +2                         
046193,001222: 37,3616           54316                           TS       DSPTAB     +3                         
046194,001223: 37,3617           54317                           TS       DSPTAB     +4                         
046195,001224: 37,3620           54320                           TS       DSPTAB     +5                         
046196,001225: 37,3621           54321                           TS       DSPTAB     +6                         
046197,001226: 37,3622           54322                           TS       DSPTAB     +7                         
046198,001227: 37,3623           54323                           TS       DSPTAB     +8D                        
046199,001228: 
046200,001229: 37,3624           54324                           TS       DSPTAB     +9D                        
046201,001230: 37,3625           54325                           TS       DSPTAB     +10D                       
046202,001231: 37,3626           33574                           CA       11DEC.                                
046203,001232: 37,3627           54307                           TS       NOUT                                  
046204,001233: 
046205,001234: 37,3630           00004        DSKYWAIT           INHINT                                         
046206,001235: 37,3631           37744                           CAF      BIT10                                 #  5.12 SECOND WAIT
046207,001236: 37,3632           05701                           TC       WAITLIST                              
046208,001237: 37,3633  E3,1400                                  EBANK=   LST1                                  

Page 1036

046210,001239: 37,3633           03637 76063                     2CADR    NXTNMBR                               
046211,001240: 
046212,001241: 
046213,001242: 37,3635           00003                           RELINT                                         
046214,001243: 37,3636           05745                           TC       TASKOVER                              
046215,001244: 
046216,001245: 37,3637           11373        NXTNMBR            CCS      SKEEP3                                
046217,001246: 37,3640           03607                           TC       SDSPTAB                               #  9 THROUGH 0
046218,001247: 37,3641           03646                           TC       -SIGN                                 #  -ZEROS
046219,001248: 37,3642           03663                           TC       +SIGN                                 #  +ZEROS
046220,001249: 37,3643           11372                           CCS      SKEEP2                                
046221,001250: 37,3644           03677                           TC       NODSPLAY                              #  PUTS BLANKS IN DSKY DISPLAY
046222,001251: 37,3645           03703                           TC       LITESOUT                              #  TURN OFF LIGHTS
046223,001252: 
046224,001253: 37,3646           47755        -SIGN              CS       S+1                                   
046225,001254: 37,3647           55373                           TS       SKEEP3                                
046226,001255: 37,3650           33575                           CA       S11CHAN                               #  TURN ON VERB-NOUN FLASH
046227,001256: 37,3651           00006                           EXTEND                                         #  AND COMPUTER ACTIVITY LIGHTS.
046228,001257: 37,3652           05011                           WOR      DSALMOUT                              
046229,001258: 37,3653           43573                           CS       +-ZERO                                
046230,001259: 37,3654           00004                           INHINT                                         
046231,001260: 37,3655           54313                           TS       DSPTAB                                
046232,001261: 37,3656           54316                           TS       DSPTAB     +3                         
046233,001262: 37,3657           54320                           TS       DSPTAB     +5                         
046234,001263: 37,3660           36301                           CAF      THREE                                 
046235,001264: 37,3661           54307                           TS       NOUT                                  
046236,001265: 
046237,001266: 37,3662           03630                           TC       DSKYWAIT                              
046238,001267: 
046239,001268: 37,3663           47761        +SIGN              CS       ZERO                                  
046240,001269: 37,3664           55373                           TS       SKEEP3                                
046241,001270: 37,3665           37755                           CA       S+1                                   
046242,001271: 37,3666           55372                           TS       SKEEP2                                
046243,001272: 37,3667           00004                           INHINT                                         
046244,001273: 37,3670           43573                           CS       +-ZERO                                
046245,001274: 37,3671           54314                           TS       DSPTAB     +1                         
046246,001275: 37,3672           54317                           TS       DSPTAB     +4                         
046247,001276: 
046248,001277: 37,3673           54321                           TS       DSPTAB     +6                         
046249,001278: 37,3674           36301                           CAF      THREE                                 
046250,001279: 37,3675           54307                           TS       NOUT                                  
046251,001280: 37,3676           03630                           TC       DSKYWAIT                              
046252,001281: 
046253,001282: 37,3677           55372        NODSPLAY           TS       SKEEP2                                #  +0
046254,001283: 37,3700           47742                           CS       BIT12                                 #  BLANKS
046255,001284: 37,3701           00004                           INHINT                                         
046256,001285: 37,3702           03613                           TC       SBLANKS                               #  PUTS BLANKS IN ALL DISPLAYS
046257,001286: 
046258,001287: 37,3703           43575        LITESOUT           CS       S11CHAN                               
046259,001288: 37,3704           00006                           EXTEND                                         
046260,001289: 
046261,001290: 37,3705           03011                           WAND     DSALMOUT                              #  TURN OFF COMPUTER ACTIVITY LIGHT.
046262,001291: 37,3706           05745                           TC       TASKOVER                              #  END OF DSKYCHK
046263,001292: 

Page 1037 This page contains only output from YUL reading:
END OF REVISION 4 OF SUBROUTINE SELFCHEC BY REICHERT        LAST ASSEMBLED ON DEC 2, 1966

046269,001298: 

End of include-file AGC_BLOCK_TWO_SELF-CHECK.agc.  Parent file is MAIN.agc