1 |
1181 |
sfurman |
/* This file is part of the program psim.
|
2 |
|
|
|
3 |
|
|
Copyright (C) 1994-1997, Andrew Cagney <cagney@highland.com.au>
|
4 |
|
|
|
5 |
|
|
This program is free software; you can redistribute it and/or modify
|
6 |
|
|
it under the terms of the GNU General Public License as published by
|
7 |
|
|
the Free Software Foundation; either version 2 of the License, or
|
8 |
|
|
(at your option) any later version.
|
9 |
|
|
|
10 |
|
|
This program is distributed in the hope that it will be useful,
|
11 |
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
12 |
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
13 |
|
|
GNU General Public License for more details.
|
14 |
|
|
|
15 |
|
|
You should have received a copy of the GNU General Public License
|
16 |
|
|
along with this program; if not, write to the Free Software
|
17 |
|
|
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
18 |
|
|
|
19 |
|
|
*/
|
20 |
|
|
|
21 |
|
|
|
22 |
|
|
#ifndef _EMUL_BUGAPI_C_
|
23 |
|
|
#define _EMUL_BUGAPI_C_
|
24 |
|
|
|
25 |
|
|
/* Note: this module is called via a table. There is no benefit in
|
26 |
|
|
making it inline */
|
27 |
|
|
|
28 |
|
|
#include "emul_generic.h"
|
29 |
|
|
#include "emul_bugapi.h"
|
30 |
|
|
|
31 |
|
|
#ifdef HAVE_UNISTD_H
|
32 |
|
|
#include <unistd.h>
|
33 |
|
|
#endif
|
34 |
|
|
|
35 |
|
|
#ifdef HAVE_STDLIB_H
|
36 |
|
|
#include <stdlib.h>
|
37 |
|
|
#endif
|
38 |
|
|
|
39 |
|
|
#ifdef HAVE_STRING_H
|
40 |
|
|
#include <string.h>
|
41 |
|
|
#else
|
42 |
|
|
#ifdef HAVE_STRINGS_H
|
43 |
|
|
#include <strings.h>
|
44 |
|
|
#endif
|
45 |
|
|
#endif
|
46 |
|
|
|
47 |
|
|
|
48 |
|
|
/* EMULATION
|
49 |
|
|
|
50 |
|
|
BUG - Motorola's embeded firmware BUG interface
|
51 |
|
|
|
52 |
|
|
DESCRIPTION
|
53 |
|
|
|
54 |
|
|
|
55 |
|
|
|
56 |
|
|
*/
|
57 |
|
|
|
58 |
|
|
|
59 |
|
|
/* from PowerPCBug Debugging Package User's Manual, part 2 of 2 and also bug.S - Dale Rahn */
|
60 |
|
|
#define _INCHR 0x000 /* Input character */
|
61 |
|
|
#define _INSTAT 0x001 /* Input serial port status */
|
62 |
|
|
#define _INLN 0x002 /* Input line (pointer / pointer format) */
|
63 |
|
|
#define _READSTR 0x003 /* Input string (pointer / count format) */
|
64 |
|
|
#define _READLN 0x004 /* Input line (pointer / count format) */
|
65 |
|
|
#define _CHKBRK 0x005 /* Check for break */
|
66 |
|
|
#define _DSKRD 0x010 /* Disk read */
|
67 |
|
|
#define _DSKWR 0x011 /* Disk write */
|
68 |
|
|
#define _DSKCFIG 0x012 /* Disk configure */
|
69 |
|
|
#define _DSKFMT 0x014 /* Disk format */
|
70 |
|
|
#define _DSKCTRL 0x015 /* Disk control */
|
71 |
|
|
#define _NETRD 0x018 /* Read from host */
|
72 |
|
|
#define _NETWR 0x019 /* Write to host */
|
73 |
|
|
#define _NETCFIG 0x01a /* Configure network parameters */
|
74 |
|
|
#define _NETOPN 0x01b /* Open file for reading */
|
75 |
|
|
#define _NETFRD 0x01c /* Retreive specified file blocks */
|
76 |
|
|
#define _NETCTRL 0x01d /* Implement special control functions */
|
77 |
|
|
#define _OUTCHR 0x020 /* Output character (pointer / pointer format) */
|
78 |
|
|
#define _OUTSTR 0x021 /* Output string (pointer / pointer format) */
|
79 |
|
|
#define _OUTLN 0x022 /* Output line (pointer / pointer format) */
|
80 |
|
|
#define _WRITE 0x023 /* Output string (pointer / count format) */
|
81 |
|
|
#define _WRITELN 0x024 /* Output line (pointer / count format) */
|
82 |
|
|
#define _WRITDLN 0x025 /* Output line with data (pointer / count format) */
|
83 |
|
|
#define _PCRLF 0x026 /* Output carriage return and line feed */
|
84 |
|
|
#define _ERASLN 0x027 /* Erase line */
|
85 |
|
|
#define _WRITD 0x028 /* Output string with data (pointer / count format) */
|
86 |
|
|
#define _SNDBRK 0x029 /* Send break */
|
87 |
|
|
#define _DELAY 0x043 /* Timer delay */
|
88 |
|
|
#define _RTC_TM 0x050 /* Time initialization for RTC */
|
89 |
|
|
#define _RTC_DT 0x051 /* Date initialization for RTC */
|
90 |
|
|
#define _RTC_DSP 0x052 /* Display RTC time and date */
|
91 |
|
|
#define _RTC_RD 0x053 /* Read the RTC registers */
|
92 |
|
|
#define _REDIR 0x060 /* Redirect I/O of a system call function */
|
93 |
|
|
#define _REDIR_I 0x061 /* Redirect input */
|
94 |
|
|
#define _REDIR_O 0x062 /* Redirect output */
|
95 |
|
|
#define _RETURN 0x063 /* Return to PPCbug */
|
96 |
|
|
#define _BINDEC 0x064 /* Convert binary to binary coded decimal (BCD) */
|
97 |
|
|
#define _CHANGEV 0x067 /* Parse value */
|
98 |
|
|
#define _STRCMP 0x068 /* Compare two strings (pointer / count format) */
|
99 |
|
|
#define _MULU32 0x069 /* Multiply two 32-bit unsigned integers */
|
100 |
|
|
#define _DIVU32 0x06a /* Divide two 32-bit unsigned integers */
|
101 |
|
|
#define _CHK_SUM 0x06b /* Generate checksum */
|
102 |
|
|
#define _BRD_ID 0x070 /* Return pointer to board ID packet */
|
103 |
|
|
#define _ENVIRON 0x071 /* Access boot environment parameters */
|
104 |
|
|
#define _DIAGFCN 0x074 /* Diagnostic function(s) */
|
105 |
|
|
#define _SIOPEPS 0x090 /* Retrieve SCSI pointers */
|
106 |
|
|
#define _IOINQ 0x120 /* Port inquire */
|
107 |
|
|
#define _IOINFORM 0x124 /* Port inform */
|
108 |
|
|
#define _IOCONFIG 0x128 /* Port configure */
|
109 |
|
|
#define _IODELETE 0x12c /* Port delete */
|
110 |
|
|
#define _SYMBOLTA 0x130 /* Attach symbol table */
|
111 |
|
|
#define _SYMBOLDA 0x131 /* Detach symbol table */
|
112 |
|
|
|
113 |
|
|
struct bug_map {
|
114 |
|
|
int value;
|
115 |
|
|
const char *info;
|
116 |
|
|
};
|
117 |
|
|
|
118 |
|
|
static const struct bug_map bug_mapping[] = {
|
119 |
|
|
{ _INCHR, ".INCHR -- Input character" },
|
120 |
|
|
{ _INSTAT, ".INSTAT -- Input serial port status" },
|
121 |
|
|
{ _INLN, ".INLN -- Input line (pointer / pointer format)" },
|
122 |
|
|
{ _READSTR, ".READSTR -- Input string (pointer / count format)" },
|
123 |
|
|
{ _READLN, ".READLN -- Input line (pointer / count format)" },
|
124 |
|
|
{ _CHKBRK, ".CHKBRK -- Check for break" },
|
125 |
|
|
{ _DSKRD, ".DSKRD -- Disk read" },
|
126 |
|
|
{ _DSKWR, ".DSKWR -- Disk write" },
|
127 |
|
|
{ _DSKCFIG, ".DSKCFIG -- Disk configure" },
|
128 |
|
|
{ _DSKFMT, ".DSKFMT -- Disk format" },
|
129 |
|
|
{ _DSKCTRL, ".DSKCTRL -- Disk control" },
|
130 |
|
|
{ _NETRD, ".NETRD -- Read from host" },
|
131 |
|
|
{ _NETWR, ".NETWR -- Write to host" },
|
132 |
|
|
{ _NETCFIG, ".NETCFIG -- Configure network parameters" },
|
133 |
|
|
{ _NETOPN, ".NETOPN -- Open file for reading" },
|
134 |
|
|
{ _NETFRD, ".NETFRD -- Retreive specified file blocks" },
|
135 |
|
|
{ _NETCTRL, ".NETCTRL -- Implement special control functions" },
|
136 |
|
|
{ _OUTCHR, ".OUTCHR -- Output character" },
|
137 |
|
|
{ _OUTSTR, ".OUTSTR -- Output string (pointer / pointer format)" },
|
138 |
|
|
{ _OUTLN, ".OUTLN -- Output line (pointer / pointer format)" },
|
139 |
|
|
{ _WRITE, ".WRITE -- Output string (pointer / count format)" },
|
140 |
|
|
{ _WRITELN, ".WRITELN -- Output line (pointer / count format)" },
|
141 |
|
|
{ _WRITDLN, ".WRITDLN -- Output line with data (pointer / count format)" },
|
142 |
|
|
{ _PCRLF, ".PCRLF -- Output carriage return and line feed" },
|
143 |
|
|
{ _ERASLN, ".ERASLN -- Erase line" },
|
144 |
|
|
{ _WRITD, ".WRITD -- Output string with data (pointer / count format)" },
|
145 |
|
|
{ _SNDBRK, ".SNDBRK -- Send break" },
|
146 |
|
|
{ _DELAY, ".DELAY -- Timer delay" },
|
147 |
|
|
{ _RTC_TM, ".RTC_TM -- Time initialization for RTC" },
|
148 |
|
|
{ _RTC_DT, ".RTC_DT -- Date initialization for RTC" },
|
149 |
|
|
{ _RTC_DSP, ".RTC_DSP -- Display RTC time and date" },
|
150 |
|
|
{ _RTC_RD, ".RTC_RD -- Read the RTC registers" },
|
151 |
|
|
{ _REDIR, ".REDIR -- Redirect I/O of a system call function" },
|
152 |
|
|
{ _REDIR, ".REDIR -- Redirect input" },
|
153 |
|
|
{ _REDIR, ".REDIR -- Redirect output" },
|
154 |
|
|
{ _RETURN, ".RETURN -- Return to PPCbug" },
|
155 |
|
|
{ _BINDEC, ".BINDEC -- Convert binary to binary coded decimal (BCD)" },
|
156 |
|
|
{ _CHANGEV, ".CHANGEV -- Parse value" },
|
157 |
|
|
{ _STRCMP, ".STRCMP -- Compare two strings (pointer / count format)" },
|
158 |
|
|
{ _MULU32, ".MULU32 -- Multiply two 32-bit unsigned integers" },
|
159 |
|
|
{ _DIVU32, ".DIVU32 -- Divide two 32-bit unsigned integers" },
|
160 |
|
|
{ _CHK_SUM, ".CHK_SUM -- Generate checksum" },
|
161 |
|
|
{ _BRD_ID, ".BRD_ID -- Return pointer to board ID packet" },
|
162 |
|
|
{ _ENVIRON, ".ENVIRON -- Access boot environment parameters" },
|
163 |
|
|
{ _DIAGFCN, ".DIAGFCN -- Diagnostic function(s)" },
|
164 |
|
|
{ _SIOPEPS, ".SIOPEPS -- Retrieve SCSI pointers" },
|
165 |
|
|
{ _IOINQ, ".IOINQ -- Port inquire" },
|
166 |
|
|
{ _IOINFORM, ".IOINFORM -- Port inform" },
|
167 |
|
|
{ _IOCONFIG, ".IOCONFIG -- Port configure" },
|
168 |
|
|
{ _IODELETE, ".IODELETE -- Port delete" },
|
169 |
|
|
{ _SYMBOLTA, ".SYMBOLTA -- Attach symbol table" },
|
170 |
|
|
{ _SYMBOLDA, ".SYMBOLDA -- Detach symbol table" },
|
171 |
|
|
};
|
172 |
|
|
|
173 |
|
|
#ifndef BUGAPI_END_ADDRESS
|
174 |
|
|
#define BUGAPI_END_ADDRESS 0x100000
|
175 |
|
|
#endif
|
176 |
|
|
|
177 |
|
|
enum {
|
178 |
|
|
nr_bugapi_disks = 2,
|
179 |
|
|
};
|
180 |
|
|
|
181 |
|
|
|
182 |
|
|
struct _os_emul_data {
|
183 |
|
|
device *root;
|
184 |
|
|
unsigned_word memory_size;
|
185 |
|
|
unsigned_word top_of_stack;
|
186 |
|
|
int interrupt_prefix;
|
187 |
|
|
unsigned_word interrupt_vector_address;
|
188 |
|
|
unsigned_word system_call_address;
|
189 |
|
|
unsigned_word stall_cpu_loop_address;
|
190 |
|
|
int little_endian;
|
191 |
|
|
int floating_point_available;
|
192 |
|
|
/* I/O devices */
|
193 |
|
|
device_instance *output;
|
194 |
|
|
device_instance *input;
|
195 |
|
|
device_instance *(disk[nr_bugapi_disks]);
|
196 |
|
|
};
|
197 |
|
|
|
198 |
|
|
|
199 |
|
|
static os_emul_data *
|
200 |
|
|
emul_bugapi_create(device *root,
|
201 |
|
|
bfd *image,
|
202 |
|
|
const char *name)
|
203 |
|
|
{
|
204 |
|
|
device *node;
|
205 |
|
|
os_emul_data *bugapi;
|
206 |
|
|
|
207 |
|
|
/* check it really is for us */
|
208 |
|
|
if (name != NULL
|
209 |
|
|
&& strcmp(name, "bugapi") != 0
|
210 |
|
|
&& strcmp(name, "bug") != 0)
|
211 |
|
|
return NULL;
|
212 |
|
|
if (image != NULL
|
213 |
|
|
&& name == NULL
|
214 |
|
|
&& bfd_get_start_address(image) >= BUGAPI_END_ADDRESS)
|
215 |
|
|
return NULL;
|
216 |
|
|
|
217 |
|
|
bugapi = ZALLOC(os_emul_data);
|
218 |
|
|
|
219 |
|
|
/* options */
|
220 |
|
|
emul_add_tree_options(root, image, "bug", "oea",
|
221 |
|
|
1 /*oea-interrupt-prefix*/);
|
222 |
|
|
|
223 |
|
|
/* add some real hardware, include eeprom memory for the eeprom trap
|
224 |
|
|
addresses */
|
225 |
|
|
emul_add_tree_hardware(root);
|
226 |
|
|
node = tree_parse(root, "/openprom/memory@0xfff00000");
|
227 |
|
|
tree_parse(node, "./psim,description \"eeprom trap addresses");
|
228 |
|
|
tree_parse(node, "./reg 0xfff00000 0x3000");
|
229 |
|
|
|
230 |
|
|
bugapi->root = root;
|
231 |
|
|
|
232 |
|
|
bugapi->memory_size
|
233 |
|
|
= tree_find_integer_property(root, "/openprom/options/oea-memory-size");
|
234 |
|
|
bugapi->interrupt_prefix =
|
235 |
|
|
tree_find_integer_property(root, "/openprom/options/oea-interrupt-prefix");
|
236 |
|
|
bugapi->interrupt_vector_address = (bugapi->interrupt_prefix
|
237 |
|
|
? MASK(0, 43)
|
238 |
|
|
: 0);
|
239 |
|
|
bugapi->system_call_address = (bugapi->interrupt_vector_address + 0x00c00);
|
240 |
|
|
bugapi->stall_cpu_loop_address = (bugapi->system_call_address + 0x000f0);
|
241 |
|
|
bugapi->top_of_stack = bugapi->memory_size - 0x1000;
|
242 |
|
|
bugapi->little_endian
|
243 |
|
|
= tree_find_boolean_property(root, "/options/little-endian?");
|
244 |
|
|
bugapi->floating_point_available
|
245 |
|
|
= tree_find_boolean_property(root, "/openprom/options/floating-point?");
|
246 |
|
|
bugapi->input = NULL;
|
247 |
|
|
bugapi->output = NULL;
|
248 |
|
|
|
249 |
|
|
/* initialization */
|
250 |
|
|
if (image != NULL)
|
251 |
|
|
tree_parse(root, "/openprom/init/register/0.pc 0x%lx",
|
252 |
|
|
(unsigned long)bfd_get_start_address(image));
|
253 |
|
|
tree_parse(root, "/openprom/init/register/pc 0x%lx",
|
254 |
|
|
(unsigned long)bugapi->stall_cpu_loop_address);
|
255 |
|
|
tree_parse(root, "/openprom/init/register/sp 0x%lx",
|
256 |
|
|
(unsigned long)(bugapi->top_of_stack - 16));
|
257 |
|
|
tree_parse(root, "/openprom/init/register/msr 0x%x",
|
258 |
|
|
(msr_recoverable_interrupt
|
259 |
|
|
| (bugapi->little_endian
|
260 |
|
|
? (msr_little_endian_mode
|
261 |
|
|
| msr_interrupt_little_endian_mode)
|
262 |
|
|
: 0)
|
263 |
|
|
| (bugapi->floating_point_available
|
264 |
|
|
? msr_floating_point_available
|
265 |
|
|
: 0)
|
266 |
|
|
| (bugapi->interrupt_prefix
|
267 |
|
|
? msr_interrupt_prefix
|
268 |
|
|
: 0)
|
269 |
|
|
));
|
270 |
|
|
|
271 |
|
|
/* patch the system call instruction to call this emulation and then
|
272 |
|
|
do an rfi */
|
273 |
|
|
node = tree_parse(root, "/openprom/init/data@0x%lx",
|
274 |
|
|
(unsigned long)bugapi->system_call_address);
|
275 |
|
|
tree_parse(node, "./psim,description \"system-call trap instruction");
|
276 |
|
|
tree_parse(node, "./real-address 0x%lx",
|
277 |
|
|
(unsigned long)bugapi->system_call_address);
|
278 |
|
|
tree_parse(node, "./data 0x%x", emul_call_instruction);
|
279 |
|
|
node = tree_parse(root, "/openprom/init/data@0x%lx",
|
280 |
|
|
(unsigned long)bugapi->system_call_address + 4);
|
281 |
|
|
tree_parse(node, "./psim,description \"return from interrupt instruction");
|
282 |
|
|
tree_parse(node, "./real-address 0x%lx",
|
283 |
|
|
(unsigned long)bugapi->system_call_address + 4);
|
284 |
|
|
tree_parse(node, "./data 0x%x",
|
285 |
|
|
emul_rfi_instruction);
|
286 |
|
|
|
287 |
|
|
/* patch the end of the system call instruction so that it contains
|
288 |
|
|
a loop to self instruction and point all the cpu's at this */
|
289 |
|
|
node = tree_parse(root, "/openprom/init/data@0x%lx",
|
290 |
|
|
(unsigned long)bugapi->stall_cpu_loop_address);
|
291 |
|
|
tree_parse(node, "./psim,description \"cpu-loop instruction");
|
292 |
|
|
tree_parse(node, "./real-address 0x%lx",
|
293 |
|
|
(unsigned long)bugapi->stall_cpu_loop_address);
|
294 |
|
|
tree_parse(node, "./data 0x%lx",
|
295 |
|
|
(unsigned long)emul_loop_instruction);
|
296 |
|
|
|
297 |
|
|
if (image != NULL)
|
298 |
|
|
tree_parse(root, "/openprom/init/stack/stack-type %s",
|
299 |
|
|
(image->xvec->flavour == bfd_target_elf_flavour
|
300 |
|
|
? "ppc-elf"
|
301 |
|
|
: "ppc-xcoff"));
|
302 |
|
|
|
303 |
|
|
if (image != NULL)
|
304 |
|
|
tree_parse(root, "/openprom/init/load-binary/file-name \"%s",
|
305 |
|
|
bfd_get_filename(image));
|
306 |
|
|
|
307 |
|
|
return bugapi;
|
308 |
|
|
}
|
309 |
|
|
|
310 |
|
|
static void
|
311 |
|
|
emul_bugapi_init(os_emul_data *bugapi,
|
312 |
|
|
int nr_cpus)
|
313 |
|
|
{
|
314 |
|
|
int i;
|
315 |
|
|
/* get the current input/output devices that were created during
|
316 |
|
|
device tree initialization */
|
317 |
|
|
bugapi->input = tree_find_ihandle_property(bugapi->root, "/chosen/stdin");
|
318 |
|
|
bugapi->output = tree_find_ihandle_property(bugapi->root, "/chosen/stdout");
|
319 |
|
|
/* if present, extract the selected disk devices */
|
320 |
|
|
for (i = 0; i < nr_bugapi_disks; i++) {
|
321 |
|
|
char disk[32];
|
322 |
|
|
char *chp;
|
323 |
|
|
strcpy(disk, "/chosen/disk0");
|
324 |
|
|
ASSERT(sizeof(disk) > strlen(disk));
|
325 |
|
|
chp = strchr(disk, '0');
|
326 |
|
|
*chp = *chp + i;
|
327 |
|
|
if (tree_find_property(bugapi->root, disk) != NULL)
|
328 |
|
|
bugapi->disk[i] = tree_find_ihandle_property(bugapi->root, disk);
|
329 |
|
|
}
|
330 |
|
|
}
|
331 |
|
|
|
332 |
|
|
static const char *
|
333 |
|
|
emul_bugapi_instruction_name(int call_id)
|
334 |
|
|
{
|
335 |
|
|
static char buffer[40];
|
336 |
|
|
int i;
|
337 |
|
|
|
338 |
|
|
for (i = 0; i < sizeof (bug_mapping) / sizeof (bug_mapping[0]); i++)
|
339 |
|
|
{
|
340 |
|
|
if (bug_mapping[i].value == call_id)
|
341 |
|
|
return bug_mapping[i].info;
|
342 |
|
|
}
|
343 |
|
|
|
344 |
|
|
(void) sprintf (buffer, "Unknown bug call 0x%x", call_id);
|
345 |
|
|
return buffer;
|
346 |
|
|
}
|
347 |
|
|
|
348 |
|
|
static int
|
349 |
|
|
emul_bugapi_do_read(os_emul_data *bugapi,
|
350 |
|
|
cpu *processor,
|
351 |
|
|
unsigned_word cia,
|
352 |
|
|
unsigned_word buf,
|
353 |
|
|
int nbytes)
|
354 |
|
|
{
|
355 |
|
|
unsigned char *scratch_buffer;
|
356 |
|
|
int status;
|
357 |
|
|
|
358 |
|
|
/* get a tempoary bufer */
|
359 |
|
|
scratch_buffer = (unsigned char *) zalloc(nbytes);
|
360 |
|
|
|
361 |
|
|
/* check if buffer exists by reading it */
|
362 |
|
|
emul_read_buffer((void *)scratch_buffer, buf, nbytes, processor, cia);
|
363 |
|
|
|
364 |
|
|
/* read */
|
365 |
|
|
status = device_instance_read(bugapi->input,
|
366 |
|
|
(void *)scratch_buffer, nbytes);
|
367 |
|
|
|
368 |
|
|
/* -1 = error, -2 = nothing available - see "serial" [IEEE1275] */
|
369 |
|
|
if (status < 0) {
|
370 |
|
|
status = 0;
|
371 |
|
|
}
|
372 |
|
|
|
373 |
|
|
if (status > 0) {
|
374 |
|
|
emul_write_buffer((void *)scratch_buffer, buf, status, processor, cia);
|
375 |
|
|
|
376 |
|
|
/* Bugapi chops off the trailing n, but leaves it in the buffer */
|
377 |
|
|
if (scratch_buffer[status-1] == '\n' || scratch_buffer[status-1] == '\r')
|
378 |
|
|
status--;
|
379 |
|
|
}
|
380 |
|
|
|
381 |
|
|
zfree(scratch_buffer);
|
382 |
|
|
return status;
|
383 |
|
|
}
|
384 |
|
|
|
385 |
|
|
static void
|
386 |
|
|
emul_bugapi_do_diskio(os_emul_data *bugapi,
|
387 |
|
|
cpu *processor,
|
388 |
|
|
unsigned_word cia,
|
389 |
|
|
unsigned_word descriptor_addr,
|
390 |
|
|
int call_id)
|
391 |
|
|
{
|
392 |
|
|
struct dskio_descriptor {
|
393 |
|
|
unsigned_1 ctrl_lun;
|
394 |
|
|
unsigned_1 dev_lun;
|
395 |
|
|
unsigned_2 status;
|
396 |
|
|
unsigned_word pbuffer;
|
397 |
|
|
unsigned_4 blk_num;
|
398 |
|
|
unsigned_2 blk_cnt;
|
399 |
|
|
unsigned_1 flag;
|
400 |
|
|
#define BUG_FILE_MARK 0x80
|
401 |
|
|
#define IGNORE_FILENUM 0x02
|
402 |
|
|
#define END_OF_FILE 0x01
|
403 |
|
|
unsigned_1 addr_mod;
|
404 |
|
|
} descriptor;
|
405 |
|
|
int block;
|
406 |
|
|
emul_read_buffer(&descriptor, descriptor_addr, sizeof(descriptor),
|
407 |
|
|
processor, cia);
|
408 |
|
|
T2H(descriptor.ctrl_lun);
|
409 |
|
|
T2H(descriptor.dev_lun);
|
410 |
|
|
T2H(descriptor.status);
|
411 |
|
|
T2H(descriptor.pbuffer);
|
412 |
|
|
T2H(descriptor.blk_num);
|
413 |
|
|
T2H(descriptor.blk_cnt);
|
414 |
|
|
T2H(descriptor.flag);
|
415 |
|
|
T2H(descriptor.addr_mod);
|
416 |
|
|
if (descriptor.dev_lun >= nr_bugapi_disks
|
417 |
|
|
|| bugapi->disk[descriptor.dev_lun] == NULL) {
|
418 |
|
|
error("emul_bugapi_do_diskio: attempt to access unconfigured disk /chosen/disk%d",
|
419 |
|
|
descriptor.dev_lun);
|
420 |
|
|
}
|
421 |
|
|
else {
|
422 |
|
|
for (block = 0; block < descriptor.blk_cnt; block++) {
|
423 |
|
|
device_instance *disk = bugapi->disk[descriptor.dev_lun];
|
424 |
|
|
unsigned_1 buf[512]; /*????*/
|
425 |
|
|
unsigned_word block_nr = descriptor.blk_num + block;
|
426 |
|
|
unsigned_word byte_nr = block_nr * sizeof(buf);
|
427 |
|
|
unsigned_word block_addr = descriptor.pbuffer + block*sizeof(buf);
|
428 |
|
|
if (device_instance_seek(disk, 0, byte_nr) < 0)
|
429 |
|
|
error("emul_bugapi_do_diskio: bad seek\n");
|
430 |
|
|
switch (call_id) {
|
431 |
|
|
case _DSKRD:
|
432 |
|
|
if (device_instance_read(disk, buf, sizeof(buf)) != sizeof(buf))
|
433 |
|
|
error("emul_`bugapi_do_diskio: bad read\n");
|
434 |
|
|
emul_write_buffer(buf, block_addr, sizeof(buf), processor, cia);
|
435 |
|
|
break;
|
436 |
|
|
case _DSKWR:
|
437 |
|
|
emul_read_buffer(buf, block_addr, sizeof(buf), processor, cia);
|
438 |
|
|
if (device_instance_write(disk, buf, sizeof(buf)) != sizeof(buf))
|
439 |
|
|
error("emul_bugapi_do_diskio: bad write\n");
|
440 |
|
|
break;
|
441 |
|
|
default:
|
442 |
|
|
error("emul_bugapi_do_diskio: bad switch\n");
|
443 |
|
|
}
|
444 |
|
|
}
|
445 |
|
|
}
|
446 |
|
|
}
|
447 |
|
|
|
448 |
|
|
static void
|
449 |
|
|
emul_bugapi_do_write(os_emul_data *bugapi,
|
450 |
|
|
cpu *processor,
|
451 |
|
|
unsigned_word cia,
|
452 |
|
|
unsigned_word buf,
|
453 |
|
|
int nbytes,
|
454 |
|
|
const char *suffix)
|
455 |
|
|
{
|
456 |
|
|
void *scratch_buffer = NULL;
|
457 |
|
|
|
458 |
|
|
/* get a tempoary bufer */
|
459 |
|
|
if (nbytes > 0)
|
460 |
|
|
{
|
461 |
|
|
scratch_buffer = zalloc(nbytes);
|
462 |
|
|
|
463 |
|
|
/* copy in */
|
464 |
|
|
emul_read_buffer(scratch_buffer, buf, nbytes,
|
465 |
|
|
processor, cia);
|
466 |
|
|
|
467 |
|
|
/* write */
|
468 |
|
|
device_instance_write(bugapi->output, scratch_buffer, nbytes);
|
469 |
|
|
|
470 |
|
|
zfree(scratch_buffer);
|
471 |
|
|
}
|
472 |
|
|
|
473 |
|
|
if (suffix)
|
474 |
|
|
device_instance_write(bugapi->output, suffix, strlen(suffix));
|
475 |
|
|
|
476 |
|
|
flush_stdoutput ();
|
477 |
|
|
}
|
478 |
|
|
|
479 |
|
|
static int
|
480 |
|
|
emul_bugapi_instruction_call(cpu *processor,
|
481 |
|
|
unsigned_word cia,
|
482 |
|
|
unsigned_word ra,
|
483 |
|
|
os_emul_data *bugapi)
|
484 |
|
|
{
|
485 |
|
|
const int call_id = cpu_registers(processor)->gpr[10];
|
486 |
|
|
unsigned char uc;
|
487 |
|
|
|
488 |
|
|
#define MY_INDEX itable_instruction_call
|
489 |
|
|
ITRACE (trace_os_emul,
|
490 |
|
|
(" 0x%x %s, r3 = 0x%lx, r4 = 0x%lx\n",
|
491 |
|
|
call_id, emul_bugapi_instruction_name (call_id),
|
492 |
|
|
(long)cpu_registers(processor)->gpr[3],
|
493 |
|
|
(long)cpu_registers(processor)->gpr[4]));;
|
494 |
|
|
|
495 |
|
|
/* check that this isn't an invalid instruction */
|
496 |
|
|
if (cia != bugapi->system_call_address)
|
497 |
|
|
return 0;
|
498 |
|
|
|
499 |
|
|
switch (call_id) {
|
500 |
|
|
default:
|
501 |
|
|
error("emul-bugapi: unimplemented bugapi %s from address 0x%lx\n",
|
502 |
|
|
emul_bugapi_instruction_name (call_id), SRR0);
|
503 |
|
|
break;
|
504 |
|
|
|
505 |
|
|
/* read a single character, output r3 = byte */
|
506 |
|
|
/* FIXME: Add support to unbuffer input */
|
507 |
|
|
case _INCHR:
|
508 |
|
|
if (device_instance_read(bugapi->input, (void *)&uc, 1) <= 0)
|
509 |
|
|
uc = 0;
|
510 |
|
|
cpu_registers(processor)->gpr[3] = uc;
|
511 |
|
|
break;
|
512 |
|
|
|
513 |
|
|
/* read a line of at most 256 bytes, r3 = ptr to 1st byte, output r3 = ptr to last byte+1 */
|
514 |
|
|
case _INLN:
|
515 |
|
|
cpu_registers(processor)->gpr[3] += emul_bugapi_do_read(bugapi,
|
516 |
|
|
processor, cia,
|
517 |
|
|
cpu_registers(processor)->gpr[3],
|
518 |
|
|
256);
|
519 |
|
|
break;
|
520 |
|
|
|
521 |
|
|
/* output a character, r3 = character */
|
522 |
|
|
case _OUTCHR:
|
523 |
|
|
{
|
524 |
|
|
char out = (char)cpu_registers(processor)->gpr[3];
|
525 |
|
|
device_instance_write(bugapi->output, &out, 1);
|
526 |
|
|
break;
|
527 |
|
|
}
|
528 |
|
|
|
529 |
|
|
/* output a string, r3 = ptr to 1st byte, r4 = ptr to last byte+1 */
|
530 |
|
|
case _OUTSTR:
|
531 |
|
|
emul_bugapi_do_write(bugapi,
|
532 |
|
|
processor, cia,
|
533 |
|
|
cpu_registers(processor)->gpr[3],
|
534 |
|
|
cpu_registers(processor)->gpr[4] - cpu_registers(processor)->gpr[3],
|
535 |
|
|
(const char *)0);
|
536 |
|
|
break;
|
537 |
|
|
|
538 |
|
|
/* output a string followed by \r\n, r3 = ptr to 1st byte, r4 = ptr to last byte+1 */
|
539 |
|
|
case _OUTLN:
|
540 |
|
|
|
541 |
|
|
emul_bugapi_do_write(bugapi,
|
542 |
|
|
processor, cia,
|
543 |
|
|
cpu_registers(processor)->gpr[3],
|
544 |
|
|
cpu_registers(processor)->gpr[4] - cpu_registers(processor)->gpr[3],
|
545 |
|
|
"\n");
|
546 |
|
|
break;
|
547 |
|
|
|
548 |
|
|
/* output a \r\n */
|
549 |
|
|
case _PCRLF:
|
550 |
|
|
device_instance_write(bugapi->output, "\n", 1);
|
551 |
|
|
break;
|
552 |
|
|
|
553 |
|
|
/* read/write blocks of data to/from the disk */
|
554 |
|
|
case _DSKWR:
|
555 |
|
|
case _DSKRD:
|
556 |
|
|
emul_bugapi_do_diskio(bugapi, processor, cia,
|
557 |
|
|
cpu_registers(processor)->gpr[3],
|
558 |
|
|
call_id);
|
559 |
|
|
break;
|
560 |
|
|
|
561 |
|
|
/* return to ppcbug monitor (exiting with gpr[3] as status is not
|
562 |
|
|
part of the bug monitor) */
|
563 |
|
|
case _RETURN:
|
564 |
|
|
cpu_halt(processor, cia, was_exited, cpu_registers(processor)->gpr[3]);
|
565 |
|
|
break;
|
566 |
|
|
}
|
567 |
|
|
return 1;
|
568 |
|
|
/* the instruction following this one is a RFI. Thus by just
|
569 |
|
|
continuing the return from system call is performed */
|
570 |
|
|
}
|
571 |
|
|
|
572 |
|
|
const os_emul emul_bugapi = {
|
573 |
|
|
"bugapi",
|
574 |
|
|
emul_bugapi_create,
|
575 |
|
|
emul_bugapi_init,
|
576 |
|
|
0, /*system_call*/
|
577 |
|
|
emul_bugapi_instruction_call,
|
578 |
|
|
|
579 |
|
|
};
|
580 |
|
|
|
581 |
|
|
#endif
|