Mercurial > repos > tabletprog
annotate samples/bitwise.tp @ 136:4c7c3d3e0265
Add bitwise operation sample
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Thu, 08 Aug 2013 20:04:49 -0700 |
parents | |
children |
rev | line source |
---|---|
136 | 1 #{ |
2 main <- { | |
3 a <- 0x42 | |
4 b <- 0x7A | |
5 print: "a or b = " . (string: a or b) . "\n" | |
6 print: "a and b = " . (string: a and b) . "\n" | |
7 print: "a xor b = " . (string: a xor b) . "\n" | |
8 print: "lshift: a by: 3 = " . (string: (lshift: a by: 3)) . "\n" | |
9 print: "rshift: b by: 1 = " . (string: (rshift: b by: 1)) . "\n" | |
10 } | |
11 } |