我用一下两个程序在delphi 4.0 上写售饭机程序(西安交通大学饮食中心)
一分钟处理几千笔数据,毫无问题...
procedure portout(com:word;out:byte);
begin
asm
xor edx,edx
xor eax,eax
mov dx,com
mov al,out
out dx,al
end;
end;
function portin(com:word):byte;
begin
asm
xor edx,edx
xor eax,eax
mov dx,com
in al,dx
pop ebx
pop ecx
pop ebp
ret //必须直接返回,否则系统第一次运行会报错!!!
end;
end;
