AB16-CMT5

* 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