unit HiAsmUnit;

interface

uses Windows,kol,Share,Debug,tlhelp32;

type
 THiAsmClass = class(TDebug)

   private

   public
     procedure doInit(var _Data:TData; Index:word);
 end;


implementation


function CTL_CODE(DeviceType,Func, Method, Access:DWORD):DWORD;
begin
CTL_CODE:=(DeviceType shl 16) or (Access shl 14) or (Func shl 2) or Method;
end;

function IOCTL_CARDPORT():DWORD;
begin
Result:=CTL_CODE($b8999, $d9284, 0, 1 or 2);
end;



procedure THiAsmClass.doInit;

begin
//
end;

end.