home *** CD-ROM | disk | FTP | other *** search
-
- { These are the structures and functions you'll need to
- do use the Exec IO facility. Note that this file uses
- all the message stuff, and thus you must include Ports.i
- BEFORE this file. }
-
- const
- IOOpenFail = -1;
- IOAborted = -2;
- IONoCmd = -3;
- IOBadLength = -4;
-
- IOQuick = 1;
-
- CMD_INVALID = 0;
- CMD_RESET = 1;
- CMD_READ = 2;
- CMD_WRITE = 3;
- CMD_UPDATE = 4;
- CMD_CLEAR = 5;
- CMD_STOP = 6;
- CMD_START = 7;
- CMD_FLUSH = 8;
-
- CMD_NONSTD = 9;
-
- type
- IORequest = record
- ioMessage : Message;
- ioDevice : Address;
- ioUnit : Address;
- ioCommand : Short;
- ioFlags : Byte;
- ioError : Byte;
- end;
- IORequestPtr = ^IORequest;
-
- IOStdReq = record
- ioReq : IORequest;
- ioActual : Integer;
- ioLength : Integer;
- ioData : String;
- ioOffset : Integer;
- end;
-
- Procedure AbortIO(i : IORequestPtr);
- forward;
- Procedure BeginIO(i : IORequestPtr);
- forward;
- Function CheckIO(i : IORequestPtr): IORequestPtr;
- forward;
- Procedure DoIO(i : IORequestPtr): Integer;
- forward;
- Procedure SendIO(i : IORequestPtr);
- forward;
- Function WaitIO(i : IORequestPtr): Integer;
- forward;
-
-