cbitw.cgs 390 B

1234567891011121314151617181920212223242526272829303132333435
  1. # cr16 testcase for cbitw
  2. # mach: cr16
  3. .include "testutils.inc"
  4. start
  5. .global cbitw
  6. cbitw:
  7. cbitw $4,_y
  8. loadw _y, r1
  9. cmpb $0xef, r1
  10. beq ok1
  11. not_ok:
  12. fail
  13. ok1:
  14. movd $_y, (r1,r0)
  15. cbitw $5,0(r1,r0)
  16. loadw _y, r1
  17. cmpb $0xcf, r1
  18. beq ok2
  19. br not_ok
  20. ok2:
  21. movw $_y, r1
  22. cbitw $6,0(r1)
  23. loadw _y, r1
  24. cmpb $0x8f, r1
  25. beq ok3
  26. br not_ok
  27. ok3:
  28. pass
  29. _y: .word 0xff