Public Sub ROL(ByRef b As Byte)
'Циклический сдвиг влево
If (b And &H80) <> 0 Then
b = (b << 1) Or 1
Else
b = b << 1
End If
End Sub
Public Sub ROR(ByRef b As Byte)
'Циклический сдвиг вправо
If (b And 1) <> 0 Then
b = (b >> 1) Or &H80
Else
b = b >> 1
End If
Nord777 писал(а):ЗЫ насчет "всеми современными процессорами": Когда я опустил "(x86)" промелькнула мысль что обязательно придерутся к словам, что и произошло
Nord777 писал(а):Если ты обиделся на то, что я подумал будто бы ты не знаешь о сдвигах, то прошу меня великодушно простить, не со зла я.
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 52