Mirrors/Run-Sun3-SunOS-4.1.1
1
0
Fork 0
mirror of https://github.com/phabrics/Run-Sun3-SunOS-4.1.1.git synced 2026-04-29 19:12:58 -04:00
Code Issues Packages Projects Releases Wiki Activity
Files
main
Run-Sun3-SunOS-4.1.1/tme-0.8_up/machine/sun/sun-bwtwo.c
Amberelle Mason ac30ff9032 Initial import 
Initial import of SunOS 4.1.1 and TME 0.8
2023-05-01 12:16:40 -04:00

395 lines
12 KiB
C
Raw Permalink Blame History

/* $Id: sun-bwtwo.c,v 1.6 2009/11/08 17:03:58 fredette Exp $ */
/* machine/sun/sun-bwtwo.c - Sun bwtwo emulation: */
/*
* Copyright (c) 2003, 2004, 2006 Matt Fredette
* 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.
* 3. All advertising materials mentioning features or use of this software
* must display the following acknowledgement:
* This product includes software developed by Matt Fredette.
* 4. The name of the author may not be used to endorse or promote products
* derived from this software without specific prior written permission.
*
* 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 <tme/common.h>
_TME_RCSID("$Id: sun-bwtwo.c,v 1.6 2009/11/08 17:03:58 fredette Exp $");
/* includes: */
#include <tme/machine/sun.h>
#include <tme/generic/bus-device.h>
#include <tme/generic/fb.h>
#include "sun-fb.h"
/* macros: */
/* bwtwo types: */
#define TME_SUNBW2_TYPE_NULL (0)
#define TME_SUNBW2_TYPE_MULTIBUS (1)
#define TME_SUNBW2_TYPE_OLD_ONBOARD (2)
#define TME_SUNBW2_TYPE_ONBOARD (3)
#define TME_SUNBW2_TYPE_P4 (4)
#define TME_SUNBW2_TYPE_SBUS (5)
/* register offsets and sizes: */
#define TME_SUNBW2_REG_CSR_MULTIBUS (0x81800)
#define TME_SUNBW2_REG_CSR_OLD_ONBOARD (0x20000)
#define TME_SUNBW2_SIZ_CSR (0x00002)
#define TME_SUNBW2_SIZ_CSR_PAGE (0x00800)
/* the bits in the Multibus and old-onboard Control/Status register: */
#define TME_SUNBW2_CSR_ENABLE_VIDEO (0x8000) /* enable video */
#define TME_SUNBW2_CSR_ENABLE_COPY (0x4000) /* enable copy mode */
#define TME_SUNBW2_CSR_ENABLE_INT (0x2000) /* interrupt enable */
#define TME_SUNBW2_CSR_INT_ACTIVE (0x1000) /* interrupt is active */
#define TME_SUNBW2_CSR_JUMPER_B (0x0800) /* jumper B */
#define TME_SUNBW2_CSR_JUMPER_A (0x0400) /* jumper A */
#define TME_SUNBW2_CSR_JUMPER_COLOR (0x0200) /* jumper color */
#define TME_SUNBW2_CSR_JUMPER_HIRES (0x0100) /* jumper hires */
#define TME_SUNBW2_CSR_COPYBASE_MASK (0x007E) /* copybase mask */
#if 0
#define TME_SUNBW2_DEBUG
#endif
/* structures: */
/* the card: */
struct tme_sunbw2 {
/* our generic Sun framebuffer: */
struct tme_sunfb tme_sunbw2_sunfb;
#define tme_sunbw2_mutex tme_sunbw2_sunfb.tme_sunfb_mutex
#define tme_sunbw2_bus_subregion_memory tme_sunbw2_sunfb.tme_sunfb_bus_subregion_memory
#define tme_sunbw2_bus_subregion_regs tme_sunbw2_sunfb.tme_sunfb_bus_subregion_regs
#define tme_sunbw2_csr_address tme_sunbw2_bus_subregion_regs.tme_bus_subregion_address_first
/* the type of the bwtwo: */
tme_uint32_t tme_sunbw2_type;
/* our csr: */
tme_uint16_t tme_sunbw2_csr;
};
#if 1
static int sunbw2_copy;
static int sunbw2_copy_addr;
int get_sunbw2_copy(void) { return sunbw2_copy; }
int get_sunbw2_copy_addr(void) { return sunbw2_copy_addr; }
#endif
#ifdef TME_SUNBW2_DEBUG
#define TME_SUNBW2_LO_WIDTH (1152)
#define TME_SUNBW2_LO_HEIGHT (900)
static int
_tme_sunbw2_update_debug(struct tme_fb_connection *conn_fb)
{
struct tme_sunbw2 *sunbw2;
static int y = -1;
static int x;
unsigned long pixel;
unsigned int pixel_byte;
tme_uint8_t pixel_bit;
int box, box_y, box_x;
sunbw2 = conn_fb->tme_fb_connection.tme_connection_element->tme_element_private;
for (box = 0; box < 2; box++) {
if (y < 0) {
y = 16;
x = 0;
continue;
}
for (box_y = 0; box_y < 2; box_y++) {
for (box_x = 0; box_x < 2; box_x++) {
pixel = (((y + box_y)
* TME_SUNBW2_LO_WIDTH)
+ x
+ box_x);
pixel_byte = (pixel / 8);
pixel_bit = (0x80 >> (pixel % 8));
sunbw2->tme_sunbw2_fb_memory[pixel_byte] ^= pixel_bit;
}
}
if (box == 0) {
x += 2;
if (x == TME_SUNBW2_LO_WIDTH) {
x = 0;
y += 2;
if (y == TME_SUNBW2_LO_HEIGHT) {
y = 0;
}
}
}
}
return (TME_OK);
}
#undef TME_SUNBW2_LO_WIDTH
#undef TME_SUNBW2_LO_HEIGHT
#endif /* TME_SUNBW2_DEBUG */
/* the sunbw2 CSR bus cycle handler: */
static int
_tme_sunbw2_bus_cycle_csr(void *_sunbw2, struct tme_bus_cycle *cycle_init)
{
struct tme_sunbw2 *sunbw2;
tme_uint16_t csr_old, csr_new;
tme_bus_addr32_t undecoded;
/* recover our data structure: */
sunbw2 = (struct tme_sunbw2 *) _sunbw2;
/* lock the mutex: */
tme_mutex_lock(&sunbw2->tme_sunbw2_mutex);
/* get the old CSR value: */
csr_old = tme_betoh_u16(sunbw2->tme_sunbw2_csr);
/* the entire 2KB (one page's) worth of addresses at
tme_sunbw2_csr_address are all decoded (or, rather, not decoded)
as the CSR: */
undecoded
= (cycle_init->tme_bus_cycle_address
& (TME_SUNBW2_SIZ_CSR_PAGE - sizeof(sunbw2->tme_sunbw2_csr)));
cycle_init->tme_bus_cycle_address
-= undecoded;
/* run the cycle: */
assert (cycle_init->tme_bus_cycle_address
>= sunbw2->tme_sunbw2_csr_address);
tme_bus_cycle_xfer_memory(cycle_init,
(((tme_uint8_t *) &sunbw2->tme_sunbw2_csr)
- sunbw2->tme_sunbw2_csr_address),
(sunbw2->tme_sunbw2_csr_address
+ sizeof(sunbw2->tme_sunbw2_csr)
- 1));
cycle_init->tme_bus_cycle_address
+= undecoded;
/* get the new CSR value: */
csr_new = tme_betoh_u16(sunbw2->tme_sunbw2_csr);
/* put back the unchanging bits: */
csr_new
= ((csr_new
& ~(TME_SUNBW2_CSR_INT_ACTIVE
| TME_SUNBW2_CSR_JUMPER_B
| TME_SUNBW2_CSR_JUMPER_A
| TME_SUNBW2_CSR_JUMPER_COLOR
| TME_SUNBW2_CSR_JUMPER_HIRES))
| (csr_old
& (TME_SUNBW2_CSR_INT_ACTIVE
| TME_SUNBW2_CSR_JUMPER_B
| TME_SUNBW2_CSR_JUMPER_A
| TME_SUNBW2_CSR_JUMPER_COLOR
| TME_SUNBW2_CSR_JUMPER_HIRES)));
#if 0//brad
/* we do not support these bits: */
if (csr_new
& (TME_SUNBW2_CSR_ENABLE_COPY
| TME_SUNBW2_CSR_ENABLE_INT)) {
abort();
}
#else
if (csr_new & TME_SUNBW2_CSR_ENABLE_COPY) {
sunbw2_copy = 1;
sunbw2_copy_addr = (csr_new & TME_SUNBW2_CSR_COPYBASE_MASK) << 16;
} else
sunbw2_copy = 0;
#endif
/* set the new CSR value: */
sunbw2->tme_sunbw2_csr = tme_htobe_u16(csr_new);
/* unlock the mutex: */
tme_mutex_unlock(&sunbw2->tme_sunbw2_mutex);
/* no faults: */
return (TME_OK);
}
/* this sets the bwtwo type: */
static const char *
_tme_sunbw2_type_set(struct tme_sunfb *sunfb, const char *bw2_type_string)
{
struct tme_sunbw2 *sunbw2;
tme_uint32_t bw2_type;
/* recover our data structure: */
sunbw2 = (struct tme_sunbw2 *) sunfb;
/* see if this is a good type: */
bw2_type = TME_SUNBW2_TYPE_NULL;
if (TME_ARG_IS(bw2_type_string, "multibus")) {
bw2_type = TME_SUNBW2_TYPE_MULTIBUS;
}
else if (TME_ARG_IS(bw2_type_string, "old-onboard")) {
bw2_type = TME_SUNBW2_TYPE_OLD_ONBOARD;
}
else if (TME_ARG_IS(bw2_type_string, "onboard")) {
bw2_type = TME_SUNBW2_TYPE_ONBOARD;
}
else if (TME_ARG_IS(bw2_type_string, "P4")) {
bw2_type = TME_SUNBW2_TYPE_P4;
}
else if (TME_ARG_IS(bw2_type_string, "sbus")) {
bw2_type = TME_SUNBW2_TYPE_SBUS;
}
/* set the new type: */
sunbw2->tme_sunbw2_type = bw2_type;
/* assume the (relative) bus address of the first byte of displayed
framebuffer memory is zero: */
sunbw2->tme_sunbw2_bus_subregion_memory.tme_bus_subregion_address_first = 0;
/* assume that we can use the unspecified interrupt: */
sunfb->tme_sunfb_bus_signal_int = TME_BUS_SIGNAL_INT_UNSPEC;
/* dispatch on the new type: */
switch (bw2_type) {
/* if this was a bad type, return a string of types: */
default: assert(FALSE);
case TME_SUNBW2_TYPE_NULL:
return ("multibus | old-onboard | onboard | P4 | sbus");
case TME_SUNBW2_TYPE_MULTIBUS:
case TME_SUNBW2_TYPE_OLD_ONBOARD:
/* set the addresses of the CSR bus subregion: */
sunbw2->tme_sunbw2_csr_address
= (bw2_type == TME_SUNBW2_TYPE_MULTIBUS
? TME_SUNBW2_REG_CSR_MULTIBUS
: TME_SUNBW2_REG_CSR_OLD_ONBOARD);
sunbw2->tme_sunbw2_bus_subregion_regs.tme_bus_subregion_address_last
= (sunbw2->tme_sunbw2_csr_address
+ TME_SUNBW2_SIZ_CSR_PAGE
- 1);
/* set the CSR bus cycle handler: */
sunfb->tme_sunfb_bus_handler_regs = _tme_sunbw2_bus_cycle_csr;
/* the original Multibus bwtwo and onboard bwtwo only support
1152x900 and 1024x1024: */
sunfb->tme_sunfb_size
= (TME_SUNFB_SIZE_1152_900
| TME_SUNFB_SIZE_1024_1024);
break;
case TME_SUNBW2_TYPE_ONBOARD:
/* the onboard bwtwo doesn't have any CSR: */
sunfb->tme_sunfb_bus_handler_regs = NULL;
/* the sizes supported by a CSR-less bwtwo appear to depend on the
actual model; we assume the user knows what he is doing: */
sunfb->tme_sunfb_size = (TME_SUNFB_SIZE_NULL - 1);
break;
case TME_SUNBW2_TYPE_P4:
/* set our initial P4 register: */
sunfb->tme_sunfb_p4 = tme_htobe_u32(TME_SUNFB_P4_ID_BWTWO);
/* set the P4 register bus cycle handler: */
sunfb->tme_sunfb_bus_handler_regs = tme_sunfb_bus_cycle_p4;
/* we support the default P4 framebuffer sizes: */
sunfb->tme_sunfb_size = 0;
/* the framebuffer memory begins at a fixed offset after the P4 register: */
sunbw2->tme_sunbw2_bus_subregion_memory.tme_bus_subregion_address_first
= TME_SUNFB_P4_OFFSET_BITMAP;
break;
case TME_SUNBW2_TYPE_SBUS:
/* set the S4 register bus cycle handler: */
sunfb->tme_sunfb_bus_handler_regs = tme_sunfb_bus_cycle_s4;
/* we support the default S4 framebuffer sizes: */
sunfb->tme_sunfb_size = 0;
/* we use the default S4 memory address: */
sunbw2->tme_sunbw2_bus_subregion_memory.tme_bus_subregion_address_first = 0;
/* the SBus bwtwo uses priority seven interrupts: */
sunfb->tme_sunfb_bus_signal_int = TME_BUS_SIGNAL_INT(7);
break;
}
/* success: */
return (NULL);
}
/* the new sun bwtwo function: */
int
tme_sun_bwtwo(struct tme_element *element, const char * const *args, char **_output)
{
struct tme_sunbw2 *sunbw2;
int rc;
/* start the sunbw2 structure: */
sunbw2 = tme_new0(struct tme_sunbw2, 1);
sunbw2->tme_sunbw2_sunfb.tme_sunfb_element = element;
/* initialize the sunfb structure: */
sunbw2->tme_sunbw2_sunfb.tme_sunfb_class = TME_FB_XLAT_CLASS_MONOCHROME;
sunbw2->tme_sunbw2_sunfb.tme_sunfb_depth = 1;
sunbw2->tme_sunbw2_sunfb.tme_sunfb_type_set = _tme_sunbw2_type_set;
/* if the generic initialization fails: */
rc = tme_sunfb_new(&sunbw2->tme_sunbw2_sunfb, args, _output);
if (rc) {
/* free the sunfb structure and return the error: */
tme_free(sunbw2);
return (rc);
}
/* dispatch on the bwtwo type: */
switch (sunbw2->tme_sunbw2_type) {
default: break;
case TME_SUNBW2_TYPE_MULTIBUS:
case TME_SUNBW2_TYPE_OLD_ONBOARD:
/* set our initial CSR: */
sunbw2->tme_sunbw2_csr
= tme_htobe_u16(TME_SUNBW2_CSR_ENABLE_VIDEO
| (sunbw2->tme_sunbw2_sunfb.tme_sunfb_size == TME_SUNFB_SIZE_1024_1024
? TME_SUNBW2_CSR_JUMPER_HIRES
: 0));
break;
}
return (TME_OK);
}
Reference in New Issue View Git Blame Copy Permalink