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