
%externalroutinespec   FSx initialise file system
%externalintegerfnspec FSx clone Uno(%integer Uno, context)

%externalintegerfnspec FS new owner(%integer Uno, %string(255) s owner,
                                    %integer quota)
%externalintegerfnspec FS change quota(%integer Uno, %string(255) s owner,
                                       %integer delta)
%externalintegerfnspec FS partition(%integer Uno, partition,
                                    %integername bytes, %record(buffer fm)%name b)
%externalintegerfnspec FS logon(%string(255) ownername,
                                %string(255) password, %integername Uno)
%externalintegerfnspec FS logoff(%integer Uno)
%externalintegerfnspec FS delete(%integer Uno, %string(255) filename)
%externalintegerfnspec FS rename(%integer Uno, %string(255) from, to)
%externalintegerfnspec FS permit(%integer Uno, %string(255) filename, permissions)
%externalintegerfnspec FS finfo(%integer Uno, %string(255) ownername,
                                %integer file number,
                                %integername bytes,
                                %record(buffer fm)%name b)
%externalintegerfnspec FS ninfo(%integer Uno, %string(255) filename,
                                %integername bytes, %record(buffer fm)%name b)
%externalintegerfnspec FS pass(%integer Uno, %string(255) password,
                                %string(255) username)
%externalintegerfnspec FS quote(%integer Uno, %string(255) password)
%externalintegerfnspec FS setdir(%integer Uno, %string(255) ownername)
%externalintegerfnspec FS openr(%integer Uno, %string(255) filename,
                                %integername Xno, block count, pad count)
%externalintegerfnspec FS openw(%integer Uno, %string(255) filename,
                                %integer block count,
                                %integername Xno)
%externalintegerfnspec FS openmod(%integer Uno, %string(255) filename,
                                  %integername Xno, block count, pad count)
%externalintegerfnspec FS reset(%integer Xno, block number)
%externalintegerfnspec FS close(%integer Xno)
%externalintegerfnspec FS Uclose(%integer Xno)
%externalintegerfnspec FS readsq(%integer Xno, %integername bytes,
                                 %record(buffer fm)%name buffer)
%externalintegerfnspec FS writesq(%integer Xno, %integer bytes,
                                  %record(buffer fm)%name buffer)
%externalintegerfnspec FS readda(%integer Xno, block number,
                                 %integername bytes,
                                 %record(buffer fm)%name buffer)
%externalintegerfnspec FS writeda(%integer Xno, block number, bytes,
                                  %record(buffer fm)%name buffer)
%externalintegerfnspec FS readback(%integer Xno, %integername bytes,
                                   %record(buffer fm)%name buffer)
%externalintegerfnspec FS dchange(%integer Uno, %string(255) file,
                                  %string(255) date and time)
%externalintegerfnspec FS general(%integer Uno, case,
                                  %string(255) sp2,
                                  %integername bytes,
                                  %record(buffer fm)%name buffer)
%externalintegerfnspec FS control(%integer Uno, case,
                                  %string(255) sp2)

%externalroutinespec FSx clear context(%integer context)


