Subversion Repositories or1k

/* sprs.c -- Simulation of OR1K special-purpose registers
   Copyright (C) 1999 Damjan Lampret, lampret@opencores.org
 
This file is part of OpenRISC 1000 Architectural Simulator.
 
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
 
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.
 
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
 
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
 
#include "arch.h"
#include "sprs.h"
 
extern int cont_run;
 
static sprword sprs[MAX_SPRS];
 
/* Set a specific SPR with a value. */
void mtspr(int regno, sprword value)
{
	int ofs = regno % MAX_SPRS_PER_GRP;
 
	if (regno == 0x1234)
		printf("MTSPR(0x1234, %x);\n", value);
 
	regno /= MAX_SPRS_PER_GRP;
	regno += ofs;
 
/*	printf("mtspr(%x, %x)\n", regno, value);
*/	if (regno < MAX_SPRS)
		sprs[regno] = value;
	else {
		printf("\nABORT: write out of SPR range\n");
		cont_run = 0;
	}
 
	return;
}
 
/* Get a specific SPR. */
sprword mfspr(int regno)
{
	int ofs = regno % MAX_SPRS_PER_GRP;
 
	regno /= MAX_SPRS_PER_GRP;
	regno += ofs;
 
/*	printf("mfspr(%x)%x\n", regno, sprs[regno]);
*/	if (regno < MAX_SPRS)
		return sprs[regno];
	else {
		printf("\nABORT: read out of SPR range\n");
		cont_run = 0;
	}
 
	return 0;
}
 
/* Set a specific bit from SPR. LSB in a word is numbered zero. */
void setsprbit(int regno, int bitnum, unsigned long bitvalue)
{
	sprword mask;
	sprword regvalue = mfspr(regno);
 
	mask = ~(1 << bitnum);
 
	mtspr(regno, (regvalue & mask) | ((bitvalue & 0x1) << bitnum));
 
	return;
}
 
/* Get a specific bit from SPR. */
int getsprbit(int regno, int bitnum)
{
	sprword regvalue = mfspr(regno);
 
	return (regvalue >> bitnum) & 0x1;
}
 
/* Set specific SPR bit(s) identified by mask. */
void setsprbits(int regno, unsigned long mask, unsigned long value)
{
	sprword regvalue = mfspr(regno);
	sprword shifted = 0x0;
	int m, v = 0;
 
	/* m counts bits in valuemask */
	/* v counts bits in value */
	for (m = 0; m < 32; m++)
		if ((mask >> m) & 0x1) {
			shifted |= ((value >> v) & 0x1) << m;
			v++;
		}
 
/*	printf("oldvalue %x setsprbits(%x, %x, %x)  shifted %x", regvalue, regno, mask, value, shifted); */
	mtspr(regno, (regvalue & ~mask) | shifted);
 
        return;
}
 
/* Get specific SPR bit(s) identified by mask. */
unsigned long getsprbits(int regno, unsigned long mask)
{
	sprword regvalue = mfspr(regno);
	sprword shifted = 0x0;
	int m, v = 0;
 
	/* m counts bits in valuemask */
	/* v counts bits in regvalue */
	for (m = 0; m < 32; m++)
		if ((mask >> m) & 0x1) {
			shifted |= ((regvalue >> m) & 0x1) << v;
			v++;
		}
 
	return shifted;
}
 
/* Show status of important SPRs. */
void sprs_status()
{
	printf("VR   : 0x%.8x  UPR  : 0x%.8x\n", mfspr(SPR_VR), mfspr(SPR_UPR));
	printf("SR   : 0x%.8x\n", mfspr(SPR_SR));
	printf("MACLO: 0x%.8x  MACHI: 0x%.8x\n", mfspr(SPR_MACLO), mfspr(SPR_MACHI));
	printf("EPCR0: 0x%.8x  EPCR1: 0x%.8x\n", mfspr(SPR_EPCR_BASE), mfspr(SPR_EPCR_BASE+1));
	printf("EEAR0: 0x%.8x  EEAR1: 0x%.8x\n", mfspr(SPR_EEAR_BASE), mfspr(SPR_EEAR_BASE+1));
	printf("ESR0 : 0x%.8x  ESR1 : 0x%.8x\n", mfspr(SPR_ESR_BASE), mfspr(SPR_ESR_BASE+1));
}