Bitwise operations: Difference between revisions
Content added Content deleted
Line 3,276: | Line 3,276: | ||
local fn bitwise( a as long, b as long ) |
local fn bitwise( a as long, b as long ) |
||
print @"Input: a = "; a; @" b = "; b |
print @"Input: a = "; a; @" b = "; b |
||
print |
print |
||
print @"AND :", @"a && b = ", bin(a && b), @": "; a && b |
print @"AND :", @"a && b = ", bin(a && b), @": "; a && b |
||
print @"NAND :", @"a ^& b = ", bin(a ^& b), @": "; a ^& b |
print @"NAND :", @"a ^& b = ", bin(a ^& b), @": "; a ^& b |
||
print @"OR :", @"a || b = ", bin(a || b), @": "; a || b |
print @"OR :", @"a || b = ", bin(a || b), @": "; a || b |
||
print @"NOR :", @"a ^| b = ", bin(a ^| b), @": "; a ^| b |
print @"NOR :", @"a ^| b = ", bin(a ^| b), @": "; a ^| b |
||
print @"XOR :", @"a ^^ b = ", bin(a ^^ b), @": "; a ^^ b |
print @"XOR :", @"a ^^ b = ", bin(a ^^ b), @": "; a ^^ b |
||
print @"NOT :", @" not a = ", bin( not a), @": "; not a |
print @"NOT :", @" not a = ", bin( not a), @": "; not a |
||
print |
print |
||
print @"Left shift :", @"a << b =", bin(a << b), @": "; a << b |
print @"Left shift :", @"a << b =", bin(a << b), @": "; a << b |
||
print @"Right shift :", @"a >> b =", bin(a >> b), @": "; a >> b |
print @"Right shift :", @"a >> b =", bin(a >> b), @": "; a >> b |
||
print |
print |
||
print @"Rotate left :", @"fn rotl( a, b ) = ", bin(fn rotl( a, b)), @": "; fn rotl( a, b ) |
print @"Rotate left :", @"fn rotl( a, b ) = ", bin(fn rotl( a, b)), @": "; fn rotl( a, b ) |
||
print @"Rotate right :", @"fn rotr( a, b ) = ", bin(fn rotr( a, b )),@": "; fn rotr( a, b ) |
print @"Rotate right :", @"fn rotr( a, b ) = ", bin(fn rotr( a, b )),@": "; fn rotr( a, b ) |
||
end fn |
end fn |
||