| 1 | /* FCE Ultra - NES/Famicom Emulator\r |
| 2 | *\r |
| 3 | * Copyright notice for this file:\r |
| 4 | * Copyright (C) 1998 \Firebug\\r |
| 5 | * Copyright (C) 2002 Ben Parnell\r |
| 6 | *\r |
| 7 | * This program is free software; you can redistribute it and/or modify\r |
| 8 | * it under the terms of the GNU General Public License as published by\r |
| 9 | * the Free Software Foundation; either version 2 of the License, or\r |
| 10 | * (at your option) any later version.\r |
| 11 | *\r |
| 12 | * This program is distributed in the hope that it will be useful,\r |
| 13 | * but WITHOUT ANY WARRANTY; without even the implied warranty of\r |
| 14 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r |
| 15 | * GNU General Public License for more details.\r |
| 16 | *\r |
| 17 | * You should have received a copy of the GNU General Public License\r |
| 18 | * along with this program; if not, write to the Free Software\r |
| 19 | * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA\r |
| 20 | */\r |
| 21 | \r |
| 22 | #include <stdio.h>\r |
| 23 | #include <string.h>\r |
| 24 | #include <dpmi.h>\r |
| 25 | #include <sys/farptr.h>\r |
| 26 | #include <go32.h>\r |
| 27 | #include <pc.h>\r |
| 28 | \r |
| 29 | #include "dos.h"\r |
| 30 | #include "dos-video.h"\r |
| 31 | \r |
| 32 | #define TEXT 3\r |
| 33 | #define G320x200x256 0x13\r |
| 34 | \r |
| 35 | static void vga_waitretrace(void)\r |
| 36 | { \r |
| 37 | while(inp(0x3da)&0x8); \r |
| 38 | while(!(inp(0x3da)&0x8));\r |
| 39 | }\r |
| 40 | \r |
| 41 | static void vga_setmode(int mode)\r |
| 42 | {\r |
| 43 | __dpmi_regs regs;\r |
| 44 | \r |
| 45 | memset(®s,0,sizeof(regs));\r |
| 46 | regs.x.ax=mode;\r |
| 47 | \r |
| 48 | __dpmi_int(0x10,®s);\r |
| 49 | }\r |
| 50 | \r |
| 51 | void vga_setpalette(int i, int r, int g, int b)\r |
| 52 | { \r |
| 53 | outp(0x3c8,i);\r |
| 54 | outp(0x3c9,r);\r |
| 55 | outp(0x3c9,g);\r |
| 56 | outp(0x3c9,b); \r |
| 57 | }\r |
| 58 | \r |
| 59 | int FCEUDvmode=1;\r |
| 60 | \r |
| 61 | static int vidready=0;\r |
| 62 | \r |
| 63 | /* Part of the VGA low-level mass register setting code derived from\r |
| 64 | code by \Firebug\.\r |
| 65 | */\r |
| 66 | \r |
| 67 | #include "vgatweak.c"\r |
| 68 | \r |
| 69 | void SetBorder(void)\r |
| 70 | {\r |
| 71 | inportb(0x3da);\r |
| 72 | outportb(0x3c0,(0x11|0x20));\r |
| 73 | outportb(0x3c0,0x80);\r |
| 74 | }\r |
| 75 | \r |
| 76 | void TweakVGA(int VGAMode)\r |
| 77 | {\r |
| 78 | int I;\r |
| 79 | \r |
| 80 | vga_waitretrace();\r |
| 81 | \r |
| 82 | outportb(0x3C8,0x00);\r |
| 83 | for(I=0;I<768;I++) outportb(0x3C9,0x00);\r |
| 84 | \r |
| 85 | outportb(0x3D4,0x11);\r |
| 86 | I=inportb(0x3D5)&0x7F;\r |
| 87 | outportb(0x3D4,0x11);\r |
| 88 | outportb(0x3D5,I);\r |
| 89 | \r |
| 90 | switch(VGAMode)\r |
| 91 | {\r |
| 92 | case 1: for(I=0;I<25;I++) VGAPortSet(v256x240[I]);break;\r |
| 93 | case 2: for(I=0;I<25;I++) VGAPortSet(v256x256[I]);break;\r |
| 94 | case 3: for(I=0;I<25;I++) VGAPortSet(v256x256S[I]);break;\r |
| 95 | case 6: for(I=0;I<25;I++) VGAPortSet(v256x224S[I]);break;\r |
| 96 | case 8: for(I=0;I<25;I++) VGAPortSet(v256x224_103[I]);break;\r |
| 97 | default: break;\r |
| 98 | }\r |
| 99 | \r |
| 100 | outportb(0x3da,0);\r |
| 101 | }\r |
| 102 | \r |
| 103 | \r |
| 104 | static uint8 palettedbr[256],palettedbg[256],palettedbb[256];\r |
| 105 | \r |
| 106 | static void FlushPalette(void)\r |
| 107 | {\r |
| 108 | int x;\r |
| 109 | for(x=0;x<256;x++)\r |
| 110 | {\r |
| 111 | int z=x;\r |
| 112 | vga_setpalette(z,palettedbr[x]>>2,palettedbg[x]>>2,palettedbb[x]>>2);\r |
| 113 | }\r |
| 114 | }\r |
| 115 | \r |
| 116 | void FCEUD_SetPalette(uint8 index, uint8 r, uint8 g, uint8 b)\r |
| 117 | {\r |
| 118 | palettedbr[index]=r;\r |
| 119 | palettedbg[index]=g;\r |
| 120 | palettedbb[index]=b;\r |
| 121 | if(vidready)\r |
| 122 | {\r |
| 123 | vga_setpalette(index,r>>2,g>>2,b>>2);\r |
| 124 | }\r |
| 125 | }\r |
| 126 | \r |
| 127 | \r |
| 128 | void FCEUD_GetPalette(uint8 i, uint8 *r, uint8 *g, uint8 *b)\r |
| 129 | {\r |
| 130 | *r=palettedbr[i];\r |
| 131 | *g=palettedbg[i];\r |
| 132 | *b=palettedbb[i];\r |
| 133 | }\r |
| 134 | \r |
| 135 | static uint32 ScreenLoc;\r |
| 136 | \r |
| 137 | int InitVideo(void)\r |
| 138 | {\r |
| 139 | vidready=0;\r |
| 140 | switch(FCEUDvmode)\r |
| 141 | {\r |
| 142 | default:\r |
| 143 | case 1:\r |
| 144 | case 2:\r |
| 145 | case 3:\r |
| 146 | case 6:\r |
| 147 | case 8:\r |
| 148 | vga_setmode(G320x200x256);\r |
| 149 | vidready|=1;\r |
| 150 | ScreenLoc=0xa0000;\r |
| 151 | TweakVGA(FCEUDvmode);\r |
| 152 | SetBorder();\r |
| 153 | DOSMemSet(ScreenLoc, 128, 256*256);\r |
| 154 | break;\r |
| 155 | }\r |
| 156 | vidready|=2;\r |
| 157 | FlushPalette();\r |
| 158 | return 1;\r |
| 159 | }\r |
| 160 | \r |
| 161 | void KillVideo(void)\r |
| 162 | {\r |
| 163 | if(vidready)\r |
| 164 | {\r |
| 165 | vga_setmode(TEXT);\r |
| 166 | vidready=0;\r |
| 167 | }\r |
| 168 | }\r |
| 169 | void LockConsole(void){}\r |
| 170 | void UnlockConsole(void){}\r |
| 171 | void BlitScreen(uint8 *XBuf)\r |
| 172 | {\r |
| 173 | uint32 dest;\r |
| 174 | int tlines;\r |
| 175 | \r |
| 176 | if(eoptions&4 && !NoWaiting)\r |
| 177 | vga_waitretrace();\r |
| 178 | \r |
| 179 | tlines=erendline-srendline+1;\r |
| 180 | \r |
| 181 | dest=ScreenLoc;\r |
| 182 | \r |
| 183 | switch(FCEUDvmode)\r |
| 184 | {\r |
| 185 | case 1:dest+=(((240-tlines)>>1)<<8);break;\r |
| 186 | case 2:\r |
| 187 | case 3:dest+=(((256-tlines)>>1)<<8);break;\r |
| 188 | case 4:\r |
| 189 | case 5:dest+=(((240-tlines)>>1)*640+((640-512)>>1));break;\r |
| 190 | case 8:\r |
| 191 | case 6:if(tlines>224) tlines=224;dest+=(((224-tlines)>>1)<<8);break;\r |
| 192 | }\r |
| 193 | \r |
| 194 | XBuf+=(srendline<<8)+(srendline<<4);\r |
| 195 | \r |
| 196 | _farsetsel(_dos_ds);\r |
| 197 | if(eoptions&DO_CLIPSIDES)\r |
| 198 | {\r |
| 199 | asm volatile( \r |
| 200 | "agoop1:\n\t"\r |
| 201 | "movl $30,%%eax\n\t"\r |
| 202 | "agoop2:\n\t"\r |
| 203 | "movl (%%esi),%%edx\n\t"\r |
| 204 | "movl 4(%%esi),%%ecx\n\t"\r |
| 205 | ".byte 0x64 \n\t"\r |
| 206 | "movl %%edx,(%%edi)\n\t"\r |
| 207 | ".byte 0x64 \n\t"\r |
| 208 | "movl %%ecx,4(%%edi)\n\t"\r |
| 209 | "addl $8,%%esi\n\t"\r |
| 210 | "addl $8,%%edi\n\t"\r |
| 211 | "decl %%eax\n\t"\r |
| 212 | "jne agoop2\n\t"\r |
| 213 | "addl $32,%%esi\n\t"\r |
| 214 | "addl $16,%%edi\n\t"\r |
| 215 | "decb %%bl\n\t"\r |
| 216 | "jne agoop1\n\t"\r |
| 217 | :\r |
| 218 | : "S" (XBuf+8), "D" (dest+8), "b" (tlines)\r |
| 219 | : "%eax","%cc","%edx","%ecx" );\r |
| 220 | }\r |
| 221 | else\r |
| 222 | {\r |
| 223 | asm volatile( \r |
| 224 | "goop1:\n\t"\r |
| 225 | "movl $32,%%eax\n\t"\r |
| 226 | "goop2:\n\t"\r |
| 227 | "movl (%%esi),%%edx\n\t"\r |
| 228 | "movl 4(%%esi),%%ecx\n\t"\r |
| 229 | ".byte 0x64 \n\t"\r |
| 230 | "movl %%edx,(%%edi)\n\t"\r |
| 231 | ".byte 0x64 \n\t"\r |
| 232 | "movl %%ecx,4(%%edi)\n\t"\r |
| 233 | "addl $8,%%esi\n\t"\r |
| 234 | "addl $8,%%edi\n\t"\r |
| 235 | "decl %%eax\n\t"\r |
| 236 | "jne goop2\n\t"\r |
| 237 | "addl $16,%%esi\n\t"\r |
| 238 | "decb %%bl\n\t"\r |
| 239 | "jne goop1\n\t"\r |
| 240 | :\r |
| 241 | : "S" (XBuf), "D" (dest), "b" (tlines)\r |
| 242 | : "%eax","%cc","%edx","%ecx" );\r |
| 243 | }\r |
| 244 | }\r |
| 245 | \r |
| 246 | \r |