Subversion Repositories xulalx25soc

////////////////////////////////////////////////////////////////////////////////

//

// Filename:    ramscope.cpp

//

// Project:     XuLA2 board

//

// Purpose:     To read out, and decompose, the results of the wishbone scope

//              as applied to the ICAPE2 interaction.

//

//

// Creator:     Dan Gisselquist, Ph.D.

//              Gisselquist Technology, LLC

//

////////////////////////////////////////////////////////////////////////////////

//

// Copyright (C) 2015, Gisselquist Technology, LLC

//

// This program is free software (firmware): 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 3 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 MERCHANTIBILITY or

// FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License

// for more details.

//

// License:     GPL, v3, as defined and found on www.gnu.org,

//              http://www.gnu.org/licenses/gpl.html

//

//

////////////////////////////////////////////////////////////////////////////////

//

//

#include <stdio.h>

#include <stdlib.h>

#include <unistd.h>

#include <strings.h>

#include <ctype.h>

#include <string.h>

#include <signal.h>

#include <assert.h>

#include "usbi.h"

#include "port.h"

#include "llcomms.h"

#include "regdefs.h"

#define WBSCOPE         R_RAMSCOPE

#define WBSCOPEDATA     R_RAMSCOPED

FPGA    *m_fpga;

void    closeup(int v) {

        m_fpga->kill();

        exit(0);

}

unsigned brev(const unsigned v) {

        unsigned int r, a;

        a = v;

        r = 0;

        for(int i=0; i<8; i++) {

                r <<= 1;

                r |= (a&1);

                a >>= 1;

        } return r;

}

unsigned wrev(const unsigned v) {

        unsigned r = brev(v&0x0ff);

        r |= brev((v>>8)&0x0ff)<<8;

        return r;

}

int main(int argc, char **argv) {

        bool            skipping = false;

        unsigned        v, lgln, scoplen;

        DEVBUS::BUSW    *buf;

        FPGAOPEN(m_fpga);

        signal(SIGSTOP, closeup);

        signal(SIGHUP, closeup);

        printf("Attempting to read address %08x\n", WBSCOPE);

        v = m_fpga->readio(WBSCOPE);

        if (0x60000000 != (v & 0x60000000)) {

                printf("Scope is not yet ready:\n");

                printf("\tRESET:\t\t%s\n", (v&0x80000000)?"Ongoing":"Complete");

                printf("\tSTOPPED:\t%s\n", (v&0x40000000)?"Yes":"No");

                printf("\tTRIGGERED:\t%s\n", (v&0x20000000)?"Yes":"No");

                printf("\tPRIMED:\t\t%s\n", (v&0x10000000)?"Yes":"No");

                printf("\tMANUAL:\t\t%s\n", (v&0x08000000)?"Yes":"No");

                printf("\tDISABLED:\t%s\n", (v&0x04000000)?"Yes":"No");

                printf("\tZERO:\t\t%s\n", (v&0x02000000)?"Yes":"No");

                exit(0);

        } else printf("SCOPD = %08x\n", v);

        lgln = (v>>20) & 0x1f;

        scoplen = (1<<lgln);

        buf = new DEVBUS::BUSW[scoplen];

        if (false) {

                printf("Attempting vector read\n");

                m_fpga->readz(WBSCOPEDATA, scoplen, buf);

                printf("Vector read complete\n");

        } else {

                for(unsigned int i=0; i<scoplen; i++)

                        buf[i] = m_fpga->readio(WBSCOPEDATA);

        }

        for(unsigned int i=0; i<scoplen; i++) {

                int     cmd;

                if ((i>0)&&(buf[i] == buf[i-1])&&

                                (i<scoplen-1)&&(buf[i] == buf[i+1])) {

                        if (!skipping)

                                printf("         ****\n");

                        skipping = true;

                        continue;

                } skipping = false;

                printf("%6d %08x:", i, buf[i]);

                printf("S(%x) ", (buf[i]>>27)&0x0f);

                if (buf[i] & 0x40000000)

                        printf("W "); else printf("R ");

                printf("WB(%s%s%s%s%s",

                        (buf[i]&0x80000000)?"CYC":"   ",

                        (buf[i]&0x40000000)?"STB":"   ",

                        (buf[i]&0x20000000)?"WE":"  ",

                        (buf[i]&0x10000000)?"ACK":"   ",

                        (buf[i]&0x08000000)?"STL":"   ");

                        //

                if ((buf[i]&0xc8000000)==0xc0000000)

                        printf("*");

                else

                        printf(" ");

                printf(")-SD[%d%d%d%d,%d]",

                        (buf[i]&0x04000000)?1:0,

                        (buf[i]&0x02000000)?1:0,

                        (buf[i]&0x01000000)?1:0,

                        (buf[i]&0x00800000)?1:0,

                        (buf[i]&0x00600000)>>21);

                cmd = (buf[i] >> 23)&0x0f;

                if (buf[i]&0x00100000)

                        printf("<- ");

                else

                        printf("-> ");

                printf("%s", (buf[i]&0x00080000)?"P":" "); // Pending

                printf("@%3x,", (buf[i]>>8)&0x07ff);

                /*

                printf(",%s%s%s%s%s",

                        (buf[i]&0x080)?"R":"-",

                        (buf[i]&0x040)?"P":".",

                        (buf[i]&0x020)?"P":".",

                        (buf[i]&0x010)?"P":".",

                        (buf[i]&0x008)?"P":".");

                printf("/%x%x%x",

                        (buf[i]>>2)&0x01,

                        (buf[i]>>1)&0x01,

                        (buf[i]&0x01));

                */

                printf("/%02x ", buf[i] & 0x0ff);

                if (cmd & 0x8)

                        printf("(inactive)");

                switch(cmd) {

                        case 0x01: printf("Refresh"); break;

                        case 0x02: printf("Precharge"); break;

                        case 0x03: printf("Activate"); break;

                        case 0x04: printf("Write"); break;

                        case 0x05: printf("Read"); break;

                        case 0x07: printf("NoOp"); break;

                        default: break;

                }

                printf("\n");

        }

        if (m_fpga->poll()) {

                printf("FPGA was interrupted\n");

                m_fpga->clear();

                m_fpga->writeio(R_ICONTROL, SCOPEN);

        }

        delete  m_fpga;

}