/* $NetBSD: grfabs_tt.c,v 1.25 2023/01/06 10:28:28 tsutsui Exp $ */
/*
* Copyright (c) 1995 Leo Weppelman.
* All rights reserved.
*
* 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.
*
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``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 AUTHOR 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.
*/
#include <sys/cdefs.h>
__KERNEL_RCSID(0, "$NetBSD: grfabs_tt.c,v 1.25 2023/01/06 10:28:28 tsutsui Exp $");
#ifdef TT_VIDEO
/*
* atari abstract graphics driver: TT-interface
*/
#include <sys/param.h>
#include <sys/queue.h>
#include <sys/malloc.h>
#include <sys/device.h>
#include <sys/systm.h>
#include <uvm/uvm_extern.h>
#include <machine/iomap.h>
#include <machine/video.h>
#include <machine/mfp.h>
#include <atari/atari/device.h>
#include <atari/atari/stalloc.h>
#include <atari/dev/grfabs_reg.h>
#include <atari/dev/grfabs_tt.h>
/*
* Function decls
*/
static void init_view(view_t *, bmap_t *, dmode_t *, box_t *);
static bmap_t *alloc_bitmap(u_long, u_long, u_char);
static colormap_t *alloc_colormap(dmode_t *);
static void free_bitmap(bmap_t *);
static void tt_display_view(view_t *);
static view_t *tt_alloc_view(dmode_t *, dimen_t *, u_char);
static void tt_free_view(view_t *);
static void tt_remove_view(view_t *);
static void tt_save_view(view_t *);
static int tt_use_colormap(view_t *, colormap_t *);
/*
* Our function switch table
*/
struct grfabs_sw tt_vid_sw = {
tt_display_view,
tt_alloc_view,
tt_free_view,
tt_remove_view,
tt_save_view,
tt_use_colormap
};
struct tt_hwregs {
u_short tt_reg; /* video mode-register TT */
};
#define vm_reg(dm) (((struct tt_hwregs*)(dm->data))->tt_reg)
/*
* Note that the order of this table *must* match the order of
* the table below!
*/
static struct tt_hwregs tt_hwregs[] = {
{ RES_STHIGH },
{ RES_TTHIGH },
{ RES_STMID },
{ RES_STLOW },
{ RES_TTMID },
{ RES_TTLOW }
};
static dmode_t vid_modes[] = {
{ { NULL, NULL }, "sthigh", { 640, 400 }, 1, NULL, &tt_vid_sw },
{ { NULL, NULL }, "tthigh", { 1280, 960 }, 1, NULL, &tt_vid_sw },
{ { NULL, NULL }, "stmid", { 640, 200 }, 2, NULL, &tt_vid_sw },
{ { NULL, NULL }, "stlow", { 320, 200 }, 4, NULL, &tt_vid_sw },
{ { NULL, NULL }, "ttmid", { 640, 480 }, 4, NULL, &tt_vid_sw },
{ { NULL, NULL }, "ttlow", { 320, 480 }, 8, NULL, &tt_vid_sw },
{ { NULL, NULL }, NULL, }
};
/*
* XXX: called from ite console init routine.
* Initialize list of possible video modes.
*/
void
tt_probe_video(MODES *modelp)
{
dmode_t *dm;
int i;
int has_mono;
/*
* First find out what kind of monitor is attached. DMA-sound
* should be off because the 'sound-done' and 'monochrome-detect'
* are xor-ed together. I think that shutting it down here is the
* wrong place.
*/
has_mono = (MFP->mf_gpip & IA_MONO) == 0;
for (i = 0; (dm = &vid_modes[i])->name != NULL; i++) {
dm->data = (void *)&tt_hwregs[i];
if (has_mono && (vm_reg(dm) != RES_TTHIGH))
continue;
if (!has_mono && (vm_reg(dm) == RES_TTHIGH))
continue;
LIST_INSERT_HEAD(modelp, dm, link);
}
for (i=0; i < 16; i++)
VIDEO->vd_tt_rgb[i] = CM_L2TT(gra_def_color16[i]);
}
static void
tt_display_view(view_t *v)
{
dmode_t *dm = v->mode;
bmap_t *bm = v->bitmap;
if (dm->current_view) {
/*
* Mark current view for this mode as no longer displayed
*/
dm->current_view->flags &= ~VF_DISPLAY;
}
dm->current_view = v;
v->flags |= VF_DISPLAY;
tt_use_colormap(v, v->colormap);
/* XXX: should use vbl for this */
VIDEO->vd_tt_res = vm_reg(dm);
VIDEO->vd_raml = (u_long)bm->hw_address & 0xff;
VIDEO->vd_ramm = ((u_long)bm->hw_address >> 8) & 0xff;
VIDEO->vd_ramh = ((u_long)bm->hw_address >> 16) & 0xff;
}
void
tt_remove_view(view_t *v)
{
dmode_t *mode = v->mode;
if (mode->current_view == v) {
#if 0
if (v->flags & VF_DISPLAY)
panic("Cannot shutdown display"); /* XXX */
#endif
mode->current_view = NULL;
}
v->flags &= ~VF_DISPLAY;
}
void
tt_save_view(view_t *v)
{
}
void
tt_free_view(view_t *v)
{
if (v) {
tt_remove_view(v);
if (v->colormap != &gra_con_cmap)
free(v->colormap, M_DEVBUF);
free_bitmap(v->bitmap);
if (v != &gra_con_view)
free(v, M_DEVBUF);
}
}
static int
tt_use_colormap(view_t *v, colormap_t *cm)
{
dmode_t *dm;
volatile u_short *creg;
u_long *src;
colormap_t *vcm;
u_long *vcreg;
u_short ncreg;
int i;
dm = v->mode;
vcm = v->colormap;
/*
* I guess it seems reasonable to require the maps to be
* of the same type...
*/
if (cm->type != vcm->type)
return(EINVAL);
/*
* First figure out where the actual colormap resides and
* howmany colors are in it.
*/
switch (vm_reg(dm)) {
case RES_STLOW:
creg = &VIDEO->vd_tt_rgb[0];
ncreg = 16;
break;
case RES_STMID:
creg = &VIDEO->vd_tt_rgb[0];
ncreg = 4;
break;
case RES_STHIGH:
creg = &VIDEO->vd_tt_rgb[254];
ncreg = 2;
break;
case RES_TTLOW:
creg = &VIDEO->vd_tt_rgb[0];
ncreg = 256;
break;
case RES_TTMID:
creg = &VIDEO->vd_tt_rgb[0];
ncreg = 16;
break;
case RES_TTHIGH:
return(0); /* No colors */
default:
panic("grf_tt:use_colormap: wrong mode!?");
}
/* If first entry specified beyond capabilities -> error */
if (cm->first >= ncreg)
return(EINVAL);
/*
* A little tricky, the actual colormap pointer will be NULL
* when view is not displaying, valid otherwise.
*/
if (v->flags & VF_DISPLAY)
creg = &creg[cm->first];
else
creg = NULL;
vcreg = &vcm->entry[cm->first];
ncreg -= cm->first;
if (cm->size > ncreg)
return(EINVAL);
ncreg = cm->size;
for (i = 0, src = cm->entry; i < ncreg; i++, vcreg++) {
*vcreg = *src++;
/*
* If displaying, also update actual color registers.
*/
if (creg != NULL)
*creg++ = CM_L2TT(*vcreg);
}
return (0);
}
static view_t *
tt_alloc_view(dmode_t *mode, dimen_t *dim, u_char depth)
{
view_t *v;
bmap_t *bm;
if (!atari_realconfig)
v = &gra_con_view;
else
v = malloc(sizeof(*v), M_DEVBUF, M_NOWAIT);
if (v == NULL)
return (NULL);
bm = alloc_bitmap(mode->size.width, mode->size.height, mode->depth);
if (bm) {
box_t box;
v->colormap = alloc_colormap(mode);
if (v->colormap) {
INIT_BOX(&box,0,0,mode->size.width,mode->size.height);
init_view(v, bm, mode, &box);
return (v);
}
free_bitmap(bm);
}
if (v != &gra_con_view)
free(v, M_DEVBUF);
return (NULL);
}
static void
init_view(view_t *v, bmap_t *bm, dmode_t *mode, box_t *dbox)
{
v->bitmap = bm;
v->mode = mode;
v->flags = 0;
memcpy(&v->display, dbox, sizeof(box_t));
}
/* bitmap functions */
static bmap_t *
alloc_bitmap(u_long width, u_long height, u_char depth)
{
u_long total_size, bm_size;
void *hw_address;
bmap_t *bm;
/*
* Sigh, it seems for mapping to work we need the bitplane data to
* 1: be aligned on a page boundary.
* 2: be n pages large.
*
* why? because the user gets a page aligned address, if this is before
* your allocation, too bad. Also it seems that the mapping routines
* do not watch to closely to the allowable length. so if you go over
* n pages by less than another page, the user gets to write all over
* the entire page. Since you did not allocate up to a page boundary
* (or more) the user writes into someone elses memory. -ch
*/
bm_size = m68k_round_page((width * height * depth) / NBBY);
total_size = bm_size + sizeof(bmap_t) + PAGE_SIZE;
if ((bm = (bmap_t*)alloc_stmem(total_size, &hw_address)) == NULL)
return(NULL);
bm->plane = (u_char*)bm + sizeof(bmap_t);
bm->plane = (u_char*)m68k_round_page(bm->plane);
bm->hw_address = (u_char*)hw_address + sizeof(bmap_t);
bm->hw_address = (u_char*)m68k_round_page(bm->hw_address);
bm->bytes_per_row = (width * depth) / NBBY;
bm->rows = height;
bm->depth = depth;
bm->regs = NULL;
bm->hw_regs = NULL;
bm->reg_size = 0;
bm->phys_mappable = (depth * width * height) / NBBY;
bm->lin_base = 0;
bm->vga_address = NULL;
bm->vga_mappable = 0;
bm->vga_base = 0;
memset(bm->plane, 0, bm_size);
return (bm);
}
static void
free_bitmap(bmap_t *bm)
{
if (bm)
free_stmem(bm);
}
static colormap_t *
alloc_colormap(dmode_t *dm)
{
int nentries, i;
colormap_t *cm;
u_char type = CM_COLOR;
switch (vm_reg(dm)) {
case RES_STLOW:
case RES_TTMID:
nentries = 16;
break;
case RES_STMID:
nentries = 4;
break;
case RES_STHIGH:
nentries = 2;
break;
case RES_TTLOW:
nentries = 256;
break;
case RES_TTHIGH:
type = CM_MONO;
nentries = 0;
break;
default:
panic("grf_tt:alloc_colormap: wrong mode!?");
}
if (!atari_realconfig) {
cm = &gra_con_cmap;
cm->entry = gra_con_colors;
} else {
int size;
size = sizeof(*cm) + (nentries * sizeof(cm->entry[0]));
cm = malloc(size, M_DEVBUF, M_NOWAIT);
if (cm == NULL)
return (NULL);
cm->entry = (long *)&cm[1];
}
if ((cm->type = type) == CM_COLOR)
cm->red_mask = cm->green_mask = cm->blue_mask = 0xf;
cm->first = 0;
cm->size = nentries;
for (i = 0; i < nentries; i++)
cm->entry[i] = gra_def_color16[i % 16];
return (cm);
}
#endif /* TT_VIDEO */