/RESETTING OF COE AND COD DEC STATES


/20.9.71



*PART10


DOTRS,  0

        ISZ I SCNTPT
        NOP

        JMS I LA0TR
        N
        TBAPTR
        A0APTR

        JMS I LA0TR
        NS
        TBSPTR
        LSIZEC

        JMS I LA0TR
        NS
        TBSPTR
        LSIZEA

        JMP I DOTRS



DOTRR,  0

        ISZ I RCNTPT
        NOP

        JMS I LA0TR
        N
        TBAPTR
        A0BPTR

        JMS I LA0TR
        NS
        TBSPTR
        LSIZEB

        JMP I DOTRR



        CLL CML CLA RTR
        TAD I LX
        DCA I LX
        JMP I DOTR



LX,     X
SCNTPT, SCOUNT
RCNTPT, RCOUNT
LA0TR,  A0TR
TBAPTR, TBA
TBSPTR, TBS
NS,     1
LSIZEA, SIZEA
LSIZEB, SIZEB
LSIZEC, SIZEC



*PART11


A0TR,   0
        CLA
        TAD I A0TR/     GET NUMBER OF TAPS
        DCA TEM5
        TAD I TEM5
        CLL RAL
        CIA/            (N) MULT BY 2 AND THEN NEGATIV
        DCA TEM5
        ISZ A0TR
        TAD I A0TR
        DCA TEM6
        TAD I TEM6
        DCA TEM6
        ISZ A0TR
        TAD I A0TR
        DCA TEM7
        TAD I TEM7
        DCA TEM7
        ISZ A0TR
AGAIN,  TAD I TEM6
        DCA I TEM7
        ISZ TEM6
        ISZ TEM7
        ISZ TEM5
        JMP AGAIN
        JMP I A0TR


TEM5,   0
TEM6,   0
TEM7,   0



*PART12


TBA,    0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
TBS,    30
        0

PAUSE