var
  portdata:byte;
begin
   asm
      mov al,$20
      mov dx,$20
      out dx,al
      mov dx,$20
      in al,dx
      mov portdata,al;
   end;
end;
在运行到out dx,al即报错Privileged instruction不知是哪方面出了问题
我用的是delphi50,操作系统xp