以下程序代码若用delphi写应如何：(这是c)

//编译通过 未作功能测试
procedure Win95Outportb( portnum:short;data:byte);
 begin
 //这是一个向端口输出数据的函数
   //原函数经C++Builder编译通过，通过查看其汇编级代码 写出此函数
  {
  __emit__(0x8b, 0x95, &portnum);
  __emit__(0x8a, 0x85, &data);
  __emit__(0x66, 0xee);
  asm inc dx;
  asm inc dx;
  asm mov al, 0xC4;
  asm out dx, al;
  }
   asm
     mov edx,0
     mov dx,portnum
     mov al,data
     out dx,al
     inc dx
     inc dx
     mov al,$C4
     out dx,al
   end;
 end;