function GetBit(x : integer; y : byte) : byte;
asm
 mov EAX, X
 mov CL, Y
 shr EAX, CL
 jc @@L1
 jmp @@L2
 @@L1:
      mov EBX,1
      mov EAX, EBX
 RET
 @@L2:
      mov EBX, 0
      mov EAX, EBX
end;