怎样把这个函数写成delphi代码 ？？？3Q！(10分)

怎样把这个函数写成delphi代码 ？？3Q！
void __fastcall TFormPc::shejiaotiqianl()
{
unsigned char EEl,EEh,BBl,BBh,BBf;
// asm{
// mov dx,IO_ADDR
// add dx,0
// in al,dx
// mov BBl,al
// inc dx
// in al,dx
// mov bl,al
// and bl,01h
// mov BBh,bl
// mov bl,al
// and bl,02h
// mov BBf,bl
// inc dx
// in al,dx
// mov EEl,al
// inc dx
// in al,dx
// and al,01h
// mov EEh,al
// }

EE=(EEh*256+EEl)/10.0;
if(BBf==0x02)
{
BBl=~BBl;
BB=-BBl/10.0;
}
else
{
BB=(BBh*256+BBl)/10.0;
}
}

我现在还没学汇编 不然可以帮你的

delphi也可以直接用汇编来写的

你在DELPHI中直接写汇编，也就是你把这代码直接放在D的程序就行了，转的目的是什么？