# fr30 testcase for call @$Ri# mach(): fr30	.include "testutils.inc"	START	.text	.global call	; Test call $Ri	mvi_h_gr	0xdeadbeef,r9	mvi_h_gr   	#func1,r0	set_cc          0x0f		; condition codes shouldn't changecall1:	call		@r0	test_h_gr	0xbeefdead,r9	passfunc1:	test_cc		1 1 1 1	mvi_h_gr	#call1,r7	inci_h_gr	2,r7	testr_h_dr	r7,rp	save_rp	mvi_h_gr   	#func2,r0	set_cc          0x0f		; condition codes shouldn't changecall2:	call:d		@r0	ldi:8		1,r0		; Must assume this works	restore_rp	retfunc2:	test_cc		1 1 1 1	mvi_h_gr	#call2,r7	inci_h_gr	4,r7	testr_h_dr	r7,rp	testr_h_gr	1,r0	save_rp	set_cc          0x0f		; condition codes shouldn't changecall3:	call		func3	restore_rp	retfunc3:	test_cc		1 1 1 1	mvi_h_gr	#call3,r7	inci_h_gr	2,r7	testr_h_dr	r7,rp	save_rp	set_cc          0x0f		; condition codes shouldn't changecall4:	call:d		func4	ldi:8		1,r0		; Must assume this works	restore_rp	retfunc4:	test_cc		1 1 1 1	mvi_h_gr	#call4,r7	inci_h_gr	4,r7	testr_h_dr	r7,rp	testr_h_gr	1,r0	mvi_h_gr	0xbeefdead,r9	ret	fail