AB16-CMT5

* 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