%include "CONSTS"
%include "FORMS"

%external %string(12) %function  CONSTRUCT %alias "IO$CONS" %c
                                           (%record(sdfm)%name t)
   %byte c
   %integer j, n
   %string(12) s
   %if t == null %or t_type = null type %start
      s = ".N"
   %else %if t_type = file type
      charno(s,1) = t_file_unit + '0'
      charno(s,2) = '.'
      j = 3
      %cycle
         c = t_file_fname(j-2) & 127;         ! Ignore 'temp' bit
         %exit %if c = ' '
         charno(s,j) = c
         j = j + 1
      %repeat %until j = 9
      charno (s, j) = '('; j = j + 1
      n = t_file_fsys >> 3
      %if n # 0 %start
         charno (s, j) = n + '0'
         j = j + 1
      %finish
      charno(s, j) = t_file_fsys & 7 + '0'
      j = j + 1
      charno(s, j) = ')'
      length(s) = j
   %else;                               ! Device
      s = t_device;                     ! This was set up by PARSE
   %finish
   %result = s
%end

%end %of %file