Source Code

These source-code files were obtained by digitally photographing an Artemis 72 program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. 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

	THIS AGC PROGRAM SHALL ALSO BE REFERRED TO AS
				COLOSSUS 3
	THIS PROGRAM IS INTENDED FOR USE IN THE CM AS SPECIFIED
	IN REPORT R-577.  THIS PROGRAM WAS PREPARED UNDER OSR
	PROJECT 55-23890, SPONSORED BY THE MANNED SPACECRAFT
	CENTER OF THE NATIONAL AERONAUTICS AND SPACE
	ADMINISTRATION THROUGH CONTRACT NAS 9-4065 WITH THE
	CHARLES STARK DRAPER LABORATORY, MASSACHUSETTS INSTITUTE OF
	TECHNOLOGY, CAMBRIDGE, MASS.

059408,000002:                                                                                                 #  Copyright:     Public domain.
059409,000003:                                                                                                 #  Filename:      AGC_BLOCK_TWO_SELF-CHECK.agc
059410,000004:                                                                                                 #  Purpose:       Part of the source code for Artemis (i.e., Colossus 3),
059411,000005:                                                                                                 #                 build 072.  This is for the Command Module's (CM)
059412,000006:                                                                                                 #                 Apollo Guidance Computer (AGC), we believe for
059413,000007:                                                                                                 #                 Apollo 15-17.
059414,000008:                                                                                                 #  Assembler:     yaYUL
059415,000009:                                                                                                 #  Contact:       Jim Lawton <jim DOT lawton AT gmail DOT com>
059416,000010:                                                                                                 #  Website:       www.ibiblio.org/apollo/index.html
059417,000011:                                                                                                 #  Page scans:    www.ibiblio.org/apollo/ScansForConversion/Artemis072/
059418,000012:                                                                                                 #  Mod history:   2009-08-18 JL   Adapted from corresponding Comanche 055 file.
059419,000013:                                                                                                 #                 2010-02-20 RSB  Un-##'d this header.
059420,000014: 
059421,000015:                                                                                                 # # Page 1392
059422,000016: 
059423,000017:                                                                                                 #  PROGRAM DESCRIPTION                            DATE  20 DECEMBER 1967
059424,000018:                                                                                                 #  PROGRAM NAME -  SELF-CHECK                     LOG SECTION AGC BLOCK TWO SELF-CHECK
059425,000019:                                                                                                 #  MOD NO - 1                                     ASSEMBLY SUBROUTINE UTILITYM REV 25
059426,000020:                                                                                                 #  MOD BY - GAUNTT
059427,000021: 
059428,000022:                                                                                                 #  FUNCTIONAL DESCRIPTION
059429,000023: 
059430,000024:                                                                                                 #  PROGRAM HAS TWO MAIN PARTS. THE FIRST IS SELF-CHECK WHICH RUNS AS A ZERO PRIORITY JOB WITH NO CORE SET, AS
059431,000025:                                                                                                 #  PART OF THE BACK-UP IDLE LOOP. THE SECOND IS SHOW-BANKSUM WHICH RUNS AS A REGULAR EXECUTIVE JOB WITH ITS OWN
059432,000026:                                                                                                 #  STARTING VERB.
059433,000027:                                                                                                 #  THE PURPOSE OF SELF-CHECK IS TO CHECK OUT VARIOUS PARTS OF THE COMPUTER AS OUTLINED BELOW IN THE OPTIONS.
059434,000028:                                                                                                 #  THE PURPOSE OF SHOW-BANKSUM IS TO DISPLAY THE SUM OF EACH BANK, ONE AT A TIME.
059435,000029:                                                                                                 #  IN ALL THERE ARE  7 POSSIBLE OPTIONS IN THIS BLOCK II VERSION OF SELF-CHECK. MORE DETAIL DESCRIPTION MAY BE
059436,000030:                                                                                                 #  FOUND IN E-2065 BLOCK II AGC SELF-CHECK AND SHOW BANKSUM BY EDWIN D. SMALLY DECEMBER 1966, AND ADDENDA 2 AND 3.
059437,000031:                                                                                                 #  THE DIFFERENT OPTIONS ARE CONTROLLED BY PUTTING DIFFERENT NUMBERS IN THE SMODE REGISTER (NOUN 27). BELOW IS
059438,000032:                                                                                                 #  A DESCRIPTION OF WHAT PARTS OF THE COMPUTER THAT ARE CHECKED BY THE OPTIONS, AND THE CORRESPONDING NUMBER, IN
059439,000033:                                                                                                 #  OCTAL, TO LOAD INTO SMODE.
059440,000034:                                                                                                 #         +-4             ERASABLE MEMORY
059441,000035:                                                                                                 #         +-5             FIXED MEMORY
059442,000036:                                                                                                 #         +-1,2,3,6,7,10  EVERYTHING IN OPTIONS 4 AND 5.
059443,000037:                                                                                                 #         -0              SAME AS +-10 UNTIL AN ERROR IS DETECTED.
059444,000038:                                                                                                 #         +0              NO CHECK, PUTS COMPUTER INTO THE BACKUP IDLE LOOP.
059445,000039: 
059446,000040:                                                                                                 #  WARNINGS
059447,000041: 
059448,000042:                                                                                                 #         USE OF E MEMORY RESERVED FOR SELF-CHECK (EVEN IN IDLE LOOP) AS TEMP STORAGE BY OTHER PROGRAMS IS DANGEROUS.
059449,000043:                                                                                                 #         SMODE SET GREATER THAN OCT 10 PUTS COMPUTER INTO BACKUP IDLE LOOP.
059450,000044: 
059451,000045:                                                                                                 #  CALLING SEQUENCE
059452,000046: 
059453,000047:                                                                                                 #         TO CALL SELF-CHECK KEY IN
059454,000048:                                                                                                 #                 V 21 N 27 E     OPTION NUMBER E
059455,000049:                                                                                                 #         TO CALL SHOW-BANKSUM KEY IN
059456,000050:                                                                                                 #                 V 91 E          DISPLAYS FIRST BANK
059457,000051:                                                                                                 #                 V 33 E          PROCEED, DISPLAYS NEXT BANK
059458,000052: 
059459,000053: 
059460,000054:                                                                                                 #  EXIT MODES, NORMAL AND ALARM
059461,000055: 
059462,000056:                                                                                                 #  SELF-CHECK NORMALLY CONTINUES INDEFINITELY UNLESS THERE IS AN ERROR DETECTED. IF SO + OPTION NUMBERS PUT
059463,000057:                                                                                                 #  COMPUTER INTO BACKUP IDLE LOOP, - OPTION NUMBERS RESTART THE OPTION.
059464,000058:                                                                                                 #  THE -0 OPTION PROCEEDS FROM THE LINE FOLLOWING THE LINE WHERE THE ERROR WAS DETECTED.
059465,000059:                                                                                                 #  SHOW-BANKSUM PROCEEDS UNTIL A TERMINATE IS KEYED IN (V 34 E). THE COMPUTER IS PUT INTO THE BACKUP IDLE LOOP.
059466,000060: 
059467,000061: 
059468,000062:                                                                                                 #  OUTPUT
059469,000063:                                                                                                 # # Page 1393
059470,000064:                                                                                                 #  SELF-CHECK UPON DETECTING AN ERROR LOADS THE SELF-CHECK ALARM CONSTANT (01102) INTO THE FAILREG SET AND
059471,000065:                                                                                                 #  TURNS ON THE ALARM LIGHT. THE OPERATOR MAY THEN DISPLAY THE THREE FAILREGS BY KEYING IN V 05 N 09 E. FOR FURTHER
059472,000066:                                                                                                 #  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,
059473,000067:                                                                                                 #  IN R2 THE BBCON OF SELF-CHECK, AND IN R3 THE TOTAL NUMBER OF ERRORS DETECTED BY SELF-CHECK SINCE THE LAST MAN
059474,000068:                                                                                                 #  INITIATED FRESH START (SLAP1).
059475,000069:                                                                                                 #  SHOW-BANKSUM STARTING WTIH BANK 0 DISPLAYS IN R1 THE BANK SUM (A +-NUMBER EQUAL TO THE BANK NUMBER), IN R2
059476,000070:                                                                                                 #  THE BANK NUMBER, AND IN R3 THE BUGGER WORD.
059477,000071: 
059478,000072: 
059479,000073:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED
059480,000074: 
059481,000075:                                                                                                 #         ACCOMPLISHED BY FRESH START
059482,000076:                                                                                                 #                 SMODE SET TO +0
059483,000077: 
059484,000078:                                                                                                 #  DEBRIS
059485,000079: 
059486,000080:                                                                                                 #         ALL EXITS FROM THE CHECK OF ERASABLE (ERASCHK) RESTORE ORIGINAL CONTENTS TO REGISTERS UNDER CHECK.
059487,000081:                                                                                                 #         EXCEPTION IS A RESTART. RESTART THAT OCCURS DURING ERASCHK RESTORES ERASABLE, UNLESS THERE IS EVIDENCE TO DOUBT
059488,000082:                                                                                                 #         E MEMORY, IN WHICH CASE PROGRAM THEN DOES A FRESH START (DOFSTART).
059489,000083: 
059490,000084: 43,2000                                          SETLOC   SELFCHEC                              
059491,000085: 43,2000                                          BANK                                           
059492,000086: 
059493,000087: 43,3166                                          COUNT*   $$/SELF                               
059494,000088: 43,3166     4770               SBIT1             EQUALS   BIT1                                  
059495,000089: 43,3166     4767               SBIT2             EQUALS   BIT2                                  
059496,000090: 43,3166     4766               SBIT3             EQUALS   BIT3                                  
059497,000091: 43,3166     4765               SBIT4             EQUALS   BIT4                                  
059498,000092: 43,3166     4764               SBIT5             EQUALS   BIT5                                  
059499,000093: 43,3166     4763               SBIT6             EQUALS   BIT6                                  
059500,000094: 43,3166     4762               SBIT7             EQUALS   BIT7                                  
059501,000095: 43,3166     4761               SBIT8             EQUALS   BIT8                                  
059502,000096: 43,3166     4760               SBIT9             EQUALS   BIT9                                  
059503,000097: 43,3166     4757               SBIT10            EQUALS   BIT10                                 
059504,000098: 43,3166     4756               SBIT11            EQUALS   BIT11                                 
059505,000099: 43,3166     4755               SBIT12            EQUALS   BIT12                                 
059506,000100: 43,3166     4754               SBIT13            EQUALS   BIT13                                 
059507,000101: 43,3166     4753               SBIT14            EQUALS   BIT14                                 
059508,000102: 43,3166     4752               SBIT15            EQUALS   BIT15                                 
059509,000103: 
059510,000104: 43,3166     4772               S+ZERO            EQUALS   ZERO                                  
059511,000105: 43,3166     4770               S+1               EQUALS   BIT1                                  
059512,000106: 43,3166     4767               S+2               EQUALS   BIT2                                  
059513,000107: 43,3166     6214               S+3               EQUALS   THREE                                 
059514,000108: 43,3166     4766               S+4               EQUALS   FOUR                                  
059515,000109: 43,3166     4773               S+5               EQUALS   FIVE                                  
059516,000110: 43,3166     6211               S+6               EQUALS   SIX                                   
059517,000111: 43,3166     4774               S+7               EQUALS   SEVEN                                 
059518,000112:                                                                                                 # # Page 1394
059519,000113: 43,3166     4350               S8BITS            EQUALS   LOW8                                  #  00377
059520,000114: 43,3166     5004               CNTRCON           =        OCT50                                 #  USED IN CNTRCHK
059521,000115: 43,3166           00061        ERASCON1          OCTAL    00061                                 #  USED IN ERASCHK
059522,000116: 43,3167           01373        ERASCON2          OCTAL    01373                                 #  USED IN ERASCHK
059523,000117: 43,3170     5024               ERASCON6          =        OCT1400                               #  USED IN ERASCHK
059524,000118: 43,3170     5030               ERASCON3          EQUALS   V06N49                                #  USED IN ERASCHK
059525,000119: 43,3170           01773        ERASCON4          OCTAL    01773                                 #  USED IN ERASCHK
059526,000120: 43,3171     5041               S10BITS           EQUALS   LOW10                                 #  01777, USED IN ERASCHK
059527,000121: 43,3171     5050               SBNK03            EQUALS   PRIO6                                 #  06000, USED IN ROPECHK
059528,000122: 43,3171     4344               -MAXADRS          =        HI5                                   #  FOR ROPECHK
059529,000123: 43,3171     5010               SIXTY             EQUALS   SUPER011                              
059530,000124: 43,3171           60017        SUPRCON           OCTAL    60017                                 #  USED IN ROPECHK
059531,000125: 43,3172           17777        S13BITS           OCTAL    17777                                 
059532,000126: 43,3173           25252        CONC+S1           OCTAL    25252                                 #  USED IN CYCLSHFT
059533,000127: 43,3174           52400        CONC+S2           OCTAL    52400                                 #  USED IN CYCLSHFT
059534,000128: 43,3175           76777        ERASCON5          OCTAL    76777                                 
059535,000129: 43,3176     5736               S-7               =        OCT77770                              
059536,000130: 43,3176     6061               S-4               EQUALS   NEG4                                  
059537,000131: 43,3176     7700               S-3               EQUALS   NEG3                                  
059538,000132: 43,3176     7701               S-2               EQUALS   NEG2                                  
059539,000133: 43,3176     7702               S-1               EQUALS   NEGONE                                
059540,000134: 43,3176     4771               S-ZERO            EQUALS   NEG0                                  
059541,000135: 
059542,000136: 43,3176  E3,1400                                 EBANK=   LST1                                  
059543,000137: 43,3176           01371        ADRS1             ADRES    SKEEP1                                
059544,000138: 43,3177           03270        SELFADRS          ADRES    SELFCHK                               #  SELFCHK RETURN ADDRESS. SHOULD BE PUT
059545,000139:                                                                                                 #  IN SELFRET WHEN GOING FROM SELFCHK TO
059546,000140:                                                                                                 #  SHOWSUM AND PUT IN SKEEP1 WHEN GOING
059547,000141:                                                                                                 #  FROM SHOWSUM TO SELF-CHECK.
059548,000142: 
059549,000143: 43,3200           31360        PRERRORS          CA       ERESTORE                              #  IS IT NECESSARY TO RESTORE ERASABLE
059550,000144: 43,3201           00006                          EXTEND                                         
059551,000145: 43,3202           13211                          BZF      ERRORS                                #  NO
059552,000146: 43,3203           00006                          EXTEND                                         
059553,000147: 43,3204           31376                          DCA      SKEEP5                                
059554,000148: 43,3205           51377                          INDEX    SKEEP7                                
059555,000149: 43,3206           52001                          DXCH     0000                                  #  RESTORE THE TWO ERASABLE REGISTERS
059556,000150: 43,3207           34772                          CA       S+ZERO                                
059557,000151: 43,3210           55360                          TS       ERESTORE                              
059558,000152: 43,3211           00004        ERRORS            INHINT                                         
059559,000153: 43,3212           30002                          CA       Q                                     
059560,000154: 43,3213           55357                          TS       SFAIL                                 #  SAVE Q FOR FAILURE LOCATION
059561,000155: 43,3214           55363                          TS       ALMCADR                               #  FOR DISPLAY WITH BBANK AND ERCOUNT
059562,000156: 43,3215           25365                          INCR     ERCOUNT                               #  KEEP TRACK OF NUMBER OF MALFUNCTIONS.
059563,000157: 43,3216           05673        TCALARM2          TC       ALARM2                                
059564,000158: 43,3217           01102                          OCT      01102                                 #  SELF-CHECK MALFUNCTION INDICATOR
059565,000159: 43,3220           11362                          CCS      SMODE                                 
059566,000160: 43,3221           34772        SIDLOOP           CA       S+ZERO                                
059567,000161: 43,3222           55362                          TS       SMODE                                 
059568,000162: 43,3223           03270                          TC       SELFCHK                               #  GO TO IDLE LOOP
059569,000163:                                                                                                 # # Page 1395
059570,000164: 43,3224           01357                          TC       SFAIL                                 #  CONTINUE WITH SELF-CHECK
059571,000165: 
059572,000166: 43,3225           10000        -1CHK             CCS      A                                     
059573,000167: 43,3226           13200                          TCF      PRERRORS                              
059574,000168: 43,3227           13200                          TCF      PRERRORS                              
059575,000169: 43,3230           10000                          CCS      A                                     
059576,000170: 43,3231           13200                          TCF      PRERRORS                              
059577,000171: 43,3232           00002                          TC       Q                                     
059578,000172: 
059579,000173: 43,3233           00006        SMODECHK          EXTEND                                         
059580,000174: 43,3234           23371                          QXCH     SKEEP1                                
059581,000175: 43,3235           03264                          TC       CHECKNJ                               #  CHECK FOR NEW JOB
059582,000176: 43,3236           11362                          CCS      SMODE                                 
059583,000177: 43,3237           03244                          TC       SOPTIONS                              
059584,000178: 43,3240           03235                          TC       SMODECHK   +2                         #  TO BACKUP IDLE LOOP
059585,000179: 43,3241           03244                          TC       SOPTIONS                              
059586,000180: 43,3242           25366                          INCR     SCOUNT                                
059587,000181: 43,3243           01371                          TC       SKEEP1                                #  CONTINUE WITH SELF-CHECK
059588,000182: 
059589,000183: 43,3244           65736        SOPTIONS          AD       S-7                                   
059590,000184: 43,3245           00006                          EXTEND                                         
059591,000185: 43,3246           63250                          BZMF     +2                                    #  FOR OPTIONS BELOW NINE.
059592,000186: 43,3247           03221        BNKOPTN           TC       SIDLOOP                               #  ILLEGAL OPTION.  GO TO IDLE LOOP.
059593,000187: 43,3250           25366                          INCR     SCOUNT                                #  FOR OPTIONS BELOW NINE.
059594,000188: 43,3251           64774                          AD       S+7                                   
059595,000189: 
059596,000190: 43,3252           50000                          INDEX    A                                     
059597,000191: 43,3253           03254                          TC       SOPTION1                              
059598,000192: 43,3254           01371        SOPTION1          TC       SKEEP1                                #  WAS TC+TCF
059599,000193: 43,3255           01371        SOPTION2          TC       SKEEP1                                #  WAS IN:OUT1
059600,000194: 43,3256           01371        SOPTION3          TC       SKEEP1                                #  WAS COUNTCHK
059601,000195: 43,3257           03271        SOPTION4          TC       ERASCHK                               
059602,000196: 43,3260           03452        SOPTION5          TC       ROPECHK                               
059603,000197: 43,3261           01371        SOPTION6          TC       SKEEP1                                
059604,000198: 43,3262           01371        SOPTION7          TC       SKEEP1                                
059605,000199: 43,3263           01371        SOPTON10          TC       SKEEP1                                #  CONTINUE WITH SELF-CHECK
059606,000200: 
059607,000201: 43,3264           00006        CHECKNJ           EXTEND                                         
059608,000202: 43,3265           23361                          QXCH     SELFRET                               #  SAVE RETURN ADDRESS WHILE TESTING NEWJOB
059609,000203: 43,3266           04655                          TC       POSTJUMP                              #  TO SEE IF ANY JOBS HAVE BECOME ACTIVE.
059610,000204: 43,3267           03177                          CADR     ADVAN                                 
059611,000205: 
059612,000206: 43,3270           03233        SELFCHK           TC       SMODECHK                              #  ** CHARLEY, COME IN HERE
059613,000207: 
059614,000208:                                                                                                 #  SKEEP7 HOLDS LOWEST OF TWO ADDRESSES BEING CHECKED.
059615,000209:                                                                                                 #  SKEEP6 HOLDS B(X+1).
059616,000210:                                                                                                 #  SKEEP5 HOLDS B(X).
059617,000211:                                                                                                 #  SKEEP4 HOLDS C(EBANK) DURING ERASLOOP AND CHECKNJ
059618,000212:                                                                                                 #  SKEEP3 HOLDS LAST ADDRESS BEING CHECKED (HIGHEST ADDRESS).
059619,000213:                                                                                                 #  SKEEP2 CONTROLS CHECKING OF NON-SWITCHABLE ERASABLE MEMORY WITH BANK NUMBERS IN EB.
059620,000214:                                                                                                 # # Page 1396
059621,000215:                                                                                                 #  ERASCHK TAKES APPROXIMATELY 7 SECONDS.
059622,000216: 
059623,000217: 43,3271           34770        ERASCHK           CA       S+1                                   
059624,000218: 43,3272           55372                          TS       SKEEP2                                
059625,000219: 43,3273           34772        0EBANK            CA       S+ZERO                                
059626,000220: 43,3274           54003                          TS       EBANK                                 
059627,000221: 43,3275           35030                          CA       ERASCON3                              #  01461
059628,000222: 43,3276           55377                          TS       SKEEP7                                #  STARTING ADDRESS
059629,000223: 43,3277           35041                          CA       S10BITS                               #  01777
059630,000224: 43,3300           55373                          TS       SKEEP3                                #  LAST ADDRESS CHECKED
059631,000225: 43,3301           03321                          TC       ERASLOOP                              
059632,000226: 
059633,000227: 43,3302           35024        E134567B          CA       ERASCON6                              #  01400
059634,000228: 43,3303           55377                          TS       SKEEP7                                #  STARTING ADDRESS
059635,000229: 43,3304           35041                          CA       S10BITS                               #  01777
059636,000230: 43,3305           55373                          TS       SKEEP3                                #  LAST ADDRESS CHECKED
059637,000231: 43,3306           03321                          TC       ERASLOOP                              
059638,000232: 
059639,000233: 43,3307           35024        2EBANK            CA       ERASCON6                              #  01400
059640,000234: 43,3310           55377                          TS       SKEEP7                                #  STARTING ADDRESS
059641,000235: 43,3311           33170                          CA       ERASCON4                              #  01773
059642,000236: 43,3312           55373                          TS       SKEEP3                                #  LAST ADDRESS CHECKED
059643,000237: 43,3313           03321                          TC       ERASLOOP                              
059644,000238: 
059645,000239: 43,3314           55372        NOEBANK           TS       SKEEP2                                #  +0
059646,000240: 43,3315           33166                          CA       ERASCON1                              #  00061
059647,000241: 43,3316           55377                          TS       SKEEP7                                #  STARTING ADDRESS
059648,000242: 43,3317           33167                          CA       ERASCON2                              #  01373
059649,000243: 43,3320           55373                          TS       SKEEP3                                #  LAST ADDRESS CHECKED
059650,000244: 
059651,000245: 43,3321           00004        ERASLOOP          INHINT                                         
059652,000246: 43,3322           30003                          CA       EBANK                                 #  STORES C(EBANK)
059653,000247: 43,3323           55374                          TS       SKEEP4                                
059654,000248: 43,3324           00006                          EXTEND                                         
059655,000249: 43,3325           51377                          NDX      SKEEP7                                
059656,000250: 43,3326           30001                          DCA      0000                                  
059657,000251: 43,3327           53376                          DXCH     SKEEP5                                #  STORES C(X) AND C(X+1) IN SKEEP6 AND 5.
059658,000252: 43,3330           31377                          CA       SKEEP7                                
059659,000253: 43,3331           55360                          TS       ERESTORE                              #  IF RESTART, RESTORE C(X) AND C(X+1)
059660,000254: 43,3332           54001                          TS       L                                     
059661,000255: 43,3333           24001                          INCR     L                                     
059662,000256: 43,3334           50000                          NDX      A                                     
059663,000257: 43,3335           52001                          DXCH     0000                                  #  PUTS OWN ADDRESS IN X AND X +1
059664,000258: 43,3336           51377                          NDX      SKEEP7                                
059665,000259: 43,3337           40001                          CS       0001                                  #  CS X+1
059666,000260: 43,3340           51377                          NDX      SKEEP7                                
059667,000261: 43,3341           60000                          AD       0000                                  #  AD X
059668,000262: 43,3342           03225                          TC       -1CHK                                 
059669,000263: 43,3343           31360                          CA       ERESTORE                              #  HAS ERASABLE BEEN RESTORED
059670,000264: 43,3344           00006                          EXTEND                                         
059671,000265: 43,3345           13371                          BZF      ELOOPFIN                              #  YES, EXIT ERASLOOP.
059672,000266:                                                                                                 # # Page 1397
059673,000267: 43,3346           00006                          EXTEND                                         
059674,000268: 43,3347           51377                          NDX      SKEEP7                                
059675,000269: 43,3350           40001                          DCS      0000                                  #  COMPLEMENT OF ADDRESS OF X AND X+1
059676,000270: 43,3351           51377                          NDX      SKEEP7                                
059677,000271: 43,3352           52001                          DXCH     0000                                  #  PUT COMPLEMENT OF ADDRESS OF X AND X+1
059678,000272: 43,3353           51377                          NDX      SKEEP7                                
059679,000273: 43,3354           40000                          CS       0000                                  #  CS X
059680,000274: 43,3355           51377                          NDX      SKEEP7                                
059681,000275: 43,3356           60001                          AD       0001                                  #  AD X+1
059682,000276: 43,3357           03225                          TC       -1CHK                                 
059683,000277: 43,3360           31360                          CA       ERESTORE                              #  HAS ERASABLE BEEN RESTORED
059684,000278: 43,3361           00006                          EXTEND                                         
059685,000279: 43,3362           13371                          BZF      ELOOPFIN                              #  YES, EXIT ERASLOOP.
059686,000280: 43,3363           00006                          EXTEND                                         
059687,000281: 43,3364           31376                          DCA      SKEEP5                                
059688,000282: 43,3365           51377                          NDX      SKEEP7                                
059689,000283: 43,3366           52001                          DXCH     0000                                  #  PUT B(X) AND B(X+1) BACK INTO X AND X+1
059690,000284: 43,3367           34772                          CA       S+ZERO                                
059691,000285: 43,3370           55360                          TS       ERESTORE                              #  IF RESTART, DO NOT RESTORE C(X), C(X+1)
059692,000286: 43,3371           00003        ELOOPFIN          RELINT                                         
059693,000287: 43,3372           03264                          TC       CHECKNJ                               #  CHECK FOR NEW JOB
059694,000288: 43,3373           31374                          CA       SKEEP4                                #  REPLACES B(EBANK)
059695,000289: 43,3374           54003                          TS       EBANK                                 
059696,000290: 43,3375           25377                          INCR     SKEEP7                                
059697,000291: 43,3376           41377                          CS       SKEEP7                                
059698,000292: 43,3377           61373                          AD       SKEEP3                                
059699,000293: 43,3400           00006                          EXTEND                                         
059700,000294: 43,3401           13403                          BZF      +2                                    
059701,000295: 43,3402           03321                          TC       ERASLOOP                              #  GO TO NEXT ADDRESS IN SAME BANK
059702,000296: 43,3403           11372                          CCS      SKEEP2                                
059703,000297: 43,3404           03314                          TC       NOEBANK                               
059704,000298: 43,3405           25372                          INCR     SKEEP2                                #  PUT +1 IN SKEEP2.
059705,000299: 43,3406           30003                          CA       EBANK                                 
059706,000300: 43,3407           64760                          AD       SBIT9                                 
059707,000301: 43,3410           54003                          TS       EBANK                                 
059708,000302: 43,3411           63175                          AD       ERASCON5                              #  76777, CHECK FOR BANK E2
059709,000303: 43,3412           00006                          EXTEND                                         
059710,000304: 43,3413           13307                          BZF      2EBANK                                
059711,000305: 43,3414           10003                          CCS      EBANK                                 
059712,000306: 43,3415           03302                          TC       E134567B                              #  GO TO EBANKS 1,3,4,5,6, AND 7
059713,000307: 43,3416           35024                          CA       ERASCON6                              #  END OF ERASCHK
059714,000308: 43,3417           54003                          TS       EBANK                                 
059715,000309: 
059716,000310:                                                                                                 #  CNTRCHK PERFORMS A CS OF ALL REGISTERS FROM OCT. 60 THROUGH OCT. 10.
059717,000311:                                                                                                 #  INCLUDED ARE ALL COUNTERS, T6-1, CYCLE AND SHIFT, AND ALL RUPT REGISTERS
059718,000312: 
059719,000313: 43,3420           35004        CNTRCHK           CA       CNTRCON                               #  00050
059720,000314: 43,3421           55372        CNTRLOOP          TS       SKEEP2                                
059721,000315: 43,3422           64765                          AD       SBIT4                                 #  +10 OCTAL
059722,000316: 43,3423           50000                          INDEX    A                                     
059723,000317: 43,3424           40000                          CS       0000                                  
059724,000318: 43,3425           11372                          CCS      SKEEP2                                
059725,000319:                                                                                                 # # Page 1398
059726,000320: 43,3426           03421                          TC       CNTRLOOP                              
059727,000321: 
059728,000322:                                                                                                 #  CYCLSHFT CHECKS THE CYCLE AND SHIFT REGISTERS
059729,000323: 
059730,000324: 43,3427           33173        CYCLSHFT          CA       CONC+S1                               #  25252
059731,000325: 43,3430           54020                          TS       CYR                                   #  C(CYR) = 12525
059732,000326: 43,3431           54022                          TS       CYL                                   #  C(CYL) = 52524
059733,000327: 43,3432           54021                          TS       SR                                    #  C(SR) = 12525
059734,000328: 43,3433           54023                          TS       EDOP                                  #  C(EDOP) = 00125
059735,000329: 43,3434           60020                          AD       CYR                                   #  37777          C(CYR) = 45252
059736,000330: 43,3435           60022                          AD       CYL                                   #  00-12524       C(CYL) = 25251
059737,000331: 43,3436           60021                          AD       SR                                    #  00-25251       C(SR) = 05252
059738,000332: 43,3437           60023                          AD       EDOP                                  #  00-25376       C(EDOP) = +0
059739,000333: 43,3440           63174                          AD       CONC+S2                               #  C(CONC+S2) = 52400
059740,000334: 43,3441           03225                          TC       -1CHK                                 
059741,000335: 43,3442           60020                          AD       CYR                                   #  45252
059742,000336: 43,3443           60022                          AD       CYL                                   #  72523
059743,000337: 43,3444           60021                          AD       SR                                    #  77775
059744,000338: 43,3445           60023                          AD       EDOP                                  #  77775
059745,000339: 43,3446           64770                          AD       S+1                                   #  77776
059746,000340: 43,3447           03225                          TC       -1CHK                                 
059747,000341: 
059748,000342: 43,3450           25367                          INCR     SCOUNT     +1                         
059749,000343: 43,3451           03233                          TC       SMODECHK                              
059750,000344: 
059751,000345:                                                                                                 #  SKEEP1 HOLDS SUM
059752,000346:                                                                                                 #  SKEEP2 HOLDS PRESENT CONTENTS OF ADDRESS IN ROPECHK AND SHOWSUM ROUTINES
059753,000347:                                                                                                 #  SKEEP2 HOLDS BANK NUMBER IN LOW ORDER BITS DURING SHOWSUM DISPLAY
059754,000348:                                                                                                 #  SKEEP3 HOLDS PRESENT ADDRESS (00000 TO 01777 IN COMMON FIXED BANKS)
059755,000349:                                                                                                 #                                (04000 TO 07777 IN FXFX BANKS)
059756,000350:                                                                                                 #  SKEEP3 HOLDS BUGGER WORD DURING SHOWSUM DISPLAY
059757,000351:                                                                                                 #  SKEEP4 HOLDS BANK NUMBER AND SUPER BANK NUMBER
059758,000352:                                                                                                 #  SKEEP5 COUNTS 2 SUCCESSIVE TC SELF WORDS
059759,000353:                                                                                                 #  SKEEP6 CONTROLS ROPECHK OR SHOWSUM OPTION
059760,000354:                                                                                                 #  SKEEP7 CONTROLS WHEN ROUTINE IS IN COMMON FIXED OR FIXED FIXED BANKS
059761,000355: 
059762,000356: 43,3452           34771        ROPECHK           CA       S-ZERO                                #  *
059763,000357: 43,3453           55376                          TS       SKEEP6                                #  * -0 FOR ROPECHK
059764,000358: 43,3454           34772        STSHOSUM          CA       S+ZERO                                #  * SHOULD BE ROPECHK
059765,000359: 
059766,000360: 43,3455           55374                          TS       SKEEP4                                #  BANK NUMBER
059767,000361: 43,3456           34770                          CA       S+1                                   
059768,000362: 43,3457           55377        COMMFX            TS       SKEEP7                                
059769,000363: 43,3460           34772                          CA       S+ZERO                                
059770,000364: 43,3461           55371                          TS       SKEEP1                                
059771,000365: 43,3462           55373                          TS       SKEEP3                                
059772,000366: 43,3463           34770                          CA       S+1                                   
059773,000367: 43,3464           55375                          TS       SKEEP5                                #  COUNTS DOWN 2 TC SELF WORDS
059774,000368: 43,3465           31374        COMADRS           CA       SKEEP4                                
059775,000369: 43,3466           54001                          TS       L                                     #  TO SET SUPER BANK
059776,000370: 43,3467           74344                          MASK     HI5                                   
059777,000371: 43,3470           61373                          AD       SKEEP3                                
059778,000372:                                                                                                 # # Page 1399
059779,000373: 43,3471           04671                          TC       SUPDACAL                              #  SUPER DATA CALL
059780,000374: 43,3472           03515                          TC       ADSUM                                 
059781,000375: 43,3473           64756                          AD       SBIT11                                #  02000
059782,000376: 43,3474           03526                          TC       ADRSCHK                               
059783,000377: 
059784,000378: 43,3475           40000        FXFX              CS       A                                     
059785,000379: 43,3476           55377                          TS       SKEEP7                                
059786,000380: 43,3477           00006                          EXTEND                                         
059787,000381: 43,3500           13503                          BZF      +3                                    
059788,000382: 43,3501           34755                          CA       SBIT12                                #  04000, STARTING ADDRESS OF BANK 02
059789,000383: 43,3502           03504                          TC       +2                                    
059790,000384: 43,3503           35050                          CA       SBNK03                                #  06000, STARTING ADDRESS OF BANK 03
059791,000385: 43,3504           55373                          TS       SKEEP3                                
059792,000386: 43,3505           34772                          CA       S+ZERO                                
059793,000387: 43,3506           55371                          TS       SKEEP1                                
059794,000388: 43,3507           34770                          CA       S+1                                   
059795,000389: 43,3510           55375                          TS       SKEEP5                                #  COUNTS DOWN 2 TC SELF WORDS
059796,000390: 43,3511           51373        FXADRS            INDEX    SKEEP3                                
059797,000391: 43,3512           30000                          CA       0000                                  
059798,000392: 43,3513           03515                          TC       ADSUM                                 
059799,000393: 43,3514           03526                          TC       ADRSCHK                               
059800,000394: 
059801,000395: 43,3515           55372        ADSUM             TS       SKEEP2                                
059802,000396: 43,3516           61371                          AD       SKEEP1                                
059803,000397: 43,3517           55371                          TS       SKEEP1                                
059804,000398: 43,3520           34772                          CAF      S+ZERO                                
059805,000399: 43,3521           61371                          AD       SKEEP1                                
059806,000400: 43,3522           55371                          TS       SKEEP1                                
059807,000401: 43,3523           41372                          CS       SKEEP2                                
059808,000402: 43,3524           61373                          AD       SKEEP3                                
059809,000403: 43,3525           00002                          TC       Q                                     
059810,000404: 
059811,000405: 43,3526           22000        ADRSCHK           LXCH     A                                     
059812,000406: 43,3527           31373                          CA       SKEEP3                                
059813,000407: 43,3530           75041                          MASK     LOW10                                 #  RELATIVE ADDRESS
059814,000408: 43,3531           64344                          AD       -MAXADRS                              #  SUBTRACT MAX RELATIVE ADDRESS = 1777.
059815,000409: 43,3532           00006                          EXTEND                                         
059816,000410: 43,3533           13622                          BZF      SOPTION                               #  CHECKSUM FINISHED IF LAST ADDRESS.
059817,000411: 43,3534           11375                          CCS      SKEEP5                                #  IS CHECKSUM FINISHED
059818,000412: 43,3535           03540                          TC       +3                                    #  NO
059819,000413: 43,3536           03540                          TC       +2                                    #  NO
059820,000414: 43,3537           03622                          TC       SOPTION                               #  GO TO ROPECHK SHOWSUM OPTION
059821,000415: 43,3540           10001                          CCS      L                                     #  -0 MEANS A TC SELF WORD.
059822,000416: 43,3541           03550                          TC       CONTINU                               
059823,000417: 43,3542           03550                          TC       CONTINU                               
059824,000418: 43,3543           03550                          TC       CONTINU                               
059825,000419: 43,3544           11375                          CCS      SKEEP5                                
059826,000420: 43,3545           03551                          TC       CONTINU    +1                         
059827,000421: 43,3546           37702                          CA       S-1                                   
059828,000422: 43,3547           03551                          TC       CONTINU    +1                         #  AD IN THE BUGGER WORD
059829,000423:                                                                                                 # # Page 1400
059830,000424: 43,3550           34770        CONTINU           CA       S+1                                   #  MAKE SURE TWO CONSECUTIVE TC SELF WORDS
059831,000425: 43,3551           55375                          TS       SKEEP5                                
059832,000426: 43,3552           11376                          CCS      SKEEP6                                #  *
059833,000427: 43,3553           10067                          CCS      NEWJOB                                #  * +1, SHOWSUM
059834,000428: 43,3554           05152                          TC       CHANG1                                #  *
059835,000429: 43,3555           03557                          TC       +2                                    #  *
059836,000430: 43,3556           03264                          TC       CHECKNJ                               #  -0 IN SKEEP6 FOR ROPECHK
059837,000431: 
059838,000432: 43,3557           25373        ADRS+1            INCR     SKEEP3                                
059839,000433: 43,3560           11377                          CCS      SKEEP7                                
059840,000434: 43,3561           03465                          TC       COMADRS                               
059841,000435: 43,3562           03465                          TC       COMADRS                               
059842,000436: 43,3563           03511                          TC       FXADRS                                
059843,000437: 43,3564           03511                          TC       FXADRS                                
059844,000438: 
059845,000439: 43,3565           41374        NXTBNK            CS       SKEEP4                                
059846,000440: 43,3566           63655                          AD       LSTBNKCH                              #  LAST BANK TO BE CHECKED
059847,000441: 43,3567           00006                          EXTEND                                         
059848,000442: 43,3570           12764                          BZF      ENDSUMS                               #  END OF SUMMING OF BANKS.
059849,000443: 43,3571           31374                          CA       SKEEP4                                
059850,000444: 43,3572           64756                          AD       SBIT11                                
059851,000445: 43,3573           55374                          TS       SKEEP4                                #  37 TO 40 INCRMTS SKEEP4 BY END RND CARRY
059852,000446: 43,3574           03600                          TC       CHKSUPR                               
059853,000447: 43,3575           34752        17TO20            CA       SBIT15                                
059854,000448: 43,3576           27374                          ADS      SKEEP4                                #  SET FOR BANK 20
059855,000449: 43,3577           03614                          TC       GONXTBNK                              
059856,000450: 43,3600           74344        CHKSUPR           MASK     HI5                                   
059857,000451: 43,3601           00006                          EXTEND                                         
059858,000452: 43,3602           13612                          BZF      NXTSUPR                               #  INCREMENT SUPER BANK
059859,000453: 43,3603           63172        27TO30            AD       S13BITS                               
059860,000454: 43,3604           00006                          EXTEND                                         
059861,000455: 43,3605           13607                          BZF      +2                                    #  BANK SET FOR 30
059862,000456: 43,3606           03614                          TC       GONXTBNK                              
059863,000457: 43,3607           35010                          CA       SIXTY                                 #  FIRST SUPER BANK
059864,000458: 43,3610           27374                          ADS      SKEEP4                                
059865,000459: 43,3611           03614                          TC       GONXTBNK                              
059866,000460: 43,3612           63171        NXTSUPR           AD       SUPRCON                               #  SET BNK 30 + INCR SUPR BNK AND CANCEL
059867,000461: 43,3613           27374                          ADS      SKEEP4                                #  ERC BIT OF THE 37 TO 40 ADVANCE.
059868,000462: 43,3614           11377        GONXTBNK          CCS      SKEEP7                                
059869,000463: 43,3615           03457                          TC       COMMFX                                
059870,000464: 43,3616           34770                          CA       S+1                                   
059871,000465: 43,3617           03475                          TC       FXFX                                  
059872,000466: 43,3620           34762                          CA       SBIT7                                 #  HAS TO BE LARGER THAN NO OF FXSW BANKS.
059873,000467: 43,3621           03457                          TC       COMMFX                                
059874,000468: 
059875,000469: 43,3622           31374        SOPTION           CA       SKEEP4                                
059876,000470: 43,3623           74344                          MASK     HI5                                   #  = BANK BITS
059877,000471: 43,3624           04333                          TC       LEFT5                                 
059878,000472: 43,3625           54001                          TS       L                                     #  BANK NUMBER BEFORE SUPER BANK
059879,000473: 43,3626           31374                          CA       SKEEP4                                
059880,000474:                                                                                                 # # Page 1401
059881,000475: 43,3627           74350                          MASK     S8BITS                                #  = SUPER BANK BITS
059882,000476: 43,3630           00006                          EXTEND                                         
059883,000477: 43,3631           13637                          BZF      SOPT                                  #  BEFORE SUPER BANK
059884,000478: 43,3632           54021                          TS       SR                                    #  SUPER BANK NECESSARY
059885,000479: 43,3633           30001                          CA       L                                     
059886,000480: 43,3634           74774                          MASK     SEVEN                                 
059887,000481: 43,3635           60021                          AD       SR                                    
059888,000482: 43,3636           54001                          TS       L                                     #  BANK NUMBER WITH SUPER BANK
059889,000483: 43,3637           31376        SOPT              CA       SKEEP6                                #  *
059890,000484: 43,3640           00006                          EXTEND                                         #  *
059891,000485: 43,3641           13643                          BZF      +2                                    #  * ON -0 CONTINUE WITH ROPE CHECK.
059892,000486: 43,3642           02746                          TC       SDISPLAY                              #  * ON +1 GO TO DISPLAY OF SUM.
059893,000487: 43,3643           11371                          CCS      SKEEP1                                #  FORCE SUM TO ABSOLUTE VALUE.
059894,000488: 43,3644           03646                          TC       +2                                    
059895,000489: 43,3645           03647                          TC       +2                                    
059896,000490: 43,3646           64770                          AD       S+1                                   
059897,000491: 43,3647           55371                          TS       SKEEP1                                
059898,000492: 43,3650           40001        BNKCHK            CS       L                                     #  = - BANK NUMBER
059899,000493: 43,3651           61371                          AD       SKEEP1                                
059900,000494: 43,3652           67702                          AD       S-1                                   
059901,000495: 43,3653           03225                          TC       -1CHK                                 #  CHECK SUM
059902,000496: 43,3654           03565                          TC       NXTBNK                                
059903,000497: 
059904,000498: 43,3655     0067                                 EBANK=   NEWJOB                                
059905,000499: 43,3655           66100        LSTBNKCH          BBCON*                                         #  * CONSTANT, LAST BANK.
059906,000500: 
059907,000501: 43,3656  30,2000                                 SBANK=   LOWSUPER                              

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