Subversion Repositories xulalx25soc

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

//

// Filename:    zipstate.v

//

// Project:     XuLA2 board

//

// Purpose:     To get a quick (understandable) peek at what the ZipCPU

//              is up to without stopping the CPU.  This is basically

//      identical to a "wbregs cpu" command, save that the bit fields of the

//      result are broken out into something more human readable.

//

//

// 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 "llcomms.h"

#include "usbi.h"

#include "port.h"

#include "regdefs.h"

FPGA    *m_fpga;

void    closeup(int v) {

        m_fpga->kill();

        exit(0);

}

unsigned int    cmd_read(FPGA *fpga, int r) {

        const unsigned int      MAXERR = 1000;

        unsigned int    errcount = 0;

        unsigned int    s;

        fpga->writeio(R_ZIPCTRL, CPU_HALT|(r&0x03f));

        while((((s = fpga->readio(R_ZIPCTRL))&CPU_STALL)== 0)&&(errcount<MAXERR))

                errcount++;

        if (errcount >= MAXERR) {

                printf("ERR: errcount(%d) >= MAXERR on cmd_read(a=%02x)\n",

                        errcount, r);

                printf("ZIPCTRL = 0x%08x", s);

                if ((s & 0x0200)==0) printf(" STALL");

                if  (s & 0x0400)     printf(" HALTED");

                if ((s & 0x03000)==0x01000)

                        printf(" SW-HALT");

                else {

                        if (s & 0x01000) printf(" SLEEPING");

                        if (s & 0x02000) printf(" GIE(UsrMode)");

                } printf("\n");

                exit(EXIT_FAILURE);

        } return fpga->readio(R_ZIPDATA);

}

void    usage(void) {

        printf("USAGE: zipstate\n");

}

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

        int     skp=0, port = FPGAPORT;

        bool    use_usb = true, long_state = false;

        unsigned int    v;

        skp=1;

        for(int argn=0; argn<argc-skp; argn++) {

                if (argv[argn+skp][0] == '-') {

                        if (argv[argn+skp][1] == 'u')

                                use_usb = true;

                        else if (argv[argn+skp][1] == 'l')

                                long_state = true;

                        else if (argv[argn+skp][1] == 'p') {

                                use_usb = false;

                                if (isdigit(argv[argn+skp][2]))

                                        port = atoi(&argv[argn+skp][2]);

                        }

                        skp++; argn--;

                } else

                        argv[argn] = argv[argn+skp];

        } argc -= skp;

        if (use_usb)

                m_fpga = new FPGA(new USBI());

        else

                m_fpga = new FPGA(new NETCOMMS(FPGAHOST, port));

        if (!long_state) {

                v = m_fpga->readio(R_ZIPCTRL);

                printf("0x%08x: ", v);

                if (v & 0x0080) printf("PINT ");

                // if (v & 0x0100) printf("STEP "); // self resetting

                if((v & 0x00200)==0) printf("STALL ");

                if (v & 0x00400) printf("HALTED ");

                if((v & 0x03000)==0x01000) {

                        printf("SW-HALT");

                } else {

                        if (v & 0x01000) printf("SLEEPING ");

                        if (v & 0x02000) printf("GIE(UsrMode) ");

                }

                // if (v & 0x0800) printf("CLR-CACHE ");

                printf("\n");

        } else {

                printf("Reading the long-state ...\n");

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

                        printf("sR%-2d: 0x%08x ", i, cmd_read(m_fpga, i));

                        if ((i&3)==3)

                                printf("\n");

                } printf("sCC : 0x%08x ", cmd_read(m_fpga, 14));

                printf("sPC : 0x%08x ", cmd_read(m_fpga, 15));

                printf("\n\n");

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

                        printf("uR%-2d: 0x%08x ", i, cmd_read(m_fpga, i+16));

                        if ((i&3)==3)

                                printf("\n");

                } printf("uCC : 0x%08x ", cmd_read(m_fpga, 14+16));

                printf("uPC : 0x%08x ", cmd_read(m_fpga, 15+16));

                printf("\n\n");

        }

        delete  m_fpga;

}