--- /sys/src/9k/k10/k10f
+++ /sys/src/9k/k10/k10f
@@ -25,6 +25,7 @@ dev +dev
 	draw		drawalloc screen vga vgax
 	mouse		mouse
 	vga
+	kbmap
 
 sd +dev
 	sdata		pci sdscsi
--- /dev/null
+++ /sys/src/9k/port/devkbmap.c
@@ -0,0 +1,179 @@
+/*
+ *  keyboard map
+ */
+
+#include	"u.h"
+#include	"../port/lib.h"
+#include	"mem.h"
+#include	"dat.h"
+#include	"fns.h"
+#include	"../port/error.h"
+
+enum{
+	Qdir,
+	Qdata,
+};
+Dirtab kbmaptab[]={
+	".",		{Qdir, 0, QTDIR},	0,	0555,
+	"kbmap",	{Qdata, 0},		0,	0600,
+};
+#define	NKBFILE	sizeof(kbmaptab)/sizeof(kbmaptab[0])
+
+#define	KBLINELEN	(3*NUMSIZE+1)	/* t code val\n */
+
+static Chan *
+kbmapattach(char *spec)
+{
+	return devattach(L'κ', spec);
+}
+
+static Walkqid*
+kbmapwalk(Chan *c, Chan *nc, char **name, int nname)
+{
+	return devwalk(c, nc, name, nname, kbmaptab, NKBFILE, devgen);
+}
+
+static long
+kbmapstat(Chan *c, uchar *dp, long n)
+{
+	return devstat(c, dp, n, kbmaptab, NKBFILE, devgen);
+}
+
+static Chan*
+kbmapopen(Chan *c, int omode)
+{
+	if(!iseve())
+		error(Eperm);
+	return devopen(c, omode, kbmaptab, NKBFILE, devgen);
+}
+
+static void
+kbmapclose(Chan *c)
+{
+	if(c->aux){
+		free(c->aux);
+		c->aux = nil;
+	}
+}
+
+static long
+kbmapread(Chan *c, void *a, long n, vlong offset)
+{
+	char *bp;
+	char tmp[KBLINELEN+1];
+	int t, sc;
+	Rune r;
+
+	if(c->qid.type == QTDIR)
+		return devdirread(c, a, n, kbmaptab, NKBFILE, devgen);
+
+	switch((int)(c->qid.path)){
+	case Qdata:
+		if(kbdgetmap(offset/KBLINELEN, &t, &sc, &r)) {
+			bp = tmp;
+			bp += readnum(0, bp, NUMSIZE, t, NUMSIZE);
+			bp += readnum(0, bp, NUMSIZE, sc, NUMSIZE);
+			bp += readnum(0, bp, NUMSIZE, r, NUMSIZE);
+			*bp++ = '\n';
+			*bp = 0;
+			n = readstr(offset%KBLINELEN, a, n, tmp);
+		} else
+			n = 0;
+		break;
+	default:
+		n=0;
+		break;
+	}
+	return n;
+}
+
+static long
+kbmapwrite(Chan *c, void *a, long n, vlong)
+{
+	char line[100], *lp, *b;
+	int key, m, l;
+	Rune r;
+
+	if(c->qid.type == QTDIR)
+		error(Eperm);
+
+	switch((int)(c->qid.path)){
+	case Qdata:
+		b = a;
+		l = n;
+		lp = line;
+		if(c->aux){
+			strcpy(line, c->aux);
+			lp = line+strlen(line);
+			free(c->aux);
+			c->aux = nil;
+		}
+		while(--l >= 0) {
+			*lp++  = *b++;
+			if(lp[-1] == '\n' || lp == &line[sizeof(line)-1]) {
+				*lp = 0;
+				if(*line == 0)
+					error(Ebadarg);
+				if(*line == '\n' || *line == '#'){
+					lp = line;
+					continue;
+				}
+				lp = line;
+				while(*lp == ' ' || *lp == '\t')
+					lp++;
+				m = strtoul(line, &lp, 0);
+				key = strtoul(lp, &lp, 0);
+				while(*lp == ' ' || *lp == '\t')
+					lp++;
+				r = 0;
+				if(*lp == '\'' && lp[1])
+					chartorune(&r, lp+1);
+				else if(*lp == '^' && lp[1]){
+					chartorune(&r, lp+1);
+					if(0x40 <= r && r < 0x60)
+						r -= 0x40;
+					else
+						error(Ebadarg);
+				}else if(*lp == 'M' && ('1' <= lp[1] && lp[1] <= '5'))
+					r = 0xF900+lp[1]-'0';
+				else if(*lp>='0' && *lp<='9') /* includes 0x... */
+					r = strtoul(lp, &lp, 0);
+				else
+					error(Ebadarg);
+				kbdputmap(m, key, r);
+				lp = line;
+			}
+		}
+		if(lp != line){
+			l = lp-line;
+			c->aux = lp = smalloc(l+1);
+			memmove(lp, line, l);
+			lp[l] = 0;
+		}
+		break;
+	default:
+		error(Ebadusefd);
+	}
+	return n;
+}
+
+Dev kbmapdevtab = {
+	L'κ',
+	"kbmap",
+
+	devreset,
+	devinit,
+	devshutdown,
+	kbmapattach,
+	kbmapwalk,
+	kbmapstat,
+	kbmapopen,
+	devcreate,
+	kbmapclose,
+	kbmapread,
+	devbread,
+	kbmapwrite,
+	devbwrite,
+	devremove,
+	devwstat,
+};