Home | History | Annotate | Line # | Download | only in cr16
      1  1.1  christos # cr16 testcase for jal $sr
      2  1.1  christos # mach(): cr16
      3  1.1  christos 
      4  1.1  christos 	.include "testutils.inc"
      5  1.1  christos 
      6  1.1  christos 	start
      7  1.1  christos 
      8  1.1  christos 	.global jal
      9  1.1  christos jal:
     10  1.1  christos 	movd $ok1, (r5, r4)
     11  1.1  christos 	lshd $-1, (r5,r4)
     12  1.1  christos 	jal (ra), (r5,r4)
     13  1.1  christos not_ok:
     14  1.1  christos 	fail
     15  1.1  christos ok1:
     16  1.1  christos 	movd $not_ok, (r7, r6)
     17  1.1  christos 	lshd $-1, (r7,r6)
     18  1.1  christos 	cmpd (r7,r6), (ra)
     19  1.1  christos 	beq ok2
     20  1.1  christos 	br not_ok
     21  1.1  christos ok2:
     22  1.1  christos 	movd $ok3, (r5, r4)
     23  1.1  christos 	lshd $-1, (r5,r4)
     24  1.1  christos 	jal (r1,r0), (r5,r4)
     25  1.1  christos not_ok1:
     26  1.1  christos 	br not_ok
     27  1.1  christos ok3:
     28  1.1  christos 	movd $not_ok1, (r7, r6)
     29  1.1  christos 	lshd $-1, (r7,r6)
     30  1.1  christos 	cmpd (r7,r6), (r1,r0)
     31  1.1  christos 	beq ok4
     32  1.1  christos         br not_ok
     33  1.1  christos ok4:
     34  1.1  christos 
     35  1.1  christos 	pass
     36