/   RESET 1.3 23.9.71
/SKIP ROUTINE FOR RECOGNIZING A GIVEN DP BIT PATTERN
/SKIPS WHEN PATTERN IS NOT RECOGNIZED
/LENGTH OF PATTERN DETERMINED BY MASK



*PART7


IRESET, 0
        CLA
        TAD I IRESET/   INIT STATE
        ISZ IRESET
        DCA LSTAT1
        DCA I LSTAT1
        ISZ LSTAT1
        DCA I LSTAT1

        TAD MASKLO/  INIT MASK
        AND NMSKLO/  DETERMINE LENGTH OF PATTERN
        CMA
        DCA INVMLO

        TAD MASKHI
        AND NMSKHI
        CMA
        DCA INVMHI

        JMS I IRESET



RESET,  0
        CLL RAR/  TRANSFORM BIT PATTERN TO SIGN AND MAG BITS
        SNA
        CML
        RAL
        DCA SAVBIT

        TAD I RESET/   GET STATE ADDRESS  1=LOW
        ISZ RESET
        DCA LSTAT1
        TAD LSTAT1
        IAC
        DCA LSTAT2

        TAD I LSTAT1/   SHIFT REG LOW END
        MQL
        TAD I LSTAT2
        SHL
        1
        DCA I LSTAT2
        MQA
        TAD SAVBIT/    UPDATE
        DCA I LSTAT1

        TAD I LSTAT1/   COMPARE LOW END
        AND NMSKLO/    DETERMINE LENGTH OF PATTERN
        TAD INVMLO
        IAC
        SZA CLA
        JMP NOTFND

        TAD I LSTAT2
        AND NMSKHI
        TAD INVMHI
        IAC
        SZA CLA

NOTFND, ISZ RESET


        JMP I RESET



SAVBIT, 0
MASKLO, 0
MASKHI, 0
NMSKLO, 2323
NMSKHI, 2323
LSTAT1, 0
LSTAT2, 0
INVMLO, 0
INVMHI, 0
$$$$$$$$$$$