Source Code

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

Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 56 OF AGC PROGRAM ZERLINA BY ZOROASTER
	9:12 OCT. 21,1970
Note that the date is the date of the printout, not the date of the program revision.

055647,000002:                                                                                                  ## Copyright:   Public domain.
055648,000003:                                                                                                  ## Filename:    AGC_BLOCK_TWO_SELF-CHECK.agc
055649,000004:                                                                                                  ## Purpose:     A log section of Zerlina 56, the final revision of
055650,000005:                                                                                                  ##              Don Eyles's offline development program for the variable
055651,000006:                                                                                                  ##              guidance period servicer. It also includes a new P66 with LPD
055652,000007:                                                                                                  ##              (Landing Point Designator) capability, based on an idea of John
055653,000008:                                                                                                  ##              Young's. Neither of these advanced features were actually flown,
055654,000009:                                                                                                  ##              but Zerlina was also the birthplace of other big improvements to
055655,000010:                                                                                                  ##              Luminary including the terrain model and new (Luminary 1E)
055656,000011:                                                                                                  ##              analog display programs. Zerlina was branched off of Luminary 145,
055657,000012:                                                                                                  ##              and revision 56 includes all changes up to and including Luminary
055658,000013:                                                                                                  ##              183. It is therefore quite close to the Apollo 14 program,
055659,000014:                                                                                                  ##              Luminary 178, where not modified with new features.
055660,000015:                                                                                                  ## Reference:   pp. 1273-1282
055661,000016:                                                                                                  ## Assembler:   yaYUL
055662,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
055663,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
055664,000019:                                                                                                  ## Mod history: 2017-07-28 MAS  Created from Luminary 210.
055665,000020:                                                                                                  ##              2017-08-29 MAS  Updated for Zerlina 56.
055666,000021: 

Page 1273

055668,000023:                                                                                                  #  PROGRAM DESCRIPTION                                                         DATE  20 DECEMBER 1967
055669,000024:                                                                                                  #  PROGRAM NAME -  SELF-CHECK                                                  LOG SECTION AGC BLOCK TWO SELF-CHECK
055670,000025:                                                                                                  #  MOD NO -  1                                                                 ASSEMBLY SUBROUTINE UTILITYM REV 25
055671,000026:                                                                                                  #  MOD BY - GAUNTT
055672,000027: 
055673,000028: 
055674,000029:                                                                                                  #  FUNCTIONAL DESCRIPTION
055675,000030: 
055676,000031:                                                                                                  #       PROGRAM HAS TWO MAIN PARTS. THE FIRST IS SELF-CHECK WHICH RUNS AS A ZERO PRIORITY JOB WITH NO CORE SET, AS
055677,000032:                                                                                                  #  PART OF THE BACK-UP IDLE LOOP. THE SECOND IS SHOW-BANKSUM WHICH RUNS AS A REGULAR EXECUTIVE JOB WITH ITS OWN
055678,000033:                                                                                                  #  STARTING VERB.
055679,000034:                                                                                                  #       THE PURPOSE OF SELF-CHECK IS TO CHECK OUT VARIOUS PARTS OF THE COMPUTER AS OUTLINED BELOW IN THE OPTIONS.
055680,000035:                                                                                                  #       THE PURPOSE OF SHOW-BANKSUM IS TO DISPLAY THE SUM OF EACH BANK , ONE AT A TIME.
055681,000036:                                                                                                  #       IN ALL THERE ARE  7 POSSIBLE OPTIONS IN THIS BLOCK II VERSION OF SELF-CHECK. MORE DETAIL DESCRIPTION MAY BE
055682,000037:                                                                                                  #  FOUND IN E-2065 BLOCK II AGC SELF-CHECK AND SHOW BANKSUM BY EDWIN D. SMALLY DECEMBER 1966, AND ADDENDA 2 AND 3.
055683,000038:                                                                                                  #       THE DIFFERENT OPTIONS ARE CONTROLLED BY PUTTING DIFFERENT NUMBERS IN THE SMODE REGISTER (NOUN 27). BELOW IS
055684,000039:                                                                                                  #  A DESCRIPTION OF WHAT PARTS OF THE COMPUTER THAT ARE CHECKED BY THE OPTIONS, AND THE CORRESPONDING NUMBER, IN
055685,000040:                                                                                                  #  OCTAL, TO LOAD INTO SMODE.
055686,000041:                                                                                                  #  +-4   ERASABLE MEMORY
055687,000042:                                                                                                  #  +-5   FIXED MEMORY
055688,000043:                                                                                                  #  +-1,2,3,6,7,10   EVERYTHING IN OPTIONS 4 AND 5.
055689,000044:                                                                                                  #  -0    SAME AS +-10 UNTIL AN ERROR IS DETECTED.
055690,000045:                                                                                                  #  +0    NO CHECK, PUTS COMPUTER INTO THE BACKUP IDLE LOOP.
055691,000046: 
055692,000047: 
055693,000048:                                                                                                  #  WARNINGS
055694,000049: 
055695,000050:                                                                                                  #       USE OF E MEMORY RESERVED FOR SELF-CHECK (EVEN IN IDLE LOOP) AS TEMP STORAGE BY OTHER PROGRAMS IS DANGEROUS.
055696,000051:                                                                                                  #       SMODE SET GREATER THAN OCT 10 PUTS COMPUTER INTO BACKUP IDLE LOOP.
055697,000052: 
055698,000053: 
055699,000054:                                                                                                  #  CALLING SEQUENCE
055700,000055: 
055701,000056:                                                                                                  #       TO CALL SELF-CHECK KEY IN
055702,000057:                                                                                                  #            V 21 N 27 E  OPTION NUMBER E
055703,000058:                                                                                                  #       TO CALL SHOW-BANKSUM KEY IN
055704,000059:                                                                                                  #            V 91 E         DISPLAYS FIRST BANK
055705,000060:                                                                                                  #            V 33 E         PROCEED, DISPLAYS NEXT BANK
055706,000061: 
055707,000062: 
055708,000063:                                                                                                  #  EXIT MODES, NORMAL AND ALARM
055709,000064: 
055710,000065:                                                                                                  #       SELF-CHECK NORMALLY CONTINUES INDEFINITELY UNLESS THERE IS AN ERROR DETECTED. IF SO + OPTION NUMBERS PUT
055711,000066:                                                                                                  #  COMPUTER INTO BACKUP IDLE LOOP, - OPTION NUMBERS RESTART THE OPTION.
055712,000067:                                                                                                  #       THE -0 OPTION PROCEEDS FROM THE LINE FOLLOWING THE LINE WHERE THE ERROR WAS DETECTED.
055713,000068:                                                                                                  #       SHOW-BANKSUM PROCEEDS UNTIL A TERMINATE IS KEYED IN (V 34 E). THE COMPUTER IS PUT INTO THE BACKUP IDLE LOOP
055714,000069: 
055715,000070: 
055716,000071: 
055717,000072:                                                                                                  #  OUTPUT

Page 1274

055719,000074:                                                                                                  #       SELF-CHECK UPON DETECTING AN ERROR LOADS THE SELF-CHECK ALARM CONSTANT (01102) INTO THE FAILREG SET AND
055720,000075:                                                                                                  #  TURNS ON THE ALARM LIGHT. THE OPERATOR MAY THEN DISPLAY THE THREE FAILREGS BY KEYING IN V 05 N 09 E. FOR FURTHER
055721,000076:                                                                                                  #  INFORMATION HE MAY KEY IN V 05 N 08 E, THE DSKY DISPLAY IN R1 WILL BE ADDRESS+1 OF WHERE THE ERROR WAS DETECTED,
055722,000077:                                                                                                  #  IN R2 THE BBCON OF SELF-CHECK, AND IN R3 THE TOTAL NUMBER OF ERRORS DETECTED BY SELF-CHECK SINCE THE LAST MAN
055723,000078:                                                                                                  #  INITIATED FRESH START (SLAP1).
055724,000079:                                                                                                  #       SHOW-BANKSUM STARTING WITH BANK 0 DISPLAYS IN R1 THE BANK SUM (A +-NUMBER EQUAL TO THE BANK NUMBER), IN R2
055725,000080:                                                                                                  #  THE BANK NUMBER, AND IN R3 THE BUGGER WORD.
055726,000081: 
055727,000082: 
055728,000083:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
055729,000084: 
055730,000085:                                                                                                  #       ACCOMPLISHED BY FRESH START
055731,000086:                                                                                                  #            SMODE SET TO +0
055732,000087: 
055733,000088: 
055734,000089:                                                                                                  #  DEBRIS
055735,000090: 
055736,000091:                                                                                                  #       ALL EXITS FROM THE CHECK OF ERASABLE (ERASCHK) RESTORE ORIGINAL CONTENTS TO REGISTERS UNDER CHECK.
055737,000092:                                                                                                  #  EXCEPTION IS A RESTART. RESTART THAT OCCURS DURING ERASCHK RESTORES ERASABLE, UNLESS THERE IS EVIDENCE TO DOUBT
055738,000093:                                                                                                  #  E MEMORY, IN WHICH CASE PROGRAM THEN DOES A FRESH START (DOFSTART).
055739,000094: 
055740,000095: 25,3767                                           BANK     25                                    
055741,000096: 43,2000                                           SETLOC   SELFCHEC                              
055742,000097: 43,2000                                           BANK                                           
055743,000098: 
055744,000099: 43,3231                                           COUNT*   $$/SELF                               
055745,000100: 43,3231     4753               SBIT1              EQUALS   BIT1                                  
055746,000101: 43,3231     4752               SBIT2              EQUALS   BIT2                                  
055747,000102: 43,3231     4751               SBIT3              EQUALS   BIT3                                  
055748,000103: 43,3231     4750               SBIT4              EQUALS   BIT4                                  
055749,000104: 43,3231     4747               SBIT5              EQUALS   BIT5                                  
055750,000105: 43,3231     4746               SBIT6              EQUALS   BIT6                                  
055751,000106: 43,3231     4745               SBIT7              EQUALS   BIT7                                  
055752,000107: 43,3231     4744               SBIT8              EQUALS   BIT8                                  
055753,000108: 43,3231     4743               SBIT9              EQUALS   BIT9                                  
055754,000109: 43,3231     4742               SBIT10             EQUALS   BIT10                                 
055755,000110: 43,3231     4741               SBIT11             EQUALS   BIT11                                 
055756,000111: 43,3231     4740               SBIT12             EQUALS   BIT12                                 
055757,000112: 43,3231     4737               SBIT13             EQUALS   BIT13                                 
055758,000113: 43,3231     4736               SBIT14             EQUALS   BIT14                                 
055759,000114: 43,3231     4735               SBIT15             EQUALS   BIT15                                 
055760,000115: 
055761,000116: 43,3231     4755               S+ZERO             EQUALS   ZERO                                  
055762,000117: 43,3231     4753               S+1                EQUALS   BIT1                                  
055763,000118: 43,3231     4752               S+2                EQUALS   BIT2                                  
055764,000119: 43,3231     6257               S+3                EQUALS   THREE                                 
055765,000120: 43,3231     4751               S+4                EQUALS   FOUR                                  
055766,000121: 43,3231     4756               S+5                EQUALS   FIVE                                  
055767,000122: 43,3231     6254               S+6                EQUALS   SIX                                   

Page 1275

055769,000124: 43,3231     4757               S+7                EQUALS   SEVEN                                 
055770,000125: 43,3231     4357               S8BITS             EQUALS   LOW8                                  #  00377
055771,000126: 43,3231     4771               CNTRCON            =        OCT50                                 #  USED IN CNTRCHK
055772,000127: 43,3231           00061        ERASCON1           OCTAL    00061                                 #  USED IN ERASCHK
055773,000128: 43,3232           01373        ERASCON2           OCTAL    01373                                 #  USED IN ERASCHK
055774,000129: 43,3233     5007               ERASCON6           =        OCT1400                               #  USED IN ERASCHK
055775,000130: 43,3233           01461        ERASCON3           OCTAL    01461                                 #  USED IN ERASCHK
055776,000131: 43,3234           01773        ERASCON4           OCTAL    01773                                 #  USED IN ERASCHK
055777,000132: 43,3235     5012               S10BITS            EQUALS   LOW10                                 #  01777, USED IN ERASCHK
055778,000133: 43,3235     5020               SBNK03             EQUALS   PRIO6                                 #  06000, USED IN ROPECHK
055779,000134: 43,3235     4350               -MAXADRS           =        HI5                                   #  FOR ROPECHK
055780,000135: 43,3235           00060        SIXTY              OCTAL    00060                                 
055781,000136: 43,3236           60017        SUPRCON            OCTAL    60017                                 #  USED IN ROPECHK
055782,000137: 43,3237           17777        S13BITS            OCTAL    17777                                 
055783,000138: 43,3240           25252        CONC+S1            OCTAL    25252                                 #  USED IN CYCLSHFT
055784,000139: 43,3241           52400        CONC+S2            OCTAL    52400                                 #  USED IN CYCLSHFT
055785,000140: 43,3242           76777        ERASCON5           OCTAL    76777                                 
055786,000141: 43,3243     5661               S-7                =        OCT77770                              
055787,000142: 43,3243     6124               S-4                EQUALS   NEG4                                  
055788,000143: 43,3243     7757               S-3                EQUALS   NEG3                                  
055789,000144: 43,3243     7760               S-2                EQUALS   NEG2                                  
055790,000145: 43,3243     7761               S-1                EQUALS   NEGONE                                
055791,000146: 43,3243     4754               S-ZERO             EQUALS   NEG0                                  
055792,000147: 
055793,000148: 43,3243  E3,1400                                  EBANK=   LST1                                  
055794,000149: 43,3243           01371        ADRS1              ADRES    SKEEP1                                
055795,000150: 43,3244           03335        SELFADRS           ADRES    SELFCHK                               #  SELFCHK RETURN ADDRESS. SHOULD BE PUT
055796,000151:                                                                                                  #  IN SELFRET WHEN GOING FROM SELFCHK TO
055797,000152:                                                                                                  #  SHOWSUM AND PUT IN SKEEP1 WHEN GOING
055798,000153:                                                                                                  #  FROM SHOWSUM TO SELF-CHECK.
055799,000154: 
055800,000155: 43,3245           31360        PRERRORS           CA       ERESTORE                              #  IS IT NECESSARY TO RESTORE ERASABLE
055801,000156: 43,3246           00006                           EXTEND                                         
055802,000157: 43,3247           13256                           BZF      ERRORS                                #  NO
055803,000158: 43,3250           00006                           EXTEND                                         
055804,000159: 43,3251           31376                           DCA      SKEEP5                                
055805,000160: 43,3252           51377                           INDEX    SKEEP7                                
055806,000161: 43,3253           52001                           DXCH     0000                                  #  RESTORE THE TWO ERASABLE REGISTERS
055807,000162: 43,3254           34755                           CA       S+ZERO                                
055808,000163: 43,3255           55360                           TS       ERESTORE                              
055809,000164: 43,3256           00004        ERRORS             INHINT                                         
055810,000165: 43,3257           30002                           CA       Q                                     
055811,000166: 43,3260           55357                           TS       SFAIL                                 #  SAVE Q FOR FAILURE LOCATION
055812,000167: 43,3261           55363                           TS       ALMCADR                               #  FOR DISPLAY WITH BBANK AND ERCOUNT
055813,000168: 43,3262           25365                           INCR     ERCOUNT                               #  KEEP TRACK OF NUMBER OF MALFUNCTIONS.
055814,000169: 43,3263           05602        TCALARM2           TC       ALARM2                                
055815,000170: 43,3264           01102                           OCT      01102                                 #  SELF-CHECK MALFUNCTION INDICATOR
055816,000171: 43,3265           11362                           CCS      SMODE                                 
055817,000172: 43,3266           34755        SIDLOOP            CA       S+ZERO                                
055818,000173: 43,3267           55362                           TS       SMODE                                 

Page 1276

055820,000175: 43,3270           03335                           TC       SELFCHK                               #  GO TO IDLE LOOP
055821,000176: 43,3271           01357                           TC       SFAIL                                 #  CONTINUE WITH SELF-CHECK
055822,000177: 
055823,000178: 43,3272           10000        -1CHK              CCS      A                                     
055824,000179: 43,3273           13245                           TCF      PRERRORS                              
055825,000180: 43,3274           13245                           TCF      PRERRORS                              
055826,000181: 43,3275           10000                           CCS      A                                     
055827,000182: 43,3276           13245                           TCF      PRERRORS                              
055828,000183: 43,3277           00002                           TC       Q                                     
055829,000184: 
055830,000185: 43,3300           00006        SMODECHK           EXTEND                                         
055831,000186: 43,3301           23371                           QXCH     SKEEP1                                
055832,000187: 43,3302           03331                           TC       CHECKNJ                               #  CHECK FOR NEW JOB
055833,000188: 43,3303           11362                           CCS      SMODE                                 
055834,000189: 43,3304           03311                           TC       SOPTIONS                              
055835,000190: 43,3305           03302                           TC       SMODECHK   +2                         #  TO BACKUP IDLE LOOP
055836,000191: 43,3306           03311                           TC       SOPTIONS                              
055837,000192: 43,3307           25366                           INCR     SCOUNT                                
055838,000193: 43,3310           01371                           TC       SKEEP1                                #  CONTINUE WITH SELF-CHECK
055839,000194: 
055840,000195: 43,3311           65661        SOPTIONS           AD       S-7                                   
055841,000196: 43,3312           00006                           EXTEND                                         
055842,000197: 43,3313           63315                           BZMF     +2                                    #  FOR OPTIONS BELOW NINE.
055843,000198: 43,3314           03266        BNKOPTN            TC       SIDLOOP                               #  ILLEGAL OPTION.  GO TO IDLE LOOP.
055844,000199: 43,3315           25366                           INCR     SCOUNT                                #  FOR OPTIONS BELOW NINE.
055845,000200: 43,3316           64757                           AD       S+7                                   
055846,000201: 
055847,000202: 43,3317           50000                           INDEX    A                                     
055848,000203: 43,3320           03321                           TC       SOPTION1                              
055849,000204: 43,3321           01371        SOPTION1           TC       SKEEP1                                #  WAS TC+TCF
055850,000205: 43,3322           01371        SOPTION2           TC       SKEEP1                                #  WAS IN:OUT1
055851,000206: 43,3323           01371        SOPTION3           TC       SKEEP1                                #  WAS COUNTCHK
055852,000207: 43,3324           03336        SOPTION4           TC       ERASCHK                               
055853,000208: 43,3325           03517        SOPTION5           TC       ROPECHK                               
055854,000209: 43,3326           01371        SOPTION6           TC       SKEEP1                                
055855,000210: 43,3327           01371        SOPTION7           TC       SKEEP1                                
055856,000211: 43,3330           01371        SOPTON10           TC       SKEEP1                                #  CONTINUE WITH SELF-CHECK
055857,000212: 
055858,000213: 43,3331           00006        CHECKNJ            EXTEND                                         
055859,000214: 43,3332           23361                           QXCH     SELFRET                               #  SAVE RETURN ADDRESS WHILE TESTING NEWJOB
055860,000215: 43,3333           04635                           TC       POSTJUMP                              #  TO SEE IF ANY JOBS HAVE BECOME ACTIVE.
055861,000216: 43,3334           03216                           CADR     ADVAN                                 
055862,000217: 
055863,000218: 43,3335           03300        SELFCHK            TC       SMODECHK                              #  ** CHARLEY, COME IN HERE
055864,000219: 
055865,000220:                                                                                                  #  SKEEP7 HOLDS LOWEST OF TWO ADDRESSES BEING CHECKED.
055866,000221:                                                                                                  #  SKEEP6 HOLDS B(X+1).
055867,000222:                                                                                                  #  SKEEP5 HOLDS B(X).
055868,000223:                                                                                                  #  SKEEP4 HOLDS C(EBANK) DURING ERASLOOP AND CHECKNJ.
055869,000224:                                                                                                  #  SKEEP3 HOLDS LAST ADDRESS BEING CHECKED (HIGHEST ADDRESS).

Page 1277

055871,000226:                                                                                                  #  SKEEP2 CONTROLS CHECKING OF NON-SWITCHABLE ERASABLE MEMORY WITH BANK NUMBERS IN EB.
055872,000227:                                                                                                  #  ERASCHK TAKES APPROXMATELY 7 SECONDS
055873,000228: 43,3336           34753        ERASCHK            CA       S+1                                   
055874,000229: 43,3337           55372                           TS       SKEEP2                                
055875,000230: 43,3340           34755        0EBANK             CA       S+ZERO                                
055876,000231: 43,3341           54003                           TS       EBANK                                 
055877,000232: 43,3342           33233                           CA       ERASCON3                              #  01461
055878,000233: 43,3343           55377                           TS       SKEEP7                                #  STARTING ADDRESS
055879,000234: 43,3344           35012                           CA       S10BITS                               #  01777
055880,000235: 43,3345           55373                           TS       SKEEP3                                #  LAST ADDRESS CHECKED
055881,000236: 43,3346           03366                           TC       ERASLOOP                              
055882,000237: 
055883,000238: 43,3347           35007        E134567B           CA       ERASCON6                              #  01400
055884,000239: 43,3350           55377                           TS       SKEEP7                                #  STARTING ADDRESS
055885,000240: 43,3351           35012                           CA       S10BITS                               #  01777
055886,000241: 43,3352           55373                           TS       SKEEP3                                #  LAST ADDRESS CHECKED
055887,000242: 43,3353           03366                           TC       ERASLOOP                              
055888,000243: 
055889,000244: 43,3354           35007        2EBANK             CA       ERASCON6                              #  01400
055890,000245: 43,3355           55377                           TS       SKEEP7                                #  STARTING ADDRESS
055891,000246: 43,3356           33234                           CA       ERASCON4                              #  01773
055892,000247: 43,3357           55373                           TS       SKEEP3                                #  LAST ADDRESS CHECKED
055893,000248: 43,3360           03366                           TC       ERASLOOP                              
055894,000249: 
055895,000250: 43,3361           55372        NOEBANK            TS       SKEEP2                                #  +0
055896,000251: 43,3362           33231                           CA       ERASCON1                              #  00061
055897,000252: 43,3363           55377                           TS       SKEEP7                                #  STARTING ADDRESS
055898,000253: 43,3364           33232                           CA       ERASCON2                              #  01373
055899,000254: 43,3365           55373                           TS       SKEEP3                                #  LAST ADDRESS CHECKED
055900,000255: 
055901,000256: 43,3366           00004        ERASLOOP           INHINT                                         
055902,000257: 43,3367           30003                           CA       EBANK                                 #  STORES C(EBANK)
055903,000258: 43,3370           55374                           TS       SKEEP4                                
055904,000259: 43,3371           00006                           EXTEND                                         
055905,000260: 43,3372           51377                           NDX      SKEEP7                                
055906,000261: 43,3373           30001                           DCA      0000                                  
055907,000262: 43,3374           53376                           DXCH     SKEEP5                                #  STORES C(X) AND C(X+1) IN SKEEP6 AND 5.
055908,000263: 43,3375           31377                           CA       SKEEP7                                
055909,000264: 43,3376           55360                           TS       ERESTORE                              #  IF RESTART, RESTORE C(X) AND C(X+1)
055910,000265: 43,3377           54001                           TS       L                                     
055911,000266: 43,3400           24001                           INCR     L                                     
055912,000267: 43,3401           50000                           NDX      A                                     
055913,000268: 43,3402           52001                           DXCH     0000                                  #  PUTS OWN ADDRESS IN X AND X +1
055914,000269: 43,3403           51377                           NDX      SKEEP7                                
055915,000270: 43,3404           40001                           CS       0001                                  #  CS  X+1
055916,000271: 43,3405           51377                           NDX      SKEEP7                                
055917,000272: 43,3406           60000                           AD       0000                                  #  AD X
055918,000273: 43,3407           03272                           TC       -1CHK                                 
055919,000274: 43,3410           31360                           CA       ERESTORE                              #  HAS ERASABLE BEEN RESTORED
055920,000275: 43,3411           00006                           EXTEND                                         

Page 1278

055922,000277: 43,3412           13436                           BZF      ELOOPFIN                              #  YES, EXIT ERASLOOP.
055923,000278: 43,3413           00006                           EXTEND                                         
055924,000279: 43,3414           51377                           NDX      SKEEP7                                
055925,000280: 43,3415           40001                           DCS      0000                                  #  COMPLEMENT OF ADDRESS OF X AND X+1
055926,000281: 43,3416           51377                           NDX      SKEEP7                                
055927,000282: 43,3417           52001                           DXCH     0000                                  #  PUT COMPLEMENT OF ADDRESS OF X AND X+1
055928,000283: 43,3420           51377                           NDX      SKEEP7                                
055929,000284: 43,3421           40000                           CS       0000                                  #  CS X
055930,000285: 43,3422           51377                           NDX      SKEEP7                                
055931,000286: 43,3423           60001                           AD       0001                                  #  AD X+1
055932,000287: 43,3424           03272                           TC       -1CHK                                 
055933,000288: 43,3425           31360                           CA       ERESTORE                              #  HAS ERASABLE BEEN RESTORED
055934,000289: 43,3426           00006                           EXTEND                                         
055935,000290: 43,3427           13436                           BZF      ELOOPFIN                              #  YES, EXIT ERASLOOP.
055936,000291: 43,3430           00006                           EXTEND                                         
055937,000292: 43,3431           31376                           DCA      SKEEP5                                
055938,000293: 43,3432           51377                           NDX      SKEEP7                                
055939,000294: 43,3433           52001                           DXCH     0000                                  #  PUT B(X) AND B(X+1) BACK INTO X AND X+1
055940,000295: 43,3434           34755                           CA       S+ZERO                                
055941,000296: 43,3435           55360                           TS       ERESTORE                              #  IF RESTART, DO NOT RESTORE C(X), C(X+1)
055942,000297: 43,3436           00003        ELOOPFIN           RELINT                                         
055943,000298: 43,3437           03331                           TC       CHECKNJ                               #  CHECK FOR NEW JOB
055944,000299: 43,3440           31374                           CA       SKEEP4                                #  REPLACES B(EBANK)
055945,000300: 43,3441           54003                           TS       EBANK                                 
055946,000301: 43,3442           25377                           INCR     SKEEP7                                
055947,000302: 43,3443           41377                           CS       SKEEP7                                
055948,000303: 43,3444           61373                           AD       SKEEP3                                
055949,000304: 43,3445           00006                           EXTEND                                         
055950,000305: 43,3446           13450                           BZF      +2                                    
055951,000306: 43,3447           03366                           TC       ERASLOOP                              #  GO TO NEXT ADDRESS IN SAME BANK
055952,000307: 43,3450           11372                           CCS      SKEEP2                                
055953,000308: 43,3451           03361                           TC       NOEBANK                               
055954,000309: 43,3452           25372                           INCR     SKEEP2                                #  PUT +1 IN SKEEP2.
055955,000310: 43,3453           30003                           CA       EBANK                                 
055956,000311: 43,3454           64743                           AD       SBIT9                                 
055957,000312: 43,3455           54003                           TS       EBANK                                 
055958,000313: 43,3456           63242                           AD       ERASCON5                              #  76777, CHECK FOR BANK E2
055959,000314: 43,3457           00006                           EXTEND                                         
055960,000315: 43,3460           13354                           BZF      2EBANK                                
055961,000316: 43,3461           10003                           CCS      EBANK                                 
055962,000317: 43,3462           03347                           TC       E134567B                              #  GO TO EBANKS 1,3,4,5,6, AND 7
055963,000318: 43,3463           35007                           CA       ERASCON6                              #  END OF ERASCHK
055964,000319: 43,3464           54003                           TS       EBANK                                 
055965,000320:                                                                                                  #  CNTRCHK PERFORMS A CS OF ALL REGISTERS FROM OCT. 60 THROUGH OCT. 10.
055966,000321:                                                                                                  #  INCLUDED ARE ALL COUNTERS, T6-1, CYCLE AND SHIFT, AND ALL RUPT REGISTERS
055967,000322: 43,3465           34771        CNTRCHK            CA       CNTRCON                               #  00050
055968,000323: 43,3466           55372        CNTRLOOP           TS       SKEEP2                                
055969,000324: 43,3467           64750                           AD       SBIT4                                 #  +10 OCTAL
055970,000325: 43,3470           50000                           INDEX    A                                     
055971,000326: 43,3471           40000                           CS       0000                                  

Page 1279

055973,000328: 43,3472           11372                           CCS      SKEEP2                                
055974,000329: 43,3473           03466                           TC       CNTRLOOP                              
055975,000330: 
055976,000331:                                                                                                  #  CYCLSHFT CHECKS THE CYCLE AND SHIFT REGISTERS
055977,000332: 43,3474           33240        CYCLSHFT           CA       CONC+S1                               #  25252
055978,000333: 43,3475           54020                           TS       CYR                                   #  C(CYR) = 12525
055979,000334: 43,3476           54022                           TS       CYL                                   #  C(CYL) = 52524
055980,000335: 43,3477           54021                           TS       SR                                    #  C(SR) = 12525
055981,000336: 43,3500           54023                           TS       EDOP                                  #  C(EDOP) = 00125
055982,000337: 43,3501           60020                           AD       CYR                                   #  37777         C(CYR) = 45252
055983,000338: 43,3502           60022                           AD       CYL                                   #  00-12524      C(CYL) = 25251
055984,000339: 43,3503           60021                           AD       SR                                    #  00-25251      C(SR) = 05252
055985,000340: 43,3504           60023                           AD       EDOP                                  #  00-25376      C(EDOP) = +0
055986,000341: 43,3505           63241                           AD       CONC+S2                               #  C(CONC+S2) = 52400
055987,000342: 43,3506           03272                           TC       -1CHK                                 
055988,000343: 43,3507           60020                           AD       CYR                                   #  45252
055989,000344: 43,3510           60022                           AD       CYL                                   #  72523
055990,000345: 43,3511           60021                           AD       SR                                    #  77775
055991,000346: 43,3512           60023                           AD       EDOP                                  #  77775
055992,000347: 43,3513           64753                           AD       S+1                                   #  77776
055993,000348: 43,3514           03272                           TC       -1CHK                                 
055994,000349: 
055995,000350: 43,3515           25367                           INCR     SCOUNT     +1                         
055996,000351: 43,3516           03300                           TC       SMODECHK                              
055997,000352:                                                                                                  #  SKEEP1 HOLDS SUM
055998,000353:                                                                                                  #  SKEEP2 HOLDS PRESENT CONTENTS OF ADDRESS IN ROPECHK AND SHOWSUM ROUTINES
055999,000354:                                                                                                  #  SKEEP2 HOLDS BANK NUMBER IN LOW ORDER BITS DURING SHOWSUM DISPLAY
056000,000355:                                                                                                  #  SKEEP3 HOLDS PRESENT ADDRESS (00000 TO 01777 IN COMMON FIXED BANKS)
056001,000356:                                                                                                  #                               (04000 TO 07777 IN FXFX BANKS)
056002,000357:                                                                                                  #  SKEEP3 HOLDS BUGGER WORD DURING SHOWSUM DISPLAY
056003,000358:                                                                                                  #  SKEEP4 HOLDS BANK NUMBER AND SUPER BANK NUMBER
056004,000359:                                                                                                  #  SKEEP5 COUNTS 2 SUCCESSIVE TC SELF WORDS
056005,000360:                                                                                                  #  SKEEP6 CONTROLS ROPECHK OR SHOWSUM OPTION
056006,000361:                                                                                                  #  SKEEP7 CONTROLS WHEN ROUNTINE IS IN COMMON FIXED OR FIXED FIXED BANKS
056007,000362: 
056008,000363: 43,3517           34754        ROPECHK            CA       S-ZERO                                #  *
056009,000364: 43,3520           55376                           TS       SKEEP6                                #  * -0 FOR ROPECHK.
056010,000365: 43,3521           34755        STSHOSUM           CA       S+ZERO                                #  * SHOULD BE ROPECHK
056011,000366: 
056012,000367: 43,3522           55374                           TS       SKEEP4                                #  BANK NUMBER
056013,000368: 43,3523           34753                           CA       S+1                                   
056014,000369: 43,3524           55377        COMMFX             TS       SKEEP7                                
056015,000370: 43,3525           34755                           CA       S+ZERO                                
056016,000371: 43,3526           55371                           TS       SKEEP1                                
056017,000372: 43,3527           55373                           TS       SKEEP3                                
056018,000373: 43,3530           34753                           CA       S+1                                   
056019,000374: 43,3531           55375                           TS       SKEEP5                                #  COUNTS DOWN 2 TC SELF WORDS
056020,000375: 43,3532           31374        COMADRS            CA       SKEEP4                                
056021,000376: 43,3533           54001                           TS       L                                     #  TO SET SUPER BANK
056022,000377: 43,3534           74350                           MASK     HI5                                   

Page 1280

056024,000379: 43,3535           61373                           AD       SKEEP3                                
056025,000380: 43,3536           04651                           TC       SUPDACAL                              #  SUPER DATA CALL
056026,000381: 43,3537           03562                           TC       ADSUM                                 
056027,000382: 43,3540           64741                           AD       SBIT11                                #  02000
056028,000383: 43,3541           03573                           TC       ADRSCHK                               
056029,000384: 
056030,000385: 43,3542           40000        FXFX               CS       A                                     
056031,000386: 43,3543           55377                           TS       SKEEP7                                
056032,000387: 43,3544           00006                           EXTEND                                         
056033,000388: 43,3545           13550                           BZF      +3                                    
056034,000389: 43,3546           34740                           CA       SBIT12                                #  04000, STARTING ADDRESS OF BANK 02
056035,000390: 43,3547           03551                           TC       +2                                    
056036,000391: 43,3550           35020                           CA       SBNK03                                #  06000, STARTING ADDRESS OF BANK 03
056037,000392: 43,3551           55373                           TS       SKEEP3                                
056038,000393: 43,3552           34755                           CA       S+ZERO                                
056039,000394: 43,3553           55371                           TS       SKEEP1                                
056040,000395: 43,3554           34753                           CA       S+1                                   
056041,000396: 43,3555           55375                           TS       SKEEP5                                #  COUNTS DOWN 2 TC SELF WORDS
056042,000397: 43,3556           51373        FXADRS             INDEX    SKEEP3                                
056043,000398: 43,3557           30000                           CA       0000                                  
056044,000399: 43,3560           03562                           TC       ADSUM                                 
056045,000400: 43,3561           03573                           TC       ADRSCHK                               
056046,000401: 
056047,000402: 43,3562           55372        ADSUM              TS       SKEEP2                                
056048,000403: 43,3563           61371                           AD       SKEEP1                                
056049,000404: 43,3564           55371                           TS       SKEEP1                                
056050,000405: 43,3565           34755                           CAF      S+ZERO                                
056051,000406: 43,3566           61371                           AD       SKEEP1                                
056052,000407: 43,3567           55371                           TS       SKEEP1                                
056053,000408: 43,3570           41372                           CS       SKEEP2                                
056054,000409: 43,3571           61373                           AD       SKEEP3                                
056055,000410: 43,3572           00002                           TC       Q                                     
056056,000411: 
056057,000412: 43,3573           22000        ADRSCHK            LXCH     A                                     
056058,000413: 43,3574           31373                           CA       SKEEP3                                
056059,000414: 43,3575           75012                           MASK     LOW10                                 #  RELATIVE ADDRESS
056060,000415: 43,3576           64350                           AD       -MAXADRS                              #  SUBTRACT MAX RELATIVE ADDRESS = 1777.
056061,000416: 43,3577           00006                           EXTEND                                         
056062,000417: 43,3600           13667                           BZF      SOPTION                               #  CHECKSUM FINISHED IF LAST ADDRESS.
056063,000418: 43,3601           11375                           CCS      SKEEP5                                #  IS CHECKSUM FINISHED
056064,000419: 43,3602           03605                           TC       +3                                    #  NO
056065,000420: 43,3603           03605                           TC       +2                                    #  NO
056066,000421: 43,3604           03667                           TC       SOPTION                               #  GO TO ROPECHK SHOWSUM OPTION
056067,000422: 43,3605           10001                           CCS      L                                     #  -0 MEANS A TC SELF WORD.
056068,000423: 43,3606           03615                           TC       CONTINU                               
056069,000424: 43,3607           03615                           TC       CONTINU                               
056070,000425: 43,3610           03615                           TC       CONTINU                               
056071,000426: 43,3611           11375                           CCS      SKEEP5                                
056072,000427: 43,3612           03616                           TC       CONTINU    +1                         
056073,000428: 43,3613           37761                           CA       S-1                                   

Page 1281

056075,000430: 43,3614           03616                           TC       CONTINU    +1                         #  AD IN THE BUGGER WORD
056076,000431: 43,3615           34753        CONTINU            CA       S+1                                   #  MAKE SURE TWO CONSECUTIVE TC SELF WORDS
056077,000432: 43,3616           55375                           TS       SKEEP5                                
056078,000433: 43,3617           11376                           CCS      SKEEP6                                #  *
056079,000434: 43,3620           10067                           CCS      NEWJOB                                #  * +1, SHOWSUM
056080,000435: 43,3621           05122                           TC       CHANG1                                #  *
056081,000436: 43,3622           03624                           TC       +2                                    #  *
056082,000437: 43,3623           03331                           TC       CHECKNJ                               #  -0 IN SKEEP6 FOR ROPECHK
056083,000438: 
056084,000439: 43,3624           25373        ADRS+1             INCR     SKEEP3                                
056085,000440: 43,3625           11377                           CCS      SKEEP7                                
056086,000441: 43,3626           03532                           TC       COMADRS                               
056087,000442: 43,3627           03532                           TC       COMADRS                               
056088,000443: 43,3630           03556                           TC       FXADRS                                
056089,000444: 43,3631           03556                           TC       FXADRS                                
056090,000445: 
056091,000446: 43,3632           41374        NXTBNK             CS       SKEEP4                                
056092,000447: 43,3633           63722                           AD       LSTBNKCH                              #  LAST BANK TO BE CHECKED
056093,000448: 43,3634           00006                           EXTEND                                         
056094,000449: 43,3635           13124                           BZF      ENDSUMS                               #  END OF SUMMING OF BANKS.
056095,000450: 43,3636           31374                           CA       SKEEP4                                
056096,000451: 43,3637           64741                           AD       SBIT11                                
056097,000452: 43,3640           55374                           TS       SKEEP4                                #  37 TO 40 INCRMTS SKEEP4 BY END RND CARRY
056098,000453: 43,3641           03645                           TC       CHKSUPR                               
056099,000454: 43,3642           34735        17TO20             CA       SBIT15                                
056100,000455: 43,3643           27374                           ADS      SKEEP4                                #  SET FOR BANK 20
056101,000456: 43,3644           03661                           TC       GONXTBNK                              
056102,000457: 43,3645           74350        CHKSUPR            MASK     HI5                                   
056103,000458: 43,3646           00006                           EXTEND                                         
056104,000459: 43,3647           13657                           BZF      NXTSUPR                               #  INCREMENT SUPER BANK
056105,000460: 43,3650           63237        27TO30             AD       S13BITS                               
056106,000461: 43,3651           00006                           EXTEND                                         
056107,000462: 43,3652           13654                           BZF      +2                                    #  BANK SET FOR 30
056108,000463: 43,3653           03661                           TC       GONXTBNK                              
056109,000464: 43,3654           33235                           CA       SIXTY                                 #  FIRST SUPER BANK
056110,000465: 43,3655           27374                           ADS      SKEEP4                                
056111,000466: 43,3656           03661                           TC       GONXTBNK                              
056112,000467: 43,3657           63236        NXTSUPR            AD       SUPRCON                               #  SET BNK 30 + INCR SUPR BNK AND CANCEL
056113,000468: 43,3660           27374                           ADS      SKEEP4                                #  ERC BIT OF THE 37 TO 40 ADVANCE.
056114,000469: 43,3661           11377        GONXTBNK           CCS      SKEEP7                                
056115,000470: 43,3662           03524                           TC       COMMFX                                
056116,000471: 43,3663           34753                           CA       S+1                                   
056117,000472: 43,3664           03542                           TC       FXFX                                  
056118,000473: 43,3665           34745                           CA       SBIT7                                 #  HAS TO BE LARGER THAN NO OF FXSW BANKS.
056119,000474: 43,3666           03524                           TC       COMMFX                                
056120,000475: 
056121,000476: 43,3667           31374        SOPTION            CA       SKEEP4                                
056122,000477: 43,3670           74350                           MASK     HI5                                   #  = BANK BITS
056123,000478: 43,3671           04331                           TC       LEFT5                                 
056124,000479: 43,3672           54001                           TS       L                                     #  BANK NUMBER BEFORE SUPER BANK

Page 1282

056126,000481: 43,3673           31374                           CA       SKEEP4                                
056127,000482: 43,3674           74357                           MASK     S8BITS                                #  = SUPER BANK BITS
056128,000483: 43,3675           00006                           EXTEND                                         
056129,000484: 43,3676           13704                           BZF      SOPT                                  #  BEFORE SUPER BANK
056130,000485: 43,3677           54021                           TS       SR                                    #  SUPER BANK NECESSARY
056131,000486: 43,3700           30001                           CA       L                                     
056132,000487: 43,3701           74757                           MASK     SEVEN                                 
056133,000488: 43,3702           60021                           AD       SR                                    
056134,000489: 43,3703           54001                           TS       L                                     #  BANK NUMBER WITH SUPER BANK
056135,000490: 43,3704           31376        SOPT               CA       SKEEP6                                #  *
056136,000491: 43,3705           00006                           EXTEND                                         #  *
056137,000492: 43,3706           13710                           BZF      +2                                    #  * ON -0 CONTINUE WITH ROPE CHECK.
056138,000493: 43,3707           03106                           TC       SDISPLAY                              #  * ON +1 GO TO DISPLAY OF SUM.
056139,000494: 43,3710           11371                           CCS      SKEEP1                                #  FORCE SUM TO ABSOLUTE VALUE.
056140,000495: 43,3711           03713                           TC       +2                                    
056141,000496: 43,3712           03714                           TC       +2                                    
056142,000497: 43,3713           64753                           AD       S+1                                   
056143,000498: 43,3714           55371                           TS       SKEEP1                                
056144,000499: 43,3715           40001        BNKCHK             CS       L                                     #  = - BANK NUMBER
056145,000500: 43,3716           61371                           AD       SKEEP1                                
056146,000501: 43,3717           67761                           AD       S-1                                   
056147,000502: 43,3720           03272                           TC       -1CHK                                 #  CHECK SUM
056148,000503: 43,3721           03632                           TC       NXTBNK                                
056149,000504: 
056150,000505: 43,3722     0067                                  EBANK=   NEWJOB                                
056151,000506: 43,3722           66100        LSTBNKCH           BBCON*                                         #  * CONSTANT, LAST BANK.

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