GAP: ASSEMBLE REVISION 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051 10:28 APR. 1,1969Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were from the printout at the MIT Museum, with many thanks
to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing
it to us. The printout was digitally photographed by Paul Fjeld. A team of
volunteers transcribed the source code manually from these images or, where
appropriate, modified already-transcribed but similar source Colossus 249 (Apollo 9)
source code to agree with the images from the printout. Note that the page images
presented online are of reduced quality, and that higher-quality images
are 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 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051 10:28 APR. 1,1969Note that the date is the date of the printout, not the date of the program revision. |
060684,000002: ## Copyright: Public domain.
060685,000003: ## Filename: AGC_BLOCK_TWO_SELF-CHECK.agc
060686,000004: ## Purpose: Part of the source code for Colossus 2A, AKA Comanche 055.
060687,000005: ## It is part of the source code for the Command Module's (CM)
060688,000006: ## Apollo Guidance Computer (AGC), for Apollo 11.
060689,000007: ## Assembler: yaYUL
060690,000008: ## Contact: Ron Burkey <info@sandroid.org>.
060691,000009: ## Website: www.ibiblio.org/apollo.
060692,000010: ## Pages: 1394-1403
060693,000011: ## Mod history: 2009-05-10 SN (Sergio Navarro). Started adapting
060694,000012: ## from the Colossus249/ file of the same
060695,000013: ## name, using Comanche055 page images.
060696,000014: ## 2016-12-22 RSB Proofed comment text using octopus/ProoferComments
060697,000015: ## and corrected the errors found.
060698,000016: ##
060699,000017: ## This source code has been transcribed or otherwise adapted from digitized
060700,000018: ## images of a hardcopy from the MIT Museum. The digitization was performed
060701,000019: ## by Paul Fjeld, and arranged for by Deborah Douglas of the Museum. Many
060702,000020: ## thanks to both. The images (with suitable reduction in storage size and
060703,000021: ## consequent reduction in image quality as well) are available online at
060704,000022: ## www.ibiblio.org/apollo. If for some reason you find that the images are
060705,000023: ## illegible, contact me at info@sandroid.org about getting access to the
060706,000024: ## (much) higher-quality images which Paul actually created.
060707,000025: ##
060708,000026: ## Notations on the hardcopy document read, in part:
060709,000027: ##
060710,000028: ## Assemble revision 055 of AGC program Comanche by NASA
060711,000029: ## 2021113-051. 10:28 APR. 1, 1969
060712,000030: ##
060713,000031: ## This AGC program shall also be referred to as
060714,000032: ## Colossus 2A
060715,000033:
|
|
Page 1394 |
060717,000035: # PROGRAM DESCRIPTION DATE 20 DECEMBER 1967
060718,000036: # PROGRAM NAME - SELF-CHECK LOG SECTION AGC BLOCK TWO SELF-CHECK
060719,000037: # MOD NO - 1 ASSEMBLY SUBROUTINE UTILITYM REV 25
060720,000038: # MOD BY - GAUNTT
060721,000039:
060722,000040: # FUNCTIONAL DESCRIPTION
060723,000041: # PROGRAM HAS TWO MAIN PARTS. THE FIRST IS SELF-CHECK WHICH RUNS AS A ZERO PRIORITY JOB WITH NO CORE SET, AS
060724,000042: # PART OF THE BACK-UP IDLE LOOP. THE SECOND IS SHOW-BANKSUM WHICH RUNS AS A REGULAR EXECUTIVE JOB WITH ITS OWN
060725,000043: # STARTING VERB.
060726,000044:
060727,000045: # THE PURPOSE OF SELF-CHECK IS TO CHECK OUT VARIOUS PARTS OF THE COMPUTER AS OUTLINED BELOW IN THE OPTIONS.
060728,000046:
060729,000047: # THE PURPOSE OF SHOW-BANKSUM IS TO DISPLAY THE SUM OF EACH BANK, ONE AT A TIME.
060730,000048:
060731,000049: # IN ALL THERE ARE 7 POSSIBLE OPTIONS IN THIS BLOCK II VERSION OF SELF-CHECK. MORE DETAIL DESCRIPTION MAY BE
060732,000050: # FOUND IN E-2065 BLOCK II AGC SELF-CHECK AND SHOW BANKSUM BY EDWIN D. SMALLY DECEMBER 1966, AND ADDENDA 2 AND 3.
060733,000051:
060734,000052: # THE DIFFERENT OPTIONS ARE CONTROLLED BY PUTTING DIFFERENT NUMBERS IN THE SMODE REGISTER (NOUN 27). BELOW IS
060735,000053: # A DESCRIPTION OF WHAT PARTS OF THE COMPUTER THAT ARE CHECKED BY THE OPTIONS, AND THE CORRESPONDING NUMBER, IN
060736,000054: # OCTAL, TO LOAD INTO SMODE.
060737,000055: # +-4 ERASABLE MEMORY
060738,000056: # +-5 FIXED MEMORY
060739,000057: # +-1,2,3,6,7,10 EVERYTHING IN OPTIONS 4 AND 5.
060740,000058: # -0 SAME AS +-10 UNTIL AN ERROR IS DETECTED.
060741,000059: # +0 NO CHECK, PUTS COMPUTER INTO THE BACKUP IDLE LOOP.
060742,000060:
060743,000061: # WARNINGS
060744,000062: # USE OF E MEMORY RESERVED FOR SELF-CHECK (EVEN IN IDLE LOOP) AS TEMP STORAGE BY OTHER PROGRAMS IS DANGEROUS.
060745,000063: # SMODE SET GREATER THAN OCT 10 PUTS COMPUTER INTO BACKUP IDLE LOOP.
060746,000064:
060747,000065: # CALLING SEQUENCE
060748,000066: # TO CALL SELF-CHECK KEY IN
060749,000067: # V 21 N 27 E OPTION NUMBER E
060750,000068: # TO CALL SHOW-BANKSUM KEY IN
060751,000069: # V 91 E DISPLAYS FIRST BANK
060752,000070: # V 33 E PROCEED, DISPLAYS NEXT BANK
060753,000071:
060754,000072: # EXIT MODES, NORMAL AND ALARM
060755,000073: # SELF-CHECK NORMALLY CONTINUES INDEFINITELY UNLESS THERE IS AN ERROR DETECTED. IF SO + OPTION NUMBERS PUT
060756,000074: # COMPUTER INTO BACKUP IDLE LOOP, - OPTION NUMBERS RESTART THE OPTION.
060757,000075:
060758,000076: # THE -0 OPTION PROCEEDS FROM THE LINE FOLLOWING THE LINE WHERE THE ERROR WAS DETECTED.
060759,000077:
060760,000078: # SHOW-BANKSUM PROCEEDS UNTIL A TERMINATE IS KEYED IN (V 34 E). THE COMPUTER IS PUT INTO THE BACKUP IDLE LOOP
060761,000079:
060762,000080: # OUTPUT
|
|
Page 1395 |
060764,000082: # SELF-CHECK UPON DETECTING AN ERROR LOADS THE SELF-CHECK ALARM CONSTANT (01102) INTO THE FAILREG SET AND
060765,000083: # TURNS ON THE ALARM LIGHT. THE OPERATOR MAY THEN DISPLAY THE THREE FAILREGS BY KEYING IN V 05 N 09 E. FOR FURTHER
060766,000084: # 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,
060767,000085: # IN R2 THE BBCON OF SELF-CHECK, AND IN R3 THE TOTAL NUMBER OF ERRORS DETECTED BY SELF-CHECK SINCE THE LAST MAN
060768,000086: # INITIATED FRESH START (SLAP1).
060769,000087:
060770,000088: # SHOW-BANKSUM STARTING WITH BANK 0 DISPLAYS IN R1 THE BANK SUM (A +-NUMBER EQUAL TO THE BANK NUMBER), IN R2
060771,000089: # THE BANK NUMBER, AND IN R3 THE BUGGER WORD.
060772,000090:
060773,000091: # ERASABLE INITIALIZATION REQUIRED
060774,000092: # ACCOMPLISHED BY FRESH START
060775,000093: # SMODE SET TO +0
060776,000094:
060777,000095: # DEBRIS
060778,000096: # ALL EXITS FROM THE CHECK OF ERASABLE (ERASCHK) RESTORE ORIGINAL CONTENTS TO REGISTERS UNDER CHECK.
060779,000097: # EXCEPTION IS A RESTART. RESTART THAT OCCURS DURING ERASCHK RESTORES ERASABLE, UNLESS THERE IS EVIDENCE TO DOUBT
060780,000098: # E MEMORY, IN WHICH CASE PROGRAM THEN DOES A FRESH START (DOFSTART).
060781,000099:
060782,000100: 25,3774 BANK 25
060783,000101: 43,2000 SETLOC SELFCHEC
060784,000102: 43,2000 BANK
060785,000103:
060786,000104: 43,3234 COUNT 43/SELF
060787,000105:
060788,000106: 43,3234 5017 SBIT1 EQUALS BIT1
060789,000107: 43,3234 5016 SBIT2 EQUALS BIT2
060790,000108: 43,3234 5015 SBIT3 EQUALS BIT3
060791,000109: 43,3234 5014 SBIT4 EQUALS BIT4
060792,000110: 43,3234 5013 SBIT5 EQUALS BIT5
060793,000111: 43,3234 5012 SBIT6 EQUALS BIT6
060794,000112: 43,3234 5011 SBIT7 EQUALS BIT7
060795,000113: 43,3234 5010 SBIT8 EQUALS BIT8
060796,000114: 43,3234 5007 SBIT9 EQUALS BIT9
060797,000115: 43,3234 5006 SBIT10 EQUALS BIT10
060798,000116: 43,3234 5005 SBIT11 EQUALS BIT11
060799,000117: 43,3234 5004 SBIT12 EQUALS BIT12
060800,000118: 43,3234 5003 SBIT13 EQUALS BIT13
060801,000119: 43,3234 5002 SBIT14 EQUALS BIT14
060802,000120: 43,3234 5001 SBIT15 EQUALS BIT15
060803,000121:
060804,000122: 43,3234 5021 S+ZERO EQUALS ZERO
060805,000123: 43,3234 5017 S+1 EQUALS BIT1
060806,000124: 43,3234 5016 S+2 EQUALS BIT2
060807,000125: 43,3234 6214 S+3 EQUALS THREE
060808,000126: 43,3234 5015 S+4 EQUALS FOUR
060809,000127: 43,3234 5022 S+5 EQUALS FIVE
|
|
Page 1396 |
060811,000129: 43,3234 6211 S+6 EQUALS SIX
060812,000130: 43,3234 5023 S+7 EQUALS SEVEN
060813,000131: 43,3234 4373 S8BITS EQUALS LOW8 # 00377
060814,000132: 43,3234 5033 CNTRCON = OCT50 # USED IN CNTRCHK
060815,000133: 43,3234 00061 ERASCON1 OCTAL 00061 # USED IN ERASCHK
060816,000134: 43,3235 01373 ERASCON2 OCTAL 01373 # USED IN ERASCHK
060817,000135: 43,3236 5051 ERASCON6 = OCT1400 # USED IN ERASCHK
060818,000136: 43,3236 01461 ERASCON3 OCTAL 01461 # USED IN ERASCHK
060819,000137: 43,3237 01773 ERASCON4 OCTAL 01773 # USED IN ERASCHK
060820,000138: 43,3240 5054 S10BITS EQUALS LOW10 # 01777, USED IN ERASCHK
060821,000139: 43,3240 5062 SBNK03 EQUALS PRIO6 # 06000, USED IN ROPECHK
060822,000140: 43,3240 4364 -MAXADRS = HI5 # FOR ROPECHK
060823,000141: 43,3240 00060 SIXTY OCTAL 00060
060824,000142: 43,3241 60017 SUPRCON OCTAL 60017 # USED IN ROPECHK
060825,000143: 43,3242 17777 S13BITS OCTAL 17777
060826,000144: 43,3243 25252 CONC+S1 OCTAL 25252 # USED IN CYCLSHFT
060827,000145: 43,3244 52400 CONC+S2 OCTAL 52400 # USED IN CYCLSHFT
060828,000146: 43,3245 76777 ERASCON5 OCTAL 76777
060829,000147: 43,3246 5731 S-7 = OCT77770
060830,000148: 43,3246 6061 S-4 EQUALS NEG4
060831,000149: 43,3246 7714 S-3 EQUALS NEG3
060832,000150: 43,3246 7715 S-2 EQUALS NEG2
060833,000151: 43,3246 7716 S-1 EQUALS NEGONE
060834,000152: 43,3246 5020 S-ZERO EQUALS NEG0
060835,000153:
060836,000154: 43,3246 E3,1400 EBANK= LST1
060837,000155: 43,3246 01371 ADRS1 ADRES SKEEP1
060838,000156: 43,3247 03340 SELFADRS ADRES SELFCHK # SELFCHK RETURN ADDRESS. SHOULD BE PUT
060839,000157: # IN SELFRET WHEN GOING FROM SELFCHK TO
060840,000158: # SHOWSUM AND PUT IN SKEEP1 WHEN GOING
060841,000159: # FROM SHOWSUM TO SELF-CHECK.
060842,000160:
060843,000161: 43,3250 31360 PRERRORS CA ERESTORE # IS IT NECESSARY TO RESTORE ERASABLE
060844,000162: 43,3251 00006 EXTEND
060845,000163: 43,3252 13261 BZF ERRORS # NO
060846,000164: 43,3253 00006 EXTEND
060847,000165: 43,3254 31376 DCA SKEEP5
060848,000166: 43,3255 51377 INDEX SKEEP7
060849,000167: 43,3256 52001 DXCH 0000 # RESTORE THE TWO ERASABLE REGISTERS
060850,000168: 43,3257 35021 CA S+ZERO
060851,000169: 43,3260 55360 TS ERESTORE
060852,000170: 43,3261 00004 ERRORS INHINT
060853,000171: 43,3262 30002 CA Q
060854,000172: 43,3263 55357 TS SFAIL # SAVE Q FOR FAILURE LOCATION
060855,000173: 43,3264 55363 TS ALMCADR # FOR DISPLAY WITH BBANK AND ERCOUNT
060856,000174: 43,3265 25365 INCR ERCOUNT # KEEP TRACK OF NUMBER OF MALFUNCTIONS.
060857,000175: 43,3266 05652 TCALARM2 TC ALARM2
060858,000176: 43,3267 01102 OCT 01102 # SELF-CHECK MALFUNCTION INDICATOR
060859,000177: 43,3270 11362 CCS SMODE
060860,000178: 43,3271 35021 SIDLOOP CA S+ZERO
|
|
Page 1397 |
060862,000180: 43,3272 55362 TS SMODE
060863,000181: 43,3273 03340 TC SELFCHK # GO TO IDLE LOOP
060864,000182: 43,3274 01357 TC SFAIL # CONTINUE WITH SELF-CHECK
060865,000183:
060866,000184: 43,3275 10000 -1CHK CCS A
060867,000185: 43,3276 13250 TCF PRERRORS
060868,000186: 43,3277 13250 TCF PRERRORS
060869,000187: 43,3300 10000 CCS A
060870,000188: 43,3301 13250 TCF PRERRORS
060871,000189: 43,3302 00002 TC Q
060872,000190:
060873,000191: 43,3303 00006 SMODECHK EXTEND
060874,000192: 43,3304 23371 QXCH SKEEP1
060875,000193: 43,3305 03334 TC CHECKNJ # CHECK FOR NEW JOB
060876,000194: 43,3306 11362 CCS SMODE
060877,000195: 43,3307 03314 TC SOPTIONS
060878,000196: 43,3310 03305 TC SMODECHK +2 # TO BACKUP IDLE LOOP
060879,000197: 43,3311 03314 TC SOPTIONS
060880,000198: 43,3312 25366 INCR SCOUNT
060881,000199: 43,3313 01371 TC SKEEP1 # CONTINUE WITH SELF-CHECK
060882,000200:
060883,000201: 43,3314 65731 SOPTIONS AD S-7
060884,000202: 43,3315 00006 EXTEND
060885,000203: 43,3316 63320 BZMF +2 # FOR OPTIONS BELOW NINE.
060886,000204: 43,3317 03271 BNKOPTN TC SIDLOOP # ILLEGAL OPTION. GO TO IDLE LOOP.
060887,000205: 43,3320 25366 INCR SCOUNT # FOR OPTIONS BELOW NINE.
060888,000206: 43,3321 65023 AD S+7
060889,000207:
060890,000208: 43,3322 50000 INDEX A
060891,000209: 43,3323 03324 TC SOPTION1
060892,000210: 43,3324 01371 SOPTION1 TC SKEEP1 # WAS TC+TCF
060893,000211: 43,3325 01371 SOPTION2 TC SKEEP1 # WAS IN:OUT1
060894,000212: 43,3326 01371 SOPTION3 TC SKEEP1 # WAS COUNTCHK
060895,000213: 43,3327 03341 SOPTION4 TC ERASCHK
060896,000214: 43,3330 03522 SOPTION5 TC ROPECHK
060897,000215: 43,3331 01371 SOPTION6 TC SKEEP1
060898,000216: 43,3332 01371 SOPTION7 TC SKEEP1
060899,000217: 43,3333 01371 SOPTON10 TC SKEEP1 # CONTINUE WITH SELF-CHECK
060900,000218:
060901,000219: 43,3334 00006 CHECKNJ EXTEND
060902,000220: 43,3335 23361 QXCH SELFRET # SAVE RETURN ADDRESS WHILE TESTING NEWJOB
060903,000221: 43,3336 04701 TC POSTJUMP # TO SEE IF ANY JOBS HAVE BECOME ACTIVE.
060904,000222: 43,3337 03231 CADR ADVAN
060905,000223:
060906,000224: 43,3340 03303 SELFCHK TC SMODECHK # ** CHARLEY, COME IN HERE
060907,000225:
060908,000226: # SKEEP7 HOLDS LOWEST OF TWO ADDRESSES BEING CHECKED.
060909,000227: # SKEEP6 HOLDS B(X+1).
060910,000228: # SKEEP5 HOLDS B(X).
060911,000229: # SKEEP4 HOLDS C(EBANK) DURING ERASLOOP AND CHECKNJ.
|
|
Page 1398 |
060913,000231: # SKEEP3 HOLDS LAST ADDRESS BEING CHECKED (HIGHEST ADDRESS).
060914,000232: # SKEEP2 CONTROLS CHECKING OF NON-SWITCHABLE ERASABLE MEMORY WITH BANK NUMBERS IN EB.
060915,000233:
060916,000234: # ERASCHK TAKES APPROXMATELY 7 SECONDS
060917,000235:
060918,000236: 43,3341 35017 ERASCHK CA S+1
060919,000237: 43,3342 55372 TS SKEEP2
060920,000238: 43,3343 35021 0EBANK CA S+ZERO
060921,000239: 43,3344 54003 TS EBANK
060922,000240: 43,3345 33236 CA ERASCON3 # 01461
060923,000241: 43,3346 55377 TS SKEEP7 # STARTING ADDRESS
060924,000242: 43,3347 35054 CA S10BITS # 01777
060925,000243: 43,3350 55373 TS SKEEP3 # LAST ADDRESS CHECKED
060926,000244: 43,3351 03371 TC ERASLOOP
060927,000245:
060928,000246: 43,3352 35051 E134567B CA ERASCON6 # 01400
060929,000247: 43,3353 55377 TS SKEEP7 # STARTING ADDRESS
060930,000248: 43,3354 35054 CA S10BITS # 01777
060931,000249: 43,3355 55373 TS SKEEP3 # LAST ADDRESS CHECKED
060932,000250: 43,3356 03371 TC ERASLOOP
060933,000251:
060934,000252: 43,3357 35051 2EBANK CA ERASCON6 # 01400
060935,000253: 43,3360 55377 TS SKEEP7 # STARTING ADDRESS
060936,000254: 43,3361 33237 CA ERASCON4 # 01773
060937,000255: 43,3362 55373 TS SKEEP3 # LAST ADDRESS CHECKED
060938,000256: 43,3363 03371 TC ERASLOOP
060939,000257:
060940,000258: 43,3364 55372 NOEBANK TS SKEEP2 # +0
060941,000259: 43,3365 33234 CA ERASCON1 # 00061
060942,000260: 43,3366 55377 TS SKEEP7 # STARTING ADDRESS
060943,000261: 43,3367 33235 CA ERASCON2 # 01373
060944,000262: 43,3370 55373 TS SKEEP3 # LAST ADDRESS CHECKED
060945,000263:
060946,000264: 43,3371 00004 ERASLOOP INHINT
060947,000265: 43,3372 30003 CA EBANK # STORES C(EBANK)
060948,000266: 43,3373 55374 TS SKEEP4
060949,000267: 43,3374 00006 EXTEND
060950,000268: 43,3375 51377 NDX SKEEP7
060951,000269: 43,3376 30001 DCA 0000
060952,000270: 43,3377 53376 DXCH SKEEP5 # STORES C(X) AND C(X+1) IN SKEEP6 AND 5.
060953,000271: 43,3400 31377 CA SKEEP7
060954,000272: 43,3401 55360 TS ERESTORE # IF RESTART, RESTORE C(X) AND C(X+1)
060955,000273: 43,3402 54001 TS L
060956,000274: 43,3403 24001 INCR L
060957,000275: 43,3404 50000 NDX A
060958,000276: 43,3405 52001 DXCH 0000 # PUTS OWN ADDRESS IN X AND X +1
060959,000277: 43,3406 51377 NDX SKEEP7
060960,000278: 43,3407 40001 CS 0001 # CS X+1
060961,000279: 43,3410 51377 NDX SKEEP7
060962,000280: 43,3411 60000 AD 0000 # AD X
060963,000281: 43,3412 03275 TC -1CHK
060964,000282: 43,3413 31360 CA ERESTORE # HAS ERASABLE BEEN RESTORED
|
|
Page 1399 |
060966,000284: 43,3414 00006 EXTEND
060967,000285: 43,3415 13441 BZF ELOOPFIN # YES, EXIT ERASLOOP.
060968,000286: 43,3416 00006 EXTEND
060969,000287: 43,3417 51377 NDX SKEEP7
060970,000288: 43,3420 40001 DCS 0000 # COMPLEMENT OF ADDRESS OF X AND X+1
060971,000289: 43,3421 51377 NDX SKEEP7
060972,000290: 43,3422 52001 DXCH 0000 # PUT COMPLEMENT OF ADDRESS OF X AND X+1
060973,000291: 43,3423 51377 NDX SKEEP7
060974,000292: 43,3424 40000 CS 0000 # CS X
060975,000293: 43,3425 51377 NDX SKEEP7
060976,000294: 43,3426 60001 AD 0001 # AD X+1
060977,000295: 43,3427 03275 TC -1CHK
060978,000296: 43,3430 31360 CA ERESTORE # HAS ERASABLE BEEN RESTORED
060979,000297: 43,3431 00006 EXTEND
060980,000298: 43,3432 13441 BZF ELOOPFIN # YES, EXIT ERASLOOP.
060981,000299: 43,3433 00006 EXTEND
060982,000300: 43,3434 31376 DCA SKEEP5
060983,000301: 43,3435 51377 NDX SKEEP7
060984,000302: 43,3436 52001 DXCH 0000 # PUT B(X) AND B(X+1) BACK INTO X AND X+1
060985,000303: 43,3437 35021 CA S+ZERO
060986,000304: 43,3440 55360 TS ERESTORE # IF RESTART, DO NOT RESTORE C(X), C(X+1)
060987,000305: 43,3441 00003 ELOOPFIN RELINT
060988,000306: 43,3442 03334 TC CHECKNJ # CHECK FOR NEW JOB
060989,000307: 43,3443 31374 CA SKEEP4 # REPLACES B(EBANK)
060990,000308: 43,3444 54003 TS EBANK
060991,000309: 43,3445 25377 INCR SKEEP7
060992,000310: 43,3446 41377 CS SKEEP7
060993,000311: 43,3447 61373 AD SKEEP3
060994,000312: 43,3450 00006 EXTEND
060995,000313: 43,3451 13453 BZF +2
060996,000314: 43,3452 03371 TC ERASLOOP # GO TO NEXT ADDRESS IN SAME BANK
060997,000315: 43,3453 11372 CCS SKEEP2
060998,000316: 43,3454 03364 TC NOEBANK
060999,000317: 43,3455 25372 INCR SKEEP2 # PUT +1 IN SKEEP2.
061000,000318: 43,3456 30003 CA EBANK
061001,000319: 43,3457 65007 AD SBIT9
061002,000320: 43,3460 54003 TS EBANK
061003,000321: 43,3461 63245 AD ERASCON5 # 76777, CHECK FOR BANK E2
061004,000322: 43,3462 00006 EXTEND
061005,000323: 43,3463 13357 BZF 2EBANK
061006,000324: 43,3464 10003 CCS EBANK
061007,000325: 43,3465 03352 TC E134567B # GO TO EBANKS 1,3,4,5,6, AND 7
061008,000326: 43,3466 35051 CA ERASCON6 # END OF ERASCHK
061009,000327: 43,3467 54003 TS EBANK
061010,000328:
061011,000329: # CNTRCHK PERFORMS A CS OF ALL REGISTERS FROM OCT. 60 THROUGH OCT. 10.
061012,000330: # INCLUDED ARE ALL COUNTERS, T6-1, CYCLE AND SHIFT, AND ALL RUPT REGISTERS
061013,000331:
061014,000332: 43,3470 35033 CNTRCHK CA CNTRCON # 00050
061015,000333: 43,3471 55372 CNTRLOOP TS SKEEP2
061016,000334: 43,3472 65014 AD SBIT4 # +10 OCTAL
061017,000335: 43,3473 50000 INDEX A
|
|
Page 1400 |
061019,000337: 43,3474 40000 CS 0000
061020,000338: 43,3475 11372 CCS SKEEP2
061021,000339: 43,3476 03471 TC CNTRLOOP
061022,000340:
061023,000341: # CYCLSHFT CHECKS THE CYCLE AND SHIFT REGISTERS
061024,000342:
061025,000343: 43,3477 33243 CYCLSHFT CA CONC+S1 # 25252
061026,000344: 43,3500 54020 TS CYR # C(CYR) = 12525
061027,000345: 43,3501 54022 TS CYL # C(CYL) = 52524
061028,000346: 43,3502 54021 TS SR # C(SR) = 12525
061029,000347: 43,3503 54023 TS EDOP # C(EDOP) = 00125
061030,000348: 43,3504 60020 AD CYR # 37777 C(CYR) = 45252
061031,000349: 43,3505 60022 AD CYL # 00-12524 C(CYL) = 25251
061032,000350: 43,3506 60021 AD SR # 00-25251 C(SR) = 05252
061033,000351: 43,3507 60023 AD EDOP # 00-25376 C(EDOP) = +0
061034,000352: 43,3510 63244 AD CONC+S2 # C(CONC+S2) = 52400
061035,000353: 43,3511 03275 TC -1CHK
061036,000354: 43,3512 60020 AD CYR # 45252
061037,000355: 43,3513 60022 AD CYL # 72523
061038,000356: 43,3514 60021 AD SR # 77775
061039,000357: 43,3515 60023 AD EDOP # 77775
061040,000358: 43,3516 65017 AD S+1 # 77776
061041,000359: 43,3517 03275 TC -1CHK
061042,000360:
061043,000361: 43,3520 25367 INCR SCOUNT +1
061044,000362: 43,3521 03303 TC SMODECHK
061045,000363:
061046,000364: # SKEEP1 HOLDS SUM
061047,000365: # SKEEP2 HOLDS PRESENT CONTENTS OF ADDRESS IN ROPECHK AND SHOWSUM ROUTINES
061048,000366: # SKEEP2 HOLDS BANK NUMBER IN LOW ORDER BITS DURING SHOWSUM DISPLAY
061049,000367: # SKEEP3 HOLDS PRESENT ADDRESS (00000 TO 01777 IN COMMON FIXED BANKS)
061050,000368: # (04000 TO 07777 IN FXFX BANKS)
061051,000369: # SKEEP3 HOLDS BUGGER WORD DURING SHOWSUM DISPLAY
061052,000370: # SKEEP4 HOLDS BANK NUMBER AND SUPER BANK NUMBER
061053,000371: # SKEEP5 COUNTS 2 SUCCESSIVE TC SELF WORDS
061054,000372: # SKEEP6 CONTROLS ROPECHK OR SHOWSUM OPTION
061055,000373: # SKEEP7 CONTROLS WHEN ROUNTINE IS IN COMMON FIXED OR FIXED FIXED BANKS
061056,000374:
061057,000375: 43,3522 35020 ROPECHK CA S-ZERO # *
061058,000376: 43,3523 55376 TS SKEEP6 # * -0 FOR ROPECHK.
061059,000377: 43,3524 35021 STSHOSUM CA S+ZERO # * SHOULD BE ROPECHK
061060,000378:
061061,000379: 43,3525 55374 TS SKEEP4 # BANK NUMBER
061062,000380: 43,3526 35017 CA S+1
061063,000381: 43,3527 55377 COMMFX TS SKEEP7
061064,000382: 43,3530 35021 CA S+ZERO
061065,000383: 43,3531 55371 TS SKEEP1
061066,000384: 43,3532 55373 TS SKEEP3
061067,000385: 43,3533 35017 CA S+1
061068,000386: 43,3534 55375 TS SKEEP5 # COUNTS DOWN 2 TC SELF WORDS
061069,000387: 43,3535 31374 COMADRS CA SKEEP4
061070,000388: 43,3536 54001 TS L # TO SET SUPER BANK
|
|
Page 1401 |
061072,000390: 43,3537 74364 MASK HI5
061073,000391: 43,3540 61373 AD SKEEP3
061074,000392: 43,3541 04715 TC SUPDACAL # SUPER DATA CALL
061075,000393: 43,3542 03565 TC ADSUM
061076,000394: 43,3543 65005 AD SBIT11 # 02000
061077,000395: 43,3544 03576 TC ADRSCHK
061078,000396:
061079,000397: 43,3545 40000 FXFX CS A
061080,000398: 43,3546 55377 TS SKEEP7
061081,000399: 43,3547 00006 EXTEND
061082,000400: 43,3550 13553 BZF +3
061083,000401: 43,3551 35004 CA SBIT12 # 04000, STARTING ADDRESS OF BANK 02
061084,000402: 43,3552 03554 TC +2
061085,000403: 43,3553 35062 CA SBNK03 # 06000, STARTING ADDRESS OF BANK 03
061086,000404: 43,3554 55373 TS SKEEP3
061087,000405: 43,3555 35021 CA S+ZERO
061088,000406: 43,3556 55371 TS SKEEP1
061089,000407: 43,3557 35017 CA S+1
061090,000408: 43,3560 55375 TS SKEEP5 # COUNTS DOWN 2 TC SELF WORDS
061091,000409: 43,3561 51373 FXADRS INDEX SKEEP3
061092,000410: 43,3562 30000 CA 0000
061093,000411: 43,3563 03565 TC ADSUM
061094,000412: 43,3564 03576 TC ADRSCHK
061095,000413:
061096,000414: 43,3565 55372 ADSUM TS SKEEP2
061097,000415: 43,3566 61371 AD SKEEP1
061098,000416: 43,3567 55371 TS SKEEP1
061099,000417: 43,3570 35021 CAF S+ZERO
061100,000418: 43,3571 61371 AD SKEEP1
061101,000419: 43,3572 55371 TS SKEEP1
061102,000420: 43,3573 41372 CS SKEEP2
061103,000421: 43,3574 61373 AD SKEEP3
061104,000422: 43,3575 00002 TC Q
061105,000423:
061106,000424: 43,3576 22000 ADRSCHK LXCH A
061107,000425: 43,3577 31373 CA SKEEP3
061108,000426: 43,3600 75054 MASK LOW10 # RELATIVE ADDRESS
061109,000427: 43,3601 64364 AD -MAXADRS # SUBTRACT MAX RELATIVE ADDRESS = 1777.
061110,000428: 43,3602 00006 EXTEND
061111,000429: 43,3603 13672 BZF SOPTION # CHECKSUM FINISHED IF LAST ADDRESS.
061112,000430: 43,3604 11375 CCS SKEEP5 # IS CHECKSUM FINISHED
061113,000431: 43,3605 03610 TC +3 # NO
061114,000432: 43,3606 03610 TC +2 # NO
061115,000433: 43,3607 03672 TC SOPTION # GO TO ROPECHK SHOWSUM OPTION
061116,000434: 43,3610 10001 CCS L # -0 MEANS A TC SELF WORD.
061117,000435: 43,3611 03620 TC CONTINU
061118,000436: 43,3612 03620 TC CONTINU
061119,000437: 43,3613 03620 TC CONTINU
061120,000438: 43,3614 11375 CCS SKEEP5
061121,000439: 43,3615 03621 TC CONTINU +1
|
|
Page 1402 |
061123,000441: 43,3616 37716 CA S-1
061124,000442: 43,3617 03621 TC CONTINU +1 # AD IN THE BUGGER WORD
061125,000443: 43,3620 35017 CONTINU CA S+1 # MAKE SURE TWO CONSECUTIVE TC SELF WORDS
061126,000444: 43,3621 55375 TS SKEEP5
061127,000445: 43,3622 11376 CCS SKEEP6 # *
061128,000446: 43,3623 10067 CCS NEWJOB # * +1, SHOWSUM
061129,000447: 43,3624 05164 TC CHANG1 # *
061130,000448: 43,3625 03627 TC +2 # *
061131,000449: 43,3626 03334 TC CHECKNJ # -0 IN SKEEP6 FOR ROPECHK
061132,000450:
061133,000451: 43,3627 25373 ADRS+1 INCR SKEEP3
061134,000452: 43,3630 11377 CCS SKEEP7
061135,000453: 43,3631 03535 TC COMADRS
061136,000454: 43,3632 03535 TC COMADRS
061137,000455: 43,3633 03561 TC FXADRS
061138,000456: 43,3634 03561 TC FXADRS
061139,000457:
061140,000458: 43,3635 41374 NXTBNK CS SKEEP4
061141,000459: 43,3636 63725 AD LSTBNKCH # LAST BANK TO BE CHECKED
061142,000460: 43,3637 00006 EXTEND
061143,000461: 43,3640 13011 BZF ENDSUMS # END OF SUMMING OF BANKS.
061144,000462: 43,3641 31374 CA SKEEP4
061145,000463: 43,3642 65005 AD SBIT11
061146,000464: 43,3643 55374 TS SKEEP4 # 37 TO 40 INCRMTS SKEEP4 BY END RND CARRY
061147,000465: 43,3644 03650 TC CHKSUPR
061148,000466: 43,3645 35001 17TO20 CA SBIT15
061149,000467: 43,3646 27374 ADS SKEEP4 # SET FOR BANK 20
061150,000468: 43,3647 03664 TC GONXTBNK
061151,000469: 43,3650 74364 CHKSUPR MASK HI5
061152,000470: 43,3651 00006 EXTEND
061153,000471: 43,3652 13662 BZF NXTSUPR # INCREMENT SUPER BANK
061154,000472: 43,3653 63242 27TO30 AD S13BITS
061155,000473: 43,3654 00006 EXTEND
061156,000474: 43,3655 13657 BZF +2 # BANK SET FOR 30
061157,000475: 43,3656 03664 TC GONXTBNK
061158,000476: 43,3657 33240 CA SIXTY # FIRST SUPER BANK
061159,000477: 43,3660 27374 ADS SKEEP4
061160,000478: 43,3661 03664 TC GONXTBNK
061161,000479: 43,3662 63241 NXTSUPR AD SUPRCON # SET BNK 30 + INCR SUPR BNK AND CANCEL
061162,000480: 43,3663 27374 ADS SKEEP4 # ERC BIT OF THE 37 TO 40 ADVANCE.
061163,000481: 43,3664 11377 GONXTBNK CCS SKEEP7
061164,000482: 43,3665 03527 TC COMMFX
061165,000483: 43,3666 35017 CA S+1
061166,000484: 43,3667 03545 TC FXFX
061167,000485: 43,3670 35011 CA SBIT7 # HAS TO BE LARGER THAN NO OF FXSW BANKS.
061168,000486: 43,3671 03527 TC COMMFX
061169,000487:
061170,000488: 43,3672 31374 SOPTION CA SKEEP4
061171,000489: 43,3673 74364 MASK HI5 # = BANK BITS
061172,000490: 43,3674 04345 TC LEFT5
|
|
Page 1403 |
061174,000492: 43,3675 54001 TS L # BANK NUMBER BEFORE SUPER BANK
061175,000493: 43,3676 31374 CA SKEEP4
061176,000494: 43,3677 74373 MASK S8BITS # = SUPER BANK BITS
061177,000495: 43,3700 00006 EXTEND
061178,000496: 43,3701 13707 BZF SOPT # BEFORE SUPER BANK
061179,000497: 43,3702 54021 TS SR # SUPER BANK NECESSARY
061180,000498: 43,3703 30001 CA L
061181,000499: 43,3704 75023 MASK SEVEN
061182,000500: 43,3705 60021 AD SR
061183,000501: 43,3706 54001 TS L # BANK NUMBER WITH SUPER BANK
061184,000502: 43,3707 31376 SOPT CA SKEEP6 # *
061185,000503: 43,3710 00006 EXTEND # *
061186,000504: 43,3711 13713 BZF +2 # * ON -0 CONTINUE WITH ROPE CHECK.
061187,000505: 43,3712 02773 TC SDISPLAY # * ON +1 GO TO DISPLAY OF SUM.
061188,000506: 43,3713 11371 CCS SKEEP1 # FORCE SUM TO ABSOLUTE VALUE.
061189,000507: 43,3714 03716 TC +2
061190,000508: 43,3715 03717 TC +2
061191,000509: 43,3716 65017 AD S+1
061192,000510: 43,3717 55371 TS SKEEP1
061193,000511: 43,3720 40001 BNKCHK CS L # = - BANK NUMBER
061194,000512: 43,3721 61371 AD SKEEP1
061195,000513: 43,3722 67716 AD S-1
061196,000514: 43,3723 03275 TC -1CHK # CHECK SUM
061197,000515: 43,3724 03635 TC NXTBNK
061198,000516:
061199,000517: 43,3725 0067 EBANK= NEWJOB
061200,000518: 43,3725 66100 LSTBNKCH BBCON* # * CONSTANT, LAST BANK.
061201,000519: 43,3726 30,2000 SBANK= LOWSUPER
061202,000520:
061203,000521:
End of include-file AGC_BLOCK_TWO_SELF-CHECK.agc. Parent file is MAIN.agc