blob: 36e3c624a982c7f5a3d09a9fa12f33fcb05922ea [file] [log] [blame]
wdenkc7de8292002-11-19 11:04:11 +00001/*
2 * (C) Copyright 2002
wdenk8bde7f72003-06-27 21:31:46 +00003 * Hyperion Entertainment, Hans-JoergF@hyperion-entertainment.com
wdenkc7de8292002-11-19 11:04:11 +00004 *
5 * See file CREDITS for list of people who contributed to this
6 * project.
7 *
8 * This program is free software; you can redistribute it and/or
9 * modify it under the terms of the GNU General Public License as
10 * published by the Free Software Foundation; either version 2 of
11 * the License, or (at your option) any later version.
12 *
13 * This program is distributed in the hope that it will be useful,
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 * GNU General Public License for more details.
17 *
18 * You should have received a copy of the GNU General Public License
19 * along with this program; if not, write to the Free Software
20 * Foundation, Inc., 59 Temple Place, Suite 330, Boston,
21 * MA 02111-1307 USA
22 */
23
24#include <common.h>
25#include <devices.h>
26#include "memio.h"
27#include <part.h>
28
29unsigned char *cursor_position;
30unsigned int cursor_row;
31unsigned int cursor_col;
32
33unsigned char current_attr;
34
35unsigned int video_numrows = 25;
36unsigned int video_numcols = 80;
37unsigned int video_scrolls = 0;
38
39#define VIDEO_BASE (unsigned char *)0xFD0B8000
40#define VIDEO_ROWS video_numrows
41#define VIDEO_COLS video_numcols
42#define VIDEO_PITCH (2 * video_numcols)
43#define VIDEO_SIZE (video_numrows * video_numcols * 2)
44#define VIDEO_NAME "vga"
45
46void video_test(void);
47void video_putc(char ch);
48void video_puts(char *string);
49void video_scroll(int rows);
50void video_banner(void);
51int video_init(void);
52int video_start(void);
53int video_rows(void);
54int video_cols(void);
55
56char *prompt_string = "=>";
57
58void video_set_color(unsigned char attr)
59{
60 unsigned char *fb = (unsigned char *)VIDEO_BASE;
61 int i;
62
63 current_attr = video_get_attr();
64
65 for (i=0; i<VIDEO_SIZE; i+=2)
66 {
67 *(fb+i+1) = current_attr;
68 }
69}
70
71unsigned char video_get_attr(void)
72{
73 char *s;
74 unsigned char attr;
75
76 attr = 0x0f;
77
78 s = getenv("vga_fg_color");
79 if (s)
80 {
81 attr = atoi(s);
82 }
83
84 s = getenv("vga_bg_color");
85 if (s)
86 {
87 attr |= atoi(s)<<4;
88 }
89
90 return attr;
91}
92
93int video_inited = 0;
94
95int drv_video_init(void)
96{
97 int error, devices = 1 ;
98 device_t vgadev ;
99 if (video_inited) return 1;
100 video_inited = 1;
101 video_init();
102 memset (&vgadev, 0, sizeof(vgadev));
wdenk8bde7f72003-06-27 21:31:46 +0000103
wdenkc7de8292002-11-19 11:04:11 +0000104 strcpy(vgadev.name, VIDEO_NAME);
105 vgadev.flags = DEV_FLAGS_OUTPUT | DEV_FLAGS_SYSTEM;
106 vgadev.putc = video_putc;
107 vgadev.puts = video_puts;
108 vgadev.getc = NULL;
109 vgadev.tstc = NULL;
110 vgadev.start = video_start;
wdenk8bde7f72003-06-27 21:31:46 +0000111
wdenkc7de8292002-11-19 11:04:11 +0000112 error = device_register (&vgadev);
113
114 if (error == 0)
115 {
116 char *s = getenv("stdout");
117 if (s && strcmp(s, VIDEO_NAME)==0)
118 {
119 if (overwrite_console()) return 1;
120 error = console_assign(stdout, VIDEO_NAME);
121 if (error == 0) return 1;
122 else return error;
123 }
124 return 1;
125 }
126
127 return error;
128}
129
130int video_init(void)
131{
wdenk8bde7f72003-06-27 21:31:46 +0000132 cursor_position = VIDEO_BASE; /* Color text display base */
wdenkc7de8292002-11-19 11:04:11 +0000133 cursor_row = 0;
134 cursor_col = 0;
wdenk8bde7f72003-06-27 21:31:46 +0000135 current_attr = video_get_attr(); /* Currently selected value for attribute. */
136/* video_test(); */
wdenkc7de8292002-11-19 11:04:11 +0000137 video_set_color(current_attr);
138
139 return 0;
140}
141
142void video_set_cursor(int line, int column)
143{
144 unsigned short offset = line*video_numcols + column;
145 cursor_position = VIDEO_BASE + line*VIDEO_PITCH + column*2;
146 out_byte(0x3D4, 0x0E);
147 out_byte(0x3D5, offset/256);
148 out_byte(0x3D4, 0x0F);
149 out_byte(0x3D5, offset%256);
150}
151
152void video_write_char(int character)
153{
154 *cursor_position = character;
155 *(cursor_position+1) = current_attr;
156}
157
158void video_test(void)
159{
160
161}
162
163void video_putc(char ch)
164{
165 switch(ch)
166 {
167 case '\n':
168 cursor_col = 0;
169 cursor_row += 1;
170 break;
171 case '\r':
172 cursor_col = 0;
173 break;
174 case '\b':
175 if (cursor_col) cursor_col--;
176 else return;
177 break;
178 case '\t':
179 cursor_col = (cursor_col/8+1)*8;
180 break;
181 default:
182 video_write_char(ch);
183 cursor_col++;
184 if (cursor_col > VIDEO_COLS-1)
185 {
186 cursor_row++;
187 cursor_col=0;
188 }
189 }
190
191 if (cursor_row > VIDEO_ROWS-1)
192 video_scroll(1);
193 video_set_cursor(cursor_row, cursor_col);
194}
195
196void video_scroll(int rows)
197{
198 unsigned short clear = ((unsigned short)current_attr) | (' '<<8);
199 unsigned short* addr16 = &((unsigned short *)VIDEO_BASE)[(VIDEO_ROWS-rows)*VIDEO_COLS];
200 int i;
201 char *s;
202
203 s = getenv("vga_askscroll");
204 video_scrolls += rows;
205
206 if (video_scrolls >= video_numrows)
207 {
208 if (s && strcmp(s, "yes"))
209 {
210 while (-1 == tstc());
211 }
212
213 video_scrolls = 0;
214 }
215
216
217 memcpy(VIDEO_BASE, VIDEO_BASE+rows*(VIDEO_COLS*2), (VIDEO_ROWS-rows)*(VIDEO_COLS*2));
218 for (i = 0 ; i < rows * VIDEO_COLS ; i++)
219 addr16[i] = clear;
220 cursor_row-=rows;
221 cursor_col=0;
222}
223
224void video_puts(char *string)
225{
226 while (*string)
227 {
228 video_putc(*string);
229 string++;
230 }
231}
232
233int video_start(void)
234{
235 return 0;
236}
237
238unsigned char video_single_box[] =
239{
240 218, 196, 191,
241 179, 179,
242 192, 196, 217
243};
244
245unsigned char video_double_box[] =
246{
247 201, 205, 187,
248 186, 186,
249 200, 205, 188
250};
251
252unsigned char video_single_title[] =
253{
254 195, 196, 180, 180, 195
255};
256
257unsigned char video_double_title[] =
258{
259 204, 205, 185, 181, 198
260};
261
262#define SINGLE_BOX 0
263#define DOUBLE_BOX 1
264
265unsigned char *video_addr(int x, int y)
266{
267 return VIDEO_BASE + 2*(VIDEO_COLS*y) + 2*x;
268}
269
270void video_bios_print_string(char *s, int x, int y, int attr, int count)
271{
272 int cattr = current_attr;
273 if (attr != -1) current_attr = attr;
274 video_set_cursor(x,y);
275 while (count)
276 {
277 char c = *s++;
278 if (attr == -1) current_attr = *s++;
279 video_putc(c);
280 count--;
281 }
282}
283
284void video_draw_box(int style, int attr, char *title, int separate, int x, int y, int w, int h)
285{
wdenk8bde7f72003-06-27 21:31:46 +0000286 unsigned char *fb, *fb2;
wdenkc7de8292002-11-19 11:04:11 +0000287 unsigned char *st = (style == SINGLE_BOX)?video_single_box : video_double_box;
288 unsigned char *ti = (style == SINGLE_BOX)?video_single_title : video_double_title;
289 int i;
290
291 fb = video_addr(x,y);
292 *(fb) = st[0];
293 *(fb+1) = attr;
294 fb += 2;
295
296 fb2 = video_addr(x,y+h-1);
297 *(fb2) = st[5];
298 *(fb2+1) = attr;
299 fb2 += 2;
300
301 for (i=0; i<w-2;i++)
302 {
303 *fb = st[1];
304 fb++;
305 *fb = attr;
306 fb++;
307
308 *fb2 = st[6];
309 fb2++;
310 *fb2 = attr;
311 fb2++;
312
313 }
314 *fb = st[2];
315 *(fb+1) = attr;
316
317 *fb2 = st[7];
318 *(fb2+1) = attr;
319
320 fb = video_addr(x, y+1);
321 fb2 = video_addr(x+w-1, y+1);
322 for (i=0; i<h-2; i++)
323 {
324 *fb = st[3];
325 *(fb+1) = attr; fb += 2*VIDEO_COLS;
326
wdenk8bde7f72003-06-27 21:31:46 +0000327 *fb2 = st[4];
wdenkc7de8292002-11-19 11:04:11 +0000328 *(fb2+1) = attr; fb2 += 2*VIDEO_COLS;
329 }
wdenk8bde7f72003-06-27 21:31:46 +0000330
331 /* Draw title */
wdenkc7de8292002-11-19 11:04:11 +0000332 if (title)
333 {
334 if (separate == 0)
335 {
336 fb = video_addr(x+1, y);
337 *fb = ti[3];
338 fb += 2;
339 *fb = ' ';
340 fb += 2;
341 while (*title)
342 {
343 *fb = *title;
344 fb ++;
345 *fb = attr;
346 fb++; title++;
347 }
348 *fb = ' ';
349 fb += 2;
350 *fb = ti[4];
351 }
352 else
353 {
354 fb = video_addr(x, y+2);
355 *fb = ti[0];
356 fb += 2;
357 for (i=0; i<w-2; i++)
358 {
359 *fb = ti[1];
360 *(fb+1) = attr;
361 fb += 2;
362 }
363 *fb = ti[2];
364 *(fb+1) = attr;
365 fb = video_addr(x+1, y+1);
366 for (i=0; i<w-2; i++)
367 {
368 *fb = ' ';
369 *(fb+1) = attr;
370 fb += 2;
371 }
372 fb = video_addr(x+2, y+1);
wdenk8bde7f72003-06-27 21:31:46 +0000373
wdenkc7de8292002-11-19 11:04:11 +0000374 while (*title)
375 {
376 *fb = *title;
377 *(fb+1) = attr;
378 fb += 2;
379 title++;
380 }
381 }
382 }
383
384}
385
386void video_draw_text(int x, int y, int attr, char *text)
387{
388 unsigned char *fb = video_addr(x,y);
389 while (*text)
390 {
391 *fb++ = *text++;
392 *fb++ = attr;
393 }
394}
395
396void video_save_rect(int x, int y, int w, int h, void *save_area, int clearchar, int clearattr)
397{
398 unsigned char *save = (unsigned char *)save_area;
399 unsigned char *fb = video_addr(x,y);
400 int i,j;
401 for (i=0; i<h; i++)
402 {
403 unsigned char *fbb = fb;
404 for (j=0; j<w; j++)
405 {
406 *save ++ = *fb;
407 if (clearchar > 0) *fb = clearchar;
408 fb ++;
409 *save ++ = *fb;
410 if (clearattr > 0) *fb = clearattr;
411 }
412 fb = fbb + 2*VIDEO_COLS;
413 }
414}
415
416void video_restore_rect(int x, int y, int w, int h, void *save_area)
wdenk8bde7f72003-06-27 21:31:46 +0000417{
wdenkc7de8292002-11-19 11:04:11 +0000418 unsigned char *save = (unsigned char *)save_area;
419 unsigned char *fb = video_addr(x,y);
420 int i,j;
421 for (i=0; i<h; i++)
422 {
423 unsigned char *fbb = fb;
424 for (j=0; j<w; j++)
425 {
426 *fb ++ = *save ++;
427 *fb ++ = *save ++;
428 }
429 fb = fbb + 2*VIDEO_COLS;
430 }
431
432}
433
434int video_rows(void)
435{
436 return VIDEO_ROWS;
437}
438
439int video_cols(void)
440{
441 return VIDEO_COLS;
442}
443
444void video_size(int cols, int rows)
445{
446 video_numrows = rows;
447 video_numcols = cols;
448}
449
450void video_clear(void)
451{
452 unsigned short *fbb = (unsigned short *)0xFD0B8000;
453 int i,j;
454 unsigned short val = 0x2000 | current_attr;
455
456 for (i=0; i<video_rows(); i++)
457 {
458 for (j=0; j<video_cols(); j++)
459 {
460 *fbb++ = val;
461 }
462 }
463 video_set_cursor(0,0);
464 cursor_row = 0;
465 cursor_col = 0;
466}
467
468#ifdef EASTEREGG
469int video_easteregg_active = 0;
470
471void video_easteregg(void)
472{
473 video_easteregg_active = 1;
474}
475#endif
476
wdenkc7de8292002-11-19 11:04:11 +0000477extern block_dev_desc_t * ide_get_dev(int dev);
478extern char version_string[];
479
480void video_banner(void)
481{
482 block_dev_desc_t *ide;
wdenk7c7a23b2002-12-07 00:20:59 +0000483 DECLARE_GLOBAL_DATA_PTR;
wdenkc7de8292002-11-19 11:04:11 +0000484 int i;
485 char *s;
486 int maxdev;
wdenk8bde7f72003-06-27 21:31:46 +0000487
wdenkc7de8292002-11-19 11:04:11 +0000488
489 if (video_inited == 0) return;
490#ifdef EASTEREGG
491 if (video_easteregg_active)
492 {
493 prompt_string="";
494 video_clear();
495 printf("\n");
496 printf(" **** COMMODORE 64 BASIC X2 ****\n\n");
497 printf(" 64K RAM SYSTEM 38911 BASIC BYTES FREE\n\n");
498 printf("READY\n");
499 }
500 else
501 {
502#endif
503 s = getenv("ide_maxbus");
504 if (s)
505 maxdev = atoi(s) * 2;
506 else
507 maxdev = 4;
508
509 s = getenv("stdout");
510 if (s && strcmp(s, "serial") == 0)
511 return;
512
513 video_clear();
514 printf("%s\n\nCPU: ", version_string);
515 checkcpu();
wdenk7c7a23b2002-12-07 00:20:59 +0000516 printf("DRAM: %ld MB\n", gd->bd->bi_memsize/(1024*1024));
517 printf("FSB: %ld MHz\n", gd->bd->bi_busfreq/1000000);
wdenkc7de8292002-11-19 11:04:11 +0000518
519 printf("\n---- Disk summary ----\n");
520 for (i = 0; i < maxdev; i++)
521 {
522 ide = ide_get_dev(i);
523 printf("Device %d: ", i);
524 dev_print(ide);
525 }
526
527/*
528 video_draw_box(SINGLE_BOX, 0x0F, "Test 1", 0, 0,18, 72, 4);
529 video_draw_box(DOUBLE_BOX, 0x0F, "Test 2", 1, 4,10, 50, 6);
530 video_draw_box(DOUBLE_BOX, 0x0F, "Test 3", 0, 40, 3, 20, 5);
531
532 video_draw_text(1, 4, 0x2F, "Highlighted options");
533 video_draw_text(1, 5, 0x0F, "Non-selected option");
534 video_draw_text(1, 6, 0x07, "disabled option");
535*/
536#ifdef EASTEREGG
537 }
538#endif
539}