home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
M.u.C.S. Disc 2000
/
MUCS2000.iso
/
anwend
/
gemar306
/
plugin
/
source
/
gemarplu.d
next >
Wrap
Text File
|
1997-01-21
|
2KB
|
74 lines
DEFINITION MODULE GemarPlugParms;
(****************************************************************************
*
* Typen für PlugIn-Parameter für GEMAR.
*
* $Source$
*
* $Revision$
*
* $Author$
*
* $Date$
*
* $State$
*
*****************************************************************************
* History:
*
* $Log$
*
*
****************************************************************************)
IMPORT SYSTEM, System;
(* Standard HM2-Libs *)
(* Magic-Lib *)
FROM MagicSys IMPORT
(* Const *) Nil, Null, Bit0, Bit1, Bit2, Bit3, Bit4, Bit5,
Bit6, Bit7, Bit8, Bit9, Bit10, Bit11, Bit12,
Bit13, Bit14, Bit15,
(* Type *) LOC, Byte, ByteSet, sWORD, sINTEGER, sCARDINAL,
sBITSET, lINTEGER, lCARDINAL, lWORD, lBITSET;
(* Magic-Tools *)
(* Eigene Libs *)
(* Projektlibs *)
TYPE
(* Die Struktur, die von GEMAR geliefert wird *)
tScsiCmd = RECORD
Handle : LONGCARD;
Cmd : SYSTEM.ADDRESS;
CmdLen : SHORTCARD;
Buffer : SYSTEM.ADDRESS;
Transferlen : LONGCARD;
ReqBuffer : SYSTEM.ADDRESS;
Timeout : LONGCARD;
Flags : sBITSET;
END;
tpScsiCmd = POINTER TO tScsiCmd;
tpPlugParms = POINTER TO tPlugParms;
tPlugParms = RECORD
Version : SHORTCARD; (* = 0200H = 2.00 *)
special : SYSTEM.ADDRESS; (* Spezielles für Art des PlugIn *)
StrHandle : LONGCARD;
StrMaxLen : LONGCARD;
BlockLen : SHORTCARD;
ScsiIn : PROCEDURE ((* ScsiCmd *) tpScsiCmd) : SHORTINT;
ScsiOut : PROCEDURE ((* ScsiCmd *) tpScsiCmd) : SHORTINT;
SuperOn : PROC;
SuperOff : PROC;
END;
END GemarPlugParms.