?? RIGHT := 110 ??
?? NEWTITLE := ' DXM$STORE_ONE_WORD_RESPONSE_PTR' ??
MODULE dxm$store_one_word_response_ptr;
{
{  This module contains the procedure which provides the interface
{  to procedure cmp$store_one_word_response_ptr.
{

?? PUSH (LISTEXT := ON) ??
*copyc cmp$get_logical_pp_number
*copyc cmp$store_one_word_response_ptr
*copyc dxv$one_word_response_handler
?? POP ??
?? TITLE := ' [XDCL, #GATE]  dxp$store_one_word_response_ptr ', EJECT ??
  PROCEDURE [XDCL, #GATE] dxp$store_one_word_response_ptr
    (    element_name: cmt$element_name;
     VAR status: ost$status);

    VAR
      pp_number: iot$pp_number;

    cmp$get_logical_pp_number (element_name, pp_number, status);
    IF status.normal THEN
      cmp$store_one_word_response_ptr (pp_number, dxv$one_word_response_handler, status);
    IFEND;

  PROCEND dxp$store_one_word_response_ptr;

MODEND dxm$store_one_word_response_ptr;


