初學 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;