 TYPE
    ost$keypoint_environment = (osc$job_keypoints, osc$system_keypoints,
      osc$job_sample_keypoints, osc$system_sample_keypoints,
      osc$spare1_keypoints, osc$spare2_keypoints),
    ost$keypoint_class_mask = set of 0 .. 15,
    ost$keypoint_multipro_option = (osc$keypoints_single_processor,
      osc$keypoints_multi_processor),

{ OS keypoint definitions

    ost$keypoint = packed record
      clock: 0 .. 0fffffff(16),
      keypoint_class: 0 .. 0f(16),
      keypoint_data: 0 .. 0fffff(16),
      keypoint_code: 0 .. 0fff(16),
    recend,

{ CYBIL definition of general class 15 keypoint

    ost$class_15_keypoint = record
      keypoint: ost$keypoint,
      date_time: ost$date_time,
      microsecond_clock: integer,
      user_data: string (32),
    recend;

{ Keypoint code values for class 15 keypoints

  CONST
    osc$keypoint_cl15_reserve = 0,
    osc$keypoint_cl15_release = 1,
    osc$keypoint_cl15_start = 2,
    osc$keypoint_cl15_stop = 3,
    osc$keypoint_cl15_issue = 4;

?? PUSH (LISTEXT := ON) ??
*copyc ost$date_time
?? POP ??
