sra1.s 5.66 KB
/****************************************************************
  This program tests the instruction: sra
 ****************************************************************/

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

	ori	r1, r0, 0xFEED;
Fail:	sw	r0, 0xf80(r0);
	sw	r1, 0xf84(r0);
	sw	r2, 0xf88(r0);
	sw	r3, 0xf8c(r0);
	sw	r4, 0xf90(r0);
	sw	r5, 0xf94(r0);
	sw	r6, 0xf98(r0);
	sw	r7, 0xf9c(r0);
	sw	r8, 0xfa0(r0);
	sw	r9, 0xfa4(r0);
	sw	r10, 0xfa8(r0);
	sw	r11, 0xfac(r0);
	sw	r12, 0xfb0(r0);
	sw	r13, 0xfb4(r0);
	sw	r14, 0xfb8(r0);
	sw	r15, 0xfbc(r0);
	sw	r16, 0xfc0(r0);
	sw	r17, 0xfc4(r0);
	sw	r18, 0xfc8(r0);
	sw	r19, 0xfcc(r0);
	sw	r20, 0xfd0(r0);
	sw	r21, 0xfd4(r0);
	sw	r22, 0xfd8(r0);
	sw	r23, 0xfdc(r0);
	sw	r24, 0xfe0(r0);
	sw	r25, 0xfe4(r0);
	sw	r26, 0xfe8(r0);
	sw	r27, 0xfec(r0);
	sw	r28, 0xff0(r0);
	sw	r29, 0xff4(r0);
	sw	r30, 0xff8(r0);
	sw	r31, 0xffc(r0);
	break;