udiv.cgs 1.1 KB

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