ga.c

<B>Digital的Unix操作系统VAX 4.2源码</B>

#ifndef lint
static char *sccsid = "@(#)ga.c	4.5      (ULTRIX)  11/9/90";
#endif lint

/************************************************************************
 *									*
 *			Copyright (c) 1990 by				*
 *		Digital Equipment Corporation, Maynard, MA		*
 *			All rights reserved.				*
 *									*
 *   This software is furnished under a license and may be used and	*
 *   copied  only  in accordance with the terms of such license and	*
 *   with the  inclusion  of  the  above  copyright  notice.   This	*
 *   software  or  any  other copies thereof may not be provided or	*
 *   otherwise made available to any other person.  No title to and	*
 *   ownership of the software is hereby transferred.			*
 *									*
 *   The information in this software is subject to change  without	*
 *   notice  and should not be construed as a commitment by Digital	*
 *   Equipment Corporation.						*
 *									*
 *   Digital assumes no responsibility for the use  or  reliability	*
 *   of its software on equipment which is not supplied by Digital.	*
 *									*
 ************************************************************************/

/************************************************************************
 *
 * Modification History
 *
 *   28-Aug-90 Joe Szczypek
 *      Modified use of osconsole environment variable to comply with new
 *      DS5000 TURBOchannel.  Multiple output no longer supported by
 *      console.
 *
 *   19-Apr-90 Sam Hsu
 *	Since pte resource usage is the same whether you map 1 word or
 *	1024 words, then might as well do the latter and map entire option
 *	board, so can debug at will, thus rendering HWDEBUG irrelevant to
 *	this module.  Also saves 1 sms.  Disable watch-paging hooks.  Add
 *	some wbflush()s in sendPacket when dealing with stic ipdvint reg.
 *
 *    5-Apr-90 Paul Jensen
 *	1) Verify the #else side of HWDEBUG works.  2) Allow the console
 *	to write to the screen without hanging the server. 3) Map the
 *	ring buffer into K1.  Cacheing doesn't appear to help getimage
 *	at all.  This should be revisited if and when the cacheflush()
 *	syscall works, as it has the ability to invalidate cache entries
 *	without generating memory requests. ??? XXX
 *
 *   19-Mar-90 Sam Hsu
 *      Add code to watch paging activity (vm_hook and open).  Linkage for
 *      VDAC reset.  Merge in Paul's changes since BL11 submit.  Add
 *	_gx_modtype linkage.
 *
 *   22-Feb-90 Sam Hsu
 *	Use kernel text for packet buffers b/c of 2MB STIC addr limit.
 *	#ifdef'd on GA_ALLOC_{TX|DT|KM} for text, data, km_alloc, resp'ly.
 *
 *   12-Feb-90 Paul Jensen
 *	Use Packet Done interrupts to dispatch STIC packets.
 *
 *   05-Feb-90 Sam Hsu
 *	Poll packetdone intr bit instead of STIC dma register.
 *
 *   29-Jan-90 Sam Hsu
 *	Dynamic debug levels.  gaintr() checks for stic error.  vblank
 *	and pktdone intrs not used.
 *
 *   18-Jan-90 Sam Hsu
 *	Fix ga_cons_init() - don't PHYS_TO_K1 when looking for whether
 *	option is configured (kn02where_option()) until after test == 0.
 *	Use GA_DTYPE instead of GA_DISPLAY.
 *
 *   17-Dec-89 Sam Hsu
 *	Move ga_init_stic() to gx.c.  Ifdef'd HWDEBUG gxInfo->gxo.
 *	Update call to gx_decode_option().  Add ws_display_* sizer var's.
 *
 *   15-Dec-89 Alan Frechette
 *	Changes to "ws_display_type" and "ws_display_units".
 *
 *   15-Dec-89 Paul Jensen
 *	Merge in Sam Hsu's fixes.  Make sure stic_dma_rb returns the
 *	correct value.
 *
 *   06-Dec-89 Paul Jensen
 *	Use km_alloc() for getting contiguous memory for the ring buffer.
 *
 *   04-Dec-89 Sam Hsu
 *	Conversion to gx/ga/gq driver modules and Ultrix 4.0-8.
 *
 *   21-Sep-89 Paul Jensen
 *	This is the driver for the 3Max Accelerated 2D graphics
 *	option.  It is derived from Sam Hsu's 3D driver, pm.c
 *	Version 1.4.
 *
 * $Header: /nfs/kodak/local/4.0-12/io/tc/RCS/ga.c,v 1.27 90/05/07 11:24:53 fhsu Exp $
 ************************************************************************/
#define _GA_C_

#include "../data/gx_data.c"
#include "../data/ga_data.c"

#undef HWDEBUG

/*
 * Definition of the driver for the auto-configuration program.
 */
int	ga_probe(), ga_attach(), gaintr();
int	ga_close(), ga_open(), ga_ioctl();

struct	uba_driver gadriver = 
        { ga_probe, 0, ga_attach, 0, gxstd, "ga", gxinfo };

/*
 * Internal routines.
 */
int ga_config(), ga_init_cons(), ga_cons_init(), ga_vm_hook();
int *ga_getPacket();

static gaMap	*gao /*= GA_ADDR*/;
static int 	gx_priv_size;


/******************************************************************
 ** ga_probe():                                                  **
 ** Routine to see if the graphic device will interrupt.         **
 **                                                              **
 ******************************************************************/
ga_probe(reg)
{
    GX_DEBUG(GX_BLAB,
	     gx_puts("gaprobe()\n");
	     );

    return(1);
} /* end gaprobe() */


/******************************************************************
 ** ga_attach():                                                 **
 ** Routine to attach to the graphic device.                     **
 **                                                              **
 ******************************************************************/
ga_attach(reg, unit)
{
    GX_DEBUG(GX_GAB,
	     gx_printf("gaattach: gx_priv=0x%x,gxp=0x%x\n",gx_priv,gxp);
	     );

    /*  
     *  ga_init_cons() is now called from ga_cons_init()...
     */
    printf("ga0 ( %d plane %dx%d stamp )\n",
	   gxp->nplanes,
	   gxp->stamp_width,
	   gxp->stamp_height);

    /*
     * init the "latest mouse report" structure
     */
    gx_last_rep.state = 0;
    gx_last_rep.dx = 0;
    gx_last_rep.dy = 0;
    gx_last_rep.bytcnt = 0;

    gx_keyboard.hold = 0;	/* "Hold Screen" key is pressed if 1 */

    if(!gx_inkbdreset)		/* init the keyboard */
	gx_kbdreset();

} /* end gaattach() */


/******************************************************************
 **                                                              **
 ** Routine to close the graphic device.                         **
 **                                                              **
 ******************************************************************/

/*ARGSUSED*/
ga_close(dev, flag)
    dev_t dev;
    int flag;
{
    register struct tty *tp;
    register int unit = minor(dev);

    _gx_stic->ipdvint = (_gx_stic->ipdvint | STIC_INT_P_WE) &
			     ~(STIC_INT_E_WE | STIC_INT_V_WE |
			       STIC_INT_P_EN | STIC_INT_P);

    gaVintr_count[unit] = 0;
    gaSintr_count[unit] = 0;
    gaPintr_count[unit] = 0;
    gaEintr_count[unit] = 0;

#   if 0
#   ifdef p_dev_VM_maint
    /* unexpress interest in server's vm activity... */
    if (GX_HAVESERVER)
    {
	gx_serverp->p_dev_VM_maint = 0;
	GX_DEBUG(GX_GAB,
		 gx_printf("ga_close: pid=%d\n", gx_serverp->p_pid);
		 );
    }
#   endif
#   endif 0
    return 0;
} /* end ga_close() */


/******************************************************************
 ** ga_ioctl():                                                  **
 ** 2DA-specific ioctl routine.                                  **
 **                                                              **
 ******************************************************************/
#define DWN_(X)	(((int)(X)) & ~(CLBYTES-1))
#define RND_(X)	DWN_(((int)(X)) + CLBYTES-1)

/*ARGSUSED*/
ga_ioctl(dev, cmd, data, flag)
    dev_t dev;
    register caddr_t data;
{
    int smid, unit;
    int tmp1;
    register int i;
    int poll_addr;	/* "virtual" address of base of STIC poll space */
    int rb_phys_addr;	/* phys addr of the ring buffer */
    int rb_poll_base;	/* phys address of entry mapping ring buffer */
    int rb_poll_off;	/* offset from start of poll space to rb entry */
    int serr;
    gxInfo *infop;
    gxPriv *gap;

    switch( cmd ) 
    {
     case QIOCGINFO:		     /* return screen info */

	/* check for server already done... */
	serr = GX_ERR_PRIV;
	unit = minor(dev);
	/*
	 * We can assume that gx_priv is page-aligned, since it must
	 * be physically contiguous on the 2DA.
	 */
	tmp1 = RND_( ((int)gx_priv & (CLBYTES-1)) + gx_priv_size);
	GX_DEBUG(GX_GAB,
		 gx_printf("gaioctl: gx_priv=0x%x RND=0x%x siz=%d\n",
			   gx_priv, RND_(gx_priv), tmp1);
		 );
	if ((smid = vm_system_smget(DWN_(gx_priv), tmp1, 0600)) < 0) {
	    cprintf("gaioctl: smget failed\n");
	    goto bad;
	}
	if ((tmp1 = (int)smat(smid, 0, 0)) < 0) {
	    cprintf("gaioctl: smat failed\n");
	    goto bad;
	}
	if (smctl(smid, IPC_RMID, 0))
	    goto bad;
	gap = (gxPriv *)(tmp1 | ((int)gx_priv & (CLBYTES-1)));
	infop = &gx_infos[unit].info;
	infop->qe.events = gap->events;
	infop->qe.tcs = gap->tcs;
	/*infop->curs_bits = gap->cursor;*/
	/*infop->colormap = gap->colormap;*/
	infop->ptpt_phys = 0;
	infop->ptpt_size = 0;

	/*
	 * The server uses the "physical" address to figure out
	 * which address in STIC polling space to read in order to
	 * dispatch a packet.  However, the STIC's physical addresses
	 * do not map directly onto host physical addresses.  Furthermore,
	 * we are not interested in the address of the ucode packet,
	 * but rather the embedded STIC packet within.  This is the origin
	 * of the mysterious fudge factor of 12.  The physical address
	 * points to the start of the ring buffer, but the STIC address
	 * points to the first STIC packet in the ring buffer.
	 */
	rb_phys_addr = svtophy(gx_ringbuffer);
	rb_poll_off = GX_SYS_TO_DMA(rb_phys_addr + 12);
	infop->rb_phys = GX_SYS_TO_STIC(rb_phys_addr + 12);
	/*
	 * The address we return to the user in rb_addr
	 * must be a kuseg address; however, to derive the physical
	 * address, we must use the kseg0 address.
	 */
	infop->rb_addr = (int *)gap + gx_rboffset;
	infop->rb_size = GA_RBUF_SIZE;

	GX_DEBUG(GX_YAK,
		 gx_printf("gaioctl: Prb=0x%x,Vrb=0x%x,siz=%d,phyadr=0x%x\n",
			   infop->rb_phys, infop->rb_addr, infop->rb_size,
			   rb_phys_addr);
		 );

	/*
	 * 2DA option board addresses - whole shebang
	 */
	serr = GX_ERR_GAO;
	if((smid=vm_system_smget(DWN_(gao), RND_(sizeof(gaMap)), 0600)) < 0)
	    goto bad;
	if((tmp1 = (int)smat(smid,0, 0)) < 0)
	    goto bad;
	if (smctl(smid, IPC_RMID, 0))
	    goto bad;
	tmp1 |= (int) gao & (CLBYTES-1);
	infop->gxo = (char *) tmp1;
	infop->gram = (int *)0;		/* meaningless on 2DA */
	poll_addr = (int) GA_POLL(tmp1);
	infop->stic_dma_rb = (int *)(poll_addr + rb_poll_off);

	GX_DEBUG(GX_YAK,
		 gx_printf("gaioctl: gao=0x%x,tmp1=0x%x,poll=0x%x\n",
			   gao, tmp1, infop->stic_dma_rb);
		 );
	infop->stic_reg = (int *)GA_STIC(tmp1);

#	ifdef notdef
	/*
	 * Map STIC DMA address space into kuseg.  We only map a single
	 * cluster, since we need to span only 96K of main memory
	 * (== 48 words of STIC address space);
	 */
	serr = GX_ERR_POLL;
	/* rb_poll_base = kseg address which polls start of ring buffer */
	rb_poll_base = (int)(GA_POLL(gao)) + rb_poll_off;
	if((smid=vm_system_smget(DWN_(rb_poll_base), CLBYTES, 0600)) < 0)
	    goto bad;
	if((tmp1 = (int)smat(smid,0, 0)) < 0)
	    goto bad;
	if (smctl(smid, IPC_RMID, 0))
	    goto bad;
	tmp1 |= rb_poll_base & (CLBYTES-1);
	infop->stic_dma_rb = (int *) tmp1;
	/*
	 * This is a "fake address" which subtracts the poll offset, to
	 * compensate for not mapping the start of poll space, but rather
	 * the first page which maps the ring buffer.  This allows the
	 * loop cimputing the 'srv_qpoll' addresses to move outside the
	 * ifdef.
	 */
	poll_addr = tmp1 - rb_poll_off;

	/*
	 * Map STIC control registers into kuseg
	 */
	serr = GX_ERR_STIC;
	if((smid=vm_system_smget(DWN_(GA_STIC(gao)), CLBYTES, 0600)) < 0)
	    goto bad;
	if((tmp1 = (int)smat(smid,0, 0)) < 0)
	    goto bad;
	if (smctl(smid, IPC_RMID, 0))
	    goto bad;
	tmp1 |= (int) GA_STIC(gao) & (CLBYTES-1);
	infop->stic_reg = (int *) tmp1;

#	endif notdef

	/*
	 * These addresses are used by the server when it is directly
	 * submitting packets to the STIC.
	 */
	for (i = 0; i < GA_QUEUE_PACKETS; i++) {
	    gaComArea->SRV2DCom.srv_qpoll[i] = (int *)((char *)poll_addr +
		GX_SYS_TO_DMA(&gaComArea->IntrBuf[i][3]));
	}

	*(gxInfo **)data =
	    gx_infos[unit].shmat =
		&(gap->infos[unit].info);
	break;

     bad:	
	*(gxInfo **)data = 0;
	return (serr);

     case QIOWCURSOR:		     /* old calls -> noop */
     case QIOSETCMAP:
     case QIOWCURSORCOLOR:
      {
	/* rude hack to invalidate image buffer cache entries */
	int *imagebuf = gx_ringbuffer + 0x803 - (1 << 16);
	int i;
	int sum = 0;

	/* line size is 4, so don't read every word */
	for (i=0; i<=0x800; i+=4) sum += imagebuf[i];
	*(int *)data = 0x6660000 | (sum & 0xfff);
      }
	break;

     default:			     /* not ours ??  */
	return GX_ERR_NOOP;
    }
    return GX_ERR_NONE;

} /* end gaioctl() */


ga_init_cons()
{
    gx_setup();
 
    ws_display_type = GA_DTYPE;
    ws_display_units = 1;

    return;
}/* end ga_init_cons() */