; Hacker's Delight, page 38 - 39, exchanging registers 
1 var 8 x
2 var 8 y 

3 xor 8 1 2
4 xor 8 2 3
5 xor 8 3 4
6 eq 1 1 4
7 eq 1 2 5
8 and 1 6 7

9 add 8 1 2
10 sub 8 9 2
11 sub 8 9 10
12 eq 1 1 10
13 eq 1 2 11
14 and 1 12 13

15 sub 8 1 2
16 add 8 2 15
17 sub 8 16 15
18 eq 1 1 16
19 eq 1 2 17
20 and 1 18 19

21 sub 8 2 1
22 sub 8 2 21
23 add 8 21 22
24 eq 1 1 22
25 eq 1 2 23
26 and 1 24 25

27 or 1 -8 -14
28 or 1 -20 -26
29 or 1 27 28
30 root 1 29