/*
* linux/arch/m68k/console/fbcon.c -- Low level frame buffer based console
* driver
*
* Copyright (C) 1995 Geert Uytterhoeven
*
*
* This file is based on the original Amiga console driver (amicon.c):
*
* Copyright (C) 1993 Hamish Macdonald
* Greg Harp
* Copyright (C) 1994 David Carter [carter@compsci.bristol.ac.uk]
*
* with work by William Rucklidge (wjr@cs.cornell.edu)
* Geert Uytterhoeven
* Jes Sorensen (jds@kom.auc.dk)
* Martin Apel
*
* and on the original Atari console driver (atacon.c):
*
* Copyright (C) 1993 Bjoern Brauel
* Roman Hodek
*
* with work by Guenther Kelleter
* Martin Schaller
* Andreas Schwab
*
*
* This file is subject to the terms and conditions of the GNU General Public
* License. See the file COPYING in the main directory of this archive
* for more details.
*/
/*
* To do:
* - Implement 16 plane mode.
* - Add support for 16/24/32 bit packed pixels
* - Hardware cursor
*/
#include <linux/types.h>
#include <linux/sched.h>
#include <linux/fs.h>
#include <linux/kernel.h>
#include <linux/tty.h>
#include <linux/console.h>
#include <linux/string.h>
#include <linux/config.h>
#include <linux/kd.h>
#include <linux/malloc.h>
#include <asm/setup.h>
#include <asm/irq.h>
#ifdef CONFIG_AMIGA
#include <asm/amigahw.h>
#include <asm/amigaints.h>
#endif /* CONFIG_AMIGA */
#ifdef CONFIG_ATARI
#include <asm/atariints.h>
#endif
#ifdef CONFIG_FB_CYBER
#include "../amiga/s3blit.h"
#endif
#include <linux/fb.h>
#include <asm/font.h>
#include <asm/machdep.h>
#include <asm/system.h>
#include <asm/uaccess.h>
#include <linux/vt_kern.h>
#include <linux/console_struct.h>
/* Import console_blanked from console.c */
extern int console_blanked;
/*
* The following symbols select what modes are supported. They should
* be settable by the user ("make config") later.
*/
/* Clear all definitions */
#undef CONFIG_FBCON_MONO
#undef CONFIG_FBCON_ILBM
#undef CONFIG_FBCON_PLANES
#undef CONFIG_FBCON_2PLANE
#undef CONFIG_FBCON_4PLANE
#undef CONFIG_FBCON_8PLANE
#undef CONFIG_FBCON_8PACKED
#undef CONFIG_FBCON_16PACKED
#undef CONFIG_FBCON_24PACKED
#undef CONFIG_FBCON_32PACKED
#undef CONFIG_FBCON_CYBER
#undef CONFIG_FBCON_RETINAZ3
/* Monochrome is default */
#define CONFIG_FBCON_MONO
/* Amiga support */
#ifdef CONFIG_AMIGA
#ifndef CONFIG_FBCON_ILBM
#define CONFIG_FBCON_ILBM
#endif
#ifndef CONFIG_FBCON_PLANES
#define CONFIG_FBCON_PLANES
#endif
/* Cybervision Graphics Board */
#ifdef CONFIG_FB_CYBER
#ifndef CONFIG_FBCON_CYBER
#define CONFIG_FBCON_CYBER
#endif
#endif
/* RetinaZ3 Graphics Board */
#ifdef CONFIG_FB_RETINAZ3
#ifndef CONFIG_FBCON_RETINAZ3
#define CONFIG_FBCON_RETINAZ3
#endif
#ifndef CONFIG_FBCON_8PACKED
#define CONFIG_FBCON_8PACKED
#endif
#endif
#endif /* CONFIG_AMIGA */
/* Atari support */
#ifdef CONFIG_ATARI
#ifndef CONFIG_FBCON_2PLANE
#define CONFIG_FBCON_2PLANE
#endif
#ifndef CONFIG_FBCON_4PLANE
#define CONFIG_FBCON_4PLANE
#endif
#ifndef CONFIG_FBCON_8PLANE
#define CONFIG_FBCON_8PLANE
#endif
#ifndef CONFIG_FBCON_8PACKED
#define CONFIG_FBCON_8PACKED
#endif
#ifndef CONFIG_FBCON_16PACKED
#define CONFIG_FBCON_16PACKED
#endif
#endif /* CONFIG_ATARI */
/* Extra definitions to make the code more readable */
#if defined(CONFIG_FBCON_2PLANE) || defined(CONFIG_FBCON_4PLANE) || \
defined(CONFIG_FBCON_8PLANE)
#define CONFIG_FBCON_IPLAN2
#else
#undef CONFIG_FBCON_IPLAN2
#endif
#if defined(CONFIG_FBCON_CYBER) || defined(CONFIG_FBCON_RETINAZ3) || \
defined(CONFIG_FBCON_8PACKED) || defined(CONFIG_FBCON_16PACKED) || \
defined(CONFIG_FBCON_24PACKED) || defined(CONFIG_FBCON_32PACKED)
#define CONFIG_FBCON_PACKED
#else
#undef CONFIG_FBCON_PACKED
#endif
static struct fb_info *fb_info;
static struct display *disp;
/* ++Geert: Sorry, no hardware cursor support at the moment;
use Atari alike software cursor */
static int cursor_drawn = 0;
#define CURSOR_DRAW_DELAY (2)
/* # VBL ints between cursor state changes */
#define AMIGA_CURSOR_BLINK_RATE (20)
#define ATARI_CURSOR_BLINK_RATE (42)
static int vbl_cursor_cnt = 0;
static int cursor_on = 0;
static int cursor_blink_rate;
static __inline__ int CURSOR_UNDRAWN(void)
{
int cursor_was_drawn;
vbl_cursor_cnt = 0;
cursor_was_drawn = cursor_drawn;
cursor_drawn = 0;
return(cursor_was_drawn);
}
/*
* Attribute Decoding
*/
/* Color */
#define attr_fgcol(p,conp) \
(((conp)->vc_attr >> ((p)->inverse ? 4 : 0)) & 0x0f)
#define attr_bgcol(p,conp) \
(((conp)->vc_attr >> ((p)->inverse ? 0 : 4)) & 0x0f)
#define attr_bgcol_ec(p,conp) \
(((conp)->vc_video_erase_char >> ((p)->inverse ? 8 : 12)) & 0x0f)
/* Monochrome */
#define attr_bold(p,conp) \
(((conp)->vc_attr & 3) == 2)
#define attr_reverse(p,conp) \
(((conp)->vc_attr & 8) ^ ((p)->inverse ? 8 : 0))
#define attr_underline(p,conp) \
(((conp)->vc_attr) & 4)
/*
* Scroll Method
*/
#define SCROLL_YWRAP (0)
#define SCROLL_YPAN (1)
#define SCROLL_YMOVE (2)
#define divides(a, b) ((!(a) || (b)%(a)) ? 0 : 1)
/*
* Interface used by the world
*/
static u_long fbcon_startup(u_long kmem_start, const char **display_desc);
static void fbcon_init(struct vc_data *conp);
static int fbcon_deinit(struct vc_data *conp);
static int fbcon_changevar(int con);
static int fbcon_clear(struct vc_data *conp, int sy, int sx, int height,
int width);
static int fbcon_putc(struct vc_data *conp, int c, int yy, int xx);
static int fbcon_putcs(struct vc_data *conp, const char *s, int count, int yy,
int xx);
static int fbcon_cursor(struct vc_data *conp, int mode);
static int fbcon_scroll(struct vc_data *conp, int t, int b, int dir, int count);
static int fbcon_bmove(struct vc_data *conp, int sy, int sx, int dy, int dx,
int height, int width);
static int fbcon_switch(struct vc_data *conp);
static int fbcon_blank(int blank);
static int fbcon_get_font(struct vc_data *conp, int *w, int *h, char *data);
static int fbcon_set_font(struct vc_data *conp, int w, int h, char *data);
static int fbcon_set_palette(struct vc_data *conp, unsigned char *table);
/*
* Internal routines
*/
static void fbcon_setup(int con, int setcol, int init);
static __inline__ void *mymemclear_small(void *s, size_t count);
static __inline__ void *mymemclear(void *s, size_t count);
static __inline__ void *mymemset(void *s, size_t count);
static __inline__ void *mymemmove(void *d, void *s, size_t count);
static __inline__ void fast_memmove(char *dst, char *src, size_t size);
static __inline__ void memclear_4p_col(void *d, size_t h, u_long val, int bpr);
static __inline__ void memset_even_4p(void *d, size_t count, u_long val1,
u_long val2);
static __inline__ void memmove_4p_col(void *d, void *s, int h, int bpr);
static __inline__ u_long expand4l(u_char c);
static __inline__ void expand4dl(u_char c, u_long *ret1, u_long *ret2);
static __inline__ u_long dup4l(u_char c);
static __inline__ void memclear_8p_col(void *d, size_t h, u_long val1,
u_long val2, int bpr);
static __inline__ void memset_even_8p(void *d, size_t count, u_long val1,
u_long val2, u_long val3, u_long val4);
static __inline__ void memmove_8p_col(void *d, void *s, int h, int bpr);
static __inline__ void expand8dl(u_char c, u_long *ret1, u_long *ret2);
static __inline__ void memclear_2p_col(void *d, size_t h, u_short val,
int bpr);
static __inline__ void memset_even_2p(void *d, size_t count, u_long val);
static __inline__ void memmove_2p_col(void *d, void *s, int h, int bpr);
static __inline__ u_short expand2w(u_char c);
static __inline__ u_long expand2l(u_char c);
static __inline__ u_short dup2w(u_char c);
static __inline__ int real_y(struct display *p, int yy);
static void fbcon_vbl_handler(int irq, void *dummy, struct pt_regs *fp);
static __inline__ void updatescrollmode(struct display *p);
static __inline__ void ywrap_up(int unit, struct display *p, int count);
static __inline__ void ywrap_down(int unit, struct display *p, int count);
static __inline__ void ypan_up(int unit, struct vc_data *conp,
struct display *p, int count);
static __inline__ void ypan_down(int unit, struct vc_data *conp,
struct display *p, int count);
static void fbcon_bmove_rec(struct display *p, int sy, int sx, int dy, int dx,
int height, int width, u_int y_break);
/*
* Monochrome
*/
#ifdef CONFIG_FBCON_MONO
static void bmove_mono(struct display *p, int sy, int sx, int dy, int dx,
int height, int width);
static void clear_mono(struct vc_data *conp, struct display *p, int sy, int sx,
int height, int width);
static void putc_mono(struct vc_data *conp, struct display *p, int c, int yy,
int xx);
static void putcs_mono(struct vc_data *conp, struct display *p, const char *s,
int count, int yy, int xx);
static void rev_char_mono(struct display *p, int xx, int yy);
#endif /* CONFIG_FBCON_MONO */
/*
* Color Interleaved Planes
*/
#ifdef CONFIG_FBCON_ILBM
static void bmove_ilbm(struct display *p, int sy, int sx, int dy, int dx,
int height, int width);
static void clear_ilbm(struct vc_data *conp, struct display *p, int sy, int sx,
int height, int width);
static void putc_ilbm(struct vc_data *conp, struct display *p, int c, int yy,
int xx);
static void putcs_ilbm(struct vc_data *conp, struct display *p, const char *s,
int count, int yy, int xx);
static void rev_char_ilbm(struct display *p, int xx, int yy);
#endif /* CONFIG_FBCON_ILBM */
/*
* Color Planes
*/
#ifdef CONFIG_FBCON_PLANES
static void bmove_plan(struct display *p, int sy, int sx, int dy, int dx,
int height, int width);
static void clear_plan(struct vc_data *conp, struct display *p, int sy, int sx,
int height, int width);
static void putc_plan(struct vc_data *conp, struct display *p, int c, int yy,
int xx);
static void putcs_plan(struct vc_data *conp, struct display *p, const char *s,
int count, int yy, int xx);
static void rev_char_plan(struct display *p, int xx, int yy);
#endif /* CONFIG_FBCON_PLANES */
/*
* 2 Planes (2-bytes interleave)
*/
#ifdef CONFIG_FBCON_2PLANE
static void bmove_2_plane(struct display *p, int sy, int sx, int dy, int dx,
int height, int width);
static void clear_2_plane(struct vc_data *conp, struct display *p, int sy,
int sx, int height, int width);
static void putc_2_plane(struct vc_data *conp, struct display *p, int c, int yy,
int xx);
static void putcs_2_plane(struct vc_data *conp, struct display *p,
const char *s, int count, int yy, int xx);
static void rev_char_2_plane(struct display *display, int xx, int yy);
#endif /* CONFIG_FBCON_2PLANE */
/*
* 4 Planes (2-bytes interleave)
*/
#ifdef CONFIG_FBCON_4PLANE
static void bmove_4_plane(struct display *p, int sy, int sx, int dy, int dx,
int height, int width);
static void clear_4_plane(struct vc_data *conp, struct display *p, int sy,
int sx, int height, int width);
static void putc_4_plane(struct vc_data *conp, struct display *p, int c, int yy,
int xx);
static void putcs_4_plane(struct vc_data *conp, struct display *p,
const char *s, int count, int yy, int xx);
static void rev_char_4_plane(struct display *p, int xx, int yy);
#endif /* CONFIG_FBCON_4PLANE */
/*
* 8 Planes (2-bytes interleave)
*/
#ifdef CONFIG_FBCON_8PLANE
static void bmove_8_plane(struct display *p, int sy, int sx, int dy, int dx,
int height, int width);
static void clear_8_plane(struct vc_data *conp, struct display *p, int sy,
int sx, int height, int width);
static void putc_8_plane(struct vc_data *conp, struct display *p, int c, int yy,
int xx);
static void putcs_8_plane(struct vc_data *conp, struct display *p,
const char *s, int count, int yy, int xx);
static void rev_char_8_plane(struct display *display, int xx, int yy);
#endif /* CONFIG_FBCON_8PLANE */
/*
* 8 bpp Packed Pixels
*/
#ifdef CONFIG_FBCON_8PACKED
static void bmove_8_packed(struct display *p, int sy, int sx, int dy, int dx,
int height, int width);
static void clear_8_packed(struct vc_data *conp, struct display *p, int sy,
int sx, int height, int width);
static void putc_8_packed(struct vc_data *conp, struct display *p, int c, int yy,
int xx);
static void putcs_8_packed(struct vc_data *conp, struct display *p,
const char *s, int count, int yy, int xx);
static void rev_char_8_packed(struct display *p, int xx, int yy);
#endif /* CONFIG_FBCON_8PACKED */
/*
* 16 bpp Packed Pixels
*/
#ifdef CONFIG_FBCON_16PACKED
static void bmove_16_packed(struct display *p, int sy, int sx, int dy, int dx,
int height, int width);
static void clear_16_packed(struct vc_data *conp, struct display *p, int sy,
int sx, int height, int width);
static void putc_16_packed(struct vc_data *conp, struct display *p, int c,
int yy, int xx);
static void putcs_16_packed(struct vc_data *conp, struct display *p,
const char *s, int count, int yy, int xx);
static void rev_char_16_packed(struct display *p, int xx, int yy);
#endif */ CONFIG_FBCON_8PACKED */
/*
* Cybervision (accelerated)
*/
#ifdef CONFIG_FBCON_CYBER
static void bmove_cyber(struct display *p, int sy, int sx, int dy, int dx,
int height, int width);
static void clear_cyber(struct vc_data *conp, struct display *p, int sy, int sx,
int height, int width);
static void putc_cyber(struct vc_data *conp, struct display *p, int c, int yy,
int xx);
static void putcs_cyber(struct vc_data *conp, struct display *p, const char *s,
int count, int yy, int xx);
static void rev_char_cyber(struct display *p, int xx, int yy);
extern void Cyber_WaitQueue(unsigned short fifo);
extern void Cyber_WaitBlit(void);
extern void Cyber_BitBLT(unsigned short curx, unsigned short cury,
unsigned short destx, unsigned short desty,
unsigned short width, unsigned short height,
unsigned short mode);
extern void Cyber_RectFill(unsigned short xx, unsigned short yy,
unsigned short width, unsigned short
height, unsigned short mode,
unsigned short fcolor);
extern void Cyber_MoveCursor(unsigned short xx, unsigned short yy);
#endif /* CONFIG_FBCON_CYBER */
#ifdef CONFIG_FBCON_RETINAZ3
static void clear_retz3(struct vc_data *conp, struct display *p, int
sy, int sx, int height, int width);
static void bmove_retz3(struct display *p, int sy, int sx, int dy, int dx,
int height, int width);
extern void retz3_bitblt(struct fb_var_screeninfo *scr,
unsigned short srcx, unsigned short srcy, unsigned
short destx, unsigned short desty, unsigned short
width, unsigned short height, unsigned short cmd,
unsigned short mask);
static void putc_retz3(struct vc_data *conp, struct display *p, int c,
int yy, int xx);
static void putcs_retz3(struct vc_data *conp, struct display *p, const
char *s, int count, int yy, int xx);
static void rev_char_retz3(struct display *p, int xx, int yy);
#endif
/*
* `switch' for the Low Level Operations
*/
struct display_switch {
void (*bmove)(struct display *p, int sy, int sx, int dy, int dx, int height,
int width);
void (*clear)(struct vc_data *conp, struct display *p, int sy, int sx,
int height, int width);
void (*putc)(struct vc_data *conp, struct display *p, int c, int yy, int xx);
void (*putcs)(struct vc_data *conp, struct display *p, const char *s,
int count, int yy, int xx);
void (*rev_char)(struct display *p, int xx, int yy);
};
#ifdef CONFIG_FBCON_MONO
static struct display_switch dispsw_mono = {
bmove_mono, clear_mono, putc_mono, putcs_mono, rev_char_mono
};
#endif /* CONFIG_FBCON_MONO */
#ifdef CONFIG_FBCON_ILBM
static struct display_switch dispsw_ilbm = {
bmove_ilbm, clear_ilbm, putc_ilbm, putcs_ilbm, rev_char_ilbm
};
#endif /* CONFIG_FBCON_ILBM */
#ifdef CONFIG_FBCON_PLANES
static struct display_switch dispsw_plan = {
bmove_plan, clear_plan, putc_plan, putcs_plan, rev_char_plan
};
#endif /* CONFIG_FBCON_PLANES */
#ifdef CONFIG_FBCON_2PLANE
static struct display_switch dispsw_2_plane = {
bmove_2_plane, clear_2_plane, putc_2_plane, putcs_2_plane, rev_char_2_plane
};
#endif /* CONFIG_FBCON_2PLANE */
#ifdef CONFIG_FBCON_4PLANE
static struct display_switch dispsw_4_plane = {
bmove_4_plane, clear_4_plane, putc_4_plane, putcs_4_plane, rev_char_4_plane
};
#endif /* CONFIG_FBCON_4PLANE */
#ifdef CONFIG_FBCON_8PLANE
static struct display_switch dispsw_8_plane = {
bmove_8_plane, clear_8_plane, putc_8_plane, putcs_8_plane, rev_char_8_plane
};
#endif /* CONFIG_FBCON_8PLANE */
#ifdef CONFIG_FBCON_8PACKED
static struct display_switch dispsw_8_packed = {
bmove_8_packed, clear_8_packed, putc_8_packed, putcs_8_packed, rev_char_8_packed
};
#endif /* CONFIG_FBCON_8PACKED */
#ifdef CONFIG_FBCON_16PACKED
static struct display_switch dispsw_16_packed = {
bmove_16_packed, clear_16_packed, putc_16_packed, putcs_16_packed,
rev_char_16_packed
};
#endif /* CONFIG_FBCON_16PACKED */
#ifdef CONFIG_FBCON_CYBER
static struct display_switch dispsw_cyber = {
bmove_cyber, clear_cyber, putc_cyber, putcs_cyber, rev_char_cyber
};
#endif /* CONFIG_FBCON_CYBER */
#ifdef CONFIG_FBCON_RETINAZ3
static struct display_switch dispsw_retz3 = {
bmove_retz3, clear_retz3, putc_retz3,
putcs_retz3, rev_char_retz3
};
#endif
static u_long fbcon_startup(u_long kmem_start, const char **display_desc)
{
int irqres = 0;
fb_info = mach_fb_init(&kmem_start);
disp = fb_info->disp;
*display_desc = fb_info->modename;
fb_info->changevar = &fbcon_changevar;
#ifdef CONFIG_AMIGA
if (MACH_IS_AMIGA) {
cursor_blink_rate = AMIGA_CURSOR_BLINK_RATE;
irqres = request_irq(IRQ_AMIGA_VERTB, fbcon_vbl_handler, 0,
"console/cursor", fbcon_vbl_handler);
}
#endif /* CONFIG_AMIGA */
#ifdef CONFIG_ATARI
if (MACH_IS_ATARI) {
cursor_blink_rate = ATARI_CURSOR_BLINK_RATE;
irqres = request_irq(IRQ_AUTO_4, fbcon_vbl_handler, IRQ_TYPE_PRIO,
"console/cursor", fbcon_vbl_handler);
}
#endif /* CONFIG_ATARI */
if (irqres)
panic("fbcon_startup: Couldn't add vblank interrupt");
return(kmem_start);
}
static void fbcon_init(struct vc_data *conp)
{
int unit = conp->vc_num;
if (unit)
disp[unit] = disp[0];
disp[unit].conp = conp;
fbcon_setup(unit, 1, 1);
}
static int fbcon_deinit(struct vc_data *conp)
{
disp[conp->vc_num].conp = 0;
return(0);
}
static int fbcon_changevar(int con)
{
fbcon_setup(con, 1, 0);
return(0);
}
static __inline__ void updatescrollmode(struct display *p)
{
if (divides(p->ywrapstep, p->fontheight) &&
divides(p->fontheight, p->var.yres_virtual))
p->scrollmode = SCROLL_YWRAP;
else if (divides(p->ypanstep, p->fontheight) &&
p->var.yres_virtual >= p->var.yres+p->fontheight)
p->scrollmode = SCROLL_YPAN;
else
p->scrollmode = SCROLL_YMOVE;
}
static void fbcon_setup(int con, int setcol, int init)
{
struct display *p = &disp[con];
struct vc_data *conp = p->conp;
int nr_rows, nr_cols;
p->var.xoffset = p->var.yoffset = p->yscroll = 0; /* reset wrap/pan */
if (!fb_info->fontname[0] ||
!findsoftfont(fb_info->fontname, &p->fontwidth, &p->fontheight,
&p->fontdata) || p->fontwidth != 8)
getdefaultfont(p->var.xres, p->var.yres, NULL, &p->fontwidth,
&p->fontheight, &p->fontdata);
if (p->fontwidth != 8) {
/* ++Geert: changed from panic() to `correct and continue' */
printk("fbcon_setup: No support for fontwidth != 8");
p->fontwidth = 8;
}
updatescrollmode(p);
nr_cols = p->var.xres/p->fontwidth;
nr_rows = p->var.yres/p->fontheight;
/* ++guenther: console.c:vc_allocate() relies on initializing vc_{cols,rows},
* but we must not set those if we are only resizing the console.
*/
if (init) {
conp->vc_cols = nr_cols;
conp->vc_rows = nr_rows;
}
p->vrows = p->var.yres_virtual/p->fontheight;
conp->vc_can_do_color = p->var.bits_per_pixel != 1;
#ifdef CONFIG_FBCON_MONO
if (p->var.bits_per_pixel == 1) {
if (p->line_length)
p->next_line = p->line_length;
else
p->next_line = p->var.xres_virtual>>3;
p->next_plane = 0;
p->dispsw = &dispsw_mono;
} else
#endif /* CONFIG_FBCON_MONO */
#ifdef CONFIG_FBCON_IPLAN2
if (p->type == FB_TYPE_INTERLEAVED_PLANES && p->type_aux == 2) {
p->next_line = p->var.xres_virtual*p->var.bits_per_pixel>>3;
p->next_plane = 0;
#ifdef CONFIG_FBCON_2PLANE
if (p->var.bits_per_pixel == 2)
p->dispsw = &dispsw_2_plane;
else
#endif /* CONFIG_FBCON_2PLANE */
#ifdef CONFIG_FBCON_4PLANE
if (p->var.bits_per_pixel == 4)
p->dispsw = &dispsw_4_plane;
else
#endif /* CONFIG_FBCON_4PLANE */
#ifdef CONFIG_FBCON_8PLANE
if (p->var.bits_per_pixel == 8)
p->dispsw = &dispsw_8_plane;
else
#endif /* CONFIG_FBCON_8PLANE */
goto fail;
} else
#endif /* CONFIG_FBCON_IPLAN2 */
#ifdef CONFIG_FBCON_ILBM
if (p->type == FB_TYPE_INTERLEAVED_PLANES && p->type_aux != 2) {
if (p->line_length) {
p->next_line = p->line_length*p->var.bits_per_pixel;
p->next_plane = p->line_length
;
} else {
p->next_line = p->type_aux;
p->next_plane = p->type_aux/p->var.bits_per_pixel;
}
p->dispsw = &dispsw_ilbm;
} else
#endif /* CONFIG_FBCON_ILBM */
#ifdef CONFIG_FBCON_PLANES
if (p->type == FB_TYPE_PLANES) {
if (p->line_length)
p->next_line = p->line_length;
else
p->next_line = p->var.xres_virtual>>3;
p->next_plane = p->var.yres_virtual*p->next_line;
p->dispsw = &dispsw_plan;
} else
#endif /* CONFIG_FBCON_PLANES */
#ifdef CONFIG_FBCON_PACKED
if (p->type == FB_TYPE_PACKED_PIXELS) {
p->next_line = (p->var.xres_virtual*p->var.bits_per_pixel)>>3;
p->next_plane = 0;
#ifdef CONFIG_FBCON_CYBER
if (p->var.accel == FB_ACCEL_CYBERVISION)
p->dispsw = &dispsw_cyber;
else
#endif
#ifdef CONFIG_FBCON_RETINAZ3
if (p->var.accel == FB_ACCEL_RETINAZ3)
p->dispsw = &dispsw_retz3;
else
#endif
#ifdef CONFIG_FBCON_8PACKED
if (p->var.bits_per_pixel == 8)
p->dispsw = &dispsw_8_packed;
else
#endif /* CONFIG_FBCON_8PACKED */
#ifdef CONFIG_FBCON_16PACKED
if (p->var.bits_per_pixel == 16)
p->dispsw = &dispsw_16_packed;
else
#endif /* CONFIG_FBCON_16PACKED */
#ifdef CONFIG_FBCON_24PACKED
if (p->var.bits_per_pixel == 24)
p->dispsw = &dispsw_24_packed;
else
#endif /* CONFIG_FBCON_24PACKED */
#ifdef CONFIG_FBCON_32PACKED
if (p->var.bits_per_pixel == 32)
p->dispsw = &dispsw_32_packed;
else
#endif /* CONFIG_FBCON_32PACKED */
goto fail;
} else
#endif /* CONFIG_FBCON_PACKED */
{
fail:
#ifdef CONFIG_FBCON_MONO
printk("fbcon_setup: type %d (aux %d) not supported, trying mono\n",
p->type, p->type_aux);
if (p->line_length)
p->next_line = p->line_length;
else
p->next_line = p->var.xres_virtual>>3;
p->next_plane = 0;
p->var.bits_per_pixel = 1;
p->dispsw = &dispsw_mono;
#else /* CONFIG_FBCON_MONO */
panic("fbcon_setup: no default driver");
#endif /* CONFIG_FBCON_MONO */
}
if (setcol) {
p->fgcol = p->var.bits_per_pixel > 2 ? 7 : (1<<p->var.bits_per_pixel)-1;
p->bgcol = 0;
}
if (!init)
vc_resize_con(nr_rows, nr_cols, con);
}
/* ================================================================= */
/* Utility Assembler Functions */
/* ================================================================= */
/* ====================================================================== */
/* Those of a delicate disposition might like to skip the next couple of
* pages.
*
* These functions are drop in replacements for memmove and
* memset(_, 0, _). However their five instances add at least a kilobyte
* to the object file. You have been warned.
*
* Not a great fan of assembler for the sake of it, but I think
* that these routines are at least 10 times faster than their C
* equivalents for large blits, and that's important to the lowest level of
* a graphics driver. Question is whether some scheme with the blitter
* would be faster. I suspect not for simple text system - not much
* asynchrony.
*
* Code is very simple, just gruesome expansion. Basic strategy is to
* increase data moved/cleared at each step to 16 bytes to reduce
* instruction per data move overhead. movem might be faster still
* For more than 15 bytes, we try to align the write direction on a
* longword boundary to get maximum speed. This is even more gruesome.
* Unaligned read/write used requires 68020+ - think this is a problem?
*
* Sorry!
*/
/* ++roman: I've optimized Robert's original versions in some minor
* aspects, e.g. moveq instead of movel, let gcc choose the registers,
* use movem in some places...
* For other modes than 1 plane, lots of more such assembler functions
* were needed (e.g. the ones using movep or expanding color values).
*/
/* ++andreas: more optimizations:
subl #65536,d0 replaced by clrw d0; subql #1,d0 for dbcc
addal is faster than addaw
movep is rather expensive compared to ordinary move's
some functions rewritten in C for clarity, no speed loss */
static __inline__ void *mymemclear_small(void *s, size_t count)
{
if (!count)
return(0);
__asm__ __volatile__(
"lsrl #1,%1 ; jcc 1f ; moveb %2,%0@-\n\t"
"1: lsrl #1,%1 ; jcc 1f ; movew %2,%0@-\n\t"
"1: lsrl #1,%1 ; jcc 1f ; movel %2,%0@-\n\t"
"1: lsrl #1,%1 ; jcc 1f ; movel %2,%0@- ; movel %2,%0@-\n\t"
"1: subql #1,%1 ; jcs 3f\n\t"
"2: moveml %2/%3/%4/%5,%0@-\n\t"
"dbra %1,2b\n\t"
"3:"
: "=a" (s), "=d" (count)
: "d" (0), "d" (0), "d" (0), "d" (0),
"0" ((char *)s+count), "1" (count)
);
return(0);
}
static __inline__ void *mymemclear(void *s, size_t count)
{
if (!count)
return(0);
if (count < 16) {
__asm__ __volatile__(
"lsrl #1,%1 ; jcc 1f ; clrb %0@+\n\t"
"1: lsrl #1,%1 ; jcc 1f ; clrw %0@+\n\t"
"1: lsrl #1,%1 ; jcc 1f ; clrl %0@+\n\t"
"1: lsrl #1,%1 ; jcc 1f ; clrl %0@+ ; clrl %0@+\n\t"
"1:"
: "=a" (s), "=d" (count)
: "0" (s), "1" (count)
);
} else {
long tmp;
__asm__ __volatile__(
"movel %1,%2\n\t"
"lsrl #1,%2 ; jcc 1f ; clrb %0@+ ; subqw #1,%1\n\t"
"lsrl #1,%2 ; jcs 2f\n\t" /* %0 increased=>bit 2 switched*/
"clrw %0@+ ; subqw #2,%1 ; jra 2f\n\t"
"1: lsrl #1,%2 ; jcc 2f\n\t"
"clrw %0@+ ; subqw #2,%1\n\t"
"2: movew %1,%2; lsrl #2,%1 ; jeq 6f\n\t"
"lsrl #1,%1 ; jcc 3f ; clrl %0@+\n\t"
"3: lsrl #1,%1 ; jcc 4f ; clrl %0@+ ; clrl %0@+\n\t"
"4: subql #1,%1 ; jcs 6f\n\t"
"5: clrl %0@+; clrl %0@+ ; clrl %0@+ ; clrl %0@+\n\t"
"dbra %1,5b ; clrw %1; subql #1,%1; jcc 5b\n\t"
"6: movew %2,%1; btst #1,%1 ; jeq 7f ; clrw %0@+\n\t"
"7: ; btst #0,%1 ; jeq 8f ; clrb %0@+\n\t"
"8:"
: "=a" (s), "=d" (count), "=d" (tmp)
: "0" (s), "1" (count)
);
}
return(0);
}
static __inline__ void *mymemset(void *s, size_t count)
{
if (!count)
return(0);
__asm__ __volatile__(
"lsrl #1,%1 ; jcc 1f ; moveb %2,%0@-\n\t"
"1: lsrl #1,%1 ; jcc 1f ; movew %2,%0@-\n\t"
"1: lsrl #1,%1 ; jcc 1f ; movel %2,%0@-\n\t"
"1: lsrl #1,%1 ; jcc 1f ; movel %2,%0@- ; movel %2,%0@-\n\t"
"1: subql #1,%1 ; jcs 3f\n\t"
"2: moveml %2/%3/%4/%5,%0@-\n\t"
"dbra %1,2b\n\t"
"3:"
: "=a" (s), "=d" (count)
: "d" (-1), "d" (-1), "d" (-1), "d" (-1),
"0" ((char *) s + count), "1" (count)
);
return(0);
}
static __inline__ void *mymemmove(void *d, void *s, size_t count)
{
if (d < s) {
if (count < 16) {
__asm__ __volatile__(
"lsrl #1,%2 ; jcc 1f ; moveb %1@+,%0@+\n\t"
"1: lsrl #1,%2 ; jcc 1f ; movew %1@+,%0@+\n\t"
"1: lsrl #1,%2 ; jcc 1f ; movel %1@+,%0@+\n\t"
"1: lsrl #1,%2 ; jcc 1f ; movel %1@+,%0@+ ; movel %1@+,%0@+\n\t"
"1:"
: "=a" (d), "=a" (s), "=d" (count)
: "0" (d), "1" (s), "2" (count)
);
} else {
long tmp;
__asm__ __volatile__(
"movel %0,%3\n\t"
"lsrl #1,%3 ; jcc 1f ; moveb %1@+,%0@+ ; subqw #1,%2\n\t"
"lsrl #1,%3 ; jcs 2f\n\t" /* %0 increased=>bit 2 switched*/
"movew %1@+,%0@+ ; subqw #2,%2 ; jra 2f\n\t"
"1: lsrl #1,%3 ; jcc 2f\n\t"
"movew %1@+,%0@+ ; subqw #2,%2\n\t"
"2: movew %2,%-; lsrl #2,%2 ; jeq 6f\n\t"
"lsrl #1,%2 ; jcc 3f ; movel %1@+,%0@+\n\t"
"3: lsrl #1,%2 ; jcc 4f ; movel %1@+,%0@+ ; movel %1@+,%0@+\n\t"
"4: subql #1,%2 ; jcs 6f\n\t"
"5: movel %1@+,%0@+;movel %1@+,%0@+\n\t"
"movel %1@+,%0@+;movel %1@+,%0@+\n\t"
"dbra %2,5b ; clrw %2; subql #1,%2; jcc 5b\n\t"
"6: movew %+,%2; btst #1,%2 ; jeq 7f ; movew %1@+,%0@+\n\t"
"7: ; btst #0,%2 ; jeq 8f ; moveb %1@+,%0@+\n\t"
"8:"
: "=a" (d), "=a" (s), "=d" (count), "=d" (tmp)
: "0" (d), "1" (s), "2" (count)
);
}
} else {
if (count < 16) {
__asm__ __volatile__(
"lsrl #1,%2 ; jcc 1f ; moveb %1@-,%0@-\n\t"
"1: lsrl #1,%2 ; jcc 1f ; movew %1@-,%0@-\n\t"
"1: lsrl #1,%2 ; jcc 1f ; movel %1@-,%0@-\n\t"
"1: lsrl #1,%2 ; jcc 1f ; movel %1@-,%0@- ; movel %1@-,%0@-\n\t"
"1:"
: "=a" (d), "=a" (s), "=d" (count)
: "0" ((char *) d + count), "1" ((char *) s + count), "2" (count)
);
} else {
long tmp;
__asm__ __volatile__(
"movel %0,%3\n\t"
"lsrl #1,%3 ; jcc 1f ; moveb %1@-,%0@- ; subqw #1,%2\n\t"
"lsrl #1,%3 ; jcs 2f\n\t" /* %0 increased=>bit 2 switched*/
"movew %1@-,%0@- ; subqw #2,%2 ; jra 2f\n\t"
"1: lsrl #1,%3 ; jcc 2f\n\t"
"movew %1@-,%0@- ; subqw #2,%2\n\t"
"2: movew %2,%-; lsrl #2,%2 ; jeq 6f\n\t"
"lsrl #1,%2 ; jcc 3f ; movel %1@-,%0@-\n\t"
"3: lsrl #1,%2 ; jcc 4f ; movel %1@-,%0@- ; movel %1@-,%0@-\n\t"
"4: subql #1,%2 ; jcs 6f\n\t"
"5: movel %1@-,%0@-;movel %1@-,%0@-\n\t"
"movel %1@-,%0@-;movel %1@-,%0@-\n\t"
"dbra %2,5b ; clrw %2; subql #1,%2; jcc 5b\n\t"
"6: movew %+,%2; btst #1,%2 ; jeq 7f ; movew %1@-,%0@-\n\t"
"7: ; btst #0,%2 ; jeq 8f ; moveb %1@-,%0@-\n\t"
"8:"
: "=a" (d), "=a" (s), "=d" (count), "=d" (tmp)
: "0" ((char *) d + count), "1" ((char *) s + count), "2" (count)
);
}
}
return(0);
}
/* ++andreas: Simple and fast version of memmove, assumes size is
divisible by 16, suitable for moving the whole screen bitplane */
static __inline__ void fast_memmove(char *dst, char *src, size_t size)
{
if (!size)
return;
if (dst < src)
__asm__ __volatile__
("1:"
" moveml %0@+,%/d0/%/d1/%/a0/%/a1\n"
" moveml %/d0/%/d1/%/a0/%/a1,%1@\n"
" addql #8,%1; addql #8,%1\n"
" dbra %2,1b\n"
" clrw %2; subql #1,%2\n"
" jcc 1b"
: "=a" (src), "=a" (dst), "=d" (size)
: "0" (src), "1" (dst), "2" (size / 16 - 1)
: "d0", "d1", "a0", "a1", "memory");
else
__asm__ __volatile__
("1:"
" subql #8,%0; subql #8,%0\n"
" moveml %0@,%/d0/%/d1/%/a0/%/a1\n"
" moveml %/d0/%/d1/%/a0/%/a1,%1@-\n"
" dbra %2,1b\n"
" clrw %2; subql #1,%2\n"
" jcc 1b"
: "=a" (src), "=a" (dst), "=d" (size)
: "0" (src + size), "1" (dst + size), "2" (size / 16 - 1)
: "d0", "d1", "a0", "a1", "memory");
}
/* Sets the bytes in the visible column at d, height h, to the value
* val for a 4 plane screen. The the bis of the color in 'color' are
* moved (8 times) to the respective bytes. This means:
*
* for(h times; d += bpr)
* *d = (color & 1) ? 0xff : 0;
* *(d+2) = (color & 2) ? 0xff : 0;
* *(d+4) = (color & 4) ? 0xff : 0;
* *(d+6) = (color & 8) ? 0xff : 0;
*/
static __inline__ void memclear_4p_col(void *d, size_t h, u_long val, int bpr)
{
__asm__ __volatile__
("1: movepl %4,%0@(0)\n\t"
"addal %5,%0\n\t"
"dbra %1,1b"
: "=a" (d), "=d" (h)
: "0" (d), "1" (h - 1), "d" (val), "r" (bpr)
);
}
/* Sets a 4 plane region from 'd', length 'count' bytes, to the color
* in val1/val2. 'd' has to be an even address and count must be divisible
* by 8, because only whole words and all planes are accessed. I.e.:
*
* for(count/8 times)
* *d = *(d+1) = (color & 1) ? 0xff : 0;
* *(d+2) = *(d+3) = (color & 2) ? 0xff : 0;
* *(d+4) = *(d+5) = (color & 4) ? 0xff : 0;
* *(d+6) = *(d+7) = (color & 8) ? 0xff : 0;
*/
static __inline__ void memset_even_4p(void *d, size_t count, u_long val1,
u_long val2)
{
u_long *dd = d;
count /= 8;
while (count--)
{
*dd++ = val1;
*dd++ = val2;
}
}
/* Copies a 4 plane column from 's', height 'h', to 'd'. */
static __inline__ void memmove_4p_col (void *d, void *s, int h, int bpr)
{
u_char *dd = d, *ss = s;
while (h--)
{
dd[0] = ss[0];
dd[2] = ss[2];
dd[4] = ss[4];
dd[6] = ss[6];
dd += bpr;
ss += bpr;
}
}
/* This expands a 4 bit color into a long for movepl (4 plane) operations. */
static __inline__ u_long expand4l(u_char c)
{
u_long rv;
__asm__ __volatile__
("lsrb #1,%2\n\t"
"scs %0\n\t"
"lsll #8,%0\n\t"
"lsrb #1,%2\n\t"
"scs %0\n\t"
"lsll #8,%0\n\t"
"lsrb #1,%2\n\t"
"scs %0\n\t"
"lsll #8,%0\n\t"
"lsrb #1,%2\n\t"
"scs %0\n\t"
: "=&d" (rv), "=d" (c)
: "1" (c)
);
return(rv);
}
/* This expands a 4 bit color into two longs for two movel operations
* (4 planes).
*/
static __inline__ void expand4dl(u_char c, u_long *ret1, u_long *ret2)
{
u_long rv1, rv2;
__asm__ __volatile__
("lsrb #1,%3\n\t"
"scs %0\n\t"
"extw %0\n\t"
"swap %0\n\t"
"lsrb #1,%3\n\t"
"scs %0\n\t"
"extw %0\n\t"
"lsrb #1,%3\n\t"
"scs %1\n\t"
"extw %1\n\t"
"swap %1\n\t"
"lsrb #1,%3\n\t"
"scs %1\n\t"
"extw %1"
: "=&d" (rv1), "=&d" (rv2), "=d" (c)
: "2" (c)
);
*ret1 = rv1;
*ret2 = rv2;
}
/* This duplicates a byte 4 times into a long. */
static __inline__ u_long dup4l(u_char c)
{
ushort tmp;
ulong rv;
__asm__ __volatile__
("moveb %2,%0\n\t"
"lslw #8,%0\n\t"
"moveb %2,%0\n\t"
"movew %0,%1\n\t"
"swap %0\n\t"
"movew %1,%0"
: "=&d" (rv), "=d" (tmp)
: "d" (c)
);
return(rv);
}
/* Sets the bytes in the visible column at d, height h, to the value
* val1,val2 for a 8 plane screen. The the bis of the color in 'color' are
* moved (8 times) to the respective bytes. This means:
*
* for(h times; d += bpr)
* *d = (color & 1) ? 0xff : 0;
* *(d+2) = (color & 2) ? 0xff : 0;
* *(d+4) = (color & 4) ? 0xff : 0;
* *(d+6) = (color & 8) ? 0xff : 0;
* *(d+8) = (color & 16) ? 0xff : 0;
* *(d+10) = (color & 32) ? 0xff : 0;
* *(d+12) = (color & 64) ? 0xff : 0;
* *(d+14) = (color & 128) ? 0xff : 0;
*/
static __inline__ void memclear_8p_col(void *d, size_t h, u_long val1,
u_long val2, int bpr)
{
__asm__ __volatile__
("1: movepl %4,%0@(0)\n\t"
"movepl %5,%0@(8)\n\t"
"addal %6,%0\n\t"
"dbra %1,1b"
: "=a" (d), "=d" (h)
: "0" (d), "1" (h - 1), "d" (val1), "d" (val2), "r" (bpr)
);
}
/* Sets a 8 plane region from 'd', length 'count' bytes, to the color
* val1..val4. 'd' has to be an even address and count must be divisible
* by 16, because only whole words and all planes are accessed. I.e.:
*
* for(count/16 times)
* *d = *(d+1) = (color & 1) ? 0xff : 0;
* *(d+2) = *(d+3) = (color & 2) ? 0xff : 0;
* *(d+4) = *(d+5) = (color & 4) ? 0xff : 0;
* *(d+6) = *(d+7) = (color & 8) ? 0xff : 0;
* *(d+8) = *(d+9) = (color & 16) ? 0xff : 0;
* *(d+10) = *(d+11) = (color & 32) ? 0xff : 0;
* *(d+12) = *(d+13) = (color & 64) ? 0xff : 0;
* *(d+14) = *(d+15) = (color & 128) ? 0xff : 0;
*/
static __inline__ void memset_even_8p(void *d, size_t count, u_long val1,
u_long val2, u_long val3, u_long val4)
{
u_long *dd = d;
count /= 16;
while (count--)
{
*dd++ = val1;
*dd++ = val2;
*dd++ = val3;
*dd++ = val4;
}
}
/* Copies a 8 plane column from 's', height 'h', to 'd'. */
static __inline__ void memmove_8p_col (void *d, void *s, int h, int bpr)
{
u_char *dd = d, *ss = s;
while (h--)
{
dd[0] = ss[0];
dd[2] = ss[2];
dd[4] = ss[4];
dd[6] = ss[6];
dd[8] = ss[8];
dd[10] = ss[10];
dd[12] = ss[12];
dd[14] = ss[14];
dd += bpr;
ss += bpr;
}
}
/* This expands a 8 bit color into two longs for two movepl (8 plane)
* operations.
*/
static __inline__ void expand8dl(u_char c, u_long *ret1, u_long *ret2)
{
u_long rv1, rv2;
__asm__ __volatile__
("lsrb #1,%3\n\t"
"scs %0\n\t"
"lsll #8,%0\n\t"
"lsrb #1,%3\n\t"
"scs %0\n\t"
"lsll #8,%0\n\t"
"lsrb #1,%3\n\t"
"scs %0\n\t"
"lsll #8,%0\n\t"
"lsrb #1,%3\n\t"
"scs %0\n\t"
"lsrb #1,%3\n\t"
"scs %1\n\t"
"lsll #8,%1\n\t"
"lsrb #1,%3\n\t"
"scs %1\n\t"
"lsll #8,%1\n\t"
"lsrb #1,%3\n\t"
"scs %1\n\t"
"lsll #8,%1\n\t"
"lsrb #1,%3\n\t"
"scs %1"
: "=&d" (rv1), "=&d" (rv2),"=d" (c)
: "2" (c)
);
*ret1 = rv1;
*ret2 = rv2;
}
/* This expands a 8 bit color into four longs for four movel operations
* (8 planes).
*/
/* ++andreas: use macro to avoid taking address of return values */
#define expand8ql(c, rv1, rv2, rv3, rv4) \
do { u_char tmp = c; \
__asm__ __volatile__ \
("lsrb #1,%5\n\t" \
"scs %0\n\t" \
"extw %0\n\t" \
"swap %0\n\t" \
"lsrb #1,%5\n\t" \
"scs %0\n\t" \
"extw %0\n\t" \
"lsrb #1,%5\n\t" \
"scs %1\n\t" \
"extw %1\n\t" \
"swap %1\n\t" \
"lsrb #1,%5\n\t" \
"scs %1\n\t" \
"extw %1\n\t" \
"lsrb #1,%5\n\t" \
"scs %2\n\t" \
"extw %2\n\t" \
"swap %2\n\t" \
"lsrb #1,%5\n\t" \
"scs %2\n\t" \
"extw %2\n\t" \
"lsrb #1,%5\n\t" \
"scs %3\n\t" \
"extw %3\n\t" \
"swap %3\n\t" \
"lsrb #1,%5\n\t" \
"scs %3\n\t" \
"extw %3" \
: "=&d" (rv1), "=&d" (rv2), "=&d" (rv3), \
"=&d" (rv4), "=d" (tmp) \
: "4" (tmp) \
); \
} while (0)
/* Sets the bytes in the visible column at d, height h, to the value
* val for a 2 plane screen. The the bis of the color in 'color' are
* moved (8 times) to the respective bytes. This means:
*
* for(h times; d += bpr)
* *d = (color & 1) ? 0xff : 0;
* *(d+2) = (color & 2) ? 0xff : 0;
*/
static __inline__ void memclear_2p_col(void *d, size_t h, u_short val, int bpr)
{
__asm__ __volatile__
("1: movepw %4,%0@(0)\n\t"
"addal %5,%0\n\t"
"dbra %1,1b"
: "=a" (d), "=d" (h)
: "0" (d), "1" (h - 1), "d" (val), "r" (bpr)
);
}
/* Sets a 2 plane region from 'd', length 'count' bytes, to the color
* in val1. 'd' has to be an even address and count must be divisible
* by 8, because only whole words and all planes are accessed. I.e.:
*
* for(count/4 times)
* *d = *(d+1) = (color & 1) ? 0xff : 0;
* *(d+2) = *(d+3) = (color & 2) ? 0xff : 0;
*/
static __inline__ void memset_even_2p(void *d, size_t count, u_long val)
{
u_long *dd = d;
count /= 4;
while (count--)
*dd++ = val;
}
/* Copies a 2 plane column from 's', height 'h', to 'd'. */
static __inline__ void memmove_2p_col (void *d, void *s, int h, int bpr)
{
u_char *dd = d, *ss = s;
while (h--)
{
dd[0] = ss[0];
dd[2] = ss[2];
dd += bpr;
ss += bpr;
}
}
/* This expands a 2 bit color into a short for movepw (2 plane) operations. */
static __inline__ u_short expand2w(u_char c)
{
u_short rv;
__asm__ __volatile__
("lsrb #1,%2\n\t"
"scs %0\n\t"
"lsll #8,%0\n\t"
"lsrb #1,%2\n\t"
"scs %0\n\t"
: "=&d" (rv), "=d" (c)
: "1" (c)
);
return(rv);
}
/* This expands a 2 bit color into one long for a movel operation
* (2 planes).
*/
static __inline__ u_long expand2l(u_char c)
{
u_long rv;
__asm__ __volatile__
("lsrb #1,%2\n\t"
"scs %0\n\t"
"extw %0\n\t"
"swap %0\n\t"
"lsrb #1,%2\n\t"
"scs %0\n\t"
"extw %0\n\t"
: "=&d" (rv), "=d" (c)
: "1" (c)
);
return rv;
}
/* This duplicates a byte 2 times into a short. */
static __inline__ u_short dup2w(u_char c)
{
ushort rv;
__asm__ __volatile__
( "moveb %1,%0\n\t"
"lslw #8,%0\n\t"
"moveb %1,%0\n\t"
: "=&d" (rv)
: "d" (c)
);
return( rv );
}
/* ====================================================================== */
/* fbcon_XXX routines - interface used by the world
*
* This system is now divided into two levels because of complications
* caused by hardware scrolling. Top level functions:
*
* fbcon_bmove(), fbcon_clear(), fbcon_putc()
*
* handles y values in range [0, scr_height-1] that correspond to real
* screen positions. y_wrap shift means that first line of bitmap may be
* anywhere on this display. These functions convert lineoffsets to
* bitmap offsets and deal with the wrap-around case by splitting blits.
*
* fbcon_bmove_physical_8() -- These functions fast implementations
* fbcon_clear_physical_8() -- of original fbcon_XXX fns.
* fbcon_putc_physical_8() -- (fontwidth != 8) may be added later
*
* WARNING:
*
* At the moment fbcon_putc() cannot blit across vertical wrap boundary
* Implies should only really hardware scroll in rows. Only reason for
* restriction is simplicity & efficiency at the moment.
*/
static __inline__ int real_y(struct display *p, int yy)
{
int rows = p->vrows;
yy += p->yscroll;
return(yy < rows ? yy : yy-rows);
}
static int fbcon_clear(struct vc_data *conp, int sy, int sx, int height,
int width)
{
int unit = conp->vc_num;
struct display *p = &disp[unit];
u_int y_break;
if (!p->can_soft_blank && console_blanked)
return(0);
if ((sy <= p->cursor_y) && (p->cursor_y < sy+height) &&
(sx <= p->cursor_x) && (p->cursor_x < sx+width))
CURSOR_UNDRAWN();
/* Split blits that cross physical y_wrap boundary */
y_break = p->vrows-p->yscroll;
if (sy < y_break && sy+height-1 >= y_break) {
u_int b = y_break-sy;
p->dispsw->clear(conp, p, real_y(p, sy), sx, b, width);
p->dispsw->clear(conp, p, real_y(p, sy+b), sx, height-b, width);
} else
p->dispsw->clear(conp, p, real_y(p, sy), sx, height, width);
return(0);
}
static int fbcon_putc(struct vc_data *conp, int c, int yy, int xx)
{
int unit = conp->vc_num;
struct display *p = &disp[unit];
if (!p->can_soft_blank && console_blanked)
return(0);
if ((p->cursor_x == xx) && (p->cursor_y == yy))
CURSOR_UNDRAWN();
p->dispsw->putc(conp, p, c, real_y(p, yy), xx);
return(0);
}
static int fbcon_putcs(struct vc_data *conp, const char *s, int count, int yy,
int xx)
{
int unit = conp->vc_num;
struct display *p = &disp[unit];
if (!p->can_soft_blank && console_blanked)
return(0);
if ((p->cursor_y == yy) && (xx <= p->cursor_x) && (p->cursor_x < xx+count))
CURSOR_UNDRAWN();
p->dispsw->putcs(conp, p, s, count, real_y(p, yy), xx);
return(0);
}
static int fbcon_cursor(struct vc_data *conp, int mode)
{
int unit = conp->vc_num;
struct display *p = &disp[unit];
/* Avoid flickering if there's no real change. */
if (p->cursor_x == conp->vc_x && p->cursor_y == conp->vc_y &&
(mode == CM_ERASE) == !cursor_on)
return 0;
if (CURSOR_UNDRAWN ())
p->dispsw->rev_char(p, p->cursor_x, real_y(p, p->cursor_y));
p->cursor_x = conp->vc_x;
p->cursor_y = conp->vc_y;
switch (mode) {
case CM_ERASE:
cursor_on = 0;
break;
case CM_MOVE:
case CM_DRAW:
vbl_cursor_cnt = CURSOR_DRAW_DELAY;
cursor_on = 1;
break;
}
return(0);
}
static void fbcon_vbl_handler(int irq, void *dummy, struct pt_regs *fp)
{
struct display *p;
if (!cursor_on)
return;
if (vbl_cursor_cnt && --vbl_cursor_cnt == 0) {
/* Here no check is possible for console changing. The console
* switching code should set vbl_cursor_cnt to an appropriate value.
*/
p = &disp[fg_console];
p->dispsw->rev_char(p, p->cursor_x, real_y(p, p->cursor_y));
cursor_drawn ^= 1;
vbl_cursor_cnt = cursor_blink_rate;
}
}
static __inline__ void ywrap_up(int unit, struct display *p, int count)
{
p->yscroll += count;
if (p->yscroll >= p->vrows) /* Deal with wrap */
p->yscroll -= p->vrows;
p->var.xoffset = 0;
p->var.yoffset = p->yscroll*p->fontheight;
p->var.vmode |= FB_VMODE_YWRAP;
fb_info->updatevar(unit);
}
static __inline__ void ywrap_down(int unit, struct display *p, int count)
{
p->yscroll -= count;
if (p->yscroll < 0) /* Deal with wrap */
p->yscroll += p->vrows;
p->var.xoffset = 0;
p->var.yoffset = p->yscroll*p->fontheight;
p->var.vmode |= FB_VMODE_YWRAP;
fb_info->updatevar(unit);
}
static __inline__ void ypan_up(int unit, struct vc_data *conp,
struct display *p, int count)
{
p->yscroll += count;
if (p->yscroll+conp->vc_rows > p->vrows) {
p->dispsw->bmove(p, p->yscroll, 0, 0, 0, conp->vc_rows-count,
conp->vc_cols);
p->yscroll = 0;
}
p->var.xoffset = 0;
p->var.yoffset = p->yscroll*p->fontheight;
p->var.vmode &= ~FB_VMODE_YWRAP;
fb_info->updatevar(unit);
}
static __inline__ void ypan_down(int unit, struct vc_data *conp,
struct display *p, int count)
{
p->yscroll -= count;
if (p->yscroll < 0) {
p->yscroll = p->vrows-conp->vc_rows;
p->dispsw->bmove(p, 0, 0, p->yscroll+count, 0, conp->vc_rows-count,
conp->vc_cols);
}
p->var.xoffset = 0;
p->var.yoffset = p->yscroll*p->fontheight;
p->var.vmode &= ~FB_VMODE_YWRAP;
fb_info->updatevar(unit);
}
static int fbcon_scroll(struct vc_data *conp, int t, int b, int dir, int count)
{
int unit = conp->vc_num;
struct display *p = &disp[unit];
if (!p->can_soft_blank && console_blanked)
return(0);
fbcon_cursor(conp, CM_ERASE);
/*
* ++Geert: Only use ywrap/ypan if the console is in text mode
*/
switch (dir) {
case SM_UP:
if (count > conp->vc_rows) /* Maximum realistic size */
count = conp->vc_rows;
if (vt_cons[unit]->vc_mode == KD_TEXT)
switch (p->scrollmode) {
case SCROLL_YWRAP:
if (b-t-count > 3*conp->vc_rows>>2) {
if (t > 0)
fbcon_bmove(conp, 0, 0, count, 0, t, conp->vc_cols);
ywrap_up(unit, p, count);
if (conp->vc_rows-b > 0)
fbcon_bmove(conp, b-count, 0, b, 0, conp->vc_rows-b,
conp->vc_cols);
} else
fbcon_bmove(conp, t+count, 0, t, 0, b-t-count,
conp->vc_cols);
fbcon_clear(conp, b-count, 0, count, conp->vc_cols);
break;
case SCROLL_YPAN:
if (b-t-count > 3*conp->vc_rows>>2) {
if (t > 0)
fbcon_bmove(conp, 0, 0, count, 0, t, conp->vc_cols);
ypan_up(unit, conp, p, count);
if (conp->vc_rows-b > 0)
fbcon_bmove(conp, b-count, 0, b, 0, conp->vc_rows-b,
conp->vc_cols);
} else
fbcon_bmove(conp, t+count, 0, t, 0, b-t-count,
conp->vc_cols);
fbcon_clear(conp, b-count, 0, count, conp->vc_cols);
break;
case SCROLL_YMOVE:
p->dispsw->bmove(p, t+count, 0, t, 0, b-t-count,
conp->vc_cols);
p->dispsw->clear(conp, p, b-count, 0, count, conp->vc_cols);
break;
}
else {
fbcon_bmove(conp, t+count, 0, t, 0, b-t-count, conp->vc_cols);
fbcon_clear(conp, b-count, 0, count, conp->vc_cols);
}
break;
case SM_DOWN:
if (count > conp->vc_rows) /* Maximum realistic size */
count = conp->vc_rows;
if (vt_cons[unit]->vc_mode == KD_TEXT)
switch (p->scrollmode) {
case SCROLL_YWRAP:
if (b-t-count > 3*conp->vc_rows>>2) {
if (conp->vc_rows-b > 0)
fbcon_bmove(conp, b, 0, b-count, 0, conp->vc_rows-b,
conp->vc_cols);
ywrap_down(unit, p, count);
if (t > 0)
fbcon_bmove(conp, count, 0, 0, 0, t, conp->vc_cols);
} else
fbcon_bmove(conp, t, 0, t+count, 0, b-t-count,
conp->vc_cols);
fbcon_clear(conp, t, 0, count, conp->vc_cols);
break;
case SCROLL_YPAN:
if (b-t-count > 3*conp->vc_rows>>2) {
if (conp->vc_rows-b > 0)
fbcon_bmove(conp, b, 0, b-count, 0, conp->vc_rows-b,
conp->vc_cols);
ypan_down(unit, conp, p, count);
if (t > 0)
fbcon_bmove(conp, count, 0, 0, 0, t, conp->vc_cols);
} else
fbcon_bmove(conp, t, 0, t+count, 0, b-t-count,
conp->vc_cols);
fbcon_clear(conp, t, 0, count, conp->vc_cols);
break;
case SCROLL_YMOVE:
p->dispsw->bmove(p, t, 0, t+count, 0, b-t-count,
conp->vc_cols);
p->dispsw->clear(conp, p, t, 0, count, conp->vc_cols);
break;
}
else {
/*
* Fixed bmove() should end Arno's frustration with copying?
* Confucius says:
* Man who copies in wrong direction, end up with trashed data
*/
fbcon_bmove(conp, t, 0, t+count, 0, b-t-count, conp->vc_cols);
fbcon_clear(conp, t, 0, count, conp->vc_cols);
}
break;
case SM_LEFT:
fbcon_bmove(conp, 0, t+count, 0, t, conp->vc_rows, b-t-count);
fbcon_clear(conp, 0, b-count, conp->vc_rows, count);
break;
case SM_RIGHT:
fbcon_bmove(conp, 0, t, 0, t+count, conp->vc_rows, b-t-count);
fbcon_clear(conp, 0, t, conp->vc_rows, count);
break;
}
return(0);
}
static int fbcon_bmove(struct vc_data *conp, int sy, int sx, int dy, int dx,
int height, int width)
{
int unit = conp->vc_num;
struct display *p = &disp[unit];
if (!p->can_soft_blank && console_blanked)
return(0);
if (((sy <= p->cursor_y) && (p->cursor_y < sy+height) &&
(sx <= p->cursor_x) && (p->cursor_x < sx+width)) ||
((dy <= p->cursor_y) && (p->cursor_y < dy+height) &&
(dx <= p->cursor_x) && (p->cursor_x < dx+width)))
fbcon_cursor(conp, CM_ERASE);
/* Split blits that cross physical y_wrap case.
* Pathological case involves 4 blits, better to use recursive
* code rather than unrolled case
*
* Recursive invocations don't need to erase the cursor over and
* over again, so we use fbcon_bmove_rec()
*/
fbcon_bmove_rec(p, sy, sx, dy, dx, height, width, p->vrows-p->yscroll);
return(0);
}
static void fbcon_bmove_rec(struct display *p, int sy, int sx, int dy, int dx,
int height, int width, u_int y_break)
{
u_int b;
if (sy < y_break && sy+height > y_break) {
b = y_break-sy;
if (dy < sy) { /* Avoid trashing self */
fbcon_bmove_rec(p, sy, sx, dy, dx, b, width, y_break);
fbcon_bmove_rec(p, sy+b, sx, dy+b, dx, height-b, width, y_break);
} else {
fbcon_bmove_rec(p, sy+b, sx, dy+b, dx, height-b, width, y_break);
fbcon_bmove_rec(p, sy, sx, dy, dx, b, width, y_break);
}
return;
}
if (dy < y_break && dy+height > y_break) {
b = y_break-dy;
if (dy < sy) { /* Avoid trashing self */
fbcon_bmove_rec(p, sy, sx, dy, dx, b, width, y_break);
fbcon_bmove_rec(p, sy+b, sx, dy+b, dx, height-b, width, y_break);
} else {
fbcon_bmove_rec(p, sy+b, sx, dy+b, dx, height-b, width, y_break);
fbcon_bmove_rec(p, sy, sx, dy, dx, b, width, y_break);
}
return;
}
p->dispsw->bmove(p, real_y(p, sy), sx, real_y(p, dy), dx, height, width);
}
static int fbcon_switch(struct vc_data *conp)
{
if (fb_info && fb_info->switch_con)
(*fb_info->switch_con)(conp->vc_num);
return(0);
}
static int fbcon_blank(int blank)
{
struct display *p = &disp[fg_console];
fbcon_cursor(p->conp, blank ? CM_ERASE : CM_DRAW);
if (!p->can_soft_blank)
if (blank) {
if (p->visual == FB_VISUAL_MONO01)
mymemset(p->screen_base, p->var.xres_virtual*p->var.yres_virtual*
p->var.bits_per_pixel>>3);
else
mymemclear(p->screen_base, p->var.xres_virtual*p->var.yres_virtual*
p->var.bits_per_pixel>>3);
return(0);
} else {
/* Tell console.c that it has to restore the screen itself */
return(1);
}
(*fb_info->blank)(blank);
return(0);
}
static int fbcon_get_font(struct vc_data *conp, int *w, int *h, char *data)
{
int unit = conp->vc_num;
struct display *p = &disp[unit];
int i, j, size, alloc;
size = (p->fontwidth+7)/8 * p->fontheight * 256;
alloc = (*w+7)/8 * *h * 256;
*w = p->fontwidth;
*h = p->fontheight;
if (alloc < size)
/* allocation length not sufficient */
return( -ENAMETOOLONG );
for (i = 0; i < 256; i++)
for (j = 0; j < p->fontheight; j++)
data[i*32+j] = p->fontdata[i*p->fontheight+j];
return( 0 );
}
#define REFCOUNT(fd) (((int *)(fd))[-1])
static int fbcon_set_font(struct vc_data *conp, int w, int h, char *data)
{
int unit = conp->vc_num;
struct display *p = &disp[unit];
int i, j, size, userspace = 1, resize;
char *old_data = NULL, *new_data;
if (w < 0)
w = p->fontwidth;
if (h < 0)
h = p->fontheight;
if (w == 0) {
/* engage predefined font, name in 'data' */
char name[MAX_FONT_NAME+1];
if ((i = verify_area( VERIFY_READ, (void *)data, MAX_FONT_NAME )))
return i;
copy_from_user( name, data, MAX_FONT_NAME );
name[sizeof(name)-1] = 0;
if (!findsoftfont( name, &w, &h, (u_char **)&data ))
return( -ENOENT );
userspace = 0;
}
else if (w == 1) {
/* copy font from some other console in 'h'*/
struct display *op;
if (h < 0 || !vc_cons_allocated( h ))
return( -ENOTTY );
if (h == unit)
return( 0 ); /* nothing to do */
op = &disp[h];
if (op->fontdata == p->fontdata)
return( 0 ); /* already the same font... */
resize = (op->fontwidth != p->fontwidth) ||
(op->fontheight != p->fontheight);
if (p->userfont)
old_data = p->fontdata;
p->fontdata = op->fontdata;
w = p->fontwidth = op->fontwidth;
h = p->fontheight = op->fontheight;
if ((p->userfont = op->userfont))
REFCOUNT(p->fontdata)++; /* increment usage counter */
goto activate;
}
if (w != 8)
/* Currently only fontwidth == 8 supported */
return( -ENXIO );
resize = (w != p->fontwidth) || (h != p->fontheight);
size = (w+7)/8 * h * 256;
if (p->userfont)
old_data = p->fontdata;
if (userspace) {
if (!(new_data = kmalloc( sizeof(int)+size, GFP_USER )))
return( -ENOMEM );
new_data += sizeof(int);
REFCOUNT(new_data) = 1; /* usage counter */
for (i = 0; i < 256; i++)
for (j = 0; j < h; j++)
new_data[i*h+j] = data[i*32+j];
p->fontdata = new_data;
p->userfont = 1;
}
else {
p->fontdata = data;
p->userfont = 0;
}
p->fontwidth = w;
p->fontheight = h;
activate:
if (resize) {
p->var.xoffset = p->var.yoffset = p->yscroll = 0; /* reset wrap/pan */
/* Adjust the virtual screen-size to fontheight*rows */
p->var.yres_virtual = (p->var.yres/h)*h;
p->vrows = p->var.yres_virtual/h;
updatescrollmode(p);
vc_resize_con( p->var.yres/h, p->var.xres/w, unit );
}
else if (unit == fg_console)
update_screen( unit );
if (old_data) {
if (--REFCOUNT(old_data) == 0) {
kfree( old_data - sizeof(int) );
}
}
return( 0 );
}
static unsigned short palette_red[16];
static unsigned short palette_green[16];
static unsigned short palette_blue[16];
static struct fb_cmap palette_cmap = {
0, 16, palette_red, palette_green, palette_blue, NULL
};
static int fbcon_set_palette(struct vc_data *conp, unsigned char *table)
{
int unit = conp->vc_num;
struct display *p = &disp[unit];
int i, j, k;
u_char val;
if (!conp->vc_can_do_color || (!p->can_soft_blank && console_blanked))
return(-EINVAL);
for (i = j = 0; i < 16; i++) {
k = table[i];
val = conp->vc_palette[j++];
palette_red[k] = (val<<8)|val;
val = conp->vc_palette[j++];
palette_green[k] = (val<<8)|val;
val = conp->vc_palette[j++];
palette_blue[k] = (val<<8)|val;
}
palette_cmap.len = 1<<p->var.bits_per_pixel;
if (palette_cmap.len > 16)
palette_cmap.len = 16;
return(fb_info->setcmap(&palette_cmap, unit));
}
/* ====================================================================== */
/*
* Low Level Operations for the various display memory organizations.
*
* Currently only the following organizations are supported here:
*
* - Monochrome
* - Color Interleaved Planes à la Amiga
* - Color Normal Planes
* - Color Interleaved Planes à la Atari (2, 4 and 8 planes)
* - Color Packed Pixels (8 and 16 bpp)
* - Cybervision Color Packed Pixels (accelerated)
*/
#ifdef CONFIG_FBCON_MONO
/*
* Monochrome
*/
static void bmove_mono(struct display *p, int sy, int sx, int dy, int dx,
int height, int width)
{
u_char *src, *dest;
u_int rows;
if (sx == 0 && dx == 0 && width == p->next_line) {
src = p->screen_base+sy*p->fontheight*width;
dest = p->screen_base+dy*p->fontheight*width;
mymemmove(dest, src, height*p->fontheight*width);
} else if (dy <= sy) {
src = p->screen_base+sy*p->fontheight*p->next_line+sx;
dest = p->screen_base+dy*p->fontheight*p->next_line+dx;
for (rows = height*p->fontheight; rows--;) {
mymemmove(dest, src, width);
src += p->next_line;
dest += p->next_line;
}
} else {
src = p->screen_base+((sy+height)*p->fontheight-1)*p->next_line+sx;
dest = p->screen_base+((dy+height)*p->fontheight-1)*p->next_line+dx;
for (rows = height*p->fontheight; rows--;) {
mymemmove(dest, src, width);
src -= p->next_line;
dest -= p->next_line;
}
}
}
static void clear_mono(struct vc_data *conp, struct display *p, int sy, int sx,
int height, int width)
{
u_char *dest;
u_int rows;
dest = p->screen_base+sy*p->fontheight*p->next_line+sx;
if (sx == 0 && width == p->next_line)
if (attr_reverse(p,conp))
mymemset(dest, height*p->fontheight*width);
else
mymemclear(dest, height*p->fontheight*width);
else
for (rows = height*p->fontheight; rows--; dest += p->next_line)
if (attr_reverse(p,conp))
mymemset(dest, width);
else
mymemclear_small(dest, width);
}
static void putc_mono(struct vc_data *conp, struct display *p, int c, int yy,
int xx)
{
u_char *dest, *cdat;
u_int rows, bold, revs, underl;
u_char d;
c &= 0xff;
dest = p->screen_base + yy*p->fontheight*p->next_line + xx;
cdat = p->fontdata+c*p->fontheight;
bold = attr_bold(p,conp);
revs = attr_reverse(p,conp);
underl = attr_underline(p,conp);
for (rows = p->fontheight; rows--; dest += p->next_line) {
d = *cdat++;
if (underl && !rows)
d = 0xff;
else if (bold)
d |= d>>1;
if (revs)
d = ~d;
*dest = d;
}
}
static void putcs_mono(struct vc_data *conp, struct display *p, const char *s,
int count, int yy, int xx)
{
u_char *dest, *dest0, *cdat;
u_int rows, bold, revs, underl;
u_char c, d;
dest0 = p->screen_base + yy*p->fontheight*p->next_line + xx;
bold = attr_bold(p,conp);
revs = attr_reverse(p,conp);
underl = attr_underline(p,conp);
while (count--) {
c = *s++;
dest = dest0++;
cdat = p->fontdata+c*p->fontheight;
for (rows = p->fontheight; rows--; dest += p->next_line) {
d = *cdat++;
if (underl && !rows)
d = 0xff;
else if (bold)
d |= d>>1;
if (revs)
d = ~d;
*dest = d;
}
}
}
static void rev_char_mono(struct display *p, int xx, int yy)
{
u_char *dest;
u_int rows;
dest = p->screen_base + yy*p->fontheight*p->next_line + xx;
for (rows = p->fontheight; rows--; dest += p->next_line)
*dest = ~*dest;
}
#endif /* CONFIG_FBCON_MONO */
/* ====================================================================== */
#ifdef CONFIG_FBCON_ILBM
/*
* Color Interleaved Planes
*
* This code heavily relies on the fact that
*
* next_line == interleave == next_plane*bits_per_pixel
*
* But maybe it can be merged with the code for normal bitplanes without
* much performance loss?
*/
static void bmove_ilbm(struct display *p, int sy, int sx, int dy, int dx,
int height, int width)
{
if (sx == 0 && dx == 0 && width == p->next_plane)
mymemmove(p->screen_base+dy*p->fontheight*p->next_line,
p->screen_base+sy*p->fontheight*p->next_line,
height*p->fontheight*p->next_line);
else {
u_char *src, *dest;
u_int i;
if (dy <= sy) {
src = p->screen_base+sy*p->fontheight*p->next_line+sx;
dest = p->screen_base+dy*p->fontheight*p->next_line+dx;
for (i = p->var.bits_per_pixel*height*p->fontheight; i--;) {
mymemmove(dest, src, width);
src += p->next_plane;
dest += p->next_plane;
}
} else {
src = p->screen_base+(sy+height)*p->fontheight*p->next_line+sx;
dest = p->screen_base+(dy+height)*p->fontheight*p->next_line+dx;
for (i = p->var.bits_per_pixel*height*p->fontheight; i--;) {
src -= p->next_plane;
dest -= p->next_plane;
mymemmove(dest, src, width);
}
}
}
}
static void clear_ilbm(struct vc_data *conp, struct display *p, int sy, int sx,
int height, int width)
{
u_char *dest;
u_int i, rows;
int bg, bg0;
dest = p->screen_base+sy*p->fontheight*p->next_line+sx;
bg0 = attr_bgcol_ec(p,conp);
for (rows = height*p->fontheight; rows--;) {
bg = bg0;
for (i = p->var.bits_per_pixel; i--; dest += p->next_plane) {
if (bg & 1)
mymemset(dest, width);
else
mymemclear(dest, width);
bg >>= 1;
}
}
}
static void putc_ilbm(struct vc_data *conp, struct display *p, int c, int yy,
int xx)
{
u_char *dest, *cdat;
u_int rows, i;
u_char d;
int fg0, bg0, fg, bg;
c &= 0xff;
dest = p->screen_base + yy*p->fontheight*p->next_line + xx;
cdat = p->fontdata+c*p->fontheight;
fg0 = attr_fgcol(p,conp);
bg0 = attr_bgcol(p,conp);
for (rows = p->fontheight; rows--;) {
d = *cdat++;
fg = fg0;
bg = bg0;
for (i = p->var.bits_per_pixel; i--; dest += p->next_plane) {
if (bg & 1)
if (fg & 1)
*dest = 0xff;
else
*dest = ~d;
else
if (fg & 1)
*dest = d;
else
*dest = 0x00;
bg >>= 1;
fg >>= 1;
}
}
}
/*
* I split the console character loop in two parts:
*
* - slow version: this blits one character at a time
*
* - fast version: this blits 4 characters at a time at a longword aligned
* address, to reduce the number of expensive Chip RAM
* accesses.
*
* Experiments on my A4000/040 revealed that this makes a console
* switch on a 640x400 screen with 256 colors about 3 times faster.
*
* Geert
*/
static void putcs_ilbm(struct vc_data *conp, struct display *p, const char *s,
int count, int yy, int xx)
{
u_char *dest0, *dest, *cdat1, *cdat2, *cdat3, *cdat4;
u_int rows, i;
u_char c1, c2, c3, c4;
u_long d;
int fg0, bg0, fg, bg;
dest0 = p->screen_base + yy*p->fontheight*p->next_line + xx;
fg0 = attr_fgcol(p,conp);
bg0 = attr_bgcol(p,conp);
while (count--)
if (xx & 3 || count < 3) { /* Slow version */
c1 = *s++;
dest = dest0++;
xx++;
cdat1 = p->fontdata+c1*p->fontheight;
for (rows = p->fontheight; rows--;) {
d = *cdat1++;
fg = fg0;
bg = bg0;
for (i = p->var.bits_per_pixel; i--; dest += p->next_plane) {
if (bg & 1)
if (fg & 1)
*dest = 0xff;
else
*dest = ~d;
else
if (fg & 1)
*dest = d;
else
*dest = 0x00;
bg >>= 1;
fg >>= 1;
}
}
} else { /* Fast version */
c1 = s[0];
c2 = s[1];
c3 = s[2];
c4 = s[3];
dest = dest0;
cdat1 = p->fontdata+c1*p->fontheight;
cdat2 = p->fontdata+c2*p->fontheight;
cdat3 = p->fontdata+c3*p->fontheight;
cdat4 = p->fontdata+c4*p->fontheight;
for (rows = p->fontheight; rows--;) {
d = *cdat1++<<24 | *cdat2++<<16 | *cdat3++<<8 | *cdat4++;
fg = fg0;
bg = bg0;
for (i = p->var.bits_per_pixel; i--; dest += p->next_plane) {
if (bg & 1)
if (fg & 1)
*(u_long *)dest = 0xffffffff;
else
*(u_long *)dest = ~d;
else
if (fg & 1)
*(u_long *)dest = d;
else
*(u_long *)dest = 0x00000000;
bg >>= 1;
fg >>= 1;
}
}
s += 4;
dest0 += 4;
xx += 4;
count -= 3;
}
}
static void rev_char_ilbm(struct display *p, int xx, int yy)
{
u_char *dest, *dest0;
u_int rows, i;
int mask;
dest0 = p->screen_base + yy*p->fontheight*p->next_line + xx;
mask = p->fgcol ^ p->bgcol;
/*
* This should really obey the individual character's
* background and foreground colors instead of simply
* inverting.
*/
for (i = p->var.bits_per_pixel; i--; dest0 += p->next_plane) {
if (mask & 1) {
dest = dest0;
for (rows = p->fontheight; rows--; dest += p->next_line)
*dest = ~*dest;
}
mask >>= 1;
}
}
#endif /* CONFIG_FBCON_ILBM */
/* ====================================================================== */
#ifdef CONFIG_FBCON_PLANES
/*
* Color Planes
*/
static void bmove_plan(struct display *p, int sy, int sx, int dy, int dx,
int height, int width)
{
u_char *src, *dest, *src0, *dest0;
u_int i, rows;
if (sx == 0 && dx == 0 && width == p->next_line) {
src = p->screen_base+sy*p->fontheight*width;
dest = p->screen_base+dy*p->fontheight*width;
for (i = p->var.bits_per_pixel; i--;) {
mymemmove(dest, src, height*p->fontheight*width);
src += p->next_plane;
dest += p->next_plane;
}
} else if (dy <= sy) {
src0 = p->screen_base+sy*p->fontheight*p->next_line+sx;
dest0 = p->screen_base+dy*p->fontheight*p->next_line+dx;
for (i = p->var.bits_per_pixel; i--;) {
src = src0;
dest = dest0;
for (rows = height*p->fontheight; rows--;) {
mymemmove(dest, src, width);
src += p->next_line;
dest += p->next_line;
}
src0 += p->next_plane;
dest0 += p->next_plane;
}
} else {
src0 = p->screen_base+(sy+height)*p->fontheight*p->next_line+sx;
dest0 = p->screen_base+(dy+height)*p->fontheight*p->next_line+dx;
for (i = p->var.bits_per_pixel; i--;) {
src = src0;
dest = dest0;
for (rows = height*p->fontheight; rows--;) {
src -= p->next_line;
dest -= p->next_line;
mymemmove(dest, src, width);
}
src0 += p->next_plane;
dest0 += p->next_plane;
}
}
}
static void clear_plan(struct vc_data *conp, struct display *p, int sy, int sx,
int height, int width)
{
u_char *dest, *dest0;
u_int i, rows;
int bg;
dest0 = p->screen_base+sy*p->fontheight*p->next_line+sx;
bg = attr_bgcol_ec(p,conp);
for (i = p->var.bits_per_pixel; i--; dest0 += p->next_plane) {
dest = dest0;
for (rows = height*p->fontheight; rows--; dest += p->next_line)
if (bg & 1)
mymemset(dest, width);
else
mymemclear(dest, width);
bg >>= 1;
}
}
static void putc_plan(struct vc_data *conp, struct display *p, int c, int yy,
int xx)
{
u_char *dest, *dest0, *cdat, *cdat0;
u_int rows, i;
u_char d;
int fg, bg;
c &= 0xff;
dest0 = p->screen_base + yy*p->fontheight*p->next_line + xx;
cdat0 = p->fontdata+c*p->fontheight;
fg = attr_fgcol(p,conp);
bg = attr_bgcol(p,conp);
for (i = p->var.bits_per_pixel; i--; dest0 += p->next_plane) {
dest = dest0;
cdat = cdat0;
for (rows = p->fontheight; rows--; dest += p->next_line) {
d = *cdat++;
if (bg & 1)
if (fg & 1)
*dest = 0xff;
else
*dest = ~d;
else
if (fg & 1)
*dest = d;
else
*dest = 0x00;
}
bg >>= 1;
fg >>= 1;
}
}
/*
* I split the console character loop in two parts
* (cfr. fbcon_putcs_ilbm())
*/
static void putcs_plan(struct vc_data *conp, struct display *p, const char *s,
int count, int yy, int xx)
{
u_char *dest, *dest0, *dest1;
u_char *cdat1, *cdat2, *cdat3, *cdat4, *cdat10, *cdat20, *cdat30, *cdat40;
u_int rows, i;
u_char c1, c2, c3, c4;
u_long d;
int fg0, bg0, fg, bg;
dest0 = p->screen_base + yy*p->fontheight*p->next_line + xx;
fg0 = attr_fgcol(p,conp);
bg0 = attr_bgcol(p,conp);
while (count--)
if (xx & 3 || count < 3) { /* Slow version */
c1 = *s++;
dest1 = dest0++;
xx++;
cdat10 = p->fontdata+c1*p->fontheight;
fg = fg0;
bg = bg0;
for (i = p->var.bits_per_pixel; i--; dest1 += p->next_plane) {
dest = dest1;
cdat1 = cdat10;
for (rows = p->fontheight; rows--; dest += p->next_line) {
d = *cdat1++;
if (bg & 1)
if (fg & 1)
*dest = 0xff;
else
*dest = ~d;
else
if (fg & 1)
*dest = d;
else
*dest = 0x00;
}
bg >>= 1;
fg >>= 1;
}
} else { /* Fast version */
c1 = s[0];
c2 = s[1];
c3 = s[2];
c4 = s[3];
dest1 = dest0;
cdat10 = p->fontdata+c1*p->fontheight;
cdat20 = p->fontdata+c2*p->fontheight;
cdat30 = p->fontdata+c3*p->fontheight;
cdat40 = p->fontdata+c4*p->fontheight;
fg = fg0;
bg = bg0;
for (i = p->var.bits_per_pixel; i--; dest1 += p->next_plane) {
dest = dest1;
cdat1 = cdat10;
cdat2 = cdat20;
cdat3 = cdat30;
cdat4 = cdat40;
for (rows = p->fontheight; rows--; dest += p->next_line) {
d = *cdat1++<<24 | *cdat2++<<16 | *cdat3++<<8 | *cdat4++;
if (bg & 1)
if (fg & 1)
*(u_long *)dest = 0xffffffff;
else
*(u_long *)dest = ~d;
else
if (fg & 1)
*(u_long *)dest = d;
else
*(u_long *)dest = 0x00000000;
}
bg >>= 1;
fg >>= 1;
}
s += 4;
dest0 += 4;
xx += 4;
count -= 3;
}
}
static void rev_char_plan(struct display *p, int xx, int yy)
{
u_char *dest, *dest0;
u_int rows, i;
int mask;
dest0 = p->screen_base + yy*p->fontheight*p->next_line + xx;
mask = p->fgcol ^ p->bgcol;
/*
* This should really obey the individual character's
* background and foreground colors instead of simply
* inverting.
*/
for (i = p->var.bits_per_pixel; i--; dest0 += p->next_plane) {
if (mask & 1) {
dest = dest0;
for (rows = p->fontheight; rows--; dest += p->next_line)
*dest = ~*dest;
}
mask >>= 1;
}
}
#endif /* CONFIG_FBCON_PLANES */
/* ====================================================================== */
#ifdef CONFIG_FBCON_2PLANE
/*
* 2 Planes (2-bytes interleave)
*/
/* Increment/decrement 2 plane addresses */
#define INC_2P(p) do { if (!((long)(++(p)) & 1)) (p) += 2; } while(0)
#define DEC_2P(p) do { if ((long)(--(p)) & 1) (p) -= 2; } while(0)
/* Convert a standard 4 bit color to our 2 bit color assignment:
* If at least two RGB channels are active, the low bit is turned on;
* The intensity bit (b3) is shifted into b1.
*/
#define COLOR_2P(c) (((c & 7) >= 3 && (c & 7) != 4) | (c & 8) >> 2)
static void bmove_2_plane(struct display *p, int sy, int sx, int dy, int dx,
int height, int width)
{
/* bmove() has to distinguish two major cases: If both, source and
* destination, start at even addresses or both are at odd
* addresses, just the first odd and last even column (if present)
* require special treatment (memmove_col()). The rest between
* then can be copied by normal operations, because all adjacent
* bytes are affected and are to be stored in the same order.
* The pathological case is when the move should go from an odd
* address to an even or vice versa. Since the bytes in the plane
* words must be assembled in new order, it seems wisest to make
* all movements by memmove_col().
*/
if (sx == 0 && dx == 0 && width == p->next_line/2) {
/* Special (but often used) case: Moving whole lines can be
* done with memmove()
*/
mymemmove(p->screen_base + dy * p->next_line * p->fontheight,
p->screen_base + sy * p->next_line * p->fontheight,
p->next_line * height * p->fontheight);
} else {
int rows, cols;
u_char *src;
u_char *dst;
int bytes = p->next_line;
int linesize = bytes * p->fontheight;
u_int colsize = height * p->fontheight;
u_int upwards = (dy < sy) || (dy == sy && dx < sx);
if ((sx & 1) == (dx & 1)) {
/* odd->odd or even->even */
if (upwards) {
src = p->screen_base + sy * linesize + (sx>>1)*4 + (sx & 1);
dst = p->screen_base + dy * linesize + (dx>>1)*4 + (dx & 1);
if (sx & 1) {
memmove_2p_col(dst, src, colsize, bytes);
src += 3;
dst += 3;
--width;
}
if (width > 1) {
for(rows = colsize; rows > 0; --rows) {
mymemmove(dst, src, (width>>1)*4);
src += bytes;
dst += bytes;
}
}
if (width & 1) {
src -= colsize * bytes;
dst -= colsize * bytes;
memmove_2p_col(dst + (width>>1)*4, src + (width>>1)*4,
colsize, bytes);
}
}
else {
if (!((sx+width-1) & 1)) {
src = p->screen_base + sy * linesize + ((sx+width-1)>>1)*4;
dst = p->screen_base + dy * linesize + ((dx+width-1)>>1)*4;
memmove_2p_col(dst, src, colsize, bytes);
--width;
}
src = p->screen_base + sy * linesize + (sx>>1)*4 + (sx & 1);
dst = p->screen_base + dy * linesize + (dx>>1)*4 + (dx & 1);
if (width > 1) {
src += colsize * bytes + (sx & 1)*3;
dst += colsize * bytes + (sx & 1)*3;
for(rows = colsize; rows > 0; --rows) {
src -= bytes;
dst -= bytes;
mymemmove(dst, src, (width>>1)*4);
}
}
if (width & 1) {
memmove_2p_col(dst-3, src-3, colsize, bytes);
}
}
}
else {
/* odd->even or even->odd */
if (upwards) {
src = p->screen_base + sy * linesize + (sx>>1)*4 + (sx & 1);
dst = p->screen_base + dy * linesize + (dx>>1)*4 + (dx & 1);
for(cols = width; cols > 0; --cols) {
memmove_2p_col(dst, src, colsize, bytes);
INC_2P(src);
INC_2P(dst);
}
}
else {
sx += width-1;
dx += width-1;
src = p->screen_base + sy * linesize + (sx>>1)*4 + (sx & 1);
dst = p->screen_base + dy * linesize + (dx>>1)*4 + (dx & 1);
for(cols = width; cols > 0; --cols) {
memmove_2p_col(dst, src, colsize, bytes);
DEC_2P(src);
DEC_2P(dst);
}
}
}
}
}
static void clear_2_plane(struct vc_data *conp, struct display *p, int sy,
int sx, int height, int width)
{
ulong offset;
u_char *start;
int rows;
int bytes = p->next_line;
int lines = height * p->fontheight;
ulong size;
u_long cval;
u_short pcval;
cval = expand2l (COLOR_2P (attr_bgcol_ec(p,conp)));
if (sx == 0 && width == bytes/2) {
offset = sy * bytes * p->fontheight;
size = lines * bytes;
memset_even_2p(p->screen_base+offset, size, cval);
} else {
offset = (sy * bytes * p->fontheight) + (sx>>1)*4 + (sx & 1);
start = p->screen_base + offset;
pcval = expand2w(COLOR_2P(attr_bgcol_ec(p,conp)));
/* Clears are split if the region starts at an odd column or
* end at an even column. These extra columns are spread
* across the interleaved planes. All in between can be
* cleared by normal mymemclear_small(), because both bytes of
* the single plane words are affected.
*/
if (sx & 1) {
memclear_2p_col(start, lines, pcval, bytes);
start += 3;
width--;
}
if (width & 1) {
memclear_2p_col(start + (width>>1)*4, lines, pcval, bytes);
width--;
}
if (width) {
for(rows = lines; rows-- ; start += bytes)
memset_even_2p(start, width*2, cval);
}
}
}
static void putc_2_plane(struct vc_data *conp, struct display *p, int
c, int yy, int xx)
{
u_char *dest;
u_char *cdat;
int rows;
int bytes = p->next_line;
ulong eorx, fgx, bgx, fdx;
c &= 0xff;
dest = p->screen_base + yy * p->fontheight * bytes +
(xx >> 1)*4 + (xx & 1);
cdat = p->fontdata + (c * p->fontheight);
fgx = expand2w(COLOR_2P(attr_fgcol(p,conp)));
bgx = expand2w(COLOR_2P(attr_bgcol(p,conp)));
eorx = fgx ^ bgx;
for(rows = p->fontheight ; rows-- ; dest += bytes) {
fdx = dup2w(*cdat++);
__asm__ __volatile__ ("movepw %1,%0@(0)" : /* no outputs */
: "a" (dest), "d" ((fdx & eorx) ^ bgx));
}
}
static void putcs_2_plane(struct vc_data *conp, struct display *p,
const char *s, int count, int yy, int xx)
{
u_char *dest, *dest0;
u_char *cdat, c;
int rows;
int bytes;
ulong eorx, fgx, bgx, fdx;
bytes = p->next_line;
dest0 = p->screen_base + yy * p->fontheight * bytes
+ (xx >> 1)*4 + (xx & 1);
fgx = expand2w(COLOR_2P(attr_fgcol(p,conp)));
bgx = expand2w(COLOR_2P(attr_bgcol(p,conp)));
eorx = fgx ^ bgx;
while (count--) {
c = *s++;
cdat = p->fontdata + (c * p->fontheight);
for(rows = p->fontheight, dest = dest0; rows-- ; dest += bytes) {
fdx = dup2w(*cdat++);
__asm__ __volatile__ ("movepw %1,%0@(0)" : /* no outputs */
: "a" (dest), "d" ((fdx & eorx) ^ bgx));
}
INC_2P(dest0);
}
}
static void rev_char_2_plane(struct display *p, int xx, int yy)
{
u_char *dest;
int j;
int bytes;
dest = p->screen_base + yy * p->fontheight * p->next_line +
(xx >> 1)*4 + (xx & 1);
j = p->fontheight;
bytes = p->next_line;
while (j--)
{
/* This should really obey the individual character's
* background and foreground colors instead of simply
* inverting.
*/
dest[0] = ~dest[0];
dest[2] = ~dest[2];
dest += bytes;
}
}
#endif /* CONFIG_FBCON_2PLANE */
/* ====================================================================== */
#ifdef CONFIG_FBCON_4PLANE
/*
* 4 Planes (2-bytes interleave)
*/
/* Increment/decrement 4 plane addresses */
#define INC_4P(p) do { if (!((long)(++(p)) & 1)) (p) += 6; } while(0)
#define DEC_4P(p) do { if ((long)(--(p)) & 1) (p) -= 6; } while(0)
static void bmove_4_plane(struct display *p, int sy, int sx, int dy, int dx,
int height, int width)
{
/* bmove() has to distinguish two major cases: If both, source and
* destination, start at even addresses or both are at odd
* addresses, just the first odd and last even column (if present)
* require special treatment (memmove_col()). The rest between
* then can be copied by normal operations, because all adjacent
* bytes are affected and are to be stored in the same order.
* The pathological case is when the move should go from an odd
* address to an even or vice versa. Since the bytes in the plane
* words must be assembled in new order, it seems wisest to make
* all movements by memmove_col().
*/
if (sx == 0 && dx == 0 && width == p->next_line/4) {
/* Special (but often used) case: Moving whole lines can be
* done with memmove()
*/
mymemmove(p->screen_base + dy * p->next_line * p->fontheight,
p->screen_base + sy * p->next_line * p->fontheight,
p->next_line * height * p->fontheight);
} else {
int rows, cols;
u_char *src;
u_char *dst;
int bytes = p->next_line;
int linesize = bytes * p->fontheight;
u_int colsize = height * p->fontheight;
u_int upwards = (dy < sy) || (dy == sy && dx < sx);
if ((sx & 1) == (dx & 1)) {
/* odd->odd or even->even */
if (upwards) {
src = p->screen_base + sy * linesize + (sx>>1)*8 + (sx & 1);
dst = p->screen_base + dy * linesize + (dx>>1)*8 + (dx & 1);
if (sx & 1) {
memmove_4p_col(dst, src, colsize, bytes);
src += 7;
dst += 7;
--width;
}
if (width > 1) {
for(rows = colsize; rows > 0; --rows) {
mymemmove(dst, src, (width>>1)*8);
src += bytes;
dst += bytes;
}
}
if (width & 1) {
src -= colsize * bytes;
dst -= colsize * bytes;
memmove_4p_col(dst + (width>>1)*8, src + (width>>1)*8,
colsize, bytes);
}
}
else {
if (!((sx+width-1) & 1)) {
src = p->screen_base + sy * linesize + ((sx+width-1)>>1)*8;
dst = p->screen_base + dy * linesize + ((dx+width-1)>>1)*8;
memmove_4p_col(dst, src, colsize, bytes);
--width;
}
src = p->screen_base + sy * linesize + (sx>>1)*8 + (sx & 1);
dst = p->screen_base + dy * linesize + (dx>>1)*8 + (dx & 1);
if (width > 1) {
src += colsize * bytes + (sx & 1)*7;
dst += colsize * bytes + (sx & 1)*7;
for(rows = colsize; rows > 0; --rows) {
src -= bytes;
dst -= bytes;
mymemmove(dst, src, (width>>1)*8);
}
}
if (width & 1) {
memmove_4p_col(dst-7, src-7, colsize, bytes);
}
}
}
else {
/* odd->even or even->odd */
if (upwards) {
src = p->screen_base + sy * linesize + (sx>>1)*8 + (sx & 1);
dst = p->screen_base + dy * linesize + (dx>>1)*8 + (dx & 1);
for(cols = width; cols > 0; --cols) {
memmove_4p_col(dst, src, colsize, bytes);
INC_4P(src);
INC_4P(dst);
}
}
else {
sx += width-1;
dx += width-1;
src = p->screen_base + sy * linesize + (sx>>1)*8 + (sx & 1);
dst = p->screen_base + dy * linesize + (dx>>1)*8 + (dx & 1);
for(cols = width; cols > 0; --cols) {
memmove_4p_col(dst, src, colsize, bytes);
DEC_4P(src);
DEC_4P(dst);
}
}
}
}
}
static void clear_4_plane(struct vc_data *conp, struct display *p, int sy,
int sx, int height, int width)
{
ulong offset;
u_char *start;
int rows;
int bytes = p->next_line;
int lines = height * p->fontheight;
ulong size;
u_long cval1, cval2, pcval;
expand4dl(attr_bgcol_ec(p,conp), &cval1, &cval2);
if (sx == 0 && width == bytes/4) {
offset = sy * bytes * p->fontheight;
size = lines * bytes;
memset_even_4p(p->screen_base+offset, size, cval1, cval2);
} else {
offset = (sy * bytes * p->fontheight) + (sx>>1)*8 + (sx & 1);
start = p->screen_base + offset;
pcval = expand4l(attr_bgcol_ec(p,conp));
/* Clears are split if the region starts at an odd column or
* end at an even column. These extra columns are spread
* across the interleaved planes. All in between can be
* cleared by normal mymemclear_small(), because both bytes of
* the single plane words are affected.
*/
if (sx & 1) {
memclear_4p_col(start, lines, pcval, bytes);
start += 7;
width--;
}
if (width & 1) {
memclear_4p_col(start + (width>>1)*8, lines, pcval, bytes);
width--;
}
if (width) {
for(rows = lines; rows-- ; start += bytes)
memset_even_4p(start, width*4, cval1, cval2);
}
}
}
static void putc_4_plane(struct vc_data *conp, struct display *p, int
c, int yy, int xx)
{
u_char *dest;
u_char *cdat;
int rows;
int bytes = p->next_line;
ulong eorx, fgx, bgx, fdx;
c &= 0xff;
dest = p->screen_base + yy * p->fontheight * bytes +
(xx >> 1)*8 + (xx & 1);
cdat = p->fontdata + (c * p->fontheight);
fgx = expand4l(attr_fgcol(p,conp));
bgx = expand4l(attr_bgcol(p,conp));
eorx = fgx ^ bgx;
for(rows = p->fontheight ; rows-- ; dest += bytes) {
fdx = dup4l(*cdat++);
__asm__ __volatile__ ("movepl %1,%0@(0)" : /* no outputs */
: "a" (dest), "d" ((fdx & eorx) ^ bgx));
}
}
static void putcs_4_plane(struct vc_data *conp, struct display *p,
const char *s, int count, int yy, int xx)
{
u_char *dest, *dest0;
u_char *cdat, c;
int rows;
int bytes;
ulong eorx, fgx, bgx, fdx;
bytes = p->next_line;
dest0 = p->screen_base + yy * p->fontheight * bytes
+ (xx >> 1)*8 + (xx & 1);
fgx = expand4l(attr_fgcol(p,conp));
bgx = expand4l(attr_bgcol(p,conp));
eorx = fgx ^ bgx;
while (count--) {
/* I think, unrolling the loops like in the 1 plane case isn't
* practicable here, because the body is much longer for 4
* planes (mostly the dup4l()). I guess, unrolling this would
* need more than 256 bytes and so exceed the instruction
* cache :-(
*/
c = *s++;
cdat = p->fontdata + (c * p->fontheight);
for(rows = p->fontheight, dest = dest0; rows-- ; dest += bytes) {
fdx = dup4l(*cdat++);
__asm__ __volatile__ ("movepl %1,%0@(0)" : /* no outputs */
: "a" (dest), "d" ((fdx & eorx) ^ bgx));
}
INC_4P(dest0);
}
}
static void rev_char_4_plane(struct display *p, int xx, int yy)
{
u_char *dest;
int j;
int bytes;
dest = p->screen_base + yy * p->fontheight * p->next_line +
(xx >> 1)*8 + (xx & 1);
j = p->fontheight;
bytes = p->next_line;
while (j--)
{
/* This should really obey the individual character's
* background and foreground colors instead of simply
* inverting.
*/
dest[0] = ~dest[0];
dest[2] = ~dest[2];
dest[4] = ~dest[4];
dest[6] = ~dest[6];
dest += bytes;
}
}
#endif /* CONFIG_FBCON_4PLANE */
/* ====================================================================== */
#ifdef CONFIG_FBCON_8PLANE
/*
* 8 Planes (2-bytes interleave)
*/
/* In 8 plane mode, 256 colors would be possible, but only the first
* 16 are used by the console code (the upper 4 bits are
* background/unused). For that, the following functions mask off the
* higher 4 bits of each color.
*/
/* Increment/decrement 8 plane addresses */
#define INC_8P(p) do { if (!((long)(++(p)) & 1)) (p) += 14; } while(0)
#define DEC_8P(p) do { if ((long)(--(p)) & 1) (p) -= 14; } while(0)
static void bmove_8_plane(struct display *p, int sy, int sx, int dy, int dx,
int height, int width)
{
/* bmove() has to distinguish two major cases: If both, source and
* destination, start at even addresses or both are at odd
* addresses, just the first odd and last even column (if present)
* require special treatment (memmove_col()). The rest between
* then can be copied by normal operations, because all adjacent
* bytes are affected and are to be stored in the same order.
* The pathological case is when the move should go from an odd
* address to an even or vice versa. Since the bytes in the plane
* words must be assembled in new order, it seems wisest to make
* all movements by memmove_col().
*/
if (sx == 0 && dx == 0 && width == p->next_line/8) {
/* Special (but often used) case: Moving whole lines can be
* done with memmove()
*/
fast_memmove (p->screen_base + dy * p->next_line * p->fontheight,
p->screen_base + sy * p->next_line * p->fontheight,
p->next_line * height * p->fontheight);
} else {
int rows, cols;
u_char *src;
u_char *dst;
int bytes = p->next_line;
int linesize = bytes * p->fontheight;
u_int colsize = height * p->fontheight;
u_int upwards = (dy < sy) || (dy == sy && dx < sx);
if ((sx & 1) == (dx & 1)) {
/* odd->odd or even->even */
if (upwards) {
src = p->screen_base + sy * linesize + (sx>>1)*16 + (sx & 1);
dst = p->screen_base + dy * linesize + (dx>>1)*16 + (dx & 1);
if (sx & 1) {
memmove_8p_col(dst, src, colsize, bytes);
src += 15;
dst += 15;
--width;
}
if (width > 1) {
for(rows = colsize; rows > 0; --rows) {
fast_memmove (dst, src, (width >> 1) * 16);
src += bytes;
dst += bytes;
}
}
if (width & 1) {
src -= colsize * bytes;
dst -= colsize * bytes;
memmove_8p_col(dst + (width>>1)*16, src + (width>>1)*16,
colsize, bytes);
}
}
else {
if (!((sx+width-1) & 1)) {
src = p->screen_base + sy * linesize + ((sx+width-1)>>1)*16;
dst = p->screen_base + dy * linesize + ((dx+width-1)>>1)*16;
memmove_8p_col(dst, src, colsize, bytes);
--width;
}
src = p->screen_base + sy * linesize + (sx>>1)*16 + (sx & 1);
dst = p->screen_base + dy * linesize + (dx>>1)*16 + (dx & 1);
if (width > 1) {
src += colsize * bytes + (sx & 1)*15;
dst += colsize * bytes + (sx & 1)*15;
for(rows = colsize; rows > 0; --rows) {
src -= bytes;
dst -= bytes;
fast_memmove (dst, src, (width>>1)*16);
}
}
if (width & 1) {
memmove_8p_col(dst-15, src-15, colsize, bytes);
}
}
}
else {
/* odd->even or even->odd */
if (upwards) {
src = p->screen_base + sy * linesize + (sx>>1)*16 + (sx & 1);
dst = p->screen_base + dy * linesize + (dx>>1)*16 + (dx & 1);
for(cols = width; cols > 0; --cols) {
memmove_8p_col(dst, src, colsize, bytes);
INC_8P(src);
INC_8P(dst);
}
}
else {
sx += width-1;
dx += width-1;
src = p->screen_base + sy * linesize + (sx>>1)*16 + (sx & 1);
dst = p->screen_base + dy * linesize + (dx>>1)*16 + (dx & 1);
for(cols = width; cols > 0; --cols) {
memmove_8p_col(dst, src, colsize, bytes);
DEC_8P(src);
DEC_8P(dst);
}
}
}
}
}
static void clear_8_plane(struct vc_data *conp, struct display *p, int sy,
int sx, int height, int width)
{
ulong offset;
u_char *start;
int rows;
int bytes = p->next_line;
int lines = height * p->fontheight;
ulong size;
u_long cval1, cval2, cval3, cval4, pcval1, pcval2;
expand8ql(attr_bgcol_ec(p,conp), cval1, cval2, cval3, cval4);
if (sx == 0 && width == bytes/8) {
offset = sy * bytes * p->fontheight;
size = lines * bytes;
memset_even_8p(p->screen_base+offset, size, cval1,
cval2, cval3, cval4);
} else {
offset = (sy * bytes * p->fontheight) + (sx>>1)*16 + (sx & 1);
start = p->screen_base + offset;
expand8dl(attr_bgcol_ec(p,conp), &pcval1, &pcval2);
/* Clears are split if the region starts at an odd column or
* end at an even column. These extra columns are spread
* across the interleaved planes. All in between can be
* cleared by normal mymemclear_small(), because both bytes of
* the single plane words are affected.
*/
if (sx & 1) {
memclear_8p_col(start, lines, pcval1, pcval2, bytes);
start += 7;
width--;
}
if (width & 1) {
memclear_8p_col(start + (width>>1)*16, lines, pcval1,
pcval2, bytes);
width--;
}
if (width) {
for(rows = lines; rows-- ; start += bytes)
memset_even_8p(start, width*8, cval1, cval2, cval3, cval4);
}
}
}
static void putc_8_plane(struct vc_data *conp, struct display *p, int c, int yy,
int xx)
{
u_char *dest;
u_char *cdat;
int rows;
int bytes = p->next_line;
ulong eorx1, eorx2, fgx1, fgx2, bgx1, bgx2, fdx;
c &= 0xff;
dest = p->screen_base + yy