AB16-CMT5

* 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