// 位设置 8088系列没有单片机的位操作指令,只能用逻辑指令.哎,杀鸡用牛刀啊
ver bitBuf:byte;
begin
bitBuf:=0;
if (bitIn7=true) then bitBuf:=bitBuf or 0x80 //设置 D7
else if (bitIn6=true) then bitBuf:=bitBuf or 0x40 //设置 D6
........
else if (bitIn0=true) then bitBuf:=bitBuf or 0x01; //设置 D0
end;