Source Code

These source-code files were obtained by digitally photographing an Artemis 72 (Apollo 15-17 Command Module) program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. Photography was by Ron Burkey, and transcription was performed by a team of volunteers. Note that the page images presented online are of reduced quality, and that additional images may be available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS 
	BY NASA 2021114-011 11:40 FEB. 26, 1971
Note that the date is the date of the printout, not the date of the program revision.

059686,000002:                                                                                                  ## Copyright:   Public domain.
059687,000003:                                                                                                  ## Filename:    AGC_BLOCK_TWO_SELF_CHECK.agc
059688,000004:                                                                                                  ## Purpose:     Part of the source code for Artemis (i.e., Colossus 3),
059689,000005:                                                                                                  ##              build 072.  This is for the Command Module's (CM) 
059690,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for 
059691,000007:                                                                                                  ##              Apollo 15-17.
059692,000008:                                                                                                  ## Assembler:   yaYUL
059693,000009:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
059694,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
059695,000011:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Artemis072/
059696,000012:                                                                                                  ## Mod history: 2009-08-18 JL   Adapted from corresponding Comanche 055 file.
059697,000013:                                                                                                  ##              2010-02-20 RSB  Un-##'d this header.
059698,000014:                                                                                                  ##              2017-01-21 RSB  Proofed comment text by diff'ing vs Comanche 55
059699,000015:                                                                                                  ##                              and corrected errors found.
059700,000016: 

Page 1392

059702,000018: 
059703,000019:                                                                                                  #  PROGRAM DESCRIPTION                           DATE  20 DECEMBER 1967
059704,000020:                                                                                                  #  PROGRAM NAME -  SELF-CHECK                    LOG SECTION AGC BLOCK TWO SELF-CHECK
059705,000021:                                                                                                  #  MOD NO - 1                                    ASSEMBLY SUBROUTINE UTILITYM REV 25
059706,000022:                                                                                                  #  MOD BY - GAUNTT
059707,000023: 
059708,000024:                                                                                                  #  FUNCTIONAL DESCRIPTION
059709,000025: 
059710,000026:                                                                                                  #  PROGRAM HAS TWO MAIN PARTS. THE FIRST IS SELF-CHECK WHICH RUNS AS A ZERO PRIORITY JOB WITH NO CORE SET, AS
059711,000027:                                                                                                  #  PART OF THE BACK-UP IDLE LOOP. THE SECOND IS SHOW-BANKSUM WHICH RUNS AS A REGULAR EXECUTIVE JOB WITH ITS OWN
059712,000028:                                                                                                  #  STARTING VERB.
059713,000029:                                                                                                  #  THE PURPOSE OF SELF-CHECK IS TO CHECK OUT VARIOUS PARTS OF THE COMPUTER AS OUTLINED BELOW IN THE OPTIONS.
059714,000030:                                                                                                  #  THE PURPOSE OF SHOW-BANKSUM IS TO DISPLAY THE SUM OF EACH BANK, ONE AT A TIME.
059715,000031:                                                                                                  #  IN ALL THERE ARE  7 POSSIBLE OPTIONS IN THIS BLOCK II VERSION OF SELF-CHECK. MORE DETAIL DESCRIPTION MAY BE
059716,000032:                                                                                                  #  FOUND IN E-2065 BLOCK II AGC SELF-CHECK AND SHOW BANKSUM BY EDWIN D. SMALLY DECEMBER 1966, AND ADDENDA 2 AND 3.
059717,000033:                                                                                                  #  THE DIFFERENT OPTIONS ARE CONTROLLED BY PUTTING DIFFERENT NUMBERS IN THE SMODE REGISTER (NOUN 27). BELOW IS
059718,000034:                                                                                                  #  A DESCRIPTION OF WHAT PARTS OF THE COMPUTER THAT ARE CHECKED BY THE OPTIONS, AND THE CORRESPONDING NUMBER, IN
059719,000035:                                                                                                  #  OCTAL, TO LOAD INTO SMODE.
059720,000036:                                                                                                  #        +-4             ERASABLE MEMORY
059721,000037:                                                                                                  #        +-5             FIXED MEMORY
059722,000038:                                                                                                  #        +-1,2,3,6,7,10  EVERYTHING IN OPTIONS 4 AND 5.
059723,000039:                                                                                                  #        -0              SAME AS +-10 UNTIL AN ERROR IS DETECTED.
059724,000040:                                                                                                  #        +0              NO CHECK, PUTS COMPUTER INTO THE BACKUP IDLE LOOP.
059725,000041: 
059726,000042:                                                                                                  #  WARNINGS
059727,000043: 
059728,000044:                                                                                                  #        USE OF E MEMORY RESERVED FOR SELF-CHECK (EVEN IN IDLE LOOP) AS TEMP STORAGE BY OTHER PROGRAMS IS DANGEROUS.
059729,000045:                                                                                                  #        SMODE SET GREATER THAN OCT 10 PUTS COMPUTER INTO BACKUP IDLE LOOP.
059730,000046: 
059731,000047:                                                                                                  #  CALLING SEQUENCE
059732,000048: 
059733,000049:                                                                                                  #        TO CALL SELF-CHECK KEY IN
059734,000050:                                                                                                  #                V 21 N 27 E     OPTION NUMBER E
059735,000051:                                                                                                  #        TO CALL SHOW-BANKSUM KEY IN
059736,000052:                                                                                                  #                V 91 E          DISPLAYS FIRST BANK
059737,000053:                                                                                                  #                V 33 E          PROCEED, DISPLAYS NEXT BANK
059738,000054: 
059739,000055: 
059740,000056:                                                                                                  #  EXIT MODES, NORMAL AND ALARM
059741,000057: 
059742,000058:                                                                                                  #  SELF-CHECK NORMALLY CONTINUES INDEFINITELY UNLESS THERE IS AN ERROR DETECTED. IF SO + OPTION NUMBERS PUT
059743,000059:                                                                                                  #  COMPUTER INTO BACKUP IDLE LOOP, - OPTION NUMBERS RESTART THE OPTION.
059744,000060:                                                                                                  #  THE -0 OPTION PROCEEDS FROM THE LINE FOLLOWING THE LINE WHERE THE ERROR WAS DETECTED.
059745,000061:                                                                                                  #  SHOW-BANKSUM PROCEEDS UNTIL A TERMINATE IS KEYED IN (V 34 E). THE COMPUTER IS PUT INTO THE BACKUP IDLE LOOP
059746,000062: 
059747,000063: 
059748,000064:                                                                                                  #  OUTPUT

Page 1393

059750,000066:                                                                                                  #  SELF-CHECK UPON DETECTING AN ERROR LOADS THE SELF-CHECK ALARM CONSTANT (01102) INTO THE FAILREG SET AND
059751,000067:                                                                                                  #  TURNS ON THE ALARM LIGHT. THE OPERATOR MAY THEN DISPLAY THE THREE FAILREGS BY KEYING IN V 05 N 09 E. FOR FURTHER
059752,000068:                                                                                                  #  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,
059753,000069:                                                                                                  #  IN R2 THE BBCON OF SELF-CHECK, AND IN R3 THE TOTAL NUMBER OF ERRORS DETECTED BY SELF-CHECK SINCE THE LAST MAN
059754,000070:                                                                                                  #  INITIATED FRESH START (SLAP1).
059755,000071:                                                                                                  #  SHOW-BANKSUM STARTING WITH BANK 0 DISPLAYS IN R1 THE BANK SUM (A +-NUMBER EQUAL TO THE BANK NUMBER), IN R2
059756,000072:                                                                                                  #  THE BANK NUMBER, AND IN R3 THE BUGGER WORD.
059757,000073: 
059758,000074: 
059759,000075:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
059760,000076: 
059761,000077:                                                                                                  #        ACCOMPLISHED BY FRESH START
059762,000078:                                                                                                  #                SMODE SET TO +0
059763,000079: 
059764,000080:                                                                                                  #  DEBRIS
059765,000081: 
059766,000082:                                                                                                  #        ALL EXITS FROM THE CHECK OF ERASABLE (ERASCHK) RESTORE ORIGINAL CONTENTS TO REGISTERS UNDER CHECK.
059767,000083:                                                                                                  #        EXCEPTION IS A RESTART. RESTART THAT OCCURS DURING ERASCHK RESTORES ERASABLE, UNLESS THERE IS EVIDENCE TO DOUBT
059768,000084:                                                                                                  #        E MEMORY, IN WHICH CASE PROGRAM THEN DOES A FRESH START (DOFSTART).
059769,000085: 
059770,000086: 43,2000                                           SETLOC   SELFCHEC                              
059771,000087: 43,2000                                           BANK                                           
059772,000088: 
059773,000089: 43,3166                                           COUNT*   $$/SELF                               
059774,000090: 43,3166     4770               SBIT1              EQUALS   BIT1                                  
059775,000091: 43,3166     4767               SBIT2              EQUALS   BIT2                                  
059776,000092: 43,3166     4766               SBIT3              EQUALS   BIT3                                  
059777,000093: 43,3166     4765               SBIT4              EQUALS   BIT4                                  
059778,000094: 43,3166     4764               SBIT5              EQUALS   BIT5                                  
059779,000095: 43,3166     4763               SBIT6              EQUALS   BIT6                                  
059780,000096: 43,3166     4762               SBIT7              EQUALS   BIT7                                  
059781,000097: 43,3166     4761               SBIT8              EQUALS   BIT8                                  
059782,000098: 43,3166     4760               SBIT9              EQUALS   BIT9                                  
059783,000099: 43,3166     4757               SBIT10             EQUALS   BIT10                                 
059784,000100: 43,3166     4756               SBIT11             EQUALS   BIT11                                 
059785,000101: 43,3166     4755               SBIT12             EQUALS   BIT12                                 
059786,000102: 43,3166     4754               SBIT13             EQUALS   BIT13                                 
059787,000103: 43,3166     4753               SBIT14             EQUALS   BIT14                                 
059788,000104: 43,3166     4752               SBIT15             EQUALS   BIT15                                 
059789,000105: 
059790,000106: 43,3166     4772               S+ZERO             EQUALS   ZERO                                  
059791,000107: 43,3166     4770               S+1                EQUALS   BIT1                                  
059792,000108: 43,3166     4767               S+2                EQUALS   BIT2                                  
059793,000109: 43,3166     6214               S+3                EQUALS   THREE                                 
059794,000110: 43,3166     4766               S+4                EQUALS   FOUR                                  
059795,000111: 43,3166     4773               S+5                EQUALS   FIVE                                  
059796,000112: 43,3166     6211               S+6                EQUALS   SIX                                   
059797,000113: 43,3166     4774               S+7                EQUALS   SEVEN                                 

Page 1394

059799,000115: 43,3166     4350               S8BITS             EQUALS   LOW8                                  #  00377
059800,000116: 43,3166     5004               CNTRCON            =        OCT50                                 #  USED IN CNTRCHK
059801,000117: 43,3166           00061        ERASCON1           OCTAL    00061                                 #  USED IN ERASCHK
059802,000118: 43,3167           01373        ERASCON2           OCTAL    01373                                 #  USED IN ERASCHK
059803,000119: 43,3170     5024               ERASCON6           =        OCT1400                               #  USED IN ERASCHK
059804,000120: 43,3170     5030               ERASCON3           EQUALS   V06N49                                #  USED IN ERASCHK
059805,000121: 43,3170           01773        ERASCON4           OCTAL    01773                                 #  USED IN ERASCHK
059806,000122: 43,3171     5041               S10BITS            EQUALS   LOW10                                 #  01777, USED IN ERASCHK
059807,000123: 43,3171     5050               SBNK03             EQUALS   PRIO6                                 #  06000, USED IN ROPECHK
059808,000124: 43,3171     4344               -MAXADRS           =        HI5                                   #  FOR ROPECHK
059809,000125: 43,3171     5010               SIXTY              EQUALS   SUPER011                              
059810,000126: 43,3171           60017        SUPRCON            OCTAL    60017                                 #  USED IN ROPECHK
059811,000127: 43,3172           17777        S13BITS            OCTAL    17777                                 
059812,000128: 43,3173           25252        CONC+S1            OCTAL    25252                                 #  USED IN CYCLSHFT
059813,000129: 43,3174           52400        CONC+S2            OCTAL    52400                                 #  USED IN CYCLSHFT
059814,000130: 43,3175           76777        ERASCON5           OCTAL    76777                                 
059815,000131: 43,3176     5736               S-7                =        OCT77770                              
059816,000132: 43,3176     6061               S-4                EQUALS   NEG4                                  
059817,000133: 43,3176     7700               S-3                EQUALS   NEG3                                  
059818,000134: 43,3176     7701               S-2                EQUALS   NEG2                                  
059819,000135: 43,3176     7702               S-1                EQUALS   NEGONE                                
059820,000136: 43,3176     4771               S-ZERO             EQUALS   NEG0                                  
059821,000137: 
059822,000138: 43,3176  E3,1400                                  EBANK=   LST1                                  
059823,000139: 43,3176           01371        ADRS1              ADRES    SKEEP1                                
059824,000140: 43,3177           03270        SELFADRS           ADRES    SELFCHK                               #  SELFCHK RETURN ADDRESS. SHOULD BE PUT
059825,000141:                                                                                                  #  IN SELFRET WHEN GOING FROM SELFCHK TO
059826,000142:                                                                                                  #  SHOWSUM AND PUT IN SKEEP1 WHEN GOING
059827,000143:                                                                                                  #  FROM SHOWSUM TO SELF-CHECK.
059828,000144: 
059829,000145: 43,3200           31360        PRERRORS           CA       ERESTORE                              #  IS IT NECESSARY TO RESTORE ERASABLE
059830,000146: 43,3201           00006                           EXTEND                                         
059831,000147: 43,3202           13211                           BZF      ERRORS                                #  NO
059832,000148: 43,3203           00006                           EXTEND                                         
059833,000149: 43,3204           31376                           DCA      SKEEP5                                
059834,000150: 43,3205           51377                           INDEX    SKEEP7                                
059835,000151: 43,3206           52001                           DXCH     0000                                  #  RESTORE THE TWO ERASABLE REGISTERS
059836,000152: 43,3207           34772                           CA       S+ZERO                                
059837,000153: 43,3210           55360                           TS       ERESTORE                              
059838,000154: 43,3211           00004        ERRORS             INHINT                                         
059839,000155: 43,3212           30002                           CA       Q                                     
059840,000156: 43,3213           55357                           TS       SFAIL                                 #  SAVE Q FOR FAILURE LOCATION
059841,000157: 43,3214           55363                           TS       ALMCADR                               #  FOR DISPLAY WITH BBANK AND ERCOUNT
059842,000158: 43,3215           25365                           INCR     ERCOUNT                               #  KEEP TRACK OF NUMBER OF MALFUNCTIONS.
059843,000159: 43,3216           05673        TCALARM2           TC       ALARM2                                
059844,000160: 43,3217           01102                           OCT      01102                                 #  SELF-CHECK MALFUNCTION INDICATOR
059845,000161: 43,3220           11362                           CCS      SMODE                                 
059846,000162: 43,3221           34772        SIDLOOP            CA       S+ZERO                                
059847,000163: 43,3222           55362                           TS       SMODE                                 
059848,000164: 43,3223           03270                           TC       SELFCHK                               #  GO TO IDLE LOOP

Page 1395

059850,000166: 43,3224           01357                           TC       SFAIL                                 #  CONTINUE WITH SELF-CHECK
059851,000167: 
059852,000168: 43,3225           10000        -1CHK              CCS      A                                     
059853,000169: 43,3226           13200                           TCF      PRERRORS                              
059854,000170: 43,3227           13200                           TCF      PRERRORS                              
059855,000171: 43,3230           10000                           CCS      A                                     
059856,000172: 43,3231           13200                           TCF      PRERRORS                              
059857,000173: 43,3232           00002                           TC       Q                                     
059858,000174: 
059859,000175: 43,3233           00006        SMODECHK           EXTEND                                         
059860,000176: 43,3234           23371                           QXCH     SKEEP1                                
059861,000177: 43,3235           03264                           TC       CHECKNJ                               #  CHECK FOR NEW JOB
059862,000178: 43,3236           11362                           CCS      SMODE                                 
059863,000179: 43,3237           03244                           TC       SOPTIONS                              
059864,000180: 43,3240           03235                           TC       SMODECHK   +2                         #  TO BACKUP IDLE LOOP
059865,000181: 43,3241           03244                           TC       SOPTIONS                              
059866,000182: 43,3242           25366                           INCR     SCOUNT                                
059867,000183: 43,3243           01371                           TC       SKEEP1                                #  CONTINUE WITH SELF-CHECK
059868,000184: 
059869,000185: 43,3244           65736        SOPTIONS           AD       S-7                                   
059870,000186: 43,3245           00006                           EXTEND                                         
059871,000187: 43,3246           63250                           BZMF     +2                                    #  FOR OPTIONS BELOW NINE.
059872,000188: 43,3247           03221        BNKOPTN            TC       SIDLOOP                               #  ILLEGAL OPTION.  GO TO IDLE LOOP.
059873,000189: 43,3250           25366                           INCR     SCOUNT                                #  FOR OPTIONS BELOW NINE.
059874,000190: 43,3251           64774                           AD       S+7                                   
059875,000191: 
059876,000192: 43,3252           50000                           INDEX    A                                     
059877,000193: 43,3253           03254                           TC       SOPTION1                              
059878,000194: 43,3254           01371        SOPTION1           TC       SKEEP1                                #  WAS TC+TCF
059879,000195: 43,3255           01371        SOPTION2           TC       SKEEP1                                #  WAS IN:OUT1
059880,000196: 43,3256           01371        SOPTION3           TC       SKEEP1                                #  WAS COUNTCHK
059881,000197: 43,3257           03271        SOPTION4           TC       ERASCHK                               
059882,000198: 43,3260           03452        SOPTION5           TC       ROPECHK                               
059883,000199: 43,3261           01371        SOPTION6           TC       SKEEP1                                
059884,000200: 43,3262           01371        SOPTION7           TC       SKEEP1                                
059885,000201: 43,3263           01371        SOPTON10           TC       SKEEP1                                #  CONTINUE WITH SELF-CHECK
059886,000202: 
059887,000203: 43,3264           00006        CHECKNJ            EXTEND                                         
059888,000204: 43,3265           23361                           QXCH     SELFRET                               #  SAVE RETURN ADDRESS WHILE TESTING NEWJOB
059889,000205: 43,3266           04655                           TC       POSTJUMP                              #  TO SEE IF ANY JOBS HAVE BECOME ACTIVE.
059890,000206: 43,3267           03177                           CADR     ADVAN                                 
059891,000207: 
059892,000208: 43,3270           03233        SELFCHK            TC       SMODECHK                              #  ** CHARLEY, COME IN HERE
059893,000209: 
059894,000210:                                                                                                  #  SKEEP7 HOLDS LOWEST OF TWO ADDRESSES BEING CHECKED.
059895,000211:                                                                                                  #  SKEEP6 HOLDS B(X+1).
059896,000212:                                                                                                  #  SKEEP5 HOLDS B(X).
059897,000213:                                                                                                  #  SKEEP4 HOLDS C(EBANK) DURING ERASLOOP AND CHECKNJ.
059898,000214:                                                                                                  #  SKEEP3 HOLDS LAST ADDRESS BEING CHECKED (HIGHEST ADDRESS).
059899,000215:                                                                                                  #  SKEEP2 CONTROLS CHECKING OF NON-SWITCHABLE ERASABLE MEMORY WITH BANK NUMBERS IN EB.

Page 1396

059901,000217:                                                                                                  #  ERASCHK TAKES APPROXMATELY 7 SECONDS
059902,000218: 
059903,000219: 43,3271           34770        ERASCHK            CA       S+1                                   
059904,000220: 43,3272           55372                           TS       SKEEP2                                
059905,000221: 43,3273           34772        0EBANK             CA       S+ZERO                                
059906,000222: 43,3274           54003                           TS       EBANK                                 
059907,000223: 43,3275           35030                           CA       ERASCON3                              #  01461
059908,000224: 43,3276           55377                           TS       SKEEP7                                #  STARTING ADDRESS
059909,000225: 43,3277           35041                           CA       S10BITS                               #  01777
059910,000226: 43,3300           55373                           TS       SKEEP3                                #  LAST ADDRESS CHECKED
059911,000227: 43,3301           03321                           TC       ERASLOOP                              
059912,000228: 
059913,000229: 43,3302           35024        E134567B           CA       ERASCON6                              #  01400
059914,000230: 43,3303           55377                           TS       SKEEP7                                #  STARTING ADDRESS
059915,000231: 43,3304           35041                           CA       S10BITS                               #  01777
059916,000232: 43,3305           55373                           TS       SKEEP3                                #  LAST ADDRESS CHECKED
059917,000233: 43,3306           03321                           TC       ERASLOOP                              
059918,000234: 
059919,000235: 43,3307           35024        2EBANK             CA       ERASCON6                              #  01400
059920,000236: 43,3310           55377                           TS       SKEEP7                                #  STARTING ADDRESS
059921,000237: 43,3311           33170                           CA       ERASCON4                              #  01773
059922,000238: 43,3312           55373                           TS       SKEEP3                                #  LAST ADDRESS CHECKED
059923,000239: 43,3313           03321                           TC       ERASLOOP                              
059924,000240: 
059925,000241: 43,3314           55372        NOEBANK            TS       SKEEP2                                #  +0
059926,000242: 43,3315           33166                           CA       ERASCON1                              #  00061
059927,000243: 43,3316           55377                           TS       SKEEP7                                #  STARTING ADDRESS
059928,000244: 43,3317           33167                           CA       ERASCON2                              #  01373
059929,000245: 43,3320           55373                           TS       SKEEP3                                #  LAST ADDRESS CHECKED
059930,000246: 
059931,000247: 43,3321           00004        ERASLOOP           INHINT                                         
059932,000248: 43,3322           30003                           CA       EBANK                                 #  STORES C(EBANK)
059933,000249: 43,3323           55374                           TS       SKEEP4                                
059934,000250: 43,3324           00006                           EXTEND                                         
059935,000251: 43,3325           51377                           NDX      SKEEP7                                
059936,000252: 43,3326           30001                           DCA      0000                                  
059937,000253: 43,3327           53376                           DXCH     SKEEP5                                #  STORES C(X) AND C(X+1) IN SKEEP6 AND 5.
059938,000254: 43,3330           31377                           CA       SKEEP7                                
059939,000255: 43,3331           55360                           TS       ERESTORE                              #  IF RESTART, RESTORE C(X) AND C(X+1)
059940,000256: 43,3332           54001                           TS       L                                     
059941,000257: 43,3333           24001                           INCR     L                                     
059942,000258: 43,3334           50000                           NDX      A                                     
059943,000259: 43,3335           52001                           DXCH     0000                                  #  PUTS OWN ADDRESS IN X AND X +1
059944,000260: 43,3336           51377                           NDX      SKEEP7                                
059945,000261: 43,3337           40001                           CS       0001                                  #  CS X+1
059946,000262: 43,3340           51377                           NDX      SKEEP7                                
059947,000263: 43,3341           60000                           AD       0000                                  #  AD X
059948,000264: 43,3342           03225                           TC       -1CHK                                 
059949,000265: 43,3343           31360                           CA       ERESTORE                              #  HAS ERASABLE BEEN RESTORED
059950,000266: 43,3344           00006                           EXTEND                                         
059951,000267: 43,3345           13371                           BZF      ELOOPFIN                              #  YES, EXIT ERASLOOP.

Page 1397

059953,000269: 43,3346           00006                           EXTEND                                         
059954,000270: 43,3347           51377                           NDX      SKEEP7                                
059955,000271: 43,3350           40001                           DCS      0000                                  #  COMPLEMENT OF ADDRESS OF X AND X+1
059956,000272: 43,3351           51377                           NDX      SKEEP7                                
059957,000273: 43,3352           52001                           DXCH     0000                                  #  PUT COMPLEMENT OF ADDRESS OF X AND X+1
059958,000274: 43,3353           51377                           NDX      SKEEP7                                
059959,000275: 43,3354           40000                           CS       0000                                  #  CS X
059960,000276: 43,3355           51377                           NDX      SKEEP7                                
059961,000277: 43,3356           60001                           AD       0001                                  #  AD X+1
059962,000278: 43,3357           03225                           TC       -1CHK                                 
059963,000279: 43,3360           31360                           CA       ERESTORE                              #  HAS ERASABLE BEEN RESTORED
059964,000280: 43,3361           00006                           EXTEND                                         
059965,000281: 43,3362           13371                           BZF      ELOOPFIN                              #  YES, EXIT ERASLOOP.
059966,000282: 43,3363           00006                           EXTEND                                         
059967,000283: 43,3364           31376                           DCA      SKEEP5                                
059968,000284: 43,3365           51377                           NDX      SKEEP7                                
059969,000285: 43,3366           52001                           DXCH     0000                                  #  PUT B(X) AND B(X+1) BACK INTO X AND X+1
059970,000286: 43,3367           34772                           CA       S+ZERO                                
059971,000287: 43,3370           55360                           TS       ERESTORE                              #  IF RESTART, DO NOT RESTORE C(X), C(X+1)
059972,000288: 43,3371           00003        ELOOPFIN           RELINT                                         
059973,000289: 43,3372           03264                           TC       CHECKNJ                               #  CHECK FOR NEW JOB
059974,000290: 43,3373           31374                           CA       SKEEP4                                #  REPLACES B(EBANK)
059975,000291: 43,3374           54003                           TS       EBANK                                 
059976,000292: 43,3375           25377                           INCR     SKEEP7                                
059977,000293: 43,3376           41377                           CS       SKEEP7                                
059978,000294: 43,3377           61373                           AD       SKEEP3                                
059979,000295: 43,3400           00006                           EXTEND                                         
059980,000296: 43,3401           13403                           BZF      +2                                    
059981,000297: 43,3402           03321                           TC       ERASLOOP                              #  GO TO NEXT ADDRESS IN SAME BANK
059982,000298: 43,3403           11372                           CCS      SKEEP2                                
059983,000299: 43,3404           03314                           TC       NOEBANK                               
059984,000300: 43,3405           25372                           INCR     SKEEP2                                #  PUT +1 IN SKEEP2.
059985,000301: 43,3406           30003                           CA       EBANK                                 
059986,000302: 43,3407           64760                           AD       SBIT9                                 
059987,000303: 43,3410           54003                           TS       EBANK                                 
059988,000304: 43,3411           63175                           AD       ERASCON5                              #  76777, CHECK FOR BANK E2
059989,000305: 43,3412           00006                           EXTEND                                         
059990,000306: 43,3413           13307                           BZF      2EBANK                                
059991,000307: 43,3414           10003                           CCS      EBANK                                 
059992,000308: 43,3415           03302                           TC       E134567B                              #  GO TO EBANKS 1,3,4,5,6, AND 7
059993,000309: 43,3416           35024                           CA       ERASCON6                              #  END OF ERASCHK
059994,000310: 43,3417           54003                           TS       EBANK                                 
059995,000311: 
059996,000312:                                                                                                  #  CNTRCHK PERFORMS A CS OF ALL REGISTERS FROM OCT. 60 THROUGH OCT. 10.
059997,000313:                                                                                                  #  INCLUDED ARE ALL COUNTERS, T6-1, CYCLE AND SHIFT, AND ALL RUPT REGISTERS
059998,000314: 
059999,000315: 43,3420           35004        CNTRCHK            CA       CNTRCON                               #  00050
060000,000316: 43,3421           55372        CNTRLOOP           TS       SKEEP2                                
060001,000317: 43,3422           64765                           AD       SBIT4                                 #  +10 OCTAL
060002,000318: 43,3423           50000                           INDEX    A                                     
060003,000319: 43,3424           40000                           CS       0000                                  
060004,000320: 43,3425           11372                           CCS      SKEEP2                                

Page 1398

060006,000322: 43,3426           03421                           TC       CNTRLOOP                              
060007,000323: 
060008,000324:                                                                                                  #  CYCLSHFT CHECKS THE CYCLE AND SHIFT REGISTERS
060009,000325: 
060010,000326: 43,3427           33173        CYCLSHFT           CA       CONC+S1                               #  25252
060011,000327: 43,3430           54020                           TS       CYR                                   #  C(CYR) = 12525
060012,000328: 43,3431           54022                           TS       CYL                                   #  C(CYL) = 52524
060013,000329: 43,3432           54021                           TS       SR                                    #  C(SR) = 12525
060014,000330: 43,3433           54023                           TS       EDOP                                  #  C(EDOP) = 00125
060015,000331: 43,3434           60020                           AD       CYR                                   #  37777         C(CYR) = 45252
060016,000332: 43,3435           60022                           AD       CYL                                   #  00-12524      C(CYL) = 25251
060017,000333: 43,3436           60021                           AD       SR                                    #  00-25251      C(SR) = 05252
060018,000334: 43,3437           60023                           AD       EDOP                                  #  00-25376      C(EDOP) = +0
060019,000335: 43,3440           63174                           AD       CONC+S2                               #  C(CONC+S2) = 52400
060020,000336: 43,3441           03225                           TC       -1CHK                                 
060021,000337: 43,3442           60020                           AD       CYR                                   #  45252
060022,000338: 43,3443           60022                           AD       CYL                                   #  72523
060023,000339: 43,3444           60021                           AD       SR                                    #  77775
060024,000340: 43,3445           60023                           AD       EDOP                                  #  77775
060025,000341: 43,3446           64770                           AD       S+1                                   #  77776
060026,000342: 43,3447           03225                           TC       -1CHK                                 
060027,000343: 
060028,000344: 43,3450           25367                           INCR     SCOUNT     +1                         
060029,000345: 43,3451           03233                           TC       SMODECHK                              
060030,000346: 
060031,000347:                                                                                                  #  SKEEP1 HOLDS SUM
060032,000348:                                                                                                  #  SKEEP2 HOLDS PRESENT CONTENTS OF ADDRESS IN ROPECHK AND SHOWSUM ROUTINES
060033,000349:                                                                                                  #  SKEEP2 HOLDS BANK NUMBER IN LOW ORDER BITS DURING SHOWSUM DISPLAY
060034,000350:                                                                                                  #  SKEEP3 HOLDS PRESENT ADDRESS (00000 TO 01777 IN COMMON FIXED BANKS)
060035,000351:                                                                                                  #                               (04000 TO 07777 IN FXFX BANKS)
060036,000352:                                                                                                  #  SKEEP3 HOLDS BUGGER WORD DURING SHOWSUM DISPLAY
060037,000353:                                                                                                  #  SKEEP4 HOLDS BANK NUMBER AND SUPER BANK NUMBER
060038,000354:                                                                                                  #  SKEEP5 COUNTS 2 SUCCESSIVE TC SELF WORDS
060039,000355:                                                                                                  #  SKEEP6 CONTROLS ROPECHK OR SHOWSUM OPTION
060040,000356:                                                                                                  #  SKEEP7 CONTROLS WHEN ROUNTINE IS IN COMMON FIXED OR FIXED FIXED BANKS
060041,000357: 
060042,000358: 43,3452           34771        ROPECHK            CA       S-ZERO                                #  *
060043,000359: 43,3453           55376                           TS       SKEEP6                                #  * -0 FOR ROPECHK.
060044,000360: 43,3454           34772        STSHOSUM           CA       S+ZERO                                #  * SHOULD BE ROPECHK
060045,000361: 
060046,000362: 43,3455           55374                           TS       SKEEP4                                #  BANK NUMBER
060047,000363: 43,3456           34770                           CA       S+1                                   
060048,000364: 43,3457           55377        COMMFX             TS       SKEEP7                                
060049,000365: 43,3460           34772                           CA       S+ZERO                                
060050,000366: 43,3461           55371                           TS       SKEEP1                                
060051,000367: 43,3462           55373                           TS       SKEEP3                                
060052,000368: 43,3463           34770                           CA       S+1                                   
060053,000369: 43,3464           55375                           TS       SKEEP5                                #  COUNTS DOWN 2 TC SELF WORDS
060054,000370: 43,3465           31374        COMADRS            CA       SKEEP4                                
060055,000371: 43,3466           54001                           TS       L                                     #  TO SET SUPER BANK
060056,000372: 43,3467           74344                           MASK     HI5                                   
060057,000373: 43,3470           61373                           AD       SKEEP3                                

Page 1399

060059,000375: 43,3471           04671                           TC       SUPDACAL                              #  SUPER DATA CALL
060060,000376: 43,3472           03515                           TC       ADSUM                                 
060061,000377: 43,3473           64756                           AD       SBIT11                                #  02000
060062,000378: 43,3474           03526                           TC       ADRSCHK                               
060063,000379: 
060064,000380: 43,3475           40000        FXFX               CS       A                                     
060065,000381: 43,3476           55377                           TS       SKEEP7                                
060066,000382: 43,3477           00006                           EXTEND                                         
060067,000383: 43,3500           13503                           BZF      +3                                    
060068,000384: 43,3501           34755                           CA       SBIT12                                #  04000, STARTING ADDRESS OF BANK 02
060069,000385: 43,3502           03504                           TC       +2                                    
060070,000386: 43,3503           35050                           CA       SBNK03                                #  06000, STARTING ADDRESS OF BANK 03
060071,000387: 43,3504           55373                           TS       SKEEP3                                
060072,000388: 43,3505           34772                           CA       S+ZERO                                
060073,000389: 43,3506           55371                           TS       SKEEP1                                
060074,000390: 43,3507           34770                           CA       S+1                                   
060075,000391: 43,3510           55375                           TS       SKEEP5                                #  COUNTS DOWN 2 TC SELF WORDS
060076,000392: 43,3511           51373        FXADRS             INDEX    SKEEP3                                
060077,000393: 43,3512           30000                           CA       0000                                  
060078,000394: 43,3513           03515                           TC       ADSUM                                 
060079,000395: 43,3514           03526                           TC       ADRSCHK                               
060080,000396: 
060081,000397: 43,3515           55372        ADSUM              TS       SKEEP2                                
060082,000398: 43,3516           61371                           AD       SKEEP1                                
060083,000399: 43,3517           55371                           TS       SKEEP1                                
060084,000400: 43,3520           34772                           CAF      S+ZERO                                
060085,000401: 43,3521           61371                           AD       SKEEP1                                
060086,000402: 43,3522           55371                           TS       SKEEP1                                
060087,000403: 43,3523           41372                           CS       SKEEP2                                
060088,000404: 43,3524           61373                           AD       SKEEP3                                
060089,000405: 43,3525           00002                           TC       Q                                     
060090,000406: 
060091,000407: 43,3526           22000        ADRSCHK            LXCH     A                                     
060092,000408: 43,3527           31373                           CA       SKEEP3                                
060093,000409: 43,3530           75041                           MASK     LOW10                                 #  RELATIVE ADDRESS
060094,000410: 43,3531           64344                           AD       -MAXADRS                              #  SUBTRACT MAX RELATIVE ADDRESS = 1777.
060095,000411: 43,3532           00006                           EXTEND                                         
060096,000412: 43,3533           13622                           BZF      SOPTION                               #  CHECKSUM FINISHED IF LAST ADDRESS.
060097,000413: 43,3534           11375                           CCS      SKEEP5                                #  IS CHECKSUM FINISHED
060098,000414: 43,3535           03540                           TC       +3                                    #  NO
060099,000415: 43,3536           03540                           TC       +2                                    #  NO
060100,000416: 43,3537           03622                           TC       SOPTION                               #  GO TO ROPECHK SHOWSUM OPTION
060101,000417: 43,3540           10001                           CCS      L                                     #  -0 MEANS A TC SELF WORD.
060102,000418: 43,3541           03550                           TC       CONTINU                               
060103,000419: 43,3542           03550                           TC       CONTINU                               
060104,000420: 43,3543           03550                           TC       CONTINU                               
060105,000421: 43,3544           11375                           CCS      SKEEP5                                
060106,000422: 43,3545           03551                           TC       CONTINU    +1                         
060107,000423: 43,3546           37702                           CA       S-1                                   
060108,000424: 43,3547           03551                           TC       CONTINU    +1                         #  AD IN THE BUGGER WORD

Page 1400

060110,000426: 43,3550           34770        CONTINU            CA       S+1                                   #  MAKE SURE TWO CONSECUTIVE TC SELF WORDS
060111,000427: 43,3551           55375                           TS       SKEEP5                                
060112,000428: 43,3552           11376                           CCS      SKEEP6                                #  *
060113,000429: 43,3553           10067                           CCS      NEWJOB                                #  * +1, SHOWSUM
060114,000430: 43,3554           05152                           TC       CHANG1                                #  *
060115,000431: 43,3555           03557                           TC       +2                                    #  *
060116,000432: 43,3556           03264                           TC       CHECKNJ                               #  -0 IN SKEEP6 FOR ROPECHK
060117,000433: 
060118,000434: 43,3557           25373        ADRS+1             INCR     SKEEP3                                
060119,000435: 43,3560           11377                           CCS      SKEEP7                                
060120,000436: 43,3561           03465                           TC       COMADRS                               
060121,000437: 43,3562           03465                           TC       COMADRS                               
060122,000438: 43,3563           03511                           TC       FXADRS                                
060123,000439: 43,3564           03511                           TC       FXADRS                                
060124,000440: 
060125,000441: 43,3565           41374        NXTBNK             CS       SKEEP4                                
060126,000442: 43,3566           63655                           AD       LSTBNKCH                              #  LAST BANK TO BE CHECKED
060127,000443: 43,3567           00006                           EXTEND                                         
060128,000444: 43,3570           12764                           BZF      ENDSUMS                               #  END OF SUMMING OF BANKS.
060129,000445: 43,3571           31374                           CA       SKEEP4                                
060130,000446: 43,3572           64756                           AD       SBIT11                                
060131,000447: 43,3573           55374                           TS       SKEEP4                                #  37 TO 40 INCRMTS SKEEP4 BY END RND CARRY
060132,000448: 43,3574           03600                           TC       CHKSUPR                               
060133,000449: 43,3575           34752        17TO20             CA       SBIT15                                
060134,000450: 43,3576           27374                           ADS      SKEEP4                                #  SET FOR BANK 20
060135,000451: 43,3577           03614                           TC       GONXTBNK                              
060136,000452: 43,3600           74344        CHKSUPR            MASK     HI5                                   
060137,000453: 43,3601           00006                           EXTEND                                         
060138,000454: 43,3602           13612                           BZF      NXTSUPR                               #  INCREMENT SUPER BANK
060139,000455: 43,3603           63172        27TO30             AD       S13BITS                               
060140,000456: 43,3604           00006                           EXTEND                                         
060141,000457: 43,3605           13607                           BZF      +2                                    #  BANK SET FOR 30
060142,000458: 43,3606           03614                           TC       GONXTBNK                              
060143,000459: 43,3607           35010                           CA       SIXTY                                 #  FIRST SUPER BANK
060144,000460: 43,3610           27374                           ADS      SKEEP4                                
060145,000461: 43,3611           03614                           TC       GONXTBNK                              
060146,000462: 43,3612           63171        NXTSUPR            AD       SUPRCON                               #  SET BNK 30 + INCR SUPR BNK AND CANCEL
060147,000463: 43,3613           27374                           ADS      SKEEP4                                #  ERC BIT OF THE 37 TO 40 ADVANCE.
060148,000464: 43,3614           11377        GONXTBNK           CCS      SKEEP7                                
060149,000465: 43,3615           03457                           TC       COMMFX                                
060150,000466: 43,3616           34770                           CA       S+1                                   
060151,000467: 43,3617           03475                           TC       FXFX                                  
060152,000468: 43,3620           34762                           CA       SBIT7                                 #  HAS TO BE LARGER THAN NO OF FXSW BANKS.
060153,000469: 43,3621           03457                           TC       COMMFX                                
060154,000470: 
060155,000471: 43,3622           31374        SOPTION            CA       SKEEP4                                
060156,000472: 43,3623           74344                           MASK     HI5                                   #  = BANK BITS
060157,000473: 43,3624           04333                           TC       LEFT5                                 
060158,000474: 43,3625           54001                           TS       L                                     #  BANK NUMBER BEFORE SUPER BANK
060159,000475: 43,3626           31374                           CA       SKEEP4                                

Page 1401

060161,000477: 43,3627           74350                           MASK     S8BITS                                #  = SUPER BANK BITS
060162,000478: 43,3630           00006                           EXTEND                                         
060163,000479: 43,3631           13637                           BZF      SOPT                                  #  BEFORE SUPER BANK
060164,000480: 43,3632           54021                           TS       SR                                    #  SUPER BANK NECESSARY
060165,000481: 43,3633           30001                           CA       L                                     
060166,000482: 43,3634           74774                           MASK     SEVEN                                 
060167,000483: 43,3635           60021                           AD       SR                                    
060168,000484: 43,3636           54001                           TS       L                                     #  BANK NUMBER WITH SUPER BANK
060169,000485: 43,3637           31376        SOPT               CA       SKEEP6                                #  *
060170,000486: 43,3640           00006                           EXTEND                                         #  *
060171,000487: 43,3641           13643                           BZF      +2                                    #  * ON -0 CONTINUE WITH ROPE CHECK.
060172,000488: 43,3642           02746                           TC       SDISPLAY                              #  * ON +1 GO TO DISPLAY OF SUM.
060173,000489: 43,3643           11371                           CCS      SKEEP1                                #  FORCE SUM TO ABSOLUTE VALUE.
060174,000490: 43,3644           03646                           TC       +2                                    
060175,000491: 43,3645           03647                           TC       +2                                    
060176,000492: 43,3646           64770                           AD       S+1                                   
060177,000493: 43,3647           55371                           TS       SKEEP1                                
060178,000494: 43,3650           40001        BNKCHK             CS       L                                     #  = - BANK NUMBER
060179,000495: 43,3651           61371                           AD       SKEEP1                                
060180,000496: 43,3652           67702                           AD       S-1                                   
060181,000497: 43,3653           03225                           TC       -1CHK                                 #  CHECK SUM
060182,000498: 43,3654           03565                           TC       NXTBNK                                
060183,000499: 
060184,000500: 43,3655     0067                                  EBANK=   NEWJOB                                
060185,000501: 43,3655           66100        LSTBNKCH           BBCON*                                         #  * CONSTANT, LAST BANK.
060186,000502: 
060187,000503: 43,3656  30,2000                                  SBANK=   LOWSUPER                              

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