
  TYPE
    jmt$dispatching_control_info = RECORD
      dispatching_control_index: jmt$dispatching_control_index,
      dispatching_priority: jmt$dispatching_priority,
      service_remaining: ost$free_running_clock,
    RECEND;

*copyc jmt$dispatching_control_index
*copyc jmt$dispatching_priority
