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