Home | History | Annotate | Line # | Download | only in sh 
      1  1.1  christos # sh testcase for shlr
      2  1.1  christos # mach: all
      3  1.1  christos # as(sh):	-defsym sim_cpu=0
      4  1.1  christos # as(shdsp):	-defsym sim_cpu=1 -dsp
      5  1.1  christos 
      6  1.1  christos 	.include "testutils.inc"
      7  1.1  christos 
      8  1.1  christos 	start
      9  1.1  christos 
     10  1.1  christos shlr:
     11  1.1  christos 	set_grs_a5a5
     12  1.1  christos 	mov #0, r0
     13  1.1  christos 	or #192, r0
     14  1.1  christos 	shlr r0
     15  1.1  christos 	assertreg0 96
     16  1.1  christos 	shlr r0
     17  1.1  christos 	assertreg0 48
     18  1.1  christos 	shlr r0
     19  1.1  christos 	assertreg0 24
     20  1.1  christos 	shlr r0
     21  1.1  christos 	assertreg0 12
     22  1.1  christos 	shlr r0
     23  1.1  christos 	assertreg0 6
     24  1.1  christos 	shlr r0
     25  1.1  christos 	assertreg0 3
     26  1.1  christos 
     27  1.1  christos 	# Make sure a bit is shifted into T.
     28  1.1  christos 	shlr r0
     29  1.1  christos 	bf wrong
     30  1.1  christos 	assertreg0 1
     31  1.1  christos 	# Ditto.
     32  1.1  christos 	shlr r0
     33  1.1  christos 	bf wrong
     34  1.1  christos 	assertreg0 0
     35  1.1  christos 
     36  1.1  christos 	set_greg 0xa5a5a5a5, r0
     37  1.1  christos 	test_grs_a5a5
     38  1.1  christos 	pass
     39  1.1  christos 	exit 0
     40  1.1  christos 
     41  1.1  christos wrong:
     42  1.1  christos 	fail
     43