Subversion Repositories eco32

/*
 * mkshtest.c -- generate shift test program
 */
 
 
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
 
 
#define N0	((unsigned) 0x48E6F0B2)
#define N1	((unsigned) 0xC8E6F0B3)
 
 
int chooseReg(void) {
  int r;
 
  r = (rand() >> 8) % 16;
  return r + 8;
}
 
 
void chooseRegs(int *r1, int *r2, int *r3, int *r4) {
  *r1 = chooseReg();
  do {
    *r2 = chooseReg();
  } while (*r2 == *r1);
  do {
    *r3 = chooseReg();
  } while (*r3 == *r2 || *r3 == *r1);
  do {
    *r4 = chooseReg();
  } while (*r4 == *r3 || *r4 == *r2 || *r4 == *r1);
}
 
 
int newLabel(void) {
  static int lbl = 1000;
  return lbl++;
}
 
 
unsigned sar(unsigned n, int shamt) {
  unsigned mask;
 
  mask = (n & 0x80000000) ? ~((unsigned) 0xFFFFFFFF >> shamt) : 0x00000000;
  return mask | (n >> shamt);
}
 
 
int main(void) {
  int shamt;
  int src;
  int sha;
  int dst;
  int ref;
  int lbl;
 
  printf("\tadd\t$7,$0,'.'\n");
  for (shamt = 0; shamt < 32; shamt++) {
    /* sll, N0 */
    printf("\t; sll, n0\n");
    chooseRegs(&src, &sha, &dst, &ref);
    printf("\tadd\t$%d,$0,0x%08X\n", src, N0);
    printf("\tadd\t$%d,$0,%d\n", sha, shamt);
    printf("\tsll\t$%d,$%d,$%d\n", dst, src, sha);
    printf("\tadd\t$%d,$0,0x%08X\n", ref, N0 << shamt);
    lbl = newLabel();
    printf("\tbeq\t$%d,$%d,L%d\n", dst, ref, lbl);
    printf("\tadd\t$7,$0,'?'\n");
    printf("L%d:\n", lbl);
    /* slli, N0 */
    printf("\t; slli, n0\n");
    chooseRegs(&src, &sha, &dst, &ref);
    printf("\tadd\t$%d,$0,0x%08X\n", src, N0);
    printf("\tsll\t$%d,$%d,%d\n", dst, src, shamt);
    printf("\tadd\t$%d,$0,0x%08X\n", ref, N0 << shamt);
    lbl = newLabel();
    printf("\tbeq\t$%d,$%d,L%d\n", dst, ref, lbl);
    printf("\tadd\t$7,$0,'?'\n");
    printf("L%d:\n", lbl);
    /* sll, N1 */
    printf("\t; sll, n1\n");
    chooseRegs(&src, &sha, &dst, &ref);
    printf("\tadd\t$%d,$0,0x%08X\n", src, N1);
    printf("\tadd\t$%d,$0,%d\n", sha, shamt);
    printf("\tsll\t$%d,$%d,$%d\n", dst, src, sha);
    printf("\tadd\t$%d,$0,0x%08X\n", ref, N1 << shamt);
    lbl = newLabel();
    printf("\tbeq\t$%d,$%d,L%d\n", dst, ref, lbl);
    printf("\tadd\t$7,$0,'?'\n");
    printf("L%d:\n", lbl);
    /* slli, N1 */
    printf("\t; slli, n1\n");
    chooseRegs(&src, &sha, &dst, &ref);
    printf("\tadd\t$%d,$0,0x%08X\n", src, N1);
    printf("\tsll\t$%d,$%d,%d\n", dst, src, shamt);
    printf("\tadd\t$%d,$0,0x%08X\n", ref, N1 << shamt);
    lbl = newLabel();
    printf("\tbeq\t$%d,$%d,L%d\n", dst, ref, lbl);
    printf("\tadd\t$7,$0,'?'\n");
    printf("L%d:\n", lbl);
 
    /* slr, N0 */
    printf("\t; slr, n0\n");
    chooseRegs(&src, &sha, &dst, &ref);
    printf("\tadd\t$%d,$0,0x%08X\n", src, N0);
    printf("\tadd\t$%d,$0,%d\n", sha, shamt);
    printf("\tslr\t$%d,$%d,$%d\n", dst, src, sha);
    printf("\tadd\t$%d,$0,0x%08X\n", ref, N0 >> shamt);
    lbl = newLabel();
    printf("\tbeq\t$%d,$%d,L%d\n", dst, ref, lbl);
    printf("\tadd\t$7,$0,'?'\n");
    printf("L%d:\n", lbl);
    /* slri, N0 */
    printf("\t; slri, n0\n");
    chooseRegs(&src, &sha, &dst, &ref);
    printf("\tadd\t$%d,$0,0x%08X\n", src, N0);
    printf("\tslr\t$%d,$%d,%d\n", dst, src, shamt);
    printf("\tadd\t$%d,$0,0x%08X\n", ref, N0 >> shamt);
    lbl = newLabel();
    printf("\tbeq\t$%d,$%d,L%d\n", dst, ref, lbl);
    printf("\tadd\t$7,$0,'?'\n");
    printf("L%d:\n", lbl);
    /* slr, N1 */
    printf("\t; slr, n1\n");
    chooseRegs(&src, &sha, &dst, &ref);
    printf("\tadd\t$%d,$0,0x%08X\n", src, N1);
    printf("\tadd\t$%d,$0,%d\n", sha, shamt);
    printf("\tslr\t$%d,$%d,$%d\n", dst, src, sha);
    printf("\tadd\t$%d,$0,0x%08X\n", ref, N1 >> shamt);
    lbl = newLabel();
    printf("\tbeq\t$%d,$%d,L%d\n", dst, ref, lbl);
    printf("\tadd\t$7,$0,'?'\n");
    printf("L%d:\n", lbl);
    /* slri, N1 */
    printf("\t; slri, n1\n");
    chooseRegs(&src, &sha, &dst, &ref);
    printf("\tadd\t$%d,$0,0x%08X\n", src, N1);
    printf("\tslr\t$%d,$%d,%d\n", dst, src, shamt);
    printf("\tadd\t$%d,$0,0x%08X\n", ref, N1 >> shamt);
    lbl = newLabel();
    printf("\tbeq\t$%d,$%d,L%d\n", dst, ref, lbl);
    printf("\tadd\t$7,$0,'?'\n");
    printf("L%d:\n", lbl);
 
    /* sar, N0 */
    printf("\t; sar, n0\n");
    chooseRegs(&src, &sha, &dst, &ref);
    printf("\tadd\t$%d,$0,0x%08X\n", src, N0);
    printf("\tadd\t$%d,$0,%d\n", sha, shamt);
    printf("\tsar\t$%d,$%d,$%d\n", dst, src, sha);
    printf("\tadd\t$%d,$0,0x%08X\n", ref, sar(N0, shamt));
    lbl = newLabel();
    printf("\tbeq\t$%d,$%d,L%d\n", dst, ref, lbl);
    printf("\tadd\t$7,$0,'?'\n");
    printf("L%d:\n", lbl);
    /* sari, N0 */
    printf("\t; sari, n0\n");
    chooseRegs(&src, &sha, &dst, &ref);
    printf("\tadd\t$%d,$0,0x%08X\n", src, N0);
    printf("\tsar\t$%d,$%d,%d\n", dst, src, shamt);
    printf("\tadd\t$%d,$0,0x%08X\n", ref, sar(N0, shamt));
    lbl = newLabel();
    printf("\tbeq\t$%d,$%d,L%d\n", dst, ref, lbl);
    printf("\tadd\t$7,$0,'?'\n");
    printf("L%d:\n", lbl);
    /* sar, N1 */
    printf("\t; sar, n1\n");
    chooseRegs(&src, &sha, &dst, &ref);
    printf("\tadd\t$%d,$0,0x%08X\n", src, N1);
    printf("\tadd\t$%d,$0,%d\n", sha, shamt);
    printf("\tsar\t$%d,$%d,$%d\n", dst, src, sha);
    printf("\tadd\t$%d,$0,0x%08X\n", ref, sar(N1, shamt));
    lbl = newLabel();
    printf("\tbeq\t$%d,$%d,L%d\n", dst, ref, lbl);
    printf("\tadd\t$7,$0,'?'\n");
    printf("L%d:\n", lbl);
    /* sari, N1 */
    printf("\t; sari, n1\n");
    chooseRegs(&src, &sha, &dst, &ref);
    printf("\tadd\t$%d,$0,0x%08X\n", src, N1);
    printf("\tsar\t$%d,$%d,%d\n", dst, src, shamt);
    printf("\tadd\t$%d,$0,0x%08X\n", ref, sar(N1, shamt));
    lbl = newLabel();
    printf("\tbeq\t$%d,$%d,L%d\n", dst, ref, lbl);
    printf("\tadd\t$7,$0,'?'\n");
    printf("L%d:\n", lbl);
  }
  printf("out:\n");
  printf("\tadd\t$6,$0,0xF0300000\n");
  printf("out1:\n");
  printf("\tldw\t$5,$6,8\n");
  printf("\tand\t$5,$5,1\n");
  printf("\tbeq\t$5,$0,out1\n");
  printf("\tstw\t$7,$6,12\n");
  printf("halt:\n");
  printf("\tj\thalt\n");
  return 0;
}