home *** CD-ROM | disk | FTP | other *** search
/ BURKS 2 / BURKS_AUG97.ISO / BURKS / SOFTWARE / LIBS / PMC101.ZIP / LIBSRC.ZIP / XLTSINT.ASM (.txt) < prev   
Assembly Source File  |  1994-06-12  |  749b  |  49 lines
  1. .386p
  2. locals
  3.  
  4. public  _xlt_simrmint
  5.  
  6. _TEXT           segment byte public use32 'CODE'
  7. assume  cs:_TEXT
  8.  
  9. _xlt_simrmint:
  10.         push ebx edi
  11.  
  12.         mov edi,[esp+4+8+4]
  13.         mov edx,esp
  14.         mov ecx,[esp+4+8+8]
  15.         mov ebx,[esp+4+8]
  16.         jecxz short @@02
  17.  
  18.         lea eax,[esp+4+8+12]
  19. @@00l:
  20.         push word ptr [eax]
  21.         add eax,4
  22.         dec ecx
  23.         jnz @@00l
  24.  
  25.         mov ecx,[edx+4+8+8]
  26.  
  27. @@02:
  28.         mov ax,300h
  29.         int 31h
  30.         mov esp,edx
  31.         jc short @@00
  32.  
  33.         xor eax,eax
  34.         jmp short @@01
  35.  
  36. @@00:
  37.         movsx eax,ax
  38.         cmp ah,80h
  39.         je short @@01
  40.         mov eax,-32768
  41.  
  42. @@01:
  43.         pop edi ebx
  44.         ret
  45.  
  46. _TEXT           ends
  47. end
  48.  
  49.