
  PROCEDURE [INLINE] cmp$convert_pp_ordinal (pp_ordinal : cmt$pp_ordinal;
      VAR pp : dst$iou_resource);
  {
  {  PURPOSE : Given a pp ordinal (cmt$pp_ordinal) convert to
  {     a physical pp number of the type dst$iou_resource.
  {

      CASE pp_ordinal OF
      = cmc$pp0 .. cmc$pp9 =
        pp.channel_protocol := dsc$cpt_nio;
        pp.number := ORD (pp_ordinal);
      = cmc$pp10 .. cmc$pp19 =
        pp.channel_protocol := dsc$cpt_nio;
        pp.number := ORD (pp_ordinal) + 6;
      = cmc$cio_pp0 .. cmc$cio_pp9 =
        pp.channel_protocol := dsc$cpt_cio;
        pp.number := ORD (pp_ordinal) - 20;
      = cmc$cio_pp16 .. cmc$cio_pp25 =
        pp.channel_protocol := dsc$cpt_cio;
        pp.number := ORD (pp_ordinal) - 14;
      CASEND;

  PROCEND cmp$convert_pp_ordinal;

?? PUSH (LISTEXT := ON) ??
*copyc cmt$pp_ordinal
*copyc dst$iou_resource
?? POP ??
