sim/testsuite/cr16/jlt.cgs

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