如何判断并口的高、低电平？ 要求用DELPHI处理. (10分)

好像C中是这么写的：

int i;

i=0xc4; /*初始化*/
outportb(0x37a);

/*判断有无ic卡 i=0有,1无*/
i=outportb(0x379);
i=i&0x40;

有问题么? 你要看并口那一位的电平?
var
result : byte;
begin
asm
mov al, $c4
mov dx, $37a
out dx, al
dec dx
in al, dx
and al, $40
mov result, al
end;
end;