996
|
1 'General bitwise routines
|
|
2
|
|
3 'NOT: -2 = NOT(*-2)
|
|
4 'Programmed by Jeffry Johnston, 2005
|
|
5 '-1=return jump
|
|
6 300[-2|*-2]*-1
|
|
7
|
|
8 'AND: -2 &= *-3
|
|
9 'Programmed by Jeffry Johnston, 2005
|
|
10 '-1=return jump
|
|
11 301[-2|*-3,-2|*-2]*-1
|
|
12
|
|
13 'OR: -2 |= *-3
|
|
14 'Programmed by Jeffry Johnston, 2005
|
|
15 '-1=return jump, -4=temp
|
|
16 302[-2|*-2,-4=*-3,-4|*-4,-2|*-4]*-1
|
|
17
|
|
18 'XOR: -2 ^= *-3
|
|
19 'Programmed by Jeffry Johnston, 2005
|
|
20 '-1=return jump, -4=temp
|
|
21 303[-4=*-3,-4|*-2,-2|*-4,-4|*-3,-2|*-4]*-1
|
|
22
|
|
23 'NOR: -2 = ~(*-2 | *-3)
|
|
24 'Programmed by Jeffry Johnston, 2005
|
|
25 '-1=return jump, -4=temp
|
|
26 304[-2|*-2,-4=*-3,-4|*-4,-2|*-4,-2|*-2]*-1
|
|
27
|
|
28 'XNOR: -2 = ~(*-2 ^ *-3)
|
|
29 'Programmed by Jeffry Johnston, 2005
|
|
30 '-1=return jump, -4=temp
|
|
31 305[-4=*-3,-4|*-2,-2|*-4,-4|*-3,-2|*-4,-2|*-2]*-1
|
|
32
|
|
33 'NEG: -2 = -*-2, -2 = !*-2
|
|
34 'Programmed by Jeffry Johnston, 2005
|
|
35 '-1=return jump
|
|
36 306[-3=*-2,-2=0,-2-*-3]*-1
|
|
37
|
|
38
|
|
39
|
|
40
|