Turbo Pascal 3.01A for CP/M-80二进制字面量支持及替代方法咨询

版本兼容性确认 #

Turbo Pascal 3.01A for CP/M-80不支持以%作为前缀的二进制字面量，该版本仅支持十进制、十六进制（$前缀）字面量，语言规范中无二进制字面量的语法定义。

无额外机器码的替代方法 #

1. 位运算组合标志位 #

通过位运算拼接单个标志位，编译时编译器会直接计算出最终常量值，不会生成额外执行代码，同时保留标志位配置的可读性：

const
  BIT7 = 1 shl 7;  { 10000000 }
  BIT6 = 1 shl 6;  { 01000000 }
  BIT5 = 1 shl 5;  { 00100000 }
  BIT4 = 1 shl 4;  { 00010000 }
  BIT3 = 1 shl 3;  { 00001000 }
  BIT2 = 1 shl 2;  { 00000100 }
  BIT1 = 1 shl 1;  { 00000010 }
  BIT0 = 1 shl 0;  { 00000001 }

procedure SetRegister(reg, value: Byte);
begin
  Port[CTRL_REG] := reg;     { Set pointer to the register }
  Port[CTRL_REG] := value;   { Write the value to the register }
end;

begin
  // 对应二进制01110001，等价于$71
  SetRegister(3, BIT6 or BIT5 or BIT4 or BIT0);
end.

2. 带二进制注释的十六进制常量 #

直接使用十六进制常量，同时在注释中明确标注对应的二进制位配置，兼顾编译效率与可读性：

procedure SetRegister(reg, value: Byte);
begin
  Port[CTRL_REG] := reg;     { Set pointer to the register }
  Port[CTRL_REG] := value;   { Write the value to the register }
end;

begin
  // 二进制01110001：配置串口波特率/标志位
  SetRegister(3, $71);
end.

3. 编译宏定义模拟二进制字面量 #

利用Turbo Pascal 3.01A支持的{$DEFINE}编译指令，将二进制字符串作为宏名绑定到对应十六进制值，编译时直接展开为常量，无额外机器码：

{$DEFINE BIN_01110001 = $71}

procedure SetRegister(reg, value: Byte);
begin
  Port[CTRL_REG] := reg;     { Set pointer to the register }
  Port[CTRL_REG] := value;   { Write the value to the register }
end;

begin
  SetRegister(3, BIN_01110001);
end.

内容的提问来源于stack exchange，提问作者Natural Number Guy