GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS BY NASA 2021114-011 11:40 FEB. 26, 1971Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were obtained by digitally photographing
an Artemis 72 (Apollo 15-17 Command Module) program listing from a private
collection and then
modifying pre-existing Comanche 55 (Apollo 11) source files to
incorporate changes. Photography was by Ron Burkey, and transcription
was performed by a team of volunteers. Note that the page images
presented online are of reduced quality, and that additional images
may be 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 072 OF AGC PROGRAM ARTEMIS BY NASA 2021114-011 11:40 FEB. 26, 1971Note that the date is the date of the printout, not the date of the program revision. |
059673,000002: ## Copyright: Public domain.
059674,000003: ## Filename: AGC_BLOCK_TWO_SELF_CHECK.agc
059675,000004: ## Purpose: Part of the source code for Artemis (i.e., Colossus 3),
059676,000005: ## build 072. This is for the Command Module's (CM)
059677,000006: ## Apollo Guidance Computer (AGC), for
059678,000007: ## Apollo 15-17.
059679,000008: ## Assembler: yaYUL
059680,000009: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
059681,000010: ## Website: www.ibiblio.org/apollo/index.html
059682,000011: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Artemis072/
059683,000012: ## Mod history: 2009-08-18 JL Adapted from corresponding Comanche 055 file.
059684,000013: ## 2010-02-20 RSB Un-##'d this header.
059685,000014: ## 2017-01-21 RSB Proofed comment text by diff'ing vs Comanche 55
059686,000015: ## and corrected errors found.
059687,000016:
|
|
Page 1392 |
059689,000018:
059690,000019: # PROGRAM DESCRIPTION DATE 20 DECEMBER 1967
059691,000020: # PROGRAM NAME - SELF-CHECK LOG SECTION AGC BLOCK TWO SELF-CHECK
059692,000021: # MOD NO - 1 ASSEMBLY SUBROUTINE UTILITYM REV 25
059693,000022: # MOD BY - GAUNTT
059694,000023:
059695,000024: # FUNCTIONAL DESCRIPTION
059696,000025:
059697,000026: # PROGRAM HAS TWO MAIN PARTS. THE FIRST IS SELF-CHECK WHICH RUNS AS A ZERO PRIORITY JOB WITH NO CORE SET, AS
059698,000027: # PART OF THE BACK-UP IDLE LOOP. THE SECOND IS SHOW-BANKSUM WHICH RUNS AS A REGULAR EXECUTIVE JOB WITH ITS OWN
059699,000028: # STARTING VERB.
059700,000029: # THE PURPOSE OF SELF-CHECK IS TO CHECK OUT VARIOUS PARTS OF THE COMPUTER AS OUTLINED BELOW IN THE OPTIONS.
059701,000030: # THE PURPOSE OF SHOW-BANKSUM IS TO DISPLAY THE SUM OF EACH BANK, ONE AT A TIME.
059702,000031: # IN ALL THERE ARE 7 POSSIBLE OPTIONS IN THIS BLOCK II VERSION OF SELF-CHECK. MORE DETAIL DESCRIPTION MAY BE
059703,000032: # FOUND IN E-2065 BLOCK II AGC SELF-CHECK AND SHOW BANKSUM BY EDWIN D. SMALLY DECEMBER 1966, AND ADDENDA 2 AND 3.
059704,000033: # THE DIFFERENT OPTIONS ARE CONTROLLED BY PUTTING DIFFERENT NUMBERS IN THE SMODE REGISTER (NOUN 27). BELOW IS
059705,000034: # A DESCRIPTION OF WHAT PARTS OF THE COMPUTER THAT ARE CHECKED BY THE OPTIONS, AND THE CORRESPONDING NUMBER, IN
059706,000035: # OCTAL, TO LOAD INTO SMODE.
059707,000036: # +-4 ERASABLE MEMORY
059708,000037: # +-5 FIXED MEMORY
059709,000038: # +-1,2,3,6,7,10 EVERYTHING IN OPTIONS 4 AND 5.
059710,000039: # -0 SAME AS +-10 UNTIL AN ERROR IS DETECTED.
059711,000040: # +0 NO CHECK, PUTS COMPUTER INTO THE BACKUP IDLE LOOP.
059712,000041:
059713,000042: # WARNINGS
059714,000043:
059715,000044: # USE OF E MEMORY RESERVED FOR SELF-CHECK (EVEN IN IDLE LOOP) AS TEMP STORAGE BY OTHER PROGRAMS IS DANGEROUS.
059716,000045: # SMODE SET GREATER THAN OCT 10 PUTS COMPUTER INTO BACKUP IDLE LOOP.
059717,000046:
059718,000047: # CALLING SEQUENCE
059719,000048:
059720,000049: # TO CALL SELF-CHECK KEY IN
059721,000050: # V 21 N 27 E OPTION NUMBER E
059722,000051: # TO CALL SHOW-BANKSUM KEY IN
059723,000052: # V 91 E DISPLAYS FIRST BANK
059724,000053: # V 33 E PROCEED, DISPLAYS NEXT BANK
059725,000054:
059726,000055:
059727,000056: # EXIT MODES, NORMAL AND ALARM
059728,000057:
059729,000058: # SELF-CHECK NORMALLY CONTINUES INDEFINITELY UNLESS THERE IS AN ERROR DETECTED. IF SO + OPTION NUMBERS PUT
059730,000059: # COMPUTER INTO BACKUP IDLE LOOP, - OPTION NUMBERS RESTART THE OPTION.
059731,000060: # THE -0 OPTION PROCEEDS FROM THE LINE FOLLOWING THE LINE WHERE THE ERROR WAS DETECTED.
059732,000061: # SHOW-BANKSUM PROCEEDS UNTIL A TERMINATE IS KEYED IN (V 34 E). THE COMPUTER IS PUT INTO THE BACKUP IDLE LOOP
059733,000062:
059734,000063:
059735,000064: # OUTPUT
|
|
Page 1393 |
059737,000066: # SELF-CHECK UPON DETECTING AN ERROR LOADS THE SELF-CHECK ALARM CONSTANT (01102) INTO THE FAILREG SET AND
059738,000067: # TURNS ON THE ALARM LIGHT. THE OPERATOR MAY THEN DISPLAY THE THREE FAILREGS BY KEYING IN V 05 N 09 E. FOR FURTHER
059739,000068: # 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,
059740,000069: # IN R2 THE BBCON OF SELF-CHECK, AND IN R3 THE TOTAL NUMBER OF ERRORS DETECTED BY SELF-CHECK SINCE THE LAST MAN
059741,000070: # INITIATED FRESH START (SLAP1).
059742,000071: # SHOW-BANKSUM STARTING WITH BANK 0 DISPLAYS IN R1 THE BANK SUM (A +-NUMBER EQUAL TO THE BANK NUMBER), IN R2
059743,000072: # THE BANK NUMBER, AND IN R3 THE BUGGER WORD.
059744,000073:
059745,000074:
059746,000075: # ERASABLE INITIALIZATION REQUIRED
059747,000076:
059748,000077: # ACCOMPLISHED BY FRESH START
059749,000078: # SMODE SET TO +0
059750,000079:
059751,000080: # DEBRIS
059752,000081:
059753,000082: # ALL EXITS FROM THE CHECK OF ERASABLE (ERASCHK) RESTORE ORIGINAL CONTENTS TO REGISTERS UNDER CHECK.
059754,000083: # EXCEPTION IS A RESTART. RESTART THAT OCCURS DURING ERASCHK RESTORES ERASABLE, UNLESS THERE IS EVIDENCE TO DOUBT
059755,000084: # E MEMORY, IN WHICH CASE PROGRAM THEN DOES A FRESH START (DOFSTART).
059756,000085:
059757,000086: 43,2000 SETLOC SELFCHEC
059758,000087: 43,2000 BANK
059759,000088:
059760,000089: 43,3166 COUNT* $$/SELF
059761,000090: 43,3166 4770 SBIT1 EQUALS BIT1
059762,000091: 43,3166 4767 SBIT2 EQUALS BIT2
059763,000092: 43,3166 4766 SBIT3 EQUALS BIT3
059764,000093: 43,3166 4765 SBIT4 EQUALS BIT4
059765,000094: 43,3166 4764 SBIT5 EQUALS BIT5
059766,000095: 43,3166 4763 SBIT6 EQUALS BIT6
059767,000096: 43,3166 4762 SBIT7 EQUALS BIT7
059768,000097: 43,3166 4761 SBIT8 EQUALS BIT8
059769,000098: 43,3166 4760 SBIT9 EQUALS BIT9
059770,000099: 43,3166 4757 SBIT10 EQUALS BIT10
059771,000100: 43,3166 4756 SBIT11 EQUALS BIT11
059772,000101: 43,3166 4755 SBIT12 EQUALS BIT12
059773,000102: 43,3166 4754 SBIT13 EQUALS BIT13
059774,000103: 43,3166 4753 SBIT14 EQUALS BIT14
059775,000104: 43,3166 4752 SBIT15 EQUALS BIT15
059776,000105:
059777,000106: 43,3166 4772 S+ZERO EQUALS ZERO
059778,000107: 43,3166 4770 S+1 EQUALS BIT1
059779,000108: 43,3166 4767 S+2 EQUALS BIT2
059780,000109: 43,3166 6214 S+3 EQUALS THREE
059781,000110: 43,3166 4766 S+4 EQUALS FOUR
059782,000111: 43,3166 4773 S+5 EQUALS FIVE
059783,000112: 43,3166 6211 S+6 EQUALS SIX
059784,000113: 43,3166 4774 S+7 EQUALS SEVEN
|
|
Page 1394 |
059786,000115: 43,3166 4350 S8BITS EQUALS LOW8 # 00377
059787,000116: 43,3166 5004 CNTRCON = OCT50 # USED IN CNTRCHK
059788,000117: 43,3166 00061 ERASCON1 OCTAL 00061 # USED IN ERASCHK
059789,000118: 43,3167 01373 ERASCON2 OCTAL 01373 # USED IN ERASCHK
059790,000119: 43,3170 5024 ERASCON6 = OCT1400 # USED IN ERASCHK
059791,000120: 43,3170 5030 ERASCON3 EQUALS V06N49 # USED IN ERASCHK
059792,000121: 43,3170 01773 ERASCON4 OCTAL 01773 # USED IN ERASCHK
059793,000122: 43,3171 5041 S10BITS EQUALS LOW10 # 01777, USED IN ERASCHK
059794,000123: 43,3171 5050 SBNK03 EQUALS PRIO6 # 06000, USED IN ROPECHK
059795,000124: 43,3171 4344 -MAXADRS = HI5 # FOR ROPECHK
059796,000125: 43,3171 5010 SIXTY EQUALS SUPER011
059797,000126: 43,3171 60017 SUPRCON OCTAL 60017 # USED IN ROPECHK
059798,000127: 43,3172 17777 S13BITS OCTAL 17777
059799,000128: 43,3173 25252 CONC+S1 OCTAL 25252 # USED IN CYCLSHFT
059800,000129: 43,3174 52400 CONC+S2 OCTAL 52400 # USED IN CYCLSHFT
059801,000130: 43,3175 76777 ERASCON5 OCTAL 76777
059802,000131: 43,3176 5736 S-7 = OCT77770
059803,000132: 43,3176 6061 S-4 EQUALS NEG4
059804,000133: 43,3176 7700 S-3 EQUALS NEG3
059805,000134: 43,3176 7701 S-2 EQUALS NEG2
059806,000135: 43,3176 7702 S-1 EQUALS NEGONE
059807,000136: 43,3176 4771 S-ZERO EQUALS NEG0
059808,000137:
059809,000138: 43,3176 E3,1400 EBANK= LST1
059810,000139: 43,3176 01371 ADRS1 ADRES SKEEP1
059811,000140: 43,3177 03270 SELFADRS ADRES SELFCHK # SELFCHK RETURN ADDRESS. SHOULD BE PUT
059812,000141: # IN SELFRET WHEN GOING FROM SELFCHK TO
059813,000142: # SHOWSUM AND PUT IN SKEEP1 WHEN GOING
059814,000143: # FROM SHOWSUM TO SELF-CHECK.
059815,000144:
059816,000145: 43,3200 31360 PRERRORS CA ERESTORE # IS IT NECESSARY TO RESTORE ERASABLE
059817,000146: 43,3201 00006 EXTEND
059818,000147: 43,3202 13211 BZF ERRORS # NO
059819,000148: 43,3203 00006 EXTEND
059820,000149: 43,3204 31376 DCA SKEEP5
059821,000150: 43,3205 51377 INDEX SKEEP7
059822,000151: 43,3206 52001 DXCH 0000 # RESTORE THE TWO ERASABLE REGISTERS
059823,000152: 43,3207 34772 CA S+ZERO
059824,000153: 43,3210 55360 TS ERESTORE
059825,000154: 43,3211 00004 ERRORS INHINT
059826,000155: 43,3212 30002 CA Q
059827,000156: 43,3213 55357 TS SFAIL # SAVE Q FOR FAILURE LOCATION
059828,000157: 43,3214 55363 TS ALMCADR # FOR DISPLAY WITH BBANK AND ERCOUNT
059829,000158: 43,3215 25365 INCR ERCOUNT # KEEP TRACK OF NUMBER OF MALFUNCTIONS.
059830,000159: 43,3216 05673 TCALARM2 TC ALARM2
059831,000160: 43,3217 01102 OCT 01102 # SELF-CHECK MALFUNCTION INDICATOR
059832,000161: 43,3220 11362 CCS SMODE
059833,000162: 43,3221 34772 SIDLOOP CA S+ZERO
059834,000163: 43,3222 55362 TS SMODE
059835,000164: 43,3223 03270 TC SELFCHK # GO TO IDLE LOOP
|
|
Page 1395 |
059837,000166: 43,3224 01357 TC SFAIL # CONTINUE WITH SELF-CHECK
059838,000167:
059839,000168: 43,3225 10000 -1CHK CCS A
059840,000169: 43,3226 13200 TCF PRERRORS
059841,000170: 43,3227 13200 TCF PRERRORS
059842,000171: 43,3230 10000 CCS A
059843,000172: 43,3231 13200 TCF PRERRORS
059844,000173: 43,3232 00002 TC Q
059845,000174:
059846,000175: 43,3233 00006 SMODECHK EXTEND
059847,000176: 43,3234 23371 QXCH SKEEP1
059848,000177: 43,3235 03264 TC CHECKNJ # CHECK FOR NEW JOB
059849,000178: 43,3236 11362 CCS SMODE
059850,000179: 43,3237 03244 TC SOPTIONS
059851,000180: 43,3240 03235 TC SMODECHK +2 # TO BACKUP IDLE LOOP
059852,000181: 43,3241 03244 TC SOPTIONS
059853,000182: 43,3242 25366 INCR SCOUNT
059854,000183: 43,3243 01371 TC SKEEP1 # CONTINUE WITH SELF-CHECK
059855,000184:
059856,000185: 43,3244 65736 SOPTIONS AD S-7
059857,000186: 43,3245 00006 EXTEND
059858,000187: 43,3246 63250 BZMF +2 # FOR OPTIONS BELOW NINE.
059859,000188: 43,3247 03221 BNKOPTN TC SIDLOOP # ILLEGAL OPTION. GO TO IDLE LOOP.
059860,000189: 43,3250 25366 INCR SCOUNT # FOR OPTIONS BELOW NINE.
059861,000190: 43,3251 64774 AD S+7
059862,000191:
059863,000192: 43,3252 50000 INDEX A
059864,000193: 43,3253 03254 TC SOPTION1
059865,000194: 43,3254 01371 SOPTION1 TC SKEEP1 # WAS TC+TCF
059866,000195: 43,3255 01371 SOPTION2 TC SKEEP1 # WAS IN:OUT1
059867,000196: 43,3256 01371 SOPTION3 TC SKEEP1 # WAS COUNTCHK
059868,000197: 43,3257 03271 SOPTION4 TC ERASCHK
059869,000198: 43,3260 03452 SOPTION5 TC ROPECHK
059870,000199: 43,3261 01371 SOPTION6 TC SKEEP1
059871,000200: 43,3262 01371 SOPTION7 TC SKEEP1
059872,000201: 43,3263 01371 SOPTON10 TC SKEEP1 # CONTINUE WITH SELF-CHECK
059873,000202:
059874,000203: 43,3264 00006 CHECKNJ EXTEND
059875,000204: 43,3265 23361 QXCH SELFRET # SAVE RETURN ADDRESS WHILE TESTING NEWJOB
059876,000205: 43,3266 04655 TC POSTJUMP # TO SEE IF ANY JOBS HAVE BECOME ACTIVE.
059877,000206: 43,3267 03177 CADR ADVAN
059878,000207:
059879,000208: 43,3270 03233 SELFCHK TC SMODECHK # ** CHARLEY, COME IN HERE
059880,000209:
059881,000210: # SKEEP7 HOLDS LOWEST OF TWO ADDRESSES BEING CHECKED.
059882,000211: # SKEEP6 HOLDS B(X+1).
059883,000212: # SKEEP5 HOLDS B(X).
059884,000213: # SKEEP4 HOLDS C(EBANK) DURING ERASLOOP AND CHECKNJ.
059885,000214: # SKEEP3 HOLDS LAST ADDRESS BEING CHECKED (HIGHEST ADDRESS).
059886,000215: # SKEEP2 CONTROLS CHECKING OF NON-SWITCHABLE ERASABLE MEMORY WITH BANK NUMBERS IN EB.
|
|
Page 1396 |
059888,000217: # ERASCHK TAKES APPROXMATELY 7 SECONDS
059889,000218:
059890,000219: 43,3271 34770 ERASCHK CA S+1
059891,000220: 43,3272 55372 TS SKEEP2
059892,000221: 43,3273 34772 0EBANK CA S+ZERO
059893,000222: 43,3274 54003 TS EBANK
059894,000223: 43,3275 35030 CA ERASCON3 # 01461
059895,000224: 43,3276 55377 TS SKEEP7 # STARTING ADDRESS
059896,000225: 43,3277 35041 CA S10BITS # 01777
059897,000226: 43,3300 55373 TS SKEEP3 # LAST ADDRESS CHECKED
059898,000227: 43,3301 03321 TC ERASLOOP
059899,000228:
059900,000229: 43,3302 35024 E134567B CA ERASCON6 # 01400
059901,000230: 43,3303 55377 TS SKEEP7 # STARTING ADDRESS
059902,000231: 43,3304 35041 CA S10BITS # 01777
059903,000232: 43,3305 55373 TS SKEEP3 # LAST ADDRESS CHECKED
059904,000233: 43,3306 03321 TC ERASLOOP
059905,000234:
059906,000235: 43,3307 35024 2EBANK CA ERASCON6 # 01400
059907,000236: 43,3310 55377 TS SKEEP7 # STARTING ADDRESS
059908,000237: 43,3311 33170 CA ERASCON4 # 01773
059909,000238: 43,3312 55373 TS SKEEP3 # LAST ADDRESS CHECKED
059910,000239: 43,3313 03321 TC ERASLOOP
059911,000240:
059912,000241: 43,3314 55372 NOEBANK TS SKEEP2 # +0
059913,000242: 43,3315 33166 CA ERASCON1 # 00061
059914,000243: 43,3316 55377 TS SKEEP7 # STARTING ADDRESS
059915,000244: 43,3317 33167 CA ERASCON2 # 01373
059916,000245: 43,3320 55373 TS SKEEP3 # LAST ADDRESS CHECKED
059917,000246:
059918,000247: 43,3321 00004 ERASLOOP INHINT
059919,000248: 43,3322 30003 CA EBANK # STORES C(EBANK)
059920,000249: 43,3323 55374 TS SKEEP4
059921,000250: 43,3324 00006 EXTEND
059922,000251: 43,3325 51377 NDX SKEEP7
059923,000252: 43,3326 30001 DCA 0000
059924,000253: 43,3327 53376 DXCH SKEEP5 # STORES C(X) AND C(X+1) IN SKEEP6 AND 5.
059925,000254: 43,3330 31377 CA SKEEP7
059926,000255: 43,3331 55360 TS ERESTORE # IF RESTART, RESTORE C(X) AND C(X+1)
059927,000256: 43,3332 54001 TS L
059928,000257: 43,3333 24001 INCR L
059929,000258: 43,3334 50000 NDX A
059930,000259: 43,3335 52001 DXCH 0000 # PUTS OWN ADDRESS IN X AND X +1
059931,000260: 43,3336 51377 NDX SKEEP7
059932,000261: 43,3337 40001 CS 0001 # CS X+1
059933,000262: 43,3340 51377 NDX SKEEP7
059934,000263: 43,3341 60000 AD 0000 # AD X
059935,000264: 43,3342 03225 TC -1CHK
059936,000265: 43,3343 31360 CA ERESTORE # HAS ERASABLE BEEN RESTORED
059937,000266: 43,3344 00006 EXTEND
059938,000267: 43,3345 13371 BZF ELOOPFIN # YES, EXIT ERASLOOP.
|
|
Page 1397 |
059940,000269: 43,3346 00006 EXTEND
059941,000270: 43,3347 51377 NDX SKEEP7
059942,000271: 43,3350 40001 DCS 0000 # COMPLEMENT OF ADDRESS OF X AND X+1
059943,000272: 43,3351 51377 NDX SKEEP7
059944,000273: 43,3352 52001 DXCH 0000 # PUT COMPLEMENT OF ADDRESS OF X AND X+1
059945,000274: 43,3353 51377 NDX SKEEP7
059946,000275: 43,3354 40000 CS 0000 # CS X
059947,000276: 43,3355 51377 NDX SKEEP7
059948,000277: 43,3356 60001 AD 0001 # AD X+1
059949,000278: 43,3357 03225 TC -1CHK
059950,000279: 43,3360 31360 CA ERESTORE # HAS ERASABLE BEEN RESTORED
059951,000280: 43,3361 00006 EXTEND
059952,000281: 43,3362 13371 BZF ELOOPFIN # YES, EXIT ERASLOOP.
059953,000282: 43,3363 00006 EXTEND
059954,000283: 43,3364 31376 DCA SKEEP5
059955,000284: 43,3365 51377 NDX SKEEP7
059956,000285: 43,3366 52001 DXCH 0000 # PUT B(X) AND B(X+1) BACK INTO X AND X+1
059957,000286: 43,3367 34772 CA S+ZERO
059958,000287: 43,3370 55360 TS ERESTORE # IF RESTART, DO NOT RESTORE C(X), C(X+1)
059959,000288: 43,3371 00003 ELOOPFIN RELINT
059960,000289: 43,3372 03264 TC CHECKNJ # CHECK FOR NEW JOB
059961,000290: 43,3373 31374 CA SKEEP4 # REPLACES B(EBANK)
059962,000291: 43,3374 54003 TS EBANK
059963,000292: 43,3375 25377 INCR SKEEP7
059964,000293: 43,3376 41377 CS SKEEP7
059965,000294: 43,3377 61373 AD SKEEP3
059966,000295: 43,3400 00006 EXTEND
059967,000296: 43,3401 13403 BZF +2
059968,000297: 43,3402 03321 TC ERASLOOP # GO TO NEXT ADDRESS IN SAME BANK
059969,000298: 43,3403 11372 CCS SKEEP2
059970,000299: 43,3404 03314 TC NOEBANK
059971,000300: 43,3405 25372 INCR SKEEP2 # PUT +1 IN SKEEP2.
059972,000301: 43,3406 30003 CA EBANK
059973,000302: 43,3407 64760 AD SBIT9
059974,000303: 43,3410 54003 TS EBANK
059975,000304: 43,3411 63175 AD ERASCON5 # 76777, CHECK FOR BANK E2
059976,000305: 43,3412 00006 EXTEND
059977,000306: 43,3413 13307 BZF 2EBANK
059978,000307: 43,3414 10003 CCS EBANK
059979,000308: 43,3415 03302 TC E134567B # GO TO EBANKS 1,3,4,5,6, AND 7
059980,000309: 43,3416 35024 CA ERASCON6 # END OF ERASCHK
059981,000310: 43,3417 54003 TS EBANK
059982,000311:
059983,000312: # CNTRCHK PERFORMS A CS OF ALL REGISTERS FROM OCT. 60 THROUGH OCT. 10.
059984,000313: # INCLUDED ARE ALL COUNTERS, T6-1, CYCLE AND SHIFT, AND ALL RUPT REGISTERS
059985,000314:
059986,000315: 43,3420 35004 CNTRCHK CA CNTRCON # 00050
059987,000316: 43,3421 55372 CNTRLOOP TS SKEEP2
059988,000317: 43,3422 64765 AD SBIT4 # +10 OCTAL
059989,000318: 43,3423 50000 INDEX A
059990,000319: 43,3424 40000 CS 0000
059991,000320: 43,3425 11372 CCS SKEEP2
|
|
Page 1398 |
059993,000322: 43,3426 03421 TC CNTRLOOP
059994,000323:
059995,000324: # CYCLSHFT CHECKS THE CYCLE AND SHIFT REGISTERS
059996,000325:
059997,000326: 43,3427 33173 CYCLSHFT CA CONC+S1 # 25252
059998,000327: 43,3430 54020 TS CYR # C(CYR) = 12525
059999,000328: 43,3431 54022 TS CYL # C(CYL) = 52524
060000,000329: 43,3432 54021 TS SR # C(SR) = 12525
060001,000330: 43,3433 54023 TS EDOP # C(EDOP) = 00125
060002,000331: 43,3434 60020 AD CYR # 37777 C(CYR) = 45252
060003,000332: 43,3435 60022 AD CYL # 00-12524 C(CYL) = 25251
060004,000333: 43,3436 60021 AD SR # 00-25251 C(SR) = 05252
060005,000334: 43,3437 60023 AD EDOP # 00-25376 C(EDOP) = +0
060006,000335: 43,3440 63174 AD CONC+S2 # C(CONC+S2) = 52400
060007,000336: 43,3441 03225 TC -1CHK
060008,000337: 43,3442 60020 AD CYR # 45252
060009,000338: 43,3443 60022 AD CYL # 72523
060010,000339: 43,3444 60021 AD SR # 77775
060011,000340: 43,3445 60023 AD EDOP # 77775
060012,000341: 43,3446 64770 AD S+1 # 77776
060013,000342: 43,3447 03225 TC -1CHK
060014,000343:
060015,000344: 43,3450 25367 INCR SCOUNT +1
060016,000345: 43,3451 03233 TC SMODECHK
060017,000346:
060018,000347: # SKEEP1 HOLDS SUM
060019,000348: # SKEEP2 HOLDS PRESENT CONTENTS OF ADDRESS IN ROPECHK AND SHOWSUM ROUTINES
060020,000349: # SKEEP2 HOLDS BANK NUMBER IN LOW ORDER BITS DURING SHOWSUM DISPLAY
060021,000350: # SKEEP3 HOLDS PRESENT ADDRESS (00000 TO 01777 IN COMMON FIXED BANKS)
060022,000351: # (04000 TO 07777 IN FXFX BANKS)
060023,000352: # SKEEP3 HOLDS BUGGER WORD DURING SHOWSUM DISPLAY
060024,000353: # SKEEP4 HOLDS BANK NUMBER AND SUPER BANK NUMBER
060025,000354: # SKEEP5 COUNTS 2 SUCCESSIVE TC SELF WORDS
060026,000355: # SKEEP6 CONTROLS ROPECHK OR SHOWSUM OPTION
060027,000356: # SKEEP7 CONTROLS WHEN ROUNTINE IS IN COMMON FIXED OR FIXED FIXED BANKS
060028,000357:
060029,000358: 43,3452 34771 ROPECHK CA S-ZERO # *
060030,000359: 43,3453 55376 TS SKEEP6 # * -0 FOR ROPECHK.
060031,000360: 43,3454 34772 STSHOSUM CA S+ZERO # * SHOULD BE ROPECHK
060032,000361:
060033,000362: 43,3455 55374 TS SKEEP4 # BANK NUMBER
060034,000363: 43,3456 34770 CA S+1
060035,000364: 43,3457 55377 COMMFX TS SKEEP7
060036,000365: 43,3460 34772 CA S+ZERO
060037,000366: 43,3461 55371 TS SKEEP1
060038,000367: 43,3462 55373 TS SKEEP3
060039,000368: 43,3463 34770 CA S+1
060040,000369: 43,3464 55375 TS SKEEP5 # COUNTS DOWN 2 TC SELF WORDS
060041,000370: 43,3465 31374 COMADRS CA SKEEP4
060042,000371: 43,3466 54001 TS L # TO SET SUPER BANK
060043,000372: 43,3467 74344 MASK HI5
060044,000373: 43,3470 61373 AD SKEEP3
|
|
Page 1399 |
060046,000375: 43,3471 04671 TC SUPDACAL # SUPER DATA CALL
060047,000376: 43,3472 03515 TC ADSUM
060048,000377: 43,3473 64756 AD SBIT11 # 02000
060049,000378: 43,3474 03526 TC ADRSCHK
060050,000379:
060051,000380: 43,3475 40000 FXFX CS A
060052,000381: 43,3476 55377 TS SKEEP7
060053,000382: 43,3477 00006 EXTEND
060054,000383: 43,3500 13503 BZF +3
060055,000384: 43,3501 34755 CA SBIT12 # 04000, STARTING ADDRESS OF BANK 02
060056,000385: 43,3502 03504 TC +2
060057,000386: 43,3503 35050 CA SBNK03 # 06000, STARTING ADDRESS OF BANK 03
060058,000387: 43,3504 55373 TS SKEEP3
060059,000388: 43,3505 34772 CA S+ZERO
060060,000389: 43,3506 55371 TS SKEEP1
060061,000390: 43,3507 34770 CA S+1
060062,000391: 43,3510 55375 TS SKEEP5 # COUNTS DOWN 2 TC SELF WORDS
060063,000392: 43,3511 51373 FXADRS INDEX SKEEP3
060064,000393: 43,3512 30000 CA 0000
060065,000394: 43,3513 03515 TC ADSUM
060066,000395: 43,3514 03526 TC ADRSCHK
060067,000396:
060068,000397: 43,3515 55372 ADSUM TS SKEEP2
060069,000398: 43,3516 61371 AD SKEEP1
060070,000399: 43,3517 55371 TS SKEEP1
060071,000400: 43,3520 34772 CAF S+ZERO
060072,000401: 43,3521 61371 AD SKEEP1
060073,000402: 43,3522 55371 TS SKEEP1
060074,000403: 43,3523 41372 CS SKEEP2
060075,000404: 43,3524 61373 AD SKEEP3
060076,000405: 43,3525 00002 TC Q
060077,000406:
060078,000407: 43,3526 22000 ADRSCHK LXCH A
060079,000408: 43,3527 31373 CA SKEEP3
060080,000409: 43,3530 75041 MASK LOW10 # RELATIVE ADDRESS
060081,000410: 43,3531 64344 AD -MAXADRS # SUBTRACT MAX RELATIVE ADDRESS = 1777.
060082,000411: 43,3532 00006 EXTEND
060083,000412: 43,3533 13622 BZF SOPTION # CHECKSUM FINISHED IF LAST ADDRESS.
060084,000413: 43,3534 11375 CCS SKEEP5 # IS CHECKSUM FINISHED
060085,000414: 43,3535 03540 TC +3 # NO
060086,000415: 43,3536 03540 TC +2 # NO
060087,000416: 43,3537 03622 TC SOPTION # GO TO ROPECHK SHOWSUM OPTION
060088,000417: 43,3540 10001 CCS L # -0 MEANS A TC SELF WORD.
060089,000418: 43,3541 03550 TC CONTINU
060090,000419: 43,3542 03550 TC CONTINU
060091,000420: 43,3543 03550 TC CONTINU
060092,000421: 43,3544 11375 CCS SKEEP5
060093,000422: 43,3545 03551 TC CONTINU +1
060094,000423: 43,3546 37702 CA S-1
060095,000424: 43,3547 03551 TC CONTINU +1 # AD IN THE BUGGER WORD
|
|
Page 1400 |
060097,000426: 43,3550 34770 CONTINU CA S+1 # MAKE SURE TWO CONSECUTIVE TC SELF WORDS
060098,000427: 43,3551 55375 TS SKEEP5
060099,000428: 43,3552 11376 CCS SKEEP6 # *
060100,000429: 43,3553 10067 CCS NEWJOB # * +1, SHOWSUM
060101,000430: 43,3554 05152 TC CHANG1 # *
060102,000431: 43,3555 03557 TC +2 # *
060103,000432: 43,3556 03264 TC CHECKNJ # -0 IN SKEEP6 FOR ROPECHK
060104,000433:
060105,000434: 43,3557 25373 ADRS+1 INCR SKEEP3
060106,000435: 43,3560 11377 CCS SKEEP7
060107,000436: 43,3561 03465 TC COMADRS
060108,000437: 43,3562 03465 TC COMADRS
060109,000438: 43,3563 03511 TC FXADRS
060110,000439: 43,3564 03511 TC FXADRS
060111,000440:
060112,000441: 43,3565 41374 NXTBNK CS SKEEP4
060113,000442: 43,3566 63655 AD LSTBNKCH # LAST BANK TO BE CHECKED
060114,000443: 43,3567 00006 EXTEND
060115,000444: 43,3570 12764 BZF ENDSUMS # END OF SUMMING OF BANKS.
060116,000445: 43,3571 31374 CA SKEEP4
060117,000446: 43,3572 64756 AD SBIT11
060118,000447: 43,3573 55374 TS SKEEP4 # 37 TO 40 INCRMTS SKEEP4 BY END RND CARRY
060119,000448: 43,3574 03600 TC CHKSUPR
060120,000449: 43,3575 34752 17TO20 CA SBIT15
060121,000450: 43,3576 27374 ADS SKEEP4 # SET FOR BANK 20
060122,000451: 43,3577 03614 TC GONXTBNK
060123,000452: 43,3600 74344 CHKSUPR MASK HI5
060124,000453: 43,3601 00006 EXTEND
060125,000454: 43,3602 13612 BZF NXTSUPR # INCREMENT SUPER BANK
060126,000455: 43,3603 63172 27TO30 AD S13BITS
060127,000456: 43,3604 00006 EXTEND
060128,000457: 43,3605 13607 BZF +2 # BANK SET FOR 30
060129,000458: 43,3606 03614 TC GONXTBNK
060130,000459: 43,3607 35010 CA SIXTY # FIRST SUPER BANK
060131,000460: 43,3610 27374 ADS SKEEP4
060132,000461: 43,3611 03614 TC GONXTBNK
060133,000462: 43,3612 63171 NXTSUPR AD SUPRCON # SET BNK 30 + INCR SUPR BNK AND CANCEL
060134,000463: 43,3613 27374 ADS SKEEP4 # ERC BIT OF THE 37 TO 40 ADVANCE.
060135,000464: 43,3614 11377 GONXTBNK CCS SKEEP7
060136,000465: 43,3615 03457 TC COMMFX
060137,000466: 43,3616 34770 CA S+1
060138,000467: 43,3617 03475 TC FXFX
060139,000468: 43,3620 34762 CA SBIT7 # HAS TO BE LARGER THAN NO OF FXSW BANKS.
060140,000469: 43,3621 03457 TC COMMFX
060141,000470:
060142,000471: 43,3622 31374 SOPTION CA SKEEP4
060143,000472: 43,3623 74344 MASK HI5 # = BANK BITS
060144,000473: 43,3624 04333 TC LEFT5
060145,000474: 43,3625 54001 TS L # BANK NUMBER BEFORE SUPER BANK
060146,000475: 43,3626 31374 CA SKEEP4
|
|
Page 1401 |
060148,000477: 43,3627 74350 MASK S8BITS # = SUPER BANK BITS
060149,000478: 43,3630 00006 EXTEND
060150,000479: 43,3631 13637 BZF SOPT # BEFORE SUPER BANK
060151,000480: 43,3632 54021 TS SR # SUPER BANK NECESSARY
060152,000481: 43,3633 30001 CA L
060153,000482: 43,3634 74774 MASK SEVEN
060154,000483: 43,3635 60021 AD SR
060155,000484: 43,3636 54001 TS L # BANK NUMBER WITH SUPER BANK
060156,000485: 43,3637 31376 SOPT CA SKEEP6 # *
060157,000486: 43,3640 00006 EXTEND # *
060158,000487: 43,3641 13643 BZF +2 # * ON -0 CONTINUE WITH ROPE CHECK.
060159,000488: 43,3642 02746 TC SDISPLAY # * ON +1 GO TO DISPLAY OF SUM.
060160,000489: 43,3643 11371 CCS SKEEP1 # FORCE SUM TO ABSOLUTE VALUE.
060161,000490: 43,3644 03646 TC +2
060162,000491: 43,3645 03647 TC +2
060163,000492: 43,3646 64770 AD S+1
060164,000493: 43,3647 55371 TS SKEEP1
060165,000494: 43,3650 40001 BNKCHK CS L # = - BANK NUMBER
060166,000495: 43,3651 61371 AD SKEEP1
060167,000496: 43,3652 67702 AD S-1
060168,000497: 43,3653 03225 TC -1CHK # CHECK SUM
060169,000498: 43,3654 03565 TC NXTBNK
060170,000499:
060171,000500: 43,3655 0067 EBANK= NEWJOB
060172,000501: 43,3655 66100 LSTBNKCH BBCON* # * CONSTANT, LAST BANK.
060173,000502:
060174,000503: 43,3656 30,2000 SBANK= LOWSUPER
End of include-file AGC_BLOCK_TWO_SELF-CHECK.agc. Parent file is MAIN.agc