Home | History | Annotate | Line # | Download | only in interrupts 
      1  1.1  christos # frv testcase to generate timer interrupt for st $GRk,@($GRi,$GRj)
      2  1.1  christos # mach: fr500 fr550 fr400
      3  1.1  christos # sim: --timer 200,14
      4  1.1  christos 	.include "testutils.inc"
      5  1.1  christos 
      6  1.1  christos 	start
      7  1.1  christos 
      8  1.1  christos 	.global align
      9  1.1  christos align:
     10  1.1  christos 	and_spr_immed	-4081,tbr		; clear tbr.tt
     11  1.1  christos 	set_gr_spr	tbr,gr17
     12  1.1  christos 	inc_gr_immed	0x2e0,gr17		; address of exception handler
     13  1.1  christos 	set_bctrlr_0_0  gr17
     14  1.1  christos 	set_spr_immed	0x7fffffff,lcr
     15  1.1  christos 	set_spr_addr	ok1,lr
     16  1.1  christos 	and_spr_immed	0xffffff87,psr ; enable external interrupts
     17  1.1  christos 	or_spr_immed	0x00000069,psr ; enable external interrupts
     18  1.1  christos 
     19  1.1  christos 	set_gr_immed	10,gr16
     20  1.1  christos 	set_gr_immed	0,gr15
     21  1.1  christos 
     22  1.1  christos again:	cmp		gr15,gr16,icc0
     23  1.1  christos 	blt		icc0,0,again
     24  1.1  christos 	
     25  1.1  christos 	pass
     26  1.1  christos 
     27  1.1  christos ; exception handler
     28  1.1  christos ok1:
     29  1.1  christos 	inc_gr_immed	1,gr15
     30  1.1  christos 	rett		0
     31  1.1  christos 	fail
     32