//  Shifter test program.
//  Test instructions
//  RL5 = EXPADJ R4 BY RL2;
# mach: bfin

.include "testutils.inc"
	start


	R0.L = 30;	// large norm of small value
	R0.H = 1;	// make sure high half is not used
	R1.L = 0x0000;
	R1.H = 0x1000;	// small norm (2) of large value
	R7.L = EXPADJ( R1 , R0.L );
	DBGA ( R7.L , 0x0002 );

	R0.L = 3;	// small norm of large value
	R0.H = 1;	// make sure high half is not used
	R1.L = 0x0000;
	R1.H = 0xff00;	// small norm (2) of large value
	R7.L = EXPADJ( R1 , R0.L );
	DBGA ( R7.L , 0x0003 );

	R0.L = 3;
	R0.H = 1;
	R1.L = 0xffff;
	R1.H = 0xffff;
	R7.L = EXPADJ( R1 , R0.L );
	DBGA ( R7.L , 0x0003 );

	R0.L = 31;
	R0.H = 1;
	R1.L = 0x0000;	// norm=0
	R1.H = 0x8000;
	R7.L = EXPADJ( R1 , R0.L );
	DBGA ( R7.L , 0x0000 );

// RL5 = EXPADJ/EXPADJ R4 BY RL2;

	R0.L = 15;
	R1.L = 0x0800;
	R1.H = 0x1000;
	R7.L = EXPADJ( R1 , R0.L ) (V);
	DBGA ( R7.L , 0x0002 );

	R0.L = 15;
	R1.L = 0x1000;
	R1.H = 0x0800;
	R7.L = EXPADJ( R1 , R0.L ) (V);
	DBGA ( R7.L , 0x0002 );

	R0.L = 1;
	R1.L = 0x0800;
	R1.H = 0x1000;
	R7.L = EXPADJ( R1 , R0.L ) (V);
	DBGA ( R7.L , 0x0001 );

	R0.L = 14;
	R1.L = 0xff00;
	R1.H = 0xfff0;
	R7.L = EXPADJ( R1 , R0.L ) (V);
	DBGA ( R7.L , 0x0007 );

// RL5 = EXPADJ RL4 BY RL2;

	R0.L = 14;
	R1.L = 0xff00;
	R1.H = 0x1000;
	R7.L = EXPADJ( R1.L , R0.L );
	DBGA ( R7.L , 0x0007 );

	R0.L = 3;
	R1.L = 0xff00;
	R1.H = 0x1000;
	R7.L = EXPADJ( R1.L , R0.L );
	DBGA ( R7.L , 0x0003 );

	R0.L = 14;
	R1.L = 0x1000;
	R1.H = 0xff00;
	R7.L = EXPADJ( R1.H , R0.L );
	DBGA ( R7.L , 0x0007 );

	pass