?? RIGHT := 110, LEFT := 1 ??
?? FMT (FORMAT := ON, keyw := upper, ident := lower) ??
MODULE sym$service_routines_133;


{
{  PURPOSE:
{     This module contains misc system core procs which execute in the
{     XLS133 library.
{

?? PUSH (LISTEXT := ON) ??
*copyc TMT$RB_CYCLE
*copyc TMT$RB_UPDATE_JOB_TASK_ENVIRO
*copyc OST$STATUS
*copyc OSC$PROCESSOR_DEFINED_REGISTERS
*copyc SYC$MONITOR_REQUEST_CODES
?? POP ??
{External procedures}

*copyc I#CALL_MONITOR
*copyc PMP$FIND_EXECUTING_TASK_XCB
?? EJECT ??

?? EJECT ??

  PROCEDURE [XDCL, #GATE] syp$set_process_interval_timer (pit_value:
    0 .. 7fffffff(16);
    VAR status: ost$status);

  VAR
    req_block: tmt$rb_update_job_task_enviro;

    status.normal := TRUE;
    req_block.reqcode := syc$rc_update_job_task_enviro;
    req_block.subcode := tmc$ujte_xp_register;
    req_block.register_id := osc$pr_process_interval_timer;
    req_block.pit_value := pit_value;
    i#call_monitor (#LOC(req_block), #SIZE(req_block));

  PROCEND syp$set_process_interval_timer;
MODEND sym$service_routines_133;

