home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / ENTERPRS / CPM / UTILS / A / ARC20.ARC / ARCMACS.ARC / MATCH.MAC < prev    next >
Text File  |  1989-11-01  |  229b  |  22 lines
  1. ; MATCH for Turbo-ARC, TR 011189
  2.     .z80
  3.     extrn    s,mask
  4.  
  5.     ld    hl,s
  6.     ld    de,mask
  7.     ld    b,11
  8. loop:    inc    hl
  9.     inc    de
  10.     ld    a,(de)
  11.     cp    '?'
  12.     jr    z,ok
  13.     cp    (hl)
  14.     jr    nz,ende
  15. ok:    djnz    loop
  16. ende:    ld    hl,0
  17.     ret    nz
  18.     inc    l
  19.     ret
  20.  
  21.     end
  22.