home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol081 / space.src < prev    next >
Text File  |  1984-04-29  |  537b  |  22 lines
  1. * Free space determination
  2.  
  3. * This function may be called from Pascal.  It returns the distance
  4. * between the stack and the heap as an unsigned 16-bit integer.
  5. * IX contains the stack address, and the alternate HL pair contains
  6. * the heap address.  It appears to Pascal as:
  7.  
  8. *    function space : integer;
  9. *        external;
  10.  
  11.     entry    space
  12.  
  13. space    push    ix
  14.     pop    h        HL = stack address
  15.     exx
  16.     push    h
  17.     exx
  18.     pop    d        DE = heap address
  19.     dsbc    d        HL := distance between stack and heap
  20.     xchg            DE := HL (function return in Pascal)
  21.     ret
  22.