1 /* $OpenBSD: bwtwo.c,v 1.22 2022/10/16 01:22:40 jsg Exp $ */
2
3 /*
4 * Copyright (c) 2002 Jason L. Wright (jason@thought.net)
5 * All rights reserved.
6 *
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following conditions
9 * are met:
10 * 1. Redistributions of source code must retain the above copyright
11 * notice, this list of conditions and the following disclaimer.
12 * 2. Redistributions in binary form must reproduce the above copyright
13 * notice, this list of conditions and the following disclaimer in the
14 * documentation and/or other materials provided with the distribution.
15 *
16 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
17 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
18 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
19 * DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT,
20 * INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
21 * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
22 * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
23 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
24 * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
25 * ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
26 * POSSIBILITY OF SUCH DAMAGE.
27 *
28 * Effort sponsored in part by the Defense Advanced Research Projects
29 * Agency (DARPA) and Air Force Research Laboratory, Air Force
30 * Materiel Command, USAF, under agreement number F30602-01-2-0537.
31 *
32 */
33
34 #include <sys/param.h>
35 #include <sys/systm.h>
36 #include <sys/kernel.h>
37 #include <sys/errno.h>
38 #include <sys/device.h>
39 #include <sys/ioctl.h>
40 #include <sys/malloc.h>
41
42 #include <machine/bus.h>
43 #include <machine/intr.h>
44 #include <machine/autoconf.h>
45 #include <machine/openfirm.h>
46
47 #include <dev/sbus/sbusvar.h>
48 #include <dev/wscons/wsconsio.h>
49 #include <dev/wscons/wsdisplayvar.h>
50 #include <dev/rasops/rasops.h>
51 #include <machine/fbvar.h>
52
53 #define BWTWO_CTRL_OFFSET 0x400000
54 #define BWTWO_CTRL_SIZE (sizeof(u_int32_t) * 8)
55 #define BWTWO_VID_OFFSET 0x800000
56 #define BWTWO_VID_SIZE (1024 * 1024)
57
58 #define FBC_CTRL 0x10 /* control */
59 #define FBC_STAT 0x11 /* status */
60 #define FBC_START 0x12 /* cursor start */
61 #define FBC_END 0x13 /* cursor end */
62 #define FBC_VCTRL 0x14 /* 12 bytes of timing goo */
63
64 #define FBC_CTRL_IENAB 0x80 /* interrupt enable */
65 #define FBC_CTRL_VENAB 0x40 /* video enable */
66 #define FBC_CTRL_TIME 0x20 /* timing enable */
67 #define FBC_CTRL_CURS 0x10 /* cursor compare enable */
68 #define FBC_CTRL_XTAL 0x0c /* xtal select (0,1,2,test): */
69 #define FBC_CTRL_XTAL_0 0x00 /* 0 */
70 #define FBC_CTRL_XTAL_1 0x04 /* 0 */
71 #define FBC_CTRL_XTAL_2 0x08 /* 0 */
72 #define FBC_CTRL_XTAL_TEST 0x0c /* 0 */
73 #define FBC_CTRL_DIV 0x03 /* divisor (1,2,3,4): */
74 #define FBC_CTRL_DIV_1 0x00 /* / 1 */
75 #define FBC_CTRL_DIV_2 0x01 /* / 2 */
76 #define FBC_CTRL_DIV_3 0x02 /* / 3 */
77 #define FBC_CTRL_DIV_4 0x03 /* / 4 */
78
79 #define FBC_STAT_INTR 0x80 /* interrupt pending */
80 #define FBC_STAT_RES 0x70 /* monitor sense: */
81 #define FBC_STAT_RES_1024 0x10 /* 1024x768 */
82 #define FBC_STAT_RES_1280 0x40 /* 1280x1024 */
83 #define FBC_STAT_RES_1152 0x30 /* 1152x900 */
84 #define FBC_STAT_RES_1152A 0x40 /* 1152x900x76, A */
85 #define FBC_STAT_RES_1600 0x50 /* 1600x1200 */
86 #define FBC_STAT_RES_1152B 0x60 /* 1152x900x86, B */
87 #define FBC_STAT_ID 0x0f /* id mask: */
88 #define FBC_STAT_ID_COLOR 0x01 /* color */
89 #define FBC_STAT_ID_MONO 0x02 /* monochrome */
90 #define FBC_STAT_ID_MONOECL 0x03 /* monochrome, ecl */
91
92 #define FBC_READ(sc, reg) \
93 bus_space_read_1((sc)->sc_bustag, (sc)->sc_ctrl_regs, (reg))
94 #define FBC_WRITE(sc, reg, val) \
95 bus_space_write_1((sc)->sc_bustag, (sc)->sc_ctrl_regs, (reg), (val))
96
97 struct bwtwo_softc {
98 struct sunfb sc_sunfb;
99 bus_space_tag_t sc_bustag;
100 bus_addr_t sc_paddr;
101 bus_space_handle_t sc_ctrl_regs;
102 bus_space_handle_t sc_vid_regs;
103 int sc_nscreens;
104 };
105
106 int bwtwo_ioctl(void *, u_long, caddr_t, int, struct proc *);
107 paddr_t bwtwo_mmap(void *, off_t, int);
108 int bwtwo_is_console(int);
109 void bwtwo_burner(void *, u_int, u_int);
110
111 struct wsdisplay_accessops bwtwo_accessops = {
112 .ioctl = bwtwo_ioctl,
113 .mmap = bwtwo_mmap,
114 .burn_screen = bwtwo_burner
115 };
116
117 int bwtwomatch(struct device *, void *, void *);
118 void bwtwoattach(struct device *, struct device *, void *);
119
120 const struct cfattach bwtwo_ca = {
121 sizeof (struct bwtwo_softc), bwtwomatch, bwtwoattach
122 };
123
124 struct cfdriver bwtwo_cd = {
125 NULL, "bwtwo", DV_DULL
126 };
127
128 int
bwtwomatch(struct device * parent,void * vcf,void * aux)129 bwtwomatch(struct device *parent, void *vcf, void *aux)
130 {
131 struct cfdata *cf = vcf;
132 struct sbus_attach_args *sa = aux;
133
134 return (strcmp(cf->cf_driver->cd_name, sa->sa_name) == 0);
135 }
136
137 void
bwtwoattach(struct device * parent,struct device * self,void * aux)138 bwtwoattach(struct device *parent, struct device *self, void *aux)
139 {
140 struct bwtwo_softc *sc = (struct bwtwo_softc *)self;
141 struct sbus_attach_args *sa = aux;
142 int node, console;
143 const char *nam;
144
145 node = sa->sa_node;
146 sc->sc_bustag = sa->sa_bustag;
147 sc->sc_paddr = sbus_bus_addr(sa->sa_bustag, sa->sa_slot, sa->sa_offset);
148
149 fb_setsize(&sc->sc_sunfb, 1, 1152, 900, node, 0);
150
151 if (sa->sa_nreg != 1) {
152 printf(": expected %d registers, got %d\n", 1, sa->sa_nreg);
153 goto fail;
154 }
155
156 /*
157 * Map just CTRL and video RAM.
158 */
159 if (sbus_bus_map(sa->sa_bustag, sa->sa_reg[0].sbr_slot,
160 sa->sa_reg[0].sbr_offset + BWTWO_CTRL_OFFSET,
161 BWTWO_CTRL_SIZE, 0, 0, &sc->sc_ctrl_regs) != 0) {
162 printf(": cannot map ctrl registers\n");
163 goto fail_ctrl;
164 }
165
166 if (sbus_bus_map(sa->sa_bustag, sa->sa_reg[0].sbr_slot,
167 sa->sa_reg[0].sbr_offset + BWTWO_VID_OFFSET,
168 sc->sc_sunfb.sf_fbsize, BUS_SPACE_MAP_LINEAR,
169 0, &sc->sc_vid_regs) != 0) {
170 printf(": cannot map vid registers\n");
171 goto fail_vid;
172 }
173
174 nam = getpropstring(node, "model");
175 if (*nam == '\0')
176 nam = sa->sa_name;
177 printf(": %s", nam);
178
179 console = bwtwo_is_console(node);
180
181 bwtwo_burner(sc, 1, 0);
182
183 printf(", %dx%d\n", sc->sc_sunfb.sf_width, sc->sc_sunfb.sf_height);
184
185 sc->sc_sunfb.sf_ro.ri_bits = (void *)bus_space_vaddr(sc->sc_bustag,
186 sc->sc_vid_regs);
187 sc->sc_sunfb.sf_ro.ri_hw = sc;
188 fbwscons_init(&sc->sc_sunfb, 0, console);
189
190 if (console)
191 fbwscons_console_init(&sc->sc_sunfb, -1);
192
193 fbwscons_attach(&sc->sc_sunfb, &bwtwo_accessops, console);
194
195 return;
196
197 fail_vid:
198 bus_space_unmap(sa->sa_bustag, sc->sc_ctrl_regs, BWTWO_CTRL_SIZE);
199 fail_ctrl:
200 fail:
201 ;
202 }
203
204 int
bwtwo_ioctl(void * v,u_long cmd,caddr_t data,int flags,struct proc * p)205 bwtwo_ioctl(void *v, u_long cmd, caddr_t data, int flags, struct proc *p)
206 {
207 struct bwtwo_softc *sc = v;
208 struct wsdisplay_fbinfo *wdf;
209
210 switch (cmd) {
211 case WSDISPLAYIO_GTYPE:
212 *(u_int *)data = WSDISPLAY_TYPE_SUNBW;
213 break;
214 case WSDISPLAYIO_GINFO:
215 wdf = (void *)data;
216 wdf->height = sc->sc_sunfb.sf_height;
217 wdf->width = sc->sc_sunfb.sf_width;
218 wdf->depth = sc->sc_sunfb.sf_depth;
219 wdf->stride = sc->sc_sunfb.sf_linebytes;
220 wdf->offset = 0;
221 wdf->cmsize = 0;
222 break;
223 case WSDISPLAYIO_LINEBYTES:
224 *(u_int *)data = sc->sc_sunfb.sf_linebytes;
225 break;
226
227 case WSDISPLAYIO_GETCMAP:
228 case WSDISPLAYIO_PUTCMAP:
229 break;
230
231 case WSDISPLAYIO_SVIDEO:
232 case WSDISPLAYIO_GVIDEO:
233 break;
234
235 case WSDISPLAYIO_GCURPOS:
236 case WSDISPLAYIO_SCURPOS:
237 case WSDISPLAYIO_GCURMAX:
238 case WSDISPLAYIO_GCURSOR:
239 case WSDISPLAYIO_SCURSOR:
240 default:
241 return -1; /* not supported yet */
242 }
243
244 return (0);
245 }
246
247 paddr_t
bwtwo_mmap(void * v,off_t offset,int prot)248 bwtwo_mmap(void *v, off_t offset, int prot)
249 {
250 struct bwtwo_softc *sc = v;
251
252 if (offset & PGOFSET)
253 return (-1);
254
255 if (offset >= 0 && offset < sc->sc_sunfb.sf_fbsize)
256 return (bus_space_mmap(sc->sc_bustag, sc->sc_paddr,
257 BWTWO_VID_OFFSET + offset, prot, BUS_SPACE_MAP_LINEAR));
258
259 return (-1);
260 }
261
262 int
bwtwo_is_console(int node)263 bwtwo_is_console(int node)
264 {
265 extern int fbnode;
266
267 return (fbnode == node);
268 }
269
270 void
bwtwo_burner(void * vsc,u_int on,u_int flags)271 bwtwo_burner(void *vsc, u_int on, u_int flags)
272 {
273 struct bwtwo_softc *sc = vsc;
274 int s;
275 u_int8_t fbc;
276
277 s = splhigh();
278 fbc = FBC_READ(sc, FBC_CTRL);
279 if (on)
280 fbc |= FBC_CTRL_VENAB | FBC_CTRL_TIME;
281 else {
282 fbc &= ~FBC_CTRL_VENAB;
283 if (flags & WSDISPLAY_BURN_VBLANK)
284 fbc &= ~FBC_CTRL_TIME;
285 }
286 FBC_WRITE(sc, FBC_CTRL, fbc);
287 splx(s);
288 }
289