Xor байта с qword

[Dartes]

Здравствуйте! С утра думаю над проблемой... Голова уже болеть начала Так ничего годного и не придумал.

Имеется:
переменная A (8 байт), переменная B (1 байт), параметр X;

Цель:
поксорить 8 бит переменной A с переменной B, начиная с произвольного бита, заданного в X;

Средства: пишу на PureBasic, требуется подсказать логику, а не код. Возможны инлайн-вставки асма, но т.к. переменная 8 байт, а пишу я под x86, не думаю, что асм чем-то поможет. Хотя, может, я и не прав;

Попытки решения:
а) A ! ((B << 56)>> X) ; попытка поксорить со сдвинутым значением B. Вроде всё хорошо, до тех пор, пока число не будет начинаться с 1.

работает:
00110110
сдвиг влево:
00110110000000000000000000000000000 00000000000000000000000000000
сдвиг на позицию (скажем, x = 10):
00000000000011011000000000000000000 00000000000000000000000000000

косяк:
10110110
сдвиг влево:
10110110000000000000000000000000000 00000000000000000000000000000
сдвиг на позицию (скажем, x = 10):
11111111111011011000000000000000000 00000000000000000000000000000

B объявлена, как беззнаковое слово, если это имеет значение.

б) попытка создать маску вида [X нулей][еденицы] для AND'а c результатом, полученным выше, но могу получить только [нули][X едениц]...

Переводить NEG'атив [нули][X едениц] в строку для инвертирования (ReplaceString), затем перевода назад в число, затем OR'ить с [нули][X едениц], для последующего AND'а со сдвинутой B, для последующего XOR'а с A считаю нерациональным, думаю, любой уважающий себя программист со мной согласится Наверняка есть решение проще.

[Stilet]

косяк:

Нифига себе косяк!
Это вообще как-то не укладывается в голове с понятием сдвига битов.

[Dartes]

Ну вот... Я ещё пробовал вместо сдвига вправо использовать деление на степень двойки, ну по сути это вроде одинаково работает (сдвиг вправо на 3 бита аналогично делению на 2^3)... Результат был тот же, только реализовано страшнее.

[Аватар]

http://minilabmaster.com/cgi-bin/yab...num=1323098821

[Dartes]

Аватар, спасибо большое! Сам не нагуглил ((( В голову не стукнуло, что косяк в самом пурике...
...только, как я и говорил, у меня число большое, и как модифицировать асмовский код для процедуры не знаю...

Procedure Shr2(num,count)
  a.l = num / $100000000
  b.l = num % $100000000
  temp.l = 0
  !MOV dword EAX, [p.v_a]
  !MOV dword EDX, [p.v_b]
  !MOV byte CL, [p.v_count]
  !SHRD EAX, EDX, CL
  !MOV dword [p.v_num], 0
  !MOV dword [p.v_num], EAX
  !MOV dword [p.v_temp], EDX
  num = num * $100000000
  num = num + temp
  ProcedureReturn num
EndProcedure

B.q = %10110110
Debug Bin(B)
B = B << 56
Debug Bin(Shr2(B,10))

даёт 0 веселимся с инлайн асмом дальше...

[Stilet]

А можно еще наверное так:
Если первый бит - 1 то инвертировать. Потом сдвигать и инвертировать обратно.
Хотя конечно косяк этот никак не на пользу Бейсику.

[Dartes]

Stilet

B = ~B
B = (B << 56) >> x
B = ~B
A = A ! B

Всё круто, но те биты, что должны бы быть нолями, теперь еденички ))) ибо по центру остаётся полезный байт, каким был, а остальные при сдвиге обнулялись, и при повторном инвертировании становятся 1...

[Dartes]

Всем спасибо за участие, всё гениальное - просто

    If (56-x)>0
      scrn(y+lol) = scrn(y+lol) ! (string << (56-x))
    Else
      scrn(y+lol) = scrn(y+lol) ! (string >> (56-x))
    EndIf

жаль, не я додумался долго тупил

[pbt]

Сообщение от Stilet

Хотя конечно косяк этот никак не на пользу Бейсику.

Это не косяк.
Происходит потому что число знаковое, а сдвиг арифметический, а не логический. В справке об этом написано.

[Dartes]

Сообщение от pbt

Это не косяк.
Происходит потому что число знаковое, а сдвиг арифметический, а не логический. В справке об этом написано.

Это не очевидно в данном случае, потому что число как раз беззнаковое, а раз я сдвигаю беззнаковое число, то почему я получаю знаковый результат? Это, всё же, косяк Я же не виноват, что пурик поддерживает только знаковые длинные числа.