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                 \r
 228                 // Sanity Check\r
 229                 if(y > gVesa_Modes[giVesaCurrentMode].height/giVT_CharHeight) {\r
 230                         LEAVE('i', 0);\r
 231                         return 0;\r
 232                 }\r
 233                 \r
 234                 dest += y * giVT_CharHeight * pitch;\r
 235                 dest += x * giVT_CharWidth;\r
 236                 \r
 237                 LOG("dest = %p", dest);\r
 238                 \r
 239                 for( i = 0; i < Length; i++ )\r
 240                 {\r
 241                         VT_Font_Render(\r
 242                                 chars->Ch,\r
 243                                 dest, pitch,\r
 244                                 VT_Colour12to24(chars->BGCol),\r
 245                                 VT_Colour12to24(chars->FGCol)\r
 246                                 );\r
 247                         \r
 248                         dest += giVT_CharWidth;\r
 249                         \r
 250                         chars ++;\r
 251                         x ++;\r
 252                         if( x >= pitch ) {\r
 253                                 x = 0;\r
 254                                 y ++ ;\r
 255                                 dest += pitch*(giVT_CharHeight-1);\r
 256                         }\r
 257                 }\r
 258                 Length *= sizeof(tVT_Char);\r
 259                 }\r
 260                 break;\r
 261         \r
 262         case VIDEO_BUFFMT_FRAMEBUFFER:\r
 263                 {\r
 264                 Uint8   *destBuf = (Uint8*) ((Uint)gpVesa_Framebuffer + (Uint)Offset);\r
 265                 \r
 266                 if(gVesa_Modes[giVesaCurrentMode].fbSize < Offset+Length)\r
 267                 {\r
 268                         Log_Warning("VESA", "Vesa_Write - Framebuffer Overflow");\r
 269                         LEAVE('i', 0);\r
 270                         return 0;\r
 271                 }\r
 272                 \r
 273                 LOG("buffer = %p", Buffer);\r
 274                 LOG("Updating Framebuffer (%p to %p)", destBuf, destBuf + (Uint)Length);\r
 275                 \r
 276                 \r
 277                 // Copy to Frambuffer\r
 278                 memcpy(destBuf, Buffer, Length);\r
 279                 \r
 280                 LOG("BGA Framebuffer updated");\r
 281                 }\r
 282                 break;\r
 283         default:\r
 284                 LEAVE('i', -1);\r
 285                 return -1;\r
 286         }\r
 287         \r
 288         LEAVE('X', Length);\r
 289         return Length;\r
 290 }\r
 291 \r
 292 /**\r
 293  * \fn int Vesa_Ioctl(vfs_node *node, int id, void *data)\r
 294  * \brief Handle messages to the device\r
 295  */\r
 296 int Vesa_Ioctl(tVFS_Node *Node, int ID, void *Data)\r
 297 {\r
 298          int    ret;\r
 299         switch(ID)\r
 300         {\r
 301         case DRV_IOCTL_TYPE:    return DRV_TYPE_VIDEO;\r
 302         case DRV_IOCTL_IDENT:   memcpy("VESA", Data, 4);        return 1;\r
 303         case DRV_IOCTL_VERSION: return VERSION;\r
 304         \r
 305         case VIDEO_IOCTL_GETSETMODE:\r
 306                 if( !Data )     return giVesaCurrentMode;\r
 307                 return Vesa_Int_SetMode( *(int*)Data );\r
 308         \r
 309         case VIDEO_IOCTL_FINDMODE:\r
 310                 return Vesa_Int_FindMode((tVideo_IOCtl_Mode*)Data);\r
 311         case VIDEO_IOCTL_MODEINFO:\r
 312                 return Vesa_Int_ModeInfo((tVideo_IOCtl_Mode*)Data);\r
 313         \r
 314         case VIDEO_IOCTL_SETBUFFORMAT:\r
 315                 ret = giVesaCurrentFormat;\r
 316                 if(Data) {\r
 317                         Log_Log("VESA", "Buffer mode to %i", *(int*)Data);\r
 318                         giVesaCurrentFormat = *(int*)Data;\r
 319                 }\r
 320                 return ret;\r
 321         \r
 322         case VIDEO_IOCTL_REQLFB:        // Request Linear Framebuffer\r
 323                 return 0;\r
 324         }\r
 325         return 0;\r
 326 }\r
 327 \r
 328 int Vesa_Int_SetMode(int mode)\r
 329 {\r
 330         Log_Log("VESA", "Setting mode to %i", mode);\r
 331         \r
 332         // Sanity Check values\r
 333         if(mode < 0 || mode > giVesaModeCount)  return -1;\r
 334         \r
 335         // Check for fast return\r
 336         if(mode == giVesaCurrentMode)   return 1;\r
 337         \r
 338         LOCK( &glVesa_Lock );\r
 339         \r
 340         gpVesa_BiosState->AX = 0x4F02;\r
 341         gpVesa_BiosState->BX = gVesa_Modes[mode].code;\r
 342         if(gVesa_Modes[mode].flags & FLAG_LFB) {\r
 343                 Log_Log("VESA", "Using LFB");\r
 344                 gpVesa_BiosState->BX |= 0x4000; // Bit 14 - Use LFB\r
 345         }\r
 346         \r
 347         // Set Mode\r
 348         VM8086_Int(gpVesa_BiosState, 0x10);\r
 349         \r
 350         // Map Framebuffer\r
 351         if( (tVAddr)gpVesa_Framebuffer != VESA_DEFAULT_FRAMEBUFFER )\r
 352                 MM_UnmapHWPages((tVAddr)gpVesa_Framebuffer, giVesaPageCount);\r
 353         giVesaPageCount = (gVesa_Modes[mode].fbSize + 0xFFF) >> 12;\r
 354         gpVesa_Framebuffer = (void*)MM_MapHWPages(gVesa_Modes[mode].framebuffer, giVesaPageCount);\r
 355         \r
 356         Log_Log("VESA", "Framebuffer (Phys) = 0x%x", gVesa_Modes[mode].framebuffer);\r
 357         Log_Log("VESA", "Framebuffer (Virt) = 0x%x", gpVesa_Framebuffer);\r
 358         \r
 359         // Record Mode Set\r
 360         giVesaCurrentMode = mode;\r
 361         \r
 362         RELEASE( &glVesa_Lock );\r
 363         \r
 364         return 1;\r
 365 }\r
 366 \r
 367 int Vesa_Int_FindMode(tVideo_IOCtl_Mode *data)\r
 368 {\r
 369          int    i;\r
 370          int    best = -1, bestFactor = 1000;\r
 371          int    factor, tmp;\r
 372         \r
 373         ENTER("idata->width idata->height idata->bpp", data->width, data->height, data->bpp);\r
 374         \r
 375         for(i=0;i<giVesaModeCount;i++)\r
 376         {\r
 377                 LOG("Mode %i (%ix%ix%i)", i, gVesa_Modes[i].width, gVesa_Modes[i].height, gVesa_Modes[i].bpp);\r
 378         \r
 379                 if(gVesa_Modes[i].width == data->width\r
 380                 && gVesa_Modes[i].height == data->height\r
 381                 && gVesa_Modes[i].bpp == data->bpp)\r
 382                 {\r
 383                         LOG("Perfect!");\r
 384                         best = i;\r
 385                         break;\r
 386                 }\r
 387                 \r
 388                 tmp = gVesa_Modes[i].width * gVesa_Modes[i].height * gVesa_Modes[i].bpp;\r
 389                 tmp -= data->width * data->height * data->bpp;\r
 390                 tmp = tmp < 0 ? -tmp : tmp;\r
 391                 factor = tmp * 100 / (data->width * data->height * data->bpp);\r
 392                 \r
 393                 LOG("factor = %i", factor);\r
 394                 \r
 395                 if(factor < bestFactor)\r
 396                 {\r
 397                         bestFactor = factor;\r
 398                         best = i;\r
 399                 }\r
 400         }\r
 401         data->id = best;\r
 402         data->width = gVesa_Modes[best].width;\r
 403         data->height = gVesa_Modes[best].height;\r
 404         data->bpp = gVesa_Modes[best].bpp;\r
 405         LEAVE('i', best);\r
 406         return best;\r
 407 }\r
 408 \r
 409 int Vesa_Int_ModeInfo(tVideo_IOCtl_Mode *data)\r
 410 {\r
 411         if(data->id < 0 || data->id > giVesaModeCount)  return -1;\r
 412         data->width = gVesa_Modes[data->id].width;\r
 413         data->height = gVesa_Modes[data->id].height;\r
 414         data->bpp = gVesa_Modes[data->id].bpp;\r
 415         return 1;\r
 416 }\r