sim/testsuite/cr16/tbitb.cgs

   1 # cr16 testcase for tbitb
   2 # mach:  cr16
   3
   4         .include "testutils.inc"
   5
   6         start
   7
   8         .global tbitb
   9 tbitb:
  10         movw $0, r1
  11         lpr     r1, psr
  12         movw $_y, r1
  13         tbitb   $0, 0(r1)
  14         spr  psr, r1
  15         cmpb    $0x20, r1
  16         beq ok1
  17 not_ok:
  18         fail
  19
  20 ok1:
  21         movw $0, r1
  22         lpr     r1, psr
  23         movd   $_y, (r1,r0)
  24         tbitb   $1,0(r1,r0)
  25         spr  psr, r1
  26         cmpb    $0x20, r1
  27         beq ok2
  28         br not_ok
  29 ok2:
  30
  31         pass
  32
  33 _y:     .word   0xf7