初学 Delphi 嵌入汇编[18] - SHL 与 SHR

汇编中的SHL(左移)、SHR(右移)命令也是和 Delphi 一样的.

---

var

  ByteNum: Byte;

begin

  //右移 shr

  asm

    mov al, 10000000B {128}

    shr al, 1         {shr 10000000 一次会得到 01000000}

    mov ByteNum, al

  end;

  ShowMessage(IntToStr(ByteNum)); {64; shr 相当于 ÷2}





  //左移 shl

  asm

    mov al, 00000001B {1}

    shl al, 1            {shl 一次会得到 00000010}

    shl al, 1            {shl 两次会得到 00000100}

    mov ByteNum, al

  end;

  ShowMessage(IntToStr(ByteNum)); {4; shl 相当于 ×2}

end;