1
2
3
4
5
6
7
8
9
10
11
12
13#include <linux/module.h>
14#include <linux/kernel.h>
15#include <linux/string.h>
16#include <linux/fb.h>
17#include <linux/svga.h>
18#include <linux/slab.h>
19#include <asm/types.h>
20#include <asm/io.h>
21
22
23
24void svga_wcrt_multi(const struct vga_regset *regset, u32 value) {
25
26 u8 regval, bitval, bitnum;
27
28 while (regset->regnum != VGA_REGSET_END_VAL) {
29 regval = vga_rcrt(NULL, regset->regnum);
30 bitnum = regset->lowbit;
31 while (bitnum <= regset->highbit) {
32 bitval = 1 << bitnum;
33 regval = regval & ~bitval;
34 if (value & 1) regval = regval | bitval;
35 bitnum ++;
36 value = value >> 1;
37 }
38 vga_wcrt(NULL, regset->regnum, regval);
39 regset ++;
40 }
41}
42
43
44void svga_wseq_multi(const struct vga_regset *regset, u32 value) {
45
46 u8 regval, bitval, bitnum;
47
48 while (regset->regnum != VGA_REGSET_END_VAL) {
49 regval = vga_rseq(NULL, regset->regnum);
50 bitnum = regset->lowbit;
51 while (bitnum <= regset->highbit) {
52 bitval = 1 << bitnum;
53 regval = regval & ~bitval;
54 if (value & 1) regval = regval | bitval;
55 bitnum ++;
56 value = value >> 1;
57 }
58 vga_wseq(NULL, regset->regnum, regval);
59 regset ++;
60 }
61}
62
63static unsigned int svga_regset_size(const struct vga_regset *regset)
64{
65 u8 count = 0;
66
67 while (regset->regnum != VGA_REGSET_END_VAL) {
68 count += regset->highbit - regset->lowbit + 1;
69 regset ++;
70 }
71 return 1 << count;
72}
73
74
75
76
77
78
79void svga_set_default_gfx_regs(void)
80{
81
82 vga_wgfx(NULL, VGA_GFX_SR_VALUE, 0x00);
83 vga_wgfx(NULL, VGA_GFX_SR_ENABLE, 0x00);
84 vga_wgfx(NULL, VGA_GFX_COMPARE_VALUE, 0x00);
85 vga_wgfx(NULL, VGA_GFX_DATA_ROTATE, 0x00);
86 vga_wgfx(NULL, VGA_GFX_PLANE_READ, 0x00);
87 vga_wgfx(NULL, VGA_GFX_MODE, 0x00);
88
89
90 vga_wgfx(NULL, VGA_GFX_MISC, 0x05);
91
92 vga_wgfx(NULL, VGA_GFX_COMPARE_MASK, 0x0F);
93 vga_wgfx(NULL, VGA_GFX_BIT_MASK, 0xFF);
94}
95
96
97void svga_set_default_atc_regs(void)
98{
99 u8 count;
100
101 vga_r(NULL, 0x3DA);
102 vga_w(NULL, VGA_ATT_W, 0x00);
103
104
105 for (count = 0; count <= 0xF; count ++)
106 svga_wattr(count, count);
107
108 svga_wattr(VGA_ATC_MODE, 0x01);
109
110 svga_wattr(VGA_ATC_OVERSCAN, 0x00);
111 svga_wattr(VGA_ATC_PLANE_ENABLE, 0x0F);
112 svga_wattr(VGA_ATC_PEL, 0x00);
113 svga_wattr(VGA_ATC_COLOR_PAGE, 0x00);
114
115 vga_r(NULL, 0x3DA);
116 vga_w(NULL, VGA_ATT_W, 0x20);
117}
118
119
120void svga_set_default_seq_regs(void)
121{
122
123 vga_wseq(NULL, VGA_SEQ_CLOCK_MODE, VGA_SR01_CHAR_CLK_8DOTS);
124 vga_wseq(NULL, VGA_SEQ_PLANE_WRITE, VGA_SR02_ALL_PLANES);
125 vga_wseq(NULL, VGA_SEQ_CHARACTER_MAP, 0x00);
126
127 vga_wseq(NULL, VGA_SEQ_MEMORY_MODE, VGA_SR04_EXT_MEM | VGA_SR04_SEQ_MODE);
128}
129
130
131void svga_set_default_crt_regs(void)
132{
133
134 svga_wcrt_mask(0x03, 0x80, 0x80);
135 vga_wcrt(NULL, VGA_CRTC_PRESET_ROW, 0);
136 svga_wcrt_mask(VGA_CRTC_MAX_SCAN, 0, 0x1F);
137 vga_wcrt(NULL, VGA_CRTC_UNDERLINE, 0);
138 vga_wcrt(NULL, VGA_CRTC_MODE, 0xE3);
139}
140
141void svga_set_textmode_vga_regs(void)
142{
143
144 vga_wseq(NULL, VGA_SEQ_MEMORY_MODE, VGA_SR04_EXT_MEM);
145 vga_wseq(NULL, VGA_SEQ_PLANE_WRITE, 0x03);
146
147 vga_wcrt(NULL, VGA_CRTC_MAX_SCAN, 0x0f);
148 vga_wcrt(NULL, VGA_CRTC_UNDERLINE, 0x1f);
149 svga_wcrt_mask(VGA_CRTC_MODE, 0x23, 0x7f);
150
151 vga_wcrt(NULL, VGA_CRTC_CURSOR_START, 0x0d);
152 vga_wcrt(NULL, VGA_CRTC_CURSOR_END, 0x0e);
153 vga_wcrt(NULL, VGA_CRTC_CURSOR_HI, 0x00);
154 vga_wcrt(NULL, VGA_CRTC_CURSOR_LO, 0x00);
155
156 vga_wgfx(NULL, VGA_GFX_MODE, 0x10);
157 vga_wgfx(NULL, VGA_GFX_MISC, 0x0E);
158 vga_wgfx(NULL, VGA_GFX_COMPARE_MASK, 0x00);
159
160 vga_r(NULL, 0x3DA);
161 vga_w(NULL, VGA_ATT_W, 0x00);
162
163 svga_wattr(0x10, 0x0C);
164 svga_wattr(0x13, 0x08);
165
166 vga_r(NULL, 0x3DA);
167 vga_w(NULL, VGA_ATT_W, 0x20);
168}
169
170#if 0
171void svga_dump_var(struct fb_var_screeninfo *var, int node)
172{
173 pr_debug("fb%d: var.vmode : 0x%X\n", node, var->vmode);
174 pr_debug("fb%d: var.xres : %d\n", node, var->xres);
175 pr_debug("fb%d: var.yres : %d\n", node, var->yres);
176 pr_debug("fb%d: var.bits_per_pixel: %d\n", node, var->bits_per_pixel);
177 pr_debug("fb%d: var.xres_virtual : %d\n", node, var->xres_virtual);
178 pr_debug("fb%d: var.yres_virtual : %d\n", node, var->yres_virtual);
179 pr_debug("fb%d: var.left_margin : %d\n", node, var->left_margin);
180 pr_debug("fb%d: var.right_margin : %d\n", node, var->right_margin);
181 pr_debug("fb%d: var.upper_margin : %d\n", node, var->upper_margin);
182 pr_debug("fb%d: var.lower_margin : %d\n", node, var->lower_margin);
183 pr_debug("fb%d: var.hsync_len : %d\n", node, var->hsync_len);
184 pr_debug("fb%d: var.vsync_len : %d\n", node, var->vsync_len);
185 pr_debug("fb%d: var.sync : 0x%X\n", node, var->sync);
186 pr_debug("fb%d: var.pixclock : %d\n\n", node, var->pixclock);
187}
188#endif
189
190
191
192
193
194void svga_settile(struct fb_info *info, struct fb_tilemap *map)
195{
196 const u8 *font = map->data;
197 u8 __iomem *fb = (u8 __iomem *)info->screen_base;
198 int i, c;
199
200 if ((map->width != 8) || (map->height != 16) ||
201 (map->depth != 1) || (map->length != 256)) {
202 printk(KERN_ERR "fb%d: unsupported font parameters: width %d, height %d, depth %d, length %d\n",
203 info->node, map->width, map->height, map->depth, map->length);
204 return;
205 }
206
207 fb += 2;
208 for (c = 0; c < map->length; c++) {
209 for (i = 0; i < map->height; i++) {
210 fb_writeb(font[i], fb + i * 4);
211
212 }
213 fb += 128;
214 font += map->height;
215 }
216}
217
218
219void svga_tilecopy(struct fb_info *info, struct fb_tilearea *area)
220{
221 int dx, dy;
222
223 int colstride = 1 << (info->fix.type_aux & FB_AUX_TEXT_SVGA_MASK);
224 int rowstride = colstride * (info->var.xres_virtual / 8);
225 u16 __iomem *fb = (u16 __iomem *) info->screen_base;
226 u16 __iomem *src, *dst;
227
228 if ((area->sy > area->dy) ||
229 ((area->sy == area->dy) && (area->sx > area->dx))) {
230 src = fb + area->sx * colstride + area->sy * rowstride;
231 dst = fb + area->dx * colstride + area->dy * rowstride;
232 } else {
233 src = fb + (area->sx + area->width - 1) * colstride
234 + (area->sy + area->height - 1) * rowstride;
235 dst = fb + (area->dx + area->width - 1) * colstride
236 + (area->dy + area->height - 1) * rowstride;
237
238 colstride = -colstride;
239 rowstride = -rowstride;
240 }
241
242 for (dy = 0; dy < area->height; dy++) {
243 u16 __iomem *src2 = src;
244 u16 __iomem *dst2 = dst;
245 for (dx = 0; dx < area->width; dx++) {
246 fb_writew(fb_readw(src2), dst2);
247
248 src2 += colstride;
249 dst2 += colstride;
250 }
251 src += rowstride;
252 dst += rowstride;
253 }
254}
255
256
257void svga_tilefill(struct fb_info *info, struct fb_tilerect *rect)
258{
259 int dx, dy;
260 int colstride = 2 << (info->fix.type_aux & FB_AUX_TEXT_SVGA_MASK);
261 int rowstride = colstride * (info->var.xres_virtual / 8);
262 int attr = (0x0F & rect->bg) << 4 | (0x0F & rect->fg);
263 u8 __iomem *fb = (u8 __iomem *)info->screen_base;
264 fb += rect->sx * colstride + rect->sy * rowstride;
265
266 for (dy = 0; dy < rect->height; dy++) {
267 u8 __iomem *fb2 = fb;
268 for (dx = 0; dx < rect->width; dx++) {
269 fb_writeb(rect->index, fb2);
270 fb_writeb(attr, fb2 + 1);
271 fb2 += colstride;
272 }
273 fb += rowstride;
274 }
275}
276
277
278void svga_tileblit(struct fb_info *info, struct fb_tileblit *blit)
279{
280 int dx, dy, i;
281 int colstride = 2 << (info->fix.type_aux & FB_AUX_TEXT_SVGA_MASK);
282 int rowstride = colstride * (info->var.xres_virtual / 8);
283 int attr = (0x0F & blit->bg) << 4 | (0x0F & blit->fg);
284 u8 __iomem *fb = (u8 __iomem *)info->screen_base;
285 fb += blit->sx * colstride + blit->sy * rowstride;
286
287 i=0;
288 for (dy=0; dy < blit->height; dy ++) {
289 u8 __iomem *fb2 = fb;
290 for (dx = 0; dx < blit->width; dx ++) {
291 fb_writeb(blit->indices[i], fb2);
292 fb_writeb(attr, fb2 + 1);
293 fb2 += colstride;
294 i ++;
295 if (i == blit->length) return;
296 }
297 fb += rowstride;
298 }
299
300}
301
302
303void svga_tilecursor(struct fb_info *info, struct fb_tilecursor *cursor)
304{
305 u8 cs = 0x0d;
306 u8 ce = 0x0e;
307 u16 pos = cursor->sx + (info->var.xoffset / 8)
308 + (cursor->sy + (info->var.yoffset / 16))
309 * (info->var.xres_virtual / 8);
310
311 if (! cursor -> mode)
312 return;
313
314 svga_wcrt_mask(0x0A, 0x20, 0x20);
315
316 if (cursor -> shape == FB_TILE_CURSOR_NONE)
317 return;
318
319 switch (cursor -> shape) {
320 case FB_TILE_CURSOR_UNDERLINE:
321 cs = 0x0d;
322 break;
323 case FB_TILE_CURSOR_LOWER_THIRD:
324 cs = 0x09;
325 break;
326 case FB_TILE_CURSOR_LOWER_HALF:
327 cs = 0x07;
328 break;
329 case FB_TILE_CURSOR_TWO_THIRDS:
330 cs = 0x05;
331 break;
332 case FB_TILE_CURSOR_BLOCK:
333 cs = 0x01;
334 break;
335 }
336
337
338 vga_wcrt(NULL, 0x0E, pos >> 8);
339 vga_wcrt(NULL, 0x0F, pos & 0xFF);
340
341 vga_wcrt(NULL, 0x0B, ce);
342 vga_wcrt(NULL, 0x0A, cs);
343}
344
345int svga_get_tilemax(struct fb_info *info)
346{
347 return 256;
348}
349
350
351
352void svga_get_caps(struct fb_info *info, struct fb_blit_caps *caps,
353 struct fb_var_screeninfo *var)
354{
355 if (var->bits_per_pixel == 0) {
356
357 caps->x = 1 << (8 - 1);
358 caps->y = 1 << (16 - 1);
359 caps->len = 256;
360 } else {
361 caps->x = (var->bits_per_pixel == 4) ? 1 << (8 - 1) : ~(u32)0;
362 caps->y = ~(u32)0;
363 caps->len = ~(u32)0;
364 }
365}
366EXPORT_SYMBOL(svga_get_caps);
367
368
369
370
371
372
373
374
375
376
377static inline u32 abs_diff(u32 a, u32 b)
378{
379 return (a > b) ? (a - b) : (b - a);
380}
381
382int svga_compute_pll(const struct svga_pll *pll, u32 f_wanted, u16 *m, u16 *n, u16 *r, int node)
383{
384 u16 am, an, ar;
385 u32 f_vco, f_current, delta_current, delta_best;
386
387 pr_debug("fb%d: ideal frequency: %d kHz\n", node, (unsigned int) f_wanted);
388
389 ar = pll->r_max;
390 f_vco = f_wanted << ar;
391
392
393 if ((f_vco >> ar) != f_wanted)
394 return -EINVAL;
395
396
397
398
399 while ((ar > pll->r_min) && (f_vco > pll->f_vco_max)) {
400 ar--;
401 f_vco = f_vco >> 1;
402 }
403
404
405 if ((f_vco < pll->f_vco_min) || (f_vco > pll->f_vco_max))
406 return -EINVAL;
407
408 delta_best = 0xFFFFFFFF;
409 *m = 0;
410 *n = 0;
411 *r = ar;
412
413 am = pll->m_min;
414 an = pll->n_min;
415
416 while ((am <= pll->m_max) && (an <= pll->n_max)) {
417 f_current = (pll->f_base * am) / an;
418 delta_current = abs_diff (f_current, f_vco);
419
420 if (delta_current < delta_best) {
421 delta_best = delta_current;
422 *m = am;
423 *n = an;
424 }
425
426 if (f_current <= f_vco) {
427 am ++;
428 } else {
429 an ++;
430 }
431 }
432
433 f_current = (pll->f_base * *m) / *n;
434 pr_debug("fb%d: found frequency: %d kHz (VCO %d kHz)\n", node, (int) (f_current >> ar), (int) f_current);
435 pr_debug("fb%d: m = %d n = %d r = %d\n", node, (unsigned int) *m, (unsigned int) *n, (unsigned int) *r);
436 return 0;
437}
438
439
440
441
442
443
444int svga_check_timings(const struct svga_timing_regs *tm, struct fb_var_screeninfo *var, int node)
445{
446 u32 value;
447
448 var->xres = (var->xres+7)&~7;
449 var->left_margin = (var->left_margin+7)&~7;
450 var->right_margin = (var->right_margin+7)&~7;
451 var->hsync_len = (var->hsync_len+7)&~7;
452
453
454 value = var->xres + var->left_margin + var->right_margin + var->hsync_len;
455 if (((value / 8) - 5) >= svga_regset_size (tm->h_total_regs))
456 return -EINVAL;
457
458
459 value = var->xres;
460 if (((value / 8) - 1) >= svga_regset_size (tm->h_display_regs))
461 return -EINVAL;
462 if (((value / 8) - 1) >= svga_regset_size (tm->h_blank_start_regs))
463 return -EINVAL;
464
465
466 value = var->xres + var->right_margin;
467 if (((value / 8) - 1) >= svga_regset_size (tm->h_sync_start_regs))
468 return -EINVAL;
469
470
471 value = var->left_margin + var->right_margin + var->hsync_len;
472 if ((value == 0) || ((value / 8) >= svga_regset_size (tm->h_blank_end_regs)))
473 return -EINVAL;
474
475
476 value = var->hsync_len;
477 if ((value == 0) || ((value / 8) >= svga_regset_size (tm->h_sync_end_regs)))
478 return -EINVAL;
479
480
481 value = var->yres + var->upper_margin + var->lower_margin + var->vsync_len;
482 if ((value - 1) >= svga_regset_size(tm->v_total_regs))
483 return -EINVAL;
484
485
486 value = var->yres;
487 if ((value - 1) >= svga_regset_size(tm->v_display_regs))
488 return -EINVAL;
489 if ((value - 1) >= svga_regset_size(tm->v_blank_start_regs))
490 return -EINVAL;
491
492
493 value = var->yres + var->lower_margin;
494 if ((value - 1) >= svga_regset_size(tm->v_sync_start_regs))
495 return -EINVAL;
496
497
498 value = var->upper_margin + var->lower_margin + var->vsync_len;
499 if ((value == 0) || (value >= svga_regset_size (tm->v_blank_end_regs)))
500 return -EINVAL;
501
502
503 value = var->vsync_len;
504 if ((value == 0) || (value >= svga_regset_size (tm->v_sync_end_regs)))
505 return -EINVAL;
506
507 return 0;
508}
509
510
511void svga_set_timings(const struct svga_timing_regs *tm, struct fb_var_screeninfo *var,
512 u32 hmul, u32 hdiv, u32 vmul, u32 vdiv, u32 hborder, int node)
513{
514 u8 regval;
515 u32 value;
516
517 value = var->xres + var->left_margin + var->right_margin + var->hsync_len;
518 value = (value * hmul) / hdiv;
519 pr_debug("fb%d: horizontal total : %d\n", node, value);
520 svga_wcrt_multi(tm->h_total_regs, (value / 8) - 5);
521
522 value = var->xres;
523 value = (value * hmul) / hdiv;
524 pr_debug("fb%d: horizontal display : %d\n", node, value);
525 svga_wcrt_multi(tm->h_display_regs, (value / 8) - 1);
526
527 value = var->xres;
528 value = (value * hmul) / hdiv;
529 pr_debug("fb%d: horizontal blank start: %d\n", node, value);
530 svga_wcrt_multi(tm->h_blank_start_regs, (value / 8) - 1 + hborder);
531
532 value = var->xres + var->left_margin + var->right_margin + var->hsync_len;
533 value = (value * hmul) / hdiv;
534 pr_debug("fb%d: horizontal blank end : %d\n", node, value);
535 svga_wcrt_multi(tm->h_blank_end_regs, (value / 8) - 1 - hborder);
536
537 value = var->xres + var->right_margin;
538 value = (value * hmul) / hdiv;
539 pr_debug("fb%d: horizontal sync start : %d\n", node, value);
540 svga_wcrt_multi(tm->h_sync_start_regs, (value / 8));
541
542 value = var->xres + var->right_margin + var->hsync_len;
543 value = (value * hmul) / hdiv;
544 pr_debug("fb%d: horizontal sync end : %d\n", node, value);
545 svga_wcrt_multi(tm->h_sync_end_regs, (value / 8));
546
547 value = var->yres + var->upper_margin + var->lower_margin + var->vsync_len;
548 value = (value * vmul) / vdiv;
549 pr_debug("fb%d: vertical total : %d\n", node, value);
550 svga_wcrt_multi(tm->v_total_regs, value - 2);
551
552 value = var->yres;
553 value = (value * vmul) / vdiv;
554 pr_debug("fb%d: vertical display : %d\n", node, value);
555 svga_wcrt_multi(tm->v_display_regs, value - 1);
556
557 value = var->yres;
558 value = (value * vmul) / vdiv;
559 pr_debug("fb%d: vertical blank start : %d\n", node, value);
560 svga_wcrt_multi(tm->v_blank_start_regs, value);
561
562 value = var->yres + var->upper_margin + var->lower_margin + var->vsync_len;
563 value = (value * vmul) / vdiv;
564 pr_debug("fb%d: vertical blank end : %d\n", node, value);
565 svga_wcrt_multi(tm->v_blank_end_regs, value - 2);
566
567 value = var->yres + var->lower_margin;
568 value = (value * vmul) / vdiv;
569 pr_debug("fb%d: vertical sync start : %d\n", node, value);
570 svga_wcrt_multi(tm->v_sync_start_regs, value);
571
572 value = var->yres + var->lower_margin + var->vsync_len;
573 value = (value * vmul) / vdiv;
574 pr_debug("fb%d: vertical sync end : %d\n", node, value);
575 svga_wcrt_multi(tm->v_sync_end_regs, value);
576
577
578
579 regval = vga_r(NULL, VGA_MIS_R);
580 if (var->sync & FB_SYNC_HOR_HIGH_ACT) {
581 pr_debug("fb%d: positive horizontal sync\n", node);
582 regval = regval & ~0x80;
583 } else {
584 pr_debug("fb%d: negative horizontal sync\n", node);
585 regval = regval | 0x80;
586 }
587 if (var->sync & FB_SYNC_VERT_HIGH_ACT) {
588 pr_debug("fb%d: positive vertical sync\n", node);
589 regval = regval & ~0x40;
590 } else {
591 pr_debug("fb%d: negative vertical sync\n\n", node);
592 regval = regval | 0x40;
593 }
594 vga_w(NULL, VGA_MIS_W, regval);
595}
596
597
598
599
600
601static inline int match_format(const struct svga_fb_format *frm,
602 struct fb_var_screeninfo *var)
603{
604 int i = 0;
605 int stored = -EINVAL;
606
607 while (frm->bits_per_pixel != SVGA_FORMAT_END_VAL)
608 {
609 if ((var->bits_per_pixel == frm->bits_per_pixel) &&
610 (var->red.length <= frm->red.length) &&
611 (var->green.length <= frm->green.length) &&
612 (var->blue.length <= frm->blue.length) &&
613 (var->transp.length <= frm->transp.length) &&
614 (var->nonstd == frm->nonstd))
615 return i;
616 if (var->bits_per_pixel == frm->bits_per_pixel)
617 stored = i;
618 i++;
619 frm++;
620 }
621 return stored;
622}
623
624int svga_match_format(const struct svga_fb_format *frm,
625 struct fb_var_screeninfo *var,
626 struct fb_fix_screeninfo *fix)
627{
628 int i = match_format(frm, var);
629
630 if (i >= 0) {
631 var->bits_per_pixel = frm[i].bits_per_pixel;
632 var->red = frm[i].red;
633 var->green = frm[i].green;
634 var->blue = frm[i].blue;
635 var->transp = frm[i].transp;
636 var->nonstd = frm[i].nonstd;
637 if (fix != NULL) {
638 fix->type = frm[i].type;
639 fix->type_aux = frm[i].type_aux;
640 fix->visual = frm[i].visual;
641 fix->xpanstep = frm[i].xpanstep;
642 }
643 }
644
645 return i;
646}
647
648
649EXPORT_SYMBOL(svga_wcrt_multi);
650EXPORT_SYMBOL(svga_wseq_multi);
651
652EXPORT_SYMBOL(svga_set_default_gfx_regs);
653EXPORT_SYMBOL(svga_set_default_atc_regs);
654EXPORT_SYMBOL(svga_set_default_seq_regs);
655EXPORT_SYMBOL(svga_set_default_crt_regs);
656EXPORT_SYMBOL(svga_set_textmode_vga_regs);
657
658EXPORT_SYMBOL(svga_settile);
659EXPORT_SYMBOL(svga_tilecopy);
660EXPORT_SYMBOL(svga_tilefill);
661EXPORT_SYMBOL(svga_tileblit);
662EXPORT_SYMBOL(svga_tilecursor);
663EXPORT_SYMBOL(svga_get_tilemax);
664
665EXPORT_SYMBOL(svga_compute_pll);
666EXPORT_SYMBOL(svga_check_timings);
667EXPORT_SYMBOL(svga_set_timings);
668EXPORT_SYMBOL(svga_match_format);
669
670MODULE_AUTHOR("Ondrej Zajicek <santiago@crfreenet.org>");
671MODULE_DESCRIPTION("Common utility functions for VGA-based graphics cards");
672MODULE_LICENSE("GPL");
673
