1 /* 2 * QEMU Cirrus CLGD 54xx VGA Emulator. 3 * 4 * Copyright (c) 2004 Fabrice Bellard 5 * 6 * Permission is hereby granted, free of charge, to any person obtaining a copy 7 * of this software and associated documentation files (the "Software"), to deal 8 * in the Software without restriction, including without limitation the rights 9 * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 10 * copies of the Software, and to permit persons to whom the Software is 11 * furnished to do so, subject to the following conditions: 12 * 13 * The above copyright notice and this permission notice shall be included in 14 * all copies or substantial portions of the Software. 15 * 16 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 17 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 18 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL 19 * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER 20 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 21 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN 22 * THE SOFTWARE. 23 */ 24 25 #if DEPTH == 8 26 #define PUTPIXEL(s, a, c) ROP_OP(s, a, c) 27 #elif DEPTH == 16 28 #define PUTPIXEL(s, a, c) ROP_OP_16(s, a, c) 29 #elif DEPTH == 24 30 #define PUTPIXEL(s, a, c) do { \ 31 ROP_OP(s, a, c); \ 32 ROP_OP(s, a + 1, (c >> 8)); \ 33 ROP_OP(s, a + 2, (c >> 16)); \ 34 } while (0) 35 #elif DEPTH == 32 36 #define PUTPIXEL(s, a, c) ROP_OP_32(s, a, c) 37 #else 38 #error unsupported DEPTH 39 #endif 40 41 static void 42 glue(glue(glue(cirrus_patternfill_, ROP_NAME), _),DEPTH) 43 (CirrusVGAState *s, uint32_t dstaddr, 44 uint32_t srcaddr, 45 int dstpitch, int srcpitch, 46 int bltwidth, int bltheight) 47 { 48 uint32_t addr; 49 int x, y, pattern_y, pattern_pitch, pattern_x; 50 unsigned int col; 51 uint32_t src1addr; 52 #if DEPTH == 24 53 int skipleft = s->vga.gr[0x2f] & 0x1f; 54 #else 55 int skipleft = (s->vga.gr[0x2f] & 0x07) * (DEPTH / 8); 56 #endif 57 58 #if DEPTH == 8 59 pattern_pitch = 8; 60 #elif DEPTH == 16 61 pattern_pitch = 16; 62 #else 63 pattern_pitch = 32; 64 #endif 65 pattern_y = s->cirrus_blt_srcaddr & 7; 66 for(y = 0; y < bltheight; y++) { 67 pattern_x = skipleft; 68 addr = dstaddr + skipleft; 69 src1addr = srcaddr + pattern_y * pattern_pitch; 70 for (x = skipleft; x < bltwidth; x += (DEPTH / 8)) { 71 #if DEPTH == 8 72 col = cirrus_src(s, src1addr + pattern_x); 73 pattern_x = (pattern_x + 1) & 7; 74 #elif DEPTH == 16 75 col = cirrus_src16(s, src1addr + pattern_x); 76 pattern_x = (pattern_x + 2) & 15; 77 #elif DEPTH == 24 78 { 79 uint32_t src2addr = src1addr + pattern_x * 3; 80 col = cirrus_src(s, src2addr) | 81 (cirrus_src(s, src2addr + 1) << 8) | 82 (cirrus_src(s, src2addr + 2) << 16); 83 pattern_x = (pattern_x + 1) & 7; 84 } 85 #else 86 col = cirrus_src32(s, src1addr + pattern_x); 87 pattern_x = (pattern_x + 4) & 31; 88 #endif 89 PUTPIXEL(s, addr, col); 90 addr += (DEPTH / 8); 91 } 92 pattern_y = (pattern_y + 1) & 7; 93 dstaddr += dstpitch; 94 } 95 } 96 97 /* NOTE: srcpitch is ignored */ 98 static void 99 glue(glue(glue(cirrus_colorexpand_transp_, ROP_NAME), _),DEPTH) 100 (CirrusVGAState *s, uint32_t dstaddr, 101 uint32_t srcaddr, 102 int dstpitch, int srcpitch, 103 int bltwidth, int bltheight) 104 { 105 uint32_t addr; 106 int x, y; 107 unsigned bits, bits_xor; 108 unsigned int col; 109 unsigned bitmask; 110 unsigned index; 111 #if DEPTH == 24 112 int dstskipleft = s->vga.gr[0x2f] & 0x1f; 113 int srcskipleft = dstskipleft / 3; 114 #else 115 int srcskipleft = s->vga.gr[0x2f] & 0x07; 116 int dstskipleft = srcskipleft * (DEPTH / 8); 117 #endif 118 119 if (s->cirrus_blt_modeext & CIRRUS_BLTMODEEXT_COLOREXPINV) { 120 bits_xor = 0xff; 121 col = s->cirrus_blt_bgcol; 122 } else { 123 bits_xor = 0x00; 124 col = s->cirrus_blt_fgcol; 125 } 126 127 for(y = 0; y < bltheight; y++) { 128 bitmask = 0x80 >> srcskipleft; 129 bits = cirrus_src(s, srcaddr++) ^ bits_xor; 130 addr = dstaddr + dstskipleft; 131 for (x = dstskipleft; x < bltwidth; x += (DEPTH / 8)) { 132 if ((bitmask & 0xff) == 0) { 133 bitmask = 0x80; 134 bits = cirrus_src(s, srcaddr++) ^ bits_xor; 135 } 136 index = (bits & bitmask); 137 if (index) { 138 PUTPIXEL(s, addr, col); 139 } 140 addr += (DEPTH / 8); 141 bitmask >>= 1; 142 } 143 dstaddr += dstpitch; 144 } 145 } 146 147 static void 148 glue(glue(glue(cirrus_colorexpand_, ROP_NAME), _),DEPTH) 149 (CirrusVGAState *s, uint32_t dstaddr, 150 uint32_t srcaddr, 151 int dstpitch, int srcpitch, 152 int bltwidth, int bltheight) 153 { 154 uint32_t colors[2]; 155 uint32_t addr; 156 int x, y; 157 unsigned bits; 158 unsigned int col; 159 unsigned bitmask; 160 int srcskipleft = s->vga.gr[0x2f] & 0x07; 161 int dstskipleft = srcskipleft * (DEPTH / 8); 162 163 colors[0] = s->cirrus_blt_bgcol; 164 colors[1] = s->cirrus_blt_fgcol; 165 for(y = 0; y < bltheight; y++) { 166 bitmask = 0x80 >> srcskipleft; 167 bits = cirrus_src(s, srcaddr++); 168 addr = dstaddr + dstskipleft; 169 for (x = dstskipleft; x < bltwidth; x += (DEPTH / 8)) { 170 if ((bitmask & 0xff) == 0) { 171 bitmask = 0x80; 172 bits = cirrus_src(s, srcaddr++); 173 } 174 col = colors[!!(bits & bitmask)]; 175 PUTPIXEL(s, addr, col); 176 addr += (DEPTH / 8); 177 bitmask >>= 1; 178 } 179 dstaddr += dstpitch; 180 } 181 } 182 183 static void 184 glue(glue(glue(cirrus_colorexpand_pattern_transp_, ROP_NAME), _),DEPTH) 185 (CirrusVGAState *s, uint32_t dstaddr, 186 uint32_t srcaddr, 187 int dstpitch, int srcpitch, 188 int bltwidth, int bltheight) 189 { 190 uint32_t addr; 191 int x, y, bitpos, pattern_y; 192 unsigned int bits, bits_xor; 193 unsigned int col; 194 #if DEPTH == 24 195 int dstskipleft = s->vga.gr[0x2f] & 0x1f; 196 int srcskipleft = dstskipleft / 3; 197 #else 198 int srcskipleft = s->vga.gr[0x2f] & 0x07; 199 int dstskipleft = srcskipleft * (DEPTH / 8); 200 #endif 201 202 if (s->cirrus_blt_modeext & CIRRUS_BLTMODEEXT_COLOREXPINV) { 203 bits_xor = 0xff; 204 col = s->cirrus_blt_bgcol; 205 } else { 206 bits_xor = 0x00; 207 col = s->cirrus_blt_fgcol; 208 } 209 pattern_y = s->cirrus_blt_srcaddr & 7; 210 211 for(y = 0; y < bltheight; y++) { 212 bits = cirrus_src(s, srcaddr + pattern_y) ^ bits_xor; 213 bitpos = 7 - srcskipleft; 214 addr = dstaddr + dstskipleft; 215 for (x = dstskipleft; x < bltwidth; x += (DEPTH / 8)) { 216 if ((bits >> bitpos) & 1) { 217 PUTPIXEL(s, addr, col); 218 } 219 addr += (DEPTH / 8); 220 bitpos = (bitpos - 1) & 7; 221 } 222 pattern_y = (pattern_y + 1) & 7; 223 dstaddr += dstpitch; 224 } 225 } 226 227 static void 228 glue(glue(glue(cirrus_colorexpand_pattern_, ROP_NAME), _),DEPTH) 229 (CirrusVGAState *s, uint32_t dstaddr, 230 uint32_t srcaddr, 231 int dstpitch, int srcpitch, 232 int bltwidth, int bltheight) 233 { 234 uint32_t colors[2]; 235 uint32_t addr; 236 int x, y, bitpos, pattern_y; 237 unsigned int bits; 238 unsigned int col; 239 int srcskipleft = s->vga.gr[0x2f] & 0x07; 240 int dstskipleft = srcskipleft * (DEPTH / 8); 241 242 colors[0] = s->cirrus_blt_bgcol; 243 colors[1] = s->cirrus_blt_fgcol; 244 pattern_y = s->cirrus_blt_srcaddr & 7; 245 246 for(y = 0; y < bltheight; y++) { 247 bits = cirrus_src(s, srcaddr + pattern_y); 248 bitpos = 7 - srcskipleft; 249 addr = dstaddr + dstskipleft; 250 for (x = dstskipleft; x < bltwidth; x += (DEPTH / 8)) { 251 col = colors[(bits >> bitpos) & 1]; 252 PUTPIXEL(s, addr, col); 253 addr += (DEPTH / 8); 254 bitpos = (bitpos - 1) & 7; 255 } 256 pattern_y = (pattern_y + 1) & 7; 257 dstaddr += dstpitch; 258 } 259 } 260 261 static void 262 glue(glue(glue(cirrus_fill_, ROP_NAME), _),DEPTH) 263 (CirrusVGAState *s, 264 uint32_t dstaddr, int dst_pitch, 265 int width, int height) 266 { 267 uint32_t addr; 268 uint32_t col; 269 int x, y; 270 271 col = s->cirrus_blt_fgcol; 272 273 for(y = 0; y < height; y++) { 274 addr = dstaddr; 275 for(x = 0; x < width; x += (DEPTH / 8)) { 276 PUTPIXEL(s, addr, col); 277 addr += (DEPTH / 8); 278 } 279 dstaddr += dst_pitch; 280 } 281 } 282 283 #undef DEPTH 284 #undef PUTPIXEL 285