home *** CD-ROM | disk | FTP | other *** search
/ Il CD di internet / CD.iso / SOURCE / EXTRA-ST / CPM-80-E / CPM-0.2 / CPM-0 / cpm-0.2 / z80-sources / mylib / cpmem.mac < prev    next >
Encoding:
Text File  |  1994-06-06  |  512 b   |  19 lines
  1. ;************************************************************************
  2. ;*        compare two strings                    *
  3. ;*        returns Z-flag if strings                *
  4. ;*        are the same, else NZ                    *
  5. ;************************************************************************
  6.  
  7.         .z80            ;
  8.         entry _cpmem        ;
  9.  
  10. _cpmem:        ld a,(de)        ;
  11.         cp (hl)            ;
  12.         ret nz            ;
  13.         inc hl            ;
  14.         inc de            ;
  15.         djnz _cpmem        ;
  16.         ret            ;
  17.  
  18.         end            ;
  19.