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 / BEEHIVE / ZCAT / STR.LBR / STRNCMPI.AS < prev    next >
Text File  |  2000-06-30  |  384b  |  29 lines
  1.     psect    text
  2.     global    _strcmpi, tolwr, rcsv, cret
  3.  
  4. _strcmpi:
  5.     call    rcsv
  6.     
  7. 1:    ld    a,c
  8.     or    b
  9.     jr    z,3f
  10.     dec    bc
  11.     ld    a,(hl)
  12.     call    tolwr
  13.     ld    c,a
  14.     ld    a,(de)
  15.     call    tolwr
  16.     cp    c
  17.     jr    nz,2f
  18.     inc    de
  19.     inc    hl
  20.     or    a
  21.     jr    nz,1b
  22. 3:    ld    hl,0
  23.     jp    cret
  24.  
  25. 2:    ld    hl,1
  26.     jp    nc,cret
  27.     dec    h
  28.     jp    cret
  29.