A0TR,   0
        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
$