Fixed VESA scrolling bug
[tpg/acess2.git] / Modules / Display / VESA / main.c
1 /*\r
2  * AcessOS 1\r
3  * Video BIOS Extensions (Vesa) Driver\r
4  */\r
5 #define DEBUG   0\r
6 #define VERSION 0x100\r
7 \r
8 #include <acess.h>\r
9 #include <vfs.h>\r
10 #include <tpl_drv_video.h>\r
11 #include <fs_devfs.h>\r
12 #include <modules.h>\r
13 #include <vm8086.h>\r
14 #include "common.h"\r
15 \r
16 // === CONSTANTS ===\r
17 #define FLAG_LFB        0x1\r
18 #define VESA_DEFAULT_FRAMEBUFFER        (KERNEL_BASE|0xA0000)\r
19 \r
20 // === PROTOTYPES ===\r
21  int    Vesa_Install(char **Arguments);\r
22 Uint64  Vesa_Read(tVFS_Node *Node, Uint64 Offset, Uint64 Length, void *Buffer);\r
23 Uint64  Vesa_Write(tVFS_Node *Node, Uint64 Offset, Uint64 Length, void *Buffer);\r
24  int    Vesa_Ioctl(tVFS_Node *Node, int ID, void *Data);\r
25  int    Vesa_Int_SetMode(int Mode);\r
26  int    Vesa_Int_FindMode(tVideo_IOCtl_Mode *data);\r
27  int    Vesa_Int_ModeInfo(tVideo_IOCtl_Mode *data);\r
28 \r
29 // === GLOBALS ===\r
30 MODULE_DEFINE(0, VERSION, Vesa, Vesa_Install, NULL, "PCI", "VM8086", NULL);\r
31 tDevFS_Driver   gVesa_DriverStruct = {\r
32         NULL, "Vesa",\r
33         {\r
34         .Read = Vesa_Read,\r
35         .Write = Vesa_Write,\r
36         .IOCtl = Vesa_Ioctl\r
37         }\r
38 };\r
39 tSpinlock       glVesa_Lock;\r
40 tVM8086 *gpVesa_BiosState;\r
41  int    giVesaCurrentMode = 0;\r
42  int    giVesaCurrentFormat = VIDEO_BUFFMT_TEXT;\r
43  int    giVesaDriverId = -1;\r
44 char    *gpVesa_Framebuffer = (void*)VESA_DEFAULT_FRAMEBUFFER;\r
45 tVesa_Mode      *gVesa_Modes;\r
46  int    giVesaModeCount = 0;\r
47  int    giVesaPageCount = 0;\r
48 \r
49 //CODE\r
50 int Vesa_Install(char **Arguments)\r
51 {\r
52         tVesa_CallInfo  *info;\r
53         tFarPtr infoPtr;\r
54         tVesa_CallModeInfo      *modeinfo;\r
55         tFarPtr modeinfoPtr;\r
56         Uint16  *modes;\r
57         int     i;\r
58         \r
59         // Allocate Info Block\r
60         gpVesa_BiosState = VM8086_Init();\r
61         info = VM8086_Allocate(gpVesa_BiosState, 512, &infoPtr.seg, &infoPtr.ofs);\r
62         modeinfo = VM8086_Allocate(gpVesa_BiosState, 512, &modeinfoPtr.seg, &modeinfoPtr.ofs);\r
63         // Set Requested Version\r
64         memcpy(info->signature, "VBE2", 4);\r
65         // Set Registers\r
66         gpVesa_BiosState->AX = 0x4F00;\r
67         gpVesa_BiosState->ES = infoPtr.seg;     gpVesa_BiosState->DI = infoPtr.ofs;\r
68         // Call Interrupt\r
69         VM8086_Int(gpVesa_BiosState, 0x10);\r
70         if(gpVesa_BiosState->AX != 0x004F) {\r
71                 Log_Warning("VESA", "Vesa_Install - VESA/VBE Unsupported (AX = 0x%x)\n", gpVesa_BiosState->AX);\r
72                 return MODULE_ERR_NOTNEEDED;\r
73         }\r
74         \r
75         Log_Debug("VESA", "info->VideoModes = %04x:%04x", info->VideoModes.seg, info->VideoModes.ofs);\r
76         modes = (Uint16 *) VM8086_GetPointer(gpVesa_BiosState, info->VideoModes.seg, info->VideoModes.ofs);\r
77         \r
78         // Read Modes\r
79         for( giVesaModeCount = 0; modes[giVesaModeCount] != 0xFFFF; giVesaModeCount++ );\r
80         gVesa_Modes = (tVesa_Mode *)malloc( giVesaModeCount * sizeof(tVesa_Mode) );\r
81         \r
82         // Insert Text Mode\r
83         gVesa_Modes[0].width = 80;\r
84         gVesa_Modes[0].height = 25;\r
85         gVesa_Modes[0].bpp = 12;\r
86         gVesa_Modes[0].code = 0x3;\r
87         gVesa_Modes[0].flags = 1;\r
88         gVesa_Modes[0].fbSize = 80*25*2;\r
89         gVesa_Modes[0].framebuffer = 0xB8000;\r
90         \r
91         for( i = 1; i < giVesaModeCount; i++ )\r
92         {\r
93                 gVesa_Modes[i].code = modes[i];\r
94                 // Get Mode info\r
95                 gpVesa_BiosState->AX = 0x4F01;\r
96                 gpVesa_BiosState->CX = gVesa_Modes[i].code;\r
97                 gpVesa_BiosState->ES = modeinfoPtr.seg;\r
98                 gpVesa_BiosState->DI = modeinfoPtr.ofs;\r
99                 VM8086_Int(gpVesa_BiosState, 0x10);\r
100                 \r
101                 // Parse Info\r
102                 gVesa_Modes[i].flags = 0;\r
103                 if ( (modeinfo->attributes & 0x90) == 0x90 )\r
104                 {\r
105                         gVesa_Modes[i].flags |= FLAG_LFB;\r
106                         gVesa_Modes[i].framebuffer = modeinfo->physbase;\r
107                         gVesa_Modes[i].fbSize = modeinfo->Xres*modeinfo->Yres*modeinfo->bpp/8;\r
108                 } else {\r
109                         gVesa_Modes[i].framebuffer = 0;\r
110                         gVesa_Modes[i].fbSize = 0;\r
111                 }\r
112                 \r
113                 gVesa_Modes[i].pitch = modeinfo->pitch;\r
114                 gVesa_Modes[i].width = modeinfo->Xres;\r
115                 gVesa_Modes[i].height = modeinfo->Yres;\r
116                 gVesa_Modes[i].bpp = modeinfo->bpp;\r
117                 \r
118                 #if DEBUG\r
119                 Log_Log("VESA", "0x%x - %ix%ix%i",\r
120                         gVesa_Modes[i].code, gVesa_Modes[i].width, gVesa_Modes[i].height, gVesa_Modes[i].bpp);\r
121                 #endif\r
122         }\r
123         \r
124         \r
125         // Install Device\r
126         giVesaDriverId = DevFS_AddDevice( &gVesa_DriverStruct );\r
127         if(giVesaDriverId == -1)        return MODULE_ERR_MISC;\r
128         \r
129         return MODULE_ERR_OK;\r
130 }\r
131 \r
132 /* Read from the framebuffer\r
133  */\r
134 Uint64 Vesa_Read(tVFS_Node *Node, Uint64 off, Uint64 len, void *buffer)\r
135 {\r
136         #if DEBUG >= 2\r
137         Log("Vesa_Read: () - NULL\n");\r
138         #endif\r
139         return 0;\r
140 }\r
141 \r
142 /**\r
143  * \brief Write to the framebuffer\r
144  */\r
145 Uint64 Vesa_Write(tVFS_Node *Node, Uint64 Offset, Uint64 Length, void *Buffer)\r
146 {\r
147         ENTER("pNode XOffset XLength pBuffer", Node, Offset, Length, Buffer);\r
148 \r
149         if(Buffer == NULL) {\r
150                 LEAVE('i', 0);\r
151                 return 0;\r
152         }\r
153 \r
154         // Default Text mode\r
155         if( giVesaCurrentMode == 0 )\r
156         {\r
157                 Uint16  *fb = (Uint16*)(KERNEL_BASE|0xB8000);\r
158                 tVT_Char        *chars = Buffer;\r
159                  int    rem;\r
160                 \r
161                 Length /= sizeof(tVT_Char);\r
162                 Offset /= sizeof(tVT_Char);\r
163                 \r
164                 if( giVesaCurrentFormat != VIDEO_BUFFMT_TEXT ) {\r
165                         Log_Warning("VESA", "Vesa_Write - Mode 0 is not framebuffer");\r
166                         LEAVE('i', -1);\r
167                         return -1;\r
168                 }\r
169                 \r
170                 if( Offset + Length > 25*80 ) {\r
171                         Log_Warning("VESA", "Vesa_Write - Framebuffer Overflow");\r
172                         LEAVE('i', 0);\r
173                         return 0;\r
174                 }\r
175                 \r
176                 fb += 2*Offset;\r
177                 LOG("fb = %p", fb);\r
178                 for(rem = Length; rem --; fb ++, chars++)\r
179                 {\r
180                         if( chars->Ch < 0x80 )\r
181                                 *fb = chars->Ch & 0x7F;\r
182                         else\r
183                                 *fb = 0x00;\r
184                         \r
185                         *fb |= (chars->FGCol & 0x888) == 0x888 ? 0x8 : 0;\r
186                         *fb |= (chars->FGCol & 0x700) > 0x300 ? 0x4 : 0;\r
187                         *fb |= (chars->FGCol & 0x070) > 0x030 ? 0x2 : 0;\r
188                         *fb |= (chars->FGCol & 0x007) > 0x003 ? 0x1 : 0;\r
189                         *fb |= (chars->BGCol & 0x888) == 0x888 ? 0x80 : 0;\r
190                         *fb |= (chars->BGCol & 0x700) > 0x300 ? 0x40 : 0;\r
191                         *fb |= (chars->BGCol & 0x070) > 0x030 ? 0x20 : 0;\r
192                         *fb |= (chars->BGCol & 0x007) > 0x003 ? 0x10 : 0;\r
193                         //LOG("%08x (%03x,%03x) = %04x",\r
194                         //      chars->Ch, chars->BGCol, chars->FGCol, *fb);\r
195                 }\r
196                 Length *= sizeof(tVT_Char);\r
197                 LEAVE('X', Length);\r
198                 return Length;\r
199         }\r
200 \r
201         if( gVesa_Modes[giVesaCurrentMode].framebuffer == 0 ) {\r
202                 Log_Warning("VESA", "Vesa_Write - Non-LFB Modes not yet supported.");\r
203                 LEAVE('i', 0);\r
204                 return 0;\r
205         }\r
206         \r
207         // Text Mode\r
208         switch( giVesaCurrentFormat )\r
209         {\r
210         case VIDEO_BUFFMT_TEXT:\r
211                 {\r
212                 tVT_Char        *chars = Buffer;\r
213                  int    pitch = gVesa_Modes[giVesaCurrentMode].width;\r
214                  int    widthInChars;\r
215                  int    x, y;\r
216                 Uint32  *dest = (void*)gpVesa_Framebuffer;\r
217                  int    i;\r
218                 \r
219                 Length /= sizeof(tVT_Char);\r
220                 Offset /= sizeof(tVT_Char);\r
221                 \r
222                 LOG("gVesa_Modes[%i].width = %i", giVesaCurrentMode, gVesa_Modes[giVesaCurrentMode].width);\r
223                 widthInChars = gVesa_Modes[giVesaCurrentMode].width/giVT_CharWidth;\r
224                 x = Offset % widthInChars;\r
225                 y = Offset / widthInChars;\r
226                 LOG("(x,y) = (%i,%i) = [%i,%i]", x, y, x * giVT_CharWidth, y * giVT_CharHeight * pitch);\r
227                 LOG("(w,h) = (%i,%i) = [%i,%i]",\r
228                         (int)(Length % widthInChars),\r
229                         (int)(Length / widthInChars),\r
230                         (int)((Length % widthInChars) * giVT_CharWidth),\r
231                         (int)((Length / widthInChars) * giVT_CharHeight * pitch)\r
232                         );\r
233                 \r
234                 // Sanity Check\r
235                 if(y > gVesa_Modes[giVesaCurrentMode].height/giVT_CharHeight) {\r
236                         LEAVE('i', 0);\r
237                         return 0;\r
238                 }\r
239                 \r
240                 dest += y * giVT_CharHeight * pitch;\r
241                 dest += x * giVT_CharWidth;\r
242                 \r
243                 LOG("dest = %p", dest);\r
244                 \r
245                 for( i = 0; i < Length; i++ )\r
246                 {\r
247                         VT_Font_Render(\r
248                                 chars->Ch,\r
249                                 dest + x*giVT_CharWidth, pitch,\r
250                                 VT_Colour12to24(chars->BGCol),\r
251                                 VT_Colour12to24(chars->FGCol)\r
252                                 );\r
253                         \r
254                         \r
255                         chars ++;\r
256                         x ++;\r
257                         if( x >= widthInChars ) {\r
258                                 x = 0;\r
259                                 y ++;\r
260                                 dest += pitch*giVT_CharHeight;\r
261                         }\r
262                 }\r
263                 Length *= sizeof(tVT_Char);\r
264                 }\r
265                 break;\r
266         \r
267         case VIDEO_BUFFMT_FRAMEBUFFER:\r
268                 {\r
269                 Uint8   *destBuf = (Uint8*) ((Uint)gpVesa_Framebuffer + (Uint)Offset);\r
270                 \r
271                 if(gVesa_Modes[giVesaCurrentMode].fbSize < Offset+Length)\r
272                 {\r
273                         Log_Warning("VESA", "Vesa_Write - Framebuffer Overflow");\r
274                         LEAVE('i', 0);\r
275                         return 0;\r
276                 }\r
277                 \r
278                 LOG("buffer = %p", Buffer);\r
279                 LOG("Updating Framebuffer (%p to %p)", destBuf, destBuf + (Uint)Length);\r
280                 \r
281                 \r
282                 // Copy to Frambuffer\r
283                 memcpy(destBuf, Buffer, Length);\r
284                 \r
285                 LOG("BGA Framebuffer updated");\r
286                 }\r
287                 break;\r
288         default:\r
289                 LEAVE('i', -1);\r
290                 return -1;\r
291         }\r
292         \r
293         LEAVE('X', Length);\r
294         return Length;\r
295 }\r
296 \r
297 /**\r
298  * \fn int Vesa_Ioctl(vfs_node *node, int id, void *data)\r
299  * \brief Handle messages to the device\r
300  */\r
301 int Vesa_Ioctl(tVFS_Node *Node, int ID, void *Data)\r
302 {\r
303          int    ret;\r
304         switch(ID)\r
305         {\r
306         case DRV_IOCTL_TYPE:    return DRV_TYPE_VIDEO;\r
307         case DRV_IOCTL_IDENT:   memcpy("VESA", Data, 4);        return 1;\r
308         case DRV_IOCTL_VERSION: return VERSION;\r
309         \r
310         case VIDEO_IOCTL_GETSETMODE:\r
311                 if( !Data )     return giVesaCurrentMode;\r
312                 return Vesa_Int_SetMode( *(int*)Data );\r
313         \r
314         case VIDEO_IOCTL_FINDMODE:\r
315                 return Vesa_Int_FindMode((tVideo_IOCtl_Mode*)Data);\r
316         case VIDEO_IOCTL_MODEINFO:\r
317                 return Vesa_Int_ModeInfo((tVideo_IOCtl_Mode*)Data);\r
318         \r
319         case VIDEO_IOCTL_SETBUFFORMAT:\r
320                 ret = giVesaCurrentFormat;\r
321                 if(Data) {\r
322                         Log_Log("VESA", "Buffer mode to %i", *(int*)Data);\r
323                         giVesaCurrentFormat = *(int*)Data;\r
324                 }\r
325                 return ret;\r
326         \r
327         case VIDEO_IOCTL_REQLFB:        // Request Linear Framebuffer\r
328                 return 0;\r
329         }\r
330         return 0;\r
331 }\r
332 \r
333 int Vesa_Int_SetMode(int mode)\r
334 {\r
335         Log_Log("VESA", "Setting mode to %i", mode);\r
336         \r
337         // Sanity Check values\r
338         if(mode < 0 || mode > giVesaModeCount)  return -1;\r
339         \r
340         // Check for fast return\r
341         if(mode == giVesaCurrentMode)   return 1;\r
342         \r
343         LOCK( &glVesa_Lock );\r
344         \r
345         gpVesa_BiosState->AX = 0x4F02;\r
346         gpVesa_BiosState->BX = gVesa_Modes[mode].code;\r
347         if(gVesa_Modes[mode].flags & FLAG_LFB) {\r
348                 Log_Log("VESA", "Using LFB");\r
349                 gpVesa_BiosState->BX |= 0x4000; // Bit 14 - Use LFB\r
350         }\r
351         \r
352         // Set Mode\r
353         VM8086_Int(gpVesa_BiosState, 0x10);\r
354         \r
355         // Map Framebuffer\r
356         if( (tVAddr)gpVesa_Framebuffer != VESA_DEFAULT_FRAMEBUFFER )\r
357                 MM_UnmapHWPages((tVAddr)gpVesa_Framebuffer, giVesaPageCount);\r
358         giVesaPageCount = (gVesa_Modes[mode].fbSize + 0xFFF) >> 12;\r
359         gpVesa_Framebuffer = (void*)MM_MapHWPages(gVesa_Modes[mode].framebuffer, giVesaPageCount);\r
360         \r
361         Log_Log("VESA", "Framebuffer (Phys) = 0x%x", gVesa_Modes[mode].framebuffer);\r
362         Log_Log("VESA", "Framebuffer (Virt) = 0x%x", gpVesa_Framebuffer);\r
363         \r
364         // Record Mode Set\r
365         giVesaCurrentMode = mode;\r
366         \r
367         RELEASE( &glVesa_Lock );\r
368         \r
369         return 1;\r
370 }\r
371 \r
372 int Vesa_Int_FindMode(tVideo_IOCtl_Mode *data)\r
373 {\r
374          int    i;\r
375          int    best = -1, bestFactor = 1000;\r
376          int    factor, tmp;\r
377         \r
378         ENTER("idata->width idata->height idata->bpp", data->width, data->height, data->bpp);\r
379         \r
380         for(i=0;i<giVesaModeCount;i++)\r
381         {\r
382                 LOG("Mode %i (%ix%ix%i)", i, gVesa_Modes[i].width, gVesa_Modes[i].height, gVesa_Modes[i].bpp);\r
383         \r
384                 if(gVesa_Modes[i].width == data->width\r
385                 && gVesa_Modes[i].height == data->height\r
386                 && gVesa_Modes[i].bpp == data->bpp)\r
387                 {\r
388                         LOG("Perfect!");\r
389                         best = i;\r
390                         break;\r
391                 }\r
392                 \r
393                 tmp = gVesa_Modes[i].width * gVesa_Modes[i].height * gVesa_Modes[i].bpp;\r
394                 tmp -= data->width * data->height * data->bpp;\r
395                 tmp = tmp < 0 ? -tmp : tmp;\r
396                 factor = tmp * 100 / (data->width * data->height * data->bpp);\r
397                 \r
398                 LOG("factor = %i", factor);\r
399                 \r
400                 if(factor < bestFactor)\r
401                 {\r
402                         bestFactor = factor;\r
403                         best = i;\r
404                 }\r
405         }\r
406         data->id = best;\r
407         data->width = gVesa_Modes[best].width;\r
408         data->height = gVesa_Modes[best].height;\r
409         data->bpp = gVesa_Modes[best].bpp;\r
410         LEAVE('i', best);\r
411         return best;\r
412 }\r
413 \r
414 int Vesa_Int_ModeInfo(tVideo_IOCtl_Mode *data)\r
415 {\r
416         if(data->id < 0 || data->id > giVesaModeCount)  return -1;\r
417         data->width = gVesa_Modes[data->id].width;\r
418         data->height = gVesa_Modes[data->id].height;\r
419         data->bpp = gVesa_Modes[data->id].bpp;\r
420         return 1;\r
421 }\r

UCC git Repository :: git.ucc.asn.au