jlt.cgs 239 B

123456789101112131415161718192021
  1. # cr16 testcase for jlt (regp)
  2. # mach(): cr16
  3. .include "testutils.inc"
  4. start
  5. .global jlt
  6. jlt:
  7. movd $ok, (r7,r6)
  8. lshd $-1, (r7,r6)
  9. mvi_h_condbit 0
  10. movw $1, r4
  11. movw $2, r5
  12. cmpw r4, r5
  13. jlt (r7,r6)
  14. not_ok:
  15. fail
  16. ok:
  17. pass