# 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