dosbox-wii/src/ints/int10.cpp

/*
 *  Copyright (C) 2002  The DOSBox Team
 *
 *  This program is free software; you can redistribute it and/or modify
 *  it under the terms of the GNU General Public License as published by
 *  the Free Software Foundation; either version 2 of the License, or
 *  (at your option) any later version.
 *
 *  This program 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 Library General Public License for more details.
 *
 *  You should have received a copy of the GNU General Public License
 *  along with this program; if not, write to the Free Software
 *  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 */


#include <string.h>
#include "dosbox.h"
#include "bios.h"
#include "mem.h"
#include "callback.h"
#include "regs.h"
#include "video.h"
#include "inout.h"
#include "int10.h"

#define TEXT_SEG 0xb800

static Bitu call_10;
static bool warned_ff=false;


static Bitu INT10_Handler(void) {
	switch (reg_ah) {
	case 0x00:								/* Set VideoMode */
		INT10_SetVideoMode(reg_al);
		break;
	case 0x01:								/* Set TextMode Cursor Shape */
		LOG_WARN("INT10:01:Set textmode cursor shape not supported");
		break;
	case 0x02:								/* Set Cursor Pos */
		//TODO Check some shit but not really usefull
		INT10_SetCursorPos(reg_dh,reg_dl,reg_bh);
		break;
	case 0x03:								/* get Cursor Pos and Cursor Shape*/
		//TODO the Cursor Shape Stuff
		reg_dl=CURSOR_POS_COL(reg_bh);
		reg_dh=CURSOR_POS_ROW(reg_bh);
		break;
	case 0x04:								/* read light pen pos YEAH RIGHT */
		LOG_WARN("INT10:04:Ligthpen not supported");
		break;
	case 0x05:								/* Set Active Page */
		INT10_SetActivePage(reg_al);
		break;	
	case 0x06:								/* Scroll Up */
//TODO Graphics mode scroll
		INT10_ScrollUpWindow(reg_ch,reg_cl,reg_dh,reg_dl,reg_al,reg_bh,0xFF);
		break;
	case 0x07:								/* Scroll Down */
		INT10_ScrollDownWindow(reg_ch,reg_cl,reg_dh,reg_dl,reg_al,reg_bh,0xFF);
		break;
	case 0x08:								/* Read character & attribute at cursor */
//TODO Check for GRAPH and then just return 
		INT10_ReadCharAttr(&reg_ax,reg_bh);
		break;						
	case 0x09:								/* Write Character & Attribute at cursor CX times */
		INT10_WriteChar(reg_al,reg_bl,reg_bh,reg_cx,true);
		break;
	case 0x0A:								/* Write Character at cursor CX times */
		INT10_WriteChar(reg_al,reg_bl,reg_bh,reg_cx,false);
		break;
	case 0x0B:								/* Set Background/Border Colour & Set Palette*/
		break;
		E_Exit("Unsupported int 10 call %02X" ,reg_ah);
		break;
	case 0x0C:								/* Write Graphics Pixel */
		INT10_PutPixel(reg_cx,reg_dx,reg_bh,reg_al);
		break;
	case 0x0D:								/* Read Graphics Pixel */
		INT10_GetPixel(reg_cx,reg_dx,reg_bh,&reg_al);
		break;
	case 0x0E:								/* Teletype OutPut */
		//TODO FIX
		INT10_TeletypeOutput(reg_al,reg_bl,false,0);
//		INT10_TeletypeOutput(reg_al,reg_bl,false,reg_bh);
		break;
	case 0x0F:								/* Get videomode */
		reg_bh=real_readb(BIOSMEM_SEG,BIOSMEM_CURRENT_PAGE);
		reg_al=real_readb(BIOSMEM_SEG,BIOSMEM_CURRENT_MODE);
		reg_ah=(Bit8u)real_readw(BIOSMEM_SEG,BIOSMEM_NB_COLS);
		break;					
	case 0x10:								/* EGA/VGA Palette functions */
		switch (reg_al) {
		case 0x00:							/* SET SINGLE PALETTE REGISTER */
			INT10_SetSinglePaletteRegister(reg_bl,reg_bh);
			break;
		case 0x01:							/* SET BORDER (OVERSCAN) COLOR*/
			INT10_SetOverscanBorderColor(reg_bh);
			break;
		case 0x02:							/* SET ALL PALETTE REGISTERS */
			INT10_SetAllPaletteRegisters(real_phys(Segs[es].value,reg_dx));
			break;
		case 0x03:							/* TOGGLE INTENSITY/BLINKING BIT */
			INT10_ToggleBlinkingBit(reg_bl);
			break;
		case 0x07:							/* GET SINGLE PALETTE REGISTER */
			INT10_GetSinglePaletteRegister(reg_bl,&reg_bh);
			break;
		case 0x08:							/* READ OVERSCAN (BORDER COLOR) REGISTER */
			INT10_GetOverscanBorderColor(&reg_bh);
			break;
		case 0x09:							/* READ ALL PALETTE REGISTERS AND OVERSCAN REGISTER */
			INT10_GetAllPaletteRegisters(real_phys(Segs[es].value,reg_dx));
			break;
		case 0x10:							/* SET INDIVIDUAL DAC REGISTER */
			INT10_SetSingleDacRegister(reg_bl,reg_dh,reg_ch,reg_cl);
			break;
		case 0x12:							/* SET BLOCK OF DAC REGISTERS */
			INT10_SetDACBlock(reg_bx,reg_cx,real_phys(Segs[es].value,reg_dx));
			break;
		case 0x15:							/* GET INDIVIDUAL DAC REGISTER */
			INT10_GetSingleDacRegister(reg_bl,&reg_dh,&reg_ch,&reg_cl);
			break;
		case 0x17:							/* GET BLOCK OF DAC REGISTER */
			INT10_GetDACBlock(reg_bx,reg_cx,real_phys(Segs[es].value,reg_dx));
			break;
		default:
			LOG_WARN("INT10:10:Unhandled EGA/VGA Palette Function %2X",reg_al);
		}
		break;
	case 0x11:								/* Character generator functions */
		switch (reg_al) {
		case 0x30:/* Get Font Information */
			switch (reg_bh) {
			case 0x00:	/* interupt 0x1f vector */
				{
					RealPt int_1f=RealGetVec(0x1f);
					SetSegment_16(es,RealSeg(int_1f));
					reg_bp=RealOff(int_1f);
					reg_cx=8;
				}
				break;
			case 0x01:	/* interupt 0x43 vector */
				{
					RealPt int_43=RealGetVec(0x43);
					SetSegment_16(es,RealSeg(int_43));
					reg_bp=RealOff(int_43);
					reg_cx=8;
				}
				break;
			case 0x02:	/* font 8x14 */
				SetSegment_16(es,RealSeg(int10_romarea.font_14));
				reg_bp=RealOff(int10_romarea.font_14);
				reg_cx=14;
				break;
			case 0x03:	/* font 8x8 first 128 */
				SetSegment_16(es,RealSeg(int10_romarea.font_8_first));
				reg_bp=RealOff(int10_romarea.font_8_first);
				reg_cx=8;
				break;
			case 0x04:	/* font 8x8 second 128 */
				SetSegment_16(es,RealSeg(int10_romarea.font_8_second));
				reg_bp=RealOff(int10_romarea.font_8_second);
				reg_cx=8;
				break;
			case 0x06:	/* font 8x16 */
				SetSegment_16(es,RealSeg(int10_romarea.font_16));
				reg_bp=RealOff(int10_romarea.font_16);
				reg_cx=16;
				break;
			default:
				reg_cx=16;
				LOG_DEBUG("INT10:11:30 Request for font %2X",reg_bh);	
			}
			reg_dl=real_readb(BIOSMEM_SEG,BIOSMEM_NB_ROWS);
			break;
		default:
			LOG_WARN("INT10:11:Unsupported character generator call %2X",reg_al);
		}
		break;
	case 0x12:								/* alternate function select */
		switch (reg_bl) {
		case 0x10:							/* Get EGA Information */
			{
				reg_bh=(real_readw(BIOSMEM_SEG,BIOSMEM_CRTC_ADDRESS)==0x3B4);	
				reg_bl=3;	//256 kb
				reg_cx=real_readb(BIOSMEM_SEG,BIOSMEM_SWITCHES) & 0x0F;
				break;
			}
		default:
			LOG_WARN("Alternate functions select %2X not handled",reg_bl);
		}
		break;
	case 0x13:								/* Write String */
		INT10_WriteString(reg_dh,reg_dl,reg_al,reg_bl,real_phys(Segs[es].value,reg_bp),reg_cx,reg_bh);
		break;
	case 0x1A:								/* Display Combination */
		if (reg_al==0) {
			reg_bx=real_readb(BIOSMEM_SEG,BIOSMEM_DCC_INDEX);
			reg_al=0x1A;
			break;
		}
		if (reg_al==1) {
			real_writeb(BIOSMEM_SEG,BIOSMEM_DCC_INDEX,reg_bl);
			reg_al=0x1A;
			break;
		}
		LOG_DEBUG("INT10:1A:Display Combination call %2X",reg_al);
		break;
	case 0x1B:								/* functionality State Information */
		switch (reg_bx) {
		case 0x0000:
			INT10_GetFuncStateInformation(Segs[es].value,reg_di);
			reg_al=0x1B;
			break;
		default:
			LOG_WARN("INT10:1B:Unhandled call BX %2X",reg_bx);
		}
		break;
	case 0xff:
		if (!warned_ff) LOG_WARN("INT10:FF:Weird NC call");
		warned_ff=true;
		break;
	default:
		LOG_WARN("Unhandled INT 10 call %2X",reg_ah);
	};
	return CBRET_NONE;
}

static void INT10_Seg40Init(void) {
	//This should fill the ega vga structures
	// init detected hardware BIOS Area 
	real_writew(BIOSMEM_SEG,BIOSMEM_INITIAL_MODE,real_readw(BIOSMEM_SEG,BIOSMEM_INITIAL_MODE)&0xFFCF);
	// Just for the first int10 find its children
	// the default char height
	real_writeb(BIOSMEM_SEG,BIOSMEM_CHAR_HEIGHT,16);
	// Clear the screen 
	real_writeb(BIOSMEM_SEG,BIOSMEM_VIDEO_CTL,0x60);
	// Set the basic screen we have
	real_writeb(BIOSMEM_SEG,BIOSMEM_SWITCHES,0xF9);
	// Set the basic modeset options
	real_writeb(BIOSMEM_SEG,BIOSMEM_MODESET_CTL,0x51);
	// Set the  default MSR
	real_writeb(BIOSMEM_SEG,BIOSMEM_CURRENT_MSR,0x09);

	INT10_SetVideoMode(3);
}


static void INT10_InitVGA(void) {
/* switch to color mode and enable CPU access 480 lines */

	IO_Write(0x3c2,0xc3);

	/* More than 64k */
	IO_Write(0x3c4,0x04);
	IO_Write(0x3c5,0x02);
};

void INT10_StartUp(void) {

	INT10_InitVGA();
	/* Setup the INT 10 vector */
	call_10=CALLBACK_Allocate();	
	//TODO ERRORS ERRORS ERRORS
	if (call_10==-1) E_Exit("Error can't allocate Video Int 10 CallBack\n");
	CALLBACK_Setup(call_10,&INT10_Handler,CB_IRET);
	RealSetVec(0x10,CALLBACK_RealPointer(call_10));
	//Init the 0x40 segment and init the datastructures in the the video rom area
	INT10_SetupRomMemory();
	INT10_Seg40Init();
};