Source Code

060287,000001: # Copyright: Public domain. 060288,000002: # Filename: AGC_BLOCK_TWO_SELF-CHECK.agc 060289,000003: # Purpose: Part of the source code for Colossus 2A, AKA Comanche 055. 060290,000004: # It is part of the source code for the Command Module's (CM) 060291,000005: # Apollo Guidance Computer (AGC), for Apollo 11. 060292,000006: # Assembler: yaYUL 060293,000007: # Contact: Ron Burkey <info@sandroid.org>. 060294,000008: # Website: www.ibiblio.org/apollo. 060295,000009: # Pages: 1394-1403 060296,000010: # Mod history: 2009-05-10 SN (Sergio Navarro). Started adapting 060297,000011: # from the Colossus249/ file of the same 060298,000012: # name, using Comanche055 page images. 060299,000013: 060300,000014: # This source code has been transcribed or otherwise adapted from digitized 060301,000015: # images of a hardcopy from the MIT Museum. The digitization was performed 060302,000016: # by Paul Fjeld, and arranged for by Deborah Douglas of the Museum. Many 060303,000017: # thanks to both. The images (with suitable reduction in storage size and 060304,000018: # consequent reduction in image quality as well) are available online at 060305,000019: # www.ibiblio.org/apollo. If for some reason you find that the images are 060306,000020: # illegible, contact me at info@sandroid.org about getting access to the 060307,000021: # (much) higher-quality images which Paul actually created. 060308,000022: 060309,000023: # Notations on the hardcopy document read, in part: 060310,000024: 060311,000025: # Assemble revision 055 of AGC program Comanche by NASA 060312,000026: # 2021113-051. 10:28 APR. 1, 1969 060313,000027: 060314,000028: # This AGC program shall also be referred to as 060315,000029: # Colossus 2A 060316,000030: 060317,000031: # Page 1394 060318,000032: # PROGRAM DESCRIPTION DATE: 20 DECEMBER 1967 060319,000033: # PROGRAM NAME -- SELF-CHECK LOG SECTION: AGC BLOCK TWO SELF-CHECK 060320,000034: # MOD NO -- 1 ASSEMBLY SUBROUTINE UTILITYM REV 25 060321,000035: # MOD BY -- GAUNTT 060322,000036: 060323,000037: # FUNCTIONAL DESCRIPTION 060324,000038: # PROGRAM HAS TWO MAIN PARTS. THE FIRST IS SELF-CHECK WHICH RUNS AS A ZERO PRIORITY JOB WITH NO CORE SET, AS 060325,000039: # PART OF THE BACK-UP IDLE LOOP. THE SECOND IS SHOW-BANKSUM WHICH RUNS AS A REGULAR EXECUTIVE JOB WITH ITS OWN 060326,000040: # STARTING VERB. 060327,000041: 060328,000042: # THE PURPOSE OF SELF-CHECK IS TO CHECK OUT VARIOUS PARTS OF THE COMPUTER AS OUTLINED BELOW IN THE OPTIONS. 060329,000043: 060330,000044: # THE PURPOSE OF SHOW-BANKSUM IS TO DISPLAY THE SUM OF EACH BANK, ONE AT A TIME. 060331,000045: 060332,000046: # IN ALL THERE ARE 7 POSSIBLE OPTIONS IN THIS BLOCK II VERSION OF SELF-CHECK. MORE DETAIL DESCRIPTION MAY BE 060333,000047: # FOUND IN E-2065 BLOCK II AGC SELF-CHECK AND SHOW BANKSUM BY EDWIN D. SMALLY DECEMBER 1966, AND ADDENDA 2 AND 3. 060334,000048: 060335,000049: # THE DIFFERENT OPTIONS ARE CONTROLLED BY PUTTING DIFFERENT NUMBERS IN THE SMODE REGISTER (NOUN 27). BELOW IS 060336,000050: # A DESCRIPTION OF WHAT PARTS OF THE COMPUTER THAT ARE CHECKED BY THE OPTIONS, AND THE CORRESPONDING NUMBER, IN 060337,000051: # OCTAL, TO LOAD INTO SMODE. 060338,000052: # +-4 ERASABLE MEMORY 060339,000053: # +-5 FIXED MEMORY 060340,000054: # +-1,2,3,6,7,10 EVERYTHING IN OPTIONS 4 AND 5. 060341,000055: # -0 SAME AS +-10 UNTIL AN ERROR IS DETECTED. 060342,000056: # +0 NO CHECK, PUTS COMPUTER INTO THE BACKUP IDLE LOOP. 060343,000057: 060344,000058: # WARNINGS 060345,000059: # USE OF E MEMORY RESERVED FOR SELF-CHECK (EVEN IN IDLE LOOP) AS TEMP STORAGE BY OTHER PROGRAMS IS DANGEROUS. 060346,000060: # SMODE SET GREATER THAN OCT 10 PUTS COMPUTER INTO BACKUP IDLE LOOP. 060347,000061: 060348,000062: # CALLING SEQUENCE 060349,000063: # TO CALL SELF-CHECK KEY IN 060350,000064: # V 21 N 27 E OPTION NUMBER E 060351,000065: # TO CALL SHOW-BANKSUM KEY IN 060352,000066: # V 91 E DISPLAYS FIRST BANK 060353,000067: # V 33 E PROCEED, DISPLAYS NEXT BANK 060354,000068: 060355,000069: # EXIT MODES, NORMAL AND ALARM 060356,000070: # SELF-CHECK NORMALLY CONTINUES INDEFINITELY UNLESS THERE IS AN ERROR DETECTED. IF SO + OPTION NUMBERS PUT 060357,000071: # COMPUTER INTO BACKUP IDLE LOOP, - OPTION NUMBERS RESTART THE OPTION. 060358,000072: 060359,000073: # THE -0 OPTION PROCEEDS FROM THE LINE FOLLOWING THE LINE WHERE THE ERROR WAS DETECTED. 060360,000074: 060361,000075: # SHOW-BANKSUM PROCEEDS UNTIL A TERMINATE IS KEYED IN (V 34 E). THE COMPUTER IS PUT INTO THE BACKUP IDLE LOOP. 060362,000076: 060363,000077: # OUTPUT 060364,000078: # Page 1395 060365,000079: # SELF-CHECK UPON DETECTING AN ERROR LOADS THE SELF-CHECK ALARM CONSTANT (01102) INTO THE FAILREG SET AND 060366,000080: # TURNS ON THE ALARM LIGHT. THE OPERATOR MAY THEN DISPLAY THE THREE FAILREGS BY KEYING IN V 05 N 09 E. FOR FURTHER 060367,000081: # 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, 060368,000082: # IN R2 THE BBCON OF SELF-CHECK, AND IN R3 THE TOTAL NUMBER OF ERRORS DETECTED BY SELF-CHECK SINCE THE LAST MAN 060369,000083: # INITIATED FRESH START (SLAP1). 060370,000084: 060371,000085: # SHOW-BANKSUM STARTING WTIH BANK 0 DISPLAYS IN R1 THE BANK SUM (A +-NUMBER EQUAL TO THE BANK NUMBER), IN R2 060372,000086: # THE BANK NUMBER, AND IN R3 THE BUGGER WORD. 060373,000087: 060374,000088: # ERASABLE INITIALIZATION REQUIRED 060375,000089: # ACCOMPLISHED BY FRESH START 060376,000090: # SMODE SET TO +0 060377,000091: 060378,000092: # DEBRIS 060379,000093: # ALL EXITS FROM THE CHECK OF ERASABLE (ERASCHK) RESTORE ORIGINAL CONTENTS TO REGISTERS UNDER CHECK. 060380,000094: # EXCEPTION IS A RESTART. RESTART THAT OCCURS DURING ERASCHK RESTORES ERASABLE, UNLESS THERE IS EVIDENCE TO DOUBT 060381,000095: # E MEMORY, IN WHICH CASE PROGRAM THEN DOES A FRESH START (DOFSTART). 060382,000096: 060383,000097: 25,3774 BANK 25 060384,000098: 43,2000 SETLOC SELFCHEC 060385,000099: 43,2000 BANK 060386,000100: 060387,000101: 43,3234 COUNT 43/SELF 060388,000102: 060389,000103: 43,3234 5017 SBIT1 EQUALS BIT1 060390,000104: 43,3234 5016 SBIT2 EQUALS BIT2 060391,000105: 43,3234 5015 SBIT3 EQUALS BIT3 060392,000106: 43,3234 5014 SBIT4 EQUALS BIT4 060393,000107: 43,3234 5013 SBIT5 EQUALS BIT5 060394,000108: 43,3234 5012 SBIT6 EQUALS BIT6 060395,000109: 43,3234 5011 SBIT7 EQUALS BIT7 060396,000110: 43,3234 5010 SBIT8 EQUALS BIT8 060397,000111: 43,3234 5007 SBIT9 EQUALS BIT9 060398,000112: 43,3234 5006 SBIT10 EQUALS BIT10 060399,000113: 43,3234 5005 SBIT11 EQUALS BIT11 060400,000114: 43,3234 5004 SBIT12 EQUALS BIT12 060401,000115: 43,3234 5003 SBIT13 EQUALS BIT13 060402,000116: 43,3234 5002 SBIT14 EQUALS BIT14 060403,000117: 43,3234 5001 SBIT15 EQUALS BIT15 060404,000118: 060405,000119: 43,3234 5021 S+ZERO EQUALS ZERO 060406,000120: 43,3234 5017 S+1 EQUALS BIT1 060407,000121: 43,3234 5016 S+2 EQUALS BIT2 060408,000122: 43,3234 6214 S+3 EQUALS THREE 060409,000123: 43,3234 5015 S+4 EQUALS FOUR 060410,000124: 43,3234 5022 S+5 EQUALS FIVE 060411,000125: # Page 1396 060412,000126: 43,3234 6211 S+6 EQUALS SIX 060413,000127: 43,3234 5023 S+7 EQUALS SEVEN 060414,000128: 43,3234 4373 S8BITS EQUALS LOW8 # 00377 060415,000129: 43,3234 5033 CNTRCON = OCT50 # USED IN CNTRCHK 060416,000130: 43,3234 00061 ERASCON1 OCTAL 00061 # USED IN ERASCHK 060417,000131: 43,3235 01373 ERASCON2 OCTAL 01373 # USED IN ERASCHK 060418,000132: 43,3236 5051 ERASCON6 = OCT1400 # USED IN ERASCHK 060419,000133: 43,3236 01461 ERASCON3 OCTAL 01461 # USED IN ERASCHK 060420,000134: 43,3237 01773 ERASCON4 OCTAL 01773 # USED IN ERASCHK 060421,000135: 43,3240 5054 S10BITS EQUALS LOW10 # 01777, USED IN ERASCHK 060422,000136: 43,3240 5062 SBNK03 EQUALS PRIO6 # 06000, USED IN ROPECHK 060423,000137: 43,3240 4364 -MAXADRS = HI5 # FOR ROPECHK 060424,000138: 43,3240 00060 SIXTY OCTAL 00060 060425,000139: 43,3241 60017 SUPRCON OCTAL 60017 # USED IN ROPECHK 060426,000140: 43,3242 17777 S13BITS OCTAL 17777 060427,000141: 43,3243 25252 CONC+S1 OCTAL 25252 # USED IN CYCLSHFT 060428,000142: 43,3244 52400 CONC+S2 OCTAL 52400 # USED IN CYCLSHFT 060429,000143: 43,3245 76777 ERASCON5 OCTAL 76777 060430,000144: 43,3246 5731 S-7 = OCT77770 060431,000145: 43,3246 6061 S-4 EQUALS NEG4 060432,000146: 43,3246 7714 S-3 EQUALS NEG3 060433,000147: 43,3246 7715 S-2 EQUALS NEG2 060434,000148: 43,3246 7716 S-1 EQUALS NEGONE 060435,000149: 43,3246 5020 S-ZERO EQUALS NEG0 060436,000150: 060437,000151: 43,3246 E3,1400 EBANK= LST1 060438,000152: 43,3246 01371 ADRS1 ADRES SKEEP1 060439,000153: 43,3247 03340 SELFADRS ADRES SELFCHK # SELFCHK RETURN ADDRESS. SHOULD BE PUT 060440,000154: # IN SELFRET WHEN GOING FROM SELFCHK TO 060441,000155: # SHOWSUM AND PUT IN SKEEP1 WHEN GOING 060442,000156: # FROM SHOWSUM TO SELF-CHECK. 060443,000157: 060444,000158: 43,3250 31360 PRERRORS CA ERESTORE # IS IT NECESSARY TO RESTORE ERASABLE 060445,000159: 43,3251 00006 EXTEND 060446,000160: 43,3252 13261 BZF ERRORS # NO 060447,000161: 43,3253 00006 EXTEND 060448,000162: 43,3254 31376 DCA SKEEP5 060449,000163: 43,3255 51377 INDEX SKEEP7 060450,000164: 43,3256 52001 DXCH 0000 # RESTORE THE TWO ERASABLE REGISTERS 060451,000165: 43,3257 35021 CA S+ZERO 060452,000166: 43,3260 55360 TS ERESTORE 060453,000167: 43,3261 00004 ERRORS INHINT 060454,000168: 43,3262 30002 CA Q 060455,000169: 43,3263 55357 TS SFAIL # SAVE Q FOR FAILURE LOCATION 060456,000170: 43,3264 55363 TS ALMCADR # FOR DISPLAY WITH BBANK AND ERCOUNT 060457,000171: 43,3265 25365 INCR ERCOUNT # KEEP TRACK OF NUMBER OF MALFUNCTIONS. 060458,000172: 43,3266 05652 TCALARM2 TC ALARM2 060459,000173: 43,3267 01102 OCT 01102 # SELF-CHECK MALFUNCTION INDICATOR 060460,000174: 43,3270 11362 CCS SMODE 060461,000175: 43,3271 35021 SIDLOOP CA S+ZERO 060462,000176: # Page 1397 060463,000177: 43,3272 55362 TS SMODE 060464,000178: 43,3273 03340 TC SELFCHK # GO TO IDLE LOOP 060465,000179: 43,3274 01357 TC SFAIL # CONTINUE WITH SELF-CHECK 060466,000180: 060467,000181: 43,3275 10000 -1CHK CCS A 060468,000182: 43,3276 13250 TCF PRERRORS 060469,000183: 43,3277 13250 TCF PRERRORS 060470,000184: 43,3300 10000 CCS A 060471,000185: 43,3301 13250 TCF PRERRORS 060472,000186: 43,3302 00002 TC Q 060473,000187: 060474,000188: 43,3303 00006 SMODECHK EXTEND 060475,000189: 43,3304 23371 QXCH SKEEP1 060476,000190: 43,3305 03334 TC CHECKNJ # CHECK FOR NEW JOB 060477,000191: 43,3306 11362 CCS SMODE 060478,000192: 43,3307 03314 TC SOPTIONS 060479,000193: 43,3310 03305 TC SMODECHK +2 # TO BACKUP IDLE LOOP 060480,000194: 43,3311 03314 TC SOPTIONS 060481,000195: 43,3312 25366 INCR SCOUNT 060482,000196: 43,3313 01371 TC SKEEP1 # CONTINUE WITH SELF-CHECK 060483,000197: 060484,000198: 43,3314 65731 SOPTIONS AD S-7 060485,000199: 43,3315 00006 EXTEND 060486,000200: 43,3316 63320 BZMF +2 # FOR OPTIONS BELOW NINE. 060487,000201: 43,3317 03271 BNKOPTN TC SIDLOOP # ILLEGAL OPTION. GO TO IDLE LOOP. 060488,000202: 43,3320 25366 INCR SCOUNT # FOR OPTIONS BELOW NINE. 060489,000203: 43,3321 65023 AD S+7 060490,000204: 060491,000205: 43,3322 50000 INDEX A 060492,000206: 43,3323 03324 TC SOPTION1 060493,000207: 43,3324 01371 SOPTION1 TC SKEEP1 # WAS TC+TCF 060494,000208: 43,3325 01371 SOPTION2 TC SKEEP1 # WAS IN:OUT1 060495,000209: 43,3326 01371 SOPTION3 TC SKEEP1 # WAS COUNTCHK 060496,000210: 43,3327 03341 SOPTION4 TC ERASCHK 060497,000211: 43,3330 03522 SOPTION5 TC ROPECHK 060498,000212: 43,3331 01371 SOPTION6 TC SKEEP1 060499,000213: 43,3332 01371 SOPTION7 TC SKEEP1 060500,000214: 43,3333 01371 SOPTON10 TC SKEEP1 # CONTINUE WITH SELF-CHECK 060501,000215: 060502,000216: 43,3334 00006 CHECKNJ EXTEND 060503,000217: 43,3335 23361 QXCH SELFRET # SAVE RETURN ADDRESS WHILE TESTING NEWJOB 060504,000218: 43,3336 04701 TC POSTJUMP # TO SEE IF ANY JOBS HAVE BECOME ACTIVE. 060505,000219: 43,3337 03231 CADR ADVAN 060506,000220: 060507,000221: 43,3340 03303 SELFCHK TC SMODECHK # ** CHARLEY, COME IN HERE 060508,000222: 060509,000223: # SKEEP7 HOLDS LOWEST OF TWO ADDRESSES BEING CHECKED. 060510,000224: # SKEEP6 HOLDS B(X+1). 060511,000225: # SKEEP5 HOLDS B(X). 060512,000226: # SKEEP4 HOLDS C(EBANK) DURING ERASLOOP AND CHECKNJ 060513,000227: # Page 1398 060514,000228: # SKEEP3 HOLDS LAST ADDRESS BEING CHECKED (HIGHEST ADDRESS). 060515,000229: # SKEEP2 CONTROLS CHECKING OF NON-SWITCHABLE ERASABLE MEMORY WITH BANK NUMBERS IN EB. 060516,000230: 060517,000231: # ERASCHK TAKES APPROXIMATELY 7 SECONDS. 060518,000232: 060519,000233: 43,3341 35017 ERASCHK CA S+1 060520,000234: 43,3342 55372 TS SKEEP2 060521,000235: 43,3343 35021 0EBANK CA S+ZERO 060522,000236: 43,3344 54003 TS EBANK 060523,000237: 43,3345 33236 CA ERASCON3 # 01461 060524,000238: 43,3346 55377 TS SKEEP7 # STARTING ADDRESS 060525,000239: 43,3347 35054 CA S10BITS # 01777 060526,000240: 43,3350 55373 TS SKEEP3 # LAST ADDRESS CHECKED 060527,000241: 43,3351 03371 TC ERASLOOP 060528,000242: 060529,000243: 43,3352 35051 E134567B CA ERASCON6 # 01400 060530,000244: 43,3353 55377 TS SKEEP7 # STARTING ADDRESS 060531,000245: 43,3354 35054 CA S10BITS # 01777 060532,000246: 43,3355 55373 TS SKEEP3 # LAST ADDRESS CHECKED 060533,000247: 43,3356 03371 TC ERASLOOP 060534,000248: 060535,000249: 43,3357 35051 2EBANK CA ERASCON6 # 01400 060536,000250: 43,3360 55377 TS SKEEP7 # STARTING ADDRESS 060537,000251: 43,3361 33237 CA ERASCON4 # 01773 060538,000252: 43,3362 55373 TS SKEEP3 # LAST ADDRESS CHECKED 060539,000253: 43,3363 03371 TC ERASLOOP 060540,000254: 060541,000255: 43,3364 55372 NOEBANK TS SKEEP2 # +0 060542,000256: 43,3365 33234 CA ERASCON1 # 00061 060543,000257: 43,3366 55377 TS SKEEP7 # STARTING ADDRESS 060544,000258: 43,3367 33235 CA ERASCON2 # 01373 060545,000259: 43,3370 55373 TS SKEEP3 # LAST ADDRESS CHECKED 060546,000260: 060547,000261: 43,3371 00004 ERASLOOP INHINT 060548,000262: 43,3372 30003 CA EBANK # STORES C(EBANK) 060549,000263: 43,3373 55374 TS SKEEP4 060550,000264: 43,3374 00006 EXTEND 060551,000265: 43,3375 51377 NDX SKEEP7 060552,000266: 43,3376 30001 DCA 0000 060553,000267: 43,3377 53376 DXCH SKEEP5 # STORES C(X) AND C(X+1) IN SKEEP6 AND 5. 060554,000268: 43,3400 31377 CA SKEEP7 060555,000269: 43,3401 55360 TS ERESTORE # IF RESTART, RESTORE C(X) AND C(X+1) 060556,000270: 43,3402 54001 TS L 060557,000271: 43,3403 24001 INCR L 060558,000272: 43,3404 50000 NDX A 060559,000273: 43,3405 52001 DXCH 0000 # PUTS OWN ADDRESS IN X AND X +1 060560,000274: 43,3406 51377 NDX SKEEP7 060561,000275: 43,3407 40001 CS 0001 # CS X+1 060562,000276: 43,3410 51377 NDX SKEEP7 060563,000277: 43,3411 60000 AD 0000 # AD X 060564,000278: 43,3412 03275 TC -1CHK 060565,000279: 43,3413 31360 CA ERESTORE # HAS ERASABLE BEEN RESTORED 060566,000280: # Page 1399 060567,000281: 43,3414 00006 EXTEND 060568,000282: 43,3415 13441 BZF ELOOPFIN # YES, EXIT ERASLOOP. 060569,000283: 43,3416 00006 EXTEND 060570,000284: 43,3417 51377 NDX SKEEP7 060571,000285: 43,3420 40001 DCS 0000 # COMPLEMENT OF ADDRESS OF X AND X+1 060572,000286: 43,3421 51377 NDX SKEEP7 060573,000287: 43,3422 52001 DXCH 0000 # PUT COMPLEMENT OF ADDRESS OF X AND X+1 060574,000288: 43,3423 51377 NDX SKEEP7 060575,000289: 43,3424 40000 CS 0000 # CS X 060576,000290: 43,3425 51377 NDX SKEEP7 060577,000291: 43,3426 60001 AD 0001 # AD X+1 060578,000292: 43,3427 03275 TC -1CHK 060579,000293: 43,3430 31360 CA ERESTORE # HAS ERASABLE BEEN RESTORED 060580,000294: 43,3431 00006 EXTEND 060581,000295: 43,3432 13441 BZF ELOOPFIN # YES, EXIT ERASLOOP. 060582,000296: 43,3433 00006 EXTEND 060583,000297: 43,3434 31376 DCA SKEEP5 060584,000298: 43,3435 51377 NDX SKEEP7 060585,000299: 43,3436 52001 DXCH 0000 # PUT B(X) AND B(X+1) BACK INTO X AND X+1 060586,000300: 43,3437 35021 CA S+ZERO 060587,000301: 43,3440 55360 TS ERESTORE # IF RESTART, DO NOT RESTORE C(X), C(X+1) 060588,000302: 43,3441 00003 ELOOPFIN RELINT 060589,000303: 43,3442 03334 TC CHECKNJ # CHECK FOR NEW JOB 060590,000304: 43,3443 31374 CA SKEEP4 # REPLACES B(EBANK) 060591,000305: 43,3444 54003 TS EBANK 060592,000306: 43,3445 25377 INCR SKEEP7 060593,000307: 43,3446 41377 CS SKEEP7 060594,000308: 43,3447 61373 AD SKEEP3 060595,000309: 43,3450 00006 EXTEND 060596,000310: 43,3451 13453 BZF +2 060597,000311: 43,3452 03371 TC ERASLOOP # GO TO NEXT ADDRESS IN SAME BANK 060598,000312: 43,3453 11372 CCS SKEEP2 060599,000313: 43,3454 03364 TC NOEBANK 060600,000314: 43,3455 25372 INCR SKEEP2 # PUT +1 IN SKEEP2. 060601,000315: 43,3456 30003 CA EBANK 060602,000316: 43,3457 65007 AD SBIT9 060603,000317: 43,3460 54003 TS EBANK 060604,000318: 43,3461 63245 AD ERASCON5 # 76777, CHECK FOR BANK E2 060605,000319: 43,3462 00006 EXTEND 060606,000320: 43,3463 13357 BZF 2EBANK 060607,000321: 43,3464 10003 CCS EBANK 060608,000322: 43,3465 03352 TC E134567B # GO TO EBANKS 1,3,4,5,6, AND 7 060609,000323: 43,3466 35051 CA ERASCON6 # END OF ERASCHK 060610,000324: 43,3467 54003 TS EBANK 060611,000325: 060612,000326: # CNTRCHK PERFORMS A CS OF ALL REGISTERS FROM OCT. 60 THROUGH OCT. 10. 060613,000327: # INCLUDED ARE ALL COUNTERS, T6-1, CYCLE AND SHIFT, AND ALL RUPT REGISTERS 060614,000328: 060615,000329: 43,3470 35033 CNTRCHK CA CNTRCON # 00050 060616,000330: 43,3471 55372 CNTRLOOP TS SKEEP2 060617,000331: 43,3472 65014 AD SBIT4 # +10 OCTAL 060618,000332: 43,3473 50000 INDEX A 060619,000333: # Page 1400 060620,000334: 43,3474 40000 CS 0000 060621,000335: 43,3475 11372 CCS SKEEP2 060622,000336: 43,3476 03471 TC CNTRLOOP 060623,000337: 060624,000338: # CYCLSHFT CHECKS THE CYCLE AND SHIFT REGISTERS 060625,000339: 060626,000340: 43,3477 33243 CYCLSHFT CA CONC+S1 # 25252 060627,000341: 43,3500 54020 TS CYR # C(CYR) = 12525 060628,000342: 43,3501 54022 TS CYL # C(CYL) = 52524 060629,000343: 43,3502 54021 TS SR # C(SR) = 12525 060630,000344: 43,3503 54023 TS EDOP # C(EDOP) = 00125 060631,000345: 43,3504 60020 AD CYR # 37777 C(CYR) = 45252 060632,000346: 43,3505 60022 AD CYL # 00-12524 C(CYL) = 25251 060633,000347: 43,3506 60021 AD SR # 00-25251 C(SR) = 05252 060634,000348: 43,3507 60023 AD EDOP # 00-25376 C(EDOP) = +0 060635,000349: 43,3510 63244 AD CONC+S2 # C(CONC+S2) = 52400 060636,000350: 43,3511 03275 TC -1CHK 060637,000351: 43,3512 60020 AD CYR # 45252 060638,000352: 43,3513 60022 AD CYL # 72523 060639,000353: 43,3514 60021 AD SR # 77775 060640,000354: 43,3515 60023 AD EDOP # 77775 060641,000355: 43,3516 65017 AD S+1 # 77776 060642,000356: 43,3517 03275 TC -1CHK 060643,000357: 060644,000358: 43,3520 25367 INCR SCOUNT +1 060645,000359: 43,3521 03303 TC SMODECHK 060646,000360: 060647,000361: # SKEEP1 HOLDS SUM 060648,000362: # SKEEP2 HOLDS PRESENT CONTENTS OF ADDRESS IN ROPECHK AND SHOWSUM ROUTINES 060649,000363: # SKEEP2 HOLDS BANK NUMBER IN LOW ORDER BITS DURING SHOWSUM DISPLAY 060650,000364: # SKEEP3 HOLDS PRESENT ADDRESS (00000 TO 01777 IN COMMON FIXED BANKS) 060651,000365: # (04000 TO 07777 IN FXFX BANKS) 060652,000366: # SKEEP3 HOLDS BUGGER WORD DURING SHOWSUM DISPLAY 060653,000367: # SKEEP4 HOLDS BANK NUMBER AND SUPER BANK NUMBER 060654,000368: # SKEEP5 COUNTS 2 SUCCESSIVE TC SELF WORDS 060655,000369: # SKEEP6 CONTROLS ROPECHK OR SHOWSUM OPTION 060656,000370: # SKEEP7 CONTROLS WHEN ROUTINE IS IN COMMON FIXED OR FIXED FIXED BANKS 060657,000371: 060658,000372: 43,3522 35020 ROPECHK CA S-ZERO # * 060659,000373: 43,3523 55376 TS SKEEP6 # * -0 FOR ROPECHK 060660,000374: 43,3524 35021 STSHOSUM CA S+ZERO # * SHOULD BE ROPECHK 060661,000375: 060662,000376: 43,3525 55374 TS SKEEP4 # BANK NUMBER 060663,000377: 43,3526 35017 CA S+1 060664,000378: 43,3527 55377 COMMFX TS SKEEP7 060665,000379: 43,3530 35021 CA S+ZERO 060666,000380: 43,3531 55371 TS SKEEP1 060667,000381: 43,3532 55373 TS SKEEP3 060668,000382: 43,3533 35017 CA S+1 060669,000383: 43,3534 55375 TS SKEEP5 # COUNTS DOWN 2 TC SELF WORDS 060670,000384: 43,3535 31374 COMADRS CA SKEEP4 060671,000385: 43,3536 54001 TS L # TO SET SUPER BANK 060672,000386: # Page 1401 060673,000387: 43,3537 74364 MASK HI5 060674,000388: 43,3540 61373 AD SKEEP3 060675,000389: 43,3541 04715 TC SUPDACAL # SUPER DATA CALL 060676,000390: 43,3542 03565 TC ADSUM 060677,000391: 43,3543 65005 AD SBIT11 # 02000 060678,000392: 43,3544 03576 TC ADRSCHK 060679,000393: 060680,000394: 43,3545 40000 FXFX CS A 060681,000395: 43,3546 55377 TS SKEEP7 060682,000396: 43,3547 00006 EXTEND 060683,000397: 43,3550 13553 BZF +3 060684,000398: 43,3551 35004 CA SBIT12 # 04000, STARTING ADDRESS OF BANK 02 060685,000399: 43,3552 03554 TC +2 060686,000400: 43,3553 35062 CA SBNK03 # 06000, STARTING ADDRESS OF BANK 03 060687,000401: 43,3554 55373 TS SKEEP3 060688,000402: 43,3555 35021 CA S+ZERO 060689,000403: 43,3556 55371 TS SKEEP1 060690,000404: 43,3557 35017 CA S+1 060691,000405: 43,3560 55375 TS SKEEP5 # COUNTS DOWN 2 TC SELF WORDS 060692,000406: 43,3561 51373 FXADRS INDEX SKEEP3 060693,000407: 43,3562 30000 CA 0000 060694,000408: 43,3563 03565 TC ADSUM 060695,000409: 43,3564 03576 TC ADRSCHK 060696,000410: 060697,000411: 43,3565 55372 ADSUM TS SKEEP2 060698,000412: 43,3566 61371 AD SKEEP1 060699,000413: 43,3567 55371 TS SKEEP1 060700,000414: 43,3570 35021 CAF S+ZERO 060701,000415: 43,3571 61371 AD SKEEP1 060702,000416: 43,3572 55371 TS SKEEP1 060703,000417: 43,3573 41372 CS SKEEP2 060704,000418: 43,3574 61373 AD SKEEP3 060705,000419: 43,3575 00002 TC Q 060706,000420: 060707,000421: 43,3576 22000 ADRSCHK LXCH A 060708,000422: 43,3577 31373 CA SKEEP3 060709,000423: 43,3600 75054 MASK LOW10 # RELATIVE ADDRESS 060710,000424: 43,3601 64364 AD -MAXADRS # SUBTRACT MAX RELATIVE ADDRESS = 1777. 060711,000425: 43,3602 00006 EXTEND 060712,000426: 43,3603 13672 BZF SOPTION # CHECKSUM FINISHED IF LAST ADDRESS. 060713,000427: 43,3604 11375 CCS SKEEP5 # IS CHECKSUM FINISHED 060714,000428: 43,3605 03610 TC +3 # NO 060715,000429: 43,3606 03610 TC +2 # NO 060716,000430: 43,3607 03672 TC SOPTION # GO TO ROPECHK SHOWSUM OPTION 060717,000431: 43,3610 10001 CCS L # -0 MEANS A TC SELF WORD. 060718,000432: 43,3611 03620 TC CONTINU 060719,000433: 43,3612 03620 TC CONTINU 060720,000434: 43,3613 03620 TC CONTINU 060721,000435: 43,3614 11375 CCS SKEEP5 060722,000436: 43,3615 03621 TC CONTINU +1 060723,000437: # Page 1402 060724,000438: 43,3616 37716 CA S-1 060725,000439: 43,3617 03621 TC CONTINU +1 # AD IN THE BUGGER WORD 060726,000440: 43,3620 35017 CONTINU CA S+1 # MAKE SURE TWO CONSECUTIVE TC SELF WORDS 060727,000441: 43,3621 55375 TS SKEEP5 060728,000442: 43,3622 11376 CCS SKEEP6 # * 060729,000443: 43,3623 10067 CCS NEWJOB # * +1, SHOWSUM 060730,000444: 43,3624 05164 TC CHANG1 # * 060731,000445: 43,3625 03627 TC +2 # * 060732,000446: 43,3626 03334 TC CHECKNJ # -0 IN SKEEP6 FOR ROPECHK 060733,000447: 060734,000448: 43,3627 25373 ADRS+1 INCR SKEEP3 060735,000449: 43,3630 11377 CCS SKEEP7 060736,000450: 43,3631 03535 TC COMADRS 060737,000451: 43,3632 03535 TC COMADRS 060738,000452: 43,3633 03561 TC FXADRS 060739,000453: 43,3634 03561 TC FXADRS 060740,000454: 060741,000455: 43,3635 41374 NXTBNK CS SKEEP4 060742,000456: 43,3636 63725 AD LSTBNKCH # LAST BANK TO BE CHECKED 060743,000457: 43,3637 00006 EXTEND 060744,000458: 43,3640 13011 BZF ENDSUMS # END OF SUMMING OF BANKS. 060745,000459: 43,3641 31374 CA SKEEP4 060746,000460: 43,3642 65005 AD SBIT11 060747,000461: 43,3643 55374 TS SKEEP4 # 37 TO 40 INCRMTS SKEEP4 BY END RND CARRY 060748,000462: 43,3644 03650 TC CHKSUPR 060749,000463: 43,3645 35001 17TO20 CA SBIT15 060750,000464: 43,3646 27374 ADS SKEEP4 # SET FOR BANK 20 060751,000465: 43,3647 03664 TC GONXTBNK 060752,000466: 43,3650 74364 CHKSUPR MASK HI5 060753,000467: 43,3651 00006 EXTEND 060754,000468: 43,3652 13662 BZF NXTSUPR # INCREMENT SUPER BANK 060755,000469: 43,3653 63242 27TO30 AD S13BITS 060756,000470: 43,3654 00006 EXTEND 060757,000471: 43,3655 13657 BZF +2 # BANK SET FOR 30 060758,000472: 43,3656 03664 TC GONXTBNK 060759,000473: 43,3657 33240 CA SIXTY # FIRST SUPER BANK 060760,000474: 43,3660 27374 ADS SKEEP4 060761,000475: 43,3661 03664 TC GONXTBNK 060762,000476: 43,3662 63241 NXTSUPR AD SUPRCON # SET BNK 30 + INCR SUPR BNK AND CANCEL 060763,000477: 43,3663 27374 ADS SKEEP4 # ERC BIT OF THE 37 TO 40 ADVANCE. 060764,000478: 43,3664 11377 GONXTBNK CCS SKEEP7 060765,000479: 43,3665 03527 TC COMMFX 060766,000480: 43,3666 35017 CA S+1 060767,000481: 43,3667 03545 TC FXFX 060768,000482: 43,3670 35011 CA SBIT7 # HAS TO BE LARGER THAN NO OF FXSW BANKS. 060769,000483: 43,3671 03527 TC COMMFX 060770,000484: 060771,000485: 43,3672 31374 SOPTION CA SKEEP4 060772,000486: 43,3673 74364 MASK HI5 # = BANK BITS 060773,000487: 43,3674 04345 TC LEFT5 060774,000488: # Page 1403 060775,000489: 43,3675 54001 TS L # BANK NUMBER BEFORE SUPER BANK 060776,000490: 43,3676 31374 CA SKEEP4 060777,000491: 43,3677 74373 MASK S8BITS # = SUPER BANK BITS 060778,000492: 43,3700 00006 EXTEND 060779,000493: 43,3701 13707 BZF SOPT # BEFORE SUPER BANK 060780,000494: 43,3702 54021 TS SR # SUPER BANK NECESSARY 060781,000495: 43,3703 30001 CA L 060782,000496: 43,3704 75023 MASK SEVEN 060783,000497: 43,3705 60021 AD SR 060784,000498: 43,3706 54001 TS L # BANK NUMBER WITH SUPER BANK 060785,000499: 43,3707 31376 SOPT CA SKEEP6 # * 060786,000500: 43,3710 00006 EXTEND # * 060787,000501: 43,3711 13713 BZF +2 # * ON -0 CONTINUE WITH ROPE CHECK. 060788,000502: 43,3712 02773 TC SDISPLAY # * ON +1 GO TO DISPLAY OF SUM. 060789,000503: 43,3713 11371 CCS SKEEP1 # FORCE SUM TO ABSOLUTE VALUE. 060790,000504: 43,3714 03716 TC +2 060791,000505: 43,3715 03717 TC +2 060792,000506: 43,3716 65017 AD S+1 060793,000507: 43,3717 55371 TS SKEEP1 060794,000508: 43,3720 40001 BNKCHK CS L # = - BANK NUMBER 060795,000509: 43,3721 61371 AD SKEEP1 060796,000510: 43,3722 67716 AD S-1 060797,000511: 43,3723 03275 TC -1CHK # CHECK SUM 060798,000512: 43,3724 03635 TC NXTBNK 060799,000513: 060800,000514: 43,3725 0067 EBANK= NEWJOB 060801,000515: 43,3725 66100 LSTBNKCH BBCON* # * CONSTANT, LAST BANK. 060802,000516: 43,3726 30,2000 SBANK= LOWSUPER 060803,000517: 060804,000518: End of include-file AGC_BLOCK_TWO_SELF-CHECK.agc. Parent file is MAIN.agc