sun3/dev/bw2.c

/*        $NetBSD: bw2.c,v 1.39 2024/12/21 17:40:11 tsutsui Exp $     */

/*
 * Copyright (c) 1992, 1993
 *        The Regents of the University of California.  All rights reserved.
 *
 * This software was developed by the Computer Systems Engineering group
 * at Lawrence Berkeley Laboratory under DARPA contract BG 91-66 and
 * contributed to Berkeley.
 *
 * All advertising materials mentioning features or use of this software
 * must display the following acknowledgement:
 *        This product includes software developed by the University of
 *        California, Lawrence Berkeley Laboratory.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 * 3. Neither the name of the University nor the names of its contributors
 *    may be used to endorse or promote products derived from this software
 *    without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 *
 *        @(#)bwtwo.c         8.1 (Berkeley) 6/11/93
 */

/*
 * black&white display (bw2) driver.
 *
 * Does not handle interrupts, even though they can occur.
 */

#include <sys/cdefs.h>
__KERNEL_RCSID(0, "$NetBSD: bw2.c,v 1.39 2024/12/21 17:40:11 tsutsui Exp $");

#include <sys/param.h>
#include <sys/systm.h>
#include <sys/conf.h>
#include <sys/device.h>
#include <sys/ioctl.h>
#include <sys/mman.h>
#include <sys/proc.h>
#include <sys/tty.h>

#include <uvm/uvm_extern.h>

#include <machine/autoconf.h>
#include <machine/cpu.h>
#include <dev/sun/fbio.h>
#include <machine/idprom.h>
#include <machine/pmap.h>

#include <sun3/dev/fbvar.h>
#include <sun3/dev/bw2reg.h>
#include <sun3/dev/p4reg.h>

#include "ioconf.h"

/* per-display variables */
struct bw2_softc {
          device_t sc_dev;              /* base device */
          struct    fbdevice sc_fb;               /* frame buffer device */
          int       sc_phys;            /* display RAM (phys addr) */
          /* If using overlay plane of something, it is... */
          int       sc_ovtype;                    /* ... this type. */
          int sc_video_on;
};

/* autoconfiguration driver */
static int          bw2match(device_t, cfdata_t, void *);
static void         bw2attach(device_t, device_t, void *);

CFATTACH_DECL_NEW(bwtwo, sizeof(struct bw2_softc),
    bw2match, bw2attach, NULL, NULL);

static dev_type_open(bw2open);
static dev_type_ioctl(bw2ioctl);
static dev_type_mmap(bw2mmap);

const struct cdevsw bwtwo_cdevsw = {
          .d_open = bw2open,
          .d_close = nullclose,
          .d_read = noread,
          .d_write = nowrite,
          .d_ioctl = bw2ioctl,
          .d_stop = nostop,
          .d_tty = notty,
          .d_poll = nopoll,
          .d_mmap = bw2mmap,
          .d_kqfilter = nokqfilter,
          .d_discard = nodiscard,
          .d_flag = 0
};

/* XXX we do not handle frame buffer interrupts */

static int bw2gvideo(struct fbdevice *, void *);
static int bw2svideo(struct fbdevice *, void *);

static struct fbdriver bw2fbdriver = {
          bw2open, nullclose, bw2mmap, nokqfilter,
          fb_noioctl,
          bw2gvideo, bw2svideo,
          fb_noioctl, fb_noioctl, };

static int
bw2match(device_t parent, cfdata_t cf, void *args)
{
          struct confargs *ca = args;
          int mid, p4id, peekval;
          void *p4reg;

          /* No default address support. */
          if (ca->ca_paddr == -1)
                    return 0;

          /*
           * Slight hack here:  The low four bits of the
           * config flags, if set, restrict the match to
           * that machine "implementation" only.
           */
          mid = cf->cf_flags & IDM_IMPL_MASK;
          if (mid != 0 && (mid != (cpu_machine_id & IDM_IMPL_MASK)))
                    return 0;

          /*
           * Make sure something is there, and if so,
           * see if it looks like a P4 register.
           */
          p4reg = bus_tmapin(ca->ca_bustype, ca->ca_paddr);
          peekval = peek_long(p4reg);
          p4id = (peekval == -1) ? P4_NOTFOUND : fb_pfour_id(p4reg);
          bus_tmapout(p4reg);
          if (peekval == -1)
                    return 0;

          /*
           * The config flag 0x40 if set means we should match
           * only on a CG? overlay plane.  We can use only the
           * CG4 and CG8, which both have a P4 register.
           */
          if (cf->cf_flags & 0x40) {
                    switch (p4id) {
                    case P4_ID_COLOR8P1:
                    case P4_ID_COLOR24:
                              return 1;
                    case P4_NOTFOUND:
                    default:
                              return 0;
                    }
          }

          /*
           * OK, we are expecting a plain old BW2, and
           * there may or may not be a P4 register.
           */
          switch (p4id) {
          case P4_ID_BW:
          case P4_NOTFOUND:
                    return 1;
          default:
#ifdef    DEBUG
                    aprint_debug("bwtwo at 0x%lx match p4id=0x%x fails\n",
                        ca->ca_paddr, p4id & 0xFF);
#endif
                    break;
          }

          return 0;
}

/*
 * Attach a display.  We need to notice if it is the console, too.
 */
static void
bw2attach(device_t parent, device_t self, void *args)
{
          struct bw2_softc *sc = device_private(self);
          struct fbdevice *fb = &sc->sc_fb;
          struct confargs *ca = args;
          struct fbtype *fbt;
          void *p4reg;
          int p4id, tmp;
          int pixeloffset;              /* offset to framebuffer */

          sc->sc_dev = self;

          fbt = &fb->fb_fbtype;
          fbt->fb_type = FBTYPE_SUN2BW;
          fbt->fb_width = 1152;         /* default - see below */
          fbt->fb_height = 900;         /* default - see below */
          fbt->fb_depth = 1;
          fbt->fb_cmsize = 0;
          fbt->fb_size = BW2_FBSIZE;    /* default - see below */
          fb->fb_driver = &bw2fbdriver;
          fb->fb_private = sc;
          fb->fb_name  = device_xname(self);
          fb->fb_flags = device_cfdata(self)->cf_flags;

          /* Set up default pixel offset.  May be changed below. */
          pixeloffset = 0;

          /* Does it have a P4 register? */
          p4reg = bus_mapin(ca->ca_bustype, ca->ca_paddr, 4);
          p4id = fb_pfour_id(p4reg);
          if (p4id != P4_NOTFOUND)
                    fb->fb_pfour = p4reg;
          else
                    bus_mapout(p4reg, 4);

          switch (p4id) {
          case P4_NOTFOUND:
                    pixeloffset = 0;
                    break;

          case P4_ID_BW:
                    pixeloffset = P4_BW_OFF;
                    break;

          default:
                    aprint_error("%s: bad p4id=0x%x\n", fb->fb_name, p4id);
                    /* Must be some kinda color... */
                    /* FALLTHROUGH */
          case P4_ID_COLOR8P1:
          case P4_ID_COLOR24:
                    sc->sc_ovtype = p4id;
                    pixeloffset = P4_COLOR_OFF_OVERLAY;
                    break;
          }
          sc->sc_phys = ca->ca_paddr + pixeloffset;

          /*
           * Determine width and height as follows:
           * If it has a P4 register, use that;
           * else if unit==0, use the EEPROM size,
           * else make our best guess.
           */
          if (fb->fb_pfour)
                    fb_pfour_setsize(fb);
          /* XXX device_unit() abuse */
          else if (device_unit(self) == 0)
                    fb_eeprom_setsize(fb);
          else {
                    /* Guess based on machine ID. */
                    switch (cpu_machine_id) {
#ifdef    _SUN3_
                    case ID_SUN3_60:
                              /*
                               * Only the model 60 can have hi-res.
                               * Look at the "resolution" jumper.
                               */
                              tmp = bus_peek(BUS_OBMEM, BW2_CR_PADDR, 1);
                              if ((tmp != -1) && (tmp & 0x80) == 0)
                                        goto high_res;
                              break;

                    case ID_SUN3_260:
                              /* The Sun3/260 is ALWAYS high-resolution! */
                              /* fall through */
                    high_res:
                              fbt->fb_width = 1600;
                              fbt->fb_height = 1280;
                              fbt->fb_size = BW2_FBSIZE_HIRES;
                              break;
#endif    /* SUN3 */

                    default:
                              /* Leave the defaults set above. */
                              break;
                    }
          }
          aprint_normal(" (%dx%d)\n", fbt->fb_width, fbt->fb_height);

          /* Make sure video is on. */
          tmp = 1;
          bw2svideo(fb, &tmp);

          /* Let /dev/fb know we are here. */
          fb_attach(fb, 1);
}

static int
bw2open(dev_t dev, int flags, int mode, struct lwp *l)
{
          struct bw2_softc *sc;
          int unit = minor(dev);

          sc = device_lookup_private(&bwtwo_cd, unit);
          if (sc == NULL)
                    return ENXIO;
          return 0;
}

static int
bw2ioctl(dev_t dev, u_long cmd, void *data, int flags, struct lwp *l)
{
          struct bw2_softc *sc = device_lookup_private(&bwtwo_cd, minor(dev));

          return fbioctlfb(&sc->sc_fb, cmd, data);
}

/*
 * Return the address that would map the given device at the given
 * offset, allowing for the given protection, or return -1 for error.
 */
static paddr_t
bw2mmap(dev_t dev, off_t off, int prot)
{
          struct bw2_softc *sc = device_lookup_private(&bwtwo_cd, minor(dev));
          int size = sc->sc_fb.fb_fbtype.fb_size;

          if (off & PGOFSET)
                    panic("%s: bad offset", __func__);

          if ((off < 0) || (off >= size))
                    return -1;

          /*
           * I turned on PMAP_NC here to disable the cache as I was
           * getting horribly broken behaviour without it.
           */
          return (sc->sc_phys + off) | PMAP_NC;
}

/* FBIOGVIDEO: */
static int
bw2gvideo(struct fbdevice *fb, void *data)
{
          struct bw2_softc *sc = fb->fb_private;
          int *on = data;

          *on = sc->sc_video_on;
          return 0;
}

/* FBIOSVIDEO: */
static int
bw2svideo(struct fbdevice *fb, void *data)
{
          struct bw2_softc *sc = fb->fb_private;
          int *on = data;

          if (sc->sc_video_on == *on)
                    return 0;
          sc->sc_video_on = *on;

          if (fb->fb_pfour)
                    fb_pfour_set_video(fb, sc->sc_video_on);
          else
                    enable_video(sc->sc_video_on);

          return 0;
}