Bitwise operations: Difference between revisions

Line 5,090:

In this example we show a relatively straightforward function for converting integers into strings of bits, and another simple ''mask()'' function to create arbitrary lengths of bits against which we perform our masking operations. Also note that the implementation of these functions defaults to single bit rotations of 8-bit bytes. Additional arguments can be used to over-ride these defaults. Any case where the number of rotations modulo the width is zero represents a rotation of all bits back to their starting positions. This implementation should handle any integer number of rotations over bitfields of any valid (positive integer) length.

=={{header|QB64}}==

' no rotations and shift aritmetic are available in QB64

' Bitwise operator in Qbasic and QB64

'AND (operator) the bit is set when both bits are set.

'EQV (operator) the bit is set when both are set or both are not set.

'IMP (operator) the bit is set when both are set or both are unset or the second condition bit is set.

'OR (operator) the bit is set when either bit is set.

'NOT (operator) the bit is set when a bit is not set and not set when a bit is set.

'XOR (operator) the bit is set when just one of the bits are set.

Print "Qbasic and QB64 operators"

Print " Operator 1 vs 1 1 vs 0 0 vs 0"

Print "AND", 1 And 1, 1 And 0, 0 And 0

Print " OR", 1 Or 1, 1 Or 0, 0 Or 0

Print "XOR", 1 Xor 1, 1 Xor 0, 0 Xor 0

Print "EQV", 1 Eqv 1, 1 Eqv 0, 0 Eqv 0

Print "IMP", 1 Imp 1, 1 Imp 0, 0 Imp 0

Print "NOT", Not 1, Not 0, Not -1, Not -2

Print "QB64 operators"

Dim As _Byte a, b, c

a = 1: b = 1: c = 1

For i = 1 To 4

Print a, b, c

Print _SHL(a, i), _SHL(b, i * 2), _SHL(c, i * 3)

For i = 1 To 4

Print a, b, c

Print _SHR(a, i), _SHR(b, i * 2), _SHR(c, i * 3)

=={{header|Quackery}}==