
  PROCEDURE [INLINE] nap$idle_pp
    (    pp_number: iot$pp_number);

?? PUSH (LISTEXT := ON) ??
*copyc nah$idle_pp

    VAR
      command: iot$command;

    command.command_code := ioc$cc_idle;
    command.flags.store_response := TRUE;
    command.flags.indirect_address := FALSE;
    command.length := 0;
    command.address := 0;

    nap$issue_pp_request (pp_number, command, NIL);
  PROCEND nap$idle_pp;

*copyc iot$pp_number
*copyc iot$command
*copyc nap$issue_pp_request
?? POP ??
