srl1.s 5.04 KB
/****************************************************************
  This program tests the instruction: srl
 ****************************************************************/

#include "suregre.h"

.base 0x04001000

	LI(r0 , 0xFFFF, 0xFFFF);
	LI(r1 , 0x0101, 0x0101);
	LI(r2 , 0x0202, 0x0202);
	LI(r3 , 0x0303, 0x0303);
	LI(r4 , 0x0404, 0x0404);
	LI(r5 , 0x0505, 0x0505);
	LI(r6 , 0x0606, 0x0606);
	LI(r7 , 0x0707, 0x0707);
	LI(r8 , 0x0808, 0x0808);
	LI(r9 , 0x0909, 0x0909);
	LI(r10, 0x0A0A, 0x0A0A);
	LI(r11, 0x0B0B, 0x0B0B);
	LI(r12, 0x0C0C, 0x0C0C);
	LI(r13, 0x0D0D, 0x0D0D);
	LI(r14, 0x0E0E, 0x0E0E);
	LI(r15, 0x0F0F, 0x0F0F);
	LI(r16, 0x1010, 0x1010);
	LI(r17, 0x1111, 0x1111);
	LI(r18, 0x1212, 0x1212);
	LI(r19, 0x1313, 0x1313);
	LI(r20, 0x1414, 0x1414);
	LI(r21, 0x1515, 0x1515);
	LI(r22, 0x1616, 0x1616);
	LI(r23, 0x1717, 0x1717);
	LI(r24, 0x1818, 0x1818);
	LI(r25, 0x1919, 0x1919);
	LI(r26, 0x1A1A, 0x1A1A);
	LI(r27, 0x1B1B, 0x1B1B);
	LI(r28, 0x1C1C, 0x1C1C);
	LI(r29, 0x1D1D, 0x1D1D);
	LI(r30, 0x1E1E, 0x1E1E);
	LI(r31, 0x1F1F, 0x1F1F);
	ChkAluWWI( 1,srl,r5 ,0x0505,0x0505,r3 ,0x0000,0x0000,0x0000,0x0000,0x0000,r2 )
	ChkAluWWI( 2,srl,r6 ,0x0606,0x0606,r4 ,0x0000,0x0180,0x0180,0x0180,0x0180,r3 )
	ChkAluWWI( 3,srl,r7 ,0x0707,0x0707,r5 ,0x0001,0x0120,0x0120,0x0240,0x0240,r4 )
	ChkAluWWI( 4,srl,r8 ,0x0808,0x0808,r6 ,0x0002,0x0108,0x0108,0x0420,0x0420,r5 )
	ChkAluWWI( 5,srl,r9 ,0x0909,0x0909,r7 ,0x0003,0x0102,0x0102,0x0810,0x0810,r6 )
	ChkAluWWI( 6,srl,r10,0x0A0A,0x0A0A,r8 ,0x0004,0x0100,0x8100,0x1008,0x1008,r7 )
	ChkAluWWI( 7,srl,r11,0x0B0B,0x0B0B,r9 ,0x0005,0x0100,0x2100,0x2004,0x2004,r8 )
	ChkAluWWI( 8,srl,r12,0x0C0C,0x0C0C,r10,0x0006,0x0100,0x0900,0x4002,0x4002,r9 )
	ChkAluWWI( 9,srl,r13,0x0D0D,0x0D0D,r11,0x0007,0x0100,0x0300,0x8001,0x8001,r10)
	ChkAluWWI(10,srl,r14,0x0E0E,0x0E0E,r12,0x0008,0x0001,0x8001,0x0180,0x0180,r11)
	ChkAluWWI(11,srl,r15,0x0F0F,0x0F0F,r13,0x0009,0x0001,0x2001,0x0240,0x0240,r12)
	ChkAluWWI(12,srl,r16,0x1010,0x1010,r14,0x000A,0x0001,0x0801,0x0420,0x0420,r13)
	ChkAluWWI(13,srl,r17,0x1111,0x1111,r15,0x000B,0x0001,0x0201,0x0810,0x0810,r14)
	ChkAluWWI(14,srl,r18,0x1212,0x1212,r16,0x000C,0x0001,0x0081,0x1008,0x1008,r15)
	ChkAluWWI(15,srl,r19,0x1313,0x1313,r17,0x000D,0x0001,0x0021,0x2004,0x2004,r16)
	ChkAluWWI(16,srl,r20,0x1414,0x1414,r18,0x000E,0x0001,0x0009,0x4002,0x4002,r17)
	ChkAluWWI(17,srl,r21,0x1515,0x1515,r19,0x000F,0x0001,0x0003,0x8001,0x8001,r18)
	ChkAluWWI(18,srl,r22,0x1616,0x1616,r20,0x0010,0x0000,0x0180,0x0180,0x0180,r19)
	ChkAluWWI(19,srl,r23,0x1717,0x1717,r21,0x0011,0x0000,0x0120,0x0240,0x0240,r20)
	ChkAluWWI(20,srl,r24,0x1818,0x1818,r22,0x0012,0x0000,0x0108,0x0420,0x0420,r21)
	ChkAluWWI(21,srl,r25,0x1919,0x1919,r23,0x0013,0x0000,0x0102,0x0810,0x0810,r22)
	ChkAluWWI(22,srl,r26,0x1A1A,0x1A1A,r24,0x0014,0x0000,0x0100,0x1008,0x1008,r23)
	ChkAluWWI(23,srl,r27,0x1B1B,0x1B1B,r25,0x0015,0x0000,0x0100,0x2004,0x2004,r24)
	ChkAluWWI(24,srl,r28,0x1C1C,0x1C1C,r26,0x0016,0x0000,0x0100,0x4002,0x4002,r25)
	ChkAluWWI(25,srl,r29,0x1D1D,0x1D1D,r27,0x0017,0x0000,0x0100,0x8001,0x8001,r26)
	ChkAluWWI(26,srl,r30,0x1E1E,0x1E1E,r28,0x0018,0x0000,0x0001,0x0180,0x0180,r27)
	ChkAluWWI(27,srl,r2 ,0x0000,0x0000,r29,0x0019,0x0000,0x0001,0x0240,0x0240,r28)
	ChkAluWWI(28,srl,r3 ,0x0180,0x0180,r30,0x001A,0x0000,0x0001,0x0420,0x0420,r29)
	ChkAluWWI(29,srl,r4 ,0x0120,0x0120,r2 ,0x001B,0x0000,0x0001,0x0810,0x0810,r30)
	ChkAluWWI(30,srl,r5 ,0x0108,0x0108,r3 ,0x001C,0x0000,0x0001,0x1008,0x1008,r2 )
	ChkAluWWI(31,srl,r6 ,0x0102,0x0102,r4 ,0x001D,0x0000,0x0001,0x2004,0x2004,r3 )
	ChkAluWWI(32,srl,r7 ,0x0100,0x8100,r5 ,0x001E,0x0000,0x0001,0x4002,0x4002,r4 )
	ChkAluWWI(33,srl,r8 ,0x0100,0x2100,r6 ,0x001F,0x0000,0x0001,0x8001,0x8001,r5 )
	ChkAluWWI(34,srl,r9 ,0x0100,0x0900,r7 ,0x0000,0x0180,0x0180,0x0180,0x0180,r6 )
	ChkAluWWI(35,srl,r10,0x0100,0x0300,r8 ,0x0001,0x0120,0x0120,0x0240,0x0240,r7 )
	ChkAluWWI(36,srl,r11,0x0001,0x8001,r9 ,0x0002,0x0108,0x0108,0x0420,0x0420,r8 )
	ChkAluWWI(37,srl,r12,0x0001,0x2001,r10,0x0003,0x0102,0x0102,0x0810,0x0810,r9 )
	ChkAluWWI(38,srl,r13,0x0001,0x0801,r11,0x0004,0x0100,0x8100,0x1008,0x1008,r10)
	ChkAluWWI(39,srl,r14,0x0001,0x0201,r12,0x0005,0x0100,0x2100,0x2004,0x2004,r11)
	ChkAluWWI(40,srl,r15,0x0001,0x0081,r13,0x0006,0x0100,0x0900,0x4002,0x4002,r12)
	ChkAluWWI(41,srl,r16,0x0001,0x0021,r14,0x0007,0x0100,0x0300,0x8001,0x8001,r13)
	ChkAluWWI(42,srl,r17,0x0001,0x0009,r15,0x0008,0x0001,0x8001,0x0180,0x0180,r14)
	ChkAluWWI(43,srl,r18,0x0001,0x0003,r16,0x0009,0x0001,0x2001,0x0240,0x0240,r15)
	ChkAluWWI(44,srl,r19,0x0000,0x0180,r17,0x000A,0x0001,0x0801,0x0420,0x0420,r16)
	ChkAluWWI(45,srl,r20,0x0000,0x0120,r18,0x000B,0x0001,0x0201,0x0810,0x0810,r17)
	ChkAluWWI(46,srl,r21,0x0000,0x0108,r19,0x000C,0x0001,0x0081,0x1008,0x1008,r18)
	ChkAluWWI(47,srl,r22,0x0000,0x0102,r20,0x000D,0x0001,0x0021,0x2004,0x2004,r19)
	ChkAluWWI(48,srl,r23,0x0000,0x0100,r21,0x000E,0x0001,0x0009,0x4002,0x4002,r20)
	ChkAluWWI(49,srl,r24,0x0000,0x0100,r22,0x000F,0x0001,0x0003,0x8001,0x8001,r21)
	ChkAluWWI(50,srl,r25,0x0000,0x0100,r23,0x0010,0x0000,0x0180,0x0180,0x0180,r22)
	ChkAluWWI(51,srl,r26,0x0000,0x0100,r24,0x0011,0x0000,0x0120,0x0240,0x0240,r23)

	ori	r1, r0, 0xFEED;
Fail:	break;