
  PROCEDURE [INLINE] nap$send_debug_mode_to_pp
    (    pp_number: iot$pp_number;
         debug_mode: integer);

?? PUSH (LISTEXT := ON) ??
{ The purpose of this procedure is to communicate the pp debug mode value to
{ the specified pp.

    VAR
      command: iot$command;

    command.flags.store_response := TRUE;
    command.flags.indirect_address := FALSE;
    command.command_code := ioc$cc_debug_mode;
    command.length := 0;
    command.address := debug_mode;
    nap$issue_pp_request (pp_number, command, NIL);

  PROCEND nap$send_debug_mode_to_pp;
*copyc iot$pp_number
*copyc iot$command
*copyc nap$issue_pp_request
?? POP ??
