| # sh testcase for rotcl $rn -*- Asm -*- | |
| # mach: all | |
| # as: -isa=shcompact | |
| # ld: -m shelf32 | |
| .include "compact/testutils.inc" | |
| start | |
| .global rotcl | |
| rotcl: | |
| clrt | |
| mov #1, r1 | |
| rotcl r1 | |
| assert r1, #2 | |
| clrt | |
| rotcl r1 | |
| assert r1, #4 | |
| clrt | |
| rotcl r1 | |
| assert r1, #8 | |
| clrt | |
| rotcl r1 | |
| assert r1, #16 | |
| clrt | |
| rotcl r1 | |
| assert r1, #32 | |
| clrt | |
| rotcl r1 | |
| rotcl r1 | |
| rotcl r1 | |
| rotcl r1 | |
| rotcl r1 | |
| rotcl r1 | |
| rotcl r1 | |
| rotcl r1 | |
| rotcl r1 | |
| rotcl r1 | |
| rotcl r1 | |
| rotcl r1 | |
| rotcl r1 | |
| rotcl r1 | |
| rotcl r1 | |
| rotcl r1 | |
| rotcl r1 | |
| rotcl r1 | |
| rotcl r1 | |
| rotcl r1 | |
| rotcl r1 | |
| rotcl r1 | |
| rotcl r1 | |
| rotcl r1 | |
| rotcl r1 | |
| rotcl r1 | |
| rotcl r1 | |
| bf wrong | |
| rotcl r1 | |
| assert r1, #1 | |
| bra trotcl | |
| nop | |
| wrong: | |
| fail | |
| trotcl: | |
| sett | |
| mov #1, r1 | |
| rotcl r1 | |
| assert r1, #3 | |
| clrt | |
| rotcl r1 | |
| assert r1, #6 | |
| clrt | |
| rotcl r1 | |
| assert r1, #12 | |
| clrt | |
| rotcl r1 | |
| assert r1, #24 | |
| clrt | |
| rotcl r1 | |
| assert r1, #48 | |
| clrt | |
| rotcl r1 | |
| rotcl r1 | |
| rotcl r1 | |
| rotcl r1 | |
| rotcl r1 | |
| rotcl r1 | |
| rotcl r1 | |
| rotcl r1 | |
| rotcl r1 | |
| rotcl r1 | |
| rotcl r1 | |
| rotcl r1 | |
| rotcl r1 | |
| rotcl r1 | |
| rotcl r1 | |
| rotcl r1 | |
| rotcl r1 | |
| rotcl r1 | |
| rotcl r1 | |
| rotcl r1 | |
| rotcl r1 | |
| rotcl r1 | |
| rotcl r1 | |
| rotcl r1 | |
| rotcl r1 | |
| rotcl r1 | |
| rotcl r1 | |
| rotcl r1 | |
| bf wrong2 | |
| assert r1, #1 | |
| rotcl r1 | |
| rotcl r1 | |
| okay: | |
| pass | |
| wrong2: | |
| fail |