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

%control 0

%external %routine  DEV FN %alias "IO$DEVFN"  %c
                           (%record(sdfm) %name x, %integer func)
   S7_p_a     = func;                   ! Read/write
   S7_p_ser   = x_ser
   S7_p_reply = S7_id
   S7_p_b     = x_buffad;               ! Start of stream buffer
   S7_p_c     = x_block;                ! Disk address or output length
   ponoff (S7_p)
%end

%end %of %file