
  TYPE
    tmt$signal_handler = ^procedure (originator: ost$global_task_id;
          signal: pmt$signal);

*copyc OST$GLOBAL_TASK_ID
*copyc PMT$SIGNAL
