home *** CD-ROM | disk | FTP | other *** search
/ back2roots/padua / padua.7z / padua / ftp.vapor.com / microdot-1 / md1_src_02.lzx / asconv.a < prev    next >
Text File  |  1989-08-24  |  644b  |  50 lines
  1. ; fast replacement functions for tolower et al
  2.  
  3.     section    "text",code
  4.  
  5.  
  6.     xref    _touppertab
  7.     xref    _tolowertab
  8.  
  9.     xdef    _tolower
  10.     xdef    @tolower
  11. _tolower:
  12.     move.l    4(sp),d0
  13. @tolower:
  14.     lea        _tolowertab(a4),a0
  15.     move.b    0(a0,d0),d0
  16.     rts
  17.  
  18.     xdef    _toupper
  19.     xdef    @toupper
  20. _toupper:
  21.     move.l    4(sp),d0
  22. @toupper:
  23.     lea        _touppertab(a4),a0
  24.     move.b    0(a0,d0),d0
  25.     rts
  26.  
  27.     xdef    @stricmp
  28.     xdef    _stricmp
  29. _stricmp:
  30.     move.l    4(sp),a0
  31.     move.l    8(sp),a1
  32. @stricmp:
  33.     moveq    #0,d0
  34.     move.l    a2,-(sp)
  35.     lea        _tolowertab(a4),a2
  36. sil1:
  37.     move.b    (a0)+,d0
  38.     move.b    0(a2,d0),d0
  39.     move.b    (a1)+,d1
  40.     move.b    0(a2,d1),d1
  41.     sub.l    d1,d0
  42.     bne.s    sil2
  43.     tst.b    d1
  44.     bne.s    sil1
  45. sil2:
  46.     move.l    (sp)+,a2
  47.     rts
  48.  
  49.     end
  50.