21 lines
245 B
Text
21 lines
245 B
Text
# cr16 testcase for jfs (repl)
|
|
# mach(): cr16
|
|
|
|
.include "testutils.inc"
|
|
|
|
start
|
|
|
|
.global jfs
|
|
jfs:
|
|
movd $ok, (r7,r6)
|
|
lshd $-1, (r7,r6)
|
|
|
|
mvi_h_condbit 0
|
|
movw $0xaa, r4
|
|
movw $0xaa, r5
|
|
addb r4, r5
|
|
jfs (r7,r6)
|
|
not_ok:
|
|
fail
|
|
ok:
|
|
pass
|