diff options
Diffstat (limited to 'sys/arch/mac68k')
72 files changed, 3776 insertions, 5674 deletions
diff --git a/sys/arch/mac68k/conf/GENERIC b/sys/arch/mac68k/conf/GENERIC index 7b5363e62e9..0c3b7e45f4d 100644 --- a/sys/arch/mac68k/conf/GENERIC +++ b/sys/arch/mac68k/conf/GENERIC @@ -1,4 +1,4 @@ -# $NetBSD: GENERIC,v 1.32 1995/11/21 05:00:37 briggs Exp $ +# $NetBSD: GENERIC,v 1.37 1996/05/19 22:29:04 scottr Exp $ # # GENERIC @@ -49,10 +49,12 @@ options COMPAT_43 options NS options MAPMEM options SYSVSHM,SYSVSEM,SYSVMSG +options PPP_BSDCOMP,PPP_DEFLATE # Mac-specific options options M68040 -options M68030 # Includes the 020+851 +options M68030 +options M68020 # Must have 68851 PMMU options FPSP options FPU_EMULATE options COMPAT_NOMID @@ -64,12 +66,19 @@ options MACHINE_NONCONTIG config bsd swap generic options GENERIC -ae* at nubus0 slot -1 id ? claimed 0 +sn0 at obio? # SONIC ethernet (68040) -sn0 at mainbus? # SONIC ethernet (68040) +intvid0 at obio? # Internal video hardware +grf* at intvid? -ncrscsi0 at mainbus? # SCSI NCR 5380 -ncr96scsi0 at mainbus? # SCSI NCR 53C96 +nubus0 at mainbus? + +ae* at nubus? +macvid* at nubus? +grf* at macvid? + +ncrscsi0 at obio? # SCSI NCR 5380 +ncr96scsi0 at obio? # SCSI NCR 53C96 scsibus* at scsi? sd* at scsibus? target ? lun ? @@ -77,7 +86,6 @@ st* at scsibus? target ? lun ? cd* at scsibus? target ? lun ? ch* at scsibus? target ? lun ? ss* at scsibus? target ? lun ? -su* at scsibus? target ? lun ? uk* at scsibus? target ? lun ? pseudo-device pty 16 diff --git a/sys/arch/mac68k/conf/Makefile.mac68k b/sys/arch/mac68k/conf/Makefile.mac68k index afdc4e51d05..13f0f1ea435 100644 --- a/sys/arch/mac68k/conf/Makefile.mac68k +++ b/sys/arch/mac68k/conf/Makefile.mac68k @@ -1,4 +1,4 @@ -# $NetBSD: Makefile.mac68k,v 1.34 1996/02/09 02:21:26 mycroft Exp $ +# $NetBSD: Makefile.mac68k,v 1.38 1996/05/11 16:12:20 mycroft Exp $ # Makefile for NetBSD # @@ -21,13 +21,12 @@ # DEBUG is set to -g if debugging. # PROF is set to -pg if profiling. -AS= as -AWK= awk -CC= cc -CPP= cpp -LD= ld -STRIP= strip -d -TOUCH= touch -f -c +AS?= as +CC?= cc +CPP?= cpp +LD?= ld +STRIP?= strip -d +TOUCH?= touch -f -c # source tree is located via $S relative to the compilation directory S= ../../../.. @@ -35,8 +34,9 @@ MAC68K= ../.. INCLUDES= -I. -I$S/arch -I$S CPPFLAGS= ${INCLUDES} ${IDENT} -D_KERNEL -Dmc68020 -Dmac68k -CFLAGS= ${DEBUG} -O -Werror -msoft-float -AFLAGS= -x assembler-with-cpp -traditional-cpp -DLOCORE +GCCWFLAGS= -Wall -Wstrict-prototypes -Wmissing-prototypes -Wno-uninitialized +CFLAGS= ${DEBUG} -O ${GCCWFLAGS} -msoft-float +AFLAGS= -x assembler-with-cpp -traditional-cpp -D_LOCORE LINKFLAGS= -n -Ttext 0 -e start ### Find out what to use for libkern. @@ -150,7 +150,7 @@ links: SRCS= ${MAC68K}/mac68k/locore.s \ param.c ioconf.c ${CFILES} ${SFILES} -depend: .depend +depend:: .depend .depend: ${SRCS} assym.h param.c mkdep ${AFLAGS} ${CPPFLAGS} ${MAC68K}/mac68k/locore.s mkdep -a ${CFLAGS} ${CPPFLAGS} param.c ioconf.c ${CFILES} @@ -162,9 +162,7 @@ depend: .depend autoconf.o conf.o: Makefile # depend on network or filesystem configuration -uipc_domain.o uipc_proto.o vfs_conf.o: Makefile -if_tun.o if_loop.o if_ethersubr.o: Makefile -in_proto.o: Makefile +uipc_proto.o vfs_conf.o: Makefile # depend on maxusers genassym.o machdep.o: Makefile diff --git a/sys/arch/mac68k/conf/OCELOT b/sys/arch/mac68k/conf/OCELOT index 46654b0dd08..c672d038e67 100644 --- a/sys/arch/mac68k/conf/OCELOT +++ b/sys/arch/mac68k/conf/OCELOT @@ -1,4 +1,4 @@ -# $NetBSD: OCELOT,v 1.6 1995/11/21 05:00:34 briggs Exp $ +# $NetBSD: OCELOT,v 1.10 1996/05/19 22:29:06 scottr Exp $ # # OCELOT @@ -40,7 +40,7 @@ options SYSVSHM,SYSVSEM,SYSVMSG # Mac-specific options options M68040 -options M68030 # Includes the 020+851 +options M68030 options COMPAT_NOMID options COMPAT_SUNOS options COMPAT_09 @@ -49,8 +49,16 @@ options MACHINE_NONCONTIG config bsd swap generic -ae0 at nubus0 slot -1 id ? claimed 0 -ae1 at nubus0 slot -1 id ? claimed 0 +intvid0 at obio? # Internal video hardware + +nubus0 at mainbus? + +ae* at nubus? +macvid* at nubus? + +# Attach grf semantics to all video hardware as it is found +grf* at intvid? +grf* at macvid? ncrscsi0 at mainbus? # SCSI NCR 5380 ncr96scsi0 at mainbus? # SCSI NCR 53C96 diff --git a/sys/arch/mac68k/conf/PUMA b/sys/arch/mac68k/conf/PUMA index d8b4bffccee..a5ace910f90 100644 --- a/sys/arch/mac68k/conf/PUMA +++ b/sys/arch/mac68k/conf/PUMA @@ -1,4 +1,4 @@ -# $NetBSD: PUMA,v 1.7 1995/11/21 05:00:36 briggs Exp $ +# $NetBSD: PUMA,v 1.12 1996/05/19 22:29:07 scottr Exp $ # # PUMA @@ -40,7 +40,7 @@ options MAPMEM options SYSVSHM,SYSVSEM,SYSVMSG # Mac-specific options -options M68030 # Includes the 020+851 +options M68030 options MACHINE_NONCONTIG options COMPAT_NOMID options COMPAT_SUNOS @@ -49,9 +49,14 @@ options COMPAT_10 config bsd root on sd0 swap on sd0 and sd1 and vnd0a dumps on sd1b -ae* at nubus0 slot -1 id ? claimed 0 +nubus0 at mainbus? -ncrscsi0 at mainbus? # SCSI NCR 5380 +ae* at nubus? +macvid* at nubus? + +grf* at macvid? + +ncrscsi0 at obio? # SCSI NCR 5380 scsibus* at scsi? sd* at scsibus? target ? lun ? @@ -64,3 +69,8 @@ pseudo-device vnd 4 pseudo-device loop pseudo-device ppp pseudo-device sl + +# Puma-specific options + +# Try linked commands on all targets +options TRY_SCSI_LINKED_COMMANDS=0x7f diff --git a/sys/arch/mac68k/conf/RAMDISK b/sys/arch/mac68k/conf/RAMDISK index 39233c7f48e..e56934e2b5d 100644 --- a/sys/arch/mac68k/conf/RAMDISK +++ b/sys/arch/mac68k/conf/RAMDISK @@ -1,4 +1,4 @@ -# $NetBSD: RAMDISK,v 1.1 1995/11/21 05:02:02 briggs Exp $ +# $NetBSD: RAMDISK,v 1.5 1996/05/19 22:29:08 scottr Exp $ # RAMDISK # Support Root/swap on ramdisk @@ -31,7 +31,8 @@ options TCP_COMPAT_42 # compatibility with 4.2BSD TCP/IP # Mac-specific options options M68040 -options M68030 # Includes the 020+851 +options M68030 +options M68020 # Must have 68851 PMMU options FPSP options FPU_EMULATE options COMPAT_09 @@ -40,9 +41,16 @@ options MACHINE_NONCONTIG config bsd root on rd0a swap on rd0b -rd0 at mainbus? +intvid0 at obio? # Internal video hardware -ae* at nubus0 slot -1 id ? claimed 0 +nubus0 at mainbus? + +ae* at nubus? +macvid* at nubus? + +# Attach grf semantics to all video hardware as it is found +grf* at intvid? +grf* at macvid? ncrscsi0 at mainbus? # SCSI NCR 5380 ncr96scsi0 at mainbus? # SCSI NCR 53C96 @@ -53,6 +61,7 @@ st* at scsibus? target ? lun ? cd* at scsibus? target ? lun ? ch* at scsibus? target ? lun ? +pseudo-device rd 2 pseudo-device ppp pseudo-device sl pseudo-device loop diff --git a/sys/arch/mac68k/conf/SPOT b/sys/arch/mac68k/conf/SPOT new file mode 100644 index 00000000000..a3c107533d9 --- /dev/null +++ b/sys/arch/mac68k/conf/SPOT @@ -0,0 +1,94 @@ +# $NetBSD: SPOT,v 1.8 1996/05/20 03:23:36 scottr Exp $ +# +# SPOT + +include "std.mac68k" + +maxusers 16 + +makeoptions CC="cc -m68030" +options MAXFDESCS=2048 + +# Standard system options +options SWAPPAGER, VNODEPAGER, DEVPAGER # paging +options DIAGNOSTIC # DEBUG for extra kernel debugging +options KTRACE # system call tracing support +#options KGDB # support for kernel gdb +#options GDB # support for normal gdb +#options KGDBDEV=0xc01, KGDBRATE=38400 # device & baud rate + +# Filesystem options +options FIFO # POSIX fifo support (in all filesystems) +options DDB +options FFS +options QUOTA # fast filesystem with user and group quotas +options MFS # memory-based filesystem +#options NFSSERVER # Sun NFS-compatible filesystem +#options NFSCLIENT # Sun NFS-compatible filesystem +#options NULLFS # Null (formerly loop-back) filesystem +options CD9660 # ISO-9660 w/ RockRidge +options KERNFS # kernel data-structure filesystem +options FDESC # user file descriptor filesystem +#options UMAPFS # uid/gid remapping filesystem +#options LFS # Log-based filesystem (still experimental) +#options PORTAL # portal filesystem (still experimental) +options PROCFS # Process filesystem + +options SCSI +#options SCSIDEBUG +#options NCR5380_DEBUG +#options SBC_DEBUG + +# Networking options +options INET +options TCP_COMPAT_42 # compatibility with 4.2BSD TCP/IP +options GATEWAY # IP packet forwarding +#options ISO # OSI networking +#options TPIP +#options EON +options PPP_BSDCOMP +#options PPP_DEFLATE +options COMPAT_42 +options COMPAT_43 +#options NS +options MAPMEM +options SYSVSHM,SYSVSEM,SYSVMSG + +# Mac-specific options +options M68030 +options COMPAT_NOMID +options COMPAT_SUNOS +options COMPAT_09 +options COMPAT_10 +options MACHINE_NONCONTIG + +config bsd swap generic +options GENERIC + +intvid0 at obio? # Internal video hardware + +nubus0 at mainbus? + +ae* at nubus? +macvid* at nubus? + +# Attach grf semantics to all video hardware as it is found +grf* at intvid? +grf* at macvid? + +#ncrscsi0 at obio? # SCSI NCR 5380 +#ncr96scsi0 at obio? # SCSI NCR 53C96 +sbc0 at obio? flags 0x1 # MI NCR 5380 SCSI Bus Controller + +scsibus* at scsi? +sd* at scsibus? target ? lun ? +st* at scsibus? target ? lun ? +cd* at scsibus? target ? lun ? +ch* at scsibus? target ? lun ? + +pseudo-device pty 32 +pseudo-device bpfilter 16 +pseudo-device vnd 2 +pseudo-device ppp 2 +pseudo-device loop +#pseudo-device sl diff --git a/sys/arch/mac68k/conf/files.mac68k b/sys/arch/mac68k/conf/files.mac68k index 98992087763..feec7ae9fa1 100644 --- a/sys/arch/mac68k/conf/files.mac68k +++ b/sys/arch/mac68k/conf/files.mac68k @@ -1,4 +1,4 @@ -# $NetBSD: files.mac68k,v 1.39 1996/02/07 16:34:28 scottr Exp $ +# $NetBSD: files.mac68k,v 1.48 1996/05/19 22:29:10 scottr Exp $ # mac68k-specific configuration info @@ -7,50 +7,88 @@ maxpartitions 8 maxusers 2 8 64 -device mainbus at root { } # no locators (yet?) +device mainbus { } # no locators (yet?) +attach mainbus at root -device nubus at mainbus { slot = -1, id = -1, claimed = 0 } -file arch/mac68k/dev/nubus.c nubus +device obio {} +attach obio at mainbus +file arch/mac68k/dev/obio.c obio -device ser at mainbus: tty -file arch/mac68k/dev/ser.c ser needs-flag +device nubus {} +attach nubus at mainbus +file arch/mac68k/dev/nubus.c nubus -device adb at mainbus +device adb +attach adb at obio file arch/mac68k/dev/adb.c adb file arch/mac68k/dev/adbsys.c file arch/mac68k/dev/adbsysasm.s -device asc at mainbus +device asc +attach asc at obio file arch/mac68k/dev/asc.c asc -device fpu at mainbus -file arch/mac68k/mac68k/fpu.c fpu +define grfbus {} +file arch/mac68k/dev/grf_subr.c grfbus -device grf at nubus -file arch/mac68k/dev/grf.c grf needs-count -file arch/mac68k/dev/grf_mv.c grf -file arch/mac68k/dev/grf_iv.c grf -device ite at mainbus -file arch/mac68k/dev/ite.c ite needs-flag +device intvid: grfbus +attach intvid at obio +file arch/mac68k/dev/grf_iv.c intvid + +device macvid: grfbus +attach macvid at nubus +file arch/mac68k/dev/grf_mv.c macvid + +device grf {} # eventually, we'll attach ITEs here +attach grf at grfbus +file arch/mac68k/dev/grf.c grf needs-flag -device ae at nubus: ifnet, ether +device ae: ifnet, ether +attach ae at nubus file arch/mac68k/dev/if_ae.c ae needs-flag -device sn at mainbus: ifnet, ether +device ite +attach ite at obio +file arch/mac68k/dev/ite.c ite needs-flag + +device sn: ifnet, ether +attach sn at obio file arch/mac68k/dev/if_sn.c sn needs-flag include "../../../scsi/files.scsi" -device ncrscsi at mainbus: scsi +# Option 1 for ncr5380 support +device ncrscsi: scsi +attach ncrscsi at obio file arch/mac68k/dev/mac68k5380.c ncrscsi needs-flag -device ncr96scsi at mainbus: scsi +# Option 2 for ncr5380 support +device sbc: scsi, ncr5380sbc +attach sbc at obio +file arch/mac68k/dev/sbc.c sbc + +device ncr96scsi: scsi +attach ncr96scsi at obio file arch/mac68k/dev/scsi96.c ncr96scsi needs-flag -device sbc at mainbus: scsi, ncr5380sbc -file arch/mac68k/dev/ncr_sbc.c sbc +device zsc { channel = -1 } +attach zsc at obio +file arch/mac68k/dev/zs.c zsc needs-flag +file arch/mac68k/dev/z8530sc.c zsc +#file dev/ic/z8530sc.c zsc + +device zstty: tty +attach zstty at zsc +file arch/mac68k/dev/z8530tty.c zstty needs-flag +#file dev/ic/z8530tty.c zstty needs-flag + +# This one is out of alphabetical order +device fpu +attach fpu at obio +file arch/mac68k/mac68k/fpu.c fpu file arch/m68k/m68k/copy.s +file arch/m68k/m68k/db_memrw.c ddb include "../../m68k/fpe/files.fpe" file arch/mac68k/mac68k/autoconf.c @@ -74,8 +112,9 @@ file dev/cons.c file dev/cninit.c # RAM Disk for installs -device rd at mainbus -file dev/ramdisk.c rd needs-count +# These files are out of order +pseudo-device rd +file dev/ramdisk.c rd needs-flag file arch/mac68k/dev/rd_root.c ramdisk_hooks major {sd = 4} diff --git a/sys/arch/mac68k/conf/std.mac68k b/sys/arch/mac68k/conf/std.mac68k index 96abcb3619f..e51dbf79012 100644 --- a/sys/arch/mac68k/conf/std.mac68k +++ b/sys/arch/mac68k/conf/std.mac68k @@ -1,4 +1,4 @@ -# $NetBSD: std.mac68k,v 1.8 1995/11/21 05:05:51 briggs Exp $ +# $NetBSD: std.mac68k,v 1.12 1996/05/18 18:53:56 briggs Exp $ # # standard Macintosh information. # roughly copied from std.sparc 14 Oct 1993. @@ -7,17 +7,15 @@ machine mac68k m68k mainbus0 at root -nubus0 at mainbus0 -ite0 at mainbus0 -adb0 at mainbus0 +# on-board I/O +obio0 at mainbus? -fpu0 at mainbus0 - -asc0 at mainbus0 - -ser0 at mainbus0 -grf0 at nubus0 slot -1 id ? claimed 0 -grf1 at nubus0 slot -1 id ? claimed 0 +adb0 at obio? +asc0 at obio? +fpu0 at obio? +ite0 at obio? +zsc0 at obio? +zstty* at zsc? channel ? options TIMEZONE=0 # minutes west of GMT--read from booter options DST=0 # daylight savings rules--obsolete diff --git a/sys/arch/mac68k/dev/adb.c b/sys/arch/mac68k/dev/adb.c index 8e75d7df8ab..44e1f721d58 100644 --- a/sys/arch/mac68k/dev/adb.c +++ b/sys/arch/mac68k/dev/adb.c @@ -1,4 +1,4 @@ -/* $NetBSD: adb.c,v 1.5 1995/11/01 04:40:21 briggs Exp $ */ +/* $NetBSD: adb.c,v 1.9 1996/05/05 16:21:20 briggs Exp $ */ /*- * Copyright (C) 1994 Bradley A. Grantham @@ -35,18 +35,22 @@ e* notice, this list of conditions and the following disclaimer in the #include <sys/fcntl.h> #include <sys/select.h> #include <sys/proc.h> +#include <sys/signalvar.h> #include <sys/systm.h> #include <machine/adbsys.h> +#include <machine/autoconf.h> #include <machine/keyboard.h> #include "adbvar.h" +#include "itevar.h" #include "../mac68k/macrom.h" /* * Function declarations. */ -static void adbattach __P((struct device *parent, struct device *dev, void *aux)); +static int adbmatch __P((struct device *, void *, void *)); +static void adbattach __P((struct device *, struct device *, void *)); /* * Global variables. @@ -80,13 +84,23 @@ static int adb_rptinterval = 6; /* ticks between auto-repeat */ static int adb_repeating = -1; /* key that is auto-repeating */ static adb_event_t adb_rptevent;/* event to auto-repeat */ -extern int matchbyname(); +/* Driver definition. -- This should probably be a bus... */ +struct cfattach adb_ca = { + sizeof(struct device), adbmatch, adbattach +}; -/* Driver definition. */ -struct cfdriver adbcd = { - NULL, "adb", matchbyname, adbattach, DV_DULL, sizeof(struct device), +struct cfdriver adb_cd = { + NULL, "adb", DV_DULL }; +static int +adbmatch(pdp, match, auxp) + struct device *pdp; + void *match, *auxp; +{ + return 1; +} + static void adbattach(parent, dev, aux) struct device *parent, *dev; @@ -308,22 +322,34 @@ adb_processevent(event) */ max_byte = event->byte_count; button_bit = 1; - /* Classic Mouse Protocol (up to 2 buttons) */ - for (i = 0; i < 2; i++, button_bit <<= 1) - /* 0 when button down */ - if (!(event->bytes[i] & 0x80)) - buttons |= button_bit; - else - buttons &= ~button_bit; - /* Extended Protocol (up to 6 more buttons) */ - for (mask = 0x80; i < max_byte; - i += (mask == 0x80), button_bit <<= 1) { - /* 0 when button down */ - if (!(event->bytes[i] & mask)) - buttons |= button_bit; + switch (event->hand_id) { + case ADBMS_USPEED: + /* MicroSpeed mouse */ + if (max_byte == 4) + buttons = (~event->bytes[2]) & 0xff; else - buttons &= ~button_bit; - mask = ((mask >> 4) & 0xf) | ((mask & 0xf) << 4); + buttons = (event->bytes[0] & 0x80) ? 0 : 1; + break; + default: + /* Classic Mouse Protocol (up to 2 buttons) */ + for (i = 0; i < 2; i++, button_bit <<= 1) + /* 0 when button down */ + if (!(event->bytes[i] & 0x80)) + buttons |= button_bit; + else + buttons &= ~button_bit; + /* Extended Protocol (up to 6 more buttons) */ + for (mask = 0x80; i < max_byte; + i += (mask == 0x80), button_bit <<= 1) { + /* 0 when button down */ + if (!(event->bytes[i] & mask)) + buttons |= button_bit; + else + buttons &= ~button_bit; + mask = ((mask >> 4) & 0xf) + | ((mask & 0xf) << 4); + } + break; } new_event.u.m.buttons = adb_ms_buttons | buttons; new_event.u.m.dx = ((signed int) (event->bytes[1] & 0x3f)) - diff --git a/sys/arch/mac68k/dev/adbsys.c b/sys/arch/mac68k/dev/adbsys.c index e34a969f9a6..539b32c5483 100644 --- a/sys/arch/mac68k/dev/adbsys.c +++ b/sys/arch/mac68k/dev/adbsys.c @@ -1,4 +1,4 @@ -/* $NetBSD: adbsys.c,v 1.15 1995/09/04 02:50:57 briggs Exp $ */ +/* $NetBSD: adbsys.c,v 1.20 1996/05/08 13:36:41 briggs Exp $ */ /*- * Copyright (C) 1994 Bradley A. Grantham @@ -31,10 +31,11 @@ */ #include <sys/param.h> +#include <sys/systm.h> #include <machine/adbsys.h> +#include <machine/viareg.h> #include "adbvar.h" -#include "../mac68k/via.h" #include "../mac68k/macrom.h" /* from adb.c */ @@ -101,14 +102,49 @@ extdms_init() int adbindex, adbaddr; short cmd; char buffer[9]; - void extdms_complete(); totaladbs = CountADBs(); for (adbindex = 1; adbindex <= totaladbs; adbindex++) { /* Get the ADB information */ adbaddr = GetIndADB(&adbdata, adbindex); if (adbdata.origADBAddr == ADBADDR_MS && - (adbdata.devType == 1 || adbdata.devType == 2)) { + (adbdata.devType == ADBMS_USPEED)) { + /* Found MicroSpeed Mouse Deluxe Mac */ + cmd = ((adbaddr<<4)&0xF0)|0x9; /* listen 1 */ + + /* + * To setup the MicroSpeed, it appears that we can + * send the following command to the mouse and then + * expect data back in the form: + * buffer[0] = 4 (bytes) + * buffer[1], buffer[2] as std. mouse + * buffer[3] = buffer[4] = 0xff when no buttons + * are down. When button N down, bit N is clear. + * buffer[4]'s locking mask enables a + * click to toggle the button down state--sort of + * like the "Easy Access" shift/control/etc. keys. + * buffer[3]'s alternative speed mask enables using + * different speed when the corr. button is down + */ + buffer[0] = 4; + buffer[1] = 0x00; /* Alternative speed */ + buffer[2] = 0x00; /* speed = maximum */ + buffer[3] = 0x10; /* enable extended protocol, + * lower bits = alt. speed mask + * = 0000b + */ + buffer[4] = 0x07; /* Locking mask = 0000b, + * enable buttons = 0111b + */ + extdms_done = 0; + ADBOp((Ptr)buffer, (Ptr)extdms_complete, + (Ptr)&extdms_done, cmd); + while (!extdms_done) + /* busy wait until done */; + } + if (adbdata.origADBAddr == ADBADDR_MS && + ( adbdata.devType == ADBMS_100DPI + || adbdata.devType == ADBMS_200DPI)) { /* found a mouse */ cmd = ((adbaddr << 4) & 0xf0) | 0x3; @@ -135,12 +171,10 @@ adb_init() { ADBDataBlock adbdata; ADBSetInfoBlock adbinfo; - int i, s; int totaladbs; int adbindex, adbaddr; int error; char buffer[9]; - void extdms_complete(); if (!mrg_romready()) { printf("adb: no ROM ADB driver in this kernel for this machine\n"); @@ -161,7 +195,7 @@ adb_init() /* Initialize ADB */ #if defined(MRG_DEBUG) - printf("adb: calling ADBAlternateInit\n"); + printf("adb: calling ADBAlternateInit.\n"); #endif ADBAlternateInit(); @@ -182,15 +216,15 @@ adb_init() /* Print out the glory */ printf("adb: "); switch (adbdata.origADBAddr) { - case 2: + case ADBADDR_MAP: switch (adbdata.devType) { - case 1: + case ADB_STDKBD: printf("keyboard"); break; - case 2: + case ADB_EXTKBD: printf("extended keyboard"); break; - case 12: + case ADB_PBKBD: printf("PowerBook keyboard"); break; default: @@ -199,7 +233,7 @@ adb_init() break; } break; - case 3: + case ADBADDR_REL: extdms_done = 0; /* talk register 3 */ ADBOp((Ptr)buffer, (Ptr)extdms_complete, @@ -207,13 +241,16 @@ adb_init() while (!extdms_done) /* busy-wait until done */; switch (buffer[2]) { - case 1: + case ADBMS_100DPI: printf("100 dpi mouse"); break; - case 2: + case ADBMS_200DPI: printf("200 dpi mouse"); break; - case 4: + case ADBMS_USPEED: + printf("MicroSpeed mouse, default parameters"); + break; + case ADBMS_EXTENDED: extdms_done = 0; /* talk register 1 */ ADBOp((Ptr)buffer, (Ptr)extdms_complete, @@ -239,7 +276,7 @@ adb_init() break; } break; - case 4: + case ADBADDR_ABS: printf("absolute positioning device (tablet?) (%d)", adbdata.devType); break; default: diff --git a/sys/arch/mac68k/dev/adbvar.h b/sys/arch/mac68k/dev/adbvar.h index fc48977e4ad..b51182ef931 100644 --- a/sys/arch/mac68k/dev/adbvar.h +++ b/sys/arch/mac68k/dev/adbvar.h @@ -1,4 +1,4 @@ -/* $NetBSD: adbvar.h,v 1.2 1995/04/21 02:47:44 briggs Exp $ */ +/* $NetBSD: adbvar.h,v 1.3 1996/05/05 06:16:24 briggs Exp $ */ /*- * Copyright (C) 1994 Bradley A. Grantham @@ -41,4 +41,25 @@ typedef struct adb_trace_xlate_s { } adb_trace_xlate_t; extern adb_trace_xlate_t adb_trace_xlations[]; -void adb_asmcomplete(); + +/* adb.c */ +void adb_asmcomplete __P((void)); +void adb_enqevent __P((adb_event_t *event)); +void adb_handoff __P((adb_event_t *event)); +void adb_autorepeat __P((void *keyp)); +void adb_dokeyupdown __P((adb_event_t *event)); +void adb_keymaybemouse __P((adb_event_t *event)); +void adb_processevent __P((adb_event_t *event)); +int adbopen __P((dev_t dev, int flag, int mode, struct proc *p)); +int adbclose __P((dev_t dev, int flag, int mode, struct proc *p)); +int adbread __P((dev_t dev, struct uio *uio, int flag)); +int adbwrite __P((dev_t dev, struct uio *uio, int flag)); +int adbioctl __P((dev_t , int , caddr_t , int , struct proc *)); +int adbselect __P((dev_t dev, int rw, struct proc *p)); + +/* adbsysadm.s */ +void extdms_complete __P((void)); + +/* adbsys.c */ +void adb_complete __P((caddr_t buffer, caddr_t data_area, int adb_command)); +void extdms_init __P((void)); diff --git a/sys/arch/mac68k/dev/asc.c b/sys/arch/mac68k/dev/asc.c index 7d6782b19a0..3afa56ab4f2 100644 --- a/sys/arch/mac68k/dev/asc.c +++ b/sys/arch/mac68k/dev/asc.c @@ -1,4 +1,4 @@ -/* $NetBSD: asc.c,v 1.9 1995/11/01 04:58:21 briggs Exp $ */ +/* $NetBSD: asc.c,v 1.11 1996/05/05 06:16:26 briggs Exp $ */ /*- * Copyright (C) 1993 Allen K. Briggs, Chris P. Caputo, @@ -46,6 +46,7 @@ #include <sys/device.h> #include <machine/cpu.h> +#include "ascvar.h" /* Global ASC location */ volatile unsigned char *ASCBase = (unsigned char *) 0x14000; @@ -57,27 +58,25 @@ static int bell_length = 10; static int bell_volume = 100; static int bell_ringing = 0; -static int ascprobe __P((struct device *, struct cfdata *, void *)); +static int ascmatch __P((struct device *, void *, void *)); static void ascattach __P((struct device *, struct device *, void *)); -extern int matchbyname __P((struct device *, void *, void *)); -struct cfdriver asccd = -{NULL, "asc", matchbyname, ascattach, -DV_DULL, sizeof(struct device), NULL, 0}; +struct cfattach asc_ca = { + sizeof(struct device), ascmatch, ascattach +}; + +struct cfdriver asc_cd = { + NULL, "asc", DV_DULL, NULL, 0 +}; static int -ascprobe(parent, cf, aux) - struct device *parent; - struct cfdata *cf; - void *aux; +ascmatch(pdp, match, auxp) + struct device *pdp; + void *match, *auxp; { - if (strcmp(*((char **) aux), asccd.cd_name)) - return 0; - return 1; } - static void ascattach(parent, dev, aux) struct device *parent, *dev; @@ -87,10 +86,10 @@ ascattach(parent, dev, aux) } int -asc_setbellparams( - int freq, - int length, - int volume) +asc_setbellparams(freq, length, volume) + int freq; + int length; + int volume; { /* I only perform these checks for sanity. */ /* I suppose someone might want a bell that rings */ @@ -112,10 +111,10 @@ asc_setbellparams( int -asc_getbellparams( - int *freq, - int *length, - int *volume) +asc_getbellparams(freq, length, volume) + int *freq; + int *length; + int *volume; { *freq = bell_freq; *length = bell_length; @@ -126,8 +125,8 @@ asc_getbellparams( void -asc_bellstop( - int param) +asc_bellstop(param) + int param; { if (bell_ringing > 1000 || bell_ringing < 0) panic("bell got out of synch?????"); @@ -184,4 +183,6 @@ asc_ringbell() } bell_ringing++; timeout((void *) asc_bellstop, 0, bell_length); + + return 0; } diff --git a/sys/arch/mac68k/dev/grf.c b/sys/arch/mac68k/dev/grf.c index 3f9bd41ff00..508935afb19 100644 --- a/sys/arch/mac68k/dev/grf.c +++ b/sys/arch/mac68k/dev/grf.c @@ -1,4 +1,4 @@ -/* $NetBSD: grf.c,v 1.29 1995/09/21 11:13:27 briggs Exp $ */ +/* $NetBSD: grf.c,v 1.33 1996/05/19 22:27:04 scottr Exp $ */ /* * Copyright (c) 1988 University of Utah. @@ -57,6 +57,7 @@ #include <sys/mman.h> #include <sys/proc.h> #include <sys/vnode.h> +#include <sys/systm.h> #include <machine/grfioctl.h> #include <machine/cpu.h> @@ -69,6 +70,7 @@ #include <vm/vm_pager.h> #include "nubus.h" +#include "itevar.h" #include "grfvar.h" #include "grf.h" @@ -79,90 +81,61 @@ #define iteoff(u,f) #endif -static int grf_match __P((/*struct device *parent, struct device *dev, - void *aux*/)); -static void grf_attach __P((struct device *parent, struct device *dev, - void *aux)); +int grfmatch __P((struct device *, void *, void *)); +void grfattach __P((struct device *, struct device *, void *)); -static void fake_internal __P((void)); - -extern int grfmv_probe __P((struct grf_softc *gp, nubus_slot *nu)); -extern int grfmv_init __P((struct grf_softc *gp)); -extern int grfmv_mode __P((struct grf_softc *gp, int cmd, void *arg)); -extern caddr_t grfmv_phys __P((struct grf_softc *gp, vm_offset_t addr)); - -extern int grfiv_probe __P((struct grf_softc *gp, nubus_slot *ignore)); -extern int grfiv_init __P((struct grf_softc *gp)); -extern int grfiv_mode __P((struct grf_softc *gp, int cmd, void *arg)); -extern caddr_t grfiv_phys __P((struct grf_softc *gp, vm_offset_t addr)); - -struct cfdriver grfcd = { - NULL, "grf", grf_match, grf_attach, DV_DULL, - sizeof(struct grf_softc) +struct cfdriver grf_cd = { + NULL, "grf", DV_DULL }; -struct grfdev grfdev[] = { -/* DrSW (*gd_probe)() (*gd_init)() (*gd_mode)() gd_desc - (*gd_phys)() */ -{ NUBUS_DRSW_APPLE, grfmv_probe, grfmv_init, grfmv_mode, "QD-compatible", - grfmv_phys }, -{ 0xFF, grfiv_probe, grfiv_init, grfiv_mode, "Internal video", - grfiv_phys }, +struct cfattach grf_ca = { + sizeof(struct grf_softc), grfmatch, grfattach }; -static int ngrfdev=(sizeof(grfdev) / sizeof(grfdev[0])); - #ifdef DEBUG -static int grfdebug = 0xff; #define GDB_DEVNO 0x01 #define GDB_MMAP 0x02 #define GDB_IOMAP 0x04 #define GDB_LOCK 0x08 +static int grfdebug = (GDB_DEVNO|GDB_MMAP|GDB_IOMAP|GDB_LOCK); #endif -static int -grf_match(parent, match, aux) - struct device *parent; - void *match, *aux; +int +grfmatch(parent, match, aux) + struct device *parent; + void *match, *aux; { - struct grf_softc *sc = match; - nubus_slot *nu = (nubus_slot *) aux; - int i, r; - - for (i = 0; i < ngrfdev; i++) { - if ((r = (*grfdev[i].gd_probe)(sc, nu)) > 0) { - sc->g_type = i; - bcopy(aux, &sc->sc_slot, sizeof(nubus_slot)); - return r; - } - } - return 0; + struct grfbus_attach_args *ga = aux; + + return (strcmp(ga->ga_name, "grf") == 0); } -static void -grf_attach(parent, self, aux) +void +grfattach(parent, self, aux) struct device *parent, *self; - void *aux; + void *aux; { - struct grf_softc *sc; + struct grf_softc *sc = (struct grf_softc *)self; + struct grfbus_attach_args *ga = aux; - sc = (struct grf_softc *) self; - - if ((*grfdev[sc->g_type].gd_init)(sc) == 0) { - printf("\n"); - return; - } - sc->g_flags = GF_ALIVE; + printf("\n"); - printf(": %d x %d ", sc->curr_mode.width, sc->curr_mode.height); + /* Load forwarded pointers. */ + sc->sc_grfmode = ga->ga_grfmode; + sc->sc_slot = ga->ga_slot; + sc->sc_mode = ga->ga_mode; + sc->sc_phys = ga->ga_phys; - if (sc->curr_mode.psize == 1) - printf("monochrome"); - else - printf("%d color", 1 << sc->curr_mode.psize); + sc->sc_flags = GF_ALIVE; /* XXX bogus */ - printf(" %s (%s) display\n", - grfdev[sc->g_type].gd_desc, sc->card_name); +#ifdef notyet + /* + * Attach ite semantics to the grf. Change the name, forward + * everything else. + */ + ga->ga_name = "ite"; + (void)config_found(self, ga, grfbusprint); +#endif } /*ARGSUSED*/ @@ -178,12 +151,12 @@ grfopen(dev, flag, mode, p) int error; unit = GRFUNIT(dev); - gp = grfcd.cd_devs[unit]; + gp = grf_cd.cd_devs[unit]; - if (unit >= grfcd.cd_ndevs || (gp->g_flags & GF_ALIVE) == 0) + if (unit >= grf_cd.cd_ndevs || (gp->sc_flags & GF_ALIVE) == 0) return (ENXIO); - if ((gp->g_flags & (GF_OPEN | GF_EXCLUDE)) == (GF_OPEN | GF_EXCLUDE)) + if ((gp->sc_flags & (GF_OPEN | GF_EXCLUDE)) == (GF_OPEN | GF_EXCLUDE)) return (EBUSY); /* @@ -191,14 +164,15 @@ grfopen(dev, flag, mode, p) * XXX: always put in graphics mode. */ error = 0; - if ((gp->g_flags & GF_OPEN) == 0) { - gp->g_flags |= GF_OPEN; + if ((gp->sc_flags & GF_OPEN) == 0) { + gp->sc_flags |= GF_OPEN; error = grfon(dev); } return (error); } /*ARGSUSED*/ +int grfclose(dev, flag, mode, p) dev_t dev; int flag; @@ -207,15 +181,16 @@ grfclose(dev, flag, mode, p) { register struct grf_softc *gp; - gp = grfcd.cd_devs[GRFUNIT(dev)]; + gp = grf_cd.cd_devs[GRFUNIT(dev)]; (void) grfoff(dev); - gp->g_flags &= GF_ALIVE; + gp->sc_flags &= GF_ALIVE; return (0); } /*ARGSUSED*/ +int grfioctl(dev, cmd, data, flag, p) dev_t dev; int cmd; @@ -223,11 +198,13 @@ grfioctl(dev, cmd, data, flag, p) int flag; struct proc *p; { - register struct grf_softc *gp; + struct grf_softc *gp; + struct grfmode *gm; int error; int unit = GRFUNIT(dev); - gp = grfcd.cd_devs[unit]; + gp = grf_cd.cd_devs[unit]; + gm = gp->sc_grfmode; error = 0; switch (cmd) { @@ -236,14 +213,14 @@ grfioctl(dev, cmd, data, flag, p) { struct grfinfo *g; g = (struct grfinfo *) data; bzero(data, sizeof(struct grfinfo)); - g->gd_id = gp->curr_mode.mode_id; - g->gd_fbaddr = gp->curr_mode.fbbase; - g->gd_fbsize = gp->curr_mode.fbsize; - g->gd_colors = 1 << (u_int32_t) gp->curr_mode.psize; - g->gd_planes = gp->curr_mode.psize; - g->gd_fbwidth = g->gd_dwidth = gp->curr_mode.width; - g->gd_fbheight = g->gd_dheight = gp->curr_mode.height; - g->gd_fbrowbytes = gp->curr_mode.rowbytes; + g->gd_id = gm->mode_id; + g->gd_fbaddr = gm->fbbase; + g->gd_fbsize = gm->fbsize; + g->gd_colors = 1 << (u_int32_t) gm->psize; + g->gd_planes = gm->psize; + g->gd_fbwidth = g->gd_dwidth = gm->width; + g->gd_fbheight = g->gd_dheight = gm->height; + g->gd_fbrowbytes = gm->rowbytes; } break; @@ -261,16 +238,16 @@ grfioctl(dev, cmd, data, flag, p) break; case GRFIOCGMODE: - bcopy(&gp->curr_mode, data, sizeof(struct grfmode)); + bcopy(gm, data, sizeof(struct grfmode)); break; case GRFIOCGETMODE: - error = (*grfdev[gp->g_type].gd_mode)(gp, GM_CURRMODE, data); + error = (*gp->sc_mode)(gp, GM_CURRMODE, data); break; case GRFIOCSETMODE: - error = (*grfdev[gp->g_type].gd_mode)(gp, GM_NEWMODE, data); + error = (*gp->sc_mode)(gp, GM_NEWMODE, data); break; case GRFIOCLISTMODES: - error = (*grfdev[gp->g_type].gd_mode)(gp, GM_LISTMODES, data); + error = (*gp->sc_mode)(gp, GM_LISTMODES, data); break; default: @@ -281,6 +258,7 @@ grfioctl(dev, cmd, data, flag, p) } /*ARGSUSED*/ +int grfselect(dev, rw, p) dev_t dev; int rw; @@ -292,6 +270,7 @@ grfselect(dev, rw, p) } /*ARGSUSED*/ +int grfmmap(dev, off, prot) dev_t dev; int off; @@ -300,7 +279,7 @@ grfmmap(dev, off, prot) int unit = GRFUNIT(dev); struct grf_softc *gp; - gp = grfcd.cd_devs[unit]; + gp = grf_cd.cd_devs[unit]; return (grfaddr(gp, off)); } @@ -311,7 +290,7 @@ grfon(dev) int unit = GRFUNIT(dev); struct grf_softc *gp; - gp = grfcd.cd_devs[unit]; + gp = grf_cd.cd_devs[unit]; /* * XXX: iteoff call relies on devices being in same order @@ -320,7 +299,7 @@ grfon(dev) */ iteoff(unit, 3); - return (*grfdev[gp->g_type].gd_mode) (gp, GM_GRFON, NULL); + return (*gp->sc_mode) (gp, GM_GRFON, NULL); } int @@ -331,11 +310,11 @@ grfoff(dev) struct grf_softc *gp; int error; - gp = grfcd.cd_devs[unit]; + gp = grf_cd.cd_devs[unit]; (void) grfunmap(dev, (caddr_t) 0, curproc); - error = (*grfdev[gp->g_type].gd_mode) (gp, GM_GRFOFF, NULL); + error = (*gp->sc_mode) (gp, GM_GRFOFF, NULL); /* XXX: see comment for iteoff above */ iteon(unit, 2); @@ -348,12 +327,11 @@ grfaddr(gp, off) struct grf_softc *gp; register int off; { - register struct grfmode *gm = &gp->curr_mode; + register struct grfmode *gm = gp->sc_grfmode; u_long addr; - if (off < mac68k_round_page(gm->fbsize + gm->fboff) ) { - addr = (u_long) (*grfdev[gp->g_type].gd_phys) (gp, gm->fbbase) - + off; + if (off < mac68k_round_page(gm->fbsize + gm->fboff)) { + addr = (u_long)(*gp->sc_phys)(gp, (vm_offset_t)gm->fbbase)+off; return mac68k_btop(addr); } /* bogus */ @@ -372,31 +350,30 @@ grfmap(dev, addrp, p) int len, error; int flags; - gp = grfcd.cd_devs[GRFUNIT(dev)]; + gp = grf_cd.cd_devs[GRFUNIT(dev)]; #ifdef DEBUG if (grfdebug & GDB_MMAP) - printf("grfmap(%d): addr %x\n", p->p_pid, *addrp); + printf("grfmap(%d): addr %p\n", p->p_pid, *addrp); #endif - len = mac68k_round_page(gp->curr_mode.fbsize + gp->curr_mode.fboff); + len = mac68k_round_page(gp->sc_grfmode->fbsize + gp->sc_grfmode->fboff); flags = MAP_SHARED | MAP_FIXED; *addrp = (caddr_t) mac68k_trunc_page( - NUBUS_VIRT_TO_PHYS((u_int) gp->curr_mode.fbbase)); + NUBUS_SLOT_TO_PADDR(gp->sc_slot->slot)); vn.v_type = VCHR; /* XXX */ vn.v_specinfo = &si; /* XXX */ vn.v_rdev = dev; /* XXX */ error = vm_mmap(&p->p_vmspace->vm_map, (vm_offset_t *) addrp, - (vm_size_t) len, VM_PROT_ALL, VM_PROT_ALL, flags, (caddr_t) & vn, - 0); + (vm_size_t) len, VM_PROT_ALL, VM_PROT_ALL, flags, (caddr_t) &vn, 0); /* Offset into page: */ - *addrp += (unsigned long) gp->curr_mode.fboff & 0xfff; + *addrp += (unsigned long) gp->sc_grfmode->fboff & 0xfff; #ifdef DEBUG if (grfdebug & GDB_MMAP) - printf("grfmap(%d): returning addr %x\n", p->p_pid, *addrp); + printf("grfmap(%d): returning addr %p\n", p->p_pid, *addrp); #endif return (error); @@ -412,17 +389,17 @@ grfunmap(dev, addr, p) vm_size_t size; int rv; - gp = grfcd.cd_devs[GRFUNIT(dev)]; + gp = grf_cd.cd_devs[GRFUNIT(dev)]; #ifdef DEBUG if (grfdebug & GDB_MMAP) - printf("grfunmap(%d): dev %x addr %x\n", p->p_pid, dev, addr); + printf("grfunmap(%d): dev %x addr %p\n", p->p_pid, dev, addr); #endif if (addr == 0) return (EINVAL);/* XXX: how do we deal with this? */ - size = round_page(gp->curr_mode.fbsize); + size = round_page(gp->sc_grfmode->fbsize); rv = vm_deallocate(&p->p_vmspace->vm_map, (vm_offset_t) addr, size); diff --git a/sys/arch/mac68k/dev/grf_iv.c b/sys/arch/mac68k/dev/grf_iv.c index 21907590532..53a98ce5bb0 100644 --- a/sys/arch/mac68k/dev/grf_iv.c +++ b/sys/arch/mac68k/dev/grf_iv.c @@ -1,4 +1,4 @@ -/* $NetBSD: grf_iv.c,v 1.10 1995/08/11 17:48:19 briggs Exp $ */ +/* $NetBSD: grf_iv.c,v 1.12 1996/05/19 22:27:06 scottr Exp $ */ /* * Copyright (c) 1995 Allen Briggs. All rights reserved. @@ -41,6 +41,7 @@ #include <sys/malloc.h> #include <sys/mman.h> #include <sys/proc.h> +#include <sys/systm.h> #include <machine/grfioctl.h> #include <machine/cpu.h> @@ -48,20 +49,29 @@ #include "nubus.h" #include "grfvar.h" -extern int grfiv_probe __P((struct grf_softc *sc, nubus_slot *ignore)); -extern int grfiv_init __P((struct grf_softc *sc)); -extern int grfiv_mode __P((struct grf_softc *sc, int cmd, void *arg)); - extern u_int32_t mac68k_vidlog; extern u_int32_t mac68k_vidphys; extern long videorowbytes; extern long videobitdepth; extern unsigned long videosize; -extern int -grfiv_probe(sc, slotinfo) - struct grf_softc *sc; - nubus_slot *slotinfo; +static int grfiv_mode __P((struct grf_softc *gp, int cmd, void *arg)); +static caddr_t grfiv_phys __P((struct grf_softc *gp, vm_offset_t addr)); +static int grfiv_match __P((struct device *, void *, void *)); +static void grfiv_attach __P((struct device *, struct device *, void *)); + +struct cfdriver intvid_cd = { + NULL, "intvid", DV_DULL +}; + +struct cfattach intvid_ca = { + sizeof(struct grfbus_softc), grfiv_match, grfiv_attach +}; + +static int +grfiv_match(pdp, match, auxp) + struct device *pdp; + void *match, *auxp; { static int internal_video_found = 0; @@ -69,30 +79,22 @@ grfiv_probe(sc, slotinfo) return 0; } - if ( (NUBUS_SLOT_TO_BASE(slotinfo->slot) <= mac68k_vidlog) - && (mac68k_vidlog < NUBUS_SLOT_TO_BASE(slotinfo->slot + 1))) { - internal_video_found++; - return 1; - } - - if (slotinfo->slot == NUBUS_INT_VIDEO_PSUEDO_SLOT) { - internal_video_found++; - return 1; - } - - return 0; + return 1; } -extern int -grfiv_init(sc) - struct grf_softc *sc; +static void +grfiv_attach(parent, self, aux) + struct device *parent, *self; + void *aux; { - struct grfmode *gm; - int i, j; + struct grfbus_softc *sc; + struct grfmode *gm; + + sc = (struct grfbus_softc *) self; sc->card_id = 0; - strcpy(sc->card_name, "Internal video"); + printf(": Internal Video\n"); gm = &(sc->curr_mode); gm->mode_id = 0; @@ -107,10 +109,11 @@ grfiv_init(sc) gm->fbbase = (caddr_t) mac68k_vidlog; gm->fboff = 0; - return 1; + /* Perform common video attachment. */ + grf_establish(sc, grfiv_mode, grfiv_phys); } -extern int +static int grfiv_mode(sc, cmd, arg) struct grf_softc *sc; int cmd; @@ -130,7 +133,7 @@ grfiv_mode(sc, cmd, arg) return EINVAL; } -extern caddr_t +static caddr_t grfiv_phys(gp, addr) struct grf_softc *gp; vm_offset_t addr; diff --git a/sys/arch/mac68k/dev/grf_mv.c b/sys/arch/mac68k/dev/grf_mv.c index a32fabb8bb7..a19390bc3c2 100644 --- a/sys/arch/mac68k/dev/grf_mv.c +++ b/sys/arch/mac68k/dev/grf_mv.c @@ -1,4 +1,4 @@ -/* $NetBSD: grf_mv.c,v 1.7 1995/08/24 04:27:16 briggs Exp $ */ +/* $NetBSD: grf_mv.c,v 1.11 1996/05/19 22:27:07 scottr Exp $ */ /* * Copyright (c) 1995 Allen Briggs. All rights reserved. @@ -40,19 +40,34 @@ #include <sys/malloc.h> #include <sys/mman.h> #include <sys/proc.h> +#include <sys/systm.h> -#include <machine/grfioctl.h> #include <machine/cpu.h> +#include <machine/grfioctl.h> +#include <machine/viareg.h> #include "nubus.h" #include "grfvar.h" -extern int grfmv_probe __P((struct grf_softc *gp, nubus_slot *slot)); -extern int grfmv_init __P((struct grf_softc *gp)); -extern int grfmv_mode __P((struct grf_softc *gp, int cmd, void *arg)); +static void load_image_data __P((caddr_t data, struct image_data *image)); +static void grfmv_intr __P((void *vsc, int slot)); +static int get_vrsrcid __P((nubus_slot *slot)); static char zero = 0; +static int grfmv_mode __P((struct grf_softc *gp, int cmd, void *arg)); +static caddr_t grfmv_phys __P((struct grf_softc *gp, vm_offset_t addr)); +static int grfmv_match __P((struct device *, void *, void *)); +static void grfmv_attach __P((struct device *, struct device *, void *)); + +struct cfdriver macvid_cd = { + NULL, "macvid", DV_DULL +}; + +struct cfattach macvid_ca = { + sizeof(struct grfbus_softc), grfmv_match, grfmv_attach +}; + static void load_image_data(data, image) caddr_t data; @@ -77,15 +92,17 @@ load_image_data(data, image) bcopy(data + 42, &image->planeBytes, 4); } +/*ARGSUSED*/ static void -grfmv_intr(sc, slot) - struct grf_softc *sc; +grfmv_intr(vsc, slot) + void *vsc; int slot; { - struct grf_softc *gp; - caddr_t slotbase; + caddr_t slotbase; + struct grfbus_softc *sc; - slotbase = (caddr_t) NUBUS_SLOT_TO_BASE(slot); + sc = (struct grfbus_softc *) vsc; + slotbase = (caddr_t) sc->sc_slot.virtual_base; slotbase[0xa0000] = zero; } @@ -94,7 +111,6 @@ get_vrsrcid(slot) nubus_slot *slot; { extern u_short mac68k_vrsrc_vec[]; -extern int mac68k_vrsrc_cnt; int i; for (i = 0 ; i < 6 ; i++) @@ -103,16 +119,19 @@ extern int mac68k_vrsrc_cnt; return 0x80; } -extern int -grfmv_probe(sc, slot) - struct grf_softc *sc; - nubus_slot *slot; +static int +grfmv_match(parent, self, aux) + struct device *parent; + void *self, *aux; { - nubus_dir dir, *dirp, dir2, *dirp2; + struct grfbus_softc *sc; + nubus_slot *slot = (nubus_slot *) aux; + nubus_dir dir, *dirp, *dirp2; nubus_dirent dirent, *direntp; nubus_type slottype; int vrsrc; + sc = (struct grfbus_softc *) self; /* XXX: indirect brokenness */ dirp = &dir; direntp = &dirent; nubus_get_main_dir(slot, dirp); @@ -154,61 +173,79 @@ grfmv_probe(sc, slot) sc->card_id = slottype.drhw; + sc->sc_slot = *slot; + /* Need to load display info (and driver?), etc... */ return 1; } -extern int -grfmv_init(sc) - struct grf_softc *sc; +static void +grfmv_attach(parent, self, aux) + struct device *parent, *self; + void *aux; { + struct grfbus_softc *sc; struct image_data image_store, image; + struct grfmode *gm; + char cardname[CARD_NAME_LEN]; nubus_dirent dirent; nubus_dir mode_dir; int mode; - u_long base; + + sc = (struct grfbus_softc *) self; + gm = &sc->curr_mode; mode = NUBUS_RSRC_FIRSTMODE; - if (nubus_find_rsrc(&sc->sc_slot, &sc->board_dir, mode, &dirent) <= 0) - return 0; + if (nubus_find_rsrc(&sc->sc_slot, &sc->board_dir, mode, &dirent) <= 0) { + printf("\n%s: probe failed to get board rsrc.\n", + sc->sc_dev.dv_xname); + return; + } nubus_get_dir_from_rsrc(&sc->sc_slot, &dirent, &mode_dir); - if (nubus_find_rsrc(&sc->sc_slot, &mode_dir, VID_PARAMS, &dirent) <= 0) - return 0; + if (nubus_find_rsrc(&sc->sc_slot, &mode_dir, VID_PARAMS, &dirent) + <= 0) { + printf("\n%s: probe failed to get mode dir.\n", + sc->sc_dev.dv_xname); + return; + } if (nubus_get_ind_data(&sc->sc_slot, &dirent, (caddr_t) &image_store, - sizeof(struct image_data)) <= 0) - return 0; + sizeof(struct image_data)) <= 0) { + printf("\n%s: probe failed to get indirect mode data.\n", + sc->sc_dev.dv_xname); + return; + } load_image_data((caddr_t) &image_store, &image); - base = NUBUS_SLOT_TO_BASE(sc->sc_slot.slot); - - sc->curr_mode.mode_id = mode; - sc->curr_mode.fbbase = (caddr_t) (base + image.offset); - sc->curr_mode.fboff = image.offset; - sc->curr_mode.rowbytes = image.rowbytes; - sc->curr_mode.width = image.right - image.left; - sc->curr_mode.height = image.bottom - image.top; - sc->curr_mode.fbsize = sc->curr_mode.height * sc->curr_mode.rowbytes; - sc->curr_mode.hres = image.hRes; - sc->curr_mode.vres = image.vRes; - sc->curr_mode.ptype = image.pixelType; - sc->curr_mode.psize = image.pixelSize; - - strncpy(sc->card_name, nubus_get_card_name(&sc->sc_slot), + gm->mode_id = mode; + gm->fbbase = (caddr_t) (sc->sc_slot.virtual_base + image.offset); + gm->fboff = image.offset; + gm->rowbytes = image.rowbytes; + gm->width = image.right - image.left; + gm->height = image.bottom - image.top; + gm->fbsize = sc->curr_mode.height * sc->curr_mode.rowbytes; + gm->hres = image.hRes; + gm->vres = image.vRes; + gm->ptype = image.pixelType; + gm->psize = image.pixelSize; + + strncpy(cardname, nubus_get_card_name(&sc->sc_slot), CARD_NAME_LEN); + cardname[CARD_NAME_LEN-1] = '\0'; - sc->card_name[CARD_NAME_LEN-1] = '\0'; + printf(": %s\n", cardname); add_nubus_intr(sc->sc_slot.slot, grfmv_intr, sc); - return 1; + /* Perform common video attachment. */ + grf_establish(sc, grfmv_mode, grfmv_phys); } -extern int +static int grfmv_mode(gp, cmd, arg) struct grf_softc *gp; int cmd; @@ -228,10 +265,11 @@ grfmv_mode(gp, cmd, arg) return EINVAL; } -extern caddr_t +static caddr_t grfmv_phys(gp, addr) struct grf_softc *gp; vm_offset_t addr; { - return (caddr_t) NUBUS_VIRT_TO_PHYS(addr); + return (caddr_t) (NUBUS_SLOT_TO_PADDR(gp->sc_slot->slot) + + (addr - gp->sc_slot->virtual_base)); } diff --git a/sys/arch/mac68k/dev/grfvar.h b/sys/arch/mac68k/dev/grfvar.h index 2679e253478..cd60da3c9af 100644 --- a/sys/arch/mac68k/dev/grfvar.h +++ b/sys/arch/mac68k/dev/grfvar.h @@ -1,4 +1,4 @@ -/* $NetBSD: grfvar.h,v 1.8 1995/07/06 17:13:51 briggs Exp $ */ +/* $NetBSD: grfvar.h,v 1.10 1996/05/19 22:27:10 scottr Exp $ */ /* * Copyright (c) 1988 University of Utah. @@ -43,20 +43,47 @@ */ #define CARD_NAME_LEN 64 -/* per display info */ -struct grf_softc { + +/* + * State info, per hardware instance. + */ +struct grfbus_softc { struct device sc_dev; nubus_slot sc_slot; - char card_name[CARD_NAME_LEN]; struct grfmode curr_mode; /* hardware desc(for ioctl) */ - u_int32_t g_flags; /* software flags */ - u_int32_t g_type; /* index into grfdev */ u_int16_t card_id; /* DrHW value for nubus cards */ nubus_dir board_dir; /* Nubus dir for curr board */ - caddr_t g_data; /* device dependent data */ }; +/* + * State info, per grf instance. + */ +struct grf_softc { + struct device sc_dev; /* device glue */ + + int sc_flags; /* software flags */ + struct grfmode *sc_grfmode; /* forwarded ... */ + nubus_slot *sc_slot; + /* mode-change on/off/mode function */ + int (*sc_mode) __P((struct grf_softc *, int, void *)); + /* map virtual addr to physical addr */ + caddr_t (*sc_phys) __P((struct grf_softc *, vm_offset_t)); +}; + +/* + * Attach grf and ite semantics to Mac video hardware. + */ +struct grfbus_attach_args { + char *ga_name; /* name of semantics to attach */ + struct grfmode *ga_grfmode; /* forwarded ... */ + nubus_slot *ga_slot; + int (*ga_mode) __P((struct grf_softc *, int, void *)); + caddr_t (*ga_phys) __P((struct grf_softc *, vm_offset_t)); +}; + +typedef caddr_t (*grf_phys_t) __P((struct grf_softc *gp, vm_offset_t addr)); + /* flags */ #define GF_ALIVE 0x01 #define GF_OPEN 0x02 @@ -65,19 +92,6 @@ struct grf_softc { #define GF_BSDOPEN 0x10 #define GF_HPUXOPEN 0x20 -/* display types - indices into grfdev */ -#define GT_MACVIDEO 0 -#define GT_INTERNALVIDEO 1 - -struct grfdev { - int gd_softid; /* DrSW */ - int (*gd_probe)(); /* probe routine */ - int (*gd_init) (); /* boot time initialization */ - int (*gd_mode) (); /* mode-change on/off/mode function */ - char *gd_desc; /* text description */ - caddr_t (*gd_phys) (); /* map virtual addr to physical addr */ -}; - /* requests to mode routine */ #define GM_GRFON 1 #define GM_GRFOFF 2 @@ -117,3 +131,19 @@ struct image_data { #define VID_TABLE_OFFSET 2 #define VID_PAGE_CNT 3 #define VID_DEV_TYPE 4 + +int grfopen __P((dev_t dev, int flag, int mode, struct proc *p)); +int grfclose __P((dev_t dev, int flag, int mode, struct proc *p)); +int grfioctl __P((dev_t, int, caddr_t, int, struct proc *p)); +int grfselect __P((dev_t dev, int rw, struct proc *p)); +int grfmmap __P((dev_t dev, int off, int prot)); +int grfon __P((dev_t dev)); +int grfoff __P((dev_t dev)); +int grfaddr __P((struct grf_softc *gp, register int off)); +int grfmap __P((dev_t dev, caddr_t *addrp, struct proc *p)); +int grfunmap __P((dev_t dev, caddr_t addr, struct proc *p)); + +void grf_establish __P((struct grfbus_softc *, + int (*)(struct grf_softc *, int, void *), + caddr_t (*)(struct grf_softc *, vm_offset_t))); +int grfbusprint __P((void *, char *)); diff --git a/sys/arch/mac68k/dev/if_ae.c b/sys/arch/mac68k/dev/if_ae.c index 0897e54dfec..c30bdc49a9b 100644 --- a/sys/arch/mac68k/dev/if_ae.c +++ b/sys/arch/mac68k/dev/if_ae.c @@ -1,4 +1,4 @@ -/* $NetBSD: if_ae.c,v 1.40 1996/02/02 15:30:56 briggs Exp $ */ +/* $NetBSD: if_ae.c,v 1.46 1996/05/15 03:20:22 briggs Exp $ */ /* * Device driver for National Semiconductor DS8390/WD83C690 based ethernet @@ -51,7 +51,7 @@ #include <net/bpfdesc.h> #endif -#include "../mac68k/via.h" +#include <machine/viareg.h> #include "nubus.h" #include <dev/ic/dp8390reg.h> #include "if_aereg.h" @@ -98,12 +98,15 @@ struct ae_softc { u_char next_packet; /* pointer to next unread RX packet */ }; +static int ae_id_card __P((nubus_slot *slot, struct ae_softc *sc)); +static int ae_size_card_memory __P((struct ae_softc *sc)); + int aeprobe __P((struct device *, void *, void *)); void aeattach __P((struct device *, struct device *, void *)); -void aeintr __P((void *)); +void aeintr __P((void *, int)); int aeioctl __P((struct ifnet *, u_long, caddr_t)); void aestart __P((struct ifnet *)); -void aewatchdog __P(( /* short */ )); +void aewatchdog __P((struct ifnet *)); void aereset __P((struct ae_softc *)); void aeinit __P((struct ae_softc *)); void aestop __P((struct ae_softc *)); @@ -119,10 +122,14 @@ void ae_getmcaf __P((struct arpcom *, u_char *)); static inline void ae_rint __P((struct ae_softc *)); static inline void ae_xmit __P((struct ae_softc *)); static inline caddr_t ae_ring_copy __P(( - /* struct ae_softc *, caddr_t, caddr_t, u_short */ )); + struct ae_softc *, caddr_t, caddr_t, int)); + +struct cfattach ae_ca = { + sizeof(struct ae_softc), aeprobe, aeattach +}; -struct cfdriver aecd = { - NULL, "ae", aeprobe, aeattach, DV_IFNET, sizeof(struct ae_softc) +struct cfdriver ae_cd = { + NULL, "ae", DV_IFNET }; #define ETHER_MIN_LEN 64 @@ -130,7 +137,6 @@ struct cfdriver aecd = { #define ETHER_ADDR_LEN 6 static char zero = 0; -static u_char ones = 0xff; /* * XXX These two should be moved to locore, and maybe changed to use shorts @@ -138,6 +144,10 @@ static u_char ones = 0xff; * which the ethernet cards can't handle. */ +void bszero __P((u_short *addr, int len)); +static inline void word_copy __P((caddr_t a, caddr_t b, int len)); +static inline void byte_copy __P((caddr_t a, caddr_t b, int len)); + void bszero(u_short * addr, int len) { @@ -228,6 +238,7 @@ ae_id_card(slot, sc) } break; default: + printf("Unknown ethernet drsw: %x\n", slottype.drsw); sc->vendor = AE_VENDOR_UNKNOWN; return 0; } @@ -239,13 +250,12 @@ ae_id_card(slot, sc) return 1; } -int +static int ae_size_card_memory(sc) struct ae_softc *sc; { u_short *p; u_short i1, i2, i3, i4; - int size; p = (u_short *) sc->mem_start; @@ -294,15 +304,17 @@ aeprobe(parent, match, aux) sc->regs_rev = 0; - addr = (caddr_t) NUBUS_SLOT_TO_BASE(nu->slot); + addr = (caddr_t) nu->virtual_base; switch (sc->vendor) { case AE_VENDOR_INTERLAN: sc->nic_addr = addr + GC_NIC_OFFSET; sc->rom_addr = addr + GC_ROM_OFFSET; sc->mem_start = addr + GC_DATA_OFFSET; - if ((memsize = ae_size_card_memory(sc)) == 0) + if ((memsize = ae_size_card_memory(sc)) == 0) { + printf("Failed to determine size of RAM.\n"); return 0; + } /* reset the NIC chip */ *((caddr_t) addr + GC_RESET_OFFSET) = (char) zero; @@ -319,8 +331,10 @@ aeprobe(parent, match, aux) sc->nic_addr = addr + AE_NIC_OFFSET; sc->rom_addr = addr + AE_ROM_OFFSET; sc->mem_start = addr + AE_DATA_OFFSET; - if ((memsize = ae_size_card_memory(sc)) == 0) + if ((memsize = ae_size_card_memory(sc)) == 0) { + printf("Failed to determine size of RAM.\n"); return (0); + } /* Get station address from on-board ROM */ for (i = 0; i < ETHER_ADDR_LEN; ++i) @@ -346,8 +360,10 @@ aeprobe(parent, match, aux) sc->rom_addr = addr + FE_ROM_OFFSET; sc->nic_addr = addr + AE_NIC_OFFSET; sc->mem_start = addr + AE_DATA_OFFSET; - if ((memsize = ae_size_card_memory(sc)) == 0) + if ((memsize = ae_size_card_memory(sc)) == 0) { + printf("Failed to determine size of RAM.\n"); return (0); + } /* Get station address from on-board ROM */ for (i = 0; i < ETHER_ADDR_LEN; ++i) @@ -381,7 +397,7 @@ aeprobe(parent, match, aux) for (i = 0; i < memsize; ++i) if (sc->mem_start[i]) { - printf("%s: failed to clear shared memory at %x - check configuration\n", +printf("%s: failed to clear shared memory at %p - check configuration\n", sc->sc_dev.dv_xname, sc->mem_start + i); return (0); @@ -401,16 +417,14 @@ aeattach(parent, self, aux) void *aux; { struct ae_softc *sc = (void *) self; - struct nubus_hw *nu = aux; - struct cfdata *cf = sc->sc_dev.dv_cfdata; struct ifnet *ifp = &sc->sc_arpcom.ac_if; /* Set interface to stopped condition (reset). */ aestop(sc); /* Initialize ifnet structure. */ - ifp->if_unit = sc->sc_dev.dv_unit; - ifp->if_name = aecd.cd_name; + bcopy(sc->sc_dev.dv_xname, ifp->if_xname, IFNAMSIZ); + ifp->if_softc = sc; ifp->if_start = aestart; ifp->if_ioctl = aeioctl; ifp->if_watchdog = aewatchdog; @@ -424,7 +438,7 @@ aeattach(parent, self, aux) /* Print additional info when attached. */ printf(": address %s, ", ether_sprintf(sc->sc_arpcom.ac_enaddr)); - printf("type %s, %dk mem.\n", sc->type_str, sc->mem_size / 1024); + printf("type %s, %ldk mem.\n", sc->type_str, sc->mem_size / 1024); #if NBPFILTER > 0 bpfattach(&ifp->if_bpf, ifp, DLT_EN10MB, sizeof(struct ether_header)); @@ -482,11 +496,12 @@ aestop(sc) * an interrupt after a transmit has been started on it. */ static int aeintr_ctr = 0; + void -aewatchdog(unit) - int unit; +aewatchdog(ifp) + struct ifnet *ifp; { - struct ae_softc *sc = aecd.cd_devs[unit]; + struct ae_softc *sc = ifp->if_softc; #if 1 /* @@ -498,10 +513,11 @@ aewatchdog(unit) i = aeintr_ctr; - (*via2itab[1]) (1); + (*via2itab[1]) ((void *) 1); if (i != aeintr_ctr) { - log(LOG_ERR, "ae%d: device timeout, recovered\n", unit); + log(LOG_ERR, "%s: device timeout, recovered\n", + sc->sc_dev.dv_xname); return; } #endif @@ -521,7 +537,6 @@ aeinit(sc) { struct ifnet *ifp = &sc->sc_arpcom.ac_if; int i; - u_char command; u_char mcaf[8]; /* @@ -674,7 +689,7 @@ void aestart(ifp) struct ifnet *ifp; { - struct ae_softc *sc = aecd.cd_devs[ifp->if_unit]; + struct ae_softc *sc = ifp->if_softc; struct mbuf *m0; caddr_t buffer; int len; @@ -848,8 +863,9 @@ loop: /* Ethernet interface interrupt processor. */ void -aeintr(arg) - void *arg; +aeintr(arg, slot) + void *arg; + int slot; { struct ae_softc *sc = arg; struct ifnet *ifp = &sc->sc_arpcom.ac_if; @@ -1021,7 +1037,7 @@ aeioctl(ifp, cmd, data) u_long cmd; caddr_t data; { - struct ae_softc *sc = aecd.cd_devs[ifp->if_unit]; + struct ae_softc *sc = ifp->if_softc; register struct ifaddr *ifa = (struct ifaddr *) data; struct ifreq *ifr = (struct ifreq *) data; int s, error = 0; @@ -1170,7 +1186,7 @@ static inline caddr_t ae_ring_copy(sc, src, dst, amount) struct ae_softc *sc; caddr_t src, dst; - u_short amount; + int amount; { u_short tmp_amount; @@ -1232,7 +1248,7 @@ aeget(sc, src, total_len) len = MCLBYTES; } m->m_len = len = min(total_len, len); - src = ae_ring_copy(sc, src, mtod(m, caddr_t), len); + src = ae_ring_copy(sc, src, mtod(m, caddr_t), (int) len); total_len -= len; *mp = m; mp = &m->m_next; diff --git a/sys/arch/mac68k/dev/if_sn.c b/sys/arch/mac68k/dev/if_sn.c index 3a6051a1176..d5d2d571957 100644 --- a/sys/arch/mac68k/dev/if_sn.c +++ b/sys/arch/mac68k/dev/if_sn.c @@ -47,7 +47,9 @@ typedef unsigned char uchar; #include <machine/cpu.h> +#include <machine/viareg.h> #include <mac68k/dev/if_sn.h> + #define SWR(a, x) (a) = (x) #define SRD(a) ((a) & 0xffff) @@ -84,9 +86,9 @@ struct sn_stats { struct sn_softc { struct device sc_dev; - struct arpcom sc_ac; -#define sc_if sc_ac.ac_if /* network visible interface */ -#define sc_enaddr sc_ac.ac_enaddr /* hardware ethernet address */ + struct arpcom sc_arpcom; +#define sc_if sc_arpcom.ac_if /* network visible interface */ +#define sc_enaddr sc_arpcom.ac_enaddr /* hardware ethernet address */ struct sonic_reg *sc_csr; /* hardware pointer */ int sc_rxmark; /* position in rx ring for reading buffs */ @@ -105,11 +107,26 @@ struct sn_softc { short sc_iflags; } sn_softc; -int snmatch __P((struct device *, void *, void *)); -void snattach __P((struct device *, struct device *, void *)); +static void snwatchdog __P((struct ifnet *)); +static int snmatch __P((struct device *, void *, void *)); +static void snattach __P((struct device *, struct device *, void *)); +static int sngetaddr __P((struct sn_softc *sc)); +static int sninit __P((struct sn_softc *sc)); +static int snstop __P((struct sn_softc *sc)); +static int sonicput __P((struct sn_softc *sc, struct mbuf *m0)); +static int snintr __P((struct sn_softc *, int)); +static int snioctl __P((struct ifnet *ifp, u_long cmd, caddr_t data)); +static void snstart __P((struct ifnet *ifp)); +static void snreset __P((struct sn_softc *sc)); + +void camdump __P((struct sn_softc *sc)); + +struct cfattach sn_ca = { + sizeof(struct sn_softc), snmatch, snattach +}; -struct cfdriver sncd = { - NULL, "sn", snmatch, snattach, DV_IFNET, sizeof(struct sn_softc) +struct cfdriver sn_cd = { + NULL, "sn", DV_IFNET }; #include <assert.h> @@ -123,49 +140,8 @@ __assert(file, line, failedexpr) failedexpr, file, line); } -void -m_check(m) - struct mbuf *m; -{ - if (m->m_flags & M_EXT) { - assert(m->m_len >= 0); - assert(m->m_len <= m->m_ext.ext_size); - assert(m->m_data >= &m->m_ext.ext_buf[0]); - assert(m->m_data <= &m->m_ext.ext_buf[m->m_ext.ext_size]); - assert(m->m_data + m->m_len <= &m->m_ext.ext_buf[m->m_ext.ext_size]); - } else if (m->m_flags & M_PKTHDR) { - assert(m->m_len >= 0); - assert(m->m_len <= MHLEN); - assert(m->m_data >= m->m_pktdat); - assert(m->m_data <= &m->m_pktdat[MHLEN]); - assert(m->m_data + m->m_len <= &m->m_pktdat[MHLEN]); - } else { - assert(m->m_len >= 0); - assert(m->m_len <= MLEN); - assert(m->m_data >= m->m_dat); - assert(m->m_data <= &m->m_dat[MLEN]); - assert(m->m_data + m->m_len <= &m->m_dat[MLEN]); - } -} - -void -m_checkm(m) - struct mbuf *m; -{ - while (m) { - m_check(m); - m = m->m_next; - } -} - int ethdebug = 0; -int snintr __P((struct sn_softc *)); -int snioctl __P((struct ifnet *ifp, u_long cmd, caddr_t data)); -void snstart __P((struct ifnet *ifp)); -void snwatchdog __P(( /*int unit */ )); -void snreset __P((struct sn_softc *sc)); - /* * SONIC buffers need to be aligned 16 or 32 bit aligned. * These macros calculate and verify alignment. @@ -247,24 +223,11 @@ struct mtd *mtdnext; /* next descriptor to give to chip */ void mtd_free __P((struct mtd *)); struct mtd *mtd_alloc __P((void)); -int sngetaddr __P((struct sn_softc *sc)); -int sninit __P((int unit)); -int snstop __P((int unit)); -int sonicput __P((struct sn_softc *sc, struct mbuf *m0)); - -void camdump __P((struct sn_softc *sc)); - -int +static int snmatch(parent, match, aux) struct device *parent; void *match, *aux; { - struct cfdata *cf = match; - struct confargs *ca = aux; - - if (matchbyname(parent, cf, aux) == 0) - return 0; - if (!mac68k_machine.sonic) return 0; @@ -276,7 +239,7 @@ snmatch(parent, match, aux) * record. System will initialize the interface when it is ready * to accept packets. */ -void +static void snattach(parent, self, aux) struct device *parent, *self; void *aux; @@ -284,15 +247,13 @@ snattach(parent, self, aux) extern unsigned char SONICSPACE; extern unsigned long SONICSPACE_size; struct sn_softc *sc = (void *)self; - struct confargs *ca = aux; struct ifnet *ifp = &sc->sc_if; - struct cfdata *cf = sc->sc_dev.dv_cfdata; int base, p, pp; /* Must allocate extra memory in case we need to round later. */ pp = (DESC_SIZE + NRBA*RBASIZE + 0x10000 + 4 + TBASIZE); if (pp != SONICSPACE_size) { - printf(": SONICSPACE_size (%d) != pp (%d). Punt!\n", + printf(": SONICSPACE_size (%ld) != pp (%d). Punt!\n", SONICSPACE_size, pp); return; } @@ -351,11 +312,8 @@ printf("sonic buffers: rra=0x%x cda=0x%x rda=0x%x tda=0x%x rba=0x%x tba=0x%x\n", p_rra, p_cda, p_rda, p_tda, p_rba, p_tba); #endif - add_nubus_intr(9, snintr, (void *) sc); - enable_nubus_intr(); - - ifp->if_name = "sn"; - ifp->if_unit = sc->sc_dev.dv_unit; + bcopy(sc->sc_dev.dv_xname, ifp->if_xname, IFNAMSIZ); + ifp->if_softc = sc; ifp->if_ioctl = snioctl; ifp->if_start = snstart; ifp->if_flags = IFF_BROADCAST | IFF_SIMPLEX | IFF_MULTICAST; @@ -365,18 +323,21 @@ printf("sonic buffers: rra=0x%x cda=0x%x rda=0x%x tda=0x%x rba=0x%x tba=0x%x\n", #endif if_attach(ifp); ether_ifattach(ifp); + + add_nubus_intr(9, (void (*) __P((void *, int))) snintr, (void *) sc); + enable_nubus_intr(); } -int +static int snioctl(ifp, cmd, data) struct ifnet *ifp; u_long cmd; caddr_t data; { struct ifaddr *ifa; - struct sn_softc *sc = sncd.cd_devs[ifp->if_unit]; + struct sn_softc *sc = ifp->if_softc; int s = splnet(), err = 0; - int temp; + int temp, error; if ((error = ether_ioctl(ifp, &sc->sc_arpcom, cmd, data)) > 0) { splx(s); @@ -391,12 +352,12 @@ snioctl(ifp, cmd, data) switch (ifa->ifa_addr->sa_family) { #ifdef INET case AF_INET: - (void)sninit(ifp->if_unit); - arp_ifinit(&sc->sc_ac, ifa); + (void)sninit(ifp->if_softc); + arp_ifinit(&sc->sc_arpcom, ifa); break; #endif default: - (void)sninit(ifp->if_unit); + (void)sninit(ifp->if_softc); break; } break; @@ -404,11 +365,11 @@ snioctl(ifp, cmd, data) case SIOCSIFFLAGS: if ((ifp->if_flags & IFF_UP) == 0 && ifp->if_flags & IFF_RUNNING) { - snstop(ifp->if_unit); + snstop(ifp->if_softc); ifp->if_flags &= ~IFF_RUNNING; } else if (ifp->if_flags & IFF_UP && (ifp->if_flags & IFF_RUNNING) == 0) - (void)sninit(ifp->if_unit); + (void)sninit(ifp->if_softc); /* * If the state of the promiscuous bit changes, the interface * must be reset to effect the change. @@ -427,9 +388,11 @@ snioctl(ifp, cmd, data) case SIOCADDMULTI: case SIOCDELMULTI: if(cmd == SIOCADDMULTI) - err = ether_addmulti((struct ifreq *)data, &sc->sc_ac); + err = ether_addmulti((struct ifreq *)data, + &sc->sc_arpcom); else - err = ether_delmulti((struct ifreq *)data, &sc->sc_ac); + err = ether_delmulti((struct ifreq *)data, + &sc->sc_arpcom); if (err == ENETRESET) { /* @@ -454,11 +417,11 @@ snioctl(ifp, cmd, data) * Use trailer local net encapsulation if enough data in first * packet leaves a multiple of 512 bytes of data in remainder. */ -void +static void snstart(ifp) struct ifnet *ifp; { - struct sn_softc *sc = sncd.cd_devs[ifp->if_unit]; + struct sn_softc *sc = ifp->if_softc; struct mbuf *m; int len; @@ -534,22 +497,21 @@ void initialise_tba __P((struct sn_softc *)); * reset and restart the SONIC. Called in case of fatal * hardware/software errors. */ -void +static void snreset(sc) struct sn_softc *sc; { printf("snreset\n"); - snstop(sc->sc_dev.dv_unit); - sninit(sc->sc_dev.dv_unit); + snstop(sc); + sninit(sc); } -int -sninit(unit) - int unit; +static int +sninit(sc) + struct sn_softc *sc; { - struct sn_softc *sc = sncd.cd_devs[unit]; struct sonic_reg *csr = sc->sc_csr; - int s, error; + int s; if (sc->sc_if.if_flags & IFF_RUNNING) /* already running */ @@ -602,10 +564,6 @@ sninit(unit) splx(s); return (0); - -bad: - snstop(sc->sc_dev.dv_unit); - return (error); } /* @@ -613,11 +571,10 @@ bad: * Called on final close of device, or if sninit() fails * part way through. */ -int -snstop(unit) - int unit; +static int +snstop(sc) + struct sn_softc *sc; { - struct sn_softc *sc = sncd.cd_devs[unit]; struct mtd *mtd; int s = splnet(); @@ -628,7 +585,7 @@ snstop(unit) /* free all receive buffers (currently static so nothing to do) */ /* free all pending transmit mbufs */ - while (mtd = mtdhead) { + while ((mtd = mtdhead) != NULL) { mtdhead = mtdhead->mtd_link; mtd->mtd_buf = 0; mtd_free(mtd); @@ -648,21 +605,21 @@ snstop(unit) * In all cases we just reset the chip, and any retransmission * will be handled by higher level protocol timeouts. */ -void -snwatchdog(unit) - int unit; +static void +snwatchdog(ifp) + struct ifnet *ifp; { - struct sn_softc *sc = sncd.cd_devs[unit]; + struct sn_softc *sc = ifp->if_softc; int temp; if (mtdhead && mtdhead->mtd_buf) { /* something still pending for transmit */ if (mtdhead->mtd_txp->status == 0) - log(LOG_ERR, "%s%d: Tx - timeout\n", - sc->sc_if.if_name, sc->sc_if.if_unit); + log(LOG_ERR, "%s: Tx - timeout\n", + sc->sc_dev.dv_xname); else - log(LOG_ERR, "%s%d: Tx - lost interrupt\n", - sc->sc_if.if_name, sc->sc_if.if_unit); + log(LOG_ERR, "%s: Tx - lost interrupt\n", + sc->sc_dev.dv_xname); temp = sc->sc_if.if_flags & IFF_UP; snreset(sc); sc->sc_if.if_flags |= temp; @@ -672,7 +629,7 @@ snwatchdog(unit) /* * stuff packet into sonic (at splnet) */ -int +static int sonicput(sc, m0) struct sn_softc *sc; struct mbuf *m0; @@ -682,7 +639,7 @@ sonicput(sc, m0) struct TXpkt *txp; struct mtd *mtdnew; struct mbuf *m; - int i, len = 0, totlen = 0; + int len = 0, totlen = 0; /* grab the replacement mtd */ if ((mtdnew = mtd_alloc()) == 0) @@ -753,12 +710,11 @@ printf("Padding %d to %d bytes\n", totlen, totlen+pad); * there by the boot when doing a loopback test. Thus we don't * have to fetch it from nv ram. */ -int +static int sngetaddr(sc) struct sn_softc *sc; { - unsigned i, x, y; - char *cp, *ea; + unsigned i; sc->sc_csr->s_cr = CR_RST; wbflush(); @@ -838,7 +794,6 @@ camprogram(sc) { struct sonic_reg *csr; int timeout; - int i; csr = sc->sc_csr; csr->s_cdp = LOWER(p_cda); @@ -972,21 +927,20 @@ void initialise_tba(sc) struct sn_softc *sc; { - int i; - sc->txb_cnt = NTXB; sc->txb_inuse = 0; sc->txb_new = 0; } -int -snintr(sc) +static int +snintr(sc, slot) struct sn_softc *sc; + int slot; { struct sonic_reg *csr = sc->sc_csr; int isr; - while (isr = (csr->s_isr & ISR_ALL)) { + while ((isr = (csr->s_isr & ISR_ALL)) != 0) { printf("snintr: %x.\n", isr); /* scrub the interrupts that we are going to service */ csr->s_isr = isr; @@ -1044,7 +998,7 @@ sonictxint(sc) csr = sc->sc_csr; - while (mtd = mtdhead) { + while ((mtd = mtdhead) != NULL) { if (mtd->mtd_buf == 0) break; @@ -1057,7 +1011,7 @@ sonictxint(sc) struct ether_header *eh; eh = (struct ether_header *) mtd->mtd_buf; - printf("xmit status=0x%x len=%d type=0x%x from %s", + printf("xmit status=0x%lx len=%ld type=0x%x from %s", txp->status, txp->pkt_size, htons(eh->ether_type), @@ -1073,7 +1027,7 @@ sonictxint(sc) /* XXX - Do stats here. */ if ((SRD(txp->status) & TCR_PTX) == 0) { - printf("sonic: Tx packet status=0x%x\n", txp->status); + printf("sonic: Tx packet status=0x%lx\n", txp->status); if (mtdhead != mtdnext) { printf("resubmitting remaining packets\n"); @@ -1099,7 +1053,6 @@ sonicrxint(sc) { struct sonic_reg *csr = sc->sc_csr; struct RXpkt *rxp; - u_long addr; int orra; rxp = &p_rda[sc->sc_rxmark]; @@ -1174,7 +1127,7 @@ sonic_read(sc, rxp) /*extern char *ether_sprintf();*/ struct ether_header *et; struct mbuf *m; - int len, off, i; + int len; caddr_t pkt; /* @@ -1190,7 +1143,7 @@ sonic_read(sc, rxp) et = (struct ether_header *)pkt; if (ethdebug) { - printf("rcvd 0x%x status=0x%x, len=%d type=0x%x from %s", + printf("rcvd 0x%p status=0x%lx, len=%d type=0x%x from %s", et, rxp->status, len, htons(et->ether_type), ether_sprintf(et->ether_shost)); printf(" (to %s)\n", ether_sprintf(et->ether_dhost)); @@ -1213,7 +1166,7 @@ sonic_read(sc, rxp) (et->ether_dhost[0] & 1) == 0 && /* !mcast and !bcast */ bcmp(et->ether_dhost, sc->sc_enaddr, sizeof(et->ether_dhost)) != 0) - return; + return (0); } #endif m = sonic_get(sc, et, len); diff --git a/sys/arch/mac68k/dev/ite.c b/sys/arch/mac68k/dev/ite.c index 1ce56c6efa4..434cc491879 100644 --- a/sys/arch/mac68k/dev/ite.c +++ b/sys/arch/mac68k/dev/ite.c @@ -1,4 +1,4 @@ -/* $NetBSD: ite.c,v 1.16 1995/07/17 01:24:34 briggs Exp $ */ +/* $NetBSD: ite.c,v 1.22 1996/05/25 00:56:38 briggs Exp $ */ /* * Copyright (c) 1988 University of Utah. @@ -64,7 +64,7 @@ #include <sys/device.h> #include <dev/cons.h> -#include "../mac68k/via.h" +#include <machine/viareg.h> #include <machine/cpu.h> #include <machine/frame.h> @@ -73,10 +73,40 @@ #include <machine/adbsys.h> #include <machine/iteioctl.h> +#include "../mac68k/macrom.h" + +#include "ascvar.h" +#include "itevar.h" + #include "6x10.h" #define CHARWIDTH 6 #define CHARHEIGHT 10 +/* Local function prototypes */ +static inline void putpixel1 __P((int, int, int *, int)); +static void putpixel2 __P((int, int, int *, int)); +static void putpixel4 __P((int, int, int *, int)); +static void putpixel8 __P((int, int, int *, int)); +static void reversepixel1 __P((int, int, int)); +static void writechar __P((char, int, int, int)); +static void drawcursor __P((void)); +static void erasecursor __P((void)); +static void scrollup __P((void)); +static void scrolldown __P((void)); +static void clear_screen __P((int)); +static void clear_line __P((int)); +static void reset_tabs __P((void)); +static void vt100_reset __P((void)); +static void putc_normal __P((char)); +static void putc_esc __P((char)); +static void putc_gotpars __P((char)); +static void putc_getpars __P((char)); +static void putc_square __P((char)); +static void ite_putchar __P((char)); +static int ite_pollforchar __P((void)); +static int itematch __P((struct device *, void *, void *)); +static void iteattach __P((struct device *, struct device *, void *)); + #define dprintf if (0) printf #define ATTR_NONE 0 @@ -97,43 +127,48 @@ enum vt100state_e { ESignore /* Ignore this sequence */ } vt100state = ESnormal; -/* Received from MacBSDBoot, stored by Locore: */ -long videoaddr; -long videorowbytes; -long videobitdepth; -unsigned long videosize; +/* From Booter via locore */ +long videoaddr; +long videorowbytes; +long videobitdepth; +unsigned long videosize; -/* Calculated in itecninit(): */ -static int width, height, scrrows, scrcols; -static void (*putpixel) (int x, int y, int *c, int num); -static void (*reversepixel) (int x, int y, int num); +/* Calculated by itecninit() */ +static int ite_initted = 0; +static int width, height; /* width, height in pixels */ +static int scrcols, scrrows; /* width, height in characters */ +static int screenrowbytes; /* number of visible bytes per row */ -/* VT100 state: */ -#define MAXPARS 16 -static int x = 0, y = 0, savex, savey; -static int par[MAXPARS], numpars, hanging_cursor, attr; +/* VT100 emulation */ +#define MAXPARS 16 /* max number of VT100 op parameters */ +static int par[MAXPARS], numpars; /* parameter array, # of parameters */ +static int x = 0, y = 0; /* current VT100 cursor location */ +static int savex, savey; /* saved cursor location */ +static int hanging_cursor; /* cursor waiting for more output */ +static int attr; /* current video attribute */ +static char tab_stops[255]; /* tab stops */ +static int scrreg_top; /* scroll region */ +static int scrreg_bottom; -/* Our tty: */ -struct tty *ite_tty; +/* For polled ADB mode */ +static int polledkey; +extern int adb_polling; -/* For polled ADB mode: */ -static int polledkey; -extern int adb_polling; +struct tty *ite_tty; /* Our tty */ -/* Misc */ -void itestart(); -static void ite_putchar(char ch); +static void (*putpixel) __P((int x, int y, int *c, int num)); +static void (*reversepixel) __P((int x, int y, int num)); -/* VT100 tab stops & scroll region */ -static char tab_stops[255]; -static int scrreg_top, scrreg_bottom; /* * Bitmap handling functions */ static inline void -putpixel1(int xx, int yy, int *c, int num) +putpixel1(xx, yy, c, num) + int xx, yy; + int *c; + int num; { unsigned int i, mask; unsigned char *sc; @@ -151,7 +186,10 @@ putpixel1(int xx, int yy, int *c, int num) } static void -putpixel2(int xx, int yy, int *c, int num) +putpixel2(xx, yy, c, num) + int xx, yy; + int *c; + int num; { unsigned int i, mask; unsigned char *sc; @@ -169,7 +207,10 @@ putpixel2(int xx, int yy, int *c, int num) } static void -putpixel4(int xx, int yy, int *c, int num) +putpixel4(xx, yy, c, num) + int xx, yy; + int *c; + int num; { unsigned int i, mask; unsigned char *sc; @@ -187,7 +228,10 @@ putpixel4(int xx, int yy, int *c, int num) } static void -putpixel8(int xx, int yy, int *c, int num) +putpixel8(xx, yy, c, num) + int xx, yy; + int *c; + int num; { unsigned char *sc; @@ -201,7 +245,8 @@ putpixel8(int xx, int yy, int *c, int num) } static void -reversepixel1(int xx, int yy, int num) +reversepixel1(xx, yy, num) + int xx, yy, num; { unsigned int mask; unsigned char *sc; @@ -237,9 +282,11 @@ reversepixel1(int xx, int yy, int num) } static void -writechar(char ch, int x, int y, int attr) +writechar(ch, x, y, attr) + char ch; + int x, y, attr; { - int i, j, mask, rev, col[CHARHEIGHT]; + int i, j, mask, rev, col[CHARHEIGHT]; unsigned char *c; ch &= 0x7F; @@ -254,16 +301,14 @@ writechar(char ch, int x, int y, int attr) case 1: for (j = 0; j < CHARWIDTH; j++) { mask = 1 << (CHARWIDTH - 1 - j); - for (i = 0; i < CHARHEIGHT; i++) { + for (i = 0; i < CHARHEIGHT; i++) col[i] = ((c[i] & mask) ? 255 : 0) ^ rev; - } putpixel1(x + j, y, col, CHARHEIGHT); } if (attr & ATTR_UNDER) { col[0] = 255; - for (j = 0; j < CHARWIDTH; j++) { + for (j = 0; j < CHARWIDTH; j++) putpixel1(x + j, y + CHARHEIGHT - 1, col, 1); - } } break; case 2: @@ -271,116 +316,132 @@ writechar(char ch, int x, int y, int attr) case 8: for (j = 0; j < CHARWIDTH; j++) { mask = 1 << (CHARWIDTH - 1 - j); - for (i = 0; i < CHARHEIGHT; i++) { + for (i = 0; i < CHARHEIGHT; i++) col[i] = ((c[i] & mask) ? 255 : 0) ^ rev; - } putpixel(x + j, y, col, CHARHEIGHT); } if (attr & ATTR_UNDER) { col[0] = 255; - for (j = 0; j < CHARWIDTH; j++) { + for (j = 0; j < CHARWIDTH; j++) putpixel(x + j, y + CHARHEIGHT - 1, col, 1); - } } break; } } static void -drawcursor(void) +drawcursor() { - int j, X, Y; + unsigned int j, X, Y; X = x * CHARWIDTH; Y = y * CHARHEIGHT; - for (j = 0; j < CHARWIDTH; j++) { + for (j = 0; j < CHARWIDTH; j++) reversepixel(X + j, Y, CHARHEIGHT); - } } static void -erasecursor(void) +erasecursor() { - int j, X, Y; + unsigned int j, X, Y; X = x * CHARWIDTH; Y = y * CHARHEIGHT; - for (j = 0; j < CHARWIDTH; j++) { + for (j = 0; j < CHARWIDTH; j++) reversepixel(X + j, Y, CHARHEIGHT); - } } static void -scrollup(void) +scrollup() { - unsigned long *from, *to; - int i, linelongs, tocopy, copying; - linelongs = videorowbytes * CHARHEIGHT / 4; - - to = (unsigned long *) videoaddr + ((scrreg_top-1) * linelongs); - from = to + linelongs; - - tocopy = (scrreg_bottom - scrreg_top) * linelongs; - while (tocopy > 0) { - copying = (tocopy > 16383) ? 16383 : tocopy; - bcopy(from, to, copying * 4); - from += copying; - to += copying; - tocopy -= copying; + unsigned char *from, *to; + unsigned int linebytes; + unsigned short i; + + linebytes = videorowbytes * CHARHEIGHT; + to = (unsigned char *) videoaddr + ((scrreg_top - 1) * linebytes); + from = to + linebytes; + + for (i = (scrreg_bottom - scrreg_top) * CHARHEIGHT; i > 0; i--) { + ovbcopy(from, to, screenrowbytes); + from += videorowbytes; + to += videorowbytes; + } + for (i = CHARHEIGHT; i > 0; i--) { + bzero(to, screenrowbytes); + to += videorowbytes; } - to = (unsigned long *) videoaddr; - bzero(to + (scrreg_bottom - 1) * linelongs, linelongs * sizeof(long)); } static void -scrolldown(void) +scrolldown() { - unsigned long *from, *to; - int i, linelongs; - linelongs = videorowbytes * CHARHEIGHT / 4; - - to = (unsigned long *) videoaddr + linelongs * (scrreg_bottom); - from = to - linelongs; - - for (i = (scrreg_bottom - scrreg_top) * linelongs; i > 0; i--) { - *--to = *--from; + unsigned char *from, *to; + unsigned int linebytes; + unsigned short i; + + linebytes = videorowbytes * CHARHEIGHT; + to = (unsigned char *) videoaddr + (scrreg_bottom * linebytes); + from = to - linebytes; + + for (i = (scrreg_bottom - scrreg_top) * CHARHEIGHT; i > 0; i--) { + from -= videorowbytes; + to -= videorowbytes; + ovbcopy(from, to, screenrowbytes); } - for (i = linelongs; i > 0; i--) { - *--to = 0; + for (i = CHARHEIGHT; i > 0; i--) { + to -= videorowbytes; + bzero(to, screenrowbytes); } } static void -clear_screen(int which) +clear_screen(which) + int which; { - unsigned long *p; - int i, linelongs; + unsigned char *p; + unsigned short len, i; - p = (unsigned long *) videoaddr; - linelongs = videorowbytes * CHARHEIGHT / 4; + p = (unsigned char *) videoaddr; switch (which) { case 0: /* To end of screen */ - p += y * linelongs; - i = (scrrows - y) * linelongs; + if (x > 0) { + clear_line(0); + if (y < scrrows) + y++; + x = 0; + } + p += y * videorowbytes * CHARHEIGHT; + len = scrrows - y; break; case 1: /* To start of screen */ - i = y * linelongs; + if (x > 0) { + clear_line(1); + if (y > 0) + y--; + x = 0; + } + len = y; break; case 2: /* Whole screen */ - i = scrrows * linelongs; + len = scrrows; break; } - bzero(p, i * sizeof(long)); + for (i = len * CHARHEIGHT; i > 0; i--) { + bzero(p, screenrowbytes); + p += videorowbytes; + } } static void -clear_line(int which) +clear_line(which) + int which; { - int start, end, i; + int start, end, i; /* * This routine runs extremely slowly. I don't think it's @@ -390,6 +451,7 @@ clear_line(int which) */ switch (which) { + default: case 0: /* To end of line */ start = x; end = scrcols; @@ -404,31 +466,31 @@ clear_line(int which) break; } - for (i = start; i < end; i++) { + for (i = start; i < end; i++) writechar(' ', i, y, ATTR_NONE); - } } + static void -reset_tabs(void) +reset_tabs() { int i; - for (i = 0; i<= scrcols; i++) { + for (i = 0; i<= scrcols; i++) tab_stops[i] = ((i % 8) == 0); - } } static void -vt100_reset(void) +vt100_reset() { - reset_tabs; + reset_tabs(); scrreg_top = 1; scrreg_bottom = scrrows; attr = ATTR_NONE; } static void -putc_normal(char ch) +putc_normal(ch) + char ch; { switch (ch) { case '\a': /* Beep */ @@ -436,24 +498,22 @@ putc_normal(char ch) break; case 127: /* Delete */ case '\b': /* Backspace */ - if (hanging_cursor) { + if (hanging_cursor) hanging_cursor = 0; - } else - if (x > 0) { - x--; - } + else if (x > 0) + x--; break; case '\t': /* Tab */ do { ite_putchar(' '); - } while (tab_stops[x] = 0); + x++; + } while ((tab_stops[x] == 0) && (x < scrcols)); break; case '\n': /* Line feed */ - if (y == scrreg_bottom - 1) { + if (y == scrreg_bottom - 1) scrollup(); - } else { + else y++; - } break; case '\r': /* Carriage return */ x = 0; @@ -467,19 +527,19 @@ putc_normal(char ch) if (ch >= ' ') { if (hanging_cursor) { x = 0; - if (y == scrreg_bottom - 1) { + if (y == scrreg_bottom - 1) scrollup(); - } else { + else y++; - } hanging_cursor = 0; } + writechar(ch, x, y, attr); - if (x == scrcols - 1) { + + if (x == scrcols - 1) hanging_cursor = 1; - } else { + else x++; - } if (x >= scrcols) { /* can we ever get here? */ x = 0; y++; @@ -490,7 +550,8 @@ putc_normal(char ch) } static void -putc_esc(char ch) +putc_esc(ch) + char ch; { vt100state = ESnormal; @@ -499,21 +560,19 @@ putc_esc(char ch) vt100state = ESsquare; break; case 'D': /* Line feed */ - if (y == scrreg_bottom - 1) { + if (y == scrreg_bottom - 1) scrollup(); - } else { + else y++; - } break; case 'H': /* Set tab stop */ tab_stops[x] = 1; break; case 'M': /* Cursor up */ - if (y == scrreg_top - 1) { + if (y == scrreg_top - 1) scrolldown(); - } else { + else y--; - } break; case '>': vt100_reset(); @@ -533,31 +592,30 @@ putc_esc(char ch) } static void -putc_gotpars(char ch) +putc_gotpars(ch) + char ch; { - int i; + int i; vt100state = ESnormal; switch (ch) { case 'A': /* Up */ i = par[0]; do { - if (y == scrreg_top - 1) { + if (y == scrreg_top - 1) scrolldown(); - } else { + else y--; - }; i--; } while (i > 0); break; case 'B': /* Down */ i = par[0]; do { - if (y == scrreg_bottom - 1) { + if (y == scrreg_bottom - 1) scrollup(); - } else { + else y++; - }; i--; } while (i > 0); break; @@ -579,9 +637,8 @@ putc_gotpars(char ch) clear_line(par[0]); break; case 'g': /* Clear tab stops */ - if (numpars >= 1 && par[0] == 3) { + if (numpars >= 1 && par[0] == 3) reset_tabs(); - } break; case 'm': /* Set attribute */ for (i = 0; i < numpars; i++) { @@ -603,22 +660,21 @@ putc_gotpars(char ch) break; case 'r': /* Set scroll region */ /* ensure top < bottom, and both within limits */ - if ((numpars > 0) && (par[0] < scrrows)) { + if ((numpars > 0) && (par[0] < scrrows)) scrreg_top = par[0]; - } else { + else scrreg_top = 1; - } - if ((numpars > 1) && (par[1] <= scrrows) && (par[1] > par[0])) { + if ((numpars > 1) && (par[1] <= scrrows) && (par[1] > par[0])) scrreg_bottom = par[1]; - } else { + else scrreg_bottom = scrrows; - } break; } } static void -putc_getpars(char ch) +putc_getpars(ch) + char ch; { if (ch == '?') { /* Not supported */ @@ -629,27 +685,26 @@ putc_getpars(char ch) /* Not supported */ return; } - if (ch == ';' && numpars < MAXPARS - 1) { + if (ch == ';' && numpars < MAXPARS - 1) numpars++; - } else - if (ch >= '0' && ch <= '9') { - par[numpars] *= 10; - par[numpars] += ch - '0'; - } else { - numpars++; - vt100state = ESgotpars; - putc_gotpars(ch); - } + else if (ch >= '0' && ch <= '9') { + par[numpars] *= 10; + par[numpars] += ch - '0'; + } else { + numpars++; + vt100state = ESgotpars; + putc_gotpars(ch); + } } static void -putc_square(char ch) +putc_square(ch) + char ch; { - int i; + unsigned short i; - for (i = 0; i < MAXPARS; i++) { + for (i = 0; i < MAXPARS; i++) par[i] = 0; - } numpars = 0; vt100state = ESgetpars; @@ -658,10 +713,12 @@ putc_square(char ch) } static void -ite_putchar(char ch) +ite_putchar(ch) + char ch; { switch (vt100state) { - default:vt100state = ESnormal; /* FALLTHROUGH */ + default: + vt100state = ESnormal; /* FALLTHROUGH */ case ESnormal: putc_normal(ch); break; @@ -679,36 +736,25 @@ ite_putchar(char ch) break; } - if (x >= scrcols) { + if (x >= scrcols) x = scrcols - 1; - } - if (x < 0) { + if (x < 0) x = 0; - } - if (y >= scrrows) { + if (y >= scrrows) y = scrrows - 1; - } - if (y < 0) { + if (y < 0) y = 0; - } } + + /* * Keyboard support functions */ static int -ite_dopollkey(int key) +ite_pollforchar() { - polledkey = key; - - return 0; -} - - -static int -ite_pollforchar(void) -{ - int s; + int s; register int intbits; s = splhigh(); @@ -736,30 +782,56 @@ ite_pollforchar(void) return polledkey; } + + /* - * Tty handling functions + * Autoconfig attachment */ +struct cfattach ite_ca = { + sizeof(struct device), itematch, iteattach +}; + +struct cfdriver ite_cd = { + NULL, "ite", DV_TTY +}; + +static int +itematch(pdp, match, auxp) + struct device *pdp; + void *match, *auxp; +{ + return 1; +} + static void -iteattach(struct device * parent, struct device * dev, void *aux) +iteattach(parent, dev, aux) + struct device *parent, *dev; + void *aux; { printf(" (minimal console)\n"); } -extern int matchbyname(); -struct cfdriver itecd = { - NULL, "ite", matchbyname, iteattach, DV_TTY, sizeof(struct device) -}; +/* + * Tty handling functions + */ int -iteopen(dev_t dev, int mode, int devtype, struct proc * p) +iteopen(dev, mode, devtype, p) + dev_t dev; + int mode; + int devtype; + struct proc *p; { register struct tty *tp; register int error; - int first = 0; dprintf("iteopen(): enter(0x%x)\n", (int) dev); + + if (!ite_initted) + return (ENXIO); + if (ite_tty == NULL) tp = ite_tty = ttymalloc(); else @@ -767,6 +839,7 @@ iteopen(dev_t dev, int mode, int devtype, struct proc * p) if ((tp->t_state & (TS_ISOPEN | TS_XCLUDE)) == (TS_ISOPEN | TS_XCLUDE) && p->p_ucred->cr_uid != 0) return (EBUSY); + tp->t_oproc = itestart; tp->t_param = NULL; tp->t_dev = dev; @@ -780,85 +853,109 @@ iteopen(dev_t dev, int mode, int devtype, struct proc * p) tp->t_state = TS_ISOPEN | TS_CARR_ON; ttsetwater(tp); } + error = (*linesw[tp->t_line].l_open) (dev, tp); tp->t_winsize.ws_row = scrrows; tp->t_winsize.ws_col = scrcols; + dprintf("iteopen(): exit(%d)\n", error); return (error); } int -iteclose(dev_t dev, int flag, int mode, struct proc * p) +iteclose(dev, flag, mode, p) + dev_t dev; + int flag; + int mode; + struct proc *p; { dprintf("iteclose: enter (%d)\n", (int) dev); + (*linesw[ite_tty->t_line].l_close) (ite_tty, flag); ttyclose(ite_tty); #if 0 ttyfree(ite_tty); ite_tty = (struct tty *) 0; #endif + dprintf("iteclose: exit\n"); return 0; } int -iteread(dev_t dev, struct uio * uio, int flag) +iteread(dev, uio, flag) + dev_t dev; + struct uio *uio; + int flag; { dprintf("iteread: enter\n"); return (*linesw[ite_tty->t_line].l_read) (ite_tty, uio, flag); - dprintf("iteread: exit\n"); } int -itewrite(dev_t dev, struct uio * uio, int flag) +itewrite(dev, uio, flag) + dev_t dev; + struct uio *uio; + int flag; { dprintf("itewrite: enter\n"); return (*linesw[ite_tty->t_line].l_write) (ite_tty, uio, flag); - dprintf("itewrite: exit\n"); } struct tty * itetty(dev) - dev_t dev; + dev_t dev; { return (ite_tty); } int -iteioctl(dev_t dev, int cmd, caddr_t addr, int flag, struct proc * p) +iteioctl(dev, cmd, addr, flag, p) + dev_t dev; + int cmd; + caddr_t addr; + int flag; + struct proc *p; { register struct tty *tp = ite_tty; - int error; + int error; dprintf("iteioctl: enter(%d, 0x%x)\n", cmd, cmd); + error = (*linesw[tp->t_line].l_ioctl) (tp, cmd, addr, flag, p); if (error >= 0) { dprintf("iteioctl: exit(%d)\n", error); return (error); } + error = ttioctl(tp, cmd, addr, flag, p); if (error >= 0) { dprintf("iteioctl: exit(%d)\n", error); return (error); } + switch (cmd) { - case ITEIOC_RINGBELL:{ + case ITEIOC_RINGBELL: + { asc_ringbell(); return (0); } - case ITEIOC_SETBELL:{ + case ITEIOC_SETBELL: + { struct bellparams *bp = (void *) addr; asc_setbellparams(bp->freq, bp->len, bp->vol); return (0); } - case ITEIOC_GETBELL:{ + case ITEIOC_GETBELL: + { struct bellparams *bp = (void *) addr; asc_getbellparams(&bp->freq, &bp->len, &bp->vol); return (0); } } + dprintf("iteioctl: exit(ENOTTY)\n"); return (ENOTTY); } @@ -867,7 +964,6 @@ void itestart(register struct tty * tp) { register int cc, s; - int hiwat = 0, hadcursor = 0; s = spltty(); if (tp->t_state & (TS_TIMEOUT | TS_BUSY | TS_TTSTOP)) { @@ -879,9 +975,8 @@ itestart(register struct tty * tp) cc = tp->t_outq.c_cc; splx(s); erasecursor(); - while (cc-- > 0) { + while (cc-- > 0) ite_putchar(getc(&tp->t_outq)); - } drawcursor(); s = spltty(); @@ -892,14 +987,12 @@ itestart(register struct tty * tp) void itestop(struct tty * tp, int flag) { - int s; + int s; s = spltty(); - if (tp->t_state & TS_BUSY) { - if ((tp->t_state & TS_TTSTOP) == 0) { + if (tp->t_state & TS_BUSY) + if ((tp->t_state & TS_TTSTOP) == 0) tp->t_state |= TS_FLUSH; - } - } splx(s); } @@ -907,65 +1000,60 @@ int ite_intr(adb_event_t * event) { static int shift = 0, control = 0; - int key, press, val, state; - char str[10], *s; + int key, press, val, state; + char str[10], *s; key = event->u.k.key; press = ADBK_PRESS(key); val = ADBK_KEYVAL(key); - if (val == ADBK_SHIFT) { + if (val == ADBK_SHIFT) shift = press; - } else - if (val == ADBK_CONTROL) { - control = press; - } else - if (press) { - switch (val) { - case ADBK_UP: - str[0] = '\e'; - str[1] = 'O'; - str[2] = 'A'; - str[3] = '\0'; - break; - case ADBK_DOWN: - str[0] = '\e'; - str[1] = 'O'; - str[2] = 'B'; - str[3] = '\0'; - break; - case ADBK_RIGHT: - str[0] = '\e'; - str[1] = 'O'; - str[2] = 'C'; - str[3] = '\0'; - break; - case ADBK_LEFT: - str[0] = '\e'; - str[1] = 'O'; - str[2] = 'D'; - str[3] = '\0'; - break; - default: - state = 0; - if (shift) { - state = 1; - } - if (control) { - state = 2; - } - str[0] = keyboard[val][state]; - str[1] = '\0'; - break; - } - if (adb_polling) { - polledkey = str[0]; - } else { - for (s = str; *s; s++) { - (*linesw[ite_tty->t_line].l_rint) (*s, ite_tty); - } - } - } + else if (val == ADBK_CONTROL) + control = press; + else if (press) { + switch (val) { + case ADBK_UP: + str[0] = '\e'; + str[1] = 'O'; + str[2] = 'A'; + str[3] = '\0'; + break; + case ADBK_DOWN: + str[0] = '\e'; + str[1] = 'O'; + str[2] = 'B'; + str[3] = '\0'; + break; + case ADBK_RIGHT: + str[0] = '\e'; + str[1] = 'O'; + str[2] = 'C'; + str[3] = '\0'; + break; + case ADBK_LEFT: + str[0] = '\e'; + str[1] = 'O'; + str[2] = 'D'; + str[3] = '\0'; + break; + default: + state = 0; + if (shift) + state = 1; + if (control) + state = 2; + str[0] = keyboard[val][state]; + str[1] = '\0'; + break; + } + if (adb_polling) + polledkey = str[0]; + else + for (s = str; *s; s++) + (*linesw[ite_tty->t_line].l_rint)(*s, ite_tty); + } + return 0; } /* * Console functions @@ -974,28 +1062,29 @@ ite_intr(adb_event_t * event) int itecnprobe(struct consdev * cp) { - int maj, unit; + int maj, unit; /* locate the major number */ - for (maj = 0; maj < nchrdev; maj++) { - if (cdevsw[maj].d_open == iteopen) { + for (maj = 0; maj < nchrdev; maj++) + if (cdevsw[maj].d_open == iteopen) break; - } - } - if (maj == nchrdev) { + if (maj == nchrdev) panic("itecnprobe(): did not find iteopen()."); - } + unit = 0; /* hardcode first device as console. */ /* initialize required fields */ cp->cn_dev = makedev(maj, unit); cp->cn_pri = CN_INTERNAL; + + return 0; } int itecninit(struct consdev * cp) { + ite_initted = 1; width = videosize & 0xffff; height = (videosize >> 16) & 0xffff; scrrows = height / CHARHEIGHT; @@ -1008,22 +1097,26 @@ itecninit(struct consdev * cp) case 1: putpixel = putpixel2; reversepixel = reversepixel1; + screenrowbytes = (width + 7) >> 3; break; case 2: putpixel = putpixel2; reversepixel = reversepixel1; + screenrowbytes = (width + 3) >> 2; break; case 4: putpixel = putpixel4; reversepixel = reversepixel1; + screenrowbytes = (width + 1) >> 1; break; case 8: putpixel = putpixel8; reversepixel = reversepixel1; + screenrowbytes = width; break; } - iteon(cp->cn_dev, 0); + return iteon(cp->cn_dev, 0); } int @@ -1032,6 +1125,7 @@ iteon(dev_t dev, int flags) erasecursor(); clear_screen(2); drawcursor(); + return 0; } int @@ -1039,6 +1133,7 @@ iteoff(dev_t dev, int flags) { erasecursor(); clear_screen(2); + return 0; } int @@ -1052,16 +1147,14 @@ itecngetc(dev_t dev) int itecnputc(dev_t dev, int c) { - extern dev_t mac68k_serdev; - int s; - -/* s = splhigh (); */ + extern dev_t mac68k_zsdev; + extern int zscnputc __P((dev_t dev, int c)); erasecursor(); ite_putchar(c); drawcursor(); if (mac68k_machine.serial_boot_echo) - sercnputc(mac68k_serdev, c); + zscnputc(mac68k_zsdev, c); -/* splx (s); */ + return c; } diff --git a/sys/arch/mac68k/dev/mac68k5380.c b/sys/arch/mac68k/dev/mac68k5380.c index 5c4fdca77d4..dd31e1ce67e 100644 --- a/sys/arch/mac68k/dev/mac68k5380.c +++ b/sys/arch/mac68k/dev/mac68k5380.c @@ -1,4 +1,4 @@ -/* $NetBSD: mac68k5380.c,v 1.15 1995/11/01 04:59:03 briggs Exp $ */ +/* $NetBSD: mac68k5380.c,v 1.24 1996/05/25 16:42:24 briggs Exp $ */ /* * Copyright (c) 1995 Allen Briggs @@ -47,11 +47,12 @@ /* * Include the driver definitions */ -#include <mac68k/dev/ncr5380reg.h> +#include "ncr5380reg.h" #include <machine/stdarg.h> +#include <machine/viareg.h> -#include "../mac68k/via.h" +#include "ncr5380var.h" /* * Set the various driver options @@ -66,8 +67,39 @@ #undef DBG_PIO /* Show the polled-I/O process */ #undef DBG_INF /* Show information transfer process */ #define DBG_NOSTATIC /* No static functions, all in DDB trace*/ -#define DBG_PID 15 /* Keep track of driver */ +#define DBG_PID 25 /* Keep track of driver */ +#ifdef DBG_NOSTATIC +# define static +#endif +#ifdef DBG_SEL +# define DBG_SELPRINT(a,b) printf(a,b) +#else +# define DBG_SELPRINT(a,b) +#endif +#ifdef DBG_PIO +# define DBG_PIOPRINT(a,b,c) printf(a,b,c) +#else +# define DBG_PIOPRINT(a,b,c) +#endif +#ifdef DBG_INF +# define DBG_INFPRINT(a,b,c) a(b,c) +#else +# define DBG_INFPRINT(a,b,c) +#endif +#ifdef DBG_PID + /* static char *last_hit = NULL, *olast_hit = NULL; */ + static char *last_hit[DBG_PID]; +# define PID(a) \ + { int i; \ + for (i=0; i< DBG_PID-1; i++) \ + last_hit[i] = last_hit[i+1]; \ + last_hit[DBG_PID-1] = a; } +#else +# define PID(a) +#endif + #undef REAL_DMA /* Use DMA if sensible */ +#define scsi_ipending() (GET_5380_REG(NCR5380_DMSTAT) & SC_IRQ_SET) #define fair_to_keep_dma() 1 #define claimed_dma() 1 #define reconsider_dma() @@ -91,14 +123,21 @@ static volatile u_char *ncr = (volatile u_char *) 0x10000; static volatile u_char *ncr_5380_with_drq = (volatile u_char *) 0x6000; static volatile u_char *ncr_5380_without_drq = (volatile u_char *) 0x12000; -static volatile u_char *scsi_enable = NULL; - #define SCSI_5380 ((struct scsi_5380 *) ncr) #define GET_5380_REG(rnum) SCSI_5380->scsi_5380[((rnum)<<4)] #define SET_5380_REG(rnum,val) (SCSI_5380->scsi_5380[((rnum)<<4)] = (val)) -void ncr5380_irq_intr(void *); -void ncr5380_drq_intr(void *); +static void ncr5380_irq_intr(void *); +static void ncr5380_drq_intr(void *); +static void do_ncr5380_drq_intr __P((void *)); + +static __inline__ void scsi_clr_ipend __P((void)); +static void scsi_mach_init __P((struct ncr_softc *sc)); +static int machine_match __P((struct device *pdp, void *match, + void *auxp, struct cfdriver *cd)); +static __inline__ int pdma_ready __P((void)); +static int transfer_pdma __P((u_char *phasep, u_char *data, + u_long *count)); static __inline__ void scsi_clr_ipend() @@ -106,26 +145,7 @@ scsi_clr_ipend() int tmp; tmp = GET_5380_REG(NCR5380_IRCV); -} - -extern __inline__ void -scsi_ienable() -{ - int s; - - s = splhigh(); - *scsi_enable = 0x80 | (V2IF_SCSIIRQ | V2IF_SCSIDRQ); - splx(s); -} - -extern __inline__ void -scsi_idisable() -{ - int s; - - s = splhigh(); - *scsi_enable = V2IF_SCSIIRQ | V2IF_SCSIDRQ; - splx(s); + scsi_clear_irq(); } static void @@ -144,28 +164,26 @@ scsi_mach_init(sc) ncr_5380_without_drq = (volatile u_char *) (SCSIBase + (u_int) ncr_5380_without_drq); - if (VIA2 == VIA2OFF) + if (VIA2 == VIA2OFF) { scsi_enable = Via1Base + VIA2 * 0x2000 + vIER; - else + scsi_flag = Via1Base + VIA2 * 0x2000 + vIFR; + } else { scsi_enable = Via1Base + VIA2 * 0x2000 + rIER; + scsi_flag = Via1Base + VIA2 * 0x2000 + rIFR; + } mac68k_register_scsi_irq(ncr5380_irq_intr, sc); mac68k_register_scsi_drq(ncr5380_drq_intr, sc); } static int -machine_match(pdp, cdp, auxp, cd) +machine_match(pdp, match, auxp, cd) struct device *pdp; - struct cfdata *cdp; - void *auxp; + void *match, *auxp; struct cfdriver *cd; { - if (matchbyname(pdp, cdp, auxp) == 0) - return 0; if (!mac68k_machine.scsi80) return 0; - if (cdp->cf_unit != 0) - return 0; return 1; } @@ -181,9 +199,6 @@ u_long pending_5380_count; int pdma_5380_sends = 0; int pdma_5380_bytes = 0; -char *pdma_5380_state="", *pdma_5380_prev_state=""; -#define DBG_SET(x) {pdma_5380_prev_state=pdma_5380_state; pdma_5380_state=(x);} - void pdma_stat() { @@ -191,10 +206,8 @@ pdma_stat() pdma_5380_sends, pdma_5380_bytes); printf("pdma_5380_dir = %d\t", pdma_5380_dir); - printf("datap = 0x%x, remainder = %d.\n", + printf("datap = %p, remainder = %ld.\n", pending_5380_data, pending_5380_count); - printf("state: %s\t", pdma_5380_state); - printf("last state: %s\n", pdma_5380_prev_state); scsi_show(); } #endif @@ -203,14 +216,14 @@ void pdma_cleanup(void) { SC_REQ *reqp = connected; - int bytes, s; + int s; s = splbio(); + PID("pdma_cleanup0"); pdma_5380_dir = 0; #if NCR5380_PDMA_DEBUG - DBG_SET("in pdma_cleanup().") pdma_5380_sends++; pdma_5380_bytes+=(reqp->xdata_len - pending_5380_count); #endif @@ -244,13 +257,9 @@ pdma_cleanup(void) /* * Back for more punishment. */ -#if NCR5380_PDMA_DEBUG - pdma_5380_state = "pdma_cleanup() -- going back to run_main()."; -#endif + PID("pdma_cleanup1"); run_main(cur_softc); -#if NCR5380_PDMA_DEBUG - pdma_5380_state = "pdma_cleanup() -- back from run_main()."; -#endif + PID("pdma_cleanup2"); } #endif @@ -262,21 +271,9 @@ pdma_ready() int dmstat, idstat; extern u_char ncr5380_no_parchk; + PID("pdma_ready0"); if (pdma_5380_dir) { -#if NCR5380_PDMA_DEBUG - DBG_SET("got irq interrupt in xfer.") -#endif - /* - * If Mr. IRQ isn't set one might wonder how we got - * here. It does happen, though. - */ - dmstat = GET_5380_REG(NCR5380_DMSTAT); - if (!(dmstat & SC_IRQ_SET)) { -#if NCR5380_PDMA_DEBUG - DBG_SET("irq not set.") -#endif - return 0; - } + PID("pdma_ready1."); /* * For a phase mis-match, ATN is a "don't care," IRQ is 1 and * all other bits in the Bus & Status Register are 0. Also, @@ -284,22 +281,19 @@ extern u_char ncr5380_no_parchk; * REQ. Since we're just checking that this interrupt isn't a * reselection or a reset, we just check for either. */ + dmstat = GET_5380_REG(NCR5380_DMSTAT); idstat = GET_5380_REG(NCR5380_IDSTAT); if ( ((dmstat & (0xff & ~SC_ATN_STAT)) == SC_IRQ_SET) && ((idstat & (SC_S_BSY|SC_S_REQ)) == (SC_S_BSY | SC_S_REQ)) ) { -#if NCR5380_PDMA_DEBUG - DBG_SET("BSY|REQ.") -#endif + PID("pdma_ready2"); pdma_cleanup(); return 1; } else if (PH_IN(reqp->phase) && (dmstat & SC_PAR_ERR)) { if (!(ncr5380_no_parchk & (1 << reqp->targ_id))) /* XXX: Should be parity error ???? */ reqp->xs->error = XS_DRIVER_STUFFUP; -#if NCR5380_PDMA_DEBUG - DBG_SET("PARITY.") -#endif + PID("pdma_ready3"); /* XXX: is this the right reaction? */ pdma_cleanup(); return 1; @@ -317,26 +311,25 @@ extern u_char ncr5380_no_parchk; scsi_show(); panic("Spurious interrupt during PDMA xfer.\n"); } - } + } else + PID("pdma_ready4"); #endif return 0; } -void +static void ncr5380_irq_intr(p) void *p; { - struct ncr_softc *sc = p; + PID("irq"); #if USE_PDMA if (pdma_ready()) { return; } #endif - if (GET_5380_REG(NCR5380_DMSTAT) & SC_IRQ_SET) { - scsi_idisable(); - ncr_ctrl_intr(cur_softc); - } + scsi_idisable(); + ncr_ctrl_intr(cur_softc); } /* @@ -354,43 +347,25 @@ ncr5380_irq_intr(p) * detect and handle the bus error for early termination of a command. * This is usually caused by a disconnecting target. */ -void -ncr5380_drq_intr(p) +static void +do_ncr5380_drq_intr(p) void *p; { #if USE_PDMA extern int *nofault, mac68k_buserr_addr; - struct ncr_softc *sc = p; label_t faultbuf; register int count; volatile u_int32_t *long_drq; u_int32_t *long_data; - volatile u_int8_t *drq; + volatile u_int8_t *drq, tmp_data; u_int8_t *data; - /* - * If we're not ready to xfer data, just return. - */ - if ( !(GET_5380_REG(NCR5380_DMSTAT) & SC_DMA_REQ) - || !pdma_5380_dir) { - return; - } - - /* - * I don't think this should be necessary, but it is - * for writes--at least to some devices. They don't - * let go of PH_DATAOUT until we do pdma_cleanup(). - */ - if (pending_5380_count == 0) { -#if NCR5380_PDMA_DEBUG - DBG_SET("forcing pdma_cleanup().") -#endif - pdma_cleanup(); - return; +#if DBG_PID + if (pdma_5380_dir == 2) { + PID("drq (in)"); + } else { + PID("drq (out)"); } - -#if NCR5380_PDMA_DEBUG - DBG_SET("got drq interrupt.") #endif /* @@ -401,15 +376,12 @@ extern int *nofault, mac68k_buserr_addr; nofault = (int *) &faultbuf; if (setjmp((label_t *) nofault)) { + PID("drq berr"); nofault = (int *) 0; -#if NCR5380_PDMA_DEBUG - DBG_SET("buserr in xfer.") -#endif count = ( (u_long) mac68k_buserr_addr - (u_long) ncr_5380_with_drq); if ((count < 0) || (count > pending_5380_count)) { - printf("pdma %s: count = %d (0x%x) (pending " - "count %d)\n", + printf("pdma %s: cnt = %d (0x%x) (pending cnt %ld)\n", (pdma_5380_dir == 2) ? "in" : "out", count, count, pending_5380_count); panic("something is wrong"); @@ -418,28 +390,22 @@ extern int *nofault, mac68k_buserr_addr; pending_5380_data += count; pending_5380_count -= count; -#if NCR5380_PDMA_DEBUG - DBG_SET("handled bus error in xfer.") -#endif mac68k_buserr_addr = 0; + + PID("end drq early"); + return; } if (pdma_5380_dir == 2) { /* Data In */ int resid; -#if NCR5380_PDMA_DEBUG - DBG_SET("Data in.") -#endif /* * Get the dest address aligned. */ resid = count = min(pending_5380_count, 4 - (((int) pending_5380_data) & 0x3)); if (count && (count < 4)) { -#if NCR5380_PDMA_DEBUG - DBG_SET("Data in (aligning dest).") -#endif data = (u_int8_t *) pending_5380_data; drq = (u_int8_t *) ncr_5380_with_drq; while (count) { @@ -457,50 +423,20 @@ extern int *nofault, mac68k_buserr_addr; while (pending_5380_count) { int dcount; -#if NCR5380_PDMA_DEBUG - DBG_SET("Data in (starting read).") -#endif dcount = count = min(pending_5380_count, MIN_PHYS); long_drq = (volatile u_int32_t *) ncr_5380_with_drq; long_data = (u_int32_t *) pending_5380_data; #define R4 *long_data++ = *long_drq++ - while ( count >= 512 ) { - if (!(GET_5380_REG(NCR5380_DMSTAT) & SC_DMA_REQ)) { - nofault = (int *) 0; - - pending_5380_data += (dcount - count); - pending_5380_count -= (dcount - count); -#if NCR5380_PDMA_DEBUG - DBG_SET("drq low") -#endif - return; - } + while ( count >= 64 ) { R4; R4; R4; R4; R4; R4; R4; R4; R4; R4; R4; R4; R4; R4; R4; R4; /* 64 */ - R4; R4; R4; R4; R4; R4; R4; R4; - R4; R4; R4; R4; R4; R4; R4; R4; /* 128 */ - R4; R4; R4; R4; R4; R4; R4; R4; - R4; R4; R4; R4; R4; R4; R4; R4; - R4; R4; R4; R4; R4; R4; R4; R4; - R4; R4; R4; R4; R4; R4; R4; R4; /* 256 */ - R4; R4; R4; R4; R4; R4; R4; R4; - R4; R4; R4; R4; R4; R4; R4; R4; - R4; R4; R4; R4; R4; R4; R4; R4; - R4; R4; R4; R4; R4; R4; R4; R4; - R4; R4; R4; R4; R4; R4; R4; R4; - R4; R4; R4; R4; R4; R4; R4; R4; - R4; R4; R4; R4; R4; R4; R4; R4; - R4; R4; R4; R4; R4; R4; R4; R4; /* 512 */ - count -= 512; + count -= 64; } while (count >= 4) { R4; count -= 4; } #undef R4 -#if NCR5380_PDMA_DEBUG - DBG_SET("Data in (finishing up).") -#endif data = (u_int8_t *) long_data; drq = (u_int8_t *) long_drq; while (count) { @@ -514,18 +450,12 @@ extern int *nofault, mac68k_buserr_addr; } else { int resid; -#if NCR5380_PDMA_DEBUG - DBG_SET("Data out.") -#endif /* * Get the source address aligned. */ resid = count = min(pending_5380_count, 4 - (((int) pending_5380_data) & 0x3)); if (count && (count < 4)) { -#if NCR5380_PDMA_DEBUG - DBG_SET("Data out (aligning dest).") -#endif data = (u_int8_t *) pending_5380_data; drq = (u_int8_t *) ncr_5380_with_drq; while (count) { @@ -543,9 +473,6 @@ extern int *nofault, mac68k_buserr_addr; while (pending_5380_count) { int dcount; -#if NCR5380_PDMA_DEBUG - DBG_SET("Data out (starting write).") -#endif dcount = count = min(pending_5380_count, MIN_PHYS); long_drq = (volatile u_int32_t *) ncr_5380_with_drq; long_data = (u_int32_t *) pending_5380_data; @@ -560,9 +487,6 @@ extern int *nofault, mac68k_buserr_addr; W4; count -= 4; } #undef W4 -#if NCR5380_PDMA_DEBUG - DBG_SET("Data out (cleaning up).") -#endif data = (u_int8_t *) long_data; drq = (u_int8_t *) long_drq; while (count) { @@ -573,6 +497,14 @@ extern int *nofault, mac68k_buserr_addr; pending_5380_count -= dcount; pending_5380_data += dcount; } + PID("write complete"); + + drq = (volatile u_int8_t *) ncr_5380_with_drq; + tmp_data = *drq; + + PID("read a byte?"); + + nofault = (int *) 0; } /* @@ -581,13 +513,23 @@ extern int *nofault, mac68k_buserr_addr; */ nofault = (int *) 0; -#if NCR5380_PDMA_DEBUG - DBG_SET("done in xfer.") -#endif - + PID("end drq"); + return; +#else + return; #endif /* if USE_PDMA */ } +static void +ncr5380_drq_intr(p) + void *p; +{ + while (GET_5380_REG(NCR5380_DMSTAT) & SC_DMA_REQ) { + do_ncr5380_drq_intr(p); + scsi_clear_drq(); + } +} + #if USE_PDMA #define SCSI_TIMEOUT_VAL 10000000 @@ -599,24 +541,19 @@ transfer_pdma(phasep, data, count) u_long *count; { SC_REQ *reqp = connected; - int len = *count, i, scsi_timeout = SCSI_TIMEOUT_VAL; - int s, err; + int len = *count, s, scsi_timeout = SCSI_TIMEOUT_VAL; if (pdma_5380_dir) { panic("ncrscsi: transfer_pdma called when operation already " "pending.\n"); } -#if NCR5380_PDMA_DEBUG - DBG_SET("in transfer_pdma.") -#endif + PID("transfer_pdma0") /* * Don't bother with PDMA if we can't sleep or for small transfers. */ if (reqp->dr_flag & DRIVER_NOINT) { -#if NCR5380_PDMA_DEBUG - DBG_SET("pdma, actually using transfer_pio.") -#endif + PID("pdma, falling back to transfer_pio.") transfer_pio(phasep, data, count, 0); return -1; } @@ -663,10 +600,6 @@ transfer_pdma(phasep, data, count) pending_5380_data = data; pending_5380_count = len; -#if NCR5380_PDMA_DEBUG - DBG_SET("setting up for interrupt.") -#endif - /* * Set the transfer function to be called on DRQ interrupts. * And note that we're waiting. @@ -688,9 +621,7 @@ transfer_pdma(phasep, data, count) break; } -#if NCR5380_PDMA_DEBUG - DBG_SET("wait for interrupt.") -#endif + PID("waiting for interrupt.") /* * Now that we're set up, enable interrupts and drop processor diff --git a/sys/arch/mac68k/dev/ncr5380.c b/sys/arch/mac68k/dev/ncr5380.c index 99a620f23f6..ad0c63c29d8 100644 --- a/sys/arch/mac68k/dev/ncr5380.c +++ b/sys/arch/mac68k/dev/ncr5380.c @@ -1,4 +1,4 @@ -/* $NetBSD: ncr5380.c,v 1.17 1996/01/06 15:56:12 briggs Exp $ */ +/* $NetBSD: ncr5380.c,v 1.29 1996/05/22 17:16:45 briggs Exp $ */ /* * Copyright (c) 1995 Leo Weppelman. @@ -30,38 +30,6 @@ * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ - -#ifdef DBG_NOSTATIC -# define static -#endif -#ifdef DBG_SEL -# define DBG_SELPRINT(a,b) printf(a,b) -#else -# define DBG_SELPRINT(a,b) -#endif -#ifdef DBG_PIO -# define DBG_PIOPRINT(a,b,c) printf(a,b,c) -#else -# define DBG_PIOPRINT(a,b,c) -#endif -#ifdef DBG_INF -# define DBG_INFPRINT(a,b,c) a(b,c) -#else -# define DBG_INFPRINT(a,b,c) -#endif -#ifdef DBG_PID - /* static char *last_hit = NULL, *olast_hit = NULL; */ - static char *last_hit[DBG_PID]; -# define PID(a) \ - { int i; \ - for (i=0; i< DBG_PID-1; i++) \ - last_hit[i] = last_hit[i+1]; \ - last_hit[DBG_PID-1] = a; } \ - /* olast_hit = last_hit; last_hit = a; */ -#else -# define PID(a) -#endif - /* * Bit mask of targets you want debugging to be shown */ @@ -104,9 +72,9 @@ static volatile int main_running = 0; */ static u_char busy; -static void ncr5380_minphys(struct buf *bp); -static int ncr5380_scsi_cmd(struct scsi_xfer *xs); -static int ncr5380_show_scsi_cmd(struct scsi_xfer *xs); +static void ncr5380_minphys __P((struct buf *bp)); +static int ncr5380_scsi_cmd __P((struct scsi_xfer *xs)); +static void ncr5380_show_scsi_cmd __P((struct scsi_xfer *xs)); struct scsi_adapter ncr5380_switch = { ncr5380_scsi_cmd, /* scsi_cmd() */ @@ -228,25 +196,29 @@ extern __inline__ void finish_req(SC_REQ *reqp) */ int ncr_cprint __P((void *auxp, char *)); void ncr_attach __P((struct device *, struct device *, void *)); -int ncr_match __P((struct device *, struct cfdata *, void *)); +int ncr_match __P((struct device *, void *, void *)); /* * Tricks to make driver-name configurable */ -#define CFNAME(n) __CONCAT(n,cd) +#define CFNAME(n) __CONCAT(n,_cd) +#define CANAME(n) __CONCAT(n,_ca) #define CFSTRING(n) __STRING(n) +struct cfattach CANAME(DRNAME) = { + sizeof(struct ncr_softc), ncr_match, ncr_attach +}; + struct cfdriver CFNAME(DRNAME) = { - NULL, CFSTRING(DRNAME), (cfmatch_t)ncr_match, ncr_attach, - DV_DULL, sizeof(struct ncr_softc), NULL, 0 }; + NULL, CFSTRING(DRNAME), DV_DULL +}; int -ncr_match(pdp, cdp, auxp) +ncr_match(pdp, match, auxp) struct device *pdp; -struct cfdata *cdp; -void *auxp; +void *match, *auxp; { - return (machine_match(pdp, cdp, auxp, &CFNAME(DRNAME))); + return (machine_match(pdp, match, auxp, &CFNAME(DRNAME))); } void @@ -332,7 +304,8 @@ ncr5380_scsi_cmd(struct scsi_xfer *xs) * We do not queue RESET commands */ if (flags & SCSI_RESET) { - scsi_reset(xs->sc_link->adapter_softc); + scsi_reset_verbose(xs->sc_link->adapter_softc, + "Got reset-command"); return (COMPLETE); } @@ -355,6 +328,7 @@ ncr5380_scsi_cmd(struct scsi_xfer *xs) reqp->phase = NR_PHASE; reqp->msgout = MSG_NOOP; reqp->status = SCSGOOD; + reqp->message = 0xff; reqp->link = NULL; reqp->xs = xs; reqp->targ_id = xs->sc_link->target; @@ -373,7 +347,7 @@ ncr5380_scsi_cmd(struct scsi_xfer *xs) } if (!(flags & INUSE)) { ncr_tprint(reqp, "scsi_cmd: command not in use.....\n"); - xs->flags |= ~INUSE; + xs->flags |= INUSE; } #ifdef REAL_DMA @@ -439,7 +413,7 @@ ncr5380_minphys(struct buf *bp) } #undef MIN_PHYS -static int +static void ncr5380_show_scsi_cmd(struct scsi_xfer *xs) { u_char *b = (u_char *) xs->cmd; @@ -583,7 +557,7 @@ connected: /* * Let the target guide us through the bus-phases */ - while (information_transfer() == -1) + while (information_transfer(sc) == -1) ; } } @@ -600,8 +574,15 @@ main_exit: */ PID("scsi_main4"); scsi_ienable(); - SET_5380_REG(NCR5380_IDSTAT, SC_HOST_ID); - if (GET_5380_REG(NCR5380_DMSTAT) & SC_IRQ_SET) { + + /* + * If we're not currently connected, enable reselection + * interrupts. + */ + if (!connected) + SET_5380_REG(NCR5380_IDSTAT, SC_HOST_ID); + + if (scsi_ipending()) { if ((itype = check_intr(sc)) != INTR_SPURIOUS) { scsi_idisable(); splx(sps); @@ -667,15 +648,15 @@ ncr_ctrl_intr(sc) struct ncr_softc *sc; { int itype; - int dma_done; - while (GET_5380_REG(NCR5380_DMSTAT) & SC_IRQ_SET) { + while (scsi_ipending()) { scsi_idisable(); if ((itype = check_intr(sc)) != INTR_SPURIOUS) { if (itype == INTR_RESEL) reselect(sc); else { #ifdef REAL_DMA + int dma_done; if (!(dma_done = dma_ready())) { transfer_dma(connected, connected->phase, 0); return; @@ -707,8 +688,8 @@ struct ncr_softc *sc; static int scsi_select(reqp, code) SC_REQ *reqp; +int code; { - u_long timeout; u_char tmp[1]; u_char phase; u_long cnt; @@ -927,7 +908,7 @@ SC_REQ *reqp; transfer_pio(&phase, &msg, &len, 0); } - else scsi_reset(sc); + else scsi_reset_verbose(sc, "Connected to unidentified target"); SET_5380_REG(NCR5380_ICOM, 0); reqp->xs->error = code ? code : XS_DRIVER_STUFFUP; @@ -955,11 +936,12 @@ identify_failed: /* * Return codes: - * -1: quit main, trigger on interrupt - * 0: keep on running main. + * 0: Job has finished or disconnected, find something else + * -1: keep on calling information_transfer() from scsi_main() */ static int -information_transfer() +information_transfer(sc) +struct ncr_softc *sc; { SC_REQ *reqp = connected; u_char tmp, phase; @@ -972,28 +954,48 @@ information_transfer() scsi_clr_ipend(); /* - * We only have a valid SCSI-phase when REQ is asserted. Something - * is deadly wrong when BSY has dropped. + * The SCSI-spec requires BSY to be true while connected to a target, + * loosing it means we lost the target... + * Also REQ needs to be asserted here to indicate that the bus-phase + * is valid. When the target does not supply REQ within a 'reasonable' + * amount of time, it's probably lost in it's own maze of twisting + * passages, we have to reset the bus to free it. */ + if (GET_5380_REG(NCR5380_IDSTAT) & SC_S_BSY) + wait_req_true(); tmp = GET_5380_REG(NCR5380_IDSTAT); - if (!(tmp & SC_S_BSY)) { + + if ((tmp & (SC_S_BSY|SC_S_REQ)) != (SC_S_BSY|SC_S_REQ)) { busy &= ~(1 << reqp->targ_id); connected = NULL; - reqp->xs->error = XS_BUSY; + reqp->xs->error = XS_TIMEOUT; finish_req(reqp); + if (!(tmp & SC_S_REQ)) + scsi_reset_verbose(sc, + "Timeout waiting for phase-change"); PID("info_transf2"); return (0); } - if (tmp & SC_S_REQ) { - phase = (tmp >> 2) & 7; - if (phase != reqp->phase) { - reqp->phase = phase; - DBG_INFPRINT(show_phase, reqp, phase); + phase = (tmp >> 2) & 7; + if (phase != reqp->phase) { + reqp->phase = phase; + DBG_INFPRINT(show_phase, reqp, phase); + } + else { + /* + * Same data-phase. If same error give up + */ + if ((reqp->msgout == MSG_ABORT) + && ((phase == PH_DATAOUT) || (phase == PH_DATAIN))) { + busy &= ~(1 << reqp->targ_id); + connected = NULL; + finish_req(reqp); + scsi_reset_verbose(sc, "Failure to abort command"); + return (0); } } - else return (-1); switch (phase) { case PH_DATAOUT: @@ -1013,6 +1015,17 @@ information_transfer() } case PH_DATAIN: + if (reqp->xdata_len <= 0) { + /* + * Target keeps requesting data. Try to get into + * message-out phase by feeding/taking 100 byte. + */ + ncr_tprint(reqp, "Target requests too much data\n"); + reqp->msgout = MSG_ABORT; + SET_5380_REG(NCR5380_ICOM, SC_A_ATN); + reach_msg_out(sc, 100); + return (-1); + } #ifdef REAL_DMA if (reqp->dr_flag & DRIVER_DMAOK) { int poll = REAL_DMA_POLL|(reqp->dr_flag & DRIVER_NOINT); @@ -1049,7 +1062,8 @@ information_transfer() if (reqp->msgout == MSG_ABORT) { busy &= ~(1 << reqp->targ_id); connected = NULL; - reqp->xs->error = XS_DRIVER_STUFFUP; + if (!reqp->xs->error) + reqp->xs->error = XS_DRIVER_STUFFUP; finish_req(reqp); PID("info_transf4"); return (0); @@ -1194,10 +1208,19 @@ u_int msg; PID("hmessage9"); return (-1); default: - ncr_tprint(reqp, "Unknown message %x\n", msg); + if ((msg & 0x80) && !(msg & 0x18)) { /* IDENTIFY */ + PID("hmessage10"); + ack_message(); + return (0); + } else { + ncr_tprint(reqp, + "Unknown message %x. Rejecting.\n", + msg); + nack_message(reqp, MSG_MESSAGE_REJECT); + } return (-1); } - PID("hmessage10"); + PID("hmessage11"); return (-1); } @@ -1236,7 +1259,7 @@ struct ncr_softc *sc; } if (GET_5380_REG(NCR5380_IDSTAT) & SC_S_SEL) { /* Damn SEL isn't dropping */ - scsi_reset(sc); + scsi_reset_verbose(sc, "Target won't drop SEL during Reselect"); return; } @@ -1263,6 +1286,7 @@ struct ncr_softc *sc; if (len || !MSG_ISIDENTIFY(msg)) { ncr_aprint(sc, "Expecting IDENTIFY, got 0x%x\n", msg); abort = 1; + tmp = NULL; } else { /* @@ -1290,7 +1314,7 @@ struct ncr_softc *sc; SET_5380_REG(NCR5380_ICOM, SC_A_ATN); if (transfer_pio(&phase, &msg, &len, 0) || len) - scsi_reset(sc); + scsi_reset_verbose(sc, "Failure to abort reselection"); } else { connected = tmp; @@ -1496,9 +1520,10 @@ dma_ready() else reqp->dm_cur->dm_addr += bytes_done; if (PH_IN(reqp->phase) && (dmstat & SC_PAR_ERR)) { - if (!(ncr5380_no_parchk & (1 << reqp->targ_id))) - /* XXX: Should be parity error ???? */ - reqp->xs->error = XS_DRIVER_STUFFUP; + if (!(ncr5380_no_parchk & (1 << reqp->targ_id))) { + ncr_tprint(reqp, "parity error in data-phase\n"); + reqp->xs->error = XS_TIMEOUT; + } } /* @@ -1526,7 +1551,7 @@ dma_ready() if (dmstat & SC_BSY_ERR) { if (!reqp->xs->error) - reqp->xs->error = XS_BUSY; + reqp->xs->error = XS_TIMEOUT; finish_req(reqp); PID("dma_ready1"); return (1); @@ -1605,6 +1630,7 @@ u_long len; { u_char phase; u_char data; + u_long n = len; ncr_aprint(sc, "Trying to reach Message-out phase\n"); if ((phase = GET_5380_REG(NCR5380_IDSTAT)) & SC_S_REQ) @@ -1632,32 +1658,31 @@ u_long len; if (!wait_req_false()) break; SET_5380_REG(NCR5380_ICOM, SC_A_ATN); - } while (--len); + } while (--n); if ((phase = GET_5380_REG(NCR5380_IDSTAT)) & SC_S_REQ) { phase = (phase >> 2) & 7; if (phase == PH_MSGOUT) { - ncr_aprint(sc, "Message-out phase reached.\n"); + ncr_aprint(sc, "Message-out phase reached after " + "%ld bytes.\n", len - n); return (0); } } return (-1); } -static void -scsi_reset(sc) -struct ncr_softc *sc; +void +scsi_reset() { SC_REQ *tmp, *next; int sps; - ncr_aprint(sc, "Resetting SCSI-bus\n"); - PID("scsi_reset1"); sps = splbio(); SET_5380_REG(NCR5380_ICOM, SC_A_RST); - delay(1); + delay(100); SET_5380_REG(NCR5380_ICOM, 0); + scsi_clr_ipend(); /* * None of the jobs in the discon_q will ever be reconnected, @@ -1680,7 +1705,7 @@ struct ncr_softc *sc; * doing REAL-DMA. In that case 'dma_ready()' should correctly finish * the job because it detects BSY-loss. */ - if (tmp = connected) { + if ((tmp = connected) != NULL) { if (tmp->dr_flag & DRIVER_IN_DMA) { tmp->xs->error = XS_DRIVER_STUFFUP; #ifdef REAL_DMA @@ -1690,6 +1715,22 @@ struct ncr_softc *sc; } splx(sps); PID("scsi_reset2"); + + /* + * Give the attached devices some time to handle the reset. This + * value is arbitrary but should be relatively long. + */ + delay(100000); +} + +static void +scsi_reset_verbose(sc, why) +struct ncr_softc *sc; +const char *why; +{ + ncr_aprint(sc, "Resetting SCSI-bus (%s)\n", why); + + scsi_reset(); } /* @@ -1850,7 +1891,7 @@ ncr_tprint(SC_REQ *reqp, char *fmt, ...) va_start(ap, fmt); sc_print_addr(reqp->xs->sc_link); - printf("%r", fmt, ap); + printf("%:", fmt, ap); va_end(ap); } @@ -1863,7 +1904,7 @@ ncr_aprint(struct ncr_softc *sc, char *fmt, ...) va_list ap; va_start(ap, fmt); - printf("%s : %r", sc->sc_dev.dv_xname, fmt, ap); + printf("%s : %:", sc->sc_dev.dv_xname, fmt, ap); va_end(ap); } /**************************************************************************** @@ -1895,7 +1936,7 @@ show_request(reqp, qtxt) SC_REQ *reqp; char *qtxt; { - printf("REQ-%s: %d %x[%d] cmd[0]=%x S=%x M=%x R=%x resid=%d dr_flag=%x %s\n", + printf("REQ-%s: %d %p[%ld] cmd[0]=%x S=%x M=%x R=%x resid=%d dr_flag=%x %s\n", qtxt, reqp->targ_id, reqp->xdata_ptr, reqp->xdata_len, reqp->xcmd.opcode, reqp->status, reqp->message, reqp->xs->error, reqp->xs->resid, reqp->dr_flag, @@ -1914,7 +1955,7 @@ show_signals(dmstat, idstat) u_char dmstat, idstat; { u_short tmp, mask; - int i, j, need_pipe; + int j, need_pipe; tmp = idstat | ((dmstat & 3) << 8); printf("Bus signals (%02x/%02x): ", idstat, dmstat & 3); @@ -1930,13 +1971,18 @@ u_char dmstat, idstat; printf("\n"); } +void scsi_show() { SC_REQ *tmp; int sps = splhigh(); u_char idstat, dmstat; +#ifdef DBG_PID int i; +#endif + printf("scsi_show: scsi_main is%s running\n", + main_running ? "" : " not"); for (tmp = issue_q; tmp; tmp = tmp->next) show_request(tmp, "ISSUED"); for (tmp = discon_q; tmp; tmp = tmp->next) diff --git a/sys/arch/mac68k/dev/ncr5380reg.h b/sys/arch/mac68k/dev/ncr5380reg.h index a19f41f3fca..5f941854114 100644 --- a/sys/arch/mac68k/dev/ncr5380reg.h +++ b/sys/arch/mac68k/dev/ncr5380reg.h @@ -1,4 +1,4 @@ -/* $NetBSD: ncr5380reg.h,v 1.5 1995/12/04 02:10:46 briggs Exp $ */ +/* $NetBSD: ncr5380reg.h,v 1.9 1996/05/05 06:16:58 briggs Exp $ */ /* * Copyright (c) 1995 Leo Weppelman. @@ -236,24 +236,24 @@ static int scsi_select __P((SC_REQ *, int)); static int handle_message __P((SC_REQ *, u_int)); static void ack_message __P((void)); static void nack_message __P((SC_REQ *, u_char)); -static int information_transfer __P((void)); +static void finish_req __P((SC_REQ *reqp)); +static int command_size __P((u_char opcode)); +static int information_transfer __P((struct ncr_softc *)); static void reselect __P((struct ncr_softc *)); -static int dma_ready __P((void)); -static void transfer_dma __P((SC_REQ *, u_int, int)); static int check_autosense __P((SC_REQ *, int)); static int reach_msg_out __P((struct ncr_softc *, u_long)); static int check_intr __P((struct ncr_softc *)); -static void scsi_reset __P((struct ncr_softc *)); -static int scsi_dmaok __P((SC_REQ *)); +static void scsi_reset __P((void)); +static void scsi_reset_verbose __P((struct ncr_softc *, const char *)); static void run_main __P((struct ncr_softc *)); static void scsi_main __P((struct ncr_softc *)); static void ncr_ctrl_intr __P((struct ncr_softc *)); -static void ncr_dma_intr __P((struct ncr_softc *)); static void ncr_tprint __P((SC_REQ *, char *, ...)); static void ncr_aprint __P((struct ncr_softc *, char *, ...)); +static void show_data_sense __P((struct scsi_xfer *xs)); static void show_request __P((SC_REQ *, char *)); -static void show_phase __P((SC_REQ *, int)); +/* static void show_phase __P((SC_REQ *, int)); */ static void show_signals __P((u_char, u_char)); #endif /* _NCR5380REG_H */ diff --git a/sys/arch/mac68k/dev/nubus.c b/sys/arch/mac68k/dev/nubus.c index 7b15a53437b..fbcd45f668f 100644 --- a/sys/arch/mac68k/dev/nubus.c +++ b/sys/arch/mac68k/dev/nubus.c @@ -1,4 +1,4 @@ -/* $NetBSD: nubus.c,v 1.15 1996/01/12 04:16:43 briggs Exp $ */ +/* $NetBSD: nubus.c,v 1.23 1996/05/08 15:14:53 scottr Exp $ */ /* * Copyright (c) 1995 Allen Briggs. All rights reserved. @@ -33,69 +33,66 @@ #include <sys/systm.h> #include <sys/device.h> +#include <machine/autoconf.h> #include <machine/cpu.h> #include <vm/vm.h> #include "nubus.h" -#if DEBUG +#ifdef DEBUG static int nubus_debug = 0x01; #define NDB_PROBE 0x1 #define NDB_FOLLOW 0x2 #define NDB_ARITH 0x4 #endif -extern int matchbyname(); - -static int nubusprint __P((void *aux, char *name)); -static void nubusattach __P((struct device *parent, struct device *self, - void *aux)); +static int nubusprint __P((void *, char *)); +static int nubusmatch __P((struct device *, void *, void *)); +static void nubusattach __P((struct device *, struct device *, void *)); static int probe_slot __P((int slot, nubus_slot *fmt)); static u_long IncPtr __P((nubus_slot *fmt, u_long base, long amt)); static u_long nubus_calc_CRC __P((nubus_slot *fmt)); static u_char GetByte __P((nubus_slot *fmt, u_long ptr)); -static u_short GetWord __P((nubus_slot *fmt, u_long ptr)); +#ifdef notyet +/* unused */ static u_short GetWord __P((nubus_slot *fmt, u_long ptr)); +#endif static u_long GetLong __P((nubus_slot *fmt, u_long ptr)); -struct cfdriver nubuscd = { - NULL, "nubus", matchbyname, nubusattach, - DV_DULL, sizeof(struct nubus_softc), 1 +struct cfattach nubus_ca = { + sizeof(struct nubus_softc), nubusmatch, nubusattach +}; + +struct cfdriver nubus_cd = { + NULL, "nubus", DV_DULL, 1 }; +static int +nubusmatch(parent, vcf, aux) + struct device *parent; + void *vcf, *aux; +{ + struct confargs *ca = aux; + + if (ca->ca_bustype != BUS_NUBUS) + return (0); + return(1); +} + static void nubusattach(parent, self, aux) struct device *parent, *self; void *aux; { - extern u_int32_t mac68k_vidlog; nubus_slot fmtblock; int i; printf("\n"); - /* - * Kludge for internal video. - */ - if (mac68k_vidlog) { - int int_video_slot = NUBUS_INT_VIDEO_PSUEDO_SLOT; - - fmtblock.top = NUBUS_SLOT_TO_BASE(int_video_slot); - fmtblock.slot = int_video_slot; - fmtblock.bytelanes = 0x0F; - fmtblock.step = 4; - fmtblock.test_pattern = ~NUBUS_ROM_TEST_PATTERN; - fmtblock.format = 1; - fmtblock.revision_level = 1; - fmtblock.crc = 1; - fmtblock.length = 0; - fmtblock.directory_offset = 0; - config_found(self, &fmtblock, nubusprint); - } - - for ( i = NUBUS_MIN_SLOT; i <= NUBUS_MAX_SLOT; i++) { + for (i = NUBUS_MIN_SLOT; i <= NUBUS_MAX_SLOT; i++) { if (probe_slot(i, &fmtblock)) { + /*config_search(bus_scan, &fmtblock, nubusprint);*/ config_found(self, &fmtblock, nubusprint); } } @@ -107,8 +104,6 @@ nubusprint(aux, name) char *name; { nubus_slot *fmt; - int slot; - char *info; fmt = (nubus_slot *) aux; if (name) { @@ -156,21 +151,23 @@ probe_slot(slot, fmt) nubus_slot *fmt; { caddr_t rom_probe; - u_long hdr; - u_long phys; - u_char data; + vm_offset_t hdr; +#ifdef DEBUG + vm_offset_t pa; +#endif + u_int data; int hdr_size, i; fmt->bytelanes = 0; fmt->slot = (u_long)slot; - rom_probe = (caddr_t) (NUBUS_SLOT_TO_BASE(fmt->slot) + NBMEMSIZE); + rom_probe = (caddr_t) (NUBUS_SLOT_TO_PADDR(fmt->slot) + NBMEMSIZE); #ifdef DEBUG if (nubus_debug & NDB_PROBE) { - phys = pmap_extract(pmap_kernel(), (vm_offset_t)rom_probe-1); - printf("probing slot %d, first probe at 0x%x (phys 0x%x).\n", - slot, rom_probe-1, phys); + pa = pmap_extract(pmap_kernel(), (vm_offset_t) rom_probe - 1); + printf("probing slot %d, first probe at 0x%x (PA 0x%p).\n", + slot, rom_probe - 1, pa); } #endif @@ -178,10 +175,11 @@ probe_slot(slot, fmt) rom_probe--; - if (badbaddr(rom_probe)) + data = bus_peek(BUS_NUBUS, (vm_offset_t) rom_probe, 1); + if (data == -1) continue; - if ((data = *rom_probe) == 0) + if (data == 0) continue; if ( ((((data & 0xf0) >> 4) ^ (data & 0x0f)) == 0x0f) @@ -201,8 +199,8 @@ probe_slot(slot, fmt) #ifdef DEBUG if (nubus_debug & NDB_PROBE) - printf("bytelanes of 0x%x found for slot 0x%x (base 0x%x).\n", - fmt->bytelanes, slot, NUBUS_SLOT_TO_BASE(slot)); + printf("bytelanes of 0x%x found for slot 0x%x.\n", + fmt->bytelanes, slot); #endif hdr_size = 20; @@ -213,7 +211,17 @@ probe_slot(slot, fmt) * would be valid. This is necessary for NUBUS_ROM_offset() * to work. */ - hdr = NUBUS_SLOT_TO_BASE(fmt->slot) + NBMEMSIZE; + hdr = (vm_offset_t) + bus_mapin(BUS_NUBUS,NUBUS_SLOT_TO_PADDR(fmt->slot),NBMEMSIZE); + if (hdr == NULL) { + printf("Failed to map %d bytes for NuBUS slot %d probe. ", + NBMEMSIZE, fmt->slot); + printf("Physical slot address %x\n", + (unsigned int) NUBUS_SLOT_TO_PADDR(fmt->slot)); + } + fmt->virtual_base = hdr; + hdr += NBMEMSIZE; + i = 0x10 | (fmt->bytelanes & 0x0f); while ((i & 1) == 0) { hdr++; @@ -223,7 +231,7 @@ probe_slot(slot, fmt) hdr = IncPtr(fmt, hdr, -hdr_size); #ifdef DEBUG if (nubus_debug & NDB_PROBE) - printf("fmt->top is 0x%x, that minus 0x%x puts us at 0x%x.\n", + printf("fmt->top is 0x%p, that minus 0x%x puts us at 0x%p.\n", fmt->top, hdr_size, hdr); #if 0 for (i=1 ; i < 8 ; i++) { @@ -246,7 +254,7 @@ probe_slot(slot, fmt) hdr = IncPtr(fmt, hdr, 1); fmt->test_pattern = GetLong(fmt, hdr); -#if DEBUG +#ifdef DEBUG if (nubus_debug & NDB_PROBE) { printf("Directory offset 0x%x\t", fmt->directory_offset); printf("Length 0x%x\t", fmt->length); @@ -366,6 +374,8 @@ GetByte(fmt, ptr) return *(caddr_t)ptr; } +#ifdef notyet +/* Nothing uses this, yet */ static u_short GetWord(fmt, ptr) nubus_slot *fmt; @@ -378,6 +388,7 @@ GetWord(fmt, ptr) s |= GetByte(fmt, ptr); return s; } +#endif static u_long GetLong(fmt, ptr) @@ -400,9 +411,7 @@ nubus_get_main_dir(slot, dir_return) nubus_slot *slot; nubus_dir *dir_return; { - u_long off; - -#if DEBUG +#ifdef DEBUG if (nubus_debug & NDB_FOLLOW) printf("nubus_get_main_dir(0x%x, 0x%x)\n", (u_int) slot, (u_int) dir_return); @@ -422,7 +431,7 @@ nubus_find_rsrc(slot, dir, rsrcid, dirent_return) u_long entry; u_char byte; -#if DEBUG +#ifdef DEBUG if (nubus_debug & NDB_FOLLOW) printf("nubus_find_rsrc(0x%x, 0x%x, 0x%x, 0x%x)\n", (u_int) slot, (u_int) dir, (u_int) rsrcid, @@ -434,7 +443,7 @@ nubus_find_rsrc(slot, dir, rsrcid, dirent_return) entry = dir->curr_ent; do { byte = GetByte(slot, entry); -#if DEBUG +#ifdef DEBUG if (nubus_debug & NDB_FOLLOW) printf("\tFound rsrc 0x%x.\n", byte); #endif @@ -462,7 +471,7 @@ nubus_get_dir_from_rsrc(slot, dirent, dir_return) { u_long loc; -#if DEBUG +#ifdef DEBUG if (nubus_debug & NDB_FOLLOW) printf("nubus_get_dir_from_rsrc(0x%x, 0x%x, 0x%x).\n", (u_int) slot, (u_int) dirent, (u_int) dir_return); @@ -483,7 +492,7 @@ nubus_get_ind_data(slot, dirent, data_return, nbytes) { u_long loc; -#if DEBUG +#ifdef DEBUG if (nubus_debug & NDB_FOLLOW) printf("nubus_get_ind_data(0x%x, 0x%x, 0x%x, %d).\n", (u_int) slot, (u_int) dirent, (u_int) data_return, @@ -510,7 +519,7 @@ nubus_get_c_string(slot, dirent, data_return, max_bytes) { u_long loc; -#if DEBUG +#ifdef DEBUG if (nubus_debug & NDB_FOLLOW) printf("nubus_get_c_string(0x%x, 0x%x, 0x%x, %d).\n", (u_int) slot, (u_int) dirent, (u_int) data_return, @@ -541,7 +550,7 @@ static char str_ret[64]; nubus_dir dir; nubus_dirent ent; -#if DEBUG +#ifdef DEBUG if (nubus_debug & NDB_FOLLOW) printf("nubus_get_vendor(0x%x, 0x%x).\n", (u_int) slot, rsrc); #endif @@ -570,9 +579,9 @@ static char name_ret[64]; nubus_dir dir; nubus_dirent ent; -#if DEBUG +#ifdef DEBUG if (nubus_debug & NDB_FOLLOW) - printf("nubus_get_card_name(0x%x).\n", (u_long) slot); + printf("nubus_get_card_name(0x%lx).\n", (u_long) slot); #endif nubus_get_main_dir(slot, &dir); diff --git a/sys/arch/mac68k/dev/nubus.h b/sys/arch/mac68k/dev/nubus.h index 2b6ea05b323..05edd16d901 100644 --- a/sys/arch/mac68k/dev/nubus.h +++ b/sys/arch/mac68k/dev/nubus.h @@ -1,4 +1,4 @@ -/* $NetBSD: nubus.h,v 1.12 1996/01/12 04:52:58 briggs Exp $ */ +/* $NetBSD: nubus.h,v 1.14 1996/05/07 03:13:40 briggs Exp $ */ /* * Copyright (c) 1995 Allen Briggs. All rights reserved. @@ -59,13 +59,14 @@ #define NUBUS_TYPE_ETHERNET 0x0001 #define NUBUS_DRSW_3COM 0x0000 #define NUBUS_DRSW_GATOR 0x0103 -#define NUBUS_DRHW_INTERLAN 0x0100 -#define NUBUS_DRHW_KINETICS 0x0106 #define NUBUS_DRSW_ASANTE 0x0104 #define NUBUS_DRSW_TECHWORKS 0x0109 -#define NUBUS_DRHW_SONIC 0x0110 #define NUBUS_DRSW_FARALLON 0x010C #define NUBUS_DRSW_FOCUS 0x011A +#define NUBUS_DRHW_INTERLAN 0x0100 +#define NUBUS_DRHW_KINETICS 0x0106 +#define NUBUS_DRHW_SONIC 0x0110 +#define NUBUS_DRHW_CABLETRON 0x0109 #define NUBUS_CATEGORY_COMMUNICATIONS 0x0006 #define NUBUS_TYPE_RS232 0x0002 @@ -98,6 +99,7 @@ typedef struct _nubus_slot { u_int32_t crc; u_int32_t length; u_int32_t directory_offset; + vm_offset_t virtual_base; } nubus_slot; /* @@ -219,15 +221,10 @@ typedef struct _NUBUS_EXEC_BLOCK { #define NUBUS_MIN_SLOT 0x9 #define NUBUS_MAX_SLOT 0xE -#define NUBUS_INT_VIDEO_PSUEDO_SLOT 0xF #define NUBUS_ROM_TEST_PATTERN 0x5A932BC7 -#define NUBUS_BASE_TO_SLOT(x) (((((x)-NuBusBase) >> 24) & 0x0F) + \ - NUBUS_MIN_SLOT) -#define NUBUS_SLOT_TO_BASE(x) (NuBusBase + \ +#define NUBUS_SLOT_TO_PADDR(x) ( 0xF9000000 + \ ((((x)-NUBUS_MIN_SLOT) & 0xF) << 24)) -#define NUBUS_VIRT_TO_PHYS(x) ((x - NuBusBase) + \ - ((0xF0 | NUBUS_MIN_SLOT) << 24)) struct nubus_softc { struct device sc_dev; diff --git a/sys/arch/mac68k/dev/rd_root.c b/sys/arch/mac68k/dev/rd_root.c index e7ac28a3040..faea4c265fa 100644 --- a/sys/arch/mac68k/dev/rd_root.c +++ b/sys/arch/mac68k/dev/rd_root.c @@ -1,4 +1,4 @@ -/* $NetBSD: rd_root.c,v 1.1 1995/11/21 04:53:20 briggs Exp $ */ +/* $NetBSD: rd_root.c,v 1.3 1996/05/05 06:17:09 briggs Exp $ */ /* * Copyright (c) 1995 Gordon W. Ross @@ -47,9 +47,6 @@ extern int boothowto; int rd_root_size = ROOTBYTES; char rd_root_image[ROOTBYTES] = "|This is the root ramdisk!\n"; -/* - * This is called during autoconfig. - */ void rd_attach_hook(unit, rd) int unit; diff --git a/sys/arch/mac68k/dev/scsi.c b/sys/arch/mac68k/dev/scsi.c deleted file mode 100644 index 2d04207d2c3..00000000000 --- a/sys/arch/mac68k/dev/scsi.c +++ /dev/null @@ -1,1224 +0,0 @@ -/* $NetBSD: scsi.c,v 1.19 1995/09/03 03:39:38 briggs Exp $ */ - -/* - * This driver is obsolete as of 2 September 1995. mac68k5380.c should - * be used instead if at all possible. [briggs 2Sept95] - */ - -/* - * Copyright (C) 1993 Allen K. Briggs, Chris P. Caputo, - * Michael L. Finch, Bradley A. Grantham, and - * Lawrence A. Kesteloot - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the Alice Group. - * 4. The names of the Alice Group or any of its members may not be used - * to endorse or promote products derived from this software without - * specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE ALICE GROUP ``AS IS'' AND ANY EXPRESS OR - * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES - * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. - * IN NO EVENT SHALL THE ALICE GROUP BE LIABLE FOR ANY DIRECT, INDIRECT, - * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT - * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, - * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY - * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT - * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE - * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. - */ - -#define PSEUDO_DMA 1 - -static int pdebug = 0; - -#include <sys/types.h> -#include <sys/malloc.h> -#include <sys/param.h> -#include <sys/systm.h> -#include <sys/errno.h> -#include <sys/buf.h> -#include <sys/proc.h> -#include <sys/user.h> -#include <sys/device.h> -#include <scsi/scsi_all.h> -#include <scsi/scsi_debug.h> -#include <scsi/scsiconf.h> - -#include "scsi_defs.h" -#define PAD(n) u_char n[15] -#include <machine/scsi_5380.h> -#undef PAD -#define SCI_PHASE_DISC 0 /* sort of ... */ -#define SCI_CLR_INTR(regs) {register int temp = regs->sci_iack;} -#define SCI_ACK(ptr,phase) (ptr)->sci_tcmd = (phase) -#define SCSI_TIMEOUT_VAL 10000000 -#define WAIT_FOR_NOT_REQ(ptr) { \ - int scsi_timeout = SCSI_TIMEOUT_VAL; \ - while ( ((ptr)->sci_bus_csr & SCI_BUS_REQ) && \ - ((ptr)->sci_bus_csr & SCI_BUS_REQ) && \ - ((ptr)->sci_bus_csr & SCI_BUS_REQ) && \ - (--scsi_timeout) ); \ - if (!scsi_timeout) { \ - printf("scsi timeout--WAIT_FOR_NOT_REQ---scsi.c, line %d.\n", \ - __LINE__); \ - goto scsi_timeout_error; \ - } \ -} -#define WAIT_FOR_REQ(ptr) { \ - int scsi_timeout = SCSI_TIMEOUT_VAL; \ - while ( (((ptr)->sci_bus_csr & SCI_BUS_REQ) == 0) && \ - (((ptr)->sci_bus_csr & SCI_BUS_REQ) == 0) && \ - (((ptr)->sci_bus_csr & SCI_BUS_REQ) == 0) && \ - (--scsi_timeout) ); \ - if (!scsi_timeout) { \ - printf("scsi timeout--WAIT_FOR_REQ---scsi.c, line %d.\n", \ - __LINE__); \ - goto scsi_timeout_error; \ - } \ -} -#define WAIT_FOR_BSY(ptr) { \ - int scsi_timeout = SCSI_TIMEOUT_VAL; \ - while ( (((ptr)->sci_bus_csr & SCI_BUS_BSY) == 0) && \ - (((ptr)->sci_bus_csr & SCI_BUS_BSY) == 0) && \ - (((ptr)->sci_bus_csr & SCI_BUS_BSY) == 0) && \ - (--scsi_timeout) ); \ - if (!scsi_timeout) { \ - printf("scsi timeout--WAIT_FOR_BSY---scsi.c, line %d.\n", \ - __LINE__); \ - goto scsi_timeout_error; \ - } \ -} - -#ifdef DDB -int Debugger(); -#else -#define Debugger() panic("Should call Debugger here (mac/dev/scsi.c).") -#endif - -typedef unsigned long int physaddr; -typedef sci_regmap_t sci_padded_regmap_t; - -#define NNCR5380 1 - -struct ncr5380_softc { - struct device sc_dev; - - void *reg_base; - int adapter_target; - struct scsi_link sc_link; -}; -/* From Guide to Mac II family hardware, p. 137 */ -/* These are "adjusted" in the init routine. */ -extern vm_offset_t SCSIBase; -static volatile sci_padded_regmap_t *ncr = (sci_regmap_t *) 0x10000; -static volatile long *sci_4byte_addr = (long *) 0x6000; -static volatile u_char *sci_1byte_addr = (u_char *) 0x12000; - -static unsigned int ncr5380_adapter_info(struct ncr5380_softc * ncr5380); -static void ncr5380_minphys(struct buf * bp); -static int ncr5380_scsi_cmd(struct scsi_xfer * xs); - -static int ncr5380_show_scsi_cmd(struct scsi_xfer * xs); -static int ncr5380_reset_target(int adapter, int target); -static int ncr5380_poll(int adapter, int timeout); -static int ncr5380_send_cmd(struct scsi_xfer * xs); - -extern void ncr5380_intr(int adapter); -extern void spinwait(int); - -static int -scsi_gen(int adapter, int id, int lun, - struct scsi_generic * cmd, int cmdlen, - void *databuf, int datalen); -static int -scsi_group0(int adapter, int id, int lun, - int opcode, int addr, int len, - int flags, caddr_t databuf, int datalen); - -struct scsi_adapter ncr5380_switch = { - ncr5380_scsi_cmd, /* scsi_cmd() */ - ncr5380_minphys, /* scsi_minphys() */ - 0, /* open_target_lu() */ - 0, /* close_target_lu() */ -}; -/* This is copied from julian's bt driver */ -/* "so we have a default dev struct for our link struct." */ -struct scsi_device ncr5380_dev = { - NULL, /* Use default error handler. */ - NULL, /* have a queue, served by this (?) */ - NULL, /* have no async handler. */ - NULL, /* Use default "done" routine. */ -}; - -extern int matchbyname(); -static int ncrprobe(); -static void ncrattach(); - -struct cfdriver ncrscsicd = -{NULL, "ncrscsi", ncrprobe, ncrattach, -DV_DULL, sizeof(struct ncr5380_softc), NULL, 0}; - -static int -ncr_print(aux, name) - void *aux; - char *name; -{ - /* printf("%s: (sc_link = 0x%x)", name, (int) aux); return UNCONF; */ -} - -static int -ncrprobe(parent, match, aux) - struct device *parent; - void *match; - void *aux; -{ - static int probed = 0; - struct ncr5380_softc *ncr5380; - - if (!mac68k_machine.scsi80) { - return 0; - } - ncr5380 = (struct ncr5380_softc *) match; - - if (strcmp(*((char **) aux), ncr5380->sc_dev.dv_xname)) { - return 0; - } - if (!probed) { - /* - * Adjust values based on SCSIBase. - */ - ncr = (volatile sci_regmap_t *) (SCSIBase + (u_int) ncr); - sci_4byte_addr = (volatile long *) - (SCSIBase + (u_int) sci_4byte_addr); - sci_1byte_addr = (volatile u_char *) - (SCSIBase + (u_int) sci_1byte_addr); - probed = 1; - } - return 1; -} - -static void -ncrattach(parent, dev, aux) - struct device *parent, *dev; - void *aux; -{ - int unit = dev->dv_unit; - struct ncr5380_softc *ncr5380; - int r; - - ncr5380 = (struct ncr5380_softc *) dev; - - ncr5380->sc_link.scsibus = unit; - ncr5380->sc_link.adapter_target = 7; - ncr5380->sc_link.adapter = &ncr5380_switch; - ncr5380->sc_link.device = &ncr5380_dev; - ncr5380->sc_link.openings = 1; -#ifdef SCSIDEBUG - ncr5380->sc_link.flags = SDEV_DB1 | SDEV_DB2 /* | SDEV_DB3 | SDEV_DB4 */ ; -#endif - - printf("\n"); - - config_found(dev, &(ncr5380->sc_link), ncr_print); -} - -#define MIN_PHYS 65536 /* BARF!!!! */ -static void -ncr5380_minphys(struct buf * bp) -{ - if (bp->b_bcount > MIN_PHYS) { - printf("Uh-oh... ncr5380_minphys setting bp->b_bcount = %x.\n", MIN_PHYS); - bp->b_bcount = MIN_PHYS; - } - minphys(bp); -} -#undef MIN_PHYS - -static int -ncr5380_scsi_cmd(struct scsi_xfer * xs) -{ - int flags, s, r; - - flags = xs->flags; - if (xs->bp) - flags |= (SCSI_NOSLEEP); - if (flags & ITSDONE) { - printf("Already done?"); - xs->flags &= ~ITSDONE; - } - if (!(flags & INUSE)) { - printf("Not in use?"); - xs->flags |= INUSE; - } - if (flags & SCSI_RESET) { - printf("flags & SCSIRESET.\n"); - s = splbio(); - ncr5380_reset_target(xs->sc_link->scsibus, - xs->sc_link->target); - splx(s); - return (COMPLETE); - } - xs->resid = 0; - r = ncr5380_send_cmd(xs); - xs->flags |= ITSDONE; - scsi_done(xs); -#ifdef SCSIDEBUG - printf("SCSI transfer done.\n"); -#endif /* SCSIDEBUG */ - switch (r) { - case COMPLETE: - case SUCCESSFULLY_QUEUED: - r = SUCCESSFULLY_QUEUED; - if (xs->flags & SCSI_POLL) - r = COMPLETE; - break; - default: - break; - } - return r; -} - -static int -ncr5380_show_scsi_cmd(struct scsi_xfer * xs) -{ - u_char *b = (u_char *) xs->cmd; - int i = 0; - - if (!(xs->flags & SCSI_RESET)) { - printf("ncr5380(%d:%d:%d)-", - xs->sc_link->scsibus, xs->sc_link->target, xs->sc_link->lun); - while (i < xs->cmdlen) { - if (i) - printf(","); - printf("%x", b[i++]); - } - printf("-\n"); - } else { - printf("ncr5380(%d:%d:%d)-RESET-\n", - xs->sc_link->scsibus, xs->sc_link->target, xs->sc_link->lun); - } -} -/* - * Actual chip control. - */ - -extern void -spinwait(int ms) -{ - while (ms--) - delay(1000); -} - -extern void -ncr5380_intr(int adapter) -{ - register volatile sci_padded_regmap_t *regs = ncr; - - SCI_CLR_INTR(regs); - regs->sci_mode = 0x00; -} - -extern int -ncr5380_irq_intr(void) -{ - register volatile sci_padded_regmap_t *regs = ncr; - -/* if (regs->sci_csr != SCI_CSR_PHASE_MATCH) - printf("scsi_irq_intr called (not just phase match -- " - "csr = 0x%x, bus_csr = 0x%x).\n", - regs->sci_csr, regs->sci_bus_csr); - ncr5380_intr(0); */ - return 1; -} - -extern int -ncr5380_drq_intr(void) -{ -/* printf("scsi_drq_intr called.\n"); */ -/* ncr5380_intr(0); */ - return 1; -} - -static int -ncr5380_reset_target(int adapter, int target) -{ - register volatile sci_padded_regmap_t *regs = ncr; - int dummy; - - regs->sci_icmd = SCI_ICMD_TEST; - regs->sci_icmd = SCI_ICMD_TEST | SCI_ICMD_RST; - spinwait(250); /* 250 ms */ - regs->sci_icmd = 0; - - regs->sci_mode = 0; - regs->sci_tcmd = SCI_PHASE_DISC; - regs->sci_sel_enb = 0; - - SCI_CLR_INTR(regs); - SCI_CLR_INTR(regs); -} - -static int -ncr5380_poll(int adapter, int timeout) -{ -} - -static int -ncr5380_send_cmd(struct scsi_xfer * xs) -{ - int s; - int sense; - -#ifdef SCSIDEBUG - ncr5380_show_scsi_cmd(xs); -#endif - s = splbio(); - sense = scsi_gen(xs->sc_link->scsibus, xs->sc_link->target, - xs->sc_link->lun, xs->cmd, xs->cmdlen, - xs->data, xs->datalen); - splx(s); - if (sense) { - switch (sense) { - case 0x02: /* Check condition */ -/* printf("check cond. target %d.\n", xs->targ);*/ - s = splbio(); - scsi_group0(xs->sc_link->scsibus, - xs->sc_link->target, - xs->sc_link->lun, - 0x3, 0x0, - sizeof(struct scsi_sense_data), - 0, (caddr_t) & (xs->sense), - sizeof(struct scsi_sense_data)); - splx(s); - xs->error = XS_SENSE; - return COMPLETE; - case 0x08: /* Busy */ - xs->error = XS_BUSY; - return COMPLETE; - default: - xs->error = XS_DRIVER_STUFFUP; - return COMPLETE; - } - } - xs->error = XS_NOERROR; - return (COMPLETE); -} - -static int -select_target(register volatile sci_padded_regmap_t * regs, - u_char myid, u_char tid, int with_atn) -{ - register u_char bid, icmd; - int ret = SCSI_RET_RETRY; - - if ((regs->sci_bus_csr & (SCI_BUS_BSY | SCI_BUS_SEL)) && - (regs->sci_bus_csr & (SCI_BUS_BSY | SCI_BUS_SEL)) && - (regs->sci_bus_csr & (SCI_BUS_BSY | SCI_BUS_SEL))) - return ret; - - /* for our purposes.. */ - myid = 1 << myid; - tid = 1 << tid; - - regs->sci_sel_enb = 0; /* myid; we don't want any interrupts. */ - regs->sci_tcmd = 0; /* Get into a harmless state. */ - regs->sci_mode = 0; /* Get into a harmless state. */ - - regs->sci_odata = myid; - regs->sci_mode = SCI_MODE_ARB; -/* regs->sci_mode |= SCI_MODE_ARB; */ - /* AIP might not set if BSY went true after we checked */ - for (bid = 0; bid < 20; bid++) /* 20usec circa */ - if (regs->sci_icmd & SCI_ICMD_AIP) - break; - if ((regs->sci_icmd & SCI_ICMD_AIP) == 0) { - goto lost; - } - delay(3); /* 2.4us arb delay */ - - if (regs->sci_icmd & SCI_ICMD_LST) { - goto lost; - } - regs->sci_mode &= ~SCI_MODE_PAR_CHK; - bid = regs->sci_data; - - if ((bid & ~myid) > myid) { - goto lost; - } - if (regs->sci_icmd & SCI_ICMD_LST) { - goto lost; - } - /* Won arbitration, enter selection phase now */ - icmd = regs->sci_icmd & ~(SCI_ICMD_DIFF | SCI_ICMD_TEST); - icmd |= (with_atn ? (SCI_ICMD_SEL | SCI_ICMD_ATN) : SCI_ICMD_SEL); - icmd |= SCI_ICMD_BSY; - regs->sci_icmd = icmd; - - if (regs->sci_icmd & SCI_ICMD_LST) { - goto nosel; - } - /* XXX a target that violates specs might still drive the bus XXX */ - /* XXX should put our id out, and after the delay check nothi XXX */ - /* XXX ng else is out there. XXX */ - - delay(1); - - regs->sci_tcmd = 0; - regs->sci_odata = myid | tid; - regs->sci_sel_enb = 0; - -/* regs->sci_mode &= ~SCI_MODE_ARB; 2 deskew delays, too */ - regs->sci_mode = 0; /* 2 deskew delays, too */ - - icmd |= SCI_ICMD_DATA; - icmd &= ~(SCI_ICMD_BSY); - - regs->sci_icmd = icmd; - - /* bus settle delay, 400ns */ - delay(1); /* 1us > 400ns ;-) */ - -/* regs->sci_mode |= SCI_MODE_PAR_CHK; */ - - { - register int timeo = 2500; /* 250 msecs in 100 usecs - * chunks */ - while ((regs->sci_bus_csr & SCI_BUS_BSY) == 0) { - if (--timeo > 0) { - delay(100); - } else { - goto nodev; - } - } - } - - icmd &= ~(SCI_ICMD_DATA | SCI_ICMD_SEL); - regs->sci_icmd = icmd; - /* regs->sci_sel_enb = myid;*//* looks like we should NOT have it */ - return SCSI_RET_SUCCESS; -nodev: - ret = SCSI_RET_DEVICE_DOWN; - regs->sci_sel_enb = myid; -nosel: - icmd &= ~(SCI_ICMD_DATA | SCI_ICMD_SEL | SCI_ICMD_ATN); - regs->sci_icmd = icmd; -lost: - regs->sci_mode = 0; - - return ret; -} - -static int -sci_data_out(regs, phase, count, data) - register sci_padded_regmap_t *regs; - unsigned char *data; -{ - register unsigned char icmd; - register int cnt = 0; - - /* ..checks.. */ - - icmd = regs->sci_icmd & ~(SCI_ICMD_DIFF | SCI_ICMD_TEST); -loop: - if (SCI_CUR_PHASE(regs->sci_bus_csr) != phase) - return cnt; - - WAIT_FOR_REQ(regs); - icmd |= SCI_ICMD_DATA; - regs->sci_icmd = icmd; - regs->sci_odata = *data++; - icmd |= SCI_ICMD_ACK; - regs->sci_icmd = icmd; - - icmd &= ~(SCI_ICMD_DATA | SCI_ICMD_ACK); - WAIT_FOR_NOT_REQ(regs); - regs->sci_icmd = icmd; - ++cnt; - if (--count > 0) - goto loop; -scsi_timeout_error: - return cnt; -} - -static int -sci_data_in(regs, phase, count, data) - register sci_padded_regmap_t *regs; - unsigned char *data; -{ - register unsigned char icmd; - register int cnt = 0; - - /* ..checks.. */ - - icmd = regs->sci_icmd & ~(SCI_ICMD_DIFF | SCI_ICMD_TEST); - -loop: - if (SCI_CUR_PHASE(regs->sci_bus_csr) != phase) - return cnt; - - WAIT_FOR_REQ(regs); - *data++ = regs->sci_data; - icmd |= SCI_ICMD_ACK; - regs->sci_icmd = icmd; - - icmd &= ~SCI_ICMD_ACK; - WAIT_FOR_NOT_REQ(regs); - regs->sci_icmd = icmd; - ++cnt; - if (--count > 0) - goto loop; - -scsi_timeout_error: - return cnt; -} - -static int -command_transfer(register volatile sci_padded_regmap_t * regs, - int maxlen, u_char * data, u_char * status, u_char * msg) -{ - int xfer = 0, phase; - -/* printf("command_transfer called for 0x%x.\n", *data); */ - - regs->sci_icmd = 0; - - while (1) { - - WAIT_FOR_REQ(regs); - - phase = SCI_CUR_PHASE(regs->sci_bus_csr); - - switch (phase) { - case SCSI_PHASE_CMD: - SCI_ACK(regs, SCSI_PHASE_CMD); - xfer += sci_data_out(regs, SCSI_PHASE_CMD, - maxlen, data); - return xfer; - case SCSI_PHASE_DATA_IN: - printf("Data in phase in command_transfer?\n"); - return 0; - case SCSI_PHASE_DATA_OUT: - printf("Data out phase in command_transfer?\n"); - return 0; - case SCSI_PHASE_STATUS: - SCI_ACK(regs, SCSI_PHASE_STATUS); - printf("status in command_transfer.\n"); - sci_data_in(regs, SCSI_PHASE_STATUS, - 1, status); - break; - case SCSI_PHASE_MESSAGE_IN: - SCI_ACK(regs, SCSI_PHASE_MESSAGE_IN); - printf("msgin in command_transfer.\n"); - sci_data_in(regs, SCSI_PHASE_MESSAGE_IN, - 1, msg); - break; - case SCSI_PHASE_MESSAGE_OUT: - SCI_ACK(regs, SCSI_PHASE_MESSAGE_OUT); - sci_data_out(regs, SCSI_PHASE_MESSAGE_OUT, - 1, msg); - break; - default: - printf("Unexpected phase 0x%x in " - "command_transfer().\n", phase); - scsi_timeout_error: - return xfer; - break; - } - } -} - -static int -data_transfer(register volatile sci_padded_regmap_t * regs, - int maxlen, u_char * data, u_char * status, u_char * msg) -{ - int retlen = 0, xfer, phase; - - regs->sci_icmd = 0; - - *status = 0; - - while (1) { - - WAIT_FOR_REQ(regs); - - phase = SCI_CUR_PHASE(regs->sci_bus_csr); - - switch (phase) { - case SCSI_PHASE_CMD: - printf("Command phase in data_transfer().\n"); - return retlen; - case SCSI_PHASE_DATA_IN: - SCI_ACK(regs, SCSI_PHASE_DATA_IN); -#if PSEUDO_DMA - xfer = sci_pdma_in(regs, SCSI_PHASE_DATA_IN, - maxlen, data); -#else - xfer = sci_data_in(regs, SCSI_PHASE_DATA_IN, - maxlen, data); -#endif - retlen += xfer; - maxlen -= xfer; - break; - case SCSI_PHASE_DATA_OUT: - SCI_ACK(regs, SCSI_PHASE_DATA_OUT); -#if PSEUDO_DMA - xfer = sci_pdma_out(regs, SCSI_PHASE_DATA_OUT, - maxlen, data); -#else - xfer = sci_data_out(regs, SCSI_PHASE_DATA_OUT, - maxlen, data); -#endif - retlen += xfer; - maxlen -= xfer; - break; - case SCSI_PHASE_STATUS: - SCI_ACK(regs, SCSI_PHASE_STATUS); - sci_data_in(regs, SCSI_PHASE_STATUS, - 1, status); - break; - case SCSI_PHASE_MESSAGE_IN: - SCI_ACK(regs, SCSI_PHASE_MESSAGE_IN); - sci_data_in(regs, SCSI_PHASE_MESSAGE_IN, - 1, msg); - if (*msg == 0) { - return retlen; - } else { - printf("message 0x%x in " - "data_transfer.\n", *msg); - } - break; - case SCSI_PHASE_MESSAGE_OUT: - SCI_ACK(regs, SCSI_PHASE_MESSAGE_OUT); - sci_data_out(regs, SCSI_PHASE_MESSAGE_OUT, - 1, msg); - break; - default: - printf("Unexpected phase 0x%x in " - "data_transfer().\n", phase); - scsi_timeout_error: - return retlen; - break; - } - } -} - -static int -scsi_request(register volatile sci_padded_regmap_t * regs, - int target, int lun, u_char * cmd, int cmdlen, - char *databuf, int datalen, int *sent, int *ret) -{ -/* Returns 0 on success, -1 on internal error, or the status byte */ - int cmd_bytes_sent, r; - u_char stat, msg, c; - - *sent = 0; - - if ((r = select_target(regs, 7, target, 1)) != SCSI_RET_SUCCESS) { - *ret = r; - SCI_CLR_INTR(regs); - switch (r) { - case SCSI_RET_RETRY: - return 0x08; - default: - printf("select_target(target %d, lun %d) failed(%d).\n", - target, lun, r); - case SCSI_RET_DEVICE_DOWN: - return -1; - } - } - c = 0x80 | lun; - - if ((cmd_bytes_sent = command_transfer(regs, cmdlen, - (u_char *) cmd, &stat, &c)) - != cmdlen) { - SCI_CLR_INTR(regs); - *ret = SCSI_RET_COMMAND_FAIL; - printf("Data underrun sending CCB (%d bytes of %d, sent).\n", - cmd_bytes_sent, cmdlen); - return -1; - } - *sent = data_transfer(regs, datalen, (u_char *) databuf, - &stat, &msg); - - *ret = 0; - - return stat; -} - -static int -scsi_gen(int adapter, int id, int lun, struct scsi_generic * cmd, - int cmdlen, void *databuf, int datalen) -{ - register volatile sci_padded_regmap_t *regs = ncr; - int i, j, sent, ret; - - cmd->bytes[0] = ((u_char) lun << 5); - - i = scsi_request(regs, id, lun, (u_char *) cmd, cmdlen, - databuf, datalen, &sent, &ret); - - return i; -} - -static int -scsi_group0(int adapter, int id, int lun, int opcode, int addr, int len, - int flags, caddr_t databuf, int datalen) -{ - register volatile sci_padded_regmap_t *regs = ncr; - unsigned char cmd[6]; - int i, j, sent, ret; - - cmd[0] = opcode; /* Operation code */ - cmd[1] = (lun << 5) | ((addr >> 16) & 0x1F); /* Lun & MSB of addr */ - cmd[2] = (addr >> 8) & 0xFF; /* addr */ - cmd[3] = addr & 0xFF; /* LSB of addr */ - cmd[4] = len; /* Allocation length */ - cmd[5] = flags; /* Link/Flag */ - - i = scsi_request(regs, id, lun, cmd, 6, databuf, datalen, &sent, &ret); - - return i; -} -/* pseudo-dma action */ - -#if PSEUDO_DMA - -#define TIMEOUT 1000000 -#define READY(poll) \ - i = TIMEOUT; \ - while ((regs->sci_csr & (SCI_CSR_DREQ|SCI_CSR_PHASE_MATCH)) \ - !=(SCI_CSR_DREQ|SCI_CSR_PHASE_MATCH)) \ - if ( !(regs->sci_csr & SCI_CSR_PHASE_MATCH) \ - || !(regs->sci_bus_csr & SCI_BUS_BSY) \ - || (i-- < 0) ) { \ - printf("scsi.c: timeout counter = %d, len = %d count=%d (count-len %d).\n", \ - i, len,count,count-len); \ - printf("pdebug = %d, 1=out, 2=in",pdebug); \ - /*dump_regs();*/ \ - if (poll && !(regs->sci_csr & SCI_CSR_PHASE_MATCH)) { \ - regs->sci_icmd &= ~SCI_ICMD_DATA; \ - len--; \ - } else { \ - regs->sci_mode &= ~SCI_MODE_DMA; \ - } \ - return count-len; \ - } - -#define W1 *byte_data = *data++ -#define W4 *long_data = *((long*)data)++ - -sci_pdma_out(regs, phase, count, data) - register volatile sci_padded_regmap_t *regs; - int phase; - int count; - u_char *data; -{ - register volatile long *long_data = sci_4byte_addr; - register volatile u_char *byte_data = sci_1byte_addr; - register int len = count, i; - - pdebug = 1; - - if (count < 128) - return sci_data_out(regs, phase, count, data); - - WAIT_FOR_BSY(regs); - regs->sci_mode |= SCI_MODE_DMA; - regs->sci_icmd |= SCI_ICMD_DATA; - regs->sci_dma_send = 0; - - while (len >= 64) { - READY(1); - W1; - READY(1); - W1; - READY(1); - W1; - READY(1); - W1; - READY(1); - W4; - W4; - W4; - W4; - W4; - W4; - W4; - W4; - W4; - W4; - W4; - W4; - W4; - W4; - W4; - len -= 64; - } - while (len) { - READY(1); - W1; - len--; - } - i = TIMEOUT; - while (((regs->sci_csr & (SCI_CSR_DREQ | SCI_CSR_PHASE_MATCH)) - == SCI_CSR_PHASE_MATCH) && --i); - if (!i) - printf("scsi.c:%d: timeout waiting for SCI_CSR_DREQ.\n", __LINE__); - *byte_data = 0; -scsi_timeout_error: - regs->sci_mode &= ~SCI_MODE_DMA; - return count - len; -} -#undef W1 -#undef W4 - -#define R4 *((long *)data)++ = *long_data -#define R1 *data++ = *byte_data - -sci_pdma_in(regs, phase, count, data) - register volatile sci_padded_regmap_t *regs; - int phase; - int count; - u_char *data; -{ - register volatile long *long_data = sci_4byte_addr; - register volatile u_char *byte_data = sci_1byte_addr; - register int len = count, i; - - pdebug = 2; - if (count < 128) - return sci_data_in(regs, phase, count, data); - -/* printf("Called sci_pdma_in(0x%x, 0x%x, %d, 0x%x.\n", regs, phase, count, data); */ - - WAIT_FOR_BSY(regs); - regs->sci_mode |= SCI_MODE_DMA; - regs->sci_icmd |= SCI_ICMD_DATA; - regs->sci_irecv = 0; - - while (len >= 1024) { - READY(0); - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; /* 128 */ - READY(0); - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; /* 256 */ - READY(0); - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; /* 384 */ - READY(0); - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; /* 512 */ - READY(0); - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; /* 640 */ - READY(0); - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; /* 768 */ - READY(0); - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; /* 896 */ - READY(0); - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; /* 1024 */ - len -= 1024; - } - while (len >= 128) { - READY(0); - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; - R4; /* 128 */ - len -= 128; - } - while (len) { - READY(0); - R1; - len--; - } -scsi_timeout_error: - regs->sci_mode &= ~SCI_MODE_DMA; - return count - len; -} -#undef R4 -#undef R1 -#endif diff --git a/sys/arch/mac68k/dev/scsi96.c b/sys/arch/mac68k/dev/scsi96.c index d6a9abbf303..4adfc02979b 100644 --- a/sys/arch/mac68k/dev/scsi96.c +++ b/sys/arch/mac68k/dev/scsi96.c @@ -1,4 +1,4 @@ -/* $NetBSD: scsi96.c,v 1.13 1995/08/14 03:55:28 briggs Exp $ */ +/* $NetBSD: scsi96.c,v 1.17 1996/05/05 06:17:19 briggs Exp $ */ /* * Copyright (C) 1994 Allen K. Briggs @@ -47,13 +47,11 @@ #include <scsi/scsiconf.h> #include <machine/scsi96reg.h> -#include "../mac68k/via.h" +#include <machine/viareg.h> /* Support for the NCR 53C96 SCSI processor--primarily for '040 Macs. */ -#ifdef DDB -int Debugger(); -#else +#ifndef DDB #define Debugger() panic("Should call Debugger here (mac/dev/scsi96.c).") #endif @@ -78,7 +76,6 @@ struct ncr53c96_softc { } \ } -static unsigned int ncr53c96_adapter_info(struct ncr53c96_softc * ncr53c96); static void ncr53c96_minphys(struct buf * bp); static int ncr53c96_scsi_cmd(struct scsi_xfer * xs); @@ -102,20 +99,25 @@ struct scsi_device ncr53c96_dev = { NULL, /* Use default "done" routine. */ }; -extern int matchbyname(); -static int ncr96probe(); -static void ncr96attach(); +static int ncr96probe __P((struct device *, void *, void *)); +static void ncr96attach __P((struct device *, struct device *, void *)); -struct cfdriver ncr96scsicd = -{NULL, "ncr96scsi", ncr96probe, ncr96attach, -DV_DULL, sizeof(struct ncr53c96_softc), NULL, 0}; +struct cfattach ncr96scsi_ca = { + sizeof(struct ncr53c96_softc), ncr96probe, ncr96attach +}; + +struct cfdriver ncr96scsi_cd = { + NULL, "ncr96scsi", DV_DULL, NULL, 0 +}; +static int ncr96_print __P((void *, char *)); static int ncr96_print(aux, name) void *aux; char *name; { /* printf("%s: (sc_link = 0x%x)", name, (int) aux); return UNCONF; */ + return UNCONF; } static int @@ -125,17 +127,12 @@ ncr96probe(parent, match, aux) void *aux; { static int probed = 0; - struct ncr53c96_softc *ncr53c96; return 0; if (!mac68k_machine.scsi96) { return 0; } - ncr53c96 = (struct ncr53c96_softc *) match; - if (strcmp(*((char **) aux), ncr53c96->sc_dev.dv_xname)) { - return 0; - } if (!probed) { probed = 1; ncr53c96base += SCSIBase; @@ -150,7 +147,6 @@ ncr96attach(parent, dev, aux) { int unit = dev->dv_unit; struct ncr53c96_softc *ncr53c96; - int r; ncr53c96 = (struct ncr53c96_softc *) dev; @@ -280,16 +276,22 @@ ncr53c96_show_scsi_cmd(struct scsi_xfer * xs) xs->sc_link->scsibus, xs->sc_link->target, xs->sc_link->lun); } + return 0; } + /* * Actual chip control. */ +extern void ncr53c96_intr __P((int)); + extern void ncr53c96_intr(int adapter) { } +extern int ncr53c96_irq_intr __P((void)); + extern int ncr53c96_irq_intr(void) { @@ -297,6 +299,7 @@ ncr53c96_irq_intr(void) return 1; } +extern int ncr53c96_drq_intr __P((void)); extern int ncr53c96_drq_intr(void) { @@ -307,11 +310,13 @@ ncr53c96_drq_intr(void) static int ncr53c96_reset_target(int adapter, int target) { +return 0; } static int ncr53c96_poll(int adapter, int timeout) { +return 0; } static int @@ -320,7 +325,7 @@ do_send_cmd(struct scsi_xfer * xs) struct ncr53c96regs *ncr = (struct ncr53c96regs *) ncr53c96base; u_char *cmd; int i, stat, is, intr; - int status, msg, phase; + int msg, phase; xs->resid = 0; i = (int) ncr->statreg; /* clear interrupts */ @@ -352,7 +357,7 @@ do_send_cmd(struct scsi_xfer * xs) "datalen = %d\n", stat, is, intr, xs->datalen); phase = ncr->statreg & NCR96_STAT_PHASE; if (((phase == 0x01) || (phase == 0x00)) && xs->datalen) { - printf("data = 0x%x, datalen = 0x%x.\n", xs->data, xs->datalen); + printf("data = %p, datalen = 0x%x.\n", xs->data, xs->datalen); stat = ncr->statreg; is = ncr->isreg; intr = ncr->instreg; @@ -381,8 +386,8 @@ do_send_cmd(struct scsi_xfer * xs) } intr = ncr->instreg; - printf("\nin loop. stat = 0x%x, intr = 0x%x, cnt = %d. ", - stat, intr, cnt); + printf("\nin loop. stat = 0x%x, intr = 0x%x", + stat, intr); printf("rem... %d.\n", ncr->tcreg_lsb | (ncr->tcreg_msb << 8)); } /* } else { diff --git a/sys/arch/mac68k/dev/ser.c b/sys/arch/mac68k/dev/ser.c deleted file mode 100644 index ba565105d6f..00000000000 --- a/sys/arch/mac68k/dev/ser.c +++ /dev/null @@ -1,2033 +0,0 @@ -/* $NetBSD: ser.c,v 1.34 1996/01/12 04:16:25 briggs Exp $ */ - -/* - * Copyright (c) 1994 Gordon W. Ross - * Copyright (c) 1992, 1993 - * The Regents of the University of California. All rights reserved. - * - * This software was developed by the Computer Systems Engineering group - * at Lawrence Berkeley Laboratory under DARPA contract BG 91-66 and - * contributed to Berkeley. - * - * All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Lawrence Berkeley Laboratory. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - * - * @(#)zs.c 8.1 (Berkeley) 7/19/93 - */ - -/* - * Originally a custom driver. - * Hacked by Brad Parker, <brad@fcr.com> - * added CTS input flow control - * added DCD event detection - * added software fifo's - * - * Mac II serial device interface - * - * Information used in this source was gleaned from low-memory - * global variables in MacOS and the Advanced Micro Devices - * 1992 Data Book/Handbook. - * - * Further hacked by Bill Studenmund <wrstuden@loki.stanford.edu> - * merged in much of the sun's SCC code, hence the new - * copyright--there's not much original ser.c code in - * here at all. - * - * Further information from Zilog Serial Communication Controllers - * databook. - */ - - -/* - * Zilog Z8530 (ZSCC) driver. - * - * Runs two tty ports (ttya and ttyb) on zs0, - * and runs a keyboard and mouse on zs1. (at least on a sun it will!) - * - * This driver knows far too much about chip to usage mappings. - */ -#define NZS 1 /* XXX */ - -#include <sys/param.h> -#include <sys/systm.h> -#include <sys/ioctl.h> -#include <sys/tty.h> -#include <sys/proc.h> -#include <sys/conf.h> -#include <sys/file.h> -#include <sys/uio.h> -#include <sys/kernel.h> -#include <sys/syslog.h> -#include <sys/device.h> - -#include <machine/cpu.h> -#include <machine/frame.h> - -#include <dev/cons.h> - -#undef LOCORE -#include "z8530reg.h" -#include "zsvar.h" - -/* Defines for mapping zs onto the mac68k. */ -#undef ZS_DELAY() -#define ZS_DELAY() -#define mon_printf printf -#define splzs spl4 -#define isr_soft_clear(x) -#define isr_soft_request(x) setsoftserial() -#define isr_add_autovect(x, y, z) -#define ZS_CHAN(x) (volatile struct zschan *)(((long)addr)+x*2) -#define ZS_CONS_A (volatile struct zschan *)1 -#define ZS_CONS_B (volatile struct zschan *)2 -/* magic cookies for console stuff. If zsconschan is one of these, we look at sccA all the time */ -#define zsopen seropen -#define zsclose serclose -#define zsioctl serioctl -#define zsread serread -#define zswrite serwrite -#define zsparam serparam -#define zsstart serstart -#define zsstop serstop -#define zstty sertty - -#define ZSMAJOR 12 /* XXX */ - -#define ZSHARD_PRI 4 /* Wired on the CPU board... */ -#define ZSSOFT_PRI 3 /* Want tty pri (4) but this is OK. */ - -#define ZS_KBD 2 /* XXX */ -#define ZS_MOUSE 3 /* XXX */ -#define ZSDEF_CFLAG (CREAD | CS8 | HUPCL ) - -/* - * Below calculation gets us to the chip clock value. - */ -#define PCLK (mac68k_machine.sccClkConst*2) - -#define ZS_HFC (ZSRR0_DCD | ZSRR0_CTS) - -/* - * Software state per found chip. This would be called `zs_softc', - * but the previous driver had a rather different zs_softc.... - */ -struct zsinfo { - struct device zi_dev; /* base device */ - volatile struct zsdevice *zi_zs;/* chip registers */ - struct zs_chanstate zi_cs[2]; /* channel A and B software state */ -}; - -static struct tty *zs_tty[NZS * 2]; /* XXX should be dynamic */ - -extern int matchbyname(); -static void serinit(int); - -/* Definition of the driver for autoconfig. */ -static int zs_match(struct device *, void *, void *); -static void zs_attach(struct device *, struct device *, void *); - -struct cfdriver sercd = { - NULL, "ser", matchbyname, zs_attach, DV_TTY, sizeof(struct zsinfo) -}; - -#define zscd sercd -/* HACK until finished cleaning up configuration stuff */ - -/* Interrupt handlers. */ -int zshard(int); -int zssoft(int); -void zsinit(void); - -struct zs_chanstate *zslist = 0; - -volatile unsigned char *sccA = 0; - -static void serstart __P((register struct tty *)); -static int serparam __P((register struct tty *, register struct termios *)); - -/* Routines called from other code. */ -int zsopen(dev_t, int, int, struct proc *); -int zsclose(dev_t, int, int, struct proc *); -static void zsiopen(struct tty *); -static void zsiclose(struct tty *); -static void zsstart(struct tty *); -void zsstop(struct tty *, int); -static int zsparam(struct tty *, struct termios *); - -/* Routines purely local to this driver. */ -static int zs_getspeed(volatile struct zschan *); -static void zs_reset(volatile struct zschan *, int, int); -static void zs_modem(struct zs_chanstate *, int); -static void zs_loadchannelregs(volatile struct zschan *, u_char *); -static u_char zs_read(volatile struct zschan *, u_char); -static u_char zs_write(volatile struct zschan *, u_char, u_char); -static void zs_restart(struct zs_chanstate *, volatile struct zschan *); - -/* Console stuff. */ -volatile struct zschan *zs_conschan = 0; - -#ifdef KGDB -/* KGDB stuff. Must reboot to change zs_kgdbunit. */ -extern int kgdb_dev, kgdb_rate; -static int zs_kgdb_savedspeed; -static void zs_checkkgdb(int, struct zs_chanstate *, struct tty *); -#endif - -static int initted = 0; -static int serdefaultrate = 9600; - -static int zsinitted = 0; - -extern struct tty *constty; - -#define UNIT(x) minor(x) -/* #define SER_TTY(unit) \ - (((struct ser_softc *) sercd.cd_devs[unit])->sc_tty) */ - -/* - * Console keyboard L1-A processing is done in the hardware interrupt code, - * so we need to duplicate some of the console keyboard decode state. (We - * must not use the regular state as the hardware code keeps ahead of the - * software state: the software state tracks the most recent ring input but - * the hardware state tracks the most recent ZSCC input.) See also kbd.h. - */ -static struct conk_state { /* console keyboard state */ - char conk_id; /* true => ID coming up (console only) */ - char conk_l1; /* true => L1 pressed (console only) */ -} zsconk_state; - -int zshardscope; -int zsshortcuts; /* number of "shortcut" software interrupts */ - -int zssoftpending; /* We have done isr_soft_request() */ - -static struct zsdevice *zsaddr[NZS]; /* XXX, but saves work */ - -/* Default OBIO addresses. */ -/* static int zs_physaddr[NZS] = { OBIO_ZS, OBIO_KEYBD_MS }; not until we have OBIO */ - -static u_char zs_init_reg[16] = { - 0, /* 0: CMD (reset, etc.) */ - ZSWR1_RIE | ZSWR1_TIE | ZSWR1_SIE, - 0x18 + ZSHARD_PRI, /* IVECT */ - ZSWR3_RX_8 | ZSWR3_RX_ENABLE, - ZSWR4_CLK_X16 | ZSWR4_ONESB | ZSWR4_EVENP, - /* ZSWR5_TX_8 | ZSWR5_TX_ENABLE | ZSWR5_RTS, */ - ZSWR5_TX_8 | ZSWR5_TX_ENABLE | ZSWR5_RTS | ZSWR5_DTR, - 0, /* 6: TXSYNC/SYNCLO */ - 0, /* 7: RXSYNC/SYNCHI */ - 0, /* 8: alias for data port */ - 0, /* 9: ZSWR9_MASTER_IE (later) */ - 0, /*10: Misc. TX/RX control bits */ - ZSWR11_TXCLK_BAUD | ZSWR11_RXCLK_BAUD, - 0, /*12: BAUDLO (later) */ - 0, /*13: BAUDHI (later) */ -/* ZSWR14_BAUD_FROM_PCLK | ZSWR14_BAUD_ENA, */ - ZSWR14_BAUD_ENA, -/* ZSWR15_BREAK_IE | ZSWR15_DCD_IE | ZSWR15_CTS_IE, */ - ZSWR15_DCD_IE | ZSWR15_CTS_IE, -}; - -/* Find PROM mappings (for console support). */ -void zs_init() -{ - int i; - - for (i = 0; i < NZS; i++) { - /* zsaddr[i] = (struct zsdevice *) - obio_find_mapping(zs_physaddr[i], OBIO_ZS_SIZE); */ - } -} - -/* - * Match slave number to zs unit number, so that misconfiguration will - * not set up the keyboard as ttya, etc. - */ -static int -zs_match(struct device *parent, void *vcf, void *args) -{ - struct cfdata *cf = vcf; - struct confargs *ca = args; - int unit, x; - void *zsva; - - unit = cf->cf_unit; - if (unit < 0 || unit >= NZS) - return (0); - - zsva = zsaddr[unit]; - if (zsva == NULL) - return (0); - -/* if (ca->ca_paddr == -1) - ca->ca_paddr = zs_physaddr[unit]; - if (ca->ca_intpri == -1) - ca->ca_intpri = ZSHARD_PRI; -*/ - /* This returns -1 on a fault (bus error). */ -/* x = peek_byte(zsva); */ - return (x != -1); -} - -/* - * Attach a found zs. - * - * USE ROM PROPERTIES port-a-ignore-cd AND port-b-ignore-cd FOR - * SOFT CARRIER, AND keyboard PROPERTY FOR KEYBOARD/MOUSE? - */ -static void -zs_attach(struct device *parent, struct device *self, void *args) -{ - struct cfdata *cf; - struct confargs *ca; - register int zs, unit; - register struct zsinfo *zi; - register struct zs_chanstate *cs; - register volatile struct zsdevice *addr; - register struct tty *tp, *ctp; - int softcar; - static int didintr; - - cf = self->dv_cfdata; - zs = self->dv_unit; - ca = args; - -#ifdef DEBUG - printf(" softpri %d\n", ZSSOFT_PRI); -#endif - if (self->dv_unit != 0) {printf("\n"); return;} /* Hack for now */ - - if (!zsinitted) zsinit(); - if (zsaddr[zs] == NULL) - panic("zs_attach: zs%d not mapped\n", zs); - addr = zsaddr[zs]; - - if (!didintr) { - didintr = 1; - /* On the mac, these are not used. */ - isr_add_autovect(zssoft, NULL, ZSSOFT_PRI); - isr_add_autovect(zshard, NULL, ZSHARD_PRI); - } - - if ((zs_conschan == ZS_CONS_A) || (zs_conschan == ZS_CONS_B)) { - volatile struct zsdevice *addr; - addr = (volatile struct zsdevice *)sccA; - zs_conschan = ((zs_conschan == ZS_CONS_A) ? (ZS_CHAN(ZS_CHAN_A)):(ZS_CHAN(ZS_CHAN_B))); - /* the IO mapping won't be changing after here, so we can solidify the address */ - } - - zi = (struct zsinfo *)self; - zi->zi_zs = addr; - unit = zs * 2; - cs = zi->zi_cs; - softcar = cf->cf_flags; - - if(!zs_tty[unit]) - zs_tty[unit] = ttymalloc(); - if(!zs_tty[unit+1]) - zs_tty[unit+1] = ttymalloc(); -#ifdef DEBUG - printf("units are %x, %x\n", zs_tty[unit], zs_tty[unit+1]); -#endif - - /* link into interrupt list with order (A,B) (B=A+1) */ - cs[0].cs_next = &cs[1]; - cs[1].cs_next = zslist; - zslist = cs; - - cs->cs_unit = unit; - cs->cs_zc = ZS_CHAN(ZS_CHAN_A); -#ifdef DEBUG - printf("zs channel a at %x\n",cs->cs_zc); -#endif - cs->cs_speed = zs_getspeed(cs->cs_zc); -#ifdef DEBUG - mon_printf("zs%da speed %d ", zs, cs->cs_speed); -#endif - cs->cs_softcar = softcar & 1; - cs->cs_rr0_mask = 0; /* CTS is broken on the mac */ - cs->cs_SFC = 0; - cs->cs_holdSFC = 0; - cs->cs_tiu = 0; - - tp = zs_tty[unit]; - cs->cs_ttyp = tp; - tp->t_dev = makedev(ZSMAJOR, unit); - tp->t_oproc = zsstart; - tp->t_param = zsparam; - if ((cs->cs_zc == zs_conschan) && (mac68k_machine.serial_console & 0x01)) { -#ifdef DEBUG - printf("We got a console!, unit %d\n",unit); -#endif - /* This unit is the console. */ - cs->cs_consio = 1; - cs->cs_brkabort = /* 1 */ 0; - cs->cs_softcar = 1; - /* Call zsparam so interrupts get enabled. */ - tp->t_ispeed = tp->t_ospeed = cs->cs_speed; - tp->t_iflag = TTYDEF_IFLAG; - tp->t_oflag = TTYDEF_OFLAG; - tp->t_cflag = ZSDEF_CFLAG; - tp->t_lflag = TTYDEF_LFLAG; - (void) zsparam(tp, &tp->t_termios); - } else { - /* Can not run kgdb on the console? */ -#ifdef KGDB - zs_checkkgdb(unit, cs, tp); -#endif - } -#if 0 - /* XXX - Drop carrier here? -gwr */ - zs_modem(cs, cs->cs_softcar ? 1 : 0); -#endif - - if (unit == ZS_KBD) { -#ifdef DEBUG - printf("We got a KBD!, unit %d\n",unit); -#endif - /* - * Keyboard: tell /dev/kbd driver how to talk to us. - */ - tp->t_ispeed = tp->t_ospeed = cs->cs_speed; - tp->t_cflag = CS8; - /* zsparam called by zsiopen */ - /*kbd_serial(tp, zsiopen, zsiclose); HACK */ - cs->cs_conk = 1; /* do L1-A processing */ - } - unit++; - cs++; - - cs->cs_unit = unit; - cs->cs_zc = ZS_CHAN(ZS_CHAN_B); -#ifdef DEBUG - printf("zs channel b at %x\n",cs->cs_zc); -#endif - cs->cs_speed = zs_getspeed(cs->cs_zc); -#ifdef DEBUG - mon_printf("zs%db speed %d\n", zs, cs->cs_speed); -#endif - cs->cs_softcar = softcar & 2; - cs->cs_rr0_mask = 0; /* CTS is broken on the mac */ - cs->cs_SFC = 0; - cs->cs_holdSFC = 0; - cs->cs_tiu = 0; - - tp = zs_tty[unit]; - cs->cs_ttyp = tp; - tp->t_dev = makedev(ZSMAJOR, unit); - tp->t_oproc = zsstart; - tp->t_param = zsparam; - if ((cs->cs_zc == zs_conschan) && (mac68k_machine.serial_console & 0x01)) { -#ifdef DEBUG - printf("We got a console!, unit %d\n",unit); -#endif - /* This unit is the console. */ - cs->cs_consio = 1; - cs->cs_brkabort = 0; - cs->cs_softcar = 1; - tp->t_ispeed = tp->t_ospeed = cs->cs_speed; - tp->t_iflag = TTYDEF_IFLAG; - tp->t_oflag = TTYDEF_OFLAG; - tp->t_cflag = ZSDEF_CFLAG; - tp->t_lflag = TTYDEF_LFLAG; - (void) zsparam(tp, &tp->t_termios); - } else { - /* Can not run kgdb on the console? */ -#ifdef KGDB - zs_checkkgdb(unit, cs, tp); -#endif - } -#if 0 - /* XXX - Drop carrier here? -gwr */ - zs_modem(cs, cs->cs_softcar ? 1 : 0); -#endif - - if (unit == ZS_MOUSE) { -#ifdef DEBUG - printf("We got a mouse!, unit %d\n",unit); -#endif - /* - * Mouse: tell /dev/mouse driver how to talk to us. - */ - tp->t_ispeed = tp->t_ospeed = cs->cs_speed; - tp->t_cflag = CS8; - /* zsparam called by zsiopen */ - /* ms_serial(tp, zsiopen, zsiclose); HACK */ - } - if (mac68k_machine.serial_boot_echo) { - if (self->dv_unit == 0) - printf(" (serial boot echo is on)"); - } - printf("\n"); -} - -/* - * XXX - Temporary hack... - */ -struct tty * -zstty(dev) - dev_t dev; -{ - int unit = minor(dev); - -#ifdef DEBUG - printf("Fetching tty unit %i\n", unit); -#endif - - return (zs_tty[unit]); -} - -/* - * Put a channel in a known state. Interrupts may be left disabled - * or enabled, as desired. (Used only by kgdb) - */ -static void -zs_reset(zc, inten, speed) - volatile struct zschan *zc; - int inten, speed; -{ - int tconst; - u_char reg[16]; - - bcopy(zs_init_reg, reg, 16); - if (inten) { - reg[1] |= ZSWR1_RIE | ZSWR1_TIE | ZSWR1_SIE; - reg[9] |= ZSWR9_MASTER_IE; - } - - tconst = BPS_TO_TCONST(PCLK , speed); - reg[12] = tconst; - reg[13] = tconst >> 8; - zs_loadchannelregs(zc, reg); -} - -/* - * Console support - */ - -/* - * Used by the kd driver to find out if it can work. - */ -int -zscnprobe_kbd() -{ - if (zsaddr[1] == NULL) { - mon_printf("zscnprobe_kbd: zs1 not yet mapped\n"); - return CN_DEAD; - } - return CN_INTERNAL; -} - -/* - * This is the console probe routine for ttya and ttyb. - */ -static int -zscnprobe(struct consdev *cn, int unit) -{ - int maj; - - if (zsaddr[0] == NULL) { - mon_printf("zscnprobe: zs0 not mapped\n"); - cn->cn_pri = CN_DEAD; - return 0; - } - /* XXX - Also try to make sure it exists? */ - - /* locate the major number */ - for (maj = 0; maj < nchrdev; maj++) - if (cdevsw[maj].d_open == (void*)zsopen) - break; - - cn->cn_dev = makedev(maj, unit); - - /* Use EEPROM console setting to decide "remote" console. */ - /* Note: EE_CONS_TTYA + 1 == EE_CONS_TTYB */ -/* if (ee_console == (EE_CONS_TTYA + unit)) { - cn->cn_pri = CN_REMOTE; - } else { HACK */ - cn->cn_pri = CN_NORMAL; -/* } HACK */ - return (0); -} - -/* This is the constab entry for TTYA. */ -int -zscnprobe_a(struct consdev *cn) -{ - return (zscnprobe(cn, 0)); -} - -/* This is the constab entry for TTYB. */ -int -zscnprobe_b(struct consdev *cn) -{ - return (zscnprobe(cn, 1)); -} - -/* Called by kdcninit() or below. */ -void -zs_set_conschan(unit, ab) - int unit, ab; -{ - volatile struct zsdevice *addr; - -#ifndef mac68k - addr = zsaddr[unit]; - zs_conschan = ((ab == 0) ? (ZS_CHAN(ZS_CHAN_A)):(ZS_CHAN(ZS_CHAN_B))); -#else - zs_conschan = ((ab == 0) ? (ZS_CONS_A) : (ZS_CONS_B)); - /* use tokens for now */ -#endif - -} - -/* Attach as console. Also set zs_conschan */ -int -zscninit(struct consdev *cn) -{ - int ab = minor(cn->cn_dev) & 1; - zs_set_conschan(0, ab); - mon_printf("console on zs0 (tty%c)\n", 'a' + ab); -} - - -/* - * Polled console input putchar. - */ -int -sercngetc(dev) - dev_t dev; -{ - register volatile struct zschan *zc = zs_conschan; - register int s, c, rr0; - - if (zc == NULL) - return (0); - if ((zc == ZS_CONS_A) || (zc == ZS_CONS_B)) { - volatile struct zsdevice *addr; - addr = (volatile struct zsdevice *)sccA; - zc = ((zc == ZS_CONS_A) ? (ZS_CHAN(ZS_CHAN_A)):(ZS_CHAN(ZS_CHAN_B))); - /* if zs_conschan points at one of the magic values, re-direct it to the real chip */ - } - - s = splhigh(); - - /* Wait for a character to arrive. */ - do { - rr0 = zc->zc_csr; - ZS_DELAY(); - } while ((rr0 & ZSRR0_RX_READY) == 0); - - c = zc->zc_data; - ZS_DELAY(); - - splx(s); - - /* - * This is used by the kd driver to read scan codes, - * so don't translate '\r' ==> '\n' here... - */ - return (c); -} - -/* - * Polled console output putchar. - */ -int -sercnputc(dev, c) - dev_t dev; - int c; -{ - register volatile struct zschan *zc = zs_conschan; - register int s, rr0; - register long wait = 0; - - if (zc == NULL) { - s = splhigh(); - /* mon_putchar(c); */ - splx(s); - return (0); - } - s = splhigh(); - if ((zc == ZS_CONS_A) || (zc == ZS_CONS_B)) { - volatile struct zsdevice *addr; - addr = (volatile struct zsdevice *)sccA; - zc = ((zc == ZS_CONS_A) ? (ZS_CHAN(ZS_CHAN_A)):(ZS_CHAN(ZS_CHAN_B))); - /* if zs_conschan points at one of the magic values, re-direct it to the real chip */ - } - - /* Wait for transmitter to become ready. */ - do { - rr0 = zc->zc_csr; - ZS_DELAY(); - } while (((rr0 & ZSRR0_TX_READY) == 0) && (wait ++ < 100000)); - - zc->zc_data = c; - ZS_DELAY(); - splx(s); -} - -#ifdef KGDB -/* - * The kgdb zs port, if any, was altered at boot time (see zs_kgdb_init). - * Pick up the current speed and character size and restore the original - * speed. - */ -static void -zs_checkkgdb(int unit, struct zs_chanstate *cs, struct tty *tp) -{ - - if (kgdb_dev == makedev(ZSMAJOR, unit)) { - tp->t_ispeed = tp->t_ospeed = kgdb_rate; - tp->t_cflag = CS8; - cs->cs_kgdb = 1; - cs->cs_speed = zs_kgdb_savedspeed; - (void) zsparam(tp, &tp->t_termios); - } -} -#endif - -/* - * Compute the current baud rate given a ZSCC channel. - */ -static int -zs_getspeed(zc) - register volatile struct zschan *zc; -{ - register int tconst; - - tconst = ZS_READ(zc, 12); - tconst |= ZS_READ(zc, 13) << 8; -#ifdef DEBUG - printf("Time const is %x \n",tconst); -#endif - return (TCONST_TO_BPS(PCLK , tconst)); -} - - -/* - * Do an internal open. - */ -static void -zsiopen(tp) - struct tty *tp; -{ - - (void) zsparam(tp, &tp->t_termios); - ttsetwater(tp); - tp->t_state = TS_ISOPEN | TS_CARR_ON; -} - -/* - * Do an internal close. Eventually we should shut off the chip when both - * ports on it are closed. - */ -static void -zsiclose(tp) - struct tty *tp; -{ -#ifdef DEBUG - printf("zs internal close.\n"); -#endif - - ttylclose(tp, 0); /* ??? */ - ttyclose(tp); /* ??? */ - tp->t_state = 0; -} - - -/* - * Open a zs serial port. This interface may not be used to open - * the keyboard and mouse ports. (XXX) - */ -int -zsopen(dev, flags, mode, p) - dev_t dev; - int flags; - int mode; - struct proc *p; -{ - register struct tty *tp; - register struct zs_chanstate *cs; - struct zsinfo *zi; - int unit = minor(dev), zs = unit >> 1, error, s; - -#ifdef DEBUG - mon_printf("zs_open to channel at %x\n",cs->cs_zc); -#endif - if (zs >= zscd.cd_ndevs || (zi = zscd.cd_devs[zs]) == NULL || - unit == ZS_KBD || unit == ZS_MOUSE) - return (ENXIO); - cs = &zi->zi_cs[unit & 1]; - tp = cs->cs_ttyp; - s = spltty(); - if ((tp->t_state & TS_ISOPEN) == 0) { - ttychars(tp); - if (tp->t_ispeed == 0) { - tp->t_iflag = TTYDEF_IFLAG; - tp->t_oflag = TTYDEF_OFLAG; - tp->t_cflag = TTYDEF_CFLAG; - tp->t_lflag = TTYDEF_LFLAG; - tp->t_ispeed = tp->t_ospeed = cs->cs_speed; - } - (void) zsparam(tp, &tp->t_termios); - ttsetwater(tp); - } else if (tp->t_state & TS_XCLUDE && p->p_ucred->cr_uid != 0) { - splx(s); - return (EBUSY); - } - error = 0; -#ifdef DEBUG - mon_printf("wait for carrier...\n"); -#endif - for (;;) { - register int rr0; - - /* loop, turning on the device, until carrier present */ - zs_modem(cs, 1); - /* May never get status intr if carrier already on. -gwr */ - rr0 = cs->cs_zc->zc_csr; - ZS_DELAY(); - if (rr0 & ZSRR0_DCD) - tp->t_state |= TS_CARR_ON; - if (cs->cs_softcar) - tp->t_state |= TS_CARR_ON; - if (flags & O_NONBLOCK || tp->t_cflag & CLOCAL || - tp->t_state & TS_CARR_ON) - break; - tp->t_state |= TS_WOPEN; - if (error = ttysleep(tp, (caddr_t)&tp->t_rawq, TTIPRI | PCATCH, - ttopen, 0)) { - if (!(tp->t_state & TS_ISOPEN)) { - zs_modem(cs, 0); - tp->t_state &= ~TS_WOPEN; - ttwakeup(tp); - } - splx(s); - return error; - } - } -#ifdef DEBUG - mon_printf("...carrier %s\n", - (tp->t_state & TS_CARR_ON) ? "on" : "off"); -#endif - splx(s); - if (error == 0) - error = linesw[tp->t_line].l_open(dev, tp); - if (error) - zs_modem(cs, 0); - return (error); -} - -/* - * Close a zs serial port. - */ -int -zsclose(dev, flags, mode, p) - dev_t dev; - int flags; - int mode; - struct proc *p; -{ - register struct zs_chanstate *cs; - register struct tty *tp; - struct zsinfo *zi; - int unit = minor(dev), s; - -#ifdef DEBUG - mon_printf("zs_close\n"); -#endif - zi = zscd.cd_devs[unit >> 1]; - cs = &zi->zi_cs[unit & 1]; - tp = cs->cs_ttyp; - linesw[tp->t_line].l_close(tp, flags); -/* printf("My zsclose tty is %x, ",tp); - printf("Stored values are: iflag %x, oflag %x, cflag %x, ospeed %x\n",tp->t_iflag, tp->t_oflag,\ - tp->t_cflag, tp->t_ospeed); */ - if (tp->t_cflag & HUPCL || tp->t_state & TS_WOPEN || - (tp->t_state & TS_ISOPEN) == 0) { - zs_modem(cs, 0); - /* hold low for 1 second */ - (void) tsleep((caddr_t)cs, TTIPRI, ttclos, hz); - } - if (cs->cs_creg[5] & ZSWR5_BREAK) - { - s = splzs(); - cs->cs_preg[5] &= ~ZSWR5_BREAK; - cs->cs_creg[5] &= ~ZSWR5_BREAK; - ZS_WRITE(cs->cs_zc, 5, cs->cs_creg[5]); - splx(s); - } - ttyclose(tp); -#ifdef KGDB - /* Reset the speed if we're doing kgdb on this port */ - if (cs->cs_kgdb) { - tp->t_ispeed = tp->t_ospeed = kgdb_rate; - (void) zsparam(tp, &tp->t_termios); - } -#endif - return (0); -} - -/* - * Read/write zs serial port. - */ -int -zsread(dev, uio, flags) - dev_t dev; - struct uio *uio; - int flags; -{ - register struct tty *tp = zs_tty[minor(dev)]; - - return (linesw[tp->t_line].l_read(tp, uio, flags)); -} - -int -zswrite(dev, uio, flags) - dev_t dev; - struct uio *uio; - int flags; -{ - register struct tty *tp = zs_tty[minor(dev)]; -#ifdef DEBUG - printf("Writing\n"); -#endif - - return (linesw[tp->t_line].l_write(tp, uio, flags)); -} - -/* - * ZS hardware interrupt. Scan all ZS channels. NB: we know here that - * channels are kept in (A,B) pairs. - * - * Do just a little, then get out; set a software interrupt if more - * work is needed. - * - * We deliberately ignore the vectoring Zilog gives us, and match up - * only the number of `reset interrupt under service' operations, not - * the order. - */ -/* ARGSUSED */ -int -zshard(intrarg) - int intrarg; -{ - register struct zs_chanstate *a; -#define b (a + 1) - register volatile struct zschan *zc; - register int rr3, intflags = 0, i; - register long v; - static long zsrint(struct zs_chanstate *, volatile struct zschan *); - static long zsxint(struct zs_chanstate *, volatile struct zschan *); - static long zssint(struct zs_chanstate *, volatile struct zschan *); - - if (!sccA) return; - if (zslist == 0) return; - - for (a = zslist; a != NULL; a = b->cs_next) { - rr3 = ZS_READ(a->cs_zc, 3); - - /* XXX - This should loop to empty the on-chip fifo. */ - if (rr3 & (ZSRR3_IP_A_RX|ZSRR3_IP_A_TX|ZSRR3_IP_A_STAT)) { - intflags |= 2; - zc = a->cs_zc; -#ifdef DEBUG - printf("z %x ",ZS_READ(a->cs_zc,0)); -#endif - i = a->cs_rbput; - if (rr3 & ZSRR3_IP_A_RX && (v = zsrint(a, zc)) != 0) { - a->cs_rbuf[i++ & ZLRB_RING_MASK] = v; - intflags |= 1; - while (ZS_READ(a->cs_zc, 0) & ZSRR0_RX_READY) - if ((v = zsrint(a, zc)) != 0) - a->cs_rbuf[i++ & ZLRB_RING_MASK] = v; - } - if (rr3 & ZSRR3_IP_A_TX && (v = zsxint(a, zc)) != 0) { - a->cs_rbuf[i++ & ZLRB_RING_MASK] = v; - intflags |= 1; - } - if (rr3 & ZSRR3_IP_A_STAT && (v = zssint(a, zc)) != 0) { - a->cs_rbuf[i++ & ZLRB_RING_MASK] = v; - intflags |= 1; - } - a->cs_rbput = i; - } - - /* XXX - This should loop to empty the on-chip fifo. */ - if (rr3 & (ZSRR3_IP_B_RX|ZSRR3_IP_B_TX|ZSRR3_IP_B_STAT)) { - intflags |= 2; - zc = b->cs_zc; -#ifdef DEBUG - printf("zb %x ",ZS_READ(b->cs_zc,0)); -#endif - i = b->cs_rbput; - if (rr3 & ZSRR3_IP_B_RX && (v = zsrint(b, zc)) != 0) { - b->cs_rbuf[i++ & ZLRB_RING_MASK] = v; - intflags |= 1; - while (ZS_READ(b->cs_zc, 0) & ZSRR0_RX_READY) - if ((v = zsrint(b, zc)) != 0) - b->cs_rbuf[i++ & ZLRB_RING_MASK] = v; - } - if (rr3 & ZSRR3_IP_B_TX && (v = zsxint(b, zc)) != 0) { - b->cs_rbuf[i++ & ZLRB_RING_MASK] = v; - intflags |= 1; - } - if (rr3 & ZSRR3_IP_B_STAT && (v = zssint(b, zc)) != 0) { - b->cs_rbuf[i++ & ZLRB_RING_MASK] = v; - intflags |= 1; - } - b->cs_rbput = i; - } - } -#undef b - if (intflags & 1) { - if (zssoftpending == 0) { - /* We are at splzs here, so no need to lock. */ - zssoftpending = ZSSOFT_PRI; - isr_soft_request(ZSSOFT_PRI); - } - } - return (intflags & 2); -} - -static long -zsrint(cs, zc) - register struct zs_chanstate *cs; - register volatile struct zschan *zc; -{ - register long c; - - c = zc->zc_data; - ZS_DELAY(); -#ifdef DEBUG - printf("r%x ",c); -#endif - - if (cs->cs_conk) { - register struct conk_state *conk = &zsconk_state; - -#define KBD_RESET 0 -#define KBD_L1 4 -#define KBD_UP 2 -#define KBD_A 8 - /* - * Check here for console abort function, so that we - * can abort even when interrupts are locking up the - * machine. - */ - if (c == KBD_RESET) { - conk->conk_id = 1; /* ignore next byte */ - conk->conk_l1 = 0; - } else if (conk->conk_id) - conk->conk_id = 0; /* stop ignoring bytes */ - else if (c == KBD_L1) - conk->conk_l1 = 1; /* L1 went down */ - else if (c == (KBD_L1|KBD_UP)) - conk->conk_l1 = 0; /* L1 went up */ - else if (c == KBD_A && conk->conk_l1) { - zsabort(); - /* Debugger done. Send L1-up in case X is running. */ - conk->conk_l1 = 0; - c = (KBD_L1|KBD_UP); - } - } -#ifdef KGDB - /*if (c == FRAME_START && cs->cs_kgdb && - (cs->cs_ttyp->t_state & TS_ISOPEN) == 0) { - zskgdb(cs->cs_unit); - c = 0; - goto clearit; - } */ -#endif - /* compose receive character and status */ - c <<= 8; - c |= ZS_READ(zc, 1); - c = ZRING_MAKE(ZRING_RINT, c); - -clearit: - /* clear receive error & interrupt condition */ - zc->zc_csr = ZSWR0_RESET_ERRORS; - ZS_DELAY(); - zc->zc_csr = ZSWR0_CLR_INTR; - ZS_DELAY(); - return (c); -} - -static long -zsxint(cs, zc) - register struct zs_chanstate *cs; - register volatile struct zschan *zc; -{ - register int i = cs->cs_tbc; - - if (i == 0) { - zc->zc_csr = ZSWR0_RESET_TXINT; - ZS_DELAY(); - zc->zc_csr = ZSWR0_CLR_INTR; - ZS_DELAY(); - if (cs->cs_tiu !=0) { - /* We only want to post a transmitter's empty if we've - actually put something in it. We also get here after zscnputc - outputs a byte, but we shouldn't post to the ring */ - cs->cs_tiu = 0; -#ifdef DEBUG - printf("Td "); -#endif - return (ZRING_MAKE(ZRING_XINT, 0)); - } else {return (0);} - } -#ifdef DEBUGTX - printf(" t%x ",(u_char)*cs->cs_tba); -#endif - if (cs->cs_holdSFC) { - cs->cs_tiu = 0; /* transmitter is no longer in use */ - zc->zc_csr = ZSWR0_RESET_TXINT; - ZS_DELAY(); - zc->zc_csr = ZSWR0_CLR_INTR; - ZS_DELAY(); - return (0); - } - cs->cs_tbc = i - 1; - zc->zc_data = *cs->cs_tba++; - ZS_DELAY(); - zc->zc_csr = ZSWR0_CLR_INTR; - ZS_DELAY(); - return (0); -} - -static long -zssint(cs, zc) - register struct zs_chanstate *cs; - register volatile struct zschan *zc; -{ - register int rr0; - - rr0 = zc->zc_csr; - ZS_DELAY(); - rr0 = zc->zc_csr; - ZS_DELAY(); - zc->zc_csr = ZSWR0_RESET_STATUS; - ZS_DELAY(); - zc->zc_csr = ZSWR0_CLR_INTR; - ZS_DELAY(); - /* - * The chip's hardware flow control is, as noted in zsreg.h, - * busted---if the DCD line goes low the chip shuts off the - * receiver (!). If we want hardware CTS flow control but do - * not have it, and carrier is now on, turn HFC on; if we have - * HFC now but carrier has gone low, turn it off. - */ - /* if (rr0 & ZSRR0_DCD) { - if (cs->cs_ttyp->t_cflag & CCTS_OFLOW && - (cs->cs_creg[3] & ZSWR3_HFC) == 0) { - cs->cs_creg[3] |= ZSWR3_HFC; - ZS_WRITE(zc, 3, cs->cs_creg[3]); - } - } else { - if (cs->cs_creg[3] & ZSWR3_HFC) { - cs->cs_creg[3] &= ~ZSWR3_HFC; - ZS_WRITE(zc, 3, cs->cs_creg[3]); - } - } */ - if (cs->cs_SFC) { - register u_char nhold = \ - (((rr0 ^ cs->cs_rr0_mask) & ZS_HFC)==ZS_HFC) ? 1 : 0; - if (nhold != cs->cs_holdSFC) { /* our holding state has changed */ - cs->cs_holdSFC = nhold; - if ((nhold == 0) && (cs->cs_tbc != 0)) { - /* a character is waiting; send it */ - zs_restart(cs, zc); - } -#ifdef DEBUG - printf(" ntd CTS change, hl %d ",nhold); -#endif - } - } - if ((rr0 & ZSRR0_BREAK) && cs->cs_brkabort) { - /* Wait for end of break to avoid PROM abort. */ - do { - rr0 = zc->zc_csr; - ZS_DELAY(); - } while (rr0 & ZSRR0_BREAK); - zsabort(); - return (0); - } -#ifdef DEBUG - printf(" s%x ",rr0); -#endif - return (ZRING_MAKE(ZRING_SINT, rr0)); -} - -static void -zs_restart(cs, zc) - register struct zs_chanstate *cs; - register volatile struct zschan *zc; -{ - cs->cs_tbc -= 1; - zc->zc_data = *cs->cs_tba++; - ZS_DELAY(); - cs->cs_tiu = 1; -#ifdef DEBUG - printf(" restart tx "); -#endif -} - -zsabort() -{ -#ifdef DDB - Debugger(); -#endif -} - -#ifdef KGDB -/* - * KGDB framing character received: enter kernel debugger. This probably - * should time out after a few seconds to avoid hanging on spurious input. - */ -zskgdb(unit) - int unit; -{ - - printf("zs%d%c: kgdb interrupt\n", unit >> 1, (unit & 1) + 'a'); - kgdb_connect(1); -} -#endif - -/* - * Print out a ring or fifo overrun error message. - */ -static void -zsoverrun(unit, ptime, what) - int unit; - long *ptime; - char *what; -{ - - if (*ptime != time.tv_sec) { - *ptime = time.tv_sec; - log(LOG_WARNING, "zs%d%c: %s overrun\n", unit >> 1, - (unit & 1) + 'a', what); - } -} - -/* - * ZS software interrupt. Scan all channels for deferred interrupts. - */ -int -zssoft(arg) - int arg; -{ - register struct zs_chanstate *cs; - register volatile struct zschan *zc; - register struct linesw *line; - register struct tty *tp; - register int get, n, c, cc, unit, s; - - /* This is not the only ISR on this IPL. */ - if (zssoftpending == 0) - return (0); -#ifdef DEBUG - printf("zs"); -#endif - - /* - * The soft intr. bit will be set by zshard only if - * the variable zssoftpending is zero. The order of - * these next two statements prevents our clearing - * the soft intr bit just after zshard has set it. - */ - isr_soft_clear(ZSSOFT_PRI); - zssoftpending = 0; /* Now zshard may set it again. */ - - for (cs = zslist; cs != NULL; cs = cs->cs_next) { - get = cs->cs_rbget; -again: - n = cs->cs_rbput; /* atomic */ - if (get == n) /* nothing more on this line */ - continue; - unit = cs->cs_unit; /* set up to handle interrupts */ - zc = cs->cs_zc; - tp = cs->cs_ttyp; - if (tp != NULL) line = &linesw[tp->t_line]; - /* - * Compute the number of interrupts in the receive ring. - * If the count is overlarge, we lost some events, and - * must advance to the first valid one. It may get - * overwritten if more data are arriving, but this is - * too expensive to check and gains nothing (we already - * lost out; all we can do at this point is trade one - * kind of loss for another). - */ - n -= get; - if (n > ZLRB_RING_SIZE) { - zsoverrun(unit, &cs->cs_rotime, "ring"); - get += n - ZLRB_RING_SIZE; - n = ZLRB_RING_SIZE; - } - while (--n >= 0) { - /* race to keep ahead of incoming interrupts */ - c = cs->cs_rbuf[get++ & ZLRB_RING_MASK]; - switch (ZRING_TYPE(c)) { - - case ZRING_RINT: - c = ZRING_VALUE(c); - if (c & ZSRR1_DO) - zsoverrun(unit, &cs->cs_fotime, "fifo"); - cc = c >> 8; - if (c & ZSRR1_FE) - cc |= TTY_FE; - if (c & ZSRR1_PE) - cc |= TTY_PE; - /* - * this should be done through - * bstreams XXX gag choke - */ - if (tp != NULL) { - line->l_rint(cc, tp); - } else {printf("tp == NULL!");} - break; - - case ZRING_XINT: - /* - * Transmit done: change registers and resume, - * or clear BUSY. - */ - if (cs->cs_heldchange) { - s = splzs(); - c = zc->zc_csr; - ZS_DELAY(); - if ((c & ZSRR0_DCD) == 0) - cs->cs_preg[3] &= ~ZSWR3_HFC; - bcopy((caddr_t)cs->cs_preg, - (caddr_t)cs->cs_creg, 16); - zs_loadchannelregs(zc, cs->cs_creg); - splx(s); - cs->cs_heldchange = 0; - if (cs->cs_heldtbc && - (tp->t_state & TS_TTSTOP) == 0) { - cs->cs_tbc = cs->cs_heldtbc - 1; - zc->zc_data = *cs->cs_tba++; - ZS_DELAY(); - goto again; - } - } - if (tp != NULL) { - tp->t_state &= ~TS_BUSY; - if (tp->t_state & TS_FLUSH) - tp->t_state &= ~TS_FLUSH; - else - ndflush(&tp->t_outq, cs->cs_tba - - (caddr_t) tp->t_outq.c_cf); - line->l_start(tp); - } else {printf("Trans. tp == NULL!");} - break; - - case ZRING_SINT: - /* - * Status line change. HFC bit is run in - * hardware interrupt, to avoid locking - * at splzs here. - */ - c = ZRING_VALUE(c); - if ((c ^ cs->cs_rr0) & ZSRR0_DCD) { - cc = (c & ZSRR0_DCD) != 0; - if (tp != NULL) if (line->l_modem(tp, cc) == 0) - zs_modem(cs, cc); - } - cs->cs_rr0 = c; - break; - - default: - log(LOG_ERR, "zs%d%c: bad ZRING_TYPE (%x)\n", - unit >> 1, (unit & 1) + 'a', c); - break; - } - } - cs->cs_rbget = get; - goto again; - } - return (1); -} - -int -zsioctl(dev, cmd, data, flag, p) - dev_t dev; - u_long cmd; - caddr_t data; - int flag; - struct proc *p; -{ - int unit = minor(dev); - struct zsinfo *zi = zscd.cd_devs[unit >> 1]; - register struct zs_chanstate *cs = &zi->zi_cs[unit & 1]; - register struct tty *tp = cs->cs_ttyp; - register int error, s; - -#ifdef DEBUG - printf("My tty in zsioctl is %x, my command is %x, and my zc is %x\n",tp,cmd,cs->cs_zc); -#endif - - error = linesw[tp->t_line].l_ioctl(tp, cmd, data, flag, p); - if (error >= 0) - return (error); - error = ttioctl(tp, cmd, data, flag, p); - if (error >= 0) - return (error); - - switch (cmd) { - - case TIOCSBRK: - s = splzs(); - cs->cs_preg[5] |= ZSWR5_BREAK; - cs->cs_creg[5] |= ZSWR5_BREAK; - ZS_WRITE(cs->cs_zc, 5, cs->cs_creg[5]); - splx(s); - break; - - case TIOCCBRK: - s = splzs(); - cs->cs_preg[5] &= ~ZSWR5_BREAK; - cs->cs_creg[5] &= ~ZSWR5_BREAK; - ZS_WRITE(cs->cs_zc, 5, cs->cs_creg[5]); - splx(s); - break; - - case TIOCGFLAGS: { - int bits = 0; - - if (cs->cs_softcar) - bits |= TIOCFLAG_SOFTCAR; - if (cs->cs_creg[15] & ZSWR15_DCD_IE) - bits |= TIOCFLAG_CLOCAL; - if (cs->cs_creg[3] & ZSWR3_HFC) - bits |= TIOCFLAG_CRTSCTS; - *(int *)data = bits; - break; - } - - case TIOCSFLAGS: { - int userbits, driverbits = 0; - - error = suser(p->p_ucred, &p->p_acflag); - if (error != 0) - return (EPERM); - - userbits = *(int *)data; - - /* - * can have `local' or `softcar', and `rtscts' or `mdmbuf' - * defaulting to software flow control. - */ - if (userbits & TIOCFLAG_SOFTCAR && userbits & TIOCFLAG_CLOCAL) - return(EINVAL); - if (userbits & TIOCFLAG_MDMBUF) /* don't support this (yet?) */ - return(ENXIO); - - s = splzs(); - if ((userbits & TIOCFLAG_SOFTCAR) || - (cs->cs_zc == zs_conschan)) - { - cs->cs_softcar = 1; /* turn on softcar */ - cs->cs_preg[15] &= ~ZSWR15_DCD_IE; /* turn off dcd */ - cs->cs_creg[15] &= ~ZSWR15_DCD_IE; - ZS_WRITE(cs->cs_zc, 15, cs->cs_creg[15]); - } else if (userbits & TIOCFLAG_CLOCAL) { - cs->cs_softcar = 0; /* turn off softcar */ - cs->cs_preg[15] |= ZSWR15_DCD_IE; /* turn on dcd */ - cs->cs_creg[15] |= ZSWR15_DCD_IE; - ZS_WRITE(cs->cs_zc, 15, cs->cs_creg[15]); - tp->t_termios.c_cflag |= CLOCAL; - } - if (userbits & TIOCFLAG_CRTSCTS) { - cs->cs_preg[15] |= ZSWR15_CTS_IE; - cs->cs_creg[15] |= ZSWR15_CTS_IE; - ZS_WRITE(cs->cs_zc, 15, cs->cs_creg[15]); - cs->cs_preg[3] |= ZSWR3_HFC; - cs->cs_creg[3] |= ZSWR3_HFC; - ZS_WRITE(cs->cs_zc, 3, cs->cs_creg[3]); - tp->t_termios.c_cflag |= CRTSCTS; - } else { - /* no mdmbuf, so we must want software flow control */ - cs->cs_preg[15] &= ~ZSWR15_CTS_IE; - cs->cs_creg[15] &= ~ZSWR15_CTS_IE; - ZS_WRITE(cs->cs_zc, 15, cs->cs_creg[15]); - cs->cs_preg[3] &= ~ZSWR3_HFC; - cs->cs_creg[3] &= ~ZSWR3_HFC; - ZS_WRITE(cs->cs_zc, 3, cs->cs_creg[3]); - tp->t_termios.c_cflag &= ~CRTSCTS; - } - splx(s); - break; - } - - case TIOCSDTR: - zs_modem(cs, 1); - break; - case TIOCCDTR: - zs_modem(cs, 0); - break; - - case TIOCMSET: - case TIOCMBIS: - case TIOCMBIC: - case TIOCMGET: - default: - return (ENOTTY); - } - return (0); -} - -/* - * Start or restart transmission. - */ -static void -zsstart(tp) - register struct tty *tp; -{ - register struct zs_chanstate *cs; - register int s, nch; - int unit = minor(tp->t_dev); - struct zsinfo *zi = zscd.cd_devs[unit >> 1]; - - cs = &zi->zi_cs[unit & 1]; - s = spltty(); - - /* - * If currently active or delaying, no need to do anything. - */ - if (tp->t_state & (TS_TIMEOUT | TS_BUSY | TS_TTSTOP)) - goto out; - - /* - * If there are sleepers, and output has drained below low - * water mark, awaken. - */ - if (tp->t_outq.c_cc <= tp->t_lowat) { - if (tp->t_state & TS_ASLEEP) { - tp->t_state &= ~TS_ASLEEP; - wakeup((caddr_t)&tp->t_outq); - } - selwakeup(&tp->t_wsel); - } -#ifdef DEBUG - printf("stat %x ",ZS_READ(cs->cs_zc,0)); -#endif - - nch = ndqb(&tp->t_outq, 0); /* XXX */ - if (nch) { - register char *p = tp->t_outq.c_cf; - - /* mark busy, enable tx done interrupts, & send first byte */ - tp->t_state |= TS_BUSY; -#ifdef DEBUG - printf(" out w/ %x ",(u_char)*p); -#endif - (void) splzs(); - cs->cs_preg[1] |= ZSWR1_TIE; - cs->cs_creg[1] |= ZSWR1_TIE; - ZS_WRITE(cs->cs_zc, 1, cs->cs_creg[1]); - cs->cs_tba = p; - cs->cs_tbc = nch; - if ((cs->cs_SFC == 0) || (cs->cs_holdSFC == 0)) - zs_restart(cs, cs->cs_zc); - } else { - /* - * Nothing to send, turn off transmit done interrupts. - * This is useful if something is doing polled output. - */ -#ifdef DEBUG - printf(" off "); -#endif - (void) splzs(); - cs->cs_preg[1] &= ~ZSWR1_TIE; - cs->cs_creg[1] &= ~ZSWR1_TIE; - ZS_WRITE(cs->cs_zc, 1, cs->cs_creg[1]); - } -out: - splx(s); -} - -/* - * Stop output, e.g., for ^S or output flush. - */ -void -zsstop(tp, flag) - register struct tty *tp; - int flag; -{ - register struct zs_chanstate *cs; - register int s, unit = minor(tp->t_dev); - struct zsinfo *zi = zscd.cd_devs[unit >> 1]; - - cs = &zi->zi_cs[unit & 1]; - s = splzs(); - if (tp->t_state & TS_BUSY) { - /* - * Device is transmitting; must stop it. - */ - cs->cs_tbc = 0; - if ((tp->t_state & TS_TTSTOP) == 0) - tp->t_state |= TS_FLUSH; - } - splx(s); -} - -/* - * Set ZS tty parameters from termios. - */ -static int -zsparam(tp, t) - register struct tty *tp; - register struct termios *t; -{ - int unit = minor(tp->t_dev); - struct zsinfo *zi = zscd.cd_devs[unit >> 1]; - register struct zs_chanstate *cs = &zi->zi_cs[unit & 1]; - register int tmp, tmp5, cflag, s, tmpx; - - /* - * Because PCLK is only run at 4.9 MHz, the fastest we - * can go is 51200 baud (this corresponds to TC=1). - * This is somewhat unfortunate as there is no real - * reason we should not be able to handle higher rates. - */ - tmp = t->c_ospeed; - if (tmp < 0 || (t->c_ispeed && t->c_ispeed != tmp)) - return (EINVAL); - if (tmp == 0) { - /* stty 0 => drop DTR and RTS */ - zs_modem(cs, 0); - return (0); - } - tmp = BPS_TO_TCONST(PCLK , tmp); - if (tmp < 0) - return (EINVAL); - - cflag = t->c_cflag; - tp->t_ispeed = tp->t_ospeed = TCONST_TO_BPS(PCLK , tmp); - tp->t_cflag = cflag; - - /* - * Block interrupts so that state will not - * be altered until we are done setting it up. - */ - s = splzs(); - bcopy(zs_init_reg, cs->cs_preg, 16); - cs->cs_preg[12] = tmp & 255; - cs->cs_preg[13] = tmp >> 8; - cs->cs_preg[1] |= ZSWR1_RIE | ZSWR1_TIE | ZSWR1_SIE; - cs->cs_preg[9] |= ZSWR9_MASTER_IE; - switch (cflag & CSIZE) { - case CS5: - tmp = ZSWR3_RX_5; - tmp5 = ZSWR5_TX_5; - break; - case CS6: - tmp = ZSWR3_RX_6; - tmp5 = ZSWR5_TX_6; - break; - case CS7: - tmp = ZSWR3_RX_7; - tmp5 = ZSWR5_TX_7; - break; - case CS8: - default: - tmp = ZSWR3_RX_8; - tmp5 = ZSWR5_TX_8; - break; - } - - /* - * Output hardware flow control on the chip is horrendous: if - * carrier detect drops, the receiver is disabled. Hence we - * can only do this when the carrier is on. - */ - tmp |= ZSWR3_RX_ENABLE; - if (cflag & CCTS_OFLOW) { - if (1) { - cs->cs_SFC = 1; - cs->cs_holdSFC = (((cs->cs_zc->zc_csr ^ cs->cs_rr0_mask) & ZS_HFC)==ZS_HFC) ? 1 : 0; - } else { - if (cs->cs_zc->zc_csr & ZSRR0_DCD) - tmp |= ZSWR3_HFC; - ZS_DELAY(); - } - } else { - /* (cs_SFC !=0) && (cs_holdSFC !=0) */ - tmpx = (cs->cs_SFC ? cs->cs_holdSFC : 0); - cs->cs_SFC = 0; - cs->cs_holdSFC = 0; - if (tmpx) - /* we were waiting because of SFC, but now we don't */ - zs_restart(cs, cs->cs_zc); - } - - cs->cs_preg[3] = tmp; - cs->cs_preg[5] = tmp5 | ZSWR5_TX_ENABLE | ZSWR5_DTR | ZSWR5_RTS;; - - tmp = ZSWR4_CLK_X16 | (cflag & CSTOPB ? ZSWR4_TWOSB : ZSWR4_ONESB); - if ((cflag & PARODD) == 0) - tmp |= ZSWR4_EVENP; - if (cflag & PARENB) - tmp |= ZSWR4_PARENB; - cs->cs_preg[4] = tmp; - - /* - * If nothing is being transmitted, set up new current values, - * else mark them as pending. - */ - if (cs->cs_heldchange == 0) { - if (cs->cs_ttyp->t_state & TS_BUSY) { - cs->cs_heldtbc = cs->cs_tbc; - cs->cs_tbc = 0; - cs->cs_heldchange = 1; - } else { - bcopy((caddr_t)cs->cs_preg, (caddr_t)cs->cs_creg, 16); - zs_loadchannelregs(cs->cs_zc, cs->cs_creg); - } - } - splx(s); -#ifdef DEBUG -printf("My zsparam tty is %x, my termios is %x, iflag %x, oflag %x, cflag %x\n", - tp,t, t->c_iflag, t->c_oflag, t->c_cflag); -printf("Stored values are: iflag %x, oflag %x, cflag %x, ospeed %x\n", - tp->t_iflag, tp->t_oflag, tp->t_cflag, tp->t_ospeed); -#endif - return (0); -} - -/* - * Raise or lower modem control (DTR/RTS) signals. If a character is - * in transmission, the change is deferred. - */ -static void -zs_modem(cs, onoff) - struct zs_chanstate *cs; - int onoff; -{ - int s, bis, and; - - if (onoff) { - bis = ZSWR5_DTR | ZSWR5_RTS; - and = ~0; - } else { - bis = 0; - and = ~(ZSWR5_DTR | ZSWR5_RTS); - } - s = splzs(); - cs->cs_preg[5] = (cs->cs_preg[5] | bis) & and; - if (cs->cs_heldchange == 0) { - if (cs->cs_ttyp->t_state & TS_BUSY) { - cs->cs_heldtbc = cs->cs_tbc; - cs->cs_tbc = 0; - cs->cs_heldchange = 1; - } else { - cs->cs_creg[5] = (cs->cs_creg[5] | bis) & and; - ZS_WRITE(cs->cs_zc, 5, cs->cs_creg[5]); - } - } - splx(s); -} - -/* - * Write the given register set to the given zs channel in the proper order. - * The channel must not be transmitting at the time. The receiver will - * be disabled for the time it takes to write all the registers. - */ -static void -zs_loadchannelregs(zc, reg) - volatile struct zschan *zc; - u_char *reg; -{ - int i; - - zc->zc_csr = ZSM_RESET_ERR; /* reset error condition */ - ZS_DELAY(); - -#if 1 /* XXX - Is this really a good idea? -gwr */ - i = zc->zc_data; /* drain fifo */ - ZS_DELAY(); - i = zc->zc_data; - ZS_DELAY(); - i = zc->zc_data; - ZS_DELAY(); -#endif - - /* baud clock divisor, stop bits, parity */ - ZS_WRITE(zc, 4, reg[4]); - - /* misc. TX/RX control bits */ - ZS_WRITE(zc, 10, reg[10]); - - /* char size, enable (RX/TX) */ - ZS_WRITE(zc, 3, reg[3] & ~ZSWR3_RX_ENABLE); - ZS_WRITE(zc, 5, reg[5] & ~ZSWR5_TX_ENABLE); - - /* interrupt enables: TX, TX, STATUS */ - ZS_WRITE(zc, 1, reg[1]); - - /* interrupt vector */ - ZS_WRITE(zc, 2, reg[2]); - - /* master interrupt control */ - ZS_WRITE(zc, 9, reg[9]); - - /* clock mode control */ - ZS_WRITE(zc, 11, reg[11]); - - /* baud rate (lo/hi) */ - ZS_WRITE(zc, 12, reg[12]); - ZS_WRITE(zc, 13, reg[13]); - - /* Misc. control bits */ - ZS_WRITE(zc, 14, reg[14]); - - /* which lines cause status interrupts */ - ZS_WRITE(zc, 15, reg[15]| 1); - ZS_WRITE(zc, 7, 0); - ZS_WRITE(zc, 15, reg[15]); - - /* char size, enable (RX/TX)*/ - ZS_WRITE(zc, 3, reg[3]); - ZS_WRITE(zc, 5, reg[5]); -#ifdef DEBUG2 - printf("Params %x %x %x %x %x %x %x %x %x %x %x %x %x\n", - reg[0], reg[1], reg[2], reg[3], reg[4], reg[5], reg[9], - reg[10], reg[11], reg[12], reg[13], reg[14], reg[15]); -#endif -} - -static u_char -zs_read(zc, reg) - volatile struct zschan *zc; - u_char reg; -{ - u_char val; - - zc->zc_csr = reg; - ZS_DELAY(); - val = zc->zc_csr; - ZS_DELAY(); - return val; -} - -static u_char -zs_write(zc, reg, val) - volatile struct zschan *zc; - u_char reg, val; -{ - zc->zc_csr = reg; - ZS_DELAY(); - zc->zc_csr = val; - ZS_DELAY(); - return val; -} - -#ifdef KGDB -/* - * Get a character from the given kgdb channel. Called at splhigh(). - * XXX - Add delays, or combine with zscngetc()... - */ -static int -zs_kgdb_getc(arg) - void *arg; -{ - register volatile struct zschan *zc = (volatile struct zschan *)arg; - register int c, rr0; - - do { - rr0 = zc->zc_csr; - ZS_DELAY(); - } while ((rr0 & ZSRR0_RX_READY) == 0); - c = zc->zc_data; - ZS_DELAY(); - return (c); -} - -/* - * Put a character to the given kgdb channel. Called at splhigh(). - */ -static void -zs_kgdb_putc(arg, c) - void *arg; - int c; -{ - register volatile struct zschan *zc = (volatile struct zschan *)arg; - register int c, rr0; - - do { - rr0 = zc->zc_csr; - ZS_DELAY(); - } while ((rr0 & ZSRR0_TX_READY) == 0); - zc->zc_data = c; - ZS_DELAY(); -} - -/* - * Set up for kgdb; called at boot time before configuration. - * KGDB interrupts will be enabled later when zs0 is configured. - */ -void -zs_kgdb_init() -{ - volatile struct zsdevice *addr; - volatile struct zschan *zc; - int unit, zs; - - if (major(kgdb_dev) != ZSMAJOR) - return; - unit = minor(kgdb_dev); - /* - * Unit must be 0 or 1 (zs0). - */ - if ((unsigned)unit >= ZS_KBD) { - printf("zs_kgdb_init: bad minor dev %d\n", unit); - return; - } - zs = unit >> 1; - unit &= 1; - - if (zsaddr[0] == NULL) - panic("kbdb_attach: zs0 not yet mapped"); - addr = zsaddr[0]; - - zc = (unit == 0) ? - &addr->zs_chan[ZS_CHAN_A] : - &addr->zs_chan[ZS_CHAN_B]; - zs_kgdb_savedspeed = zs_getspeed(zc); - printf("zs_kgdb_init: attaching zs%d%c at %d baud\n", - zs, unit + 'a', kgdb_rate); - zs_reset(zc, 1, kgdb_rate); - kgdb_attach(zs_kgdb_getc, zs_kgdb_putc, (void *)zc); -} -#endif /* KGDB */ - -void zsinit(void) -{ - volatile struct zschan *zc; - u_char ch; - - /* get the base address of the chip */ - zsaddr[0] = (struct zsdevice *)sccA; - zsinitted = 1; - - zc=(volatile struct zschan *)zsaddr[0]; - ch=zc->zc_csr; - ch=zc->zc_csr; -} - -static void -serinit(int running_interrupts) -{ - int bcount; - int i, s, spd, im; - - if (!sccA) - panic("sccA offset not set!\n"); - - im=mac68k_machine.serial_console & 0x03; - - /* note: the HACKed routine doesn't do a lot of the pleasantries in the - old mac routine. Oh well. This is still a hacked version */ - /* zs_reset doesn't turn on interrupts! */ - zs_reset((volatile struct zschan *)&sccA[0], - (running_interrupts && (im!=3)), serdefaultrate); - zs_reset((volatile struct zschan *)&sccA[2], - (running_interrupts && (im!=1)), serdefaultrate); - - return; -} - -/* - * Console functions. - */ -dev_t mac68k_serdev; - -sercnprobe(struct consdev * cp) -{ - extern u_long IOBase; - int maj, unit; - - for (maj = 0; maj < nchrdev; maj++) { - if (cdevsw[maj].d_open == seropen) { - break; - } - } - if (maj == nchrdev) { - /* no console entry for us */ - if (mac68k_machine.serial_boot_echo) { - /* major number doesn't really matter. */ - mac68k_serdev = makedev(maj, 0); - mac68k_set_io_offsets(IOBase); - zs_conschan = (volatile struct zschan *)ZS_CONS_B; - serinit(0); - } - return 0; - } - - cp->cn_pri = CN_NORMAL; /* Lower than CN_INTERNAL */ - if (mac68k_machine.serial_console & 0x01) { - cp->cn_pri = CN_REMOTE; /* Higher than CN_INTERNAL */ - mac68k_machine.serial_boot_echo =0; - } - - unit = (mac68k_machine.serial_console & 0x02) ? 1 : 0; - - cp->cn_dev = makedev(maj, unit); - - if (mac68k_machine.serial_boot_echo) { - /* - * at this point, we know that we don't have a serial - * console, but are doing echo - */ - mac68k_set_io_offsets(IOBase); - zs_conschan = (volatile struct zschan *)ZS_CONS_B; - serinit(0); - } - return 0; -} - -sercninit(struct consdev * cp) -{ - extern u_long IOBase; - - mac68k_set_io_offsets(IOBase); - /* - * zsinit(); This is not the right time to zsinit as - * the IO mapping will move. - */ - zscninit(cp); - serinit(0); - printf("Whee! we are the console!\n"); -} diff --git a/sys/arch/mac68k/dev/serreg.h b/sys/arch/mac68k/dev/serreg.h deleted file mode 100644 index 0bc1b912d36..00000000000 --- a/sys/arch/mac68k/dev/serreg.h +++ /dev/null @@ -1,52 +0,0 @@ -/* $NetBSD: serreg.h,v 1.9 1995/04/21 02:48:09 briggs Exp $ */ - -/* - * Copyright (C) 1993 Allen K. Briggs, Chris P. Caputo, - * Michael L. Finch, Bradley A. Grantham, and - * Lawrence A. Kesteloot - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the Alice Group. - * 4. The names of the Alice Group or any of its members may not be used - * to endorse or promote products derived from this software without - * specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE ALICE GROUP ``AS IS'' AND ANY EXPRESS OR - * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES - * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. - * IN NO EVENT SHALL THE ALICE GROUP BE LIABLE FOR ANY DIRECT, INDIRECT, - * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT - * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, - * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY - * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT - * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE - * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. - * - * Mac II serial device interface - * - * Information used in this source was gleaned from low-memory - * global variables in MacOS and the Advanced Micro Devices - * 1992 Data Book/Handbook. - */ - -/* Gleaned from MacOS */ -extern volatile unsigned char *sccA; - -#define SERBRD(x) (mac68k_machine.sccClkConst / (x) - 2) -#define SCCCNTL(unit) (sccA[2 - ((unit) << 1)]) -#define SCCRDWR(unit) (sccA[6 - ((unit) << 1)]) - -#define SER_DOCNTL(unit, reg, val) \ - {SCCCNTL(unit) = (reg); SCCCNTL(unit) = (val);} -#define SER_STATUS(unit, reg) \ - (SCCCNTL(unit) = (reg), SCCCNTL(unit)) diff --git a/sys/arch/mac68k/dev/z8530reg.h b/sys/arch/mac68k/dev/z8530reg.h index ee44a4f78a9..4cf1554b605 100644 --- a/sys/arch/mac68k/dev/z8530reg.h +++ b/sys/arch/mac68k/dev/z8530reg.h @@ -1,4 +1,4 @@ -/* $NetBSD: z8530reg.h,v 1.1 1995/10/09 12:42:18 briggs Exp $ */ +/* $NetBSD: z8530reg.h,v 1.3 1996/05/18 18:54:23 briggs Exp $ */ /* * Copyright (c) 1992, 1993 @@ -64,38 +64,26 @@ * differently for the two channels. We can, however, ignore this much * of the time. */ -#ifndef LOCORE + +/* + * This file also includes flags for the Z85C30 and Z85230 enhanced scc. + * The CMOS 8530 includes extra SDLC functionality, and is used in a + * number of Macs (often in the Z85C80, an 85C30 combined w/ a SCSI + * controller). -wrs + */ +#if 0 /* Example only! */ +/* + * The layout of this structure is hardware-dependent! + * Define these in some machine-dependent place. + */ struct zschan { -#if (BYTE_ORDER == BIG_ENDIAN) && !defined(atari) -#ifndef mac68k - volatile u_char zc_csr; /* ctrl,status, and indirect access */ - u_char zc_xxx0; - volatile u_char zc_data; /* data */ - u_char zc_xxx1; -#else - volatile u_char zc_csr; /* ctrl,status, and indirect access */ - u_char zc_xxx0; - u_char zc_xxx1; - u_char zc_xxx2; - volatile u_char zc_data; /* data */ - u_char zc_xxx3; - u_char zc_xxx4; - u_char zc_xxx5; -#endif -#else - u_char zc_xxx0; - volatile u_char zc_csr; /* ctrl,status, and indirect access */ - u_char zc_xxx1; - volatile u_char zc_data; /* data */ -#endif + volatile u_char zc_csr; /* ctrl, status, or reg. number */ + volatile u_char zc_data; /* data or numbered register */ }; - -typedef struct zschan zschan; - struct zsdevice { struct zschan zs_chan[2]; }; -#endif +#endif /* Example only! */ /* * Some of the names in this files were chosen to make the hsis driver @@ -119,8 +107,15 @@ struct zsdevice { */ #define ZSRR_IVEC 2 /* interrupt vector (channel 0) */ #define ZSRR_IPEND 3 /* interrupt pending (ch. 0 only) */ +#define ZSRR_TXSYNC 6 /* sync transmit char (monosync mode) */ +#define ZSRR_RXSYNC 7 /* sync receive char (monosync mode) */ +#define ZSRR_SYNCLO 6 /* sync low byte (bisync mode) */ +#define ZSRR_SYNCHI 7 /* sync high byte (bisync mode) */ +#define ZSRR_SDLC_ADDR 6 /* SDLC address (SDLC mode) */ +#define ZSRR_SDLC_FLAG 7 /* SDLC flag 0x7E (SDLC mode) */ #define ZSRR_BAUDLO 12 /* baud rate generator (low half) */ #define ZSRR_BAUDHI 13 /* baud rate generator (high half) */ +#define ZSRR_ENHANCED 14 /* read address of WR7' - yes, it's not 7!*/ #define ZSWR_IVEC 2 /* interrupt vector (shared) */ #define ZSWR_TXSYNC 6 /* sync transmit char (monosync mode) */ @@ -131,6 +126,7 @@ struct zsdevice { #define ZSWR_SDLC_FLAG 7 /* SDLC flag 0x7E (SDLC mode) */ #define ZSWR_BAUDLO 12 /* baud rate generator (low half) */ #define ZSWR_BAUDHI 13 /* baud rate generator (high half) */ +#define ZSWR_ENHANCED 7 /* write address of WR7' */ /* * Registers 0 through 7 may be written with any one of the 8 command @@ -260,6 +256,21 @@ struct zsdevice { #endif /* + * Bits in Write Register 7' (ZSWR_ENHANCED above). This register is + * only available on the 85230. Dispite the fact it contains flags + * and not a single value, the register was named as it is read + * via RR14. Weird. + */ + /* 0x80 unused */ +#define ZSWR7P_EXTEND_READ 0x40 /* modify read map; make most regs readable */ +#define ZSWR7P_TX_FIFO 0x20 /* change level for Tx FIFO empty int */ +#define ZSWR7P_DTR_TIME 0x10 /* modifies deact. speed of /DTR//REQ */ +#define ZSWR7P_RX_FIFO 0x08 /* Rx FIFO int on 1/2 full? */ +#define ZSWR7P_RTS_DEACT 0x04 /* automatically deassert RTS */ +#define ZSWR7P_AUTO_EOM_RESET 0x02 /* automatically reset EMO/Tx Underrun */ +#define ZSWR7P_AUTO_TX_FLAG 0x01 /* Auto send SDLC flag at transmit start */ + +/* * Bits in Write Register 9 (`Master Interrupt Control'). Bits 7 & 6 * are taken as a unit and indicate the type of reset; 00 means no reset * (and is not defined here). @@ -267,7 +278,7 @@ struct zsdevice { #define ZSWR9_HARD_RESET 0xc0 /* force hardware reset */ #define ZSWR9_A_RESET 0x80 /* reset channel A (0) */ #define ZSWR9_B_RESET 0x40 /* reset channel B (1) */ - /* 0x20 unused */ +#define ZSWR9_SOFT_INTAC 0x20 /* Not in NMOS version */ #define ZSWR9_STATUS_HIGH 0x10 /* status in high bits of intr vec */ #define ZSWR9_MASTER_IE 0x08 /* master interrupt enable */ @@ -300,13 +311,13 @@ struct zsdevice { */ #define ZSWR11_XTAL 0x80 /* have xtal between RTxC* and SYNC* */ /* (else have TTL oscil. on RTxC*) */ -#define ZSWR11_RXCLK_RTXC 0x00 /* recv clock taken from TRxC* pin */ +#define ZSWR11_RXCLK_RTXC 0x00 /* recv clock taken from RTxC* pin */ #define ZSWR11_RXCLK_TRXC 0x20 /* recv clock taken from TRxC* pin */ #define ZSWR11_RXCLK_BAUD 0x40 /* recv clock taken from BRG */ #define ZSWR11_RXCLK_DPLL 0x60 /* recv clock taken from DPLL */ -#define ZSWR11_TXCLK_RTXC 0x00 /* xmit clock taken from TRxC* pin */ -#define ZSWR11_TXCLK_TRXC 0x08 /* xmit clock taken from RTxC* pin */ +#define ZSWR11_TXCLK_RTXC 0x00 /* xmit clock taken from RTxC* pin */ +#define ZSWR11_TXCLK_TRXC 0x08 /* xmit clock taken from TRxC* pin */ #define ZSWR11_TXCLK_BAUD 0x10 /* xmit clock taken from BRG */ #define ZSWR11_TXCLK_DPLL 0x18 /* xmit clock taken from DPLL */ @@ -367,15 +378,19 @@ struct zsdevice { * Bits in Write Register 15 (`External/Status Interrupt Control'). * Most of these cause status interrupts whenever the corresponding * bit or pin changes state (i.e., any rising or falling edge). + * + * NOTE: ZSWR15_SDLC_FIFO & ZSWR15_ENABLE_ENHANCED should not be + * set on an NMOS 8530. Also, ZSWR15_ENABLE_ENHANCED is only + * available on the 85230. */ #define ZSWR15_BREAK_IE 0x80 /* enable break/abort status int */ #define ZSWR15_TXUEOM_IE 0x40 /* enable TX underrun/EOM status int */ #define ZSWR15_CTS_IE 0x20 /* enable CTS* pin status int */ #define ZSWR15_SYNCHUNT_IE 0x10 /* enable SYNC* pin/hunt status int */ #define ZSWR15_DCD_IE 0x08 /* enable DCD* pin status int */ - /* 0x04 unused, must be zero */ +#define ZSWR15_SDLC_FIFO 0x04 /* enable SDLC FIFO enhancements */ #define ZSWR15_ZERO_COUNT_IE 0x02 /* enable BRG-counter = 0 status int */ - /* 0x01 unused, must be zero */ +#define ZSWR15_ENABLE_ENHANCED 0x01 /* enable writing WR7' at reg 7 */ /* * Bits in Read Register 0 (`Transmit/Receive Buffer Status and External diff --git a/sys/arch/mac68k/include/adbsys.h b/sys/arch/mac68k/include/adbsys.h index ecb9a549e62..31fde4f235c 100644 --- a/sys/arch/mac68k/include/adbsys.h +++ b/sys/arch/mac68k/include/adbsys.h @@ -1,4 +1,4 @@ -/* $NetBSD: adbsys.h,v 1.3 1994/12/03 23:34:28 briggs Exp $ */ +/* $NetBSD: adbsys.h,v 1.5 1996/05/05 14:34:07 briggs Exp $ */ /*- * Copyright (C) 1993, 1994 Allen K. Briggs, Chris P. Caputo, @@ -33,6 +33,8 @@ * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ +#ifndef _ADBSYS_MACHINE_ +#define _ADBSYS_MACHINE_ #include <sys/time.h> /* timeval stuff */ #include <sys/ioctl.h> /* ioctls */ @@ -92,8 +94,11 @@ typedef struct adb_dev_s{ /* Interesting handler IDs */ #define ADB_STDKBD 1 #define ADB_EXTKBD 2 +#define ADB_PBKBD 12 #define ADBMS_100DPI 1 #define ADBMS_200DPI 2 +#define ADBMS_EXTENDED 4 +#define ADBMS_USPEED 47 /* MicroSpeed mouse */ /* Get device info from ADB system */ @@ -124,3 +129,7 @@ typedef struct adb_listencmd_s{ u_char bytes[8]; /* bytes */ } adb_listencmd_t; #define ADBIOC_LISTENCMD _IOW('A', 133, adb_listencmd_t) + +void adb_init __P((void)); + +#endif /* _ADBSYS_MACHINE_ */ diff --git a/sys/arch/mac68k/include/autoconf.h b/sys/arch/mac68k/include/autoconf.h new file mode 100644 index 00000000000..fe2321c7889 --- /dev/null +++ b/sys/arch/mac68k/include/autoconf.h @@ -0,0 +1,84 @@ +/* $NetBSD: autoconf.h,v 1.2 1996/05/18 18:52:48 briggs Exp $ */ + +/* + * Copyright (c) 1994 Gordon W. Ross + * Copyright (c) 1993 Adam Glass + * All rights reserved. + * + * Redistribution and use in source and binary forms, with or without + * modification, are permitted provided that the following conditions + * are met: + * 1. Redistributions of source code must retain the above copyright + * notice, this list of conditions and the following disclaimer. + * 2. Redistributions in binary form must reproduce the above copyright + * notice, this list of conditions and the following disclaimer in the + * documentation and/or other materials provided with the distribution. + * 3. All advertising materials mentioning features or use of this software + * must display the following acknowledgement: + * This product includes software developed by Adam Glass. + * 4. The name of the Author may not be used to endorse or promote products + * derived from this software without specific prior written permission. + * + * THIS SOFTWARE IS PROVIDED BY Adam Glass ``AS IS'' AND + * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE + * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE + * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE + * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL + * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS + * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) + * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT + * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY + * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF + * SUCH DAMAGE. + */ + +#include <sys/device.h> + +/* + * Autoconfiguration information. + * From sun3 port--adapted for mac68k platform by Allen Briggs. + */ + +/* These are the "bus" types: */ +#define BUS_OBIO 0 /* On-board I/O */ +#define BUS_NUBUS 1 /* "nubus" */ + +/* + * This is the "args" parameter to the bus match/attach functions. + */ +struct confargs { + int ca_bustype; /* BUS_INTERNAL0, ... */ + int slot; +}; + +/* autoconf.c */ +void setconf __P((void)); +int bus_scan __P((struct device *, void *, void *)); +int bus_print __P((void *, char *)); +int bus_peek __P((int, vm_offset_t, int)); +char *bus_mapin __P((int, int, int)); +void configure __P((void)); + +/* machdep.c */ +void mac68k_set_io_offsets __P((vm_offset_t)); +void dumpconf __P((void)); +int badbaddr __P((register caddr_t addr)); +int badwaddr __P((register caddr_t addr)); +int badladdr __P((register caddr_t addr)); + +int mac68k_name_match __P((struct device *, void *, void *)); + +/* clock.h */ + +void enablertclock __P((void)); +void cpu_initclocks __P((void)); +void setstatclockrate __P((int)); +void disablertclock __P((void)); +u_long clkread __P((void)); +void inittodr __P((time_t)); +void resettodr __P((void)); +void mac68k_calibrate_delay __P((void)); +void startrtclock __P((void)); + +/* macrom.c */ +void mrg_init __P((void)); diff --git a/sys/arch/mac68k/include/cdefs.h b/sys/arch/mac68k/include/cdefs.h index e9324975a62..9ff33796cfd 100644 --- a/sys/arch/mac68k/include/cdefs.h +++ b/sys/arch/mac68k/include/cdefs.h @@ -1,8 +1,8 @@ -/* $NetBSD: cdefs.h,v 1.1 1995/01/19 01:42:13 jtc Exp $ */ +/* $NetBSD: cdefs.h,v 1.2 1996/05/05 06:17:34 briggs Exp $ */ -#ifndef _MACHINE_CDEFS_H_ -#define _MACHINE_CDEFS_H_ +#ifndef _CDEFS_MACHINE_ +#define _CDEFS_MACHINE_ #include <m68k/cdefs.h> -#endif +#endif /* _CDEFS_MACHINE_ */ diff --git a/sys/arch/mac68k/include/cpu.h b/sys/arch/mac68k/include/cpu.h index 6380aa61150..f0498c54ffa 100644 --- a/sys/arch/mac68k/include/cpu.h +++ b/sys/arch/mac68k/include/cpu.h @@ -1,4 +1,4 @@ -/* $NetBSD: cpu.h,v 1.26 1995/12/21 05:02:01 mycroft Exp $ */ +/* $NetBSD: cpu.h,v 1.36 1996/05/25 14:48:38 briggs Exp $ */ /* * Copyright (c) 1988 University of Utah. @@ -69,8 +69,10 @@ but there isn't time to do anything about that right now... */ -#ifndef _MACHINE_CPU_H_ -#define _MACHINE_CPU_H_ 1 +#ifndef _CPU_MACHINE_ +#define _CPU_MACHINE_ + +#include <machine/pcb.h> /* * definitions of cpu-dependent requirements @@ -79,6 +81,7 @@ #define cpu_swapin(p) /* nothing */ #define cpu_wait(p) /* nothing */ #define cpu_swapout(p) /* nothing */ +void cpu_set_kpc __P((struct proc *, void (*)(struct proc *))); /* * Arguments to hardclock, softclock and gatherstats @@ -205,8 +208,10 @@ extern unsigned char ssir; #define MACH_CLASSIIvx 0x0006 /* Similar to IIsi -- different via2 emul? */ #define MACH_CLASSLC 0x0007 /* Low-Cost/Performa/Wal-Mart Macs. */ #define MACH_CLASSPB 0x0008 /* Powerbooks. Power management. */ +#define MACH_CLASSDUO 0x0009 /* Powerbooks Duos. More integration/Docks. */ #define MACH_CLASSIIfx 0x0080 /* The IIfx is in a class by itself. */ -#define MACH_CLASSQ 0x0100 /* Centris/Quadras. */ +#define MACH_CLASSQ 0x0100 /* non-A/V Centris/Quadras. */ +#define MACH_CLASSAV 0x0101 /* A/V Centris/Quadras. */ #define MACH_68020 0 #define MACH_68030 1 @@ -267,13 +272,9 @@ extern unsigned long load_addr; /* physical memory sections */ #define ROMBASE (0x40800000) -#define ROMLEN (0x00100000) /* 1MB should be enough! */ -#define ROMMAPSIZE btoc(ROMLEN) /* 1k of page tables. */ - -/* This should not be used. Use IOBase, instead. */ -#define INTIOBASE (0x50F00000) +#define ROMLEN (0x00200000) /* 2MB should be enough! */ +#define ROMMAPSIZE btoc(ROMLEN) /* 32k of page tables. */ -#define INTIOTOP (IOBase+0x00100000) #define IIOMAPSIZE btoc(0x00100000) /* XXX -- Need to do something about superspace. @@ -350,4 +351,31 @@ extern unsigned long load_addr; #define CACHE4_ON (IC4_ENABLE|DC4_ENABLE) #define CACHE4_OFF 0x00000000 -#endif /* !_MACHINE_CPU_H_ */ +__BEGIN_DECLS +/* machdep.c */ +u_int get_mapping __P((void)); + +/* locore.s */ +void m68881_restore __P((struct fpframe *)); +void m68881_save __P((struct fpframe *)); +u_int getsfc __P((void)); +u_int getdfc __P((void)); +void TBIA __P((void)); +void TBIAS __P((void)); +void TBIS __P((vm_offset_t)); +void DCFP __P((vm_offset_t)); +void ICPP __P((vm_offset_t)); +void DCIU __P((void)); +void ICIA __P((void)); +void DCFL __P((vm_offset_t)); +int suline __P((caddr_t, caddr_t)); +int susword __P((caddr_t, u_int)); +void savectx __P((struct pcb *)); +void proc_trampoline __P((void)); + +/* trap.c */ +void child_return __P((struct proc *, struct frame)); + +__END_DECLS + +#endif /* _CPU_MACHINE_ */ diff --git a/sys/arch/mac68k/include/disklabel.h b/sys/arch/mac68k/include/disklabel.h index 7445c16608b..1ca0509a6e6 100644 --- a/sys/arch/mac68k/include/disklabel.h +++ b/sys/arch/mac68k/include/disklabel.h @@ -1,4 +1,4 @@ -/* $NetBSD: disklabel.h,v 1.1 1994/10/14 18:27:05 cgd Exp $ */ +/* $NetBSD: disklabel.h,v 1.2 1996/05/05 06:17:38 briggs Exp $ */ /* * Copyright (c) 1994 Christopher G. Demetriou @@ -30,8 +30,8 @@ * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ -#ifndef _MACHINE_DISKLABEL_H_ -#define _MACHINE_DISKLABEL_H_ +#ifndef _DISKLABEL_MACHINE_ +#define _DISKLABEL_MACHINE_ #define LABELSECTOR 0 /* sector containing label */ #define LABELOFFSET 64 /* offset of label in sector */ @@ -43,4 +43,4 @@ struct cpu_disklabel { int cd_dummy; /* must have one element. */ }; -#endif /* _MACHINE_DISKLABEL_H_ */ +#endif /* _DISKLABEL_MACHINE_ */ diff --git a/sys/arch/mac68k/include/exec.h b/sys/arch/mac68k/include/exec.h index 891056552e6..e27c767bfbb 100644 --- a/sys/arch/mac68k/include/exec.h +++ b/sys/arch/mac68k/include/exec.h @@ -1,4 +1,4 @@ -/* $NetBSD: exec.h,v 1.7 1994/10/26 08:46:29 cgd Exp $ */ +/* $NetBSD: exec.h,v 1.8 1996/05/05 06:17:40 briggs Exp $ */ /*- * Copyright (C) 1993 Allen K. Briggs, Chris P. Caputo, @@ -33,8 +33,8 @@ * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. * */ -#ifndef _MACHINE_EXEC_H -#define _MACHINE_EXEC_H +#ifndef _EXEC_MACHINE_ +#define _EXEC_MACHINE_ #define __LDPGSZ 8192 @@ -54,4 +54,4 @@ struct relocation_info_mac68k { }; #define relocation_info relocation_info_mac68k -#endif +#endif /* _EXEC_MACHINE_ */ diff --git a/sys/arch/mac68k/include/float.h b/sys/arch/mac68k/include/float.h index b5dce5122e3..e01c84548b3 100644 --- a/sys/arch/mac68k/include/float.h +++ b/sys/arch/mac68k/include/float.h @@ -1,8 +1,8 @@ -/* $NetBSD: float.h,v 1.5 1995/06/20 20:45:44 jtc Exp $ */ +/* $NetBSD: float.h,v 1.6 1996/05/05 06:17:44 briggs Exp $ */ -#ifndef _MACHINE_FLOAT_H_ -#define _MACHINE_FLOAT_H_ +#ifndef _FLOAT_MACHINE_ +#define _FLOAT_MACHINE_ #include <m68k/float.h> -#endif +#endif /* _FLOAT_MACHINE */ diff --git a/sys/arch/mac68k/include/frame.h b/sys/arch/mac68k/include/frame.h index 97a43ec5b9c..1f5d8e671b0 100644 --- a/sys/arch/mac68k/include/frame.h +++ b/sys/arch/mac68k/include/frame.h @@ -1,3 +1,8 @@ -/* $NetBSD: frame.h,v 1.4 1994/10/26 08:46:31 cgd Exp $ */ +/* $NetBSD: frame.h,v 1.5 1996/05/05 06:17:46 briggs Exp $ */ + +#ifndef _FRAME_MACHINE_ +#define _FRAME_MACHINE_ #include <m68k/frame.h> + +#endif /* _FRAME_MACHINE_ */ diff --git a/sys/arch/mac68k/include/keyboard.h b/sys/arch/mac68k/include/keyboard.h index 3b65fd1bc47..c7519c50ce5 100644 --- a/sys/arch/mac68k/include/keyboard.h +++ b/sys/arch/mac68k/include/keyboard.h @@ -1,4 +1,4 @@ -/* $NetBSD: keyboard.h,v 1.4 1994/12/03 23:34:32 briggs Exp $ */ +/* $NetBSD: keyboard.h,v 1.5 1996/02/23 05:43:48 scottr Exp $ */ /*- * Copyright (C) 1993 Allen K. Briggs, Chris P. Caputo, @@ -98,12 +98,12 @@ unsigned char keyboard[128][3] = { { /* 0x13, */ '2', '@', 0x00 }, { /* 0x14, */ '3', '#', 0x00 }, { /* 0x15, */ '4', '$', 0x00 }, - { /* 0x16, */ '6', '^', 0x00 }, + { /* 0x16, */ '6', '^', 0x1E }, { /* 0x17, */ '5', '%', 0x00 }, { /* 0x18, */ '=', '+', 0x00 }, { /* 0x19, */ '9', '(', 0x00 }, { /* 0x1A, */ '7', '&', 0x00 }, - { /* 0x1B, */ '-', '_', 0x00 }, + { /* 0x1B, */ '-', '_', 0x1F }, { /* 0x1C, */ '8', '*', 0x00 }, { /* 0x1D, */ '0', ')', 0x00 }, { /* 0x1E, */ ']', '}', 0x1D }, diff --git a/sys/arch/mac68k/include/param.h b/sys/arch/mac68k/include/param.h index 021eb051798..08c045e1e4b 100644 --- a/sys/arch/mac68k/include/param.h +++ b/sys/arch/mac68k/include/param.h @@ -1,4 +1,4 @@ -/* $NetBSD: param.h,v 1.24 1996/02/17 14:50:40 briggs Exp $ */ +/* $NetBSD: param.h,v 1.26 1996/05/05 06:17:49 briggs Exp $ */ /* * Copyright (c) 1988 University of Utah. @@ -76,8 +76,8 @@ * @(#)param.h 7.8 (Berkeley) 6/28/91 */ -#ifndef _MACHINE_PARAM_H_ -#define _MACHINE_PARAM_H_ 1 +#ifndef _PARAM_MACHINE_ +#define _PARAM_MACHINE_ #ifndef PSL_IPL #include <machine/psl.h> @@ -86,7 +86,9 @@ /* * Machine dependent constants for Macintosh II-and-similar series. */ +#define _MACHINE mac68k #define MACHINE "mac68k" +#define _MACHINE_ARCH m68k #define MACHINE_ARCH "m68k" #define MID_MACHINE MID_M68K @@ -186,4 +188,4 @@ void delay __P((unsigned)); #define DELAY(ms) delay(ms) #endif /* _KERNEL && !_LOCORE */ -#endif /* _MACHINE_PARAM_H_ */ +#endif /* _PARAM_MACHINE_ */ diff --git a/sys/arch/mac68k/include/pcb.h b/sys/arch/mac68k/include/pcb.h index 4c8614cff05..f7225fff6a7 100644 --- a/sys/arch/mac68k/include/pcb.h +++ b/sys/arch/mac68k/include/pcb.h @@ -1,4 +1,4 @@ -/* $NetBSD: pcb.h,v 1.6 1995/06/21 03:10:44 briggs Exp $ */ +/* $NetBSD: pcb.h,v 1.7 1996/05/05 06:17:51 briggs Exp $ */ /* * Copyright (c) 1988 University of Utah. @@ -75,6 +75,8 @@ * * @(#)pcb.h 7.4 (Berkeley) 5/4/91 */ +#ifndef _PCB_MACHINE_ +#define _PCB_MACHINE_ #include <machine/frame.h> @@ -103,3 +105,5 @@ struct pcb struct md_coredump { int md_exec[16]; /* Exec structure for HP-UX (sic) core dumps */ }; + +#endif diff --git a/sys/arch/mac68k/include/pmap.h b/sys/arch/mac68k/include/pmap.h index df869cc2703..6da3e599cd3 100644 --- a/sys/arch/mac68k/include/pmap.h +++ b/sys/arch/mac68k/include/pmap.h @@ -1,4 +1,4 @@ -/* $NetBSD: pmap.h,v 1.11 1995/06/24 16:18:50 briggs Exp $ */ +/* $NetBSD: pmap.h,v 1.13 1996/05/18 18:52:41 briggs Exp $ */ /* * Copyright (c) 1987 Carnegie-Mellon University @@ -77,6 +77,7 @@ #ifndef _PMAP_MACHINE_ #define _PMAP_MACHINE_ +#include <machine/pcb.h> #include <machine/pte.h> #if defined(M68040) @@ -185,6 +186,33 @@ extern struct pv_entry *pv_table; /* array of entries, one per page */ extern pt_entry_t *Sysmap; extern char *vmmap; /* map for mem, dumps, etc. */ + +__BEGIN_DECLS +/* pmap.c */ +void mac68k_set_pte __P((vm_offset_t va, vm_offset_t pge)); +void pmap_remove_mapping __P((pmap_t, vm_offset_t, pt_entry_t *, int)); +boolean_t pmap_testbit __P((vm_offset_t, int)); +void pmap_changebit __P((vm_offset_t, int, boolean_t)); +void pmap_enter_ptpage __P((pmap_t, vm_offset_t)); +void pmap_pvdump __P((vm_offset_t)); +void pmap_check_wiring __P((char *, vm_offset_t)); +void pmap_collect_pv __P((void)); +void pmap_activate __P((register pmap_t, struct pcb *)); +void pmap_deactivate __P((register pmap_t, struct pcb *)); + +/* pmap_bootstrap.c */ +void pmap_bootstrap __P((vm_offset_t, register vm_offset_t)); +void bootstrap_mac68k __P((int)); + +/* locore.s */ +void loadustp __P((vm_offset_t)); +void TBIA __P((void)); +void TBIS __P((vm_offset_t)); +void DCFP __P((vm_offset_t)); +void ICPP __P((vm_offset_t)); +void copypage __P((caddr_t, caddr_t)); +__END_DECLS + #endif /* _KERNEL */ -#endif _PMAP_MACHINE_ +#endif /* _PMAP_MACHINE_ */ diff --git a/sys/arch/mac68k/include/profile.h b/sys/arch/mac68k/include/profile.h index 2f7fc94a260..7053b6a1297 100644 --- a/sys/arch/mac68k/include/profile.h +++ b/sys/arch/mac68k/include/profile.h @@ -1,8 +1,8 @@ -/* $NetBSD: profile.h,v 1.2 1994/10/26 08:46:41 cgd Exp $ */ +/* $NetBSD: profile.h,v 1.3 1996/05/05 06:17:55 briggs Exp $ */ -#ifndef _MACHINE_PROFILE_H_ -#define _MACHINE_PROFILE_H_ +#ifndef _PROFILE_MACHINE_ +#define _PROFILE_MACHINE_ #include <m68k/profile.h> -#endif +#endif _PROFILE_MACHINE_ diff --git a/sys/arch/mac68k/include/psl.h b/sys/arch/mac68k/include/psl.h index a2bb48afb9e..d5c0eb41f50 100644 --- a/sys/arch/mac68k/include/psl.h +++ b/sys/arch/mac68k/include/psl.h @@ -1,4 +1,4 @@ -/* $NetBSD: psl.h,v 1.5 1996/02/17 14:50:42 briggs Exp $ */ +/* $NetBSD: psl.h,v 1.9 1996/05/19 04:30:32 briggs Exp $ */ #ifndef PSL_C #include <m68k/psl.h> @@ -26,29 +26,32 @@ #define spl6() _spl(PSL_S|PSL_IPL6) #define spl7() _spl(PSL_S|PSL_IPL7) -/* These should be used for: - 1) ensuring mutual exclusion (why use processor level?) - 2) allowing faster devices to take priority - - Note that on the mac, most things are masked at spl1, almost - everything at spl2, and everything but the panic switch and - power at spl4. +/* + * These should be used for: + * 1) ensuring mutual exclusion (why use processor level?) + * 2) allowing faster devices to take priority + * + * Note that on the Mac, most things are masked at spl1, almost + * everything at spl2, and everything but the panic switch and + * power at spl4. */ -#define splsoftclock() spl1() /* disallow softclock */ -#define splsoftnet() spl1() /* disallow network */ -#define splclock() spl1() /* disallow clock interrupt */ -#define spltty() spl1() /* disallow tty (softserial&adb) interrupts */ -#define splbio() spl2() /* disallow block I/O */ -#define splnet() spl2() /* disallow network */ -#define splimp() spl2() /* disallow imput */ -#define splhigh() spl7() /* disallow everything */ -#define splsched() spl7() /* disallow scheduling */ - -#define splstatclock() spl2() /* This should be splclock... */ +#define splsoftclock() spl1() /* disallow softclock */ +#define splsoftnet() spl1() /* disallow network */ +#define spltty() spl1() /* disallow tty (softserial & ADB) */ +#define splbio() spl2() /* disallow block I/O */ +#define splnet() spl2() /* disallow network */ +#define splimp() spl2() /* disallow goblins and other nonsense */ +#define splclock() spl2() /* disallow clock (and other) interrupts */ +#define splstatclock() spl2() /* ditto */ +#define splzs() spl4() /* disallow serial hw interrupts */ +#define splhigh() spl7() /* disallow everything */ +#define splsched() spl7() /* disallow scheduling */ /* watch out for side effects */ #define splx(s) ((s) & PSL_IPL ? _spl(s) : spl0()) +int spl0 __P((void)); + #endif /* _KERNEL && !_LOCORE */ #endif /* ndef PSL_C */ diff --git a/sys/arch/mac68k/include/pte.h b/sys/arch/mac68k/include/pte.h index a496e389521..e9c94228d47 100644 --- a/sys/arch/mac68k/include/pte.h +++ b/sys/arch/mac68k/include/pte.h @@ -1,4 +1,4 @@ -/* $NetBSD: pte.h,v 1.8 1995/06/21 03:14:11 briggs Exp $ */ +/* $NetBSD: pte.h,v 1.9 1996/05/05 06:17:58 briggs Exp $ */ /* * Copyright (c) 1988 University of Utah. @@ -76,8 +76,8 @@ * @(#)pte.h 7.3 (Berkeley) 5/8/91 */ -#ifndef _MACHINE_PTE_H_ -#define _MACHINE_PTE_H_ 1 +#ifndef _PTE_MACHINE_ +#define _PTE_MACHINE_ /* * Mac hardware segment/page table entries @@ -152,4 +152,4 @@ typedef int pt_entry_t; /* Mach page table entry */ #define kvtophys(va) \ ((kvtopte(va)->pg_pfnum << PGSHIFT) | ((int)(va) & PGOFSET)) -#endif /* _MACHINE_PTE_H_ */ +#endif /* _PTE_MACHINE_ */ diff --git a/sys/arch/mac68k/include/reg.h b/sys/arch/mac68k/include/reg.h index dd2eb83b9c8..332cbe6c779 100644 --- a/sys/arch/mac68k/include/reg.h +++ b/sys/arch/mac68k/include/reg.h @@ -1,8 +1,14 @@ -/* $NetBSD: reg.h,v 1.9 1994/10/26 08:46:44 cgd Exp $ */ +/* $NetBSD: reg.h,v 1.10 1996/05/05 06:18:00 briggs Exp $ */ -#ifndef _MACHINE_REG_H_ -#define _MACHINE_REG_H_ +#ifndef _REG_MACHINE_ +#define _REG_MACHINE_ +#include <machine/frame.h> #include <m68k/reg.h> -#endif /* _MACHINE_REG_H_ */ +__BEGIN_DECLS +/* machdep.c */ +void regdump __P((struct frame *, int)); +__END_DECLS + +#endif /* _REG_MACHINE_ */ diff --git a/sys/arch/mac68k/include/scsi96reg.h b/sys/arch/mac68k/include/scsi96reg.h index b9efc1ec8af..823edd01bd5 100644 --- a/sys/arch/mac68k/include/scsi96reg.h +++ b/sys/arch/mac68k/include/scsi96reg.h @@ -1,4 +1,4 @@ -/* $NetBSD: scsi96reg.h,v 1.4 1994/10/26 08:46:45 cgd Exp $ */ +/* $NetBSD: scsi96reg.h,v 1.5 1996/05/05 06:18:02 briggs Exp $ */ /* * Copyright (C) 1994 Allen K. Briggs @@ -27,8 +27,8 @@ * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ -#ifndef _MACHINE_SCSI96REG_H_ -#define _MACHINE_SCSI96REG_H_ +#ifndef _SCSI96REG_MACHINE_ +#define _SCSI96REG_MACHINE_ typedef volatile unsigned char v_uchar; @@ -170,4 +170,4 @@ struct ncr53c96regs { #define NCR96_DALREG 0xF /* Data alignment register. W */ -#endif /* _MACHINE_SCSI96REG_H_ */ +#endif /* _SCSI96REG_MACHINE_ */ diff --git a/sys/arch/mac68k/include/types.h b/sys/arch/mac68k/include/types.h index 8f42fcea4cc..48d2ed316b3 100644 --- a/sys/arch/mac68k/include/types.h +++ b/sys/arch/mac68k/include/types.h @@ -1,8 +1,8 @@ -/* $NetBSD: types.h,v 1.7 1995/07/01 18:47:51 briggs Exp $ */ +/* $NetBSD: types.h,v 1.8 1996/05/05 06:18:05 briggs Exp $ */ -#ifndef _MACHINE_TYPES_H_ -#define _MACHINE_TYPES_H_ +#ifndef _TYPES_MACHINE_ +#define _TYPES_MACHINE_ #include <m68k/types.h> -#endif +#endif /* _TYPES_MACHINE_ */ diff --git a/sys/arch/mac68k/mac68k/via.h b/sys/arch/mac68k/include/viareg.h index b6b63aa9add..8c9cbe22813 100644 --- a/sys/arch/mac68k/mac68k/via.h +++ b/sys/arch/mac68k/include/viareg.h @@ -1,4 +1,4 @@ -/* $NetBSD: via.h,v 1.15 1996/02/03 22:50:22 briggs Exp $ */ +/* $NetBSD: viareg.h,v 1.3 1996/05/05 06:18:07 briggs Exp $ */ /*- * Copyright (C) 1993 Allen K. Briggs, Chris P. Caputo, @@ -68,6 +68,7 @@ /* VIA2 data register A */ #define DA2O_v2Ram1 0x80 #define DA2O_v2Ram0 0x40 +#define DA2I_v2IRQ0 0x40 #define DA2I_v2IRQE 0x20 #define DA2I_v2IRQD 0x10 #define DA2I_v2IRQC 0x08 @@ -156,7 +157,7 @@ extern int VIA2; #define RBVMonitorMask 0x38 /* Type numbers */ #define RBVOff 0x40 /* monitor turn off */ #define RBVMonIDNone 0x38 /* What RBV actually has for no video */ -#define RBVMonIDOff 0x0 /* What rbv_vidstatus() returns for no video */ +#define RBVMonIDOff 0x0 /* What rbv_vidstatus() returns for no video */ #define RBVMonID15BWP 0x08 /* BW portrait */ #define RBVMonIDRGB 0x10 /* color monitor */ #define RBVMonIDRGB15 0x28 /* 15 inch RGB */ @@ -164,20 +165,17 @@ extern int VIA2; #define via_reg(v, r) (*(Via1Base+(v)*0x2000+(r))) #define via2_reg(r) (*(Via2Base+(r))) -#define via_SR_input(v) (via_reg((v), vACR) &= 0xef) -#define via_SR_output(v) (via_reg((v), vACR) = ((via_reg((v), vACR) & \ - 0xe3) | 0x1c)) #define vDirA_ADBState 0x30 -void VIA_initialize (void); -unsigned char VIA_get_SR (long vianum); -long VIA_set_SR (long vianum, unsigned char data); -int rbv_vidstatus (void); -int add_nubus_intr (int addr, void (*func)(), void *client_data); -void mac68k_register_scsi_irq(void (*irq_func)(void *), void *clnt); -void mac68k_register_scsi_drq(void (*drq_func)(void *), void *clnt); -void mac68k_register_via1_t1_irq(void (*irq_func)(void *)); - -extern void (*via1itab[7])(); -extern void (*via2itab[7])(); +void VIA_initialize __P((void)); +int rbv_vidstatus __P((void)); +void via_shutdown __P((void)); +int add_nubus_intr __P((int, void (*) __P((void *, int)), void *)); +void enable_nubus_intr __P((void)); +void mac68k_register_scsi_irq __P((void (*)(void *), void *clnt)); +void mac68k_register_scsi_drq __P((void (*)(void *), void *clnt)); +void mac68k_register_via1_t1_irq __P((void (*)(void *))); + +extern void (*via1itab[7]) __P((void *)); +extern void (*via2itab[7]) __P((void *)); diff --git a/sys/arch/mac68k/include/z8530var.h b/sys/arch/mac68k/include/z8530var.h new file mode 100644 index 00000000000..b202cc8d0c5 --- /dev/null +++ b/sys/arch/mac68k/include/z8530var.h @@ -0,0 +1,106 @@ +/* $NetBSD: z8530var.h,v 1.1 1996/05/18 18:54:45 briggs Exp $ */ + +/* + * Copyright (c) 1994 Gordon W. Ross + * Copyright (c) 1992, 1993 + * The Regents of the University of California. All rights reserved. + * + * This software was developed by the Computer Systems Engineering group + * at Lawrence Berkeley Laboratory under DARPA contract BG 91-66 and + * contributed to Berkeley. + * + * All advertising materials mentioning features or use of this software + * must display the following acknowledgement: + * This product includes software developed by the University of + * California, Lawrence Berkeley Laboratory. + * + * Redistribution and use in source and binary forms, with or without + * modification, are permitted provided that the following conditions + * are met: + * 1. Redistributions of source code must retain the above copyright + * notice, this list of conditions and the following disclaimer. + * 2. Redistributions in binary form must reproduce the above copyright + * notice, this list of conditions and the following disclaimer in the + * documentation and/or other materials provided with the distribution. + * 3. All advertising materials mentioning features or use of this software + * must display the following acknowledgement: + * This product includes software developed by the University of + * California, Berkeley and its contributors. + * 4. Neither the name of the University nor the names of its contributors + * may be used to endorse or promote products derived from this software + * without specific prior written permission. + * + * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND + * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE + * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE + * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE + * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL + * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS + * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) + * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT + * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY + * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF + * SUCH DAMAGE. + * + * @(#)zsvar.h 8.1 (Berkeley) 6/11/93 + */ + +#include <arch/mac68k/dev/z8530sc.h> +#include <arch/mac68k/dev/z8530tty.h> + +/* + * Functions to read and write individual registers in a channel. + * The ZS chip requires a 1.6 uSec. recovery time between accesses, + * and the Sun3 hardware does NOT take care of this for you. + * MacII hardware DOES dake care of the delay for us. :-) + */ + +u_char zs_read_reg __P((struct zs_chanstate *cs, u_char reg)); +u_char zs_read_csr __P((struct zs_chanstate *cs)); +u_char zs_read_data __P((struct zs_chanstate *cs)); + +void zs_write_reg __P((struct zs_chanstate *cs, u_char reg, u_char val)); +void zs_write_csr __P((struct zs_chanstate *cs, u_char val)); +void zs_write_data __P((struct zs_chanstate *cs, u_char val)); + +/* + * abort detection on console will now timeout after iterating on a loop + * the following # of times. Cheep hack. Also, abort detection is turned + * off after a timeout (i.e. maybe there's not a terminal hooked up). + */ +#define ZSABORT_DELAY 3000000 + +/* + * How to request a "soft" interrupt. + * This could be a macro if you like. + */ +void zsc_req_softint __P((struct zsc_softc *zsc)); + +/* Handle user request to enter kernel debugger. */ +void zs_abort __P((struct zstty_softc *zst)); + +/* Hook for MD ioctl support */ +int zsmdioctl __P((struct tty *tp, u_long com, caddr_t data, int flag, + struct proc *p)); + +/* Clean up at end of tty attach */ +void zstty_mdattach __P((struct zsc_softc *zsc, struct zstty_softc *zst, + struct zs_chanstate *cs, struct tty *tp)); + +/* Callback for "external" clock sources */ +void zsmd_setclock __P((struct zs_chanstate *cs)); + +/* + * Some warts needed by z8530tty.c - + */ +#define ZSTTY_MAJOR 12 /* XXX */ +#undef ZSTTY_DEF_CFLAG +#define ZSTTY_DEF_CFLAG (CREAD | CS8 | HUPCL) + +#define ZSTTY_RAW_CFLAG (CS8 | CREAD | HUPCL ) +#define ZSTTY_RAW_IFLAG (IXANY | IMAXBEL) +#define ZSTTY_RAW_LFLAG (ECHOE|ECHOKE|ECHOCTL) +#define ZSTTY_RAW_OFLAG (ONLCR | OXTABS) +/* Above taken from looking at a tty after a stty raw */ + +#define zsprintf printf diff --git a/sys/arch/mac68k/mac68k/autoconf.c b/sys/arch/mac68k/mac68k/autoconf.c index 57307883091..ef6eec9ded8 100644 --- a/sys/arch/mac68k/mac68k/autoconf.c +++ b/sys/arch/mac68k/mac68k/autoconf.c @@ -1,4 +1,4 @@ -/* $NetBSD: autoconf.c,v 1.21 1996/01/07 22:02:39 thorpej Exp $ */ +/* $NetBSD: autoconf.c,v 1.29 1996/05/15 02:51:00 briggs Exp $ */ /* * Copyright (c) 1988 University of Utah. @@ -104,10 +104,17 @@ #include <sys/disklabel.h> #include <sys/disk.h> +#include <vm/vm.h> +#include <vm/vm_kern.h> +#include <vm/vm_map.h> + +#include <machine/adbsys.h> +#include <machine/autoconf.h> #include <machine/vmparam.h> #include <machine/param.h> #include <machine/cpu.h> #include <machine/pte.h> +#include <machine/viareg.h> #include <scsi/scsi_all.h> #include <scsi/scsiconf.h> @@ -123,22 +130,28 @@ int cold; /* if 1 (locore.s), still working on cold-start */ int acdebug = 0; #endif +static void findbootdev __P((void)); +static int mainbus_match __P((struct device *, void *, void *)); +static void mainbus_attach __P((struct device *parent, + struct device *self, void *aux)); +static void setroot __P((void)); +static void swapconf __P((void)); + /* * Determine mass storage and memory configuration for a machine. */ -configure() +void +configure(void) { - int found; - VIA_initialize(); mrg_init(); /* Init Mac ROM Glue */ + startrtclock(); /* start before adb_init() */ + adb_init(); /* ADB device subsystem & driver */ - startrtclock(); - - if (config_rootfound("mainbus", "mainbus") == 0) + if (config_rootfound("mainbus", "mainbus") == NULL) panic("No main device!"); #if GENERIC @@ -161,10 +174,11 @@ configure() /* * Configure swap space and related parameters. */ -swapconf() +static void +swapconf(void) { register struct swdevt *swp; - register int nblks, tblks; + register int nblks; for (swp = swdevt; swp->sw_dev != NODEV ; swp++) { int maj = major(swp->sw_dev); @@ -195,23 +209,22 @@ struct device *bootdv = NULL; static int target_to_unit(u_long bus, u_long target, u_long lun) { - int targ; struct scsibus_softc *scsi; struct scsi_link *sc_link; struct device *sc_dev; -extern struct cfdriver scsibuscd; +extern struct cfdriver scsibus_cd; if (target < 0 || target > 7 || lun < 0 || lun > 7) { - printf("scsi target to unit, target (%d) or lun (%d)" + printf("scsi target to unit, target (%ld) or lun (%ld)" " out of range.\n", target, lun); return -1; } if (bus == -1) { - for (bus = 0 ; bus < scsibuscd.cd_ndevs ; bus++) { - if (scsibuscd.cd_devs[bus]) { + for (bus = 0 ; bus < scsibus_cd.cd_ndevs ; bus++) { + if (scsibus_cd.cd_devs[bus]) { scsi = (struct scsibus_softc *) - scsibuscd.cd_devs[bus]; + scsibus_cd.cd_devs[bus]; if (scsi->sc_link[target][lun]) { sc_link = scsi->sc_link[target][lun]; sc_dev = (struct device *) @@ -222,12 +235,12 @@ extern struct cfdriver scsibuscd; } return -1; } - if (bus < 0 || bus >= scsibuscd.cd_ndevs) { - printf("scsi target to unit, bus (%d) out of range.\n", bus); + if (bus < 0 || bus >= scsibus_cd.cd_ndevs) { + printf("scsi target to unit, bus (%ld) out of range.\n", bus); return -1; } - if (scsibuscd.cd_devs[bus]) { - scsi = (struct scsibus_softc *) scsibuscd.cd_devs[bus]; + if (scsibus_cd.cd_devs[bus]) { + scsi = (struct scsibus_softc *) scsibus_cd.cd_devs[bus]; if (scsi->sc_link[target][lun]) { sc_link = scsi->sc_link[target][lun]; sc_dev = (struct device *) sc_link->device_softc; @@ -254,8 +267,8 @@ findblkmajor(register struct disk *dv) /* * Yanked from i386/i386/autoconf.c */ -void -findbootdev() +static void +findbootdev(void) { register struct device *dv; register struct disk *diskp; @@ -275,7 +288,7 @@ findbootdev() if (disk_count <= 0) return; - for (dv = alldevs ; dv ; dv = dv->dv_next) { + for (dv = alldevs.tqh_first; dv != NULL; dv = dv->dv_list.tqe_next) { if ((dv->dv_class == DV_DISK) && (unit == dv->dv_unit)) { /* * Find the disk corresponding to the current @@ -297,11 +310,12 @@ findbootdev() * If we can do so, and not instructed not to do so, * change rootdev to correspond to the load device. */ -setroot() +static void +setroot(void) { register struct swdevt *swp; register int majdev, mindev, part; - dev_t nrootdev, nswapdev, temp; + dev_t nrootdev, temp; if (boothowto & RB_DFLTROOT) return; @@ -311,10 +325,11 @@ setroot() delay(10000000); /* panic("ARGH!! No boot device????"); */ } + nrootdev = 0; switch (bootdv->dv_class) { case DV_DISK: nrootdev = makedev(B_TYPE(bootdev), - B_UNIT(bootdev) << UNITSHIFT + (B_UNIT(bootdev) << UNITSHIFT) + B_PARTITION(bootdev)); break; default: @@ -350,86 +365,203 @@ setroot() dumpdev = swdevt[0].sw_dev; } -struct newconf_S { - char *name; - int req; -}; +/* + * Generic "bus" support functions. From NetBSD/sun3. + * + * bus_scan: + * This function is passed to config_search() by the attach function + * for each of the "bus" drivers (obio, nubus). + * The purpose of this function is to copy the "locators" into our + * confargs structure, so child drivers may use the confargs both + * as match parameters and as temporary storage for the defaulted + * locator values determined in the child_match and preserved for + * the child_attach function. If the bus attach functions just + * used config_found, then we would not have an opportunity to + * setup the confargs for each child match and attach call. + * + * bus_print: + * Just prints out the final (non-default) locators. + */ +int +bus_scan(parent, child, aux) + struct device *parent; + void *child, *aux; +{ + struct cfdata *cf = child; + struct confargs *ca = aux; + cfmatch_t mf; + +#ifdef DIAGNOSTIC + if (parent->dv_cfdata->cf_driver->cd_indirect) + panic("bus_scan: indirect?"); + if (cf->cf_fstate == FSTATE_STAR) + panic("bus_scan: FSTATE_STAR"); +#endif -static int -mbprint(aux, name) - void *aux; - char *name; + /* ca->ca_bustype set by parent */ + + /* + * Note that this allows the match function to save + * defaulted locators in the confargs that will be + * preserved for the related attach call. + */ + mf = cf->cf_attach->ca_match; + if ((*mf)(parent, cf, ca) > 0) { + config_attach(parent, cf, ca, bus_print); + } + return (0); +} + +/* + * From NetBSD/sun3. + * Print out the confargs. The parent name is non-NULL + * when there was no match found by config_found(). + */ +int +bus_print(args, name) + void *args; + char *name; { - struct newconf_S *c = (struct newconf_S *) aux; +/* struct confargs *ca = args; */ if (name) - printf("%s at %s", c->name, name); + printf("%s:", name); + return(UNCONF); } -static int -root_matchbyname(parent, cf, aux) - struct device *parent; - struct cfdata *cf; - void *aux; +vm_offset_t tmp_vpages[1]; + +/* + * Read addr with size len (1,2,4) into val. + * If this generates a bus error, return -1 + * + * Create a temporary mapping, + * Try the access using peek_* + * Clean up temp. mapping + */ +int +bus_peek(bustype, paddr, sz) + int bustype; + vm_offset_t paddr; + int sz; { - return (strcmp(cf->cf_driver->cd_name, (char *)aux) == 0); + int off, pte, rv; + vm_offset_t pgva; + caddr_t va; + + if (bustype != BUS_NUBUS) + return -1; + + off = paddr & PGOFSET; + paddr -= off; + pte = (paddr & PG_FRAME) | (PG_V | PG_W | PG_CI); + + pgva = tmp_vpages[0]; + va = (caddr_t)pgva + off; + + mac68k_set_pte(pgva, pte); + TBIS(pgva); + + /* + * OK, try the access using one of the assembly routines + * that will set pcb_onfault and catch any bus errors. + */ + rv = -1; + switch (sz) { + case 1: + if (!badbaddr(va)) + rv = *((u_char *) va); + break; + case 2: + if (!badwaddr(va)) + rv = *((u_int16_t *) va); + break; + case 4: + if (!badladdr(va)) + rv = *((u_int32_t *) va); + break; + default: + printf("bus_peek: invalid size=%d\n", sz); + rv = -1; + } + + mac68k_set_pte(pgva, PG_NV); + TBIS(pgva); + + return rv; } -extern int -matchbyname(parent, match, aux) - struct device *parent; - void *match; - void *aux; +char * +bus_mapin(bustype, paddr, sz) + int bustype, paddr, sz; { - struct newconf_S *c = (struct newconf_S *) aux; - struct device *dv = (struct device *) match; + int off, pa, pmt; + vm_offset_t va, retval; + + if (bustype != BUS_NUBUS) + return (NULL); + + off = paddr & PGOFSET; + pa = paddr - off; + sz += off; + sz = mac68k_round_page(sz); + + /* Get some kernel virtual address space. */ + va = kmem_alloc_wait(kernel_map, sz); + if (va == 0) + panic("bus_mapin"); + retval = va + off; + + /* Map it to the specified bus. */ +#if 0 /* XXX */ + /* This has a problem with wrap-around... */ + pmap_map((int)va, pa | pmt, pa + sz, VM_PROT_ALL); +#else + do { + pmap_enter(pmap_kernel(), va, pa | pmt, VM_PROT_ALL, FALSE); + va += NBPG; + pa += NBPG; + } while ((sz -= NBPG) > 0); +#endif -/* printf("matchbyname: (%s) and (%s).\n", dv->dv_xname, c->name); -*/ + return ((char*)retval); +} - return (strcmp(dv->dv_xname, c->name) == 0); +static int +mainbus_match(parent, match, aux) + struct device *parent; + void *match, *aux; +{ + return 1; } +static int bus_order[] = { + BUS_OBIO, /* For On-board I/O */ + BUS_NUBUS +}; +#define BUS_ORDER_SZ (sizeof(bus_order)/sizeof(bus_order[0])) + static void mainbus_attach(parent, self, aux) struct device *parent, *self; void *aux; { - struct newconf_S conf_data[] = { - {"ite0", 1}, - {"adb0", 1}, - {"ser0", 0}, - {"sn0", 0}, - {"nubus0", 1}, - {"sbc0", 0}, - {"ncrscsi0", 0}, - {"ncr96scsi0", 0}, - {"asc0", 0}, - {"fpu0", 0}, - {"floppy0", 0}, - {NULL, 0} - }; - struct newconf_S *c; - int fail=0, warn=0; + struct confargs ca; + int i; printf("\n"); - for (c=conf_data ; c->name ; c++) { - if (config_found(self, c, mbprint)) { - } else { - if (c->req) { - fail++; - } - warn++; - } - } - if (fail) { - printf("Failed to find %d required devices.\n", fail); - panic("Can't continue."); + for (i = 0; i < BUS_ORDER_SZ; i++) { + ca.ca_bustype = bus_order[i]; + (void) config_found(self, &ca, NULL); } } -struct cfdriver mainbuscd = - { NULL, "mainbus", root_matchbyname, mainbus_attach, - DV_DULL, sizeof(struct device), 1, 0 }; +struct cfattach mainbus_ca = { + sizeof(struct device), mainbus_match, mainbus_attach +}; + +struct cfdriver mainbus_cd = { + NULL, "mainbus", DV_DULL +}; diff --git a/sys/arch/mac68k/mac68k/clock.c b/sys/arch/mac68k/mac68k/clock.c index e6a46d43a59..128d24c3a10 100644 --- a/sys/arch/mac68k/mac68k/clock.c +++ b/sys/arch/mac68k/mac68k/clock.c @@ -1,4 +1,4 @@ -/* $NetBSD: clock.c,v 1.22 1996/02/19 21:40:48 scottr Exp $ */ +/* $NetBSD: clock.c,v 1.29 1996/05/05 06:18:17 briggs Exp $ */ /* * Copyright (c) 1988 University of Utah. @@ -77,30 +77,27 @@ * @(#)clock.c 7.6 (Berkeley) 5/7/91 */ -#if !defined(STANDALONE) #include <sys/param.h> +#include <sys/device.h> #include <sys/kernel.h> +#include <sys/systm.h> +#include <machine/autoconf.h> #include <machine/psl.h> #include <machine/cpu.h> +#include <machine/limits.h> #if defined(GPROF) && defined(PROFTIMER) #include <sys/gprof.h> #endif -#else /* STANDALONE */ -#include "stand.h" -#endif /* STANDALONE */ - +#include "pram.h" #include "clockreg.h" -#include "via.h" +#include <machine/viareg.h> -static int month_days[12] = { - 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 -}; -#define DIFF19041970 2082844800 -#define DIFF19701990 630720000 -#define DIFF19702010 1261440000 +#define DIFF19041970 2082844800 +#define DIFF19701990 630720000 +#define DIFF19702010 1261440000 /* * Mac II machine-dependent clock routines. @@ -111,12 +108,13 @@ static int month_days[12] = { * * We use VIA1 timer 1. */ -void -startrtclock(void) +void +startrtclock() { -/* BARF MF startrt clock is called twice in init_main, configure, - the reason why is doced in configure */ - +/* + * BARF MF startrt clock is called twice in init_main, configure, + * the reason why is doced in configure + */ /* be certain clock interrupts are off */ via_reg(VIA1, vIER) = V1IF_T1; @@ -133,7 +131,7 @@ startrtclock(void) } void -enablertclock(void) +enablertclock() { /* clear then enable clock interrupt. */ via_reg(VIA1, vIFR) |= V1IF_T1; @@ -141,18 +139,19 @@ enablertclock(void) } void -cpu_initclocks(void) +cpu_initclocks() { enablertclock(); } void -setstatclockrate(int rateinhz) +setstatclockrate(rateinhz) + int rateinhz; { } void -disablertclock(void) +disablertclock() { /* disable clock interrupt */ via_reg(VIA1, vIER) = V1IF_T1; @@ -164,7 +163,7 @@ disablertclock(void) * Check high byte twice to prevent missing a roll-over. * (race condition?) */ -u_long +u_long clkread() { register int high, high2, low; @@ -198,12 +197,12 @@ int profscale = 0; /* Scale factor from sys clock to prof clock */ char profon = 0; /* Is profiling clock on? */ /* profon values - do not change, locore.s assumes these values */ -#define PRF_NONE 0x00 -#define PRF_USER 0x01 -#define PRF_KERNEL 0x80 +#define PRF_NONE 0x00 +#define PRF_USER 0x01 +#define PRF_KERNEL 0x80 -void -initprofclock(void) +void +initprofclock() { /* profile interval must be even divisor of system clock interval */ if (profint > CLK_INTERVAL) @@ -219,8 +218,8 @@ initprofclock(void) profintlow = profint & 0xff; } -void -startprofclock(void) +void +startprofclock() { via_reg(VIA2, vT1L) = (profint - 1) & 0xff; via_reg(VIA2, vT1LH) = (profint - 1) >> 8; @@ -229,8 +228,8 @@ startprofclock(void) via_reg(VIA2, vT1CH) = (profint - 1) >> 8; } -void -stopprofclock(void) +void +stopprofclock() { via_reg(VIA2, vT1L) = 0; via_reg(VIA2, vT1LH) = 0; @@ -245,21 +244,22 @@ stopprofclock(void) * profclock() is expanded in line in lev6intr() unless profiling kernel. * Assumes it is called with clock interrupts blocked. */ -void -profclock(clockframe * pclk) +void +profclock(pclk) + clockframe *pclk; { /* - * Came from user mode. - * If this process is being profiled record the tick. - */ + * Came from user mode. + * If this process is being profiled record the tick. + */ if (USERMODE(pclk->ps)) { if (p->p_stats.p_prof.pr_scale) addupc_task(&curproc, pclk->pc, 1); } /* - * Came from kernel (supervisor) mode. - * If we are profiling the kernel, record the tick. - */ + * Came from kernel (supervisor) mode. + * If we are profiling the kernel, record the tick. + */ else if (profiling < 2) { register int s = pclk->pc - s_lowpc; @@ -268,10 +268,10 @@ profclock(clockframe * pclk) kcount[s / (HISTFRACTION * sizeof(*kcount))]++; } /* - * Kernel profiling was on but has been disabled. - * Mark as no longer profiling kernel and if all profiling done, - * disable the clock. - */ + * Kernel profiling was on but has been disabled. + * Mark as no longer profiling kernel and if all profiling done, + * disable the clock. + */ if (profiling && (profon & PRF_KERNEL)) { profon &= ~PRF_KERNEL; if (profon == PRF_NONE) @@ -281,38 +281,43 @@ profclock(clockframe * pclk) #endif #endif +static u_long ugmt_2_pramt __P((u_long)); +static u_long pramt_2_ugmt __P((u_long)); + /* * Convert GMT to Mac PRAM time, using global timezone * GMT bias adjustment is done elsewhere. */ -static u_long -ugmt_2_pramt(u_long t) +static u_long +ugmt_2_pramt(t) + u_long t; { /* don't know how to open a file properly. */ /* assume compiled timezone is correct. */ - return (t = t + DIFF19041970 - 60*tz.tz_minuteswest); + return (t = t + DIFF19041970 - 60 * tz.tz_minuteswest); } /* * Convert a Mac PRAM time value to GMT, using compiled-in timezone * GMT bias adjustment is done elsewhere. */ -static u_long -pramt_2_ugmt(u_long t) +static u_long +pramt_2_ugmt(t) + u_long t; { - return (t = t - DIFF19041970 + 60*tz.tz_minuteswest); + return (t = t - DIFF19041970 + 60 * tz.tz_minuteswest); } /* * Time from the booter. */ -u_long macos_boottime; +u_long macos_boottime; /* * Bias in minutes east from GMT (also from booter). */ -long macos_gmtbias; +long macos_gmtbias; /* * Flag for whether or not we can trust the PRAM. If we don't @@ -320,33 +325,33 @@ long macos_gmtbias; * that is passed from the booter (which will only be a second * or two off by now). */ -int mac68k_trust_pram = 1; +int mac68k_trust_pram = 1; /* * Set global GMT time register, using a file system time base for comparison * and sanity checking. */ -void -inittodr(time_t base) +void +inittodr(base) + time_t base; { - u_long timbuf; - u_long pramtime; + u_long timbuf; timbuf = pramt_2_ugmt(pram_readtime()); if ((timbuf - (macos_boottime + 60 * tz.tz_minuteswest)) > 10 * 60) { #if DIAGNOSTIC printf( - "PRAM time does not appear to have been read correctly.\n"); - printf("PRAM: 0x%x, macos_boottime: 0x%x.\n", - timbuf, macos_boottime + 60 * tz.tz_minuteswest); + "PRAM time does not appear to have been read correctly.\n"); + printf("PRAM: 0x%lx, macos_boottime: 0x%lx.\n", + timbuf, macos_boottime + 60 * tz.tz_minuteswest); #endif timbuf = macos_boottime; mac68k_trust_pram = 0; } #ifdef DIAGNOSTIC else - printf("PRAM: 0x%x, macos_boottime: 0x%x.\n", - timbuf, macos_boottime); + printf("PRAM: 0x%lx, macos_boottime: 0x%lx.\n", + timbuf, macos_boottime); #endif /* @@ -384,8 +389,8 @@ inittodr(time_t base) * Set battery backed clock to a new time, presumably after someone has * changed system time. */ -void -resettodr(void) +void +resettodr() { if (mac68k_trust_pram) /* @@ -400,7 +405,6 @@ resettodr(void) "to the pram on this system.\n"); #endif } - /* * The Macintosh timers decrement once every 1.2766 microseconds. * MGFH2, p. 180 @@ -410,8 +414,8 @@ resettodr(void) #define DELAY_CALIBRATE (0xffffff << 7) /* Large value for calibration */ #define LARGE_DELAY 0x40000 /* About 335 msec */ -int delay_factor = DELAY_CALIBRATE; -volatile int delay_flag = 1; +unsigned delay_factor = DELAY_CALIBRATE; +volatile int delay_flag = 1; /* * delay(usec) @@ -423,7 +427,8 @@ volatile int delay_flag = 1; * due to adjustments for calculations involving 32 bit values. */ void -delay(unsigned usec) +delay(usec) + unsigned usec; { register unsigned int cycles; @@ -432,15 +437,15 @@ delay(unsigned usec) else cycles = ((usec > 0 ? usec : 1) * delay_factor) >> 7; - while ((cycles-- > 0) && delay_flag) - ; + while ((cycles-- > 0) && delay_flag); } +static unsigned dummy_delay __P((unsigned)); /* * Dummy delay calibration. Functionally identical to delay(), but * returns the number of times through the loop. */ -static int +static unsigned dummy_delay(usec) unsigned usec; { @@ -451,14 +456,16 @@ dummy_delay(usec) else cycles = ((usec > 0 ? usec : 1) * delay_factor) >> 7; - while ((cycles-- > 0) && delay_flag) - ; + while ((cycles-- > 0) && delay_flag); return ((delay_factor >> 7) - cycles); } +static void delay_timer1_irq __P((void *)); + static void -delay_timer1_irq() +delay_timer1_irq(dummy) + void *dummy; { delay_flag = 0; } @@ -470,7 +477,7 @@ void mac68k_calibrate_delay() { int n; - int sum; + unsigned sum; /* Disable VIA1 timer 1 interrupts and set up service routine */ via_reg(VIA1, vIER) = V1IF_T1; @@ -478,7 +485,7 @@ mac68k_calibrate_delay() /* Set the timer for one-shot mode, then clear and enable interrupts */ via_reg(VIA1, vACR) &= ~ACR_T1LATCH; - via_reg(VIA1, vIFR) = V1IF_T1; /* (this is needed for IIsi) */ + via_reg(VIA1, vIFR) = V1IF_T1; /* (this is needed for IIsi) */ via_reg(VIA1, vIER) = 0x80 | V1IF_T1; for (sum = 0, n = 8; n > 0; n--) { @@ -499,13 +506,13 @@ mac68k_calibrate_delay() * delay_factor = ((sum / 8) / (1024 * 1.2766)) * 128; * That is, average the sum, divide by the number of usec, * and multiply by a scale factor of 128. - * + * * We can accomplish the same thing by simplifying and using * shifts, being careful to avoid as much loss of precision - * as possible. (If the sum exceeds (2^31-1)/10000, we need + * as possible. (If the sum exceeds UINT_MAX/10000, we need * to rearrange the calculation slightly to do this.) */ - if (sum > 214748) /* This is a _fast_ machine! */ + if (sum > (UINT_MAX / 10000)) /* This is a _fast_ machine! */ delay_factor = (((sum >> 3) * 10000) / CLK_RATE) >> 3; else delay_factor = (((sum * 10000) >> 3) / CLK_RATE) >> 3; diff --git a/sys/arch/mac68k/mac68k/clockreg.h b/sys/arch/mac68k/mac68k/clockreg.h index d65fde29b12..ffbdb736bc9 100644 --- a/sys/arch/mac68k/mac68k/clockreg.h +++ b/sys/arch/mac68k/mac68k/clockreg.h @@ -1,4 +1,4 @@ -/* $NetBSD: clockreg.h,v 1.4 1996/02/01 03:40:26 briggs Exp $ */ +/* $NetBSD: clockreg.h,v 1.5 1996/04/01 05:16:52 scottr Exp $ */ /*- * Copyright (C) 1993 Allen K. Briggs, Chris P. Caputo, @@ -40,19 +40,24 @@ #define CLK_SPEED 0.0000012766 /* time to complete a clock (3 MHz) */ -#define CLK_INTERVAL 13055 /* clks to hit HZ ticks/sec */ /* - * The VIA1 clock speed is 1.2766us, so the timer value above is: + * Calculate clocks needed to hit HZ ticks/sec. + * + * The VIA clock speed is 1.2766us, so the timer value needed is: * * 1 1,000,000us 1 * CLK_INTERVAL = -------- * ----------- * ------ * 1.2766us 1s HZ * - * where HZ == 60. This gives us 13055.5 and change... We round down. + * While it may be tempting to simplify the following further, we can run + * into integer overflow problems. Also note: do *not* define HZ to be + * less than 12; overflow will occur, yielding invalid results. */ -#define CLK_INTH (CLK_INTERVAL >> 8) -#define CLK_INTL (CLK_INTERVAL & 0xff) +#define CLK_INTERVAL ((int)((((100000000L / HZ) * 100) / 12766))) + +#define CLK_INTH ((CLK_INTERVAL >> 8) & 0xff) /* high byte */ +#define CLK_INTL (CLK_INTERVAL & 0xff) /* low byte */ #if !defined(PRF_INTERVAL) #define PRF_INTERVAL CLK_INTERVAL diff --git a/sys/arch/mac68k/mac68k/conf.c b/sys/arch/mac68k/mac68k/conf.c index 7279072c47a..9212f80de3c 100644 --- a/sys/arch/mac68k/mac68k/conf.c +++ b/sys/arch/mac68k/mac68k/conf.c @@ -1,4 +1,4 @@ -/* $OpenBSD: conf.c,v 1.5 1996/05/04 18:50:46 mickey Exp $ */ +/* $NetBSD: conf.c,v 1.33 1996/05/18 18:54:49 briggs Exp $ */ /* * Copyright (c) 1990 The Regents of the University of California. @@ -149,20 +149,23 @@ cdev_decl(ptc); cdev_decl(log); cdev_decl(st); cdev_decl(sd); +cdev_decl(cd); cdev_decl(fd); #include "grf.h" cdev_decl(grf); #define NADB 1 /* #include "adb.h" */ cdev_decl(adb); -#include "ser.h" -cdev_decl(ser); -cdev_decl(cd); +#include "zsc.h" +cdev_decl(zsc); +#include "zstty.h" +cdev_decl(zs); cdev_decl(vnd); cdev_decl(ccd); #include "bpfilter.h" cdev_decl(bpf); #include "tun.h" cdev_decl(tun); +dev_decl(filedesc,open); #ifdef LKM #define NLKM 1 @@ -194,7 +197,7 @@ struct cdevsw cdevsw[] = cdev_notdef(), /* 9 */ cdev_grf_init(1,grf), /* 10: frame buffer */ cdev_tty_init(NITE,ite), /* 11: console terminal emulator */ - cdev_tty_init(NSER,ser), /* 12: 2 mac serial ports -- BG*/ + cdev_tty_init(NZSTTY,zs), /* 12: 2 mac serial ports -- BG*/ cdev_disk_init(NSD,sd), /* 13: SCSI disk */ cdev_tape_init(NST,st), /* 14: SCSI tape */ cdev_disk_init(NCD,cd), /* 15: SCSI CD-ROM */ @@ -204,7 +207,7 @@ struct cdevsw cdevsw[] = cdev_notdef(), /* 18 */ cdev_disk_init(NVND,vnd), /* 19: vnode disk driver */ cdev_disk_init(NCCD,ccd), /* 20: concatenated disk driver */ - cdev_fd_init(1,fd), /* 21: file descriptor pseudo-device */ + cdev_fd_init(1,filedesc), /* 21: file descriptor pseudo-device */ cdev_bpftun_init(NBPFILTER,bpf),/* 22: Berkeley packet filter */ cdev_mouse_init(NADB,adb), /* 23: ADB event interface */ cdev_bpftun_init(NTUN,tun), /* 24: network tunnel */ @@ -246,6 +249,7 @@ iskmemdev(dev) /* * Returns true if dev is /dev/zero. */ +int iszerodev(dev) dev_t dev; { @@ -290,6 +294,7 @@ static int chrtoblktab[] = { /* 31 */ NODEV, }; +dev_t chrtoblk(dev) dev_t dev; { @@ -305,15 +310,15 @@ chrtoblk(dev) #define itecnpollc nullcnpollc cons_decl(ite); -#define sercnpollc nullcnpollc -cons_decl(ser); +#define zscnpollc nullcnpollc +cons_decl(zs); struct consdev constab[] = { #if NITE > 0 cons_init(ite), #endif -#if NSER > 0 - cons_init(ser), +#if NZSTTY > 0 + cons_init(zs), #endif { 0 }, }; diff --git a/sys/arch/mac68k/mac68k/disksubr.c b/sys/arch/mac68k/mac68k/disksubr.c index beea6e3c66f..b8db36692f3 100644 --- a/sys/arch/mac68k/mac68k/disksubr.c +++ b/sys/arch/mac68k/mac68k/disksubr.c @@ -1,4 +1,4 @@ -/* $NetBSD: disksubr.c,v 1.13 1996/02/14 14:20:54 briggs Exp $ */ +/* $NetBSD: disksubr.c,v 1.14 1996/05/05 06:18:22 briggs Exp $ */ /* * Copyright (c) 1982, 1986, 1988 Regents of the University of California. @@ -81,6 +81,7 @@ #include <sys/param.h> #include <sys/systm.h> #include <sys/buf.h> +#include <sys/disk.h> #include <sys/disklabel.h> #include <sys/syslog.h> @@ -89,7 +90,6 @@ #define b_cylin b_resid #define NUM_PARTS_PROBED 32 -static int print = 0; #define ROOT_PART 1 #define UFS_PART 2 @@ -97,11 +97,24 @@ static int print = 0; #define HFS_PART 4 #define SCRATCH_PART 5 +static int getFreeLabelEntry __P((struct disklabel *)); +static int whichType __P((struct partmapentry *)); +static void fixPartTable __P((struct partmapentry *, long, char *, int *)); +static void setRoot __P((struct partmapentry *, struct disklabel *, int)); +static void setSwap __P((struct partmapentry *, struct disklabel *, int)); +static void setUfs __P((struct partmapentry *, struct disklabel *, int)); +static void setHfs __P((struct partmapentry *, struct disklabel *, int)); +static void setScratch __P((struct partmapentry *, struct disklabel *, int)); +static int getNamedType +__P((struct partmapentry *, int, struct disklabel *, int, int, int *)); +static char *read_mac_label __P((dev_t, void (*)(struct buf *), + register struct disklabel *, struct cpu_disklabel *)); + /* * Find an entry in the disk label that is unused and return it * or -1 if no entry */ -int +static int getFreeLabelEntry(lp) struct disklabel *lp; { @@ -119,7 +132,7 @@ getFreeLabelEntry(lp) /* * figure out what the type of the given part is and return it */ -int +static int whichType(part) struct partmapentry *part; { @@ -296,7 +309,7 @@ setScratch(part, lp, slot) part->pmPartType[0] = '\0'; } -int +static int getNamedType(part, num_parts, lp, type, alt, maxslot) struct partmapentry *part; int num_parts; @@ -330,7 +343,7 @@ getNamedType(part, num_parts, lp, type, alt, maxslot) if (*maxslot < 1) *maxslot = 1; break; default: - printf("disksubr.c: can't do type \n", type); + printf("disksubr.c: can't do type %d\n", type); break; } @@ -365,10 +378,10 @@ skip: * NetBSD to live on cluster 0--regardless of the actual order on the * disk. This whole algorithm should probably be changed in the future. */ -char * +static char * read_mac_label(dev, strat, lp, osdep) dev_t dev; - void (*strat)(); + void (*strat)(struct buf *); register struct disklabel *lp; struct cpu_disklabel *osdep; { @@ -456,7 +469,7 @@ done: char * readdisklabel(dev, strat, lp, osdep) dev_t dev; - void (*strat)(); + void (*strat)(struct buf *); register struct disklabel *lp; struct cpu_disklabel *osdep; { @@ -551,9 +564,10 @@ setdisklabel(olp, nlp, openmask, osdep) * MF - 8-14-93 This function is never called. It is here just in case * we want to write dos disklabels some day. Really! */ +int writedisklabel(dev, strat, lp, osdep) dev_t dev; - void (*strat)(); + void (*strat)(struct buf *); register struct disklabel *lp; struct cpu_disklabel *osdep; { @@ -611,7 +625,9 @@ bounds_check_with_label(bp, lp, wlabel) int wlabel; { struct partition *p = lp->d_partitions + DISKPART(bp->b_dev); +#if 0 int labelsect = lp->d_partitions[0].p_offset; +#endif int maxsz = p->p_size; int sz = (bp->b_bcount + DEV_BSIZE - 1) >> DEV_BSHIFT; @@ -663,7 +679,7 @@ bad: void dk_establish(dk, dev) - struct dkdevice *dk; + struct disk *dk; struct device *dev; { /* Empty for now. -- XXX */ diff --git a/sys/arch/mac68k/mac68k/fpu.c b/sys/arch/mac68k/mac68k/fpu.c index 847ae46a235..c5011dbb779 100644 --- a/sys/arch/mac68k/mac68k/fpu.c +++ b/sys/arch/mac68k/mac68k/fpu.c @@ -1,4 +1,4 @@ -/* $NetBSD: fpu.c,v 1.10 1995/08/12 04:10:37 briggs Exp $ */ +/* $NetBSD: fpu.c,v 1.15 1996/05/05 17:19:04 briggs Exp $ */ /* * Copyright (c) 1995 Gordon W. Ross @@ -45,18 +45,28 @@ #include <machine/cpu.h> #include <machine/frame.h> -#include <setjmp.h> - extern int fpu_type; extern int *nofault; -extern int matchbyname __P((struct device *, void *, void *)); +static int fpu_match __P((struct device *, void *, void *)); static void fpu_attach __P((struct device *, struct device *, void *)); static int fpu_probe __P((void)); -struct cfdriver fpucd = { - NULL, "fpu", matchbyname, fpu_attach, - DV_DULL, sizeof(struct device), 0 }; +struct cfattach fpu_ca = { + sizeof(struct device), fpu_match, fpu_attach +}; + +struct cfdriver fpu_cd = { + NULL, "fpu", DV_DULL, 0 +}; + +static int +fpu_match(pdp, match, auxp) + struct device *pdp; + void *match, *auxp; +{ + return 1; +} static char *fpu_descr[] = { #ifdef FPU_EMULATE @@ -76,7 +86,6 @@ fpu_attach(parent, self, args) void *args; { char *descr; - int enab_reg; fpu_type = fpu_probe(); if ((0 <= fpu_type) && (fpu_type <= 2)) @@ -95,11 +104,11 @@ fpu_probe() * We, of course, need to have enough room for either. */ int fpframe[60 / sizeof(int)]; - jmp_buf faultbuf; + label_t faultbuf; u_char b; nofault = (int *) &faultbuf; - if (setjmp(faultbuf)) { + if (setjmp(&faultbuf)) { nofault = (int *) 0; return(0); } @@ -135,7 +144,7 @@ fpu_probe() * Now, restore a NULL state to reset the FPU. */ fpframe[0] = fpframe[1] = 0; - m68881_restore(fpframe); + m68881_restore((struct fpframe *) fpframe); /* * The size of a 68881 IDLE frame is 0x18 diff --git a/sys/arch/mac68k/mac68k/genassym.c b/sys/arch/mac68k/mac68k/genassym.c index 2d6f3f64ac2..89513a01699 100644 --- a/sys/arch/mac68k/mac68k/genassym.c +++ b/sys/arch/mac68k/mac68k/genassym.c @@ -1,4 +1,4 @@ -/* $NetBSD: genassym.c,v 1.14 1995/06/21 03:20:22 briggs Exp $ */ +/* $NetBSD: genassym.c,v 1.18 1996/05/05 06:18:27 briggs Exp $ */ /* * Copyright (c) 1990 The Regents of the University of California. @@ -40,17 +40,23 @@ #include <sys/proc.h> #include <sys/mbuf.h> #include <sys/msgbuf.h> +#include <sys/syscall.h> +#include <sys/systm.h> +#include <sys/types.h> +#include <sys/user.h> + +#include <vm/vm.h> + #include <machine/cpu.h> #include <machine/trap.h> #include <machine/psl.h> #include <machine/reg.h> -#include "clockreg.h" -#include <sys/syscall.h> -#include <vm/vm.h> -#include <sys/user.h> #include <machine/pte.h> -main() +#include "clockreg.h" + +int +main(void) { register struct proc *p = (struct proc *)0; register struct mdproc *mdproc = (struct mdproc *)0; @@ -61,33 +67,32 @@ main() struct vmspace *vms = (struct vmspace *)0; pmap_t pmap = (pmap_t)0; struct pcb *pcb = (struct pcb *)0; - register unsigned i; - - printf("#define\tP_FORW %d\n", &p->p_forw); - printf("#define\tP_BACK %d\n", &p->p_back); - printf("#define\tP_VMSPACE %d\n", &p->p_vmspace); - printf("#define\tP_ADDR %d\n", &p->p_addr); - printf("#define\tP_MD %d\n", &p->p_md); - printf("#define\tP_PID %d\n", &p->p_pid); - printf("#define\tP_PRIORITY %d\n", &p->p_priority); - printf("#define\tP_STAT %d\n", &p->p_stat); - printf("#define\tP_WCHAN %d\n", &p->p_wchan); - printf("#define\tP_FLAG %d\n", &p->p_flag); - printf("#define\tP_MD_REGS %d\n", &p->p_md.md_regs); - printf("#define\tP_MD_FLAGS %d\n", &p->p_md.md_flags); + + printf("#define\tP_FORW %p\n", &p->p_forw); + printf("#define\tP_BACK %p\n", &p->p_back); + printf("#define\tP_VMSPACE %p\n", &p->p_vmspace); + printf("#define\tP_ADDR %p\n", &p->p_addr); + printf("#define\tP_MD %p\n", &p->p_md); + printf("#define\tP_PID %p\n", &p->p_pid); + printf("#define\tP_PRIORITY %p\n", &p->p_priority); + printf("#define\tP_STAT %p\n", &p->p_stat); + printf("#define\tP_WCHAN %p\n", &p->p_wchan); + printf("#define\tP_FLAG %p\n", &p->p_flag); + printf("#define\tP_MD_REGS %p\n", &p->p_md.md_regs); + printf("#define\tP_MD_FLAGS %p\n", &p->p_md.md_flags); printf("#define\tSSLEEP %d\n", SSLEEP); printf("#define\tSRUN %d\n", SRUN); - printf("#define\tMD_REGS %d\n", &mdproc->md_regs); + printf("#define\tMD_REGS %p\n", &mdproc->md_regs); - printf("#define\tPM_STCHG %d\n", &pmap->pm_stchanged); + printf("#define\tPM_STCHG %p\n", &pmap->pm_stchanged); - printf("#define\tVM_PMAP %d\n", &vms->vm_pmap); - printf("#define\tV_SWTCH %d\n", &vm->v_swtch); - printf("#define\tV_TRAP %d\n", &vm->v_trap); - printf("#define\tV_SYSCALL %d\n", &vm->v_syscall); - printf("#define\tV_INTR %d\n", &vm->v_intr); - printf("#define\tV_SOFT %d\n", &vm->v_soft); + printf("#define\tVM_PMAP %p\n", &vms->vm_pmap); + printf("#define\tV_SWTCH %p\n", &vm->v_swtch); + printf("#define\tV_TRAP %p\n", &vm->v_trap); + printf("#define\tV_SYSCALL %p\n", &vm->v_syscall); + printf("#define\tV_INTR %p\n", &vm->v_intr); + printf("#define\tV_SOFT %p\n", &vm->v_soft); printf("#define\tUPAGES %d\n", UPAGES); printf("#define\tUSPACE %d\n", USPACE); @@ -109,9 +114,9 @@ main() #ifdef SYSVSHM printf("#define\tSHMMAXPGS %d\n", SHMMAXPGS); #endif - printf("#define\tU_PROF %d\n", &up->u_stats.p_prof); - printf("#define\tU_PROFSCALE %d\n", &up->u_stats.p_prof.pr_scale); - printf("#define\tRU_MINFLT %d\n", &rup->ru_minflt); + printf("#define\tU_PROF %p\n", &up->u_stats.p_prof); + printf("#define\tU_PROFSCALE %p\n", &up->u_stats.p_prof.pr_scale); + printf("#define\tRU_MINFLT %p\n", &rup->ru_minflt); printf("#define\tT_BUSERR %d\n", T_BUSERR); printf("#define\tT_ADDRERR %d\n", T_ADDRERR); @@ -156,18 +161,18 @@ main() printf("#define\tPG_FRAME %d\n", PG_FRAME); printf("#define\tSIZEOF_PCB %d\n", sizeof(struct pcb)); - printf("#define\tPCB_FLAGS %d\n", &pcb->pcb_flags); - printf("#define\tPCB_PS %d\n", &pcb->pcb_ps); - printf("#define\tPCB_USTP %d\n", &pcb->pcb_ustp); - printf("#define\tPCB_USP %d\n", &pcb->pcb_usp); - printf("#define\tPCB_REGS %d\n", pcb->pcb_regs); - printf("#define\tPCB_ONFAULT %d\n", &pcb->pcb_onfault); - printf("#define\tPCB_FPCTX %d\n", &pcb->pcb_fpregs); + printf("#define\tPCB_FLAGS %p\n", &pcb->pcb_flags); + printf("#define\tPCB_PS %p\n", &pcb->pcb_ps); + printf("#define\tPCB_USTP %p\n", &pcb->pcb_ustp); + printf("#define\tPCB_USP %p\n", &pcb->pcb_usp); + printf("#define\tPCB_REGS %p\n", pcb->pcb_regs); + printf("#define\tPCB_ONFAULT %p\n", &pcb->pcb_onfault); + printf("#define\tPCB_FPCTX %p\n", &pcb->pcb_fpregs); printf("#define\tPCB_TRCB %d\n", 5); - printf("#define\tFR_SP %d\n", &frame->f_regs[15]); - printf("#define\tFR_HW %d\n", &frame->f_sr); - printf("#define\tFR_ADJ %d\n", &frame->f_stackadj); + printf("#define\tFR_SP %p\n", &frame->f_regs[15]); + printf("#define\tFR_HW %p\n", &frame->f_sr); + printf("#define\tFR_ADJ %p\n", &frame->f_stackadj); printf("#define\tB_READ %d\n", B_READ); @@ -179,13 +184,6 @@ main() printf("#define\tSYS_execve %d\n", SYS_execve); printf("#define\tSYS_sigreturn %d\n", SYS_sigreturn); - printf("#define\tINTIOBASE %d\n", INTIOBASE); - printf("#define\tNBBASE %d\n", NBBASE); - printf("#define\tROMBASE %d\n", ROMBASE); - printf("#define\tROMMAPSIZE %d\n", ROMMAPSIZE); - printf("#define\tIIOMAPSIZE %d\n", IIOMAPSIZE); - printf("#define\tNBMAPSIZE %d\n", NBMAPSIZE); - printf("#define\tMMU_68040 %d\n", MMU_68040); printf("#define\tMMU_68030 %d\n", MMU_68030); printf("#define\tMMU_68851 %d\n", MMU_68851); diff --git a/sys/arch/mac68k/mac68k/locore.s b/sys/arch/mac68k/mac68k/locore.s index aa10796e158..36df8da1d59 100644 --- a/sys/arch/mac68k/mac68k/locore.s +++ b/sys/arch/mac68k/mac68k/locore.s @@ -1,4 +1,4 @@ -/* $NetBSD: locore.s,v 1.52 1995/12/11 02:38:08 thorpej Exp $ */ +/* $NetBSD: locore.s,v 1.63 1996/05/17 02:11:47 briggs Exp $ */ /* * Copyright (c) 1988 University of Utah. @@ -77,12 +77,18 @@ * @(#)locore.s 7.11 (Berkeley) 5/9/91 */ +/* + * This is for kvm_mkdb, and should be the address of the beginning + * of the kernel text segment (not necessarily the same as kernbase). + */ + .text + .globl _kernel_text +_kernel_text: + #include "assym.h" #include "vectors.s" #include "macglobals.s" - .text - /* * This is where we wind up if the kernel jumps to location 0. * (i.e. a bogus PC) This is known to immediately follow the vector @@ -112,6 +118,14 @@ Ljmp0panic: _buserr: tstl _nofault | device probe? jeq Lberr | no, handle as usual +#if defined(M68040) + cmpl #MMU_68040,_mmutype | 68040? + jne Lberrfault30 | no, handle as 030 + movl sp@(0x14),_mac68k_buserr_addr + movl _nofault,sp@- | yes, + jbsr _longjmp +#endif +Lberrfault30: movl sp@(0x10),_mac68k_buserr_addr movl _nofault,sp@- | yes, jbsr _longjmp | longjmp(nofault) @@ -553,6 +567,7 @@ Lsigr1: */ /* BARF We must re-configure this. */ .globl _hardclock, _nmihand + .globl _mrg_VBLQueue _spurintr: _lev3intr: @@ -602,21 +617,30 @@ _lev4intr: addql #4,sp rte | return from exception +/* + * We could tweak rtclock_intr and gain 12 cycles on the 020 and 030 by + * saving the status register directly to the stack, but this would lose + * badly on the 040. Aligning the stack takes 10 more cycles than this + * code does, so it's a good compromise. + */ .globl _rtclock_intr -/* MAJORBARF: Fix this routine to be like Mac clocks */ _rtclock_intr: + movl d2,sp@- | save d2 + movw sr,d2 | save SPL + movw #SPL2,sr | raise SPL to splclock() movl a6@(8),a1 | get pointer to frame in via1_intr - movl a1@(64), sp@- | push ps - movl a1@(68), sp@- | push pc - movl sp, sp@- | push pointer to ps, pc + movl a1@(64),sp@- | push ps + movl a1@(68),sp@- | push pc + movl sp,sp@- | push pointer to ps, pc jbsr _hardclock | call generic clock int routine - lea sp@(12), sp | pop params + lea sp@(12),sp | pop params + jbsr _mrg_VBLQueue | give programs in the VBLqueue a chance addql #1,_intrcnt+20 | add another system clock interrupt - addql #1,_cnt+V_INTR | chalk up another interrupt - - movl #1, d0 | clock taken care of + movw d2,sr | restore SPL + movl sp@+,d2 | restore d2 + movl #1,d0 | clock taken care of rts | go back from whence we came _lev7intr: @@ -797,12 +821,6 @@ _esym: .long 0 .globl _edata .globl _etext .globl start - .globl _videoaddr, _videorowbytes - .globl _videobitdepth - .globl _machineid - .globl _videosize - .globl _IOBase - .globl _NuBusBase start: movw #PSL_HIGHIPL,sr | no interrupts. ever. @@ -1040,7 +1058,7 @@ _esigcode: * Primitives */ -#include "m68k/asm.h" +#include <m68k/asm.h> /* * copypage(fromaddr, toaddr) @@ -1446,8 +1464,10 @@ __TBIA: Lmotommu3: #endif pflusha +#if defined(M68020) tstl _mmutype jgt Ltbia851 +#endif movl #DC_CLEAR,d0 movc d0,cacr | invalidate on-chip d-cache Ltbia851: @@ -1476,15 +1496,17 @@ ENTRY(TBIS) rts Lmotommu4: #endif +#if defined(M68020) tstl _mmutype - jgt Ltbis851 + jle Ltbis851 + pflushs #0,#0,a0@ | flush address from both sides + rts +Ltbis851: +#endif pflush #0,#0,a0@ | flush address from both sides movl #DC_CLEAR,d0 movc d0,cacr | invalidate on-chip data cache rts -Ltbis851: - pflushs #0,#0,a0@ | flush address from both sides - rts /* * Invalidate supervisor side of TLB @@ -1501,15 +1523,17 @@ ENTRY(TBIAS) rts Lmotommu5: #endif +#if defined(M68020) tstl _mmutype - jgt Ltbias851 + jle Ltbias851 + pflushs #4,#4 | flush supervisor TLB entries + rts +Ltbias851: +#endif pflush #4,#4 | flush supervisor TLB entries movl #DC_CLEAR,d0 movc d0,cacr | invalidate on-chip d-cache rts -Ltbias851: - pflushs #4,#4 | flush supervisor TLB entries - rts /* * Invalidate user side of TLB @@ -1525,14 +1549,16 @@ ENTRY(TBIAU) .word 0xf518 | yes, pflusha (for now) XXX Lmotommu6: #endif +#if defined(M68020) tstl _mmutype - jgt Ltbiau851 + jle Ltbiau851 pflush #0,#4 | flush user TLB entries - movl #DC_CLEAR,d0 - movc d0,cacr | invalidate on-chip d-cache rts Ltbiau851: +#endif pflush #0,#4 | flush user TLB entries + movl #DC_CLEAR,d0 + movc d0,cacr | invalidate on-chip d-cache rts /* @@ -1767,11 +1793,8 @@ Lm68881rdone: /* * Handle the nitty-gritty of rebooting the machine. - * Basically we just turn off the MMU and jump to the appropriate ROM routine. - * Note that we must be running in an address range that is mapped one-to-one - * logical to physical so that the PC is still valid immediately after the MMU - * is turned off. We have conveniently mapped the last page of physical - * memory this way. + * Basically we just jump to the appropriate ROM routine after mapping + * the ROM into its proper home (back in machdep). */ .globl _doboot, _ROMBase _doboot: @@ -2105,7 +2128,6 @@ _mac68k_vrsrc_cnt: _mac68k_vrsrc_vec: .word 0, 0, 0, 0, 0, 0 _mac68k_buserr_addr: - .long 0 .globl _SONICSPACE, _SONICSPACE_size _SONICSPACE: .space 108123 diff --git a/sys/arch/mac68k/mac68k/macglobals.s b/sys/arch/mac68k/mac68k/macglobals.s index 2891c1ec9e6..46c8086b887 100644 --- a/sys/arch/mac68k/mac68k/macglobals.s +++ b/sys/arch/mac68k/mac68k/macglobals.s @@ -1,4 +1,4 @@ -/* $NetBSD: macglobals.s,v 1.2 1995/08/16 13:18:24 briggs Exp $ */ +/* $NetBSD: macglobals.s,v 1.3 1996/05/14 04:00:48 briggs Exp $ */ /* Copyright 1994 by Bradley A. Grantham, All rights reserved */ @@ -8,8 +8,12 @@ */ .text - .space 0xF00 /* did I miss something? this is a bad fix for + .space 0x2a00 /* did I miss something? this is a bad fix for someone who is writing over low mem */ +/* changed from 0xf00 to 0x2a00 as some routine running before ADBReInit + chooses to write to 0x1fb8. With the trap table from 0x0 to 0x3ff, + this additional space of 0x2a00 should be sufficient (WRU) */ + /* * This has not been included for some time and things seem to still * be working. diff --git a/sys/arch/mac68k/mac68k/machdep.c b/sys/arch/mac68k/mac68k/machdep.c index e83c3415da9..efe4c2eb1b4 100644 --- a/sys/arch/mac68k/mac68k/machdep.c +++ b/sys/arch/mac68k/mac68k/machdep.c @@ -1,4 +1,4 @@ -/* $NetBSD: machdep.c,v 1.82 1995/11/21 04:00:43 briggs Exp $ */ +/* $NetBSD: machdep.c,v 1.105 1996/05/25 14:45:31 briggs Exp $ */ /* * Copyright (c) 1988 University of Utah. @@ -107,6 +107,11 @@ #include <sys/shm.h> #endif +#include <machine/db_machdep.h> +#include <ddb/db_sym.h> +#include <ddb/db_extern.h> + +#include <machine/autoconf.h> #include <machine/cpu.h> #include <machine/reg.h> #include <machine/psl.h> @@ -123,7 +128,7 @@ #include <dev/cons.h> -#include "via.h" +#include <machine/viareg.h> #include "macrom.h" #include "ether.h" @@ -235,8 +240,6 @@ consinit(void) void cpu_startup(void) { - extern struct map *useriomap; - extern long Usrptsize; register caddr_t v, firstaddr; register unsigned i; int vers; @@ -424,7 +427,7 @@ again: for (i = 1; i < ncallout; i++) callout[i - 1].c_next = &callout[i]; - printf("avail mem = %d\n", ptoa(cnt.v_free_count)); + printf("avail mem = %ld\n", ptoa(cnt.v_free_count)); printf("using %d buffers containing %d bytes of memory\n", nbuf, bufpages * CLBYTES); @@ -437,24 +440,11 @@ again: * Configure the system. */ configure(); - - if (current_mac_model->class == MACH_CLASSII) { - /* - * For the bloody Mac II ROMs, we have to map this space - * so that the PRam functions will work. - * Gee, Apple, is that a hard-coded hardware address in - * your code? I think so! (_ReadXPRam + 0x0062) We map - * the first - */ -#ifdef DIAGNOSTIC - printf("I/O map kludge for old ROMs that use hardware %s", - "addresses directly.\n"); -#endif - pmap_map(0x50f00000, 0x50f00000, 0x50f00000 + 0x4000, - VM_PROT_READ|VM_PROT_WRITE); - } } +void doboot __P((void)); +void via_shutdown __P((void)); + /* * Set registers on exec. * XXX Should clear registers except sp, pc, @@ -814,7 +804,7 @@ boot(howto) /* take a snap shot before clobbering any registers */ if (curproc) - savectx(curproc->p_addr); + savectx((struct pcb *) curproc->p_addr); boothowto = howto; if ((howto & RB_NOSYNC) == 0 && waittime < 0) { @@ -830,11 +820,18 @@ boot(howto) */ vfs_shutdown(); +#ifdef notyet /* * If we've been adjusting the clock, the todr * will be out of synch; adjust it now. */ resettodr(); +#else +# ifdef DIAGNOSTIC + printf("NetBSD/mac68k does not trust itself to update the " + "RTC on shutdown.\n"); +# endif +#endif } splhigh(); /* extreme priority */ if (howto & RB_HALT) { @@ -872,6 +869,8 @@ u_long dumpmag = 0x8fca0101; /* magic number */ int dumpsize = 0; /* pages */ long dumplo = 0; /* blocks */ +static int get_max_page __P((void)); + static int get_max_page() { @@ -930,6 +929,10 @@ dumpconf() #define BYTES_PER_DUMP NBPG /* Must be a multiple of pagesize XXX small */ static vm_offset_t dumpspace; +vm_offset_t reserve_dumppages __P((vm_offset_t)); +static int find_range __P((vm_offset_t)); +static int find_next_range __P((vm_offset_t)); + vm_offset_t reserve_dumppages(p) vm_offset_t p; @@ -942,7 +945,7 @@ static int find_range(pa) vm_offset_t pa; { - int i, max = 0; + int i; for (i = 0; i < numranges; i++) { if (low[i] <= pa && pa < high[i]) @@ -982,7 +985,6 @@ dumpsys() daddr_t blkno; int (*dump) __P((dev_t, daddr_t, caddr_t, size_t)); int error = 0; - int c; msgbufmapped = 0; /* don't record dump msgs in msgbuf */ if (dumpdev == NODEV) @@ -996,7 +998,7 @@ dumpsys() dumpconf(); if (dumplo < 0) return; - printf("\ndumping to dev %x, offset %d\n", dumpdev, dumplo); + printf("\ndumping to dev %x, offset %ld\n", dumpdev, dumplo); psize = (*bdevsw[major(dumpdev)].d_psize) (dumpdev); printf("dump "); @@ -1108,6 +1110,9 @@ microtime(tvp) splx(s); } +void straytrap __P((int, int)); + +void straytrap(pc, evec) int pc; int evec; @@ -1118,6 +1123,9 @@ straytrap(pc, evec) int *nofault; +int badaddr __P((caddr_t)); + +int badaddr(addr) register caddr_t addr; { @@ -1139,6 +1147,7 @@ badaddr(addr) return (0); } +int badbaddr(addr) register caddr_t addr; { @@ -1155,11 +1164,63 @@ badbaddr(addr) nofault = (int *) 0; return (1); } - i = *(volatile char *) addr; + i = *(volatile u_int8_t *) addr; + nofault = (int *) 0; + return (0); +} + +int +badwaddr(addr) + register caddr_t addr; +{ + register int i; + label_t faultbuf; + +#ifdef lint + i = *addr; + if (i) + return (0); +#endif + nofault = (int *) &faultbuf; + if (setjmp((label_t *) nofault)) { + nofault = (int *) 0; + return (1); + } + i = *(volatile u_int16_t *) addr; + nofault = (int *) 0; + return (0); +} + +int +badladdr(addr) + register caddr_t addr; +{ + register int i; + label_t faultbuf; + +#ifdef lint + i = *addr; + if (i) + return (0); +#endif + nofault = (int *) &faultbuf; + if (setjmp((label_t *) nofault)) { + nofault = (int *) 0; + return (1); + } + i = *(volatile u_int32_t *) addr; nofault = (int *) 0; return (0); } +void arpintr __P((void)); +void ipintr __P((void)); +void nsintr __P((void)); +void clnlintr __P((void)); +void pppintr __P((void)); +void netintr __P((void)); + +void netintr() { #ifdef INET @@ -1195,24 +1256,11 @@ netintr() #endif } -#if defined(DEBUG) && !defined(PANICBUTTON) -#define PANICBUTTON -#endif - -#ifdef PANICBUTTON -int panicbutton = 1; /* non-zero if panic buttons are enabled */ -int crashandburn = 0; -int candbdelay = 50; /* give em half a second */ - -candbtimer() -{ - crashandburn = 0; -} -#endif - /* * Level 7 interrupts can be caused by the keyboard or parity errors. */ +void nmihand __P((struct frame)); + void nmihand(frame) struct frame frame; @@ -1230,6 +1278,9 @@ nmihand(frame) nmihanddeep = 0; } +void dumpmem __P((u_int *, int)); + +void regdump(frame, sbytes) struct frame *frame; int sbytes; @@ -1269,11 +1320,14 @@ regdump(frame, sbytes) splx(s); } +void dumpmem __P((u_int *, int)); + +void dumpmem(ptr, sz) register u_int *ptr; int sz; { - register int i, val, same; + register int i; sz /= 4; for (i = 0; i < sz; i++) { @@ -1292,19 +1346,18 @@ dumpmem(ptr, sz) * for RAM to be aliased across all memory--or for it to appear that * there is more RAM than there really is. */ +int get_top_of_ram __P((void)); + int get_top_of_ram() { - u_long search = 0xb00bfade; - u_long i, found, store; - char *p, *zero; - return ((mac68k_machine.mach_memsize * (1024 * 1024)) - 4096); } /* * machine dependent system variables. */ +int cpu_sysctl(name, namelen, oldp, oldlenp, newp, newlen, p) int *name; u_int namelen; @@ -1334,6 +1387,7 @@ cpu_sysctl(name, namelen, oldp, oldlenp, newp, newlen, p) /* NOTREACHED */ } +int cpu_exec_aout_makecmds(p, epp) struct proc *p; struct exec_package *epp; @@ -1343,7 +1397,7 @@ cpu_exec_aout_makecmds(p, epp) #ifdef COMPAT_NOMID if (execp->a_midmag == ZMAGIC) /* i.e., MID == 0. */ - return cpu_exec_prep_oldzmagic(p, epp); + return exec_aout_prep_oldzmagic(p, epp); #endif #ifdef COMPAT_SUNOS @@ -1357,55 +1411,10 @@ cpu_exec_aout_makecmds(p, epp) return error; } -#ifdef COMPAT_NOMID -int -cpu_exec_prep_oldzmagic(p, epp) - struct proc *p; - struct exec_package *epp; -{ - struct exec *execp = epp->ep_hdr; - struct exec_vmcmd *ccmdp; - - epp->ep_taddr = 0; - epp->ep_tsize = execp->a_text; - epp->ep_daddr = epp->ep_taddr + execp->a_text; - epp->ep_dsize = execp->a_data + execp->a_bss; - epp->ep_entry = execp->a_entry; - - /* check if vnode is in open for writing, because we want to - * demand-page out of it. if it is, don't do it, for various reasons */ - if ((execp->a_text != 0 || execp->a_data != 0) && - epp->ep_vp->v_writecount != 0) { -#ifdef DIAGNOSTIC - if (epp->ep_vp->v_flag & VTEXT) - panic("exec: a VTEXT vnode has writecount != 0\n"); -#endif - return ETXTBSY; - } - epp->ep_vp->v_flag |= VTEXT; - - /* set up command for text segment */ - NEW_VMCMD(&epp->ep_vmcmds, vmcmd_map_pagedvn, execp->a_text, - epp->ep_taddr, epp->ep_vp, NBPG, /* should NBPG be CLBYTES? */ - VM_PROT_READ | VM_PROT_EXECUTE); - - /* set up command for data segment */ - NEW_VMCMD(&epp->ep_vmcmds, vmcmd_map_pagedvn, execp->a_data, - epp->ep_daddr, epp->ep_vp, - execp->a_text + NBPG, /* should NBPG be CLBYTES? */ - VM_PROT_READ | VM_PROT_WRITE | VM_PROT_EXECUTE); - - /* set up command for bss segment */ - NEW_VMCMD(&epp->ep_vmcmds, vmcmd_map_zero, execp->a_bss, - epp->ep_daddr + execp->a_data, NULLVP, 0, - VM_PROT_READ | VM_PROT_WRITE | VM_PROT_EXECUTE); - - return exec_aout_setup_stack(p, epp); -} -#endif /* COMPAT_NOMID */ - static char *envbuf = NULL; +void initenv __P((u_long, char *)); + void initenv(flag, buf) u_long flag; @@ -1423,6 +1432,8 @@ initenv(flag, buf) } } +static char toupper __P((char)); + static char toupper(c) char c; @@ -1434,6 +1445,8 @@ toupper(c) } } +static long getenv __P((char *)); + static long getenv(str) char *str; @@ -1447,7 +1460,7 @@ getenv(str) * without an "=val". */ - char *s, *s1, *s2; + char *s, *s1; int val, base; s = envbuf; @@ -1495,7 +1508,24 @@ getenv(str) } /* - *ROM Vector information for calling drivers in ROMs + * ROM Vector information for calling drivers in ROMs + * + * Egret, ADBReInit_JTBL and ROMResourceMap were added to these + * tables. Egret probably isn't used anyplace anymore, but I was + * inspired by the default value that was used in "macrom.c". That + * value was most likely non-functional for all but a few systems, + * so putting it here will hopefully localize system-specific ROM + * addresses. Likewise ADBReInit_JTBL and ROMResourceMap are + * currently used on only a few systems, but changes in the Booter + * and changes in ROM Mapping were causing problems. Hopefully + * those problems will be eliminated by having the proper addresses + * for those machines in this table. + * + * What we probably need is a little MacOS Utility that can suck all + * these addresses from the System, tell the user if his/er system + * is currently supported via the romvec tables, and provide a + * formatted output file for inclusion here if it isn't. + * Bob Nestor - <rnestor@metronet.com> */ static romvec_t romvecs[] = { @@ -1503,7 +1533,7 @@ static romvec_t romvecs[] = { /* 0 */ "Mac II class ROMs", (caddr_t) 0x40807002, /* where does ADB interrupt */ - 0, /* PM interrupt (?) */ + (caddr_t) 0x0, /* PM interrupt (?) */ (caddr_t) 0x4080a4d8, /* ADBBase + 130 interrupt; whatzit? */ (caddr_t) 0x40807778, /* CountADBs */ (caddr_t) 0x40807792, /* GetIndADB */ @@ -1511,18 +1541,23 @@ static romvec_t romvecs[] = (caddr_t) 0x408077c4, /* SetADBInfo */ (caddr_t) 0x40807704, /* ADBReInit */ (caddr_t) 0x408072fa, /* ADBOp */ - 0, /* PMgrOp */ + (caddr_t) 0x0, /* PMgrOp */ (caddr_t) 0x4080d6d0, /* WriteParam */ (caddr_t) 0x4080d6fa, /* SetDateTime */ (caddr_t) 0x4080dbe8, /* InitUtil */ (caddr_t) 0x4080dd78, /* ReadXPRam */ (caddr_t) 0x4080dd82, /* WriteXPRam */ (caddr_t) 0x4080ddd6, /* jClkNoMem */ - 0, /* ADBAlternateInit */ - 0, /* InitEgret */ + (caddr_t) 0x0, /* ADBAlternateInit */ + (caddr_t) 0x0, /* Egret */ + (caddr_t) 0x0, /* InitEgret */ + (caddr_t) 0x0, /* ADBReInit_JTBL */ + (caddr_t) 0x0, /* ROMResourceMap List Head */ + (caddr_t) 0x40814c58, /* FixDiv */ + (caddr_t) 0x40814b64, /* FixMul */ }, /* - * Vectors verified for PB 140, PB 170 + * Vectors verified for PB 140, PB 145, PB 170 * (PB 100?) */ { /* 1 */ @@ -1544,7 +1579,12 @@ static romvec_t romvecs[] = (caddr_t) 0x4080b190, /* WriteXPRam */ (caddr_t) 0x4080b1e4, /* jClkNoMem */ (caddr_t) 0x4080a818, /* ADBAlternateInit */ + (caddr_t) 0x40814800, /* Egret */ (caddr_t) 0x408147c4, /* InitEgret */ + (caddr_t) 0x0, /* ADBReInit_JTBL */ + (caddr_t) 0x0, /* ROMResourceMap List Head */ + (caddr_t) 0x4081c406, /* FixDiv */ + (caddr_t) 0x4081c312, /* FixMul */ }, /* * Vectors verified for IIsi, IIvx, IIvi @@ -1552,7 +1592,7 @@ static romvec_t romvecs[] = { /* 2 */ "Mac IIsi class ROMs", (caddr_t) 0x40814912, /* ADB interrupt */ - (caddr_t) 0, /* PM ADB interrupt */ + (caddr_t) 0x0, /* PM ADB interrupt */ (caddr_t) 0x408150f0, /* ADBBase + 130 interrupt; whatzit? */ (caddr_t) 0x4080a360, /* CountADBs */ (caddr_t) 0x4080a37a, /* GetIndADB */ @@ -1560,15 +1600,20 @@ static romvec_t romvecs[] = (caddr_t) 0x4080a3ac, /* SetADBInfo */ (caddr_t) 0x4080a752, /* ADBReInit */ (caddr_t) 0x4080a3dc, /* ADBOp */ - (caddr_t) 0, /* PMgrOp */ - (caddr_t) 0x4080c05c, /* WriteParam */ - (caddr_t) 0x4080c086, /* SetDateTime */ - (caddr_t) 0x4080c5cc, /* InitUtil */ - (caddr_t) 0x4080b186, /* ReadXPRam */ - (caddr_t) 0x4080b190, /* WriteXPRam */ - (caddr_t) 0x4080b1e4, /* jClkNoMem */ - (caddr_t) 0x4080a818, /* ADBAlternateInit */ - (caddr_t) 0x408147c4, /* InitEgret */ + (caddr_t) 0x0, /* PMgrOp */ + (caddr_t) 0x40a0c05c, /* WriteParam */ + (caddr_t) 0x40a0c086, /* SetDateTime */ + (caddr_t) 0x40a0c5cc, /* InitUtil */ + (caddr_t) 0x40a0b186, /* ReadXPRam */ + (caddr_t) 0x40a0b190, /* WriteXPRam */ + (caddr_t) 0x40ab39b6, /* jClkNoMem */ + (caddr_t) 0x40a0a818, /* ADBAlternateInit */ + (caddr_t) 0x40a14800, /* Egret */ + (caddr_t) 0x40a147c4, /* InitEgret */ + (caddr_t) 0x0, /* ADBReInit_JTBL */ + (caddr_t) 0x0, /* ROMResourceMap List Head */ + (caddr_t) 0x40a1c406, /* FixDiv */ + (caddr_t) 0x40a1c312, /* FixMul */ }, /* * Vectors verified for Mac Classic II and LC II @@ -1577,7 +1622,7 @@ static romvec_t romvecs[] = { /* 3 */ "Mac Classic II ROMs", (caddr_t) 0x40a14912, /* ADB interrupt */ - (caddr_t) 0, /* PM ADB interrupt */ + (caddr_t) 0x0, /* PM ADB interrupt */ (caddr_t) 0x40a150f0, /* ADBBase + 130 interrupt; whatzit? */ (caddr_t) 0x40a0a360, /* CountADBs */ (caddr_t) 0x40a0a37a, /* GetIndADB */ @@ -1586,14 +1631,14 @@ static romvec_t romvecs[] = (caddr_t) 0x40a0a752, /* ADBReInit */ (caddr_t) 0x40a0a3dc, /* ADBOp */ (caddr_t) 0, /* PMgrOp */ - (caddr_t) 0x40a0c05c, /* WriteParam */ - (caddr_t) 0x40a0c086, /* SetDateTime */ - (caddr_t) 0x40a0c5cc, /* InitUtil */ - (caddr_t) 0x40a0b186, /* ReadXPRam */ - (caddr_t) 0x40a0b190, /* WriteXPRam */ - (caddr_t) 0x40ab39b6, /* jClkNoMem */ - (caddr_t) 0x40a0a818, /* ADBAlternateInit */ - (caddr_t) 0x40a147c4, /* InitEgret */ + (caddr_t) 0x4080c05c, /* WriteParam */ + (caddr_t) 0x4080c086, /* SetDateTime */ + (caddr_t) 0x4080c5cc, /* InitUtil */ + (caddr_t) 0x4080b186, /* ReadXPRam */ + (caddr_t) 0x4080b190, /* WriteXPRam */ + (caddr_t) 0x408b39b6, /* jClkNoMem */ + (caddr_t) 0x4080a818, /* ADBAlternateInit */ + (caddr_t) 0x408147c4, /* InitEgret */ }, /* * Vectors verified for IIci, Q700 @@ -1601,7 +1646,7 @@ static romvec_t romvecs[] = { /* 4 */ "Mac IIci/Q700 ROMs", (caddr_t) 0x4080a700, /* ADB interrupt */ - (caddr_t) 0, /* PM ADB interrupt */ + (caddr_t) 0x0, /* PM ADB interrupt */ (caddr_t) 0x4080a5aa, /* ADBBase + 130 interrupt; whatzit? */ (caddr_t) 0x4080a360, /* CountADBs */ (caddr_t) 0x4080a37a, /* GetIndADB */ @@ -1609,7 +1654,7 @@ static romvec_t romvecs[] = (caddr_t) 0x4080a3ac, /* SetADBInfo */ (caddr_t) 0x4080a752, /* ADBReInit */ (caddr_t) 0x4080a3dc, /* ADBOp */ - (caddr_t) 0, /* PMgrOp */ + (caddr_t) 0x0, /* PMgrOp */ (caddr_t) 0x4080c05c, /* WriteParam */ (caddr_t) 0x4080c086, /* SetDateTime */ (caddr_t) 0x4080c5cc, /* InitUtil */ @@ -1617,7 +1662,12 @@ static romvec_t romvecs[] = (caddr_t) 0x4080b190, /* WriteXPRam */ (caddr_t) 0x4080b1e4, /* jClkNoMem */ (caddr_t) 0x4080a818, /* ADBAlternateInit */ + (caddr_t) 0x0, /* Egret */ (caddr_t) 0x408147c4, /* InitEgret */ + (caddr_t) 0x0, /* ADBReInit_JTBL */ + (caddr_t) 0x0, /* ROMResourceMap List Head */ + (caddr_t) 0x4081c406, /* FixDiv */ + (caddr_t) 0x4081c312, /* FixMul */ }, /* * Vectors verified for Duo 230, PB 180, PB 165 @@ -1640,9 +1690,14 @@ static romvec_t romvecs[] = (caddr_t) 0x4080c5cc, /* InitUtil */ (caddr_t) 0x4080b186, /* ReadXPRam */ (caddr_t) 0x4080b190, /* WriteXPRam */ - (caddr_t) 0x0, /* jClkNoMem */ + (caddr_t) 0x408b39b2, /* jClkNoMem */ /* From PB180 */ (caddr_t) 0x4080a818, /* ADBAlternateInit */ - (caddr_t) 0x408147c4, /* InitEgret */ + (caddr_t) 0x40814800, /* Egret */ + (caddr_t) 0x40888400, /* InitPwrMgr */ /* From PB180 */ + (caddr_t) 0x0, /* ADBReInit_JTBL */ + (caddr_t) 0x0, /* ROMResourceMap List Head */ + (caddr_t) 0x4081c406, /* FixDiv, wild guess */ + (caddr_t) 0x4081c312, /* FixMul, wild guess */ }, /* * Quadra, Centris merged table (C650, 610, Q800?) @@ -1650,7 +1705,7 @@ static romvec_t romvecs[] = { /* 6 */ "Quadra/Centris ROMs", (caddr_t) 0x408b2dea, /* ADB int */ - 0, /* PM intr */ + (caddr_t) 0x0, /* PM intr */ (caddr_t) 0x408b2c72, /* ADBBase + 130 */ (caddr_t) 0x4080a360, /* CountADBs */ (caddr_t) 0x4080a37a, /* GetIndADB */ @@ -1666,7 +1721,12 @@ static romvec_t romvecs[] = (caddr_t) 0x4080b190, /* WriteXPRam */ (caddr_t) 0x408b39b6, /* jClkNoMem */ (caddr_t) 0x4080a818, /* ADBAlternateInit */ + (caddr_t) 0x40814800, /* Egret */ (caddr_t) 0x408147c4, /* InitEgret */ + (caddr_t) 0x0, /* ADBReInit_JTBL */ + (caddr_t) 0x0, /* ROMResourceMap List Head */ + (caddr_t) 0x4081c406, /* FixDiv, wild guess */ + (caddr_t) 0x4081c312, /* FixMul, wild guess */ }, /* * Quadra 840AV (but ADBBase + 130 intr is unknown) @@ -1675,23 +1735,28 @@ static romvec_t romvecs[] = { /* 7 */ "Quadra AV ROMs", (caddr_t) 0x4080cac6, /* ADB int */ - 0, /* PM int */ - /* !?! */ 0, /* ADBBase + 130 */ + (caddr_t) 0x0, /* PM int */ + (caddr_t) 0x40805cd4, /* ADBBase + 130 */ (caddr_t) 0x40839600, /* CountADBs */ (caddr_t) 0x4083961a, /* GetIndADB */ (caddr_t) 0x40839646, /* GetADBInfo */ (caddr_t) 0x4083964c, /* SetADBInfo */ (caddr_t) 0x408397b8, /* ADBReInit */ (caddr_t) 0x4083967c, /* ADBOp */ - 0, /* PMgrOp */ - (caddr_t) 0x0, /* WriteParam */ - (caddr_t) 0x0, /* SetDateTime */ - (caddr_t) 0x0, /* InitUtil */ - (caddr_t) 0x0, /* ReadXPRam */ - (caddr_t) 0x0, /* WriteXPRam */ - (caddr_t) 0x0, /* jClkNoMem */ - 0, /* ADBAlternateInit */ - 0, /* InitEgret */ + (caddr_t) 0x0, /* PMgrOp */ + (caddr_t) 0x4081141c, /* WriteParam */ + (caddr_t) 0x4081144e, /* SetDateTime */ + (caddr_t) 0x40811930, /* InitUtil */ + (caddr_t) 0x4080b624, /* ReadXPRam */ + (caddr_t) 0x4080b62e, /* WriteXPRam */ + (caddr_t) 0x40806884, /* jClkNoMem */ + (caddr_t) 0x408398c2, /* ADBAlternateInit */ + (caddr_t) 0x4080cada, /* Egret */ + (caddr_t) 0x4080de14, /* InitEgret */ + (caddr_t) 0x408143b8, /* ADBReInit_JTBL */ + (caddr_t) 0x409bdb60, /* ROMResourceMap List Head */ + (caddr_t) 0x4083b3d8, /* FixDiv */ + (caddr_t) 0x4083b2e4, /* FixMul */ }, /* * PB 540 (but ADBBase + 130 intr and PMgrOp is unknown) @@ -1701,22 +1766,27 @@ static romvec_t romvecs[] = "68040 PowerBook ROMs", (caddr_t) 0x400b2efc, /* ADB int */ (caddr_t) 0x400d8e66, /* PM int */ - /* !?! */ 0, /* ADBBase + 130 */ + (caddr_t) 0x0, /* ADBBase + 130 */ (caddr_t) 0x4000a360, /* CountADBs */ (caddr_t) 0x4000a37a, /* GetIndADB */ (caddr_t) 0x4000a3a6, /* GetADBInfo */ (caddr_t) 0x4000a3ac, /* SetADBInfo */ (caddr_t) 0x4000a752, /* ADBReInit */ (caddr_t) 0x4000a3dc, /* ADBOp */ - /* !?! */ 0, /* PmgrOp */ - (caddr_t) 0x4080c05c, /* WriteParam */ - (caddr_t) 0x4080c086, /* SetDateTime */ - (caddr_t) 0x4080c5cc, /* InitUtil */ - (caddr_t) 0x4080b186, /* ReadXPRam */ - (caddr_t) 0x4080b190, /* WriteXPRam */ - (caddr_t) 0x0, /* jClkNoMem */ - (caddr_t) 0x4080a818, /* ADBAlternateInit */ - (caddr_t) 0x408147c4, /* InitEgret */ + (caddr_t) 0x0, /* PmgrOp */ + (caddr_t) 0x4000c05c, /* WriteParam */ + (caddr_t) 0x4000c086, /* SetDateTime */ + (caddr_t) 0x4000c5cc, /* InitUtil */ + (caddr_t) 0x4000b186, /* ReadXPRam */ + (caddr_t) 0x4000b190, /* WriteXPRam */ + (caddr_t) 0x0, /* jClkNoMem */ + (caddr_t) 0x4000a818, /* ADBAlternateInit */ + (caddr_t) 0x40814800, /* Egret */ + (caddr_t) 0x400147c4, /* InitEgret */ + (caddr_t) 0x0, /* ADBReInit_JTBL */ + (caddr_t) 0x0, /* ROMResourceMap List Head */ + (caddr_t) 0x4001c406, /* FixDiv, wild guess */ + (caddr_t) 0x4001c312, /* FixMul, wild guess */ }, /* * Q 605 (but guessing at ADBBase + 130, based on Q 650) @@ -1724,7 +1794,7 @@ static romvec_t romvecs[] = { /* 9 */ "Quadra/Centris 605 ROMs", (caddr_t) 0x408a9b56, /* ADB int */ - 0, /* PM int */ + (caddr_t) 0x0, /* PM int */ (caddr_t) 0x408a99de, /* ADBBase + 130 */ (caddr_t) 0x4080a360, /* CountADBs */ (caddr_t) 0x4080a37a, /* GetIndADB */ @@ -1732,18 +1802,23 @@ static romvec_t romvecs[] = (caddr_t) 0x4080a3ac, /* SetADBInfo */ (caddr_t) 0x4080a752, /* ADBReInit */ (caddr_t) 0x4080a3dc, /* ADBOp */ - 0, /* PmgrOp */ + (caddr_t) 0x0, /* PmgrOp */ (caddr_t) 0x4080c05c, /* WriteParam */ (caddr_t) 0x4080c086, /* SetDateTime */ (caddr_t) 0x4080c5cc, /* InitUtil */ (caddr_t) 0x4080b186, /* ReadXPRam */ (caddr_t) 0x4080b190, /* WriteXPRam */ - (caddr_t) 0x0, /* jClkNoMem */ + (caddr_t) 0x0, /* jClkNoMem */ (caddr_t) 0x4080a818, /* ADBAlternateInit */ + (caddr_t) 0x40814800, /* Egret */ (caddr_t) 0x408147c4, /* InitEgret */ + (caddr_t) 0x0, /* ADBReInit_JTBL */ + (caddr_t) 0x0, /* ROMResourceMap List Head */ + (caddr_t) 0x4081c406, /* FixDiv, wild guess */ + (caddr_t) 0x4081c312, /* FixMul, wild guess */ }, /* - * Vectors verified for Duo 270c + * Vectors verified for Duo 270c, PB150 */ { /* 10 */ "Duo 270C ROMs", @@ -1762,9 +1837,72 @@ static romvec_t romvecs[] = (caddr_t) 0x4080c5cc, /* InitUtil */ (caddr_t) 0x4080b186, /* ReadXPRam */ (caddr_t) 0x4080b190, /* WriteXPRam */ - (caddr_t) 0x0, /* jClkNoMem */ + (caddr_t) 0x408b3bf8, /* jClkNoMem */ /* from PB 150 */ + (caddr_t) 0x4080a818, /* ADBAlternateInit */ + (caddr_t) 0x40814800, /* Egret */ + (caddr_t) 0x408147c4, /* InitEgret */ + (caddr_t) 0x0, /* ADBReInit_JTBL */ + (caddr_t) 0x0, /* ROMResourceMap List Head */ + (caddr_t) 0x4081c406, /* FixDiv, wild guess */ + (caddr_t) 0x4081c312, /* FixMul, wild guess */ + }, + /* + * Vectors verified for Performa/LC 550 + */ + { /* 11 */ + "P/LC 550 ROMs", + (caddr_t) 0x408d16d6, /* ADB interrupt */ + (caddr_t) 0x0, /* PB ADB interrupt */ + (caddr_t) 0x408b2f84, /* ADBBase + 130 interrupt; whatzit? */ + (caddr_t) 0x4080a360, /* CountADBs */ + (caddr_t) 0x4080a37a, /* GetIndADB */ + (caddr_t) 0x4080a3a6, /* GetADBInfo */ + (caddr_t) 0x4080a3ac, /* SetADBInfo */ + (caddr_t) 0x4080a752, /* ADBReInit */ + (caddr_t) 0x4080a3dc, /* ADBOp */ + (caddr_t) 0x0, /* PMgrOp */ + (caddr_t) 0x4080c05c, /* WriteParam */ + (caddr_t) 0x4080c086, /* SetDateTime */ + (caddr_t) 0x4080c5cc, /* InitUtil */ + (caddr_t) 0x4080b186, /* ReadXPRam */ + (caddr_t) 0x4080b190, /* WriteXPRam */ + (caddr_t) 0x408b3c04, /* jClkNoMem */ (caddr_t) 0x4080a818, /* ADBAlternateInit */ + (caddr_t) 0x408d1450, /* Egret */ (caddr_t) 0x408147c4, /* InitEgret */ + (caddr_t) 0x408d24a4, /* ADBReInit_JTBL */ + (caddr_t) 0x4087eb90, /* ROMResourceMap List Head */ + (caddr_t) 0x4081c406, /* FixDiv for P550 */ + (caddr_t) 0x4081c312, /* FixMul for P550 */ + }, + /* + * Vectors for the MacTV + */ + { /* 12 */ + "MacTV ROMs", + (caddr_t) 0x40acfed6, /* ADB interrupt */ + (caddr_t) 0x0, /* PB ADB interrupt */ + (caddr_t) 0x40ab2f84, /* ADBBase + 130 interrupt; whatzit? */ + (caddr_t) 0x40a0a360, /* CountADBs */ + (caddr_t) 0x40a0a37a, /* GetIndADB */ + (caddr_t) 0x40a0a3a6, /* GetADBInfo */ + (caddr_t) 0x40a0a3ac, /* SetADBInfo */ + (caddr_t) 0x40a0a752, /* ADBReInit */ + (caddr_t) 0x40a0a3dc, /* ADBOp */ + (caddr_t) 0x0, /* PMgrOp */ + (caddr_t) 0x40a0c05c, /* WriteParam */ + (caddr_t) 0x40a0c086, /* SetDateTime */ + (caddr_t) 0x40a0c5cc, /* InitUtil */ + (caddr_t) 0x40a0b186, /* ReadXPRam */ + (caddr_t) 0x40a0b190, /* WriteXPRam */ + (caddr_t) 0x40ab3bf4, /* jClkNoMem */ + (caddr_t) 0x40a0a818, /* ADBAlternateInit */ + (caddr_t) 0x40ad1450, /* Egret */ + (caddr_t) 0x40a147c4, /* InitEgret */ + (caddr_t) 0x0, /* ADBReInit_JTBL */ + (caddr_t) 0x0, /* ROMResourceMap List Head */ + (caddr_t) 0x40a1c406, /* FixDiv */ + (caddr_t) 0x40a1c312, /* FixMul */ }, /* Please fill these in! -BG */ }; @@ -1788,7 +1926,7 @@ struct cpu_model_info cpu_models[] = { /* The Centris/Quadra series. */ {MACH_MACQ700, "Quadra", " 700 ", MACH_CLASSQ, &romvecs[4]}, {MACH_MACQ900, "Quadra", " 900 ", MACH_CLASSQ, &romvecs[6]}, - {MACH_MACQ950, "Quadra", " 950 ", MACH_CLASSQ, &romvecs[6]}, + {MACH_MACQ950, "Quadra", " 950 ", MACH_CLASSQ, &romvecs[2]}, {MACH_MACQ800, "Quadra", " 800 ", MACH_CLASSQ, &romvecs[6]}, {MACH_MACQ650, "Quadra", " 650 ", MACH_CLASSQ, &romvecs[6]}, {MACH_MACC650, "Centris", " 650 ", MACH_CLASSQ, &romvecs[6]}, @@ -1796,45 +1934,46 @@ struct cpu_model_info cpu_models[] = { {MACH_MACC610, "Centris", " 610 ", MACH_CLASSQ, &romvecs[6]}, {MACH_MACQ610, "Quadra", " 610 ", MACH_CLASSQ, &romvecs[6]}, {MACH_MACQ630, "Quadra", " 630 ", MACH_CLASSQ, &romvecs[6]}, - {MACH_MACC660AV, "Centris", " 660AV ", MACH_CLASSQ, &romvecs[7]}, - {MACH_MACQ840AV, "Quadra", " 840AV ", MACH_CLASSQ, &romvecs[7]}, + {MACH_MACC660AV, "Centris", " 660AV ", MACH_CLASSAV, &romvecs[7]}, + {MACH_MACQ840AV, "Quadra", " 840AV ", MACH_CLASSAV, &romvecs[7]}, /* The Powerbooks/Duos... */ {MACH_MACPB100, "PowerBook", " 100 ", MACH_CLASSPB, &romvecs[1]}, /* PB 100 has no MMU! */ {MACH_MACPB140, "PowerBook", " 140 ", MACH_CLASSPB, &romvecs[1]}, {MACH_MACPB145, "PowerBook", " 145 ", MACH_CLASSPB, &romvecs[1]}, + {MACH_MACPB150, "PowerBook", " 150 ", MACH_CLASSPB, &romvecs[10]}, {MACH_MACPB160, "PowerBook", " 160 ", MACH_CLASSPB, &romvecs[5]}, {MACH_MACPB165, "PowerBook", " 165 ", MACH_CLASSPB, &romvecs[5]}, {MACH_MACPB165C, "PowerBook", " 165c ", MACH_CLASSPB, &romvecs[5]}, {MACH_MACPB170, "PowerBook", " 170 ", MACH_CLASSPB, &romvecs[1]}, {MACH_MACPB180, "PowerBook", " 180 ", MACH_CLASSPB, &romvecs[5]}, {MACH_MACPB180C, "PowerBook", " 180c ", MACH_CLASSPB, &romvecs[5]}, - {MACH_MACPB210, "PowerBook", " 210 ", MACH_CLASSPB, &romvecs[5]}, - {MACH_MACPB230, "PowerBook", " 230 ", MACH_CLASSPB, &romvecs[5]}, - {MACH_MACPB250, "PowerBook", " 250 ", MACH_CLASSPB, &romvecs[5]}, - {MACH_MACPB270, "PowerBook", " 270 ", MACH_CLASSPB, &romvecs[5]}, - {MACH_MACPB280, "PowerBook", " 280 ", MACH_CLASSPB, &romvecs[5]}, - {MACH_MACPB280C, "PowerBook", " 280C ", MACH_CLASSPB, &romvecs[5]}, + +/* The Duos */ + {MACH_MACPB210, "PowerBook Duo", " 210 ", MACH_CLASSDUO, &romvecs[5]}, + {MACH_MACPB230, "PowerBook Duo", " 230 ", MACH_CLASSDUO, &romvecs[5]}, + {MACH_MACPB250, "PowerBook Duo", " 250 ", MACH_CLASSDUO, &romvecs[5]}, + {MACH_MACPB270, "PowerBook Duo", " 270 ", MACH_CLASSDUO, &romvecs[5]}, + {MACH_MACPB280, "PowerBook Duo", " 280 ", MACH_CLASSDUO, &romvecs[5]}, + {MACH_MACPB280C, "PowerBook Duo", " 280C ", MACH_CLASSDUO, &romvecs[5]}, /* The Performas... */ {MACH_MACP600, "Performa", " 600 ", MACH_CLASSIIvx, &romvecs[2]}, {MACH_MACP460, "Performa", " 460 ", MACH_CLASSLC, &romvecs[3]}, - {MACH_MACP550, "Performa", " 550 ", MACH_CLASSLC, &romvecs[3]}, + {MACH_MACP550, "Performa", " 550 ", MACH_CLASSLC, &romvecs[11]}, + {MACH_MACTV, "TV ", "", MACH_CLASSLC, &romvecs[12]}, /* The LCs... */ {MACH_MACLCII, "LC", " II ", MACH_CLASSLC, &romvecs[3]}, {MACH_MACLCIII, "LC", " III ", MACH_CLASSLC, &romvecs[3]}, - {MACH_MACLC475, "LC", " 475 ", MACH_CLASSLC, &romvecs[3]}, + {MACH_MACLC475, "LC", " 475 ", MACH_CLASSQ, &romvecs[9]}, {MACH_MACLC520, "LC", " 520 ", MACH_CLASSLC, &romvecs[3]}, {MACH_MACLC575, "LC", " 575 ", MACH_CLASSLC, &romvecs[3]}, {MACH_MACCCLASSIC, "Color Classic ", "", MACH_CLASSLC, &romvecs[3]}, /* Does this belong here? */ {MACH_MACCLASSICII, "Classic", " II ", MACH_CLASSLC, &romvecs[3]}, -/* The hopeless ones... */ - {MACH_MACTV, "TV ", "", MACH_CLASSH, NULL}, - /* The unknown one and the end... */ {0, "Unknown", "", MACH_CLASSII, NULL}, {0, NULL, NULL, 0, NULL}, @@ -1856,6 +1995,8 @@ struct cpu_model_info cpu_models[] = { char cpu_model[120]; /* for sysctl() */ +int mach_cputype __P((void)); + int mach_cputype() { @@ -1889,10 +2030,11 @@ identifycpu() printf("%s\n", cpu_model); } +static void get_machine_info __P((void)); + static void get_machine_info() { - char *proc; int i; for (i = 0; cpu_models[i].model_major; i++) { @@ -1909,7 +2051,9 @@ get_machine_info() /* * getenvvars: Grab a few useful variables */ -extern void +void getenvvars __P((void)); + +void getenvvars() { extern u_long bootdev, videobitdepth, videosize; @@ -1996,10 +2140,13 @@ getenvvars() } struct cpu_model_info *current_mac_model; +romvec_t *mrg_MacOSROMVectors = 0; /* * Sets a bunch of machine-specific variables */ +void setmachdep __P((void)); + void setmachdep() { @@ -2023,10 +2170,13 @@ setmachdep() return; /* - * Set up current ROM Glue vectors + * Set up current ROM Glue vectors. Actually now all we do + * is save the address of the ROM Glue Vector table. This gets + * used later when we re-map the vectors from MacOS Address + * Space to NetBSD Address Space. */ if ((mac68k_machine.serial_console & 0x01) == 0) - mrg_setvectors(cpui->rom_vectors); + mrg_MacOSROMVectors = cpui->rom_vectors; /* * Set up any machine specific stuff that we have to before @@ -2053,7 +2203,24 @@ setmachdep() /* Are we disabling something important? */ via_reg(VIA2, vIER) = 0x7f; /* disable VIA2 int */ break; + case MACH_CLASSDUO: + /* + * The Duo definitely does not use a VIA2, but it looks + * like the VIA2 functions might be on the MSC at the RBV + * locations. The rest is copied from the Powerbooks. + */ + VIA2 = 0x13; + IOBase = 0x50f00000; + Via1Base = (volatile u_char *) IOBase; + mac68k_machine.scsi80 = 1; + mac68k_machine.sccClkConst = 115200; + /* Disable everything but PM; we need it. */ + via_reg(VIA1, vIER) = 0x6f; /* disable VIA1 int */ + /* Are we disabling something important? */ + via_reg(VIA2, rIER) = 0x7f; /* disable VIA2 int */ + break; case MACH_CLASSQ: + case MACH_CLASSAV: VIA2 = 1; IOBase = 0x50f00000; Via1Base = (volatile u_char *) IOBase; @@ -2118,42 +2285,18 @@ mac68k_set_io_offsets(base) extern volatile u_char *ASCBase; switch (current_mac_model->class) { - case MACH_CLASSII: - Via1Base = (volatile u_char *) base; - sccA = (volatile u_char *) base + 0x4000; - ASCBase = (volatile u_char *) base + 0x14000; - SCSIBase = base; - break; - case MACH_CLASSPB: - Via1Base = (volatile u_char *) base; - sccA = (volatile u_char *) base + 0x4000; - ASCBase = (volatile u_char *) base + 0x14000; - SCSIBase = base; - break; case MACH_CLASSQ: Via1Base = (volatile u_char *) base; sccA = (volatile u_char *) base + 0xc000; ASCBase = (volatile u_char *) base + 0x14000; SCSIBase = base; break; + case MACH_CLASSII: + case MACH_CLASSPB: + case MACH_CLASSAV: case MACH_CLASSIIci: - Via1Base = (volatile u_char *) base; - sccA = (volatile u_char *) base + 0x4000; - ASCBase = (volatile u_char *) base + 0x14000; - SCSIBase = base; - break; case MACH_CLASSIIsi: - Via1Base = (volatile u_char *) base; - sccA = (volatile u_char *) base + 0x4000; - ASCBase = (volatile u_char *) base + 0x14000; - SCSIBase = base; - break; case MACH_CLASSIIvx: - Via1Base = (volatile u_char *) base; - sccA = (volatile u_char *) base + 0x4000; - ASCBase = (volatile u_char *) base + 0x14000; - SCSIBase = base; - break; case MACH_CLASSLC: Via1Base = (volatile u_char *) base; sccA = (volatile u_char *) base + 0x4000; @@ -2209,7 +2352,7 @@ gray_bar() #endif /* in locore */ -extern int get_pte(u_int addr, u_long pte[2], u_short * psr); +extern int get_pte __P((u_int addr, u_long pte[2], u_short * psr)); /* * LAK (7/24/94): given a logical address, puts the physical address @@ -2217,7 +2360,9 @@ extern int get_pte(u_int addr, u_long pte[2], u_short * psr); * to look through MacOS page tables. */ -u_long +static u_long get_physical __P((u_int, u_long *)); + +static u_long get_physical(u_int addr, u_long * phys) { u_long pte[2], ph; @@ -2265,7 +2410,9 @@ get_physical(u_int addr, u_long * phys) return 1; } -void +static void check_video __P((char *, u_long, u_long)); + +static void check_video(id, limit, maxm) char *id; u_long limit, maxm; @@ -2287,7 +2434,7 @@ check_video(id, limit, maxm) printf("mapping: %s. Does it never end?\n", id); printf(" Forcing VRAM size "); - printf("to a conservative %dK.\n", maxm / 1024); + printf("to a conservative %ldK.\n", maxm/1024); mac68k_vidlen = maxm; break; } @@ -2332,9 +2479,9 @@ get_mapping(void) } } #if 1 - printf("System RAM: %d bytes in %d pages.\n", addr, addr / NBPG); + printf("System RAM: %ld bytes in %ld pages.\n", addr, addr / NBPG); for (i = 0; i < numranges; i++) { - printf(" Low = 0x%x, high = 0x%x\n", low[i], high[i]); + printf(" Low = 0x%lx, high = 0x%lx\n", low[i], high[i]); } #endif @@ -2361,7 +2508,7 @@ get_mapping(void) if (!get_physical(addr, &phys)) { continue; } - len = nblen[nbnumranges - 1]; + len = nbnumranges == 0 ? 0 : nblen[nbnumranges - 1]; /* printf ("0x%x --> 0x%x\n", addr, phys); */ if (nbnumranges > 0 @@ -2370,10 +2517,10 @@ get_mapping(void) nblen[nbnumranges - 1] += 32768; same = 1; } else { - if (nbnumranges > 0 + if ((nbnumranges > 0) && !same - && addr == nblog[nbnumranges - 1] + len - && phys == nbphys[nbnumranges - 1] + len) { + && (addr == nblog[nbnumranges - 1] + len) + && (phys == nbphys[nbnumranges - 1] + len)) { nblen[nbnumranges - 1] += 32768; } else { if (same) { @@ -2396,10 +2543,10 @@ get_mapping(void) nblen[nbnumranges - 1] = -nblen[nbnumranges - 1]; same = 0; } -#if 1 +#if 0 printf("Non-system RAM (nubus, etc.):\n"); for (i = 0; i < nbnumranges; i++) { - printf(" Log = 0x%x, Phys = 0x%x, Len = 0x%x (%ud)\n", + printf(" Log = 0x%lx, Phys = 0x%lx, Len = 0x%lx (%lu)\n", nblog[i], nbphys[i], nblen[i], nblen[i]); } #endif @@ -2423,29 +2570,25 @@ get_mapping(void) } if (i == nbnumranges) { if (0x60000000 <= videoaddr && videoaddr < 0x70000000) { + printf("Checking for Internal Video "); /* * Kludge for IIvx internal video (60b0 0000). * PB 520 (6000 0000) */ - check_video("IIvx/PB kludge", 1 * 1024 * 1024, + check_video("PB/IIvx (0x60?00000)", 1 * 1024 * 1024, 1 * 1024 * 1024); } else if (0x50F40000 <= videoaddr && videoaddr < 0x50FBFFFF) { /* * Kludge for LC internal video */ - check_video("LC video kludge", 512 * 1024, 512 * 1024); - } else if (0x90000000 <= videoaddr && videoaddr < 0xF0000000) { - /* - * Kludge for NuBus Superspace video - */ - check_video("NuBus Super kludge", - 4 * 1024 * 1024, 1 * 1024 * 1024); + check_video("LC video (0x50f40000)", + 512 * 1024, 512 * 1024); } else { printf( " no internal video at address 0 -- " - "videoaddr is 0x%x.\n", videoaddr); + "videoaddr is 0x%lx.\n", videoaddr); } } else { - printf(" Video address = 0x%x\n", videoaddr); + printf(" Video address = 0x%lx\n", videoaddr); printf(" Int video starts at 0x%x\n", mac68k_vidlog); printf(" Length = 0x%x (%d) bytes\n", @@ -2458,6 +2601,7 @@ get_mapping(void) /* * Debugging code for locore page-traversal routine. */ +void printstar __P((void)); void printstar(void) { diff --git a/sys/arch/mac68k/mac68k/macrom.c b/sys/arch/mac68k/mac68k/macrom.c index 09d832a52f3..8e3eead7308 100644 --- a/sys/arch/mac68k/mac68k/macrom.c +++ b/sys/arch/mac68k/mac68k/macrom.c @@ -1,4 +1,4 @@ -/* $NetBSD: macrom.c,v 1.18 1995/10/01 02:29:32 briggs Exp $ */ +/* $NetBSD: macrom.c,v 1.25 1996/05/25 14:45:34 briggs Exp $ */ /*- * Copyright (C) 1994 Bradley A. Grantham @@ -45,9 +45,16 @@ * are similar to the IIsi ("Universal ROMs"?). */ -#include <sys/types.h> #include <sys/param.h> -#include "via.h" +#include <sys/systm.h> +#include <sys/queue.h> + +#include <vm/vm_prot.h> +#include <vm/vm_param.h> +#include <vm/lock.h> +#include <vm/pmap.h> + +#include <machine/viareg.h> #include "macrom.h" #include <sys/malloc.h> #include <machine/cpu.h> @@ -69,13 +76,47 @@ u_char mrg_adbstore[512]; u_char mrg_adbstore2[512]; u_char mrg_adbstore3[512]; +u_char mrg_ExpandMem[512]; /* 0x1ea Bytes minimum */ +u_char mrg_adbstore4[32]; /* 0x16 bytes was the largest I found yet */ +u_char mrg_adbstore5[80]; /* 0x46 bytes minimum */ + +/* + * InitEgret in the AV ROMs requires a low memory global at 0x2010 to be + * pointed at this jump table, which can be found at 0x40803280. It's + * included here so we can do mrg_fixupROMBase on it. + */ -caddr_t mrg_romadbintr = (caddr_t)0x40807002; /* ROM ADB interrupt */ +u_int32_t mrg_AVInitEgretJT[] = { + 0x408055D0, 0x4083985A, 0x40839AB6, 0x4080F180, + 0x4080C0B6, 0x4080C30A, 0x4080C380, 0x4080C482, + 0x4080C496, 0x4080C82E, 0x4080C9FE, 0x4080CA16, + 0x4081D1D6, 0x4085CDDE, 0x4080DF28, 0x4080DFC6, + 0x4080E292, 0x4080E2C0, 0x4080E348, 0x4080E600, + 0x4080E632, 0x4080E6B8, 0x4080E6E4, 0x4080E750, + 0x4080E776, 0x4080E7B4, 0x408B90E0, 0x40852490, + 0x40852280, 0x40852410, 0x4080E8F0, 0x4080E940, + 0x4080E960, 0x4080E9B0, 0x4080E9E0, 0x4080EA50, + 0x4080EA70, 0x4080EB14, 0x4080EBC0, 0x4081D1D6, + 0x40810AB0, 0x40810BDA, 0x40810CCA, 0x40810FF2, + 0x4080FF8C, 0x40810292, 0x40812CE2, 0x40813AAE, + 0x40813AE0, 0x408113DE, 0x40811EB0, 0x40811FA0, + 0x40811DD0, 0x4083B720, 0x408412E0, 0x40841300, + 0x40841380, 0x4083A390, 0x408411F0 +}; + +caddr_t mrg_romadbintr = (caddr_t)0; /* ROM ADB interrupt */ caddr_t mrg_rompmintr = 0; /* ROM PM (?) interrupt */ char *mrg_romident = NULL; /* ident string for ROMs */ caddr_t mrg_ADBAlternateInit = 0; caddr_t mrg_InitEgret = 0; caddr_t mrg_ADBIntrPtr = (caddr_t)0x0; /* ADB interrupt taken from MacOS vector table*/ +caddr_t ROMResourceMap = 0; +extern romvec_t *mrg_MacOSROMVectors; +#if defined(MRG_TEST) || defined(MRG_DEBUG) +caddr_t ResHndls[] = {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}; +#else +caddr_t ResHndls[] = {0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; +#endif /* * Last straw functions; we didn't set them up, so freak out! @@ -83,6 +124,186 @@ caddr_t mrg_ADBIntrPtr = (caddr_t)0x0; /* ADB interrupt taken from MacOS vector * bother to implement them. */ +int +mrg_Delay() +{ +#define TICK_DURATION 16625 + + u_int32_t ticks; + + asm(" movl a0, %0" /* get arguments */ + : + : "g" (ticks) + : "a0" ); + +#if defined(MRG_DEBUG) + printf("mrg: mrg_Delay(%d) = %d ms\n", ticks, ticks * 60); +#endif + delay(ticks * TICK_DURATION); + return(ticks); /* The number of ticks since startup should be + * returned here. Until someone finds a need for + * this, we just return the requested number + * of ticks */ +} + + +void +mrg_VBLQueue() +{ +#define qLink 0 +#define qType 4 +#define vblAddr 6 +#define vblCount 10 +#define vblPhase 12 + + caddr_t vbltask; + caddr_t last_vbltask; + + last_vbltask = (caddr_t) &VBLQueue_head; + vbltask = VBLQueue_head; + while (0 != vbltask) + { + if ( 0 != *((u_int16_t *)(vbltask + vblPhase)) ) + { + *((u_int16_t *)(vbltask + vblPhase)) -= 1; + } else + { + if ( 0 != *((u_int16_t *)(vbltask + vblCount)) ) + { + *((u_int16_t *)(vbltask + vblCount)) -= 1; + } else + { +#if defined(MRG_DEBUG) +printf("mrg: mrg_VBLQueue: calling VBL task at 0x%x with VBLTask block at %p\n", + *((u_int32_t *)(vbltask + vblAddr)), vbltask); +#endif + asm(" movml #0xfffe, sp@- + movl %0, a0 + movl %1, a1 + jbsr a1@ + movml sp@+, #0x7fff" + : + : "g" (vbltask), "g" (*((caddr_t)(vbltask + vblAddr))) + : "a0", "a1"); +#if defined(MRG_DEBUG) + printf("mrg: mrg_VBLQueue: back from VBL task\n"); +#endif + if ( 0 == *((u_int16_t *)(vbltask + vblCount)) ) + { +#if defined(MRG_DEBUG) + printf("mrg: mrg_VBLQueue: removing VBLTask block at %p\n", + vbltask); +#endif + *((u_int32_t *)(last_vbltask + qLink)) = *((u_int32_t *)(vbltask + qLink)); + /* can't free memory from VBLTask block as + * we don't know where it came from */ + if (vbltask == VBLQueue_tail) + { /* last task of do{}while */ + VBLQueue_tail = last_vbltask; + } + } + } + } + last_vbltask = vbltask; + vbltask = (caddr_t) *((u_int32_t *)(vbltask + qLink)); + } /* while */ +} + +void +mrg_init_stub_1() +{ + asm("movml #0xffff, sp@-"); + printf("mrg: hit mrg_init_stub_1\n"); + asm("movml sp@+, #0xffff"); +} + +void +mrg_init_stub_2() +{ + panic("mrg: hit mrg_init_stub_2\n"); +} + +short +Count_Resources(u_int32_t rsrc_type) +{ + rsrc_t *rsrc = (rsrc_t *)ROMResourceMap; + short count = 0; + +#if defined(MRG_DEBUG) + printf("Count_Resources looking for 0x%08lx at 0x%08lx\n", + (long)rsrc_type, (long)rsrc); +#endif +/* + * Return a Count of all the ROM Resouces of the requested type. + */ + if (ROMResourceMap == 0) + panic("Oops! Need ROM Resource Map ListHead address!\n"); + + while (rsrc != 0) { +#if defined(MRG_DEBUG) + if (rsrc_type == 0) + printf("0x%08lx: %04x %04x %04x %04x %08x %08x %08x %04x\n", + (long)rsrc, rsrc->unknown[0], rsrc->unknown[1], + rsrc->unknown[2], rsrc->unknown[3], rsrc->next, + rsrc->body, rsrc->name, rsrc->index); +#endif + if (rsrc_type == 0 || (rsrc_type == rsrc->name)) + count++; + rsrc = rsrc->next == 0 ? 0 : (rsrc_t *)(rsrc->next + ROMBase); + } +#if defined(MRG_DEBUG) + printf("Count_Resources found %d\n", count); +#endif + return count; +} + +caddr_t * +Get_Ind_Resource(u_int32_t rsrc_type, u_int16_t rsrc_ind) +{ + rsrc_t *rsrc = (rsrc_t *)ROMResourceMap; + short i = 0; + +/* + * This routine return the "Handle" to a ROM Resource. Since few + * ROM Resources are called for in NetBSD we keep a small table + * for the Handles we return. (Can't reuse the Handle without + * defeating the purpose for a Handle in the first place!) If + * we get more requests than we have space for, we panic. + */ + + if (ROMResourceMap == 0) + panic("Oops! Need ROM Resource Map ListHead address!\n"); + + while (rsrc != 0) { + if (rsrc_type == rsrc->name) { + rsrc_ind--; + if (rsrc_ind == 0) { + for (i = 0;i < sizeof(ResHndls)/sizeof(caddr_t);i++) + if ((ResHndls[i] == 0) || + (ResHndls[i] == (caddr_t)(rsrc->next + ROMBase))) { + ResHndls[i] = (caddr_t)(rsrc->body + ROMBase); + return (caddr_t *)&ResHndls[i]; + } + panic("ResHndls table to small!\n"); + } + } + rsrc = rsrc->next == 0 ? 0 : (rsrc_t *)(rsrc->next + ROMBase); + } + return (caddr_t *) 0; +} + +void +mrg_FixDiv() +{ + panic("Oops! Need ROM address of _FixDiv for this system!\n"); +} + +void +mrg_FixMul() +{ + panic("Oops! Need ROM address of _FixMul for this system!\n"); +} + void mrg_1sec_timer_tick() { @@ -136,13 +357,14 @@ mrg_adbintr() /* Call ROM ADB Interrupt */ /* Gotta load a1 with VIA address. */ /* ADB int expects it from Mac intr routine. */ asm(" - movml #0xffff, sp@- | better save all registers! + movml #0xffff, sp@- movl %0, a0 movl _VIA, a1 jbsr a0@ - movml sp@+, #0xffff" /* better restore all registers! */ + movml sp@+, #0xffff" : - : "g" (mrg_romadbintr)); + : "g" (mrg_romadbintr) + : "a0", "a1"); #if defined(MRG_TRACE) troff(); @@ -164,13 +386,14 @@ mrg_pmintr() /* Call ROM PM Interrupt */ /* Gotta load a1 with VIA address. */ /* ADB int expects it from Mac intr routine. */ asm(" - movml #0xffff, sp@- | better save all registers! + movml #0xffff, sp@- movl %0, a0 movl _VIA, a1 jbsr a0@ - movml sp@+, #0xffff" /* better restore all registers! */ + movml sp@+, #0xffff" : - : "g" (mrg_rompmintr)); + : "g" (mrg_rompmintr) + : "a0", "a1"); #if defined(MRG_TRACE) troff(); @@ -194,7 +417,6 @@ myowntrap() return(50); } - int mrg_NewPtr() { @@ -205,7 +427,7 @@ mrg_NewPtr() asm(" movl d1, %0 movl d0, %1" - : "=g" (trapword), "=g" (numbytes)); + : "=g" (trapword), "=g" (numbytes) : : "d0", "d1"); #if defined(MRG_SHOWTRAPS) printf("mrg: NewPtr(%d bytes, %sclear, %ssys)", numbytes, @@ -229,9 +451,10 @@ mrg_NewPtr() #endif *(u_int32_t *)ptr = numbytes; ptr += 4; + bzero(ptr, numbytes); /* NewPtr, Clear ! */ } - asm(" movl %0, a0" : : "g" (ptr)); + asm(" movl %0, a0" : : "g" (ptr) : "a0"); return(result); } @@ -241,7 +464,7 @@ mrg_DisposPtr() int result = noErr; caddr_t ptr; - asm(" movl a0, %0" : "=g" (ptr)); + asm(" movl a0, %0" : "=g" (ptr) : : "a0"); #if defined(MRG_SHOWTRAPS) printf("mrg: DisposPtr(%x)\n", ptr); @@ -259,10 +482,9 @@ mrg_DisposPtr() int mrg_GetPtrSize() { - int result = noErr; caddr_t ptr; - asm(" movl a0, %0" : "=g" (ptr)); + asm(" movl a0, %0" : "=g" (ptr) : : "a0"); #if defined(MRG_SHOWTRAPS) printf("mrg: GetPtrSize(%x)\n", ptr); @@ -277,13 +499,12 @@ mrg_GetPtrSize() int mrg_SetPtrSize() { - int result = noErr; caddr_t ptr; int newbytes; asm(" movl a1, %0 movl d0, %1" - : "=g" (ptr), "=g" (newbytes)); + : "=g" (ptr), "=g" (newbytes) : : "d0", "a1"); #if defined(MRG_SHOWTRAPS) printf("mrg: SetPtrSize(%x, %d) failed\n", ptr, newbytes); @@ -298,11 +519,49 @@ mrg_PostEvent() return 0; } +void +mrg_StripAddress() +{ +} + +int +mrg_SetTrapAddress() +{ + extern caddr_t mrg_OStraps[]; + caddr_t ptr; + int trap_num; + + asm(" movl a0, %0 + movl d0, %1" + : "=g" (ptr), "=g" (trap_num) : : "d0", "a0"); + +#if defined(MRG_DEBUG) + printf("mrg: trap 0x%x set to 0x%lx\n", trap_num, (long)ptr); +#endif + mrg_OStraps[trap_num] = ptr; +/* + * If the Trap for Egret was changed, we'd better remember it! + */ + if (trap_num == 0x92) { +#if defined(MRG_DEBUG) + printf("mrg: reconfigured Egret address from 0x%lx to 0x%lx\n", + (long)jEgret, (long)ptr); +#endif + jEgret = (void (*))ptr; + } + return 0; +} + /* * trap jump address tables (different per machine?) * Can I just use the tables stored in the ROMs? * *Is* there a table stored in the ROMs? - * (BTW, this table is initialized for Mac II.) + * We only initialize the A-Traps for the routines we have + * provided ourselves. The routines we will be trying to + * use out of the MacROMs will be initialized at run-time. + * I did this to make the code easier to follow and to keep + * from taking an unexpected side trip into the MacROMs on + * those systems we don't have fully decoded. */ caddr_t mrg_OStraps[256] = { #ifdef __GNUC__ @@ -313,20 +572,17 @@ caddr_t mrg_OStraps[256] = { (caddr_t)mrg_SetPtrSize, (caddr_t)mrg_GetPtrSize, [0x2f] (caddr_t)mrg_PostEvent, - [0x77] (caddr_t)0x40807778, /* CountADBs */ - (caddr_t)0x40807792, /* GetIndADB */ - (caddr_t)0x408077be, /* GetADBInfo */ - (caddr_t)0x408077c4, /* SetADBInfo */ - (caddr_t)0x40807704, /* ADBReInit */ - (caddr_t)0x408072fa, /* ADBOp */ - [0x85] 0, /* PMgrOp (not on II) */ - [0x92] (caddr_t)0x40814800, /* Egret */ + [0x3b] (caddr_t)mrg_Delay, + [0x47] (caddr_t)mrg_SetTrapAddress, + [0x55] (caddr_t)mrg_StripAddress, #else #error "Using a GNU C extension." #endif }; caddr_t mrg_ToolBoxtraps[1024] = { + [0x19c] (caddr_t)mrg_CountResources, + [0x19d] (caddr_t)mrg_GetIndResource, [0x1a0] (caddr_t)mrg_GetResource, [0x1af] (caddr_t)mrg_ResError, }; @@ -355,16 +611,21 @@ mrg_aline_super(struct frame *frame) danprint = 1; #if defined(MRG_DEBUG) - printf(" wd 0x%x", trapword); + printf(" wd 0x%lx", (long)trapword); #endif isOStrap = ! TRAP_TOOLBOX(trapword); trapnum = TRAP_NUM(trapword); - if (danprint) - { - /* Without these print statements, ADBReInit fails on IIsi */ - printf(""); printf(""); - } + if (danprint) { + /* + * Without these print statements, ADBReInit fails on IIsi + * It is unclear why--perhaps a compiler bug? delay()s do not + * work, nor does some assembly similar to the printf calls. + * A printf(""); is sufficient, but gcc -Wall is noisy about + * it, so I figured backspace is harmless enough... + */ + printf("\010"); printf("\010"); + } #if defined(MRG_DEBUG) printf(" %s # 0x%x", isOStrap? "OS" : @@ -376,7 +637,9 @@ mrg_aline_super(struct frame *frame) trapaddr = mrg_OStraps[trapnum]; #if defined(MRG_DEBUG) - printf(" addr 0x%x\n", trapaddr); + printf(" addr 0x%lx\n", (long)trapaddr); + printf(" got: d0 = 0x%8x, a0 = 0x%8x, called from: 0x%8x\n", + frame->f_regs[0], frame->f_regs[8], frame->f_pc ); #endif if(trapaddr == NULL){ printf("unknown %s trap 0x%x, no trap address available\n", @@ -422,6 +685,8 @@ mrg_aline_super(struct frame *frame) troff(); #endif #if defined(MRG_DEBUG) + printf(" result: d0 = 0x%8x, a0 = 0x%8x\n", + d0bucket, a0bucket ); printf(" bk"); #endif @@ -473,69 +738,6 @@ dumptrace() #endif } - /* Set ROM Vectors */ -void -mrg_setvectors(rom) - romvec_t *rom; -{ - if (rom == NULL) - return; /* whoops! ROM vectors not defined! */ - - mrg_romident = rom->romident; - - if (0 != mrg_ADBIntrPtr) { - mrg_romadbintr = mrg_ADBIntrPtr; - printf("mrg_setvectors: using ADBIntrPtr from booter: 0x%08x\n", - mrg_ADBIntrPtr); - } else - mrg_romadbintr = rom->adbintr; - mrg_rompmintr = rom->pmintr; - mrg_ADBAlternateInit = rom->ADBAlternateInit; - mrg_InitEgret = rom->InitEgret; - - /* - * mrg_adbstore becomes ADBBase - */ - *((u_int32_t *)(mrg_adbstore + 0x130)) = (u_int32_t) rom->adb130intr; - - jEgret = (void (*))0x40814800; - - mrg_OStraps[0x77] = rom->CountADBs; - mrg_OStraps[0x78] = rom->GetIndADB; - mrg_OStraps[0x79] = rom->GetADBInfo; - mrg_OStraps[0x7a] = rom->SetADBInfo; - mrg_OStraps[0x7b] = rom->ADBReInit; - mrg_OStraps[0x7c] = rom->ADBOp; - mrg_OStraps[0x85] = rom->PMgrOp; - mrg_OStraps[0x51] = rom->ReadXPRam; - - mrg_OStraps[0x38] = rom->WriteParam; /* WriteParam */ - mrg_OStraps[0x3a] = rom->SetDateTime; /* SetDateTime */ - mrg_OStraps[0x3f] = rom->InitUtil; /* InitUtil */ - mrg_OStraps[0x51] = rom->ReadXPRam; /* ReadXPRam */ - mrg_OStraps[0x52] = rom->WriteXPRam; /* WriteXPRam */ - jClkNoMem = (void (*)) rom->jClkNoMem; - - if (0 == jClkNoMem) { - printf("WARNING: don't have a value for jClkNoMem, please contact: walter@ghpc8.ihf.rwth-aachen.de\n"); - printf("Can't read RTC without it. Using MacOS boot time.\n"); - } - -#if defined(MRG_DEBUG) - printf("mrg: ROM adbintr 0x%08x\n", mrg_romadbintr); - printf("mrg: ROM pmintr 0x%08x\n", mrg_rompmintr); - printf("mrg: OS trap 0x77 (CountADBs) = 0x%08x\n", mrg_OStraps[0x77]); - printf("mrg: OS trap 0x78 (GetIndADB) = 0x%08x\n", mrg_OStraps[0x78]); - printf("mrg: OS trap 0x79 (GetADBInfo) = 0x%08x\n", mrg_OStraps[0x79]); - printf("mrg: OS trap 0x7a (SetADBInfo) = 0x%08x\n", mrg_OStraps[0x7a]); - printf("mrg: OS trap 0x7b (ADBReInit) = 0x%08x\n", mrg_OStraps[0x7b]); - printf("mrg: OS trap 0x7c (ADBOp) = 0x%08x\n", mrg_OStraps[0x7c]); - printf("mrg: OS trap 0x85 (PMgrOp) = 0x%08x\n", mrg_OStraps[0x85]); - printf("mrg: ROM ADBAltInit 0x%08x\n", mrg_ADBAlternateInit); - printf("mrg: ROM InitEgret 0x%08x\n", mrg_InitEgret); -#endif -} - /* To find out if we're okay calling ROM vectors */ int mrg_romready() @@ -550,15 +752,68 @@ extern volatile u_char *sccA; void mrg_init() { - int i; char *findername = "MacBSD FakeFinder"; + int i; +#if defined(MRG_TEST) caddr_t ptr; - caddr_t *handle; + short rcnt; int sizeptr; extern short mrg_ResErr; - + caddr_t *handle; +#endif + + VBLQueue = (u_int16_t) 0; /* No vertical blanking routines in the queue */ + VBLQueue_head = (caddr_t) 0; /* Let's hope that this init happens + VBLQueue_tail = (caddr_t) 0; * before the RTC interrupts are enabled */ + +#if defined(MRG_TEST) + if (ROMResourceMap) { + printf("mrg: testing CountResources\n"); + asm(" clrl sp@- + clrl sp@- + .word 0xa99c + movw sp@+, %0" + : "=g" (rcnt)); + printf("mrg: found %d resources in ROM\n", rcnt); + asm(" clrl sp@- + movl #0x44525652, sp@- + .word 0xa99c + movw sp@+, %0" + : "=g" (rcnt)); + printf("mrg: %d are DRVR resources\n", rcnt); + if (rcnt == 0) + panic("Oops! No DRVR Resources found in ROM\n"); + } +#endif +#if defined(MRG_TEST) + if (ROMResourceMap) { + printf("mrg: testing GetIndResource\n"); + asm(" clrl sp@- + movl #0x44525652, sp@- + movw #0x01, sp@- + .word 0xa99d + movl sp@+, %0" + : "=g" (handle)); + printf("Handle to first DRVR resource is 0x%08lx\n", (long)handle); + printf("DRVR: 0x%08lx -> 0x%08lx -> 0x%08lx\n", + (long)Get_Ind_Resource(0x44525652, 1), + (long)*Get_Ind_Resource(0x44525652, 1), + (long) *((u_int32_t *) *Get_Ind_Resource(0x44525652, 1))); + asm(" clrl sp@- + movl #0x44525652, sp@- + movw #0x02, sp@- + .word 0xa99d + movl sp@+, %0" + : "=g" (handle)); + printf("Handle to second DRVR resource is 0x%08lx\n", (long)handle); + printf("DRVR: 0x%08lx -> 0x%08lx -> 0x%08lx\n", + (long)Get_Ind_Resource(0x44525652, 2), + (long)*Get_Ind_Resource(0x44525652, 2), + (long) *((u_int32_t *) *Get_Ind_Resource(0x44525652, 2))); + } +#endif if(mrg_romready()){ - printf("mrg: '%s' rom glue", mrg_romident); + printf("mrg: '%s' ROM glue", mrg_romident); #if defined(MRG_TRACE) #if defined(MRG_FOLLOW) @@ -592,6 +847,19 @@ mrg_init() printf("mrg: start init\n"); #endif /* expected globals */ + ExpandMem = &mrg_ExpandMem[0]; + *((u_int16_t *)(mrg_ExpandMem + 0x00) ) = 0x0123; /* magic (word) */ + *((u_int32_t *)(mrg_ExpandMem + 0x02) ) = 0x000001ea; /* Length of table (long) */ + *((u_int32_t *)(mrg_ExpandMem + 0x1e0)) = (u_int32_t) &mrg_adbstore4[0]; + + *((u_int32_t *)(mrg_adbstore4 + 0x8)) = (u_int32_t) mrg_init_stub_1; + *((u_int32_t *)(mrg_adbstore4 + 0xc)) = (u_int32_t) mrg_init_stub_2; + *((u_int32_t *)(mrg_adbstore4 + 0x4)) = (u_int32_t) &mrg_adbstore5[0]; + + *((u_int32_t *)(mrg_adbstore5 + 0x08)) = (u_int32_t) 0x00100000; + *((u_int32_t *)(mrg_adbstore5 + 0x0c)) = (u_int32_t) 0x00100000; + *((u_int32_t *)(mrg_adbstore5 + 0x16)) = (u_int32_t) 0x00480000; + ADBBase = &mrg_adbstore[0]; ADBState = &mrg_adbstore2[0]; ADBYMM = &mrg_adbstore3[0]; @@ -615,17 +883,21 @@ mrg_init() Lvl1DT[i] = mrg_lvl1dtpanic; for(i = 0; i < 8; i++) /* Set up fake Lvl2DT */ Lvl2DT[i] = mrg_lvl2dtpanic; - Lvl1DT[0] = (void (*)())mrg_1sec_timer_tick; - Lvl1DT[2] = (void (*)())mrg_romadbintr; - Lvl1DT[4] = (void (*)())mrg_rompmintr; + Lvl1DT[0] = (void (*)(void))mrg_1sec_timer_tick; + Lvl1DT[2] = (void (*)(void))mrg_romadbintr; + Lvl1DT[4] = (void (*)(void))mrg_rompmintr; JADBProc = mrg_jadbprocpanic; /* Fake JADBProc for the time being */ jSwapMMU = mrg_jswapmmupanic; /* Fake jSwapMMU for the time being */ JKybdTask = mrg_jkybdtaskpanic; /* Fake jSwapMMU for the time being */ - jADBOp = (void (*)())mrg_OStraps[0x7c]; /* probably very dangerous */ + jADBOp = (void (*)(void)) + mrg_OStraps[0x7c]; /* probably very dangerous */ mrg_VIA2 = (caddr_t)(Via1Base + VIA2 * 0x2000); /* see via.h */ SCCRd = (caddr_t)(IOBase + sccA); /* ser.c ; we run before serinit */ + /* AV ROMs want this low memory vector to point to a jump table */ + InitEgretJTVec = (u_int32_t **)&mrg_AVInitEgretJT; + switch(mach_cputype()){ case MACH_68020: CPUFlag = 2; break; case MACH_68030: CPUFlag = 3; break; @@ -638,7 +910,7 @@ mrg_init() #if defined(MRG_TEST) printf("Allocating a pointer...\n"); ptr = (caddr_t)NewPtr(1024); - printf("Result is 0x%x.\n", ptr); + printf("Result is 0x%lx.\n", (long)ptr); sizeptr = GetPtrSize((Ptr)ptr); printf("Pointer size is %d\n", sizeptr); printf("Freeing the pointer...\n"); @@ -653,9 +925,9 @@ mrg_init() printf("Getting error code...\n"); i = ResError(); printf("Result code (0xdeadbaaf): %x\n", i); - printf("Getting a Resource...\n"); - handle = GetResource('ADBS', 2); - printf("Handle result from GetResource: 0x%x\n", handle); + printf("Getting an ADBS Resource...\n"); + handle = GetResource(0x41244253, 2); + printf("Handle result from GetResource: 0x%lx\n", (long)handle); printf("Getting error code...\n"); i = ResError(); printf("Result code (-192?) : %d\n", i); @@ -682,9 +954,27 @@ mrg_init() printf("after setting jump points\n"); printf("mrg: end init\n"); #endif + + if (current_mac_model->class == MACH_CLASSII) { + /* + * For the bloody Mac II ROMs, we have to map this space + * so that the PRam functions will work. + * Gee, Apple, is that a hard-coded hardware address in + * your code? I think so! (_ReadXPRam + 0x0062) We map + * the first + */ +#ifdef DIAGNOSTIC + printf("mrg: I/O map kludge for old ROMs that use hardware %s", + "addresses directly.\n"); +#endif + pmap_map(0x50f00000, 0x50f00000, 0x50f00000 + 0x4000, + VM_PROT_READ|VM_PROT_WRITE); + } } -void +static void setup_egret __P((void)); + +static void setup_egret(void) { if (0 != mrg_InitEgret){ @@ -697,16 +987,24 @@ setup_egret(void) jbsr a1@ movml sp@+, a0-a2 " : - : "g" (mrg_InitEgret), "g" (ADBState)); + : "g" (mrg_InitEgret), "g" (ADBState) + : "a0", "a1"); + jEgret = (void (*)) mrg_OStraps[0x92]; /* may have been set in asm() */ } - else printf("Help ... No vector for InitEgret!!"); + else printf("Help ... No vector for InitEgret!!\n"); + +#if defined(MRG_DEBUG) + printf("mrg: ADBIntrVector: 0x%8lx, mrg_ADBIntrVector: 0x%8lx\n", + (long) mrg_romadbintr, + *((long *) 0x19a)); + printf("mrg: EgretOSTrap: 0x%8lx\n", + (long) mrg_OStraps[0x92]); +#endif } void mrg_initadbintr() { - int i; - if (mac68k_machine.do_graybars) printf("Got following HwCfgFlags: 0x%4x, 0x%8x, 0x%8x, 0x%8x\n", HwCfgFlags, HwCfgFlags2, HwCfgFlags3, ADBReInit_JTBL); @@ -734,7 +1032,8 @@ mrg_initadbintr() * set it up. If not, just enable the interrupts (only on * some machines, others are already on from ADBReInit?). */ - if ( (HwCfgFlags3 & 0x0e) == 0x06 ) { + if ( ((HwCfgFlags3 & 0x0e) == 0x06 ) + || ((HwCfgFlags3 & 0x70) == 0x20 )) { if (mac68k_machine.do_graybars) printf("mrg: setup_egret:\n"); @@ -756,54 +1055,172 @@ mrg_initadbintr() } } -#define IS_ROM_ADDR(addr) ( ((u_int) (addr)) > oldbase \ - && ((u_int) (addr)) < oldbase + ROMLEN) - +/* + * NOTE: By eliminating the setvectors routine and moving it's function + * to here we only have to deal with re-locating MacOS Addresses + * once and all in one place. + */ void mrg_fixupROMBase(obase, nbase) caddr_t obase; caddr_t nbase; { - int i; - u_int32_t temp, *p, oldbase, newbase; + u_int32_t oldbase, newbase; + romvec_t *rom; + int i; oldbase = (u_int32_t) obase; newbase = (u_int32_t) nbase; - for (i=0 ; i<256 ; i++) - if (IS_ROM_ADDR(mrg_OStraps[i])) { - temp = (u_int) mrg_OStraps[i]; - temp = (temp - oldbase) + newbase; - mrg_OStraps[i] = (caddr_t) temp; - } - p = (u_int32_t *) mrg_adbstore; - for (i=0 ; i<512/4 ; i++) - if (IS_ROM_ADDR(p[i])) - p[i] = (p[i] - oldbase) + newbase; - - if (IS_ROM_ADDR(jEgret)) - jEgret = (void (*)) ((((u_int) jEgret) - oldbase) + newbase); - - if (IS_ROM_ADDR(mrg_romadbintr)) - mrg_romadbintr = mrg_romadbintr - oldbase + newbase; - - if (IS_ROM_ADDR(mrg_rompmintr)) - mrg_rompmintr = mrg_rompmintr - oldbase + newbase; - - if (IS_ROM_ADDR(mrg_romident)) - mrg_romident = mrg_romident - oldbase + newbase; - - if (IS_ROM_ADDR(jClkNoMem)) - jClkNoMem = jClkNoMem - oldbase + newbase; - - if (IS_ROM_ADDR(mrg_ADBAlternateInit)) - mrg_ADBAlternateInit = mrg_ADBAlternateInit - oldbase + newbase; - - if (IS_ROM_ADDR(mrg_InitEgret)) - mrg_InitEgret = mrg_InitEgret - oldbase + newbase; +/* + * Grab the pointer to the Mac ROM Glue Vector table + */ + rom = mrg_MacOSROMVectors; + + if (rom == NULL) + return; /* whoops! ROM vectors not defined! */ + + mrg_romident = rom->romident; + + if (0 != mrg_ADBIntrPtr) { + mrg_romadbintr = mrg_ADBIntrPtr; + printf("mrg_fixup: using ADBIntrPtr from booter: 0x%08lx\n", + (long)mrg_ADBIntrPtr); + } else + mrg_romadbintr = rom->adbintr == 0 ? + 0 : rom->adbintr - oldbase + newbase; + + mrg_rompmintr = rom->pmintr == 0 ? + 0 : rom->pmintr - oldbase + newbase; + mrg_ADBAlternateInit = rom->ADBAlternateInit == 0 ? + 0 : rom->ADBAlternateInit - oldbase + newbase; + + /* + * mrg_adbstore becomes ADBBase + */ + *((u_int32_t *)(mrg_adbstore + 0x130)) = rom->adb130intr == 0 ? + 0 : (u_int32_t) rom->adb130intr - oldbase + newbase; + + mrg_OStraps[0x77] = rom->CountADBs == 0 ? + 0 : rom->CountADBs - oldbase + newbase; + mrg_OStraps[0x78] = rom->GetIndADB == 0 ? + 0 : rom->GetIndADB - oldbase + newbase; + mrg_OStraps[0x79] = rom-> GetADBInfo == 0 ? + 0 : rom->GetADBInfo - oldbase + newbase; + mrg_OStraps[0x7a] = rom->SetADBInfo == 0 ? + 0 : rom->SetADBInfo - oldbase + newbase; + mrg_OStraps[0x7b] = rom->ADBReInit == 0 ? + 0 : rom->ADBReInit - oldbase + newbase; + mrg_OStraps[0x7c] = rom->ADBOp == 0 ? + 0 : rom->ADBOp - oldbase + newbase; + mrg_OStraps[0x85] = rom->PMgrOp == 0 ? + 0 : rom->PMgrOp - oldbase + newbase; + mrg_OStraps[0x51] = rom->ReadXPRam == 0 ? + 0 : rom->ReadXPRam - oldbase + newbase; + mrg_OStraps[0x38] = rom->WriteParam == 0 ? + 0 : rom->WriteParam - oldbase + newbase;/* WriteParam*/ + mrg_OStraps[0x3a] = rom->SetDateTime == 0 ? + 0 : rom->SetDateTime - oldbase + newbase;/*SetDateTime*/ + mrg_OStraps[0x3f] = rom->InitUtil == 0 ? + 0 : rom->InitUtil - oldbase + newbase; /* InitUtil */ + mrg_OStraps[0x51] = rom->ReadXPRam == 0 ? + 0 : rom->ReadXPRam - oldbase + newbase; /* ReadXPRam */ + mrg_OStraps[0x52] = rom->WriteXPRam == 0 ? + 0 : rom->WriteXPRam - oldbase + newbase;/* WriteXPRam */ + + if (rom->Egret == 0) { + jEgret = 0; + mrg_OStraps[0x92] = 0; + } + else { + jEgret = (void (*))rom->Egret - oldbase + newbase; + mrg_OStraps[0x92] = rom->Egret - oldbase + newbase; + } + mrg_InitEgret = rom->InitEgret == 0 ? + 0 : rom->InitEgret - oldbase + newbase; + + if (rom->jClkNoMem == 0) { + printf("WARNING: don't have a value for jClkNoMem, please contac +t: walter@ghpc8.ihf.rwth-aachen.de\n"); + printf("Can't read RTC without it. Using MacOS boot time.\n"); + jClkNoMem = 0; + } + else + jClkNoMem = (void (*)) rom->jClkNoMem - oldbase + newbase; + /* + * Get the ToolBox Routines we may need. These are + * used in the ADB Initialization of some systems. + * If we don't have the ROM addresses for these routines + * we'll setup to catch the calls in our own dummy + * routines. That way we can politely tell the user + * what we'll need to complete initialization on the system. + */ + mrg_ToolBoxtraps[0x04d] = rom->FixDiv == 0 ? + (caddr_t)mrg_FixDiv : rom->FixDiv - oldbase + newbase; + mrg_ToolBoxtraps[0x068] = rom->FixMul == 0 ? + (caddr_t)mrg_FixMul : rom->FixMul - oldbase + newbase; + + /* + * Some systems also require this to be setup for use in + * ADB Initialization. Use whatever address was provided + * to us in the romvec table for this system. This may + * cause a problem on some systems, and may need a better + * Trap handler in the future. + */ + ADBReInit_JTBL = rom->ADBReInit_JTBL == 0 ? + 0 : (u_int32_t)rom->ADBReInit_JTBL - oldbase + newbase; + + /* + * Setup to trap unexpected access to ADBProc which is used in + * ADB Initialization on some systems. If the correct entry + * point in the ADBInit code is selected, this address is + * re-configured by the ROM during initialization. This feature + * is not currently used by NetBSD. + */ + JADBProc = mrg_jadbprocpanic; + + /* + * Get the address of the first (top) Resource in the ROM. + * This will be the head of a linked list of all Resources + * in the ROM which will be mapped in mrg_InitResources. + */ + ROMResourceMap = rom->ROMResourceMap == 0 ? + 0 : (void (*))rom->ROMResourceMap - oldbase + newbase; + + for (i = 0; i < sizeof(mrg_AVInitEgretJT) / sizeof(mrg_AVInitEgretJT[0]); i++) + mrg_AVInitEgretJT[i] = mrg_AVInitEgretJT[i] == 0 ? + 0 : mrg_AVInitEgretJT[i] - oldbase + newbase; - if (IS_ROM_ADDR(ADBReInit_JTBL)) - ADBReInit_JTBL = ADBReInit_JTBL - oldbase + newbase; -} +#if defined(MRG_DEBUG) + printf("mrg: ROM adbintr 0x%08lx -> 0x%08lx\n", + (long)rom->adbintr, (long)mrg_romadbintr); + printf("mrg: ROM pmintr 0x%08lx -> 0x%08lx\n", + (long)rom->pmintr, (long)mrg_rompmintr); + printf("mrg: OS trap 0x77 (CountADBs) = 0x%08lx -> 0x%08lx\n", + (long)rom->CountADBs, (long)mrg_OStraps[0x77]); + printf("mrg: OS trap 0x78 (GetIndADB) = 0x%08lx -> 0x%08lx\n", + (long)rom->GetIndADB, (long)mrg_OStraps[0x78]); + printf("mrg: OS trap 0x79 (GetADBInfo) = 0x%08lx -> 0x%08lx\n", + (long)rom->GetADBInfo, (long)mrg_OStraps[0x79]); + printf("mrg: OS trap 0x7a (SetADBInfo) = 0x%08lx -> 0x%08lx\n", + (long)rom->SetADBInfo, (long)mrg_OStraps[0x7a]); + printf("mrg: OS trap 0x7b (ADBReInit) = 0x%08lx -> 0x%08lx\n", + (long)rom->ADBReInit, (long)mrg_OStraps[0x7b]); + printf("mrg: OS trap 0x7c (ADBOp) = 0x%08lx -> 0x%08lx\n", + (long)rom->ADBOp, (long)mrg_OStraps[0x7c]); + printf("mrg: OS trap 0x85 (PMgrOp) = 0x%08lx -> 0x%08lx\n", + (long)rom->PMgrOp, (long)mrg_OStraps[0x85]); + printf("mrg: OS trap 0x92 (Egret) = 0x%08lx -> 0x%08lx\n", + (long)rom->Egret, (long)mrg_OStraps[0x92]); + printf("mrg: ROM ADBAltInit 0x%08lx -> 0x%08lx\n", + (long)rom->ADBAlternateInit, (long)mrg_ADBAlternateInit); + printf("mrg: ROM ADBReInit_JTBL 0x%08lx -> 0x%08lx\n", + (long)rom->ADBReInit_JTBL, (long)ADBReInit_JTBL); + printf("mrg: ROM InitEgret 0x%08lx -> 0x%08lx\n", + (long)rom->InitEgret, (long)mrg_InitEgret); + printf("mrg: ROM Resource list-head 0x%08lx -> 0x%08lx\n", + (long)rom->ROMResourceMap, (long)ROMResourceMap); +#endif +} void ADBAlternateInit(void) @@ -817,8 +1234,8 @@ ADBAlternateInit(void) movl %1, a3 jbsr a1@ movml sp@+, a0-a6/d0-d7" - : - : "g" (mrg_ADBAlternateInit), "g" (ADBBase) ); + : "g" (mrg_ADBAlternateInit), "g" (ADBBase) + : "a1", "a3"); } } diff --git a/sys/arch/mac68k/mac68k/macrom.h b/sys/arch/mac68k/mac68k/macrom.h index 28190048a89..14ed51c11ce 100644 --- a/sys/arch/mac68k/mac68k/macrom.h +++ b/sys/arch/mac68k/mac68k/macrom.h @@ -1,4 +1,4 @@ -/* $NetBSD: macrom.h,v 1.5 1995/09/17 21:28:37 briggs Exp $ */ +/* $NetBSD: macrom.h,v 1.9 1996/05/25 14:45:35 briggs Exp $ */ /*- * Copyright (C) 1994 Bradley A. Grantham @@ -32,6 +32,7 @@ #include <sys/types.h> +#include <machine/frame.h> /* Low-memory Globals */ @@ -39,16 +40,16 @@ extern caddr_t ROMBase; /* Base address of ROM space */ extern caddr_t ADBBase; /* Base address of ADB scratch */ extern caddr_t ADBYMM; /* Base address of yet more ADB mem */ extern caddr_t ADBState; /* Base address of ADB scratch ? */ -extern void (*JADBProc)(); /* ADBReInit pre/post processing */ -extern void (*Lvl1DT[8])(); /* VIA1 interrupt table by bit */ -extern void (*Lvl2DT[8])(); /* VIA2 interrupt table by bit */ -extern void (*jADBOp)(); /* low memory pointer to ADBOp */ -extern void (*jUnimplTrap)(); /* Unimplemented trap */ - /* loglob(KbdLast, 0x218) /* addr of last kbd to send */ - /* loglob(KbdType, 0x21E) /* type of last kbd to send */ -extern void (*JKybdTask)(); /* Keyboard task ptr? */ +extern void (*JADBProc) __P((void)); /* ADBReInit pre/post processing */ +extern void (*Lvl1DT[8]) __P((void)); /* VIA1 interrupt table by bit */ +extern void (*Lvl2DT[8]) __P((void)); /* VIA2 interrupt table by bit */ +extern void (*jADBOp) __P((void)); /* low memory pointer to ADBOp */ +extern void (*jUnimplTrap) __P((void)); /* Unimplemented trap */ + /* loglob(KbdLast, 0x218) * addr of last kbd to send */ + /* loglob(KbdType, 0x21E) * type of last kbd to send */ +extern void (*JKybdTask) __P((void)); /* Keyboard task ptr? */ extern u_char CPUFlag; /* Type of CPU in this machine */ -extern void (*MacJmp)(); /* ??? */ +extern void (*MacJmp) __P((void)); /* ??? */ extern u_long Lo3Bytes; /* 0x00ffffff */ extern u_long MinusOne; /* 0xffffffff */ extern u_short MMU32Bit; /* MMU mode; short? */ @@ -63,14 +64,23 @@ extern caddr_t VIA; /* VIA1 base address */ extern caddr_t mrg_VIA2; /* VIA2 base address */ extern caddr_t SCCRd; /* SCC read base address */ extern u_char FinderName[20]; /* FinderName - Pascal string */ -extern void (*jSwapMMU)(); /* Pointer to MMU Swap routine */ -extern void (*jEgret)(); /* Pointer to MMU Swap routine */ +extern void (*jSwapMMU) __P((void)); /* Pointer to MMU Swap routine */ +extern void (*jEgret) __P((void)); /* Pointer to MMU Swap routine */ extern u_int16_t HwCfgFlags; /* Hardware config flags */ extern u_int32_t HwCfgFlags2; /* more hardware config flags */ extern u_int32_t HwCfgFlags3; /* more hardware config flags */ extern u_int32_t ADBReInit_JTBL; /* pointer to patch table */ -extern void (*jClkNoMem)(); /* pointer to ClkNoMem */ +extern void (*jClkNoMem) __P((void)); /* pointer to ClkNoMem */ extern u_char SysParam[20]; /* Place where PRam data gets stored */ +extern caddr_t ExpandMem; /* pointer to Expanded Memory used by */ + /* newer ADB routines (since LCIII) */ +extern u_int16_t VBLQueue; /* Vertical blanking Queue, unused ? */ +extern caddr_t VBLQueue_head; /* Vertical blanking Queue, head */ +extern caddr_t VBLQueue_tail; /* Vertical blanking Queue, tail */ + +extern u_int32_t **InitEgretJTVec; /* pointer to a jump table for */ + /* InitEgret on AV machines */ + /* Types */ typedef caddr_t Ptr; @@ -136,6 +146,13 @@ Handle GetResource( short theID); short ResError( void); +short mrg_CountResources( + u_int32_t type); +short Count_Resources( + u_int32_t rsrc_type); +caddr_t *mrg_GetIndResource( + u_int16_t index, + u_int32_t type); /* Mac ROM Glue globals for BSD kernel */ @@ -158,6 +175,14 @@ void dumptrace(void); /* Stuff for configuring ROM Glue */ +typedef struct rsrc_s { + u_int16_t unknown[4]; /* ???? */ + u_int32_t next; /* pointer to next resoure in list */ + u_int32_t body; /* pointer to resource body? */ + u_int32_t name; /* resource name */ + u_int16_t index; /* ???? */ +} rsrc_t; + typedef struct romvec_s { char *romident; /* just to print it out */ caddr_t adbintr; /* where is ADB interrupt */ @@ -180,13 +205,56 @@ typedef struct romvec_s { caddr_t WriteXPRam; caddr_t jClkNoMem; caddr_t ADBAlternateInit; /* more fundamental than ABDReInit */ + caddr_t Egret; caddr_t InitEgret; /* Set up Buffer for Egret routines */ + caddr_t ADBReInit_JTBL; + caddr_t ROMResourceMap; /* Address of first Resource in linked list */ + caddr_t FixDiv; + caddr_t FixMul; } romvec_t; -void mrg_setvectors(romvec_t *rom_vectors); -int mrg_romready(void); +/* + * Function prototypes. + */ + +/* macrom.c */ +void mrg_setvectors __P((romvec_t *rom_vectors)); +int mrg_romready __P((void)); +caddr_t *Get_Ind_Resource __P((u_int32_t, u_int16_t)); +void mrg_initadbintr __P((void)); +long mrg_adbintr __P((void)); +long mrg_pmintr __P((void)); +void mrg_fixupROMBase __P((caddr_t, caddr_t)); +int mrg_Delay __P((void)); +void mrg_VBLQueue __P((void)); +void mrg_init_stub_1 __P((void)); +void mrg_init_stub_2 __P((void)); +void mrg_1sec_timer_tick __P((void)); +void mrg_lvl1dtpanic __P((void)); +void mrg_lvl2dtpanic __P((void)); +void mrg_jadbprocpanic __P((void)); +void mrg_jswapmmupanic __P((void)); +void mrg_jkybdtaskpanic __P((void)); +void mrg_notrap __P((void)); +int myowntrap __P((void)); +int mrg_NewPtr __P((void)); +int mrg_DisposPtr __P((void)); +int mrg_GetPtrSize __P((void)); +int mrg_SetPtrSize __P((void)); +int mrg_PostEvent __P((void)); +int mrg_SetTrapAddress __P((void)); +void mrg_StripAddress __P((void)); +void mrg_aline_super __P((struct frame *)); +void mrg_aline_user __P((void)); +void mrg_init __P((void)); +void mrg_FixDiv __P((void)); +void mrg_FixMul __P((void)); + +/* machdep.c */ +int mach_cputype __P((void)); + +/* Tracing aids */ - /* Tracing aids */ /* trace all instructions, not just flow changes. */ #define tron() \ asm("movw sr, d0 ; orw #0x8000, d0 ; movw d0, sr" : : : "d0") diff --git a/sys/arch/mac68k/mac68k/macromasm.s b/sys/arch/mac68k/mac68k/macromasm.s index 1c289c3c3bc..a0fa47d1770 100644 --- a/sys/arch/mac68k/mac68k/macromasm.s +++ b/sys/arch/mac68k/mac68k/macromasm.s @@ -1,4 +1,4 @@ -/* $NetBSD: macromasm.s,v 1.7 1995/09/17 21:28:39 briggs Exp $ */ +/* $NetBSD: macromasm.s,v 1.11 1996/05/25 14:45:37 briggs Exp $ */ /*- * Copyright (C) 1994 Bradley A. Grantham @@ -35,7 +35,7 @@ */ -#include "assym.s" +#include "assym.h" /* Define this symbol as global with (v) value */ @@ -98,7 +98,14 @@ loglob(jClkNoMem, 0x54c) /* Pointer to ClkNoMem function */ loglob(PramTransfer, 0x1e4) /* Transfer buffer used with PRam */ loglob(SysParam, 0x1f8) /* Place where PRam data gets stored */ + loglob(ExpandMem, 0x2b6) /* pointer to Expanded Memory used by */ + /* newer ADB routines */ + loglob(VBLQueue, 0x160) /* Vertical blanking Queue, unused ? */ + loglob(VBLQueue_head, 0x162) /* Vertical blanking Queue, head */ + loglob(VBLQueue_tail, 0x166) /* Vertical blanking Queue, tail */ + loglob(InitEgretJTVec, 0x2010) /* pointer to a jump table for */ + /* InitEgret on AV machines */ #if 0 /* I wish I knew what these things were */ @@ -125,6 +132,16 @@ * to the ROMs; none of this is called. */ +/* Initialize Utils, mainly XPRam */ + .global _InitUtil + /* + * void + */ +_InitUtil: + .word 0xa03f + rts + + /* Initialize the ADB ------------------------------------------------------*/ .global _ADBReInit /* @@ -340,6 +357,36 @@ LRE_enter: movw d0, _mrg_ResErr | set current ResMan error pascalret(6) | I hate Pascal. + + +function(mrg_CountResources) +/* Original from WRU: 960120 + * sp@(4) u_int32_t rsrc_type + * sp@(8) u_int16_t nr_of_rsrcs + */ + movl sp@(4), d0 + movl d0, sp@- + jbsr _Count_Resources + addl #4, sp | pop C params + movw d0, sp@(8) | store result + pascalret(4) + +function(mrg_GetIndResource) +/* Original from WRU: 960120 + * sp@(4) u_int16_t rsrc_index + * sp@(6) u_int32_t rsrc_type + * sp@(10) caddr_t *rsrc_handle + */ + movl sp@(6), a0 + clrl d0 + movw sp@(4), d0 + movl d0, sp@- + movl a0, sp@- + jbsr _Get_Ind_Resource + addl #8, sp | pop C params + movl d0, sp@(10) | store result + pascalret(6) + /* * I'd like to take a moment here to talk about the calling convention * for ToolBox routines. Inside Mac "Operating System Utilities," diff --git a/sys/arch/mac68k/mac68k/pmap.c b/sys/arch/mac68k/mac68k/pmap.c index 89fe92aaf42..03e1a18e1d6 100644 --- a/sys/arch/mac68k/mac68k/pmap.c +++ b/sys/arch/mac68k/mac68k/pmap.c @@ -1,4 +1,4 @@ -/* $NetBSD: pmap.c,v 1.22 1995/12/03 13:52:50 briggs Exp $ */ +/* $NetBSD: pmap.c,v 1.25 1996/05/07 01:45:22 briggs Exp $ */ /* * Copyright (c) 1991, 1993 @@ -175,14 +175,6 @@ int pmapdebug = 0x2000; #define PDB_WIRING 0x4000 #define PDB_PVDUMP 0x8000 -#ifdef HAVEVAC -int pmapvacflush = 0; -#define PVF_ENTER 0x01 -#define PVF_REMOVE 0x02 -#define PVF_PROTECT 0x04 -#define PVF_TOTAL 0x80 -#endif - #if defined(M68040) int dowriteback = 1; /* 68040: enable writeback caching */ int dokwriteback = 1; /* 68040: enable writeback caching of kernel AS */ @@ -291,9 +283,6 @@ extern int numranges; extern unsigned long low[8]; extern unsigned long high[8]; -#ifdef HAVEVAC -int pmap_aliasmask; /* seperation at which VA aliasing ok */ -#endif #if defined(M68040) int protostfree; /* prototype (default) free ST map */ #endif @@ -506,7 +495,10 @@ pmap_init() pmap_initialized = TRUE; } -struct pv_entry * +static struct pv_entry *pmap_alloc_pv __P((void)); +static void pmap_free_pv __P((struct pv_entry *)); + +static struct pv_entry * pmap_alloc_pv() { struct pv_page *pvp; @@ -540,12 +532,11 @@ pmap_alloc_pv() return pv; } -void +static void pmap_free_pv(pv) struct pv_entry *pv; { register struct pv_page *pvp; - register int i; pvp = (struct pv_page *) trunc_page(pv); switch (++pvp->pvp_pgi.pgi_nfree) { @@ -564,6 +555,8 @@ pmap_free_pv(pv) } } +void pmap_collect_pv __P((void)); + void pmap_collect_pv() { @@ -797,6 +790,9 @@ pmap_reference(pmap) simple_unlock(&pmap->pm_lock); } +void loadustp __P((vm_offset_t)); +void pmap_activate __P((register pmap_t, struct pcb *)); + void pmap_activate(pmap, pcbp) register pmap_t pmap; @@ -814,6 +810,8 @@ pmap_activate(pmap, pcbp) PMAP_ACTIVATE(pmap, pcbp, pmap == curproc->p_vmspace->vm_map.pmap); } +void pmap_deactivate __P((register pmap_t, struct pcb *)); + void pmap_deactivate(pmap, pcb) register pmap_t pmap; @@ -869,29 +867,6 @@ pmap_remove(pmap, sva, eva) pte = pmap_pte(pmap, sva); while (sva < nssva) { if (pmap_pte_v(pte)) { -#ifdef HAVEVAC - if (pmap_aliasmask) { - /* - * Purge kernel side of VAC to ensure - * we get the correct state of any - * hardware maintained bits. - */ - if (firstpage) { - DCIS(); -#ifdef PMAPSTATS - remove_stats.sflushes++; -#endif - } - /* - * Remember if we may need to - * flush the VAC due to a non-CI - * mapping. - */ - if (!needcflush && !pmap_pte_ci(pte)) - needcflush = TRUE; - - } -#endif pmap_remove_mapping(pmap, sva, pte, flags); firstpage = FALSE; } @@ -904,42 +879,6 @@ pmap_remove(pmap, sva, eva) */ if (firstpage) return; -#ifdef HAVEVAC - /* - * In a couple of cases, we don't need to worry about flushing - * the VAC: - * 1. if this is a kernel mapping, - * we have already done it - * 2. if it is a user mapping not for the current process, - * it won't be there - */ - if (pmap_aliasmask && - (pmap == pmap_kernel() || pmap != curproc->p_vmspace->vm_map.pmap)) - needcflush = FALSE; -#ifdef DEBUG - if (pmap_aliasmask && (pmapvacflush & PVF_REMOVE)) { - if (pmapvacflush & PVF_TOTAL) - DCIA(); - else if (pmap == pmap_kernel()) - DCIS(); - else - DCIU(); - } else -#endif - if (needcflush) { - if (pmap == pmap_kernel()) { - DCIS(); -#ifdef PMAPSTATS - remove_stats.sflushes++; -#endif - } else { - DCIU(); -#ifdef PMAPSTATS - remove_stats.uflushes++; -#endif - } - } -#endif } /* @@ -1057,18 +996,6 @@ pmap_protect(pmap, sva, eva, prot) pte = pmap_pte(pmap, sva); while (sva < nssva) { if (pmap_pte_v(pte) && pmap_pte_prot_chg(pte, isro)) { -#ifdef HAVEVAC - /* - * Purge kernel side of VAC to ensure we - * get the correct state of any hardware - * maintained bits. - * - * XXX do we need to clear the VAC in - * general to reflect the new protection? - */ - if (firstpage && pmap_aliasmask) - DCIS(); -#endif #if defined(M68040) /* * Clear caches if making RO (see section @@ -1101,16 +1028,21 @@ pmap_protect(pmap, sva, eva, prot) sva += NBPG; } } -#if defined(HAVEVAC) && defined(DEBUG) - if (pmap_aliasmask && (pmapvacflush & PVF_PROTECT)) { - if (pmapvacflush & PVF_TOTAL) - DCIA(); - else if (pmap == pmap_kernel()) - DCIS(); - else - DCIU(); - } -#endif +} + +void +mac68k_set_pte(va, pge) + vm_offset_t va; + vm_offset_t pge; +{ +extern vm_offset_t tmp_vpages[]; + register pt_entry_t *pte; + + if (va != tmp_vpages[0]) + return; + + pte = pmap_pte(pmap_kernel(), va); + *pte = (pt_entry_t) pge; } /* @@ -1296,56 +1228,6 @@ pmap_enter(pmap, va, pa, prot, wired) if (!npv->pv_next) enter_stats.secondpv++; #endif -#ifdef HAVEVAC - /* - * Since there is another logical mapping for the - * same page we may need to cache-inhibit the - * descriptors on those CPUs with external VACs. - * We don't need to CI if: - * - * - No two mappings belong to the same user pmaps. - * Since the cache is flushed on context switches - * there is no problem between user processes. - * - * - Mappings within a single pmap are a certain - * magic distance apart. VAs at these appropriate - * boundaries map to the same cache entries or - * otherwise don't conflict. - * - * To keep it simple, we only check for these special - * cases if there are only two mappings, otherwise we - * punt and always CI. - * - * Note that there are no aliasing problems with the - * on-chip data-cache when the WA bit is set. - */ - if (pmap_aliasmask) { - if (pv->pv_flags & PV_CI) { -#ifdef DEBUG - if (pmapdebug & PDB_CACHE) - printf("enter: pa %x already CI'ed\n", - pa); -#endif - checkpv = cacheable = FALSE; - } else if (npv->pv_next || - ((pmap == pv->pv_pmap || - pmap == pmap_kernel() || - pv->pv_pmap == pmap_kernel()) && - ((pv->pv_va & pmap_aliasmask) != - (va & pmap_aliasmask)))) { -#ifdef DEBUG - if (pmapdebug & PDB_CACHE) - printf("enter: pa %x CI'ing all\n", - pa); -#endif - cacheable = FALSE; - pv->pv_flags |= PV_CI; -#ifdef PMAPSTATS - enter_stats.ci++; -#endif - } - } -#endif } splx(s); } @@ -1368,14 +1250,6 @@ pmap_enter(pmap, va, pa, prot, wired) pmap->pm_stats.wired_count++; validate: -#ifdef HAVEVAC - /* - * Purge kernel side of VAC to ensure we get correct state - * of HW bits so we don't clobber them. - */ - if (pmap_aliasmask) - DCIS(); -#endif /* * Build the new PTE. */ @@ -1416,37 +1290,6 @@ validate: *pte = npte; if (!wired && active_pmap(pmap)) TBIS(va); -#ifdef HAVEVAC - /* - * The following is executed if we are entering a second - * (or greater) mapping for a physical page and the mappings - * may create an aliasing problem. In this case we must - * cache inhibit the descriptors involved and flush any - * external VAC. - */ - if (checkpv && !cacheable) { - pmap_changebit(pa, PG_CI, TRUE); - DCIA(); -#ifdef PMAPSTATS - enter_stats.flushes++; -#endif -#ifdef DEBUG - if ((pmapdebug & (PDB_CACHE|PDB_PVDUMP)) == - (PDB_CACHE|PDB_PVDUMP)) - pmap_pvdump(pa); -#endif - } -#ifdef DEBUG - else if (pmapvacflush & PVF_ENTER) { - if (pmapvacflush & PVF_TOTAL) - DCIA(); - else if (pmap == pmap_kernel()) - DCIS(); - else - DCIU(); - } -#endif -#endif #ifdef DEBUG if ((pmapdebug & PDB_WIRING) && pmap != pmap_kernel()) pmap_check_wiring("enter", trunc_page(pmap_pte(pmap, va))); @@ -1630,6 +1473,7 @@ void pmap_copy_page(src, dst) vm_offset_t src, dst; { +void copypage __P((caddr_t, caddr_t)); register vm_offset_t skva, dkva; extern caddr_t CADDR1, CADDR2; @@ -1842,30 +1686,6 @@ pmap_remove_mapping(pmap, va, pte, flags) if (*pte == PG_NV) return; } -#ifdef HAVEVAC - if (pmap_aliasmask && (flags & PRM_CFLUSH)) { - /* - * Purge kernel side of VAC to ensure we get the correct - * state of any hardware maintained bits. - */ - DCIS(); -#ifdef PMAPSTATS - remove_stats.sflushes++; -#endif - /* - * If this is a non-CI user mapping for the current process, - * flush the VAC. Note that the kernel side was flushed - * above so we don't worry about non-CI kernel mappings. - */ - if (pmap == curproc->p_vmspace->vm_map.pmap && - !pmap_pte_ci(pte)) { - DCIU(); -#ifdef PMAPSTATS - remove_stats.uflushes++; -#endif - } - } -#endif pa = pmap_pte_pa(pte); #ifdef DEBUG opte = *pte; @@ -1956,25 +1776,6 @@ pmap_remove_mapping(pmap, va, pte, flags) pmap_free_pv(npv); pv = pa_to_pvh(pa); } -#ifdef HAVEVAC - /* - * If only one mapping left we no longer need to cache inhibit - */ - if (pmap_aliasmask && - pv->pv_pmap && pv->pv_next == NULL && (pv->pv_flags & PV_CI)) { -#ifdef DEBUG - if (pmapdebug & PDB_CACHE) - printf("remove: clearing CI for pa %x\n", pa); -#endif - pv->pv_flags &= ~PV_CI; - pmap_changebit(pa, PG_CI, FALSE); -#ifdef DEBUG - if ((pmapdebug & (PDB_CACHE|PDB_PVDUMP)) == - (PDB_CACHE|PDB_PVDUMP)) - pmap_pvdump(pa); -#endif - } -#endif /* * If this was a PT page we must also remove the * mapping from the associated segment table. @@ -2087,13 +1888,6 @@ pmap_testbit(pa, bit) splx(s); return(TRUE); } -#ifdef HAVEVAC - /* - * Flush VAC to get correct state of any hardware maintained bits. - */ - if (pmap_aliasmask && (bit & (PG_U|PG_M))) - DCIS(); -#endif /* * Not found, check current mappings returning * immediately if found. @@ -2122,7 +1916,9 @@ pmap_changebit(pa, bit, setem) register pt_entry_t *pte, npte; vm_offset_t va; int s; +#if defined(M68040) boolean_t firstpage = TRUE; +#endif #ifdef PMAPSTATS struct chgstats *chgp; #endif @@ -2151,7 +1947,6 @@ pmap_changebit(pa, bit, setem) pmap_attributes[pmap_page_index(pa)] &= ~bit; /* * Loop over all current mappings setting/clearing as appropos - * If setting RO do we need to clear the VAC? */ if (pv->pv_pmap != NULL) { #ifdef DEBUG @@ -2174,16 +1969,6 @@ pmap_changebit(pa, bit, setem) } pte = pmap_pte(pv->pv_pmap, va); -#ifdef HAVEVAC - /* - * Flush VAC to ensure we get correct state of HW bits - * so we don't clobber them. - */ - if (firstpage && pmap_aliasmask) { - firstpage = FALSE; - DCIS(); - } -#endif if (setem) npte = *pte | bit; else @@ -2196,7 +1981,7 @@ pmap_changebit(pa, bit, setem) * flushed (but only once). */ if (firstpage && mmutype == MMU_68040 && - (bit == PG_RO && setem || + ((bit == PG_RO && setem) || (bit & PG_CMASK))) { firstpage = FALSE; DCFP(pa); @@ -2222,16 +2007,6 @@ pmap_changebit(pa, bit, setem) } #endif } -#if defined(HAVEVAC) && defined(DEBUG) - if (setem && bit == PG_RO && (pmapvacflush & PVF_PROTECT)) { - if ((pmapvacflush & PVF_TOTAL) || toflush == 3) - DCIA(); - else if (toflush == 2) - DCIS(); - else - DCIU(); - } -#endif } splx(s); } @@ -2389,7 +2164,7 @@ pmap_enter_ptpage(pmap, va) #endif s = vm_fault(pt_map, va, VM_PROT_READ|VM_PROT_WRITE, FALSE); if (s != KERN_SUCCESS) { - printf("vm_fault(pt_map, %x, RW, 0) -> %d\n", va, s); + printf("vm_fault(pt_map, 0x%lx, RW, 0) -> %d\n",va,s); panic("pmap_enter: vm_fault failed"); } ptpa = pmap_extract(pmap_kernel(), va); @@ -2412,8 +2187,8 @@ pmap_enter_ptpage(pmap, va) if (dowriteback && dokwriteback) #endif if (mmutype == MMU_68040) { - pt_entry_t *pte = pmap_pte(pmap_kernel(), va); #ifdef DEBUG + pt_entry_t *pte = pmap_pte(pmap_kernel(), va); if ((pmapdebug & PDB_PARANOIA) && (*pte & PG_CCB) == 0) printf("%s PT no CCB: kva=%x ptpa=%x pte@%x=%x\n", pmap == pmap_kernel() ? "Kernel" : "User", @@ -2434,7 +2209,7 @@ pmap_enter_ptpage(pmap, va) do { if (pv->pv_pmap == pmap_kernel() && pv->pv_va == va) break; - } while (pv = pv->pv_next); + } while ((pv = pv->pv_next) != NULL); } #ifdef DEBUG if (pv == NULL) diff --git a/sys/arch/mac68k/mac68k/pmap_bootstrap.c b/sys/arch/mac68k/mac68k/pmap_bootstrap.c index 06b81922821..3ab1bc826c4 100644 --- a/sys/arch/mac68k/mac68k/pmap_bootstrap.c +++ b/sys/arch/mac68k/mac68k/pmap_bootstrap.c @@ -1,4 +1,4 @@ -/* $NetBSD: pmap_bootstrap.c,v 1.18 1996/02/10 23:12:46 briggs Exp $ */ +/* $NetBSD: pmap_bootstrap.c,v 1.26 1996/05/18 18:54:52 briggs Exp $ */ /* * Copyright (c) 1991, 1993 @@ -40,14 +40,22 @@ */ #include <sys/param.h> +#include <sys/systm.h> #include <sys/msgbuf.h> #include <sys/reboot.h> + +#include <vm/vm.h> + #include <machine/pte.h> #include <mac68k/mac68k/clockreg.h> #include <machine/vmparam.h> #include <machine/cpu.h> +#include <machine/pmap.h> +#include <machine/autoconf.h> -#include <vm/vm.h> +#include <ufs/mfs/mfs_extern.h> + +#include "macrom.h" #define PA2VA(v, t) (t)((u_int)(v) - firstpa) @@ -76,10 +84,14 @@ extern int nbnumranges; extern u_long nbphys[]; extern u_long nblog[]; extern signed long nblen[]; -#define VIDMAPSIZE btoc(mac68k_round_page(mac68k_vidlen)) -extern u_int32_t mac68k_vidlen; +#define VIDMAPSIZE btoc(mac68k_round_page(vidlen)) extern u_int32_t mac68k_vidlog; extern u_int32_t mac68k_vidphys; +extern u_int32_t videoaddr; +extern u_int32_t videorowbytes; +extern u_int32_t videosize; +static int vidlen; +static u_int32_t newvideoaddr; extern caddr_t ROMBase; @@ -100,19 +112,24 @@ struct msgbuf *msgbufp; * This is called with the MMU either on or off. If it's on, we assume * that it's mapped with the same PA <=> LA mapping that we eventually * want. The page sizes and the protections will be wrong, anyway. + * + * nextpa is the first address following the loaded kernel. On a IIsi + * on 12 May 1996, that was 0xf9000 beyond firstpa. */ void pmap_bootstrap(nextpa, firstpa) vm_offset_t nextpa; register vm_offset_t firstpa; { - vm_offset_t kstpa, kptpa, vidpa, iiopa, nbpa, rompa; + vm_offset_t kstpa, kptpa, vidpa, iiopa, rompa; vm_offset_t kptmpa, lkptpa, p0upa; u_int nptpages, kstsize; int i; register st_entry_t protoste, *ste; register pt_entry_t protopte, *pte, *epte; + vidlen = ((videosize >> 16) & 0xffff) * videorowbytes + PGOFSET; + /* * Calculate important physical addresses: * @@ -125,9 +142,6 @@ pmap_bootstrap(nextpa, firstpa) * vidpa internal video space for some machines * PT pages VIDMAPSIZE pages * - * nbpa NuBus IO space - * PT pages NBMAPSIZE pages - * * rompa ROM space * PT pages ROMMAPSIZE pages * @@ -153,12 +167,10 @@ pmap_bootstrap(nextpa, firstpa) nextpa += kstsize * NBPG; kptpa = nextpa; nptpages = Sysptsize + - (IIOMAPSIZE + NBMAPSIZE + ROMMAPSIZE + VIDMAPSIZE - + NPTEPG - 1) / NPTEPG; + (IIOMAPSIZE + ROMMAPSIZE + VIDMAPSIZE + NPTEPG - 1) / NPTEPG; nextpa += nptpages * NBPG; vidpa = nextpa - VIDMAPSIZE * sizeof(pt_entry_t); - nbpa = vidpa - NBMAPSIZE * sizeof(pt_entry_t); - rompa = nbpa - ROMMAPSIZE * sizeof(pt_entry_t); + rompa = vidpa - ROMMAPSIZE * sizeof(pt_entry_t); iiopa = rompa - IIOMAPSIZE * sizeof(pt_entry_t); kptmpa = nextpa; nextpa += NBPG; @@ -168,7 +180,7 @@ pmap_bootstrap(nextpa, firstpa) nextpa += USPACE; if (nextpa > high[0]) { - printf("Failure in BSD boot. nextpa=0x%x, high[0]=0x%x.\n", + printf("Failure in BSD boot. nextpa=0x%lx, high[0]=0x%lx.\n", nextpa, high[0]); printf("You're hosed! Try booting with 32-bit addressing "); printf("enabled in the memory control panel.\n"); @@ -363,29 +375,21 @@ pmap_bootstrap(nextpa, firstpa) */ pte = PA2VA(iiopa, u_int *); epte = PA2VA(rompa, u_int *); - protopte = INTIOBASE | PG_RW | PG_CI | PG_V; + protopte = IOBase | PG_RW | PG_CI | PG_V; while (pte < epte) { *pte++ = protopte; protopte += NBPG; } pte = PA2VA(rompa, u_int *); - epte = PA2VA(nbpa, u_int *); + epte = PA2VA(vidpa, u_int *); protopte = ((u_int) ROMBase) | PG_RO | PG_V; while (pte < epte) { *pte++ = protopte; protopte += NBPG; } - pte = PA2VA(nbpa, u_int *); - epte = pte + NBMAPSIZE; - protopte = NBBASE | PG_RW | PG_V | PG_CI; - while (pte < epte) { - *pte++ = protopte; - protopte += NBPG; - } - - if (mac68k_vidlog) { + if (vidlen) { pte = PA2VA(vidpa, u_int *); epte = pte + VIDMAPSIZE; protopte = mac68k_vidphys | PG_RW | PG_V | PG_CI; @@ -413,18 +417,18 @@ pmap_bootstrap(nextpa, firstpa) Sysmap = (pt_entry_t *)mac68k_ptob(nptpages * NPTEPG); IOBase = (u_long)mac68k_ptob(nptpages*NPTEPG - - (IIOMAPSIZE + ROMMAPSIZE + NBMAPSIZE + VIDMAPSIZE)); + (IIOMAPSIZE + ROMMAPSIZE + VIDMAPSIZE)); ROMBase = (char *)mac68k_ptob(nptpages*NPTEPG - - (ROMMAPSIZE + NBMAPSIZE + VIDMAPSIZE)); - - NuBusBase = (u_long)mac68k_ptob(nptpages*NPTEPG - - (NBMAPSIZE + VIDMAPSIZE)); + (ROMMAPSIZE + VIDMAPSIZE)); - if (mac68k_vidlog) - mac68k_vidlog = (u_int32_t) + if (vidlen) { + newvideoaddr = (u_int32_t) mac68k_ptob(nptpages*NPTEPG - VIDMAPSIZE) + (mac68k_vidphys & PGOFSET); + if (mac68k_vidlog) + mac68k_vidlog = newvideoaddr; + } /* * Setup u-area for process 0. @@ -534,7 +538,8 @@ pmap_bootstrap(nextpa, firstpa) * Allocate some fixed, special purpose kernel virtual addresses */ { - vm_offset_t va = virtual_avail; + extern vm_offset_t tmp_vpages[]; + vm_offset_t va = virtual_avail; CADDR1 = (caddr_t)va; va += NBPG; @@ -542,6 +547,8 @@ pmap_bootstrap(nextpa, firstpa) va += NBPG; vmmap = (caddr_t)va; va += NBPG; + tmp_vpages[0] = va; + va += NBPG; msgbufp = (struct msgbuf *)va; va += NBPG; virtual_avail = reserve_dumppages(va); @@ -552,9 +559,8 @@ void bootstrap_mac68k(tc) int tc; { + extern void zs_init __P((void)); extern caddr_t esym; - extern u_long videoaddr, boothowto; - u_long newvideoaddr = 0; vm_offset_t nextpa; caddr_t oldROMBase; @@ -562,12 +568,13 @@ bootstrap_mac68k(tc) printf("Bootstrapping NetBSD/mac68k.\n"); oldROMBase = ROMBase; + mac68k_vidphys = videoaddr; if ((tc & 0x80000000) && (mmutype == MMU_68030)) { if (mac68k_machine.do_graybars) printf("Getting mapping from MMU.\n"); - get_mapping(); + (void) get_mapping(); if (mac68k_machine.do_graybars) printf("Done.\n"); } else { @@ -577,16 +584,16 @@ bootstrap_mac68k(tc) low[0] = 0; high[0] = mac68k_machine.mach_memsize * (1024 * 1024); if (mac68k_machine.do_graybars) - printf("Faked range to byte 0x%x.\n", high[0]); + printf("Faked range to byte 0x%lx.\n", high[0]); } - nextpa = load_addr + ((int)esym + NBPG - 1) & PG_FRAME; + nextpa = load_addr + (((int)esym + NBPG - 1) & PG_FRAME); #if MFS if (boothowto & RB_MINIROOT) { int v; boothowto |= RB_DFLTROOT; nextpa = mac68k_round_page(nextpa); - if ((v = mfs_initminiroot(nextpa-load_addr)) == 0) { + if ((v = mfs_initminiroot((caddr_t) nextpa-load_addr)) == 0) { printf("Error loading miniroot.\n"); } printf("Loaded %d byte miniroot.\n", v); @@ -602,25 +609,34 @@ bootstrap_mac68k(tc) if (mac68k_machine.do_graybars) printf("Pmap bootstrapped.\n"); - if (mac68k_vidlog) - newvideoaddr = mac68k_vidlog; - else { - if (NBBASE <= videoaddr && videoaddr <= NBTOP) - newvideoaddr = videoaddr - NBBASE + NuBusBase; - else - panic("Don't know how to relocate video!\n"); - } + if (!vidlen) + panic("Don't know how to relocate video!\n"); if (mac68k_machine.do_graybars) - printf("Moving ROMBase from 0x%x to 0x%x.\n", + printf("Moving ROMBase from %p to %p.\n", oldROMBase, ROMBase); mrg_fixupROMBase(oldROMBase, ROMBase); if (mac68k_machine.do_graybars) - printf("Video address 0x%x -> 0x%x.\n", - videoaddr, newvideoaddr); + printf("Video address 0x%lx -> 0x%lx.\n", + (unsigned long) videoaddr, + (unsigned long) newvideoaddr); mac68k_set_io_offsets(IOBase); + + /* + * If the serial ports are going (for console or 'echo'), then + * we need to make sure the IO change gets propagated properly. + * This resets the base addresses for the 8530 (serial) driver. + * + * WARNING!!! No printfs() (etc) BETWEEN zs_init() and the end + * of this function (where we start using the MMU, so the new + * address is correct. + */ + if ( (mac68k_machine.serial_boot_echo) + || (mac68k_machine.serial_console)) + zs_init(); + videoaddr = newvideoaddr; } diff --git a/sys/arch/mac68k/mac68k/pram.c b/sys/arch/mac68k/mac68k/pram.c index 219bde3b888..b3cb6e6db11 100644 --- a/sys/arch/mac68k/mac68k/pram.c +++ b/sys/arch/mac68k/mac68k/pram.c @@ -1,4 +1,4 @@ -/* $NetBSD: pram.c,v 1.6 1995/09/17 18:50:17 briggs Exp $ */ +/* $NetBSD: pram.c,v 1.8 1996/03/31 14:21:03 scottr Exp $ */ /*- * Copyright (C) 1993 Allen K. Briggs, Chris P. Caputo, @@ -35,7 +35,8 @@ /* #include "stand.h" */ -#include "via.h" +#include <sys/types.h> +#include <machine/viareg.h> #include "pram.h" #include "macrom.h" diff --git a/sys/arch/mac68k/mac68k/pram.h b/sys/arch/mac68k/mac68k/pram.h index 4cdfa358a5c..41c563d2ede 100644 --- a/sys/arch/mac68k/mac68k/pram.h +++ b/sys/arch/mac68k/mac68k/pram.h @@ -1,4 +1,4 @@ -/* $NetBSD: pram.h,v 1.2 1995/02/16 00:02:12 briggs Exp $ */ +/* $NetBSD: pram.h,v 1.3 1996/05/05 06:18:53 briggs Exp $ */ /* * RTC toolkit version 1.08b, copyright 1995, erik vogan @@ -69,3 +69,6 @@ void writeExtPram(char *addr, int loc, int len); unsigned long getPramTime(void); void setPramTime(unsigned long time); +unsigned long pram_readtime __P((void)); +void pram_settime __P((unsigned long)); + diff --git a/sys/arch/mac68k/mac68k/swapgeneric.c b/sys/arch/mac68k/mac68k/swapgeneric.c index 23c7405ee5a..dcf49c5f7ae 100644 --- a/sys/arch/mac68k/mac68k/swapgeneric.c +++ b/sys/arch/mac68k/mac68k/swapgeneric.c @@ -1,4 +1,4 @@ -/* $NetBSD: swapgeneric.c,v 1.7 1995/08/09 03:22:50 briggs Exp $ */ +/* $NetBSD: swapgeneric.c,v 1.9 1996/05/05 06:18:56 briggs Exp $ */ /* * Copyright (c) 1982, 1986 Regents of the University of California. @@ -43,6 +43,10 @@ #include <sys/device.h> #include <sys/disklabel.h> +#include <dev/cons.h> + +#include <ufs/ffs/ffs_extern.h> + #include <machine/pte.h> #include "sd.h" @@ -57,10 +61,10 @@ struct swdevt swdevt[] = { }; #if NSD > 0 -extern struct cfdriver sdcd; +extern struct cfdriver sd_cd; #endif #if NCD > 0 -extern struct cfdriver cdcd; +extern struct cfdriver cd_cd; #endif struct genericconf { @@ -69,17 +73,20 @@ struct genericconf { dev_t gc_root; } genericconf[] = { #if NSD > 0 - { &sdcd, "sd", makedev(4,0) }, + { &sd_cd, "sd", makedev(4,0) }, #endif #if NCD > 0 - { &cdcd, "cd", makedev(6,0) }, + { &cd_cd, "cd", makedev(6,0) }, #endif { 0 } }; -extern int ffs_mountroot(); -int (*mountroot)() = ffs_mountroot; +void setconf __P((void)); +void doboot __P((void)); +void gets __P((char *)); +int (*mountroot) __P((void)) = ffs_mountroot; +void setconf() { register struct genericconf *gc = NULL; @@ -136,7 +143,7 @@ verybad: printf("\n"); goto doswap; } - printf(" -- hit any key to reboot\n", root_swap); + printf(" -- hit any key to reboot\n"); cngetc(); doboot(); printf(" Automatic reboot failed.\n"); @@ -160,6 +167,7 @@ doswap: rootdev = dumpdev; } +void gets(cp) char *cp; { diff --git a/sys/arch/mac68k/mac68k/sys_machdep.c b/sys/arch/mac68k/mac68k/sys_machdep.c index a7bd11a0dbb..062480901d6 100644 --- a/sys/arch/mac68k/mac68k/sys_machdep.c +++ b/sys/arch/mac68k/mac68k/sys_machdep.c @@ -1,4 +1,4 @@ -/* $NetBSD: sys_machdep.c,v 1.7 1995/10/10 03:48:33 briggs Exp $ */ +/* $NetBSD: sys_machdep.c,v 1.9 1996/05/05 06:18:58 briggs Exp $ */ /* * Copyright (c) 1990 The Regents of the University of California. @@ -69,18 +69,18 @@ * @(#)sys_machdep.c 7.7 (Berkeley) 5/7/91 */ -#include "sys/param.h" -#include "sys/systm.h" -#include "sys/ioctl.h" -#include "sys/file.h" -#include "sys/time.h" -#include "sys/proc.h" -#include "sys/uio.h" -#include "sys/kernel.h" -#include "sys/mtio.h" -#include "sys/buf.h" -#include "sys/trace.h" -#include "sys/mount.h" +#include <sys/param.h> +#include <sys/systm.h> +#include <sys/ioctl.h> +#include <sys/file.h> +#include <sys/time.h> +#include <sys/proc.h> +#include <sys/uio.h> +#include <sys/kernel.h> +#include <sys/mtio.h> +#include <sys/buf.h> +#include <sys/trace.h> +#include <sys/mount.h> #include <sys/syscallargs.h> @@ -140,7 +140,7 @@ vdoualarm(arg) } #endif -#include "machine/cpu.h" +#include <machine/cpu.h> /* XXX should be in an include file somewhere */ #define CC_PURGE 1 @@ -149,7 +149,12 @@ vdoualarm(arg) #define CC_EXTPURGE 0x80000000 /* XXX end should be */ +int cachectl __P((int, caddr_t, int)); +void DCIU __P((void)); +void ICIA __P((void)); + /*ARGSUSED1*/ +int cachectl(req, addr, len) int req; caddr_t addr; @@ -182,10 +187,12 @@ int sys_sysarch(p, v, retval) void *v; register_t *retval; { +#if 0 struct sysarch_args /* { syscallarg(int) op; syscallarg(char *) parms; } */ *uap = v; +#endif return ENOSYS; } diff --git a/sys/arch/mac68k/mac68k/trap.c b/sys/arch/mac68k/mac68k/trap.c index 9798285fb7e..1c5598aa824 100644 --- a/sys/arch/mac68k/mac68k/trap.c +++ b/sys/arch/mac68k/mac68k/trap.c @@ -1,4 +1,4 @@ -/* $NetBSD: trap.c,v 1.32.2.2 1995/10/15 03:49:49 briggs Exp $ */ +/* $NetBSD: trap.c,v 1.37 1996/05/05 06:54:23 briggs Exp $ */ /* * Copyright (c) 1988 University of Utah. @@ -56,11 +56,14 @@ #include <sys/ktrace.h> #endif +#include <machine/db_machdep.h> #include <machine/psl.h> #include <machine/trap.h> #include <machine/cpu.h> #include <machine/reg.h> +#include <m68k/fpe/fpu_emulate.h> + #include <vm/vm.h> #include <vm/pmap.h> @@ -125,6 +128,21 @@ int mmupid = -1; #define MDB_ISPID(p) (p) == mmupid #endif +/* trap() and syscall() only called from locore */ +void trap __P((int, unsigned, register unsigned, struct frame)); +void syscall __P((register_t, struct frame)); + +static inline void userret __P((register struct proc *, + register struct frame *, + u_quad_t, u_int, int)); + +#if defined(M68040) +static int writeback __P((struct frame *, int)); +#if DEBUG +static int dumpssw __P((register u_short)); +#endif +#endif + /* * Trap and syscall both need the following work done before returning * to user mode. @@ -194,7 +212,7 @@ again: "pid %d(%s): writeback aborted in sigreturn, pc=%x\n", p->p_pid, p->p_comm, fp->f_pc, faultaddr); #endif - } else if (sig = writeback(fp, fromtrap)) { + } else if ((sig = writeback(fp, fromtrap))) { beenhere = 1; oticks = p->p_sticks; trapsignal(p, sig, faultaddr); @@ -211,6 +229,7 @@ again: * System calls are broken out for efficiency. */ /*ARGSUSED*/ +void trap(type, code, v, frame) int type; unsigned code; @@ -223,9 +242,8 @@ trap(type, code, v, frame) #endif register struct proc *p; register int i; - u_int ncode, ucode; + u_int ucode; u_quad_t sticks; - int s; cnt.v_trap++; p = curproc; @@ -242,7 +260,7 @@ trap(type, code, v, frame) dopanic: printf("trap type %d, code = %x, v= %x\n", type, code, v); #ifdef DDB - if (kdb_trap(type, &frame)) + if (kdb_trap(type, (db_regs_t *) &frame)) return; #endif regdump(&frame, 128); @@ -384,7 +402,7 @@ copyfault: (caddr_t) frame.f_pc != trap12 && (caddr_t) frame.f_pc != trap15 && (caddr_t) frame.f_pc != illinst)) { - if (kdb_trap(type, &frame)) + if (kdb_trap(type, (db_regs_t *) &frame)) return; } #endif @@ -429,16 +447,19 @@ copyfault: case T_SSIR: /* Software interrupt */ case T_SSIR|T_USER: if (ssir & SIR_SERIAL) { + void zssoft __P((int)); siroff(SIR_SERIAL); cnt.v_soft++; zssoft(0); } if (ssir & SIR_NET) { + void netintr __P((void)); siroff(SIR_NET); cnt.v_soft++; netintr(); } if (ssir & SIR_CLOCK) { + void softclock __P((void)); siroff(SIR_CLOCK); cnt.v_soft++; softclock(); @@ -542,7 +563,7 @@ copyfault: if (p->p_addr->u_pcb.pcb_onfault) goto copyfault; printf("vm_fault(%x, %x, %x, 0) -> %x\n", - map, va, ftype, rv); + (unsigned) map, (unsigned) va, ftype, rv); printf(" type %x, code [mmu,,ssw]: %x\n", type, code); goto dopanic; @@ -577,6 +598,7 @@ char wberrstr[] = "WARNING: pid %d(%s) writeback [%s] failed, pc=%x fa=%x wba=%x wbd=%x\n"; #endif +static int writeback(fp, docachepush) struct frame *fp; int docachepush; @@ -811,6 +833,7 @@ writeback(fp, docachepush) } #ifdef DEBUG +static int dumpssw(ssw) register u_short ssw; { @@ -837,6 +860,7 @@ dumpssw(ssw) f7tm[ssw & SSW4_TMMASK]); } +int dumpwb(num, s, a, d) int num; u_short s; @@ -862,6 +886,7 @@ dumpwb(num, s, a, d) /* * Process a system call. */ +void syscall(code, frame) register_t code; struct frame frame; @@ -1006,6 +1031,8 @@ syscall(code, frame) #endif } +void child_return __P((struct proc *, struct frame)); + /* * Process the tail end of a fork() for the child. */ diff --git a/sys/arch/mac68k/mac68k/via.c b/sys/arch/mac68k/mac68k/via.c index 0659f39de71..36a96f89492 100644 --- a/sys/arch/mac68k/mac68k/via.c +++ b/sys/arch/mac68k/mac68k/via.c @@ -1,4 +1,4 @@ -/* $NetBSD: via.c,v 1.36 1996/02/03 22:50:19 briggs Exp $ */ +/* $NetBSD: via.c,v 1.44 1996/05/25 16:31:04 briggs Exp $ */ /*- * Copyright (C) 1993 Allen K. Briggs, Chris P. Caputo, @@ -41,22 +41,28 @@ #include <sys/param.h> #include <sys/kernel.h> #include <sys/syslog.h> +#include <sys/systm.h> #include <machine/cpu.h> #include <machine/frame.h> -#include "via.h" +#include <machine/viareg.h> #include "ncrscsi.h" #include "ncr96scsi.h" -static void via1_noint __P((int)); +static void via1_noint __P((void *)); static void via2_noint __P((void *)); -void mrg_adbintr(), mrg_pmintr(), rtclock_intr(), profclock(); -void via2_nubus_intr(); -void rbv_nubus_intr(); -void slot_noint(void *, int); +static void slot_ignore __P((void *, int)); +static void slot_noint __P((void *, int)); +void mrg_adbintr __P((void *)); +void mrg_pmintr __P((void *)); +void rtclock_intr __P((void *)); +void profclock __P((void *)); +void via1_intr __P((struct frame *)); +void via2_nubus_intr __P((void *)); +void rbv_nubus_intr __P((void *)); int VIA2 = 1; /* default for II, IIx, IIcx, SE/30. */ -void (*via1itab[7])()={ +void (*via1itab[7]) __P((void *))={ via1_noint, via1_noint, mrg_adbintr, @@ -66,7 +72,7 @@ void (*via1itab[7])()={ rtclock_intr, }; /* VIA1 interrupt handler table */ -void (*via2itab[7])()={ +void (*via2itab[7]) __P((void *))={ via2_noint, via2_nubus_intr, via2_noint, @@ -81,22 +87,31 @@ void *via2iarg[7] = { (void *) 4, (void *) 5, (void *) 6 }; /* Arg array for VIA2 interrupts. */ -void via2_intr(struct frame *); -void rbv_intr(struct frame *); +void via2_intr __P((struct frame *)); +void rbv_intr __P((struct frame *)); void (*real_via2_intr)(struct frame *); -/* nubus slot interrupt routines */ -void (*slotitab[6])(void *, int) = { +/* + * Nubus slot interrupt routines and parameters for slots 9-15. Note + * that for simplicity of code, "v2IRQ0" for internal video is treated + * as a slot 15 interrupt; this slot is quite ficticious in real-world + * Macs. See also GMGH, pp. 165-167, and "Monster, Loch Ness." + */ +void (*slotitab[7]) __P((void *, int)) = { slot_noint, slot_noint, slot_noint, slot_noint, slot_noint, - slot_noint + slot_noint, + slot_noint /* int_video_intr */ }; -void *slotptab[6]; +void *slotptab[7] = { + (void *) 0, (void *) 1, (void *) 2, (void *) 3, + (void *) 4, (void *) 5, (void *) 6 +}; void VIA_initialize() @@ -152,102 +167,125 @@ VIA_initialize() } real_via2_intr = rbv_intr; via2itab[1] = rbv_nubus_intr; + add_nubus_intr(0, slot_ignore, NULL); } } void -via1_intr(struct frame *fp) +via1_intr(fp) + struct frame *fp; { register unsigned char intbits; + register unsigned char mask; register unsigned char bitnum; - intbits = via_reg(VIA1, vIFR); /* get interrupts pending */ - intbits &= via_reg(VIA1, vIER); /* only care about enabled ones */ + intbits = via_reg(VIA1, vIFR) & via_reg(VIA1, vIER); if (intbits == 0) return; + /* + * Unflag interrupts here. If we do it after each interrupt, + * the MRG ADB hangs up. + */ via_reg(VIA1, vIFR) = intbits; + mask = (unsigned char) 1; + bitnum = 0; do { - if (intbits & 0x1) { - via1itab[bitnum](bitnum); /* run interrupt handler */ + if (intbits & mask) { + via1itab[bitnum]((void *)((int) bitnum)); + /* via_reg(VIA1, vIFR) = mask; */ } - intbits >>= 1; - } while (++bitnum != 7 && intbits); + mask <<= 1; + } while (intbits >= mask && ++bitnum < 7); } void -via2_intr(struct frame *fp) +via2_intr(fp) + struct frame *fp; { - register unsigned char intbits; - register char bitnum; + register unsigned char intbits; + register unsigned char mask; + register unsigned char bitnum; - intbits = via2_reg(vIFR); /* get interrupts pending */ - intbits &= via2_reg(vIER); /* only care about enabled */ + intbits = via2_reg(vIFR) & via2_reg(vIER); - if (intbits == 0) return; + if (intbits == 0) + return; - /* - * Unflag interrupts we're about to process. - */ via2_reg(vIFR) = intbits; + mask = (unsigned char) 1; + bitnum = 0; do { - if (intbits & 0x1) + if (intbits & mask) { via2itab[bitnum](via2iarg[bitnum]); - intbits >>= 1; - } while (++bitnum != 7 && intbits); + } + mask <<= 1; + } while (intbits >= mask && ++bitnum < 7); } void -rbv_intr(struct frame *fp) +rbv_intr(fp) + struct frame *fp; { - register unsigned char intbits; - register char bitnum, bitmsk; + register unsigned char intbits; + register unsigned char mask; + register unsigned char bitnum; intbits = (via2_reg(vIFR + rIFR) & via2_reg(vIER + rIER)); - if (intbits == 0) return; + if (intbits == 0) + return; - /* - * Unflag interrupts we're about to process. - */ via2_reg(rIFR) = intbits; + mask = (unsigned char) 1; + bitnum = 0; do { - if (intbits & 0x1) + if (intbits & mask) { via2itab[bitnum](via2iarg[bitnum]); - intbits >>= 1; - } while (++bitnum != 7 && intbits); + } + mask <<= 1; + } while (intbits >= mask && ++bitnum < 7); } static void -via1_noint(int bitnum) +via1_noint(bitnum) + void *bitnum; { - printf("via1_noint(%d)\n", bitnum); + printf("via1_noint(%d)\n", (int) bitnum); } static void -via2_noint(void *bitnum) +via2_noint(bitnum) + void *bitnum; { - printf("via2_noint(%d)\n", (int) bitnum); + printf("via2_noint(%d)\n", (int) bitnum); } static int nubus_intr_mask = 0; int add_nubus_intr(slot, func, client_data) -int slot; -void (*func)(); -void *client_data; + int slot; + void (*func) __P((void *, int)); + void *client_data; { int s = splhigh(); - if (slot < 9 || slot > 15) return 0; + /* + * Map Nubus slot 0 to "slot" 15; see note on Nubus slot + * interrupt tables. + */ + if (slot == 0) + slot = 15; + if (slot < 9 || slot > 15) + return 0; slotitab[slot-9] = func; slotptab[slot-9] = client_data; @@ -266,75 +304,89 @@ void *client_data; } void -enable_nubus_intr(void) +enable_nubus_intr() { - if (VIA2 == VIA2OFF) { + if (VIA2 == VIA2OFF) via2_reg(vIER) = V2IF_SLOTINT | 0x80; - } else { + else via2_reg(rIER) = V2IF_SLOTINT | 0x80; - } } +/*ARGSUSED*/ void -via2_nubus_intr(int bit) +via2_nubus_intr(bitarg) + void *bitarg; { register int i, mask, ints; try_again: - via2_reg(vIFR) = V2IF_SLOTINT; - if (ints = ((~via2_reg(vBufA)) & nubus_intr_mask)) { - mask = (1 << 5); - i = 6; + via2_reg(vIFR) = 0x80 | V2IF_SLOTINT; + if ((ints = ((~via2_reg(vBufA)) & nubus_intr_mask)) != 0) { + mask = (1 << 6); + i = 7; while (i--) { - if (ints & mask) { + if (ints & mask) (*slotitab[i])(slotptab[i], i+9); - } mask >>= 1; } - } else { + } else return; - } goto try_again; } +/*ARGSUSED*/ void -rbv_nubus_intr(int bit) +rbv_nubus_intr(bitarg) + void *bitarg; { register int i, mask, ints; try_again: - via2_reg(rIFR) = V2IF_SLOTINT; - if (ints = ((~via2_reg(rBufA)) & via2_reg(rSlotInt))) { - mask = (1 << 5); - i = 6; + via2_reg(rIFR) = 0x80 | V2IF_SLOTINT; + if ((ints = ((~via2_reg(rBufA)) & via2_reg(rSlotInt))) != 0) { + mask = (1 << 6); + i = 7; while (i--) { - if (ints & mask) { + if (ints & mask) (*slotitab[i])(slotptab[i], i+9); - } mask >>= 1; } - } else { + } else return; - } goto try_again; } -void -slot_noint(void *client_data, int slot) +static void +slot_ignore(client_data, slot) + void *client_data; + int slot; { - printf("slot_noint() slot %x\n", slot); + register int mask = (1 << (slot-9)); + + if (VIA2 == VIA2OFF) { + via2_reg(vDirA) |= mask; + via2_reg(vBufA) = mask; + via2_reg(vDirA) &= ~mask; + } else + via2_reg(rBufA) = mask; } +static void +slot_noint(client_data, slot) + void *client_data; + int slot; +{ + printf("slot_noint() slot %x\n", slot); +} void via_shutdown() { - if(VIA2 == VIA2OFF){ + if (VIA2 == VIA2OFF) { via2_reg(vDirB) |= 0x04; /* Set write for bit 2 */ via2_reg(vBufB) &= ~0x04; /* Shut down */ - }else if(VIA2 == RBVOFF){ + } else if (VIA2 == RBVOFF) via2_reg(rBufB) &= ~0x04; - } } int @@ -350,7 +402,7 @@ rbv_vidstatus() return(0); } -extern void +void mac68k_register_scsi_drq(drq_func, client_data) void (*drq_func)(void *); void *client_data; @@ -364,7 +416,7 @@ mac68k_register_scsi_drq(drq_func, client_data) } } -extern void +void mac68k_register_scsi_irq(irq_func, client_data) void (*irq_func)(void *); void *client_data; @@ -378,7 +430,7 @@ mac68k_register_scsi_irq(irq_func, client_data) } } -extern void +void mac68k_register_via1_t1_irq(irq_func) void (*irq_func)(void *); { diff --git a/sys/arch/mac68k/mac68k/vm_machdep.c b/sys/arch/mac68k/mac68k/vm_machdep.c index 741ec9a3d39..9d007c1babf 100644 --- a/sys/arch/mac68k/mac68k/vm_machdep.c +++ b/sys/arch/mac68k/mac68k/vm_machdep.c @@ -1,4 +1,4 @@ -/* $NetBSD: vm_machdep.c,v 1.16 1996/02/05 02:10:00 christos Exp $ */ +/* $NetBSD: vm_machdep.c,v 1.20 1996/05/05 16:50:34 briggs Exp $ */ /* * Copyright (c) 1988 University of Utah. @@ -64,6 +64,8 @@ extern int fpu_type; +void savectx __P((struct pcb *)); + /* * Finish a fork operation, with process p2 nearly set up. * Copy and update the kernel stack and pcb, making the child @@ -81,7 +83,6 @@ cpu_fork(p1, p2) register struct trapframe *tf; register struct switchframe *sf; extern struct pcb *curpcb; - extern void proc_trampoline(), child_return(); p2->p_md.md_flags = p1->p_md.md_flags; @@ -118,20 +119,21 @@ cpu_fork(p1, p2) */ void cpu_set_kpc(p, pc) - struct proc *p; - u_int32_t pc; + struct proc *p; + void (*pc) __P((struct proc *)); { struct pcb *pcbp; struct switchframe *sf; - extern void proc_trampoline(); pcbp = &p->p_addr->u_pcb; sf = (struct switchframe *) pcbp->pcb_regs[11]; sf->sf_pc = (u_int) proc_trampoline; - pcbp->pcb_regs[6] = pc; /* A2 */ + pcbp->pcb_regs[6] = (int)pc; /* A2 */ pcbp->pcb_regs[7] = (int)p; /* A3 */ } +void switch_exit __P((struct proc *)); + /* * cpu_exit is called as the last action during exit. * We release the address space and machine-dependent resources, @@ -232,9 +234,10 @@ cpu_coredump(p, vp, cred, chdr) * Both addresses are assumed to reside in the Sysmap, * and size must be a multiple of CLSIZE. */ +void pagemove(from, to, size) register caddr_t from, to; - int size; + size_t size; { register vm_offset_t pa; @@ -260,11 +263,15 @@ pagemove(from, to, size) } } +void physaccess __P((caddr_t, caddr_t, register int, register int)); +void TBIAS __P((void)); + /* * Map `size' bytes of physical memory starting at `paddr' into * kernel VA space at `vaddr'. Read/write and cache-inhibit status * are specified by `prot'. */ +void physaccess(vaddr, paddr, size, prot) caddr_t vaddr, paddr; register int size, prot; @@ -281,6 +288,9 @@ physaccess(vaddr, paddr, size, prot) TBIAS(); } +void physunaccess __P((caddr_t, register int)); + +void physunaccess(vaddr, size) caddr_t vaddr; register int size; @@ -293,6 +303,8 @@ physunaccess(vaddr, size) TBIAS(); } +void setredzone __P((void *, caddr_t)); + /* * Set a red zone in the kernel stack after the u. area. * We don't support a redzone right now. It really isn't clear @@ -305,15 +317,19 @@ physunaccess(vaddr, size) * Look at _lev6intr in locore.s for more details. */ /*ARGSUSED*/ +void setredzone(pte, vaddr) - struct pte *pte; + void *pte; caddr_t vaddr; { } +int kvtop __P((register caddr_t addr)); + /* * Convert kernel VA to physical address */ +int kvtop(addr) register caddr_t addr; { |