
  FUNCTION [INLINE] pmp$ts_task_io_enabled: boolean;

?? PUSH (LISTEXT := ON) ??
    VAR
      tcb_p: ^pmt$task_control_block;

    pmp$find_executing_task_tcb (tcb_p);
    pmp$ts_task_io_enabled := tcb_p^.nosve.task_io_enabled;
  FUNCEND pmp$ts_task_io_enabled;

*copyc pmt$task_control_block
*copyc pmp$find_executing_task_tcb
?? POP ??
