| # sh testcase for xtrct $rm, $rn -*- Asm -*- | |
| # mach: all | |
| # as: -isa=shcompact | |
| # ld: -m shelf32 | |
| .include "compact/testutils.inc" | |
| start | |
| init: | |
| mov #170, r0 | |
| shll8 r0 | |
| add #1, r0 | |
| shll8 r0 | |
| add #66, r0 | |
| shll8 r0 | |
| mov r0, r1 | |
| mov #85, r0 | |
| shll8 r0 | |
| add #2, r0 | |
| shll8 r0 | |
| add #42, r0 | |
| shll8 r0 | |
| add #3, r0 | |
| copy: | |
| mov r0, r3 | |
| mov r1, r4 | |
| xtrct: | |
| xtrct r0, r1 | |
| check: | |
| # Lower r3, upper r4. | |
| shll16 r3 | |
| shlr16 r4 | |
| or r3, r4 | |
| cmp/eq r1, r4 | |
| bf wrong | |
| okay: | |
| pass | |
| wrong: | |
| fail | |