/* * linux/drivers/video/hgafb.c -- Hercules graphics adaptor frame buffer device * * Created 25 Nov 1999 by Ferenc Bakonyi (fero@drama.obuda.kando.hu) * Based on skeletonfb.c by Geert Uytterhoeven and * mdacon.c by Andrew Apted * * History: * * - Revision 0.1.8 (23 Oct 2002): Ported to new framebuffer api. * * - Revision 0.1.7 (23 Jan 2001): fix crash resulting from MDA only cards * being detected as Hercules. (Paul G.) * - Revision 0.1.6 (17 Aug 2000): new style structs * documentation * - Revision 0.1.5 (13 Mar 2000): spinlocks instead of saveflags();cli();etc * minor fixes * - Revision 0.1.4 (24 Jan 2000): fixed a bug in hga_card_detect() for * HGA-only systems * - Revision 0.1.3 (22 Jan 2000): modified for the new fb_info structure * screen is cleared after rmmod * virtual resolutions * module parameter 'nologo={0|1}' * the most important: boot logo :) * - Revision 0.1.0 (6 Dec 1999): faster scrolling and minor fixes * - First release (25 Nov 1999) * * 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. */ #include <linux/module.h> #include <linux/kernel.h> #include <linux/errno.h> #include <linux/spinlock.h> #include <linux/string.h> #include <linux/mm.h> #include <linux/slab.h> #include <linux/delay.h> #include <linux/fb.h> #include <linux/init.h> #include <linux/ioport.h> #include <linux/platform_device.h> #include <asm/io.h> #include <asm/vga.h> #if 0 #define DPRINTK(args...) printk(KERN_DEBUG __FILE__": " ##args) #else #define DPRINTK(args...) #endif #if 0 #define CHKINFO(ret) if (info != &fb_info) { printk(KERN_DEBUG __FILE__": This should never happen, line:%d \n", __LINE__); return ret; } #else #define CHKINFO(ret) #endif /* Description of the hardware layout */ static void __iomem *hga_vram; /* Base of video memory */ static unsigned long hga_vram_len; /* Size of video memory */ #define HGA_ROWADDR(row) ((row%4)*8192 + (row>>2)*90) #define HGA_TXT 0 #define HGA_GFX 1 static inline u8 __iomem * rowaddr(struct fb_info *info, u_int row) { return info->screen_base + HGA_ROWADDR(row); } static int hga_mode = -1; /* 0 = txt, 1 = gfx mode */ static enum { TYPE_HERC, TYPE_HERCPLUS, TYPE_HERCCOLOR } hga_type; static char *hga_type_name; #define HGA_INDEX_PORT 0x3b4 /* Register select port */ #define HGA_VALUE_PORT 0x3b5 /* Register value port */ #define HGA_MODE_PORT 0x3b8 /* Mode control port */ #define HGA_STATUS_PORT 0x3ba /* Status and Config port */ #define HGA_GFX_PORT 0x3bf /* Graphics control port */ /* HGA register values */ #define HGA_CURSOR_BLINKING 0x00 #define HGA_CURSOR_OFF 0x20 #define HGA_CURSOR_SLOWBLINK 0x60 #define HGA_MODE_GRAPHICS 0x02 #define HGA_MODE_VIDEO_EN 0x08 #define HGA_MODE_BLINK_EN 0x20 #define HGA_MODE_GFX_PAGE1 0x80 #define HGA_STATUS_HSYNC 0x01 #define HGA_STATUS_VSYNC 0x80 #define HGA_STATUS_VIDEO 0x08 #define HGA_CONFIG_COL132 0x08 #define HGA_GFX_MODE_EN 0x01 #define HGA_GFX_PAGE_EN 0x02 /* Global locks */ static DEFINE_SPINLOCK(hga_reg_lock); /* Framebuffer driver structures */ static struct fb_var_screeninfo __initdata hga_default_var = { .xres = 720, .yres = 348, .xres_virtual = 720, .yres_virtual = 348, .bits_per_pixel = 1, .red = {0, 1, 0}, .green = {0, 1, 0}, .blue = {0, 1, 0}, .transp = {0, 0, 0}, .height = -1, .width = -1, }; static struct fb_fix_screeninfo __initdata hga_fix = { .id = "HGA", .type = FB_TYPE_PACKED_PIXELS, /* (not sure) */ .visual = FB_VISUAL_MONO10, .xpanstep = 8, .ypanstep = 8, .line_length = 90, .accel = FB_ACCEL_NONE }; /* Don't assume that tty1 will be the initial current console. */ static int release_io_port = 0; static int release_io_ports = 0; static int nologo = 0; /* ------------------------------------------------------------------------- * * Low level hardware functions * * ------------------------------------------------------------------------- */ static void write_hga_b(unsigned int val, unsigned char reg) { outb_p(reg, HGA_INDEX_PORT); outb_p(val, HGA_VALUE_PORT); } static void write_hga_w(unsigned int val, unsigned char reg) { outb_p(reg, HGA_INDEX_PORT); outb_p(val >> 8, HGA_VALUE_PORT); outb_p(reg+1, HGA_INDEX_PORT); outb_p(val & 0xff, HGA_VALUE_PORT); } static int test_hga_b(unsigned char val, unsigned char reg) { outb_p(reg, HGA_INDEX_PORT); outb (val, HGA_VALUE_PORT); udelay(20); val = (inb_p(HGA_VALUE_PORT) == val); return val; } static void hga_clear_screen(void) { unsigned char fillchar = 0xbf; /* magic */ unsigned long flags; spin_lock_irqsave(&hga_reg_lock, flags); if (hga_mode == HGA_TXT) fillchar = ' '; else if (hga_mode == HGA_GFX) fillchar = 0x00; spin_unlock_irqrestore(&hga_reg_lock, flags); if (fillchar != 0xbf) memset_io(hga_vram, fillchar, hga_vram_len); } static void hga_txt_mode(void) { unsigned long flags; spin_lock_irqsave(&hga_reg_lock, flags); outb_p(HGA_MODE_VIDEO_EN | HGA_MODE_BLINK_EN, HGA_MODE_PORT); outb_p(0x00, HGA_GFX_PORT); outb_p(0x00, HGA_STATUS_PORT); write_hga_b(0x61, 0x00); /* horizontal total */ write_hga_b(0x50, 0x01); /* horizontal displayed */ write_hga_b(0x52, 0x02); /* horizontal sync pos */ write_hga_b(0x0f, 0x03); /* horizontal sync width */ write_hga_b(0x19, 0x04); /* vertical total */ write_hga_b(0x06, 0x05); /* vertical total adjust */ write_hga_b(0x19, 0x06); /* vertical displayed */ write_hga_b(0x19, 0x07); /* vertical sync pos */ write_hga_b(0x02, 0x08); /* interlace mode */ write_hga_b(0x0d, 0x09); /* maximum scanline */ write_hga_b(0x0c, 0x0a); /* cursor start */ write_hga_b(0x0d, 0x0b); /* cursor end */ write_hga_w(0x0000, 0x0c); /* start address */ write_hga_w(0x0000, 0x0e); /* cursor location */ hga_mode = HGA_TXT; spin_unlock_irqrestore(&hga_reg_lock, flags); } static void hga_gfx_mode(void) { unsigned long flags; spin_lock_irqsave(&hga_reg_lock, flags); outb_p(0x00, HGA_STATUS_PORT); outb_p(HGA_GFX_MODE_EN, HGA_GFX_PORT); outb_p(HGA_MODE_VIDEO_EN | HGA_MODE_GRAPHICS, HGA_MODE_PORT); write_hga_b(0x35, 0x00); /* horizontal total */ write_hga_b(0x2d, 0x01); /* horizontal displayed */ write_hga_b(0x2e, 0x02); /* horizontal sync pos */ write_hga_b(0x07, 0x03); /* horizontal sync width */ write_hga_b(0x5b, 0x04); /* vertical total */ write_hga_b(0x02, 0x05); /* vertical total adjust */ write_hga_b(0x57, 0x06); /* vertical displayed */ write_hga_b(0x57, 0x07); /* vertical sync pos */ write_hga_b(0x02, 0x08); /* interlace mode */ write_hga_b(0x03, 0x09); /* maximum scanline */ write_hga_b(0x00, 0x0a); /* cursor start */ write_hga_b(0x00, 0x0b); /* cursor end */ write_hga_w(0x0000, 0x0c); /* start address */ write_hga_w(0x0000, 0x0e); /* cursor location */ hga_mode = HGA_GFX; spin_unlock_irqrestore(&hga_reg_lock, flags); } static void hga_show_logo(struct fb_info *info) { /* void __iomem *dest = hga_vram; char *logo = linux_logo_bw; int x, y; for (y = 134; y < 134 + 80 ; y++) * this needs some cleanup * for (x = 0; x < 10 ; x++) writeb(~*(logo++),(dest + HGA_ROWADDR(y) + x + 40)); */ } static void hga_pan(unsigned int xoffset, unsigned int yoffset) { unsigned int base; unsigned long flags; base = (yoffset / 8) * 90 + xoffset; spin_lock_irqsave(&hga_reg_lock, flags); write_hga_w(base, 0x0c); /* start address */ spin_unlock_irqrestore(&hga_reg_lock, flags); DPRINTK("hga_pan: base:%d\n", base); } static void hga_blank(int blank_mode) { unsigned long flags; spin_lock_irqsave(&hga_reg_lock, flags); if (blank_mode) { outb_p(0x00, HGA_MODE_PORT); /* disable video */ } else { outb_p(HGA_MODE_VIDEO_EN | HGA_MODE_GRAPHICS, HGA_MODE_PORT); } spin_unlock_irqrestore(&hga_reg_lock, flags); } static int __init hga_card_detect(void) { int count=0; void __iomem *p, *q; unsigned short p_save, q_save; hga_vram_len = 0x08000; hga_vram = ioremap(0xb0000, hga_vram_len); if (request_region(0x3b0, 12, "hgafb")) release_io_ports = 1; if (request_region(0x3bf, 1, "hgafb")) release_io_port = 1; /* do a memory check */ p = hga_vram; q = hga_vram + 0x01000; p_save = readw(p); q_save = readw(q); writew(0xaa55, p); if (readw(p) == 0xaa55) count++; writew(0x55aa, p); if (readw(p) == 0x55aa) count++; writew(p_save, p); if (count != 2) { return 0; } /* Ok, there is definitely a card registering at the correct * memory location, so now we do an I/O port test. */ if (!test_hga_b(0x66, 0x0f)) { /* cursor low register */ return 0; } if (!test_hga_b(0x99, 0x0f)) { /* cursor low register */ return 0; } /* See if the card is a Hercules, by checking whether the vsync * bit of the status register is changing. This test lasts for * approximately 1/10th of a second. */ p_save = q_save = inb_p(HGA_STATUS_PORT) & HGA_STATUS_VSYNC; for (count=0; count < 50000 && p_save == q_save; count++) { q_save = inb(HGA_STATUS_PORT) & HGA_STATUS_VSYNC; udelay(2); } if (p_save == q_save) return 0; switch (inb_p(HGA_STATUS_PORT) & 0x70) { case 0x10: hga_type = TYPE_HERCPLUS; hga_type_name = "HerculesPlus"; break; case 0x50: hga_type = TYPE_HERCCOLOR; hga_type_name = "HerculesColor"; break; default: hga_type = TYPE_HERC; hga_type_name = "Hercules"; break; } return 1; } /** * hgafb_open - open the framebuffer device * @info:pointer to fb_info object containing info for current hga board * @int:open by console system or userland. */ static int hgafb_open(struct fb_info *info, int init) { hga_gfx_mode(); hga_clear_screen(); if (!nologo) hga_show_logo(info); return 0; } /** * hgafb_open - open the framebuffer device * @info:pointer to fb_info object containing info for current hga board * @int:open by console system or userland. */ static int hgafb_release(struct fb_info *info, int init) { hga_txt_mode(); hga_clear_screen(); return 0; } /** * hgafb_setcolreg - set color registers * @regno:register index to set * @red:red value, unused * @green:green value, unused * @blue:blue value, unused * @transp:transparency value, unused * @info:unused * * This callback function is used to set the color registers of a HGA * board. Since we have only two fixed colors only @regno is checked. * A zero is returned on success and 1 for failure. */ static int hgafb_setcolreg(u_int regno, u_int red, u_int green, u_int blue, u_int transp, struct fb_info *info) { if (regno > 1) return 1; return 0; } /** * hga_pan_display - pan or wrap the display * @var:contains new xoffset, yoffset and vmode values * @info:pointer to fb_info object containing info for current hga board * * This function looks only at xoffset, yoffset and the %FB_VMODE_YWRAP * flag in @var. If input parameters are correct it calls hga_pan() to * program the hardware. @info->var is updated to the new values. * A zero is returned on success and %-EINVAL for failure. */ static int hgafb_pan_display(struct fb_var_screeninfo *var, struct fb_info *info) { if (var->vmode & FB_VMODE_YWRAP) { if (var->yoffset < 0 || var->yoffset >= info->var.yres_virtual || var->xoffset) return -EINVAL; } else { if (var->xoffset + var->xres > info->var.xres_virtual || var->yoffset + var->yres > info->var.yres_virtual || var->yoffset % 8) return -EINVAL; } hga_pan(var->xoffset, var->yoffset); return 0; } /** * hgafb_blank - (un)blank the screen * @blank_mode:blanking method to use * @info:unused * * Blank the screen if blank_mode != 0, else unblank. * Implements VESA suspend and powerdown modes on hardware that supports * disabling hsync/vsync: * @blank_mode == 2 means suspend vsync, * @blank_mode == 3 means suspend hsync, * @blank_mode == 4 means powerdown. */ static int hgafb_blank(int blank_mode, struct fb_info *info) { hga_blank(blank_mode); return 0; } /* * Accel functions */ #ifdef CONFIG_FB_HGA_ACCEL static void hgafb_fillrect(struct fb_info *info, const struct fb_fillrect *rect) { u_int rows, y; u8 __iomem *dest; y = rect->dy; for (rows = rect->height; rows--; y++) { dest = rowaddr(info, y) + (rect->dx >> 3); switch (rect->rop) { case ROP_COPY: //fb_memset(dest, rect->color, (rect->width >> 3)); break; case ROP_XOR: fb_writeb(~(fb_readb(dest)), dest); break; } } } static void hgafb_copyarea(struct fb_info *info, const struct fb_copyarea *area) { u_int rows, y1, y2; u8 __iomem *src; u8 __iomem *dest; if (area->dy <= area->sy) { y1 = area->sy; y2 = area->dy; for (rows = area->height; rows--; ) { src = rowaddr(info, y1) + (area->sx >> 3); dest = rowaddr(info, y2) + (area->dx >> 3); //fb_memmove(dest, src, (area->width >> 3)); y1++; y2++; } } else { y1 = area->sy + area->height - 1; y2 = area->dy + area->height - 1; for (rows = area->height; rows--;) { src = rowaddr(info, y1) + (area->sx >> 3); dest = rowaddr(info, y2) + (area->dx >> 3); //fb_memmove(dest, src, (area->width >> 3)); y1--; y2--; } } } static void hgafb_imageblit(struct fb_info *info, const struct fb_image *image) { u8 __iomem *dest; u8 *cdat = (u8 *) image->data; u_int rows, y = image->dy; u8 d; for (rows = image->height; rows--; y++) { d = *cdat++; dest = rowaddr(info, y) + (image->dx >> 3); fb_writeb(d, dest); } } #else /* !CONFIG_FB_HGA_ACCEL */ #define hgafb_fillrect cfb_fillrect #define hgafb_copyarea cfb_copyarea #define hgafb_imageblit cfb_imageblit #endif /* CONFIG_FB_HGA_ACCEL */ static struct fb_ops hgafb_ops = { .owner = THIS_MODULE, .fb_open = hgafb_open, .fb_release = hgafb_release, .fb_setcolreg = hgafb_setcolreg, .fb_pan_display = hgafb_pan_display, .fb_blank = hgafb_blank, .fb_fillrect = hgafb_fillrect, .fb_copyarea = hgafb_copyarea, .fb_imageblit = hgafb_imageblit, }; /* ------------------------------------------------------------------------- * * * Functions in fb_info * * ------------------------------------------------------------------------- */ /* ------------------------------------------------------------------------- */ /* * Initialization */ static int __init hgafb_probe(struct device *device) { struct fb_info *info; if (! hga_card_detect()) { printk(KERN_INFO "hgafb: HGA card not detected.\n"); if (hga_vram) iounmap(hga_vram); return -EINVAL; } printk(KERN_INFO "hgafb: %s with %ldK of memory detected.\n", hga_type_name, hga_vram_len/1024); info = framebuffer_alloc(0, NULL); if (!info) { iounmap(hga_vram); return -ENOMEM; } hga_fix.smem_start = (unsigned long)hga_vram; hga_fix.smem_len = hga_vram_len; info->flags = FBINFO_DEFAULT | FBINFO_HWACCEL_YPAN; info->var = hga_default_var; info->fix = hga_fix; info->monspecs.hfmin = 0; info->monspecs.hfmax = 0; info->monspecs.vfmin = 10000; info->monspecs.vfmax = 10000; info->monspecs.dpms = 0; info->fbops = &hgafb_ops; info->screen_base = hga_vram; if (register_framebuffer(info) < 0) { framebuffer_release(info); iounmap(hga_vram); return -EINVAL; } printk(KERN_INFO "fb%d: %s frame buffer device\n", info->node, info->fix.id); dev_set_drvdata(device, info); return 0; } static int hgafb_remove(struct device *device) { struct fb_info *info = dev_get_drvdata(device); hga_txt_mode(); hga_clear_screen(); if (info) { unregister_framebuffer(info); framebuffer_release(info); } iounmap(hga_vram); if (release_io_ports) release_region(0x3b0, 12); if (release_io_port) release_region(0x3bf, 1); return 0; } static struct device_driver hgafb_driver = { .name = "hgafb", .bus = &platform_bus_type, .probe = hgafb_probe, .remove = hgafb_remove, }; static struct platform_device hgafb_device = { .name = "hgafb", }; static int __init hgafb_init(void) { int ret; if (fb_get_options("hgafb", NULL)) return -ENODEV; ret = driver_register(&hgafb_driver); if (!ret) { ret = platform_device_register(&hgafb_device); if (ret) driver_unregister(&hgafb_driver); } return ret; } static void __exit hgafb_exit(void) { platform_device_unregister(&hgafb_device); driver_unregister(&hgafb_driver); } /* ------------------------------------------------------------------------- * * Modularization * * ------------------------------------------------------------------------- */ MODULE_AUTHOR("Ferenc Bakonyi (fero@drama.obuda.kando.hu)"); MODULE_DESCRIPTION("FBDev driver for Hercules Graphics Adaptor"); MODULE_LICENSE("GPL"); module_param(nologo, bool, 0); MODULE_PARM_DESC(nologo, "Disables startup logo if != 0 (default=0)"); module_init(hgafb_init); module_exit(hgafb_exit);