
  TYPE
    dft$one_word_response_handler = ^procedure (one_word_response_p: ^dft$fs_pp_response;
      pp_number: 1 .. ioc$pp_count;
      VAR status: syt$monitor_status);

?? PUSH (LISTEXT := ON) ??
*copyc dft$fs_pp_response
*copyc IOT$PP_INTERFACE_TABLE
*copyc syt$monitor_status
?? POP ??

