home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l440 / 2.ddi / CHAP8 / MEM.SCR < prev    next >
Encoding:
Text File  |  1990-09-26  |  684 b   |  22 lines
  1. ; MEM.SCR
  2. intercept 21h
  3.     function 48h
  4.         on_entry 
  5.             output "ALLOC " bx "h paras"
  6.         on_exit
  7.             if (cflag==1)
  8.                 sameline " FAIL (" ax "), only " bx "h available"
  9.             if (cflag==0)
  10.                 sameline " - seg " ax "h"
  11.     function 49h
  12.         on_entry output "FREE seg " es "h"
  13.         on_exit if (cflag==1) sameline " denied (" ax "h)"
  14.     function 4ah
  15.         on_entry
  16.             output "REALLOC seg " es "h to " bx "h paras" 
  17.         on_exit 
  18.             if (cflag==1)
  19.                 sameline " FAIL (" ax "h), only " bx "h available"
  20.     function 4bh
  21.         on_entry output (ds:dx->byte,asciiz,64)
  22.