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;
ZnVuY3Rpb24gR2V0Qml0KHggOiBpbnRlZ2VyOyB5IDogYnl0ZSkgOiBieXRlOwphc20KIG1vdiBFQVgsIFgKIG1vdiBDTCwgWQogc2hyIEVBWCwgQ0wKIGpjIEBATDEKIGptcCBAQEwyCiBAQEwxOgogICAgICBtb3YgRUJYLDEKICAgICAgbW92IEVBWCwgRUJYCiBSRVQKIEBATDI6CiAgICAgIG1vdiBFQlgsIDAKICAgICAgbW92IEVBWCwgRUJYCmVuZDsK