如何判定一个数的符号位？

[xflin]

我想用DELPHI办到以下功能：

在汇编中
MOV BL,80H
MOVSX AX,BL
由于80h=1000 0000 最高位为符号位,即符号位为1，二进制代码为扩展为0FF80H

我现在就是要在DELPHI中，根据输入的变量A，来根据A的最高位，扩展为FF80或0080，

怎么办啊？

[bill_anson]

and xor or

8 bit then $80;
16bit then $8000;
32bit then $80000000;


if a is a 32bit variable then
a and $80000000 = $80000000 then 最高位为符号位,即符号位为1