{This deck defines the DISPATCHER control information that is in the CST.
{The 1st 4 bytes are  private to the dispatcher except that CPU monitor will cause
{the dispatcher to be called whenever the value of this record is not
{equal to all zeros. (Requires knowledge of CYBIL data mapping.)
{* * * Assembly language modules set the first byte of this record to 'TRUE'
{      to force a call to the dispatcher.
{The right 4 bytes of the record are used mainly by assembly decks.

  TYPE
    tmt$dispatch_control = record
      call_dispatcher: boolean,
        rethread_current_task: boolean,
      new_task_status: tmt$task_status,
      fill: boolean,
      asynchronous_interrupts_pending: boolean,
    recend;

*copyc TMT$TASK_STATUS
