Modules/VESA - Changed to use DrvUtil functions
[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 <api_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 #define BLINKING_CURSOR 1\r
20 #if BLINKING_CURSOR\r
21 # define VESA_CURSOR_PERIOD     1000\r
22 #endif\r
23 \r
24 // === PROTOTYPES ===\r
25  int    Vesa_Install(char **Arguments);\r
26 Uint64  Vesa_Read(tVFS_Node *Node, Uint64 Offset, Uint64 Length, void *Buffer);\r
27 Uint64  Vesa_Write(tVFS_Node *Node, Uint64 Offset, Uint64 Length, void *Buffer);\r
28  int    Vesa_IOCtl(tVFS_Node *Node, int ID, void *Data);\r
29  int    Vesa_Int_SetMode(int Mode);\r
30  int    Vesa_Int_FindMode(tVideo_IOCtl_Mode *data);\r
31  int    Vesa_Int_ModeInfo(tVideo_IOCtl_Mode *data);\r
32 void    Vesa_FlipCursor(void *Arg);\r
33 // --- 2D Acceleration Functions --\r
34 void    Vesa_2D_Fill(void *Ent, Uint16 X, Uint16 Y, Uint16 W, Uint16 H, Uint32 Colour);\r
35 void    Vesa_2D_Blit(void *Ent, Uint16 DstX, Uint16 DstY, Uint16 SrcX, Uint16 SrcY, Uint16 W, Uint16 H);\r
36 \r
37 // === GLOBALS ===\r
38 MODULE_DEFINE(0, VERSION, Vesa, Vesa_Install, NULL, "PCI", "VM8086", NULL);\r
39 tDevFS_Driver   gVesa_DriverStruct = {\r
40         NULL, "Vesa",\r
41         {\r
42         .Read = Vesa_Read,\r
43         .Write = Vesa_Write,\r
44         .IOCtl = Vesa_IOCtl\r
45         }\r
46 };\r
47 tMutex  glVesa_Lock;\r
48 tVM8086 *gpVesa_BiosState;\r
49  int    giVesaDriverId = -1;\r
50 // --- Video Modes ---\r
51  int    giVesaCurrentMode = 0;\r
52 tVesa_Mode      *gVesa_Modes;\r
53 tVesa_Mode      *gpVesaCurMode;\r
54  int    giVesaModeCount = 0;\r
55 // --- Framebuffer ---\r
56 char    *gpVesa_Framebuffer = (void*)VESA_DEFAULT_FRAMEBUFFER;\r
57  int    giVesaPageCount = 0;    //!< Framebuffer size in pages\r
58 // --- Cursor Control ---\r
59  int    giVesaCursorX = -1;\r
60  int    giVesaCursorY = -1;\r
61  int    giVesaCursorTimer = -1; // Invalid timer\r
62 // --- 2D Video Stream Handlers ---\r
63 tDrvUtil_Video_2DHandlers       gVesa_2DFunctions = {\r
64         NULL,\r
65         Vesa_2D_Fill,\r
66         Vesa_2D_Blit\r
67 };\r
68 tDrvUtil_Video_BufInfo  gVesa_BufInfo;\r
69 \r
70 // === CODE ===\r
71 int Vesa_Install(char **Arguments)\r
72 {\r
73         tVesa_CallInfo  *info;\r
74         tFarPtr infoPtr;\r
75         tVesa_CallModeInfo      *modeinfo;\r
76         tFarPtr modeinfoPtr;\r
77         Uint16  *modes;\r
78         int     i;\r
79         \r
80         // Allocate Info Block\r
81         gpVesa_BiosState = VM8086_Init();\r
82         info = VM8086_Allocate(gpVesa_BiosState, 512, &infoPtr.seg, &infoPtr.ofs);\r
83         modeinfo = VM8086_Allocate(gpVesa_BiosState, 512, &modeinfoPtr.seg, &modeinfoPtr.ofs);\r
84         // Set Requested Version\r
85         memcpy(info->signature, "VBE2", 4);\r
86         // Set Registers\r
87         gpVesa_BiosState->AX = 0x4F00;\r
88         gpVesa_BiosState->ES = infoPtr.seg;     gpVesa_BiosState->DI = infoPtr.ofs;\r
89         // Call Interrupt\r
90         VM8086_Int(gpVesa_BiosState, 0x10);\r
91         if(gpVesa_BiosState->AX != 0x004F) {\r
92                 Log_Warning("VESA", "Vesa_Install - VESA/VBE Unsupported (AX = 0x%x)", gpVesa_BiosState->AX);\r
93                 return MODULE_ERR_NOTNEEDED;\r
94         }\r
95         \r
96         //Log_Debug("VESA", "info->VideoModes = %04x:%04x", info->VideoModes.seg, info->VideoModes.ofs);\r
97         modes = (Uint16 *) VM8086_GetPointer(gpVesa_BiosState, info->VideoModes.seg, info->VideoModes.ofs);\r
98         \r
99         // Read Modes\r
100         for( giVesaModeCount = 0; modes[giVesaModeCount] != 0xFFFF; giVesaModeCount++ );\r
101         gVesa_Modes = (tVesa_Mode *)malloc( giVesaModeCount * sizeof(tVesa_Mode) );\r
102         \r
103         Log_Debug("VESA", "%i Modes", giVesaModeCount);\r
104         \r
105         // Insert Text Mode\r
106         gVesa_Modes[0].width = 80;\r
107         gVesa_Modes[0].height = 25;\r
108         gVesa_Modes[0].bpp = 12;\r
109         gVesa_Modes[0].code = 0x3;\r
110         gVesa_Modes[0].flags = 1;\r
111         gVesa_Modes[0].fbSize = 80*25*2;\r
112         gVesa_Modes[0].framebuffer = 0xB8000;\r
113         \r
114         for( i = 1; i < giVesaModeCount; i++ )\r
115         {\r
116                 gVesa_Modes[i].code = modes[i];\r
117                 // Get Mode info\r
118                 gpVesa_BiosState->AX = 0x4F01;\r
119                 gpVesa_BiosState->CX = gVesa_Modes[i].code;\r
120                 gpVesa_BiosState->ES = modeinfoPtr.seg;\r
121                 gpVesa_BiosState->DI = modeinfoPtr.ofs;\r
122                 VM8086_Int(gpVesa_BiosState, 0x10);\r
123                 \r
124                 // Parse Info\r
125                 gVesa_Modes[i].flags = 0;\r
126                 if ( (modeinfo->attributes & 0x90) == 0x90 )\r
127                 {\r
128                         gVesa_Modes[i].flags |= FLAG_LFB;\r
129                         gVesa_Modes[i].framebuffer = modeinfo->physbase;\r
130                         gVesa_Modes[i].fbSize = modeinfo->Yres*modeinfo->pitch;\r
131                 } else {\r
132                         gVesa_Modes[i].framebuffer = 0;\r
133                         gVesa_Modes[i].fbSize = 0;\r
134                 }\r
135                 \r
136                 gVesa_Modes[i].pitch = modeinfo->pitch;\r
137                 gVesa_Modes[i].width = modeinfo->Xres;\r
138                 gVesa_Modes[i].height = modeinfo->Yres;\r
139                 gVesa_Modes[i].bpp = modeinfo->bpp;\r
140                 \r
141                 #if DEBUG\r
142                 Log_Log("VESA", "0x%x - %ix%ix%i",\r
143                         gVesa_Modes[i].code, gVesa_Modes[i].width, gVesa_Modes[i].height, gVesa_Modes[i].bpp);\r
144                 #endif\r
145         }\r
146         \r
147         \r
148         // Install Device\r
149         giVesaDriverId = DevFS_AddDevice( &gVesa_DriverStruct );\r
150         if(giVesaDriverId == -1)        return MODULE_ERR_MISC;\r
151         \r
152         return MODULE_ERR_OK;\r
153 }\r
154 \r
155 /* Read from the framebuffer\r
156  */\r
157 Uint64 Vesa_Read(tVFS_Node *Node, Uint64 off, Uint64 len, void *buffer)\r
158 {\r
159         #if DEBUG >= 2\r
160         Log("Vesa_Read: () - NULL\n");\r
161         #endif\r
162         return 0;\r
163 }\r
164 \r
165 /**\r
166  * \brief Write to the framebuffer\r
167  */\r
168 Uint64 Vesa_Write(tVFS_Node *Node, Uint64 Offset, Uint64 Length, void *Buffer)\r
169 {\r
170         if( gVesa_Modes[giVesaCurrentMode].framebuffer == 0 ) {\r
171                 Log_Warning("VESA", "Vesa_Write - Non-LFB Modes not yet supported.");\r
172                 return 0;\r
173         }\r
174 \r
175         return DrvUtil_Video_WriteLFB(&gVesa_BufInfo, Offset, Length, Buffer);\r
176 }\r
177 \r
178 const char *csaVESA_IOCtls[] = {DRV_IOCTLNAMES, DRV_VIDEO_IOCTLNAMES, NULL};\r
179 /**\r
180  * \brief Handle messages to the device\r
181  */\r
182 int Vesa_IOCtl(tVFS_Node *Node, int ID, void *Data)\r
183 {\r
184          int    ret;\r
185         //Log_Debug("VESA", "Vesa_Ioctl: (Node=%p, ID=%i, Data=%p)", Node, ID, Data);\r
186         switch(ID)\r
187         {\r
188         BASE_IOCTLS(DRV_TYPE_VIDEO, "VESA", VERSION, csaVESA_IOCtls);\r
189 \r
190         case VIDEO_IOCTL_GETSETMODE:\r
191                 if( !Data )     return giVesaCurrentMode;\r
192                 return Vesa_Int_SetMode( *(int*)Data );\r
193         \r
194         case VIDEO_IOCTL_FINDMODE:\r
195                 return Vesa_Int_FindMode((tVideo_IOCtl_Mode*)Data);\r
196         case VIDEO_IOCTL_MODEINFO:\r
197                 return Vesa_Int_ModeInfo((tVideo_IOCtl_Mode*)Data);\r
198         \r
199         case VIDEO_IOCTL_SETBUFFORMAT:\r
200                 ret = gVesa_BufInfo.BufferFormat;\r
201                 if(Data)        gVesa_BufInfo.BufferFormat = *(int*)Data;\r
202                 return ret;\r
203         \r
204         case VIDEO_IOCTL_SETCURSOR:     // Set cursor position\r
205                 #if !BLINKING_CURSOR\r
206                 if(giVesaCursorX >= 0)\r
207                         Vesa_FlipCursor(Node);\r
208                 #endif\r
209                 giVesaCursorX = ((tVideo_IOCtl_Pos*)Data)->x;\r
210                 giVesaCursorY = ((tVideo_IOCtl_Pos*)Data)->y;\r
211                 //Log_Debug("VESA", "Cursor position (%i,%i)", giVesaCursorX, giVesaCursorY);\r
212                 if(\r
213                         giVesaCursorX < 0 || giVesaCursorY < 0\r
214                 ||      giVesaCursorX >= gpVesaCurMode->width/giVT_CharWidth\r
215                 ||      giVesaCursorY >= gpVesaCurMode->height/giVT_CharHeight)\r
216                 {\r
217                         #if BLINKING_CURSOR\r
218                         if(giVesaCursorTimer != -1) {\r
219                                 Time_RemoveTimer(giVesaCursorTimer);\r
220                                 giVesaCursorTimer = -1;\r
221                         }\r
222                         #endif\r
223                         giVesaCursorX = -1;\r
224                         giVesaCursorY = -1;\r
225                 }\r
226                 else {\r
227                         #if BLINKING_CURSOR\r
228                 //      Log_Debug("VESA", "Updating timer %i?", giVesaCursorTimer);\r
229                         if(giVesaCursorTimer == -1)\r
230                                 giVesaCursorTimer = Time_CreateTimer(VESA_CURSOR_PERIOD, Vesa_FlipCursor, Node);\r
231                         #else\r
232                         Vesa_FlipCursor(Node);\r
233                         #endif\r
234                 }\r
235                 //Log_Debug("VESA", "Cursor position (%i,%i) Timer %i", giVesaCursorX, giVesaCursorY, giVesaCursorTimer);\r
236                 return 0;\r
237         }\r
238         return 0;\r
239 }\r
240 \r
241 /**\r
242  * \brief Updates the video mode\r
243  */\r
244 int Vesa_Int_SetMode(int mode)\r
245 {       \r
246         // Sanity Check values\r
247         if(mode < 0 || mode > giVesaModeCount)  return -1;\r
248 \r
249         Log_Log("VESA", "Setting mode to %i (%ix%i %ibpp)",\r
250                 mode,\r
251                 gVesa_Modes[mode].width, gVesa_Modes[mode].height,\r
252                 gVesa_Modes[mode].bpp\r
253                 );\r
254         \r
255         // Check for fast return\r
256         if(mode == giVesaCurrentMode)   return 1;\r
257         \r
258         Time_RemoveTimer(giVesaCursorTimer);\r
259         giVesaCursorTimer = -1;\r
260         \r
261         Mutex_Acquire( &glVesa_Lock );\r
262         \r
263         gpVesa_BiosState->AX = 0x4F02;\r
264         gpVesa_BiosState->BX = gVesa_Modes[mode].code;\r
265         if(gVesa_Modes[mode].flags & FLAG_LFB) {\r
266                 Log_Log("VESA", "Using LFB");\r
267                 gpVesa_BiosState->BX |= 0x4000; // Bit 14 - Use LFB\r
268         }\r
269         \r
270         // Set Mode\r
271         VM8086_Int(gpVesa_BiosState, 0x10);\r
272         \r
273         // Map Framebuffer\r
274         if( (tVAddr)gpVesa_Framebuffer != VESA_DEFAULT_FRAMEBUFFER )\r
275                 MM_UnmapHWPages((tVAddr)gpVesa_Framebuffer, giVesaPageCount);\r
276         giVesaPageCount = (gVesa_Modes[mode].fbSize + 0xFFF) >> 12;\r
277         gpVesa_Framebuffer = (void*)MM_MapHWPages(gVesa_Modes[mode].framebuffer, giVesaPageCount);\r
278         \r
279         Log_Log("VESA", "Framebuffer (Phys) = 0x%x, (Virt) = 0x%x, Size = 0x%x",\r
280                 gVesa_Modes[mode].framebuffer, gpVesa_Framebuffer, giVesaPageCount << 12);\r
281         \r
282         // Record Mode Set\r
283         giVesaCurrentMode = mode;\r
284         gpVesaCurMode = &gVesa_Modes[giVesaCurrentMode];\r
285         \r
286         Mutex_Release( &glVesa_Lock );\r
287 \r
288         gVesa_BufInfo.Framebuffer = gpVesa_Framebuffer;\r
289         gVesa_BufInfo.Pitch = gVesa_Modes[mode].pitch;\r
290         gVesa_BufInfo.Width = gVesa_Modes[mode].width;\r
291         gVesa_BufInfo.Height = gVesa_Modes[mode].height;\r
292         gVesa_BufInfo.Depth = gVesa_Modes[mode].bpp;    \r
293 \r
294         return 1;\r
295 }\r
296 \r
297 int Vesa_Int_FindMode(tVideo_IOCtl_Mode *data)\r
298 {\r
299          int    i;\r
300          int    best = -1, bestFactor = 1000;\r
301          int    factor, tmp;\r
302         \r
303         ENTER("idata->width idata->height idata->bpp", data->width, data->height, data->bpp);\r
304         \r
305         for(i=0;i<giVesaModeCount;i++)\r
306         {\r
307                 LOG("Mode %i (%ix%ix%i)", i, gVesa_Modes[i].width, gVesa_Modes[i].height, gVesa_Modes[i].bpp);\r
308         \r
309                 if(gVesa_Modes[i].width == data->width && gVesa_Modes[i].height == data->height)\r
310                 {\r
311                         //if( (data->bpp == 32 || data->bpp == 24)\r
312                         // && (gVesa_Modes[i].bpp == 32 || gVesa_Modes[i].bpp == 24) )\r
313                         if( data->bpp == gVesa_Modes[i].bpp )\r
314                         {\r
315                                 LOG("Perfect!");\r
316                                 best = i;\r
317                                 break;\r
318                         }\r
319                 }\r
320                 \r
321                 tmp = gVesa_Modes[i].width * gVesa_Modes[i].height;\r
322                 tmp -= data->width * data->height;\r
323                 tmp = tmp < 0 ? -tmp : tmp;\r
324                 factor = tmp * 1000 / (data->width * data->height);\r
325                 \r
326                 if( data->bpp == 8 && gVesa_Modes[i].bpp != 8 ) continue;\r
327                 if( data->bpp == 16 && gVesa_Modes[i].bpp != 16 )       continue;\r
328                 \r
329                 if( (data->bpp == 32 || data->bpp == 24)\r
330                  && (gVesa_Modes[i].bpp == 32 || gVesa_Modes[i].bpp == 24) )\r
331                 {\r
332                         if( data->bpp == gVesa_Modes[i].bpp )\r
333                                 factor /= 2;\r
334                 }\r
335                 else {\r
336                         if( data->bpp != gVesa_Modes[i].bpp )\r
337                                 continue ;\r
338                 }\r
339                 \r
340                 LOG("factor = %i", factor);\r
341                 \r
342                 if(factor < bestFactor)\r
343                 {\r
344                         bestFactor = factor;\r
345                         best = i;\r
346                 }\r
347         }\r
348         data->id = best;\r
349         data->width = gVesa_Modes[best].width;\r
350         data->height = gVesa_Modes[best].height;\r
351         data->bpp = gVesa_Modes[best].bpp;\r
352         LEAVE('i', best);\r
353         return best;\r
354 }\r
355 \r
356 int Vesa_Int_ModeInfo(tVideo_IOCtl_Mode *data)\r
357 {\r
358         if(data->id < 0 || data->id > giVesaModeCount)  return -1;\r
359         data->width = gVesa_Modes[data->id].width;\r
360         data->height = gVesa_Modes[data->id].height;\r
361         data->bpp = gVesa_Modes[data->id].bpp;\r
362         return 1;\r
363 }\r
364 \r
365 /**\r
366  * \brief Updates the state of the text cursor\r
367  * \note Just does a bitwise not on the cursor region\r
368  */\r
369 void Vesa_FlipCursor(void *Arg)\r
370 {\r
371          int    pitch = gpVesaCurMode->pitch;\r
372          int    bytes_per_px = (gpVesaCurMode->bpp + 7) / 8;\r
373          int    x = giVesaCursorX*giVT_CharWidth;\r
374          int    y = giVesaCursorY*giVT_CharHeight;\r
375          int    i;\r
376         Uint8   *fb = (void*)gpVesa_Framebuffer;\r
377         \r
378         //Debug("Cursor flip");\r
379         \r
380         // Sanity check\r
381         if(giVesaCursorX < 0 || giVesaCursorY < 0\r
382         || y*pitch + x + (giVT_CharHeight-1)*pitch > (int)gpVesaCurMode->fbSize) {\r
383                 Log_Notice("VESA", "Cursor OOB (%i,%i)", x, y);\r
384                 giVesaCursorTimer = -1;\r
385                 return;\r
386         }\r
387         \r
388         // Draw cursor\r
389         fb += (y+1)*pitch + x*bytes_per_px;\r
390         \r
391         switch(bytes_per_px)\r
392         {\r
393         case 1:\r
394                 for( i = 1; i < giVT_CharHeight-1; i++, fb += pitch )\r
395                         *fb = ~*fb;\r
396                 break;\r
397         case 2:\r
398                 for( i = 1; i < giVT_CharHeight-1; i++, fb += pitch ) {\r
399                         fb[0] = ~fb[0];\r
400                         fb[1] = ~fb[1];\r
401                 }\r
402                 break;\r
403         case 3:\r
404                 for( i = 1; i < giVT_CharHeight-1; i++, fb += pitch ) {\r
405                         fb[0] = ~fb[0];\r
406                         fb[1] = ~fb[1];\r
407                         fb[2] = ~fb[2];\r
408                 }\r
409                 break;\r
410         case 4:\r
411                 for( i = 1; i < giVT_CharHeight-1; i++, fb += pitch ) {\r
412                         fb[0] = ~fb[0];\r
413                         fb[1] = ~fb[1];\r
414                         fb[2] = ~fb[2];\r
415                         fb[3] = ~fb[3];\r
416                 }\r
417                 break;\r
418         default:\r
419                 Log_Error("VESA", "Vesa_FlipCursor - Bug Report, unknown bytes_per_px (%i)", bytes_per_px);\r
420                 giVesaCursorTimer = -1;\r
421                 return ;\r
422         }\r
423         \r
424         #if BLINKING_CURSOR\r
425         giVesaCursorTimer = Time_CreateTimer(VESA_CURSOR_PERIOD, Vesa_FlipCursor, Arg);\r
426         #endif\r
427 }\r
428 \r
429 // ------------------------\r
430 // --- 2D Accelleration ---\r
431 // ------------------------\r
432 void Vesa_2D_Fill(void *Ent, Uint16 X, Uint16 Y, Uint16 W, Uint16 H, Uint32 Colour)\r
433 {\r
434         // TODO: Handle non-32bit modes\r
435          int    pitch = gpVesaCurMode->pitch/4;\r
436         Uint32  *buf = (Uint32*)gpVesa_Framebuffer + Y*pitch + X;\r
437         while( H -- ) {\r
438                 memsetd(buf, Colour, W);\r
439                 buf += pitch;\r
440         }\r
441 }\r
442 \r
443 void Vesa_2D_Blit(void *Ent, Uint16 DstX, Uint16 DstY, Uint16 SrcX, Uint16 SrcY, Uint16 W, Uint16 H)\r
444 {\r
445          int    scrnpitch = gpVesaCurMode->pitch;\r
446          int    bytes_per_px = (gpVesaCurMode->bpp + 7) / 8;\r
447          int    dst = DstY*scrnpitch + DstX;\r
448          int    src = SrcY*scrnpitch + SrcX;\r
449          int    tmp;\r
450         \r
451         //Log("Vesa_2D_Blit: (Ent=%p, DstX=%i, DstY=%i, SrcX=%i, SrcY=%i, W=%i, H=%i)",\r
452         //      Ent, DstX, DstY, SrcX, SrcY, W, H);\r
453         \r
454         if(SrcX + W > gpVesaCurMode->width)\r
455                 W = gpVesaCurMode->width - SrcX;\r
456         if(DstX + W > gpVesaCurMode->width)\r
457                 W = gpVesaCurMode->width - DstX;\r
458         if(SrcY + H > gpVesaCurMode->height)\r
459                 H = gpVesaCurMode->height - SrcY;\r
460         if(DstY + H > gpVesaCurMode->height)\r
461                 H = gpVesaCurMode->height - DstY;\r
462         \r
463         //Debug("W = %i, H = %i", W, H);\r
464         \r
465         if( dst > src ) {\r
466                 // Reverse copy\r
467                 dst += H*scrnpitch;\r
468                 src += H*scrnpitch;\r
469                 while( H -- ) {\r
470                         dst -= scrnpitch;\r
471                         src -= scrnpitch;\r
472                         tmp = W*bytes_per_px;\r
473                         for( tmp = W; tmp --; ) {\r
474                                 *(Uint8*)(gpVesa_Framebuffer + dst + tmp) = *(Uint8*)(gpVesa_Framebuffer + src + tmp);\r
475                         }\r
476                 }\r
477         }\r
478         else {\r
479                 // Normal copy is OK\r
480                 while( H -- ) {\r
481                         memcpy((void*)gpVesa_Framebuffer + dst, (void*)gpVesa_Framebuffer + src, W*bytes_per_px);\r
482                         dst += scrnpitch;\r
483                         src += scrnpitch;\r
484                 }\r
485         }\r
486         //Log("Vesa_2D_Blit: RETURN");\r
487 }\r

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