1 /* $NetBSD: machdep.c,v 1.16 2023/01/15 06:19:46 tsutsui Exp $ */
2
3 /*
4 * Copyright (c) 1988 University of Utah.
5 * Copyright (c) 1982, 1986, 1990, 1993
6 * The Regents of the University of California. All rights reserved.
7 *
8 * This code is derived from software contributed to Berkeley by
9 * the Systems Programming Group of the University of Utah Computer
10 * Science Department.
11 *
12 * Redistribution and use in source and binary forms, with or without
13 * modification, are permitted provided that the following conditions
14 * are met:
15 * 1. Redistributions of source code must retain the above copyright
16 * notice, this list of conditions and the following disclaimer.
17 * 2. Redistributions in binary form must reproduce the above copyright
18 * notice, this list of conditions and the following disclaimer in the
19 * documentation and/or other materials provided with the distribution.
20 * 3. Neither the name of the University nor the names of its contributors
21 * may be used to endorse or promote products derived from this software
22 * without specific prior written permission.
23 *
24 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
25 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
26 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
27 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
28 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
29 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
30 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
31 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
32 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
33 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
34 * SUCH DAMAGE.
35 *
36 * from: Utah $Hdr: machdep.c 1.10 92/06/18
37 *
38 * @(#)machdep.c 8.1 (Berkeley) 6/10/93
39 */
40
41 #include <sys/param.h>
42 #include <lib/libsa/stand.h>
43 #include <hp300/stand/common/samachdep.h>
44
45 char *
getmachineid(void)46 getmachineid(void)
47 {
48 extern int machineid;
49 char *cp;
50
51 switch (machineid) {
52 case HP_320:
53 cp = "320"; break;
54 case HP_330:
55 cp = "318/319/330"; break;
56 case HP_340:
57 cp = "340"; break;
58 case HP_345:
59 cp = "345"; break;
60 case HP_350:
61 cp = "350"; break;
62 case HP_360:
63 cp = "360"; break;
64 case HP_362:
65 cp = "362"; break;
66 case HP_370:
67 cp = "370"; break;
68 case HP_375:
69 cp = "375"; break;
70 case HP_380:
71 cp = "380"; break;
72 case HP_382:
73 cp = "382"; break;
74 case HP_385:
75 cp = "385"; break;
76 case HP_400:
77 cp = "400"; break;
78 case HP_425:
79 switch (mmuid) {
80 case MMUID_425_T:
81 cp = "425t"; break;
82 case MMUID_425_S:
83 cp = "425s"; break;
84 case MMUID_425_E:
85 cp = "425e"; break;
86 default:
87 cp = "425"; break;
88 }
89 break;
90 case HP_433:
91 switch (mmuid) {
92 case MMUID_433_T:
93 cp = "433t"; break;
94 case MMUID_433_S:
95 cp = "433s"; break;
96 default:
97 cp = "433"; break;
98 }
99 break;
100 default:
101 cp = "???"; break;
102 }
103 return cp;
104 }
105
106 int userom;
107
108 int
trap(struct trapframe * fp)109 trap(struct trapframe *fp)
110 {
111 static int intrap = 0;
112
113 if (intrap)
114 return 0;
115 intrap = 1;
116
117 #if 0
118 userom = 1;
119 #endif
120
121 printf("Got unexpected trap: format=%x vector=%x ps=%x pc=%x\n",
122 fp->tf_format, fp->tf_format, fp->tf_sr, fp->tf_pc);
123 printf("dregs: %x %x %x %x %x %x %x %x\n",
124 fp->tf_regs[0], fp->tf_regs[1],
125 fp->tf_regs[2], fp->tf_regs[3],
126 fp->tf_regs[4], fp->tf_regs[5],
127 fp->tf_regs[6], fp->tf_regs[7]);
128 printf("aregs: %x %x %x %x %x %x %x %x\n",
129 fp->tf_regs[8], fp->tf_regs[9],
130 fp->tf_regs[10], fp->tf_regs[11],
131 fp->tf_regs[12], fp->tf_regs[13],
132 fp->tf_regs[14], fp->tf_regs[15]);
133
134 #if 0
135 userom = 0;
136 #endif
137
138 intrap = 0;
139 return 0;
140 }
141
142 #define ROWS 24
143 #define COLS 80
144
145 void
romputchar(int c)146 romputchar(int c)
147 {
148 static char buf[COLS];
149 static int col = 0, row = 0;
150 int i;
151
152 switch (c) {
153 case '\0':
154 break;
155 case '\r':
156 break; /* ignore */
157 case '\n':
158 for (i = col; i < COLS-1; i++)
159 buf[i] = ' ';
160 buf[i] = '\0';
161 romout(row, buf);
162 col = 0;
163 if (++row == ROWS)
164 row = 0;
165 break;
166
167 case '\t':
168 do {
169 romputchar(' ');
170 } while (col & 7);
171 break;
172
173 default:
174 buf[col] = c;
175 if (++col == COLS-1)
176 romputchar('\n');
177 break;
178 }
179 }
180
181 void
machdep_start(char * entry,int howto,char * loadaddr,char * ssym,char * esym)182 machdep_start(char *entry, int howto, char *loadaddr, char *ssym, char *esym)
183 {
184
185 /* Adjust entry point. */
186 transfer(entry, howto, opendev, cons_scode, loadaddr, esym);
187 }
188
189 void
transfer(char * entry,int howto,int od,int csc,char * lr,char * es)190 transfer(char *entry, int howto, int od, int csc, char *lr, char *es)
191 {
192
193 printf("Entry point: 0x%lx\n", (u_long)entry);
194
195 #ifdef EXEC_DEBUG
196 printf("\n\nReturn to boot...\n");
197 (void)getchar();
198 #endif
199
200 _transfer(entry, howto, od, csc, lr, es);
201 }
202