Source Code

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

Notations on the program listing read, in part:

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

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

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

Page 1014

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

Page 1015

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

Page 1016

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

Page 1017

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

Page 1018

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

Page 1019

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

Page 1020

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

Page 1021

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

Page 1022

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

Page 1023

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

Page 1024

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

Page 1025

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

Page 1026

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

Page 1027

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

Page 1028

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

Page 1029

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

Page 1030

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

Page 1031

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

Page 1032

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

Page 1033

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

Page 1034

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

Page 1035

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

Page 1036

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

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

046279,001298: 

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