Bitwise operations: Difference between revisions
Content added Content deleted
Puppydrum64 (talk | contribs) m (→{{header|6502 Assembly}}: forgot a # on an immediate operand) |
(Added solution for Action!) |
||
Line 649: | Line 649: | ||
(ash a b) |
(ash a b) |
||
(ash a (- b))))</lang> |
(ash a (- b))))</lang> |
||
=={{header|Action!}}== |
|||
<lang Action!>BYTE FUNC Not(BYTE a) |
|||
RETURN (a!$FF) |
|||
PROC Main() |
|||
BYTE a=[127],b=[2],res |
|||
res=a&b |
|||
PrintF("%B AND %B = %B%E",a,b,res) |
|||
res=a%b |
|||
PrintF("%B OR %B = %B%E",a,b,res) |
|||
res=a!b |
|||
PrintF("%B XOR %B = %B%E",a,b,res) |
|||
res=Not(a) |
|||
PrintF("NOT %B = %B (by %B XOR $FF)%E",a,res,a) |
|||
res=a RSH b |
|||
PrintF("%B SHR %B = %B%E",a,b,res) |
|||
res=a LSH b |
|||
PrintF("%B SHL %B = %B%E",a,b,res) |
|||
RETURN</lang> |
|||
{{out}} |
|||
[https://gitlab.com/amarok8bit/action-rosetta-code/-/raw/master/images/Bitwise_operations.png Screenshot from Atari 8-bit computer] |
|||
<pre> |
|||
127 AND 2 = 2 |
|||
127 OR 2 = 127 |
|||
127 XOR 2 = 125 |
|||
NOT 127 = 128 (by 127 XOR $FF) |
|||
127 SHR 2 = 31 |
|||
127 SHL 2 = 252 |
|||
</pre> |
|||
=={{header|ActionScript}}== |
=={{header|ActionScript}}== |