Source Code

010144,000002: ## Copyright: Public domain. 010145,000003: ## Filename: AGC_SELF-CHECK.agc 010146,000004: ## Purpose: Part of the source code for Solarium build 55. This 010147,000005: ## is for the Command Module's (CM) Apollo Guidance 010148,000006: ## Computer (AGC), for Apollo 6. 010149,000007: ## Assembler: yaYUL --block1 010150,000008: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com> 010151,000009: ## Website: www.ibiblio.org/apollo/index.html 010152,000010: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Solarium055/ 010153,000011: ## Mod history: 2009-10-03 JL Created. 010154,000012: ## 2016-08-19 RSB Typos. 010155,000013: ## 2016-08-23 RSB More of the same. 010156,000014: ## 2016-12-28 RSB Proofed comment text using octopus/ProoferComments, 010157,000015: ## and fixed errors found. 010158,000016:

Page 265

010160,000018: 
010161,000019: 11,6000                                           SETLOC   22000                                 
010162,000020: 
010163,000021:                                                                                                  #  NEXT THREE CONSTANTS ARE USED IN RUPTCHK SUBROUTINE
010164,000022: 11,6000           37767        OVCON              OCTAL    37767                                 
010165,000023: 11,6001           00320        TM1WAIT            OCTAL    00320                                 
010166,000024: 11,6002           06401        ZRUPTCON           ADRES    TSKADRS                               #  MUST BE ADDRESS OF TSKADRS
010167,000025: 
010168,000026:                                                                                                  #  NEXT SIX CONSTANTS ARE USED IN ERASCHK, CNTRCHK, AND CYCLSHF SUBROUTINES
010169,000027: 11,6003     4512               CONCNTR1           EQUALS   BIT5                                  #  00020
010170,000028: 11,6003           00060        CONERAS1           OCTAL    00060                                 
010171,000029: 11,6004           01774        CONERAS2           OCTAL    01774                                 
010172,000030: 11,6005           25252        CONC+S1            OCTAL    25252                                 
010173,000031: 11,6006     4664               CONC+S2            EQUALS   CSQ                                   #  40001
010174,000032: 
010175,000033:                                                                                                  #  NEXT 3 CONSTANTS ARE USED IN SHOWSUM ROUTINE
010176,000034: 11,6006           01771        SUMADRS            ADRES    SKEEP1                                #  SKEEP1 HOLDS SUM OF BANK
010177,000035: 11,6007           00501        VNCON              OCTAL    00501                                 #  DISPLAY CONTENTS OF THREE ADDRESSES
010178,000036: 11,6010           23037        SCADR              CADR     SDISPLAY                              
010179,000037:                                                                                                  #  THE FOLLOWING CONSTANTS ARE USED THROUGHOUT SELF-CHECK
010180,000038: 11,6011     5501               SCON0              EQUALS   ZERO                                  #  +0
010181,000039: 11,6011     4516               SCON1              EQUALS   BIT1                                  #  +1
010182,000040: 11,6011     4515               SCON2              EQUALS   BIT2                                  #  +2
010183,000041: 11,6011     4514               SCON4              EQUALS   BIT3                                  #  +4
010184,000042: 11,6011     4510               SCON64             EQUALS   BIT7                                  #  00100
010185,000043: 11,6011     4502               SCON1/4            EQUALS   BIT13                                 #  10000
010186,000044: 11,6011     4501               SCON1/2            EQUALS   BIT14                                 #  20000
010187,000045: 11,6011     4476               SCON+MAX           EQUALS   POSMAX                                #  37777
010188,000046: 11,6011     4340               SCON-2             EQUALS   MINUS2                                #  77775
010189,000047: 11,6011     4335               SCON-1             EQUALS   MINUS1                                #  77776
010190,000048: 11,6011     5504               SCONMAX            EQUALS   NEG0                                  #  77777
010191,000049: 
010192,000050: 11,6011           30115                 -2        XCH      QADRS                                 #  ENTRY HERE FROM -ZEROCHK AND -ONECHK
010193,000051: 11,6012           06014                           TC       +2                                    
010194,000052: 
010195,000053: 11,6013           30001        ERRORS             XCH      Q                                     #  FAILURE DETECTED - ALARM.
010196,000054: 11,6014           51764                           TS       SFAIL                                 #  SAVE CALLING Q FOR POSSIBLE FAILURE LOC.
010197,000055: 11,6015           03007                           TC       ALARM                                 
010198,000056: 11,6016           01102                           OCT      01102                                 
010199,000057: 11,6017           31765                           XCH      ERCOUNT                               #  ADD +1 TO ERCOUNT REGISTER EVERY TIME
010200,000058: 11,6020           64516                           AD       SCON1                                 #  THERE IS AN ERROR IN SELF-CHECK
010201,000059: 11,6021           31765                           XCH      ERCOUNT                               
010202,000060: 11,6022           03000                           TC       SMODECHK                              #  START    SELF-CHECK AGAIN
010203,000061: 
010204,000062: 11,6023           30001        -ZEROCHK           XCH      Q                                     
010205,000063: 11,6024           50115                           TS       QADRS                                 #  HOLDS ADDRESS THAT WAS IN Q REGISTER
010206,000064: 11,6025           30001                           XCH      Q                                     
010207,000065: 11,6026           10000                           CCS      A                                     
010208,000066: 11,6027           06011                           TC       ERRORS     -2                         
010209,000067: 11,6030           06011                           TC       ERRORS     -2                         
010210,000068: 11,6031           06011                           TC       ERRORS     -2                         

Page 266

010212,000070: 11,6032           00001                           TC       Q                                     
010213,000071: 
010214,000072: 
010215,000073: 
010216,000074: 11,6033           40000                           CS       A                                     
010217,000075: 11,6034           30001        -ONECHK            XCH      Q                                     
010218,000076: 11,6035           50115                           TS       QADRS                                 #  HOLDS ADDRESS THAT WAS IN Q REGISTER
010219,000077: 11,6036           30001                           XCH      Q                                     
010220,000078: 11,6037           10000                           CCS      A                                     
010221,000079: 11,6040           06011                           TC       ERRORS     -2                         
010222,000080: 11,6041           06011                           TC       ERRORS     -2                         
010223,000081: 11,6042           10000                           CCS      A                                     
010224,000082: 11,6043           06011                           TC       ERRORS     -2                         
010225,000083: 11,6044           00001                           TC       Q                                     
010226,000084: 
010227,000085: 
010228,000086:                                                                                                  #  CHECKS MOST CCS PULSES
010229,000087: 11,6045           20016        CCSCHK             RELINT                                         #  COMES HERE FROM INHIBIT LOOP AT SMODECHK
010230,000088: 11,6046           44515                           CS       SCON2                                 #  -2
010231,000089: 11,6047           10000                           CCS      A                                     #  C(A) = -2
010232,000090: 11,6050           06013                           TC       ERRORS                                
010233,000091: 11,6051           06013                           TC       ERRORS                                
010234,000092: 11,6052           06054                           TC       +2                                    
010235,000093: 11,6053           06013                           TC       ERRORS                                
010236,000094: 11,6054           10000                           CCS      A                                     #  C(A) = +1, RESULT OF CCS -NUMBER
010237,000095: 11,6055           06061                           TC       +4                                    
010238,000096: 11,6056           06013                           TC       ERRORS                                
010239,000097: 11,6057           06013                           TC       ERRORS                                
010240,000098: 11,6060           06013                           TC       ERRORS                                
010241,000099: 11,6061           10000                           CCS      A                                     #  C(A) = +0, RESULT OF CCS + NUMBER
010242,000100: 11,6062           06013                           TC       ERRORS                                
010243,000101: 11,6063           06066                           TC       +3                                    
010244,000102: 11,6064           06013                           TC       ERRORS                                
010245,000103: 11,6065           06013                           TC       ERRORS                                
010246,000104: 11,6066           40000                           CS       A                                     
010247,000105: 11,6067           10000                           CCS      A                                     #  C(A) = -0, RESULT OF CCS +0
010248,000106: 11,6070           06013                           TC       ERRORS                                
010249,000107: 11,6071           06013                           TC       ERRORS                                
010250,000108: 11,6072           06013                           TC       ERRORS                                
010251,000109: 11,6073           10000                           CCS      A                                     #  RESULT OF CCS -0
010252,000110: 11,6074           06013                           TC       ERRORS                                
010253,000111: 11,6075           06100                           TC       +3                                    
010254,000112: 11,6076           06013                           TC       ERRORS                                
010255,000113: 11,6077           06013                           TC       ERRORS                                
010256,000114:                                                                                                  #  SPECIFICALLY CHECKS RSC PULSE OF TC INSTRUCTION (ALSO MOST OF TC
010257,000115:                                                                                                  #  PULSES)
010258,000116: 11,6100           06102                           TC       +2                                    
010259,000117: 11,6101           06103                           TC       +2                                    #  NEXT SUBROUTINE
010260,000118: 11,6102           00001                           TC       Q                                     

Page 267

010262,000120: 
010263,000121:                                                                                                  #  CHECKS WP, GP, TP - WP2, RP2 - RG, WP, OF CCS1
010264,000122:                                                                                                  #  CHECKS RB, WG PULSES (READ BACK INTO ERASABLE)
010265,000123: 11,6103           35777        PTY+ERAS           CAF      5777                                  #  47777
010266,000124: 11,6104           51771                           TS       SKEEP1                                
010267,000125: 11,6105           71771                           MASK     SKEEP1                                
010268,000126: 11,6106           31771                           XCH      SKEEP1                                
010269,000127: 11,6107           61771                           AD       SKEEP1                                
010270,000128: 11,6110           25777                           INDEX    5777                                  
010271,000129: 11,6111           41771                           4        SKEEP1                                #  MP SKEEP1
010272,000130: 11,6112           25777                           INDEX    5777                                  
010273,000131: 11,6113           51771                           5        SKEEP1                                #  DV SKEEP1
010274,000132: 11,6114           41771                           CS       SKEEP1                                
010275,000133: 11,6115           51772                           TS       SKEEP2                                #  30000
010276,000134: 11,6116           21771                           INDEX    SKEEP1                                #  TROUBLE IF C(SKEEP1) NOT 47777
010277,000135: 11,6117           61772                           6        SKEEP2                                #  SU SKEEP2, C(A) = -0
010278,000136: 11,6120           51772                           TS       SKEEP2                                #  -0
010279,000137: 11,6121           11772                           CCS      SKEEP2                                
010280,000138: 11,6122           06013                           TC       ERRORS                                
010281,000139: 11,6123           06013                           TC       ERRORS                                
010282,000140: 11,6124           06013                           TC       ERRORS                                
010283,000141: 11,6125           11772                           CCS      SKEEP2                                
010284,000142: 11,6126           06013                           TC       ERRORS                                
010285,000143: 11,6127           06013                           TC       ERRORS                                
010286,000144: 11,6130           06013                           TC       ERRORS                                
010287,000145:                                                                                                  #  START ERASABLE INSTRUCTION CHECK
010288,000146: 11,6131           36147                           CAF      EINST1                                
010289,000147: 11,6132           51771                           TS       SKEEP1                                
010290,000148: 11,6133           36150                           CAF      EINST2                                
010291,000149: 11,6134           51772                           TS       SKEEP2                                
010292,000150: 11,6135           36151                           CAF      EINST3                                
010293,000151: 11,6136           51773                           TS       SKEEP3                                
010294,000152: 11,6137           36152                           CAF      EINST4                                
010295,000153: 11,6140           51774                           TS       SKEEP4                                
010296,000154: 11,6141           36153                           CAF      EINST5                                
010297,000155: 11,6142           51775                           TS       SKEEP5                                
010298,000156: 11,6143           36154                           CAF      EINST6                                
010299,000157: 11,6144           51776                           TS       SKEEP6                                
010300,000158: 11,6145           34501                           CAF      SCON1/2                               
010301,000159: 11,6146           01771                           TC       SKEEP1                                
010302,000160: 11,6147           25777        EINST1             INDEX    5777                                  
010303,000161: 11,6150           44515        EINST2             4        SCON2                                 #  MP, C(A) = +1, THEN +0
010304,000162: 11,6151           60000        EINST3             AD       A                                     #  CHECKS ST2 PARITY
010305,000163: 11,6152           10000        EINST4             CCS      A                                     
010306,000164: 11,6153           01771        EINST5             TC       SKEEP1                                
010307,000165: 11,6154           06155        EINST6             TC       +1                                    #  NEXT SUBROUTINE
010308,000166: 
010309,000167: 
010310,000168: 
010311,000169:                                                                                                  #  CHECKS RSC, WSC PULSES
010312,000170:                                                                                                  #  NO WSC PULSE IN MASK INSTRUCTION
010313,000171: 11,6155           34510        SCCHK              CAF      SCON64                                #  00100

Page 268

010315,000173: 11,6156           30003                           XCH      LP                                    #  00040
010316,000174: 11,6157           30003                           XCH      LP                                    
010317,000175: 11,6160           50003                           TS       LP                                    #  00020
010318,000176: 11,6161           60003                           AD       LP                                    #  00010
010319,000177: 11,6162           20003                           INDEX    LP                                    #  00004
010320,000178: 11,6163           25767                           2        5767                                  #  INDEX 5777
010321,000179: 11,6164           60003                           6        0003                                  #  SU LP, 00002
010322,000180:                                                                                                  #  NEXT 4 INSTRUCTIONS CHECK RSC PULSE IN MASK INSTRUCTION
010323,000181: 11,6165           40003                           CS       LP                                    #  C(A) = -2, C(LP) = +1
010324,000182: 11,6166           70003                           MASK     LP                                    #  C(A) = +1, C(LP) = +1
010325,000183: 11,6167           40000                           CS       A                                     
010326,000184: 11,6170           06034                           TC       -ONECHK                               
010327,000185: 11,6171           10003                           CCS      LP                                    
010328,000186: 11,6172           06176                           TC       +4                                    
010329,000187: 11,6173           06013                           TC       ERRORS                                
010330,000188: 11,6174           06013                           TC       ERRORS                                
010331,000189: 11,6175           06013                           TC       ERRORS                                
010332,000190: 11,6176           10003                           CCS      LP                                    
010333,000191: 11,6177           06013                           TC       ERRORS                                
010334,000192: 11,6200           06013                           TC       ERRORS                                
010335,000193: 11,6201           06203                           TC       +2                                    
010336,000194: 11,6202           06013                           TC       ERRORS                                
010337,000195: 11,6203           10003                           CCS      LP                                    
010338,000196: 11,6204           06013                           TC       ERRORS                                
010339,000197: 11,6205           06210                           TC       +3                                    #  NEXT SUBROUTINE
010340,000198: 11,6206           06013                           TC       ERRORS                                
010341,000199: 11,6207           06013                           TC       ERRORS                                
010342,000200:                                                                                                  #  CHECKS MOST OF MP PULSES
010343,000201: 11,6210           34514        MPCHK              CAF      SCON4                                 
010344,000202: 11,6211           50003                           TS       LP                                    
010345,000203: 11,6212           34476        MP++               CAF      SCON+MAX                              
010346,000204: 11,6213           25777                           INDEX    5777                                  
010347,000205: 11,6214           40003                           4        LP                                    #  C(A) = +1, CHECKS RSC PULSE
010348,000206: 11,6215           60003                           AD       LP                                    #  C(LP) = +37776
010349,000207: 11,6216           51771                           TS       SKEEP1                                #  37777
010350,000208: 11,6217           34476        MP+-               CAF      SCON+MAX                              
010351,000209: 11,6220           25777                           INDEX    5777                                  
010352,000210: 11,6221           44340                           4        SCON-2                                
010353,000211: 11,6222           60003                           AD       LP                                    #  C(LP) = -37776
010354,000212: 11,6223           61771                           AD       SKEEP1                                
010355,000213: 11,6224           06023                           TC       -ZEROCHK                              
010356,000214: 11,6225           44476        MP--               CS       SCON+MAX                              
010357,000215: 11,6226           25777                           INDEX    5777                                  
010358,000216: 11,6227           44340                           4        SCON-2                                #  C(A) = +1
010359,000217: 11,6230           60003                           AD       LP                                    #  C(LP) = +37776
010360,000218: 11,6231           51771                           TS       SKEEP1                                #  37777
010361,000219: 11,6232           44476        MP-+               CS       SCON+MAX                              
010362,000220: 11,6233           25777                           INDEX    5777                                  
010363,000221: 11,6234           44515                           4        SCON2                                 #  C(A) = -1
010364,000222: 11,6235           60003                           AD       LP                                    #  C(LP) = -37776

Page 269

010366,000224: 11,6236           61771                           AD       SKEEP1                                
010367,000225: 11,6237           06023                           TC       -ZEROCHK                              
010368,000226: 
010369,000227: 
010370,000228:                                                                                                  #  CHECKS MOST OF SU PULSES
010371,000229: 11,6240           34476        SUCHK              CAF      SCON+MAX                              
010372,000230: 11,6241           25777                           INDEX    5777                                  
010373,000231: 11,6242           66421                           6        SCONSU                                #  SU 37776, C(A) = +1
010374,000232: 11,6243           06033                           TC       -ONECHK    -1                         
010375,000233: 
010376,000234:                                                                                                  #  CHECKS MOST OF DV PULSES (ALL EXCEPT WP, GP, TP)
010377,000235:                                                                                                  #  DIVIDE USES ST2
010378,000236:                                                                                                  #  ++ AND --, C(A) = 25252, C(Q) = 67777, C(LP) = +1
010379,000237:                                                                                                  #  +- AND -+ , C(A) = 52525, C(Q) = 67777, C(LP) = 40000 AND 40001
010380,000238: 11,6244           36557        DVCHK              CAF      SCON3/8                               
010381,000239: 11,6245           50001                           TS       Q                                     
010382,000240: 11,6246           34502        DV++               CAF      SCON1/4                               
010383,000241: 11,6247           25777                           INDEX    5777                                  
010384,000242: 11,6250           50001                           5        Q                                     #  C(A) = 25252, CHECKS RSC PULSE
010385,000243: 11,6251           51771                           TS       SKEEP1                                
010386,000244: 11,6252           30003                           XCH      LP                                    
010387,000245: 11,6253           51772                           TS       SKEEP2                                
010388,000246: 11,6254           40001        DV+-               CS       Q                                     #  +1/4
010389,000247: 11,6255           25777                           INDEX    5777                                  
010390,000248: 11,6256           56560                           5        SCON-3/8                              #  C(A) = 52525
010391,000249: 11,6257           61771                           AD       SKEEP1                                #  C(A) = -0
010392,000250: 11,6260           51775                           TS       SKEEP5                                #  SHOULD BE -0
010393,000251: 11,6261           30003                           XCH      LP                                    
010394,000252: 11,6262           51773                           TS       SKEEP3                                
010395,000253: 11,6263           30001        DV--               XCH      Q                                     #  -1/4
010396,000254: 11,6264           25777                           INDEX    5777                                  
010397,000255: 11,6265           56560                           5        SCON-3/8                              #  C(A) = 25252
010398,000256: 11,6266           51771                           TS       SKEEP1                                
010399,000257: 11,6267           30003                           XCH      LP                                    
010400,000258: 11,6270           51774                           TS       SKEEP4                                
010401,000259: 11,6271           30001        DV-+               XCH      Q                                     #  -1/4
010402,000260: 11,6272           25777                           INDEX    5777                                  
010403,000261: 11,6273           56557                           5        SCON3/8                               
010404,000262: 11,6274           61771                           AD       SKEEP1                                #  C(A) = -0
010405,000263: 11,6275           51771                           TS       SKEEP1                                
010406,000264: 11,6276           40003                           CS       LP                                    #  C(A) = 37776
010407,000265: 11,6277           61771                           AD       SKEEP1                                #  C(A) = 37776
010408,000266: 11,6300           61772                           AD       SKEEP2                                #  C(A) = 37777
010409,000267: 11,6301           61773                           AD       SKEEP3                                #  C(A) = -0
010410,000268: 11,6302           61774                           AD       SKEEP4                                #  C(A) = +1
010411,000269: 11,6303           61775                           AD       SKEEP5                                #  C(A) = +1
010412,000270: 11,6304           06033                           TC       -ONECHK    -1                         
010413,000271: 
010414,000272: 
010415,000273:                                                                                                  #  CHECKS MOST TS PULSES

Page 270

010417,000275:                                                                                                  #  CHECKS ALL OF PINC AND MINC PULSES EXCEPT WOVR
010418,000276: 11,6305           34516        TS+-CHK            CAF      SCON1                                 
010419,000277: 11,6306           50034                           TS       OVCTR                                 
010420,000278: 11,6307           64476                           AD       SCON+MAX                              #  C(A) = + WITH OVERFLOW
010421,000279: 11,6310           51771                           TS       SKEEP1                                
010422,000280: 11,6311           06013                           TC       ERRORS                                
010423,000281: 11,6312           61771                           AD       SKEEP1                                #  C(A) = +1
010424,000282: 11,6313           60034                           AD       OVCTR                                 #  C(A) = +3
010425,000283: 11,6314           50034                           TS       OVCTR                                 
010426,000284: 11,6315           40000                           CS       A                                     #  C(A) = 77774
010427,000285: 11,6316           25777                           INDEX    5777                                  
010428,000286: 11,6317           66376                           6        SCONTS                                #  C(A) =  -0 WITH UNDERFLOW
010429,000287: 11,6320           51771                           TS       SKEEP1                                
010430,000288: 11,6321           06013                           TC       ERRORS                                
010431,000289: 11,6322           61771                           AD       SKEEP1                                #  C(A) = -1
010432,000290: 11,6323           60034                           AD       OVCTR                                 #  C(A) = -1+2
010433,000291: 11,6324           06033                           TC       -ONECHK    -1                         
010434,000292: 
010435,000293:                                                                                                  #  NOT POSSIBLE TO CHECK WOVI PULSE IN NXI1
010436,000294:                                                                                                  #  START WOVI PULSE CHECK AND INHINT RELINT CHECK
010437,000295: 11,6325           20017        RUPTCHK            INDEX    INHINT                                
010438,000296: 11,6326           35501                           CAF      SCON0                                 
010439,000297: 11,6327           50024                           TS       0024                                  #  ZRUPT
010440,000298: 11,6330           20016                           INDEX    RELINT                                
010441,000299: 11,6331           60036                           AD       TIME1                                 
010442,000300: 11,6332           51771                           TS       SKEEP1                                
010443,000301: 11,6333           41771        TENMS              CS       SKEEP1                                #  CHECK FOR NEXT PULSE TP TIME1
010444,000302: 11,6334           60036                           AD       TIME1                                 
010445,000303: 11,6335           10000                           CCS      A                                     
010446,000304: 11,6336           10000                           CCS      A                                     
010447,000305: 11,6337           06325                           TC       RUPTCHK                               #  START AGAIN, TIMING IS OFF DUE TO RUPT
010448,000306: 11,6340           06342                           TC       +2                                    #  10 MS PULSE HAS ARRIVED AT TIME1
010449,000307: 11,6341           06333                           TC       TENMS                                 
010450,000308: 11,6342           36001                           CAF      TM1WAIT                               #  START 7 TO 8 MS WAIT
010451,000309: 11,6343           10000        7-8WAIT            CCS      A                                     
010452,000310: 11,6344           06343                           TC       7-8WAIT                               
010453,000311: 11,6345           20017                           INDEX    INHINT                                
010454,000312: 11,6346           10024                           CCS      0024                                  #  ZRUPT
010455,000313: 11,6347           06325                           TC       RUPTCHK                               #  THERE WAS AN INTERRUPT, START AGAIN
010456,000314: 11,6350           34516                           CAF      SCON1                                 
010457,000315: 11,6351           02173                           TC       WAITLIST                              
010458,000316: 11,6352           22401                           CADR     TSKADRS                               
010459,000317: 11,6353           34476                           XCH      SCON+MAX                              
010460,000318: 11,6354           66000                           AD       OVCON                                 #  WILL STAY IN OVERFLOW, UNDERFLOW FOR
010461,000319: 11,6355           20016                           INDEX    RELINT                                #  APPROXIMATELY 3 MS
010462,000320: 11,6356           10000        WAIT1              CCS      A                                     
010463,000321: 11,6357           64515                           AD       SCON2                                 
010464,000322: 11,6360           06362                           TC       +2                                    
010465,000323: 11,6361           06374                           TC       WOVIRPT                               
010466,000324: 11,6362           25777                           INDEX    5777                                  

Page 271

010468,000326: 11,6363           65504                           6        SCONMAX                               #  SU -0
010469,000327: 11,6364           30000                           XCH      A                                     
010470,000328: 11,6365           25501                           INDEX    SCON0                                 
010471,000329: 11,6366           40000                           CS       A                                     
010472,000330: 11,6367           70000                           MASK     A                                     
010473,000331: 11,6370           40000                           CS       A                                     
010474,000332: 11,6371           50000                           TS       A                                     
010475,000333: 11,6372           06013                           TC       ERRORS                                
010476,000334: 11,6373           06356                           TC       WAIT1                                 
010477,000335: 11,6374           20017        WOVIRPT            INDEX    INHINT                                
010478,000336: 11,6375           51771                           TS       SKEEP1                                
010479,000337: 11,6376           37775        SCONTS             OCTAL    37775                                 
010480,000338: 11,6377           20016                           INDEX    RELINT                                
010481,000339:                                                                                                  #  INTERRUPT SHOULD APPEAR BEFORE NEXT INSTRUCTION
010482,000340: 11,6400           06410                           TC       SOPTION1                              #  END OF PULSES CHECK
010483,000341: 11,6401           40024        TSKADRS            CS       0024                                  #  C(ZRUPT) = ADDRESS OF TSKADRS
010484,000342: 11,6402           66002                           AD       ZRUPTCON                              
010485,000343: 11,6403           06023                           TC       -ZEROCHK                              
010486,000344: 11,6404           31766                           XCH      SCOUNT                                #  ADD +1 TO SCOUNT REGISTER AT THIS
010487,000345: 11,6405           64516                           AD       SCON1                                 #  POINT OF SELF-CHECK.
010488,000346: 11,6406           31766                           XCH      SCOUNT                                
010489,000347: 11,6407           02256                           TC       TASKOVER                              
010490,000348: 
010491,000349: 
010492,000350: 11,6410           11762        SOPTION1           CCS      SMODE                                 #  3 OPTIONS OF SELF-CHECK
010493,000351: 11,6411           03000                           TC       SMODECHK                              #  END OF PULSES ONLY CHECK
010494,000352: 11,6412           03000                           TC       SMODECHK                              
010495,000353: 11,6413           06414                           TC       +1                                    #  CONTINUE IF C(SMODE) IS A NEG. NUMB5R
010496,000354: 
010497,000355:                                                                                                  #  COUNTS DOWN 15 BIT NUMBER (APPROXIMATELY 10 SECONDS)
010498,000356: 11,6414           44476        COUNTCHK           CS       SCON+MAX                              
010499,000357: 11,6415           51775                           TS       SKEEP5                                
010500,000358: 11,6416           50001        COUNTS             TS       Q                                     
010501,000359: 11,6417           10001                           CCS      Q                                     
010502,000360: 11,6420           06434                           TC       -NMBR                                 
010503,000361: 11,6421           37776        SCONSU             OCTAL    37776                                 
010504,000362: 11,6422           06424                           TC       +2                                    
010505,000363: 11,6423           06443                           TC       OFCOUNT                               
010506,000364: 11,6424           61775                           AD       SKEEP5                                
010507,000365: 11,6425           06034                           TC       -ONECHK                               
010508,000366: 11,6426           10215                           CCS      NEWJOB                                
010509,000367: 11,6427           07377                           TC       DUMEXIT                               
010510,000368: 11,6430           41775                           CS       SKEEP5                                
010511,000369: 11,6431           65504                           AD       SCONMAX                               #  -0
010512,000370: 11,6432           51774                           TS       SKEEP4                                
010513,000371: 11,6433           06416                           TC       COUNTS                                
010514,000372: 11,6434           40000        -NMBR              CS       A                                     
010515,000373: 11,6435           51775                           TS       SKEEP5                                
010516,000374: 11,6436           61774                           AD       SKEEP4                                
010517,000375: 11,6437           06033                           TC       -ONECHK    -1                         

Page 272

010519,000377: 11,6440           41775                           CS       SKEEP5                                
010520,000378: 11,6441           40000                           CS       A                                     
010521,000379: 11,6442           06416                           TC       COUNTS                                
010522,000380: 
010523,000381:                                                                                                  #  COUNTS DOWN OVERFLOW NUMBER (APPROXIMATELY 3.5 SECONDS)
010524,000382: 11,6443           51777        OFCOUNT            TS       SKEEP7                                #  +0
010525,000383: 11,6444           34476                           CAF      SCON+MAX                              
010526,000384: 11,6445           60000                           AD       A                                     
010527,000385: 11,6446           64516        COUNTSOF           AD       SCON1                                 
010528,000386: 11,6447           20017                           INHINT                                         
010529,000387: 11,6450           30001                           XCH      Q                                     
010530,000388: 11,6451           10001                           CCS      Q                                     
010531,000389: 11,6452           51776                           TS       SKEEP6                                
010532,000390: 11,6453           06466                           TC       ENDOF                                 
010533,000391: 11,6454           20016                           RELINT                                         
010534,000392: 11,6455           61777                           AD       SKEEP7                                
010535,000393: 11,6456           51777                           TS       SKEEP7                                
010536,000394: 11,6457           06461                           TC       +2                                    
010537,000395: 11,6460           06013                           TC       ERRORS                                
010538,000396: 11,6461           10215                           CCS      NEWJOB                                
010539,000397: 11,6462           07377                           TC       DUMEXIT                               
010540,000398: 11,6463           34476                           CAF      SCON+MAX                              
010541,000399: 11,6464           61776                           AD       SKEEP6                                
010542,000400: 11,6465           06446                           TC       COUNTSOF                              
010543,000401: 11,6466           40000        ENDOF              CS       A                                     
010544,000402: 11,6467           20016                           RELINT                                         
010545,000403: 11,6470           61777                           AD       SKEEP7                                
010546,000404: 11,6471           06023                           TC       -ZEROCHK                              
010547,000405: 
010548,000406:                                                                                                  #  REGISTER 1777 ALWAYS HOLDS LOWEST (X-1) ADDRESS JUST CHECKED
010549,000407:                                                                                                  #  REGISTER 1776 HOLDS BEFORE CONTENTS OF X
010550,000408:                                                                                                  #  REGISTER 1775 HOLDS BEFORE CONTENTS OF X-1
010551,000409:                                                                                                  #  REGISTER 1774 IS STARTING ADDRESS
010552,000410:                                                                                                  #  PUTS OWN ADDRESS IN REGISTERS OCT 1774 THROUGH OCT 60 (APPROX.  1.2 SEC)
010553,000411: 11,6472           36004        ERASCHK            CAF      CONERAS2                              #  01774
010554,000412: 11,6473           51777                           TS       1777                                  
010555,000413: 11,6474           20016        ERASLOOP           RELINT                                         
010556,000414: 11,6475           11777                           CCS      1777                                  
010557,000415: 11,6476           51777                           TS       1777                                  
010558,000416: 11,6477           20017                           INHINT                                         
010559,000417: 11,6500           21777                           NDX      1777                                  
010560,000418: 11,6501           40001                           CS       0001                                  
010561,000419: 11,6502           40000                           CS       A                                     
010562,000420: 11,6503           51776                           TS       1776                                  #  PUT C(X) IN 1776
010563,000421: 11,6504           21777                           NDX      1777                                  
010564,000422: 11,6505           40000                           CS       0000                                  
010565,000423: 11,6506           40000                           CS       A                                     
010566,000424: 11,6507           51775                           TS       1775                                  #  PUT C(X-1) IN 1775
010567,000425: 11,6510           41777                           CS       1777                                  
010568,000426: 11,6511           40000                           CS       A                                     

Page 273

010570,000428: 11,6512           51760                           TS       ERESTORE                              #  IF RESTART, RESTORE C(X) AND C(X-1)
010571,000429: 11,6513           21777                           NDX      1777                                  
010572,000430: 11,6514           50000                           TS       0000                                  #  PUT OWN ADDRESS IN X-1
010573,000431: 11,6515           64516                           AD       SCON1                                 
010574,000432: 11,6516           21777                           NDX      1777                                  
010575,000433: 11,6517           50001                           TS       0001                                  #  PUT OWN ADDRESS IN X
010576,000434: 11,6520           21777                           INDEX    1777                                  
010577,000435: 11,6521           40001                           CS       0001                                  
010578,000436: 11,6522           21777                           INDEX    1777                                  
010579,000437: 11,6523           60000                           AD       0000                                  
010580,000438: 11,6524           06034                           TC       -ONECHK                               
010581,000439: 11,6525           41777        COMPLMNT           CS       1777                                  
010582,000440: 11,6526           21777                           INDEX    1777                                  
010583,000441: 11,6527           50000                           TS       0000                                  #  PUTS COMPLEMENT OF ADDRESS IN X-1
010584,000442: 11,6530           64335                           AD       SCON-1                                
010585,000443: 11,6531           21777                           INDEX    1777                                  
010586,000444: 11,6532           50001                           TS       0001                                  #  PUTS COMPLEMENT OF ADDRESS IN X
010587,000445: 11,6533           21777                           INDEX    1777                                  
010588,000446: 11,6534           40000                           CS       0000                                  
010589,000447: 11,6535           21777                           INDEX    1777                                  
010590,000448: 11,6536           60001                           AD       0001                                  
010591,000449: 11,6537           06034                           TC       -ONECHK                               
010592,000450: 11,6540           41776                           CS       1776                                  
010593,000451: 11,6541           40000                           CS       A                                     
010594,000452: 11,6542           21777                           NDX      1777                                  
010595,000453: 11,6543           50001                           TS       0001                                  #  RESTORE C(X)
010596,000454: 11,6544           41775                           CS       1775                                  
010597,000455: 11,6545           40000                           CS       A                                     
010598,000456: 11,6546           21777                           NDX      1777                                  
010599,000457: 11,6547           50000                           TS       0000                                  #  RESTORE C(X-1)
010600,000458: 11,6550           45504                           CS       SCONMAX                               
010601,000459: 11,6551           51760                           TS       ERESTORE                              #  IF RESTART, DO NOT RESTORE C(X), C(X-1).
010602,000460: 11,6552           10215                           CCS      NEWJOB                                
010603,000461: 11,6553           07377                           TC       DUMEXIT                               
010604,000462: 11,6554           41777        ENDERAS            CS       1777                                  
010605,000463: 11,6555           66003                           AD       CONERAS1                              #  +60 OCT
010606,000464: 11,6556           10000                           CCS      A                                     
010607,000465: 11,6557           14000        SCON3/8            OCTAL    14000                                 
010608,000466: 11,6560           63777        SCON-3/8           OCTAL    63777                                 
010609,000467: 11,6561           06474                           TC       ERASLOOP                              
010610,000468: 11,6562           20016                           INDEX    RELINT                                
010611,000469: 
010612,000470:                                                                                                  #  CS ALL REGISTERS FROM OCT 57 THROUGH OCT 20
010613,000471:                                                                                                  #  ALL COUNTERS, PLUS 4 SPARES, PLUS 4 RUPT REGISTERS.
010614,000472:                                                                                                  #  PLUS CYCLE AND SHIFT REGISTERS
010615,000473: 11,6563           33220        CNTRCHK            CAF      LOW5                                  
010616,000474: 11,6564           51771        CNTRLOOP           TS       SKEEP1                                
010617,000475: 11,6565           64512                           AD       CONCNTR1                              #  +20 OCT
010618,000476: 11,6566           20000                           INDEX    A                                     
010619,000477: 11,6567           40000                           CS       0000                                  

Page 274

010621,000479: 11,6570           11771                           CCS      SKEEP1                                
010622,000480: 11,6571           06564                           TC       CNTRLOOP                              
010623,000481: 
010624,000482: 11,6572           36005        CYCLSHFT           CAF      CONC+S1                               
010625,000483: 11,6573           50020                           TS       CYR                                   #  C(CYR) = 12525
010626,000484: 11,6574           50022                           TS       CYL                                   #  C(CYL) = 52524
010627,000485: 11,6575           50021                           TS       SR                                    #  C(SR) = 12525
010628,000486: 11,6576           50023                           TS       SL                                    #  C(SL) = 12524
010629,000487: 11,6577           60020                           AD       CYR                                   
010630,000488: 11,6600           60022                           AD       CYL                                   
010631,000489: 11,6601           60021                           AD       SR                                    
010632,000490: 11,6602           60023                           AD       SL                                    
010633,000491: 11,6603           64664                           AD       CONC+S2                               #  C(A) = -1
010634,000492: 11,6604           06034                           TC       -ONECHK                               
010635,000493: 
010636,000494: 11,6605           31767                           XCH      SCOUNT     +1                         #  ADD +1 TO SCOUNT +1 REGISTER AT THIS
010637,000495: 11,6606           64516                           AD       SCON1                                 #  POINT OF SELF-CHECK
010638,000496: 11,6607           31767                           XCH      SCOUNT     +1                         
010639,000497: 11,6610           11762        SOPTION2           CCS      SMODE                                 #  TWO OPTIONS LEFT
010640,000498: 11,6611           06414                           TC       COUNTCHK                              
010641,000499: 11,6612           03000                           TC       SMODECHK                              
010642,000500: 11,6613           03000                           TC       SMODECHK                              #  END OF PULSES + SC + ERASABLE CHECK
010643,000501: 11,6614           06646                           TC       ROPECHK                               #  CONTINUE WITH SELF-CHECK
010644,000502: 
010645,000503:                                                                                                  #  THE BNKCON CONSTANTS (BANK NUMBERS) ARE USED BY ROPECHK AND SHOWSUM
010646,000504:                                                                                                  #  THEY MUST BE IN THE FOLLOWING TABLE FORM
010647,000505: 11,6615           02000        BNKCON1            OCTAL    02000                                 
010648,000506: 11,6616           04000        BNKCON2            OCTAL    04000                                 
010649,000507: 11,6617           06000        BNKCON3            OCTAL    06000                                 
010650,000508: 11,6620           10000        BNKCON4            OCTAL    10000                                 
010651,000509: 11,6621           12000        BNKCON5            OCTAL    12000                                 
010652,000510: 11,6622           14000        BNKCON6            OCTAL    14000                                 
010653,000511: 11,6623           16000        BNKCON7            OCTAL    16000                                 
010654,000512: 11,6624           20000        BNKCON10           OCTAL    20000                                 
010655,000513: 11,6625           22000        BNKCON11           OCTAL    22000                                 
010656,000514: 11,6626           24000        BNKCON12           OCTAL    24000                                 
010657,000515: 11,6627           26000        BNKCON13           OCTAL    26000                                 
010658,000516: 11,6630           30000        BNKCON14           OCTAL    30000                                 
010659,000517: 11,6631           42000        BNKCON21           OCTAL    42000                                 
010660,000518: 11,6632           44000        BNKCON22           OCTAL    44000                                 
010661,000519: 11,6633           46000        BNKCON23           OCTAL    46000                                 
010662,000520: 11,6634           50000        BNKCON24           OCTAL    50000                                 
010663,000521: 11,6635           52000        BNKCON25           OCTAL    52000                                 
010664,000522: 11,6636           54000        BNKCON26           OCTAL    54000                                 
010665,000523: 11,6637           56000        BNKCON27           OCTAL    56000                                 
010666,000524: 11,6640           60000        BNKCON30           OCTAL    60000                                 
010667,000525: 11,6641           62000        BNKCON31           OCTAL    62000                                 
010668,000526: 11,6642           64000        BNKCON32           OCTAL    64000                                 
010669,000527: 11,6643           66000        BNKCON33           OCTAL    66000                                 
010670,000528: 11,6644           70000        BNKCON34           OCTAL    70000                                 

Page 275

010672,000530: 11,6645           00000        BANKSTOP           OCTAL    00000                                 #  PUT +0 AFTER LAST BANK TO BE CHECKED
010673,000531: 
010674,000532:                                                                                                  #  TAKES BETWEEN 17 AND 20 SECONDS FOR ROPECHK TO GO THROUGH ALL BANKS.
010675,000533:                                                                                                  #  INITIALIZE 2OPTIONS TO -1 TO PERFORM ROPECHK
010676,000534:                                                                                                  #  SKEEP1 HOLDS SUM
010677,000535:                                                                                                  #  SKEEP2 HOLDS PRESENT CONTENTS OF ADDRESS IN ROPCHEK AND SHOWSUM ROUTINES
010678,000536:                                                                                                  #  SKEEP2 HOLDS ACTUAL BANK NUMBER USED IN THE BANK REGISTER BUT CYCLED 5
010679,000537:                                                                                                  #  PLACES LEFT FOR DISPLAY IN SHOWSUM ROUTINE
010680,000538:                                                                                                  #  SKEEP3 HOLDS PRESENT ADDRESS (02000 TO 05777 IN FXFX BANKS)
010681,000539:                                                                                                  #                               (00000 TO 01777 IN FXSW BANKS)
010682,000540:                                                                                                  #  SKEEP3 HOLDS BUGGER WORD FOR DISPLAY IN SHOWSUM ROUTINE
010683,000541:                                                                                                  #  SKEEP4 HOLDS ADDRESS OF BANK NUMBER
010684,000542:                                                                                                  #  SKEEP5 COUNTS TWO SUCCESSIVE TC SELF WORDS
010685,000543:                                                                                                  #  SKEEP6 HOLDS END OF BANK NUMBERS
010686,000544:                                                                                                  #  SKEEP7 COUNTS DOWN FIXED FIXED BANKS
010687,000545: 11,6646           44516        ROPECHK            CS       SCON1                                 
010688,000546: 11,6647           51761                           TS       2OPTIONS                              
010689,000547: 11,6650           37023        FXFXCHK            CAF      FXCON1                                #  43776
010690,000548: 11,6651           51776                           TS       SKEEP6                                
010691,000549: 11,6652           36615                           CAF      BNKCON1                               #  02000
010692,000550: 11,6653           51773                           TS       SKEEP3                                
010693,000551: 11,6654           36766                           CAF      STBNKCON                              
010694,000552: 11,6655           51774                           TS       SKEEP4                                
010695,000553: 11,6656           34516                           CAF      SCON1                                 
010696,000554: 11,6657           51777                           TS       SKEEP7                                
010697,000555: 11,6660           35501        FXFXBNKS           CAF      SCON0                                 
010698,000556: 11,6661           51771                           TS       SKEEP1                                
010699,000557: 11,6662           34515                           CAF      SCON2                                 
010700,000558: 11,6663           51775                           TS       SKEEP5                                #  COUNTS DOWN TWO TC SELF WORDS
010701,000559: 11,6664           21773        FXADRS             INDEX    SKEEP3                                
010702,000560: 11,6665           30000                           CAF      0000                                  
010703,000561: 11,6666           06774                           TC       ADSUM                                 
010704,000562: 11,6667           06721                           TC       ADRSCHK                               
010705,000563: 
010706,000564: 11,6670           51777        BANK2              TS       SKEEP7                                
010707,000565: 11,6671           37024                           CAF      FXCON2                                #  45776
010708,000566: 11,6672           51776                           TS       SKEEP6                                
010709,000567: 11,6673           36616                           CAF      BNKCON2                               #  04000
010710,000568: 11,6674           51773                           TS       SKEEP3                                
010711,000569: 11,6675           06660                           TC       FXFXBNKS                              
010712,000570: 
010713,000571: 11,6676           34515        FXSWBNKS           CAF      SCON2                                 
010714,000572: 11,6677           51775                           TS       SKEEP5                                #  COUNTS DOWN TWO TC SELF WORDS
010715,000573: 11,6700           35501                           CAF      SCON0                                 
010716,000574: 11,6701           51771                           TS       SKEEP1                                
010717,000575: 11,6702           51773                           TS       SKEEP3                                
010718,000576: 11,6703           61773        SWADRS             AD       SKEEP3                                
010719,000577: 11,6704           21774                           INDEX    SKEEP4                                
010720,000578: 11,6705           60000                           AD       0000                                  
010721,000579: 11,6706           05730                           TC       DATACALL                              

Page 276

010723,000581: 11,6707           06774                           TC       ADSUM                                 
010724,000582: 11,6710           66617                           AD       BNKCON3                               #  06000
010725,000583: 11,6711           06721                           TC       ADRSCHK                               
010726,000584: 
010727,000585:                                                                                                  #  SUBROUTINES ADRS+1, ADRSCHK, OPTION, NXTBNK, ADSUM, AND BNKCHK ARE
010728,000586:                                                                                                  #  USED BY BOTH FXFX AND FXSW BANKS
010729,000587: 11,6712           31773        ADRS+1             XCH      SKEEP3                                
010730,000588: 11,6713           64516                           AD       SCON1                                 
010731,000589: 11,6714           51773                           TS       SKEEP3                                
010732,000590: 11,6715           11777                           CCS      SKEEP7                                
010733,000591: 11,6716           06664                           TC       FXADRS                                
010734,000592: 11,6717           06664                           TC       FXADRS                                
010735,000593: 11,6720           06703                           TC       SWADRS                                
010736,000594: 
010737,000595: 11,6721           10000        ADRSCHK            CCS      A                                     
010738,000596: 11,6722           06730                           TC       CONTINU                               
010739,000597: 11,6723           06730                           TC       CONTINU                               
010740,000598: 11,6724           06730                           TC       CONTINU                               
010741,000599: 11,6725           11775                           CCS      SKEEP5                                
010742,000600: 11,6726           51775                           TS       SKEEP5                                
010743,000601: 11,6727           06735                           TC       CONTINU    +5                         
010744,000602: 11,6730           11775        CONTINU            CCS      SKEEP5                                
010745,000603: 11,6731           06733                           TC       +2                                    
010746,000604: 11,6732           06743                           TC       SOPTION                               
010747,000605: 11,6733           34515                           CAF      SCON2                                 
010748,000606: 11,6734           51775                           TS       SKEEP5                                #  MAKES SURE TWO CONSECUTIVE TC SELF WORDS
010749,000607: 11,6735           10215                           CCS      NEWJOB                                
010750,000608: 11,6736           07377                           TC       DUMEXIT                               
010751,000609: 11,6737           41773                           CS       SKEEP3                                
010752,000610: 11,6740           61776                           AD       SKEEP6                                
010753,000611: 11,6741           50000                           TS       A                                     #  UNDERFLOW AT END OF BANK
010754,000612: 11,6742           06712                           TC       ADRS+1                                #  STAY IN SAME BANK
010755,000613: 
010756,000614: 11,6743           11761        SOPTION            CCS      2OPTIONS                              
010757,000615: 11,6744           07037                           TC       SDISPLAY                              
010758,000616: 11,6745           06750                           TC       NXTBNK                                
010759,000617: 11,6746           07005                           TC       BNKCHK                                
010760,000618: 11,6747           06034                           TC       -ONECHK                               
010761,000619: 
010762,000620: 11,6750           31774        NXTBNK             XCH      SKEEP4                                
010763,000621: 11,6751           64516                           AD       SCON1                                 
010764,000622: 11,6752           51774                           TS       SKEEP4                                
010765,000623: 11,6753           11777                           CCS      SKEEP7                                
010766,000624: 11,6754           06670                           TC       BANK2                                 
010767,000625: 11,6755           06756                           TC       +1                                    
010768,000626: 11,6756           44516                           CS       SCON1                                 
010769,000627: 11,6757           51777                           TS       SKEEP7                                
010770,000628: 11,6760           36772                           CAF      SWCON                                 #  41776
010771,000629: 11,6761           51776                           TS       SKEEP6                                
010772,000630: 11,6762           21774        ENDBANKS           INDEX    SKEEP4                                

Page 277

010774,000632: 11,6763           40000                           CS       0000                                  
010775,000633: 11,6764           10000                           CCS      A                                     
010776,000634: 11,6765           06676                           TC       FXSWBNKS                              
010777,000635: 11,6766           06615        STBNKCON           ADRES    BNKCON1                               #  CONSTANT. STARTING ADDRESS OF BANK LIST
010778,000636: 11,6767           06676                           TC       FXSWBNKS                              
010779,000637: 11,6770           11761                           CCS      2OPTIONS                              #  END OF FIXED MEMORY CHECKING
010780,000638: 11,6771           07025                           TC       SHOWSUM                               #  END OF SHOWSUM, START AGAIN
010781,000639: 11,6772           41776        SWCON              OCTAL    41776                                 #  CONSTANT
010782,000640: 11,6773           07102                           TC       1/2OPTN                               #  END OF BANK SUMCHECKING SUBROUTINE
010783,000641: 
010784,000642: 11,6774           51772        ADSUM              TS       SKEEP2                                
010785,000643: 11,6775           61771                           AD       SKEEP1                                
010786,000644: 11,6776           51771                           TS       SKEEP1                                
010787,000645: 11,6777           35501                           CAF      SCON0                                 
010788,000646: 11,7000           61771                           AD       SKEEP1                                
010789,000647: 11,7001           51771                           TS       SKEEP1                                
010790,000648: 11,7002           41772                           CS       SKEEP2                                
010791,000649: 11,7003           61773                           AD       SKEEP3                                
010792,000650: 11,7004           00001                           TC       Q                                     
010793,000651: 
010794,000652: 
010795,000653: 11,7005           30001        BNKCHK             XCH      Q                                     
010796,000654: 11,7006           50115                           TS       QADRS                                 
010797,000655: 11,7007           11771                           CCS      SKEEP1                                
010798,000656: 11,7010           07014                           TC       +4                                    
010799,000657: 11,7011           06013                           TC       ERRORS                                
010800,000658: 11,7012           07014                           TC       +2                                    
010801,000659: 11,7013           06013                           TC       ERRORS                                
010802,000660: 11,7014           51771                           TS       SKEEP1                                
010803,000661: 11,7015           21774                           INDEX    SKEEP4                                
010804,000662: 11,7016           30000                           CAF      0000                                  
010805,000663: 11,7017           03203                           TC       LEFT5                                 #  CYCLES LEFT 5 PLACES
010806,000664: 11,7020           40000                           CS       A                                     
010807,000665: 11,7021           61771                           AD       SKEEP1                                
010808,000666: 11,7022           00115                           TC       QADRS                                 
010809,000667: 11,7023           43776        FXCON1             OCTAL    43776                                 #  CONSTANT
010810,000668: 11,7024           45776        FXCON2             OCTAL    45776                                 #  CONSTANT
010811,000669: 
010812,000670:                                                                                                  #  INITIALIZE 2OPTIONS TO +1 TO PERFORM SHOWSUM 
010813,000671:                                                                                                  #  START OF ROUTINE THAT DISPLAYS SUM OF EACH BANK
010814,000672: 11,7025           34516        SHOWSUM            CAF      SCON1                                 
010815,000673: 11,7026           51761                           TS       2OPTIONS                              #  SHOWSUM OPTION
010816,000674: 11,7027           35501                           CAF      SCON0                                 
010817,000675: 11,7030           51762                           TS       SMODE                                 #  PUT SELF-CHECK TO SLEEP
010818,000676: 11,7031           20017                           INDEX    INHINT                                
010819,000677: 11,7032           34504                           CAF      PRIO2                                 
010820,000678: 11,7033           02052                           TC       NOVAC                                 
010821,000679: 11,7034           22650                           CADR     FXFXCHK                               
010822,000680: 11,7035           20016                           INDEX    RELINT                                
010823,000681: 11,7036           02124                           TC       ENDOFJOB                              

Page 278

010825,000683: 11,7037           21774        SDISPLAY           INDEX    SKEEP4                                
010826,000684: 11,7040           30000                           CAF      0000                                  
010827,000685: 11,7041           03203                           TC       LEFT5                                 #  CYCLES LEFT 5 PLACES
010828,000686: 11,7042           51772                           TS       SKEEP2                                #  HOLDS BANK NUMBER FOR DSKY DISPLAY
010829,000687: 11,7043           11777                           CCS      SKEEP7                                #  12 INSTRUCTIONS TO PUT BUGGER WORD
010830,000688: 11,7044           07054                           TC       FXFXWORD                              #  IN SKEEP3.
010831,000689: 11,7045           07054                           TC       FXFXWORD                              
010832,000690: 11,7046           41773                           CS       SKEEP3                                #  GETS FXSW BUGGER WORD
010833,000691: 11,7047           40000                           CS       A                                     
010834,000692: 11,7050           21774                           INDEX    SKEEP4                                
010835,000693: 11,7051           60000                           AD       0000                                  
010836,000694: 11,7052           05730                           TC       DATACALL                              
010837,000695: 11,7053           07056                           TC       +3                                    
010838,000696: 11,7054           21773        FXFXWORD           INDEX    SKEEP3                                #  GETS FXFX BUGGER WORD
010839,000697: 11,7055           30000                           CAF      0000                                  
010840,000698: 11,7056           51773                           TS       SKEEP3                                #  SKEEP3 NOW HOLDS BUGGER WORD
010841,000699: 11,7057           03302                           TC       GRABDSP                               
010842,000700: 11,7060           03310                           TC       PREGBSY                               
010843,000701: 11,7061           36006        NOKILL             CAF      SUMADRS                               
010844,000702: 11,7062           50117                           TS       MPAC       +2                         
010845,000703: 11,7063           36007                           CAF      VNCON                                 
010846,000704: 11,7064           03100                           TC       NVSUB                                 
010847,000705: 11,7065           07100                           TC       SBUSY                                 
010848,000706: 11,7066           05654                           TC       BANKCALL                              
010849,000707: 11,7067           14000                           CADR     FLASHON                               
010850,000708: 11,7070           03136                           TC       ENDIDLE                               
010851,000709: 11,7071           07074                           TC       +3                                    #  FINISHED WITH SHOWSUM
010852,000710: 11,7072           07076                           TC       SALLOW                                #  PROCEED TO NEXT BANK
010853,000711: 11,7073           07061                           TC       NOKILL                                #  SO CAN LOAD WITHOUT KILLING SHOWSUM.
010854,000712: 11,7074           03362                           TC       FREEDSP                               
010855,000713: 11,7075           02124                           TC       ENDOFJOB                              
010856,000714: 
010857,000715: 11,7076           03362        SALLOW             TC       FREEDSP                               #  ALLOWS ANOTHER JOB TO DISPLAY. LEAVES
010858,000716: 11,7077           06750                           TC       NXTBNK                                #  SUM IN DSKY FOR 10 SEC. AFTER PROC. VERB
010859,000717: 
010860,000718: 11,7100           36010        SBUSY              CAF      SCADR                                 
010861,000719: 11,7101           03320                           TC       NVSUBUSY                              
010862,000720: 
010863,000721: 11,7102           11762        1/2OPTN            CCS      SMODE                                 
010864,000722: 11,7103           07107                           TC       +4                                    #  STAY IN ROPECHK LOOP
010865,000723: 11,7104           07367                           TC       SOPTION3   -3                         
010866,000724: 11,7105           03000                           TC       SMODECHK                              #  SHOULD NOT COME HERE
010867,000725: 11,7106           07113                           TC       MPNMBRS                               #  CONTINUE WITH SELF-CHECK
010868,000726: 11,7107           31770                           XCH      SCOUNT     +2                         
010869,000727: 11,7110           64516                           AD       SCON1                                 
010870,000728: 11,7111           31770                           XCH      SCOUNT     +2                         
010871,000729: 11,7112           06646                           TC       ROPECHK                               
010872,000730: 
010873,000731:                                                                                                  #  MULTIPLY SUBROUTINES TAKE APPROXIMATELY 30 SECONDS
010874,000732:                                                                                                  #  (37777) X (37777 THROUGH 00001)

Page 279

010876,000734:                                                                                                  #  C(A) COUNTS DOWN. C(LP) COUNTS UP.
010877,000735: 11,7113           34476        MPNMBRS            CAF      SCON+MAX                              
010878,000736: 11,7114           51772                           TS       SKEEP2                                
010879,000737: 11,7115           34476                           CAF      SCON+MAX                              
010880,000738: 11,7116           25777                           EXTEND                                         
010881,000739: 11,7117           41772                           MP       SKEEP2                                
010882,000740: 11,7120           60003                           AD       LP                                    #  C(A) = 37777
010883,000741: 11,7121           40000                           CS       A                                     
010884,000742: 11,7122           64476                           AD       SCON+MAX                              
010885,000743: 11,7123           06023                           TC       -ZEROCHK                              
010886,000744: 11,7124           10215                           CCS      NEWJOB                                
010887,000745: 11,7125           07377                           TC       DUMEXIT                               
010888,000746: 11,7126           11772                           CCS      SKEEP2                                
010889,000747: 11,7127           51772                           TS       SKEEP2                                
010890,000748: 11,7130           11772                           CCS      SKEEP2                                
010891,000749: 11,7131           07115                           TC       MPNMBRS    +2                         
010892,000750:                                                                                                  #  (-1) X (37777 THROUGH 00001)
010893,000751: 11,7132           34476                           CAF      SCON+MAX                              
010894,000752: 11,7133           51772                           TS       SKEEP2                                
010895,000753: 11,7134           34335        MPHIGH1            CAF      SCON-1                                
010896,000754: 11,7135           25777                           EXTEND                                         
010897,000755: 11,7136           41772                           MP       SKEEP2                                #  C(A) = -0
010898,000756: 11,7137           60003                           AD       LP                                    
010899,000757: 11,7140           61772                           AD       SKEEP2                                
010900,000758: 11,7141           06023                           TC       -ZEROCHK                              
010901,000759: 11,7142           10215                           CCS      NEWJOB                                
010902,000760: 11,7143           07377                           TC       DUMEXIT                               
010903,000761: 11,7144           11772                           CCS      SKEEP2                                
010904,000762: 11,7145           51772                           TS       SKEEP2                                
010905,000763: 11,7146           11772                           CCS      SKEEP2                                
010906,000764: 11,7147           07134                           TC       MPHIGH1                               
010907,000765: 
010908,000766:                                                                                                  #  INTERCHANGE MULTIPLIER AND MULTIPLICAND
010909,000767:                                                                                                  #  (37777 THROUGH 00001) X (37777)
010910,000768:                                                                                                  #  C(A) COUNTS DOWN. C(LP) COUNTS UP.
010911,000769: 11,7150           34476                           CAF      SCON+MAX                              
010912,000770: 11,7151           51771                           TS       SKEEP1                                
010913,000771: 11,7152           41771        MPAGAIN            CS       SKEEP1                                
010914,000772: 11,7153           40000                           CS       A                                     
010915,000773: 11,7154           25777                           EXTEND                                         
010916,000774: 11,7155           44476                           MP       SCON+MAX                              
010917,000775: 11,7156           60003                           AD       LP                                    #  C(A) = 37777
010918,000776: 11,7157           40000                           CS       A                                     
010919,000777: 11,7160           64476                           AD       SCON+MAX                              
010920,000778: 11,7161           06023                           TC       -ZEROCHK                              
010921,000779: 11,7162           10215                           CCS      NEWJOB                                
010922,000780: 11,7163           07377                           TC       DUMEXIT                               
010923,000781: 11,7164           11771                           CCS      SKEEP1                                
010924,000782: 11,7165           51771                           TS       SKEEP1                                
010925,000783: 11,7166           11771                           CCS      SKEEP1                                

Page 280

010927,000785: 11,7167           07152                           TC       MPAGAIN                               
010928,000786:                                                                                                  #  (37777 THROUGH 00001) X (-1)
010929,000787: 11,7170           34476                           CAF      SCON+MAX                              
010930,000788: 11,7171           51771                           TS       SKEEP1                                
010931,000789: 11,7172           41771        MPHIGH2            CS       SKEEP1                                
010932,000790: 11,7173           40000                           CS       A                                     
010933,000791: 11,7174           25777                           EXTEND                                         
010934,000792: 11,7175           44335                           MP       SCON-1                                
010935,000793: 11,7176           60003                           AD       LP                                    
010936,000794: 11,7177           61771                           AD       SKEEP1                                
010937,000795: 11,7200           06023                           TC       -ZEROCHK                              
010938,000796: 11,7201           10215                           CCS      NEWJOB                                
010939,000797: 11,7202           07377                           TC       DUMEXIT                               
010940,000798: 11,7203           11771                           CCS      SKEEP1                                
010941,000799: 11,7204           51771                           TS       SKEEP1                                
010942,000800: 11,7205           11771                           CCS      SKEEP1                                
010943,000801: 11,7206           07172                           TC       MPHIGH2                               
010944,000802: 11,7207           07212                           TC       DV1                                   
010945,000803: 
010946,000804:                                                                                                  #  THESE 2 CONSTANTS USED BY DIVIDE SUBROUTINES
010947,000805: 11,7210           37776        DVCON1             OCTAL    37776                                 
010948,000806: 11,7211           50001        DVCON2             OCTAL    50001                                 
010949,000807:                                                                                                  #  DIVIDE 1/4 BY 3/8
010950,000808:                                                                                                  #  ONCE THROUGH ALL DEVIDE SUBROUTINES TAKES APPROX. 0.012 SECONDS
010951,000809:                                                                                                  #  TOTAL TIME IN DEVIDE SUBROUTINES IS APPROX. 20 SECONDS
010952,000810: 11,7212           36004        DV1                CAF      CONERAS2                              #  01774
010953,000811: 11,7213           51777                           TS       SKEEP7                                
010954,000812: 11,7214           36557        DV1++              CAF      SCON3/8                               
010955,000813: 11,7215           50001                           TS       Q                                     
010956,000814: 11,7216           34502                           CAF      SCON1/4                               
010957,000815: 11,7217           25777                           EXTEND                                         
010958,000816: 11,7220           50001                           DV       Q                                     #  C(A) = 25252
010959,000817: 11,7221           51771                           TS       SKEEP1                                
010960,000818: 11,7222           30003                           XCH      LP                                    
010961,000819: 11,7223           51772                           TS       SKEEP2                                
010962,000820: 11,7224           40001        DV1+-              CS       Q                                     #  +1/4
010963,000821: 11,7225           25777                           EXTEND                                         
010964,000822: 11,7226           56560                           DV       SCON-3/8                              #  C(A) = 52525
010965,000823: 11,7227           61771                           AD       SKEEP1                                #  C(A) = -0
010966,000824: 11,7230           51775                           TS       SKEEP5                                
010967,000825: 11,7231           30003                           XCH      LP                                    
010968,000826: 11,7232           51773                           TS       SKEEP3                                
010969,000827: 11,7233           30001        DV1--              XCH      Q                                     #  -1/4
010970,000828: 11,7234           25777                           EXTEND                                         
010971,000829: 11,7235           56560                           DV       SCON-3/8                              
010972,000830: 11,7236           51771                           TS       SKEEP1                                
010973,000831: 11,7237           30003                           XCH      LP                                    
010974,000832: 11,7240           51774                           TS       SKEEP4                                
010975,000833: 11,7241           30001        DV1-+              XCH      Q                                     
010976,000834: 11,7242           25777                           EXTEND                                         

Page 281

010978,000836: 11,7243           56557                           DV       SCON3/8                               
010979,000837: 11,7244           61771                           AD       SKEEP1                                #  C(A) = -0
010980,000838: 11,7245           51771                           TS       SKEEP1                                
010981,000839: 11,7246           40003                           CS       LP                                    #  C(A) = 37776
010982,000840: 11,7247           61771                           AD       SKEEP1                                #  C(A) = 37776
010983,000841: 11,7250           61772                           AD       SKEEP2                                #  C(A) = 37777
010984,000842: 11,7251           61773                           AD       SKEEP3                                #  C(A) = -0
010985,000843: 11,7252           61774                           AD       SKEEP4                                #  C(A) = +1
010986,000844: 11,7253           61775                           AD       SKEEP5                                #  C(A) = +1
010987,000845: 11,7254           06033                           TC       -ONECHK    -1                         
010988,000846: 
010989,000847:                                                                                                  #  DIVIDE INCREASING BIT POSITIONS BY 1/2  (13 DEVISIONS)
010990,000848: 11,7255           34516        DV2                CAF      SCON1                                 
010991,000849: 11,7256           51772        DV2LOOP            TS       SKEEP2                                
010992,000850: 11,7257           25777                           EXTEND                                         
010993,000851: 11,7260           54501                           DV       SCON1/2                               
010994,000852: 11,7261           51773                           TS       SKEEP3                                
010995,000853: 11,7262           60001                           AD       Q                                     #  Q = -0
010996,000854: 11,7263           50020                           TS       CYR                                   
010997,000855: 11,7264           40020                           CS       CYR                                   
010998,000856: 11,7265           61772                           AD       SKEEP2                                
010999,000857: 11,7266           60003                           AD       LP                                    
011000,000858: 11,7267           06033                           TC       -ONECHK    -1                         
011001,000859: 11,7270           41773                           CS       SKEEP3                                
011002,000860: 11,7271           60000                           AD       A                                     
011003,000861: 11,7272           50000                           TS       A                                     #  OVERFLOW AT END OF DV2 SUBROUTINE
011004,000862: 11,7273           07275                           TC       +2                                    
011005,000863: 11,7274           07300                           TC       DV3                                   
011006,000864: 11,7275           31773                           XCH      SKEEP3                                
011007,000865: 11,7276           64516                           AD       SCON1                                 
011008,000866: 11,7277           07256                           TC       DV2LOOP                               
011009,000867: 
011010,000868:                                                                                                  #  DIVIDE SEPARATE DECREASING BIT POSITIONS BY 37777 (14DEVISIONS)
011011,000869:                                                                                                  #  AFTER C(A) = BEFORE C(A) AND AFTER C(Q) = -C(A)
011012,000870: 11,7300           44476        DV3                CS       SCON+MAX                              
011013,000871: 11,7301           50020                           TS       CYR                                   #  C(CYR) = 20000
011014,000872: 11,7302           40020        DV3LOOP            CS       CYR                                   
011015,000873: 11,7303           40000                           CS       A                                     
011016,000874: 11,7304           25777                           EXTEND                                         
011017,000875: 11,7305           54476                           DV       SCON+MAX                              
011018,000876: 11,7306           51774                           TS       SKEEP4                                
011019,000877: 11,7307           60001                           AD       Q                                     
011020,000878: 11,7310           06023                           TC       -ZEROCHK                              
011021,000879: 11,7311           11774                           CCS      SKEEP4                                
011022,000880: 11,7312           10000                           CCS      A                                     
011023,000881: 11,7313           07302                           TC       DV3LOOP                               
011024,000882: 
011025,000883:                                                                                                  #  DEVIDE 37776 BY 37776
011026,000884:                                                                                                  #  C(A) = +MAX FOR POSITIVE SIGN AND -MAX FOR NEGATIVE SIGN
011027,000885:                                                                                                  #  C(Q) = - ABSOLUTE VALUE OF DEVISOR = 40001

Page 282

011029,000887: 11,7314           37210        DV4++              CAF      DVCON1                                #  37776
011030,000888: 11,7315           25777                           EXTEND                                         
011031,000889: 11,7316           57210                           DV       DVCON1                                #  C(A) = 37777    C(Q) = -37776
011032,000890: 11,7317           60001                           AD       Q                                     
011033,000891: 11,7320           06033                           TC       -ONECHK    -1                         
011034,000892: 11,7321           30003                           XCH      LP                                    #  C(LP) = +1
011035,000893: 11,7322           51775                           TS       SKEEP5                                
011036,000894: 11,7323           47210                           CS       DVCON1                                
011037,000895: 11,7324           51774                           TS       SKEEP4                                
011038,000896: 11,7325           37210        DV4+-              CAF      DVCON1                                
011039,000897: 11,7326           25777                           EXTEND                                         
011040,000898: 11,7327           51774                           DV       SKEEP4                                #  C(A) = 40000  C(Q) = -37776
011041,000899: 11,7330           40000                           CS       A                                     
011042,000900: 11,7331           60001                           AD       Q                                     
011043,000901: 11,7332           06033                           TC       -ONECHK    -1                         
011044,000902: 11,7333           60003                           AD       LP                                    #  C(LP) = 40000
011045,000903: 11,7334           61775                           AD       SKEEP5                                
011046,000904: 11,7335           51775                           TS       SKEEP5                                #  -37776
011047,000905: 11,7336           47210        DV4-+              CS       DVCON1                                
011048,000906: 11,7337           25777                           EXTEND                                         
011049,000907: 11,7340           57210                           DV       DVCON1                                #  C(A) = 40000  C(Q) = -37776
011050,000908: 11,7341           40000                           CS       A                                     
011051,000909: 11,7342           60001                           AD       Q                                     
011052,000910: 11,7343           06033                           TC       -ONECHK    -1                         
011053,000911: 11,7344           40003                           CS       LP                                    #  C(LP) = 40001
011054,000912: 11,7345           61775                           AD       SKEEP5                                
011055,000913: 11,7346           51775                           TS       SKEEP5                                #  -0
011056,000914: 11,7347           47210        DV4--              CS       DVCON1                                
011057,000915: 11,7350           51774                           TS       SKEEP4                                
011058,000916: 11,7351           25777                           EXTEND                                         
011059,000917: 11,7352           51774                           DV       SKEEP4                                #  C(A) = 37777  C(Q) = -37776
011060,000918: 11,7353           60001                           AD       Q                                     
011061,000919: 11,7354           06033                           TC       -ONECHK    -1                         
011062,000920: 11,7355           40003                           CS       LP                                    #  C(LP) = +1
011063,000921: 11,7356           61775                           AD       SKEEP5                                
011064,000922: 11,7357           06034                           TC       -ONECHK                               
011065,000923: 11,7360           10215                           CCS      NEWJOB                                
011066,000924: 11,7361           07377                           TC       DUMEXIT                               
011067,000925: 11,7362           11777                           CCS      SKEEP7                                
011068,000926: 11,7363           07365                           TC       +2                                    
011069,000927: 11,7364           07367                           TC       SOPTION3   -3                         
011070,000928: 11,7365           51777                           TS       SKEEP7                                
011071,000929: 11,7366           07214                           TC       DV1++                                 #  BACK TO DEVIDE LOOP
011072,000930: 
011073,000931: 11,7367           31770                           XCH      SCOUNT     +2                         #  ADD +1 TO SCOUNT +2 REGISTER AT THIS
011074,000932: 11,7370           64516                           AD       SCON1                                 #  POINT OF SELF-CHECK
011075,000933: 11,7371           31770                           XCH      SCOUNT     +2                         
011076,000934: 11,7372           11762        SOPTION3           CCS      SMODE                                 
011077,000935: 11,7373           07113                           TC       MPNMBRS                               #  STAY IN MPNMBRS LOOP
011078,000936: 11,7374           03000                           TC       SMODECHK                              

Page 283

011080,000938: 11,7375           03000                           TC       SMODECHK                              #  SHOULD NOT COME HERE
011081,000939: 11,7376           03000                           TC       SMODECHK                              #  END OF SELF-CHECK. START AGAIN
011082,000940: 
011083,000941:    3000                                           BANK     1                                     
011084,000942: 

Page 284

011086,000944: 
011087,000945:                                                                                                  #  COMPUTER ACTIVITY LIGHT (GREEN LIGHT) MAINTENANCE.
011088,000946: 
011089,000947:    3000           10215        SMODECHK           CCS      NEWJOB                                #  SEE IF ITS TIME FOR A CHANGE.
011090,000948:    3001           07377                           TC       DUMEXIT                               
011091,000949: 
011092,000950:    3002           11762        ADVAN              CCS      SMODE                                 #  SEE IF SELF-CHECK IS WANTED
011093,000951:    3003           06045                           TC       CCSCHK                                #  YES PULSES ONLY
011094,000952:    3004           03000                           TC       SMODECHK                              
011095,000953:    3005           06045                           TC       CCSCHK                                #  YES PULSES + SC + ERASABLE
011096,000954:    3006           06045                           TC       CCSCHK                                #  YES ALL OF SELF-CHECK
011097,000955: 
011098,000956: 11,7377                                           BANK     11                                    
011099,000957: 11,7377           30001        DUMEXIT            XCH      Q                                     
011100,000958: 11,7400           50115                           TS       QADRS                                 #  STORE RETURN ADDRESS
011101,000959: 11,7401           45503                           CS       TWO                                   #  TURN ON GREEN LIGHT (COMP ACT) AND
011102,000960: 11,7402           20017                           INHINT                                         
011103,000961: 11,7403           70011                           MASK     OUT1                                  #  GO TO CHANG1.
011104,000962: 11,7404           65503                           AD       TWO                                   
011105,000963: 11,7405           50011                           TS       OUT1                                  
011106,000964: 11,7406           02101                           TC       CHANG1                                
011107,000965: 
011108,000966: 11,7407           45503        DUMYJOB            CS       TWO                                   #  IDLING AGAIN- TURN OFF ACTIVITY LIGHT
011109,000967: 11,7410           20017                           INHINT                                         
011110,000968: 11,7411           70011                           MASK     OUT1                                  #  LIGHT.
011111,000969: 11,7412           50011                           TS       OUT1                                  
011112,000970: 11,7413           20016                           RELINT                                         
011113,000971: 11,7414           00115                           TC       QADRS                                 #  BACK TO CHECKING COMPUTER
011114,000972: 
011115,000973: 11,7415           37420        DUMMYJOB           CAF      SMODECON                              #  ENTER AT SMODECHK IF THERE IS A
011116,000974: 11,7416           50115                           TS       QADRS                                 #  FRESH START OR A GOJAM
011117,000975: 11,7417           07407                           TC       DUMYJOB                               
011118,000976: 11,7420           03000        SMODECON           ADRES    SMODECHK                              
011119,000977: 

Page 285

011121,000979: 
011122,000980:                                                                                                  #  C-RELAY TESTER
011123,000981: 
011124,000982: 11,7421           34500        CCHK               CAF      BIT15                                 
011125,000983: 11,7422           50723                           TS       DSPTAB     +11D                       
011126,000984: 11,7423           50724                           TS       DSPTAB     +12D                       
011127,000985: 11,7424           50725                           TS       DSPTAB     +13D                       
011128,000986: 
011129,000987: 11,7425           34510                           CAF      BIT7                                  
011130,000988: 11,7426           20017                           INHINT                                         
011131,000989: 11,7427           02173                           TC       WAITLIST                              
011132,000990: 11,7430           23433                           CADR     CCHKA                                 
011133,000991: 11,7431           37530                           CAF      LCCHKB                                
011134,000992: 11,7432           02127                           TC       JOBSLEEP                              
011135,000993: 
011136,000994: 11,7433           37530        CCHKA              CAF      LCCHKB                                
011137,000995: 11,7434           02060                           TC       JOBWAKE                               
011138,000996: 11,7435           02256                           TC       TASKOVER                              
011139,000997: 
011140,000998: 11,7436           35503        CCHKB              CAF      TWO                                   
011141,000999: 11,7437           50115                           TS       MPAC                                  
011142,001000: 
011143,001001: 11,7440           33232                           CAF      TEN                                   
011144,001002: 11,7441           50116        CCHK0              TS       MPAC       +1                         
011145,001003: 
011146,001004: 11,7442           20000                           INDEX    A                                     
011147,001005: 11,7443           34504                           CAF      BIT11                                 
011148,001006: 11,7444           64500                           AD       BIT15                                 
011149,001007: 11,7445           20115                           INDEX    MPAC                                  
011150,001008: 11,7446           50723                           TS       DSPTAB     +11D                       
011151,001009: 
011152,001010: 11,7447           34507                           CAF      BIT8                                  
011153,001011: 11,7450           20017                           INHINT                                         
011154,001012: 11,7451           02173                           TC       WAITLIST                              
011155,001013: 11,7452           23455                           CADR     CCHK1                                 
011156,001014: 
011157,001015: 11,7453           37531                           CAF      LCCHK2                                
011158,001016: 11,7454           02127                           TC       JOBSLEEP                              
011159,001017: 
011160,001018: 11,7455           37531        CCHK1              CAF      LCCHK2                                
011161,001019: 11,7456           02060                           TC       JOBWAKE                               
011162,001020: 11,7457           02256                           TC       TASKOVER                              
011163,001021: 
011164,001022: 11,7460           30007        CCHK2              XCH      IN3                                   
011165,001023: 11,7461           10007                           CCS      IN3                                   
011166,001024: 11,7462           07525                           TC       CCHKALM                               
011167,001025: 11,7463           07525                           TC       CCHKALM                               
011168,001026: 11,7464           07466                           TC       +2                                    
011169,001027: 11,7465           07525                           TC       CCHKALM                               
011170,001028: 
011171,001029: 11,7466           10116                           CCS      MPAC       +1                         

Page 286

011173,001031: 11,7467           07441                           TC       CCHK0                                 
011174,001032: 
011175,001033: 11,7470           34500                           CAF      BIT15                                 #  TURN OFF LAST RELAY.
011176,001034: 11,7471           20115                           INDEX    MPAC                                  
011177,001035: 11,7472           50723                           TS       DSPTAB     +11D                       
011178,001036: 
011179,001037: 11,7473           10115                           CCS      MPAC                                  
011180,001038: 11,7474           07437                           TC       CCHK0      -2                         
011181,001039: 11,7475           34510                           CAF      BIT7                                  
011182,001040: 11,7476           20017                           INHINT                                         
011183,001041: 11,7477           02173                           TC       WAITLIST                              
011184,001042: 11,7500           23503                           CADR     CCHKC                                 
011185,001043: 11,7501           37533                           CAF      LCCHKD                                
011186,001044: 11,7502           02127                           TC       JOBSLEEP                              
011187,001045: 
011188,001046: 11,7503           37533        CCHKC              CAF      LCCHKD                                
011189,001047: 11,7504           02060                           TC       JOBWAKE                               
011190,001048: 11,7505           02256                           TC       TASKOVER                              
011191,001049: 
011192,001050: 11,7506           30007        CCHKD              XCH      IN3                                   
011193,001051: 11,7507           10007                           CCS      IN3                                   
011194,001052: 11,7510           07514                           TC       +4                                    
011195,001053: 11,7511           07514                           TC       +3                                    
011196,001054: 11,7512           07525                           TC       CCHKALM                               
011197,001055: 11,7513           07525                           TC       CCHKALM                               
011198,001056: 
011199,001057: 11,7514           35362                           CAF      SEVEN                                 
011200,001058: 11,7515           50117                           TS       MPAC       +2                         
011201,001059: 11,7516           37532                           CAF      CCHKNV                                
011202,001060: 11,7517           03100                           TC       NVSUB                                 
011203,001061: 11,7520           03315                           TC       PRENVBSY                              
011204,001062: 11,7521           03362        TSTOUT             TC       FREEDSP                               
011205,001063: 11,7522           02362                           TC       NEWMODE                               #  REVERT TO MODE 00.
011206,001064: 11,7523           00000                           OCT      0                                     
011207,001065: 11,7524           02124                           TC       ENDOFJOB                              
011208,001066: 
011209,001067: 11,7525           03007        CCHKALM            TC       ALARM                                 
011210,001068: 11,7526           01104                           OCT      1104                                  
011211,001069: 11,7527           02124                           TC       ENDOFJOB                              
011212,001070: 
011213,001071: 11,7530           23436        LCCHKB             CADR     CCHKB                                 
011214,001072: 11,7531           23460        LCCHK2             CADR     CCHK2                                 
011215,001073: 11,7532           00101        CCHKNV             OCT      00101                                 
011216,001074: 11,7533           23506        LCCHKD             CADR     CCHKD                                 
011217,001075: 

Page 287

011219,001077: 
011220,001078:                                                                                                  #  DSKY TESTER
011221,001079: 
011222,001080: 11,7534           33232        DCHECK             CAF      TEN                                   
011223,001081: 11,7535           50115        DC9                TS       MPAC                                  
011224,001082: 11,7536           20115                           INDEX    MPAC                                  
011225,001083: 11,7537           37643                           CAF      DSKYCODE                              
011226,001084: 11,7540           50116                           TS       MPAC       +1                         
011227,001085: 11,7541           20017                           INHINT                                         
011228,001086: 11,7542           40000                           COM                                            
011229,001087: 11,7543           50721                           TS       DSPTAB     +9D                        
011230,001088: 11,7544           43221                           CS       MID5                                  
011231,001089: 11,7545           70116                           MASK     MPAC       +1                         
011232,001090: 11,7546           40000                           COM                                            
011233,001091: 11,7547           50717                           TS       DSPTAB     +7                         
011234,001092: 11,7550           44504                           CS       BIT11                                 
011235,001093: 11,7551           70116                           MASK     MPAC       +1                         
011236,001094: 11,7552           40000                           COM                                            
011237,001095: 11,7553           50710                           TS       DSPTAB                                
011238,001096: 11,7554           50711                           TS       DSPTAB     +1                         
011239,001097: 11,7555           50712                           TS       DSPTAB     +2                         
011240,001098: 11,7556           50713                           TS       DSPTAB     +3                         
011241,001099: 11,7557           50714                           TS       DSPTAB     +4                         
011242,001100: 11,7560           50715                           TS       DSPTAB     +5                         
011243,001101: 11,7561           50716                           TS       DSPTAB     +6                         
011244,001102: 11,7562           50720                           TS       DSPTAB     +8D                        
011245,001103: 11,7563           50722                           TS       DSPTAB     +10D                       
011246,001104: 11,7564           37656                           CAF      DCNOUT                                
011247,001105: 11,7565           50707                           TS       NOUT                                  
011248,001106: 11,7566           34504        DCWAIT             CAF      BIT11                                 #  10.24 SEC WAIT
011249,001107: 11,7567           02173                           TC       WAITLIST                              
011250,001108: 11,7570           23573                           CADR     DC10                                  
011251,001109: 11,7571           37657                           CAF      LDC11                                 
011252,001110: 11,7572           02127                           TC       JOBSLEEP                              
011253,001111: 
011254,001112: 11,7573           37657        DC10               CAF      LDC11                                 
011255,001113: 11,7574           02060                           TC       JOBWAKE                               
011256,001114: 11,7575           02256                           TC       TASKOVER                              
011257,001115: 
011258,001116: 11,7576           10115        DC11               CCS      MPAC                                  
011259,001117: 11,7577           07535                           TC       DC9                                   
011260,001118: 
011261,001119: 11,7600           07602                           TC       +2                                    
011262,001120: 11,7601           07613                           TC       DC+                                   
011263,001121: 
011264,001122: 11,7602           20017                           INHINT                                         
011265,001123: 11,7603           44373                           CS       6K                                    #  - SIGNS.
011266,001124: 11,7604           50710                           TS       DSPTAB                                
011267,001125: 11,7605           50713                           TS       DSPTAB     +3                         
011268,001126: 11,7606           50715                           TS       DSPTAB     +5                         
011269,001127: 11,7607           50115                           TS       MPAC                                  

Page 288

011271,001129: 11,7610           34473                           CAF      THREE                                 
011272,001130: 11,7611           50707                           TS       NOUT                                  
011273,001131: 11,7612           07566                           TC       DCWAIT                                
011274,001132: 
011275,001133: 11,7613           20017        DC+                INHINT                                         
011276,001134: 11,7614           44373                           CS       6K                                    
011277,001135: 11,7615           50711                           TS       DSPTAB     +1                         
011278,001136: 11,7616           50714                           TS       DSPTAB     +4                         
011279,001137: 11,7617           50716                           TS       DSPTAB     +6                         
011280,001138: 11,7620           44503                           CS       BIT12                                 
011281,001139: 11,7621           50710                           TS       DSPTAB                                
011282,001140: 11,7622           50713                           TS       DSPTAB     +3                         
011283,001141: 11,7623           50715                           TS       DSPTAB     +5                         
011284,001142: 11,7624           34475                           CAF      SIX                                   
011285,001143: 11,7625           50707                           TS       NOUT                                  
011286,001144: 11,7626           33220                           CAF      LOW5                                  
011287,001145: 11,7627           50011                           TS       OUT1                                  #  TURNS ON DSKY LAMPS.
011288,001146: 11,7630           20016                           RELINT                                         
011289,001147: 11,7631           34506                           CAF      BIT9                                  
011290,001148: 11,7632           50115        DC++               TS       MPAC                                  #  KEEP GLIT ON FOR A WHILE.
011291,001149: 11,7633           34504                           CAF      BIT11                                 #  LOOPS FOR ABOUT 40 MS.
011292,001150: 11,7634           10000                           CCS      A                                     
011293,001151: 11,7635           07634                           TC       -1                                    
011294,001152: 11,7636           10215                           CCS      NEWJOB                                
011295,001153: 11,7637           02101                           TC       CHANG1                                
011296,001154: 11,7640           10115                           CCS      MPAC                                  
011297,001155: 11,7641           07632                           TC       DC++                                  
011298,001156: 11,7642           07521                           TC       TSTOUT                                
011299,001157: 
011300,001158: 11,7643           04000        DSKYCODE           OCT      04000                                 #  BLANKS
011301,001159: 11,7644           07265                           OCT      07265                                 #  00
011302,001160: 11,7645           06143                           OCT      06143                                 #  11
011303,001161: 11,7646           07471                           OCT      07471                                 #  22
011304,001162: 11,7647           07573                           OCT      07573                                 #  33
011305,001163: 11,7650           06757                           OCT      06757                                 #  44
011306,001164: 11,7651           07736                           OCT      07736                                 #  55
011307,001165: 11,7652           07634                           OCT      07634                                 #  66
011308,001166: 11,7653           07163                           OCT      07163                                 #  77
011309,001167: 11,7654           07675                           OCT      07675                                 #  88
011310,001168: 11,7655           07777                           OCT      07777                                 #  99
011311,001169: 11,7656           00013        DCNOUT             DEC      11         B-14                       
011312,001170: 11,7657           23576        LDC11              CADR     DC11                                  
011313,001171: 

Page 289

011315,001173: 
011316,001174:                                                                                                  #  ENGINE-ON PROGRAM     FOLLOWING A +XXX.XX SECOND DELAY OF LESS THAN 2 MINUTES, ENGINE WILL REMAIN ON FOR +XXX.XX
011317,001175: 
011318,001176: 11,7660           03302        BROKYPRG           TC       GRABDSP                               
011319,001177: 11,7661           03310                           TC       PREGBSY                               
011320,001178: 11,7662           34516                           CAF      ONE                                   
011321,001179: 11,7663           51564                           TS       CUSSANG                               
011322,001180: 11,7664           37723                           CAF      V21N24G                               
011323,001181: 11,7665           03100                           TC       NVSUB                                 
011324,001182: 11,7666           03315                           TC       PRENVBSY                              
011325,001183: 11,7667           03136                           TC       ENDIDLE                               
011326,001184: 11,7670           02124                           TC       ENDOFJOB                              
011327,001185: 11,7671           07664                           TC       -5                                    
011328,001186: 11,7672           30616                           XCH      DSPTEM1                               
011329,001187: 11,7673           31460                           XCH      LONGTIME                              
011330,001188: 11,7674           30617                           XCH      DSPTEM1    +1                         
011331,001189: 11,7675           31461                           XCH      LONGTIME   +1                         
011332,001190: 11,7676           51563                           TS       PLOW                                  
011333,001191: 11,7677           11564                           CCS      CUSSANG                               
011334,001192: 11,7700           07663                           TC       BROKYPRG   +3                         
011335,001193: 11,7701           31563                           XCH      PLOW                                  
011336,001194: 11,7702           02173                           TC       WAITLIST                              
011337,001195: 11,7703           23706                           CADR     ENGNON                                
011338,001196: 11,7704           03362                           TC       FREEDSP                               
011339,001197: 11,7705           02124                           TC       ENDOFJOB                              
011340,001198: 11,7706           44502        ENGNON             CS       BIT13                                 
011341,001199: 11,7707           70011                           MASK     OUT1                                  
011342,001200: 11,7710           64502                           AD       BIT13                                 
011343,001201: 11,7711           50011                           TS       OUT1                                  
011344,001202: 11,7712           37724                           CAF      ENGOFLOC                              
011345,001203: 11,7713           51467                           TS       CALLCADR                              
011346,001204: 11,7714           05742                           TC       IBNKCALL                              
011347,001205: 11,7715           10552                           CADR     LONGCALL                              
011348,001206: 11,7716           02256                           TC       TASKOVER                              
011349,001207: 11,7717           44502        ENGNOFF            CS       BIT13                                 
011350,001208: 11,7720           70011                           MASK     OUT1                                  
011351,001209: 11,7721           50011                           TS       OUT1                                  
011352,001210: 11,7722           02256                           TC       TASKOVER                              
011353,001211: 11,7723           02124        V21N24G            OCT      02124                                 
011354,001212: 11,7724           23717        ENGOFLOC           CADR     ENGNOFF                               

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