Получить в скрипте бит 10 из word

[vik™]

Кусок скрипта который не отрабатывает как мне хочется
Задача: с переменной word по адресу 1200 получить десятый бит и скопировать его в регистр битов 707

if ((PSW[1200]&(1<<10))!=0)
{
SetPSB(707);
}
else
{
ResetPSB(707);
}

С 0 по 7 бит всё четко работает. Но за пределами восьми бит не корректно отрабатывает.
Хелп