1131 lines
33 KiB
C
1131 lines
33 KiB
C
/*
|
|
* VGA hardware emulation
|
|
*
|
|
* Copyright 1998 Ove Kåven (with some help from Marcus Meissner)
|
|
*
|
|
* This library is free software; you can redistribute it and/or
|
|
* modify it under the terms of the GNU Lesser General Public
|
|
* License as published by the Free Software Foundation; either
|
|
* version 2.1 of the License, or (at your option) any later version.
|
|
*
|
|
* This library is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
* Lesser General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU Lesser General Public
|
|
* License along with this library; if not, write to the Free Software
|
|
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
|
*/
|
|
|
|
#include <string.h>
|
|
|
|
#define NONAMELESSUNION
|
|
#define NONAMELESSSTRUCT
|
|
#include "winbase.h"
|
|
#include "wingdi.h"
|
|
#include "winuser.h"
|
|
#include "wincon.h"
|
|
#include "miscemu.h"
|
|
#include "dosexe.h"
|
|
#include "vga.h"
|
|
#include "ddraw.h"
|
|
#include "wine/debug.h"
|
|
|
|
WINE_DEFAULT_DEBUG_CHANNEL(ddraw);
|
|
|
|
static IDirectDraw *lpddraw = NULL;
|
|
static IDirectDrawSurface *lpddsurf;
|
|
static IDirectDrawPalette *lpddpal;
|
|
static DDSURFACEDESC sdesc;
|
|
|
|
static BOOL vga_retrace_vertical;
|
|
static BOOL vga_retrace_horizontal;
|
|
|
|
/*
|
|
* VGA controller memory is emulated using linear framebuffer.
|
|
* This frambuffer also acts as an interface
|
|
* between VGA controller emulation and DirectDraw.
|
|
*
|
|
* vga_fb_width: Display width in pixels. Can be modified when
|
|
* display mode is changed.
|
|
* vga_fb_height: Display height in pixels. Can be modified when
|
|
* display mode is changed.
|
|
* vga_fb_depth: Number of bits used to store single pixel color information.
|
|
* Each pixel uses (vga_fb_depth+7)/8 bytes because
|
|
* 1-16 color modes are mapped to 256 color mode.
|
|
* Can be modified when display mode is changed.
|
|
* vga_fb_pitch: How many bytes to add to pointer in order to move
|
|
* from one row to another. This is fixed in VGA modes,
|
|
* but can be modified in SVGA modes.
|
|
* vga_fb_offset: Offset added to framebuffer start address in order
|
|
* to find the display origin. Programs use this to do
|
|
* double buffering and to scroll display. The value can
|
|
* be modified in VGA and SVGA modes.
|
|
* vga_fb_size: How many bytes are allocated to framebuffer.
|
|
* VGA framebuffers are always larger than display size and
|
|
* SVGA framebuffers may also be.
|
|
* vga_fb_data: Pointer to framebuffer start.
|
|
* vga_fb_window: Offset of 64k window 0xa0000 in bytes from framebuffer start.
|
|
* This value is >= 0, if mode uses linear framebuffer and
|
|
* -1, if mode uses color planes. This value is fixed
|
|
* in all modes except 0x13 (256 color VGA) where
|
|
* 0 means normal mode and -1 means Mode-X (unchained mode).
|
|
*/
|
|
static int vga_fb_width;
|
|
static int vga_fb_height;
|
|
static int vga_fb_depth;
|
|
static int vga_fb_pitch;
|
|
static int vga_fb_offset;
|
|
static int vga_fb_size = 0;
|
|
static char *vga_fb_data = 0;
|
|
static int vga_fb_window = 0;
|
|
|
|
/*
|
|
* VGA text mode data.
|
|
*
|
|
* vga_text_attr: Current active attribute.
|
|
* vga_text_old: Last data sent to console.
|
|
* This is used to optimize console updates.
|
|
* vga_text_width: Width of the text display in characters.
|
|
* vga_text_height: Height of the text display in characters.
|
|
* vga_text_x: Current cursor X-position. Starts from zero.
|
|
* vga_text_y: Current cursor Y-position. Starts from zero.
|
|
* vga_text_console: TRUE if stdout is console,
|
|
* FALSE if it is regular file.
|
|
*/
|
|
static BYTE vga_text_attr;
|
|
static char *vga_text_old = NULL;
|
|
static BYTE vga_text_width;
|
|
static BYTE vga_text_height;
|
|
static BYTE vga_text_x;
|
|
static BYTE vga_text_y;
|
|
static BOOL vga_text_console;
|
|
|
|
/*
|
|
* VGA controller ports 0x3c0, 0x3c4, 0x3ce and 0x3d4 are
|
|
* indexed registers. These ports are used to select VGA controller
|
|
* subregister that can be written to or read from using ports 0x3c1,
|
|
* 0x3c5, 0x3cf or 0x3d5. Selected subregister indexes are
|
|
* stored in variables vga_index_*.
|
|
*
|
|
* Port 0x3c0 is special because it is both index and
|
|
* data-write register. Flip-flop vga_address_3c0 tells whether
|
|
* the port acts currently as an address register. Reading from port
|
|
* 0x3da resets the flip-flop to address mode.
|
|
*/
|
|
static BYTE vga_index_3c0;
|
|
static BYTE vga_index_3c4;
|
|
static BYTE vga_index_3ce;
|
|
static BYTE vga_index_3d4;
|
|
static BOOL vga_address_3c0 = TRUE;
|
|
|
|
/*
|
|
* This mutex is used to protect VGA state during asynchronous
|
|
* screen updates (see VGA_Poll). It makes sure that VGA state changes
|
|
* are atomic and the user interface is protected from flicker and
|
|
* corruption.
|
|
*
|
|
* The mutex actually serializes VGA operations and the screen update.
|
|
* Which means that whenever VGA_Poll occurs, application stalls if it
|
|
* tries to modify VGA state. This is not how real VGA adapters work,
|
|
* but it makes timing and correctness issues much easier to deal with.
|
|
*/
|
|
static CRITICAL_SECTION vga_lock = CRITICAL_SECTION_INIT("VGA");
|
|
|
|
typedef HRESULT (WINAPI *DirectDrawCreateProc)(LPGUID,LPDIRECTDRAW *,LPUNKNOWN);
|
|
static DirectDrawCreateProc pDirectDrawCreate;
|
|
|
|
static void CALLBACK VGA_Poll( LPVOID arg, DWORD low, DWORD high );
|
|
|
|
static HWND vga_hwnd = NULL;
|
|
|
|
/*
|
|
* For simplicity, I'm creating a second palette.
|
|
* 16 color accesses will use these pointers and insert
|
|
* entries from the 64-color palette into the default
|
|
* palette. --Robert 'Admiral' Coeyman
|
|
*/
|
|
|
|
static char vga_16_palette[17]={
|
|
0x00, /* 0 - Black */
|
|
0x01, /* 1 - Blue */
|
|
0x02, /* 2 - Green */
|
|
0x03, /* 3 - Cyan */
|
|
0x04, /* 4 - Red */
|
|
0x05, /* 5 - Magenta */
|
|
0x14, /* 6 - Brown */
|
|
0x07, /* 7 - Light gray */
|
|
0x38, /* 8 - Dark gray */
|
|
0x39, /* 9 - Light blue */
|
|
0x3a, /* A - Light green */
|
|
0x3b, /* B - Light cyan */
|
|
0x3c, /* C - Light red */
|
|
0x3d, /* D - Light magenta */
|
|
0x3e, /* E - Yellow */
|
|
0x3f, /* F - White */
|
|
0x00 /* Border Color */
|
|
};
|
|
|
|
static PALETTEENTRY vga_def_palette[256]={
|
|
/* red green blue */
|
|
{0x00, 0x00, 0x00}, /* 0 - Black */
|
|
{0x00, 0x00, 0x80}, /* 1 - Blue */
|
|
{0x00, 0x80, 0x00}, /* 2 - Green */
|
|
{0x00, 0x80, 0x80}, /* 3 - Cyan */
|
|
{0x80, 0x00, 0x00}, /* 4 - Red */
|
|
{0x80, 0x00, 0x80}, /* 5 - Magenta */
|
|
{0x80, 0x80, 0x00}, /* 6 - Brown */
|
|
{0xC0, 0xC0, 0xC0}, /* 7 - Light gray */
|
|
{0x80, 0x80, 0x80}, /* 8 - Dark gray */
|
|
{0x00, 0x00, 0xFF}, /* 9 - Light blue */
|
|
{0x00, 0xFF, 0x00}, /* A - Light green */
|
|
{0x00, 0xFF, 0xFF}, /* B - Light cyan */
|
|
{0xFF, 0x00, 0x00}, /* C - Light red */
|
|
{0xFF, 0x00, 0xFF}, /* D - Light magenta */
|
|
{0xFF, 0xFF, 0x00}, /* E - Yellow */
|
|
{0xFF, 0xFF, 0xFF}, /* F - White */
|
|
{0,0,0} /* FIXME: a series of continuous rainbow hues should follow */
|
|
};
|
|
|
|
/*
|
|
* This palette is the dos default, converted from 18 bit color to 24.
|
|
* It contains only 64 entries of colors--all others are zeros.
|
|
* --Robert 'Admiral' Coeyman
|
|
*/
|
|
static PALETTEENTRY vga_def64_palette[256]={
|
|
/* red green blue */
|
|
{0x00, 0x00, 0x00}, /* 0x00 Black */
|
|
{0x00, 0x00, 0xaa}, /* 0x01 Blue */
|
|
{0x00, 0xaa, 0x00}, /* 0x02 Green */
|
|
{0x00, 0xaa, 0xaa}, /* 0x03 Cyan */
|
|
{0xaa, 0x00, 0x00}, /* 0x04 Red */
|
|
{0xaa, 0x00, 0xaa}, /* 0x05 Magenta */
|
|
{0xaa, 0xaa, 0x00}, /* 0x06 */
|
|
{0xaa, 0xaa, 0xaa}, /* 0x07 Light Gray */
|
|
{0x00, 0x00, 0x55}, /* 0x08 */
|
|
{0x00, 0x00, 0xff}, /* 0x09 */
|
|
{0x00, 0xaa, 0x55}, /* 0x0a */
|
|
{0x00, 0xaa, 0xff}, /* 0x0b */
|
|
{0xaa, 0x00, 0x55}, /* 0x0c */
|
|
{0xaa, 0x00, 0xff}, /* 0x0d */
|
|
{0xaa, 0xaa, 0x55}, /* 0x0e */
|
|
{0xaa, 0xaa, 0xff}, /* 0x0f */
|
|
{0x00, 0x55, 0x00}, /* 0x10 */
|
|
{0x00, 0x55, 0xaa}, /* 0x11 */
|
|
{0x00, 0xff, 0x00}, /* 0x12 */
|
|
{0x00, 0xff, 0xaa}, /* 0x13 */
|
|
{0xaa, 0x55, 0x00}, /* 0x14 Brown */
|
|
{0xaa, 0x55, 0xaa}, /* 0x15 */
|
|
{0xaa, 0xff, 0x00}, /* 0x16 */
|
|
{0xaa, 0xff, 0xaa}, /* 0x17 */
|
|
{0x00, 0x55, 0x55}, /* 0x18 */
|
|
{0x00, 0x55, 0xff}, /* 0x19 */
|
|
{0x00, 0xff, 0x55}, /* 0x1a */
|
|
{0x00, 0xff, 0xff}, /* 0x1b */
|
|
{0xaa, 0x55, 0x55}, /* 0x1c */
|
|
{0xaa, 0x55, 0xff}, /* 0x1d */
|
|
{0xaa, 0xff, 0x55}, /* 0x1e */
|
|
{0xaa, 0xff, 0xff}, /* 0x1f */
|
|
{0x55, 0x00, 0x00}, /* 0x20 */
|
|
{0x55, 0x00, 0xaa}, /* 0x21 */
|
|
{0x55, 0xaa, 0x00}, /* 0x22 */
|
|
{0x55, 0xaa, 0xaa}, /* 0x23 */
|
|
{0xff, 0x00, 0x00}, /* 0x24 */
|
|
{0xff, 0x00, 0xaa}, /* 0x25 */
|
|
{0xff, 0xaa, 0x00}, /* 0x26 */
|
|
{0xff, 0xaa, 0xaa}, /* 0x27 */
|
|
{0x55, 0x00, 0x55}, /* 0x28 */
|
|
{0x55, 0x00, 0xff}, /* 0x29 */
|
|
{0x55, 0xaa, 0x55}, /* 0x2a */
|
|
{0x55, 0xaa, 0xff}, /* 0x2b */
|
|
{0xff, 0x00, 0x55}, /* 0x2c */
|
|
{0xff, 0x00, 0xff}, /* 0x2d */
|
|
{0xff, 0xaa, 0x55}, /* 0x2e */
|
|
{0xff, 0xaa, 0xff}, /* 0x2f */
|
|
{0x55, 0x55, 0x00}, /* 0x30 */
|
|
{0x55, 0x55, 0xaa}, /* 0x31 */
|
|
{0x55, 0xff, 0x00}, /* 0x32 */
|
|
{0x55, 0xff, 0xaa}, /* 0x33 */
|
|
{0xff, 0x55, 0x00}, /* 0x34 */
|
|
{0xff, 0x55, 0xaa}, /* 0x35 */
|
|
{0xff, 0xff, 0x00}, /* 0x36 */
|
|
{0xff, 0xff, 0xaa}, /* 0x37 */
|
|
{0x55, 0x55, 0x55}, /* 0x38 Dark Gray */
|
|
{0x55, 0x55, 0xff}, /* 0x39 Light Blue */
|
|
{0x55, 0xff, 0x55}, /* 0x3a Light Green */
|
|
{0x55, 0xff, 0xff}, /* 0x3b Light Cyan */
|
|
{0xff, 0x55, 0x55}, /* 0x3c Light Red */
|
|
{0xff, 0x55, 0xff}, /* 0x3d Light Magenta */
|
|
{0xff, 0xff, 0x55}, /* 0x3e Yellow */
|
|
{0xff, 0xff, 0xff}, /* 0x3f White */
|
|
{0,0,0} /* The next 192 entries are all zeros */
|
|
};
|
|
|
|
static HANDLE VGA_timer;
|
|
static HANDLE VGA_timer_thread;
|
|
|
|
/* set the timer rate; called in the polling thread context */
|
|
static void CALLBACK set_timer_rate( ULONG_PTR arg )
|
|
{
|
|
LARGE_INTEGER when;
|
|
|
|
when.s.LowPart = when.s.HighPart = 0;
|
|
SetWaitableTimer( VGA_timer, &when, arg, VGA_Poll, 0, FALSE );
|
|
}
|
|
|
|
static DWORD CALLBACK VGA_TimerThread( void *dummy )
|
|
{
|
|
for (;;) SleepEx( INFINITE, TRUE );
|
|
}
|
|
|
|
static void VGA_DeinstallTimer(void)
|
|
{
|
|
if (VGA_timer_thread)
|
|
{
|
|
/*
|
|
* Make sure the update thread is not holding
|
|
* system resources when we kill it.
|
|
*
|
|
* Now, we only need to worry about update thread
|
|
* getting terminated while in EnterCriticalSection
|
|
* or WaitForMultipleObjectsEx.
|
|
*
|
|
* FIXME: Is this a problem?
|
|
*/
|
|
EnterCriticalSection(&vga_lock);
|
|
|
|
CancelWaitableTimer( VGA_timer );
|
|
CloseHandle( VGA_timer );
|
|
TerminateThread( VGA_timer_thread, 0 );
|
|
CloseHandle( VGA_timer_thread );
|
|
VGA_timer_thread = 0;
|
|
|
|
LeaveCriticalSection(&vga_lock);
|
|
|
|
/*
|
|
* Synchronize display. This makes sure that
|
|
* changes to display become visible even if program
|
|
* terminates before update thread had time to run.
|
|
*/
|
|
VGA_Poll( 0, 0, 0 );
|
|
}
|
|
}
|
|
|
|
static void VGA_InstallTimer(unsigned Rate)
|
|
{
|
|
if (!VGA_timer_thread)
|
|
{
|
|
VGA_timer = CreateWaitableTimerA( NULL, FALSE, NULL );
|
|
VGA_timer_thread = CreateThread( NULL, 0, VGA_TimerThread, NULL, 0, NULL );
|
|
}
|
|
QueueUserAPC( set_timer_rate, VGA_timer_thread, (ULONG_PTR)Rate );
|
|
}
|
|
|
|
static BOOL VGA_IsTimerRunning(void)
|
|
{
|
|
return VGA_timer_thread ? TRUE : FALSE;
|
|
}
|
|
|
|
HANDLE VGA_AlphaConsole(void)
|
|
{
|
|
/* this assumes that no Win32 redirection has taken place, but then again,
|
|
* only 16-bit apps are likely to use this part of Wine... */
|
|
return GetStdHandle(STD_OUTPUT_HANDLE);
|
|
}
|
|
|
|
char*VGA_AlphaBuffer(void)
|
|
{
|
|
return (char *)0xb8000;
|
|
}
|
|
|
|
/*** GRAPHICS MODE ***/
|
|
|
|
typedef struct {
|
|
unsigned Xres, Yres, Depth;
|
|
int ret;
|
|
} ModeSet;
|
|
|
|
static void WINAPI VGA_DoExit(ULONG_PTR arg)
|
|
{
|
|
VGA_DeinstallTimer();
|
|
IDirectDrawSurface_SetPalette(lpddsurf,NULL);
|
|
IDirectDrawSurface_Release(lpddsurf);
|
|
lpddsurf=NULL;
|
|
IDirectDrawPalette_Release(lpddpal);
|
|
lpddpal=NULL;
|
|
IDirectDraw_Release(lpddraw);
|
|
lpddraw=NULL;
|
|
}
|
|
|
|
static void WINAPI VGA_DoSetMode(ULONG_PTR arg)
|
|
{
|
|
LRESULT res;
|
|
ModeSet *par = (ModeSet *)arg;
|
|
par->ret=1;
|
|
|
|
if (lpddraw) VGA_DoExit(0);
|
|
if (!lpddraw) {
|
|
if (!pDirectDrawCreate)
|
|
{
|
|
HMODULE hmod = LoadLibraryA( "ddraw.dll" );
|
|
if (hmod) pDirectDrawCreate = (DirectDrawCreateProc)GetProcAddress( hmod, "DirectDrawCreate" );
|
|
if (!pDirectDrawCreate) {
|
|
ERR("Can't lookup DirectDrawCreate from ddraw.dll.\n");
|
|
return;
|
|
}
|
|
}
|
|
res = pDirectDrawCreate(NULL,&lpddraw,NULL);
|
|
if (!lpddraw) {
|
|
ERR("DirectDraw is not available (res = %lx)\n",res);
|
|
return;
|
|
}
|
|
if (!vga_hwnd) {
|
|
vga_hwnd = CreateWindowExA(0,"STATIC","WINEDOS VGA",
|
|
WS_POPUP|WS_VISIBLE|SS_NOTIFY,0,0,
|
|
par->Xres,par->Yres,0,0,0,NULL);
|
|
if (!vga_hwnd) {
|
|
ERR("Failed to create user window.\n");
|
|
IDirectDraw_Release(lpddraw);
|
|
lpddraw=NULL;
|
|
return;
|
|
}
|
|
}
|
|
else
|
|
SetWindowPos(vga_hwnd,0,0,0,par->Xres,par->Yres,SWP_NOMOVE|SWP_NOZORDER);
|
|
|
|
if ((res=IDirectDraw_SetCooperativeLevel(lpddraw,vga_hwnd,DDSCL_FULLSCREEN|DDSCL_EXCLUSIVE))) {
|
|
ERR("Could not set cooperative level to exclusive (%lx)\n",res);
|
|
}
|
|
|
|
if ((res=IDirectDraw_SetDisplayMode(lpddraw,par->Xres,par->Yres,par->Depth))) {
|
|
ERR("DirectDraw does not support requested display mode (%dx%dx%d), res = %lx!\n",par->Xres,par->Yres,par->Depth,res);
|
|
IDirectDraw_Release(lpddraw);
|
|
lpddraw=NULL;
|
|
return;
|
|
}
|
|
|
|
res=IDirectDraw_CreatePalette(lpddraw,DDPCAPS_8BIT,NULL,&lpddpal,NULL);
|
|
if (res) {
|
|
ERR("Could not create palette (res = %lx)\n",res);
|
|
IDirectDraw_Release(lpddraw);
|
|
lpddraw=NULL;
|
|
return;
|
|
}
|
|
if ((res=IDirectDrawPalette_SetEntries(lpddpal,0,0,256,vga_def_palette))) {
|
|
ERR("Could not set default palette entries (res = %lx)\n", res);
|
|
}
|
|
|
|
memset(&sdesc,0,sizeof(sdesc));
|
|
sdesc.dwSize=sizeof(sdesc);
|
|
sdesc.dwFlags = DDSD_CAPS;
|
|
sdesc.ddsCaps.dwCaps = DDSCAPS_PRIMARYSURFACE;
|
|
if (IDirectDraw_CreateSurface(lpddraw,&sdesc,&lpddsurf,NULL)||(!lpddsurf)) {
|
|
ERR("DirectDraw surface is not available\n");
|
|
IDirectDraw_Release(lpddraw);
|
|
lpddraw=NULL;
|
|
return;
|
|
}
|
|
IDirectDrawSurface_SetPalette(lpddsurf,lpddpal);
|
|
vga_retrace_vertical = vga_retrace_horizontal = FALSE;
|
|
/* poll every 20ms (50fps should provide adequate responsiveness) */
|
|
VGA_InstallTimer(20);
|
|
}
|
|
par->ret=0;
|
|
return;
|
|
}
|
|
|
|
int VGA_SetMode(unsigned Xres,unsigned Yres,unsigned Depth)
|
|
{
|
|
ModeSet par;
|
|
int newSize;
|
|
|
|
vga_fb_width = Xres;
|
|
vga_fb_height = Yres;
|
|
vga_fb_depth = Depth;
|
|
vga_fb_offset = 0;
|
|
vga_fb_pitch = Xres * ((Depth + 7) / 8);
|
|
|
|
newSize = Xres * Yres * ((Depth + 7) / 8);
|
|
if(newSize < 256 * 1024)
|
|
newSize = 256 * 1024;
|
|
|
|
if(vga_fb_size < newSize) {
|
|
if(vga_fb_data)
|
|
HeapFree(GetProcessHeap(), 0, vga_fb_data);
|
|
vga_fb_data = HeapAlloc(GetProcessHeap(), 0, newSize);
|
|
vga_fb_size = newSize;
|
|
}
|
|
|
|
if(Xres >= 640 || Yres >= 480) {
|
|
par.Xres = Xres;
|
|
par.Yres = Yres;
|
|
} else {
|
|
par.Xres = 640;
|
|
par.Yres = 480;
|
|
}
|
|
|
|
VGA_SetWindowStart((Depth < 8) ? -1 : 0);
|
|
|
|
par.Depth = (Depth < 8) ? 8 : Depth;
|
|
|
|
MZ_RunInThread(VGA_DoSetMode, (ULONG_PTR)&par);
|
|
return par.ret;
|
|
}
|
|
|
|
int VGA_GetMode(unsigned*Height,unsigned*Width,unsigned*Depth)
|
|
{
|
|
if (!lpddraw) return 1;
|
|
if (!lpddsurf) return 1;
|
|
if (Height) *Height=sdesc.dwHeight;
|
|
if (Width) *Width=sdesc.dwWidth;
|
|
if (Depth) *Depth=sdesc.ddpfPixelFormat.u1.dwRGBBitCount;
|
|
return 0;
|
|
}
|
|
|
|
void VGA_Exit(void)
|
|
{
|
|
if (lpddraw) MZ_RunInThread(VGA_DoExit, 0);
|
|
}
|
|
|
|
void VGA_SetPalette(PALETTEENTRY*pal,int start,int len)
|
|
{
|
|
if (!lpddraw) return;
|
|
IDirectDrawPalette_SetEntries(lpddpal,0,start,len,pal);
|
|
}
|
|
|
|
/* set a single [char wide] color in 16 color mode. */
|
|
void VGA_SetColor16(int reg,int color)
|
|
{
|
|
PALETTEENTRY *pal;
|
|
|
|
if (!lpddraw) return;
|
|
pal= &vga_def64_palette[color];
|
|
IDirectDrawPalette_SetEntries(lpddpal,0,reg,1,pal);
|
|
vga_16_palette[reg]=(char)color;
|
|
}
|
|
|
|
/* Get a single [char wide] color in 16 color mode. */
|
|
char VGA_GetColor16(int reg)
|
|
{
|
|
|
|
if (!lpddraw) return 0;
|
|
return (char)vga_16_palette[reg];
|
|
}
|
|
|
|
/* set all 17 [char wide] colors at once in 16 color mode. */
|
|
void VGA_Set16Palette(char *Table)
|
|
{
|
|
PALETTEENTRY *pal;
|
|
int c;
|
|
|
|
if (!lpddraw) return; /* return if we're in text only mode */
|
|
memcpy( Table, &vga_16_palette, 17 ); /* copy the entries into the table */
|
|
|
|
for (c=0; c<17; c++) { /* 17 entries */
|
|
pal= &vga_def64_palette[(int)vga_16_palette[c]]; /* get color */
|
|
IDirectDrawPalette_SetEntries(lpddpal,0,c,1,pal); /* set entry */
|
|
TRACE("Palette register %d set to %d\n",c,(int)vga_16_palette[c]);
|
|
} /* end of the counting loop */
|
|
}
|
|
|
|
/* Get all 17 [ char wide ] colors at once in 16 color mode. */
|
|
void VGA_Get16Palette(char *Table)
|
|
{
|
|
|
|
if (!lpddraw) return; /* return if we're in text only mode */
|
|
memcpy( &vga_16_palette, Table, 17 ); /* copy the entries into the table */
|
|
}
|
|
|
|
void VGA_SetQuadPalette(RGBQUAD*color,int start,int len)
|
|
{
|
|
PALETTEENTRY pal[256];
|
|
int c;
|
|
|
|
if (!lpddraw) return;
|
|
for (c=0; c<len; c++) {
|
|
pal[c].peRed =color[c].rgbRed;
|
|
pal[c].peGreen=color[c].rgbGreen;
|
|
pal[c].peBlue =color[c].rgbBlue;
|
|
pal[c].peFlags=0;
|
|
}
|
|
IDirectDrawPalette_SetEntries(lpddpal,0,start,len,pal);
|
|
}
|
|
|
|
LPSTR VGA_Lock(unsigned*Pitch,unsigned*Height,unsigned*Width,unsigned*Depth)
|
|
{
|
|
if (!lpddraw) return NULL;
|
|
if (!lpddsurf) return NULL;
|
|
if (IDirectDrawSurface_Lock(lpddsurf,NULL,&sdesc,0,0)) {
|
|
ERR("could not lock surface!\n");
|
|
return NULL;
|
|
}
|
|
if (Pitch) *Pitch=sdesc.u1.lPitch;
|
|
if (Height) *Height=sdesc.dwHeight;
|
|
if (Width) *Width=sdesc.dwWidth;
|
|
if (Depth) *Depth=sdesc.ddpfPixelFormat.u1.dwRGBBitCount;
|
|
return sdesc.lpSurface;
|
|
}
|
|
|
|
void VGA_Unlock(void)
|
|
{
|
|
IDirectDrawSurface_Unlock(lpddsurf,sdesc.lpSurface);
|
|
}
|
|
|
|
/*
|
|
* Set start of 64k window at 0xa0000 in bytes.
|
|
* If value is -1, initialize color plane support.
|
|
* If value is >= 0, window contains direct copy of framebuffer.
|
|
*/
|
|
void VGA_SetWindowStart(int start)
|
|
{
|
|
if(start == vga_fb_window)
|
|
return;
|
|
|
|
EnterCriticalSection(&vga_lock);
|
|
|
|
if(vga_fb_window == -1)
|
|
FIXME("Remove VGA memory emulation.\n");
|
|
else
|
|
memmove(vga_fb_data + vga_fb_window, (char *)0xa0000, 64 * 1024);
|
|
|
|
vga_fb_window = start;
|
|
|
|
if(vga_fb_window == -1)
|
|
FIXME("Install VGA memory emulation.\n");
|
|
else
|
|
memmove( (char *)0xa0000, vga_fb_data + vga_fb_window, 64 * 1024);
|
|
|
|
LeaveCriticalSection(&vga_lock);
|
|
}
|
|
|
|
/*
|
|
* Get start of 64k window at 0xa0000 in bytes.
|
|
* Value is -1 in color plane modes.
|
|
*/
|
|
int VGA_GetWindowStart()
|
|
{
|
|
return vga_fb_window;
|
|
}
|
|
|
|
/*** TEXT MODE ***/
|
|
|
|
/* prepare the text mode video memory copy that is used to only
|
|
* update the video memory line that did get updated. */
|
|
void VGA_PrepareVideoMemCopy(unsigned Xres, unsigned Yres)
|
|
{
|
|
char *p, *p2;
|
|
int i;
|
|
|
|
/*
|
|
* Allocate space for char + attr.
|
|
*/
|
|
vga_text_old = HeapReAlloc( GetProcessHeap(), HEAP_ZERO_MEMORY,
|
|
vga_text_old, Xres * Yres * 2 );
|
|
|
|
p = VGA_AlphaBuffer();
|
|
p2 = vga_text_old;
|
|
|
|
/* make sure the video mem copy contains the exact opposite of our
|
|
* actual text mode memory area to make sure the screen
|
|
* does get updated fully initially */
|
|
for (i=0; i < Xres*Yres*2; i++)
|
|
*p2++ = *p++ ^ 0xff; /* XOR it */
|
|
}
|
|
|
|
/**********************************************************************
|
|
* VGA_SetAlphaMode
|
|
*
|
|
* Set VGA emulation to text mode.
|
|
*/
|
|
void VGA_SetAlphaMode(unsigned Xres,unsigned Yres)
|
|
{
|
|
VGA_Exit();
|
|
VGA_DeinstallTimer();
|
|
|
|
VGA_PrepareVideoMemCopy(Xres, Yres);
|
|
vga_text_width = Xres;
|
|
vga_text_height = Yres;
|
|
|
|
if (vga_text_x >= vga_text_width || vga_text_y >= vga_text_height)
|
|
VGA_SetCursorPos(0,0);
|
|
|
|
if(vga_text_console) {
|
|
COORD size;
|
|
size.X = Xres;
|
|
size.Y = Yres;
|
|
SetConsoleScreenBufferSize( VGA_AlphaConsole(), size );
|
|
|
|
/* poll every 30ms (33fps should provide adequate responsiveness) */
|
|
VGA_InstallTimer(30);
|
|
}
|
|
}
|
|
|
|
/**********************************************************************
|
|
* VGA_InitAlphaMode
|
|
*
|
|
* Initialize VGA text mode handling and return default text mode.
|
|
* This function does not set VGA emulation to text mode.
|
|
*/
|
|
void VGA_InitAlphaMode(unsigned*Xres,unsigned*Yres)
|
|
{
|
|
CONSOLE_SCREEN_BUFFER_INFO info;
|
|
|
|
if(GetConsoleScreenBufferInfo( VGA_AlphaConsole(), &info ))
|
|
{
|
|
vga_text_console = TRUE;
|
|
vga_text_x = info.dwCursorPosition.X;
|
|
vga_text_y = info.dwCursorPosition.Y;
|
|
vga_text_attr = info.wAttributes;
|
|
*Xres = info.dwSize.X;
|
|
*Yres = info.dwSize.Y;
|
|
}
|
|
else
|
|
{
|
|
vga_text_console = FALSE;
|
|
vga_text_x = 0;
|
|
vga_text_y = 0;
|
|
vga_text_attr = 0x0f;
|
|
*Xres = 80;
|
|
*Yres = 25;
|
|
}
|
|
}
|
|
|
|
/**********************************************************************
|
|
* VGA_GetAlphaMode
|
|
*
|
|
* Get current text mode. Returns TRUE and sets resolution if
|
|
* any VGA text mode has been initialized.
|
|
*/
|
|
BOOL VGA_GetAlphaMode(unsigned*Xres,unsigned*Yres)
|
|
{
|
|
if (vga_text_width != 0 && vga_text_height != 0) {
|
|
*Xres = vga_text_width;
|
|
*Yres = vga_text_height;
|
|
return TRUE;
|
|
} else
|
|
return FALSE;
|
|
}
|
|
|
|
void VGA_SetCursorShape(unsigned char start_options, unsigned char end)
|
|
{
|
|
CONSOLE_CURSOR_INFO cci;
|
|
|
|
/* standard cursor settings:
|
|
* 0x0607 == CGA, 0x0b0c == monochrome, 0x0d0e == EGA/VGA */
|
|
|
|
/* calculate percentage from bottom - assuming VGA (bottom 0x0e) */
|
|
cci.dwSize = ((end & 0x1f) - (start_options & 0x1f))/0x0e * 100;
|
|
if (!cci.dwSize) cci.dwSize++; /* NULL cursor would make SCCI() fail ! */
|
|
cci.bVisible = ((start_options & 0x60) != 0x20); /* invisible ? */
|
|
|
|
SetConsoleCursorInfo(VGA_AlphaConsole(),&cci);
|
|
}
|
|
|
|
void VGA_SetCursorPos(unsigned X,unsigned Y)
|
|
{
|
|
vga_text_x = X;
|
|
vga_text_y = Y;
|
|
}
|
|
|
|
void VGA_GetCursorPos(unsigned*X,unsigned*Y)
|
|
{
|
|
if (X) *X = vga_text_x;
|
|
if (Y) *Y = vga_text_y;
|
|
}
|
|
|
|
static void VGA_PutCharAt(unsigned x, unsigned y, BYTE ascii, int attr)
|
|
{
|
|
char *dat = VGA_AlphaBuffer() + ((vga_text_width * y + x) * 2);
|
|
dat[0] = ascii;
|
|
if (attr>=0)
|
|
dat[1] = attr;
|
|
}
|
|
|
|
void VGA_WriteChars(unsigned X,unsigned Y,unsigned ch,int attr,int count)
|
|
{
|
|
EnterCriticalSection(&vga_lock);
|
|
|
|
while (count--)
|
|
VGA_PutCharAt(X + count, Y, ch, attr);
|
|
|
|
LeaveCriticalSection(&vga_lock);
|
|
}
|
|
|
|
void VGA_PutChar(BYTE ascii)
|
|
{
|
|
EnterCriticalSection(&vga_lock);
|
|
|
|
switch(ascii) {
|
|
case '\b':
|
|
if (vga_text_x)
|
|
vga_text_x--;
|
|
break;
|
|
|
|
case '\t':
|
|
vga_text_x += ((vga_text_x + 8) & ~7) - vga_text_x;
|
|
break;
|
|
|
|
case '\n':
|
|
vga_text_y++;
|
|
vga_text_x = 0;
|
|
break;
|
|
|
|
case '\a':
|
|
break;
|
|
|
|
case '\r':
|
|
vga_text_x = 0;
|
|
break;
|
|
|
|
default:
|
|
VGA_PutCharAt(vga_text_x, vga_text_y, ascii, vga_text_attr);
|
|
vga_text_x++;
|
|
}
|
|
|
|
if (vga_text_x >= vga_text_width)
|
|
{
|
|
vga_text_x = 0;
|
|
vga_text_y++;
|
|
}
|
|
|
|
if (vga_text_y >= vga_text_height)
|
|
{
|
|
vga_text_y = vga_text_height - 1;
|
|
VGA_ScrollUpText( 0, 0,
|
|
vga_text_height - 1, vga_text_width - 1,
|
|
1, vga_text_attr );
|
|
}
|
|
|
|
/*
|
|
* If we don't have a console, write directly to standard output.
|
|
*/
|
|
if(!vga_text_console)
|
|
WriteFile(VGA_AlphaConsole(), &ascii, 1, NULL, NULL);
|
|
|
|
LeaveCriticalSection(&vga_lock);
|
|
}
|
|
|
|
void VGA_SetTextAttribute(BYTE attr)
|
|
{
|
|
vga_text_attr = attr;
|
|
}
|
|
|
|
void VGA_ClearText(unsigned row1, unsigned col1,
|
|
unsigned row2, unsigned col2,
|
|
BYTE attr)
|
|
{
|
|
unsigned x, y;
|
|
|
|
EnterCriticalSection(&vga_lock);
|
|
|
|
for(y=row1; y<=row2; y++)
|
|
for(x=col1; x<=col2; x++)
|
|
VGA_PutCharAt(x, y, 0x20, attr);
|
|
|
|
LeaveCriticalSection(&vga_lock);
|
|
}
|
|
|
|
void VGA_ScrollUpText(unsigned row1, unsigned col1,
|
|
unsigned row2, unsigned col2,
|
|
unsigned lines, BYTE attr)
|
|
{
|
|
char *buffer = VGA_AlphaBuffer();
|
|
unsigned y;
|
|
|
|
EnterCriticalSection(&vga_lock);
|
|
|
|
/*
|
|
* Scroll buffer.
|
|
*/
|
|
for (y = row1; y <= row2 - lines; y++)
|
|
memmove( buffer + col1 + y * vga_text_width * 2,
|
|
buffer + col1 + (y + lines) * vga_text_width * 2,
|
|
(col2 - col1 + 1) * 2 );
|
|
|
|
/*
|
|
* Fill exposed lines.
|
|
*/
|
|
for (y = max(row1, row2 - lines + 1); y <= row2; y++)
|
|
VGA_WriteChars( col1, y, ' ', attr, col2 - col1 + 1 );
|
|
|
|
LeaveCriticalSection(&vga_lock);
|
|
}
|
|
|
|
void VGA_ScrollDownText(unsigned row1, unsigned col1,
|
|
unsigned row2, unsigned col2,
|
|
unsigned lines, BYTE attr)
|
|
{
|
|
char *buffer = VGA_AlphaBuffer();
|
|
unsigned y;
|
|
|
|
EnterCriticalSection(&vga_lock);
|
|
|
|
/*
|
|
* Scroll buffer.
|
|
*/
|
|
for (y = row2; y >= row1 + lines; y--)
|
|
memmove( buffer + col1 + y * vga_text_width * 2,
|
|
buffer + col1 + (y - lines) * vga_text_width * 2,
|
|
(col2 - col1 + 1) * 2 );
|
|
|
|
/*
|
|
* Fill exposed lines.
|
|
*/
|
|
for (y = row1; y <= min(row1 + lines - 1, row2); y++)
|
|
VGA_WriteChars( col1, y, ' ', attr, col2 - col1 + 1 );
|
|
|
|
LeaveCriticalSection(&vga_lock);
|
|
}
|
|
|
|
void VGA_GetCharacterAtCursor(BYTE *ascii, BYTE *attr)
|
|
{
|
|
char *dat;
|
|
|
|
dat = VGA_AlphaBuffer() + ((vga_text_width * vga_text_y + vga_text_x) * 2);
|
|
|
|
*ascii = dat[0];
|
|
*attr = dat[1];
|
|
}
|
|
|
|
|
|
/*** CONTROL ***/
|
|
|
|
/* FIXME: optimize by doing this only if the data has actually changed
|
|
* (in a way similar to DIBSection, perhaps) */
|
|
static void VGA_Poll_Graphics(void)
|
|
{
|
|
unsigned int Pitch, Height, Width, X, Y;
|
|
char *surf;
|
|
char *dat = vga_fb_data + vga_fb_offset;
|
|
int bpp = (vga_fb_depth + 7) / 8;
|
|
|
|
surf = VGA_Lock(&Pitch,&Height,&Width,NULL);
|
|
if (!surf) return;
|
|
|
|
/*
|
|
* Synchronize framebuffer contents.
|
|
*/
|
|
if(vga_fb_window != -1)
|
|
memmove(vga_fb_data + vga_fb_window, (char *)0xa0000, 64 * 1024);
|
|
|
|
/*
|
|
* Double VGA framebuffer (320x200 -> 640x400), if needed.
|
|
*/
|
|
if(Height >= 2 * vga_fb_height && Width >= 2 * vga_fb_width && bpp == 1)
|
|
for (Y=0; Y<vga_fb_height; Y++,surf+=Pitch*2,dat+=vga_fb_pitch)
|
|
for (X=0; X<vga_fb_width; X++) {
|
|
BYTE value = dat[X];
|
|
surf[X*2] = value;
|
|
surf[X*2+1] = value;
|
|
surf[X*2+Pitch] = value;
|
|
surf[X*2+Pitch+1] = value;
|
|
}
|
|
else
|
|
for (Y=0; Y<vga_fb_height; Y++,surf+=Pitch,dat+=vga_fb_pitch)
|
|
memcpy(surf, dat, vga_fb_width * bpp);
|
|
|
|
VGA_Unlock();
|
|
}
|
|
|
|
static void VGA_Poll_Text(void)
|
|
{
|
|
char *dat, *old, *p_line;
|
|
unsigned int X, Y;
|
|
CHAR_INFO ch[256]; /* that should suffice for the largest text width */
|
|
COORD siz, off;
|
|
SMALL_RECT dest;
|
|
HANDLE con = VGA_AlphaConsole();
|
|
BOOL linechanged = FALSE; /* video memory area differs from stored copy? */
|
|
|
|
/* Synchronize cursor position. */
|
|
off.X = vga_text_x;
|
|
off.Y = vga_text_y;
|
|
SetConsoleCursorPosition(con,off);
|
|
|
|
dat = VGA_AlphaBuffer();
|
|
old = vga_text_old; /* pointer to stored video mem copy */
|
|
siz.X = vga_text_width; siz.Y = 1;
|
|
off.X = 0; off.Y = 0;
|
|
|
|
/* copy from virtual VGA frame buffer to console */
|
|
for (Y=0; Y<vga_text_height; Y++) {
|
|
linechanged = memcmp(dat, old, vga_text_width*2);
|
|
if (linechanged)
|
|
{
|
|
/*TRACE("line %d changed\n", Y);*/
|
|
p_line = dat;
|
|
for (X=0; X<vga_text_width; X++) {
|
|
ch[X].Char.AsciiChar = *p_line++;
|
|
/* WriteConsoleOutputA doesn't like "dead" chars */
|
|
if (ch[X].Char.AsciiChar == '\0')
|
|
ch[X].Char.AsciiChar = ' ';
|
|
ch[X].Attributes = *p_line++;
|
|
}
|
|
dest.Top=Y; dest.Bottom=Y;
|
|
dest.Left=0; dest.Right=vga_text_width+1;
|
|
WriteConsoleOutputA(con, ch, siz, off, &dest);
|
|
memcpy(old, dat, vga_text_width*2);
|
|
}
|
|
/* advance to next text line */
|
|
dat += vga_text_width*2;
|
|
old += vga_text_width*2;
|
|
}
|
|
}
|
|
|
|
static void CALLBACK VGA_Poll( LPVOID arg, DWORD low, DWORD high )
|
|
{
|
|
EnterCriticalSection(&vga_lock);
|
|
|
|
if (lpddraw)
|
|
VGA_Poll_Graphics();
|
|
else
|
|
VGA_Poll_Text();
|
|
|
|
/*
|
|
* Fake start of retrace.
|
|
*/
|
|
vga_retrace_vertical = TRUE;
|
|
|
|
LeaveCriticalSection(&vga_lock);
|
|
}
|
|
|
|
static BYTE palreg,palcnt;
|
|
static PALETTEENTRY paldat;
|
|
|
|
void VGA_ioport_out( WORD port, BYTE val )
|
|
{
|
|
switch (port) {
|
|
case 0x3c0:
|
|
if (vga_address_3c0)
|
|
vga_index_3c0 = val;
|
|
else
|
|
FIXME("Unsupported index, register 0x3c0: 0x%02x (value 0x%02x)\n",
|
|
vga_index_3c0, val);
|
|
vga_address_3c0 = !vga_address_3c0;
|
|
break;
|
|
case 0x3c4:
|
|
vga_index_3c4 = val;
|
|
break;
|
|
case 0x3c5:
|
|
switch(vga_index_3c4) {
|
|
case 0x04: /* Sequencer: Memory Mode Register */
|
|
if(vga_fb_depth == 8)
|
|
VGA_SetWindowStart((val & 8) ? 0 : -1);
|
|
else
|
|
FIXME("Memory Mode Register not supported in this mode.\n");
|
|
break;
|
|
default:
|
|
FIXME("Unsupported index, register 0x3c4: 0x%02x (value 0x%02x)\n",
|
|
vga_index_3c4, val);
|
|
}
|
|
break;
|
|
case 0x3c8:
|
|
palreg=val; palcnt=0; break;
|
|
case 0x3c9:
|
|
((BYTE*)&paldat)[palcnt++]=val << 2;
|
|
if (palcnt==3) {
|
|
VGA_SetPalette(&paldat,palreg++,1);
|
|
palcnt=0;
|
|
}
|
|
break;
|
|
case 0x3ce:
|
|
vga_index_3ce = val;
|
|
break;
|
|
case 0x3cf:
|
|
FIXME("Unsupported index, register 0x3ce: 0x%02x (value 0x%02x)\n",
|
|
vga_index_3ce, val);
|
|
break;
|
|
case 0x3d4:
|
|
vga_index_3d4 = val;
|
|
break;
|
|
case 0x3d5:
|
|
FIXME("Unsupported index, register 0x3d4: 0x%02x (value 0x%02x)\n",
|
|
vga_index_3d4, val);
|
|
break;
|
|
default:
|
|
FIXME("Unsupported VGA register: 0x%04x (value 0x%02x)\n", port, val);
|
|
}
|
|
}
|
|
|
|
BYTE VGA_ioport_in( WORD port )
|
|
{
|
|
BYTE ret;
|
|
|
|
switch (port) {
|
|
case 0x3c1:
|
|
FIXME("Unsupported index, register 0x3c0: 0x%02x\n",
|
|
vga_index_3c0);
|
|
return 0xff;
|
|
case 0x3c5:
|
|
switch(vga_index_3c4) {
|
|
case 0x04: /* Sequencer: Memory Mode Register */
|
|
return (VGA_GetWindowStart() == -1) ? 0xf7 : 0xff;
|
|
default:
|
|
FIXME("Unsupported index, register 0x3c4: 0x%02x\n",
|
|
vga_index_3c4);
|
|
return 0xff;
|
|
}
|
|
case 0x3cf:
|
|
FIXME("Unsupported index, register 0x3ce: 0x%02x\n",
|
|
vga_index_3ce);
|
|
return 0xff;
|
|
case 0x3d5:
|
|
FIXME("Unsupported index, register 0x3d4: 0x%02x\n",
|
|
vga_index_3d4);
|
|
return 0xff;
|
|
|
|
case 0x3da:
|
|
/*
|
|
* Read from this register resets register 0x3c0 address flip-flop.
|
|
*/
|
|
vga_address_3c0 = TRUE;
|
|
|
|
/*
|
|
* Read from this register returns following bits:
|
|
* xxxx1xxx = Vertical retrace in progress if set.
|
|
* xxxxx1xx = Light pen switched on.
|
|
* xxxxxx1x = Light pen trigger set.
|
|
* xxxxxxx1 = Either vertical or horizontal retrace
|
|
* in progress if set.
|
|
*/
|
|
ret = 0;
|
|
if (vga_retrace_vertical)
|
|
ret |= 9;
|
|
if (vga_retrace_horizontal)
|
|
ret |= 3;
|
|
|
|
/*
|
|
* If VGA mode has been set, vertical retrace is
|
|
* turned on once a frame and cleared after each read.
|
|
* This might cause applications that synchronize with
|
|
* vertical retrace to actually skip one frame but that
|
|
* is probably not a problem.
|
|
*
|
|
* If no VGA mode has been set, vertical retrace is faked
|
|
* by toggling the value after every read.
|
|
*/
|
|
if (VGA_IsTimerRunning())
|
|
vga_retrace_vertical = FALSE;
|
|
else
|
|
vga_retrace_vertical = !vga_retrace_vertical;
|
|
|
|
/*
|
|
* Toggle horizontal retrace.
|
|
*/
|
|
vga_retrace_horizontal = !vga_retrace_horizontal;
|
|
break;
|
|
|
|
default:
|
|
ret=0xff;
|
|
FIXME("Unsupported VGA register: 0x%04x\n", port);
|
|
}
|
|
return ret;
|
|
}
|
|
|
|
void VGA_Clean(void)
|
|
{
|
|
VGA_Exit();
|
|
VGA_DeinstallTimer();
|
|
}
|