/* $Id: DevVGATmpl.h $ */ /** @file * DevVGA - VBox VGA/VESA device, code templates. */ /* * Copyright (C) 2006-2023 Oracle and/or its affiliates. * * This file is part of VirtualBox base platform packages, as * available from https://www.virtualbox.org. * * 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, in version 3 of the * License. * * 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 * General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, see . * * SPDX-License-Identifier: GPL-3.0-only * -------------------------------------------------------------------- * * This code is based on: * * QEMU VGA Emulator templates * * Copyright (c) 2003 Fabrice Bellard * * Permission is hereby granted, free of charge, to any person obtaining a copy * of this software and associated documentation files (the "Software"), to deal * in the Software without restriction, including without limitation the rights * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell * copies of the Software, and to permit persons to whom the Software is * furnished to do so, subject to the following conditions: * * The above copyright notice and this permission notice shall be included in * all copies or substantial portions of the Software. * * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN * THE SOFTWARE. */ #if DEPTH == 8 #define BPP 1 #define PIXEL_TYPE uint8_t #elif DEPTH == 15 || DEPTH == 16 #define BPP 2 #define PIXEL_TYPE uint16_t #elif DEPTH == 32 #define BPP 4 #define PIXEL_TYPE uint32_t #else #error unsupport depth #endif #if DEPTH != 15 static inline void RT_CONCAT(vga_draw_glyph_line_, DEPTH)(uint8_t *d, int font_data, uint32_t xorcol, uint32_t bgcol, int dscan, int linesize) { #if BPP == 1 ((uint32_t *)d)[0] = (dmask16[(font_data >> 4)] & xorcol) ^ bgcol; ((uint32_t *)d)[1] = (dmask16[(font_data >> 0) & 0xf] & xorcol) ^ bgcol; if (dscan) { uint8_t *c = d + linesize; ((uint32_t *)c)[0] = ((uint32_t *)d)[0]; ((uint32_t *)c)[1] = ((uint32_t *)d)[1]; } #elif BPP == 2 ((uint32_t *)d)[0] = (dmask4[(font_data >> 6)] & xorcol) ^ bgcol; ((uint32_t *)d)[1] = (dmask4[(font_data >> 4) & 3] & xorcol) ^ bgcol; ((uint32_t *)d)[2] = (dmask4[(font_data >> 2) & 3] & xorcol) ^ bgcol; ((uint32_t *)d)[3] = (dmask4[(font_data >> 0) & 3] & xorcol) ^ bgcol; if (dscan) memcpy(d + linesize, d, 4 * sizeof(uint32_t)); #else ((uint32_t *)d)[0] = (-((font_data >> 7)) & xorcol) ^ bgcol; ((uint32_t *)d)[1] = (-((font_data >> 6) & 1) & xorcol) ^ bgcol; ((uint32_t *)d)[2] = (-((font_data >> 5) & 1) & xorcol) ^ bgcol; ((uint32_t *)d)[3] = (-((font_data >> 4) & 1) & xorcol) ^ bgcol; ((uint32_t *)d)[4] = (-((font_data >> 3) & 1) & xorcol) ^ bgcol; ((uint32_t *)d)[5] = (-((font_data >> 2) & 1) & xorcol) ^ bgcol; ((uint32_t *)d)[6] = (-((font_data >> 1) & 1) & xorcol) ^ bgcol; ((uint32_t *)d)[7] = (-((font_data >> 0) & 1) & xorcol) ^ bgcol; if (dscan) memcpy(d + linesize, d, 8 * sizeof(uint32_t)); #endif } static void RT_CONCAT(vga_draw_glyph8_, DEPTH)(uint8_t *d, int linesize, const uint8_t *font_ptr, int h, uint32_t fgcol, uint32_t bgcol, int dscan) { uint32_t xorcol; int font_data; xorcol = bgcol ^ fgcol; do { font_data = font_ptr[0]; RT_CONCAT(vga_draw_glyph_line_, DEPTH)(d, font_data, xorcol, bgcol, dscan, linesize); font_ptr += 4; d += linesize << dscan; } while (--h); } static void RT_CONCAT(vga_draw_glyph16_, DEPTH)(uint8_t *d, int linesize, const uint8_t *font_ptr, int h, uint32_t fgcol, uint32_t bgcol, int dscan) { uint32_t xorcol; int font_data; xorcol = bgcol ^ fgcol; do { font_data = font_ptr[0]; RT_CONCAT(vga_draw_glyph_line_, DEPTH)(d, expand4to8[font_data >> 4], xorcol, bgcol, dscan, linesize); RT_CONCAT(vga_draw_glyph_line_, DEPTH)(d + 8 * BPP, expand4to8[font_data & 0x0f], xorcol, bgcol, dscan, linesize); font_ptr += 4; d += linesize << dscan; } while (--h); } static void RT_CONCAT(vga_draw_glyph9_, DEPTH)(uint8_t *d, int linesize, const uint8_t *font_ptr, int h, uint32_t fgcol, uint32_t bgcol, int dup9) { uint32_t xorcol, v; int font_data; xorcol = bgcol ^ fgcol; do { font_data = font_ptr[0]; #if BPP == 1 ((uint32_t *)d)[0] = RT_H2LE_U32((dmask16[(font_data >> 4)] & xorcol) ^ bgcol); v = (dmask16[(font_data >> 0) & 0xf] & xorcol) ^ bgcol; ((uint32_t *)d)[1] = RT_H2LE_U32(v); if (dup9) ((uint8_t *)d)[8] = v >> (24 * (1 - BIG)); else ((uint8_t *)d)[8] = bgcol; #elif BPP == 2 ((uint32_t *)d)[0] = RT_H2LE_U32((dmask4[(font_data >> 6)] & xorcol) ^ bgcol); ((uint32_t *)d)[1] = RT_H2LE_U32((dmask4[(font_data >> 4) & 3] & xorcol) ^ bgcol); ((uint32_t *)d)[2] = RT_H2LE_U32((dmask4[(font_data >> 2) & 3] & xorcol) ^ bgcol); v = (dmask4[(font_data >> 0) & 3] & xorcol) ^ bgcol; ((uint32_t *)d)[3] = RT_H2LE_U32(v); if (dup9) ((uint16_t *)d)[8] = v >> (16 * (1 - BIG)); else ((uint16_t *)d)[8] = bgcol; #else ((uint32_t *)d)[0] = (-((font_data >> 7)) & xorcol) ^ bgcol; ((uint32_t *)d)[1] = (-((font_data >> 6) & 1) & xorcol) ^ bgcol; ((uint32_t *)d)[2] = (-((font_data >> 5) & 1) & xorcol) ^ bgcol; ((uint32_t *)d)[3] = (-((font_data >> 4) & 1) & xorcol) ^ bgcol; ((uint32_t *)d)[4] = (-((font_data >> 3) & 1) & xorcol) ^ bgcol; ((uint32_t *)d)[5] = (-((font_data >> 2) & 1) & xorcol) ^ bgcol; ((uint32_t *)d)[6] = (-((font_data >> 1) & 1) & xorcol) ^ bgcol; v = (-((font_data >> 0) & 1) & xorcol) ^ bgcol; ((uint32_t *)d)[7] = v; if (dup9) ((uint32_t *)d)[8] = v; else ((uint32_t *)d)[8] = bgcol; #endif font_ptr += 4; d += linesize; } while (--h); } /* * 4 color mode */ static void RT_CONCAT(vga_draw_line2_, DEPTH)(VGAState *s1, PVGASTATER3 pThisCC, uint8_t *d, const uint8_t *s, int width) { uint32_t plane_mask, *palette, data, v, src_inc, dwb_mode; int x; RT_NOREF(pThisCC); palette = s1->last_palette; plane_mask = mask16[s1->ar[0x12] & 0xf]; dwb_mode = (s1->cr[0x14] & 0x40) ? 2 : (s1->cr[0x17] & 0x40) ? 0 : 1; src_inc = 4 << dwb_mode; width >>= 3; for(x = 0; x < width; x++) { data = ((uint32_t *)s)[0]; data &= plane_mask; v = expand2[GET_PLANE(data, 0)]; v |= expand2[GET_PLANE(data, 2)] << 2; ((PIXEL_TYPE *)d)[0] = palette[v >> 12]; ((PIXEL_TYPE *)d)[1] = palette[(v >> 8) & 0xf]; ((PIXEL_TYPE *)d)[2] = palette[(v >> 4) & 0xf]; ((PIXEL_TYPE *)d)[3] = palette[(v >> 0) & 0xf]; v = expand2[GET_PLANE(data, 1)]; v |= expand2[GET_PLANE(data, 3)] << 2; ((PIXEL_TYPE *)d)[4] = palette[v >> 12]; ((PIXEL_TYPE *)d)[5] = palette[(v >> 8) & 0xf]; ((PIXEL_TYPE *)d)[6] = palette[(v >> 4) & 0xf]; ((PIXEL_TYPE *)d)[7] = palette[(v >> 0) & 0xf]; d += BPP * 8; s += src_inc; } } #if BPP == 1 #define PUT_PIXEL2(d, n, v) ((uint16_t *)d)[(n)] = (v) #elif BPP == 2 #define PUT_PIXEL2(d, n, v) ((uint32_t *)d)[(n)] = (v) #else #define PUT_PIXEL2(d, n, v) \ ((uint32_t *)d)[2*(n)] = ((uint32_t *)d)[2*(n)+1] = (v) #endif /* * 4 color mode, dup2 horizontal */ static void RT_CONCAT(vga_draw_line2d2_, DEPTH)(VGAState *s1, PVGASTATER3 pThisCC, uint8_t *d, const uint8_t *s, int width) { uint32_t plane_mask, *palette, data, v, src_inc, dwb_mode; int x; RT_NOREF(pThisCC); palette = s1->last_palette; plane_mask = mask16[s1->ar[0x12] & 0xf]; dwb_mode = (s1->cr[0x14] & 0x40) ? 2 : (s1->cr[0x17] & 0x40) ? 0 : 1; src_inc = 4 << dwb_mode; width >>= 3; for(x = 0; x < width; x++) { data = ((uint32_t *)s)[0]; data &= plane_mask; v = expand2[GET_PLANE(data, 0)]; v |= expand2[GET_PLANE(data, 2)] << 2; PUT_PIXEL2(d, 0, palette[v >> 12]); PUT_PIXEL2(d, 1, palette[(v >> 8) & 0xf]); PUT_PIXEL2(d, 2, palette[(v >> 4) & 0xf]); PUT_PIXEL2(d, 3, palette[(v >> 0) & 0xf]); v = expand2[GET_PLANE(data, 1)]; v |= expand2[GET_PLANE(data, 3)] << 2; PUT_PIXEL2(d, 4, palette[v >> 12]); PUT_PIXEL2(d, 5, palette[(v >> 8) & 0xf]); PUT_PIXEL2(d, 6, palette[(v >> 4) & 0xf]); PUT_PIXEL2(d, 7, palette[(v >> 0) & 0xf]); d += BPP * 16; s += src_inc; } } /* * 16 color mode */ static void RT_CONCAT(vga_draw_line4_, DEPTH)(VGAState *s1, PVGASTATER3 pThisCC, uint8_t *d, const uint8_t *s, int width) { uint32_t plane_mask, data, v, *palette, vram_ofs; int x; RT_NOREF(pThisCC); vram_ofs = s - pThisCC->pbVRam; palette = s1->last_palette; plane_mask = mask16[s1->ar[0x12] & 0xf]; width >>= 3; for(x = 0; x < width; x++) { s = pThisCC->pbVRam + (vram_ofs & s1->vga_addr_mask); data = ((uint32_t *)s)[0]; data &= plane_mask; v = expand4[GET_PLANE(data, 0)]; v |= expand4[GET_PLANE(data, 1)] << 1; v |= expand4[GET_PLANE(data, 2)] << 2; v |= expand4[GET_PLANE(data, 3)] << 3; ((PIXEL_TYPE *)d)[0] = palette[v >> 28]; ((PIXEL_TYPE *)d)[1] = palette[(v >> 24) & 0xf]; ((PIXEL_TYPE *)d)[2] = palette[(v >> 20) & 0xf]; ((PIXEL_TYPE *)d)[3] = palette[(v >> 16) & 0xf]; ((PIXEL_TYPE *)d)[4] = palette[(v >> 12) & 0xf]; ((PIXEL_TYPE *)d)[5] = palette[(v >> 8) & 0xf]; ((PIXEL_TYPE *)d)[6] = palette[(v >> 4) & 0xf]; ((PIXEL_TYPE *)d)[7] = palette[(v >> 0) & 0xf]; d += BPP * 8; vram_ofs += 4; } } /* * 16 color mode, dup2 horizontal */ static void RT_CONCAT(vga_draw_line4d2_, DEPTH)(VGAState *s1, PVGASTATER3 pThisCC, uint8_t *d, const uint8_t *s, int width) { uint32_t plane_mask, data, v, *palette; int x; RT_NOREF(pThisCC); palette = s1->last_palette; plane_mask = mask16[s1->ar[0x12] & 0xf]; width >>= 3; for(x = 0; x < width; x++) { data = ((uint32_t *)s)[0]; data &= plane_mask; v = expand4[GET_PLANE(data, 0)]; v |= expand4[GET_PLANE(data, 1)] << 1; v |= expand4[GET_PLANE(data, 2)] << 2; v |= expand4[GET_PLANE(data, 3)] << 3; PUT_PIXEL2(d, 0, palette[v >> 28]); PUT_PIXEL2(d, 1, palette[(v >> 24) & 0xf]); PUT_PIXEL2(d, 2, palette[(v >> 20) & 0xf]); PUT_PIXEL2(d, 3, palette[(v >> 16) & 0xf]); PUT_PIXEL2(d, 4, palette[(v >> 12) & 0xf]); PUT_PIXEL2(d, 5, palette[(v >> 8) & 0xf]); PUT_PIXEL2(d, 6, palette[(v >> 4) & 0xf]); PUT_PIXEL2(d, 7, palette[(v >> 0) & 0xf]); d += BPP * 16; s += 4; } } /* * 256 color mode, double pixels * * XXX: add plane_mask support (never used in standard VGA modes) */ static void RT_CONCAT(vga_draw_line8d2_, DEPTH)(VGAState *s1, PVGASTATER3 pThisCC, uint8_t *d, const uint8_t *s, int width) { uint32_t *palette; int x; RT_NOREF(pThisCC); palette = s1->last_palette; width >>= 3; for(x = 0; x < width; x++) { PUT_PIXEL2(d, 0, palette[s[0]]); PUT_PIXEL2(d, 1, palette[s[1]]); PUT_PIXEL2(d, 2, palette[s[2]]); PUT_PIXEL2(d, 3, palette[s[3]]); d += BPP * 8; s += 4; } } /* * standard 256 color mode * * XXX: add plane_mask support (never used in standard VGA modes) */ static void RT_CONCAT(vga_draw_line8_, DEPTH)(VGAState *s1, PVGASTATER3 pThisCC, uint8_t *d, const uint8_t *s, int width) { uint32_t *palette; int x; RT_NOREF(pThisCC); palette = s1->last_palette; width >>= 3; for(x = 0; x < width; x++) { ((PIXEL_TYPE *)d)[0] = palette[s[0]]; ((PIXEL_TYPE *)d)[1] = palette[s[1]]; ((PIXEL_TYPE *)d)[2] = palette[s[2]]; ((PIXEL_TYPE *)d)[3] = palette[s[3]]; ((PIXEL_TYPE *)d)[4] = palette[s[4]]; ((PIXEL_TYPE *)d)[5] = palette[s[5]]; ((PIXEL_TYPE *)d)[6] = palette[s[6]]; ((PIXEL_TYPE *)d)[7] = palette[s[7]]; d += BPP * 8; s += 8; } } #endif /* DEPTH != 15 */ /* XXX: optimize */ /* * 15 bit color */ static void RT_CONCAT(vga_draw_line15_, DEPTH)(VGAState *s1, PVGASTATER3 pThisCC, uint8_t *d, const uint8_t *s, int width) { RT_NOREF(s1, pThisCC); #if DEPTH == 15 && defined(WORDS_BIGENDIAN) == defined(TARGET_WORDS_BIGENDIAN) memcpy(d, s, width * 2); #else int w; uint32_t v, r, g, b; w = width; do { v = s[0] | (s[1] << 8); r = (v >> 7) & 0xf8; g = (v >> 2) & 0xf8; b = (v << 3) & 0xf8; ((PIXEL_TYPE *)d)[0] = RT_CONCAT(rgb_to_pixel, DEPTH)(r, g, b); s += 2; d += BPP; } while (--w != 0); #endif } /* * 16 bit color */ static void RT_CONCAT(vga_draw_line16_, DEPTH)(VGAState *s1, PVGASTATER3 pThisCC, uint8_t *d, const uint8_t *s, int width) { RT_NOREF(s1, pThisCC); #if DEPTH == 16 && defined(WORDS_BIGENDIAN) == defined(TARGET_WORDS_BIGENDIAN) memcpy(d, s, width * 2); #else int w; uint32_t v, r, g, b; w = width; do { v = s[0] | (s[1] << 8); r = (v >> 8) & 0xf8; g = (v >> 3) & 0xfc; b = (v << 3) & 0xf8; ((PIXEL_TYPE *)d)[0] = RT_CONCAT(rgb_to_pixel, DEPTH)(r, g, b); s += 2; d += BPP; } while (--w != 0); #endif } /* * 24 bit color */ static void RT_CONCAT(vga_draw_line24_, DEPTH)(VGAState *s1, PVGASTATER3 pThisCC, uint8_t *d, const uint8_t *s, int width) { int w; uint32_t r, g, b; RT_NOREF(s1, pThisCC); w = width; do { #if defined(TARGET_WORDS_BIGENDIAN) r = s[0]; g = s[1]; b = s[2]; #else b = s[0]; g = s[1]; r = s[2]; #endif ((PIXEL_TYPE *)d)[0] = RT_CONCAT(rgb_to_pixel, DEPTH)(r, g, b); s += 3; d += BPP; } while (--w != 0); } /* * 32 bit color */ static void RT_CONCAT(vga_draw_line32_, DEPTH)(VGAState *s1, PVGASTATER3 pThisCC, uint8_t *d, const uint8_t *s, int width) { RT_NOREF(s1, pThisCC); #if DEPTH == 32 && defined(WORDS_BIGENDIAN) == defined(TARGET_WORDS_BIGENDIAN) memcpy(d, s, width * 4); #else int w; uint32_t r, g, b; w = width; do { #if defined(TARGET_WORDS_BIGENDIAN) r = s[1]; g = s[2]; b = s[3]; #else b = s[0]; g = s[1]; r = s[2]; #endif ((PIXEL_TYPE *)d)[0] = RT_CONCAT(rgb_to_pixel, DEPTH)(r, g, b); s += 4; d += BPP; } while (--w != 0); #endif } #if DEPTH != 15 #ifndef VBOX #ifdef VBOX static #endif/* VBOX */ void RT_CONCAT(vga_draw_cursor_line_, DEPTH)(uint8_t *d1, const uint8_t *src1, int poffset, int w, unsigned int color0, unsigned int color1, unsigned int color_xor) { const uint8_t *plane0, *plane1; int x, b0, b1; uint8_t *d; d = d1; plane0 = src1; plane1 = src1 + poffset; for(x = 0; x < w; x++) { b0 = (plane0[x >> 3] >> (7 - (x & 7))) & 1; b1 = (plane1[x >> 3] >> (7 - (x & 7))) & 1; #if DEPTH == 8 switch(b0 | (b1 << 1)) { case 0: break; case 1: d[0] ^= color_xor; break; case 2: d[0] = color0; break; case 3: d[0] = color1; break; } #elif DEPTH == 16 switch(b0 | (b1 << 1)) { case 0: break; case 1: ((uint16_t *)d)[0] ^= color_xor; break; case 2: ((uint16_t *)d)[0] = color0; break; case 3: ((uint16_t *)d)[0] = color1; break; } #elif DEPTH == 32 switch(b0 | (b1 << 1)) { case 0: break; case 1: ((uint32_t *)d)[0] ^= color_xor; break; case 2: ((uint32_t *)d)[0] = color0; break; case 3: ((uint32_t *)d)[0] = color1; break; } #else #error unsupported depth #endif d += BPP; } } #endif /* !VBOX */ #endif #undef PUT_PIXEL2 #undef DEPTH #undef BPP #undef PIXEL_TYPE