# cr16 testcase for jcs (regp)
# mach(): cr16

	.include "testutils.inc"

	start

	.global jcs
jcs:
        movd $ok, (r7,r6)
	lshd $-1, (r7,r6)

	mvi_h_condbit 0
	movw $12, r4
	movw $10, r5
	subw r4, r5
	jcs (r7,r6)
not_ok:
	fail
ok:
	pass