谁能帮我改成NT下用的驱动？(35分)

我在做一个数据采集的程序。
以下的Dll原文件，在98下编译通过可以用了，可是现在操作系统换成Win2000。
我看了一些文章说是NT下不能直接对端口操作，但是示例看不懂啊～
在下初学Delphi实在笨得紧了，哪位高人能帮帮我？很急～而且，自己也没有分数了:0
包含一下吧，唉……谁让咱问题多啊～
最好能把下面的程序帮我改成NT可以用得，多谢了。
若是用控件，最好能有免费的，呵呵，…… 拜托了 拜托了……

ADC_PC1632.dpr

library ADC_PC1632;

uses
SysUtils,
Classes;

{$R *.res}
const IOADDRESS = $310;

function ADCover ( CHNO : WORD ) : WORD; register;
begin
asm
PUSH AX
PUSH CX
PUSH DX

MOV DX, IOADDRESS +4
MOV AX, CHNO
OUT DX, AX
//-------------------
MOV CX, 0FFH
@@WAT: NOP
LOOP @@WAT
//-------------------
MOV DX, IOADDRESS +6
@@CHK: IN AX, DX
AND AX, 1
JNZ @@CHK
//-------------------
MOV DX, IOADDRESS +9
IN AL, DX
MOV AH, AL
//------------------
MOV DX, IOADDRESS +8
IN AL, DX
XOR AX, 8000H
SUB AX, 8000H
MOV @Result, AX

POP DX
POP CX
POP AX
end;
end;
exports
ADCover;

begin
end.

http://www.internals.com/
winio

有没有好些地例子？对不起，我太笨了…… 呜呜

那个带了个例子啊

接受答案了.