home *** CD-ROM | disk | FTP | other *** search
/ BURKS 2 / BURKS_AUG97.ISO / BURKS / SOFTWARE / LIBS / PMC101.ZIP / LIBSRC.ZIP / MBALLOC.ASM (.txt) < prev    next >
Assembly Source File  |  1994-06-05  |  668b  |  42 lines
  1. .386p
  2. locals
  3.  
  4. public  MB_ALLOC
  5.  
  6. _TEXT           segment byte public use32 'CODE'
  7. assume  cs:_TEXT
  8.  
  9. MB_ALLOC:
  10.         push ebx esi edi
  11.  
  12.         mov cx,[esp+4+12]
  13.         mov bx,[esp+4+12+2]
  14.         mov ax,501h
  15.         int 31h
  16.         jc short @@00
  17.  
  18.         mov edx,[esp+4+12+4]
  19.         mov [edx],cx
  20.         mov [edx+2],bx
  21.         mov [edx+8],di
  22.         mov [edx+10],si
  23.         mov eax,[esp+4+12]
  24.         mov [edx+4],eax
  25.  
  26.         xor eax,eax
  27.         jmp short @@01
  28.  
  29. @@00:
  30.         movsx eax,ax
  31.         cmp ah,80h
  32.         je short @@01
  33.         mov eax,-32768
  34.  
  35. @@01:
  36.         pop edi esi ebx
  37.         ret 8
  38.  
  39. _TEXT           ends
  40. end
  41.  
  42.