Listing:

    1  (* Copyright (C) 1990 Jensen & Partners International *)
    2  (*# module(init_code => off) *)
    3  (*# call(near_call => off,
    4           reg_param=>(ax),
    5           reg_saved=>(ax,bx,cx,dx,di,si,ds,st1,st2)) *)
    6  DEFINITION MODULE TSRLow ;
    7  
    8  PROCEDURE ShrinkHeap(HeapSize: CARDINAL): CARDINAL;
    9  
   10  (* Shrinks far heap to current size plus HeapSize bytes.
   11     Returns size in paragraphs of process memory block *)
   12  
   13  END TSRLow.
*****      ^ not supported yet

    1 error