home *** CD-ROM | disk | FTP | other *** search
/ BURKS 2 / BURKS_AUG97.ISO / BURKS / SOFTWARE / LIBS / PMC101.ZIP / LIBSRC.ZIP / XLTRMCBA.ASM (.txt) < prev    next >
Assembly Source File  |  1994-06-24  |  669b  |  42 lines
  1. .386p
  2. locals
  3.  
  4. public  XLT_RMCBALLOC
  5.  
  6. _TEXT           segment byte public use32 'CODE'
  7. assume  cs:_TEXT
  8.  
  9. XLT_RMCBALLOC:
  10.         push esi edi
  11.         push ds es
  12.  
  13.         mov es,[esp+4+16+8]
  14.         mov ds,[esp+4+16]
  15.         mov edi,[esp+4+16+12]
  16.         mov esi,[esp+4+16+4]
  17.         mov ax,303h
  18.         int 31h
  19.         pop es ds
  20.         jc short @@00
  21.  
  22.         mov eax,[esp+4+8+16]
  23.         mov [eax],dx
  24.         mov [eax+2],cx
  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
  37.         ret 20
  38.  
  39. _TEXT           ends
  40. end
  41.  
  42.