Source Code
|
These source-code files are part of a reconstructed copy of Luminary 69/2,
the flown, final release of the Apollo 10 Lunar Module (LM) Apollo Guidance Computer (AGC) software.
The reconstruction is based on the source code of Luminary 69 — i.e., the
initial, unflown version, "revision 0" — of which
a contemporary listing was available. The code was then updated by incorporating the
differences between Luminary 69 and Luminary 69/2, known from other contemporary
documentation. The only such difference is the implementation in
Luminary 69/2 of the "R-2 Lunar Potential Model", the source code for which was taken
from program Luminary 99/1 (Apollo 11 LM), of which a contemporary listing was also available.
Finally, the now-reconstructed Luminary 69/2 was then validated by assembling it to
executable form and verifying that its memory banks had the correct checksums,
known from still other contemporary documentation.
Note that page numbers in the reconstructed code match those in the original Luminary 69
program listing, or in the ORBITAL INTEGRATION log section, in Luminary 99/1. Page numbers
would certainly differ somewhat in a contemporary Luminary 69/2 listing.
Moreover, annotations that were not present in the contemporary source code have been added
to the reconstructed code to justify each change in Luminary 69/2 relative to
Luminary 69. Here's a guide to the Apollo documentation referenced in those annotations:
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.
|
055129,000002: ## Copyright: Public domain.
055130,000003: ## Filename: AGC_BLOCK_TWO_SELF-CHECK.agc
055131,000004: ## Purpose: A section of LUM69 revision 2.
055132,000005: ## It is part of the reconstructed source code for the flown
055133,000006: ## version of the flight software for the Lunar Module's (LM)
055134,000007: ## Apollo Guidance Computer (AGC) for Apollo 10. The code has
055135,000008: ## been recreated from a copy of Luminary revsion 069, using
055136,000009: ## changes present in Luminary 099 which were described in
055137,000010: ## Luminary memos 75 and 78. The code has been adapted such
055138,000011: ## that the resulting bugger words exactly match those specified
055139,000012: ## for LUM69 revision 2 in NASA drawing 2021152B, which gives
055140,000013: ## relatively high confidence that the reconstruction is correct.
055141,000014: ## Reference: pp. 1278-1287
055142,000015: ## Assembler: yaYUL
055143,000016: ## Contact: Ron Burkey <info@sandroid.org>.
055144,000017: ## Website: www.ibiblio.org/apollo/index.html
055145,000018: ## Mod history: 2019-07-27 MAS Created from Luminary 69.
055146,000019:
|
|
Page 1278
|
055148,000021: # PROGRAM DESCRIPTION DATE 20 DECEMBER 1967
055149,000022: # PROGRAM NAME - SELF-CHECK LOG SECTION AGC BLOCK TWO SELF-CHECK
055150,000023: # MOD NO - 1 ASSEMBLY SUBROUTINE UTILITYM REV 25
055151,000024: # MOD BY - GAUNTT
055152,000025:
055153,000026: # FUNCTIONAL DESCRIPTION
055154,000027: # PROGRAM HAS TWO MAIN PARTS. THE FIRST IS SELF-CHECK WHICH RUNS AS A ZERO PRIORITY JOB WITH NO CORE SET, AS
055155,000028: # PART OF THE BACK-UP IDLE LOOP. THE SECOND IS SHOW-BANKSUM WHICH RUNS AS A REGULAR EXECUTIVE JOB WITH ITS OWN
055156,000029: # STARTING VERB.
055157,000030: # THE PURPOSE OF SELF-CHECK IS TO CHECK OUT VARIOUS PARTS OF THE COMPUTER AS OUTLINED BELOW IN THE OPTIONS.
055158,000031: # THE PURPOSE OF SHOW-BANKSUM IS TO DISPLAY THE SUM OF EACH BANK, ONE AT A TIME.
055159,000032: # IN ALL THERE ARE 7 POSSIBLE OPTIONS IN THIS BLOCK II VERSION OF SELF-CHECK. MORE DETAIL DESCRIPTION MAY BE
055160,000033: # FOUND IN E-2065 BLOCK II AGC SELF-CHECK AND SHOW BANKSUM BY EDWIN D. SMALLY DECEMBER 1966, AND ADDENDA 2 AND 3.
055161,000034:
055162,000035: # THE DIFFERENT OPTIONS ARE CONTROLLED BY PUTTING DIFFERENT NUMBERS IN THE SMODE REGISTER (NOUN 27). BELOW IS
055163,000036: # A DESCRIPTION OF WHAT PARTS OF THE COMPUTER THAT ARE CHECKED BY THE OPTIONS, AND THE CORRESPONDING NUMBER, IN
055164,000037: # OCTAL, TO LOAD INTO SMODE.
055165,000038: # +-4 ERASABLE MEMORY
055166,000039: # +-5 FIXED MEMORY
055167,000040: # +-1,2,3,6,7,10 EVERYTHING IN OPTIONS 4 AND 5.
055168,000041: # -0 SAME AS +-10 UNTIL AN ERROR IS DETECTED.
055169,000042: # +0 NO CHECK, PUTS COMPUTER INTO THE BACKUP IDLE LOOP.
055170,000043:
055171,000044: # WARNINGS
055172,000045: # USE OF E MEMORY RESERVED FOR SELF-CHECK (EVEN IN IDLE LOOP) AS TEMP STORAGE BY OTHER PROGRAMS IS DANGEROUS.
055173,000046: # SMODE SET GREATER THAN OCT 10 PUTS COMPUTER INTO BACKUP IDLE LOOP.
055174,000047:
055175,000048: # CALLING SEQUENCE
055176,000049: # TO CALL SELF-CHECK KEY IN
055177,000050: # V 21 N 27 E OPTION NUMBER E
055178,000051: # TO CALL SHOW-BANKSUM KEY IN
055179,000052: # V 91 E DISPLAYS FIRST BANK
055180,000053: # V 33 E PROCEED, DISPLAYS NEXT BANK
055181,000054:
055182,000055: # EXIT MODES, NORMAL AND ALARM
055183,000056: # SELF-CHECK NORMALLY CONTINUES INDEFINITELY UNLESS THERE IS AN ERROR DETECTED. IF SO + OPTION NUMBERS PUT
055184,000057: # COMPUTER INTO BACKUP IDLE LOOP, - OPTION NUMBERS RESTART THE OPTION.
055185,000058: # THE -0 OPTION PROCEEDS FROM THE LINE FOLLOWING THE LINE WHERE THE ERROR WAS DETECTED.
055186,000059: # SHOW-BANKSUM PROCEEDS UNTIL A TERMINATE IS KEYED IN (V 34 E). THE COMPUTER IS PUT INTO THE BACKUP IDLE LOOP
055187,000060:
055188,000061: # OUTPUT
|
|
Page 1279
|
055190,000063: # SELF-CHECK UPON DETECTING AN ERROR LOADS THE SELF-CHECK ALARM CONSTANT (01102) INTO THE FAILREG SET AND
055191,000064: # TURNS ON THE ALARM LIGHT. THE OPERATOR MAY THEN DISPLAY THE THREE FAILREGS BY KEYING IN V 05 N 09 E. FOR FURTHER
055192,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,
055193,000066: # IN R2 THE BBCON OF SELF-CHECK, AND IN R3 THE TOTAL NUMBER OF ERRORS DETECTED BY SELF-CHECK SINCE THE LAST MAN
055194,000067: # INITIATED FRESH START (SLAP1).
055195,000068:
055196,000069: # SHOW-BANKSUM STARTING WITH BANK 0 DISPLAYS IN R1 THE BANK SUM (A +-NUMBER EQUAL TO THE BANK NUMBER), IN R2
055197,000070: # THE BANK NUMBER, AND IN R3 THE BUGGER WORD.
055198,000071:
055199,000072: # ERASABLE INITIALIZATION REQUIRED
055200,000073: # ACCOMPLISHED BY FRESH START
055201,000074: # SMODE SET TO +0
055202,000075:
055203,000076: # DEBRIS
055204,000077: # ALL EXITS FROM THE CHECK OF ERASABLE (ERASCHK) RESTORE ORIGINAL CONTENTS TO REGISTERS UNDER CHECK.
055205,000078: # EXCEPTION IS A RESTART. RESTART THAT OCCURS DURING ERASCHK RESTORES ERASABLE, UNLESS THERE IS EVIDENCE TO DOUBT
055206,000079: # E MEMORY, IN WHICH CASE PROGRAM THEN DOES A FRESH START (DOFSTART).
055207,000080:
055208,000081: 25,3671 BANK 25
055209,000082: 43,2000 SETLOC SELFCHEC
055210,000083: 43,2000 BANK
055211,000084:
055212,000085: 43,3240 COUNT* $$/SELF
055213,000086: 43,3240 4753 SBIT1 EQUALS BIT1
055214,000087: 43,3240 4752 SBIT2 EQUALS BIT2
055215,000088: 43,3240 4751 SBIT3 EQUALS BIT3
055216,000089: 43,3240 4750 SBIT4 EQUALS BIT4
055217,000090: 43,3240 4747 SBIT5 EQUALS BIT5
055218,000091: 43,3240 4746 SBIT6 EQUALS BIT6
055219,000092: 43,3240 4745 SBIT7 EQUALS BIT7
055220,000093: 43,3240 4744 SBIT8 EQUALS BIT8
055221,000094: 43,3240 4743 SBIT9 EQUALS BIT9
055222,000095: 43,3240 4742 SBIT10 EQUALS BIT10
055223,000096: 43,3240 4741 SBIT11 EQUALS BIT11
055224,000097: 43,3240 4740 SBIT12 EQUALS BIT12
055225,000098: 43,3240 4737 SBIT13 EQUALS BIT13
055226,000099: 43,3240 4736 SBIT14 EQUALS BIT14
055227,000100: 43,3240 4735 SBIT15 EQUALS BIT15
055228,000101:
055229,000102: 43,3240 4755 S+ZERO EQUALS ZERO
055230,000103: 43,3240 4753 S+1 EQUALS BIT1
055231,000104: 43,3240 4752 S+2 EQUALS BIT2
055232,000105: 43,3240 6244 S+3 EQUALS THREE
055233,000106: 43,3240 4751 S+4 EQUALS FOUR
055234,000107: 43,3240 4756 S+5 EQUALS FIVE
055235,000108: 43,3240 6241 S+6 EQUALS SIX
|
|
Page 1280
|
055237,000110: 43,3240 4757 S+7 EQUALS SEVEN
055238,000111: 43,3240 4357 S8BITS EQUALS LOW8 # 00377
055239,000112: 43,3240 4771 CNTRCON = OCT50 # USED IN CNTRCHK
055240,000113: 43,3240 00061 ERASCON1 OCTAL 00061 # USED IN ERASCHK
055241,000114: 43,3241 01373 ERASCON2 OCTAL 01373 # USED IN ERASCHK
055242,000115: 43,3242 5007 ERASCON6 = OCT1400 # USED IN ERASCHK
055243,000116: 43,3242 01461 ERASCON3 OCTAL 01461 # USED IN ERASCHK
055244,000117: 43,3243 01773 ERASCON4 OCTAL 01773 # USED IN ERASCHK
055245,000118: 43,3244 5012 S10BITS EQUALS LOW10 # 01777, USED IN ERASCHK
055246,000119: 43,3244 5020 SBNK03 EQUALS PRIO6 # 06000, USED IN ROPECHK
055247,000120: 43,3244 4350 -MAXADRS = HI5 # FOR ROPECHK
055248,000121: 43,3244 00060 SIXTY OCTAL 00060
055249,000122: 43,3245 60017 SUPRCON OCTAL 60017 # USED IN ROPECHK
055250,000123: 43,3246 17777 S13BITS OCTAL 17777
055251,000124: 43,3247 25252 CONC+S1 OCTAL 25252 # USED IN CYCLSHFT
055252,000125: 43,3250 52400 CONC+S2 OCTAL 52400 # USED IN CYCLSHFT
055253,000126: 43,3251 76777 ERASCON5 OCTAL 76777
055254,000127: 43,3252 5660 S-7 = OCT77770
055255,000128: 43,3252 6111 S-4 EQUALS NEG4
055256,000129: 43,3252 7744 S-3 EQUALS NEG3
055257,000130: 43,3252 7745 S-2 EQUALS NEG2
055258,000131: 43,3252 7746 S-1 EQUALS NEGONE
055259,000132: 43,3252 4754 S-ZERO EQUALS NEG0
055260,000133:
055261,000134: 43,3252 E3,1400 EBANK= LST1
055262,000135: 43,3252 01371 ADRS1 ADRES SKEEP1
055263,000136: 43,3253 03344 SELFADRS ADRES SELFCHK # SELFCHK RETURN ADDRESS. SHOULD BE PUT
055264,000137: # IN SELFRET WHEN GOING FROM SELFCHK TO
055265,000138: # SHOWSUM AND PUT IN SKEEP1 WHEN GOING
055266,000139: # FROM SHOWSUM TO SELF-CHECK.
055267,000140:
055268,000141: 43,3254 31360 PRERRORS CA ERESTORE # IS IT NECESSARY TO RESTORE ERASABLE
055269,000142: 43,3255 00006 EXTEND
055270,000143: 43,3256 13265 BZF ERRORS # NO
055271,000144: 43,3257 00006 EXTEND
055272,000145: 43,3260 31376 DCA SKEEP5
055273,000146: 43,3261 51377 INDEX SKEEP7
055274,000147: 43,3262 52001 DXCH 0000 # RESTORE THE TWO ERASABLE REGISTERS
055275,000148: 43,3263 34755 CA S+ZERO
055276,000149: 43,3264 55360 TS ERESTORE
055277,000150: 43,3265 00004 ERRORS INHINT
055278,000151: 43,3266 30002 CA Q
055279,000152: 43,3267 55357 TS SFAIL # SAVE Q FOR FAILURE LOCATION
055280,000153: 43,3270 55363 TS ALMCADR # FOR DISPLAY WITH BBANK AND ERCOUNT
055281,000154: 43,3271 25365 INCR ERCOUNT # KEEP TRACK OF NUMBER OF MALFUNCTIONS.
055282,000155: 43,3272 05571 TCALARM2 TC ALARM2
055283,000156: 43,3273 01102 OCT 01102 # SELF-CHECK MALFUNCTION INDICATOR
055284,000157: 43,3274 11362 CCS SMODE
055285,000158: 43,3275 34755 SIDLOOP CA S+ZERO
055286,000159: 43,3276 55362 TS SMODE
|
|
Page 1281
|
055288,000161: 43,3277 03344 TC SELFCHK # GO TO IDLE LOOP
055289,000162: 43,3300 01357 TC SFAIL # CONTINUE WITH SELF-CHECK
055290,000163:
055291,000164: 43,3301 10000 -1CHK CCS A
055292,000165: 43,3302 13254 TCF PRERRORS
055293,000166: 43,3303 13254 TCF PRERRORS
055294,000167: 43,3304 10000 CCS A
055295,000168: 43,3305 13254 TCF PRERRORS
055296,000169: 43,3306 00002 TC Q
055297,000170:
055298,000171: 43,3307 00006 SMODECHK EXTEND
055299,000172: 43,3310 23371 QXCH SKEEP1
055300,000173: 43,3311 03340 TC CHECKNJ # CHECK FOR NEW JOB
055301,000174: 43,3312 11362 CCS SMODE
055302,000175: 43,3313 03320 TC SOPTIONS
055303,000176: 43,3314 03311 TC SMODECHK +2 # TO BACKUP IDLE LOOP
055304,000177: 43,3315 03320 TC SOPTIONS
055305,000178: 43,3316 25366 INCR SCOUNT
055306,000179: 43,3317 01371 TC SKEEP1 # CONTINUE WITH SELF-CHECK
055307,000180:
055308,000181: 43,3320 65660 SOPTIONS AD S-7
055309,000182: 43,3321 00006 EXTEND
055310,000183: 43,3322 63324 BZMF +2 # FOR OPTIONS BELOW NINE.
055311,000184: 43,3323 03275 BNKOPTN TC SIDLOOP # ILLEGAL OPTION. GO TO IDLE LOOP.
055312,000185: 43,3324 25366 INCR SCOUNT # FOR OPTIONS BELOW NINE.
055313,000186: 43,3325 64757 AD S+7
055314,000187:
055315,000188: 43,3326 50000 INDEX A
055316,000189: 43,3327 03330 TC SOPTION1
055317,000190: 43,3330 01371 SOPTION1 TC SKEEP1 # WAS TC+TCF
055318,000191: 43,3331 01371 SOPTION2 TC SKEEP1 # WAS IN:OUT1
055319,000192: 43,3332 01371 SOPTION3 TC SKEEP1 # WAS COUNTCHK
055320,000193: 43,3333 03345 SOPTION4 TC ERASCHK
055321,000194: 43,3334 03526 SOPTION5 TC ROPECHK
055322,000195: 43,3335 01371 SOPTION6 TC SKEEP1
055323,000196: 43,3336 01371 SOPTION7 TC SKEEP1
055324,000197: 43,3337 01371 SOPTON10 TC SKEEP1 # CONTINUE WITH SELF-CHECK
055325,000198:
055326,000199: 43,3340 00006 CHECKNJ EXTEND
055327,000200: 43,3341 23361 QXCH SELFRET # SAVE RETURN ADDRESS WHILE TESTING NEWJOB
055328,000201: 43,3342 04635 TC POSTJUMP # TO SEE IF ANY JOBS HAVE BECOME ACTIVE.
055329,000202: 43,3343 03211 CADR ADVAN
055330,000203:
055331,000204: 43,3344 03307 SELFCHK TC SMODECHK # ** CHARLEY, COME IN HERE
055332,000205:
055333,000206: # SKEEP7 HOLDS LOWEST OF TWO ADDRESSES BEING CHECKED.
055334,000207: # SKEEP6 HOLDS B(X+1).
055335,000208: # SKEEP5 HOLDS B(X).
055336,000209: # SKEEP4 HOLDS C(EBANK) DURING ERASLOOP AND CHECKNJ.
055337,000210: # SKEEP3 HOLDS LAST ADDRESS BEING CHECKED (HIGHEST ADDRESS).
|
|
Page 1282
|
055339,000212: # SKEEP2 CONTROLS CHECKING OF NON-SWITCHABLE ERASABLE MEMORY WITH BANK NUMBERS IN EB.
055340,000213: # ERASCHK TAKES APPROXMATELY 7 SECONDS
055341,000214:
055342,000215: 43,3345 34753 ERASCHK CA S+1
055343,000216: 43,3346 55372 TS SKEEP2
055344,000217: 43,3347 34755 0EBANK CA S+ZERO
055345,000218: 43,3350 54003 TS EBANK
055346,000219: 43,3351 33242 CA ERASCON3 # 01461
055347,000220: 43,3352 55377 TS SKEEP7 # STARTING ADDRESS
055348,000221: 43,3353 35012 CA S10BITS # 01777
055349,000222: 43,3354 55373 TS SKEEP3 # LAST ADDRESS CHECKED
055350,000223: 43,3355 03375 TC ERASLOOP
055351,000224:
055352,000225: 43,3356 35007 E134567B CA ERASCON6 # 01400
055353,000226: 43,3357 55377 TS SKEEP7 # STARTING ADDRESS
055354,000227: 43,3360 35012 CA S10BITS # 01777
055355,000228: 43,3361 55373 TS SKEEP3 # LAST ADDRESS CHECKED
055356,000229: 43,3362 03375 TC ERASLOOP
055357,000230:
055358,000231: 43,3363 35007 2EBANK CA ERASCON6 # 01400
055359,000232: 43,3364 55377 TS SKEEP7 # STARTING ADDRESS
055360,000233: 43,3365 33243 CA ERASCON4 # 01773
055361,000234: 43,3366 55373 TS SKEEP3 # LAST ADDRESS CHECKED
055362,000235: 43,3367 03375 TC ERASLOOP
055363,000236:
055364,000237: 43,3370 55372 NOEBANK TS SKEEP2 # +0
055365,000238: 43,3371 33240 CA ERASCON1 # 00061
055366,000239: 43,3372 55377 TS SKEEP7 # STARTING ADDRESS
055367,000240: 43,3373 33241 CA ERASCON2 # 01373
055368,000241: 43,3374 55373 TS SKEEP3 # LAST ADDRESS CHECKED
055369,000242:
055370,000243: 43,3375 00004 ERASLOOP INHINT
055371,000244: 43,3376 30003 CA EBANK # STORES C(EBANK)
055372,000245: 43,3377 55374 TS SKEEP4
055373,000246: 43,3400 00006 EXTEND
055374,000247: 43,3401 51377 NDX SKEEP7
055375,000248: 43,3402 30001 DCA 0000
055376,000249: 43,3403 53376 DXCH SKEEP5 # STORES C(X) AND C(X+1) IN SKEEP6 AND 5.
055377,000250: 43,3404 31377 CA SKEEP7
055378,000251: 43,3405 55360 TS ERESTORE # IF RESTART, RESTORE C(X) AND C(X+1)
055379,000252: 43,3406 54001 TS L
055380,000253: 43,3407 24001 INCR L
055381,000254: 43,3410 50000 NDX A
055382,000255: 43,3411 52001 DXCH 0000 # PUTS OWN ADDRESS IN X AND X +1
055383,000256: 43,3412 51377 NDX SKEEP7
055384,000257: 43,3413 40001 CS 0001 # CS X+1
055385,000258: 43,3414 51377 NDX SKEEP7
055386,000259: 43,3415 60000 AD 0000 # AD X
055387,000260: 43,3416 03301 TC -1CHK
055388,000261: 43,3417 31360 CA ERESTORE # HAS ERASABLE BEEN RESTORED
055389,000262: 43,3420 00006 EXTEND
|
|
Page 1283
|
055391,000264: 43,3421 13445 BZF ELOOPFIN # YES, EXIT ERASLOOP.
055392,000265: 43,3422 00006 EXTEND
055393,000266: 43,3423 51377 NDX SKEEP7
055394,000267: 43,3424 40001 DCS 0000 # COMPLEMENT OF ADDRESS OF X AND X+1
055395,000268: 43,3425 51377 NDX SKEEP7
055396,000269: 43,3426 52001 DXCH 0000 # PUT COMPLEMENT OF ADDRESS OF X AND X+1
055397,000270: 43,3427 51377 NDX SKEEP7
055398,000271: 43,3430 40000 CS 0000 # CS X
055399,000272: 43,3431 51377 NDX SKEEP7
055400,000273: 43,3432 60001 AD 0001 # AD X+1
055401,000274: 43,3433 03301 TC -1CHK
055402,000275: 43,3434 31360 CA ERESTORE # HAS ERASABLE BEEN RESTORED
055403,000276: 43,3435 00006 EXTEND
055404,000277: 43,3436 13445 BZF ELOOPFIN # YES, EXIT ERASLOOP.
055405,000278: 43,3437 00006 EXTEND
055406,000279: 43,3440 31376 DCA SKEEP5
055407,000280: 43,3441 51377 NDX SKEEP7
055408,000281: 43,3442 52001 DXCH 0000 # PUT B(X) AND B(X+1) BACK INTO X AND X+1
055409,000282: 43,3443 34755 CA S+ZERO
055410,000283: 43,3444 55360 TS ERESTORE # IF RESTART, DO NOT RESTORE C(X), C(X+1)
055411,000284: 43,3445 00003 ELOOPFIN RELINT
055412,000285: 43,3446 03340 TC CHECKNJ # CHECK FOR NEW JOB
055413,000286: 43,3447 31374 CA SKEEP4 # REPLACES B(EBANK)
055414,000287: 43,3450 54003 TS EBANK
055415,000288: 43,3451 25377 INCR SKEEP7
055416,000289: 43,3452 41377 CS SKEEP7
055417,000290: 43,3453 61373 AD SKEEP3
055418,000291: 43,3454 00006 EXTEND
055419,000292: 43,3455 13457 BZF +2
055420,000293: 43,3456 03375 TC ERASLOOP # GO TO NEXT ADDRESS IN SAME BANK
055421,000294: 43,3457 11372 CCS SKEEP2
055422,000295: 43,3460 03370 TC NOEBANK
055423,000296: 43,3461 25372 INCR SKEEP2 # PUT +1 IN SKEEP2.
055424,000297: 43,3462 30003 CA EBANK
055425,000298: 43,3463 64743 AD SBIT9
055426,000299: 43,3464 54003 TS EBANK
055427,000300: 43,3465 63251 AD ERASCON5 # 76777, CHECK FOR BANK E2
055428,000301: 43,3466 00006 EXTEND
055429,000302: 43,3467 13363 BZF 2EBANK
055430,000303: 43,3470 10003 CCS EBANK
055431,000304: 43,3471 03356 TC E134567B # GO TO EBANKS 1,3,4,5,6, AND 7
055432,000305: 43,3472 35007 CA ERASCON6 # END OF ERASCHK
055433,000306: 43,3473 54003 TS EBANK
055434,000307:
055435,000308: # CNTRCHK PERFORMS A CS OF ALL REGISTERS FROM OCT. 60 THROUGH OCT. 10.
055436,000309: # INCLUDED ARE ALL COUNTERS, T6-1, CYCLE AND SHIFT, AND ALL RUPT REGISTERS
055437,000310:
055438,000311: 43,3474 34771 CNTRCHK CA CNTRCON # 00050
055439,000312: 43,3475 55372 CNTRLOOP TS SKEEP2
055440,000313: 43,3476 64750 AD SBIT4 # +10 OCTAL
055441,000314: 43,3477 50000 INDEX A
055442,000315: 43,3500 40000 CS 0000
|
|
Page 1284
|
055444,000317: 43,3501 11372 CCS SKEEP2
055445,000318: 43,3502 03475 TC CNTRLOOP
055446,000319:
055447,000320: # CYCLSHFT CHECKS THE CYCLE AND SHIFT REGISTERS
055448,000321:
055449,000322: 43,3503 33247 CYCLSHFT CA CONC+S1 # 25252
055450,000323: 43,3504 54020 TS CYR # C(CYR) = 12525
055451,000324: 43,3505 54022 TS CYL # C(CYL) = 52524
055452,000325: 43,3506 54021 TS SR # C(SR) = 12525
055453,000326: 43,3507 54023 TS EDOP # C(EDOP) = 00125
055454,000327: 43,3510 60020 AD CYR # 37777 C(CYR) = 45252
055455,000328: 43,3511 60022 AD CYL # 00-12524 C(CYL) = 25251
055456,000329: 43,3512 60021 AD SR # 00-25251 C(SR) = 05252
055457,000330: 43,3513 60023 AD EDOP # 00-25376 C(EDOP) = +0
055458,000331: 43,3514 63250 AD CONC+S2 # C(CONC+S2) = 52400
055459,000332: 43,3515 03301 TC -1CHK
055460,000333: 43,3516 60020 AD CYR # 45252
055461,000334: 43,3517 60022 AD CYL # 72523
055462,000335: 43,3520 60021 AD SR # 77775
055463,000336: 43,3521 60023 AD EDOP # 77775
055464,000337: 43,3522 64753 AD S+1 # 77776
055465,000338: 43,3523 03301 TC -1CHK
055466,000339:
055467,000340: 43,3524 25367 INCR SCOUNT +1
055468,000341: 43,3525 03307 TC SMODECHK
055469,000342:
055470,000343: # SKEEP1 HOLDS SUM
055471,000344: # SKEEP2 HOLDS PRESENT CONTENTS OF ADDRESS IN ROPECHK AND SHOWSUM ROUTINES
055472,000345: # SKEEP2 HOLDS BANK NUMBER IN LOW ORDER BITS DURING SHOWSUM DISPLAY
055473,000346: # SKEEP3 HOLDS PRESENT ADDRESS (00000 TO 01777 IN COMMON FIXED BANKS)
055474,000347: # (04000 TO 07777 IN FXFX BANKS)
055475,000348: # SKEEP3 HOLDS BUGGER WORD DURING SHOWSUM DISPLAY
055476,000349: # SKEEP4 HOLDS BANK NUMBER AND SUPER BANK NUMBER
055477,000350: # SKEEP5 COUNTS 2 SUCCESSIVE TC SELF WORDS
055478,000351: # SKEEP6 CONTROLS ROPECHK OR SHOWSUM OPTION
055479,000352: # SKEEP7 CONTROLS WHEN ROUNTINE IS IN COMMON FIXED OR FIXED FIXED BANKS
055480,000353:
055481,000354: 43,3526 34754 ROPECHK CA S-ZERO # *
055482,000355: 43,3527 55376 TS SKEEP6 # * -0 FOR ROPECHK.
055483,000356: 43,3530 34755 STSHOSUM CA S+ZERO # * SHOULD BE ROPECHK
055484,000357:
055485,000358: 43,3531 55374 TS SKEEP4 # BANK NUMBER
055486,000359: 43,3532 34753 CA S+1
055487,000360: 43,3533 55377 COMMFX TS SKEEP7
055488,000361: 43,3534 34755 CA S+ZERO
055489,000362: 43,3535 55371 TS SKEEP1
055490,000363: 43,3536 55373 TS SKEEP3
055491,000364: 43,3537 34753 CA S+1
055492,000365: 43,3540 55375 TS SKEEP5 # COUNTS DOWN 2 TC SELF WORDS
055493,000366: 43,3541 31374 COMADRS CA SKEEP4
055494,000367: 43,3542 54001 TS L # TO SET SUPER BANK
055495,000368: 43,3543 74350 MASK HI5
|
|
Page 1285
|
055497,000370: 43,3544 61373 AD SKEEP3
055498,000371: 43,3545 04651 TC SUPDACAL # SUPER DATA CALL
055499,000372: 43,3546 03571 TC ADSUM
055500,000373: 43,3547 64741 AD SBIT11 # 02000
055501,000374: 43,3550 03602 TC ADRSCHK
055502,000375:
055503,000376: 43,3551 40000 FXFX CS A
055504,000377: 43,3552 55377 TS SKEEP7
055505,000378: 43,3553 00006 EXTEND
055506,000379: 43,3554 13557 BZF +3
055507,000380: 43,3555 34740 CA SBIT12 # 04000, STARTING ADDRESS OF BANK 02
055508,000381: 43,3556 03560 TC +2
055509,000382: 43,3557 35020 CA SBNK03 # 06000, STARTING ADDRESS OF BANK 03
055510,000383: 43,3560 55373 TS SKEEP3
055511,000384: 43,3561 34755 CA S+ZERO
055512,000385: 43,3562 55371 TS SKEEP1
055513,000386: 43,3563 34753 CA S+1
055514,000387: 43,3564 55375 TS SKEEP5 # COUNTS DOWN 2 TC SELF WORDS
055515,000388: 43,3565 51373 FXADRS INDEX SKEEP3
055516,000389: 43,3566 30000 CA 0000
055517,000390: 43,3567 03571 TC ADSUM
055518,000391: 43,3570 03602 TC ADRSCHK
055519,000392:
055520,000393: 43,3571 55372 ADSUM TS SKEEP2
055521,000394: 43,3572 61371 AD SKEEP1
055522,000395: 43,3573 55371 TS SKEEP1
055523,000396: 43,3574 34755 CAF S+ZERO
055524,000397: 43,3575 61371 AD SKEEP1
055525,000398: 43,3576 55371 TS SKEEP1
055526,000399: 43,3577 41372 CS SKEEP2
055527,000400: 43,3600 61373 AD SKEEP3
055528,000401: 43,3601 00002 TC Q
055529,000402:
055530,000403: 43,3602 22000 ADRSCHK LXCH A
055531,000404: 43,3603 31373 CA SKEEP3
055532,000405: 43,3604 75012 MASK LOW10 # RELATIVE ADDRESS
055533,000406: 43,3605 64350 AD -MAXADRS # SUBTRACT MAX RELATIVE ADDRESS = 1777.
055534,000407: 43,3606 00006 EXTEND
055535,000408: 43,3607 13676 BZF SOPTION # CHECKSUM FINISHED IF LAST ADDRESS.
055536,000409: 43,3610 11375 CCS SKEEP5 # IS CHECKSUM FINISHED
055537,000410: 43,3611 03614 TC +3 # NO
055538,000411: 43,3612 03614 TC +2 # NO
055539,000412: 43,3613 03676 TC SOPTION # GO TO ROPECHK SHOWSUM OPTION
055540,000413: 43,3614 10001 CCS L # -0 MEANS A TC SELF WORD.
055541,000414: 43,3615 03624 TC CONTINU
055542,000415: 43,3616 03624 TC CONTINU
055543,000416: 43,3617 03624 TC CONTINU
055544,000417: 43,3620 11375 CCS SKEEP5
055545,000418: 43,3621 03625 TC CONTINU +1
055546,000419: 43,3622 37746 CA S-1
|
|
Page 1286
|
055548,000421: 43,3623 03625 TC CONTINU +1 # AD IN THE BUGGER WORD
055549,000422: 43,3624 34753 CONTINU CA S+1 # MAKE SURE TWO CONSECUTIVE TC SELF WORDS
055550,000423: 43,3625 55375 TS SKEEP5
055551,000424: 43,3626 11376 CCS SKEEP6 # *
055552,000425: 43,3627 10067 CCS NEWJOB # * +1, SHOWSUM
055553,000426: 43,3630 05122 TC CHANG1 # *
055554,000427: 43,3631 03633 TC +2 # *
055555,000428: 43,3632 03340 TC CHECKNJ # -0 IN SKEEP6 FOR ROPECHK
055556,000429:
055557,000430: 43,3633 25373 ADRS+1 INCR SKEEP3
055558,000431: 43,3634 11377 CCS SKEEP7
055559,000432: 43,3635 03541 TC COMADRS
055560,000433: 43,3636 03541 TC COMADRS
055561,000434: 43,3637 03565 TC FXADRS
055562,000435: 43,3640 03565 TC FXADRS
055563,000436:
055564,000437: 43,3641 41374 NXTBNK CS SKEEP4
055565,000438: 43,3642 63731 AD LSTBNKCH # LAST BANK TO BE CHECKED
055566,000439: 43,3643 00006 EXTEND
055567,000440: 43,3644 13137 BZF ENDSUMS # END OF SUMMING OF BANKS.
055568,000441: 43,3645 31374 CA SKEEP4
055569,000442: 43,3646 64741 AD SBIT11
055570,000443: 43,3647 55374 TS SKEEP4 # 37 TO 40 INCRMTS SKEEP4 BY END RND CARRY
055571,000444: 43,3650 03654 TC CHKSUPR
055572,000445: 43,3651 34735 17TO20 CA SBIT15
055573,000446: 43,3652 27374 ADS SKEEP4 # SET FOR BANK 20
055574,000447: 43,3653 03670 TC GONXTBNK
055575,000448: 43,3654 74350 CHKSUPR MASK HI5
055576,000449: 43,3655 00006 EXTEND
055577,000450: 43,3656 13666 BZF NXTSUPR # INCREMENT SUPER BANK
055578,000451: 43,3657 63246 27TO30 AD S13BITS
055579,000452: 43,3660 00006 EXTEND
055580,000453: 43,3661 13663 BZF +2 # BANK SET FOR 30
055581,000454: 43,3662 03670 TC GONXTBNK
055582,000455: 43,3663 33244 CA SIXTY # FIRST SUPER BANK
055583,000456: 43,3664 27374 ADS SKEEP4
055584,000457: 43,3665 03670 TC GONXTBNK
055585,000458: 43,3666 63245 NXTSUPR AD SUPRCON # SET BNK 30 + INCR SUPR BNK AND CANCEL
055586,000459: 43,3667 27374 ADS SKEEP4 # ERC BIT OF THE 37 TO 40 ADVANCE.
055587,000460: 43,3670 11377 GONXTBNK CCS SKEEP7
055588,000461: 43,3671 03533 TC COMMFX
055589,000462: 43,3672 34753 CA S+1
055590,000463: 43,3673 03551 TC FXFX
055591,000464: 43,3674 34745 CA SBIT7 # HAS TO BE LARGER THAN NO OF FXSW BANKS.
055592,000465: 43,3675 03533 TC COMMFX
055593,000466:
055594,000467: 43,3676 31374 SOPTION CA SKEEP4
055595,000468: 43,3677 74350 MASK HI5 # = BANK BITS
055596,000469: 43,3700 04331 TC LEFT5
055597,000470: 43,3701 54001 TS L # BANK NUMBER BEFORE SUPER BANK
|
|
Page 1287
|
055599,000472: 43,3702 31374 CA SKEEP4
055600,000473: 43,3703 74357 MASK S8BITS # = SUPER BANK BITS
055601,000474: 43,3704 00006 EXTEND
055602,000475: 43,3705 13713 BZF SOPT # BEFORE SUPER BANK
055603,000476: 43,3706 54021 TS SR # SUPER BANK NECESSARY
055604,000477: 43,3707 30001 CA L
055605,000478: 43,3710 74757 MASK SEVEN
055606,000479: 43,3711 60021 AD SR
055607,000480: 43,3712 54001 TS L # BANK NUMBER WITH SUPER BANK
055608,000481: 43,3713 31376 SOPT CA SKEEP6 # *
055609,000482: 43,3714 00006 EXTEND # *
055610,000483: 43,3715 13717 BZF +2 # * ON -0 CONTINUE WITH ROPE CHECK.
055611,000484: 43,3716 03121 TC SDISPLAY # * ON +1 GO TO DISPLAY OF SUM.
055612,000485: 43,3717 11371 CCS SKEEP1 # FORCE SUM TO ABSOLUTE VALUE.
055613,000486: 43,3720 03722 TC +2
055614,000487: 43,3721 03723 TC +2
055615,000488: 43,3722 64753 AD S+1
055616,000489: 43,3723 55371 TS SKEEP1
055617,000490: 43,3724 40001 BNKCHK CS L # = - BANK NUMBER
055618,000491: 43,3725 61371 AD SKEEP1
055619,000492: 43,3726 67746 AD S-1
055620,000493: 43,3727 03301 TC -1CHK # CHECK SUM
055621,000494: 43,3730 03641 TC NXTBNK
055622,000495:
055623,000496: 43,3731 0067 EBANK= NEWJOB
055624,000497: 43,3731 66100 LSTBNKCH BBCON* # * CONSTANT, LAST BANK.
055625,000498:
End of include-file AGC_BLOCK_TWO_SELF-CHECK.agc. Parent file is MAIN.agc