31 lines
495 B
Plaintext
31 lines
495 B
Plaintext
# frv testcase for rett $debug
|
|
# mach: all
|
|
|
|
.include "testutils.inc"
|
|
|
|
start
|
|
|
|
.global rett
|
|
rett:
|
|
and_spr_immed -4081,tbr ; clear tbr.tt
|
|
set_gr_spr tbr,gr7
|
|
inc_gr_immed 2112,gr7 ; address of exception handler
|
|
set_bctrlr_0_0 gr7
|
|
|
|
set_spr_immed 128,lcr
|
|
set_gr_immed 0,gr7
|
|
|
|
set_psr_et 1
|
|
set_spr_addr ok1,lr
|
|
set_icc 0x0 0
|
|
tira gr7,4 ; should branch to tbr + (128 + 4)*16
|
|
ok0:
|
|
test_gr_immed 1,gr7
|
|
pass
|
|
fail
|
|
ok1:
|
|
inc_gr_immed 1,gr7
|
|
rett 1 ; should be a nop
|
|
rett 0
|
|
fail
|