24 lines
235 B
Text
24 lines
235 B
Text
# cr16 testcase for bc $disp24
|
|
# mach(): cr16
|
|
|
|
.include "testutils.inc"
|
|
|
|
start
|
|
|
|
.global bc24
|
|
bc24:
|
|
|
|
mvi_h_condbit 0
|
|
bne test0fail
|
|
br test0pass
|
|
test0fail:
|
|
fail
|
|
test0pass:
|
|
|
|
mvi_h_condbit 1
|
|
bne test1pass
|
|
fail
|
|
test1pass:
|
|
|
|
pass
|
|
|