# fr30 testcase for dmovb
# mach(): fr30

	.include "testutils.inc"
	START

	.text
	.global dmovb
dmovb:
	; Test dmovb @$dir8,$R13
	mvi_h_gr	0xdeadbeef,r1
	mvi_h_gr	0x80,r2
	mvr_h_mem	r1,r2
	set_cc          0x0f		; Condition codes shouldn't change
	dmovb		@0x80,r13
	test_cc		1 1 1 1
	test_h_gr	0xffffffde,r13

	; Test dmovb $R13,@$dir8
	mvi_h_gr	0xbeefdead,r13
	set_cc          0x0e		; Condition codes shouldn't change
	dmovb		r13,@0x80
	test_cc		1 1 1 0
	test_h_mem	0xadadbeef,r2

	; Test dmovb @$dir8,@R13+
	mvi_h_gr	0x7c,r13
	mvi_h_mem	0xdeadbeef,r13
	set_cc          0x0d		; Condition codes shouldn't change
	dmovb		@0x7f,@r13+
	test_cc		1 1 0 1
	mvi_h_gr	0x7c,r2
	test_h_mem	0xefadbeef,r2
	test_h_gr	0x7d,r13

	; Test dmovb @$R13+,@$dir8
	mvi_h_gr	0x7c,r13
	mvi_h_mem	0xbeefdead,r13
	set_cc          0x0c		; Condition codes shouldn't change
	dmovb		@r13+,@0x7f
	test_cc		1 1 0 0
	mvi_h_gr	0x7c,r2
	test_h_mem	0xbeefdebe,r2
	test_h_gr	0x7d,r13

	pass