有时候，汇编比高级语言更易懂

检查某一位是否为1，如果用高级语言就麻烦得多

function CheckBit(AByte:Byte; Pos: Byte): Boolean; Assembler;

//76543210

asm

MOV CL, DL; //Pos in DL

SHR AL, CL; //AByte in AL

AND AL, 1; //Result in AL

end;