Subversion Repositories scarts

# frv testcase to generate timer interrupt for st $GRk,@($GRi,$GRj)
# mach: fr500 fr550 fr400
# sim: --timer 200,14
        .include "testutils.inc"

        start

        .global align
align:
        and_spr_immed   -4081,tbr               ; clear tbr.tt
        set_gr_spr      tbr,gr17
        inc_gr_immed    0x2e0,gr17              ; address of exception handler
        set_bctrlr_0_0  gr17
        set_spr_immed   0x7fffffff,lcr
        set_spr_addr    ok1,lr
        and_spr_immed   0xffffff87,psr ; enable external interrupts
        or_spr_immed    0x00000069,psr ; enable external interrupts

        set_gr_immed    10,gr16
        set_gr_immed    0,gr15

again:  cmp             gr15,gr16,icc0
        blt             icc0,0,again
        
        pass

; exception handler
ok1:
        inc_gr_immed    1,gr15
        rett            0
        fail