9 //BITCLR ( Dreg , uimm5 ) ; /* (a) */
17 //BITSET ( Dreg , uimm5 ) ; /* (a) */
25 //BITTGL ( Dreg , uimm5 ) ; /* (a) */
33 //CC = BITTST ( Dreg , uimm5 ) ; /* set CC if bit = 1 (a)*/
34 CC = BITTST ( R7 , 0 ) ;
35 CC = BITTST ( R7 , 31 ) ;
36 CC = BITTST ( R7 , 15 ) ;
37 CC = BITTST ( R1 , 0 ) ;
38 CC = BITTST ( R2 , 1 ) ;
39 CC = BITTST ( R3 , 19 ) ;
41 //CC = ! BITTST ( Dreg , uimm5 ) ; /* set CC if bit = 0 (a)*/
42 CC = !BITTST ( R7 , 0 ) ;
43 CC = !BITTST ( R7 , 31 ) ;
44 CC = !BITTST ( R7 , 15 ) ;
45 CC = !BITTST ( R1 , 0 ) ;
46 CC = !BITTST ( R2 , 1 ) ;
47 CC = !BITTST ( R3 , 19 ) ;
49 //Dreg = DEPOSIT ( Dreg, Dreg ) ; /* no extension (b) */
57 //Dreg = DEPOSIT ( Dreg, Dreg ) (X) ; /* sign-extended (b) */
58 R7 = DEPOSIT(R0, R1)(X);
59 R7 = DEPOSIT(R7, R1)(X);
60 R7 = DEPOSIT(R7, R7)(X);
61 R1 = DEPOSIT(R0, R1)(X);
62 R2 = DEPOSIT(R7, R1)(X);
63 R3 = DEPOSIT(R7, R7)(X);
65 //Dreg = EXTRACT ( Dreg, Dreg_lo ) (Z) ; /* zero-extended (b)*/
66 R7 = EXTRACT(R0, R1.L)(Z);
67 R7 = EXTRACT(R7, R1.L)(Z);
68 R7 = EXTRACT(R7, R7.L)(Z);
69 R1 = EXTRACT(R0, R1.L)(Z);
70 R2 = EXTRACT(R7, R1.L)(Z);
71 R3 = EXTRACT(R7, R7.L)(Z);
73 //Dreg = EXTRACT ( Dreg, Dreg_lo ) (X) ; /* sign-extended (b)*/
74 R7 = EXTRACT(R0, R1.L)(X);
75 R7 = EXTRACT(R7, R1.L)(X);
76 R7 = EXTRACT(R7, R7.L)(X);
77 R1 = EXTRACT(R0, R1.L)(X);
78 R2 = EXTRACT(R7, R1.L)(X);
79 R3 = EXTRACT(R7, R7.L)(X);
81 //BITMUX ( Dreg , Dreg , A0 ) (ASR) ; /* shift right, LSB is shifted out (b) */
82 BITMUX(R0, R1, A0)(ASR);
83 BITMUX(R0, R2, A0)(ASR);
84 BITMUX(R1, R3, A0)(ASR);
85 //BITMUX(R0, R0, A0)(ASR);
87 //BITMUX ( Dreg , Dreg , A0 ) (ASL) ; /* shift left, MSB is shifted out (b) */
88 //BITMUX(R0, R0, A0)(ASL);
89 BITMUX(R0, R1, A0)(ASL);
90 BITMUX(R1, R2, A0)(ASL);
92 //Dreg_lo = ONES Dreg ; /* (b) */