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;