1# frv testcase for udiv $GRi,$GRj,$GRk
2# mach: frv fr500 fr400
3
4	.include "testutils.inc"
5
6	start
7
8	.global udiv
9udiv:
10	; simple division 12 / 3
11	set_gr_immed   	0x00000003,gr2
12	set_gr_immed   	0x0000000c,gr3
13	udiv      	gr3,gr2,gr3
14	test_gr_immed  	0x00000003,gr2
15	test_gr_immed  	0x00000004,gr3
16
17	; example 1 from udiv in the fr30 manual
18	set_gr_limmed  	0x0123,0x4567,gr2
19	set_gr_limmed  	0xfedc,0xba98,gr3
20	udiv      	gr3,gr2,gr3
21	test_gr_limmed 	0x0123,0x4567,gr2
22	test_gr_immed  	0x000000e0,gr3
23
24	; set up exception handler
25	set_psr_et	1
26	and_spr_immed	-4081,tbr	; clear tbr.tt
27	set_gr_spr	tbr,gr17
28	inc_gr_immed	0x170,gr17	; address of exception handler
29	set_bctrlr_0_0  gr17
30	set_spr_immed	128,lcr
31	set_gr_immed	0,gr15
32
33	; divide by zero
34	set_spr_addr	ok1,lr
35	set_gr_addr	e1,gr17
36e1:	udiv      	gr1,gr0,gr2	; divide by zero
37	test_gr_immed	1,gr15
38
39	pass
40
41ok1:	; exception handler for divide by zero
42	test_spr_bits	0x18,3,0x1,isr		; isr.dtt is set
43	test_spr_gr	epcr0,gr17		; return address set
44	test_spr_bits	0x0001,0,0x1,esr0	; esr0 is valid
45	test_spr_bits	0x003e,1,0x13,esr0	; esr0.ec is set
46	inc_gr_immed	1,gr15
47	rett		0
48	fail
49