home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 335.lha / ReplaceGadgets_v1.21 / SearchArrows.a < prev   
Text File  |  1990-01-10  |  568b  |  31 lines
  1.         XREF _SearchPattern
  2.  
  3.         CSECT text,0,,1,2
  4.         XDEF _Search
  5. _Search:
  6.         LEA 0,A0
  7.         MOVE.W _SearchPattern,D1
  8. Start:
  9.         LEA _SearchPattern,A1
  10.         ADDQ #2,A1
  11. Loop1:
  12.         CMP.W (A0)+,D1
  13.         BEQ.S Ctrl
  14.         CMPA.L #(1024*1024),A0 ; 1024*1024 is for the new Agnus chip; otherwise 512*1024
  15.         BNE.S Loop1
  16.         MOVEQ #0,D0
  17.         RTS
  18.  
  19. Ctrl:
  20.         MOVEQ #6,D0
  21. Loop2:
  22.         CMPM.W (A0)+,(A1)+
  23.         BNE.S Start
  24.         DBRA D0,Loop2
  25.         SUBQ #8,A0
  26.         SUBQ #8,A0
  27.         MOVE.L A0,D0
  28.         RTS
  29.  
  30.         END
  31.