ldub.cgs   [plain text]


# fr30 testcase for
# mach(): fr30
#  ldub $Rj,$Ri
#  ldub @($R13,$Rj),$Ri
#  ldub @($R14,$disp8),$Ri

	.include "testutils.inc"

	START

	.text
	.global ldub
ldub:
	; Test ldub $Rj,$Ri
	mvi_h_mem	#0x00adbeef,sp
	set_cc          0x0f		; condition codes should not change
	ldub		@sp,r7
	test_cc		1 1 1 1
	test_h_gr  	0,r7

	mvi_h_mem	#0x01adbeef,sp
	set_cc          0x07		; condition codes should not change
	ldub    	@sp,r7
	test_cc		0 1 1 1
	test_h_gr  	1,r7

	mvi_h_mem	#0x7fadbeef,sp
	set_cc          0x0b		; condition codes should not change
	ldub		@sp,r7
	test_cc		1 0 1 1
	test_h_gr  	0x7f,r7

	mvi_h_mem	#0x80adbeef,sp
	set_cc          0x0d		; condition codes should not change
	ldub      	@sp,r7
	test_cc		1 1 0 1
	test_h_gr  	0x80,r7

	mvi_h_mem	#0xffadbeef,sp
	set_cc          0x0e		; condition codes should not change
	ldub		@sp,r7
	test_cc		1 1 1 0
	test_h_gr  	0xff,r7

	; Test ldub @($R13,$Rj),$Ri
	mvr_h_gr	sp,r13
	inci_h_gr	-8,r13
	mvi_h_gr	8,r8

	mvi_h_mem	#0x00adbeef,sp
	set_cc          0x0f		; condition codes should not change
	ldub		@(r13,r8),r7
	test_cc		1 1 1 1
	test_h_gr  	0,r7

	mvi_h_mem	#0x01adbeef,sp
	set_cc          0x07		; condition codes should not change
	ldub    	@(r13,r8),r7
	test_cc		0 1 1 1
	test_h_gr  	1,r7

	mvi_h_mem	#0x7fadbeef,sp
	set_cc          0x0b		; condition codes should not change
	ldub		@(r13,r8),r7
	test_cc		1 0 1 1
	test_h_gr  	0x7f,r7

	mvi_h_mem	#0x80adbeef,sp
	set_cc          0x0d		; condition codes should not change
	ldub      	@(r13,r8),r7
	test_cc		1 1 0 1
	test_h_gr  	0x80,r7

	mvi_h_mem	#0xffadbeef,sp
	set_cc          0x0e		; condition codes should not change
	ldub		@(r13,r8),r7
	test_cc		1 1 1 0
	test_h_gr  	0xff,r7

	; Test ldub @($R14,$disp8),$Ri
	mvi_h_mem	#0xdeadbeef,sp
	mvr_h_gr	sp,r14
	mvi_h_gr	-0x7f,r8
	add_h_gr	r8,r14

	set_cc          0x0f		; condition codes should not change
	ldub		@(r14,0x7f),r7
	test_cc		1 1 1 1
	test_h_gr  	0xde,r7

	inci_h_gr	0x3f,r14
	set_cc          0x07		; condition codes should not change
	ldub    	@(r14,0x40),r7
	test_cc		0 1 1 1
	test_h_gr  	0xde,r7

	inci_h_gr	0x40,r14
	set_cc          0x0b		; condition codes should not change
	ldub		@(r14,0x0),r7
	test_cc		1 0 1 1
	test_h_gr  	0xde,r7

	inci_h_gr	0x40,r14
	set_cc          0x0d		; condition codes should not change
	ldub      	@(r14,-0x40),r7
	test_cc		1 1 0 1
	test_h_gr  	0xde,r7

	inci_h_gr	0x40,r14
	set_cc          0x0e		; condition codes should not change
	ldub		@(r14,-0x80),r7
	test_cc		1 1 1 0
	test_h_gr  	0xde,r7

	pass