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
97struct 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
106int bwtwo_ioctl(void *, u_long, caddr_t, int, struct proc *);
107paddr_t bwtwo_mmap(void *, off_t, int);
108int bwtwo_is_console(int);
109void bwtwo_burner(void *, u_int, u_int);
110
111struct wsdisplay_accessops bwtwo_accessops = {
112	.ioctl = bwtwo_ioctl,
113	.mmap = bwtwo_mmap,
114	.burn_screen = bwtwo_burner
115};
116
117int	bwtwomatch(struct device *, void *, void *);
118void	bwtwoattach(struct device *, struct device *, void *);
119
120const struct cfattach bwtwo_ca = {
121	sizeof (struct bwtwo_softc), bwtwomatch, bwtwoattach
122};
123
124struct cfdriver bwtwo_cd = {
125	NULL, "bwtwo", DV_DULL
126};
127
128int
129bwtwomatch(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
137void
138bwtwoattach(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
197fail_vid:
198	bus_space_unmap(sa->sa_bustag, sc->sc_ctrl_regs, BWTWO_CTRL_SIZE);
199fail_ctrl:
200fail:
201;
202}
203
204int
205bwtwo_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
247paddr_t
248bwtwo_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
262int
263bwtwo_is_console(int node)
264{
265	extern int fbnode;
266
267	return (fbnode == node);
268}
269
270void
271bwtwo_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