* gas/hppa/basic/basic.exp:
[external/binutils.git] / gas / testsuite / gas / hppa / basic / media.s
1         .LEVEL 2.0
2         .SPACE $PRIVATE$
3         .SUBSPA $DATA$,QUAD=1,ALIGN=8,ACCESS=31
4         .SUBSPA $BSS$,QUAD=1,ALIGN=8,ACCESS=31,ZERO,SORT=82
5         .SPACE $TEXT$
6         .SUBSPA $LIT$,QUAD=0,ALIGN=8,ACCESS=44
7         .SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY
8
9         .SPACE $TEXT$
10         .SUBSPA $CODE$
11
12         .align 4
13 ; PA2.0 multimedia (halfword) instruction tests
14 ;
15 ; We could/should test some of the corner cases for register and 
16 ; immediate fields.  We should also check the assorted field
17 ; selectors to make sure they're handled correctly.
18
19         hadd %r7,%r11,%r12
20         hadd,ss %r7,%r11,%r12
21         hadd,us %r7,%r11,%r12
22
23         havg %r7,%r11,%r12
24         hshl %r7,13,%r11
25         hshladd %r7,1,%r11,%r12
26         hshladd %r7,2,%r11,%r12
27         hshladd %r7,3,%r11,%r12
28         hshr %r7,13,%r11
29         hshr,s %r7,13,%r11
30         hshr,u %r7,13,%r11
31         hshradd %r7,1,%r11,%r12
32         hshradd %r7,2,%r11,%r12
33         hshradd %r7,3,%r11,%r12
34
35         hsub %r14,%r22,%r9
36         hsub,ss %r14,%r22,%r9
37         hsub,us %r14,%r22,%r9
38
39         mixh,l %r14,%r22,%r9
40         mixh,r %r14,%r22,%r9
41         mixw,l %r14,%r22,%r9
42         mixw,r %r14,%r22,%r9
43
44         permh,0321 %r22,%r9
45         permh,2222 %r22,%r9
46         permh,3030 %r22,%r9
47