AB16-CMT5

* 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