AB16-CMT5

* NAME: AB16-CMT5 DOC 70181454000 REV E PAGE 1

0001 * NAME: AB16-CMT5 DOC 70181454000 REV E 0002 * 0003 * DESCRIPTION: MEMORY TEST FOR HONEYWELL CENTRAL PROCESSOR 0004 * UNITS 316, 516 AND 716 0005 * 0006 * 0007 * 0008 * 0009 * 0010 * 0011 * REVISION HISTORY: 0012 * REV DATE 0013 * 0014 * 0015 * E JUN 7, 73 (AB16-CMT5) 0016 * D JAN 25, 72 (AB16-CMT4) 0017 * C JAN 12, 71 (O16-CMT4) 0018 * B DEC 1, 70 (O16-CMT4) 0019 * A FEB 20, 70 (316-CMT1) 0020 * 0021 * 0022 * 0023 * 0024 * 0025 * 0026 * COPYRIGHT 1973 BY HONEYWELL INFORMATION SYSTEMS INC. 0027 * 0028 ************************************************************************ 0029 * 0030 EJCT
* NAME: AB16-CMT5 DOC 70181454000 REV E PAGE 2

0031 * DISTRIBUTION 0032 * 0033 * THIS PROGRAM IS INTENDED TO BE DISTRIBUTED IN A BINARY 0034 * (SELF-LOADING) FORM. EITHER PAL-AP (FOR PAPER TAPE) OR PAL-C 0035 * (FOR CARDS) FORMAT IS SATISFACTORY. THE PROGRAM IS COMPLETE AS 0036 * LOADED AND NO EXTERNAL LIBRARIES ARE REQUIRED. 0037 * 0038 * 0039 * PURPOSE 0040 * 0041 * TO TEST THE CORE MEMORY SUBSYSTEM USED IN THE H316, 0042 * 516 AND 716 COMPUTERS. 0043 * 0044 * 0045 * STORAGE 0046 * 0047 * ALL OF CORE, UP TO 32K. 0048 * 0049 * 0050 * TIMING 0051 * 0052 * MEMORY APPROX. TIME IN SECONDS FOR 0053 * SIZE 316 516 716 0054 * --- --- --- 0055 * 4K 10 6 5 0056 * 8K 20 9 8 0057 * 12K 30 13 11 0058 * 16K 40 17 14 0059 * 20K 50 20 16 0060 * 24K 60 24 19 0061 * 28K 70 27 22 0062 * 32K 80 30 25 0063 * 0064 * 0065 * USE 0066 * 0067 * LOAD AND START AT '1000, 0068 * IF PREVIOUSLY EXECUTED START AT LOCATION CONTAINED IN '20. 0069 * 0070 * WHENEVER THE PROGRAM IS MOVED THE STARTING 0071 * ADDRESS IS SAVED IN OCTAL LOCATION ('20). 0072 * 0073 * NOTE : WHEN ALL SWITCHES ARE RESET, THE PROGRAM WILL 0074 * DETERMINE THE CP TYPE AND SIZE AND WILL TEST ALL 0075 * OF MEMORY. 0076 * 0077 EJCT
* NAME: AB16-CMT5 DOC 70181454000 REV E PAGE 3

0078 * SENSE SWITCH USAGE 0079 * 0080 * SS1 SET - OPERATOR SETS TEST BOUNDS. 0081 * RESET - ALL AVAILABLE CORE TESTED EACH PASS. 0082 * 0083 * 0084 * SS2 SET - PROGRAM REMAINS AT PRESENT LOCATION. 0085 * RESET - PROGRAM RELOCATES ITSELF AFTER EACH PASS. 0086 * 0087 * 0088 * SS3 SET - SUPPRESS SINGLE ERROR MESSAGES. 0089 * RESET - TYPE EACH ERROR 0090 * 0091 * 0092 * REQUEST FOR NEW TEST BOUNDS (SWITCH ONE SET) 0093 * 0094 * ******************* 0095 * * 001750 LO . * RETAIN OLD LOW LIMIT 0096 * * 007777 HI 3777 * NEW HIGH LIMIT 0097 * ******************* 0098 * 0099 * ELEMENT EXPLANATION 0100 * 0101 * PERIOD OR = TERMINATE INPUT. IF NO VALUE 0102 * CARRIAGE RETURN HAS BEEN ENTERED, OLD VALUE 0103 * WILL BE RETAINED. 0104 * RUBOUT = RESTART INPUT 0105 * 0106 * NOTE : ANY ENTRIES OTHER THAN OCTAL WILL BE IGNORED. 0107 * THE LO MUST NOT BE HIGHER THAN THE HI. 0108 * 0109 * 0110 * OUTPUT MESSAGE FORMAT 0111 * 0112 * END OF PASS MESSAGE 0113 * 0114 * *********************************** 0115 * * PSXXXX LLLLLL HHHHHH ERYYYY * 0116 * *********************************** 0117 * 0118 * WHERE: 0119 * X = PASS COUNT 0120 * L = CURRENT LOW LIMIT 0121 * H = CURRENT HIGH LIMIT 0122 * Y = TOTAL ERROR COUNT (ONLY PRINTED IF NONZERO) 0123 * 0124 * FOLLOWED BY TOTAL ACCUMULATED BIT FAILURE BUFFER 0125 * IF ANY ERRORS THIS PASS 0126 EJCT
* NAME: AB16-CMT5 DOC 70181454000 REV E PAGE 4

0127 * ******************** 0128 * * BITS P D * P=PICKED 0129 * * 00 XXXX ZZZZ * D=DROPED 0130 * * THRU * 0131 * * 16 XXXX ZZZZ * 0132 * ******************** 0133 * 0134 * 0135 * ONLY THOSE BIT POSITIONS WHICH HAVE A FAILURE 0136 * HISTORY WILL BE PRINTED. 0137 * 0138 * 0139 * NOTE - THE 'BIT' FAILURE HISTORY AND THE ERROR COUNT 0140 * IS CLEARED ONLY ON A RESTART AT '1000 0141 * (RELOCATED IF REQUIRED). 0142 * 0143 * 0144 * 0145 * SINGLE ERROR PRINT OUT 0146 * 0147 * ************************************* 0148 * * L XXXXXX SB YYYYYY IS ZZZZZZ * 0149 * ************************************* 0150 * 0151 * WHERE: 0152 * L = LOCATION 0153 * SB= SHOULD BE 0154 * IS= ACTUAL 0155 * 0156 * 0157 * METHOD 0158 * 0159 * THIS PROGRAM WILL SEQUENTIALLY EXECUTE ALL FIVE 0160 * TEST PATTERN ROUTINES. THEY ARE RUN IN THE FOLLOWING ORDER- 0161 * (1) ADDRESS TEST 0162 * CHECKS EACH LOCATION FOR UNIQUENESS 0163 * 0164 * (2) WORST CASE PATTERN TEST. 0165 * A DOUBLE CHECKERBOARD PATTERN USEFUL FOR 0166 * SYSTEMS WITH MORE THAN 1 BANK. 0167 * 0168 * (3) COMPLEMENTED WORST CASE PATTERN TEST. 0169 * ONES COMPEMENT OF 2. 0170 * 0171 * (4) PSEUDO RANDOM NUMBER PATTERN TEST 0172 * A. A PSEUDO RANDOM NUMBER STRING. 0173 * B. VARIABLE LOAD ON POWER SUPPLY 0174 * 0175 * (5) BIT PATTERN TEST 0176 * MEMORY CLEARED TO ALL ZERO'S, THEN EACH
* NAME: AB16-CMT5 DOC 70181454000 REV E PAGE 5

0177 * MEMORY CELL WILL BE CHANGED TO ALL ONES, 0178 * READ,COMPLEMENTED,STORED AND REREAD. 0179 * 0180 * THE COMMON READ ROUTINE WILL ITERATE FOUR TIMES ON EACH 0181 * LOCATION TESTED,WITH AN ALTERNATE COMPLEMENTED PATTERN.THEREFORE 0182 * CREATING THE POSSIBILITY OF FOUR ERRORS FOR EACH LOCATION PER 0183 * ROUTINE,IN ORDER THAT THE TEST MAY BE CARRIED THROUGH COMPLETELY, 0184 * EACH LOCATION WILL BE RESET TO THE ORIGINAL TEST PATTERN UPON 0185 * THE EXTTING OF THIS ROUTINE. 0186 * 0187 * AT THE END OF EACH PASS. THE PROGRAM WILL 0188 * TEST THE MEMORY PARITY FLOP. IF IT IS SET, THE PROGRAM 0189 * WILL TYPE 'MP' AND HALT. THIS IS CONSIDERED A FATAL 0190 * ERROR AND RESTART IS NOT PERMITTED. 0191 * 0192 * SINCE THE PROGRAM CAN NOT DETERMINE IF A PARITY ERROR 0193 * OCCURRED ON AN INSTRUCTION FETCH, OPERAND FETCH OR 0194 * INDIRECT, IT IS SUGGESTED THAT THE OPERATOR PROCEED 0195 * AS FOLLOWS IN ORDER T0 LOCATE AN INFREQUENT ERROR: 0196 * 0197 * (1) LOCK PROGRAM (SET SSW2) AND TEST LIMITS IN ITS 0198 * PRESENT LOCATION. 0199 * 0200 * (2) SET UP LOCATION '63 FOR INTERRUPT TO A HALT. 0201 * 0202 * (3) DO A MANUAL SMK WITH BIT 15 AND ENB. 0203 * 0204 * (4) START WITHOUT MASTER CLEAR. 0205 * 0206 * IF THE ERROR IS SOLID IT CAN BE FOUND BY USING THE 0207 * FOLLOWING SHORT PROGRAM KEYED IN BY HAND IN ANY 0208 * AVAILABLE MEMORY. 0209 * 0210 * EXA 0211 * STA 0 0212 * RMP RMP 0213 * LDA 0,1 0214 * SPN 0215 * HLT 0216 * IRS 0 0217 * JMP RMP 0218 * 0219 * 0220 ************************************************************************ 0221 * 0222 LOAD ALLOW NO LOADER GENERATED LINKS 0223 ORG '120 0224 * 0225 * CORE SIZE AND TEST AREA LIMITS DEFINED 0226 *
* NAME: AB16-CMT5 DOC 70181454000 REV E PAGE 6

0227 00120 0 000000 COSI DAC ** CORE SIZING ROUTINE 0228 00121 000013 EXA 0229 00122 0 10 00123 JST *+1 0230 00123 0 000000 COSE DAC ** 0231 00124 0 02 00123 LDA COSE DETERMINE BOTTOM OF PROGRAM 0232 00125 0 05 00760 ERA ='123 0233 00126 101040 SNZ 0234 00127 0 01 00151 JMP COSC 0235 00130 0 03 00757 ANA ='77000 0236 00131 0 04 00674 STA NOW SAVE CURRENT DISPLACEMENT 0237 00132 0 02 00756 LDA ='21 0238 00133 0 04 00700 STA NFA 0239 00134 0 04 00676 STA CFA 0240 00135 0 02 00123 LDA COSE 0241 00136 0 07 00755 SUB =4 0242 00137 0 04 00701 STA NLA 0243 00140 0 04 00677 STA CLA 0244 00141 000021 COSD RMP 0245 00142 0 02 00674 LDA NOW FETCH THE CURRENT DISPLACEMLNT 0246 00143 0 06 00675 ADD NOWB AND ADD DISPLACEMENT IN PROGRAM 0247 00144 010000 OCT 10000 (STA 0) STORE THE ADDRESS 0248 00145 0 02 00674 LDA NOW AND FORWARD THE CURRENT PGM 0249 00146 110000 OCT 110000 (STA* 0) LOCATION TO THE SECOND SECTOR 0250 00147 101000 NOP 0251 00150 -0 01 00120 JMP* COSI 0252 * 0253 * 0254 * 0255 00151 0 02 00705 COSC LDA PNTZ WRITE ADDRESS AS CONTENTS INTO MEMORY 0256 00152 0 04 00676 STA CFA LOCATIONS ABOVE PROGRAM 0257 00153 0 04 00700 STA NFA 0258 00154 140040 COSS CRA 0259 00155 0 04 00000 STA 0 0260 00156 0 12 00676 IRS CFA 0261 00157 0 02 00676 LDA CFA 0262 00160 -0 04 00676 STA* CFA 0263 00161 0 02 00000 LDA 0 0264 00162 100040 SZE 0265 00163 0 01 00172 JMP COSB 0266 00164 -0 02 00676 LDA* CFA 0267 00165 0 11 00676 CAS CFA 0268 00166 0 01 00170 JMP *+2 0269 00167 0 01 00154 JMP COSS 0270 00170 100040 SZE 0271 00171 0 01 00154 JMP COSS 0272 00172 0 02 00676 COSB LDA CFA 0273 00173 0 07 00754 SUB =1 0274 00174 0 04 00701 STA NLA 0275 00175 0 04 00677 STA CLA 0276 00176 140040 CRA
* NAME: AB16-CMT5 DOC 70181454000 REV E PAGE 7

0277 00177 0 04 00674 STA NOW SAVE CURRENT DISPLACEMENT 0278 00200 0 02 00700 LDA NFA 0279 00201 0 04 00676 STA CFA 0280 00202 0 01 00141 JMP COSD 0281 * 0282 * TWO SPACES 0283 * 0284 00203 0 000000 SPAC DAC ** 0285 00204 0 10 00222 JST OPOW 0286 00205 120240 OCT 120240 0287 00206 -0 01 00203 JMP* SPAC 0288 * 0289 * INPUT ONE CHARACTER ROUTINE 0290 * 0291 00207 0 000000 IPOC DAC ** SUBROUTINE ENTRY 0292 00210 34 0104 SKS '104 TEST DEVICE 0293 00211 0 01 00210 JMP *-1 FOR READY 0294 00212 14 0004 OCP '4 SET DEVICE IN INPUT MODE 0295 00213 54 1004 INA '1004 INPUT ONE CHAR 0296 00214 0 01 00213 JMP *-1 WAIT LOOP 0297 00215 0 03 00753 ANA ='177 SET PARITY BIT 0298 00216 0 05 00752 ERA ='200 TO MARKING 0299 00217 -0 04 00207 STA* IPOC STORE BACK 0300 00220 0 12 00207 IRS IPOC UPDATE RETURN 0301 00221 -0 01 00207 JMP* IPOC RETURN 0302 * 0303 * OUTPUT TWO CHARACTERS ROUTINE 0304 * 0305 00222 0 000000 OPOW DAC ** OUTPUT ONE WORD 0306 00223 -0 02 00222 LDA* OPOW REACH BACK FOR DATA 0307 00224 141340 ICA 0308 00225 0 12 00222 IRS OPOW 0309 00226 34 0104 SKS '104 0310 00227 0 01 00226 JMP *-1 0311 00230 14 0104 OCP '104 0312 00231 74 0004 OTA '4 0313 00232 0 01 00231 JMP *-1 0314 00233 141340 ICA 0315 00234 74 0004 OTA '4 0316 00235 0 01 00234 JMP *-1 0317 00236 140040 CRA 0318 00237 -0 01 00222 JMP* OPOW 0319 * 0320 * LINE FEED AND CARRIAGE RETURN 0321 * 0322 00240 0 000000 LFCR DAC ** 0323 00241 0 10 00222 JST OPOW 0324 00242 106612 OCT 106612 0325 00243 -0 01 00240 JMP* LFCR 0326 *
* NAME: AB16-CMT5 DOC 70181454000 REV E PAGE 8

0327 * OUTPUT CONTROL ROUTINE 0328 * 0329 00244 0 000000 OPCO DAC ** 0330 00245 -0 02 00244 LDA* OPCO 0331 00246 0 06 00674 ADD NOW ADD DISPLACEMENT TO DAC 0332 00247 0 04 00261 STA PNTX POINTER 0333 00250 0 12 00244 IRS OPCO 0334 00251 -0 02 00261 OPNW LDA* PNTX 0335 00252 101040 SNZ 0336 00253 -0 01 00244 JMP* OPCO 0337 00254 0 04 00256 STA *+2 0338 00255 0 10 00222 JST OPOW 0339 00256 0 000000 DAC ** 0340 00257 0 12 00261 IRS PNTX UPDATE POINTER 0341 00260 0 01 00251 JMP OPNW 0342 00261 0 000000 PNTX DAC ** 0343 * 0344 * OUTPUT SINGLE ERROR 0345 * 0346 00262 0 000000 TYSE DAC ** OUTPUT SINGLE ERROR SUBROUTINE 0347 00263 0 02 00751 LDA =-3 COUNT 0348 00264 0 04 00442 STA REJT+1 0349 00265 0 10 00240 JST LFCR LFCR 0350 00266 0 02 00665 LDA AME1 SET UP ERROR MESSAGE 0351 00267 0 04 00271 STA EME1 ERROR MESSAGE 0352 00270 0 10 00244 TYRE JST OPCO OUTPUT MESSAGE 0353 00271 0 000000 EME1 DAC ** 0354 00272 0 10 00203 JST SPAC 0355 00273 -0 02 00262 LDA* TYSE LOCATION OF ERROR 0356 00274 0 10 00362 JST CBAS CORRECT PATTERN 0357 00275 0 12 00262 IRS TYSE UPDATE RETURN 0358 00276 0 12 00271 IRS EME1 UPDATE MESSAGE CALL 0359 00277 0 12 00271 IRS EME1 0360 00300 0 12 00442 IRS REJT+1 0361 00301 0 01 00270 JMP TYRE REPEAT 0362 00302 -0 01 00262 JMP* TYSE RETURN 0363 * 0364 * OCTAL TO DECIMAL TO ASCII FOR OUTPUT 0365 * 0366 00303 0 000000 DECC DAC ** CONVERT OCTAL TO DECIMAL 0367 00304 0 15 00666 STX PNTW SAVE X REG. 0368 00305 0 35 00750 LDX =-4 0369 00306 140040 CRA CLEAR 0370 00307 0 04 00355 STA DECL COUNTING REGISTER 0371 00310 000201 IAB 0372 00311 -0 02 00303 LDA* DECC DATA TO BE CONVERTED 0373 00312 101400 SMI IF VALUE NOT 0 TO 9999 0374 00313 0 11 00747 CAS =9999 0375 00314 0 02 00747 LDA =9999 THEN FORCE TO BE 9999 0376 00315 101000 NOP
* NAME: AB16-CMT5 DOC 70181454000 REV E PAGE 9

0377 00316 1 07 00362 DECS SUB DECN+4,1 SUBTRACT DECIMAL NO. 0378 00317 100400 SPL IF A PLUS CONTINUE SUBTRACTING 0379 00320 0 01 00323 JMP DEAB NEG. 0380 00321 0 12 00355 IRS DECL INC COUNTER 0381 00322 0 01 00316 JMP DECS REPEAT 0382 00323 1 06 00362 DEAB ADD DECN+4,1 ADD BACK DECIMAL NO. 0383 00324 0 04 00667 STA ASVC SAVE A REG . 0384 00325 0 02 00355 LDA DECL SHIFT 0385 00326 0412 74 LLR 4 COUNT 0386 00327 0 04 00355 STA DECL REGISTER 0387 00330 0 02 00667 LDA ASVC RESTORE A REG . 0388 00331 024000 OCT 24000 (IRS 0) BUMP AND TEST COUNTER 0389 00332 0 01 00316 JMP DECS REPEAT TEST ON NEXT BIT 0390 00333 0 02 00355 LDA DECL CONVERT 0391 00334 0412 60 LLR 16 DECIMAL 0392 00335 0414 74 LGL 4 COUNT 0393 00336 0412 74 LLR 4 TO 0394 00337 0 06 00746 ADD ='130260 ASCII 0395 00340 0 04 00343 STA *+3 0396 00341 0 35 00666 LDX PNTW RESTORE X REG. 0397 00342 0 10 00222 JST OPOW OUTPUT 0398 00343 0 000000 DAC ** 0399 00344 0412 74 LLR 4 TO 0400 00345 0414 74 LGL 4 ASR 0401 00346 0412 74 LLR 4 FOUR 0402 00347 0 06 00746 ADD =A00 DECIMAL 0403 00350 0 04 00352 STA *+2 NUMBERS 0404 00351 0 10 00222 JST OPOW OUTPUT LOW ORDER 0405 00352 0 000000 DAC ** NUMBER 0406 00353 0 12 00303 IRS DECC UPDATE RETURN 0407 00354 -0 01 00303 JMP* DECC RETURN TO MAIN PROGRAM 0408 00355 0 000000 DECL DAC ** 0409 00356 001750 DECN DEC 1000 0410 00357 000144 DEC 100 0411 00360 000012 DEC 10 0412 00361 000001 DEC 1 0413 * 0414 * OCTAL TO ASCII FOR OUTPUT 0415 * 0416 00362 0 000000 CBAS DAC ** CONVERT OCTAL TO ASCII 0417 00363 000201 IAB 0418 00364 0 02 00751 LDA =-3 LOOP COUNT 0419 00365 0 04 00667 STA ASVC LOOP CUUNTER 0420 00366 140040 CRA 0421 00367 0410 77 LLL 1 0422 00370 0415 73 CBAR ALS 5 FOR 0423 00371 0412 75 LLR 3 OCTAL 0424 00372 0 06 00746 ADD =A00 CONVERSION 0425 00373 0 04 00375 STA *+2 0426 00374 0 10 00222 JST OPOW
* NAME: AB16-CMT5 DOC 70181454000 REV E PAGE 10

0427 00375 0 000000 DAC ** TEMP DATA STORAGE 0428 00376 0412 75 LLR 3 0429 00377 0 12 00667 IRS ASVC COUNTER 0430 00400 0 01 00370 JMP CBAR REPEAT 0431 00401 0 10 00203 JST SPAC 0432 00402 -0 01 00362 JMP* CBAS RETURN 0433 * 0434 * INPUT-NEW LIMITS 0435 * 0436 00403 0 000000 IPLS DAC ** 0437 00404 0 10 00240 JST LFCR 0438 00405 0 02 00700 LDA NFA WORKING FIRST ADDRESS 0439 00406 0 10 00362 JST CBAS OCTAL TO ASCII 0440 00407 0 10 00222 JST OPOW 0441 00410 146317 BCI 1,LO OUTPUT 2 CHARS 0442 00411 0 10 00726 JST PBA 0443 00412 0 10 00436 JST PACK 0444 00413 0 02 00673 LDA NEWL 0445 00414 100040 SZE 0446 00415 0 04 00700 STA NFA 0447 00416 0 10 00240 JST LFCR 0448 00417 0 02 00701 LDA NLA WORKING LAST ADDRESS 0449 00420 0 10 00362 JST CBAS 0450 00421 0 10 00222 JST OPOW 0451 00422 144311 BCI 1,HI 0452 00423 0 10 00726 JST PBA 0453 00424 0 10 00436 JST PACK 0454 00425 0 02 00673 LDA NEWL TO 0455 00426 100040 SZE 0456 00427 0 04 00701 STA NLA 0457 00430 0 10 00240 JST LFCR 0458 00431 0 02 00700 LDA NFA MAKE SURE THAT FIRST LOCATION 0459 00432 0 11 00701 CAS NLA DOES NOT HAVE HIGHER ADDRESS THAN LAST 0460 00433 0 01 00404 JMP IPLS+1 OH-OH 0461 00434 101000 NOP 0462 00435 -0 01 00403 JMP* IPLS 0463 * 0464 * INPUT OCTAL VALUE 0465 * 0466 00436 0 000000 PACK DAC ** A REGISTER ZERO ON ENTRY 0467 00437 140040 CRA 0468 00440 0 04 00673 STA NEWL CLEAR VALUE ACCUMULATOR 0469 00441 0 10 00207 REJT JST IPOC INPUT A CHARACTER 0470 00442 0 000000 DAC ** 0471 00443 0 11 00745 CAS ='267 7 0472 00444 0 01 00460 JMP ASCH 0473 00445 0 01 00467 JMP OCTL 0474 00446 0 11 00744 CAS ='260 OCTAL 0 0475 00447 0 01 00467 JMP OCTL 0476 00450 0 01 00467 JMP OCTL
* NAME: AB16-CMT5 DOC 70181454000 REV E PAGE 11

0477 00451 0 11 00743 CAS ='256 . 0478 00452 0 01 00441 JMP REJT IGNORE THIS CHARACTER 0479 00453 -0 01 00436 JMP* PACK 0480 00454 0 11 00742 CAS ='215 CR 0481 00455 0 01 00441 JMP REJT 0482 00456 -0 01 00436 JMP* PACK 0483 00457 0 01 00441 JMP REJT 0484 * 0485 00460 0 05 00741 ASCH ERA ='377 0486 00461 100040 SZE 0487 00462 0 01 00441 JMP REJT NOT A RUB OUT 0488 00463 0 02 00436 LDA PACK RUB OUT 0489 00464 0 07 00740 SUB =7 ADJUST ADDRESS RETURN 0490 00465 0 04 00436 STA PACK 0491 00466 -0 01 00436 JMP* PACK 0492 * 0493 00467 0 07 00744 OCTL SUB ='260 CHANGE ASCII TO OCTAL 0494 00470 0 13 00673 IMA NEWL 0495 00471 0414 75 LGL 3 MAKE ROOM FOR NEW OCTAL 0496 00472 0 06 00673 ADD NEWL 0497 00473 0 04 00673 STA NEWL STORE OCTAL VALUE 0498 00474 0 01 00441 JMP REJT GO ENTER NEW CHARACTER 0499 * 0500 * RANDOM NUMBER GENERATOR FOR WRITE 0501 * 0502 00475 0 000000 RNGW DAC ** SUBROUTINE ENTRY 0503 00476 0 02 00702 LDA RAND LOAD RANDOM NUMBER 0504 00477 0416 63 ALR 13 SHIFT LEFT 0505 00500 0 06 00703 ADD RANE ADD 0506 00501 0406 70 ARR 8 SHIFT RIGHT 0507 00502 0 06 00737 ADD ='177503 ADD 0508 00503 0 04 00702 STA RAND SAVE AND UPDATE 0509 00504 -0 01 00475 JMP* RNGW RETURN 0510 * 0511 * RANDOM NUMBER GENERATOR FOR READ 0512 * 0513 00505 0 000000 RNGR DAC ** SUBROUTINE ENTRY 0514 00506 0 02 00704 LDA RANF LOAD RANDOM NUMBER ONE 0515 00507 0416 63 ALR 13 SHIFT LEFT 0516 00510 0 06 00703 ADD RANE 0517 00511 0406 70 ARR 8 SHIFT RIGHT 0518 00512 0 06 00737 ADD ='177503 ADD 0519 00513 0 04 00704 STA RANF SAVE AND UPDATE 0520 00514 -0 01 00505 JMP* RNGR RETURN 0521 * 0522 * 0523 * 0524 * END OF PASS ROUTINE 0525 * 0526 00515 0 000000 EOPR DAC ** ROUTINE ENTRY
* NAME: AB16-CMT5 DOC 70181454000 REV E PAGE 12

0527 00516 101200 SPS SKIP IF PARITY FLOP IS SET 0528 00517 0 01 00524 JMP EOPS NOT SET, GO ON 0529 00520 0 10 00244 JST OPCO SET!!! INFORM THE USER 0530 00521 0 000723 DAC PRTY 0531 00522 000000 HLT HALT - FATAL ERROR!!! 0532 00523 0 01 00522 JMP *-1 ON RESTART, HALT AGAIN 0533 00524 0 02 00664 EOPS LDA PACD UNRELOCATED ADDRESS OF PASS COUNTER 0534 00525 0 06 00674 ADD NOW RELOCATE THE ADDRESS 0535 00526 0 04 00261 STA PNTX SAVE THE ADDRESS 0536 00527 -0 12 00261 IRS* PNTX INCREMENT THE PASS COUNTER 0537 00530 -0 02 00261 LDA* PNTX FETCH THE PASS COUNTER 0538 00531 0 04 00536 STA EOPP SAVE IT FOR PRINTING 0539 00532 0 10 00240 JST LFCR ADVANCE THE LINE 0540 00533 0 10 00222 JST OPOW PRINT 'PS' 0541 00534 150323 BCI 1,PS 0542 00535 0 10 00303 JST DECC PRINT THE PASS COUNT IN DECIMAL 0543 00536 0 000000 EOPP DAC ** 0544 00537 0 10 00203 JST SPAC SPACE 0545 00540 0 02 00700 LDA NFA FETCH THE LOW LIMIT 0546 00541 0 10 00362 JST CBAS PRINT THE LOW LIMIT IN OCTAL 0547 00542 0 02 00701 LDA NLA FETCH HIGH LIMIT 0548 00543 0 10 00362 JST CBAS PRINT THE HIGH LIMIT IN OCTAL 0549 * TOTAL ERROR COUNT OUTPUT 0550 * 0551 00544 0 02 00662 LDA TLCD UNRELOCATLD ADDRESS OF ERROR COUNTER 0552 00545 0 06 00674 ADD NOW RELOCATE THE ADDRESS 0553 00546 0 04 00261 STA PNTX SAVE THE ADDRESS 0554 00547 -0 02 00261 LDA* PNTX FETCH THE ERROR COUNT 0555 00550 101040 SNZ SKIP IF THERE HAVE BEEN ERRORS 0556 00551 -0 01 00515 JMP* EOPR ELSE EXIT 0557 00552 0 04 00560 STA TCPT SAVE THE COUNT FOR PRINTING 0558 00553 0 10 00203 JST SPAC SPACE 0559 00554 0 10 00222 JST OPOW PRINT 'ER' 0560 00555 142722 BCI 1,ER 0561 00556 0 10 00203 JST SPAC 0562 00557 0 10 00303 JST DECC PRINT COUNT 0563 00560 0 000000 TCPT DAC ** 0564 00561 0 02 00560 LDA TCPT ERROR THIS PASS 0565 00562 0 13 00663 IMA TLPP BELOME NEW ERRORS PREV. PASS 0566 00563 0 07 00663 SUB TLPP 0567 00564 101040 SNZ SKIP IF ERRORS THIS PASS 0568 00565 -0 01 00515 JMP* EOPR RETURN 0569 00566 100004 SR3 SKIP IF ERROR REPORTS SUPPRESSED 0570 00567 -0 01 00515 JMP* EOPR 0571 * 0572 * OUTPUT ERROR BUFFER-ACCUMULATED BIT FAILURE- 0573 * 0574 00570 0 10 00240 JST LFCR OUTPUT 0575 00571 0 10 00244 JST OPCO FOR 0576 00572 0 000720 DAC MES2
* NAME: AB16-CMT5 DOC 70181454000 REV E PAGE 13

0577 00573 0 10 00203 JST SPAC BITS 0578 00574 0 10 00222 JST OPOW OUTPUT 2 CHARS 0579 00575 150240 BCI 1,P 0580 00576 0 10 00203 JST SPAC 0581 00577 0 10 00203 JST SPAC 0582 00600 0 10 00222 JST OPOW 0583 00601 142240 BCI 1,D 0584 00602 0 02 00736 LDA =-16 SETUP 0585 00603 0 04 00671 STA PNTO COUNTER 0586 00604 0 02 00711 LDA DBFF 0587 00605 0 06 00674 ADD NOW ADD DISPLACEMENT TO DAC 0588 00606 0 04 00670 STA PNTM POINTER 0589 00607 140040 CRA RESET 0590 00610 0 04 00672 STA BITC BIT 0591 00611 0 12 00672 OERP IRS BITC COUNTER 0592 00612 -0 02 00670 LDA* PNTM OBTAIN 0593 00613 101040 SNZ DATA 0594 00614 0 01 00650 JMP OECK 0595 00615 0 02 00672 OELI LDA BITC AND 0596 00616 0 11 00735 CAS =10 TEST 0597 00617 101000 NOP NEW HIGH 0598 00620 0 01 00622 JMP *+2 LIMIT 0599 00621 0 01 00660 JMP OECN FOR 0600 00622 0 07 00735 SUB =10 ERROR 0601 00623 0 06 00734 ADD =A10 0602 00624 0 04 00627 OECU STA OEHE 0603 00625 0 10 00240 JST LFCR 0604 00626 0 10 00222 JST OPOW BUFFER 0605 00627 0 000000 OEHE DAC ** LF 0606 00630 0 10 00203 JST SPAC NO 0607 00631 0 10 00203 JST SPAC ERRORS 0608 00632 -0 02 00670 LDA* PNTM SUPPRESS PRINT 0609 00633 0 04 00635 STA *+2 ON 0610 00634 0 10 00303 JST DECC A 0611 00635 0 000000 DAC ** LINE 0612 00636 0 12 00670 IRS PNTM FOR 0613 00637 0 10 00203 JST SPAC LINE 0614 00640 -0 02 00670 LDA* PNTM BASIS 0615 00641 0 04 00643 STA *+2 0616 00642 0 10 00303 JST DECC 0617 00643 0 000000 DAC ** UPDATE 0618 00644 0 12 00670 OESR IRS PNTM POINTER 0619 00645 0 12 00671 IRS PNTO COUNTER 0620 00646 0 01 00611 JMP OERP REPEAT 0621 00647 -0 01 00515 JMP* EOPR RETURN 0622 00650 0 12 00670 OECK IRS PNTM UPDATE 0623 00651 -0 02 00670 LDA* PNTM POINTER 0624 00652 101040 SNZ TEST 0625 00653 0 01 00644 JMP OESR DATA 0626 00654 0 02 00670 LDA PNTM RESTORE POINTER
* NAME: AB16-CMT5 DOC 70181454000 REV E PAGE 14

0627 00655 0 07 00754 SUB =1 BEFORE 0628 00656 0 04 00670 STA PNTM OUTPUT 0629 00657 0 01 00615 JMP OELI FOR 0630 * 0631 00660 0 06 00746 OECN ADD =A00 ZERO 0632 00661 0 01 00624 JMP OECU SETUP FOR OUTPUT 0633 00662 0 001462 TLCD DAC TLEC ADDRESS OF ERROR COUNTER 0634 00663 000000 TLPP BSZ 1 ERROR COUNT PREV PASS 0635 00664 0 001561 PACD DAC PASC 0636 * 0637 * 0638 * 0639 00665 0 000712 AME1 DAC MES1 0640 00666 0 000000 PNTW DAC ** 0641 00667 0 000000 ASVC DAC ** COUNTER 0642 00670 0 000000 PNTM DAC ** 0643 00671 0 000000 PNTO DAC ** 0644 00672 0 000000 BITC DAC ** 0645 00673 0 00 00000 NEWL PZE 0646 00674 000000 NOW BSZ 1 CURRENT LOWER SECTOR 0647 00675 0 001533 NOWB DAC NOWA AND SAME IN SECOND SECTOR 0648 00676 0 000000 CFA DAC ** 0649 00677 0 000000 CLA DAC ** 0650 00700 0 000000 NFA DAC ** 0651 00701 0 000000 NLA DAC ** 0652 00702 135742 RAND OCT 135742 0653 00703 024635 RANE OCT 024635 0654 00704 135742 RANF OCT 135742 0655 00705 0 001673 PNTZ DAC ENDT POINTER 0656 00706 0 001475 DBX1 DAC BTX1 0657 00707 0 001476 DBX2 DAC BTX2 0658 00710 0 001467 DBX3 DAC BTX3 0659 00711 0 001464 DBFF DAC BUFF 0660 * 0661 * 0662 00712 146240 MES1 BCI 1,L LOCATION 0663 00713 0 000000 DAC ** 0664 00714 151702 BCI 1,SB SHOULD BE 0665 00715 0 000000 DAC ** 0666 00716 144723 BCI 1,IS 0667 00717 0 000000 DAC ** 0668 00720 141311 MES2 BCI 2,BITS 00721 152323 0669 00722 0 000000 DAC ** 0670 00723 106612 PRTY OCT 106612 CARRIAGE RETURN, LINEFEED 0671 00724 146720 BCI 1,MP 0672 00725 0 000000 DAC ** 0673 00726 0 000000 PBA DAC ** 0674 00727 0 10 00222 JST OPOW 0675 00730 120277 OCT 120277
* NAME: AB16-CMT5 DOC 70181454000 REV E PAGE 15

0676 00731 0 10 00222 JST OPOW 0677 00732 135240 OCT 135240 0678 00733 -0 01 00726 JMP* PBA 0679 00734 130660 FIN 00735 000012 00736 177760 00737 177503 00740 000007 00741 000377 00742 000215 00743 000256 00744 000260 00745 000267 00746 130260 00747 023417 00750 177774 00751 177775 00752 000200 00753 000177 00754 000001 00755 000004 00756 000021 00757 077000 00760 000123 0680 * 0681 * 0682 ORG '1000 0683 01000 -0 10 01477 JST* INIT FIRST INITIALIZATION 0684 * 0685 * THE PREVIOUS INSTRUCTION WILL BE REPLACED BY A 'CRA' 0686 * AFTER INITIALIZATION. 0687 * 0688 01001 0 04 00000 STA 0 0689 01002 0 10 01057 CMT JST INTT INITIALIZE ROUTINE 0690 * 0691 01003 -0 10 01545 STR2 JST* CHNA 0692 01004 100020 SR1 0693 01005 -0 10 01556 JST* DIPL INPUT NEW LIMITS 0694 01006 0 10 01100 JST CELC ADDRESS TEST ROUTINE 0695 01007 0 10 01017 JST WCP WORST CASE PATTERN ROUTINE 0696 01010 0 10 01026 JST CWCP COMPLEMENTED WORST CASE PATTERN 0697 01011 0 10 01134 JST RNDP RANDOM NUMBER PATTERN ROUTINE 0698 01012 0 10 01051 JST BPTT BIT PATTERN ROUTINE 0699 01013 -0 10 01560 JST* CHNZ END OF PASS ROUTINE 0700 01014 101010 SS2 IF SS2 RESET MOVE PROGRAM 0701 01015 0 10 01347 JST MOVE MOVE PROGRAM 0702 01016 0 01 01004 JMP CMT+2 REPEAT 0703 * 0704 * WORST CASE PATTERN ROUTINE
* NAME: AB16-CMT5 DOC 70181454000 REV E PAGE 16

0705 * 0706 01017 0 000000 WCP DAC ** ROUTINE ENTRY 0707 01020 140040 CRA ZERO'S 0708 01021 0 04 01531 STA Y1 PATTERN NO.1 0709 01022 140401 CMA ONES 0710 01023 0 04 01532 STA Y2 PATTERN NO.2 0711 01024 0 10 01035 JST GGRO SET UP 0712 01025 -0 01 01017 JMP* WCP RETURN 0713 * 0714 * COMPLEMENTED WORST CASE PATTERN ROUTINE 0715 * 0716 01026 0 000000 CWCP DAC ** ROUTINE ENTRY 0717 01027 140040 CRA ZERO 0718 01030 0 04 01532 STA Y2 PATTERN NO.2 0719 01031 140401 CMA ONES 0720 01032 0 04 01531 STA Y1 PATTERN NO.4 0721 01033 0 10 01035 JST GGRO SETUP 0722 01034 -0 01 01026 JMP* CWCP RETURN 0723 * 0724 * GENERAL SERVICE ROUTINE 0725 * 0726 01035 0 000000 GGRO DAC ** ROUTINE ENTRY 0727 01036 -0 35 01550 LDX* CHNM INITIALIZE FIRST ADDR 0728 01037 -0 02 01551 LDA* CHNN * 0729 01040 0 04 01530 STA LA * 0730 01041 140040 CRA SETUP FOR 0731 01042 0 10 01246 JST RWOO WRITE 0732 01043 -0 35 01550 LDX* CHNM INITIALIZE FIRST ADDR 0733 01044 0 10 01625 JST JOGL JOGGLE THE MEMORY A LITTLE 0734 01045 140500 SSM SET UP FOR READ 0735 01046 0 10 01246 JST RWOO 0736 01047 0 10 01563 GGSO JST GG8K OR NOP H316 CSM-150 GENERAL SERVICE ROUT 0737 * THE ABOVE BECOMES A 'NOP' IF CP NOT H316 0738 01050 -0 01 01035 JMP* GGRO RETURN 0739 * 0740 * 0741 * BIT PATTERN TEST ROUTINE 0742 * 0743 01051 0 000000 BPTT DAC ** ROUTINE ENTRY 0744 01052 140040 CRA INITIALIZE 0745 01053 0 04 01531 STA Y1 * 0746 01054 0 04 01532 STA Y2 * 0747 01055 0 10 01035 JST GGRO TO WRITE/READ 0748 01056 -0 01 01051 JMP* BPTT RETURN 0749 * 0750 * INITIALIZATION 0751 * 0752 01057 0 000000 INTT DAC ** ROUTINE ENTRY 0753 01060 -0 10 01545 JST* CHNA 0754 01061 0 02 01463 LDA BUSA INITIALIZE
* NAME: AB16-CMT5 DOC 70181454000 REV E PAGE 17

0755 01062 0 06 01533 ADD NOWA ADD DISPLACEMENT TO DAC 0756 01063 0 04 01524 STA PNTA * 0757 01064 0 35 01672 LDX =-32 BUFFER(ERROR) 0758 01065 -0 02 01552 LDA* CHNP RANDOM NUMBER 0759 01066 -0 04 01553 STA* CHNQ GENERATORS 0760 01067 140040 CRA CLEAR 0761 01070 0 04 01561 STA PASC INITIALIZE 0762 01071 0 04 01462 STA TLEC TOTAL ERR COUNT 0763 01072 -0 04 01557 STA* DTLP TOTAL ERRORS PREV PASS 0764 01073 -0 04 01524 INT1 STA* PNTA 0765 01074 0 12 01524 IRS PNTA CLEAR 64 DECIMAL 0766 01075 0 12 00000 IRS 0 LOCATIONS 0767 01076 0 01 01073 JMP INT1 BOTH ERR BUFFERS 0768 01077 -0 01 01057 JMP* INTT RETURN 0769 * 0770 * ADDRESS TEST ROUTINE 0771 * 0772 01100 0 000000 CELC DAC ** 0773 01101 140040 CRA 0774 01102 0 04 01534 STA SIGN 0775 01103 -0 02 01551 LDA* CHNN NEW LAST ADDR 0776 01104 0 04 01530 STA LA 0777 01105 -0 02 01550 LDA* CHNM FETCH NEW FIRST ADDRESS 0778 01106 0 04 00000 STA 0 STARTING ADDRESS 0779 01107 0 04 01537 STA PATT STARTING PATTERN 0780 01110 0 10 01120 JST CELO TO READ OR WRITE 0781 01111 -0 02 01550 LDA* CHNM FETCH STARTING ADDRESS FOR READ 0782 01112 0 04 00000 STA 0 0783 01113 0 04 01537 STA PATT 0784 01114 140500 SSM 0785 01115 0 04 01534 STA SIGN FLAG 0786 01116 0 10 01120 JST CELO TO READ 0787 01117 -0 01 01100 JMP* CELC RETURN 0788 * 0789 * SERVICE ROUTINE FOR ADDRESS TEST 0790 * 0791 01120 0 000000 CELO DAC ** 0792 01121 0 02 01534 LDA SIGN TEST FOR 0793 01122 101400 SMI READ OR WRITE 0794 01123 0 10 01342 JST WROO TO WRITE 0795 01124 0 10 01314 JST RDOO TO READ 0796 01125 0 02 00000 LDA 0 TEST FOR 0797 01126 0 11 01530 CAS LA LAST ADDRESS 0798 01127 0 01 01131 JMP *+2 0799 01130 -0 01 01120 JMP* CELO RETURN 0800 01131 0 12 01537 IRS PATT 0801 01132 0 12 00000 IRS 0 BUMP AND 0802 01133 0 01 01121 JMP CELO+1 REPEAT 0803 * 0804 * RANDOM
* NAME: AB16-CMT5 DOC 70181454000 REV E PAGE 18

0805 * NUMBER 0806 * 0807 01134 0 000000 RNDP DAC ** ROUTINE ENTRY 0808 01135 -0 02 01550 LDA* CHNM INITIALIZE 0809 01136 0 04 00000 STA 0 0810 01137 -0 02 01551 LDA* CHNN * 0811 01140 0 04 01530 STA LA * 0812 01141 0 02 00000 CONT LDA 0 0813 01142 0 11 01530 CAS LA 0814 01143 0 01 01145 JMP *+2 0815 01144 0 01 01151 JMP JTRD SETUP FOR READ 0816 01145 -0 10 01554 JST* CHNR CONTINUE WITH WRITE MODE 0817 01146 1 04 00000 STA 0,1 STORE THE RANDOM DATA 0818 01147 0 12 00000 IRS 0 AND BUMP THE ADDRESS 0819 * 0820 01150 0 01 01141 JMP CONT REPEAT 0821 01151 -0 02 01550 JTRD LDA* CHNM INITIALIZE 0822 01152 0 04 00000 STA 0 FOR READ MODE 0823 01153 0 02 00000 CONO LDA 0 0824 01154 0 11 01530 CAS LA 0825 01155 101000 NOP 0826 01156 -0 01 01134 JMP* RNDP 0827 01157 -0 10 01555 JST* CHNS READ NEXT 0828 01160 0 04 01537 STA PATT LOCATION 0829 01161 0 10 01314 JST RDOO READ 0830 01162 0 12 00000 IRS 0 BUMP TO NEXT ADDRESS 0831 01163 0 01 01153 JMP CONO REPEAT 0832 * 0833 * ERROR DECODE AND PACKING ROUTINE 0834 * 0835 01164 0 000000 ERR DAC ** ROUTINE ENTRY 0836 01165 0 12 01462 IRS TLEC UPDATE TOTAL ERROR COUNT 0837 01166 101000 NOP 0838 01167 0 02 01463 LDA BUSA SETUP 0839 01170 0 06 01533 ADD NOWA ADD DISPLACEMENT TO DAC 0840 01171 0 04 01562 STA TEMN POINTER 0841 01172 0 02 01671 LDA =-16 COUNT 0842 01173 0 04 01540 STA CNTA * 0843 01174 0 02 01215 LDA TEMP+1 CORRECT WORD (C.W.) 0844 01175 000201 IAB TO B REG 0845 01176 0 02 01216 LDA TEMP+2 ERROR WORD (E.W.) 0846 01177 101400 SHBT SMI TEST BIT 1 OF E.W. 0847 01200 0 01 01220 JMP TEFP BIT 1 OF E.W. RESET 0848 01201 0412 77 LLR 1 SHIFT TO TEST BIT ONE OF C.W. 0849 01202 101100 SLN TEST BIT 1 OF C.W. 0850 01203 -0 12 01562 IRS* TEMN 0851 01204 101000 NOP 0852 01205 0 12 01562 SHBR IRS TEMN 0853 01206 0 12 01562 SHBS IRS TEMN 0854 01207 0 12 01540 IRS CNTA BUMP COUNTER
* NAME: AB16-CMT5 DOC 70181454000 REV E PAGE 19

0855 01210 0 01 01177 JMP SHBT TEST NEXT BIT 0856 01211 100004 SR3 0857 01212 -0 01 01164 JMP* ERR RETURN 0858 01213 -0 10 01546 JST* CHNJ SET UP 0859 01214 0 000000 TEMP DAC ** FOR SINGLE 0860 01215 0 000000 DAC ** ERROR 0861 01216 0 000000 DAC ** PRINT 0862 01217 -0 01 01164 JMP* ERR RETURN 0863 01220 0412 77 TEFP LLR 1 SHIFT TO TEST BIT ONE OF C.W. 0864 01221 101100 SLN TEST BIT OF C.W. 0865 01222 0 01 01205 JMP SHBR BIT TEST OK 0866 01223 0 12 01562 IRS TEMN 0867 01224 -0 12 01562 IRS* TEMN 0868 01225 101000 NOP 0869 01226 0 01 01206 JMP SHBS REPEAT TEST NEXT BIT 0870 * 0871 * ADDRESS CHECK ROUTINE 0872 * 0873 * THIS ROUTINE IS USED TO SELECT THE WORST CASE 0874 * NOISE PATTERN FOR THE LOCATION BEING TESTED, THE CODING 0875 * SHOWN BELOW SELECTS THE WORST CASE NOISE PATTERN FOR THE H316. IF 0876 * THE INITIALIZATION ROUTINE DETERMINES THAT THE HOST 0877 * COMPUTER IS A DDP-516, THE ROUTINE TO SELECT THE DDP-516 0878 * PATTERN WILL OVERLAY THIS ROUTINE. SIMILARLY, IF CP IS 716, 0879 * THE 716 PATTERN WILL OVERLAY THIS ROUTINE. 0880 * 0881 01227 0 000000 BTES DAC ** ROUTINE ENTRY 0882 01230 0 15 01526 STX SAVC 0883 01231 0 35 01670 LDX =-4 0884 01232 1 11 01246 BETS CAS M+4,1 0885 01233 0 01 01235 JMP *+2 BITS 0886 01234 0 01 01240 JMP X1 0887 01235 0 12 00000 IRS 0 BUMP POINTER 0888 01236 0 01 01232 JMP BETS REPEAT 0889 01237 0 12 01227 IRS BTES UPDATE FOR RETURN 0890 01240 0 35 01526 X1 LDX SAVC 0891 01241 -0 01 01227 JMP* BTES 0892 01242 000001 M OCT 1 0893 01243 000004 OCT 4 0894 01244 000010 OCT 10 0895 01245 000015 OCT 15 0896 * 0897 * COMMON READ-WRITE SETUP ROUTINE 0898 * 0899 01246 0 000000 RWOO DAC ** SET UP FOR READ OR WRITE 0900 01247 0 04 01534 STA SIGN SAVE A REG 0901 01250 0 02 00000 RWO6 LDA 0 CHECK 0902 01251 0404 72 LGR 6 ADDRESS 0903 01252 0 03 01667 ANA ='15 BITS 0904 01253 0 10 01227 JST BTES TEST ADDRESS - THIS BECOMES A 'SKP' IF NOT
* NAME: AB16-CMT5 DOC 70181454000 REV E PAGE 20

0905 01254 0 01 01262 JMP RWO1 SELECTION 0906 01255 0 02 01531 LDA Y1 ONES PATTERN 0907 01256 0 04 01535 STA PAT1 0908 01257 0 02 01532 LDA Y2 ZERO'S PATTERN 0909 01260 0 04 01536 STA PAT2 0910 01261 0 01 01266 JMP RWO2 DETERMINE 0911 01262 0 02 01531 RWO1 LDA Y1 IF THE 0912 01263 0 04 01536 STA PAT2 Y DRIVE 0913 01264 0 02 01532 LDA Y2 LINE STARTS 0914 01265 0 04 01535 STA PAT1 WITH A ONE 0915 01266 0 02 00000 RWO2 LDA 0 OR ZERO PATTERN 0916 01267 0 03 01667 ANA ='15 0917 01270 0 10 01227 JST BTES TEST ADDRESS 0918 01271 0 01 01274 JMP RWO3 ADDRESS 0919 01272 0 02 01535 LDA PAT1 BITS 0920 01273 0 01 01275 JMP RWO4 FOR X 0921 01274 0 02 01536 RWO3 LDA PAT2 DETERMINE IF 0922 01275 0 04 01537 RWO4 STA PATT X DRIVE LINE 0923 01276 0 02 01534 LDA SIGN STARTS WITH A 0924 01277 101400 SMI ONE OR ZERO PATTERN 0925 01300 0 10 01342 JST WROO TEST FOR 0926 01301 0 10 01314 JST RDOO READ OR WRITE 0927 01302 0 02 00000 LDA 0 TEST 0928 01303 0 11 01530 CAS LA FOR 0929 01304 101000 NOP 0930 01305 -0 01 01246 JMP* RWOO 0931 01306 0 12 00000 IRS 0 BUMP ADDRESS COUNTER 0932 01307 141206 AOA AND A REG 0933 01310 0 03 01666 ANA ='77 SAVE X DECODE 0934 01311 100040 SZE CK FOR ZERO 0935 01312 0 01 01266 JMP RWO2 REPEAT LOOP TWO 0936 01313 0 01 01250 JMP RWO6 REPEAT LOOP ONE 0937 * 0938 * COMMON READ ROUTINE 0939 * 0940 01314 0 000000 RDOO DAC ** READ TEST LOCATIONS 0941 01315 0 02 01670 LDA =-4 COUNT 0942 01316 0 04 01526 STA SAVC SAVE 0943 01317 1 02 00000 RDO1 LDA 0,1 READ THE DATA 0944 01320 1 02 00000 LDA 0,1 READ TWICE MORE 0945 01321 1 02 00000 LDA 0,1 TO CHECK READ-RESTORE 0946 01322 0 11 01537 CAS PATT DATA FOR ERROR 0947 01323 0 01 01325 JMP *+2 ERROR 0948 01324 0 01 01333 JMP RDO2 DATA TESTED OK 0949 * 0950 01325 0 04 01216 STA TEMP+2 SAVE 0951 01326 0 02 01537 LDA PATT DATA S.B. 0952 01327 0 04 01215 STA TEMP+1 SAVE 0953 01330 0 02 00000 LDA 0 ADDRESS OF ERROR 0954 01331 0 04 01214 STA TEMP SAVE
* NAME: AB16-CMT5 DOC 70181454000 REV E PAGE 21

0955 01332 0 10 01164 JST ERR TO RECORD ERROR 0956 01333 0 02 01537 RDO2 LDA PATT 0957 01334 140401 CMA COMPLEMEMT PATTERN 0958 01335 0 04 01537 STA PATT SAVE PATTERN 0959 01336 1 04 00000 STA 0,1 STORE DATA INIO TEST LOCATION 0960 01337 0 12 01526 IRS SAVC INC COUNTER 0961 01340 0 01 01317 JMP RDO1 REPEAT 0962 01341 -0 01 01314 JMP* RDOO RETURN 0963 * 0964 * COMMON WRITE ROUTINE 0965 * 0966 01342 0 000000 WROO DAC ** WRITE SUBROUTINE 0967 01343 0 02 01537 LDA PATT LOAD -A-REG WITH TEST PATTERN 0968 01344 1 04 00000 STA 0,1 STORE DATA INTO TEST LOCATION 0969 01345 0 12 01342 IRS WROO UPDATE RETURN 0970 01346 -0 01 01342 JMP* WROO RETURN 0971 * 0972 * MOVE PROGRAM ROUTINE 0973 * 0974 01347 0 000000 MOVE DAC ** SUBROUTINE ENTRY 0975 01350 0 02 01347 LDA MOVE DETERMINE CURRENT SECTOR 0976 01351 0 03 01665 ANA ='76000 0977 01352 101040 SNZ 0978 01353 0 01 01413 JMP NUPL GO TO MOVE UP 0979 * 0980 01354 101000 NOP 0981 01355 0 02 01347 LDA MOVE MOVE DOWN ROUT. 0982 01356 0 03 01664 ANA ='77000 0983 01357 0 06 01544 ADD CHNO 0984 01360 0 07 01663 SUB ='1000 0985 01361 0 04 01524 STA PNTA POINTER 0986 01362 0 07 01544 SUB CHNO ADJUSTMENT 0987 01363 0 06 01662 ADD ='21 POINTER USED FOR 0988 01364 0 04 01526 STA SAVC MOVING PROGRAM DOWN 0989 01365 0 35 01543 LDX NDIF 0990 01366 -0 02 01524 MORP LDA* PNTA CHANGE 0991 01367 0 03 01661 ANA ='777 JUMP TABLE 0992 01370 -0 04 01524 STA* PNTA RESTORE JUMP TABLE 0993 01371 0 12 01524 IRS PNTA UPDATE POINTER 0994 01372 0 12 00000 IRS 0 INC COUNTER 0995 01373 0 01 01366 JMP MORP COMPLETE TABLE CHNGE 0996 01374 0 35 01542 LDX DPGL NEG OF PROGRAM LENGTH 0997 01375 0 02 01526 LDA SAVC POINTER 0998 01376 0 04 01524 STA PNTA POINTER A 0999 01377 0 02 01662 LDA ='21 STARTING POINT FOR 1000 01400 0 04 01525 STA PNTB POINTER B 1001 01401 -0 02 01524 MORT LDA* PNTA MOVE PROGRAM 1002 01402 -0 04 01525 STA* PNTB TO HIGHER CORE 1003 01403 0 12 01524 IRS PNTA UPDATE POINTER A 1004 01404 0 12 01525 IRS PNTB UPDATE POINTER B
* NAME: AB16-CMT5 DOC 70181454000 REV E PAGE 22

1005 01405 0 12 00000 IRS 0 INC COUNTER 1006 01406 0 01 01401 JMP MORT COMPLETE PROG. MOVE 1007 01407 0 02 01541 LDA NSAD NEW STARTING ADDRESS 1008 01410 0 04 00020 STA '20 NEW PROG START 1009 01411 14 0020 OCP '20 LET RTC RUN WHILE PROGRAM TESTING HIGH 1010 01412 -0 01 00020 JMP* '20 JMP TO NEW START 1011 * 1012 01413 -0 02 01551 NUPL LDA* CHNN NEW LAST ADDR 1013 01414 0 03 01660 ANA ='177000 1014 01415 0 07 01663 SUB ='1000 LEAVE ROOM FOR TWO SECTORS OF PROGRAM 1015 01416 0 11 01673 CAS ENDT SHOULD BE BIGGER THAN THE START ADDR 1016 01417 101000 NOP 1017 01420 0 01 01424 JMP *+4 1018 01421 000000 HLT 1019 ************************************************************ 1020 * * 1021 * (A) PRESENT CHOICE OF THE HIGH LIMIT WILL CAUSE * 1022 * THIS PROGRAM TO SELF DESTRUCT * 1023 * * 1024 * (B) PLEASE REVALUATE YOUR SELECTION CONCERNING * 1025 * THIS LIMIT * 1026 * * 1027 * (C) PRESS START * 1028 * * 1029 ************************************************************ 1030 01422 -0 10 01547 JST* CHNL 1031 01423 0 01 01413 JMP NUPL 1032 01424 0 04 01526 STA SAVC SAVE 1033 01425 0 06 01662 ADD ='21 NEW 1034 01426 0 04 01525 STA PNTB STARTING 1035 01427 0 02 01541 LDA NSAD ADDRESS 1036 01430 0 07 01662 SUB ='21 AND 1037 01431 0 06 01525 ADD PNTB MOVE 1038 01432 0 04 01527 STA SAVE STARTING ADDRESS 1039 01433 0 02 01544 LDA CHNO JUMP TABLE 1040 01434 0 04 01524 STA PNTA POINTER 1041 01435 0 35 01543 LDX NDIF 1042 01436 -0 02 01524 MOUC LDA* PNTA CHANGE CONTAINS 1043 01437 0 06 01526 ADD SAVC OF JUMP TABLE 1044 01440 -0 04 01524 STA* PNTA STORE BACK 1045 01441 0 12 01524 IRS PNTA UPDATE POINTER 1046 01442 0 12 00000 IRS 0 UPDATE COUNTER 1047 01443 0 01 01436 JMP MOUC COMPLETE TABLE 1048 01444 0 02 01662 LDA ='21 STARTING POINT 1049 01445 0 04 01524 STA PNTA POINTER 1050 01446 0 35 01542 LDX DPGL NEG OF PGM LENGTH 1051 01447 -0 02 01524 MOAD LDA* PNTA MOVE PROGRAM 1052 01450 -0 04 01525 STA* PNTB TO LOW CORE 1053 01451 0 12 01524 IRS PNTA UPDATE POINTER A 1054 01452 0 12 01525 IRS PNTB UPDATE POINTER B
* NAME: AB16-CMT5 DOC 70181454000 REV E PAGE 23

1055 01453 0 12 00000 IRS 0 INC COUNTER 1056 01454 0 01 01447 JMP MOAD COMPLETE PROGRAM MOVE 1057 01455 101000 NOP 1058 01456 0 02 01527 LDA SAVE NEW STARTING POINT 1059 01457 0 04 00020 STA '20 STORE FOR RETURN JUMP 1060 01460 14 0220 OCP '220 TURN OFF RTC WHILE TESTING LOW 1061 01461 -0 01 00020 JMP* '20 RETURN JUMP 1062 * 1063 * 1064 * 1065 01462 0 000000 TLEC DAC ** 1066 01463 0 001464 BUSA DAC *+1 1067 * 1068 * THE FOLLOWING IS THE DDP-516 WORST CASE NOISE PATTERN 1069 * SELECTOR. IF IT IS REQUIRED, IT WILL BE MOVED SO THAT 1070 * IT OVERLAYS 'BTES'. 1071 * 1072 01464 0 02 00000 BTEX LDA 0 FETCH CURRENT ADDRESS 1073 01465 0 03 01241 ANA BTC1 ISOLATE BITS 5 AND 12 1074 01466 0 04 01526 STA SAVC SAVE THE BITS 1075 01467 0404 71 BTX3 LGR 7 BECOMES 'LGR 9' FOR H716 1076 01470 0 05 01526 ERA SAVC ERA ORIGINAL BITS 5 AND 12 1077 01471 0 03 01242 ANA BTC2 ISOLATE THE RESULT 1078 01472 101040 SNZ SKIP IF PATTERN TWO 1079 01473 0 12 01227 IRS BTES SELECT PATTERN ONE 1080 01474 -0 01 01227 JMP* BTES EXIT 1081 01475 004020 BTX1 OCT 4020 BECOMES 4004 FOR 716 1082 01476 000020 BTX2 OCT 20 BECOME5 4 FOR 716 1083 001241 BTC1 EQU M-1 1084 001242 BTC2 EQU M 1085 * 1086 01477 0 002000 INIT DAC S2IN 1087 * 1088 ORG BTEX 1089 * 1090 01464 BUFF BSS 32 BIT FAILURE HISTORY BUFFER 1091 01524 0 000000 PNTA DAC ** 1092 01525 0 000000 PNTB DAC ** 1093 01526 0 00 00000 SAVC PZE 1094 01527 0 00 00000 SAVE PZE 1095 01530 0 00 00000 LA PZE WORKING LAST ADDR. 1096 01531 177777 Y1 OCT 177777 1097 01532 000000 Y2 OCT 0 1098 01533 000000 NOWA BSZ 1 CURRENT FIRST OF 2 SECTORS 1099 01534 000000 SIGN BSZ 1 1100 01535 0 00 00000 PAT1 PZE 1101 01536 0 00 00000 PAT2 PZE 1102 01537 0 00 00000 PATT PZE 1103 01540 0 000000 CNTA DAC ** 1104 01541 0 001003 NSAD DAC STR2
* NAME: AB16-CMT5 DOC 70181454000 REV E PAGE 24

1105 01542 0 176105 DPGL DAC **-ENDT NEG OF PROGRAM LENGTH 1106 01543 0 177764 NDIF DAC CHNO-CHNZ 1107 01544 0 001545 CHNO DAC *+1 1108 01545 0 000120 CHNA DAC COSI 1109 01546 0 000262 CHNJ DAC TYSE 1110 01547 0 000403 CHNL DAC IPLS 1111 01550 0 000700 CHNM DAC NFA 1112 01551 0 000701 CHNN DAC NLA 1113 01552 0 000702 CHNP DAC RAND 1114 01553 0 000704 CHNQ DAC RANF 1115 01554 0 000475 CHNR DAC RNGW 1116 01555 0 000505 CHNS DAC RNGR 1117 01556 0 000403 DIPL DAC IPLS INPUT TEST LIMITS 1118 01557 0 000663 DTLP DAC TLPP ERROR COUNT PREV PASS 1119 01560 0 000515 CHNZ DAC EOPR 1120 01561 000000 PASC BSZ 1 1121 01562 000000 TEMN BSZ 1 1122 * 1123 * 1124 * GENERAL SERVICE ROUTINE FOR CSM-150 MEM MODULE FOR 316. 1125 * 1126 01563 0 000000 GG8K DAC ** 1127 01564 -0 35 01550 LDX* CHNM INITIALIZE FIRST ADDR 1128 01565 140040 CRA SET UP FOR WRITE 1129 01566 0 10 01575 JST RW8K GO TO CSM>-150 READ/WRITE ROUT 1130 01567 -0 35 01550 LDX* CHNM INITIALIZE FIRST ADDR 1131 01570 0 10 01625 JST JOGL JOGGLE THE MEMORY A LITTLE 1132 01571 101000 NOP 1133 01572 140500 SSM SET UP FOR READ 1134 01573 0 10 01575 JST RW8K GO TO CSM-150 READ/WRITE ROUT 1135 01574 -0 01 01563 JMP* GG8K RETURN 1136 * 1137 * 1138 * COMMON READ/WRITE SET UP ROUT. FOR CSM-150 MEM MODULE 1139 * 1140 01575 0 000000 RW8K DAC ** 1141 01576 0 04 01534 STA SIGN PLUS FOR WRITE, MINUS FOR READ 1142 01577 0 02 00000 RW8L LDA 0 DO EXCLUSIVE OR OF BITS 8 AND 13 1143 01600 0 03 01623 ANA B813 IF RESULT IS ZERO, GO TO FILL ONES ROUT 1144 01601 0 04 01653 STA TLP IF RESULT IS NON-ZERO, GO TO FILL ZEROES RO 1145 01602 0404 73 LGR 5 1146 01603 0 05 01653 ERA TLP 1147 01604 0 03 01624 ANA B13 1148 01605 100040 SZE 1149 01606 0 02 01657 LDA =-1 1150 01607 140401 CMA 1151 01610 0 04 01537 STA PATT 1152 01611 0 02 01534 LDA SIGN 1153 01612 101400 SMI 1154 01613 0 10 01342 JST WROO WRITE ROUT
* NAME: AB16-CMT5 DOC 70181454000 REV E PAGE 25

1155 01614 0 10 01314 JST RDOO READ ROUT 1156 01615 0 02 00000 LDA 0 1157 01616 0 11 01530 CAS LA 1158 01617 101000 NOP 1159 01620 -0 01 01575 JMP* RW8K RETURN 1160 01621 0 12 00000 IRS 0 1161 01622 0 01 01577 JMP RW8L 1162 * 1163 * 1164 * 1165 01623 000410 B813 OCT 410 BITS 8 AND 13 1166 01624 000010 B13 OCT 10 BIT 13 1167 * 1168 * 1169 * JOGGLE THE MEMORY BEFORE READING BACK THE DATA 1170 * 1171 01625 0 000000 JOGL DAC ** 1172 01626 0 02 01651 LDA SHFI FETCH THE SHIFT INSTRUCTION 1173 01627 0 04 01635 STA SHFE STORE FOR EXECUTION 1174 01630 0 02 01656 LDA =-9 SET INITIAL JUSTIFICATION 1175 01631 0 04 01652 STA JCNT DELAY COUNT 1176 01632 0 02 01655 LDA =-8 1177 01633 0 04 01653 STA TLP SET DELAY CONSTANT 1178 01634 0 04 01654 LP1 STA TLPT WORKING COPY OF DELAY CONSTANT 1179 01635 0416 00 SHFE ALR ** EXECUTE SHIFT INSTRUCTION 1180 01636 0 12 01654 IRS TLPT 1181 01637 0 01 01636 JMP *-1 INITIAL DELAY 1182 01640 0 12 01635 IRS SHFE DECREMLNT THE SHIFT COUNT 1183 01641 0 02 01653 LP2 LDA TLP FETCH THE DELAY CONSTANT 1184 01642 0 12 01652 IRS JCNT BUMP THE JUSTIFICATION COUNT 1185 01643 0 01 01634 JMP LP1 1186 01644 0 02 01656 LDA =-9 1187 01645 0 04 01652 STA JCNT REINITIALIZE THE JUSTIFICATION COUNT 1188 01646 0 12 01653 IRS TLP DECREMLNT THE DELAY CONSTANT 1189 01647 0 01 01641 JMP LP2 1190 01650 -0 01 01625 JMP* JOGL RETURN 1191 * 1192 01651 0416 00 SHFI ALR ** SHIFT INSTR 1193 01652 000000 JCNT BSZ 1 1194 01653 000000 TLP BSZ 1 1195 01654 000000 TLPT BSZ 1 1196 * 1197 * 1198 01655 177770 FIN 01656 177767 01657 177777 01660 177000 01661 000777 01662 000021 01663 001000
* NAME: AB16-CMT5 DOC 70181454000 REV E PAGE 26

01664 077000 01665 076000 01666 000077 01667 000015 01670 177774 01671 177760 01672 177740 1199 * 1200 01673 0 001674 ENDT DAC *+1 1201 * 1202 * 1203 * 1204 ORG '2000 1205 02000 0 000000 S2IN DAC ** ONE TIME INITAILIZATION 1206 02001 0 35 02120 LDX ZERO 1207 02002 000021 RMP INSURE THE MEMORY PARITY FLOP IS RESET 1208 02003 0 10 00240 JST LFCR LINE FEED, CARRIAGE RETURN 1209 02004 0 10 00240 JST LFCR 1210 02005 0 10 00240 JST LFCR 1211 02006 0 10 00244 JST OPCO PRINT HEADING 1212 02007 0 002100 DAC MESA 1213 02010 0 02 02007 LDA *-1 1214 02011 000201 IAB STORE WORD IN B REG 1215 02012 0 02 02007 LDA *-3 LOAD THE WORD AGAIN 1216 02013 0 05 00002 ERA 2 XOR WITH LOC.2 1217 02014 101040 SNZ IF NON-ZERO, SKIP 1218 02015 0 01 02044 JMP X13R IF ZERO, CP IS 716 1219 02016 140040 CRA CRA DETERMINE MACHINE TYPE BY TIMING 1220 02017 141206 AOA 1221 02020 34 0104 SKS '104 1222 02021 0 01 02017 JMP *-2 1223 02022 0 07 02152 SUB =20000 1224 02023 100400 SPL 1225 02024 0 01 02057 JMP H316 1226 02025 0 10 00240 JST LFCR 1227 02026 0 10 00244 JST OPCO PRINT COMPUTER TYPE 1228 02027 0 002121 DAC DD5 1229 02030 0 35 02151 D5X LDX =-11 11 WORD OVERLAY 1230 02031 -0 02 02074 LDA* DAC1 FETCH OVERLAY WORD 1231 02032 -0 04 02075 STA* DAC2 STORE IT 1232 02033 0 12 02074 IRS DAC1 INCREMENT POINTERS 1233 02034 0 12 02075 IRS DAC2 1234 02035 0 12 00000 IRS 0 INCREMENT WORD COUNT 1235 02036 0 01 02031 JMP *-5 GO BACK FOR NEXT WORD 1236 02037 0 02 02150 LDA ='101000 1237 02040 -0 04 02077 STA* DGGS DELETE CALL TO 8K MOD GEN SER ROUT 1238 02041 0 02 02147 LDA ='100000 PLACE SKIP INSTRUCTION 1239 02042 -0 04 02076 STA* DAC3 1240 02043 0 01 02062 JMP D5H3
* NAME: AB16-CMT5 DOC 70181454000 REV E PAGE 27

1241 * 1242 02044 0 10 00240 X13R JST LFCR 1243 02045 0 10 00244 JST OPCO PRINT COMPUTER TYPE 1244 02046 0 002135 DAC X13 1245 02047 -0 02 00710 LDA* DBX3 MODIFY SO THAT 1246 02050 0 06 02146 ADD =-2 YOU CAN MOVE BIT 5 1247 02051 -0 04 00710 STA* DBX3 TO BIT 14 1248 02052 0 02 02145 LDA ='4004 1249 02053 -0 04 00706 STA* DBX1 MODIFY WORST CASE BIT 1250 02054 0 02 02144 LDA =4 PATTERNS FOR 716 1251 02055 -0 04 00707 STA* DBX2 COMPUTER 1252 02056 0 01 02030 JMP D5X 1253 * 1254 02057 0 10 00240 H316 JST LFCR 1255 02060 0 10 00244 JST OPCO 1256 02061 0 002127 DAC HH3 1257 02062 0 10 00240 D5H3 JST LFCR 1258 02063 0 02 02000 LDA S2IN REMOVE CALL TO THIS ROUTINE 1259 02064 0 07 02143 SUB =1 1260 02065 0 04 02000 STA S2IN 1261 02066 0 04 00020 STA '20 MARK THE RESTART LOCATION 1262 02067 0 10 00240 JST LFCR 1263 02070 0 10 00240 JST LFCR 1264 02071 0 02 02016 LDA CRA 1265 02072 -0 04 02000 STA* S2IN 1266 02073 -0 01 02000 JMP* S2IN EXIT 1267 * 1268 02074 0 001464 DAC1 DAC BTEX 1269 02075 0 001230 DAC2 DAC BTES+1 1270 02076 0 001253 DAC3 DAC RWO6+3 1271 02077 0 001047 DGGS DAC GGSO ENABLE OR DISABLE H316 CSM-150 TEST 1272 02100 140702 MESA BCI 6,AB16-CMT5 02101 130666 02102 126703 02103 146724 02104 132640 02105 120240 1273 02106 145325 BCI 6,JUN 7, 73 02107 147240 02110 133654 02111 120267 02112 131640 02113 120240 1274 02114 151305 BCI 3,REV E 02115 153240 02116 142640 1275 02117 000000 OCT 0 1276 02120 000000 ZERO OCT 0 1277 02121 141720 DD5 BCI 5,CP IS 516 02122 120311
* NAME: AB16-CMT5 DOC 70181454000 REV E PAGE 28

02123 151640 02124 132661 02125 133240 1278 02126 000000 OCT 0 1279 02127 141720 HH3 BCI 5,CP IS 316 02130 120311 02131 151640 02132 131661 02133 133240 1280 02134 000000 OCT 0 1281 02135 141720 X13 BCI 5,CP IS 716 02136 120311 02137 151640 02140 133661 02141 133240 1282 02142 000000 OCT 0 1283 02143 000001 FIN 02144 000004 02145 004004 02146 177776 02147 100000 02150 101000 02151 177765 02152 047040 1284 END '1000 AME1 000665A ASCH 000460A ASVC 000667A B13 001624A B813 001623A BETS 001232A BITC 000672A BPTT 001051A BTC1 001241A BTC2 001242A BTES 001227A BTEX 001464A BTX1 001475A BTX2 001476A BTX3 001467A BUFF 001464A BUSA 001463A CBAR 000370A CBAS 000362A CELC 001100A CELO 001120A CFA 000676A CHNA 001545A CHNJ 001546A CHNL 001547A CHNM 001550A CHNN 001551A CHNO 001544A CHNP 001552A CHNQ 001553A CHNR 001554A CHNS 001555A CHNZ 001560A CLA 000677A CMT 001002A CNTA 001540A CONO 001153A CONT 001141A COSB 000172A COSC 000151A COSD 000141A COSE 000123A COSI 000120A COSS 000154A CRA 002016A CWCP 001026A D5H3 002062A D5X 002030A DAC1 002074A DAC2 002075A DAC3 002076A DBFF 000711A DBX1 000706A DBX2 000707A DBX3 000710A DD5 002121A DEAB 000323A DECC 000303A DECL 000355A DECN 000356A DECS 000316A DGGS 002077A DIPL 001556A DPGL 001542A DTLP 001557A EME1 000271A ENDT 001673A EOPP 000536A EOPR 000515A EOPS 000524A ERR 001164A GG8K 001563A GGRO 001035A GGSO 001047A H316 002057A HH3 002127A INIT 001477A INT1 001073A INTT 001057A IPLS 000403A IPOC 000207A JCNT 001652A JOGL 001625A JTRD 001151A LA 001530A LFCR 000240A LP1 001634A LP2 001641A M 001242A MES1 000712A MES2 000720A MESA 002100A
* NAME: AB16-CMT5 DOC 70181454000 REV E PAGE 29

MOAD 001447A MORP 001366A MORT 001401A MOUC 001436A MOVE 001347A NDIF 001543A NEWL 000673A NFA 000700A NLA 000701A NOW 000674A NOWA 001533A NOWB 000675A NSAD 001541A NUPL 001413A OCTL 000467A OECK 000650A OECN 000660A OECU 000624A OEHE 000627A OELI 000615A OERP 000611A OESR 000644A OPCO 000244A OPNW 000251A OPOW 000222A PACD 000664A PACK 000436A PASC 001561A PAT1 001535A PAT2 001536A PATT 001537A PBA 000726A PNTA 001524A PNTB 001525A PNTM 000670A PNTO 000671A PNTW 000666A PNTX 000261A PNTZ 000705A PRTY 000723A RAND 000702A RANE 000703A RANF 000704A RDO1 001317A RDO2 001333A RDOO 001314A REJT 000441A RNDP 001134A RNGR 000505A RNGW 000475A RW8K 001575A RW8L 001577A RWO1 001262A RWO2 001266A RWO3 001274A RWO4 001275A RWO6 001250A RWOO 001246A S2IN 002000A SAVC 001526A SAVE 001527A SHBR 001205A SHBS 001206A SHBT 001177A SHFE 001635A SHFI 001651A SIGN 001534A SPAC 000203A STR2 001003A TCPT 000560A TEFP 001220A TEMN 001562A TEMP 001214A TLCD 000662A TLEC 001462A TLP 001653A TLPP 000663A TLPT 001654A TYRE 000270A TYSE 000262A WCP 001017A WROO 001342A X1 001240A X13 002135A X13R 002044A Y1 001531A Y2 001532A ZERO 002120A 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71