changeset 136:4c7c3d3e0265

Add bitwise operation sample
author Mike Pavone <pavone@retrodev.com>
date Thu, 08 Aug 2013 20:04:49 -0700
parents f98790d8a53d
children 101fa04ee9e1
files samples/bitwise.tp
diffstat 1 files changed, 11 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/samples/bitwise.tp	Thu Aug 08 20:04:49 2013 -0700
@@ -0,0 +1,11 @@
+#{
+	main <- {
+		a <- 0x42
+		b <- 0x7A
+		print: "a or b = " . (string: a or b) . "\n"
+		print: "a and b = " . (string: a and b) . "\n"
+		print: "a xor b = " . (string: a xor b) . "\n"
+		print: "lshift: a by: 3 = " . (string: (lshift: a by: 3)) . "\n"
+		print: "rshift: b by: 1 = " . (string: (rshift: b by: 1)) . "\n"
+	}
+}