home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l440 / 2.ddi / CHAP6 / NXTEVAR.ASM < prev    next >
Encoding:
Assembly Source File  |  1990-09-27  |  601 b   |  26 lines
  1. ;       NXTEVAR.ASM - Jim Kyle - July 1990
  2.  
  3. .model small,c
  4.  
  5. .code
  6.  
  7. nxtevar proc    uses di, vptr:far ptr byte
  8.  
  9.         public nxtevar
  10. ; char far * nxtevar( char far * vptr );
  11.         les     di, vptr
  12.         mov     cx, 8000h
  13.         xor     ax, ax      ; search for 0 and...
  14.         mov     dx, ax      ; ...initialize return DX:AX to 0:0
  15. repne   scasb               ; search ES:DI for char 0 in AL
  16.         inc     cx          ; CX = 8000h if only one 0 found
  17.         js      nev         
  18.         mov     dx, es
  19.         mov     ax, di
  20. nev:    ret
  21.  
  22. nxtevar endp
  23.  
  24.         end
  25.  
  26.