{
{    The purpose of this request is to create a segment for the ADA control
{  task that can be used as a n ADA shared heap.  The segment created will be
{  entered into the loader's allocated segment table so that it will be in-
{  herited by any asynchronous procedure that is subsequently called.
{
{        PMP$CREATE_ADA_HEAP(HEAP_SEGMENT_POINTER, STATUS)
{
{  HEAP_SEGMENT_POINTER: (output) This parameter specifies a pointer to the
{        heap segments that was created.  This segment will be
{        inherited by all subsequent tasks created in the same "family" of
{        tasks.
{
{  STATUS: (output) This parameter specifies the request status.
{       CONDITIONS: pme$illegal_ada_control_task
{
