sim/testsuite/cr16/jfs.cgs

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