Home | History | Annotate | Line # | Download | only in xscale 
      1  1.1  christos # XScale testcase for MAR and MRA
      2  1.1  christos # mach: xscale
      3  1.1  christos # as: -mcpu=xscale
      4  1.1  christos 
      5  1.1  christos 	.include "testutils.inc"
      6  1.1  christos 
      7  1.1  christos 	start
      8  1.1  christos 
      9  1.1  christos 	.global mar_mra
     10  1.1  christos mar_mra:
     11  1.1  christos 	mvi_h_gr   r2,0
     12  1.1  christos 	mvi_h_gr   r3,0
     13  1.1  christos 	mvi_h_gr   r4,0x0000EFA0
     14  1.1  christos 	mvi_h_gr   r5,0xA0A0A0A0
     15  1.1  christos 
     16  1.1  christos 	# Enable access to CoProcessors 0 & 1 before
     17  1.1  christos         # we attempt these instructions.
     18  1.1  christos 
     19  1.1  christos 	mvi_h_gr   r1, 3
     20  1.1  christos 	mcr        p15, 0, r1, cr15, cr1, 0
     21  1.1  christos 	
     22  1.1  christos 	mar        acc0, r5, r4
     23  1.1  christos 	mra        r2, r3, acc0
     24  1.1  christos 	
     25  1.1  christos 	test_h_gr  r2,0xA0A0A0A0
     26  1.1  christos 	test_h_gr  r3,0x0000EFA0
     27  1.1  christos 	test_h_gr  r4,0x0000EFA0
     28  1.1  christos 	test_h_gr  r5,0xA0A0A0A0
     29  1.1  christos 	
     30  1.1  christos 	pass
     31