OPEN: PROCEDURE (AFTPTR,FILE,ACCESS,MODE,STATUS) EXTERNAL;
     DECL (AFTPTR,FILE,ACCESS,MODE,STATUS) ADDRESS;
 END OPEN;

CLOSE: PROCEDURE (AFT,STATUS) EXTERNAL;
     DECL (AFT,STATUS) ADDRESS;
 END CLOSE;

DELETE: PROCEDURE (FILE,STATUS) EXTERNAL;
     DECL (FILE,STATUS) ADDRESS;
 END DELETE;

READ: PROCEDURE (AFT,BUFFER,COUNT,ACTUAL,STATUS) EXTERNAL;
     DECL (AFT,BUFFER,COUNT,ACTUAL,STATUS) ADDRESS;
 END READ;

WRITE: PROCEDURE (AFT,BUFFER,COUNT,STATUS) EXTERNAL;
     DECL (AFT,BUFFER,COUNT,STATUS) ADDRESS;
 END WRITE;

SEEK: PROCEDURE (AFT,BASE,BLOCKNUM,BYTENUM,STATUS) EXTERNAL;
     DECL (AFT,BASE,BLOCKNUM,BYTENUM,STATUS) ADDRESS;
 END SEEK;

LOAD: PROCEDURE (FILE,BIAS,RETSW,ENTRY,STATUS) EXTERNAL;
     DECL (FILE,BIAS,RETSW,ENTRY,STATUS) ADDRESS;
 END LOAD;

RENAME: PROCEDURE (OLDFILE,NEWFILE,STATUS) EXTERNAL;
     DECL (OLDFILE,NEWFILE,STATUS) ADDRESS;
 END RENAME;

CONSOL: PROCEDURE (INFILE,OUTFILE,STATUS) EXTERNAL;
     DECL (INFILE,OUTFILE,STATUS) ADDRESS;
 END CONSOL;

EXIT: PROCEDURE EXTERNAL;
 END EXIT;

ATTRIB: PROCEDURE (FILE,SWID,VALUE,STATUS) EXTERNAL;
     DECL (FILE,SWID,VALUE,STATUS) ADDRESS;
 END ATTRIB;

RESCAN: PROCEDURE (AFT,STATUS) EXTERNAL;
     DECL (AFT,STATUS) ADDRESS;
 END RESCAN;

ERROR: PROCEDURE (ERRNUM) EXTERNAL;
     DECL (ERRNUM) ADDRESS;
 END ERROR;

WHOCON: PROCEDURE (AFT,BUFFER) EXTERNAL;
     DECL (AFT,BUFFER) ADDRESS;
 END WHOCON;


DECL READ$AC LIT '01H',
     WRITE$AC LIT '02H',
     UPDATE$AC LIT '03H';

DECL CI$AFT LIT '01H',
     CO$AFT LIT '0H',
     LN$EDT$CO LIT '0F0H';