1# frv testcase for mqlclrhs $FRi,$FRj,$FRj 2# mach: fr450 3 4 .include "testutils.inc" 5 6 start 7 8 .global mqlclrhs 9mqlclrhs: 10 set_fr_iimmed 0x1000,0x2000,fr4 11 set_fr_iimmed 0xe800,0xd800,fr5 12 set_fr_iimmed 0x0800,0x0800,fr6 13 set_fr_iimmed 0x0800,0x0800,fr7 14 mqlclrhs fr4,fr6,fr8 15 test_fr_limmed 0x1000,0x2000,fr8 16 test_fr_limmed 0xe800,0xd800,fr9 17 18 set_fr_iimmed 0x1000,0x2000,fr4 19 set_fr_iimmed 0xe800,0xd800,fr5 20 set_fr_iimmed 0xf800,0xf800,fr6 21 set_fr_iimmed 0xf800,0xf800,fr7 22 mqlclrhs fr4,fr6,fr8 23 test_fr_limmed 0xf000,0xe000,fr8 24 test_fr_limmed 0x1800,0x2800,fr9 25 26 set_fr_iimmed 0x1000,0x1000,fr4 27 set_fr_iimmed 0x1000,0x1000,fr5 28 set_fr_iimmed 0xf000,0xf800,fr6 29 set_fr_iimmed 0x0800,0x1000,fr7 30 mqlclrhs fr4,fr6,fr8 31 test_fr_limmed 0x0000,0xf000,fr8 32 test_fr_limmed 0x1000,0x0000,fr9 33 34 set_fr_iimmed 0xf000,0xf000,fr4 35 set_fr_iimmed 0xf000,0xf000,fr5 36 set_fr_iimmed 0xf000,0xf800,fr6 37 set_fr_iimmed 0x0800,0x1000,fr7 38 mqlclrhs fr4,fr6,fr8 39 test_fr_limmed 0x0000,0x1000,fr8 40 test_fr_limmed 0xf000,0x0000,fr9 41 42 set_fr_iimmed 0x8000,0x8000,fr4 43 set_fr_iimmed 0x8000,0x8000,fr5 44 set_fr_iimmed 0x8000,0x7fff,fr6 45 set_fr_iimmed 0x8001,0x0000,fr7 46 mqlclrhs fr4,fr6,fr8 47 test_fr_limmed 0x0000,0x8000,fr8 48 test_fr_limmed 0x7fff,0x8000,fr9 49 50 set_fr_iimmed 0x7fff,0x7fff,fr4 51 set_fr_iimmed 0x7fff,0x7fff,fr5 52 set_fr_iimmed 0x8000,0x7fff,fr6 53 set_fr_iimmed 0x8001,0x0000,fr7 54 mqlclrhs fr4,fr6,fr8 55 test_fr_limmed 0x0000,0x0000,fr8 56 test_fr_limmed 0x0000,0x7fff,fr9 57 58 set_fr_iimmed 0x8001,0x8001,fr4 59 set_fr_iimmed 0x8001,0x8001,fr5 60 set_fr_iimmed 0x8000,0x7fff,fr6 61 set_fr_iimmed 0x8001,0x0000,fr7 62 mqlclrhs fr4,fr6,fr8 63 test_fr_limmed 0x0000,0x0000,fr8 64 test_fr_limmed 0x0000,0x8001,fr9 65 66 set_fr_iimmed 0x8000,0x8000,fr4 67 set_fr_iimmed 0x0001,0xffff,fr5 68 set_fr_iimmed 0x0001,0xffff,fr6 69 set_fr_iimmed 0x8000,0x8000,fr7 70 mqlclrhs fr4,fr6,fr8 71 test_fr_limmed 0x8000,0x7fff,fr8 72 test_fr_limmed 0x0000,0x0000,fr9 73 74 pass 75