(* Copyright (C) 1990-1992 Clarion Software Corporation *)
(*# module(init_code => off) *)
(*# call(near_call => off,
         reg_param=>(ax),
         reg_saved=>(ax,bx,cx,dx,di,si,ds,st1,st2)) *)
DEFINITION MODULE TSRLow ;

PROCEDURE ShrinkHeap(HeapSize: CARDINAL): CARDINAL;

(* Shrinks far heap to current size plus HeapSize bytes.
   Returns size in paragraphs of process memory block *)

END TSRLow.