XREF _SearchPattern

        CSECT text,0,,1,2
        XDEF _Search
_Search:
        LEA 0,A0
        MOVE.W _SearchPattern,D1
Start:
        LEA _SearchPattern,A1
        ADDQ #2,A1
Loop1:
        CMP.W (A0)+,D1
        BEQ.S Ctrl
        CMPA.L #(1024*1024),A0 ; 1024*1024 is for the new Agnus chip; otherwise 512*1024
        BNE.S Loop1
        MOVEQ #0,D0
        RTS

Ctrl:
        MOVEQ #6,D0
Loop2:
        CMPM.W (A0)+,(A1)+
        BNE.S Start
        DBRA D0,Loop2
        SUBQ #8,A0
        SUBQ #8,A0
        MOVE.L A0,D0
        RTS

        END