Anonymous user
Bitwise operations: Difference between revisions
Added solution for Action!
Puppydrum64 (talk | contribs) m (→{{header|6502 Assembly}}: forgot a # on an immediate operand) |
(Added solution for Action!) |
||
Line 649:
(ash a b)
(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}}==
| |||