home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / proglc / tnylib.lzh / RINDEX.ASM < prev    next >
Encoding:
Assembly Source File  |  1986-11-21  |  494 b   |  31 lines
  1. include compiler.inc
  2.  
  3.     ttl    RINDEX, 1.00, 11-03-86, jwk
  4.  
  5.     dseg
  6.     cseg
  7.  
  8.     procdef    rindex, <<string,ptr>, <chr,byte>>
  9.  
  10.     pushreg
  11.     pushds
  12.     ldptr    di,string            ; point DI to string
  13.     xor    al,al
  14.     mov    cx,-1
  15.     cld
  16.     repnz    scasb                ; find EOS
  17.     not    cx                ; set count
  18.     dec    di                ; back up to EOS
  19.     std
  20.     mov    al,chr                ; find CHR
  21.     repne    scasb
  22.     je    ri1                ; got it
  23.     stc
  24.     jmp    short ri2            ; fail, return NULL
  25. ri1:    inc    di                ; back up to match
  26.     clc
  27. ri2:    retptrr    di, es
  28.  
  29.     pend    rindex
  30.     finish
  31.