/[gxemul]/trunk/src/machine.c
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/src/machine.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 12 by dpavlin, Mon Oct 8 16:18:38 2007 UTC revision 42 by dpavlin, Mon Oct 8 16:22:32 2007 UTC
# Line 1  Line 1 
1  /*  /*
2   *  Copyright (C) 2003-2005  Anders Gavare.  All rights reserved.   *  Copyright (C) 2003-2007  Anders Gavare.  All rights reserved.
3   *   *
4   *  Redistribution and use in source and binary forms, with or without   *  Redistribution and use in source and binary forms, with or without
5   *  modification, are permitted provided that the following conditions are met:   *  modification, are permitted provided that the following conditions are met:
# Line 25  Line 25 
25   *  SUCH DAMAGE.   *  SUCH DAMAGE.
26   *   *
27   *   *
28   *  $Id: machine.c,v 1.515 2005/08/16 09:16:26 debug Exp $   *  $Id: machine.c,v 1.704 2007/06/15 17:02:38 debug Exp $
  *  
  *  Emulation of specific machines.  
  *  
  *  This module is quite large. Hopefully it is still clear enough to be  
  *  easily understood. The main parts are:  
  *  
  *      Helper functions.  
  *  
  *      Machine specific Interrupt routines.  
  *  
  *      Machine specific Initialization routines.  
29   */   */
30    
31  #include <stdio.h>  #include <stdio.h>
32  #include <stdlib.h>  #include <stdlib.h>
33  #include <stdarg.h>  #include <stdarg.h>
 #ifdef SOLARIS  
 #include <strings.h>  
 #else  
34  #include <string.h>  #include <string.h>
 #endif  
35  #include <time.h>  #include <time.h>
36  #include <unistd.h>  #include <unistd.h>
37    
 #include "arcbios.h"  
 #include "bus_pci.h"  
38  #include "cpu.h"  #include "cpu.h"
39  #include "device.h"  #include "device.h"
 #include "devices.h"  
40  #include "diskimage.h"  #include "diskimage.h"
41  #include "emul.h"  #include "emul.h"
42  #include "machine.h"  #include "machine.h"
43  #include "memory.h"  #include "memory.h"
44  #include "misc.h"  #include "misc.h"
45  #include "mp.h"  #include "settings.h"
 #include "net.h"  
46  #include "symbol.h"  #include "symbol.h"
47    #include "useremul.h"
 /*  For Alpha emulation:  */  
 #include "alpha_rpb.h"  
   
 /*  For SGI and ARC emulation:  */  
 #include "sgi_arcbios.h"  
 #include "crimereg.h"  
   
 /*  For evbmips emulation:  */  
 #include "maltareg.h"  
   
 /*  For DECstation emulation:  */  
 #include "dec_prom.h"  
 #include "dec_bootinfo.h"  
 #include "dec_5100.h"  
 #include "dec_kn01.h"  
 #include "dec_kn02.h"  
 #include "dec_kn03.h"  
 #include "dec_kmin.h"  
 #include "dec_maxine.h"  
   
 /*  HPC:  */  
 #include "hpc_bootinfo.h"  
 #include "vripreg.h"  
   
 #define BOOTSTR_BUFLEN          1000  
 #define BOOTARG_BUFLEN          2000  
 #define ETHERNET_STRING_MAXLEN  40  
   
 struct machine_entry_subtype {  
         int                     machine_subtype;/*  Old-style subtype  */  
         const char              *name;          /*  Official name  */  
         int                     n_aliases;  
         char                    **aliases;      /*  Aliases  */  
 };  
   
 struct machine_entry {  
         struct machine_entry    *next;  
   
         /*  Machine type:  */  
         int                     arch;  
         int                     machine_type;   /*  Old-style type  */  
         const char              *name;          /*  Official name  */  
         int                     n_aliases;  
         char                    **aliases;      /*  Aliases  */  
   
         /*  Machine subtypes:  */  
         int                     n_subtypes;  
         struct machine_entry_subtype **subtype;  
 };  
48    
49    
50  /*  See main.c:  */  /*  See main.c:  */
51  extern int quiet_mode;  extern int quiet_mode;
52    extern int verbose;
53    
54    
55  /*  This is initialized by machine_init():  */  /*  This is initialized by machine_init():  */
56  static struct machine_entry *first_machine_entry = NULL;  struct machine_entry *first_machine_entry = NULL;
57    
58    
59  /*  /*
# Line 128  static struct machine_entry *first_machi Line 61  static struct machine_entry *first_machi
61   *   *
62   *  Returns a reasonably initialized struct machine.   *  Returns a reasonably initialized struct machine.
63   */   */
64  struct machine *machine_new(char *name, struct emul *emul)  struct machine *machine_new(char *name, struct emul *emul, int id)
65  {  {
66          struct machine *m;          struct machine *m;
         m = malloc(sizeof(struct machine));  
         if (m == NULL) {  
                 fprintf(stderr, "machine_new(): out of memory\n");  
                 exit(1);  
         }  
67    
68            CHECK_ALLOCATION(m = malloc(sizeof(struct machine)));
69          memset(m, 0, sizeof(struct machine));          memset(m, 0, sizeof(struct machine));
70    
71          /*  Back pointer:  */          /*  Pointer back to the emul object that this machine belongs to:  */
72          m->emul = emul;          m->emul = emul;
73    
74          m->name = strdup(name);          CHECK_ALLOCATION(m->name = strdup(name));
75    
76            /*  Full path, e.g. "emul[0].machine[0]":  */
77            CHECK_ALLOCATION(m->path = malloc(strlen(emul->path) + 20));
78            snprintf(m->path, strlen(emul->path) + 20, "%s.machine[%i]",
79                emul->path, id);
80    
81          /*  Sane default values:  */          /*  Sane default values:  */
82          m->serial_nr = 1;          m->serial_nr = 1;
83          m->machine_type = MACHINE_NONE;          m->machine_type = MACHINE_NONE;
84          m->machine_subtype = MACHINE_NONE;          m->machine_subtype = MACHINE_NONE;
 #ifdef BINTRANS  
         m->bintrans_enable = 1;  
         m->old_bintrans_enable = 1;  
 #endif  
85          m->arch_pagesize = 4096;        /*  Should be overriden in          m->arch_pagesize = 4096;        /*  Should be overriden in
86                                              emul.c for other pagesizes.  */                                              emul.c for other pagesizes.  */
         m->dyntrans_alignment_check = 1;  
87          m->prom_emulation = 1;          m->prom_emulation = 1;
88          m->speed_tricks = 1;          m->allow_instruction_combinations = 1;
89          m->byte_order_override = NO_BYTE_ORDER_OVERRIDE;          m->byte_order_override = NO_BYTE_ORDER_OVERRIDE;
90          m->boot_kernel_filename = "";          m->boot_kernel_filename = "";
91          m->boot_string_argument = NULL;          m->boot_string_argument = NULL;
92          m->automatic_clock_adjustment = 1;          m->x11_md.scaledown = 1;
93          m->x11_scaledown = 1;          m->x11_md.scaleup = 1;
94          m->n_gfx_cards = 1;          m->n_gfx_cards = 1;
         m->dbe_on_nonexistant_memaccess = 1;  
         m->show_symbolic_register_names = 1;  
         m->bintrans_size = DEFAULT_BINTRANS_SIZE_IN_MB * 1048576;  
95          symbol_init(&m->symbol_context);          symbol_init(&m->symbol_context);
96    
97            /*  Settings:  */
98            m->settings = settings_new();
99            settings_add(m->settings, "name", 0,
100                SETTINGS_TYPE_STRING, SETTINGS_FORMAT_STRING,
101                (void *) &m->name);
102            settings_add(m->settings, "serial_nr", 0,
103                SETTINGS_TYPE_INT, SETTINGS_FORMAT_DECIMAL,
104                (void *) &m->serial_nr);
105            settings_add(m->settings, "arch_pagesize", 0,
106                SETTINGS_TYPE_INT, SETTINGS_FORMAT_DECIMAL,
107                (void *) &m->arch_pagesize);
108            settings_add(m->settings, "prom_emulation", 0,
109                SETTINGS_TYPE_INT, SETTINGS_FORMAT_YESNO,
110                (void *) &m->prom_emulation);
111            settings_add(m->settings, "allow_instruction_combinations", 0,
112                SETTINGS_TYPE_INT, SETTINGS_FORMAT_YESNO,
113                (void *) &m->allow_instruction_combinations);
114            settings_add(m->settings, "n_gfx_cards", 0,
115                SETTINGS_TYPE_INT, SETTINGS_FORMAT_DECIMAL,
116                (void *) &m->n_gfx_cards);
117            settings_add(m->settings, "statistics_enabled", 1,
118                SETTINGS_TYPE_INT, SETTINGS_FORMAT_YESNO,
119                (void *) &m->statistics_enabled);
120    
121          return m;          return m;
122  }  }
123    
124    
125  /*  /*
126     *  machine_destroy():
127     *
128     *  Destroys a machine object.
129     */
130    void machine_destroy(struct machine *machine)
131    {
132            int i;
133    
134            for (i=0; i<machine->ncpus; i++)
135                    cpu_destroy(machine->cpus[i]);
136    
137            if (machine->name != NULL)
138                    free(machine->name);
139    
140            if (machine->path != NULL)
141                    free(machine->path);
142    
143            /*  Remove any remaining level-1 settings:  */
144            settings_remove_all(machine->settings);
145            settings_destroy(machine->settings);
146    
147            free(machine);
148    }
149    
150    
151    /*
152   *  machine_name_to_type():   *  machine_name_to_type():
153   *   *
154   *  Take a type and a subtype as strings, and convert them into numeric   *  Take a type and a subtype as strings, and convert them into numeric
# Line 272  int machine_name_to_type(char *stype, ch Line 248  int machine_name_to_type(char *stype, ch
248    
249    
250  /*  /*
251   *  machine_add_tickfunction():   *  machine_add_breakpoint_string():
  *  
  *  Adds a tick function (a function called every now and then, depending on  
  *  clock cycle count) to a machine.  
  */  
 void machine_add_tickfunction(struct machine *machine, void (*func)  
         (struct cpu *, void *), void *extra, int clockshift)  
 {  
         int n = machine->n_tick_entries;  
   
         if (n >= MAX_TICK_FUNCTIONS) {  
                 fprintf(stderr, "machine_add_tickfunction(): too "  
                     "many tick functions\n");  
                 exit(1);  
         }  
   
         /*  Don't use too low clockshifts, that would be too inefficient  
             with bintrans.  */  
         if (clockshift < N_SAFE_BINTRANS_LIMIT_SHIFT)  
                 fatal("WARNING! clockshift = %i, less than "  
                     "N_SAFE_BINTRANS_LIMIT_SHIFT (%i)\n",  
                     clockshift, N_SAFE_BINTRANS_LIMIT_SHIFT);  
   
         machine->ticks_till_next[n]   = 0;  
         machine->ticks_reset_value[n] = 1 << clockshift;  
         machine->tick_func[n]         = func;  
         machine->tick_extra[n]        = extra;  
   
         machine->n_tick_entries ++;  
 }  
   
   
 /****************************************************************************  
  *                                                                          *  
  *                              Helper functions                            *  
  *                                                                          *  
  ****************************************************************************/  
   
   
 int int_to_bcd(int i)  
 {  
         return (i/10) * 16 + (i % 10);  
 }  
   
   
 /*  
  *  dump_mem_string():  
  *  
  *  Dump the contents of emulated RAM as readable text.  Bytes that aren't  
  *  readable are dumped in [xx] notation, where xx is in hexadecimal.  
  *  Dumping ends after DUMP_MEM_STRING_MAX bytes, or when a terminating  
  *  zero byte is found.  
  */  
 #define DUMP_MEM_STRING_MAX     45  
 void dump_mem_string(struct cpu *cpu, uint64_t addr)  
 {  
         int i;  
         for (i=0; i<DUMP_MEM_STRING_MAX; i++) {  
                 unsigned char ch = '\0';  
   
                 cpu->memory_rw(cpu, cpu->mem, addr + i, &ch, sizeof(ch),  
                     MEM_READ, CACHE_DATA | NO_EXCEPTIONS);  
                 if (ch == '\0')  
                         return;  
                 if (ch >= ' ' && ch < 126)  
                         debug("%c", ch);    
                 else  
                         debug("[%02x]", ch);  
         }  
 }  
   
   
 /*  
  *  store_byte():  
  *  
  *  Stores a byte in emulated ram. (Helper function.)  
  */  
 void store_byte(struct cpu *cpu, uint64_t addr, uint8_t data)  
 {  
         if ((addr >> 32) == 0)  
                 addr = (int64_t)(int32_t)addr;  
         cpu->memory_rw(cpu, cpu->mem,  
             addr, &data, sizeof(data), MEM_WRITE, CACHE_DATA);  
 }  
   
   
 /*  
  *  store_string():  
  *  
  *  Stores chars into emulated RAM until a zero byte (string terminating  
  *  character) is found. The zero byte is also copied.  
  *  (strcpy()-like helper function, host-RAM-to-emulated-RAM.)  
  */  
 void store_string(struct cpu *cpu, uint64_t addr, char *s)  
 {  
         do {  
                 store_byte(cpu, addr++, *s);  
         } while (*s++);  
 }  
   
   
 /*  
  *  add_environment_string():  
252   *   *
253   *  Like store_string(), but advances the pointer afterwards. The most   *  Add a breakpoint string to the machine. Later (in emul.c) these will be
254   *  obvious use is to place a number of strings (such as environment variable   *  converted to actual breakpoints.
  *  strings) after one-another in emulated memory.  
255   */   */
256  void add_environment_string(struct cpu *cpu, char *s, uint64_t *addr)  void machine_add_breakpoint_string(struct machine *machine, char *str)
257  {  {
258          store_string(cpu, *addr, s);          int n = machine->breakpoints.n + 1;
         (*addr) += strlen(s) + 1;  
 }  
   
   
 /*  
  *  add_environment_string_dual():  
  *  
  *  Add "dual" environment strings, one for the variable name and one for the  
  *  value, and update pointers afterwards.  
  */  
 void add_environment_string_dual(struct cpu *cpu,  
         uint64_t *ptrp, uint64_t *addrp, char *s1, char *s2)  
 {  
         uint64_t ptr = *ptrp, addr = *addrp;  
   
         store_32bit_word(cpu, ptr, addr);  
         ptr += sizeof(uint32_t);  
         if (addr != 0) {  
                 store_string(cpu, addr, s1);  
                 addr += strlen(s1) + 1;  
         }  
         store_32bit_word(cpu, ptr, addr);  
         ptr += sizeof(uint32_t);  
         if (addr != 0) {  
                 store_string(cpu, addr, s2);  
                 addr += strlen(s2) + 1;  
         }  
   
         *ptrp = ptr;  
         *addrp = addr;  
 }  
259    
260            CHECK_ALLOCATION(machine->breakpoints.string =
261                realloc(machine->breakpoints.string, n * sizeof(char *)));
262            CHECK_ALLOCATION(machine->breakpoints.addr =
263                realloc(machine->breakpoints.addr, n * sizeof(uint64_t)));
264            CHECK_ALLOCATION(machine->breakpoints.string[machine->breakpoints.n] =
265                strdup(optarg));
266    
267  /*          machine->breakpoints.addr[machine->breakpoints.n] = 0;
268   *  store_64bit_word():          machine->breakpoints.n ++;
  *  
  *  Stores a 64-bit word in emulated RAM.  Byte order is taken into account.  
  *  Helper function.  
  */  
 int store_64bit_word(struct cpu *cpu, uint64_t addr, uint64_t data64)  
 {  
         unsigned char data[8];  
         if ((addr >> 32) == 0)  
                 addr = (int64_t)(int32_t)addr;  
         data[0] = (data64 >> 56) & 255;  
         data[1] = (data64 >> 48) & 255;  
         data[2] = (data64 >> 40) & 255;  
         data[3] = (data64 >> 32) & 255;  
         data[4] = (data64 >> 24) & 255;  
         data[5] = (data64 >> 16) & 255;  
         data[6] = (data64 >> 8) & 255;  
         data[7] = (data64) & 255;  
         if (cpu->byte_order == EMUL_LITTLE_ENDIAN) {  
                 int tmp = data[0]; data[0] = data[7]; data[7] = tmp;  
                 tmp = data[1]; data[1] = data[6]; data[6] = tmp;  
                 tmp = data[2]; data[2] = data[5]; data[5] = tmp;  
                 tmp = data[3]; data[3] = data[4]; data[4] = tmp;  
         }  
         return cpu->memory_rw(cpu, cpu->mem,  
             addr, data, sizeof(data), MEM_WRITE, CACHE_DATA);  
269  }  }
270    
271    
272  /*  /*
273   *  store_32bit_word():   *  machine_add_tickfunction():
  *  
  *  Stores a 32-bit word in emulated RAM.  Byte order is taken into account.  
  *  (This function takes a 64-bit word as argument, to suppress some  
  *  warnings, but only the lowest 32 bits are used.)  
  */  
 int store_32bit_word(struct cpu *cpu, uint64_t addr, uint64_t data32)  
 {  
         unsigned char data[4];  
         if ((addr >> 32) == 0)  
                 addr = (int64_t)(int32_t)addr;  
         data[0] = (data32 >> 24) & 255;  
         data[1] = (data32 >> 16) & 255;  
         data[2] = (data32 >> 8) & 255;  
         data[3] = (data32) & 255;  
         if (cpu->byte_order == EMUL_LITTLE_ENDIAN) {  
                 int tmp = data[0]; data[0] = data[3]; data[3] = tmp;  
                 tmp = data[1]; data[1] = data[2]; data[2] = tmp;  
         }  
         return cpu->memory_rw(cpu, cpu->mem,  
             addr, data, sizeof(data), MEM_WRITE, CACHE_DATA);  
 }  
   
   
 /*  
  *  store_16bit_word():  
  *  
  *  Stores a 16-bit word in emulated RAM.  Byte order is taken into account.  
  *  (This function takes a 64-bit word as argument, to suppress some  
  *  warnings, but only the lowest 16 bits are used.)  
  */  
 int store_16bit_word(struct cpu *cpu, uint64_t addr, uint64_t data16)  
 {  
         unsigned char data[2];  
         if ((addr >> 32) == 0)  
                 addr = (int64_t)(int32_t)addr;  
         data[0] = (data16 >> 8) & 255;  
         data[1] = (data16) & 255;  
         if (cpu->byte_order == EMUL_LITTLE_ENDIAN) {  
                 int tmp = data[0]; data[0] = data[1]; data[1] = tmp;  
         }  
         return cpu->memory_rw(cpu, cpu->mem,  
             addr, data, sizeof(data), MEM_WRITE, CACHE_DATA);  
 }  
   
   
 /*  
  *  store_buf():  
  *  
  *  memcpy()-like helper function, from host RAM to emulated RAM.  
  */  
 void store_buf(struct cpu *cpu, uint64_t addr, char *s, size_t len)  
 {  
         int psize = 1024;       /*  1024 256 64 16 4 1  */  
   
         if ((addr >> 32) == 0)  
                 addr = (int64_t)(int32_t)addr;  
   
         while (len != 0) {  
                 if ((addr & (psize-1)) == 0) {  
                         while (len >= psize) {  
                                 cpu->memory_rw(cpu, cpu->mem, addr,  
                                     (unsigned char *)s, psize, MEM_WRITE,  
                                     CACHE_DATA);  
                                 addr += psize;  
                                 s += psize;  
                                 len -= psize;  
                         }  
                 }  
                 psize >>= 2;  
         }  
   
         while (len-- != 0)  
                 store_byte(cpu, addr++, *s++);  
 }  
   
   
 /*  
  *  store_pointer_and_advance():  
  *  
  *  Stores a 32-bit or 64-bit pointer in emulated RAM, and advances the  
  *  target address. (Used by ARC and SGI initialization.)  
  */  
 void store_pointer_and_advance(struct cpu *cpu, uint64_t *addrp,  
         uint64_t data, int flag64)  
 {  
         uint64_t addr = *addrp;  
         if (flag64) {  
                 store_64bit_word(cpu, addr, data);  
                 addr += 8;  
         } else {  
                 store_32bit_word(cpu, addr, data);  
                 addr += 4;  
         }  
         *addrp = addr;  
 }  
   
   
 /*  
  *  load_32bit_word():  
  *  
  *  Helper function.  Prints a warning and returns 0, if the read failed.  
  *  Emulated byte order is taken into account.  
  */  
 uint32_t load_32bit_word(struct cpu *cpu, uint64_t addr)  
 {  
         unsigned char data[4];  
   
         if ((addr >> 32) == 0)  
                 addr = (int64_t)(int32_t)addr;  
         cpu->memory_rw(cpu, cpu->mem,  
             addr, data, sizeof(data), MEM_READ, CACHE_DATA);  
   
         if (cpu->byte_order == EMUL_LITTLE_ENDIAN) {  
                 int tmp = data[0]; data[0] = data[3]; data[3] = tmp;  
                 tmp = data[1]; data[1] = data[2]; data[2] = tmp;  
         }  
   
         return (data[0] << 24) + (data[1] << 16) + (data[2] << 8) + data[3];  
 }  
   
   
 /*  
  *  load_16bit_word():  
  *  
  *  Helper function.  Prints a warning and returns 0, if the read failed.  
  *  Emulated byte order is taken into account.  
  */  
 uint16_t load_16bit_word(struct cpu *cpu, uint64_t addr)  
 {  
         unsigned char data[2];  
   
         if ((addr >> 32) == 0)  
                 addr = (int64_t)(int32_t)addr;  
         cpu->memory_rw(cpu, cpu->mem,  
             addr, data, sizeof(data), MEM_READ, CACHE_DATA);  
   
         if (cpu->byte_order == EMUL_LITTLE_ENDIAN) {  
                 int tmp = data[0]; data[0] = data[1]; data[1] = tmp;  
         }  
   
         return (data[0] << 8) + data[1];  
 }  
   
   
 /*  
  *  store_64bit_word_in_host():  
  *  
  *  Stores a 64-bit word in the _host's_ RAM.  Emulated byte order is taken  
  *  into account.  This is useful when building structs in the host's RAM  
  *  which will later be copied into emulated RAM.  
  */  
 void store_64bit_word_in_host(struct cpu *cpu,  
         unsigned char *data, uint64_t data64)  
 {  
         data[0] = (data64 >> 56) & 255;  
         data[1] = (data64 >> 48) & 255;  
         data[2] = (data64 >> 40) & 255;  
         data[3] = (data64 >> 32) & 255;  
         data[4] = (data64 >> 24) & 255;  
         data[5] = (data64 >> 16) & 255;  
         data[6] = (data64 >> 8) & 255;  
         data[7] = (data64) & 255;  
         if (cpu->byte_order == EMUL_LITTLE_ENDIAN) {  
                 int tmp = data[0]; data[0] = data[7]; data[7] = tmp;  
                 tmp = data[1]; data[1] = data[6]; data[6] = tmp;  
                 tmp = data[2]; data[2] = data[5]; data[5] = tmp;  
                 tmp = data[3]; data[3] = data[4]; data[4] = tmp;  
         }  
 }  
   
   
 /*  
  *  store_32bit_word_in_host():  
  *  
  *  See comment for store_64bit_word_in_host().  
  *  
  *  (Note:  The data32 parameter is a uint64_t. This is done to suppress  
  *  some warnings.)  
  */  
 void store_32bit_word_in_host(struct cpu *cpu,  
         unsigned char *data, uint64_t data32)  
 {  
         data[0] = (data32 >> 24) & 255;  
         data[1] = (data32 >> 16) & 255;  
         data[2] = (data32 >> 8) & 255;  
         data[3] = (data32) & 255;  
         if (cpu->byte_order == EMUL_LITTLE_ENDIAN) {  
                 int tmp = data[0]; data[0] = data[3]; data[3] = tmp;  
                 tmp = data[1]; data[1] = data[2]; data[2] = tmp;  
         }  
 }  
   
   
 /*  
  *  store_16bit_word_in_host():  
  *  
  *  See comment for store_64bit_word_in_host().  
  */  
 void store_16bit_word_in_host(struct cpu *cpu,  
         unsigned char *data, uint16_t data16)  
 {  
         data[0] = (data16 >> 8) & 255;  
         data[1] = (data16) & 255;  
         if (cpu->byte_order == EMUL_LITTLE_ENDIAN) {  
                 int tmp = data[0]; data[0] = data[1]; data[1] = tmp;  
         }  
 }  
   
   
 /****************************************************************************  
  *                                                                          *  
  *                    Machine dependant Interrupt routines                  *  
  *                                                                          *  
  ****************************************************************************/  
   
   
 /*  
  *  DECstation KN02 interrupts:  
  */  
 void kn02_interrupt(struct machine *m, struct cpu *cpu, int irq_nr, int assrt)  
 {  
         int current;  
   
         irq_nr -= 8;  
         irq_nr &= 0xff;  
   
         if (assrt) {  
                 /*  OR in the irq_nr into the CSR:  */  
                 m->md_int.kn02_csr->csr[0] |= irq_nr;  
         } else {  
                 /*  AND out the irq_nr from the CSR:  */  
                 m->md_int.kn02_csr->csr[0] &= ~irq_nr;  
         }  
   
         current = m->md_int.kn02_csr->csr[0] & m->md_int.kn02_csr->csr[2];  
         if (current == 0)  
                 cpu_interrupt_ack(cpu, 2);  
         else  
                 cpu_interrupt(cpu, 2);  
 }  
   
   
 /*  
  *  DECstation KMIN interrupts:  
274   *   *
275   *  TC slot 3 = system slot.   *  Adds a tick function (a function called every now and then, depending on
276   */   *  clock cycle count) to a machine.
 void kmin_interrupt(struct machine *m, struct cpu *cpu, int irq_nr, int assrt)  
 {  
         irq_nr -= 8;  
         /*  debug("kmin_interrupt(): irq_nr=%i assrt=%i\n", irq_nr, assrt);  */  
   
         if (assrt)  
                 m->md_int.dec_ioasic_data->reg[(IOASIC_INTR - IOASIC_SLOT_1_START) / 0x10] |= irq_nr;  
         else  
                 m->md_int.dec_ioasic_data->reg[(IOASIC_INTR - IOASIC_SLOT_1_START) / 0x10] &= ~irq_nr;  
   
         if (m->md_int.dec_ioasic_data->reg[(IOASIC_INTR - IOASIC_SLOT_1_START) / 0x10]  
             & m->md_int.dec_ioasic_data->reg[(IOASIC_IMSK - IOASIC_SLOT_1_START) / 0x10])  
                 cpu_interrupt(cpu, KMIN_INT_TC3);  
         else  
                 cpu_interrupt_ack(cpu, KMIN_INT_TC3);  
 }  
   
   
 /*  
  *  DECstation KN03 interrupts:  
  */  
 void kn03_interrupt(struct machine *m, struct cpu *cpu, int irq_nr, int assrt)  
 {  
         irq_nr -= 8;  
         /*  debug("kn03_interrupt(): irq_nr=0x%x assrt=%i\n", irq_nr, assrt);  */  
   
         if (assrt)  
                 m->md_int.dec_ioasic_data->reg[(IOASIC_INTR - IOASIC_SLOT_1_START) / 0x10] |= irq_nr;  
         else  
                 m->md_int.dec_ioasic_data->reg[(IOASIC_INTR - IOASIC_SLOT_1_START) / 0x10] &= ~irq_nr;  
   
         if (m->md_int.dec_ioasic_data->reg[(IOASIC_INTR - IOASIC_SLOT_1_START) / 0x10]  
             & m->md_int.dec_ioasic_data->reg[(IOASIC_IMSK - IOASIC_SLOT_1_START) / 0x10])  
                 cpu_interrupt(cpu, KN03_INT_ASIC);  
         else  
                 cpu_interrupt_ack(cpu, KN03_INT_ASIC);  
 }  
   
   
 /*  
  *  DECstation MAXINE interrupts:  
  */  
 void maxine_interrupt(struct machine *m, struct cpu *cpu,  
         int irq_nr, int assrt)  
 {  
         irq_nr -= 8;  
         debug("maxine_interrupt(): irq_nr=0x%x assrt=%i\n", irq_nr, assrt);  
   
         if (assrt)  
                 m->md_int.dec_ioasic_data->reg[(IOASIC_INTR - IOASIC_SLOT_1_START)  
                     / 0x10] |= irq_nr;  
         else  
                 m->md_int.dec_ioasic_data->reg[(IOASIC_INTR - IOASIC_SLOT_1_START)  
                     / 0x10] &= ~irq_nr;  
   
         if (m->md_int.dec_ioasic_data->reg[(IOASIC_INTR - IOASIC_SLOT_1_START) / 0x10]  
             & m->md_int.dec_ioasic_data->reg[(IOASIC_IMSK - IOASIC_SLOT_1_START)  
             / 0x10])  
                 cpu_interrupt(cpu, XINE_INT_TC3);  
         else  
                 cpu_interrupt_ack(cpu, XINE_INT_TC3);  
 }  
   
   
 /*  
  *  DECstation KN230 interrupts:  
  */  
 void kn230_interrupt(struct machine *m, struct cpu *cpu, int irq_nr, int assrt)  
 {  
         int r2 = 0;  
   
         m->md_int.kn230_csr->csr |= irq_nr;  
   
         switch (irq_nr) {  
         case KN230_CSR_INTR_SII:  
         case KN230_CSR_INTR_LANCE:  
                 r2 = 3;  
                 break;  
         case KN230_CSR_INTR_DZ0:  
         case KN230_CSR_INTR_OPT0:  
         case KN230_CSR_INTR_OPT1:  
                 r2 = 2;  
                 break;  
         default:  
                 fatal("kn230_interrupt(): irq_nr = %i ?\n", irq_nr);  
         }  
   
         if (assrt) {  
                 /*  OR in the irq_nr mask into the CSR:  */  
                 m->md_int.kn230_csr->csr |= irq_nr;  
   
                 /*  Assert MIPS interrupt 2 or 3:  */  
                 cpu_interrupt(cpu, r2);  
         } else {  
                 /*  AND out the irq_nr mask from the CSR:  */  
                 m->md_int.kn230_csr->csr &= ~irq_nr;  
   
                 /*  If the CSR interrupt bits are all zero,  
                     clear the bit in the cause register as well.  */  
                 if (r2 == 2) {  
                         /*  irq 2:  */  
                         if ((m->md_int.kn230_csr->csr & (KN230_CSR_INTR_DZ0  
                             | KN230_CSR_INTR_OPT0 | KN230_CSR_INTR_OPT1)) == 0)  
                                 cpu_interrupt_ack(cpu, r2);  
                 } else {  
                         /*  irq 3:  */  
                         if ((m->md_int.kn230_csr->csr & (KN230_CSR_INTR_SII |  
                             KN230_CSR_INTR_LANCE)) == 0)  
                                 cpu_interrupt_ack(cpu, r2);  
                 }  
         }  
 }  
   
   
 /*  
  *  Jazz interrupts (for Acer PICA-61 etc):  
277   *   *
278   *  0..7                        MIPS interrupts   *  If tickshift is non-zero, a tick will occur every (1 << tickshift) cycles.
279   *  8 + x, where x = 0..15      Jazz interrupts   *  This is used for the normal (fast dyntrans) emulation modes.
  *  8 + x, where x = 16..31     ISA interrupt (irq nr + 16)  
  */  
 void jazz_interrupt(struct machine *m, struct cpu *cpu, int irq_nr, int assrt)  
 {  
         uint32_t irq;  
         int isa = 0;  
   
         irq_nr -= 8;  
   
         /*  debug("jazz_interrupt() irq_nr = %i, assrt = %i\n",  
                 irq_nr, assrt);  */  
   
         if (irq_nr >= 16) {  
                 isa = 1;  
                 irq_nr -= 16;  
         }  
   
         irq = 1 << irq_nr;  
   
         if (isa) {  
                 if (assrt)  
                         m->md_int.jazz_data->isa_int_asserted |= irq;  
                 else  
                         m->md_int.jazz_data->isa_int_asserted &= ~irq;  
         } else {  
                 if (assrt)  
                         m->md_int.jazz_data->int_asserted |= irq;  
                 else  
                         m->md_int.jazz_data->int_asserted &= ~irq;  
         }  
   
         /*  debug("   %08x %08x\n", m->md_int.jazz_data->int_asserted,  
                 m->md_int.jazz_data->int_enable_mask);  */  
         /*  debug("   %08x %08x\n", m->md_int.jazz_data->isa_int_asserted,  
                 m->md_int.jazz_data->isa_int_enable_mask);  */  
   
         if (m->md_int.jazz_data->int_asserted  
             /* & m->md_int.jazz_data->int_enable_mask  */ & ~0x8000 )  
                 cpu_interrupt(cpu, 3);  
         else  
                 cpu_interrupt_ack(cpu, 3);  
   
         if (m->md_int.jazz_data->isa_int_asserted &  
             m->md_int.jazz_data->isa_int_enable_mask)  
                 cpu_interrupt(cpu, 4);  
         else  
                 cpu_interrupt_ack(cpu, 4);  
   
         /*  TODO: this "15" (0x8000) is the timer... fix this?  */  
         if (m->md_int.jazz_data->int_asserted & 0x8000)  
                 cpu_interrupt(cpu, 6);  
         else  
                 cpu_interrupt_ack(cpu, 6);  
 }  
   
   
 /*  
  *  VR41xx interrupt routine:  
280   *   *
281   *  irq_nr = 8 + x   *  If tickshift is zero, then this is a cycle-accurate tick function.
282   *      x = 0..15 for level1   *  The hz value is used in this case.
  *      x = 16..31 for level2  
  *      x = 32+y for GIU interrupt y  
283   */   */
284  void vr41xx_interrupt(struct machine *m, struct cpu *cpu,  void machine_add_tickfunction(struct machine *machine, void (*func)
285          int irq_nr, int assrt)          (struct cpu *, void *), void *extra, int tickshift)
 {  
         int giu_irq = 0;  
   
         irq_nr -= 8;  
         if (irq_nr >= 32) {  
                 giu_irq = irq_nr - 32;  
   
                 if (assrt)  
                         m->md_int.vr41xx_data->giuint |= (1 << giu_irq);  
                 else  
                         m->md_int.vr41xx_data->giuint &= ~(1 << giu_irq);  
         }  
   
         /*  TODO: This is wrong. What about GIU bit 8?  */  
   
         if (irq_nr != 8) {  
                 /*  If any GIU bit is asserted, then assert the main  
                     GIU interrupt:  */  
                 if (m->md_int.vr41xx_data->giuint &  
                     m->md_int.vr41xx_data->giumask)  
                         vr41xx_interrupt(m, cpu, 8 + 8, 1);  
                 else  
                         vr41xx_interrupt(m, cpu, 8 + 8, 0);  
         }  
   
         /*  debug("vr41xx_interrupt(): irq_nr=%i assrt=%i\n",  
             irq_nr, assrt);  */  
   
         if (irq_nr < 16) {  
                 if (assrt)  
                         m->md_int.vr41xx_data->sysint1 |= (1 << irq_nr);  
                 else  
                         m->md_int.vr41xx_data->sysint1 &= ~(1 << irq_nr);  
         } else if (irq_nr < 32) {  
                 irq_nr -= 16;  
                 if (assrt)  
                         m->md_int.vr41xx_data->sysint2 |= (1 << irq_nr);  
                 else  
                         m->md_int.vr41xx_data->sysint2 &= ~(1 << irq_nr);  
         }  
   
         /*  TODO: Which hardware interrupt pin?  */  
   
         /*  debug("    sysint1=%04x mask=%04x, sysint2=%04x mask=%04x\n",  
             m->md_int.vr41xx_data->sysint1, m->md_int.vr41xx_data->msysint1,  
             m->md_int.vr41xx_data->sysint2, m->md_int.vr41xx_data->msysint2); */  
   
         if ((m->md_int.vr41xx_data->sysint1 & m->md_int.vr41xx_data->msysint1) |  
             (m->md_int.vr41xx_data->sysint2 & m->md_int.vr41xx_data->msysint2))  
                 cpu_interrupt(cpu, 2);  
         else  
                 cpu_interrupt_ack(cpu, 2);  
 }  
   
   
 /*  
  *  Playstation 2 interrupt routine:  
  *  
  *  irq_nr =    8 + x           normal irq x  
  *              8 + 16 + y      dma irq y  
  *              8 + 32 + 0      sbus irq 0 (pcmcia)  
  *              8 + 32 + 1      sbus irq 1 (usb)  
  */  
 void ps2_interrupt(struct machine *m, struct cpu *cpu, int irq_nr, int assrt)  
286  {  {
287          irq_nr -= 8;          int n = machine->tick_functions.n_entries;
         debug("ps2_interrupt(): irq_nr=0x%x assrt=%i\n", irq_nr, assrt);  
   
         if (irq_nr >= 32) {  
                 int msk = 0;  
                 switch (irq_nr - 32) {  
                 case 0: /*  PCMCIA:  */  
                         msk = 0x100;  
                         break;  
                 case 1: /*  USB:  */  
                         msk = 0x400;  
                         break;  
                 default:  
                         fatal("ps2_interrupt(): bad irq_nr %i\n", irq_nr);  
                 }  
   
                 if (assrt)  
                         m->md_int.ps2_data->sbus_smflg |= msk;  
                 else  
                         m->md_int.ps2_data->sbus_smflg &= ~msk;  
   
                 if (m->md_int.ps2_data->sbus_smflg != 0)  
                         cpu_interrupt(cpu, 8 + 1);  
                 else  
                         cpu_interrupt_ack(cpu, 8 + 1);  
                 return;  
         }  
   
         if (assrt) {  
                 /*  OR into the INTR:  */  
                 if (irq_nr < 16)  
                         m->md_int.ps2_data->intr |= (1 << irq_nr);  
                 else  
                         m->md_int.ps2_data->dmac_reg[0x601] |=  
                             (1 << (irq_nr-16));  
         } else {  
                 /*  AND out of the INTR:  */  
                 if (irq_nr < 16)  
                         m->md_int.ps2_data->intr &= ~(1 << irq_nr);  
                 else  
                         m->md_int.ps2_data->dmac_reg[0x601] &=  
                             ~(1 << (irq_nr-16));  
         }  
288    
289          /*  TODO: Hm? How about the mask?  */          CHECK_ALLOCATION(machine->tick_functions.ticks_till_next = realloc(
290          if (m->md_int.ps2_data->intr /*  & m->md_int.ps2_data->imask */ )              machine->tick_functions.ticks_till_next, (n+1) * sizeof(int)));
291                  cpu_interrupt(cpu, 2);          CHECK_ALLOCATION(machine->tick_functions.ticks_reset_value = realloc(
292          else              machine->tick_functions.ticks_reset_value, (n+1) * sizeof(int)));
293                  cpu_interrupt_ack(cpu, 2);          CHECK_ALLOCATION(machine->tick_functions.f = realloc(
294                machine->tick_functions.f, (n+1) * sizeof(void *)));
295          /*  TODO: mask?  */          CHECK_ALLOCATION(machine->tick_functions.extra = realloc(
296          if (m->md_int.ps2_data->dmac_reg[0x601] & 0xffff)              machine->tick_functions.extra, (n+1) * sizeof(void *)));
                 cpu_interrupt(cpu, 3);  
         else  
                 cpu_interrupt_ack(cpu, 3);  
 }  
297    
   
 /*  
  *  SGI "IP22" interrupt routine:  
  */  
 void sgi_ip22_interrupt(struct machine *m, struct cpu *cpu,  
         int irq_nr, int assrt)  
 {  
298          /*          /*
299           *  SGI-IP22 specific interrupt stuff:           *  The dyntrans subsystem wants to run code in relatively
300           *           *  large chunks without checking for external interrupts;
301           *  irq_nr should be 8 + x, where x = 0..31 for local0,           *  too low tickshifts are not allowed.
          *  and 32..63 for local1 interrupts.  
          *  Add 64*y for "mappable" interrupts, where 1<<y is  
          *  the mappable interrupt bitmask. TODO: this misses 64*0 !  
302           */           */
303            if (tickshift < N_SAFE_DYNTRANS_LIMIT_SHIFT) {
304          uint32_t newmask;                  fatal("ERROR! tickshift = %i, less than "
305          uint32_t stat, mask;                      "N_SAFE_DYNTRANS_LIMIT_SHIFT (%i)\n",
306                        tickshift, N_SAFE_DYNTRANS_LIMIT_SHIFT);
307          irq_nr -= 8;                  exit(1);
         newmask = 1 << (irq_nr & 31);  
   
         if (irq_nr >= 64) {  
                 int ms = irq_nr / 64;  
                 uint32_t new = 1 << ms;  
                 if (assrt)  
                         m->md_int.sgi_ip22_data->reg[4] |= new;  
                 else  
                         m->md_int.sgi_ip22_data->reg[4] &= ~new;  
                 /*  TODO: is this enough?  */  
                 irq_nr &= 63;  
         }  
   
         if (irq_nr < 32) {  
                 if (assrt)  
                         m->md_int.sgi_ip22_data->reg[0] |= newmask;  
                 else  
                         m->md_int.sgi_ip22_data->reg[0] &= ~newmask;  
         } else {  
                 if (assrt)  
                         m->md_int.sgi_ip22_data->reg[2] |= newmask;  
                 else  
                         m->md_int.sgi_ip22_data->reg[2] &= ~newmask;  
308          }          }
309    
310          /*  Read stat and mask for local0:  */          machine->tick_functions.ticks_till_next[n]   = 0;
311          stat = m->md_int.sgi_ip22_data->reg[0];          machine->tick_functions.ticks_reset_value[n] = 1 << tickshift;
312          mask = m->md_int.sgi_ip22_data->reg[1];          machine->tick_functions.f[n]                 = func;
313          if ((stat & mask) == 0)          machine->tick_functions.extra[n]             = extra;
                 cpu_interrupt_ack(cpu, 2);  
         else  
                 cpu_interrupt(cpu, 2);  
314    
315          /*  Read stat and mask for local1:  */          machine->tick_functions.n_entries = n + 1;
         stat = m->md_int.sgi_ip22_data->reg[2];  
         mask = m->md_int.sgi_ip22_data->reg[3];  
         if ((stat & mask) == 0)  
                 cpu_interrupt_ack(cpu, 3);  
         else  
                 cpu_interrupt(cpu, 3);  
316  }  }
317    
318    
319  /*  /*
320   *  SGI "IP30" interrupt routine:   *  machine_statistics_init():
321   *   *
322   *  irq_nr = 8 + 1 + nr, where nr is:   *  Initialize the parts of a machine struct that deal with instruction
323   *      0..49           HEART irqs      hardware irq 2,3,4   *  statistics gathering.
  *      50              HEART timer     hardware irq 5  
  *      51..63          HEART errors    hardware irq 6  
324   *   *
325   *  according to Linux/IP30.   *  Note: The fname argument contains "flags:filename".
326   */   */
327  void sgi_ip30_interrupt(struct machine *m, struct cpu *cpu,  void machine_statistics_init(struct machine *machine, char *fname)
         int irq_nr, int assrt)  
328  {  {
329          uint64_t newmask;          int n_fields = 0;
330          uint64_t stat, mask;          char *pcolon = fname;
331            char *mode = "a";       /*  Append by default  */
         irq_nr -= 8;  
         if (irq_nr == 0)  
                 goto just_assert_and_such;  
         irq_nr --;  
332    
333          newmask = (int64_t)1 << irq_nr;          machine->allow_instruction_combinations = 0;
   
         if (assrt)  
                 m->md_int.sgi_ip30_data->isr |= newmask;  
         else  
                 m->md_int.sgi_ip30_data->isr &= ~newmask;  
334    
335  just_assert_and_such:          if (machine->statistics_fields != NULL) {
336                    fprintf(stderr, "Only one -s option is allowed.\n");
337          cpu_interrupt_ack(cpu, 2);                  exit(1);
         cpu_interrupt_ack(cpu, 3);  
         cpu_interrupt_ack(cpu, 4);  
         cpu_interrupt_ack(cpu, 5);  
         cpu_interrupt_ack(cpu, 6);  
   
         stat = m->md_int.sgi_ip30_data->isr;  
         mask = m->md_int.sgi_ip30_data->imask0;  
   
         if ((stat & mask) & 0x000000000000ffffULL)  
                 cpu_interrupt(cpu, 2);  
         if ((stat & mask) & 0x00000000ffff0000ULL)  
                 cpu_interrupt(cpu, 3);  
         if ((stat & mask) & 0x0003ffff00000000ULL)  
                 cpu_interrupt(cpu, 4);  
         if ((stat & mask) & 0x0004000000000000ULL)  
                 cpu_interrupt(cpu, 5);  
         if ((stat & mask) & 0xfff8000000000000ULL)  
                 cpu_interrupt(cpu, 6);  
 }  
   
   
 /*  
  *  SGI "IP32" interrupt routine:  
  */  
 void sgi_ip32_interrupt(struct machine *m, struct cpu *cpu,  
         int irq_nr, int assrt)  
 {  
         /*  
          *  The 64-bit word at crime offset 0x10 is CRIME_INTSTAT,  
          *  which contains the current interrupt bits. CRIME_INTMASK  
          *  contains a mask of which bits are actually in use.  
          *  
          *  crime hardcoded at 0x14000000, for SGI-IP32.  
          *  If any of these bits are asserted, then physical MIPS  
          *  interrupt 2 should be asserted.  
          *  
          *  TODO:  how should all this be done nicely?  
          */  
   
         uint64_t crime_addr = CRIME_INTSTAT;  
         uint64_t mace_addr = 0x10;  
         uint64_t crime_interrupts, crime_interrupts_mask;  
         uint64_t mace_interrupts, mace_interrupt_mask;  
         unsigned int i;  
         unsigned char x[8];  
   
         /*  Read current MACE interrupt assertions:  */  
         memcpy(x, m->md_int.ip32.mace_data->reg + mace_addr,  
             sizeof(uint64_t));  
         mace_interrupts = 0;  
         for (i=0; i<sizeof(uint64_t); i++) {  
                 mace_interrupts <<= 8;  
                 mace_interrupts |= x[i];  
         }  
   
         /*  Read current MACE interrupt mask:  */  
         memcpy(x, m->md_int.ip32.mace_data->reg + mace_addr + 8,  
             sizeof(uint64_t));  
         mace_interrupt_mask = 0;  
         for (i=0; i<sizeof(uint64_t); i++) {  
                 mace_interrupt_mask <<= 8;  
                 mace_interrupt_mask |= x[i];  
         }  
   
         /*  
          *  This mapping of both MACE and CRIME interrupts into the same  
          *  'int' is really ugly.  
          *  
          *  If MACE_PERIPH_MISC or MACE_PERIPH_SERIAL is set, then mask  
          *  that bit out and treat the rest of the word as the mace interrupt  
          *  bitmask.  
          *  
          *  TODO: fix.  
          */  
         if (irq_nr & MACE_PERIPH_SERIAL) {  
                 if (assrt)  
                         mace_interrupts |= (irq_nr & ~MACE_PERIPH_SERIAL);  
                 else  
                         mace_interrupts &= ~(irq_nr & ~MACE_PERIPH_SERIAL);  
   
                 irq_nr = MACE_PERIPH_SERIAL;  
                 if ((mace_interrupts & mace_interrupt_mask) == 0)  
                         assrt = 0;  
                 else  
                         assrt = 1;  
         }  
   
         /*  Hopefully _MISC and _SERIAL will not be both on at the same time.  */  
         if (irq_nr & MACE_PERIPH_MISC) {  
                 if (assrt)  
                         mace_interrupts |= (irq_nr & ~MACE_PERIPH_MISC);  
                 else  
                         mace_interrupts &= ~(irq_nr & ~MACE_PERIPH_MISC);  
   
                 irq_nr = MACE_PERIPH_MISC;  
                 if ((mace_interrupts & mace_interrupt_mask) == 0)  
                         assrt = 0;  
                 else  
                         assrt = 1;  
         }  
   
         /*  Write back MACE interrupt assertions:  */  
         for (i=0; i<sizeof(uint64_t); i++)  
                 x[7-i] = mace_interrupts >> (i*8);  
         memcpy(m->md_int.ip32.mace_data->reg + mace_addr, x, sizeof(uint64_t));  
   
         /*  Read CRIME_INTSTAT:  */  
         memcpy(x, m->md_int.ip32.crime_data->reg + crime_addr,  
             sizeof(uint64_t));  
         crime_interrupts = 0;  
         for (i=0; i<sizeof(uint64_t); i++) {  
                 crime_interrupts <<= 8;  
                 crime_interrupts |= x[i];  
         }  
   
         if (assrt)  
                 crime_interrupts |= irq_nr;  
         else  
                 crime_interrupts &= ~irq_nr;  
   
         /*  Write back CRIME_INTSTAT:  */  
         for (i=0; i<sizeof(uint64_t); i++)  
                 x[7-i] = crime_interrupts >> (i*8);  
         memcpy(m->md_int.ip32.crime_data->reg + crime_addr, x,  
             sizeof(uint64_t));  
   
         /*  Read CRIME_INTMASK:  */  
         memcpy(x, m->md_int.ip32.crime_data->reg + CRIME_INTMASK,  
             sizeof(uint64_t));  
         crime_interrupts_mask = 0;  
         for (i=0; i<sizeof(uint64_t); i++) {  
                 crime_interrupts_mask <<= 8;  
                 crime_interrupts_mask |= x[i];  
338          }          }
339    
340          if ((crime_interrupts & crime_interrupts_mask) == 0)          machine->statistics_enabled = 1;
341                  cpu_interrupt_ack(cpu, 2);          CHECK_ALLOCATION(machine->statistics_fields = malloc(1));
342          else          machine->statistics_fields[0] = '\0';
                 cpu_interrupt(cpu, 2);  
343    
344          /*  printf("sgi_crime_machine_irq(%i,%i): new interrupts = 0x%08x\n",          while (*pcolon && *pcolon != ':')
345              assrt, irq_nr, crime_interrupts);  */                  pcolon ++;
 }  
346    
347            if (*pcolon != ':') {
348  /*                  fprintf(stderr, "The syntax for the -s option is:    "
349   *  Au1x00 interrupt routine:                      "-s flags:filename\nYou omitted the flags. Run g"
350   *                      "xemul -h for a list of available flags.\n");
351   *  TODO: This is just bogus so far.  For more info, read this:                  exit(1);
  *  http://www.meshcube.org/cgi-bin/viewcvs.cgi/kernel/linux/arch/mips/au1000/common/  
  *  
  *  CPU int 2 = IC 0, request 0  
  *  CPU int 3 = IC 0, request 1  
  *  CPU int 4 = IC 1, request 0  
  *  CPU int 5 = IC 1, request 1  
  *  
  *  Interrupts 0..31 are on interrupt controller 0, interrupts 32..63 are  
  *  on controller 1.  
  *  
  *  Special case: if irq_nr == 64+8, then this just updates the CPU  
  *  interrupt assertions.  
  */  
 void au1x00_interrupt(struct machine *m, struct cpu *cpu,  
         int irq_nr, int assrt)  
 {  
         uint32_t ms;  
   
         irq_nr -= 8;  
         debug("au1x00_interrupt(): irq_nr=%i assrt=%i\n", irq_nr, assrt);  
   
         if (irq_nr < 64) {  
                 ms = 1 << (irq_nr & 31);  
   
                 if (assrt)  
                         m->md_int.au1x00_ic_data->request0_int |= ms;  
                 else  
                         m->md_int.au1x00_ic_data->request0_int &= ~ms;  
   
                 /*  TODO: Controller 1  */  
352          }          }
353    
354          if ((m->md_int.au1x00_ic_data->request0_int &          while (*fname != ':') {
355              m->md_int.au1x00_ic_data->mask) != 0)                  switch (*fname) {
                 cpu_interrupt(cpu, 2);  
         else  
                 cpu_interrupt_ack(cpu, 2);  
   
         /*  TODO: What _is_ request1?  */  
356    
357          /*  TODO: Controller 1  */                  /*  Type flags:  */
358  }                  case 'v':
359                    case 'i':
360                    case 'p':
361  /*                          CHECK_ALLOCATION(machine->statistics_fields = realloc(
362   *  Malta (evbmips) interrupts:                              machine->statistics_fields, strlen(
363   *                              machine->statistics_fields) + 2));
364   *  ISA interrupts.                          machine->statistics_fields[n_fields ++] = *fname;
365   *  (irq_nr = 16+8 can be used to just reassert/deassert interrupts.)                          machine->statistics_fields[n_fields] = '\0';
366   */                          break;
 void malta_interrupt(struct machine *m, struct cpu *cpu, int irq_nr,  
         int assrt)  
 {  
         int mask;  
367    
368          irq_nr -= 8;                  /*  Optional flags:  */
369          mask = 1 << (irq_nr & 7);                  case 'o':
370                            mode = "w";
371                            break;
372                    case 'd':
373                            machine->statistics_enabled = 0;
374                            break;
375    
376          if (irq_nr < 8) {                  default:fprintf(stderr, "Unknown flag '%c' used with the"
377                  if (assrt)                              " -s option. Aborting.\n", *fname);
378                          m->md_int.isa_pic_data.pic1->irr |= mask;                          exit(1);
379                  else                  }
380                          m->md_int.isa_pic_data.pic1->irr &= ~mask;                  fname ++;
         } else if (irq_nr < 16) {  
                 if (assrt)  
                         m->md_int.isa_pic_data.pic2->irr |= mask;  
                 else  
                         m->md_int.isa_pic_data.pic2->irr &= ~mask;  
381          }          }
382    
383          /*  Any interrupt assertions on PIC2 go to irq 2 on PIC1  */          fname ++;       /*  point to the filename after the colon  */
         /*  (TODO: don't hardcode this here)  */  
         if (m->md_int.isa_pic_data.pic2->irr &  
             ~m->md_int.isa_pic_data.pic2->ier)  
                 m->md_int.isa_pic_data.pic1->irr |= 0x04;  
         else  
                 m->md_int.isa_pic_data.pic1->irr &= ~0x04;  
   
         /*  Now, PIC1:  */  
         if (m->md_int.isa_pic_data.pic1->irr &  
             ~m->md_int.isa_pic_data.pic1->ier)  
                 cpu_interrupt(cpu, 2);  
         else  
                 cpu_interrupt_ack(cpu, 2);  
384    
385          /*  printf("MALTA: pic1.irr=0x%02x ier=0x%02x pic2.irr=0x%02x "          CHECK_ALLOCATION(machine->statistics_filename = strdup(fname));
386              "ier=0x%02x\n", m->md_int.isa_pic_data.pic1->irr,          machine->statistics_file = fopen(machine->statistics_filename, mode);
             m->md_int.isa_pic_data.pic1->ier,  
             m->md_int.isa_pic_data.pic2->irr,  
             m->md_int.isa_pic_data.pic2->ier);  */  
387  }  }
388    
389    
390  /*  /*
391   *  Cobalt interrupts:   *  machine_dumpinfo():
392   *   *
393   *  (irq_nr = 8 + 16 can be used to just reassert/deassert interrupts.)   *  Dumps info about a machine in some kind of readable format. (Used by
394     *  the 'machine' debugger command.)
395   */   */
396  void cobalt_interrupt(struct machine *m, struct cpu *cpu, int irq_nr, int assrt)  void machine_dumpinfo(struct machine *m)
397  {  {
398          int mask;          int i;
   
         irq_nr -= 8;  
         mask = 1 << (irq_nr & 7);  
399    
400          if (irq_nr < 8) {          debug("serial nr: %i", m->serial_nr);
401                  if (assrt)          if (m->nr_of_nics > 0)
402                          m->md_int.isa_pic_data.pic1->irr |= mask;                  debug("  (nr of NICs: %i)", m->nr_of_nics);
403                  else          debug("\n");
                         m->md_int.isa_pic_data.pic1->irr &= ~mask;  
         } else if (irq_nr < 16) {  
                 if (assrt)  
                         m->md_int.isa_pic_data.pic2->irr |= mask;  
                 else  
                         m->md_int.isa_pic_data.pic2->irr &= ~mask;  
         }  
404    
405          /*  Any interrupt assertions on PIC2 go to irq 2 on PIC1  */          debug("memory: %i MB", m->physical_ram_in_mb);
406          /*  (TODO: don't hardcode this here)  */          if (m->memory_offset_in_mb != 0)
407          if (m->md_int.isa_pic_data.pic2->irr &                  debug(" (offset by %i MB)", m->memory_offset_in_mb);
408              ~m->md_int.isa_pic_data.pic2->ier)          if (m->random_mem_contents)
409                  m->md_int.isa_pic_data.pic1->irr |= 0x04;                  debug(", randomized contents");
410          else          debug("\n");
                 m->md_int.isa_pic_data.pic1->irr &= ~0x04;  
411    
412          /*  Now, PIC1:  */          if (!m->prom_emulation)
413          if (m->md_int.isa_pic_data.pic1->irr &                  debug("PROM emulation disabled\n");
             ~m->md_int.isa_pic_data.pic1->ier)  
                 cpu_interrupt(cpu, 6);  
         else  
                 cpu_interrupt_ack(cpu, 6);  
414    
415          /*  printf("COBALT: pic1.irr=0x%02x ier=0x%02x pic2.irr=0x%02x "          for (i=0; i<m->ncpus; i++)
416              "ier=0x%02x\n", m->md_int.isa_pic_data.pic1->irr,                  cpu_dumpinfo(m, m->cpus[i]);
             m->md_int.isa_pic_data.pic1->ier,  
             m->md_int.isa_pic_data.pic2->irr,  
             m->md_int.isa_pic_data.pic2->ier);  */  
 }  
417    
418            if (m->ncpus > 1)
419                    debug("Bootstrap cpu is nr %i\n", m->bootstrap_cpu);
420    
421  /*          if (m->slow_serial_interrupts_hack_for_linux)
422   *  x86 (PC) interrupts:                  debug("Using slow_serial_interrupts_hack_for_linux\n");
  *  
  *  (irq_nr = 16 can be used to just reassert/deassert interrupts.)  
  */  
 void x86_pc_interrupt(struct machine *m, struct cpu *cpu, int irq_nr, int assrt)  
 {  
         int mask = 1 << (irq_nr & 7);  
423    
424          if (irq_nr < 8) {          if (m->x11_md.in_use) {
425                  if (assrt)                  debug("Using X11");
426                          m->md.pc.pic1->irr |= mask;                  if (m->x11_md.scaledown > 1)
427                  else                          debug(", scaledown %i", m->x11_md.scaledown);
428                          m->md.pc.pic1->irr &= ~mask;                  if (m->x11_md.scaleup > 1)
429          } else if (irq_nr < 16) {                          debug(", scaleup %i", m->x11_md.scaleup);
430                  if (m->md.pc.pic2 == NULL) {                  if (m->x11_md.n_display_names > 0) {
431                          fatal("x86_pc_interrupt(): pic2 used (irq_nr = %i), "                          for (i=0; i<m->x11_md.n_display_names; i++) {
432                              "but we are emulating an XT?\n", irq_nr);                                  debug(i? ", " : " (");
433                          return;                                  debug("\"%s\"", m->x11_md.display_names[i]);
434                            }
435                            debug(")");
436                  }                  }
437                  if (assrt)                  debug("\n");
                         m->md.pc.pic2->irr |= mask;  
                 else  
                         m->md.pc.pic2->irr &= ~mask;  
438          }          }
439    
440          if (m->md.pc.pic2 != NULL) {          diskimage_dump_info(m);
                 /*  Any interrupt assertions on PIC2 go to irq 2 on PIC1  */  
                 /*  (TODO: don't hardcode this here)  */  
                 if (m->md.pc.pic2->irr & ~m->md.pc.pic2->ier)  
                         m->md.pc.pic1->irr |= 0x04;  
                 else  
                         m->md.pc.pic1->irr &= ~0x04;  
         }  
441    
442          /*  Now, PIC1:  */          if (m->force_netboot)
443          if (m->md.pc.pic1->irr & ~m->md.pc.pic1->ier)                  debug("Forced netboot\n");
                 cpu->cd.x86.interrupt_asserted = 1;  
         else  
                 cpu->cd.x86.interrupt_asserted = 0;  
444  }  }
445    
446    
 /****************************************************************************  
  *                                                                          *  
  *                  Machine dependant Initialization routines               *  
  *                                                                          *  
  ****************************************************************************/  
   
   
447  /*  /*
448   *  machine_setup():   *  machine_setup():
449   *   *
# Line 1443  void x86_pc_interrupt(struct machine *m, Line 452  void x86_pc_interrupt(struct machine *m,
452   */   */
453  void machine_setup(struct machine *machine)  void machine_setup(struct machine *machine)
454  {  {
         uint64_t addr, addr2;  
         int i, j;  
455          struct memory *mem;          struct memory *mem;
456          char tmpstr[1000];          struct machine_entry *me;
         struct cons_data *cons_data;  
   
         /*  DECstation:  */  
         char *framebuffer_console_name, *serial_console_name;  
         int color_fb_flag;  
         int boot_scsi_boardnumber = 3, boot_net_boardnumber = 3;  
         char *turbochannel_default_gfx_card = "PMAG-BA";  
                 /*  PMAG-AA, -BA, -CA/DA/EA/FA, -JA, -RO, PMAGB-BA  */  
   
         /*  HPCmips:  */  
         struct xx {  
                 struct btinfo_magic a;  
                 struct btinfo_bootpath b;  
                 struct btinfo_symtab c;  
         } xx;  
         struct hpc_bootinfo hpc_bootinfo;  
         uint64_t hpcmips_fb_addr = 0;  
         int hpcmips_fb_bits = 0, hpcmips_fb_encoding = 0;  
         int hpcmips_fb_xsize = 0;  
         int hpcmips_fb_ysize = 0;  
         int hpcmips_fb_xsize_mem = 0;  
         int hpcmips_fb_ysize_mem = 0;  
   
         /*  ARCBIOS stuff:  */  
         uint64_t sgi_ram_offset = 0;  
         int arc_wordlen = sizeof(uint32_t);  
         char *eaddr_string = "eaddr=10:20:30:40:50:60";   /*  nonsense  */  
         unsigned char macaddr[6];  
   
         /*  Generic bootstring stuff:  */  
         int bootdev_type = 0;  
         int bootdev_id;  
         char *bootstr = NULL;  
         char *bootarg = NULL;  
         char *init_bootpath;  
   
         /*  PCI stuff:  */  
         struct pci_data *pci_data;  
   
         /*  Framebuffer stuff:  */  
         struct vfb_data *fb;  
457    
458          /*  Abreviation:  :-)  */          /*  Abreviation:  :-)  */
459          struct cpu *cpu = machine->cpus[machine->bootstrap_cpu];          struct cpu *cpu = machine->cpus[machine->bootstrap_cpu];
460    
461            machine->bootdev_id = diskimage_bootdev(machine,
462          bootdev_id = diskimage_bootdev(machine, &bootdev_type);              &machine->bootdev_type);
463    
464          mem = cpu->mem;          mem = cpu->mem;
465          machine->machine_name = NULL;          machine->machine_name = NULL;
# Line 1504  void machine_setup(struct machine *machi Line 470  void machine_setup(struct machine *machi
470                  case MACHINE_ARC:                  case MACHINE_ARC:
471                          machine->boot_string_argument = "-aN";                          machine->boot_string_argument = "-aN";
472                          break;                          break;
473                  case MACHINE_DEC:                  case MACHINE_CATS:
474                            machine->boot_string_argument = "-A";
475                            break;
476                    case MACHINE_PMAX:
477                          machine->boot_string_argument = "-a";                          machine->boot_string_argument = "-a";
478                          break;                          break;
479                  default:                  default:
# Line 1514  void machine_setup(struct machine *machi Line 483  void machine_setup(struct machine *machi
483                  }                  }
484          }          }
485    
         switch (machine->machine_type) {  
   
         case MACHINE_NONE:  
                 printf("\nNo emulation type specified.\n");  
                 exit(1);  
   
 #ifdef ENABLE_MIPS  
         case MACHINE_BAREMIPS:  
                 /*  
                  *  A "bare" MIPS test machine.  
                  *  
                  *  NOTE: NO devices at all.  
                  */  
                 cpu->byte_order = EMUL_BIG_ENDIAN;  
                 machine->machine_name = "\"Bare\" MIPS machine";  
                 break;  
   
         case MACHINE_TESTMIPS:  
                 /*  
                  *  A MIPS test machine (which happens to work with the  
                  *  code in my master's thesis).  :-)  
                  *  
                  *  IRQ map:  
                  *      7       CPU counter  
                  *      6       SMP IPIs  
                  *      5       not used yet  
                  *      4       not used yet  
                  *      3       ethernet  
                  *      2       serial console  
                  */  
                 cpu->byte_order = EMUL_BIG_ENDIAN;  
                 machine->machine_name = "MIPS test machine";  
   
                 snprintf(tmpstr, sizeof(tmpstr), "cons addr=0x%llx irq=2",  
                     (long long)DEV_CONS_ADDRESS);  
                 cons_data = device_add(machine, tmpstr);  
                 machine->main_console_handle = cons_data->console_handle;  
   
                 snprintf(tmpstr, sizeof(tmpstr), "mp addr=0x%llx",  
                     (long long)DEV_MP_ADDRESS);  
                 device_add(machine, tmpstr);  
   
                 fb = dev_fb_init(machine, mem, DEV_FB_ADDRESS, VFB_GENERIC,  
                     640,480, 640,480, 24, "testmips generic");  
   
                 snprintf(tmpstr, sizeof(tmpstr), "disk addr=0x%llx",  
                     (long long)DEV_DISK_ADDRESS);  
                 device_add(machine, tmpstr);  
   
                 snprintf(tmpstr, sizeof(tmpstr), "ether addr=0x%llx irq=3",  
                     (long long)DEV_ETHER_ADDRESS);  
                 device_add(machine, tmpstr);  
   
                 break;  
   
         case MACHINE_DEC:  
                 cpu->byte_order = EMUL_LITTLE_ENDIAN;  
   
                 /*  An R2020 or R3220 memory thingy:  */  
                 cpu->cd.mips.coproc[3] = mips_coproc_new(cpu, 3);  
   
                 /*  There aren't really any good standard values...  */  
                 framebuffer_console_name = "osconsole=0,3";  
                 serial_console_name      = "osconsole=1";  
   
                 switch (machine->machine_subtype) {  
                 case MACHINE_DEC_PMAX_3100:             /*  type  1, KN01  */  
                         /*  Supposed to have 12MHz or 16.67MHz R2000 CPU, R2010 FPC, R2020 Memory coprocessor  */  
                         machine->machine_name = "DEC PMAX 3100 (KN01)";  
   
                         /*  12 MHz for 2100, 16.67 MHz for 3100  */  
                         if (machine->emulated_hz == 0)  
                                 machine->emulated_hz = 16670000;  
   
                         if (machine->physical_ram_in_mb > 24)  
                                 fprintf(stderr, "WARNING! Real DECstation 3100 machines cannot have more than 24MB RAM. Continuing anyway.\n");  
   
                         if ((machine->physical_ram_in_mb % 4) != 0)  
                                 fprintf(stderr, "WARNING! Real DECstation 3100 machines have an integer multiple of 4 MBs of RAM. Continuing anyway.\n");  
   
                         color_fb_flag = 1;      /*  1 for color, 0 for mono. TODO: command line option?  */  
   
                         /*  
                          *  According to NetBSD/pmax:  
                          *  
                          *  pm0 at ibus0 addr 0xfc00000: 1024x864x1  (or x8 for color)  
                          *  dc0 at ibus0 addr 0x1c000000  
                          *  le0 at ibus0 addr 0x18000000: address 00:00:00:00:00:00  
                          *  sii0 at ibus0 addr 0x1a000000  
                          *  mcclock0 at ibus0 addr 0x1d000000: mc146818 or compatible  
                          *  0x1e000000 = system status and control register  
                          */  
                         fb = dev_fb_init(machine, mem, KN01_PHYS_FBUF_START,  
                             color_fb_flag? VFB_DEC_VFB02 : VFB_DEC_VFB01,  
                             0,0,0,0,0, color_fb_flag? "VFB02":"VFB01");  
                         dev_colorplanemask_init(mem, KN01_PHYS_COLMASK_START, &fb->color_plane_mask);  
                         dev_vdac_init(mem, KN01_SYS_VDAC, fb->rgb_palette, color_fb_flag);  
                         dev_le_init(machine, mem, KN01_SYS_LANCE, KN01_SYS_LANCE_B_START, KN01_SYS_LANCE_B_END, KN01_INT_LANCE, 4*1048576);  
                         dev_sii_init(machine, mem, KN01_SYS_SII, KN01_SYS_SII_B_START, KN01_SYS_SII_B_END, KN01_INT_SII);  
                         dev_dc7085_init(machine, mem, KN01_SYS_DZ, KN01_INT_DZ, machine->use_x11);  
                         dev_mc146818_init(machine, mem, KN01_SYS_CLOCK, KN01_INT_CLOCK, MC146818_DEC, 1);  
                         dev_kn01_csr_init(mem, KN01_SYS_CSR, color_fb_flag);  
   
                         framebuffer_console_name = "osconsole=0,3";     /*  fb,keyb  */  
                         serial_console_name      = "osconsole=3";       /*  3  */  
                         break;  
   
                 case MACHINE_DEC_3MAX_5000:             /*  type  2, KN02  */  
                         /*  Supposed to have 25MHz R3000 CPU, R3010 FPC,  */  
                         /*  and a R3220 Memory coprocessor  */  
                         machine->machine_name = "DECstation 5000/200 (3MAX, KN02)";  
   
                         if (machine->emulated_hz == 0)  
                                 machine->emulated_hz = 25000000;  
   
                         if (machine->physical_ram_in_mb < 8)  
                                 fprintf(stderr, "WARNING! Real KN02 machines do not have less than 8MB RAM. Continuing anyway.\n");  
                         if (machine->physical_ram_in_mb > 480)  
                                 fprintf(stderr, "WARNING! Real KN02 machines cannot have more than 480MB RAM. Continuing anyway.\n");  
   
                         /*  An R3220 memory thingy:  */  
                         cpu->cd.mips.coproc[3] = mips_coproc_new(cpu, 3);  
   
                         /*  
                          *  According to NetBSD/pmax:  
                          *  asc0 at tc0 slot 5 offset 0x0  
                          *  le0 at tc0 slot 6 offset 0x0  
                          *  ibus0 at tc0 slot 7 offset 0x0  
                          *  dc0 at ibus0 addr 0x1fe00000  
                          *  mcclock0 at ibus0 addr 0x1fe80000: mc146818  
                          *  
                          *  kn02 shared irq numbers (IP) are offset by +8  
                          *  in the emulator  
                          */  
   
                         /*  KN02 interrupts:  */  
                         machine->md_interrupt = kn02_interrupt;  
   
                         /*  
                          *  TURBOchannel slots 0, 1, and 2 are free for  
                          *  option cards.  Let's put in zero or more graphics  
                          *  boards:  
                          *  
                          *  TODO: It's also possible to have larger graphics  
                          *  cards that occupy several slots. How to solve  
                          *  this nicely?  
                          */  
                         dev_turbochannel_init(machine, mem, 0,  
                             KN02_PHYS_TC_0_START, KN02_PHYS_TC_0_END,  
                             machine->n_gfx_cards >= 1?  
                                 turbochannel_default_gfx_card : "",  
                             KN02_IP_SLOT0 +8);  
   
                         dev_turbochannel_init(machine, mem, 1,  
                             KN02_PHYS_TC_1_START, KN02_PHYS_TC_1_END,  
                             machine->n_gfx_cards >= 2?  
                                 turbochannel_default_gfx_card : "",  
                             KN02_IP_SLOT1 +8);  
   
                         dev_turbochannel_init(machine, mem, 2,  
                             KN02_PHYS_TC_2_START, KN02_PHYS_TC_2_END,  
                             machine->n_gfx_cards >= 3?  
                                 turbochannel_default_gfx_card : "",  
                             KN02_IP_SLOT2 +8);  
   
                         /*  TURBOchannel slots 3 and 4 are reserved.  */  
   
                         /*  TURBOchannel slot 5 is PMAZ-AA ("asc" SCSI).  */  
                         dev_turbochannel_init(machine, mem, 5,  
                             KN02_PHYS_TC_5_START, KN02_PHYS_TC_5_END,  
                             "PMAZ-AA", KN02_IP_SCSI +8);  
   
                         /*  TURBOchannel slot 6 is PMAD-AA ("le" ethernet).  */  
                         dev_turbochannel_init(machine, mem, 6,  
                             KN02_PHYS_TC_6_START, KN02_PHYS_TC_6_END,  
                             "PMAD-AA", KN02_IP_LANCE +8);  
   
                         /*  TURBOchannel slot 7 is system stuff.  */  
                         machine->main_console_handle =  
                             dev_dc7085_init(machine, mem,  
                             KN02_SYS_DZ, KN02_IP_DZ +8, machine->use_x11);  
                         dev_mc146818_init(machine, mem,  
                             KN02_SYS_CLOCK, KN02_INT_CLOCK, MC146818_DEC, 1);  
   
                         machine->md_int.kn02_csr =  
                             dev_kn02_init(cpu, mem, KN02_SYS_CSR);  
   
                         framebuffer_console_name = "osconsole=0,7";  
                                                                 /*  fb,keyb  */  
                         serial_console_name      = "osconsole=2";  
                         boot_scsi_boardnumber = 5;  
                         boot_net_boardnumber = 6;       /*  TODO: 3?  */  
                         break;  
   
                 case MACHINE_DEC_3MIN_5000:             /*  type 3, KN02BA  */  
                         machine->machine_name = "DECstation 5000/112 or 145 (3MIN, KN02BA)";  
                         if (machine->emulated_hz == 0)  
                                 machine->emulated_hz = 33000000;  
                         if (machine->physical_ram_in_mb > 128)  
                                 fprintf(stderr, "WARNING! Real 3MIN machines cannot have more than 128MB RAM. Continuing anyway.\n");  
   
                         /*  KMIN interrupts:  */  
                         machine->md_interrupt = kmin_interrupt;  
   
                         /*  
                          *  tc0 at mainbus0: 12.5 MHz clock                             (0x10000000, slotsize = 64MB)  
                          *  tc slot 1:   0x14000000  
                          *  tc slot 2:   0x18000000  
                          *  ioasic0 at tc0 slot 3 offset 0x0                            (0x1c000000) slot 0  
                          *  asic regs                                                   (0x1c040000) slot 1  
                          *  station's ether address                                     (0x1c080000) slot 2  
                          *  le0 at ioasic0 offset 0xc0000: address 00:00:00:00:00:00    (0x1c0c0000) slot 3  
                          *  scc0 at ioasic0 offset 0x100000                             (0x1c100000) slot 4  
                          *  scc1 at ioasic0 offset 0x180000: console                    (0x1c180000) slot 6  
                          *  mcclock0 at ioasic0 offset 0x200000: mc146818 or compatible (0x1c200000) slot 8  
                          *  asc0 at ioasic0 offset 0x300000: NCR53C94, 25MHz, SCSI ID 7 (0x1c300000) slot 12  
                          *  dma for asc0                                                (0x1c380000) slot 14  
                          */  
                         machine->md_int.dec_ioasic_data = dev_dec_ioasic_init(cpu, mem, 0x1c000000, 0);  
                         dev_le_init(machine, mem, 0x1c0c0000, 0, 0, KMIN_INTR_LANCE +8, 4*65536);  
                         dev_scc_init(machine, mem, 0x1c100000, KMIN_INTR_SCC_0 +8, machine->use_x11, 0, 1);  
                         dev_scc_init(machine, mem, 0x1c180000, KMIN_INTR_SCC_1 +8, machine->use_x11, 1, 1);  
                         dev_mc146818_init(machine, mem, 0x1c200000, KMIN_INTR_CLOCK +8, MC146818_DEC, 1);  
                         dev_asc_init(machine, mem, 0x1c300000, KMIN_INTR_SCSI +8,  
                             NULL, DEV_ASC_DEC, NULL, NULL);  
   
                         /*  
                          *  TURBOchannel slots 0, 1, and 2 are free for  
                          *  option cards.  These are by default filled with  
                          *  zero or more graphics boards.  
                          *  
                          *  TODO: irqs  
                          */  
                         dev_turbochannel_init(machine, mem, 0,  
                             0x10000000, 0x103fffff,  
                             machine->n_gfx_cards >= 1?  
                                 turbochannel_default_gfx_card : "",  
                             KMIN_INT_TC0);  
   
                         dev_turbochannel_init(machine, mem, 1,  
                             0x14000000, 0x143fffff,  
                             machine->n_gfx_cards >= 2?  
                                 turbochannel_default_gfx_card : "",  
                             KMIN_INT_TC1);  
   
                         dev_turbochannel_init(machine, mem, 2,  
                             0x18000000, 0x183fffff,  
                             machine->n_gfx_cards >= 3?  
                                 turbochannel_default_gfx_card : "",  
                             KMIN_INT_TC2);  
   
                         /*  (kmin shared irq numbers (IP) are offset by +8 in the emulator)  */  
                         /*  kmin_csr = dev_kmin_init(cpu, mem, KMIN_REG_INTR);  */  
   
                         framebuffer_console_name = "osconsole=0,3";     /*  fb, keyb (?)  */  
                         serial_console_name      = "osconsole=3";       /*  ?  */  
                         break;  
   
                 case MACHINE_DEC_3MAXPLUS_5000: /*  type 4, KN03  */  
                         machine->machine_name = "DECsystem 5900 or 5000 (3MAX+) (KN03)";  
   
                         /*  5000/240 (KN03-GA, R3000): 40 MHz  */  
                         /*  5000/260 (KN05-NB, R4000): 60 MHz  */  
                         /*  TODO: are both these type 4?  */  
                         if (machine->emulated_hz == 0)  
                                 machine->emulated_hz = 40000000;  
                         if (machine->physical_ram_in_mb > 480)  
                                 fprintf(stderr, "WARNING! Real KN03 machines cannot have more than 480MB RAM. Continuing anyway.\n");  
   
                         /*  KN03 interrupts:  */  
                         machine->md_interrupt = kn03_interrupt;  
   
                         /*  
                          *  tc0 at mainbus0: 25 MHz clock (slot 0)                      (0x1e000000)  
                          *  tc0 slot 1                                                  (0x1e800000)  
                          *  tc0 slot 2                                                  (0x1f000000)  
                          *  ioasic0 at tc0 slot 3 offset 0x0                            (0x1f800000)  
                          *    something that has to do with interrupts? (?)             (0x1f840000 ?)  
                          *  le0 at ioasic0 offset 0xc0000                               (0x1f8c0000)  
                          *  scc0 at ioasic0 offset 0x100000                             (0x1f900000)  
                          *  scc1 at ioasic0 offset 0x180000: console                    (0x1f980000)  
                          *  mcclock0 at ioasic0 offset 0x200000: mc146818 or compatible (0x1fa00000)  
                          *  asc0 at ioasic0 offset 0x300000: NCR53C94, 25MHz, SCSI ID 7 (0x1fb00000)  
                          */  
                         machine->md_int.dec_ioasic_data = dev_dec_ioasic_init(cpu, mem, 0x1f800000, 0);  
   
                         dev_le_init(machine, mem, KN03_SYS_LANCE, 0, 0, KN03_INTR_LANCE +8, 4*65536);  
   
                         machine->md_int.dec_ioasic_data->dma_func[3] = dev_scc_dma_func;  
                         machine->md_int.dec_ioasic_data->dma_func_extra[2] = dev_scc_init(machine, mem, KN03_SYS_SCC_0, KN03_INTR_SCC_0 +8, machine->use_x11, 0, 1);  
                         machine->md_int.dec_ioasic_data->dma_func[2] = dev_scc_dma_func;  
                         machine->md_int.dec_ioasic_data->dma_func_extra[3] = dev_scc_init(machine, mem, KN03_SYS_SCC_1, KN03_INTR_SCC_1 +8, machine->use_x11, 1, 1);  
   
                         dev_mc146818_init(machine, mem, KN03_SYS_CLOCK, KN03_INT_RTC, MC146818_DEC, 1);  
                         dev_asc_init(machine, mem, KN03_SYS_SCSI,  
                             KN03_INTR_SCSI +8, NULL, DEV_ASC_DEC, NULL, NULL);  
   
                         /*  
                          *  TURBOchannel slots 0, 1, and 2 are free for  
                          *  option cards.  These are by default filled with  
                          *  zero or more graphics boards.  
                          *  
                          *  TODO: irqs  
                          */  
                         dev_turbochannel_init(machine, mem, 0,  
                             KN03_PHYS_TC_0_START, KN03_PHYS_TC_0_END,  
                             machine->n_gfx_cards >= 1?  
                                 turbochannel_default_gfx_card : "",  
                             KN03_INTR_TC_0 +8);  
   
                         dev_turbochannel_init(machine, mem, 1,  
                             KN03_PHYS_TC_1_START, KN03_PHYS_TC_1_END,  
                             machine->n_gfx_cards >= 2?  
                                 turbochannel_default_gfx_card : "",  
                             KN03_INTR_TC_1 +8);  
   
                         dev_turbochannel_init(machine, mem, 2,  
                             KN03_PHYS_TC_2_START, KN03_PHYS_TC_2_END,  
                             machine->n_gfx_cards >= 3?  
                                 turbochannel_default_gfx_card : "",  
                             KN03_INTR_TC_2 +8);  
   
                         /*  TODO: interrupts  */  
                         /*  shared (turbochannel) interrupts are +8  */  
   
                         framebuffer_console_name = "osconsole=0,3";     /*  fb, keyb (?)  */  
                         serial_console_name      = "osconsole=3";       /*  ?  */  
                         break;  
   
                 case MACHINE_DEC_5800:          /*  type 5, KN5800  */  
                         machine->machine_name = "DECsystem 5800";  
   
 /*  TODO: this is incorrect, banks multiply by 8 etc  */  
                         if (machine->physical_ram_in_mb < 48)  
                                 fprintf(stderr, "WARNING! 5800 will probably not run with less than 48MB RAM. Continuing anyway.\n");  
   
                         /*  
                          *  According to http://www2.no.netbsd.org/Ports/pmax/models.html,  
                          *  the 5800-series is based on VAX 6000/300.  
                          */  
   
                         /*  
                          *  Ultrix might support SMP on this machine type.  
                          *  
                          *  Something at 0x10000000.  
                          *  ssc serial console at 0x10140000, interrupt 2 (shared with XMI?).  
                          *  xmi 0 at address 0x11800000   (node x at offset x*0x80000)  
                          *  Clock uses interrupt 3 (shared with XMI?).  
                          */  
   
                         machine->md_int.dec5800_csr = dev_dec5800_init(machine, mem, 0x10000000);  
                         dev_decbi_init(mem, 0x10000000);  
                         dev_ssc_init(machine, mem, 0x10140000, 2, machine->use_x11, &machine->md_int.dec5800_csr->csr);  
                         dev_decxmi_init(mem, 0x11800000);  
                         dev_deccca_init(mem, DEC_DECCCA_BASEADDR);  
   
                         break;  
   
                 case MACHINE_DEC_5400:          /*  type 6, KN210  */  
                         machine->machine_name = "DECsystem 5400 (KN210)";  
                         /*  
                          *  Misc. info from the KN210 manual:  
                          *  
                          *  Interrupt lines:  
                          *      irq5    fpu  
                          *      irq4    halt  
                          *      irq3    pwrfl -> mer1 -> mer0 -> wear  
                          *      irq2    100 Hz -> birq7  
                          *      irq1    dssi -> ni -> birq6  
                          *      irq0    birq5 -> console -> timers -> birq4  
                          *  
                          *  Interrupt status register at 0x10048000.  
                          *  Main memory error status register at 0x1008140.  
                          *  Interval Timer Register (ITR) at 0x10084010.  
                          *  Q22 stuff at 0x10088000 - 0x1008ffff.  
                          *  TODR at 0x1014006c.  
                          *  TCR0 (timer control register 0) 0x10140100.  
                          *  TIR0 (timer interval register 0) 0x10140104.  
                          *  TCR1 (timer control register 1) 0x10140110.  
                          *  TIR1 (timer interval register 1) 0x10140114.  
                          *  VRR0 (Vector Read Register 0) at 0x16000050.  
                          *  VRR1 (Vector Read Register 1) at 0x16000054.  
                          *  VRR2 (Vector Read Register 2) at 0x16000058.  
                          *  VRR3 (Vector Read Register 3) at 0x1600005c.  
                          */  
                         /*  ln (ethernet) at 0x10084x00 ? and 0x10120000 ?  */  
                         /*  error registers (?) at 0x17000000 and 0x10080000  */  
                         device_add(machine, "kn210 addr=0x10080000");  
                         dev_ssc_init(machine, mem, 0x10140000, 0, machine->use_x11, NULL);      /*  TODO:  not irq 0  */  
                         break;  
   
                 case MACHINE_DEC_MAXINE_5000:   /*  type 7, KN02CA  */  
                         machine->machine_name = "Personal DECstation 5000/xxx (MAXINE) (KN02CA)";  
                         if (machine->emulated_hz == 0)  
                                 machine->emulated_hz = 33000000;  
   
                         if (machine->physical_ram_in_mb < 8)  
                                 fprintf(stderr, "WARNING! Real KN02CA machines do not have less than 8MB RAM. Continuing anyway.\n");  
                         if (machine->physical_ram_in_mb > 40)  
                                 fprintf(stderr, "WARNING! Real KN02CA machines cannot have more than 40MB RAM. Continuing anyway.\n");  
   
                         /*  Maxine interrupts:  */  
                         machine->md_interrupt = maxine_interrupt;  
   
                         /*  
                          *  Something at address 0xca00000. (?)  
                          *  Something at address 0xe000000. (?)  
                          *  tc0 slot 0                                                          (0x10000000)  
                          *  tc0 slot 1                                                          (0x14000000)  
                          *  (tc0 slot 2 used by the framebuffer)  
                          *  ioasic0 at tc0 slot 3 offset 0x0                                    (0x1c000000)  
                          *  le0 at ioasic0 offset 0xc0000: address 00:00:00:00:00:00            (0x1c0c0000)  
                          *  scc0 at ioasic0 offset 0x100000: console  <-- serial                (0x1c100000)  
                          *  mcclock0 at ioasic0 offset 0x200000: mc146818                       (0x1c200000)  
                          *  isdn at ioasic0 offset 0x240000 not configured                      (0x1c240000)  
                          *  bba0 at ioasic0 offset 0x240000 (audio0 at bba0)        <--- which one of isdn and bba0?  
                          *  dtop0 at ioasic0 offset 0x280000                                    (0x1c280000)  
                          *  fdc at ioasic0 offset 0x2c0000 not configured  <-- floppy           (0x1c2c0000)  
                          *  asc0 at ioasic0 offset 0x300000: NCR53C94, 25MHz, SCSI ID 7         (0x1c300000)  
                          *  xcfb0 at tc0 slot 2 offset 0x0: 1024x768x8 built-in framebuffer     (0xa000000)  
                          */  
                         machine->md_int.dec_ioasic_data = dev_dec_ioasic_init(cpu, mem, 0x1c000000, 0);  
   
                         /*  TURBOchannel slots (0 and 1):  */  
                         dev_turbochannel_init(machine, mem, 0,  
                             0x10000000, 0x103fffff,  
                             machine->n_gfx_cards >= 2?  
                                 turbochannel_default_gfx_card : "",  
                             XINE_INTR_TC_0 +8);  
                         dev_turbochannel_init(machine, mem, 1,  
                             0x14000000, 0x143fffff,  
                             machine->n_gfx_cards >= 3?  
                                 turbochannel_default_gfx_card : "",  
                             XINE_INTR_TC_1 +8);  
   
                         /*  
                          *  TURBOchannel slot 2 is hardwired to be used by  
                          *  the framebuffer: (NOTE: 0x8000000, not 0x18000000)  
                          */  
                         dev_turbochannel_init(machine, mem, 2,  
                             0x8000000, 0xbffffff, "PMAG-DV", 0);  
   
                         /*  
                          *  TURBOchannel slot 3: fixed, ioasic  
                          *  (the system stuff), 0x1c000000  
                          */  
                         dev_le_init(machine, mem, 0x1c0c0000, 0, 0, XINE_INTR_LANCE +8, 4*65536);  
                         dev_scc_init(machine, mem, 0x1c100000,  
                             XINE_INTR_SCC_0 +8, machine->use_x11, 0, 1);  
                         dev_mc146818_init(machine, mem, 0x1c200000,  
                             XINE_INT_TOY, MC146818_DEC, 1);  
                         dev_asc_init(machine, mem, 0x1c300000,  
                             XINE_INTR_SCSI +8, NULL, DEV_ASC_DEC, NULL, NULL);  
   
                         framebuffer_console_name = "osconsole=3,2";     /*  keyb,fb ??  */  
                         serial_console_name      = "osconsole=3";  
                         break;  
   
                 case MACHINE_DEC_5500:  /*  type 11, KN220  */  
                         machine->machine_name = "DECsystem 5500 (KN220)";  
   
                         /*  
                          *  According to NetBSD's pmax ports page:  
                          *  KN220-AA is a "30 MHz R3000 CPU with R3010 FPU"  
                          *  with "512 kBytes of Prestoserve battery backed RAM."  
                          */  
                         if (machine->emulated_hz == 0)  
                                 machine->emulated_hz = 30000000;  
   
                         /*  
                          *  See KN220 docs for more info.  
                          *  
                          *  something at 0x10000000  
                          *  something at 0x10001000  
                          *  something at 0x10040000  
                          *  scc at 0x10140000  
                          *  qbus at (or around) 0x10080000  
                          *  dssi (disk controller) buffers at 0x10100000, registers at 0x10160000.  
                          *  sgec (ethernet) registers at 0x10008000, station addresss at 0x10120000.  
                          *  asc (scsi) at 0x17100000.  
                          */  
   
                         dev_ssc_init(machine, mem, 0x10140000, 0, machine->use_x11, NULL);              /*  TODO:  not irq 0  */  
   
                         /*  something at 0x17000000, ultrix says "cpu 0 panic: DS5500 I/O Board is missing" if this is not here  */  
                         dev_dec5500_ioboard_init(cpu, mem, 0x17000000);  
   
                         dev_sgec_init(mem, 0x10008000, 0);              /*  irq?  */  
   
                         /*  The asc controller might be TURBOchannel-ish?  */  
 #if 0  
                         dev_turbochannel_init(machine, mem, 0, 0x17100000, 0x171fffff, "PMAZ-AA", 0);   /*  irq?  */  
 #else  
                         dev_asc_init(machine, mem, 0x17100000, 0, NULL, DEV_ASC_DEC, NULL, NULL);               /*  irq?  */  
 #endif  
   
                         framebuffer_console_name = "osconsole=0,0";     /*  TODO (?)  */  
                         serial_console_name      = "osconsole=0";  
                         break;  
   
                 case MACHINE_DEC_MIPSMATE_5100: /*  type 12  */  
                         machine->machine_name = "DEC MIPSMATE 5100 (KN230)";  
                         if (machine->emulated_hz == 0)  
                                 machine->emulated_hz = 20000000;  
                         if (machine->physical_ram_in_mb > 128)  
                                 fprintf(stderr, "WARNING! Real MIPSMATE 5100 machines cannot have more than 128MB RAM. Continuing anyway.\n");  
   
                         if (machine->use_x11)  
                                 fprintf(stderr, "WARNING! Real MIPSMATE 5100 machines cannot have a graphical framebuffer. Continuing anyway.\n");  
   
                         /*  KN230 interrupts:  */  
                         machine->md_interrupt = kn230_interrupt;  
   
                         /*  
                          *  According to NetBSD/pmax:  
                          *  dc0 at ibus0 addr 0x1c000000  
                          *  le0 at ibus0 addr 0x18000000: address 00:00:00:00:00:00  
                          *  sii0 at ibus0 addr 0x1a000000  
                          */  
                         dev_mc146818_init(machine, mem, KN230_SYS_CLOCK, 4, MC146818_DEC, 1);  
                         dev_dc7085_init(machine, mem, KN230_SYS_DZ0, KN230_CSR_INTR_DZ0, machine->use_x11);             /*  NOTE: CSR_INTR  */  
                         /* dev_dc7085_init(machine, mem, KN230_SYS_DZ1, KN230_CSR_INTR_OPT0, machine->use_x11); */      /*  NOTE: CSR_INTR  */  
                         /* dev_dc7085_init(machine, mem, KN230_SYS_DZ2, KN230_CSR_INTR_OPT1, machine->use_x11); */      /*  NOTE: CSR_INTR  */  
                         dev_le_init(machine, mem, KN230_SYS_LANCE, KN230_SYS_LANCE_B_START, KN230_SYS_LANCE_B_END, KN230_CSR_INTR_LANCE, 4*1048576);  
                         dev_sii_init(machine, mem, KN230_SYS_SII, KN230_SYS_SII_B_START, KN230_SYS_SII_B_END, KN230_CSR_INTR_SII);  
   
                         snprintf(tmpstr, sizeof(tmpstr),  
                             "kn230 addr=0x%llx", (long long)KN230_SYS_ICSR);  
                         machine->md_int.kn230_csr = device_add(machine, tmpstr);  
   
                         serial_console_name = "osconsole=0";  
                         break;  
   
                 default:  
                         ;  
                 }  
   
                 /*  
                  *  Most OSes on DECstation use physical addresses below  
                  *  0x20000000, but OSF/1 seems to use 0xbe...... as if it was  
                  *  0x1e......, so we need this hack:  
                  */  
                 dev_ram_init(mem, 0xa0000000, 0x20000000, DEV_RAM_MIRROR, 0x0);  
   
                 /*  DECstation PROM stuff:  (TODO: endianness)  */  
                 for (i=0; i<100; i++)  
                         store_32bit_word(cpu, DEC_PROM_CALLBACK_STRUCT + i*4,  
                             DEC_PROM_EMULATION + i*8);  
   
                 /*  Fill PROM with dummy return instructions:  (TODO: make this nicer)  */  
                 for (i=0; i<100; i++) {  
                         store_32bit_word(cpu, DEC_PROM_EMULATION + i*8,  
                             0x03e00008);        /*  return  */  
                         store_32bit_word(cpu, DEC_PROM_EMULATION + i*8 + 4,  
                             0x00000000);        /*  nop  */  
                 }  
   
                 /*  
                  *  According to dec_prom.h from NetBSD:  
                  *  
                  *  "Programs loaded by the new PROMs pass the following arguments:  
                  *      a0      argc  
                  *      a1      argv  
                  *      a2      DEC_PROM_MAGIC  
                  *      a3      The callback vector defined below"  
                  *  
                  *  So we try to emulate a PROM, even though no such thing has been  
                  *  loaded.  
                  */  
   
                 cpu->cd.mips.gpr[MIPS_GPR_A0] = 3;  
                 cpu->cd.mips.gpr[MIPS_GPR_A1] = DEC_PROM_INITIAL_ARGV;  
                 cpu->cd.mips.gpr[MIPS_GPR_A2] = DEC_PROM_MAGIC;  
                 cpu->cd.mips.gpr[MIPS_GPR_A3] = DEC_PROM_CALLBACK_STRUCT;  
   
                 store_32bit_word(cpu, INITIAL_STACK_POINTER + 0x10,  
                     BOOTINFO_MAGIC);  
                 store_32bit_word(cpu, INITIAL_STACK_POINTER + 0x14,  
                     BOOTINFO_ADDR);  
   
                 store_32bit_word(cpu, DEC_PROM_INITIAL_ARGV,  
                     (DEC_PROM_INITIAL_ARGV + 0x10));  
                 store_32bit_word(cpu, DEC_PROM_INITIAL_ARGV+4,  
                     (DEC_PROM_INITIAL_ARGV + 0x70));  
                 store_32bit_word(cpu, DEC_PROM_INITIAL_ARGV+8,  
                     (DEC_PROM_INITIAL_ARGV + 0xe0));  
                 store_32bit_word(cpu, DEC_PROM_INITIAL_ARGV+12, 0);  
   
                 /*  
                  *  NetBSD and Ultrix expect the boot args to be like this:  
                  *  
                  *      "boot" "bootdev" [args?]  
                  *  
                  *  where bootdev is supposed to be "rz(0,0,0)netbsd" for  
                  *  3100/2100 (although that crashes Ultrix :-/), and  
                  *  "5/rz0a/netbsd" for all others.  The number '5' is the  
                  *  slot number of the boot device.  
                  *  
                  *  'rz' for disks, 'tz' for tapes.  
                  *  
                  *  TODO:  Make this nicer.  
                  */  
                 {  
                         char bootpath[200];  
   
 #if 0  
                         if (machine->machine_subtype == MACHINE_DEC_PMAX_3100)  
                                 strlcpy(bootpath, "rz(0,0,0)", sizeof(bootpath));  
                         else  
 #endif  
                                 strlcpy(bootpath, "5/rz1/", sizeof(bootpath));  
   
                         if (bootdev_id < 0 || machine->force_netboot) {  
                                 /*  tftp boot:  */  
                                 strlcpy(bootpath, "5/tftp/", sizeof(bootpath));  
                                 bootpath[0] = '0' + boot_net_boardnumber;  
                         } else {  
                                 /*  disk boot:  */  
                                 bootpath[0] = '0' + boot_scsi_boardnumber;  
                                 if (diskimage_is_a_tape(machine, bootdev_id,  
                                     bootdev_type))  
                                         bootpath[2] = 't';  
                                 bootpath[4] = '0' + bootdev_id;  
                         }  
   
                         init_bootpath = bootpath;  
                 }  
   
                 bootarg = malloc(BOOTARG_BUFLEN);  
                 if (bootarg == NULL) {  
                         fprintf(stderr, "out of memory\n");  
                         exit(1);  
                 }  
                 strlcpy(bootarg, init_bootpath, BOOTARG_BUFLEN);  
                 if (strlcat(bootarg, machine->boot_kernel_filename,  
                     BOOTARG_BUFLEN) > BOOTARG_BUFLEN) {  
                         fprintf(stderr, "bootarg truncated?\n");  
                         exit(1);  
                 }  
   
                 bootstr = "boot";  
   
                 store_string(cpu, DEC_PROM_INITIAL_ARGV+0x10, bootstr);  
                 store_string(cpu, DEC_PROM_INITIAL_ARGV+0x70, bootarg);  
                 store_string(cpu, DEC_PROM_INITIAL_ARGV+0xe0,  
                     machine->boot_string_argument);  
   
                 /*  Decrease the nr of args, if there are no args :-)  */  
                 if (machine->boot_string_argument == NULL ||  
                     machine->boot_string_argument[0] == '\0')  
                         cpu->cd.mips.gpr[MIPS_GPR_A0] --;  
   
                 if (machine->boot_string_argument[0] != '\0') {  
                         strlcat(bootarg, " ", BOOTARG_BUFLEN);  
                         if (strlcat(bootarg, machine->boot_string_argument,  
                             BOOTARG_BUFLEN) >= BOOTARG_BUFLEN) {  
                                 fprintf(stderr, "bootstr truncated?\n");  
                                 exit(1);  
                         }  
                 }  
   
                 xx.a.common.next = (char *)&xx.b - (char *)&xx;  
                 xx.a.common.type = BTINFO_MAGIC;  
                 xx.a.magic = BOOTINFO_MAGIC;  
   
                 xx.b.common.next = (char *)&xx.c - (char *)&xx.b;  
                 xx.b.common.type = BTINFO_BOOTPATH;  
                 strlcpy(xx.b.bootpath, bootstr, sizeof(xx.b.bootpath));  
   
                 xx.c.common.next = 0;  
                 xx.c.common.type = BTINFO_SYMTAB;  
                 xx.c.nsym = 0;  
                 xx.c.ssym = 0;  
                 xx.c.esym = machine->file_loaded_end_addr;  
   
                 store_buf(cpu, BOOTINFO_ADDR, (char *)&xx, sizeof(xx));  
   
                 /*  
                  *  The system's memmap:  (memmap is a global variable, in  
                  *  dec_prom.h)  
                  */  
                 store_32bit_word_in_host(cpu,  
                     (unsigned char *)&memmap.pagesize, 4096);  
                 {  
                         unsigned int i;  
                         for (i=0; i<sizeof(memmap.bitmap); i++)  
                                 memmap.bitmap[i] = ((int)i * 4096*8 <  
                                     1048576*machine->physical_ram_in_mb)?  
                                     0xff : 0x00;  
                 }  
                 store_buf(cpu, DEC_MEMMAP_ADDR, (char *)&memmap, sizeof(memmap));  
   
                 /*  Environment variables:  */  
                 addr = DEC_PROM_STRINGS;  
   
                 if (machine->use_x11 && machine->n_gfx_cards > 0)  
                         /*  (0,3)  Keyboard and Framebuffer  */  
                         add_environment_string(cpu, framebuffer_console_name, &addr);  
                 else  
                         /*  Serial console  */  
                         add_environment_string(cpu, serial_console_name, &addr);  
   
                 /*  
                  *  The KN5800 (SMP system) uses a CCA (console communications  
                  *  area):  (See VAX 6000 documentation for details.)  
                  */  
                 {  
                         char tmps[300];  
                         snprintf(tmps, sizeof(tmps), "cca=%x",  
                             (int)(DEC_DECCCA_BASEADDR + 0xa0000000ULL));  
                         add_environment_string(cpu, tmps, &addr);  
                 }  
   
                 /*  These are needed for Sprite to boot:  */  
                 {  
                         char tmps[500];  
   
                         snprintf(tmps, sizeof(tmps), "boot=%s", bootarg);  
                         tmps[sizeof(tmps)-1] = '\0';  
                         add_environment_string(cpu, tmps, &addr);  
   
                         snprintf(tmps, sizeof(tmps), "bitmap=0x%x", (uint32_t)((  
                             DEC_MEMMAP_ADDR + sizeof(memmap.pagesize))  
                             & 0xffffffffULL));  
                         tmps[sizeof(tmps)-1] = '\0';  
                         add_environment_string(cpu, tmps, &addr);  
   
                         snprintf(tmps, sizeof(tmps), "bitmaplen=0x%x",  
                             machine->physical_ram_in_mb * 1048576 / 4096 / 8);  
                         tmps[sizeof(tmps)-1] = '\0';  
                         add_environment_string(cpu, tmps, &addr);  
                 }  
   
                 add_environment_string(cpu, "scsiid0=7", &addr);  
                 add_environment_string(cpu, "bootmode=a", &addr);  
                 add_environment_string(cpu, "testaction=q", &addr);  
                 add_environment_string(cpu, "haltaction=h", &addr);  
                 add_environment_string(cpu, "more=24", &addr);  
   
                 /*  Used in at least Ultrix on the 5100:  */  
                 add_environment_string(cpu, "scsiid=7", &addr);  
                 add_environment_string(cpu, "baud0=9600", &addr);  
                 add_environment_string(cpu, "baud1=9600", &addr);  
                 add_environment_string(cpu, "baud2=9600", &addr);  
                 add_environment_string(cpu, "baud3=9600", &addr);  
                 add_environment_string(cpu, "iooption=0x1", &addr);  
   
                 /*  The end:  */  
                 add_environment_string(cpu, "", &addr);  
   
                 break;  
   
         case MACHINE_COBALT:  
                 cpu->byte_order = EMUL_LITTLE_ENDIAN;  
                 machine->machine_name = "Cobalt";  
   
                 /*  
                  *  Interrupts seem to be the following:  
                  *  (according to http://www.funet.fi/pub/Linux/PEOPLE/Linus/v2.4/patch-html/patch-2.4.19/linux-2.4.19_arch_mips_cobalt_irq.c.html)  
                  *  
                  *      2       Galileo chip (timer)  
                  *      3       Tulip 0 + NCR SCSI  
                  *      4       Tulip 1  
                  *      5       16550 UART (serial console)  
                  *      6       VIA southbridge PIC  
                  *      7       PCI  (Note: Not used. The PCI controller  
                  *              interrupts at ISA interrupt 9.)  
                  */  
   
                 /*  ISA interrupt controllers:  */  
                 snprintf(tmpstr, sizeof(tmpstr), "8259 irq=24 addr=0x10000020");  
                 machine->md_int.isa_pic_data.pic1 = device_add(machine, tmpstr);  
                 snprintf(tmpstr, sizeof(tmpstr), "8259 irq=24 addr=0x100000a0");  
                 machine->md_int.isa_pic_data.pic2 = device_add(machine, tmpstr);  
                 machine->md_interrupt = cobalt_interrupt;  
   
                 dev_mc146818_init(machine, mem, 0x10000070, 0, MC146818_PC_CMOS, 4);  
   
                 machine->main_console_handle = (size_t)  
                     device_add(machine, "ns16550 irq=5 addr=0x1c800000 name2=tty0 in_use=1");  
   
 #if 0  
                 device_add(machine, "ns16550 irq=0 addr=0x1f000010 name2=tty1 in_use=0");  
 #endif  
   
                 /*  
                  *  According to NetBSD/cobalt:  
                  *  
                  *  pchb0 at pci0 dev 0 function 0: Galileo GT-64111 System Controller, rev 1   (NOTE: added by dev_gt_init())  
                  *  tlp0 at pci0 dev 7 function 0: DECchip 21143 Ethernet, pass 4.1  
                  *  Symbios Logic 53c860 (SCSI mass storage, revision 0x02) at pci0 dev 8  
                  *  pcib0 at pci0 dev 9 function 0, VIA Technologies VT82C586 (Apollo VP) PCI-ISA Bridge, rev 37  
                  *  pciide0 at pci0 dev 9 function 1: VIA Technologies VT82C586 (Apollo VP) ATA33 cr  
                  *  tlp1 at pci0 dev 12 function 0: DECchip 21143 Ethernet, pass 4.1  
                  *  
                  *  The PCI controller interrupts at ISA interrupt 9.  
                  */  
                 pci_data = dev_gt_init(machine, mem, 0x14000000, 2, 8 + 9, 11);  
                 /*  bus_pci_add(machine, pci_data, mem, 0,  7, 0, pci_dec21143_init, pci_dec21143_rr);  */  
                 bus_pci_add(machine, pci_data, mem, 0,  8, 0, NULL, NULL);  /*  PCI_VENDOR_SYMBIOS, PCI_PRODUCT_SYMBIOS_860  */  
                 bus_pci_add(machine, pci_data, mem, 0,  9, 0, pci_vt82c586_isa_init, pci_vt82c586_isa_rr);  
                 bus_pci_add(machine, pci_data, mem, 0,  9, 1, pci_vt82c586_ide_init, pci_vt82c586_ide_rr);  
                 /*  bus_pci_add(machine, pci_data, mem, 0, 12, 0, pci_dec21143_init, pci_dec21143_rr);  */  
   
                 /*  
                  *  NetBSD/cobalt expects memsize in a0, but it seems that what  
                  *  it really wants is the end of memory + 0x80000000.  
                  *  
                  *  The bootstring is stored 512 bytes before the end of  
                  *  physical ram.  
                  */  
                 cpu->cd.mips.gpr[MIPS_GPR_A0] =  
                     machine->physical_ram_in_mb * 1048576 + 0xffffffff80000000ULL;  
                 bootstr = "root=/dev/hda1 ro";  
                 /*  bootstr = "nfsroot=/usr/cobalt/";  */  
                 /*  TODO: bootarg, and/or automagic boot device detection  */  
                 store_string(cpu, cpu->cd.mips.gpr[MIPS_GPR_A0] - 512, bootstr);  
                 break;  
   
         case MACHINE_HPCMIPS:  
                 cpu->byte_order = EMUL_LITTLE_ENDIAN;  
                 memset(&hpc_bootinfo, 0, sizeof(hpc_bootinfo));  
                 /*  TODO:  set platid from netbsd/usr/src/sys/arch/hpc/include/platid*  */  
                 /*  
                 #define PLATID_FLAGS_SHIFT              0  
                 #define PLATID_CPU_SUBMODEL_SHIFT       8  
                 #define PLATID_CPU_MODEL_SHIFT          14  
                 #define PLATID_CPU_SERIES_SHIFT         20  
                 #define PLATID_CPU_ARCH_SHIFT           26  
   
                 #define PLATID_SUBMODEL_SHIFT           0  
                 #define PLATID_MODEL_SHIFT              8  
                 #define PLATID_SERIES_SHIFT             16  
                 #define PLATID_VENDOR_SHIFT             22  
                 */  
   
                 /*  
                 NOTE: See http://forums.projectmayo.com/viewtopic.php?topic=2743&forum=23  
                 for info on framebuffer addresses.  
                 */  
   
                 switch (machine->machine_subtype) {  
                 case MACHINE_HPCMIPS_CASIO_BE300:  
                         /*  166MHz VR4131  */  
                         machine->machine_name = "Casio Cassiopeia BE-300";  
                         hpcmips_fb_addr = 0x0a200000;  
                         hpcmips_fb_xsize = 240;  
                         hpcmips_fb_ysize = 320;  
                         hpcmips_fb_xsize_mem = 256;  
                         hpcmips_fb_ysize_mem = 320;  
                         hpcmips_fb_bits = 15;  
                         hpcmips_fb_encoding = BIFB_D16_0000;  
   
                         /*  TODO: irq?  */  
                         snprintf(tmpstr, sizeof(tmpstr), "ns16550 irq=0 addr=0x0a008680 addr_mult=4 in_use=%i", machine->use_x11? 0 : 1);  
                         machine->main_console_handle = (size_t)device_add(machine, tmpstr);  
   
                         machine->md_int.vr41xx_data = dev_vr41xx_init(machine, mem, 4131);  
                         machine->md_interrupt = vr41xx_interrupt;  
   
                         store_32bit_word_in_host(cpu, (unsigned char *)&hpc_bootinfo.platid_cpu,  
                               (1 << 26)         /*  1 = MIPS  */  
                             + (1 << 20)         /*  1 = VR  */  
                             + (1 << 14)         /*  1 = VR41XX  */  
                             + (6 <<  8)         /*  6 = VR4131  */  
                             );  
                         store_32bit_word_in_host(cpu, (unsigned char *)&hpc_bootinfo.platid_machine,  
                               (3 << 22)         /*  22: vendor  3=casio */  
                             + (1 << 16)         /*  16: series  1=CASSIOPEIAE*/  
                             + (2 <<  8)         /*   8: model   2=EXXX*/  
                             + (3)               /*   0: submodel 3=E500 */  
                             );  
                         /*  TODO: Don't use model number for E500, it's a BE300!  */  
                         break;  
                 case MACHINE_HPCMIPS_CASIO_E105:  
                         /*  131MHz VR4121  */  
                         machine->machine_name = "Casio Cassiopeia E-105";  
                         hpcmips_fb_addr = 0x0a200000;   /*  TODO?  */  
                         hpcmips_fb_xsize = 240;  
                         hpcmips_fb_ysize = 320;  
                         hpcmips_fb_xsize_mem = 256;  
                         hpcmips_fb_ysize_mem = 320;  
                         hpcmips_fb_bits = 16;  
                         hpcmips_fb_encoding = BIFB_D16_0000;  
   
                         /*  TODO: irq?  */  
                         snprintf(tmpstr, sizeof(tmpstr), "ns16550 irq=0 addr=0x0a008680 addr_mult=4 in_use=%i", machine->use_x11? 0 : 1);  
                         machine->main_console_handle = (size_t)device_add(machine, tmpstr);  
   
                         machine->md_int.vr41xx_data = dev_vr41xx_init(machine, mem, 4121);  
                         machine->md_interrupt = vr41xx_interrupt;  
   
                         store_32bit_word_in_host(cpu, (unsigned char *)&hpc_bootinfo.platid_cpu,  
                               (1 << 26)         /*  1 = MIPS  */  
                             + (1 << 20)         /*  1 = VR  */  
                             + (1 << 14)         /*  1 = VR41XX  */  
                             + (3 <<  8)         /*  3 = VR4121  */  
                             );  
                         store_32bit_word_in_host(cpu, (unsigned char *)&hpc_bootinfo.platid_machine,  
                               (3 << 22)         /*  22: vendor  3=casio */  
                             + (1 << 16)         /*  16: series  1=CASSIOPEIAE*/  
                             + (2 <<  8)         /*   8: model   2=EXXX*/  
                             + (2)               /*   0: submodel 2=E105  */  
                             );  
                         break;  
                 case MACHINE_HPCMIPS_NEC_MOBILEPRO_770:  
                         /*  131 MHz VR4121  */  
                         machine->machine_name = "NEC MobilePro 770";  
                         /*  TODO:  */  
                         hpcmips_fb_addr = 0xa000000;  
                         hpcmips_fb_xsize = 640;  
                         hpcmips_fb_ysize = 240;  
                         hpcmips_fb_xsize_mem = 800;  
                         hpcmips_fb_ysize_mem = 240;  
                         hpcmips_fb_bits = 16;  
                         hpcmips_fb_encoding = BIFB_D16_0000;  
   
                         machine->md_int.vr41xx_data = dev_vr41xx_init(machine, mem, 4121);  
                         machine->md_interrupt = vr41xx_interrupt;  
   
                         store_32bit_word_in_host(cpu, (unsigned char *)&hpc_bootinfo.platid_cpu,  
                               (1 << 26)         /*  1 = MIPS  */  
                             + (1 << 20)         /*  1 = VR  */  
                             + (1 << 14)         /*  1 = VR41XX  */  
                             + (3 <<  8)         /*  3 = VR4121  */  
                             );  
                         store_32bit_word_in_host(cpu, (unsigned char *)&hpc_bootinfo.platid_machine,  
                               (1 << 22)         /*  22: vendor  1=NEC  */  
                             + (2 << 16)         /*  16: series  2="NEC MCR" */  
                             + (2 <<  8)         /*   8: model   2="MCR 5XX" */  
                             + (4)               /*   0: submodel 4="MCR 520A" */  
                             );  
                         break;  
                 case MACHINE_HPCMIPS_NEC_MOBILEPRO_780:  
                         /*  166 (or 168) MHz VR4121  */  
                         machine->machine_name = "NEC MobilePro 780";  
                         /*  TODO:  */  
                         hpcmips_fb_addr = 0xa180100;  
                         hpcmips_fb_xsize = 640;  
                         hpcmips_fb_ysize = 240;  
                         hpcmips_fb_xsize_mem = 640;  
                         hpcmips_fb_ysize_mem = 240;  
                         hpcmips_fb_bits = 16;  
                         hpcmips_fb_encoding = BIFB_D16_0000;  
   
                         machine->md_int.vr41xx_data = dev_vr41xx_init(machine, mem, 4121);  
                         machine->md_interrupt = vr41xx_interrupt;  
   
                         store_32bit_word_in_host(cpu, (unsigned char *)&hpc_bootinfo.platid_cpu,  
                               (1 << 26)         /*  1 = MIPS  */  
                             + (1 << 20)         /*  1 = VR  */  
                             + (1 << 14)         /*  1 = VR41XX  */  
                             + (3 <<  8)         /*  3 = VR4121  */  
                             );  
                         store_32bit_word_in_host(cpu, (unsigned char *)&hpc_bootinfo.platid_machine,  
                               (1 << 22)         /*  22: vendor  1=NEC  */  
                             + (2 << 16)         /*  16: series  2="NEC MCR" */  
                             + (2 <<  8)         /*   8: model   2="MCR 5XX" */  
                             + (8)               /*   0: submodel 8="MCR 530A" */  
                             );  
                         break;  
                 case MACHINE_HPCMIPS_NEC_MOBILEPRO_800:  
                         /*  131 MHz VR4121  */  
                         machine->machine_name = "NEC MobilePro 800";  
                         /*  TODO:  */  
                         hpcmips_fb_addr = 0xa000000;  
                         hpcmips_fb_xsize = 800;  
                         hpcmips_fb_ysize = 600;  
                         hpcmips_fb_xsize_mem = 800;  
                         hpcmips_fb_ysize_mem = 600;  
                         hpcmips_fb_bits = 16;  
                         hpcmips_fb_encoding = BIFB_D16_0000;  
   
                         machine->md_int.vr41xx_data = dev_vr41xx_init(machine, mem, 4121);  
                         machine->md_interrupt = vr41xx_interrupt;  
   
                         store_32bit_word_in_host(cpu, (unsigned char *)&hpc_bootinfo.platid_cpu,  
                               (1 << 26)         /*  1 = MIPS  */  
                             + (1 << 20)         /*  1 = VR  */  
                             + (1 << 14)         /*  1 = VR41XX  */  
                             + (3 <<  8)         /*  3 = VR4121  */  
                             );  
                         store_32bit_word_in_host(cpu, (unsigned char *)&hpc_bootinfo.platid_machine,  
                               (1 << 22)         /*  22: vendor  1=NEC  */  
                             + (2 << 16)         /*  16: series  2="NEC MCR" */  
                             + (3 <<  8)         /*   8: model   3="MCR 7XX" */  
                             + (2)               /*   0: submodel 2="MCR 700A" */  
                             );  
                         break;  
                 case MACHINE_HPCMIPS_NEC_MOBILEPRO_880:  
                         /*  168 MHz VR4121  */  
                         machine->machine_name = "NEC MobilePro 880";  
                         /*  TODO:  */  
                         hpcmips_fb_addr = 0xa0ea600;  
                         hpcmips_fb_xsize = 800;  
                         hpcmips_fb_ysize = 600;  
                         hpcmips_fb_xsize_mem = 800;  
                         hpcmips_fb_ysize_mem = 600;  
                         hpcmips_fb_bits = 16;  
                         hpcmips_fb_encoding = BIFB_D16_0000;  
   
                         machine->md_int.vr41xx_data = dev_vr41xx_init(machine, mem, 4121);  
                         machine->md_interrupt = vr41xx_interrupt;  
   
                         store_32bit_word_in_host(cpu, (unsigned char *)&hpc_bootinfo.platid_cpu,  
                               (1 << 26)         /*  1 = MIPS  */  
                             + (1 << 20)         /*  1 = VR  */  
                             + (1 << 14)         /*  1 = VR41XX  */  
                             + (3 <<  8)         /*  3 = VR4121  */  
                             );  
                         store_32bit_word_in_host(cpu, (unsigned char *)&hpc_bootinfo.platid_machine,  
                               (1 << 22)         /*  22: vendor  1=NEC  */  
                             + (2 << 16)         /*  16: series  2="NEC MCR" */  
                             + (3 <<  8)         /*   8: model   3="MCR 7XX" */  
                             + (4)               /*   0: submodel 4="MCR 730A" */  
                             );  
                         break;  
                 case MACHINE_HPCMIPS_AGENDA_VR3:  
                         /*  66 MHz VR4181  */  
                         machine->machine_name = "Agenda VR3";  
                         /*  TODO:  */  
                         hpcmips_fb_addr = 0x1000;  
                         hpcmips_fb_xsize = 160;  
                         hpcmips_fb_ysize = 240;  
                         hpcmips_fb_xsize_mem = 160;  
                         hpcmips_fb_ysize_mem = 240;  
                         hpcmips_fb_bits = 4;  
                         hpcmips_fb_encoding = BIFB_D4_M2L_F;  
   
                         machine->md_int.vr41xx_data = dev_vr41xx_init(machine, mem, 4181);  
                         machine->md_interrupt = vr41xx_interrupt;  
   
                         /*  TODO: Hm... irq 17 according to linux, but  
                             VRIP_INTR_SIU (=9) here?  */  
                         {  
                                 int x;  
                                 snprintf(tmpstr, sizeof(tmpstr), "ns16550 irq=%i addr=0x0c000010", 8 + VRIP_INTR_SIU);  
                                 x = (size_t)device_add(machine, tmpstr);  
   
                                 if (!machine->use_x11)  
                                         machine->main_console_handle = x;  
                         }  
   
                         store_32bit_word_in_host(cpu, (unsigned char *)&hpc_bootinfo.platid_cpu,  
                               (1 << 26)         /*  1 = MIPS  */  
                             + (1 << 20)         /*  1 = VR  */  
                             + (1 << 14)         /*  1 = VR41XX  */  
                             + (4 <<  8)         /*  4 = VR4181  */  
                             );  
                         store_32bit_word_in_host(cpu, (unsigned char *)&hpc_bootinfo.platid_machine,  
                               (15 << 22)        /*  22: vendor  15=Agenda  */  
                             + (1 << 16)         /*  16: series  2=VR */  
                             + (1 <<  8)         /*   8: model   1=VR3  */  
                             + (0)               /*   0: submodel 0="VR3" */  
                             );  
   
                         dev_ram_init(mem, 0x0f000000, 0x01000000, DEV_RAM_MIRROR, 0x0);  
                         break;  
                 case MACHINE_HPCMIPS_IBM_WORKPAD_Z50:  
                         /*  131 MHz VR4121  */  
                         machine->machine_name = "IBM Workpad Z50";  
                         /*  TODO:  */  
                         hpcmips_fb_addr = 0xa000000;  
                         hpcmips_fb_xsize = 640;  
                         hpcmips_fb_ysize = 480;  
                         hpcmips_fb_xsize_mem = 640;  
                         hpcmips_fb_ysize_mem = 480;  
                         hpcmips_fb_bits = 16;  
                         hpcmips_fb_encoding = BIFB_D16_0000;  
   
                         machine->md_int.vr41xx_data = dev_vr41xx_init(machine, mem, 4121);  
                         machine->md_interrupt = vr41xx_interrupt;  
   
                         store_32bit_word_in_host(cpu, (unsigned char *)&hpc_bootinfo.platid_cpu,  
                               (1 << 26)         /*  1 = MIPS  */  
                             + (1 << 20)         /*  1 = VR  */  
                             + (1 << 14)         /*  1 = VR41XX  */  
                             + (3 <<  8)         /*  3 = VR4121  */  
                             );  
                         store_32bit_word_in_host(cpu, (unsigned char *)&hpc_bootinfo.platid_machine,  
                               (9 << 22)         /*  22: vendor  9=IBM  */  
                             + (1 << 16)         /*  16: series  1=WorkPad */  
                             + (1 <<  8)         /*   8: model   1=Z50  */  
                             + (0)               /*   0: submodel 0 */  
                             );  
                         break;  
                 default:  
                         printf("Unimplemented hpcmips machine number.\n");  
                         exit(1);  
                 }  
   
                 if (machine->use_x11)  
                         machine->main_console_handle =  
                             machine->md_int.vr41xx_data->kiu_console_handle;  
   
                 /*  NetBSD/hpcmips and possibly others expects the following:  */  
   
                 cpu->cd.mips.gpr[MIPS_GPR_A0] = 1;      /*  argc  */  
                 cpu->cd.mips.gpr[MIPS_GPR_A1] = machine->physical_ram_in_mb * 1048576  
                     + 0xffffffff80000000ULL - 512;      /*  argv  */  
                 cpu->cd.mips.gpr[MIPS_GPR_A2] = machine->physical_ram_in_mb * 1048576  
                     + 0xffffffff80000000ULL - 256;      /*  ptr to hpc_bootinfo  */  
   
                 bootstr = machine->boot_kernel_filename;  
                 store_32bit_word(cpu, 0x80000000 + machine->physical_ram_in_mb * 1048576 - 512, 0x80000000 + machine->physical_ram_in_mb * 1048576 - 512 + 16);  
                 store_32bit_word(cpu, 0x80000000 + machine->physical_ram_in_mb * 1048576 - 512 + 4, 0);  
                 store_string(cpu, 0x80000000 + machine->physical_ram_in_mb * 1048576 - 512 + 16, bootstr);  
   
                 /*  Special case for the Agenda VR3:  */  
                 if (machine->machine_subtype == MACHINE_HPCMIPS_AGENDA_VR3) {  
                         const int tmplen = 1000;  
                         char *tmp = malloc(tmplen);  
486    
487                          cpu->cd.mips.gpr[MIPS_GPR_A0] = 2;      /*  argc  */          /*
488             *  If the machine has a setup function in src/machines/machine_*.c
489                          store_32bit_word(cpu, 0x80000000 + machine->physical_ram_in_mb * 1048576 - 512 + 4, 0x80000000 + machine->physical_ram_in_mb * 1048576 - 512 + 64);           *  then use that one, otherwise use the old hardcoded stuff here:
490                          store_32bit_word(cpu, 0x80000000 + machine->physical_ram_in_mb * 1048576 - 512 + 8, 0);           */
   
                         snprintf(tmp, tmplen, "root=/dev/rom video=vr4181fb:xres:160,yres:240,bpp:4,"  
                             "gray,hpck:3084,inv ether=0,0x03fe0300,eth0");  
                         tmp[tmplen-1] = '\0';  
   
                         if (!machine->use_x11)  
                                 snprintf(tmp+strlen(tmp), tmplen-strlen(tmp), " console=ttyS0,115200");  
                         tmp[tmplen-1] = '\0';  
   
                         if (machine->boot_string_argument[0])  
                                 snprintf(tmp+strlen(tmp), tmplen-strlen(tmp), " %s", machine->boot_string_argument);  
                         tmp[tmplen-1] = '\0';  
   
                         store_string(cpu, 0x80000000 + machine->physical_ram_in_mb * 1048576 - 512 + 64, tmp);  
   
                         bootarg = tmp;  
                 } else if (machine->boot_string_argument[0]) {  
                         cpu->cd.mips.gpr[MIPS_GPR_A0] ++;       /*  argc  */  
   
                         store_32bit_word(cpu, 0x80000000 + machine->physical_ram_in_mb * 1048576 - 512 + 4, 0x80000000 + machine->physical_ram_in_mb * 1048576 - 512 + 64);  
                         store_32bit_word(cpu, 0x80000000 + machine->physical_ram_in_mb * 1048576 - 512 + 8, 0);  
   
                         store_string(cpu, 0x80000000 + machine->physical_ram_in_mb * 1048576 - 512 + 64,  
                             machine->boot_string_argument);  
   
                         bootarg = machine->boot_string_argument;  
                 }  
   
                 store_16bit_word_in_host(cpu, (unsigned char *)&hpc_bootinfo.length, sizeof(hpc_bootinfo));  
                 store_32bit_word_in_host(cpu, (unsigned char *)&hpc_bootinfo.magic, HPC_BOOTINFO_MAGIC);  
                 store_32bit_word_in_host(cpu, (unsigned char *)&hpc_bootinfo.fb_addr, 0x80000000 + hpcmips_fb_addr);  
                 store_16bit_word_in_host(cpu, (unsigned char *)&hpc_bootinfo.fb_line_bytes, hpcmips_fb_xsize_mem * (((hpcmips_fb_bits-1)|7)+1) / 8);  
                 store_16bit_word_in_host(cpu, (unsigned char *)&hpc_bootinfo.fb_width, hpcmips_fb_xsize);  
                 store_16bit_word_in_host(cpu, (unsigned char *)&hpc_bootinfo.fb_height, hpcmips_fb_ysize);  
                 store_16bit_word_in_host(cpu, (unsigned char *)&hpc_bootinfo.fb_type, hpcmips_fb_encoding);  
                 store_16bit_word_in_host(cpu, (unsigned char *)&hpc_bootinfo.bi_cnuse, BI_CNUSE_BUILTIN);  /*  _BUILTIN or _SERIAL  */  
   
                 /*  printf("hpc_bootinfo.platid_cpu     = 0x%08x\n", hpc_bootinfo.platid_cpu);  
                     printf("hpc_bootinfo.platid_machine = 0x%08x\n", hpc_bootinfo.platid_machine);  */  
                 store_32bit_word_in_host(cpu, (unsigned char *)&hpc_bootinfo.timezone, 0);  
                 store_buf(cpu, 0x80000000 + machine->physical_ram_in_mb * 1048576 - 256, (char *)&hpc_bootinfo, sizeof(hpc_bootinfo));  
   
                 if (hpcmips_fb_addr != 0) {  
                         dev_fb_init(machine, mem, hpcmips_fb_addr, VFB_HPCMIPS,  
                             hpcmips_fb_xsize, hpcmips_fb_ysize,  
                             hpcmips_fb_xsize_mem, hpcmips_fb_ysize_mem,  
                             hpcmips_fb_bits, "HPCmips");  
   
                         /*  NetBSD/hpcmips uses framebuffer at physical  
                             address 0x8.......:  */  
                         dev_ram_init(mem, 0x80000000, 0x20000000,  
                             DEV_RAM_MIRROR, 0x0);  
                 }  
   
                 break;  
   
         case MACHINE_PS2:  
                 cpu->byte_order = EMUL_LITTLE_ENDIAN;  
                 machine->machine_name = "Playstation 2";  
   
                 if (machine->physical_ram_in_mb != 32)  
                         fprintf(stderr, "WARNING! Playstation 2 machines are supposed to have exactly 32 MB RAM. Continuing anyway.\n");  
                 if (!machine->use_x11)  
                         fprintf(stderr, "WARNING! Playstation 2 without -X is pretty meaningless. Continuing anyway.\n");  
   
                 /*  
                  *  According to NetBSD:  
                  *      Hardware irq 0 is timer/interrupt controller  
                  *      Hardware irq 1 is dma controller  
                  *  
                  *  Some things are not yet emulated (at all), and hence are detected incorrectly:  
                  *      sbus0 at mainbus0: controller type 2  
                  *      ohci0 at sbus0                  (at 0x1f801600, according to linux)  
                  *      ohci0: OHCI version 1.0  
                  */  
   
                 machine->md_int.ps2_data = dev_ps2_stuff_init(machine, mem, 0x10000000);  
                 device_add(machine, "ps2_gs addr=0x12000000");  
                 device_add(machine, "ps2_ether addr=0x14001000");  
                 dev_ram_init(mem, 0x1c000000, 4 * 1048576, DEV_RAM_RAM, 0);     /*  TODO: how much?  */  
                 /*  irq = 8 + 32 + 1 (SBUS/USB)  */  
                 device_add(machine, "ohci addr=0x1f801600 irq=41");  
   
                 machine->md_interrupt = ps2_interrupt;  
   
                 add_symbol_name(&machine->symbol_context,  
                     PLAYSTATION2_SIFBIOS, 0x10000, "[SIFBIOS entry]", 0, 0);  
                 store_32bit_word(cpu, PLAYSTATION2_BDA + 0, PLAYSTATION2_SIFBIOS);  
                 store_buf(cpu, PLAYSTATION2_BDA + 4, "PS2b", 4);  
   
                 /*  Set the Harddisk controller present flag, if either  
                     disk 0 or 1 is present:  */  
                 if (diskimage_exist(machine, 0, DISKIMAGE_IDE) ||  
                     diskimage_exist(machine, 1, DISKIMAGE_IDE)) {  
                         store_32bit_word(cpu, 0xa0000000 + machine->physical_ram_in_mb*1048576 - 0x1000 + 0x0, 0x100);  
                         dev_ps2_spd_init(machine, mem, 0x14000000);  
                 }  
   
                 store_32bit_word(cpu, 0xa0000000 + machine->physical_ram_in_mb*1048576 - 0x1000 + 0x4, PLAYSTATION2_OPTARGS);  
                 {  
                         int tmplen = 1000;  
                         char *tmp = malloc(tmplen);  
                         if (tmp == NULL) {  
                                 fprintf(stderr, "out of memory\n");  
                                 exit(1);  
                         }  
   
                         strlcpy(tmp, "root=/dev/hda1 crtmode=vesa0,60", tmplen);  
   
                         if (machine->boot_string_argument[0])  
                                 snprintf(tmp+strlen(tmp), tmplen-strlen(tmp),  
                                     " %s", machine->boot_string_argument);  
                         tmp[tmplen-1] = '\0';  
   
                         bootstr = tmp;  
                         store_string(cpu, PLAYSTATION2_OPTARGS, bootstr);  
                 }  
   
                 /*  TODO:  netbsd's bootinfo.h, for symbolic names  */  
                 {  
                         time_t timet;  
                         struct tm *tmp;  
   
                         /*  RTC data given by the BIOS:  */  
                         timet = time(NULL) + 9*3600;    /*  PS2 uses Japanese time  */  
                         tmp = gmtime(&timet);  
                         /*  TODO:  are these 0- or 1-based?  */  
                         store_byte(cpu, 0xa0000000 + machine->physical_ram_in_mb*1048576 - 0x1000 + 0x10 + 1, int_to_bcd(tmp->tm_sec));  
                         store_byte(cpu, 0xa0000000 + machine->physical_ram_in_mb*1048576 - 0x1000 + 0x10 + 2, int_to_bcd(tmp->tm_min));  
                         store_byte(cpu, 0xa0000000 + machine->physical_ram_in_mb*1048576 - 0x1000 + 0x10 + 3, int_to_bcd(tmp->tm_hour));  
                         store_byte(cpu, 0xa0000000 + machine->physical_ram_in_mb*1048576 - 0x1000 + 0x10 + 5, int_to_bcd(tmp->tm_mday));  
                         store_byte(cpu, 0xa0000000 + machine->physical_ram_in_mb*1048576 - 0x1000 + 0x10 + 6, int_to_bcd(tmp->tm_mon + 1));  
                         store_byte(cpu, 0xa0000000 + machine->physical_ram_in_mb*1048576 - 0x1000 + 0x10 + 7, int_to_bcd(tmp->tm_year - 100));  
                 }  
   
                 /*  "BOOTINFO_PCMCIA_TYPE" in NetBSD's bootinfo.h. This contains the sbus controller type.  */  
                 store_32bit_word(cpu, 0xa0000000 + machine->physical_ram_in_mb*1048576 - 0x1000 + 0x1c, 2);  
   
                 break;  
   
         case MACHINE_SGI:  
         case MACHINE_ARC:  
                 /*  
                  *  SGI and ARC emulation share a lot of code. (SGI is a special case of  
                  *  "almost ARC".)  
                  *  
                  *  http://obsolete.majix.org/computers/sgi/iptable.shtml contains a pretty  
                  *  detailed list of IP ("Inhouse Processor") model numbers.  
                  *  (Or http://hardware.majix.org/computers/sgi/iptable.shtml)  
                  */  
                 machine->machine_name = malloc(MACHINE_NAME_MAXBUF);  
                 if (machine->machine_name == NULL) {  
                         fprintf(stderr, "out of memory\n");  
                         exit(1);  
                 }  
   
                 if (machine->machine_type == MACHINE_SGI) {  
                         cpu->byte_order = EMUL_BIG_ENDIAN;  
                         snprintf(machine->machine_name, MACHINE_NAME_MAXBUF,  
                             "SGI-IP%i", machine->machine_subtype);  
   
                         sgi_ram_offset = 1048576 * machine->memory_offset_in_mb;  
   
                         /*  Special cases for IP20,22,24,26 memory offset:  */  
                         if (machine->machine_subtype == 20 || machine->machine_subtype == 22 ||  
                             machine->machine_subtype == 24 || machine->machine_subtype == 26) {  
                                 dev_ram_init(mem, 0x00000000, 0x10000, DEV_RAM_MIRROR, sgi_ram_offset);  
                                 dev_ram_init(mem, 0x00050000, sgi_ram_offset-0x50000, DEV_RAM_MIRROR, sgi_ram_offset + 0x50000);  
                         }  
   
                         /*  Special cases for IP28,30 memory offset:  */  
                         if (machine->machine_subtype == 28 || machine->machine_subtype == 30) {  
                                 /*  TODO: length below should maybe not be 128MB?  */  
                                 dev_ram_init(mem, 0x00000000, 128*1048576, DEV_RAM_MIRROR, sgi_ram_offset);  
                         }  
                 } else {  
                         cpu->byte_order = EMUL_LITTLE_ENDIAN;  
                         snprintf(machine->machine_name,  
                             MACHINE_NAME_MAXBUF, "ARC");  
                 }  
   
                 if (machine->machine_type == MACHINE_SGI) {  
                         /*  TODO:  Other SGI machine types?  */  
                         switch (machine->machine_subtype) {  
                         case 12:  
                                 strlcat(machine->machine_name,  
                                     " (Iris Indigo IP12)", MACHINE_NAME_MAXBUF);  
   
                                 /*  TODO  */  
                                 /*  33 MHz R3000, according to http://www.irisindigo.com/  */  
                                 /*  "capable of addressing up to 96MB of memory."  */  
   
                                 break;  
                         case 19:  
                                 strlcat(machine->machine_name,  
                                     " (Everest IP19)", MACHINE_NAME_MAXBUF);  
                                 machine->main_console_handle =  
                                     dev_zs_init(machine, mem, 0x1fbd9830, 0, 1, "serial zs");   /*  serial? netbsd?  */  
                                 dev_scc_init(machine, mem, 0x10086000, 0, machine->use_x11, 0, 8);      /*  serial? irix?  */  
   
                                 device_add(machine, "sgi_ip19 addr=0x18000000");  
   
                                 /*  Irix' <everest_du_init+0x130> reads this device:  */  
                                 device_add(machine, "random addr=0x10006000 len=16");  
   
                                 /*  Irix' get_mpconf() looks for this:  (TODO)  */  
                                 store_32bit_word(cpu, 0xa0000000 + 0x3000,  
                                     0xbaddeed2);  
   
                                 /*  Memory size, not 4096 byte pages, but 256 bytes?  (16 is size of kernel... approx)  */  
                                 store_32bit_word(cpu, 0xa0000000 + 0x26d0,  
                                     30000);  /* (machine->physical_ram_in_mb - 16) * (1048576 / 256));  */  
   
                                 break;  
                         case 20:  
                                 strlcat(machine->machine_name,  
                                     " (Indigo)", MACHINE_NAME_MAXBUF);  
   
                                 /*  
                                  *  Guesses based on NetBSD 2.0 beta, 20040606.  
                                  *  
                                  *  int0 at mainbus0 addr 0x1fb801c0: bus 1MHz, CPU 2MHz  
                                  *  imc0 at mainbus0 addr 0x1fa00000: revision 0  
                                  *  gio0 at imc0  
                                  *  unknown GIO card (product 0x00 revision 0x00) at gio0 slot 0 addr 0x1f400000 not configured  
                                  *  unknown GIO card (product 0x00 revision 0x00) at gio0 slot 1 addr 0x1f600000 not configured  
                                  *  unknown GIO card (product 0x00 revision 0x00) at gio0 slot 2 addr 0x1f000000 not configured  
                                  *  hpc0 at gio0 addr 0x1fb80000: SGI HPC1  
                                  *  zsc0 at hpc0 offset 0xd10   (channels 0 and 1, channel 1 for console)  
                                  *  zsc1 at hpc0 offset 0xd00   (2 channels)  
                                  *  sq0 at hpc0 offset 0x100: SGI Seeq 80c03  
                                  *  wdsc0 at hpc0 offset 0x11f  
                                  *  dpclock0 at hpc0 offset 0xe00  
                                  */  
   
                                 /*  int0 at mainbus0 addr 0x1fb801c0  */  
                                 machine->md_int.sgi_ip20_data = dev_sgi_ip20_init(cpu, mem, DEV_SGI_IP20_BASE);  
   
                                 /*  imc0 at mainbus0 addr 0x1fa00000: revision 0:  TODO (or in dev_sgi_ip20?)  */  
   
                                 dev_zs_init(machine, mem, 0x1fbd9830, 0, 1, "zs console");  
   
                                 /*  This is the zsc0 reported by NetBSD:  TODO: irqs  */  
                                 machine->main_console_handle = dev_zs_init(machine, mem, 0x1fb80d10, 0, 1, "zsc0");     /*  zsc0  */  
                                 dev_zs_init(machine, mem, 0x1fb80d00, 0, 1, "zsc1");    /*  zsc1  */  
   
                                 /*  WDSC SCSI controller:  */  
                                 dev_wdsc_init(machine, mem, 0x1fb8011f, 0, 0);  
   
                                 /*  Return memory read errors so that hpc1  
                                     and hpc2 are not detected:  */  
                                 device_add(machine, "unreadable addr=0x1fb00000 len=0x10000");  
                                 device_add(machine, "unreadable addr=0x1f980000 len=0x10000");  
   
                                 /*  Return nothing for gio slots 0, 1, and 2: */  
                                 device_add(machine, "unreadable addr=0x1f400000 len=0x1000");   /*  gio0 slot 0  */  
                                 device_add(machine, "unreadable addr=0x1f600000 len=0x1000");   /*  gio0 slot 1  */  
                                 device_add(machine, "unreadable addr=0x1f000000 len=0x1000");   /*  gio0 slot 2  */  
   
                                 break;  
                         case 21:  
                                 strlcat(machine->machine_name,  /*  TODO  */  
                                     " (uknown SGI-IP21 ?)", MACHINE_NAME_MAXBUF);  
                                 /*  NOTE:  Special case for arc_wordlen:  */  
                                 arc_wordlen = sizeof(uint64_t);  
   
                                 device_add(machine, "random addr=0x418000200, len=0x20000");  
   
                                 break;  
                         case 22:  
                         case 24:  
                                 if (machine->machine_subtype == 22) {  
                                         strlcat(machine->machine_name,  
                                             " (Indy, Indigo2, Challenge S; Full-house)",  
                                             MACHINE_NAME_MAXBUF);  
                                         machine->md_int.sgi_ip22_data = dev_sgi_ip22_init(machine, mem, 0x1fbd9000, 0);  
                                 } else {  
                                         strlcat(machine->machine_name,  
                                             " (Indy, Indigo2, Challenge S; Guiness)",  
                                             MACHINE_NAME_MAXBUF);  
                                         machine->md_int.sgi_ip22_data = dev_sgi_ip22_init(machine, mem, 0x1fbd9880, 1);  
                                 }  
   
 /*  
 Why is this here? TODO  
                                 dev_ram_init(mem, 0x88000000ULL,  
                                     128 * 1048576, DEV_RAM_MIRROR, 0x08000000);  
 */  
                                 machine->md_interrupt = sgi_ip22_interrupt;  
   
                                 /*  
                                  *  According to NetBSD 1.6.2:  
                                  *  
                                  *  imc0 at mainbus0 addr 0x1fa00000, Revision 0  
                                  *  gio0 at imc0  
                                  *  hpc0 at gio0 addr 0x1fb80000: SGI HPC3  
                                  *  zsc0 at hpc0 offset 0x59830  
                                  *  zstty0 at zsc0 channel 1 (console i/o)  
                                  *  zstty1 at zsc0 channel 0  
                                  *  sq0 at hpc0 offset 0x54000: SGI Seeq 80c03  (Ethernet)  
                                  *  wdsc0 at hpc0 offset 0x44000: WD33C93 SCSI, rev=0, target 7  
                                  *  scsibus2 at wdsc0: 8 targets, 8 luns per target  
                                  *  dsclock0 at hpc0 offset 0x60000  
                                  *  
                                  *  According to Linux/IP22:  
                                  *  tty00 at 0xbfbd9830 (irq = 45) is a Zilog8530  
                                  *  tty01 at 0xbfbd9838 (irq = 45) is a Zilog8530  
                                  *  
                                  *  and according to NetBSD 2.0_BETA (20040606):  
                                  *  
                                  *  haltwo0 at hpc0 offset 0x58000: HAL2 revision 0.0.0  
                                  *  audio0 at haltwo0: half duplex  
                                  *  
                                  *  IRQ numbers are of the form 8 + x, where x = 0..31 for local0  
                                  *  interrupts, and 32..63 for local1.  + y*65 for "mappable".  
                                  */  
   
                                 /*  zsc0 serial console.  */  
                                 i = dev_zs_init(machine, mem, 0x1fbd9830,  
                                     8 + 32 + 3 + 64*5, 1, "zsc0");  
   
                                 /*  Not supported by NetBSD 1.6.2, but by 2.0_BETA:  */  
                                 j = dev_pckbc_init(machine, mem, 0x1fbd9840, PCKBC_8242,  
                                     0, 0, machine->use_x11, 0);  /*  TODO: irq numbers  */  
   
                                 if (machine->use_x11)  
                                         machine->main_console_handle = j;  
   
                                 /*  sq0: Ethernet.  TODO:  This should have irq_nr = 8 + 3  */  
                                 /*  dev_sq_init...  */  
   
                                 /*  wdsc0: SCSI  */  
                                 dev_wdsc_init(machine, mem, 0x1fbc4000, 0, 8 + 1);  
   
                                 /*  wdsc1: SCSI  TODO: irq nr  */  
                                 dev_wdsc_init(machine, mem, 0x1fbcc000, 1, 8 + 1);  
   
                                 /*  dsclock0: TODO:  possibly irq 8 + 33  */  
   
                                 /*  Return memory read errors so that hpc1 and hpc2 are not detected:  */  
                                 device_add(machine, "unreadable addr=0x1fb00000, len=0x10000");  
                                 device_add(machine, "unreadable addr=0x1f980000, len=0x10000");  
   
                                 /*  Similarly for gio slots 0, 1, and 2:  */  
                                 device_add(machine, "unreadable addr=0x1f400000, len=0x1000");  /*  gio0 slot 0  */  
                                 device_add(machine, "unreadable addr=0x1f600000, len=0x1000");  /*  gio0 slot 1  */  
                                 device_add(machine, "unreadable addr=0x1f000000, len=0x1000");  /*  gio0 slot 2  */  
   
                                 break;  
                         case 25:  
                                 /*  NOTE:  Special case for arc_wordlen:  */  
                                 arc_wordlen = sizeof(uint64_t);  
                                 strlcat(machine->machine_name,  
                                     " (Everest IP25)", MACHINE_NAME_MAXBUF);  
   
                                  /*  serial? irix?  */  
                                 dev_scc_init(machine, mem,  
                                     0x400086000ULL, 0, machine->use_x11, 0, 8);  
   
                                 /*  NOTE: ip19! (perhaps not really the same  */  
                                 device_add(machine, "sgi_ip19 addr=0x18000000");  
   
                                 /*  
                                  *  Memory size, not 4096 byte pages, but 256  
                                  *  bytes?  (16 is size of kernel... approx)  
                                  */  
                                 store_32bit_word(cpu, 0xa0000000ULL + 0x26d0,  
                                     30000);  /* (machine->physical_ram_in_mb - 16)  
                                                  * (1048576 / 256));  */  
   
                                 break;  
                         case 26:  
                                 /*  NOTE:  Special case for arc_wordlen:  */  
                                 arc_wordlen = sizeof(uint64_t);  
                                 strlcat(machine->machine_name,  
                                     " (uknown SGI-IP26 ?)",  
                                     MACHINE_NAME_MAXBUF);       /*  TODO  */  
                                 machine->main_console_handle =  
                                     dev_zs_init(machine, mem, 0x1fbd9830,  
                                     0, 1, "zs console");  
                                 break;  
                         case 27:  
                                 strlcat(machine->machine_name,  
                                     " (Origin 200/2000, Onyx2)",  
                                     MACHINE_NAME_MAXBUF);  
                                 arc_wordlen = sizeof(uint64_t);  
                                 /*  2 cpus per node  */  
   
                                 machine->main_console_handle =  
                                     dev_zs_init(machine, mem, 0x1fbd9830,  
                                     0, 1, "zs console");  
                                 break;  
                         case 28:  
                                 /*  NOTE:  Special case for arc_wordlen:  */  
                                 arc_wordlen = sizeof(uint64_t);  
                                 strlcat(machine->machine_name,  
                                     " (Impact Indigo2 ?)", MACHINE_NAME_MAXBUF);  
   
                                 device_add(machine, "random addr=0x1fbe0000, len=1");  
   
                                 /*  Something at paddr 0x1880fb0000.  */  
   
                                 break;  
                         case 30:  
                                 /*  NOTE:  Special case for arc_wordlen:  */  
                                 arc_wordlen = sizeof(uint64_t);  
                                 strlcat(machine->machine_name,  
                                     " (Octane)", MACHINE_NAME_MAXBUF);  
   
                                 machine->md_int.sgi_ip30_data = dev_sgi_ip30_init(machine, mem, 0x0ff00000);  
                                 machine->md_interrupt = sgi_ip30_interrupt;  
   
                                 dev_ram_init(mem,    0xa0000000ULL,  
                                     128 * 1048576, DEV_RAM_MIRROR, 0x00000000);  
   
                                 dev_ram_init(mem,    0x80000000ULL,  
                                     32 * 1048576, DEV_RAM_RAM, 0x00000000);  
   
                                 /*  
                                  *  Something at paddr=1f022004: TODO  
                                  *  Something at paddr=813f0510 - paddr=813f0570 ?  
                                  *  Something at paddr=813f04b8  
                                  *  Something at paddr=f8000003c  used by Linux/Octane  
                                  *  
                                  *  16550 serial port at paddr=1f620178, addr mul 1  
                                  *  (Error messages are printed to this serial port by the PROM.)  
                                  *  
                                  *  There seems to also be a serial port at 1f620170. The "symmon"  
                                  *  program dumps something there, but it doesn't look like  
                                  *  readable text.  (TODO)  
                                  */  
   
                                 /*  TODO: irq!  */  
                                 snprintf(tmpstr, sizeof(tmpstr), "ns16550 irq=0 addr=0x1f620170 name2=tty0 in_use=%i", machine->use_x11? 0 : 1);  
                                 machine->main_console_handle = (size_t)device_add(machine, tmpstr);  
                                 snprintf(tmpstr, sizeof(tmpstr), "ns16550 irq=0 addr=0x1f620178 name2=tty1 in_use=0");  
                                 device_add(machine, tmpstr);  
   
                                 /*  MardiGras graphics:  */  
                                 device_add(machine, "sgi_mardigras addr=0x1c000000");  
   
                                 break;  
                         case 32:  
                                 strlcat(machine->machine_name,  
                                     " (O2)", MACHINE_NAME_MAXBUF);  
   
                                 /*  TODO:  Find out where the physical ram is actually located.  */  
                                 dev_ram_init(mem, 0x07ffff00ULL,           256, DEV_RAM_MIRROR, 0x03ffff00);  
                                 dev_ram_init(mem, 0x10000000ULL,           256, DEV_RAM_MIRROR, 0x00000000);  
                                 dev_ram_init(mem, 0x11ffff00ULL,           256, DEV_RAM_MIRROR, 0x01ffff00);  
                                 dev_ram_init(mem, 0x12000000ULL,           256, DEV_RAM_MIRROR, 0x02000000);  
                                 dev_ram_init(mem, 0x17ffff00ULL,           256, DEV_RAM_MIRROR, 0x03ffff00);  
                                 dev_ram_init(mem, 0x20000000ULL, 128 * 1048576, DEV_RAM_MIRROR, 0x00000000);  
                                 dev_ram_init(mem, 0x40000000ULL, 128 * 1048576, DEV_RAM_MIRROR, 0x10000000);  
   
                                 machine->md_int.ip32.crime_data = dev_crime_init(machine, mem, 0x14000000, 2, machine->use_x11);        /*  crime0  */  
                                 dev_sgi_mte_init(mem, 0x15000000);                      /*  mte ??? memory thing  */  
                                 dev_sgi_gbe_init(machine, mem, 0x16000000);     /*  gbe?  framebuffer?  */  
   
                                 /*  
                                  *  A combination of NetBSD and Linux info:  
                                  *  
                                  *      17000000        vice (Video Image Compression Engine)  
                                  *      1f000000        mace  
                                  *      1f080000        macepci  
                                  *      1f100000        vin1  
                                  *      1f180000        vin2  
                                  *      1f200000        vout  
                                  *      1f280000        enet (mec0, MAC-110 Ethernet)  
                                  *      1f300000        perif:  
                                  *        1f300000        audio  
                                  *        1f310000        isa  
                                  *          1f318000        (accessed by Irix' pciio_pio_write64)  
                                  *        1f320000        kbdms  
                                  *        1f330000        i2c  
                                  *        1f340000        ust  
                                  *      1f380000        isa ext  
                                  *        1f390000        com0 (serial)  
                                  *        1f398000        com1 (serial)  
                                  *        1f3a0000        mcclock0  
                                  */  
   
                                 machine->md_int.ip32.mace_data = dev_mace_init(mem, 0x1f310000, 2);  
                                 machine->md_interrupt = sgi_ip32_interrupt;  
   
                                 /*  
                                  *  IRQ mapping is really ugly.  TODO: fix  
                                  *  
                                  *  com0 at mace0 offset 0x390000 intr 4 intrmask 0x3f00000: ns16550a, working fifo  
                                  *  com1 at mace0 offset 0x398000 intr 4 intrmask 0xfc000000: ns16550a, working fifo  
                                  *  pckbc0 at mace0 offset 0x320000 intr 5 intrmask 0x0  
                                  *  mcclock0 at mace0 offset 0x3a0000 intrmask 0x0  
                                  *  macepci0 at mace0 offset 0x80000 intr 7 intrmask 0x0: rev 1  
                                  *  
                                  *  intr 4 = MACE_PERIPH_SERIAL  
                                  *  intr 5 = MACE_PERIPH_MISC  
                                  *  intr 7 = MACE_PCI_BRIDGE  
                                  */  
   
 #if 0  
                                 i = dev_pckbc_init(machine, mem, 0x1f320000,  
                                     PCKBC_8242, 0x200 + MACE_PERIPH_MISC,  
                                     0x800 + MACE_PERIPH_MISC, machine->use_x11, 0);  
                                                         /*  keyb+mouse (mace irq numbers)  */  
 #endif  
   
                                 net_generate_unique_mac(machine, macaddr);  
                                 eaddr_string = malloc(ETHERNET_STRING_MAXLEN);  
                                 if (eaddr_string == NULL) {  
                                         fprintf(stderr, "out of memory\n");  
                                         exit(1);  
                                 }  
                                 snprintf(eaddr_string, ETHERNET_STRING_MAXLEN,  
                                     "eaddr=%02x:%02x:%02x:%02x:%02x:%02x",  
                                     macaddr[0], macaddr[1], macaddr[2],  
                                     macaddr[3], macaddr[4], macaddr[5]);  
                                 dev_sgi_mec_init(machine, mem, 0x1f280000,  
                                     MACE_ETHERNET, macaddr);  
   
                                 dev_sgi_ust_init(mem, 0x1f340000);  /*  ust?  */  
   
                                 snprintf(tmpstr, sizeof(tmpstr), "ns16550 irq=%i addr=0x1f390000 addr_mult=0x100 in_use=%i name2=tty0",  
                                     (1<<20) + MACE_PERIPH_SERIAL, machine->use_x11? 0 : 1);  
                                 j = (size_t)device_add(machine, tmpstr);  
                                 snprintf(tmpstr, sizeof(tmpstr), "ns16550 irq=%i addr=0x1f398000 addr_mult=0x100 in_use=%i name2=tty1",  
                                     (1<<26) + MACE_PERIPH_SERIAL, 0);  
                                 device_add(machine, tmpstr);  
 #if 0  
                                 if (machine->use_x11)  
                                         machine->main_console_handle = i;  
                                 else  
 #endif  
                                         machine->main_console_handle = j;  
   
                                 dev_mc146818_init(machine, mem, 0x1f3a0000, (1<<8) + MACE_PERIPH_MISC, MC146818_SGI, 0x40);  /*  mcclock0  */  
                                 dev_zs_init(machine, mem, 0x1fbd9830, 0, 1, "zs console");  
   
                                 /*  
                                  *  PCI devices:   (according to NetBSD's GENERIC config file for sgimips)  
                                  *  
                                  *      ne*             at pci? dev ? function ?  
                                  *      ahc0            at pci0 dev 1 function ?  
                                  *      ahc1            at pci0 dev 2 function ?  
                                  */  
   
                                 pci_data = dev_macepci_init(mem, 0x1f080000, MACE_PCI_BRIDGE);  /*  macepci0  */  
                                 /*  bus_pci_add(machine, pci_data, mem, 0, 0, 0, pci_ne2000_init, pci_ne2000_rr);  TODO  */  
   
                                 /*  TODO: make this nicer  */  
                                 if (diskimage_exist(machine, 0, DISKIMAGE_SCSI) ||  
                                     diskimage_exist(machine, 1, DISKIMAGE_SCSI) ||  
                                     diskimage_exist(machine, 2, DISKIMAGE_SCSI) ||  
                                     diskimage_exist(machine, 3, DISKIMAGE_SCSI) ||  
                                     diskimage_exist(machine, 4, DISKIMAGE_SCSI) ||  
                                     diskimage_exist(machine, 5, DISKIMAGE_SCSI) ||  
                                     diskimage_exist(machine, 6, DISKIMAGE_SCSI) ||  
                                     diskimage_exist(machine, 7, DISKIMAGE_SCSI))  
                                         bus_pci_add(machine, pci_data, mem, 0, 1, 0, pci_ahc_init, pci_ahc_rr);  
   
                                 /*  TODO: second ahc  */  
                                 /*  bus_pci_add(machine, pci_data, mem, 0, 2, 0, pci_ahc_init, pci_ahc_rr);  */  
   
                                 break;  
                         case 35:  
                                 strlcat(machine->machine_name,  
                                     " (Origin 3000)", MACHINE_NAME_MAXBUF);  
                                 /*  4 cpus per node  */  
   
                                 machine->main_console_handle =  
                                     dev_zs_init(machine, mem, 0x1fbd9830,  
                                     0, 1, "zs console");  
                                 break;  
                         case 53:  
                                 strlcat(machine->machine_name,  
                                     " (Origin 350)", MACHINE_NAME_MAXBUF);  
                                 /*  
                                  *  According to http://kumba.drachentekh.net/xml/myguide.html  
                                  *  Origin 350, Tezro IP53 R16000  
                                  */  
                                 break;  
                         default:  
                                 fatal("unimplemented SGI machine type IP%i\n",  
                                     machine->machine_subtype);  
                                 exit(1);  
                         }  
                 } else {  
                         switch (machine->machine_subtype) {  
   
                         case MACHINE_ARC_NEC_RD94:  
                         case MACHINE_ARC_NEC_R94:  
                         case MACHINE_ARC_NEC_R96:  
                                 /*  
                                  *  "NEC-RD94" (NEC RISCstation 2250)  
                                  *  "NEC-R94" (NEC RISCstation 2200)  
                                  *  "NEC-R96" (NEC Express RISCserver)  
                                  *  
                                  *  http://mirror.aarnet.edu.au/pub/NetBSD/misc/chs/arcdiag.out (NEC-R96)  
                                  */  
   
                                 switch (machine->machine_subtype) {  
                                 case MACHINE_ARC_NEC_RD94:  
                                         strlcat(machine->machine_name,  
                                             " (NEC-RD94, NEC RISCstation 2250)",  
                                             MACHINE_NAME_MAXBUF);  
                                         break;  
                                 case MACHINE_ARC_NEC_R94:  
                                         strlcat(machine->machine_name, " (NEC-R94; NEC RISCstation 2200)",  
                                             MACHINE_NAME_MAXBUF);  
                                         break;  
                                 case MACHINE_ARC_NEC_R96:  
                                         strlcat(machine->machine_name, " (NEC-R96; NEC Express RISCserver)",  
                                             MACHINE_NAME_MAXBUF);  
                                         break;  
                                 }  
   
                                 /*  TODO: interrupt controller!  */  
   
                                 pci_data = device_add(machine,  
                                     "rd94 addr=0x80000000, irq=0");  
   
                                 device_add(machine, "sn addr=0x80001000 irq=0");  
                                 dev_mc146818_init(machine, mem, 0x80004000ULL, 0, MC146818_ARC_NEC, 1);  
                                 i = dev_pckbc_init(machine, mem, 0x80005000ULL, PCKBC_8042, 0, 0, machine->use_x11, 0);  
   
                                 snprintf(tmpstr, sizeof(tmpstr), "ns16550 irq=3 addr=0x80006000 in_use=%i name2=tty0", machine->use_x11? 0 : 1);  
                                 j = (size_t)device_add(machine, tmpstr);  
                                 snprintf(tmpstr, sizeof(tmpstr), "ns16550 irq=0 addr=0x80007000 in_use=%i name2=tty1", 0);  
                                 device_add(machine, tmpstr);  
   
                                 if (machine->use_x11)  
                                         machine->main_console_handle = i;  
                                 else  
                                         machine->main_console_handle = j;  
   
                                 /*  lpt at 0x80008000  */  
   
                                 device_add(machine, "fdc addr=0x8000c000, irq=0");  
   
                                 switch (machine->machine_subtype) {  
                                 case MACHINE_ARC_NEC_RD94:  
                                 case MACHINE_ARC_NEC_R94:  
                                         /*  PCI devices:  (NOTE: bus must be 0, device must be 3, 4, or 5, for NetBSD to accept interrupts)  */  
                                         bus_pci_add(machine, pci_data, mem, 0, 3, 0, pci_dec21030_init, pci_dec21030_rr);       /*  tga graphics  */  
                                         break;  
                                 case MACHINE_ARC_NEC_R96:  
                                         dev_fb_init(machine, mem, 0x100e00000ULL,  
                                             VFB_GENERIC, 640,480, 1024,480,  
                                             8, "necvdfrb");  
                                         break;  
                                 }  
                                 break;  
   
                         case MACHINE_ARC_NEC_R98:  
                                 /*  
                                  *  "NEC-R98" (NEC RISCserver 4200)  
                                  *  
                                  *  According to http://mail-index.netbsd.org/port-arc/2004/02/01/0001.html:  
                                  *  
                                  *  Network adapter at "start: 0x 0 18600000, length: 0x1000, level: 4, vector: 9"  
                                  *  Disk at "start: 0x 0 18c103f0, length: 0x1000, level: 5, vector: 6"  
                                  *  Keyboard at "start: 0x 0 18c20060, length: 0x1000, level: 5, vector: 3"  
                                  *  Serial at "start: 0x 0 18c103f8, length: 0x1000, level: 5, vector: 4"  
                                  *  Serial at "start: 0x 0 18c102f8, length: 0x1000, level: 5, vector: 4"  
                                  *  Parallel at "start: 0x 0 18c10278, length: 0x1000, level: 5, vector: 5"  
                                  */  
   
                                 strlcat(machine->machine_name,  
                                     " (NEC-R98; NEC RISCserver 4200)",  
                                     MACHINE_NAME_MAXBUF);  
   
                                 /*  
                                  *  Windows NT access stuff at these addresses:  
                                  *  
                                  *  19980308, 18000210, 18c0a008,  
                                  *  19022018, 19026010, andso on.  
                                  */  
                                 break;  
   
                         case MACHINE_ARC_JAZZ_PICA:  
                         case MACHINE_ARC_JAZZ_MAGNUM:  
                                 /*  
                                  *  "PICA-61"  
                                  *  
                                  *  According to NetBSD 1.6.2:  
                                  *  
                                  *  jazzio0 at mainbus0  
                                  *  timer0 at jazzio0 addr 0xe0000228  
                                  *  mcclock0 at jazzio0 addr 0xe0004000: mc146818 or compatible  
                                  *  lpt at jazzio0 addr 0xe0008000 intr 0 not configured  
                                  *  fdc at jazzio0 addr 0xe0003000 intr 1 not configured  
                                  *  MAGNUM at jazzio0 addr 0xe000c000 intr 2 not configured  
                                  *  ALI_S3 at jazzio0 addr 0xe0800000 intr 3 not configured  
                                  *  sn0 at jazzio0 addr 0xe0001000 intr 4: SONIC Ethernet  
                                  *  sn0: Ethernet address 69:6a:6b:6c:00:00  
                                  *  asc0 at jazzio0 addr 0xe0002000 intr 5: NCR53C94, target 0  
                                  *  pckbd at jazzio0 addr 0xe0005000 intr 6 not configured  
                                  *  pms at jazzio0 addr 0xe0005000 intr 7 not configured  
                                  *  com0 at jazzio0 addr 0xe0006000 intr 8: ns16550a, working fifo  
                                  *  com at jazzio0 addr 0xe0007000 intr 9 not configured  
                                  *  jazzisabr0 at mainbus0  
                                  *  isa0 at jazzisabr0 isa_io_base 0xe2000000 isa_mem_base 0xe3000000  
                                  *  
                                  *  "Microsoft-Jazz", "MIPS Magnum"  
                                  *  
                                  *  timer0 at jazzio0 addr 0xe0000228  
                                  *  mcclock0 at jazzio0 addr 0xe0004000: mc146818 or compatible  
                                  *  lpt at jazzio0 addr 0xe0008000 intr 0 not configured  
                                  *  fdc at jazzio0 addr 0xe0003000 intr 1 not configured  
                                  *  MAGNUM at jazzio0 addr 0xe000c000 intr 2 not configured  
                                  *  VXL at jazzio0 addr 0xe0800000 intr 3 not configured  
                                  *  sn0 at jazzio0 addr 0xe0001000 intr 4: SONIC Ethernet  
                                  *  sn0: Ethernet address 69:6a:6b:6c:00:00  
                                  *  asc0 at jazzio0 addr 0xe0002000 intr 5: NCR53C94, target 0  
                                  *  scsibus0 at asc0: 8 targets, 8 luns per target  
                                  *  pckbd at jazzio0 addr 0xe0005000 intr 6 not configured  
                                  *  pms at jazzio0 addr 0xe0005000 intr 7 not configured  
                                  *  com0 at jazzio0 addr 0xe0006000 intr 8: ns16550a, working fifo  
                                  *  com at jazzio0 addr 0xe0007000 intr 9 not configured  
                                  *  jazzisabr0 at mainbus0  
                                  *  isa0 at jazzisabr0 isa_io_base 0xe2000000 isa_mem_base 0xe3000000  
                                  */  
   
                                 switch (machine->machine_subtype) {  
                                 case MACHINE_ARC_JAZZ_PICA:  
                                         strlcat(machine->machine_name, " (Microsoft Jazz, Acer PICA-61)",  
                                             MACHINE_NAME_MAXBUF);  
                                         break;  
                                 case MACHINE_ARC_JAZZ_MAGNUM:  
                                         strlcat(machine->machine_name, " (Microsoft Jazz, MIPS Magnum)",  
                                             MACHINE_NAME_MAXBUF);  
                                         break;  
                                 default:  
                                         fatal("error in machine.c. jazz\n");  
                                         exit(1);  
                                 }  
   
                                 machine->md_int.jazz_data = device_add(machine,  
                                     "jazz addr=0x80000000");  
                                 machine->md_interrupt = jazz_interrupt;  
   
                                 i = dev_pckbc_init(machine, mem, 0x80005000ULL,  
                                     PCKBC_JAZZ, 8 + 6, 8 + 7, machine->use_x11, 0);  
   
                                 snprintf(tmpstr, sizeof(tmpstr), "ns16550 irq=16 addr=0x80006000 in_use=%i name2=tty0", machine->use_x11? 0 : 1);  
                                 j = (size_t)device_add(machine, tmpstr);  
                                 snprintf(tmpstr, sizeof(tmpstr), "ns16550 irq=17 addr=0x80007000 in_use=%i name2=tty1", 0);  
                                 device_add(machine, tmpstr);  
   
                                 if (machine->use_x11)  
                                         machine->main_console_handle = i;  
                                 else  
                                         machine->main_console_handle = j;  
   
                                 switch (machine->machine_subtype) {  
                                 case MACHINE_ARC_JAZZ_PICA:  
                                         if (machine->use_x11) {  
                                                 dev_vga_init(machine, mem,  
                                                     0x400a0000ULL, 0x600003c0ULL,  
                                                     machine->machine_name);  
                                                 arcbios_console_init(machine,  
                                                     0x400b8000ULL, 0x600003c0ULL);  
                                         }  
                                         break;  
                                 case MACHINE_ARC_JAZZ_MAGNUM:  
                                         /*  PROM mirror?  */  
                                         dev_ram_init(mem, 0xfff00000, 0x100000,  
                                             DEV_RAM_MIRROR, 0x1fc00000);  
   
                                         /*  VXL. TODO  */  
                                         /*  control at 0x60100000?  */  
                                         dev_fb_init(machine, mem, 0x60200000ULL,  
                                             VFB_GENERIC, 1024,768, 1024,768,  
                                             8, "VXL");  
                                         break;  
                                 }  
   
                                 /*  irq 8 + 4  */  
                                 device_add(machine, "sn addr=0x80001000 irq=12");  
   
                                 dev_asc_init(machine, mem,  
                                     0x80002000ULL, 8 + 5, NULL, DEV_ASC_PICA,  
                                     dev_jazz_dma_controller,  
                                     machine->md_int.jazz_data);  
   
                                 device_add(machine, "fdc addr=0x80003000, irq=0");  
   
                                 dev_mc146818_init(machine, mem,  
                                     0x80004000ULL, 2, MC146818_ARC_JAZZ, 1);  
   
 #if 0  
 Not yet.  
                                 dev_wdc_init(machine, mem, 0x900001f0ULL, 8+16 + 14, 0);  
 #endif  
   
                                 break;  
   
                         case MACHINE_ARC_JAZZ_M700:  
                                 /*  
                                  *  "Microsoft-Jazz", "Olivetti M700"  
                                  *  
                                  *  Different enough from Pica and Magnum to be  
                                  *  separate here.  
                                  *  
                                  *  See http://mail-index.netbsd.org/port-arc/2000/10/18/0001.html.  
                                  */  
   
                                 strlcat(machine->machine_name, " (Microsoft Jazz, Olivetti M700)",  
                                     MACHINE_NAME_MAXBUF);  
   
                                 machine->md_int.jazz_data = device_add(machine,  
                                     "jazz addr=0x80000000");  
                                 machine->md_interrupt = jazz_interrupt;  
   
                                 dev_mc146818_init(machine, mem,  
                                     0x80004000ULL, 2, MC146818_ARC_JAZZ, 1);  
   
                                 i = 0;          /*  TODO: Yuck!  */  
 #if 0  
                                 i = dev_pckbc_init(machine, mem, 0x80005000ULL,  
                                     PCKBC_JAZZ, 8 + 6, 8 + 7, machine->use_x11, 0);  
 #endif  
   
                                 snprintf(tmpstr, sizeof(tmpstr), "ns16550 irq=16 addr=0x80006000 in_use=%i name2=tty0", machine->use_x11? 0 : 1);  
                                 j = (size_t)device_add(machine, tmpstr);  
                                 snprintf(tmpstr, sizeof(tmpstr), "ns16550 irq=17 addr=0x80007000 in_use=%i name2=tty1", 0);  
                                 device_add(machine, tmpstr);  
   
                                 if (machine->use_x11)  
                                         machine->main_console_handle = i;  
                                 else  
                                         machine->main_console_handle = j;  
   
                                 dev_m700_fb_init(machine, mem,  
                                     0x180080000ULL, 0x100000000ULL);  
   
                                 break;  
   
                         case MACHINE_ARC_DESKTECH_TYNE:  
                                 /*  
                                  *  "Deskstation Tyne" (?)  
                                  *  
                                  *  TODO  
                                  *  http://mail-index.netbsd.org/port-arc/2000/10/14/0000.html  
                                  */  
   
                                 strlcat(machine->machine_name, " (Deskstation Tyne)",  
                                     MACHINE_NAME_MAXBUF);  
   
                                 snprintf(tmpstr, sizeof(tmpstr), "ns16550 irq=0 addr=0x9000003f8 in_use=%i name2=tty0", machine->use_x11? 0 : 1);  
                                 i = (size_t)device_add(machine, tmpstr);  
                                 device_add(machine, "ns16550 irq=0 addr=0x9000002f8 in_use=0 name2=tty1");  
                                 device_add(machine, "ns16550 irq=0 addr=0x9000003e8 in_use=0 name2=tty2");  
                                 device_add(machine, "ns16550 irq=0 addr=0x9000002e8 in_use=0 name2=tty3");  
   
                                 dev_mc146818_init(machine, mem,  
                                     0x900000070ULL, 2, MC146818_PC_CMOS, 1);  
   
 #if 0  
                                 dev_wdc_init(machine, mem, 0x9000001f0ULL, 0, 0);  
                                 dev_wdc_init(machine, mem, 0x900000170ULL, 0, 2);  
 #endif  
                                 /*  PC kbd  */  
                                 j = dev_pckbc_init(machine, mem, 0x900000060ULL,  
                                     PCKBC_8042, 0, 0, machine->use_x11, 0);  
   
                                 if (machine->use_x11)  
                                         machine->main_console_handle = j;  
                                 else  
                                         machine->main_console_handle = i;  
   
                                 if (machine->use_x11) {  
                                         dev_vga_init(machine, mem, 0x1000a0000ULL,  
                                             0x9000003c0ULL, machine->machine_name);  
   
                                         arcbios_console_init(machine,  
                                             0x1000b8000ULL, 0x9000003c0ULL);  
                                 }  
                                 break;  
   
                         default:  
                                 fatal("Unimplemented ARC machine type %i\n",  
                                     machine->machine_subtype);  
                                 exit(1);  
                         }  
                 }  
   
                 /*  
                  *  This is important:  :-)  
                  *  
                  *  TODO:  There should not be any use of ARCBIOS before this  
                  *  point.  
                  */  
   
                 if (machine->prom_emulation)  
                         arcbios_init(machine, arc_wordlen == sizeof(uint64_t),  
                             sgi_ram_offset);  
                 else  
                         goto no_arc_prom_emulation;     /*  TODO: ugly  */  
   
                 /*  
                  *  TODO: How to build the component tree intermixed with  
                  *  the rest of device initialization?  
                  */  
   
                 /*  
                  *  Boot string in ARC format:  
                  *  
                  *  TODO: How about floppies? multi()disk()fdisk()  
                  *        Is tftp() good for netbooting?  
                  */  
                 init_bootpath = malloc(500);  
                 if (init_bootpath == NULL) {  
                         fprintf(stderr, "out of mem, bootpath\n");  
                         exit(1);  
                 }  
                 init_bootpath[0] = '\0';  
   
                 if (bootdev_id < 0 || machine->force_netboot) {  
                         snprintf(init_bootpath, 400, "tftp()");  
                 } else {  
                         /*  TODO: Make this nicer.  */  
                         if (machine->machine_type == MACHINE_SGI) {  
                                 if (machine->machine_subtype == 30)  
                                         strlcat(init_bootpath, "xio(0)pci(15)",  
                                             MACHINE_NAME_MAXBUF);  
                                 if (machine->machine_subtype == 32)  
                                         strlcat(init_bootpath, "pci(0)",  
                                             MACHINE_NAME_MAXBUF);  
                         }  
   
                         if (diskimage_is_a_cdrom(machine, bootdev_id,  
                             bootdev_type))  
                                 snprintf(init_bootpath + strlen(init_bootpath),  
                                     400,"scsi(0)cdrom(%i)fdisk(0)", bootdev_id);  
                         else  
                                 snprintf(init_bootpath + strlen(init_bootpath),  
                                     400,"scsi(0)disk(%i)rdisk(0)partition(1)",  
                                     bootdev_id);  
                 }  
   
                 if (machine->machine_type == MACHINE_ARC)  
                         strlcat(init_bootpath, "\\", MACHINE_NAME_MAXBUF);  
   
                 bootstr = malloc(BOOTSTR_BUFLEN);  
                 if (bootstr == NULL) {  
                         fprintf(stderr, "out of memory\n");  
                         exit(1);  
                 }  
                 strlcpy(bootstr, init_bootpath, BOOTSTR_BUFLEN);  
                 if (strlcat(bootstr, machine->boot_kernel_filename,  
                     BOOTSTR_BUFLEN) >= BOOTSTR_BUFLEN) {  
                         fprintf(stderr, "boot string too long?\n");  
                         exit(1);  
                 }  
   
                 /*  Boot args., eg "-a"  */  
                 bootarg = machine->boot_string_argument;  
   
                 /*  argc, argv, envp in a0, a1, a2:  */  
                 cpu->cd.mips.gpr[MIPS_GPR_A0] = 0;      /*  note: argc is increased later  */  
   
                 /*  TODO:  not needed?  */  
                 cpu->cd.mips.gpr[MIPS_GPR_SP] = (int64_t)(int32_t)  
                     (machine->physical_ram_in_mb * 1048576 + 0x80000000 - 0x2080);  
   
                 /*  Set up argc/argv:  */  
                 addr = ARC_ENV_STRINGS;  
                 addr2 = ARC_ARGV_START;  
                 cpu->cd.mips.gpr[MIPS_GPR_A1] = addr2;  
   
                 /*  bootstr:  */  
                 store_pointer_and_advance(cpu, &addr2, addr, arc_wordlen==sizeof(uint64_t));  
                 add_environment_string(cpu, bootstr, &addr);  
                 cpu->cd.mips.gpr[MIPS_GPR_A0] ++;  
   
                 /*  bootarg:  */  
                 if (bootarg[0] != '\0') {  
                         store_pointer_and_advance(cpu, &addr2, addr, arc_wordlen==sizeof(uint64_t));  
                         add_environment_string(cpu, bootarg, &addr);  
                         cpu->cd.mips.gpr[MIPS_GPR_A0] ++;  
                 }  
   
                 cpu->cd.mips.gpr[MIPS_GPR_A2] = addr2;  
   
                 /*  
                  *  Add environment variables.  For each variable, add it  
                  *  as a string using add_environment_string(), and add a  
                  *  pointer to it to the ARC_ENV_POINTERS array.  
                  */  
                 if (machine->use_x11) {  
                         if (machine->machine_type == MACHINE_ARC) {  
                                 store_pointer_and_advance(cpu, &addr2, addr, arc_wordlen==sizeof(uint64_t));  
                                 add_environment_string(cpu, "CONSOLEIN=multi()key()keyboard()console()", &addr);  
                                 store_pointer_and_advance(cpu, &addr2, addr, arc_wordlen==sizeof(uint64_t));  
                                 add_environment_string(cpu, "CONSOLEOUT=multi()video()monitor()console()", &addr);  
                         } else {  
                                 store_pointer_and_advance(cpu, &addr2, addr, arc_wordlen==sizeof(uint64_t));  
                                 add_environment_string(cpu, "ConsoleIn=keyboard()", &addr);  
                                 store_pointer_and_advance(cpu, &addr2, addr, arc_wordlen==sizeof(uint64_t));  
                                 add_environment_string(cpu, "ConsoleOut=video()", &addr);  
   
                                 /*  g for graphical mode. G for graphical mode  
                                     with SGI logo visible on Irix?  */  
                                 store_pointer_and_advance(cpu, &addr2, addr, arc_wordlen==sizeof(uint64_t));  
                                 add_environment_string(cpu, "console=g", &addr);  
                         }  
                 } else {  
                         if (machine->machine_type == MACHINE_ARC) {  
                                 /*  TODO: serial console for ARC?  */  
                                 store_pointer_and_advance(cpu, &addr2, addr, arc_wordlen==sizeof(uint64_t));  
                                 add_environment_string(cpu, "CONSOLEIN=multi()serial(0)", &addr);  
                                 store_pointer_and_advance(cpu, &addr2, addr, arc_wordlen==sizeof(uint64_t));  
                                 add_environment_string(cpu, "CONSOLEOUT=multi()serial(0)", &addr);  
                         } else {  
                                 store_pointer_and_advance(cpu, &addr2, addr, arc_wordlen==sizeof(uint64_t));  
                                 add_environment_string(cpu, "ConsoleIn=serial(0)", &addr);  
                                 store_pointer_and_advance(cpu, &addr2, addr, arc_wordlen==sizeof(uint64_t));  
                                 add_environment_string(cpu, "ConsoleOut=serial(0)", &addr);  
   
                                 /*  'd' or 'd2' in Irix, 'ttyS0' in Linux?  */  
                                 store_pointer_and_advance(cpu, &addr2, addr, arc_wordlen==sizeof(uint64_t));  
                                 add_environment_string(cpu, "console=d", &addr);                /*  d2 = serial?  */  
                         }  
                 }  
   
                 if (machine->machine_type == MACHINE_SGI) {  
                         store_pointer_and_advance(cpu, &addr2, addr, arc_wordlen==sizeof(uint64_t));  
                         add_environment_string(cpu, "AutoLoad=No", &addr);  
                         store_pointer_and_advance(cpu, &addr2, addr, arc_wordlen==sizeof(uint64_t));  
                         add_environment_string(cpu, "diskless=0", &addr);  
                         store_pointer_and_advance(cpu, &addr2, addr, arc_wordlen==sizeof(uint64_t));  
                         add_environment_string(cpu, "volume=80", &addr);  
                         store_pointer_and_advance(cpu, &addr2, addr, arc_wordlen==sizeof(uint64_t));  
                         add_environment_string(cpu, "sgilogo=y", &addr);  
   
                         store_pointer_and_advance(cpu, &addr2, addr, arc_wordlen==sizeof(uint64_t));  
                         add_environment_string(cpu, "monitor=h", &addr);  
                         store_pointer_and_advance(cpu, &addr2, addr, arc_wordlen==sizeof(uint64_t));  
                         add_environment_string(cpu, "TimeZone=GMT", &addr);  
                         store_pointer_and_advance(cpu, &addr2, addr, arc_wordlen==sizeof(uint64_t));  
                         add_environment_string(cpu, "nogfxkbd=1", &addr);  
   
                         /*  TODO: 'xio(0)pci(15)scsi(0)disk(1)rdisk(0)partition(0)' on IP30 at least  */  
   
                         store_pointer_and_advance(cpu, &addr2, addr, arc_wordlen==sizeof(uint64_t));  
                         add_environment_string(cpu, "SystemPartition=pci(0)scsi(0)disk(2)rdisk(0)partition(8)", &addr);  
                         store_pointer_and_advance(cpu, &addr2, addr, arc_wordlen==sizeof(uint64_t));  
                         add_environment_string(cpu, "OSLoadPartition=pci(0)scsi(0)disk(2)rdisk(0)partition(0)", &addr);  
                         store_pointer_and_advance(cpu, &addr2, addr, arc_wordlen==sizeof(uint64_t));  
                         add_environment_string(cpu, "OSLoadFilename=/unix", &addr);  
                         store_pointer_and_advance(cpu, &addr2, addr, arc_wordlen==sizeof(uint64_t));  
                         add_environment_string(cpu, "OSLoader=sash", &addr);  
   
                         store_pointer_and_advance(cpu, &addr2, addr, arc_wordlen==sizeof(uint64_t));  
                         add_environment_string(cpu, "rbaud=9600", &addr);  
                         store_pointer_and_advance(cpu, &addr2, addr, arc_wordlen==sizeof(uint64_t));  
                         add_environment_string(cpu, "rebound=y", &addr);  
                         store_pointer_and_advance(cpu, &addr2, addr, arc_wordlen==sizeof(uint64_t));  
                         add_environment_string(cpu, "crt_option=1", &addr);  
                         store_pointer_and_advance(cpu, &addr2, addr, arc_wordlen==sizeof(uint64_t));  
                         add_environment_string(cpu, "netaddr=10.0.0.1", &addr);  
   
                         store_pointer_and_advance(cpu, &addr2, addr, arc_wordlen==sizeof(uint64_t));  
                         add_environment_string(cpu, "keybd=US", &addr);  
   
                         store_pointer_and_advance(cpu, &addr2, addr, arc_wordlen==sizeof(uint64_t));  
                         add_environment_string(cpu, "cpufreq=3", &addr);  
                         store_pointer_and_advance(cpu, &addr2, addr, arc_wordlen==sizeof(uint64_t));  
                         add_environment_string(cpu, "dbaud=9600", &addr);  
                         store_pointer_and_advance(cpu, &addr2, addr, arc_wordlen==sizeof(uint64_t));  
                         add_environment_string(cpu, eaddr_string, &addr);  
                         store_pointer_and_advance(cpu, &addr2, addr, arc_wordlen==sizeof(uint64_t));  
                         add_environment_string(cpu, "verbose=istrue", &addr);  
                         store_pointer_and_advance(cpu, &addr2, addr, arc_wordlen==sizeof(uint64_t));  
                         add_environment_string(cpu, "showconfig=istrue", &addr);  
                         store_pointer_and_advance(cpu, &addr2, addr, arc_wordlen==sizeof(uint64_t));  
                         add_environment_string(cpu, "diagmode=v", &addr);  
                         store_pointer_and_advance(cpu, &addr2, addr, arc_wordlen==sizeof(uint64_t));  
                         add_environment_string(cpu, "kernname=unix", &addr);  
                 } else {  
                         char *tmp;  
                         size_t mlen = strlen(bootarg) + strlen("OSLOADOPTIONS=") + 2;  
                         tmp = malloc(mlen);  
                         snprintf(tmp, mlen, "OSLOADOPTIONS=%s", bootarg);  
                         store_pointer_and_advance(cpu, &addr2, addr, arc_wordlen==sizeof(uint64_t));  
                         add_environment_string(cpu, tmp, &addr);  
   
                         store_pointer_and_advance(cpu, &addr2, addr, arc_wordlen==sizeof(uint64_t));  
                         add_environment_string(cpu, "OSLOADPARTITION=scsi(0)cdrom(6)fdisk(0);scsi(0)disk(0)rdisk(0)partition(1)", &addr);  
   
                         store_pointer_and_advance(cpu, &addr2, addr, arc_wordlen==sizeof(uint64_t));  
                         add_environment_string(cpu, "SYSTEMPARTITION=scsi(0)cdrom(6)fdisk(0);scsi(0)disk(0)rdisk(0)partition(1)", &addr);  
                 }  
   
                 /*  End the environment strings with an empty zero-terminated  
                     string, and the envp array with a NULL pointer.  */  
                 add_environment_string(cpu, "", &addr); /*  the end  */  
                 store_pointer_and_advance(cpu, &addr2,  
                     0, arc_wordlen==sizeof(uint64_t));  
   
 no_arc_prom_emulation:          /*  TODO: ugly, get rid of the goto  */  
   
                 /*  Return address:  (0x20 = ReturnFromMain())  */  
                 cpu->cd.mips.gpr[MIPS_GPR_RA] = ARC_FIRMWARE_ENTRIES + 0x20;  
   
                 break;  
   
         case MACHINE_MESHCUBE:  
                 machine->machine_name = "MeshCube";  
   
                 if (machine->physical_ram_in_mb != 64)  
                         fprintf(stderr, "WARNING! MeshCubes are supposed to have exactly 64 MB RAM. Continuing anyway.\n");  
                 if (machine->use_x11)  
                         fprintf(stderr, "WARNING! MeshCube with -X is meaningless. Continuing anyway.\n");  
   
                 /*  First of all, the MeshCube has an Au1500 in it:  */  
                 machine->md_interrupt = au1x00_interrupt;  
                 machine->md_int.au1x00_ic_data = dev_au1x00_init(machine, mem);  
   
                 /*  
                  *  TODO:  Which non-Au1500 devices, and at what addresses?  
                  *  
                  *  "4G Systems MTX-1 Board" at ?  
                  *      1017fffc, 14005004, 11700000, 11700008, 11900014,  
                  *      1190002c, 11900100, 11900108, 1190010c,  
                  *      10400040 - 10400074,  
                  *      14001000 (possibly LCD?)  
                  *      11100028 (possibly ttySx?)  
                  *  
                  *  "usb_ohci=base:0x10100000,len:0x100000,irq:26"  
                  */  
   
                 device_add(machine, "random addr=0x1017fffc len=4");  
   
                 /*  
                  *  TODO:  A Linux kernel wants "memsize" from somewhere... I  
                  *  haven't found any docs on how it is used though.  
                  */  
   
                 cpu->cd.mips.gpr[MIPS_GPR_A0] = 1;  
                 cpu->cd.mips.gpr[MIPS_GPR_A1] = 0xa0001000ULL;  
                 store_32bit_word(cpu, cpu->cd.mips.gpr[MIPS_GPR_A1],  
                     0xa0002000ULL);  
                 store_string(cpu, 0xa0002000ULL, "something=somethingelse");  
   
                 cpu->cd.mips.gpr[MIPS_GPR_A2] = 0xa0003000ULL;  
                 store_string(cpu, 0xa0002000ULL, "hello=world\n");  
   
                 break;  
   
         case MACHINE_NETGEAR:  
                 machine->machine_name = "NetGear WG602";  
   
                 if (machine->use_x11)  
                         fprintf(stderr, "WARNING! NetGear with -X is meaningless. Continuing anyway.\n");  
                 if (machine->physical_ram_in_mb != 16)  
                         fprintf(stderr, "WARNING! Real NetGear WG602 boxes have exactly 16 MB RAM. Continuing anyway.\n");  
   
                 /*  
                  *  Lots of info about the IDT 79RC 32334  
                  *  http://www.idt.com/products/pages/Integrated_Processors-79RC32334.html  
                  */  
                 device_add(machine, "8250 addr=0x18000800 addr_mult=4 irq=0");  
                 break;  
   
         case MACHINE_SONYNEWS:  
                 /*  
                  *  There are several models, according to  
                  *  http://www.netbsd.org/Ports/newsmips/:  
                  *  
                  *  "R3000 and hyper-bus based models"  
                  *      NWS-3470D, -3410, -3460, -3710, -3720  
                  *  
                  *  "R4000/4400 and apbus based models"  
                  *      NWS-5000  
                  *  
                  *  For example: (found using google)  
                  *  
                  *    cpu_model = news3700  
                  *    SONY NET WORK STATION, Model NWS-3710, Machine ID #30145  
                  *    cpu0: MIPS R3000 (0x220) Rev. 2.0 with MIPS R3010 Rev.2.0  
                  *    64KB/4B direct-mapped I, 64KB/4B direct-mapped w-thr. D  
                  *  
                  *  See http://katsu.watanabe.name/doc/sonynews/model.html  
                  *  for more details.  
                  */  
                 cpu->byte_order = EMUL_BIG_ENDIAN;  
                 machine->machine_name = "Sony NeWS (NET WORK STATION)";  
   
                 /*  This is just a test.  TODO  */  
                 {  
                         int i;  
                         for (i=0; i<32; i++)  
                                 cpu->cd.mips.gpr[i] =  
                                     0x01230000 + (i << 8) + 0x55;  
                 }  
   
                 machine->main_console_handle =  
                     dev_zs_init(machine, mem, 0x1e950000, 0, 1, "zs console");  
   
                 break;  
   
         case MACHINE_EVBMIPS:  
                 /*  http://www.netbsd.org/Ports/evbmips/  */  
                 cpu->byte_order = EMUL_LITTLE_ENDIAN;  
   
                 switch (machine->machine_subtype) {  
                 case MACHINE_EVBMIPS_MALTA:  
                 case MACHINE_EVBMIPS_MALTA_BE:  
                         machine->machine_name = "MALTA (evbmips, little endian)";  
                         cpu->byte_order = EMUL_LITTLE_ENDIAN;  
   
                         if (machine->machine_subtype == MACHINE_EVBMIPS_MALTA_BE) {  
                                 machine->machine_name = "MALTA (evbmips, big endian)";  
                                 cpu->byte_order = EMUL_BIG_ENDIAN;  
                         }  
   
                         /*  ISA interrupt controllers:  */  
                         snprintf(tmpstr, sizeof(tmpstr), "8259 irq=24 addr=0x18000020");  
                         machine->md_int.isa_pic_data.pic1 = device_add(machine, tmpstr);  
                         snprintf(tmpstr, sizeof(tmpstr), "8259 irq=24 addr=0x180000a0");  
                         machine->md_int.isa_pic_data.pic2 = device_add(machine, tmpstr);  
                         machine->md_interrupt = malta_interrupt;  
   
                         dev_mc146818_init(machine, mem, 0x18000070, 8 + 8, MC146818_PC_CMOS, 1);  
   
                         machine->main_console_handle = (size_t)  
                             device_add(machine, "ns16550 irq=12 addr=0x180003f8 name2=tty0");  
                         device_add(machine, "ns16550 irq=11 addr=0x180002f8 name2=tty1");  
   
                         snprintf(tmpstr, sizeof(tmpstr), "ns16550 irq=4 addr=0x%x name2=tty2", MALTA_CBUSUART);  
                         device_add(machine, tmpstr);  
                         /*  TODO: Irqs  */  
                         pci_data = dev_gt_init(machine, mem, 0x1be00000, 8+9, 8+9, 120);  
   
                         /*  TODO: Haha, this is bogus. Just a cut&paste  
                             from the Cobalt emulation above.  */  
                         bus_pci_add(machine, pci_data, mem, 0,  9, 0, pci_vt82c586_isa_init, pci_vt82c586_isa_rr);  
                         bus_pci_add(machine, pci_data, mem, 0,  9, 1, pci_vt82c586_ide_init, pci_vt82c586_ide_rr);  
   
                         device_add(machine, "malta_lcd addr=0x1f000400");  
                         break;  
                 case MACHINE_EVBMIPS_PB1000:  
                         machine->machine_name = "PB1000 (evbmips)";  
                         cpu->byte_order = EMUL_BIG_ENDIAN;  
   
                         machine->md_interrupt = au1x00_interrupt;  
                         machine->md_int.au1x00_ic_data = dev_au1x00_init(machine, mem);  
                         /*  TODO  */  
                         break;  
                 default:  
                         fatal("Unimplemented EVBMIPS model.\n");  
                         exit(1);  
                 }  
   
                 if (machine->prom_emulation) {  
                         /*  This is just a test.  TODO  */  
                         for (i=0; i<32; i++)  
                                 cpu->cd.mips.gpr[i] =  
                                     0x01230000 + (i << 8) + 0x55;  
   
                         /*  NetBSD/evbmips wants these: (at least for Malta)  */  
   
                         /*  a0 = argc  */  
                         cpu->cd.mips.gpr[MIPS_GPR_A0] = 2;  
   
                         /*  a1 = argv  */  
                         cpu->cd.mips.gpr[MIPS_GPR_A1] = (int32_t)0x9fc01000;  
                         store_32bit_word(cpu, (int32_t)0x9fc01000, 0x9fc01040);  
                         store_32bit_word(cpu, (int32_t)0x9fc01004, 0x9fc01200);  
                         store_32bit_word(cpu, (int32_t)0x9fc01008, 0);  
   
                         bootstr = strdup(machine->boot_kernel_filename);  
                         bootarg = strdup(machine->boot_string_argument);  
                         store_string(cpu, (int32_t)0x9fc01040, bootstr);  
                         store_string(cpu, (int32_t)0x9fc01200, bootarg);  
   
                         /*  a2 = (yamon_env_var *)envp  */  
                         cpu->cd.mips.gpr[MIPS_GPR_A2] = (int32_t)0x9fc01800;  
                         {  
                                 uint64_t env = cpu->cd.mips.gpr[MIPS_GPR_A2];  
                                 uint64_t tmpptr = 0xffffffff9fc01c00ULL;  
                                 char tmps[50];  
   
                                 snprintf(tmps, sizeof(tmps), "0x%08x",  
                                     machine->physical_ram_in_mb * 1048576);  
                                 add_environment_string_dual(cpu,  
                                     &env, &tmpptr, "memsize", tmps);  
   
                                 add_environment_string_dual(cpu,  
                                     &env, &tmpptr, "yamonrev", "02.06");  
   
                                 /*  End of env:  */  
                                 tmpptr = 0;  
                                 add_environment_string_dual(cpu,  
                                     &env, &tmpptr, NULL, NULL);  
                         }  
   
                         /*  a3 = memsize  */  
                         cpu->cd.mips.gpr[MIPS_GPR_A3] =  
                             machine->physical_ram_in_mb * 1048576;  
                         /*  Hm. Linux ignores a3.  */  
   
                         /*  
                          *  TODO:  
                          *      Core ID numbers.  
                          *      How much of this is not valid for PBxxxx?  
                          *  
                          *  See maltareg.h for more info.  
                          */  
                         store_32bit_word(cpu, (int32_t)(0x80000000 + MALTA_REVISION), (1 << 10) + 0x26);  
   
                         /*  Call vectors at 0x9fc005xx:  */  
                         for (i=0; i<0x100; i+=4)  
                                 store_32bit_word(cpu, (int64_t)(int32_t)0x9fc00500 + i,  
                                     (int64_t)(int32_t)0x9fc00800 + i);  
                 }  
                 break;  
   
         case MACHINE_PSP:  
                 /*  
                  *  The Playstation Portable seems to be a strange beast.  
                  *  
                  *  http://yun.cup.com/psppg004.html (in Japanese) seems to  
                  *  suggest that virtual addresses are not displaced by  
                  *  0x80000000 as on normal CPUs, but by 0x40000000?  
                  */  
                 machine->machine_name = "Playstation Portable";  
                 cpu->byte_order = EMUL_LITTLE_ENDIAN;  
   
                 if (!machine->use_x11 && !quiet_mode)  
                         fprintf(stderr, "-------------------------------------"  
                             "------------------------------------------\n"  
                             "\n  WARNING! You are emulating a PSP without -X. "  
                             "You will miss graphical output!\n\n"  
                             "-------------------------------------"  
                             "------------------------------------------\n");  
   
                 /*  480 x 272 pixels framebuffer (512 bytes per line)  */  
                 fb = dev_fb_init(machine, mem, 0x04000000, VFB_HPCMIPS,  
                     480,272, 512,1088, -15, "Playstation Portable");  
   
                 /*  
                  *  TODO/NOTE: This is ugly, but necessary since GXemul doesn't  
                  *  emulate any MIPS CPU without MMU right now.  
                  */  
                 mips_coproc_tlb_set_entry(cpu, 0, 1048576*16,  
                     0x44000000 /*vaddr*/, 0x4000000, 0x4000000 + 1048576*16,  
                     1,1,1,1,1, 0, 2, 2);  
                 mips_coproc_tlb_set_entry(cpu, 1, 1048576*16,  
                     0x8000000 /*vaddr*/, 0x0, 0x0 + 1048576*16,  
                     1,1,1,1,1, 0, 2, 2);  
                 mips_coproc_tlb_set_entry(cpu, 2, 1048576*16,  
                     0x9000000 /*vaddr*/, 0x01000000, 0x01000000 + 1048576*16,  
                     1,1,1,1,1, 0, 2, 2);  
                 mips_coproc_tlb_set_entry(cpu, 3, 1048576*16,  
                     0x0 /*vaddr*/, 0, 0 + 1048576*16, 1,1,1,1,1, 0, 2, 2);  
   
                 cpu->cd.mips.gpr[MIPS_GPR_SP] = 0xfff0;  
   
                 break;  
 #endif  /*  ENABLE_MIPS  */  
   
 #ifdef ENABLE_PPC  
         case MACHINE_BAREPPC:  
                 /*  
                  *  A "bare" PPC machine.  
                  *  
                  *  NOTE: NO devices at all.  
                  */  
                 machine->machine_name = "\"Bare\" PPC machine";  
                 break;  
   
         case MACHINE_TESTPPC:  
                 /*  
                  *  A PPC test machine, similar to the test machine for MIPS.  
                  */  
                 machine->machine_name = "PPC test machine";  
   
                 /*  TODO: interrupt for PPC?  */  
                 snprintf(tmpstr, sizeof(tmpstr), "cons addr=0x%llx irq=0",  
                     (long long)DEV_CONS_ADDRESS);  
                 cons_data = device_add(machine, tmpstr);  
                 machine->main_console_handle = cons_data->console_handle;  
   
                 snprintf(tmpstr, sizeof(tmpstr), "mp addr=0x%llx",  
                     (long long)DEV_MP_ADDRESS);  
                 device_add(machine, tmpstr);  
   
                 fb = dev_fb_init(machine, mem, DEV_FB_ADDRESS, VFB_GENERIC,  
                     640,480, 640,480, 24, "testppc generic");  
   
                 snprintf(tmpstr, sizeof(tmpstr), "disk addr=0x%llx",  
                     (long long)DEV_DISK_ADDRESS);  
                 device_add(machine, tmpstr);  
   
                 snprintf(tmpstr, sizeof(tmpstr), "ether addr=0x%llx irq=0",  
                     (long long)DEV_ETHER_ADDRESS);  
                 device_add(machine, tmpstr);  
   
                 break;  
   
         case MACHINE_WALNUT:  
                 /*  
                  *  NetBSD/evbppc (http://www.netbsd.org/Ports/evbppc/)  
                  */  
                 machine->machine_name = "Walnut evaluation board";  
   
                 break;  
   
         case MACHINE_PMPPC:  
                 /*  
                  *  NetBSD/pmppc (http://www.netbsd.org/Ports/pmppc/)  
                  */  
                 machine->machine_name = "Artesyn's PM/PPC board";  
   
                 dev_pmppc_init(mem);  
   
                 /*  com0 = 0xff600300, com1 = 0xff600400  */  
   
                 machine->main_console_handle = (size_t)device_add(machine, "ns16550 irq=0 addr=0xff600300 name2=tty0");  
                 device_add(machine, "ns16550 irq=0 addr=0xff600400 in_use=0 name2=tty1");  
   
                 break;  
   
         case MACHINE_SANDPOINT:  
                 /*  
                  *  NetBSD/sandpoint (http://www.netbsd.org/Ports/sandpoint/)  
                  */  
                 machine->machine_name = "Motorola Sandpoint";  
   
                 {  
                         int i;  
                         for (i=0; i<32; i++)  
                                 cpu->cd.ppc.gpr[i] =  
                                     0x12340000 + (i << 8) + 0x55;  
                 }  
   
                 break;  
   
         case MACHINE_BEBOX:  
                 /*  
                  *  NetBSD/bebox (http://www.netbsd.org/Ports/bebox/)  
                  */  
                 machine->machine_name = "BeBox";  
   
                 device_add(machine, "bebox");  
   
                 machine->main_console_handle = (size_t)  
                     device_add(machine, "ns16550 irq=0 addr=0x800003f8 name2=tty0");  
                 device_add(machine, "ns16550 irq=0 addr=0x800002f8 name2=tty1 in_use=0");  
   
                 if (machine->use_x11)  
                         dev_vga_init(machine, mem, 0xc00a0000ULL, 0x800003c0ULL,  
                             machine->machine_name);  
   
                 store_32bit_word(cpu, 0x3010,  
                     machine->physical_ram_in_mb * 1048576);  
   
                 /*  TODO: List of stuff, see http://www.beatjapan.org/  
                     mirror/www.be.com/aboutbe/benewsletter/  
                     Issue27.html#Cookbook  for the details.  */  
                 store_32bit_word(cpu, 0x301c, 0);  
   
                 /*  NetBSD/bebox: r3 = startkernel, r4 = endkernel,  
                     r5 = args, r6 = ptr to bootinfo?  */  
                 cpu->cd.ppc.gpr[3] = 0x3100;  
                 cpu->cd.ppc.gpr[4] = 0x200000;  
                 cpu->cd.ppc.gpr[5] = 0x2000;  
                 store_string(cpu, cpu->cd.ppc.gpr[5], "-a");  
                 cpu->cd.ppc.gpr[6] = machine->physical_ram_in_mb * 1048576  
                     - 0x100;  
   
                 /*  See NetBSD's bebox/include/bootinfo.h for details  */  
                 store_32bit_word(cpu, cpu->cd.ppc.gpr[6] + 0, 12);  /*  next  */  
                 store_32bit_word(cpu, cpu->cd.ppc.gpr[6] + 4, 0);  /*  mem  */  
                 store_32bit_word(cpu, cpu->cd.ppc.gpr[6] + 8,  
                     machine->physical_ram_in_mb * 1048576);  
   
                 store_32bit_word(cpu, cpu->cd.ppc.gpr[6] + 12, 20);  /* next */  
                 store_32bit_word(cpu, cpu->cd.ppc.gpr[6] + 16, 1); /* console */  
                 store_buf(cpu, cpu->cd.ppc.gpr[6] + 20,  
                     machine->use_x11? "vga" : "com", 4);  
                 store_32bit_word(cpu, cpu->cd.ppc.gpr[6] + 24, 0x3f8);/* addr */  
                 store_32bit_word(cpu, cpu->cd.ppc.gpr[6] + 28, 9600);/* speed */  
   
                 store_32bit_word(cpu, cpu->cd.ppc.gpr[6] + 32, 0);  /*  next  */  
                 store_32bit_word(cpu, cpu->cd.ppc.gpr[6] + 36, 2);  /*  clock */  
                 store_32bit_word(cpu, cpu->cd.ppc.gpr[6] + 40, 100);  
   
                 break;  
   
         case MACHINE_PREP:  
                 /*  
                  *  NetBSD/prep (http://www.netbsd.org/Ports/prep/)  
                  */  
                 machine->machine_name = "PowerPC Reference Platform";  
   
                 {  
                         int i;  
                         for (i=0; i<32; i++)  
                                 cpu->cd.ppc.gpr[i] =  
                                     0x12340000 + (i << 8) + 0x55;  
                 }  
   
                 /*  Linux on PReP has 0xdeadc0de at address 0? (See  
                     http://joshua.raleigh.nc.us/docs/linux-2.4.10_html/113568.html)  */  
                 store_32bit_word(cpu, 0, 0xdeadc0de);  
   
                 /*  r6 should point to "residual data"?  */  
                 cpu->cd.ppc.gpr[6] = machine->physical_ram_in_mb * 1048576  
                     - 0x1000;  
   
                 break;  
   
         case MACHINE_MACPPC:  
                 /*  
                  *  NetBSD/macppc (http://www.netbsd.org/Ports/macppc/)  
                  *  OpenBSD/macppc (http://www.openbsd.org/macppc.html)  
                  */  
                 machine->machine_name = "Macintosh (PPC)";  
   
                 /*  r5 = OpenFirmware entry point  */  
                 cpu->cd.ppc.gpr[5] = cpu->cd.ppc.of_emul_addr;  
   
                 break;  
   
         case MACHINE_DB64360:  
                 /*  For playing with PMON2000 for PPC:  */  
                 machine->machine_name = "DB64360";  
   
                 machine->main_console_handle = (size_t)device_add(machine, "ns16550 irq=0 addr=0x1d000020");  
   
                 {  
                         int i;  
                         for (i=0; i<32; i++)  
                                 cpu->cd.ppc.gpr[i] =  
                                     0x12340000 + (i << 8) + 0x55;  
                 }  
   
                 break;  
 #endif  /*  ENABLE_PPC  */  
   
 #ifdef ENABLE_SPARC  
         case MACHINE_BARESPARC:  
                 /*  A bare SPARC machine, with no devices.  */  
                 machine->machine_name = "\"Bare\" SPARC machine";  
                 break;  
   
         case MACHINE_TESTSPARC:  
                 machine->machine_name = "SPARC test machine";  
   
                 snprintf(tmpstr, sizeof(tmpstr), "cons addr=0x%llx irq=0",  
                     (long long)DEV_CONS_ADDRESS);  
                 cons_data = device_add(machine, tmpstr);  
                 machine->main_console_handle = cons_data->console_handle;  
   
                 snprintf(tmpstr, sizeof(tmpstr), "mp addr=0x%llx",  
                     (long long)DEV_MP_ADDRESS);  
                 device_add(machine, tmpstr);  
   
                 fb = dev_fb_init(machine, mem, DEV_FB_ADDRESS, VFB_GENERIC,  
                     640,480, 640,480, 24, "testsparc generic");  
   
                 snprintf(tmpstr, sizeof(tmpstr), "disk addr=0x%llx",  
                     (long long)DEV_DISK_ADDRESS);  
                 device_add(machine, tmpstr);  
   
                 snprintf(tmpstr, sizeof(tmpstr), "ether addr=0x%llx irq=0",  
                     (long long)DEV_ETHER_ADDRESS);  
                 device_add(machine, tmpstr);  
   
                 break;  
   
         case MACHINE_ULTRA1:  
                 /*  
                  *  NetBSD/sparc64 (http://www.netbsd.org/Ports/sparc64/)  
                  *  OpenBSD/sparc64 (http://www.openbsd.org/sparc64.html)  
                  */  
                 machine->machine_name = "Sun Ultra1";  
                 break;  
 #endif  /*  ENABLE_SPARC  */  
   
 #ifdef ENABLE_ALPHA  
         case MACHINE_BAREALPHA:  
                 machine->machine_name = "\"Bare\" Alpha machine";  
                 break;  
   
         case MACHINE_TESTALPHA:  
                 machine->machine_name = "Alpha test machine";  
   
                 snprintf(tmpstr, sizeof(tmpstr), "cons addr=0x%llx irq=0",  
                     (long long)DEV_CONS_ADDRESS);  
                 cons_data = device_add(machine, tmpstr);  
                 machine->main_console_handle = cons_data->console_handle;  
   
                 snprintf(tmpstr, sizeof(tmpstr), "mp addr=0x%llx",  
                     (long long)DEV_MP_ADDRESS);  
                 device_add(machine, tmpstr);  
   
                 fb = dev_fb_init(machine, mem, DEV_FB_ADDRESS, VFB_GENERIC,  
                     640,480, 640,480, 24, "testalpha generic");  
   
                 snprintf(tmpstr, sizeof(tmpstr), "disk addr=0x%llx",  
                     (long long)DEV_DISK_ADDRESS);  
                 device_add(machine, tmpstr);  
   
                 snprintf(tmpstr, sizeof(tmpstr), "ether addr=0x%llx irq=0",  
                     (long long)DEV_ETHER_ADDRESS);  
                 device_add(machine, tmpstr);  
   
                 break;  
   
         case MACHINE_ALPHA:  
                 /*  TODO:  Most of these... They are used by NetBSD/alpha:  */  
                 /*  a0 = First free Page Frame Number  */  
                 /*  a1 = PFN of current Level 1 page table  */  
                 /*  a2 = Bootinfo magic  */  
                 /*  a3 = Bootinfo pointer  */  
                 /*  a4 = Bootinfo version  */  
                 cpu->cd.alpha.r[ALPHA_A0] = 16*1024*1024 / 8192;  
                 cpu->cd.alpha.r[ALPHA_A1] = 0;  
                 cpu->cd.alpha.r[ALPHA_A2] = 0;  
                 cpu->cd.alpha.r[ALPHA_A3] = 0;  
                 cpu->cd.alpha.r[ALPHA_A4] = 0;  
   
                 if (machine->prom_emulation) {  
                         struct rpb rpb;  
                         struct crb crb;  
                         struct ctb ctb;  
   
                         /*  HWRPB: Hardware Restart Parameter Block  */  
                         memset(&rpb, 0, sizeof(struct rpb));  
                         store_64bit_word_in_host(cpu, (unsigned char *)  
                             &(rpb.rpb_phys), HWRPB_ADDR);  
                         strlcpy((char *)&(rpb.rpb_magic), "HWRPB", 8);  
                         store_64bit_word_in_host(cpu, (unsigned char *)  
                             &(rpb.rpb_size), sizeof(struct rpb));  
                         store_64bit_word_in_host(cpu, (unsigned char *)  
                             &(rpb.rpb_page_size), 8192);  
                         store_64bit_word_in_host(cpu, (unsigned char *)  
                             &(rpb.rpb_type), machine->machine_subtype);  
                         store_64bit_word_in_host(cpu, (unsigned char *)  
                             &(rpb.rpb_cc_freq), 100000000);  
                         store_64bit_word_in_host(cpu, (unsigned char *)  
                             &(rpb.rpb_ctb_off), CTB_ADDR - HWRPB_ADDR);  
                         store_64bit_word_in_host(cpu, (unsigned char *)  
                             &(rpb.rpb_crb_off), CRB_ADDR - HWRPB_ADDR);  
   
                         /*  CTB: Console Terminal Block  */  
                         memset(&ctb, 0, sizeof(struct ctb));  
                         store_64bit_word_in_host(cpu, (unsigned char *)  
                             &(ctb.ctb_term_type), machine->use_x11?  
                             CTB_GRAPHICS : CTB_PRINTERPORT);  
   
                         /*  CRB: Console Routine Block  */  
                         memset(&crb, 0, sizeof(struct crb));  
                         store_64bit_word_in_host(cpu, (unsigned char *)  
                             &(crb.crb_v_dispatch), CRB_ADDR - 0x100);  
                         store_64bit_word(cpu, CRB_ADDR - 0x100 + 8, 0x10000);  
   
                         /*  
                          *  Place a special "hack" palcode call at 0x10000:  
                          *  (Hopefully nothing else will be there.)  
                          */  
                         store_32bit_word(cpu, 0x10000, 0x3fffffe);  
   
                         store_buf(cpu, HWRPB_ADDR, (char *)&rpb, sizeof(struct rpb));  
                         store_buf(cpu, CTB_ADDR, (char *)&ctb, sizeof(struct ctb));  
                         store_buf(cpu, CRB_ADDR, (char *)&crb, sizeof(struct crb));  
                 }  
491    
492                  switch (machine->machine_subtype) {          me = first_machine_entry;
493                  case ST_DEC_3000_300:          while (me != NULL) {
494                          machine->machine_name = "DEC 3000/300";                  if (machine->machine_type == me->machine_type &&
495                        me->setup != NULL) {
496                            me->setup(machine, cpu);
497                          break;                          break;
                 default:fatal("Unimplemented Alpha machine type %i\n",  
                             machine->machine_subtype);  
                         exit(1);  
                 }  
   
                 break;  
 #endif  /*  ENABLE_ALPHA  */  
   
 #ifdef ENABLE_ARM  
         case MACHINE_BAREARM:  
                 machine->machine_name = "\"Bare\" ARM machine";  
                 break;  
   
         case MACHINE_TESTARM:  
                 machine->machine_name = "ARM test machine";  
   
                 snprintf(tmpstr, sizeof(tmpstr), "cons addr=0x%llx irq=0",  
                     (long long)DEV_CONS_ADDRESS);  
                 cons_data = device_add(machine, tmpstr);  
                 machine->main_console_handle = cons_data->console_handle;  
   
                 snprintf(tmpstr, sizeof(tmpstr), "mp addr=0x%llx",  
                     (long long)DEV_MP_ADDRESS);  
                 device_add(machine, tmpstr);  
   
                 fb = dev_fb_init(machine, mem, DEV_FB_ADDRESS, VFB_GENERIC,  
                     640,480, 640,480, 24, "testarm generic");  
   
                 snprintf(tmpstr, sizeof(tmpstr), "disk addr=0x%llx",  
                     (long long)DEV_DISK_ADDRESS);  
                 device_add(machine, tmpstr);  
   
                 snprintf(tmpstr, sizeof(tmpstr), "ether addr=0x%llx irq=0",  
                     (long long)DEV_ETHER_ADDRESS);  
                 device_add(machine, tmpstr);  
   
                 /*  Place a tiny stub at end of memory, and set the link  
                     register to point to it. This stub halts the machine.  */  
                 cpu->cd.arm.r[ARM_SP] =  
                     machine->physical_ram_in_mb * 1048576 - 4096;  
                 cpu->cd.arm.r[ARM_LR] = cpu->cd.arm.r[ARM_SP] + 32;  
                 store_32bit_word(cpu, cpu->cd.arm.r[ARM_LR] + 0, 0xe3a00201);  
                 store_32bit_word(cpu, cpu->cd.arm.r[ARM_LR] + 4, 0xe5c00010);  
                 store_32bit_word(cpu, cpu->cd.arm.r[ARM_LR] + 8,  
                     0xeafffffe);  
                 break;  
 #endif  /*  ENABLE_ARM  */  
   
 #ifdef ENABLE_IA64  
         case MACHINE_BAREIA64:  
                 machine->machine_name = "\"Bare\" IA64 machine";  
                 break;  
   
         case MACHINE_TESTIA64:  
                 machine->machine_name = "IA64 test machine";  
   
                 snprintf(tmpstr, sizeof(tmpstr), "cons addr=0x%llx irq=0",  
                     (long long)DEV_CONS_ADDRESS);  
                 cons_data = device_add(machine, tmpstr);  
                 machine->main_console_handle = cons_data->console_handle;  
   
                 snprintf(tmpstr, sizeof(tmpstr), "mp addr=0x%llx",  
                     (long long)DEV_MP_ADDRESS);  
                 device_add(machine, tmpstr);  
   
                 fb = dev_fb_init(machine, mem, DEV_FB_ADDRESS, VFB_GENERIC,  
                     640,480, 640,480, 24, "testia64 generic");  
   
                 snprintf(tmpstr, sizeof(tmpstr), "disk addr=0x%llx",  
                     (long long)DEV_DISK_ADDRESS);  
                 device_add(machine, tmpstr);  
   
                 snprintf(tmpstr, sizeof(tmpstr), "ether addr=0x%llx irq=0",  
                     (long long)DEV_ETHER_ADDRESS);  
                 device_add(machine, tmpstr);  
   
                 break;  
 #endif  /*  ENABLE_IA64  */  
   
 #ifdef ENABLE_M68K  
         case MACHINE_BAREM68K:  
                 machine->machine_name = "\"Bare\" M68K machine";  
                 break;  
   
         case MACHINE_TESTM68K:  
                 machine->machine_name = "M68K test machine";  
   
                 snprintf(tmpstr, sizeof(tmpstr), "cons addr=0x%llx irq=0",  
                     (long long)DEV_CONS_ADDRESS);  
                 cons_data = device_add(machine, tmpstr);  
                 machine->main_console_handle = cons_data->console_handle;  
   
                 snprintf(tmpstr, sizeof(tmpstr), "mp addr=0x%llx",  
                     (long long)DEV_MP_ADDRESS);  
                 device_add(machine, tmpstr);  
   
                 fb = dev_fb_init(machine, mem, DEV_FB_ADDRESS, VFB_GENERIC,  
                     640,480, 640,480, 24, "testm68k generic");  
   
                 snprintf(tmpstr, sizeof(tmpstr), "disk addr=0x%llx",  
                     (long long)DEV_DISK_ADDRESS);  
                 device_add(machine, tmpstr);  
   
                 snprintf(tmpstr, sizeof(tmpstr), "ether addr=0x%llx irq=0",  
                     (long long)DEV_ETHER_ADDRESS);  
                 device_add(machine, tmpstr);  
   
                 break;  
 #endif  /*  ENABLE_M68K  */  
   
 #ifdef ENABLE_X86  
         case MACHINE_BAREX86:  
                 machine->machine_name = "\"Bare\" x86 machine";  
                 break;  
   
         case MACHINE_X86:  
                 if (machine->machine_subtype == MACHINE_X86_XT)  
                         machine->machine_name = "PC XT";  
                 else  
                         machine->machine_name = "Generic x86 PC";  
   
                 /*  Interrupt controllers:  */  
                 snprintf(tmpstr, sizeof(tmpstr), "8259 irq=16 addr=0x%llx",  
                     (long long)(X86_IO_BASE + 0x20));  
                 machine->md.pc.pic1 = device_add(machine, tmpstr);  
                 if (machine->machine_subtype != MACHINE_X86_XT) {  
                         snprintf(tmpstr, sizeof(tmpstr), "8259 irq=16 addr=0x%llx irq=2",  
                             (long long)(X86_IO_BASE + 0xa0));  
                         machine->md.pc.pic2 = device_add(machine, tmpstr);  
498                  }                  }
499                    me = me->next;
500            }
501    
502                  machine->md_interrupt = x86_pc_interrupt;          if (me == NULL) {
   
                 /*  Timer:  */  
                 snprintf(tmpstr, sizeof(tmpstr), "8253 addr=0x%llx irq=0",  
                     (long long)(X86_IO_BASE + 0x40));  
                 device_add(machine, tmpstr);  
   
                 snprintf(tmpstr, sizeof(tmpstr), "pccmos addr=0x%llx",  
                     (long long)(X86_IO_BASE + 0x70));  
                 device_add(machine, tmpstr);  
   
                 /*  TODO: IRQ when emulating a PC XT?  */  
   
                 /*  IDE controllers:  */  
                 if (diskimage_exist(machine, 0, DISKIMAGE_IDE) ||  
                     diskimage_exist(machine, 1, DISKIMAGE_IDE))  
                         dev_wdc_init(machine, mem, X86_IO_BASE + 0x1f0, 14, 0);  
                 if (diskimage_exist(machine, 2, DISKIMAGE_IDE) ||  
                     diskimage_exist(machine, 3, DISKIMAGE_IDE))  
                         dev_wdc_init(machine, mem, X86_IO_BASE + 0x170, 15, 2);  
   
                 /*  Floppy controller at irq 6  */  
                 snprintf(tmpstr, sizeof(tmpstr), "fdc addr=0x%llx irq=6",  
                     (long long)(X86_IO_BASE + 0x3f0));  
                 device_add(machine, tmpstr);  
   
                 /*  TODO: sound blaster (eventually) at irq 7?  */  
   
                 /*  TODO: parallel port  */  
   
                 /*  Serial ports:  (TODO: 8250 for PC XT?)  */  
   
                 snprintf(tmpstr, sizeof(tmpstr), "ns16550 irq=4 addr=0x%llx name2=com1 in_use=0",  
                     (long long)X86_IO_BASE + 0x3f8);  
                 device_add(machine, tmpstr);  
                 snprintf(tmpstr, sizeof(tmpstr), "ns16550 irq=3 addr=0x%llx name2=com2 in_use=0",  
                     (long long)X86_IO_BASE + 0x2f8);  
                 device_add(machine, tmpstr);  
   
                 /*  VGA + keyboard:  */  
                 dev_vga_init(machine, mem, 0xa0000ULL, X86_IO_BASE + 0x3c0,  
                     "Generic x86 PC");  
                 machine->main_console_handle = dev_pckbc_init(machine,  
                     mem, X86_IO_BASE + 0x60, PCKBC_8042, 1, 12, 1, 1);  
   
                 if (machine->prom_emulation)  
                         pc_bios_init(cpu);  
   
                 if (!machine->use_x11 && !quiet_mode)  
                         fprintf(stderr, "-------------------------------------"  
                             "------------------------------------------\n"  
                             "\n  WARNING! You are emulating a PC without -X. "  
                             "You will miss graphical output!\n\n"  
                             "-------------------------------------"  
                             "------------------------------------------\n");  
                 break;  
 #endif  /*  ENABLE_X86  */  
   
         default:  
503                  fatal("Unknown emulation type %i\n", machine->machine_type);                  fatal("Unknown emulation type %i\n", machine->machine_type);
504                  exit(1);                  exit(1);
505          }          }
# Line 4508  no_arc_prom_emulation:         /*  TODO: ugly, Line 511  no_arc_prom_emulation:         /*  TODO: ugly,
511                  debug(" (%.2f MHz)", (float)machine->emulated_hz / 1000000);                  debug(" (%.2f MHz)", (float)machine->emulated_hz / 1000000);
512          debug("\n");          debug("\n");
513    
514          if (machine->emulated_hz < 1)          if (machine->bootstr != NULL) {
515                  machine->emulated_hz = 1000000;                  debug("bootstring%s: %s", (machine->bootarg!=NULL &&
516                        strlen(machine->bootarg) >= 1)? "(+bootarg)" : "",
517          if (bootstr != NULL) {                      machine->bootstr);
518                  debug("bootstring%s: %s", (bootarg!=NULL &&                  if (machine->bootarg != NULL && strlen(machine->bootarg) >= 1)
519                      strlen(bootarg) >= 1)? "(+bootarg)" : "", bootstr);                          debug(" %s", machine->bootarg);
                 if (bootarg != NULL && strlen(bootarg) >= 1)  
                         debug(" %s", bootarg);  
520                  debug("\n");                  debug("\n");
521          }          }
522  }  }
# Line 4535  void machine_memsize_fix(struct machine Line 536  void machine_memsize_fix(struct machine
536          }          }
537    
538          if (m->physical_ram_in_mb == 0) {          if (m->physical_ram_in_mb == 0) {
539                  switch (m->machine_type) {                  struct machine_entry *me = first_machine_entry;
540                  case MACHINE_PS2:                  while (me != NULL) {
541                          m->physical_ram_in_mb = 32;                          if (m->machine_type == me->machine_type &&
542                          break;                              me->set_default_ram != NULL) {
543                  case MACHINE_SGI:                                  me->set_default_ram(m);
                         m->physical_ram_in_mb = 64;  
                         break;  
                 case MACHINE_HPCMIPS:  
                         /*  Most have 32 MB by default.  */  
                         m->physical_ram_in_mb = 32;  
                         switch (m->machine_subtype) {  
                         case MACHINE_HPCMIPS_CASIO_BE300:  
                                 m->physical_ram_in_mb = 16;  
                                 break;  
                         case MACHINE_HPCMIPS_CASIO_E105:  
                                 m->physical_ram_in_mb = 32;  
                                 break;  
                         case MACHINE_HPCMIPS_AGENDA_VR3:  
                                 m->physical_ram_in_mb = 16;  
544                                  break;                                  break;
545                          }                          }
546                          break;                          me = me->next;
                 case MACHINE_MESHCUBE:  
                         m->physical_ram_in_mb = 64;  
                         break;  
                 case MACHINE_NETGEAR:  
                         m->physical_ram_in_mb = 16;  
                         break;  
                 case MACHINE_EVBMIPS:  
                         m->physical_ram_in_mb = 64;  
                         break;  
                 case MACHINE_PSP:  
                         /*  
                          *  According to  
                          *  http://wiki.ps2dev.org/psp:memory_map:  
                          *      0×08000000 = 8 MB kernel memory  
                          *      0×08800000 = 24 MB user memory  
                          */  
                         m->physical_ram_in_mb = 8 + 24;  
                         break;  
                 case MACHINE_ARC:  
                         switch (m->machine_subtype) {  
                         case MACHINE_ARC_JAZZ_PICA:  
                                 m->physical_ram_in_mb = 64;  
                                 break;  
                         case MACHINE_ARC_JAZZ_M700:  
                                 m->physical_ram_in_mb = 64;  
                                 break;  
                         default:  
                                 m->physical_ram_in_mb = 32;  
                         }  
                         break;  
                 case MACHINE_DEC:  
                         switch (m->machine_subtype) {  
                         case MACHINE_DEC_PMAX_3100:  
                                 m->physical_ram_in_mb = 24;  
                                 break;  
                         default:  
                                 m->physical_ram_in_mb = 32;  
                         }  
                         break;  
                 case MACHINE_ALPHA:  
                         m->physical_ram_in_mb = 64;  
                         break;  
                 case MACHINE_BEBOX:  
                         m->physical_ram_in_mb = 64;  
                         break;  
                 case MACHINE_X86:  
                         if (m->machine_subtype == MACHINE_X86_XT)  
                                 m->physical_ram_in_mb = 1;  
                         break;  
547                  }                  }
548          }          }
549    
550          /*  Special hack for hpcmips machines:  */          /*  Special SGI memory offsets:  (TODO: move this somewhere else)  */
         if (m->machine_type == MACHINE_HPCMIPS) {  
                 m->dbe_on_nonexistant_memaccess = 0;  
         }  
   
         /*  Special SGI memory offsets:  */  
551          if (m->machine_type == MACHINE_SGI) {          if (m->machine_type == MACHINE_SGI) {
552                  switch (m->machine_subtype) {                  switch (m->machine_subtype) {
553                  case 20:                  case 20:
# Line 4638  void machine_memsize_fix(struct machine Line 571  void machine_memsize_fix(struct machine
571  /*  /*
572   *  machine_default_cputype():   *  machine_default_cputype():
573   *   *
574   *  Sets m->cpu_name, if it isn't already set, depending on the machine   *  Sets m->cpu_name, if it isn't already set, depending on the machine type.
  *  type.  
575   */   */
576  void machine_default_cputype(struct machine *m)  void machine_default_cputype(struct machine *m)
577  {  {
578            struct machine_entry *me;
579    
580          if (m == NULL) {          if (m == NULL) {
581                  fatal("machine_default_cputype(): m == NULL?\n");                  fatal("machine_default_cputype(): m == NULL?\n");
582                  exit(1);                  exit(1);
583          }          }
584    
585            /*  Already set? Then return.  */
586          if (m->cpu_name != NULL)          if (m->cpu_name != NULL)
587                  return;                  return;
588    
589          switch (m->machine_type) {          me = first_machine_entry;
590          case MACHINE_BAREMIPS:          while (me != NULL) {
591          case MACHINE_TESTMIPS:                  if (m->machine_type == me->machine_type &&
592                  m->cpu_name = strdup("R4000");                      me->set_default_cpu != NULL) {
593                  break;                          me->set_default_cpu(m);
         case MACHINE_PS2:  
                 m->cpu_name = strdup("R5900");  
                 break;  
         case MACHINE_DEC:  
                 if (m->machine_subtype > 2)  
                         m->cpu_name = strdup("R3000A");  
                 if (m->machine_subtype > 1 && m->cpu_name == NULL)  
                         m->cpu_name = strdup("R3000");  
                 if (m->cpu_name == NULL)  
                         m->cpu_name = strdup("R2000");  
                 break;  
         case MACHINE_SONYNEWS:  
                 m->cpu_name = strdup("R3000");  
                 break;  
         case MACHINE_HPCMIPS:  
                 switch (m->machine_subtype) {  
                 case MACHINE_HPCMIPS_CASIO_BE300:  
                         m->cpu_name = strdup("VR4131");  
                         break;  
                 case MACHINE_HPCMIPS_CASIO_E105:  
                         m->cpu_name = strdup("VR4121");  
                         break;  
                 case MACHINE_HPCMIPS_NEC_MOBILEPRO_770:  
                 case MACHINE_HPCMIPS_NEC_MOBILEPRO_780:  
                 case MACHINE_HPCMIPS_NEC_MOBILEPRO_800:  
                 case MACHINE_HPCMIPS_NEC_MOBILEPRO_880:  
                         m->cpu_name = strdup("VR4121");  
                         break;  
                 case MACHINE_HPCMIPS_AGENDA_VR3:  
                         m->cpu_name = strdup("VR4181");  
                         break;  
                 case MACHINE_HPCMIPS_IBM_WORKPAD_Z50:  
                         m->cpu_name = strdup("VR4121");  
                         break;  
                 default:  
                         printf("Unimplemented HPCMIPS model?\n");  
                         exit(1);  
                 }  
                 break;  
         case MACHINE_COBALT:  
                 m->cpu_name = strdup("RM5200");  
                 break;  
         case MACHINE_MESHCUBE:  
                 m->cpu_name = strdup("R4400");  
                 /*  TODO:  Should be AU1500, but Linux doesn't like  
                     the absence of caches in the emulator  */  
                 break;  
         case MACHINE_NETGEAR:  
                 m->cpu_name = strdup("RC32334");  
                 break;  
         case MACHINE_ARC:  
                 switch (m->machine_subtype) {  
                 case MACHINE_ARC_JAZZ_PICA:  
                         m->cpu_name = strdup("R4000");  
                         break;  
                 default:  
                         m->cpu_name = strdup("R4400");  
                 }  
                 break;  
         case MACHINE_SGI:  
                 if (m->machine_subtype <= 12)  
                         m->cpu_name = strdup("R3000");  
                 if (m->cpu_name == NULL && m->machine_subtype == 35)  
                         m->cpu_name = strdup("R12000");  
                 if (m->cpu_name == NULL && (m->machine_subtype == 25 ||  
                     m->machine_subtype == 27 ||  
                     m->machine_subtype == 28 ||  
                     m->machine_subtype == 30 ||  
                     m->machine_subtype == 32))  
                         m->cpu_name = strdup("R10000");  
                 if (m->cpu_name == NULL && (m->machine_subtype == 21 ||  
                     m->machine_subtype == 26))  
                         m->cpu_name = strdup("R8000");  
                 if (m->cpu_name == NULL && m->machine_subtype == 24)  
                         m->cpu_name = strdup("R5000");  
   
                 /*  Other SGIs should probably work with  
                     R4000, R4400 or R5000 or similar:  */  
                 if (m->cpu_name == NULL)  
                         m->cpu_name = strdup("R4400");  
                 break;  
         case MACHINE_EVBMIPS:  
                 switch (m->machine_subtype) {  
                 case MACHINE_EVBMIPS_MALTA:  
                 case MACHINE_EVBMIPS_MALTA_BE:  
                         m->cpu_name = strdup("5Kc");  
                         break;  
                 case MACHINE_EVBMIPS_PB1000:  
                         m->cpu_name = strdup("AU1000");  
                         break;  
                 default:fatal("Unimpl. evbmips.\n");  
                         exit(1);  
                 }  
                 break;  
         case MACHINE_PSP:  
                 m->cpu_name = strdup("Allegrex");  
                 break;  
   
         /*  PowerPC:  */  
         case MACHINE_BAREPPC:  
         case MACHINE_TESTPPC:  
                 m->cpu_name = strdup("PPC970");  
                 break;  
         case MACHINE_WALNUT:  
                 /*  For NetBSD/evbppc.  */  
                 m->cpu_name = strdup("PPC405GP");  
                 break;  
         case MACHINE_PMPPC:  
                 /*  For NetBSD/pmppc.  */  
                 m->cpu_name = strdup("PPC750");  
                 break;  
         case MACHINE_SANDPOINT:  
                 /*  
                  *  For NetBSD/sandpoint. According to NetBSD's page:  
                  *  
                  *  "Unity" module has an MPC8240.  
                  *  "Altimus" module has an MPC7400 (G4) or an MPC107.  
                  */  
                 m->cpu_name = strdup("MPC7400");  
                 break;  
         case MACHINE_BEBOX:  
                 /*  For NetBSD/bebox. Dual 133 MHz 603e CPUs, for example.  */  
                 m->cpu_name = strdup("PPC603e");  
                 break;  
         case MACHINE_PREP:  
                 /*  For NetBSD/prep. TODO  */  
                 m->cpu_name = strdup("PPC603e");  
                 break;  
         case MACHINE_MACPPC:  
                 switch (m->machine_subtype) {  
                 case MACHINE_MACPPC_G4:  
                         m->cpu_name = strdup("G4e");  
                         break;  
                 case MACHINE_MACPPC_G5:  
                         m->cpu_name = strdup("PPC970");  
594                          break;                          break;
595                  }                  }
596                  break;                  me = me->next;
         case MACHINE_DB64360:  
                 m->cpu_name = strdup("PPC750");  
                 break;  
   
         /*  SPARC:  */  
         case MACHINE_BARESPARC:  
         case MACHINE_TESTSPARC:  
         case MACHINE_ULTRA1:  
                 m->cpu_name = strdup("SPARCv9");  
                 break;  
   
         /*  Alpha:  */  
         case MACHINE_BAREALPHA:  
         case MACHINE_TESTALPHA:  
         case MACHINE_ALPHA:  
                 m->cpu_name = strdup("Alpha");  
                 break;  
   
         /*  ARM:  */  
         case MACHINE_BAREARM:  
         case MACHINE_TESTARM:  
                 m->cpu_name = strdup("ARM");  
                 break;  
   
         /*  IA64:  */  
         case MACHINE_BAREIA64:  
         case MACHINE_TESTIA64:  
                 m->cpu_name = strdup("IA64");  
                 break;  
   
         /*  M68K:  */  
         case MACHINE_BAREM68K:  
         case MACHINE_TESTM68K:  
                 m->cpu_name = strdup("68020");  
                 break;  
   
         /*  x86:  */  
         case MACHINE_BAREX86:  
         case MACHINE_X86:  
                 if (m->machine_subtype == MACHINE_X86_XT)  
                         m->cpu_name = strdup("8086");  
                 else  
                         m->cpu_name = strdup("AMD64");  
                 break;  
597          }          }
598    
599          if (m->cpu_name == NULL) {          if (m->cpu_name == NULL) {
# Line 4849  void machine_default_cputype(struct mach Line 605  void machine_default_cputype(struct mach
605  }  }
606    
607    
608    /*****************************************************************************/
609    
610    
611  /*  /*
612   *  machine_dumpinfo():   *  machine_run():
613   *   *
614   *  Dumps info about a machine in some kind of readable format. (Used by   *  Run one or more instructions on all CPUs in this machine. (Usually,
615   *  the 'machine' debugger command.)   *  around N_SAFE_DYNTRANS_LIMIT instructions will be run by the dyntrans
616     *  system.)
617     *
618     *  Return value is 1 if any CPU in this machine is still running,
619     *  or 0 if all CPUs are stopped.
620   */   */
621  void machine_dumpinfo(struct machine *m)  int machine_run(struct machine *machine)
622  {  {
623          int i;          struct cpu **cpus = machine->cpus;
624            int ncpus = machine->ncpus, cpu0instrs = 0, i, te;
         debug("serial nr: %i", m->serial_nr);  
         if (m->nr_of_nics > 0)  
                 debug("  (nr of nics: %i)", m->nr_of_nics);  
         debug("\n");  
   
         debug("memory: %i MB", m->physical_ram_in_mb);  
         if (m->memory_offset_in_mb != 0)  
                 debug(" (offset by %i MB)", m->memory_offset_in_mb);  
         if (m->random_mem_contents)  
                 debug(", randomized contents");  
         if (m->dbe_on_nonexistant_memaccess)  
                 debug(", dbe_on_nonexistant_memaccess");  
         debug("\n");  
   
         if (m->single_step_on_bad_addr)  
                 debug("single-step on bad addresses\n");  
625    
626          if (m->arch == ARCH_MIPS) {          for (i=0; i<ncpus; i++) {
627                  if (m->bintrans_enable)                  if (cpus[i]->running) {
628                          debug("bintrans enabled (%i MB cache)\n",                          int instrs_run = cpus[i]->run_instr(cpus[i]);
629                              (int) (m->bintrans_size / 1048576));                          if (i == 0)
630                  else                                  cpu0instrs += instrs_run;
631                          debug("bintrans disabled, other speedtricks %s\n",                  }
                             m->speed_tricks? "enabled" : "disabled");  
632          }          }
633    
634          debug("clock: ");          /*
635          if (m->automatic_clock_adjustment)           *  Hardware 'ticks':  (clocks, interrupt sources...)
636                  debug("adjusted automatically");           *
637          else           *  Here, cpu0instrs is the number of instructions executed on cpu0.
638                  debug("fixed at %i Hz", m->emulated_hz);           *
639          debug("\n");           *  TODO: This should be redesigned into some "mainbus" stuff instead!
640             */
         if (!m->prom_emulation)  
                 debug("PROM emulation disabled\n");  
   
         for (i=0; i<m->ncpus; i++)  
                 cpu_dumpinfo(m, m->cpus[i]);  
   
         if (m->ncpus > 1)  
                 debug("Bootstrap cpu is nr %i\n", m->bootstrap_cpu);  
   
         if (m->slow_serial_interrupts_hack_for_linux)  
                 debug("Using slow_serial_interrupts_hack_for_linux\n");  
641    
642          if (m->use_x11) {          for (te=0; te<machine->tick_functions.n_entries; te++) {
643                  debug("Using X11");                  machine->tick_functions.ticks_till_next[te] -= cpu0instrs;
644                  if (m->x11_scaledown > 1)                  if (machine->tick_functions.ticks_till_next[te] <= 0) {
645                          debug(", scaledown %i", m->x11_scaledown);                          while (machine->tick_functions.ticks_till_next[te]<=0) {
646                  if (m->x11_n_display_names > 0) {                                  machine->tick_functions.ticks_till_next[te] +=
647                          for (i=0; i<m->x11_n_display_names; i++) {                                      machine->tick_functions.
648                                  debug(i? ", " : " (");                                      ticks_reset_value[te];
                                 debug("\"%s\"", m->x11_display_names[i]);  
649                          }                          }
650                          debug(")");  
651                            machine->tick_functions.f[te](cpus[0],
652                                machine->tick_functions.extra[te]);
653                  }                  }
                 debug("\n");  
654          }          }
655    
656          diskimage_dump_info(m);          /*  Is any CPU still alive?  */
657            for (i=0; i<ncpus; i++)
658                    if (cpus[i]->running)
659                            return 1;
660    
661          if (m->force_netboot)          return 0;
                 debug("Forced netboot\n");  
662  }  }
663    
664    
665    /*****************************************************************************/
666    
667    
668  /*  /*
669   *  machine_entry_new():   *  machine_entry_new():
670   *   *
671   *  This function creates a new machine_entry struct, and fills it with some   *  This function creates a new machine_entry struct, and fills it with some
672   *  valid data; it is up to the caller to add additional data that weren't   *  valid data; it is up to the caller to add additional data that weren't
673   *  passed as arguments to this function.   *  passed as arguments to this function, such as alias names and machine
674   *   *  subtypes.
  *  For internal use.  
675   */   */
676  static struct machine_entry *machine_entry_new(const char *name,  struct machine_entry *machine_entry_new(const char *name, int arch,
677          int arch, int oldstyle_type, int n_aliases, int n_subtypes)          int oldstyle_type)
678  {  {
679          struct machine_entry *me;          struct machine_entry *me;
680    
681          me = malloc(sizeof(struct machine_entry));          CHECK_ALLOCATION(me = malloc(sizeof(struct machine_entry)));
         if (me == NULL) {  
                 fprintf(stderr, "machine_entry_new(): out of memory (1)\n");  
                 exit(1);  
         }  
   
682          memset(me, 0, sizeof(struct machine_entry));          memset(me, 0, sizeof(struct machine_entry));
683    
684          me->name = name;          me->name = name;
685          me->arch = arch;          me->arch = arch;
686          me->machine_type = oldstyle_type;          me->machine_type = oldstyle_type;
687          me->n_aliases = n_aliases;          me->n_aliases = 0;
688          me->aliases = malloc(sizeof(char *) * n_aliases);          me->aliases = NULL;
689          if (me->aliases == NULL) {          me->n_subtypes = 0;
690                  fprintf(stderr, "machine_entry_new(): out of memory (2)\n");          me->setup = NULL;
                 exit(1);  
         }  
         me->n_subtypes = n_subtypes;  
   
         if (n_subtypes > 0) {  
                 me->subtype = malloc(sizeof(struct machine_entry_subtype *) *  
                     n_subtypes);  
                 if (me->subtype == NULL) {  
                         fprintf(stderr, "machine_entry_new(): out of "  
                             "memory (3)\n");  
                         exit(1);  
                 }  
         }  
691    
692          return me;          return me;
693  }  }
694    
695    
696  /*  /*
697   *  machine_entry_subtype_new():   *  machine_entry_add_alias():
698     *
699     *  This function adds an "alias" to a machine entry.
700     */
701    void machine_entry_add_alias(struct machine_entry *me, const char *name)
702    {
703            me->n_aliases ++;
704    
705            CHECK_ALLOCATION(me->aliases = realloc(me->aliases,
706                sizeof(char *) * me->n_aliases));
707    
708            me->aliases[me->n_aliases - 1] = (char *) name;
709    }
710    
711    
712    /*
713     *  machine_entry_add_subtype():
714   *   *
715   *  This function creates a new machine_entry_subtype struct, and fills it with   *  This function adds a subtype to a machine entry. The argument list after
716   *  some valid data; it is up to the caller to add additional data that weren't   *  oldstyle_subtype is a list of one or more char *, followed by NULL. E.g.:
  *  passed as arguments to this function.  
717   *   *
718   *  For internal use.   *      machine_entry_add_subtype(me, "Machine X", MACHINE_X,
719     *          "machine-x", "x", NULL);
720   */   */
721  static struct machine_entry_subtype *machine_entry_subtype_new(  void machine_entry_add_subtype(struct machine_entry *me, const char *name,
722          const char *name, int oldstyle_type, int n_aliases)          int oldstyle_subtype, ...)
723  {  {
724            va_list argp;
725          struct machine_entry_subtype *mes;          struct machine_entry_subtype *mes;
726    
727          mes = malloc(sizeof(struct machine_entry_subtype));          /*  Allocate a new subtype struct:  */
728          if (mes == NULL) {          CHECK_ALLOCATION(mes = malloc(sizeof(struct machine_entry_subtype)));
729                  fprintf(stderr, "machine_entry_subtype_new(): out "  
730                      "of memory (1)\n");          /*  Add the subtype to the machine entry:  */
731                  exit(1);          me->n_subtypes ++;
732          }          CHECK_ALLOCATION(me->subtype = realloc(me->subtype, sizeof(struct
733                machine_entry_subtype *) * me->n_subtypes));
734            me->subtype[me->n_subtypes - 1] = mes;
735    
736            /*  Fill the struct with subtype data:  */
737          memset(mes, 0, sizeof(struct machine_entry_subtype));          memset(mes, 0, sizeof(struct machine_entry_subtype));
738          mes->name = name;          mes->name = name;
739          mes->machine_subtype = oldstyle_type;          mes->machine_subtype = oldstyle_subtype;
740          mes->n_aliases = n_aliases;  
741          mes->aliases = malloc(sizeof(char *) * n_aliases);          /*  ... and all aliases:  */
742          if (mes->aliases == NULL) {          mes->n_aliases = 0;
743                  fprintf(stderr, "machine_entry_subtype_new(): "          mes->aliases = NULL;
744                      "out of memory (2)\n");  
745                  exit(1);          va_start(argp, oldstyle_subtype);
746    
747            for (;;) {
748                    char *s = va_arg(argp, char *);
749                    if (s == NULL)
750                            break;
751    
752                    mes->n_aliases ++;
753                    CHECK_ALLOCATION(mes->aliases =
754                        realloc(mes->aliases, sizeof(char *) * mes->n_aliases));
755    
756                    mes->aliases[mes->n_aliases - 1] = s;
757          }          }
758    
759          return mes;          va_end(argp);
760    }
761    
762    
763    /*
764     *  machine_entry_register():
765     *
766     *  Inserts a new machine_entry into the machine entries list.
767     */
768    void machine_entry_register(struct machine_entry *me, int arch)
769    {
770            struct machine_entry *prev, *next;
771    
772            /*  Only insert it if the architecture is implemented in this
773                emulator configuration:  */
774            if (cpu_family_ptr_by_number(arch) == NULL)
775                    return;
776    
777            prev = NULL;
778            next = first_machine_entry;
779    
780            for (;;) {
781                    if (next == NULL)
782                            break;
783                    if (strcasecmp(me->name, next->name) < 0)
784                            break;
785    
786                    prev = next;
787                    next = next->next;
788            }
789    
790            if (prev != NULL)
791                    prev->next = me;
792            else
793                    first_machine_entry = me;
794            me->next = next;
795  }  }
796    
797    
# Line 5017  static struct machine_entry_subtype *mac Line 804  static struct machine_entry_subtype *mac
804  void machine_list_available_types_and_cpus(void)  void machine_list_available_types_and_cpus(void)
805  {  {
806          struct machine_entry *me;          struct machine_entry *me;
807          int iadd = 8;          int iadd = DEBUG_INDENTATION * 2;
808    
809          debug("Available CPU types:\n\n");          debug("Available CPU types:\n\n");
810    
# Line 5037  void machine_list_available_types_and_cp Line 824  void machine_list_available_types_and_cp
824                  fatal("No machines defined!\n");                  fatal("No machines defined!\n");
825    
826          while (me != NULL) {          while (me != NULL) {
827                  int i, j, iadd = 4;                  int i, j, iadd = DEBUG_INDENTATION;
828    
829                  debug("%s", me->name);                  debug("%s [%s] (", me->name,
830                  debug(" (");                      cpu_family_ptr_by_number(me->arch)->name);
831                  for (i=0; i<me->n_aliases; i++)                  for (i=0; i<me->n_aliases; i++)
832                          debug("%s\"%s\"", i? ", " : "", me->aliases[i]);                          debug("%s\"%s\"", i? ", " : "", me->aliases[i]);
833                  debug(")\n");                  debug(")\n");
# Line 5063  void machine_list_available_types_and_cp Line 850  void machine_list_available_types_and_cp
850          debug_indentation(-iadd);          debug_indentation(-iadd);
851    
852          debug("\nMost of the machine types are bogus too. Please read the "          debug("\nMost of the machine types are bogus too. Please read the "
853              "GXemul\ndocumentation for information about which machine"              "GXemul documentation\nfor information about which machine types "
854              " types that actually\nwork. Use the alias when selecting a "                "that actually work. Use the alias\nwhen selecting a machine type "
855              "machine type or subtype, not the\nreal name.\n");              "or subtype, not the real name.\n");
856    
857          debug("\n");          debug("\n");
858    
# Line 5079  void machine_list_available_types_and_cp Line 866  void machine_list_available_types_and_cp
866   *  machine_init():   *  machine_init():
867   *   *
868   *  This function should be called before any other machine_*() function   *  This function should be called before any other machine_*() function
869   *  is used.   *  is used.  automachine_init() registers all machines in src/machines/.
870   */   */
871  void machine_init(void)  void machine_init(void)
872  {  {
873          struct machine_entry *me;          if (first_machine_entry != NULL) {
874                    fatal("machine_init(): already called?\n");
875          /*                  exit(1);
          *  NOTE: This list is in reverse order, so that the  
          *  entries will appear in normal order when listed.  :-)  
          */  
   
         /*  X86 machine:  */  
         me = machine_entry_new("x86-based PC", ARCH_X86,  
             MACHINE_X86, 2, 2);  
         me->aliases[0] = "pc";  
         me->aliases[1] = "x86";  
         me->subtype[0] = machine_entry_subtype_new("Generic PC",  
             MACHINE_X86_GENERIC, 1);  
         me->subtype[0]->aliases[0] = "generic";  
         me->subtype[1] = machine_entry_subtype_new("PC XT", MACHINE_X86_XT, 1);  
         me->subtype[1]->aliases[0] = "xt";  
         if (cpu_family_ptr_by_number(ARCH_X86) != NULL) {  
                 me->next = first_machine_entry; first_machine_entry = me;  
         }  
   
         /*  Walnut: (NetBSD/evbppc)  */  
         me = machine_entry_new("Walnut evaluation board", ARCH_PPC,  
             MACHINE_WALNUT, 2, 0);  
         me->aliases[0] = "walnut";  
         me->aliases[1] = "evbppc";  
         if (cpu_family_ptr_by_number(ARCH_PPC) != NULL) {  
                 me->next = first_machine_entry; first_machine_entry = me;  
         }  
   
         /*  Test-machine for SPARC:  */  
         me = machine_entry_new("Test-machine for SPARC", ARCH_SPARC,  
             MACHINE_TESTSPARC, 1, 0);  
         me->aliases[0] = "testsparc";  
         if (cpu_family_ptr_by_number(ARCH_SPARC) != NULL) {  
                 me->next = first_machine_entry; first_machine_entry = me;  
         }  
   
         /*  Test-machine for PPC:  */  
         me = machine_entry_new("Test-machine for PPC", ARCH_PPC,  
             MACHINE_TESTPPC, 1, 0);  
         me->aliases[0] = "testppc";  
         if (cpu_family_ptr_by_number(ARCH_PPC) != NULL) {  
                 me->next = first_machine_entry; first_machine_entry = me;  
         }  
   
         /*  Test-machine for MIPS:  */  
         me = machine_entry_new("Test-machine for MIPS", ARCH_MIPS,  
             MACHINE_TESTMIPS, 1, 0);  
         me->aliases[0] = "testmips";  
         if (cpu_family_ptr_by_number(ARCH_MIPS) != NULL) {  
                 me->next = first_machine_entry; first_machine_entry = me;  
         }  
   
         /*  Test-machine for M68K:  */  
         me = machine_entry_new("Test-machine for M68K", ARCH_M68K,  
             MACHINE_TESTM68K, 1, 0);  
         me->aliases[0] = "testm68k";  
         if (cpu_family_ptr_by_number(ARCH_M68K) != NULL) {  
                 me->next = first_machine_entry; first_machine_entry = me;  
         }  
   
         /*  Test-machine for IA64:  */  
         me = machine_entry_new("Test-machine for IA64", ARCH_IA64,  
             MACHINE_TESTIA64, 1, 0);  
         me->aliases[0] = "testia64";  
         if (cpu_family_ptr_by_number(ARCH_IA64) != NULL) {  
                 me->next = first_machine_entry; first_machine_entry = me;  
         }  
   
         /*  Test-machine for ARM:  */  
         me = machine_entry_new("Test-machine for ARM", ARCH_ARM,  
             MACHINE_TESTARM, 1, 0);  
         me->aliases[0] = "testarm";  
         if (cpu_family_ptr_by_number(ARCH_ARM) != NULL) {  
                 me->next = first_machine_entry; first_machine_entry = me;  
         }  
   
         /*  Test-machine for Alpha:  */  
         me = machine_entry_new("Test-machine for Alpha", ARCH_ALPHA,  
             MACHINE_TESTALPHA, 1, 0);  
         me->aliases[0] = "testalpha";  
         if (cpu_family_ptr_by_number(ARCH_ALPHA) != NULL) {  
                 me->next = first_machine_entry; first_machine_entry = me;  
         }  
   
         /*  Sun Ultra1:  */  
         me = machine_entry_new("Sun Ultra1", ARCH_SPARC, MACHINE_ULTRA1, 1, 0);  
         me->aliases[0] = "ultra1";  
         if (cpu_family_ptr_by_number(ARCH_SPARC) != NULL) {  
                 me->next = first_machine_entry; first_machine_entry = me;  
         }  
   
         /*  Sony Playstation 2:  */  
         me = machine_entry_new("Sony Playstation 2", ARCH_MIPS,  
             MACHINE_PS2, 2, 0);  
         me->aliases[0] = "playstation2";  
         me->aliases[1] = "ps2";  
         if (cpu_family_ptr_by_number(ARCH_MIPS) != NULL) {  
                 me->next = first_machine_entry; first_machine_entry = me;  
         }  
   
         /*  Sony NeWS:  */  
         me = machine_entry_new("Sony NeWS", ARCH_MIPS,  
             MACHINE_SONYNEWS, 2, 0);  
         me->aliases[0] = "sonynews";  
         me->aliases[1] = "news";  
         if (cpu_family_ptr_by_number(ARCH_MIPS) != NULL) {  
                 me->next = first_machine_entry; first_machine_entry = me;  
         }  
   
         /*  SGI:  */  
         me = machine_entry_new("SGI", ARCH_MIPS, MACHINE_SGI, 2, 10);  
         me->aliases[0] = "silicon graphics";  
         me->aliases[1] = "sgi";  
         me->subtype[0] = machine_entry_subtype_new("IP12", 12, 1);  
         me->subtype[0]->aliases[0] = "ip12";  
         me->subtype[1] = machine_entry_subtype_new("IP19", 19, 1);  
         me->subtype[1]->aliases[0] = "ip19";  
         me->subtype[2] = machine_entry_subtype_new("IP20", 20, 1);  
         me->subtype[2]->aliases[0] = "ip20";  
         me->subtype[3] = machine_entry_subtype_new("IP22", 22, 2);  
         me->subtype[3]->aliases[0] = "ip22";  
         me->subtype[3]->aliases[1] = "indy";  
         me->subtype[4] = machine_entry_subtype_new("IP24", 24, 1);  
         me->subtype[4]->aliases[0] = "ip24";  
         me->subtype[5] = machine_entry_subtype_new("IP27", 27, 3);  
         me->subtype[5]->aliases[0] = "ip27";  
         me->subtype[5]->aliases[1] = "origin 200";  
         me->subtype[5]->aliases[2] = "origin 2000";  
         me->subtype[6] = machine_entry_subtype_new("IP28", 28, 1);  
         me->subtype[6]->aliases[0] = "ip28";  
         me->subtype[7] = machine_entry_subtype_new("IP30", 30, 2);  
         me->subtype[7]->aliases[0] = "ip30";  
         me->subtype[7]->aliases[1] = "octane";  
         me->subtype[8] = machine_entry_subtype_new("IP32", 32, 2);  
         me->subtype[8]->aliases[0] = "ip32";  
         me->subtype[8]->aliases[1] = "o2";  
         me->subtype[9] = machine_entry_subtype_new("IP35", 35, 1);  
         me->subtype[9]->aliases[0] = "ip35";  
         if (cpu_family_ptr_by_number(ARCH_MIPS) != NULL) {  
                 me->next = first_machine_entry; first_machine_entry = me;  
         }  
   
         /*  PReP: (NetBSD/prep etc.)  */  
         me = machine_entry_new("PowerPC Reference Platform", ARCH_PPC,  
             MACHINE_PREP, 1, 0);  
         me->aliases[0] = "prep";  
         if (cpu_family_ptr_by_number(ARCH_PPC) != NULL) {  
                 me->next = first_machine_entry; first_machine_entry = me;  
         }  
   
         /*  Playstation Portable:  */  
         me = machine_entry_new("Playstation Portable", ARCH_MIPS,  
             MACHINE_PSP, 1, 0);  
         me->aliases[0] = "psp";  
         if (cpu_family_ptr_by_number(ARCH_MIPS) != NULL) {  
                 me->next = first_machine_entry; first_machine_entry = me;  
         }  
   
         /*  NetGear:  */  
         me = machine_entry_new("NetGear WG602", ARCH_MIPS,  
             MACHINE_NETGEAR, 2, 0);  
         me->aliases[0] = "netgear";  
         me->aliases[1] = "wg602";  
         if (cpu_family_ptr_by_number(ARCH_MIPS) != NULL) {  
                 me->next = first_machine_entry; first_machine_entry = me;  
         }  
   
         /*  Motorola Sandpoint: (NetBSD/sandpoint)  */  
         me = machine_entry_new("Motorola Sandpoint",  
             ARCH_PPC, MACHINE_SANDPOINT, 1, 0);  
         me->aliases[0] = "sandpoint";  
         if (cpu_family_ptr_by_number(ARCH_PPC) != NULL) {  
                 me->next = first_machine_entry; first_machine_entry = me;  
         }  
   
         /*  Meshcube:  */  
         me = machine_entry_new("Meshcube", ARCH_MIPS, MACHINE_MESHCUBE, 1, 0);  
         me->aliases[0] = "meshcube";  
         if (cpu_family_ptr_by_number(ARCH_MIPS) != NULL) {  
                 me->next = first_machine_entry; first_machine_entry = me;  
         }  
   
         /*  Macintosh (PPC):  */  
         me = machine_entry_new("Macintosh (PPC)", ARCH_PPC,  
             MACHINE_MACPPC, 1, 2);  
         me->aliases[0] = "macppc";  
         me->subtype[0] = machine_entry_subtype_new("MacPPC G4",  
             MACHINE_MACPPC_G4, 1);  
         me->subtype[0]->aliases[0] = "g4";  
         me->subtype[1] = machine_entry_subtype_new("MacPPC G5",  
             MACHINE_MACPPC_G5, 1);  
         me->subtype[1]->aliases[0] = "g5";  
         if (cpu_family_ptr_by_number(ARCH_PPC) != NULL) {  
                 me->next = first_machine_entry; first_machine_entry = me;  
         }  
   
         /*  HPCmips:  */  
         me = machine_entry_new("Handheld MIPS (HPCmips)",  
             ARCH_MIPS, MACHINE_HPCMIPS, 1, 8);  
         me->aliases[0] = "hpcmips";  
         me->subtype[0] = machine_entry_subtype_new(  
             "Casio Cassiopeia BE-300", MACHINE_HPCMIPS_CASIO_BE300, 2);  
         me->subtype[0]->aliases[0] = "be-300";  
         me->subtype[0]->aliases[1] = "be300";  
         me->subtype[1] = machine_entry_subtype_new(  
             "Casio Cassiopeia E-105", MACHINE_HPCMIPS_CASIO_E105, 2);  
         me->subtype[1]->aliases[0] = "e-105";  
         me->subtype[1]->aliases[1] = "e105";  
         me->subtype[2] = machine_entry_subtype_new(  
             "Agenda VR3", MACHINE_HPCMIPS_AGENDA_VR3, 2);  
         me->subtype[2]->aliases[0] = "agenda";  
         me->subtype[2]->aliases[1] = "vr3";  
         me->subtype[3] = machine_entry_subtype_new(  
             "IBM WorkPad Z50", MACHINE_HPCMIPS_IBM_WORKPAD_Z50, 2);  
         me->subtype[3]->aliases[0] = "workpad";  
         me->subtype[3]->aliases[1] = "z50";  
         me->subtype[4] = machine_entry_subtype_new(  
             "NEC MobilePro 770", MACHINE_HPCMIPS_NEC_MOBILEPRO_770, 1);  
         me->subtype[4]->aliases[0] = "mobilepro770";  
         me->subtype[5] = machine_entry_subtype_new(  
             "NEC MobilePro 780", MACHINE_HPCMIPS_NEC_MOBILEPRO_780, 1);  
         me->subtype[5]->aliases[0] = "mobilepro780";  
         me->subtype[6] = machine_entry_subtype_new(  
             "NEC MobilePro 800", MACHINE_HPCMIPS_NEC_MOBILEPRO_800, 1);  
         me->subtype[6]->aliases[0] = "mobilepro800";  
         me->subtype[7] = machine_entry_subtype_new(  
             "NEC MobilePro 880", MACHINE_HPCMIPS_NEC_MOBILEPRO_880, 1);  
         me->subtype[7]->aliases[0] = "mobilepro880";  
         if (cpu_family_ptr_by_number(ARCH_MIPS) != NULL) {  
                 me->next = first_machine_entry; first_machine_entry = me;  
         }  
   
         /*  Generic "bare" X86 machine:  */  
         me = machine_entry_new("Generic \"bare\" X86 machine", ARCH_X86,  
             MACHINE_BAREX86, 1, 0);  
         me->aliases[0] = "barex86";  
         if (cpu_family_ptr_by_number(ARCH_X86) != NULL) {  
                 me->next = first_machine_entry; first_machine_entry = me;  
         }  
   
         /*  Generic "bare" SPARC machine:  */  
         me = machine_entry_new("Generic \"bare\" SPARC machine", ARCH_SPARC,  
             MACHINE_BARESPARC, 1, 0);  
         me->aliases[0] = "baresparc";  
         if (cpu_family_ptr_by_number(ARCH_SPARC) != NULL) {  
                 me->next = first_machine_entry; first_machine_entry = me;  
         }  
   
         /*  Generic "bare" PPC machine:  */  
         me = machine_entry_new("Generic \"bare\" PPC machine", ARCH_PPC,  
             MACHINE_BAREPPC, 1, 0);  
         me->aliases[0] = "bareppc";  
         if (cpu_family_ptr_by_number(ARCH_PPC) != NULL) {  
                 me->next = first_machine_entry; first_machine_entry = me;  
         }  
   
         /*  Generic "bare" MIPS machine:  */  
         me = machine_entry_new("Generic \"bare\" MIPS machine", ARCH_MIPS,  
             MACHINE_BAREMIPS, 1, 0);  
         me->aliases[0] = "baremips";  
         if (cpu_family_ptr_by_number(ARCH_MIPS) != NULL) {  
                 me->next = first_machine_entry; first_machine_entry = me;  
         }  
   
         /*  Generic "bare" M68K machine:  */  
         me = machine_entry_new("Generic \"bare\" M68K machine", ARCH_M68K,  
             MACHINE_BAREM68K, 1, 0);  
         me->aliases[0] = "barem68k";  
         if (cpu_family_ptr_by_number(ARCH_M68K) != NULL) {  
                 me->next = first_machine_entry; first_machine_entry = me;  
         }  
   
         /*  Generic "bare" IA64 machine:  */  
         me = machine_entry_new("Generic \"bare\" IA64 machine", ARCH_IA64,  
             MACHINE_BAREIA64, 1, 0);  
         me->aliases[0] = "bareia64";  
         if (cpu_family_ptr_by_number(ARCH_IA64) != NULL) {  
                 me->next = first_machine_entry; first_machine_entry = me;  
         }  
   
         /*  Generic "bare" ARM machine:  */  
         me = machine_entry_new("Generic \"bare\" ARM machine", ARCH_ARM,  
             MACHINE_BAREARM, 1, 0);  
         me->aliases[0] = "barearm";  
         if (cpu_family_ptr_by_number(ARCH_ARM) != NULL) {  
                 me->next = first_machine_entry; first_machine_entry = me;  
         }  
   
         /*  Generic "bare" Alpha machine:  */  
         me = machine_entry_new("Generic \"bare\" Alpha machine", ARCH_ALPHA,  
             MACHINE_BAREALPHA, 1, 0);  
         me->aliases[0] = "barealpha";  
         if (cpu_family_ptr_by_number(ARCH_ALPHA) != NULL) {  
                 me->next = first_machine_entry; first_machine_entry = me;  
         }  
   
         /*  Evaluation Boards (MALTA etc):  */  
         me = machine_entry_new("Evaluation boards (evbmips)", ARCH_MIPS,  
             MACHINE_EVBMIPS, 1, 3);  
         me->aliases[0] = "evbmips";  
         me->subtype[0] = machine_entry_subtype_new("Malta",  
             MACHINE_EVBMIPS_MALTA, 1);  
         me->subtype[0]->aliases[0] = "malta";  
         me->subtype[1] = machine_entry_subtype_new("Malta (Big-Endian)",  
             MACHINE_EVBMIPS_MALTA_BE, 1);  
         me->subtype[1]->aliases[0] = "maltabe";  
         me->subtype[2] = machine_entry_subtype_new("PB1000",  
             MACHINE_EVBMIPS_PB1000, 1);  
         me->subtype[2]->aliases[0] = "pb1000";  
         if (cpu_family_ptr_by_number(ARCH_MIPS) != NULL) {  
                 me->next = first_machine_entry; first_machine_entry = me;  
         }  
   
         /*  DECstation:  */  
         me = machine_entry_new("DECstation/DECsystem",  
             ARCH_MIPS, MACHINE_DEC, 3, 9);  
         me->aliases[0] = "decstation";  
         me->aliases[1] = "decsystem";  
         me->aliases[2] = "dec";  
         me->subtype[0] = machine_entry_subtype_new(  
             "DECstation 3100 (PMAX)", MACHINE_DEC_PMAX_3100, 3);  
         me->subtype[0]->aliases[0] = "pmax";  
         me->subtype[0]->aliases[1] = "3100";  
         me->subtype[0]->aliases[2] = "2100";  
   
         me->subtype[1] = machine_entry_subtype_new(  
             "DECstation 5000/200 (3MAX)", MACHINE_DEC_3MAX_5000, 2);  
         me->subtype[1]->aliases[0] = "3max";  
         me->subtype[1]->aliases[1] = "5000/200";  
   
         me->subtype[2] = machine_entry_subtype_new(  
             "DECstation 5000/1xx (3MIN)", MACHINE_DEC_3MIN_5000, 2);  
         me->subtype[2]->aliases[0] = "3min";  
         me->subtype[2]->aliases[1] = "5000/1xx";  
   
         me->subtype[3] = machine_entry_subtype_new(  
             "DECstation 5000 (3MAXPLUS)", MACHINE_DEC_3MAXPLUS_5000, 2);  
         me->subtype[3]->aliases[0] = "3maxplus";  
         me->subtype[3]->aliases[1] = "3max+";  
   
         me->subtype[4] = machine_entry_subtype_new(  
             "DECsystem 58x0", MACHINE_DEC_5800, 2);  
         me->subtype[4]->aliases[0] = "5800";  
         me->subtype[4]->aliases[1] = "58x0";  
   
         me->subtype[5] = machine_entry_subtype_new(  
             "DECsystem 5400", MACHINE_DEC_5400, 1);  
         me->subtype[5]->aliases[0] = "5400";  
   
         me->subtype[6] = machine_entry_subtype_new(  
             "DECstation Maxine (5000)", MACHINE_DEC_MAXINE_5000, 1);  
         me->subtype[6]->aliases[0] = "maxine";  
   
         me->subtype[7] = machine_entry_subtype_new(  
             "DECsystem 5500", MACHINE_DEC_5500, 1);  
         me->subtype[7]->aliases[0] = "5500";  
   
         me->subtype[8] = machine_entry_subtype_new(  
             "DECstation MipsMate (5100)", MACHINE_DEC_MIPSMATE_5100, 2);  
         me->subtype[8]->aliases[0] = "5100";  
         me->subtype[8]->aliases[1] = "mipsmate";  
   
         if (cpu_family_ptr_by_number(ARCH_MIPS) != NULL) {  
                 me->next = first_machine_entry; first_machine_entry = me;  
         }  
   
         /*  DB64360: (for playing with PMON for PPC)  */  
         me = machine_entry_new("DB64360", ARCH_PPC, MACHINE_DB64360, 1, 0);  
         me->aliases[0] = "db64360";  
         if (cpu_family_ptr_by_number(ARCH_PPC) != NULL) {  
                 me->next = first_machine_entry; first_machine_entry = me;  
         }  
   
         /*  Cobalt:  */  
         me = machine_entry_new("Cobalt", ARCH_MIPS, MACHINE_COBALT, 1, 0);  
         me->aliases[0] = "cobalt";  
         if (cpu_family_ptr_by_number(ARCH_MIPS) != NULL) {  
                 me->next = first_machine_entry; first_machine_entry = me;  
         }  
   
         /*  BeBox: (NetBSD/bebox)  */  
         me = machine_entry_new("BeBox", ARCH_PPC, MACHINE_BEBOX, 1, 0);  
         me->aliases[0] = "bebox";  
         if (cpu_family_ptr_by_number(ARCH_PPC) != NULL) {  
                 me->next = first_machine_entry; first_machine_entry = me;  
         }  
   
         /*  Artesyn's PM/PPC board: (NetBSD/pmppc)  */  
         me = machine_entry_new("Artesyn's PM/PPC board", ARCH_PPC,  
             MACHINE_PMPPC, 1, 0);  
         me->aliases[0] = "pmppc";  
         if (cpu_family_ptr_by_number(ARCH_PPC) != NULL) {  
                 me->next = first_machine_entry; first_machine_entry = me;  
         }  
   
         /*  ARC:  */  
         me = machine_entry_new("ARC", ARCH_MIPS, MACHINE_ARC, 1, 8);  
         me->aliases[0] = "arc";  
   
         me->subtype[0] = machine_entry_subtype_new(  
             "Acer PICA-61", MACHINE_ARC_JAZZ_PICA, 3);  
         me->subtype[0]->aliases[0] = "pica-61";  
         me->subtype[0]->aliases[1] = "acer pica";  
         me->subtype[0]->aliases[2] = "pica";  
   
         me->subtype[1] = machine_entry_subtype_new(  
             "Deskstation Tyne", MACHINE_ARC_DESKTECH_TYNE, 3);  
         me->subtype[1]->aliases[0] = "deskstation tyne";  
         me->subtype[1]->aliases[1] = "desktech";  
         me->subtype[1]->aliases[2] = "tyne";  
   
         me->subtype[2] = machine_entry_subtype_new(  
             "Jazz Magnum", MACHINE_ARC_JAZZ_MAGNUM, 2);  
         me->subtype[2]->aliases[0] = "magnum";  
         me->subtype[2]->aliases[1] = "jazz magnum";  
   
         me->subtype[3] = machine_entry_subtype_new(  
             "NEC-R94", MACHINE_ARC_NEC_R94, 2);  
         me->subtype[3]->aliases[0] = "nec-r94";  
         me->subtype[3]->aliases[1] = "r94";  
   
         me->subtype[4] = machine_entry_subtype_new(  
             "NEC-RD94", MACHINE_ARC_NEC_RD94, 2);  
         me->subtype[4]->aliases[0] = "nec-rd94";  
         me->subtype[4]->aliases[1] = "rd94";  
   
         me->subtype[5] = machine_entry_subtype_new(  
             "NEC-R96", MACHINE_ARC_NEC_R96, 2);  
         me->subtype[5]->aliases[0] = "nec-r96";  
         me->subtype[5]->aliases[1] = "r96";  
   
         me->subtype[6] = machine_entry_subtype_new(  
             "NEC-R98", MACHINE_ARC_NEC_R98, 2);  
         me->subtype[6]->aliases[0] = "nec-r98";  
         me->subtype[6]->aliases[1] = "r98";  
   
         me->subtype[7] = machine_entry_subtype_new(  
             "Olivetti M700", MACHINE_ARC_JAZZ_M700, 2);  
         me->subtype[7]->aliases[0] = "olivetti";  
         me->subtype[7]->aliases[1] = "m700";  
   
         if (cpu_family_ptr_by_number(ARCH_MIPS) != NULL) {  
                 me->next = first_machine_entry; first_machine_entry = me;  
876          }          }
877    
878          /*  Alpha:  */          automachine_init();
         me = machine_entry_new("Alpha", ARCH_ALPHA, MACHINE_ALPHA, 1, 1);  
         me->aliases[0] = "alpha";  
         me->subtype[0] = machine_entry_subtype_new(  
             "DEC 3000/300", ST_DEC_3000_300, 1);  
         me->subtype[0]->aliases[0] = "3000/300";  
         if (cpu_family_ptr_by_number(ARCH_ALPHA) != NULL) {  
                 me->next = first_machine_entry; first_machine_entry = me;  
         }  
879  }  }
880    
Legend:
Removed from v.12  
changed lines
  Added in v.42
  ViewVC Help
Powered by ViewVC 1.1.26