$NOLIST

ISIS:
  PROCEDURE (COMMAND,BLOCK) EXTERNAL;
    DECLARE COMMAND BYTE;
    DECLARE BLOCK ADDRESS;
  END ISIS;


OPEN:
  PROCEDURE (AFT,FILE,ACCESS,MODE,STATUS) EXTERNAL;
    DECLARE (AFT,FILE,ACCESS,MODE,STATUS) ADDRESS;
  END OPEN;


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


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


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


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


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


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


EXIT:
  PROCEDURE EXTERNAL;
  END EXIT;


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


CI:
  PROCEDURE BYTE EXTERNAL;
  END CI;


LO:
  PROCEDURE (CHAR) EXTERNAL;
    DECLARE  CHAR  BYTE;
  END LO;


CSTS:
  PROCEDURE BYTE EXTERNAL;
  END CSTS;


IOCHK:
  PROCEDURE BYTE EXTERNAL;
  END IOCHK;


IOSET:
  PROCEDURE (NEW$BITS) EXTERNAL;
    DECLARE NEW$BITS BYTE;
  END IOSET;


CO:
  PROCEDURE (CHAR) EXTERNAL;
    DECLARE  CHAR  BYTE;
  END CO;

$LIST
