home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / cpm / utils / a / arc20.arc / ARCMACS.ARC / MATCH.MAC < prev    next >
Encoding:
Text File  |  1989-11-02  |  229 b   |  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.