2 * Common LCD routines for supported CPUs
4 * (C) Copyright 2001-2002
5 * Wolfgang Denk, DENX Software Engineering -- wd@denx.de
7 * See file CREDITS for list of people who contributed to this
10 * This program is free software; you can redistribute it and/or
11 * modify it under the terms of the GNU General Public License as
12 * published by the Free Software Foundation; either version 2 of
13 * the License, or (at your option) any later version.
15 * This program is distributed in the hope that it will be useful,
16 * but WITHOUT ANY WARRANTY; without even the implied warranty of
17 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 * GNU General Public License for more details.
20 * You should have received a copy of the GNU General Public License
21 * along with this program; if not, write to the Free Software
22 * Foundation, Inc., 59 Temple Place, Suite 330, Boston,
26 /************************************************************************/
28 /************************************************************************/
36 #include <linux/types.h>
37 #include <stdio_dev.h>
38 #if defined(CONFIG_POST)
44 #if defined(CONFIG_CPU_PXA25X) || defined(CONFIG_CPU_PXA27X) || \
45 defined(CONFIG_CPU_MONAHANS)
46 #define CONFIG_CPU_PXA
47 #include <asm/byteorder.h>
50 #if defined(CONFIG_MPC823)
54 #if defined(CONFIG_ATMEL_LCD)
55 #include <atmel_lcdc.h>
58 /************************************************************************/
60 /************************************************************************/
61 #include <video_font.h> /* Get font data, width and height */
62 #include <video_font_data.h>
64 /************************************************************************/
66 /************************************************************************/
67 #ifdef CONFIG_LCD_LOGO
68 # include <bmp_logo.h> /* Get logo data, width and height */
69 # include <bmp_logo_data.h>
70 # if (CONSOLE_COLOR_WHITE >= BMP_LOGO_OFFSET) && (LCD_BPP != LCD_COLOR16)
71 # error Default Color Map overlaps with Logo Color Map
75 DECLARE_GLOBAL_DATA_PTR;
77 ulong lcd_setmem (ulong addr);
79 static void lcd_drawchars (ushort x, ushort y, uchar *str, int count);
80 static inline void lcd_puts_xy (ushort x, ushort y, uchar *s);
81 static inline void lcd_putc_xy (ushort x, ushort y, uchar c);
83 static int lcd_init (void *lcdbase);
85 static void *lcd_logo (void);
87 static int lcd_getbgcolor (void);
88 static void lcd_setfgcolor (int color);
89 static void lcd_setbgcolor (int color);
91 char lcd_is_enabled = 0;
93 #ifdef NOT_USED_SO_FAR
94 static void lcd_getcolreg (ushort regno,
95 ushort *red, ushort *green, ushort *blue);
96 static int lcd_getfgcolor (void);
97 #endif /* NOT_USED_SO_FAR */
99 /************************************************************************/
101 /*----------------------------------------------------------------------*/
103 static void console_scrollup (void)
105 /* Copy up rows ignoring the first one */
106 memcpy (CONSOLE_ROW_FIRST, CONSOLE_ROW_SECOND, CONSOLE_SCROLL_SIZE);
108 /* Clear the last one */
109 memset (CONSOLE_ROW_LAST, COLOR_MASK(lcd_color_bg), CONSOLE_ROW_SIZE);
112 /*----------------------------------------------------------------------*/
114 static inline void console_back (void)
116 if (--console_col < 0) {
117 console_col = CONSOLE_COLS-1 ;
118 if (--console_row < 0) {
123 lcd_putc_xy (console_col * VIDEO_FONT_WIDTH,
124 console_row * VIDEO_FONT_HEIGHT,
128 /*----------------------------------------------------------------------*/
130 static inline void console_newline (void)
135 /* Check if we need to scroll the terminal */
136 if (console_row >= CONSOLE_ROWS) {
137 /* Scroll everything up */
138 console_scrollup () ;
143 /*----------------------------------------------------------------------*/
145 void lcd_putc (const char c)
147 if (!lcd_is_enabled) {
153 case '\r': console_col = 0;
156 case '\n': console_newline();
159 case '\t': /* Tab (8 chars alignment) */
163 if (console_col >= CONSOLE_COLS) {
168 case '\b': console_back();
171 default: lcd_putc_xy (console_col * VIDEO_FONT_WIDTH,
172 console_row * VIDEO_FONT_HEIGHT,
174 if (++console_col >= CONSOLE_COLS) {
182 /*----------------------------------------------------------------------*/
184 void lcd_puts (const char *s)
186 if (!lcd_is_enabled) {
196 /*----------------------------------------------------------------------*/
198 void lcd_printf(const char *fmt, ...)
201 char buf[CONFIG_SYS_PBSIZE];
204 vsprintf(buf, fmt, args);
210 /************************************************************************/
211 /* ** Low-Level Graphics Routines */
212 /************************************************************************/
214 static void lcd_drawchars (ushort x, ushort y, uchar *str, int count)
219 #if defined(CONFIG_LCD_LOGO) && !defined(CONFIG_LCD_INFO_BELOW_LOGO)
220 y += BMP_LOGO_HEIGHT;
223 #if LCD_BPP == LCD_MONOCHROME
224 ushort off = x * (1 << LCD_BPP) % 8;
227 dest = (uchar *)(lcd_base + y * lcd_line_length + x * (1 << LCD_BPP) / 8);
229 for (row=0; row < VIDEO_FONT_HEIGHT; ++row, dest += lcd_line_length) {
232 #if LCD_BPP == LCD_COLOR16
233 ushort *d = (ushort *)dest;
238 #if LCD_BPP == LCD_MONOCHROME
239 uchar rest = *d & -(1 << (8-off));
242 for (i=0; i<count; ++i) {
246 bits = video_fontdata[c * VIDEO_FONT_HEIGHT + row];
248 #if LCD_BPP == LCD_MONOCHROME
249 sym = (COLOR_MASK(lcd_color_fg) & bits) |
250 (COLOR_MASK(lcd_color_bg) & ~bits);
252 *d++ = rest | (sym >> off);
253 rest = sym << (8-off);
254 #elif LCD_BPP == LCD_COLOR8
255 for (c=0; c<8; ++c) {
256 *d++ = (bits & 0x80) ?
257 lcd_color_fg : lcd_color_bg;
260 #elif LCD_BPP == LCD_COLOR16
261 for (c=0; c<8; ++c) {
262 *d++ = (bits & 0x80) ?
263 lcd_color_fg : lcd_color_bg;
268 #if LCD_BPP == LCD_MONOCHROME
269 *d = rest | (*d & ((1 << (8-off)) - 1));
274 /*----------------------------------------------------------------------*/
276 static inline void lcd_puts_xy (ushort x, ushort y, uchar *s)
278 lcd_drawchars(x, y, s, strlen((char *)s));
281 /*----------------------------------------------------------------------*/
283 static inline void lcd_putc_xy (ushort x, ushort y, uchar c)
285 lcd_drawchars(x, y, &c, 1);
288 /************************************************************************/
289 /** Small utility to check that you got the colours right */
290 /************************************************************************/
291 #ifdef LCD_TEST_PATTERN
296 static int test_colors[N_BLK_HOR*N_BLK_VERT] = {
297 CONSOLE_COLOR_RED, CONSOLE_COLOR_GREEN, CONSOLE_COLOR_YELLOW,
298 CONSOLE_COLOR_BLUE, CONSOLE_COLOR_MAGENTA, CONSOLE_COLOR_CYAN,
301 static void test_pattern (void)
303 ushort v_max = panel_info.vl_row;
304 ushort h_max = panel_info.vl_col;
305 ushort v_step = (v_max + N_BLK_VERT - 1) / N_BLK_VERT;
306 ushort h_step = (h_max + N_BLK_HOR - 1) / N_BLK_HOR;
308 uchar *pix = (uchar *)lcd_base;
310 printf ("[LCD] Test Pattern: %d x %d [%d x %d]\n",
311 h_max, v_max, h_step, v_step);
313 /* WARNING: Code silently assumes 8bit/pixel */
314 for (v=0; v<v_max; ++v) {
315 uchar iy = v / v_step;
316 for (h=0; h<h_max; ++h) {
317 uchar ix = N_BLK_HOR * iy + (h/h_step);
318 *pix++ = test_colors[ix];
322 #endif /* LCD_TEST_PATTERN */
325 /************************************************************************/
326 /* ** GENERIC Initialization Routines */
327 /************************************************************************/
329 int drv_lcd_init (void)
331 struct stdio_dev lcddev;
334 lcd_base = (void *)(gd->fb_base);
336 lcd_line_length = (panel_info.vl_col * NBITS (panel_info.vl_bpix)) / 8;
338 lcd_init (lcd_base); /* LCD initialization */
340 /* Device initialization */
341 memset (&lcddev, 0, sizeof (lcddev));
343 strcpy (lcddev.name, "lcd");
344 lcddev.ext = 0; /* No extensions */
345 lcddev.flags = DEV_FLAGS_OUTPUT; /* Output only */
346 lcddev.putc = lcd_putc; /* 'putc' function */
347 lcddev.puts = lcd_puts; /* 'puts' function */
349 rc = stdio_register (&lcddev);
351 return (rc == 0) ? 1 : rc;
354 /*----------------------------------------------------------------------*/
356 int do_lcd_clear(cmd_tbl_t *cmdtp, int flag, int argc, char *const argv[])
364 #if LCD_BPP == LCD_MONOCHROME
365 /* Setting the palette */
368 #elif LCD_BPP == LCD_COLOR8
369 /* Setting the palette */
370 lcd_setcolreg (CONSOLE_COLOR_BLACK, 0, 0, 0);
371 lcd_setcolreg (CONSOLE_COLOR_RED, 0xFF, 0, 0);
372 lcd_setcolreg (CONSOLE_COLOR_GREEN, 0, 0xFF, 0);
373 lcd_setcolreg (CONSOLE_COLOR_YELLOW, 0xFF, 0xFF, 0);
374 lcd_setcolreg (CONSOLE_COLOR_BLUE, 0, 0, 0xFF);
375 lcd_setcolreg (CONSOLE_COLOR_MAGENTA, 0xFF, 0, 0xFF);
376 lcd_setcolreg (CONSOLE_COLOR_CYAN, 0, 0xFF, 0xFF);
377 lcd_setcolreg (CONSOLE_COLOR_GREY, 0xAA, 0xAA, 0xAA);
378 lcd_setcolreg (CONSOLE_COLOR_WHITE, 0xFF, 0xFF, 0xFF);
381 #ifndef CONFIG_SYS_WHITE_ON_BLACK
382 lcd_setfgcolor (CONSOLE_COLOR_BLACK);
383 lcd_setbgcolor (CONSOLE_COLOR_WHITE);
385 lcd_setfgcolor (CONSOLE_COLOR_WHITE);
386 lcd_setbgcolor (CONSOLE_COLOR_BLACK);
387 #endif /* CONFIG_SYS_WHITE_ON_BLACK */
389 #ifdef LCD_TEST_PATTERN
392 /* set framebuffer to background color */
393 memset ((char *)lcd_base,
394 COLOR_MASK(lcd_getbgcolor()),
395 lcd_line_length*panel_info.vl_row);
397 /* Paint the logo and retrieve LCD base address */
398 debug ("[LCD] Drawing the logo...\n");
399 lcd_console_address = lcd_logo ();
406 cls, 1, 1, do_lcd_clear,
411 /*----------------------------------------------------------------------*/
413 static int lcd_init (void *lcdbase)
415 /* Initialize the lcd controller */
416 debug ("[LCD] Initializing LCD frambuffer at %p\n", lcdbase);
418 lcd_ctrl_init (lcdbase);
423 /* Initialize the console */
425 #ifdef CONFIG_LCD_INFO_BELOW_LOGO
426 console_row = 7 + BMP_LOGO_HEIGHT / VIDEO_FONT_HEIGHT;
428 console_row = 1; /* leave 1 blank line below logo */
435 /************************************************************************/
436 /* ** ROM capable initialization part - needed to reserve FB memory */
437 /************************************************************************/
439 * This is called early in the system initialization to grab memory
440 * for the LCD controller.
441 * Returns new address for monitor, after reserving LCD buffer memory
443 * Note that this is running from ROM, so no write access to global data.
445 ulong lcd_setmem (ulong addr)
448 int line_length = (panel_info.vl_col * NBITS (panel_info.vl_bpix)) / 8;
450 debug ("LCD panel info: %d x %d, %d bit/pix\n",
451 panel_info.vl_col, panel_info.vl_row, NBITS (panel_info.vl_bpix) );
453 size = line_length * panel_info.vl_row;
455 /* Round up to nearest full page */
456 size = (size + (PAGE_SIZE - 1)) & ~(PAGE_SIZE - 1);
458 /* Allocate pages for the frame buffer. */
461 debug ("Reserving %ldk for LCD Framebuffer at: %08lx\n", size>>10, addr);
466 /*----------------------------------------------------------------------*/
468 static void lcd_setfgcolor (int color)
470 lcd_color_fg = color;
473 /*----------------------------------------------------------------------*/
475 static void lcd_setbgcolor (int color)
477 lcd_color_bg = color;
480 /*----------------------------------------------------------------------*/
482 #ifdef NOT_USED_SO_FAR
483 static int lcd_getfgcolor (void)
487 #endif /* NOT_USED_SO_FAR */
489 /*----------------------------------------------------------------------*/
491 static int lcd_getbgcolor (void)
496 /*----------------------------------------------------------------------*/
498 /************************************************************************/
499 /* ** Chipset depending Bitmap / Logo stuff... */
500 /************************************************************************/
501 #ifdef CONFIG_LCD_LOGO
502 void bitmap_plot (int x, int y)
504 #ifdef CONFIG_ATMEL_LCD
513 #if defined(CONFIG_CPU_PXA)
514 struct pxafb_info *fbi = &panel_info.pxa;
515 #elif defined(CONFIG_MPC823)
516 volatile immap_t *immr = (immap_t *) CONFIG_SYS_IMMR;
517 volatile cpm8xx_t *cp = &(immr->im_cpm);
520 debug ("Logo: width %d height %d colors %d cmap %d\n",
521 BMP_LOGO_WIDTH, BMP_LOGO_HEIGHT, BMP_LOGO_COLORS,
522 ARRAY_SIZE(bmp_logo_palette));
524 bmap = &bmp_logo_bitmap[0];
525 fb = (uchar *)(lcd_base + y * lcd_line_length + x);
527 if (NBITS(panel_info.vl_bpix) < 12) {
528 /* Leave room for default color map */
529 #if defined(CONFIG_CPU_PXA)
530 cmap = (ushort *)fbi->palette;
531 #elif defined(CONFIG_MPC823)
532 cmap = (ushort *)&(cp->lcd_cmap[BMP_LOGO_OFFSET*sizeof(ushort)]);
533 #elif defined(CONFIG_ATMEL_LCD)
534 cmap = (uint *) (panel_info.mmio + ATMEL_LCDC_LUT(0));
537 * default case: generic system with no cmap (most likely 16bpp)
538 * We set cmap to the source palette, so no change is done.
539 * This avoids even more ifdef in the next stanza
541 cmap = bmp_logo_palette;
547 for (i = 0; i < ARRAY_SIZE(bmp_logo_palette); ++i) {
548 ushort colreg = bmp_logo_palette[i];
549 #ifdef CONFIG_ATMEL_LCD
551 #ifdef CONFIG_ATMEL_LCD_BGR555
552 lut_entry = ((colreg & 0x000F) << 11) |
553 ((colreg & 0x00F0) << 2) |
554 ((colreg & 0x0F00) >> 7);
555 #else /* CONFIG_ATMEL_LCD_RGB565 */
556 lut_entry = ((colreg & 0x000F) << 1) |
557 ((colreg & 0x00F0) << 3) |
558 ((colreg & 0x0F00) << 4);
560 *(cmap + BMP_LOGO_OFFSET) = lut_entry;
562 #else /* !CONFIG_ATMEL_LCD */
563 #ifdef CONFIG_SYS_INVERT_COLORS
564 *cmap++ = 0xffff - colreg;
568 #endif /* CONFIG_ATMEL_LCD */
573 for (i=0; i<BMP_LOGO_HEIGHT; ++i) {
574 memcpy (fb, bmap, BMP_LOGO_WIDTH);
575 bmap += BMP_LOGO_WIDTH;
576 fb += panel_info.vl_col;
579 else { /* true color mode */
581 fb16 = (ushort *)(lcd_base + y * lcd_line_length + x);
582 for (i=0; i<BMP_LOGO_HEIGHT; ++i) {
583 for (j=0; j<BMP_LOGO_WIDTH; j++) {
584 col16 = bmp_logo_palette[(bmap[j]-16)];
586 ((col16 & 0x000F) << 1) |
587 ((col16 & 0x00F0) << 3) |
588 ((col16 & 0x0F00) << 4);
590 bmap += BMP_LOGO_WIDTH;
591 fb16 += panel_info.vl_col;
597 #endif /* CONFIG_LCD_LOGO */
599 /*----------------------------------------------------------------------*/
600 #if defined(CONFIG_CMD_BMP) || defined(CONFIG_SPLASH_SCREEN)
602 * Display the BMP file located at address bmp_image.
606 #ifdef CONFIG_SPLASH_SCREEN_ALIGN
607 #define BMP_ALIGN_CENTER 0x7FFF
610 int lcd_display_bitmap(ulong bmp_image, int x, int y)
612 #if !defined(CONFIG_MCC200)
615 ushort *cmap_base = NULL;
618 bmp_image_t *bmp=(bmp_image_t *)bmp_image;
621 unsigned long width, height, byte_width;
622 unsigned long pwidth = panel_info.vl_col;
623 unsigned colors, bpix, bmp_bpix;
624 #if defined(CONFIG_CPU_PXA)
625 struct pxafb_info *fbi = &panel_info.pxa;
626 #elif defined(CONFIG_MPC823)
627 volatile immap_t *immr = (immap_t *) CONFIG_SYS_IMMR;
628 volatile cpm8xx_t *cp = &(immr->im_cpm);
631 if (!((bmp->header.signature[0]=='B') &&
632 (bmp->header.signature[1]=='M'))) {
633 printf ("Error: no valid bmp image at %lx\n", bmp_image);
637 width = le32_to_cpu (bmp->header.width);
638 height = le32_to_cpu (bmp->header.height);
639 bmp_bpix = le16_to_cpu(bmp->header.bit_count);
640 colors = 1 << bmp_bpix;
642 bpix = NBITS(panel_info.vl_bpix);
644 if ((bpix != 1) && (bpix != 8) && (bpix != 16)) {
645 printf ("Error: %d bit/pixel mode, but BMP has %d bit/pixel\n",
650 /* We support displaying 8bpp BMPs on 16bpp LCDs */
651 if (bpix != bmp_bpix && (bmp_bpix != 8 || bpix != 16)) {
652 printf ("Error: %d bit/pixel mode, but BMP has %d bit/pixel\n",
654 le16_to_cpu(bmp->header.bit_count));
658 debug ("Display-bmp: %d x %d with %d colors\n",
659 (int)width, (int)height, (int)colors);
661 #if !defined(CONFIG_MCC200)
662 /* MCC200 LCD doesn't need CMAP, supports 1bpp b&w only */
664 #if defined(CONFIG_CPU_PXA)
665 cmap = (ushort *)fbi->palette;
666 #elif defined(CONFIG_MPC823)
667 cmap = (ushort *)&(cp->lcd_cmap[255*sizeof(ushort)]);
668 #elif !defined(CONFIG_ATMEL_LCD)
669 cmap = panel_info.cmap;
675 for (i=0; i<colors; ++i) {
676 bmp_color_table_entry_t cte = bmp->color_table[i];
677 #if !defined(CONFIG_ATMEL_LCD)
679 ( ((cte.red) << 8) & 0xf800) |
680 ( ((cte.green) << 3) & 0x07e0) |
681 ( ((cte.blue) >> 3) & 0x001f) ;
682 #ifdef CONFIG_SYS_INVERT_COLORS
683 *cmap = 0xffff - colreg;
687 #if defined(CONFIG_MPC823)
692 #else /* CONFIG_ATMEL_LCD */
693 lcd_setcolreg(i, cte.red, cte.green, cte.blue);
700 * BMP format for Monochrome assumes that the state of a
701 * pixel is described on a per Bit basis, not per Byte.
702 * So, in case of Monochrome BMP we should align widths
703 * on a byte boundary and convert them from Bit to Byte
705 * Probably, PXA250 and MPC823 process 1bpp BMP images in
706 * their own ways, so make the converting to be MCC200
709 #if defined(CONFIG_MCC200)
712 width = ((width + 7) & ~7) >> 3;
713 x = ((x + 7) & ~7) >> 3;
714 pwidth= ((pwidth + 7) & ~7) >> 3;
718 padded_line = (width&0x3) ? ((width&~0x3)+4) : (width);
720 #ifdef CONFIG_SPLASH_SCREEN_ALIGN
721 if (x == BMP_ALIGN_CENTER)
722 x = max(0, (pwidth - width) / 2);
724 x = max(0, pwidth - width + x + 1);
726 if (y == BMP_ALIGN_CENTER)
727 y = max(0, (panel_info.vl_row - height) / 2);
729 y = max(0, panel_info.vl_row - height + y + 1);
730 #endif /* CONFIG_SPLASH_SCREEN_ALIGN */
732 if ((x + width)>pwidth)
734 if ((y + height)>panel_info.vl_row)
735 height = panel_info.vl_row - y;
737 bmap = (uchar *)bmp + le32_to_cpu (bmp->header.data_offset);
738 fb = (uchar *) (lcd_base +
739 (y + height - 1) * lcd_line_length + x * bpix / 8);
742 case 1: /* pass through */
747 byte_width = width * 2;
749 for (i = 0; i < height; ++i) {
751 for (j = 0; j < width; j++) {
753 #if defined(CONFIG_CPU_PXA) || defined(CONFIG_ATMEL_LCD)
755 #elif defined(CONFIG_MPC823) || defined(CONFIG_MCC200)
756 *(fb++) = 255 - *(bmap++);
759 *(uint16_t *)fb = cmap_base[*(bmap++)];
760 fb += sizeof(uint16_t) / sizeof(*fb);
763 bmap += (width - padded_line);
764 fb -= (byte_width + lcd_line_length);
768 #if defined(CONFIG_BMP_16BPP)
770 for (i = 0; i < height; ++i) {
772 for (j = 0; j < width; j++) {
773 #if defined(CONFIG_ATMEL_LCD_BGR555)
774 *(fb++) = ((bmap[0] & 0x1f) << 2) |
776 *(fb++) = (bmap[0] & 0xe0) |
777 ((bmap[1] & 0x7c) >> 2);
784 bmap += (padded_line - width) * 2;
785 fb -= (width * 2 + lcd_line_length);
788 #endif /* CONFIG_BMP_16BPP */
798 static void *lcd_logo (void)
800 #ifdef CONFIG_SPLASH_SCREEN
803 static int do_splash = 1;
805 if (do_splash && (s = getenv("splashimage")) != NULL) {
809 addr = simple_strtoul (s, NULL, 16);
810 #ifdef CONFIG_SPLASH_SCREEN_ALIGN
811 if ((s = getenv ("splashpos")) != NULL) {
813 x = BMP_ALIGN_CENTER;
815 x = simple_strtol (s, NULL, 0);
817 if ((s = strchr (s + 1, ',')) != NULL) {
819 y = BMP_ALIGN_CENTER;
821 y = simple_strtol (s + 1, NULL, 0);
824 #endif /* CONFIG_SPLASH_SCREEN_ALIGN */
826 #ifdef CONFIG_VIDEO_BMP_GZIP
827 bmp_image_t *bmp = (bmp_image_t *)addr;
830 if (!((bmp->header.signature[0]=='B') &&
831 (bmp->header.signature[1]=='M'))) {
832 addr = (ulong)gunzip_bmp(addr, &len);
836 if (lcd_display_bitmap (addr, x, y) == 0) {
837 return ((void *)lcd_base);
840 #endif /* CONFIG_SPLASH_SCREEN */
842 #ifdef CONFIG_LCD_LOGO
844 #endif /* CONFIG_LCD_LOGO */
846 #ifdef CONFIG_LCD_INFO
847 console_col = LCD_INFO_X / VIDEO_FONT_WIDTH;
848 console_row = LCD_INFO_Y / VIDEO_FONT_HEIGHT;
849 lcd_show_board_info();
850 #endif /* CONFIG_LCD_INFO */
852 #if defined(CONFIG_LCD_LOGO) && !defined(CONFIG_LCD_INFO_BELOW_LOGO)
853 return ((void *)((ulong)lcd_base + BMP_LOGO_HEIGHT * lcd_line_length));
855 return ((void *)lcd_base);
856 #endif /* CONFIG_LCD_LOGO && !CONFIG_LCD_INFO_BELOW_LOGO */
859 /************************************************************************/
860 /************************************************************************/