Source Code
|
This is a reconstruction of the AGC program Luminary 99 Rev 0. It was the third release
of the Lunar Module flight software targeted for use in Apollo 11, after Luminary 96 and 97.
A bug (which had been around since at least Apollo 10, Luminary 69) was
discovered in Rev 0 shortly before the Apollo 11 flight, resulting in a last minute
revision into Rev 1,
which is what actually flew rather than
the Rev 0 presented here. A hardcopy of Rev 0 is known to
exist — it belonged to AGC developer Allan Klumpp for many years — but
unfortunately the Virtual AGC Project has not had access to that hardcopy. Thus
the code you see here had been reconstructed (we believe accurately) rather than
transcribed. The first step of the reconstruction of the Rev 0 source code was
the transcription of the Rev 1 source code from a hardcopy in the MIT Museum collection.
The process of reverting the active portion of the source code (i.e., other than
program comments) from Rev 1 to Rev 0 was very minor, consisting
only of moving the position of the STARTSB1 label in
FRESH START AND RESTART. Allan had previously given
us the checksums of the memory banks of Rev 0, and we have verified the program presented here has checksums
identical to all banks of Allan's listing of Rev 0. The notations on Allan's Rev 0 program listing read,
in part:GAP: ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-051 A single program comment is known to differ between Rev 0 and Rev 1, but these are harder to reconstruct and verify than changes to the active portion of the code. Thus it is possible that there are additional differences between the program comments in Rev 0 and Rev 1 that are unknown to us, and therefore are not reflected in the code presented here. |
056038,000002: ## Copyright: Public domain.
056039,000003: ## Filename: AGC_BLOCK_TWO_SELF-CHECK.agc
056040,000004: ## Purpose: Part of the reconstructed source code for LMY99 Rev 0,
056041,000005: ## otherwise known as Luminary Rev 99, the third release
056042,000006: ## of the Apollo Guidance Computer (AGC) software for Apollo 11.
056043,000007: ## It differs from LMY99 Rev 1 (the flown version) only in the
056044,000008: ## placement of a single label. The corrections shown here have
056045,000009: ## been verified to have the same bank checksums as AGC developer
056046,000010: ## Allan Klumpp's copy of Luminary Rev 99, and so are believed
056047,000011: ## to be accurate. This file is intended to be a faithful
056048,000012: ## recreation, except that the code format has been changed to
056049,000013: ## conform to the requirements of the yaYUL assembler rather than
056050,000014: ## the original YUL assembler.
056051,000015: ##
056052,000016: ## Assembler: yaYUL
056053,000017: ## Contact: Onno Hommes <ohommes@cmu.edu>.
056054,000018: ## Website: www.ibiblio.org/apollo.
056055,000019: ## Pages: 1284-1293
056056,000020: ## Mod history: 2009-05-27 OH Transcribed from page images.
056057,000021: ## 2016-12-17 RSB Proofed text comments with octopus/ProoferComments
056058,000022: ## and corrected the errors found.
056059,000023: ## 2017-01-28 RSB WTIH -> WITH.
056060,000024: ## 2017-08-01 MAS Created from LMY99 Rev 1.
056061,000025:
056062,000026: ## This source code has been transcribed or otherwise adapted from
056063,000027: ## digitized images of a hardcopy from the MIT Museum. The digitization
056064,000028: ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of
056065,000029: ## the Museum. Many thanks to both. The images (with suitable reduction
056066,000030: ## in storage size and consequent reduction in image quality as well) are
056067,000031: ## available online at www.ibiblio.org/apollo. If for some reason you
056068,000032: ## find that the images are illegible, contact me at info@sandroid.org
056069,000033: ## about getting access to the (much) higher-quality images which Paul
056070,000034: ## actually created.
056071,000035: ##
056072,000036: ## The code has been modified to match LMY99 Revision 0, otherwise
056073,000037: ## known as Luminary Revision 99, the Apollo 11 software release preceeding
056074,000038: ## the listing from which it was transcribed. It has been verified to
056075,000039: ## contain the same bank checksums as AGC developer Allan Klumpp's listing
056076,000040: ## of Luminary Revision 99 (for which we do not have scans).
056077,000041: ##
056078,000042: ## Notations on Allan Klumpp's listing read, in part:
056079,000043: ##
056080,000044: ## ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-51
056081,000045:
|
|
Page 1284 |
056083,000047: # PROGRAM DESCRIPTION DATE 20 DECEMBER 1967
056084,000048: # PROGRAM NAME - SELF-CHECK LOG SECTION AGC BLOCK TWO SELF-CHECK
056085,000049: # MOD NO - 1 ASSEMBLY SUBROUTINE UTILITYM REV 25
056086,000050: # MOD BY - GAUNTT
056087,000051:
056088,000052: # FUNCTIONAL DESCRIPTION
056089,000053: # PROGRAM HAS TWO MAIN PARTS. THE FIRST IS SELF-CHECK WHICH RUNS AS A ZERO PRIORITY JOB WITH NO CORE SET, AS
056090,000054: # PART OF THE BACK-UP IDLE LOOP. THE SECOND IS SHOW-BANKSUM WHICH RUNS AS A REGULAR EXECUTIVE JOB WITH ITS OWN
056091,000055: # STARTING VERB.
056092,000056:
056093,000057: # THE PURPOSE OF SELF-CHECK IS TO CHECK OUT VARIOUS PARTS OF THE COMPUTER AS OUTLINED BELOW IN THE OPTIONS.
056094,000058:
056095,000059: # THE PURPOSE OF SHOW-BANKSUM IS TO DISPLAY THE SUM OF EACH BANK, ONE AT A TIME.
056096,000060:
056097,000061: # IN ALL THERE ARE 7 POSSIBLE OPTIONS IN THIS BLOCK II VERSION OF SELF-CHECK. MORE DETAIL DESCRIPTION MAY BE
056098,000062: # FOUND IN E-2065 BLOCK II AGC SELF-CHECK AND SHOW BANKSUM BY EDWIN D. SMALLY DECEMBER 1966, AND ADDENDA 2 AND 3.
056099,000063:
056100,000064: # THE DIFFERENT OPTIONS ARE CONTROLLED BY PUTTING DIFFERENT NUMBERS IN THE SMODE REGISTER (NOUN 27). BELOW IS
056101,000065: # A DESCRIPTION OF WHAT PARTS OF THE COMPUTER THAT ARE CHECKED BY THE OPTIONS, AND THE CORRESPONDING NUMBER, IN
056102,000066: # OCTAL, TO LOAD INTO SMODE.
056103,000067: # +-4 ERASABLE MEMORY
056104,000068: # +-5 FIXED MEMORY
056105,000069: # +-1,2,3,6,7,10 EVERYTHING IN OPTIONS 4 AND 5.
056106,000070: # -0 SAME AS +-10 UNTIL AN ERROR IS DETECTED.
056107,000071: # +0 NO CHECK, PUTS COMPUTER INTO THE BACKUP IDLE LOOP.
056108,000072:
056109,000073: # WARNINGS
056110,000074: # USE OF E MEMORY RESERVED FOR SELF-CHECK (EVEN IN IDLE LOOP) AS TEMP STORAGE BY OTHER PROGRAMS IS DANGEROUS.
056111,000075: # SMODE SET GREATER THAN OCT 10 PUTS COMPUTER INTO BACKUP IDLE LOOP.
056112,000076:
056113,000077: # CALLING SEQUENCE
056114,000078: # TO CALL SELF-CHECK KEY IN
056115,000079: # V 21 N 27 E OPTION NUMBER E
056116,000080: # TO CALL SHOW-BANKSUM KEY IN
056117,000081: # V 91 E DISPLAYS FIRST BANK
056118,000082: # V 33 E PROCEED, DISPLAYS NEXT BANK
056119,000083:
056120,000084: # EXIT MODES, NORMAL AND ALARM
056121,000085: # SELF-CHECK NORMALLY CONTINUES INDEFINITELY UNLESS THERE IS AN ERROR DETECTED. IF SO + OPTION NUMBERS PUT
056122,000086: # COMPUTER INTO BACKUP IDLE LOOP, - OPTION NUMBERS RESTART THE OPTION.
056123,000087:
056124,000088: # THE -0 OPTION PROCEEDS FROM THE LINE FOLLOWING THE LINE WHERE THE ERROR WAS DETECTED.
056125,000089:
056126,000090: # SHOW-BANKSUM PROCEEDS UNTIL A TERMINATE IS KEYED IN (V 34 E). THE COMPUTER IS PUT INTO THE BACKUP IDLE LOOP
056127,000091:
056128,000092: # OUTPUT
|
|
Page 1285 |
056130,000094: # SELF-CHECK UPON DETECTING AN ERROR LOADS THE SELF-CHECK ALARM CONSTANT (01102) INTO THE FAILREG SET AND
056131,000095: # TURNS ON THE ALARM LIGHT. THE OPERATOR MAY THEN DISPLAY THE THREE FAILREGS BY KEYING IN V 05 N 09 E. FOR FURTHER
056132,000096: # 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,
056133,000097: # IN R2 THE BBCON OF SELF-CHECK, AND IN R3 THE TOTAL NUMBER OF ERRORS DETECTED BY SELF-CHECK SINCE THE LAST MAN
056134,000098: # INITIATED FRESH START (SLAP1).
056135,000099:
056136,000100: # SHOW-BANKSUM STARTING WITH BANK 0 DISPLAYS IN R1 THE BANK SUM (A +-NUMBER EQUAL TO THE BANK NUMBER), IN R2
056137,000101: # THE BANK NUMBER, AND IN R3 THE BUGGER WORD.
056138,000102:
056139,000103: # ERASABLE INITIALIZATION REQUIRED
056140,000104: # ACCOMPLISHED BY FRESH START
056141,000105: # SMODE SET TO +0
056142,000106:
056143,000107: # DEBRIS
056144,000108: # ALL EXITS FROM THE CHECK OF ERASABLE (ERASCHK) RESTORE ORIGINAL CONTENTS TO REGISTERS UNDER CHECK.
056145,000109: # EXCEPTION IS A RESTART. RESTART THAT OCCURS DURING ERASCHK RESTORES ERASABLE, UNLESS THERE IS EVIDENCE TO DOUBT
056146,000110: # E MEMORY, IN WHICH CASE PROGRAM THEN DOES A FRESH START (DOFSTART).
056147,000111:
056148,000112: 25,3770 BANK 25
056149,000113: 43,2000 SETLOC SELFCHEC
056150,000114: 43,2000 BANK
056151,000115:
056152,000116: 43,3232 COUNT* $$/SELF
056153,000117: 43,3232 4753 SBIT1 EQUALS BIT1
056154,000118: 43,3232 4752 SBIT2 EQUALS BIT2
056155,000119: 43,3232 4751 SBIT3 EQUALS BIT3
056156,000120: 43,3232 4750 SBIT4 EQUALS BIT4
056157,000121: 43,3232 4747 SBIT5 EQUALS BIT5
056158,000122: 43,3232 4746 SBIT6 EQUALS BIT6
056159,000123: 43,3232 4745 SBIT7 EQUALS BIT7
056160,000124: 43,3232 4744 SBIT8 EQUALS BIT8
056161,000125: 43,3232 4743 SBIT9 EQUALS BIT9
056162,000126: 43,3232 4742 SBIT10 EQUALS BIT10
056163,000127: 43,3232 4741 SBIT11 EQUALS BIT11
056164,000128: 43,3232 4740 SBIT12 EQUALS BIT12
056165,000129: 43,3232 4737 SBIT13 EQUALS BIT13
056166,000130: 43,3232 4736 SBIT14 EQUALS BIT14
056167,000131: 43,3232 4735 SBIT15 EQUALS BIT15
056168,000132:
056169,000133: 43,3232 4755 S+ZERO EQUALS ZERO
056170,000134: 43,3232 4753 S+1 EQUALS BIT1
056171,000135: 43,3232 4752 S+2 EQUALS BIT2
056172,000136: 43,3232 6245 S+3 EQUALS THREE
056173,000137: 43,3232 4751 S+4 EQUALS FOUR
056174,000138: 43,3232 4756 S+5 EQUALS FIVE
056175,000139: 43,3232 6242 S+6 EQUALS SIX
|
|
Page 1286 |
056177,000141: 43,3232 4757 S+7 EQUALS SEVEN
056178,000142: 43,3232 4357 S8BITS EQUALS LOW8 # 00377
056179,000143: 43,3232 4771 CNTRCON = OCT50 # USED IN CNTRCHK
056180,000144: 43,3232 00061 ERASCON1 OCTAL 00061 # USED IN ERASCHK
056181,000145: 43,3233 01373 ERASCON2 OCTAL 01373 # USED IN ERASCHK
056182,000146: 43,3234 5007 ERASCON6 = OCT1400 # USED IN ERASCHK
056183,000147: 43,3234 01461 ERASCON3 OCTAL 01461 # USED IN ERASCHK
056184,000148: 43,3235 01773 ERASCON4 OCTAL 01773 # USED IN ERASCHK
056185,000149: 43,3236 5012 S10BITS EQUALS LOW10 # 01777, USED IN ERASCHK
056186,000150: 43,3236 5020 SBNK03 EQUALS PRIO6 # 06000, USED IN ROPECHK
056187,000151: 43,3236 4350 -MAXADRS = HI5 # FOR ROPECHK
056188,000152: 43,3236 00060 SIXTY OCTAL 00060
056189,000153: 43,3237 60017 SUPRCON OCTAL 60017 # USED IN ROPECHK
056190,000154: 43,3240 17777 S13BITS OCTAL 17777
056191,000155: 43,3241 25252 CONC+S1 OCTAL 25252 # USED IN CYCLSHFT
056192,000156: 43,3242 52400 CONC+S2 OCTAL 52400 # USED IN CYCLSHFT
056193,000157: 43,3243 76777 ERASCON5 OCTAL 76777
056194,000158: 43,3244 5660 S-7 = OCT77770
056195,000159: 43,3244 6112 S-4 EQUALS NEG4
056196,000160: 43,3244 7745 S-3 EQUALS NEG3
056197,000161: 43,3244 7746 S-2 EQUALS NEG2
056198,000162: 43,3244 7747 S-1 EQUALS NEGONE
056199,000163: 43,3244 4754 S-ZERO EQUALS NEG0
056200,000164:
056201,000165: 43,3244 E3,1400 EBANK= LST1
056202,000166: 43,3244 01371 ADRS1 ADRES SKEEP1
056203,000167: 43,3245 03336 SELFADRS ADRES SELFCHK # SELFCHK RETURN ADDRESS. SHOULD BE PUT
056204,000168: # IN SELFRET WHEN GOING FROM SELFCHK TO
056205,000169: # SHOWSUM AND PUT IN SKEEP1 WHEN GOING
056206,000170: # FROM SHOWSUM TO SELF-CHECK.
056207,000171:
056208,000172: 43,3246 31360 PRERRORS CA ERESTORE # IS IT NECESSARY TO RESTORE ERASABLE
056209,000173: 43,3247 00006 EXTEND
056210,000174: 43,3250 13257 BZF ERRORS # NO
056211,000175: 43,3251 00006 EXTEND
056212,000176: 43,3252 31376 DCA SKEEP5
056213,000177: 43,3253 51377 INDEX SKEEP7
056214,000178: 43,3254 52001 DXCH 0000 # RESTORE THE TWO ERASABLE REGISTERS
056215,000179: 43,3255 34755 CA S+ZERO
056216,000180: 43,3256 55360 TS ERESTORE
056217,000181: 43,3257 00004 ERRORS INHINT
056218,000182: 43,3260 30002 CA Q
056219,000183: 43,3261 55357 TS SFAIL # SAVE Q FOR FAILURE LOCATION
056220,000184: 43,3262 55363 TS ALMCADR # FOR DISPLAY WITH BBANK AND ERCOUNT
056221,000185: 43,3263 25365 INCR ERCOUNT # KEEP TRACK OF NUMBER OF MALFUNCTIONS.
056222,000186: 43,3264 05571 TCALARM2 TC ALARM2
056223,000187: 43,3265 01102 OCT 01102 # SELF-CHECK MALFUNCTION INDICATOR
056224,000188: 43,3266 11362 CCS SMODE
056225,000189: 43,3267 34755 SIDLOOP CA S+ZERO
056226,000190: 43,3270 55362 TS SMODE
|
|
Page 1287 |
056228,000192: 43,3271 03336 TC SELFCHK # GO TO IDLE LOOP
056229,000193: 43,3272 01357 TC SFAIL # CONTINUE WITH SELF-CHECK
056230,000194:
056231,000195: 43,3273 10000 -1CHK CCS A
056232,000196: 43,3274 13246 TCF PRERRORS
056233,000197: 43,3275 13246 TCF PRERRORS
056234,000198: 43,3276 10000 CCS A
056235,000199: 43,3277 13246 TCF PRERRORS
056236,000200: 43,3300 00002 TC Q
056237,000201:
056238,000202: 43,3301 00006 SMODECHK EXTEND
056239,000203: 43,3302 23371 QXCH SKEEP1
056240,000204: 43,3303 03332 TC CHECKNJ # CHECK FOR NEW JOB
056241,000205: 43,3304 11362 CCS SMODE
056242,000206: 43,3305 03312 TC SOPTIONS
056243,000207: 43,3306 03303 TC SMODECHK +2 # TO BACKUP IDLE LOOP
056244,000208: 43,3307 03312 TC SOPTIONS
056245,000209: 43,3310 25366 INCR SCOUNT
056246,000210: 43,3311 01371 TC SKEEP1 # CONTINUE WITH SELF-CHECK
056247,000211:
056248,000212: 43,3312 65660 SOPTIONS AD S-7
056249,000213: 43,3313 00006 EXTEND
056250,000214: 43,3314 63316 BZMF +2 # FOR OPTIONS BELOW NINE.
056251,000215: 43,3315 03267 BNKOPTN TC SIDLOOP # ILLEGAL OPTION. GO TO IDLE LOOP.
056252,000216: 43,3316 25366 INCR SCOUNT # FOR OPTIONS BELOW NINE.
056253,000217: 43,3317 64757 AD S+7
056254,000218:
056255,000219: 43,3320 50000 INDEX A
056256,000220: 43,3321 03322 TC SOPTION1
056257,000221: 43,3322 01371 SOPTION1 TC SKEEP1 # WAS TC+TCF
056258,000222: 43,3323 01371 SOPTION2 TC SKEEP1 # WAS IN:OUT1
056259,000223: 43,3324 01371 SOPTION3 TC SKEEP1 # WAS COUNTCHK
056260,000224: 43,3325 03337 SOPTION4 TC ERASCHK
056261,000225: 43,3326 03520 SOPTION5 TC ROPECHK
056262,000226: 43,3327 01371 SOPTION6 TC SKEEP1
056263,000227: 43,3330 01371 SOPTION7 TC SKEEP1
056264,000228: 43,3331 01371 SOPTON10 TC SKEEP1 # CONTINUE WITH SELF-CHECK
056265,000229:
056266,000230: 43,3332 00006 CHECKNJ EXTEND
056267,000231: 43,3333 23361 QXCH SELFRET # SAVE RETURN ADDRESS WHILE TESTING NEWJOB
056268,000232: 43,3334 04635 TC POSTJUMP # TO SEE IF ANY JOBS HAVE BECOME ACTIVE.
056269,000233: 43,3335 03214 CADR ADVAN
056270,000234:
056271,000235: 43,3336 03301 SELFCHK TC SMODECHK # ** CHARLEY, COME IN HERE
056272,000236:
056273,000237: # SKEEP7 HOLDS LOWEST OF TWO ADDRESSES BEING CHECKED.
056274,000238: # SKEEP6 HOLDS B(X+1).
056275,000239: # SKEEP5 HOLDS B(X).
056276,000240: # SKEEP4 HOLDS C(EBANK) DURING ERASLOOP AND CHECKNJ.
056277,000241: # SKEEP3 HOLDS LAST ADDRESS BEING CHECKED (HIGHEST ADDRESS).
|
|
Page 1288 |
056279,000243: # SKEEP2 CONTROLS CHECKING OF NON-SWITCHABLE ERASABLE MEMORY WITH BANK NUMBERS IN EB.
056280,000244: # ERASCHK TAKES APPROXMATELY 7 SECONDS
056281,000245:
056282,000246: 43,3337 34753 ERASCHK CA S+1
056283,000247: 43,3340 55372 TS SKEEP2
056284,000248: 43,3341 34755 0EBANK CA S+ZERO
056285,000249: 43,3342 54003 TS EBANK
056286,000250: 43,3343 33234 CA ERASCON3 # 01461
056287,000251: 43,3344 55377 TS SKEEP7 # STARTING ADDRESS
056288,000252: 43,3345 35012 CA S10BITS # 01777
056289,000253: 43,3346 55373 TS SKEEP3 # LAST ADDRESS CHECKED
056290,000254: 43,3347 03367 TC ERASLOOP
056291,000255:
056292,000256: 43,3350 35007 E134567B CA ERASCON6 # 01400
056293,000257: 43,3351 55377 TS SKEEP7 # STARTING ADDRESS
056294,000258: 43,3352 35012 CA S10BITS # 01777
056295,000259: 43,3353 55373 TS SKEEP3 # LAST ADDRESS CHECKED
056296,000260: 43,3354 03367 TC ERASLOOP
056297,000261:
056298,000262: 43,3355 35007 2EBANK CA ERASCON6 # 01400
056299,000263: 43,3356 55377 TS SKEEP7 # STARTING ADDRESS
056300,000264: 43,3357 33235 CA ERASCON4 # 01773
056301,000265: 43,3360 55373 TS SKEEP3 # LAST ADDRESS CHECKED
056302,000266: 43,3361 03367 TC ERASLOOP
056303,000267:
056304,000268: 43,3362 55372 NOEBANK TS SKEEP2 # +0
056305,000269: 43,3363 33232 CA ERASCON1 # 00061
056306,000270: 43,3364 55377 TS SKEEP7 # STARTING ADDRESS
056307,000271: 43,3365 33233 CA ERASCON2 # 01373
056308,000272: 43,3366 55373 TS SKEEP3 # LAST ADDRESS CHECKED
056309,000273:
056310,000274: 43,3367 00004 ERASLOOP INHINT
056311,000275: 43,3370 30003 CA EBANK # STORES C(EBANK)
056312,000276: 43,3371 55374 TS SKEEP4
056313,000277: 43,3372 00006 EXTEND
056314,000278: 43,3373 51377 NDX SKEEP7
056315,000279: 43,3374 30001 DCA 0000
056316,000280: 43,3375 53376 DXCH SKEEP5 # STORES C(X) AND C(X+1) IN SKEEP6 AND 5.
056317,000281: 43,3376 31377 CA SKEEP7
056318,000282: 43,3377 55360 TS ERESTORE # IF RESTART, RESTORE C(X) AND C(X+1)
056319,000283: 43,3400 54001 TS L
056320,000284: 43,3401 24001 INCR L
056321,000285: 43,3402 50000 NDX A
056322,000286: 43,3403 52001 DXCH 0000 # PUTS OWN ADDRESS IN X AND X +1
056323,000287: 43,3404 51377 NDX SKEEP7
056324,000288: 43,3405 40001 CS 0001 # CS X+1
056325,000289: 43,3406 51377 NDX SKEEP7
056326,000290: 43,3407 60000 AD 0000 # AD X
056327,000291: 43,3410 03273 TC -1CHK
056328,000292: 43,3411 31360 CA ERESTORE # HAS ERASABLE BEEN RESTORED
056329,000293: 43,3412 00006 EXTEND
|
|
Page 1289 |
056331,000295: 43,3413 13437 BZF ELOOPFIN # YES, EXIT ERASLOOP.
056332,000296: 43,3414 00006 EXTEND
056333,000297: 43,3415 51377 NDX SKEEP7
056334,000298: 43,3416 40001 DCS 0000 # COMPLEMENT OF ADDRESS OF X AND X+1
056335,000299: 43,3417 51377 NDX SKEEP7
056336,000300: 43,3420 52001 DXCH 0000 # PUT COMPLEMENT OF ADDRESS OF X AND X+1
056337,000301: 43,3421 51377 NDX SKEEP7
056338,000302: 43,3422 40000 CS 0000 # CS X
056339,000303: 43,3423 51377 NDX SKEEP7
056340,000304: 43,3424 60001 AD 0001 # AD X+1
056341,000305: 43,3425 03273 TC -1CHK
056342,000306: 43,3426 31360 CA ERESTORE # HAS ERASABLE BEEN RESTORED
056343,000307: 43,3427 00006 EXTEND
056344,000308: 43,3430 13437 BZF ELOOPFIN # YES, EXIT ERASLOOP.
056345,000309: 43,3431 00006 EXTEND
056346,000310: 43,3432 31376 DCA SKEEP5
056347,000311: 43,3433 51377 NDX SKEEP7
056348,000312: 43,3434 52001 DXCH 0000 # PUT B(X) AND B(X+1) BACK INTO X AND X+1
056349,000313: 43,3435 34755 CA S+ZERO
056350,000314: 43,3436 55360 TS ERESTORE # IF RESTART, DO NOT RESTORE C(X), C(X+1)
056351,000315: 43,3437 00003 ELOOPFIN RELINT
056352,000316: 43,3440 03332 TC CHECKNJ # CHECK FOR NEW JOB
056353,000317: 43,3441 31374 CA SKEEP4 # REPLACES B(EBANK)
056354,000318: 43,3442 54003 TS EBANK
056355,000319: 43,3443 25377 INCR SKEEP7
056356,000320: 43,3444 41377 CS SKEEP7
056357,000321: 43,3445 61373 AD SKEEP3
056358,000322: 43,3446 00006 EXTEND
056359,000323: 43,3447 13451 BZF +2
056360,000324: 43,3450 03367 TC ERASLOOP # GO TO NEXT ADDRESS IN SAME BANK
056361,000325: 43,3451 11372 CCS SKEEP2
056362,000326: 43,3452 03362 TC NOEBANK
056363,000327: 43,3453 25372 INCR SKEEP2 # PUT +1 IN SKEEP2.
056364,000328: 43,3454 30003 CA EBANK
056365,000329: 43,3455 64743 AD SBIT9
056366,000330: 43,3456 54003 TS EBANK
056367,000331: 43,3457 63243 AD ERASCON5 # 76777, CHECK FOR BANK E2
056368,000332: 43,3460 00006 EXTEND
056369,000333: 43,3461 13355 BZF 2EBANK
056370,000334: 43,3462 10003 CCS EBANK
056371,000335: 43,3463 03350 TC E134567B # GO TO EBANKS 1,3,4,5,6, AND 7
056372,000336: 43,3464 35007 CA ERASCON6 # END OF ERASCHK
056373,000337: 43,3465 54003 TS EBANK
056374,000338:
056375,000339: # CNTRCHK PERFORMS A CS OF ALL REGISTERS FROM OCT. 60 THROUGH OCT. 10.
056376,000340: # INCLUDED ARE ALL COUNTERS, T6-1, CYCLE AND SHIFT, AND ALL RUPT REGISTERS
056377,000341:
056378,000342: 43,3466 34771 CNTRCHK CA CNTRCON # 00050
056379,000343: 43,3467 55372 CNTRLOOP TS SKEEP2
056380,000344: 43,3470 64750 AD SBIT4 # +10 OCTAL
056381,000345: 43,3471 50000 INDEX A
056382,000346: 43,3472 40000 CS 0000
|
|
Page 1290 |
056384,000348: 43,3473 11372 CCS SKEEP2
056385,000349: 43,3474 03467 TC CNTRLOOP
056386,000350:
056387,000351: # CYCLSHFT CHECKS THE CYCLE AND SHIFT REGISTERS
056388,000352:
056389,000353: 43,3475 33241 CYCLSHFT CA CONC+S1 # 25252
056390,000354: 43,3476 54020 TS CYR # C(CYR) = 12525
056391,000355: 43,3477 54022 TS CYL # C(CYL) = 52524
056392,000356: 43,3500 54021 TS SR # C(SR) = 12525
056393,000357: 43,3501 54023 TS EDOP # C(EDOP) = 00125
056394,000358: 43,3502 60020 AD CYR # 37777 C(CYR) = 45252
056395,000359: 43,3503 60022 AD CYL # 00-12524 C(CYL) = 25251
056396,000360: 43,3504 60021 AD SR # 00-25251 C(SR) = 05252
056397,000361: 43,3505 60023 AD EDOP # 00-25376 C(EDOP) = +0
056398,000362: 43,3506 63242 AD CONC+S2 # C(CONC+S2) = 52400
056399,000363: 43,3507 03273 TC -1CHK
056400,000364: 43,3510 60020 AD CYR # 45252
056401,000365: 43,3511 60022 AD CYL # 72523
056402,000366: 43,3512 60021 AD SR # 77775
056403,000367: 43,3513 60023 AD EDOP # 77775
056404,000368: 43,3514 64753 AD S+1 # 77776
056405,000369: 43,3515 03273 TC -1CHK
056406,000370:
056407,000371: 43,3516 25367 INCR SCOUNT +1
056408,000372: 43,3517 03301 TC SMODECHK
056409,000373:
056410,000374: # SKEEP1 HOLDS SUM
056411,000375: # SKEEP2 HOLDS PRESENT CONTENTS OF ADDRESS IN ROPECHK AND SHOWSUM ROUTINES
056412,000376: # SKEEP2 HOLDS BANK NUMBER IN LOW ORDER BITS DURING SHOWSUM DISPLAY
056413,000377: # SKEEP3 HOLDS PRESENT ADDRESS (00000 TO 01777 IN COMMON FIXED BANKS)
056414,000378: # (04000 TO 07777 IN FXFX BANKS)
056415,000379: # SKEEP3 HOLDS BUGGER WORD DURING SHOWSUM DISPLAY
056416,000380: # SKEEP4 HOLDS BANK NUMBER AND SUPER BANK NUMBER
056417,000381: # SKEEP5 COUNTS 2 SUCCESSIVE TC SELF WORDS
056418,000382: # SKEEP6 CONTROLS ROPECHK OR SHOWSUM OPTION
056419,000383: # SKEEP7 CONTROLS WHEN ROUNTINE IS IN COMMON FIXED OR FIXED FIXED BANKS
056420,000384:
056421,000385: 43,3520 34754 ROPECHK CA S-ZERO # *
056422,000386: 43,3521 55376 TS SKEEP6 # * -0 FOR ROPECHK.
056423,000387: 43,3522 34755 STSHOSUM CA S+ZERO # * SHOULD BE ROPECHK
056424,000388:
056425,000389: 43,3523 55374 TS SKEEP4 # BANK NUMBER
056426,000390: 43,3524 34753 CA S+1
056427,000391: 43,3525 55377 COMMFX TS SKEEP7
056428,000392: 43,3526 34755 CA S+ZERO
056429,000393: 43,3527 55371 TS SKEEP1
056430,000394: 43,3530 55373 TS SKEEP3
056431,000395: 43,3531 34753 CA S+1
056432,000396: 43,3532 55375 TS SKEEP5 # COUNTS DOWN 2 TC SELF WORDS
056433,000397: 43,3533 31374 COMADRS CA SKEEP4
056434,000398: 43,3534 54001 TS L # TO SET SUPER BANK
056435,000399: 43,3535 74350 MASK HI5
|
|
Page 1291 |
056437,000401: 43,3536 61373 AD SKEEP3
056438,000402: 43,3537 04651 TC SUPDACAL # SUPER DATA CALL
056439,000403: 43,3540 03563 TC ADSUM
056440,000404: 43,3541 64741 AD SBIT11 # 02000
056441,000405: 43,3542 03574 TC ADRSCHK
056442,000406:
056443,000407: 43,3543 40000 FXFX CS A
056444,000408: 43,3544 55377 TS SKEEP7
056445,000409: 43,3545 00006 EXTEND
056446,000410: 43,3546 13551 BZF +3
056447,000411: 43,3547 34740 CA SBIT12 # 04000, STARTING ADDRESS OF BANK 02
056448,000412: 43,3550 03552 TC +2
056449,000413: 43,3551 35020 CA SBNK03 # 06000, STARTING ADDRESS OF BANK 03
056450,000414: 43,3552 55373 TS SKEEP3
056451,000415: 43,3553 34755 CA S+ZERO
056452,000416: 43,3554 55371 TS SKEEP1
056453,000417: 43,3555 34753 CA S+1
056454,000418: 43,3556 55375 TS SKEEP5 # COUNTS DOWN 2 TC SELF WORDS
056455,000419: 43,3557 51373 FXADRS INDEX SKEEP3
056456,000420: 43,3560 30000 CA 0000
056457,000421: 43,3561 03563 TC ADSUM
056458,000422: 43,3562 03574 TC ADRSCHK
056459,000423:
056460,000424: 43,3563 55372 ADSUM TS SKEEP2
056461,000425: 43,3564 61371 AD SKEEP1
056462,000426: 43,3565 55371 TS SKEEP1
056463,000427: 43,3566 34755 CAF S+ZERO
056464,000428: 43,3567 61371 AD SKEEP1
056465,000429: 43,3570 55371 TS SKEEP1
056466,000430: 43,3571 41372 CS SKEEP2
056467,000431: 43,3572 61373 AD SKEEP3
056468,000432: 43,3573 00002 TC Q
056469,000433:
056470,000434: 43,3574 22000 ADRSCHK LXCH A
056471,000435: 43,3575 31373 CA SKEEP3
056472,000436: 43,3576 75012 MASK LOW10 # RELATIVE ADDRESS
056473,000437: 43,3577 64350 AD -MAXADRS # SUBTRACT MAX RELATIVE ADDRESS = 1777.
056474,000438: 43,3600 00006 EXTEND
056475,000439: 43,3601 13670 BZF SOPTION # CHECKSUM FINISHED IF LAST ADDRESS.
056476,000440: 43,3602 11375 CCS SKEEP5 # IS CHECKSUM FINISHED
056477,000441: 43,3603 03606 TC +3 # NO
056478,000442: 43,3604 03606 TC +2 # NO
056479,000443: 43,3605 03670 TC SOPTION # GO TO ROPECHK SHOWSUM OPTION
056480,000444: 43,3606 10001 CCS L # -0 MEANS A TC SELF WORD.
056481,000445: 43,3607 03616 TC CONTINU
056482,000446: 43,3610 03616 TC CONTINU
056483,000447: 43,3611 03616 TC CONTINU
056484,000448: 43,3612 11375 CCS SKEEP5
056485,000449: 43,3613 03617 TC CONTINU +1
056486,000450: 43,3614 37747 CA S-1
|
|
Page 1292 |
056488,000452: 43,3615 03617 TC CONTINU +1 # AD IN THE BUGGER WORD
056489,000453: 43,3616 34753 CONTINU CA S+1 # MAKE SURE TWO CONSECUTIVE TC SELF WORDS
056490,000454: 43,3617 55375 TS SKEEP5
056491,000455: 43,3620 11376 CCS SKEEP6 # *
056492,000456: 43,3621 10067 CCS NEWJOB # * +1, SHOWSUM
056493,000457: 43,3622 05122 TC CHANG1 # *
056494,000458: 43,3623 03625 TC +2 # *
056495,000459: 43,3624 03332 TC CHECKNJ # -0 IN SKEEP6 FOR ROPECHK
056496,000460:
056497,000461: 43,3625 25373 ADRS+1 INCR SKEEP3
056498,000462: 43,3626 11377 CCS SKEEP7
056499,000463: 43,3627 03533 TC COMADRS
056500,000464: 43,3630 03533 TC COMADRS
056501,000465: 43,3631 03557 TC FXADRS
056502,000466: 43,3632 03557 TC FXADRS
056503,000467:
056504,000468: 43,3633 41374 NXTBNK CS SKEEP4
056505,000469: 43,3634 63723 AD LSTBNKCH # LAST BANK TO BE CHECKED
056506,000470: 43,3635 00006 EXTEND
056507,000471: 43,3636 13131 BZF ENDSUMS # END OF SUMMING OF BANKS.
056508,000472: 43,3637 31374 CA SKEEP4
056509,000473: 43,3640 64741 AD SBIT11
056510,000474: 43,3641 55374 TS SKEEP4 # 37 TO 40 INCRMTS SKEEP4 BY END RND CARRY
056511,000475: 43,3642 03646 TC CHKSUPR
056512,000476: 43,3643 34735 17TO20 CA SBIT15
056513,000477: 43,3644 27374 ADS SKEEP4 # SET FOR BANK 20
056514,000478: 43,3645 03662 TC GONXTBNK
056515,000479: 43,3646 74350 CHKSUPR MASK HI5
056516,000480: 43,3647 00006 EXTEND
056517,000481: 43,3650 13660 BZF NXTSUPR # INCREMENT SUPER BANK
056518,000482: 43,3651 63240 27TO30 AD S13BITS
056519,000483: 43,3652 00006 EXTEND
056520,000484: 43,3653 13655 BZF +2 # BANK SET FOR 30
056521,000485: 43,3654 03662 TC GONXTBNK
056522,000486: 43,3655 33236 CA SIXTY # FIRST SUPER BANK
056523,000487: 43,3656 27374 ADS SKEEP4
056524,000488: 43,3657 03662 TC GONXTBNK
056525,000489: 43,3660 63237 NXTSUPR AD SUPRCON # SET BNK 30 + INCR SUPR BNK AND CANCEL
056526,000490: 43,3661 27374 ADS SKEEP4 # ERC BIT OF THE 37 TO 40 ADVANCE.
056527,000491: 43,3662 11377 GONXTBNK CCS SKEEP7
056528,000492: 43,3663 03525 TC COMMFX
056529,000493: 43,3664 34753 CA S+1
056530,000494: 43,3665 03543 TC FXFX
056531,000495: 43,3666 34745 CA SBIT7 # HAS TO BE LARGER THAN NO OF FXSW BANKS.
056532,000496: 43,3667 03525 TC COMMFX
056533,000497:
056534,000498: 43,3670 31374 SOPTION CA SKEEP4
056535,000499: 43,3671 74350 MASK HI5 # = BANK BITS
056536,000500: 43,3672 04331 TC LEFT5
056537,000501: 43,3673 54001 TS L # BANK NUMBER BEFORE SUPER BANK
|
|
Page 1293 |
056539,000503: 43,3674 31374 CA SKEEP4
056540,000504: 43,3675 74357 MASK S8BITS # = SUPER BANK BITS
056541,000505: 43,3676 00006 EXTEND
056542,000506: 43,3677 13705 BZF SOPT # BEFORE SUPER BANK
056543,000507: 43,3700 54021 TS SR # SUPER BANK NECESSARY
056544,000508: 43,3701 30001 CA L
056545,000509: 43,3702 74757 MASK SEVEN
056546,000510: 43,3703 60021 AD SR
056547,000511: 43,3704 54001 TS L # BANK NUMBER WITH SUPER BANK
056548,000512: 43,3705 31376 SOPT CA SKEEP6 # *
056549,000513: 43,3706 00006 EXTEND # *
056550,000514: 43,3707 13711 BZF +2 # * ON -0 CONTINUE WITH ROPE CHECK.
056551,000515: 43,3710 03113 TC SDISPLAY # * ON +1 GO TO DISPLAY OF SUM.
056552,000516: 43,3711 11371 CCS SKEEP1 # FORCE SUM TO ABSOLUTE VALUE.
056553,000517: 43,3712 03714 TC +2
056554,000518: 43,3713 03715 TC +2
056555,000519: 43,3714 64753 AD S+1
056556,000520: 43,3715 55371 TS SKEEP1
056557,000521: 43,3716 40001 BNKCHK CS L # = - BANK NUMBER
056558,000522: 43,3717 61371 AD SKEEP1
056559,000523: 43,3720 67747 AD S-1
056560,000524: 43,3721 03273 TC -1CHK # CHECK SUM
056561,000525: 43,3722 03633 TC NXTBNK
056562,000526:
056563,000527: 43,3723 0067 EBANK= NEWJOB
056564,000528: 43,3723 66100 LSTBNKCH BBCON* # * CONSTANT, LAST BANK.
056565,000529:
End of include-file AGC_BLOCK_TWO_SELF-CHECK.agc. Parent file is MAIN.agc