%include "CONSTS"
%include "FORMS"
%include "SEG7"

%control 0

%external %routine  DIR FN %alias "IO$DIRFN" %c
                           (%record(sdfm)%name x, %integer func)
   S7_p_a     = func
   S7_p_ser   = x_ser + 1;              ! Directory service
   S7_p_reply = S7_id
   S7_p_b     = addr(x_file);           ! File name descriptor
   S7_p_c     = x_block;                ! Want first (next) block number
   ponoff (S7_p)
   x_block = S7_p_a
%end

%end %of %file