35 lines
456 B
Text
35 lines
456 B
Text
# cr16 testcase for jal $sr
|
|
# mach(): cr16
|
|
|
|
.include "testutils.inc"
|
|
|
|
start
|
|
|
|
.global jal
|
|
jal:
|
|
movd $ok1, (r5, r4)
|
|
lshd $-1, (r5,r4)
|
|
jal (ra), (r5,r4)
|
|
not_ok:
|
|
fail
|
|
ok1:
|
|
movd $not_ok, (r7, r6)
|
|
lshd $-1, (r7,r6)
|
|
cmpd (r7,r6), (ra)
|
|
beq ok2
|
|
br not_ok
|
|
ok2:
|
|
movd $ok3, (r5, r4)
|
|
lshd $-1, (r5,r4)
|
|
jal (r1,r0), (r5,r4)
|
|
not_ok1:
|
|
br not_ok
|
|
ok3:
|
|
movd $not_ok1, (r7, r6)
|
|
lshd $-1, (r7,r6)
|
|
cmpd (r7,r6), (r1,r0)
|
|
beq ok4
|
|
br not_ok
|
|
ok4:
|
|
|
|
pass
|