perm filename GETPPN.SAI[LIB,AIL] blob sn#408164 filedate 1979-01-09 generic text, type T, neo UTF8
entry GetPPN;
begin "GetPPN"
   define library!entry = true;
   require "std.hdr" source!file;
   require "calli.hdr" source!file;

   internal string procedure GetPPN;
   begin "GetPPN"

      integer SixBitPPN;
      SixBitPPN := Calli(0,Calli!GetPPN);
      return("["& cvos(lh(SixBitPPN)) & "," &
              cvos(rh(SixBitPPN)) & "]");
   end "GetPPN";
end "GetPPN"