home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1993 May / SIMTEL_0593.ISO / msdos / archivrs / sqz1083e.exe / SETDATE.SQZ / NXTEVAR.ASM < prev    next >
Encoding:
Assembly Source File  |  1993-02-10  |  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.