Home | History | Annotate | Line # | Download | only in cr16
jfs.cgs revision 1.1.1.1 
      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
     22