src/promemul/yamon.c

/*
 *  Copyright (C) 2005-2006  Anders Gavare.  All rights reserved.
 *
 *  Redistribution and use in source and binary forms, with or without
 *  modification, are permitted provided that the following conditions are met:
 *
 *  1. Redistributions of source code must retain the above copyright
 *     notice, this list of conditions and the following disclaimer.
 *  2. Redistributions in binary form must reproduce the above copyright  
 *     notice, this list of conditions and the following disclaimer in the 
 *     documentation and/or other materials provided with the distribution.
 *  3. The name of the author may not be used to endorse or promote products
 *     derived from this software without specific prior written permission.
 *
 *  THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
 *  ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 *  IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 *  ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE   
 *  FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 *  DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 *  OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 *  HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 *  LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 *  OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 *  SUCH DAMAGE.
 *
 *
 *  $Id: yamon.c,v 1.8 2006/08/22 16:07:34 debug Exp $
 *
 *  YAMON emulation. (Very basic, only what is needed to get NetBSD booting.)
 */

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sys/types.h>

#include "console.h"
#include "cpu.h"
#include "cpu_mips.h"
#include "machine.h"
#include "memory.h"
#include "misc.h"
#include "net.h"

#ifdef ENABLE_MIPS

#include "yamon.h"


/*
 *  yamon_machine_setup():
 */
void yamon_machine_setup(struct machine *machine, uint64_t env)
{
        char tmps[200];
        char macaddr[6];
        uint64_t tmpptr = env + 0x400;
        struct cpu *cpu = machine->cpus[0];

        /*
         *  Standard YAMON environment variables:
         *
         *      baseboardserial
         *      bootfile                TODO
         *      bootprot                TODO: Non-tftp boot
         *      bootserport
         *      bootserver
         *      cpuconfig               TODO
         *      ethaddr
         *      fpu                     TODO
         *      gateway
         *      ipaddr                  TODO: Don't hardcode!
         *      memsize
         *      modetty0
         *      modetty1
         *      prompt
         *      start                   TODO
         *      startdelay              TODO
         *      subnetmask              TODO: Real subnet mask
         *      yamonrev
         */

        add_environment_string_dual(cpu, &env, &tmpptr,
            "baseboardserial", "0000000000");

        /*  TODO: Disk boot!  */
        add_environment_string_dual(cpu, &env, &tmpptr, "bootprot", "tftp");

        add_environment_string_dual(cpu, &env, &tmpptr, "bootserport", "tty0");

        add_environment_string_dual(cpu, &env, &tmpptr,
            "bootserver", "10.0.0.254");

        net_generate_unique_mac(machine, (unsigned char *) macaddr);
        snprintf(tmps, sizeof(tmps), "%02x.%02x.%02x.%02x.%02x.%02x",
            macaddr[0], macaddr[1], macaddr[2],
            macaddr[3], macaddr[4], macaddr[5]);
        add_environment_string_dual(cpu, &env, &tmpptr, "ethaddr", tmps);

        add_environment_string_dual(cpu, &env, &tmpptr,
            "gateway", "10.0.0.254");

        /*  TODO: Don't hardcode!  */
        add_environment_string_dual(cpu, &env, &tmpptr,
            "ipaddr", "10.0.0.1");

        snprintf(tmps, sizeof(tmps), "0x%08x", machine->physical_ram_in_mb<<20);
        add_environment_string_dual(cpu, &env, &tmpptr, "memsize", tmps);

        add_environment_string_dual(cpu, &env, &tmpptr,
            "modetty0", "38400,n,8,1,none");

        add_environment_string_dual(cpu, &env, &tmpptr,
            "modetty1", "38400,n,8,1,none");

        add_environment_string_dual(cpu, &env, &tmpptr, "prompt", "YAMON");

        add_environment_string_dual(cpu, &env, &tmpptr, "yamonrev", "02.06");

        /*  TODO: Real subnet mask:  */
        add_environment_string_dual(cpu, &env, &tmpptr,
            "subnetmask", "255.0.0.0");


        /*  FreeBSD development specific:  */
        snprintf(tmps, sizeof(tmps), "%i", machine->emulated_hz / 1000);
        add_environment_string_dual(cpu, &env, &tmpptr, "khz", tmps);

        /*  NULL terminate:  */
        tmpptr = 0;
        add_environment_string_dual(cpu, &env, &tmpptr, NULL, NULL);
}


/*
 *  yamon_emul():
 *
 *  YAMON emulation (for evbmips).
 */
int yamon_emul(struct cpu *cpu)
{
        uint32_t ofs = (cpu->pc & 0xff) + YAMON_FUNCTION_BASE;
        uint8_t ch;
        int n;

        switch (ofs) {

        case YAMON_PRINT_COUNT_OFS:
                /*
                 *  print count:
                 *      a1 = string
                 *      a2 = count
                 */
                n = 0;
                while (n < (int32_t)cpu->cd.mips.gpr[MIPS_GPR_A2]) {
                        cpu->memory_rw(cpu, cpu->mem, (int32_t)cpu->cd.mips.gpr
                            [MIPS_GPR_A1] + n, &ch, sizeof(ch), MEM_READ,
                            CACHE_DATA | NO_EXCEPTIONS);
                        console_putchar(cpu->machine->main_console_handle, ch);
                        n++;
                }
                break;

        case YAMON_EXIT_OFS:
                /*
                 *  exit
                 */
                debug("[ yamon_emul(): exit ]\n");
                cpu->running = 0;
                break;

        /*  YAMON_FLUSH_CACHE_OFS: TODO  */
        /*  YAMON_PRINT_OFS: TODO  */
        /*  YAMON_REG_CPU_ISR_OFS: TODO  */
        /*  YAMON_DEREG_CPU_ISR_OFS: TODO  */
        /*  YAMON_REG_IC_ISR_OFS: TODO  */
        /*  YAMON_DEREG_IC_ISR_OFS: TODO  */
        /*  YAMON_REG_ESR_OFS: TODO  */
        /*  YAMON_DEREG_ESR_OFS: TODO  */

        case YAMON_GETCHAR_OFS:
                n = console_readchar(cpu->machine->main_console_handle);
                /*  Note: -1 (if no char was available) becomes 0xff:  */
                ch = n;
                cpu->memory_rw(cpu, cpu->mem, (int32_t)cpu->cd.mips.gpr[
                    MIPS_GPR_A1], &ch, sizeof(ch), MEM_WRITE,
                    CACHE_DATA | NO_EXCEPTIONS);
                break;

        case YAMON_SYSCON_READ_OFS:
                /*
                 *  syscon
                 */
                fatal("[ yamon_emul(): syscon: TODO ]\n");

                /*  TODO. For now, return some kind of "failure":  */
                cpu->cd.mips.gpr[MIPS_GPR_V0] = 1;
                break;

        default:cpu_register_dump(cpu->machine, cpu, 1, 0);
                printf("\n");
                fatal("[ yamon_emul(): unimplemented yamon function 0x%"
                    PRIx32" ]\n", ofs);
                cpu->running = 0;
        }

        return 1;
}

#endif  /*  ENABLE_MIPS  */
1	dpavlin	14	/*
2	dpavlin	22	* Copyright (C) 2005-2006 Anders Gavare. All rights reserved.
3	dpavlin	14	*
4			* Redistribution and use in source and binary forms, with or without
5			* modification, are permitted provided that the following conditions are met:
6			*
7			* 1. Redistributions of source code must retain the above copyright
8			* notice, this list of conditions and the following disclaimer.
9			* 2. Redistributions in binary form must reproduce the above copyright
10			* notice, this list of conditions and the following disclaimer in the
11			* documentation and/or other materials provided with the distribution.
12			* 3. The name of the author may not be used to endorse or promote products
13			* derived from this software without specific prior written permission.
14			*
15			* THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
16			* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
17			* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
18			* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
19			* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
20			* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
21			* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
22			* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
23			* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
24			* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
25			* SUCH DAMAGE.
26			*
27			*
28	dpavlin	32	* $Id: yamon.c,v 1.8 2006/08/22 16:07:34 debug Exp $
29	dpavlin	14	*
30	dpavlin	28	* YAMON emulation. (Very basic, only what is needed to get NetBSD booting.)
31	dpavlin	14	*/
32
33			#include <stdio.h>
34			#include <stdlib.h>
35			#include <string.h>
36			#include <sys/types.h>
37
38			#include "console.h"
39			#include "cpu.h"
40			#include "cpu_mips.h"
41			#include "machine.h"
42			#include "memory.h"
43			#include "misc.h"
44	dpavlin	32	#include "net.h"
45	dpavlin	14
46			#ifdef ENABLE_MIPS
47
48	dpavlin	28	#include "yamon.h"
49	dpavlin	14
50
51			/*
52	dpavlin	32	* yamon_machine_setup():
53			*/
54			void yamon_machine_setup(struct machine *machine, uint64_t env)
55			{
56			char tmps[200];
57			char macaddr[6];
58			uint64_t tmpptr = env + 0x400;
59			struct cpu *cpu = machine->cpus[0];
60
61			/*
62			* Standard YAMON environment variables:
63			*
64			* baseboardserial
65			* bootfile TODO
66			* bootprot TODO: Non-tftp boot
67			* bootserport
68			* bootserver
69			* cpuconfig TODO
70			* ethaddr
71			* fpu TODO
72			* gateway
73			* ipaddr TODO: Don't hardcode!
74			* memsize
75			* modetty0
76			* modetty1
77			* prompt
78			* start TODO
79			* startdelay TODO
80			* subnetmask TODO: Real subnet mask
81			* yamonrev
82			*/
83
84			add_environment_string_dual(cpu, &env, &tmpptr,
85			"baseboardserial", "0000000000");
86
87			/* TODO: Disk boot! */
88			add_environment_string_dual(cpu, &env, &tmpptr, "bootprot", "tftp");
89
90			add_environment_string_dual(cpu, &env, &tmpptr, "bootserport", "tty0");
91
92			add_environment_string_dual(cpu, &env, &tmpptr,
93			"bootserver", "10.0.0.254");
94
95			net_generate_unique_mac(machine, (unsigned char *) macaddr);
96			snprintf(tmps, sizeof(tmps), "%02x.%02x.%02x.%02x.%02x.%02x",
97			macaddr[0], macaddr[1], macaddr[2],
98			macaddr[3], macaddr[4], macaddr[5]);
99			add_environment_string_dual(cpu, &env, &tmpptr, "ethaddr", tmps);
100
101			add_environment_string_dual(cpu, &env, &tmpptr,
102			"gateway", "10.0.0.254");
103
104			/* TODO: Don't hardcode! */
105			add_environment_string_dual(cpu, &env, &tmpptr,
106			"ipaddr", "10.0.0.1");
107
108			snprintf(tmps, sizeof(tmps), "0x%08x", machine->physical_ram_in_mb<<20);
109			add_environment_string_dual(cpu, &env, &tmpptr, "memsize", tmps);
110
111			add_environment_string_dual(cpu, &env, &tmpptr,
112			"modetty0", "38400,n,8,1,none");
113
114			add_environment_string_dual(cpu, &env, &tmpptr,
115			"modetty1", "38400,n,8,1,none");
116
117			add_environment_string_dual(cpu, &env, &tmpptr, "prompt", "YAMON");
118
119			add_environment_string_dual(cpu, &env, &tmpptr, "yamonrev", "02.06");
120
121			/* TODO: Real subnet mask: */
122			add_environment_string_dual(cpu, &env, &tmpptr,
123			"subnetmask", "255.0.0.0");
124
125
126			/* FreeBSD development specific: */
127			snprintf(tmps, sizeof(tmps), "%i", machine->emulated_hz / 1000);
128			add_environment_string_dual(cpu, &env, &tmpptr, "khz", tmps);
129
130			/* NULL terminate: */
131			tmpptr = 0;
132			add_environment_string_dual(cpu, &env, &tmpptr, NULL, NULL);
133			}
134
135
136			/*
137	dpavlin	14	* yamon_emul():
138			*
139			* YAMON emulation (for evbmips).
140			*/
141			int yamon_emul(struct cpu *cpu)
142			{
143	dpavlin	28	uint32_t ofs = (cpu->pc & 0xff) + YAMON_FUNCTION_BASE;
144			uint8_t ch;
145	dpavlin	14	int n;
146
147			switch (ofs) {
148	dpavlin	28
149			case YAMON_PRINT_COUNT_OFS:
150			/*
151			* print count:
152			* a1 = string
153			* a2 = count
154			*/
155	dpavlin	14	n = 0;
156	dpavlin	28	while (n < (int32_t)cpu->cd.mips.gpr[MIPS_GPR_A2]) {
157			cpu->memory_rw(cpu, cpu->mem, (int32_t)cpu->cd.mips.gpr
158			[MIPS_GPR_A1] + n, &ch, sizeof(ch), MEM_READ,
159			CACHE_DATA \| NO_EXCEPTIONS);
160			console_putchar(cpu->machine->main_console_handle, ch);
161	dpavlin	14	n++;
162			}
163			break;
164	dpavlin	28
165			case YAMON_EXIT_OFS:
166			/*
167			* exit
168			*/
169			debug("[ yamon_emul(): exit ]\n");
170	dpavlin	14	cpu->running = 0;
171			break;
172	dpavlin	28
173			/* YAMON_FLUSH_CACHE_OFS: TODO */
174			/* YAMON_PRINT_OFS: TODO */
175			/* YAMON_REG_CPU_ISR_OFS: TODO */
176			/* YAMON_DEREG_CPU_ISR_OFS: TODO */
177			/* YAMON_REG_IC_ISR_OFS: TODO */
178			/* YAMON_DEREG_IC_ISR_OFS: TODO */
179			/* YAMON_REG_ESR_OFS: TODO */
180			/* YAMON_DEREG_ESR_OFS: TODO */
181
182			case YAMON_GETCHAR_OFS:
183			n = console_readchar(cpu->machine->main_console_handle);
184			/* Note: -1 (if no char was available) becomes 0xff: */
185			ch = n;
186			cpu->memory_rw(cpu, cpu->mem, (int32_t)cpu->cd.mips.gpr[
187			MIPS_GPR_A1], &ch, sizeof(ch), MEM_WRITE,
188			CACHE_DATA \| NO_EXCEPTIONS);
189			break;
190
191			case YAMON_SYSCON_READ_OFS:
192			/*
193			* syscon
194			*/
195	dpavlin	14	fatal("[ yamon_emul(): syscon: TODO ]\n");
196	dpavlin	28
197	dpavlin	14	/* TODO. For now, return some kind of "failure": */
198			cpu->cd.mips.gpr[MIPS_GPR_V0] = 1;
199			break;
200	dpavlin	28
201	dpavlin	14	default:cpu_register_dump(cpu->machine, cpu, 1, 0);
202			printf("\n");
203	dpavlin	28	fatal("[ yamon_emul(): unimplemented yamon function 0x%"
204			PRIx32" ]\n", ofs);
205	dpavlin	14	cpu->running = 0;
206			}
207
208			return 1;
209			}
210
211			#endif /* ENABLE_MIPS */