Source Code
|
These source-code files are part of a reconstructed copy of LUM69 Revision 2, the
flown Apollo 10 Lunar Module (LM) Apollo Guidance Computer (AGC) software.
The reconstruction began with source code of Luminary 69 revision 0 previously
transcribed from a digitized copy of that program. The code was then updated
by back-porting the R-2 lunar potential model from previously-transcribed source
code of Luminary 99. These required changes were described in the original
Luminary memos 75 and 78. The reconstructed code was verified by
matching memory-bank checksums to those listed in drawing 2021152G. Note that
page numbers in the reconstructed code match those on the Luminary 069 printout,
although the added code would likely have changed page numbers for a real LUM69
Revision 2 listing.
Comments from the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". Report any errors
noted by creating an
issue report at the Virtual AGC
project's GitHub repository.
|
054916,000002: ## Copyright: Public domain.
054917,000003: ## Filename: AGC_BLOCK_TWO_SELF-CHECK.agc
054918,000004: ## Purpose: A section of LUM69 revision 2.
054919,000005: ## It is part of the reconstructed source code for the flown
054920,000006: ## version of the flight software for the Lunar Module's (LM)
054921,000007: ## Apollo Guidance Computer (AGC) for Apollo 10. The code has
054922,000008: ## been recreated from a copy of Luminary revsion 069, using
054923,000009: ## changes present in Luminary 099 which were described in
054924,000010: ## Luminary memos 75 and 78. The code has been adapted such
054925,000011: ## that the resulting bugger words exactly match those specified
054926,000012: ## for LUM69 revision 2 in NASA drawing 2021152B, which gives
054927,000013: ## relatively high confidence that the reconstruction is correct.
054928,000014: ## Reference: pp. 1278-1287
054929,000015: ## Assembler: yaYUL
054930,000016: ## Contact: Ron Burkey <info@sandroid.org>.
054931,000017: ## Website: www.ibiblio.org/apollo/index.html
054932,000018: ## Mod history: 2019-07-27 MAS Created from Luminary 69.
054933,000019:
|
|
Page 1278
|
054935,000021: # PROGRAM DESCRIPTION DATE 20 DECEMBER 1967
054936,000022: # PROGRAM NAME - SELF-CHECK LOG SECTION AGC BLOCK TWO SELF-CHECK
054937,000023: # MOD NO - 1 ASSEMBLY SUBROUTINE UTILITYM REV 25
054938,000024: # MOD BY - GAUNTT
054939,000025:
054940,000026: # FUNCTIONAL DESCRIPTION
054941,000027: # PROGRAM HAS TWO MAIN PARTS. THE FIRST IS SELF-CHECK WHICH RUNS AS A ZERO PRIORITY JOB WITH NO CORE SET, AS
054942,000028: # PART OF THE BACK-UP IDLE LOOP. THE SECOND IS SHOW-BANKSUM WHICH RUNS AS A REGULAR EXECUTIVE JOB WITH ITS OWN
054943,000029: # STARTING VERB.
054944,000030: # THE PURPOSE OF SELF-CHECK IS TO CHECK OUT VARIOUS PARTS OF THE COMPUTER AS OUTLINED BELOW IN THE OPTIONS.
054945,000031: # THE PURPOSE OF SHOW-BANKSUM IS TO DISPLAY THE SUM OF EACH BANK, ONE AT A TIME.
054946,000032: # IN ALL THERE ARE 7 POSSIBLE OPTIONS IN THIS BLOCK II VERSION OF SELF-CHECK. MORE DETAIL DESCRIPTION MAY BE
054947,000033: # FOUND IN E-2065 BLOCK II AGC SELF-CHECK AND SHOW BANKSUM BY EDWIN D. SMALLY DECEMBER 1966, AND ADDENDA 2 AND 3.
054948,000034:
054949,000035: # THE DIFFERENT OPTIONS ARE CONTROLLED BY PUTTING DIFFERENT NUMBERS IN THE SMODE REGISTER (NOUN 27). BELOW IS
054950,000036: # A DESCRIPTION OF WHAT PARTS OF THE COMPUTER THAT ARE CHECKED BY THE OPTIONS, AND THE CORRESPONDING NUMBER, IN
054951,000037: # OCTAL, TO LOAD INTO SMODE.
054952,000038: # +-4 ERASABLE MEMORY
054953,000039: # +-5 FIXED MEMORY
054954,000040: # +-1,2,3,6,7,10 EVERYTHING IN OPTIONS 4 AND 5.
054955,000041: # -0 SAME AS +-10 UNTIL AN ERROR IS DETECTED.
054956,000042: # +0 NO CHECK, PUTS COMPUTER INTO THE BACKUP IDLE LOOP.
054957,000043:
054958,000044: # WARNINGS
054959,000045: # USE OF E MEMORY RESERVED FOR SELF-CHECK (EVEN IN IDLE LOOP) AS TEMP STORAGE BY OTHER PROGRAMS IS DANGEROUS.
054960,000046: # SMODE SET GREATER THAN OCT 10 PUTS COMPUTER INTO BACKUP IDLE LOOP.
054961,000047:
054962,000048: # CALLING SEQUENCE
054963,000049: # TO CALL SELF-CHECK KEY IN
054964,000050: # V 21 N 27 E OPTION NUMBER E
054965,000051: # TO CALL SHOW-BANKSUM KEY IN
054966,000052: # V 91 E DISPLAYS FIRST BANK
054967,000053: # V 33 E PROCEED, DISPLAYS NEXT BANK
054968,000054:
054969,000055: # EXIT MODES, NORMAL AND ALARM
054970,000056: # SELF-CHECK NORMALLY CONTINUES INDEFINITELY UNLESS THERE IS AN ERROR DETECTED. IF SO + OPTION NUMBERS PUT
054971,000057: # COMPUTER INTO BACKUP IDLE LOOP, - OPTION NUMBERS RESTART THE OPTION.
054972,000058: # THE -0 OPTION PROCEEDS FROM THE LINE FOLLOWING THE LINE WHERE THE ERROR WAS DETECTED.
054973,000059: # SHOW-BANKSUM PROCEEDS UNTIL A TERMINATE IS KEYED IN (V 34 E). THE COMPUTER IS PUT INTO THE BACKUP IDLE LOOP
054974,000060:
054975,000061: # OUTPUT
|
|
Page 1279
|
054977,000063: # SELF-CHECK UPON DETECTING AN ERROR LOADS THE SELF-CHECK ALARM CONSTANT (01102) INTO THE FAILREG SET AND
054978,000064: # TURNS ON THE ALARM LIGHT. THE OPERATOR MAY THEN DISPLAY THE THREE FAILREGS BY KEYING IN V 05 N 09 E. FOR FURTHER
054979,000065: # 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,
054980,000066: # IN R2 THE BBCON OF SELF-CHECK, AND IN R3 THE TOTAL NUMBER OF ERRORS DETECTED BY SELF-CHECK SINCE THE LAST MAN
054981,000067: # INITIATED FRESH START (SLAP1).
054982,000068:
054983,000069: # SHOW-BANKSUM STARTING WITH BANK 0 DISPLAYS IN R1 THE BANK SUM (A +-NUMBER EQUAL TO THE BANK NUMBER), IN R2
054984,000070: # THE BANK NUMBER, AND IN R3 THE BUGGER WORD.
054985,000071:
054986,000072: # ERASABLE INITIALIZATION REQUIRED
054987,000073: # ACCOMPLISHED BY FRESH START
054988,000074: # SMODE SET TO +0
054989,000075:
054990,000076: # DEBRIS
054991,000077: # ALL EXITS FROM THE CHECK OF ERASABLE (ERASCHK) RESTORE ORIGINAL CONTENTS TO REGISTERS UNDER CHECK.
054992,000078: # EXCEPTION IS A RESTART. RESTART THAT OCCURS DURING ERASCHK RESTORES ERASABLE, UNLESS THERE IS EVIDENCE TO DOUBT
054993,000079: # E MEMORY, IN WHICH CASE PROGRAM THEN DOES A FRESH START (DOFSTART).
054994,000080:
054995,000081: 25,3671 BANK 25
054996,000082: 43,2000 SETLOC SELFCHEC
054997,000083: 43,2000 BANK
054998,000084:
054999,000085: 43,3240 COUNT* $$/SELF
055000,000086: 43,3240 4753 SBIT1 EQUALS BIT1
055001,000087: 43,3240 4752 SBIT2 EQUALS BIT2
055002,000088: 43,3240 4751 SBIT3 EQUALS BIT3
055003,000089: 43,3240 4750 SBIT4 EQUALS BIT4
055004,000090: 43,3240 4747 SBIT5 EQUALS BIT5
055005,000091: 43,3240 4746 SBIT6 EQUALS BIT6
055006,000092: 43,3240 4745 SBIT7 EQUALS BIT7
055007,000093: 43,3240 4744 SBIT8 EQUALS BIT8
055008,000094: 43,3240 4743 SBIT9 EQUALS BIT9
055009,000095: 43,3240 4742 SBIT10 EQUALS BIT10
055010,000096: 43,3240 4741 SBIT11 EQUALS BIT11
055011,000097: 43,3240 4740 SBIT12 EQUALS BIT12
055012,000098: 43,3240 4737 SBIT13 EQUALS BIT13
055013,000099: 43,3240 4736 SBIT14 EQUALS BIT14
055014,000100: 43,3240 4735 SBIT15 EQUALS BIT15
055015,000101:
055016,000102: 43,3240 4755 S+ZERO EQUALS ZERO
055017,000103: 43,3240 4753 S+1 EQUALS BIT1
055018,000104: 43,3240 4752 S+2 EQUALS BIT2
055019,000105: 43,3240 6244 S+3 EQUALS THREE
055020,000106: 43,3240 4751 S+4 EQUALS FOUR
055021,000107: 43,3240 4756 S+5 EQUALS FIVE
055022,000108: 43,3240 6241 S+6 EQUALS SIX
|
|
Page 1280
|
055024,000110: 43,3240 4757 S+7 EQUALS SEVEN
055025,000111: 43,3240 4357 S8BITS EQUALS LOW8 # 00377
055026,000112: 43,3240 4771 CNTRCON = OCT50 # USED IN CNTRCHK
055027,000113: 43,3240 00061 ERASCON1 OCTAL 00061 # USED IN ERASCHK
055028,000114: 43,3241 01373 ERASCON2 OCTAL 01373 # USED IN ERASCHK
055029,000115: 43,3242 5007 ERASCON6 = OCT1400 # USED IN ERASCHK
055030,000116: 43,3242 01461 ERASCON3 OCTAL 01461 # USED IN ERASCHK
055031,000117: 43,3243 01773 ERASCON4 OCTAL 01773 # USED IN ERASCHK
055032,000118: 43,3244 5012 S10BITS EQUALS LOW10 # 01777, USED IN ERASCHK
055033,000119: 43,3244 5020 SBNK03 EQUALS PRIO6 # 06000, USED IN ROPECHK
055034,000120: 43,3244 4350 -MAXADRS = HI5 # FOR ROPECHK
055035,000121: 43,3244 00060 SIXTY OCTAL 00060
055036,000122: 43,3245 60017 SUPRCON OCTAL 60017 # USED IN ROPECHK
055037,000123: 43,3246 17777 S13BITS OCTAL 17777
055038,000124: 43,3247 25252 CONC+S1 OCTAL 25252 # USED IN CYCLSHFT
055039,000125: 43,3250 52400 CONC+S2 OCTAL 52400 # USED IN CYCLSHFT
055040,000126: 43,3251 76777 ERASCON5 OCTAL 76777
055041,000127: 43,3252 5660 S-7 = OCT77770
055042,000128: 43,3252 6111 S-4 EQUALS NEG4
055043,000129: 43,3252 7744 S-3 EQUALS NEG3
055044,000130: 43,3252 7745 S-2 EQUALS NEG2
055045,000131: 43,3252 7746 S-1 EQUALS NEGONE
055046,000132: 43,3252 4754 S-ZERO EQUALS NEG0
055047,000133:
055048,000134: 43,3252 E3,1400 EBANK= LST1
055049,000135: 43,3252 01371 ADRS1 ADRES SKEEP1
055050,000136: 43,3253 03344 SELFADRS ADRES SELFCHK # SELFCHK RETURN ADDRESS. SHOULD BE PUT
055051,000137: # IN SELFRET WHEN GOING FROM SELFCHK TO
055052,000138: # SHOWSUM AND PUT IN SKEEP1 WHEN GOING
055053,000139: # FROM SHOWSUM TO SELF-CHECK.
055054,000140:
055055,000141: 43,3254 31360 PRERRORS CA ERESTORE # IS IT NECESSARY TO RESTORE ERASABLE
055056,000142: 43,3255 00006 EXTEND
055057,000143: 43,3256 13265 BZF ERRORS # NO
055058,000144: 43,3257 00006 EXTEND
055059,000145: 43,3260 31376 DCA SKEEP5
055060,000146: 43,3261 51377 INDEX SKEEP7
055061,000147: 43,3262 52001 DXCH 0000 # RESTORE THE TWO ERASABLE REGISTERS
055062,000148: 43,3263 34755 CA S+ZERO
055063,000149: 43,3264 55360 TS ERESTORE
055064,000150: 43,3265 00004 ERRORS INHINT
055065,000151: 43,3266 30002 CA Q
055066,000152: 43,3267 55357 TS SFAIL # SAVE Q FOR FAILURE LOCATION
055067,000153: 43,3270 55363 TS ALMCADR # FOR DISPLAY WITH BBANK AND ERCOUNT
055068,000154: 43,3271 25365 INCR ERCOUNT # KEEP TRACK OF NUMBER OF MALFUNCTIONS.
055069,000155: 43,3272 05571 TCALARM2 TC ALARM2
055070,000156: 43,3273 01102 OCT 01102 # SELF-CHECK MALFUNCTION INDICATOR
055071,000157: 43,3274 11362 CCS SMODE
055072,000158: 43,3275 34755 SIDLOOP CA S+ZERO
055073,000159: 43,3276 55362 TS SMODE
|
|
Page 1281
|
055075,000161: 43,3277 03344 TC SELFCHK # GO TO IDLE LOOP
055076,000162: 43,3300 01357 TC SFAIL # CONTINUE WITH SELF-CHECK
055077,000163:
055078,000164: 43,3301 10000 -1CHK CCS A
055079,000165: 43,3302 13254 TCF PRERRORS
055080,000166: 43,3303 13254 TCF PRERRORS
055081,000167: 43,3304 10000 CCS A
055082,000168: 43,3305 13254 TCF PRERRORS
055083,000169: 43,3306 00002 TC Q
055084,000170:
055085,000171: 43,3307 00006 SMODECHK EXTEND
055086,000172: 43,3310 23371 QXCH SKEEP1
055087,000173: 43,3311 03340 TC CHECKNJ # CHECK FOR NEW JOB
055088,000174: 43,3312 11362 CCS SMODE
055089,000175: 43,3313 03320 TC SOPTIONS
055090,000176: 43,3314 03311 TC SMODECHK +2 # TO BACKUP IDLE LOOP
055091,000177: 43,3315 03320 TC SOPTIONS
055092,000178: 43,3316 25366 INCR SCOUNT
055093,000179: 43,3317 01371 TC SKEEP1 # CONTINUE WITH SELF-CHECK
055094,000180:
055095,000181: 43,3320 65660 SOPTIONS AD S-7
055096,000182: 43,3321 00006 EXTEND
055097,000183: 43,3322 63324 BZMF +2 # FOR OPTIONS BELOW NINE.
055098,000184: 43,3323 03275 BNKOPTN TC SIDLOOP # ILLEGAL OPTION. GO TO IDLE LOOP.
055099,000185: 43,3324 25366 INCR SCOUNT # FOR OPTIONS BELOW NINE.
055100,000186: 43,3325 64757 AD S+7
055101,000187:
055102,000188: 43,3326 50000 INDEX A
055103,000189: 43,3327 03330 TC SOPTION1
055104,000190: 43,3330 01371 SOPTION1 TC SKEEP1 # WAS TC+TCF
055105,000191: 43,3331 01371 SOPTION2 TC SKEEP1 # WAS IN:OUT1
055106,000192: 43,3332 01371 SOPTION3 TC SKEEP1 # WAS COUNTCHK
055107,000193: 43,3333 03345 SOPTION4 TC ERASCHK
055108,000194: 43,3334 03526 SOPTION5 TC ROPECHK
055109,000195: 43,3335 01371 SOPTION6 TC SKEEP1
055110,000196: 43,3336 01371 SOPTION7 TC SKEEP1
055111,000197: 43,3337 01371 SOPTON10 TC SKEEP1 # CONTINUE WITH SELF-CHECK
055112,000198:
055113,000199: 43,3340 00006 CHECKNJ EXTEND
055114,000200: 43,3341 23361 QXCH SELFRET # SAVE RETURN ADDRESS WHILE TESTING NEWJOB
055115,000201: 43,3342 04635 TC POSTJUMP # TO SEE IF ANY JOBS HAVE BECOME ACTIVE.
055116,000202: 43,3343 03211 CADR ADVAN
055117,000203:
055118,000204: 43,3344 03307 SELFCHK TC SMODECHK # ** CHARLEY, COME IN HERE
055119,000205:
055120,000206: # SKEEP7 HOLDS LOWEST OF TWO ADDRESSES BEING CHECKED.
055121,000207: # SKEEP6 HOLDS B(X+1).
055122,000208: # SKEEP5 HOLDS B(X).
055123,000209: # SKEEP4 HOLDS C(EBANK) DURING ERASLOOP AND CHECKNJ.
055124,000210: # SKEEP3 HOLDS LAST ADDRESS BEING CHECKED (HIGHEST ADDRESS).
|
|
Page 1282
|
055126,000212: # SKEEP2 CONTROLS CHECKING OF NON-SWITCHABLE ERASABLE MEMORY WITH BANK NUMBERS IN EB.
055127,000213: # ERASCHK TAKES APPROXMATELY 7 SECONDS
055128,000214:
055129,000215: 43,3345 34753 ERASCHK CA S+1
055130,000216: 43,3346 55372 TS SKEEP2
055131,000217: 43,3347 34755 0EBANK CA S+ZERO
055132,000218: 43,3350 54003 TS EBANK
055133,000219: 43,3351 33242 CA ERASCON3 # 01461
055134,000220: 43,3352 55377 TS SKEEP7 # STARTING ADDRESS
055135,000221: 43,3353 35012 CA S10BITS # 01777
055136,000222: 43,3354 55373 TS SKEEP3 # LAST ADDRESS CHECKED
055137,000223: 43,3355 03375 TC ERASLOOP
055138,000224:
055139,000225: 43,3356 35007 E134567B CA ERASCON6 # 01400
055140,000226: 43,3357 55377 TS SKEEP7 # STARTING ADDRESS
055141,000227: 43,3360 35012 CA S10BITS # 01777
055142,000228: 43,3361 55373 TS SKEEP3 # LAST ADDRESS CHECKED
055143,000229: 43,3362 03375 TC ERASLOOP
055144,000230:
055145,000231: 43,3363 35007 2EBANK CA ERASCON6 # 01400
055146,000232: 43,3364 55377 TS SKEEP7 # STARTING ADDRESS
055147,000233: 43,3365 33243 CA ERASCON4 # 01773
055148,000234: 43,3366 55373 TS SKEEP3 # LAST ADDRESS CHECKED
055149,000235: 43,3367 03375 TC ERASLOOP
055150,000236:
055151,000237: 43,3370 55372 NOEBANK TS SKEEP2 # +0
055152,000238: 43,3371 33240 CA ERASCON1 # 00061
055153,000239: 43,3372 55377 TS SKEEP7 # STARTING ADDRESS
055154,000240: 43,3373 33241 CA ERASCON2 # 01373
055155,000241: 43,3374 55373 TS SKEEP3 # LAST ADDRESS CHECKED
055156,000242:
055157,000243: 43,3375 00004 ERASLOOP INHINT
055158,000244: 43,3376 30003 CA EBANK # STORES C(EBANK)
055159,000245: 43,3377 55374 TS SKEEP4
055160,000246: 43,3400 00006 EXTEND
055161,000247: 43,3401 51377 NDX SKEEP7
055162,000248: 43,3402 30001 DCA 0000
055163,000249: 43,3403 53376 DXCH SKEEP5 # STORES C(X) AND C(X+1) IN SKEEP6 AND 5.
055164,000250: 43,3404 31377 CA SKEEP7
055165,000251: 43,3405 55360 TS ERESTORE # IF RESTART, RESTORE C(X) AND C(X+1)
055166,000252: 43,3406 54001 TS L
055167,000253: 43,3407 24001 INCR L
055168,000254: 43,3410 50000 NDX A
055169,000255: 43,3411 52001 DXCH 0000 # PUTS OWN ADDRESS IN X AND X +1
055170,000256: 43,3412 51377 NDX SKEEP7
055171,000257: 43,3413 40001 CS 0001 # CS X+1
055172,000258: 43,3414 51377 NDX SKEEP7
055173,000259: 43,3415 60000 AD 0000 # AD X
055174,000260: 43,3416 03301 TC -1CHK
055175,000261: 43,3417 31360 CA ERESTORE # HAS ERASABLE BEEN RESTORED
055176,000262: 43,3420 00006 EXTEND
|
|
Page 1283
|
055178,000264: 43,3421 13445 BZF ELOOPFIN # YES, EXIT ERASLOOP.
055179,000265: 43,3422 00006 EXTEND
055180,000266: 43,3423 51377 NDX SKEEP7
055181,000267: 43,3424 40001 DCS 0000 # COMPLEMENT OF ADDRESS OF X AND X+1
055182,000268: 43,3425 51377 NDX SKEEP7
055183,000269: 43,3426 52001 DXCH 0000 # PUT COMPLEMENT OF ADDRESS OF X AND X+1
055184,000270: 43,3427 51377 NDX SKEEP7
055185,000271: 43,3430 40000 CS 0000 # CS X
055186,000272: 43,3431 51377 NDX SKEEP7
055187,000273: 43,3432 60001 AD 0001 # AD X+1
055188,000274: 43,3433 03301 TC -1CHK
055189,000275: 43,3434 31360 CA ERESTORE # HAS ERASABLE BEEN RESTORED
055190,000276: 43,3435 00006 EXTEND
055191,000277: 43,3436 13445 BZF ELOOPFIN # YES, EXIT ERASLOOP.
055192,000278: 43,3437 00006 EXTEND
055193,000279: 43,3440 31376 DCA SKEEP5
055194,000280: 43,3441 51377 NDX SKEEP7
055195,000281: 43,3442 52001 DXCH 0000 # PUT B(X) AND B(X+1) BACK INTO X AND X+1
055196,000282: 43,3443 34755 CA S+ZERO
055197,000283: 43,3444 55360 TS ERESTORE # IF RESTART, DO NOT RESTORE C(X), C(X+1)
055198,000284: 43,3445 00003 ELOOPFIN RELINT
055199,000285: 43,3446 03340 TC CHECKNJ # CHECK FOR NEW JOB
055200,000286: 43,3447 31374 CA SKEEP4 # REPLACES B(EBANK)
055201,000287: 43,3450 54003 TS EBANK
055202,000288: 43,3451 25377 INCR SKEEP7
055203,000289: 43,3452 41377 CS SKEEP7
055204,000290: 43,3453 61373 AD SKEEP3
055205,000291: 43,3454 00006 EXTEND
055206,000292: 43,3455 13457 BZF +2
055207,000293: 43,3456 03375 TC ERASLOOP # GO TO NEXT ADDRESS IN SAME BANK
055208,000294: 43,3457 11372 CCS SKEEP2
055209,000295: 43,3460 03370 TC NOEBANK
055210,000296: 43,3461 25372 INCR SKEEP2 # PUT +1 IN SKEEP2.
055211,000297: 43,3462 30003 CA EBANK
055212,000298: 43,3463 64743 AD SBIT9
055213,000299: 43,3464 54003 TS EBANK
055214,000300: 43,3465 63251 AD ERASCON5 # 76777, CHECK FOR BANK E2
055215,000301: 43,3466 00006 EXTEND
055216,000302: 43,3467 13363 BZF 2EBANK
055217,000303: 43,3470 10003 CCS EBANK
055218,000304: 43,3471 03356 TC E134567B # GO TO EBANKS 1,3,4,5,6, AND 7
055219,000305: 43,3472 35007 CA ERASCON6 # END OF ERASCHK
055220,000306: 43,3473 54003 TS EBANK
055221,000307:
055222,000308: # CNTRCHK PERFORMS A CS OF ALL REGISTERS FROM OCT. 60 THROUGH OCT. 10.
055223,000309: # INCLUDED ARE ALL COUNTERS, T6-1, CYCLE AND SHIFT, AND ALL RUPT REGISTERS
055224,000310:
055225,000311: 43,3474 34771 CNTRCHK CA CNTRCON # 00050
055226,000312: 43,3475 55372 CNTRLOOP TS SKEEP2
055227,000313: 43,3476 64750 AD SBIT4 # +10 OCTAL
055228,000314: 43,3477 50000 INDEX A
055229,000315: 43,3500 40000 CS 0000
|
|
Page 1284
|
055231,000317: 43,3501 11372 CCS SKEEP2
055232,000318: 43,3502 03475 TC CNTRLOOP
055233,000319:
055234,000320: # CYCLSHFT CHECKS THE CYCLE AND SHIFT REGISTERS
055235,000321:
055236,000322: 43,3503 33247 CYCLSHFT CA CONC+S1 # 25252
055237,000323: 43,3504 54020 TS CYR # C(CYR) = 12525
055238,000324: 43,3505 54022 TS CYL # C(CYL) = 52524
055239,000325: 43,3506 54021 TS SR # C(SR) = 12525
055240,000326: 43,3507 54023 TS EDOP # C(EDOP) = 00125
055241,000327: 43,3510 60020 AD CYR # 37777 C(CYR) = 45252
055242,000328: 43,3511 60022 AD CYL # 00-12524 C(CYL) = 25251
055243,000329: 43,3512 60021 AD SR # 00-25251 C(SR) = 05252
055244,000330: 43,3513 60023 AD EDOP # 00-25376 C(EDOP) = +0
055245,000331: 43,3514 63250 AD CONC+S2 # C(CONC+S2) = 52400
055246,000332: 43,3515 03301 TC -1CHK
055247,000333: 43,3516 60020 AD CYR # 45252
055248,000334: 43,3517 60022 AD CYL # 72523
055249,000335: 43,3520 60021 AD SR # 77775
055250,000336: 43,3521 60023 AD EDOP # 77775
055251,000337: 43,3522 64753 AD S+1 # 77776
055252,000338: 43,3523 03301 TC -1CHK
055253,000339:
055254,000340: 43,3524 25367 INCR SCOUNT +1
055255,000341: 43,3525 03307 TC SMODECHK
055256,000342:
055257,000343: # SKEEP1 HOLDS SUM
055258,000344: # SKEEP2 HOLDS PRESENT CONTENTS OF ADDRESS IN ROPECHK AND SHOWSUM ROUTINES
055259,000345: # SKEEP2 HOLDS BANK NUMBER IN LOW ORDER BITS DURING SHOWSUM DISPLAY
055260,000346: # SKEEP3 HOLDS PRESENT ADDRESS (00000 TO 01777 IN COMMON FIXED BANKS)
055261,000347: # (04000 TO 07777 IN FXFX BANKS)
055262,000348: # SKEEP3 HOLDS BUGGER WORD DURING SHOWSUM DISPLAY
055263,000349: # SKEEP4 HOLDS BANK NUMBER AND SUPER BANK NUMBER
055264,000350: # SKEEP5 COUNTS 2 SUCCESSIVE TC SELF WORDS
055265,000351: # SKEEP6 CONTROLS ROPECHK OR SHOWSUM OPTION
055266,000352: # SKEEP7 CONTROLS WHEN ROUNTINE IS IN COMMON FIXED OR FIXED FIXED BANKS
055267,000353:
055268,000354: 43,3526 34754 ROPECHK CA S-ZERO # *
055269,000355: 43,3527 55376 TS SKEEP6 # * -0 FOR ROPECHK.
055270,000356: 43,3530 34755 STSHOSUM CA S+ZERO # * SHOULD BE ROPECHK
055271,000357:
055272,000358: 43,3531 55374 TS SKEEP4 # BANK NUMBER
055273,000359: 43,3532 34753 CA S+1
055274,000360: 43,3533 55377 COMMFX TS SKEEP7
055275,000361: 43,3534 34755 CA S+ZERO
055276,000362: 43,3535 55371 TS SKEEP1
055277,000363: 43,3536 55373 TS SKEEP3
055278,000364: 43,3537 34753 CA S+1
055279,000365: 43,3540 55375 TS SKEEP5 # COUNTS DOWN 2 TC SELF WORDS
055280,000366: 43,3541 31374 COMADRS CA SKEEP4
055281,000367: 43,3542 54001 TS L # TO SET SUPER BANK
055282,000368: 43,3543 74350 MASK HI5
|
|
Page 1285
|
055284,000370: 43,3544 61373 AD SKEEP3
055285,000371: 43,3545 04651 TC SUPDACAL # SUPER DATA CALL
055286,000372: 43,3546 03571 TC ADSUM
055287,000373: 43,3547 64741 AD SBIT11 # 02000
055288,000374: 43,3550 03602 TC ADRSCHK
055289,000375:
055290,000376: 43,3551 40000 FXFX CS A
055291,000377: 43,3552 55377 TS SKEEP7
055292,000378: 43,3553 00006 EXTEND
055293,000379: 43,3554 13557 BZF +3
055294,000380: 43,3555 34740 CA SBIT12 # 04000, STARTING ADDRESS OF BANK 02
055295,000381: 43,3556 03560 TC +2
055296,000382: 43,3557 35020 CA SBNK03 # 06000, STARTING ADDRESS OF BANK 03
055297,000383: 43,3560 55373 TS SKEEP3
055298,000384: 43,3561 34755 CA S+ZERO
055299,000385: 43,3562 55371 TS SKEEP1
055300,000386: 43,3563 34753 CA S+1
055301,000387: 43,3564 55375 TS SKEEP5 # COUNTS DOWN 2 TC SELF WORDS
055302,000388: 43,3565 51373 FXADRS INDEX SKEEP3
055303,000389: 43,3566 30000 CA 0000
055304,000390: 43,3567 03571 TC ADSUM
055305,000391: 43,3570 03602 TC ADRSCHK
055306,000392:
055307,000393: 43,3571 55372 ADSUM TS SKEEP2
055308,000394: 43,3572 61371 AD SKEEP1
055309,000395: 43,3573 55371 TS SKEEP1
055310,000396: 43,3574 34755 CAF S+ZERO
055311,000397: 43,3575 61371 AD SKEEP1
055312,000398: 43,3576 55371 TS SKEEP1
055313,000399: 43,3577 41372 CS SKEEP2
055314,000400: 43,3600 61373 AD SKEEP3
055315,000401: 43,3601 00002 TC Q
055316,000402:
055317,000403: 43,3602 22000 ADRSCHK LXCH A
055318,000404: 43,3603 31373 CA SKEEP3
055319,000405: 43,3604 75012 MASK LOW10 # RELATIVE ADDRESS
055320,000406: 43,3605 64350 AD -MAXADRS # SUBTRACT MAX RELATIVE ADDRESS = 1777.
055321,000407: 43,3606 00006 EXTEND
055322,000408: 43,3607 13676 BZF SOPTION # CHECKSUM FINISHED IF LAST ADDRESS.
055323,000409: 43,3610 11375 CCS SKEEP5 # IS CHECKSUM FINISHED
055324,000410: 43,3611 03614 TC +3 # NO
055325,000411: 43,3612 03614 TC +2 # NO
055326,000412: 43,3613 03676 TC SOPTION # GO TO ROPECHK SHOWSUM OPTION
055327,000413: 43,3614 10001 CCS L # -0 MEANS A TC SELF WORD.
055328,000414: 43,3615 03624 TC CONTINU
055329,000415: 43,3616 03624 TC CONTINU
055330,000416: 43,3617 03624 TC CONTINU
055331,000417: 43,3620 11375 CCS SKEEP5
055332,000418: 43,3621 03625 TC CONTINU +1
055333,000419: 43,3622 37746 CA S-1
|
|
Page 1286
|
055335,000421: 43,3623 03625 TC CONTINU +1 # AD IN THE BUGGER WORD
055336,000422: 43,3624 34753 CONTINU CA S+1 # MAKE SURE TWO CONSECUTIVE TC SELF WORDS
055337,000423: 43,3625 55375 TS SKEEP5
055338,000424: 43,3626 11376 CCS SKEEP6 # *
055339,000425: 43,3627 10067 CCS NEWJOB # * +1, SHOWSUM
055340,000426: 43,3630 05122 TC CHANG1 # *
055341,000427: 43,3631 03633 TC +2 # *
055342,000428: 43,3632 03340 TC CHECKNJ # -0 IN SKEEP6 FOR ROPECHK
055343,000429:
055344,000430: 43,3633 25373 ADRS+1 INCR SKEEP3
055345,000431: 43,3634 11377 CCS SKEEP7
055346,000432: 43,3635 03541 TC COMADRS
055347,000433: 43,3636 03541 TC COMADRS
055348,000434: 43,3637 03565 TC FXADRS
055349,000435: 43,3640 03565 TC FXADRS
055350,000436:
055351,000437: 43,3641 41374 NXTBNK CS SKEEP4
055352,000438: 43,3642 63731 AD LSTBNKCH # LAST BANK TO BE CHECKED
055353,000439: 43,3643 00006 EXTEND
055354,000440: 43,3644 13137 BZF ENDSUMS # END OF SUMMING OF BANKS.
055355,000441: 43,3645 31374 CA SKEEP4
055356,000442: 43,3646 64741 AD SBIT11
055357,000443: 43,3647 55374 TS SKEEP4 # 37 TO 40 INCRMTS SKEEP4 BY END RND CARRY
055358,000444: 43,3650 03654 TC CHKSUPR
055359,000445: 43,3651 34735 17TO20 CA SBIT15
055360,000446: 43,3652 27374 ADS SKEEP4 # SET FOR BANK 20
055361,000447: 43,3653 03670 TC GONXTBNK
055362,000448: 43,3654 74350 CHKSUPR MASK HI5
055363,000449: 43,3655 00006 EXTEND
055364,000450: 43,3656 13666 BZF NXTSUPR # INCREMENT SUPER BANK
055365,000451: 43,3657 63246 27TO30 AD S13BITS
055366,000452: 43,3660 00006 EXTEND
055367,000453: 43,3661 13663 BZF +2 # BANK SET FOR 30
055368,000454: 43,3662 03670 TC GONXTBNK
055369,000455: 43,3663 33244 CA SIXTY # FIRST SUPER BANK
055370,000456: 43,3664 27374 ADS SKEEP4
055371,000457: 43,3665 03670 TC GONXTBNK
055372,000458: 43,3666 63245 NXTSUPR AD SUPRCON # SET BNK 30 + INCR SUPR BNK AND CANCEL
055373,000459: 43,3667 27374 ADS SKEEP4 # ERC BIT OF THE 37 TO 40 ADVANCE.
055374,000460: 43,3670 11377 GONXTBNK CCS SKEEP7
055375,000461: 43,3671 03533 TC COMMFX
055376,000462: 43,3672 34753 CA S+1
055377,000463: 43,3673 03551 TC FXFX
055378,000464: 43,3674 34745 CA SBIT7 # HAS TO BE LARGER THAN NO OF FXSW BANKS.
055379,000465: 43,3675 03533 TC COMMFX
055380,000466:
055381,000467: 43,3676 31374 SOPTION CA SKEEP4
055382,000468: 43,3677 74350 MASK HI5 # = BANK BITS
055383,000469: 43,3700 04331 TC LEFT5
055384,000470: 43,3701 54001 TS L # BANK NUMBER BEFORE SUPER BANK
|
|
Page 1287
|
055386,000472: 43,3702 31374 CA SKEEP4
055387,000473: 43,3703 74357 MASK S8BITS # = SUPER BANK BITS
055388,000474: 43,3704 00006 EXTEND
055389,000475: 43,3705 13713 BZF SOPT # BEFORE SUPER BANK
055390,000476: 43,3706 54021 TS SR # SUPER BANK NECESSARY
055391,000477: 43,3707 30001 CA L
055392,000478: 43,3710 74757 MASK SEVEN
055393,000479: 43,3711 60021 AD SR
055394,000480: 43,3712 54001 TS L # BANK NUMBER WITH SUPER BANK
055395,000481: 43,3713 31376 SOPT CA SKEEP6 # *
055396,000482: 43,3714 00006 EXTEND # *
055397,000483: 43,3715 13717 BZF +2 # * ON -0 CONTINUE WITH ROPE CHECK.
055398,000484: 43,3716 03121 TC SDISPLAY # * ON +1 GO TO DISPLAY OF SUM.
055399,000485: 43,3717 11371 CCS SKEEP1 # FORCE SUM TO ABSOLUTE VALUE.
055400,000486: 43,3720 03722 TC +2
055401,000487: 43,3721 03723 TC +2
055402,000488: 43,3722 64753 AD S+1
055403,000489: 43,3723 55371 TS SKEEP1
055404,000490: 43,3724 40001 BNKCHK CS L # = - BANK NUMBER
055405,000491: 43,3725 61371 AD SKEEP1
055406,000492: 43,3726 67746 AD S-1
055407,000493: 43,3727 03301 TC -1CHK # CHECK SUM
055408,000494: 43,3730 03641 TC NXTBNK
055409,000495:
055410,000496: 43,3731 0067 EBANK= NEWJOB
055411,000497: 43,3731 66100 LSTBNKCH BBCON* # * CONSTANT, LAST BANK.
055412,000498:
End of include-file AGC_BLOCK_TWO_SELF-CHECK.agc. Parent file is MAIN.agc