; Hacker's Delight, page 18, shift right signed from unsigned
1 var 32 x
2 var 5 n
3 constd 5 31
4 consth 32 80000000
5 sra 32 1 2

6 add 32 1 4 
7 srl 32 6 2
8 srl 32 4 2
9 sub 32 7 8
10 eq 1 5 9

11 srl 32 1 2
12 xor 32 11 8 
13 sub 32 12 8
14 eq 1 5 13

15 and 32 1 4
16 srl 32 15 2
17 srl 32 1 2
18 add 32 16 16
19 sub 32 17 18
20 eq 1 5 19

21 srl 32 1 3
22 neg 32 21
23 sub 5 3 2 
24 sll 32 22 23
25 or 32 17 24
26 eq 1 5 25

27 xor 32 1 22
28 srl 32 27 2
29 xor 32 28 22
30 eq 1 5 29

31 or 1 -10 -14
32 or 1 -20 -26
33 or 1 31 32
34 or 1 33 -30

35 root 1 34