sim/testsuite/sh/shlr.s

   1 # sh testcase for shlr
   2 # mach: all
   3 # as(sh):       -defsym sim_cpu=0
   4 # as(shdsp):    -defsym sim_cpu=1 -dsp
   5
   6         .include "testutils.inc"
   7
   8         start
   9
  10 shlr:
  11         set_grs_a5a5
  12         mov #0, r0
  13         or #192, r0
  14         shlr r0
  15         assertreg0 96
  16         shlr r0
  17         assertreg0 48
  18         shlr r0
  19         assertreg0 24
  20         shlr r0
  21         assertreg0 12
  22         shlr r0
  23         assertreg0 6
  24         shlr r0
  25         assertreg0 3
  26
  27         # Make sure a bit is shifted into T.
  28         shlr r0
  29         bf wrong
  30         assertreg0 1
  31         # Ditto.
  32         shlr r0
  33         bf wrong
  34         assertreg0 0
  35
  36         set_greg 0xa5a5a5a5, r0
  37         test_grs_a5a5
  38         pass
  39         exit 0
  40
  41 wrong:
  42         fail