1 /* $NetBSD: cg4.c,v 1.37 2007/03/12 12:03:18 tsutsui Exp $ */ 2 3 /* 4 * Copyright (c) 1992, 1993 5 * The Regents of the University of California. All rights reserved. 6 * 7 * This software was developed by the Computer Systems Engineering group 8 * at Lawrence Berkeley Laboratory under DARPA contract BG 91-66 and 9 * contributed to Berkeley. 10 * 11 * All advertising materials mentioning features or use of this software 12 * must display the following acknowledgement: 13 * This product includes software developed by the University of 14 * California, Lawrence Berkeley Laboratory. 15 * 16 * Redistribution and use in source and binary forms, with or without 17 * modification, are permitted provided that the following conditions 18 * are met: 19 * 1. Redistributions of source code must retain the above copyright 20 * notice, this list of conditions and the following disclaimer. 21 * 2. Redistributions in binary form must reproduce the above copyright 22 * notice, this list of conditions and the following disclaimer in the 23 * documentation and/or other materials provided with the distribution. 24 * 3. Neither the name of the University nor the names of its contributors 25 * may be used to endorse or promote products derived from this software 26 * without specific prior written permission. 27 * 28 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 29 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 30 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 31 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 32 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 33 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 34 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 35 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 36 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 37 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 38 * SUCH DAMAGE. 39 * 40 * from: @(#)cgthree.c 8.2 (Berkeley) 10/30/93 41 */ 42 43 /* 44 * color display (cg4) driver. 45 * 46 * Credits, history: 47 * Gordon Ross created this driver based on the cg3 driver from 48 * the sparc port as distributed in BSD 4.4 Lite, but included 49 * support for only the "type B" adapter (Brooktree DACs). 50 * Ezra Story added support for the "type A" (AMD DACs). 51 * 52 * Todo: 53 * Make this driver handle video interrupts. 54 * Defer colormap updates to vertical retrace interrupts. 55 */ 56 57 #include <sys/cdefs.h> 58 __KERNEL_RCSID(0, "$NetBSD: cg4.c,v 1.37 2007/03/12 12:03:18 tsutsui Exp $"); 59 60 #include <sys/param.h> 61 #include <sys/systm.h> 62 #include <sys/conf.h> 63 #include <sys/device.h> 64 #include <sys/ioctl.h> 65 #include <sys/malloc.h> 66 #include <sys/mman.h> 67 #include <sys/proc.h> 68 #include <sys/tty.h> 69 70 #include <uvm/uvm_extern.h> 71 72 #include <machine/autoconf.h> 73 #include <machine/cpu.h> 74 #include <dev/sun/fbio.h> 75 #include <machine/idprom.h> 76 #include <machine/pmap.h> 77 78 #include <sun3/dev/fbvar.h> 79 #include <sun3/dev/btreg.h> 80 #include <sun3/dev/cg4reg.h> 81 #include <sun3/dev/p4reg.h> 82 83 union bt_cmap_u { 84 u_char btcm_char[256 * 3]; /* raw data */ 85 u_char btcm_rgb[256][3]; /* 256 R/G/B entries */ 86 u_int btcm_int[256 * 3 / 4]; /* the way the chip gets loaded */ 87 }; 88 89 #define CG4_TYPE_A 0 /* AMD DACs */ 90 #define CG4_TYPE_B 1 /* Brooktree DACs */ 91 92 #define CG4_MMAP_SIZE (CG4_OVERLAY_SIZE + CG4_ENABLE_SIZE + CG4_PIXMAP_SIZE) 93 94 #define CMAP_SIZE 256 95 struct soft_cmap { 96 u_char r[CMAP_SIZE]; 97 u_char g[CMAP_SIZE]; 98 u_char b[CMAP_SIZE]; 99 }; 100 101 /* per-display variables */ 102 struct cg4_softc { 103 struct device sc_dev; /* base device */ 104 struct fbdevice sc_fb; /* frame buffer device */ 105 int sc_cg4type; /* A or B */ 106 int sc_pa_overlay; /* phys. addr. of overlay plane */ 107 int sc_pa_enable; /* phys. addr. of enable plane */ 108 int sc_pa_pixmap; /* phys. addr. of color plane */ 109 int sc_video_on; /* zero if blanked */ 110 void *sc_va_cmap; /* Colormap h/w (mapped KVA) */ 111 void *sc_btcm; /* Soft cmap, Brooktree format */ 112 void (*sc_ldcmap)(struct cg4_softc *); 113 struct soft_cmap sc_cmap; /* Soft cmap, user format */ 114 }; 115 116 /* autoconfiguration driver */ 117 static void cg4attach(struct device *, struct device *, void *); 118 static int cg4match(struct device *, struct cfdata *, void *); 119 120 CFATTACH_DECL(cgfour, sizeof(struct cg4_softc), 121 cg4match, cg4attach, NULL, NULL); 122 123 extern struct cfdriver cgfour_cd; 124 125 dev_type_open(cg4open); 126 dev_type_ioctl(cg4ioctl); 127 dev_type_mmap(cg4mmap); 128 129 const struct cdevsw cgfour_cdevsw = { 130 cg4open, nullclose, noread, nowrite, cg4ioctl, 131 nostop, notty, nopoll, cg4mmap, nokqfilter, 132 }; 133 134 static int cg4gattr (struct fbdevice *, void *); 135 static int cg4gvideo (struct fbdevice *, void *); 136 static int cg4svideo (struct fbdevice *, void *); 137 static int cg4getcmap(struct fbdevice *, void *); 138 static int cg4putcmap(struct fbdevice *, void *); 139 140 #ifdef _SUN3_ 141 static void cg4a_init (struct cg4_softc *); 142 static void cg4a_ldcmap(struct cg4_softc *); 143 #endif /* SUN3 */ 144 145 static void cg4b_init (struct cg4_softc *); 146 static void cg4b_ldcmap(struct cg4_softc *); 147 148 static struct fbdriver cg4_fbdriver = { 149 cg4open, nullclose, cg4mmap, nokqfilter, cg4gattr, 150 cg4gvideo, cg4svideo, 151 cg4getcmap, cg4putcmap }; 152 153 /* 154 * Match a cg4. 155 */ 156 static int 157 cg4match(struct device *parent, struct cfdata *cf, void *args) 158 { 159 struct confargs *ca = args; 160 int mid, p4id, peekval, tmp; 161 void *p4reg; 162 163 /* No default address support. */ 164 if (ca->ca_paddr == -1) 165 return (0); 166 167 /* 168 * Slight hack here: The low four bits of the 169 * config flags, if set, restrict the match to 170 * that machine "implementation" only. 171 */ 172 mid = cf->cf_flags & IDM_IMPL_MASK; 173 if (mid && (mid != (cpu_machine_id & IDM_IMPL_MASK))) 174 return (0); 175 176 /* 177 * The config flag 0x10 if set means we are 178 * looking for a Type A board (3/110). 179 */ 180 if (cf->cf_flags & 0x10) { 181 #ifdef _SUN3_ 182 /* Type A: Check for AMD RAMDACs in control space. */ 183 if (bus_peek(BUS_OBIO, CG4A_OBIO_CMAP, 1) == -1) 184 return (0); 185 /* Check for the overlay plane. */ 186 tmp = ca->ca_paddr + CG4A_OFF_OVERLAY; 187 if (bus_peek(ca->ca_bustype, tmp, 1) == -1) 188 return (0); 189 /* OK, it looks like a Type A. */ 190 return (1); 191 #else /* SUN3 */ 192 /* Only the Sun3/110 ever has a type A. */ 193 return (0); 194 #endif /* SUN3 */ 195 } 196 197 /* 198 * From here on, it is a type B or nothing. 199 * The config flag 0x20 if set means there 200 * is no P4 register. (bus error) 201 */ 202 if ((cf->cf_flags & 0x20) == 0) { 203 p4reg = bus_tmapin(ca->ca_bustype, ca->ca_paddr); 204 peekval = peek_long(p4reg); 205 p4id = (peekval == -1) ? 206 P4_NOTFOUND : fb_pfour_id(p4reg); 207 bus_tmapout(p4reg); 208 if (peekval == -1) 209 return (0); 210 if (p4id != P4_ID_COLOR8P1) { 211 #ifdef DEBUG 212 printf("cgfour at 0x%lx match p4id=0x%x fails\n", 213 ca->ca_paddr, p4id & 0xFF); 214 #endif 215 return (0); 216 } 217 } 218 219 /* 220 * Check for CMAP hardware and overlay plane. 221 */ 222 tmp = ca->ca_paddr + CG4B_OFF_CMAP; 223 if (bus_peek(ca->ca_bustype, tmp, 4) == -1) 224 return (0); 225 tmp = ca->ca_paddr + CG4B_OFF_OVERLAY; 226 if (bus_peek(ca->ca_bustype, tmp, 1) == -1) 227 return (0); 228 229 return (1); 230 } 231 232 /* 233 * Attach a display. We need to notice if it is the console, too. 234 */ 235 static void 236 cg4attach(struct device *parent, struct device *self, void *args) 237 { 238 struct cg4_softc *sc = (struct cg4_softc *)self; 239 struct fbdevice *fb = &sc->sc_fb; 240 struct confargs *ca = args; 241 struct fbtype *fbt; 242 int tmp; 243 244 fbt = &fb->fb_fbtype; 245 fbt->fb_type = FBTYPE_SUN4COLOR; 246 fbt->fb_width = 1152; /* default - see below */ 247 fbt->fb_height = 900; /* default - see below */ 248 fbt->fb_depth = 8; 249 fbt->fb_cmsize = 256; 250 fbt->fb_size = CG4_MMAP_SIZE; 251 fb->fb_driver = &cg4_fbdriver; 252 fb->fb_private = sc; 253 fb->fb_name = sc->sc_dev.dv_xname; 254 fb->fb_flags = device_cfdata(&sc->sc_dev)->cf_flags; 255 256 /* 257 * The config flag 0x10 if set means we are 258 * attaching a Type A (3/110) which has the 259 * AMD RAMDACs in control space, and no P4. 260 */ 261 if (fb->fb_flags & 0x10) { 262 #ifdef _SUN3_ 263 sc->sc_cg4type = CG4_TYPE_A; 264 sc->sc_ldcmap = cg4a_ldcmap; 265 sc->sc_pa_overlay = ca->ca_paddr + CG4A_OFF_OVERLAY; 266 sc->sc_pa_enable = ca->ca_paddr + CG4A_OFF_ENABLE; 267 sc->sc_pa_pixmap = ca->ca_paddr + CG4A_OFF_PIXMAP; 268 sc->sc_va_cmap = bus_mapin(BUS_OBIO, CG4A_OBIO_CMAP, 269 sizeof(struct amd_regs)); 270 cg4a_init(sc); 271 #else /* SUN3 */ 272 panic("cgfour flags 0x10"); 273 #endif /* SUN3 */ 274 } else { 275 sc->sc_cg4type = CG4_TYPE_B; 276 sc->sc_ldcmap = cg4b_ldcmap; 277 sc->sc_pa_overlay = ca->ca_paddr + CG4B_OFF_OVERLAY; 278 sc->sc_pa_enable = ca->ca_paddr + CG4B_OFF_ENABLE; 279 sc->sc_pa_pixmap = ca->ca_paddr + CG4B_OFF_PIXMAP; 280 tmp = ca->ca_paddr + CG4B_OFF_CMAP; 281 sc->sc_va_cmap = bus_mapin(ca->ca_bustype, tmp, 282 sizeof(struct bt_regs)); 283 cg4b_init(sc); 284 } 285 286 if ((fb->fb_flags & 0x20) == 0) { 287 /* It is supposed to have a P4 register. */ 288 fb->fb_pfour = bus_mapin(ca->ca_bustype, ca->ca_paddr, 4); 289 } 290 291 /* 292 * Determine width and height as follows: 293 * If it has a P4 register, use that; 294 * else if unit==0, use the EEPROM size, 295 * else make our best guess. 296 */ 297 if (fb->fb_pfour) 298 fb_pfour_setsize(fb); 299 /* XXX device_unit() abuse */ 300 else if (device_unit(&sc->sc_dev) == 0) 301 fb_eeprom_setsize(fb); 302 else { 303 /* Guess based on machine ID. */ 304 switch (cpu_machine_id) { 305 default: 306 /* Leave the defaults set above. */ 307 break; 308 } 309 } 310 printf(" (%dx%d)\n", fbt->fb_width, fbt->fb_height); 311 312 /* 313 * Make sure video is on. This driver uses a 314 * black colormap to blank the screen, so if 315 * there is any global enable, set it here. 316 */ 317 tmp = 1; 318 cg4svideo(fb, &tmp); 319 if (fb->fb_pfour) 320 fb_pfour_set_video(fb, 1); 321 else 322 enable_video(1); 323 324 /* Let /dev/fb know we are here. */ 325 fb_attach(fb, 4); 326 } 327 328 int 329 cg4open(dev_t dev, int flags, int mode, struct lwp *l) 330 { 331 int unit = minor(dev); 332 333 if (unit >= cgfour_cd.cd_ndevs || cgfour_cd.cd_devs[unit] == NULL) 334 return (ENXIO); 335 return (0); 336 } 337 338 int 339 cg4ioctl(dev_t dev, u_long cmd, void *data, int flags, struct lwp *l) 340 { 341 struct cg4_softc *sc = cgfour_cd.cd_devs[minor(dev)]; 342 343 return (fbioctlfb(&sc->sc_fb, cmd, data)); 344 } 345 346 /* 347 * Return the address that would map the given device at the given 348 * offset, allowing for the given protection, or return -1 for error. 349 * 350 * X11 expects its mmap'd region to look like this: 351 * 128k overlay data memory 352 * 128k overlay enable bitmap 353 * 1024k color memory 354 * 355 * The hardware looks completely different. 356 */ 357 paddr_t 358 cg4mmap(dev_t dev, off_t off, int prot) 359 { 360 struct cg4_softc *sc = cgfour_cd.cd_devs[minor(dev)]; 361 int physbase; 362 363 if (off & PGOFSET) 364 panic("cg4mmap"); 365 366 if ((off < 0) || (off >= CG4_MMAP_SIZE)) 367 return (-1); 368 369 if (off < 0x40000) { 370 if (off < 0x20000) { 371 physbase = sc->sc_pa_overlay; 372 } else { 373 /* enable plane */ 374 off -= 0x20000; 375 physbase = sc->sc_pa_enable; 376 } 377 } else { 378 /* pixel map */ 379 off -= 0x40000; 380 physbase = sc->sc_pa_pixmap; 381 } 382 383 /* 384 * I turned on PMAP_NC here to disable the cache as I was 385 * getting horribly broken behaviour without it. 386 */ 387 return ((physbase + off) | PMAP_NC); 388 } 389 390 /* 391 * Internal ioctl functions. 392 */ 393 394 /* FBIOGATTR: */ 395 static int 396 cg4gattr(struct fbdevice *fb, void *data) 397 { 398 struct fbgattr *fba = data; 399 400 fba->real_type = fb->fb_fbtype.fb_type; 401 fba->owner = 0; /* XXX - TIOCCONS stuff? */ 402 fba->fbtype = fb->fb_fbtype; 403 fba->sattr.flags = 0; 404 fba->sattr.emu_type = fb->fb_fbtype.fb_type; 405 fba->sattr.dev_specific[0] = -1; 406 fba->emu_types[0] = fb->fb_fbtype.fb_type; 407 fba->emu_types[1] = -1; 408 return (0); 409 } 410 411 /* FBIOGVIDEO: */ 412 static int 413 cg4gvideo(struct fbdevice *fb, void *data) 414 { 415 struct cg4_softc *sc = fb->fb_private; 416 int *on = data; 417 418 *on = sc->sc_video_on; 419 return (0); 420 } 421 422 /* FBIOSVIDEO: */ 423 static int 424 cg4svideo(struct fbdevice *fb, void *data) 425 { 426 struct cg4_softc *sc = fb->fb_private; 427 int *on = data; 428 429 if (sc->sc_video_on == *on) 430 return (0); 431 sc->sc_video_on = *on; 432 433 (*sc->sc_ldcmap)(sc); 434 return (0); 435 } 436 437 /* 438 * FBIOGETCMAP: 439 * Copy current colormap out to user space. 440 */ 441 static int 442 cg4getcmap(struct fbdevice *fb, void *data) 443 { 444 struct cg4_softc *sc = fb->fb_private; 445 struct soft_cmap *cm = &sc->sc_cmap; 446 struct fbcmap *fbcm = data; 447 u_int start, count; 448 int error; 449 450 start = fbcm->index; 451 count = fbcm->count; 452 if (start >= CMAP_SIZE || count > CMAP_SIZE - start) 453 return (EINVAL); 454 455 if ((error = copyout(&cm->r[start], fbcm->red, count)) != 0) 456 return (error); 457 458 if ((error = copyout(&cm->g[start], fbcm->green, count)) != 0) 459 return (error); 460 461 if ((error = copyout(&cm->b[start], fbcm->blue, count)) != 0) 462 return (error); 463 464 return (0); 465 } 466 467 /* 468 * FBIOPUTCMAP: 469 * Copy new colormap from user space and load. 470 */ 471 static int 472 cg4putcmap(struct fbdevice *fb, void *data) 473 { 474 struct cg4_softc *sc = fb->fb_private; 475 struct soft_cmap *cm = &sc->sc_cmap; 476 struct fbcmap *fbcm = data; 477 u_int start, count; 478 int error; 479 480 start = fbcm->index; 481 count = fbcm->count; 482 if (start >= CMAP_SIZE || count > CMAP_SIZE - start) 483 return (EINVAL); 484 485 if ((error = copyin(fbcm->red, &cm->r[start], count)) != 0) 486 return (error); 487 488 if ((error = copyin(fbcm->green, &cm->g[start], count)) != 0) 489 return (error); 490 491 if ((error = copyin(fbcm->blue, &cm->b[start], count)) != 0) 492 return (error); 493 494 (*sc->sc_ldcmap)(sc); 495 return (0); 496 } 497 498 /**************************************************************** 499 * Routines for the "Type A" hardware 500 ****************************************************************/ 501 #ifdef _SUN3_ 502 503 static void 504 cg4a_init(struct cg4_softc *sc) 505 { 506 volatile struct amd_regs *ar = sc->sc_va_cmap; 507 struct soft_cmap *cm = &sc->sc_cmap; 508 int i; 509 510 /* Grab initial (current) color map. */ 511 for(i = 0; i < 256; i++) { 512 cm->r[i] = ar->r[i]; 513 cm->g[i] = ar->g[i]; 514 cm->b[i] = ar->b[i]; 515 } 516 } 517 518 static void 519 cg4a_ldcmap(struct cg4_softc *sc) 520 { 521 volatile struct amd_regs *ar = sc->sc_va_cmap; 522 struct soft_cmap *cm = &sc->sc_cmap; 523 int i; 524 525 /* 526 * Now blast them into the chip! 527 * XXX Should use retrace interrupt! 528 * Just set a "need load" bit and let the 529 * retrace interrupt handler do the work. 530 */ 531 if (sc->sc_video_on) { 532 /* Update H/W colormap. */ 533 for (i = 0; i < 256; i++) { 534 ar->r[i] = cm->r[i]; 535 ar->g[i] = cm->g[i]; 536 ar->b[i] = cm->b[i]; 537 } 538 } else { 539 /* Clear H/W colormap. */ 540 for (i = 0; i < 256; i++) { 541 ar->r[i] = 0; 542 ar->g[i] = 0; 543 ar->b[i] = 0; 544 } 545 } 546 } 547 #endif /* SUN3 */ 548 549 /**************************************************************** 550 * Routines for the "Type B" hardware 551 ****************************************************************/ 552 553 static void 554 cg4b_init(struct cg4_softc *sc) 555 { 556 volatile struct bt_regs *bt = sc->sc_va_cmap; 557 struct soft_cmap *cm = &sc->sc_cmap; 558 union bt_cmap_u *btcm; 559 int i; 560 561 /* Need a buffer for colormap format translation. */ 562 btcm = malloc(sizeof(*btcm), M_DEVBUF, M_WAITOK); 563 sc->sc_btcm = btcm; 564 565 /* 566 * BT458 chip initialization as described in Brooktree's 567 * 1993 Graphics and Imaging Product Databook (DB004-1/93). 568 * 569 * It appears that the 3/60 uses the low byte, and the 3/80 570 * uses the high byte, while both ignore the other bytes. 571 * Writing same value to all bytes works on both. 572 */ 573 bt->bt_addr = 0x04040404; /* select read mask register */ 574 bt->bt_ctrl = ~0; /* all planes on */ 575 bt->bt_addr = 0x05050505; /* select blink mask register */ 576 bt->bt_ctrl = 0; /* all planes non-blinking */ 577 bt->bt_addr = 0x06060606; /* select command register */ 578 bt->bt_ctrl = 0x43434343; /* palette enabled, overlay planes enabled */ 579 bt->bt_addr = 0x07070707; /* select test register */ 580 bt->bt_ctrl = 0; /* not test mode */ 581 582 /* grab initial (current) color map */ 583 bt->bt_addr = 0; 584 #ifdef _SUN3_ 585 /* Sun3/60 wants 32-bit access, packed. */ 586 for (i = 0; i < (256 * 3 / 4); i++) 587 btcm->btcm_int[i] = bt->bt_cmap; 588 #else /* SUN3 */ 589 /* Sun3/80 wants 8-bits in the high byte. */ 590 for (i = 0; i < (256 * 3); i++) 591 btcm->btcm_char[i] = bt->bt_cmap >> 24; 592 #endif /* SUN3 */ 593 594 /* Transpose into H/W cmap into S/W form. */ 595 for (i = 0; i < 256; i++) { 596 cm->r[i] = btcm->btcm_rgb[i][0]; 597 cm->g[i] = btcm->btcm_rgb[i][1]; 598 cm->b[i] = btcm->btcm_rgb[i][2]; 599 } 600 } 601 602 static void 603 cg4b_ldcmap(struct cg4_softc *sc) 604 { 605 volatile struct bt_regs *bt = sc->sc_va_cmap; 606 struct soft_cmap *cm = &sc->sc_cmap; 607 union bt_cmap_u *btcm = sc->sc_btcm; 608 int i; 609 610 /* Transpose S/W cmap into H/W form. */ 611 for (i = 0; i < 256; i++) { 612 btcm->btcm_rgb[i][0] = cm->r[i]; 613 btcm->btcm_rgb[i][1] = cm->g[i]; 614 btcm->btcm_rgb[i][2] = cm->b[i]; 615 } 616 617 /* 618 * Now blast them into the chip! 619 * XXX Should use retrace interrupt! 620 * Just set a "need load" bit and let the 621 * retrace interrupt handler do the work. 622 */ 623 bt->bt_addr = 0; 624 625 #ifdef _SUN3_ 626 /* Sun3/60 wants 32-bit access, packed. */ 627 if (sc->sc_video_on) { 628 /* Update H/W colormap. */ 629 for (i = 0; i < (256 * 3 / 4); i++) 630 bt->bt_cmap = btcm->btcm_int[i]; 631 } else { 632 /* Clear H/W colormap. */ 633 for (i = 0; i < (256 * 3 / 4); i++) 634 bt->bt_cmap = 0; 635 } 636 #else /* SUN3 */ 637 /* Sun3/80 wants 8-bits in the high byte. */ 638 if (sc->sc_video_on) { 639 /* Update H/W colormap. */ 640 for (i = 0; i < (256 * 3); i++) 641 bt->bt_cmap = btcm->btcm_char[i] << 24; 642 } else { 643 /* Clear H/W colormap. */ 644 for (i = 0; i < (256 * 3); i++) 645 bt->bt_cmap = 0; 646 } 647 #endif /* SUN3 */ 648 } 649 650