--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/interps/linguine/bitwise.lng	Sun Dec 09 19:30:08 2012 +0000
@@ -0,0 +1,40 @@
+'General bitwise routines
+
+'NOT: -2 = NOT(*-2)
+'Programmed by Jeffry Johnston, 2005
+'-1=return jump
+300[-2|*-2]*-1
+
+'AND: -2 &= *-3
+'Programmed by Jeffry Johnston, 2005
+'-1=return jump
+301[-2|*-3,-2|*-2]*-1
+
+'OR: -2 |= *-3
+'Programmed by Jeffry Johnston, 2005
+'-1=return jump, -4=temp
+302[-2|*-2,-4=*-3,-4|*-4,-2|*-4]*-1
+
+'XOR: -2 ^= *-3
+'Programmed by Jeffry Johnston, 2005
+'-1=return jump, -4=temp
+303[-4=*-3,-4|*-2,-2|*-4,-4|*-3,-2|*-4]*-1
+
+'NOR: -2 = ~(*-2 | *-3)
+'Programmed by Jeffry Johnston, 2005
+'-1=return jump, -4=temp
+304[-2|*-2,-4=*-3,-4|*-4,-2|*-4,-2|*-2]*-1
+
+'XNOR: -2 = ~(*-2 ^ *-3)
+'Programmed by Jeffry Johnston, 2005
+'-1=return jump, -4=temp
+305[-4=*-3,-4|*-2,-2|*-4,-4|*-3,-2|*-4,-2|*-2]*-1
+
+'NEG: -2 = -*-2, -2 = !*-2
+'Programmed by Jeffry Johnston, 2005
+'-1=return jump
+306[-3=*-2,-2=0,-2-*-3]*-1
+
+
+
+