1 1.1 christos # frv testcase for udivi $GRi,$s12,$GRk 2 1.1 christos # mach: fr400 3 1.1 christos 4 1.1 christos .include "../testutils.inc" 5 1.1 christos 6 1.1 christos start 7 1.1 christos 8 1.1 christos .global udivi 9 1.1 christos udivi: 10 1.1 christos ; simple division 12 / 3 11 1.1 christos set_gr_immed 0x0000000c,gr3 12 1.1 christos udivi gr3,3,gr3 13 1.1 christos test_gr_immed 0x00000004,gr3 14 1.1 christos 15 1.1 christos ; random example 16 1.1 christos set_gr_limmed 0xfedc,0xba98,gr3 17 1.1 christos udivi gr3,0x7ff,gr3 18 1.1 christos test_gr_limmed 0x001f,0xdf93,gr3 19 1.1 christos 20 1.1 christos ; random example 21 1.1 christos set_gr_limmed 0xffff,0xffff,gr3 22 1.1 christos udivi gr3,-2048,gr3 23 1.1 christos test_gr_immed 1,gr3 24 1.1 christos 25 1.1 christos ; set up exception handler 26 1.1 christos set_psr_et 1 27 1.1 christos and_spr_immed -4081,tbr ; clear tbr.tt 28 1.1 christos set_gr_spr tbr,gr17 29 1.1 christos inc_gr_immed 0x170,gr17 ; address of exception handler 30 1.1 christos set_bctrlr_0_0 gr17 31 1.1 christos set_spr_immed 128,lcr 32 1.1 christos set_gr_immed 0,gr15 33 1.1 christos 34 1.1 christos ; divide by zero 35 1.1 christos set_spr_addr ok1,lr 36 1.1 christos e1: udivi gr1,0,gr2 ; divide by zero 37 1.1 christos test_gr_immed 1,gr15 38 1.1 christos 39 1.1 christos pass 40 1.1 christos 41 1.1 christos ok1: ; exception handler for divide by zero 42 1.1 christos test_spr_bits 0x18,3,0x1,isr ; isr.dtt is set 43 1.1 christos test_spr_bits 0x0001,0,0x1,esr0 ; esr0 is valid 44 1.1 christos test_spr_bits 0x003e,1,0x13,esr0 ; esr0.ec is set 45 1.1 christos inc_gr_immed 1,gr15 46 1.1 christos rett 0 47 1.1 christos fail 48
Indexes created Tue Oct 27 00:25:24 UTC 2026