home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fish 'n' More 2
/
fishmore-publicdomainlibraryvol.ii1991xetec.iso
/
disks
/
disk390.lzh
/
SetClock
/
Include
/
ExecStdIO.i
next >
Wrap
Text File
|
1990-10-23
|
1KB
|
64 lines
{ These are the structures and functions you'll need to
do use the Exec IO facility. }
{$I "Include/Ports.i"}
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;
IOStdReqPtr = ^IOStdReq;
Procedure AbortIO(i : IOStdReqPtr);
External;
Procedure AddDevice(d : Address);
External;
Function CheckIO(i : IOStdReqPtr): IOStdReqPtr;
External;
Procedure CloseDevice(i : IOStdReqPtr);
External;
Function DoIO(i : IOStdReqPtr): Integer;
External;
Function OpenDevice(s : String; u : Integer;
i : IOStdReqPtr; f : Integer) : Integer;
External;
Procedure SendIO(i : IOStdReqPtr);
External;
Function WaitIO(i : IOStdReqPtr): Integer;
External;