home *** CD-ROM | disk | FTP | other *** search
/ BURKS 2 / BURKS_AUG97.ISO / BURKS / SOFTWARE / LIBS / PMC101.ZIP / LIBSRC.ZIP / CORELEFT.ASM (.txt) < prev    next >
Assembly Source File  |  1994-06-05  |  472b  |  31 lines
  1. .386p
  2. locals
  3.  
  4. extrn   _lowheapblock:dword, _extheapblock:dword
  5.  
  6. extrn   MBCORELEFT:near
  7.  
  8. public  CORELEFT
  9.  
  10. _TEXT           segment byte public use32 'CODE'
  11. assume  cs:_TEXT
  12.  
  13. CORELEFT:
  14.         push offset _lowheapblock
  15.         call MBCORELEFT
  16.         push eax
  17.         push offset _extheapblock
  18.         call MBCORELEFT
  19.  
  20.         pop ecx
  21.         cmp eax,ecx
  22.         ja short @@00
  23.         mov eax,ecx
  24.  
  25. @@00:
  26.         ret
  27.  
  28. _TEXT           ends
  29. end
  30.  
  31.