From c3b0e30b413a105cf4bd96ca4682e7fab485614e Mon Sep 17 00:00:00 2001
From: David du Colombier <0intro@gmail.com>
Date: Tue, 22 Nov 1994 00:00:00 +0000
Subject: [PATCH] Plan 9 from Bell Labs 1994-11-22

---
 pc/devastar.c     | 20 ++++++++++++--------
 pc/mem.h          |  2 +-
 port/devns16552.c |  3 ++-
 3 files changed, 15 insertions(+), 10 deletions(-)

diff --git a/pc/devastar.c b/pc/devastar.c
index 002b90702d552d68b8b0e33a7fcee26d6be0efd9..5121f26c902f23359e65fa3234ccd32c1f9c2d2c 100644
--- a/pc/devastar.c
+++ b/pc/devastar.c
@@ -265,6 +265,7 @@ struct Astarchan
 	int	framing;	/* framing errors */
 	int	overrun;	/* overruns */
 	int	dtr;		/* non-zero means dtr on */
+	int	rts;		/* non-zero means rts on */
 
 	Queue	*iq;
 	Queue	*oq;
@@ -282,8 +283,8 @@ enum
 	Qstat,
 };
 #define TYPE(x)		((x)&0xff)
-#define BOARD(x)	((((x)&~CHDIR)>>16)&0xff)
-#define CHAN(x)		((((x)&~CHDIR)>>8)&0xff)
+#define BOARD(x)	(((x)>>16)&0xff)
+#define CHAN(x)		(((x)>>8)&0xff)
 #define QID(b,c,t)	(((b)<<16)|((c)<<8)|(t))
 
 static int	astarsetup(Astar*);
@@ -576,7 +577,7 @@ astarclose(Chan *c)
 			qunlock(ac);
 			nexterror();
 		}
-		if(--ac->opens == 0){
+		if(--(ac->opens) == 0){
 			disable(ac);
 			qclose(ac->iq);
 			qclose(ac->oq);
@@ -660,7 +661,8 @@ statread(Astarchan *ac, void *buf, long n, ulong offset)
 	UNLOCKPAGE(ac->a);
 
 	/* CCB.mstat fields */
-	sprint(s, "ferr %d oerr %d baud %d", ac->framing, ac->overrun, ac->baud);
+	sprint(s, "opens %d ferr %d oerr %d baud %d", ac->opens, ac->framing,
+		ac->overrun, ac->baud);
 	if(mstat & Cctsstat)
 		strcat(s, " cts");
 	if(mstat & Cdsrstat)
@@ -669,10 +671,11 @@ statread(Astarchan *ac, void *buf, long n, ulong offset)
 		strcat(s, " ring");
 	if(mstat & Cdcdstat)
 		strcat(s, " dcd");
-	if(ac->opens)
+	if(ac->dtr)
 		strcat(s, " dtr");
-	if((bstat & Crbrts) == 0)
+	if(ac->rts && (bstat & Crbrts) == 0)
 		strcat(s, " rts");
+	strcat(s, "\n");
 
 	return readstr(offset, buf, n, s);
 }
@@ -831,6 +834,7 @@ startcp(Astar *a)
 		ac = &a->c[i];
 		ac->a = a;
 		ac->ccb = (CCB*)x;
+		ac->baud = 9600;	/* a100i default */
 		ac->perm = 0660;
 		ac->iq = qopen(4*1024, 0, astarkickin, ac);
 		ac->oq = qopen(4*1024, 0, astarkick, ac);
@@ -960,7 +964,6 @@ enable(Astarchan *ac)
 	UNLOCKPAGE(a);
 	chancmd(ac, Cconfall);
 
-	astarctl(ac, "b9600");
 	astarctl(ac, "l8");
 	astarctl(ac, "p0");
 	astarctl(ac, "d1");
@@ -1047,7 +1050,7 @@ astarctl(Astarchan *ac, char *cmd)
 			 n |= Cdtrctl;
 		else
 			 n &= ~Cdtrctl;
-		ac->dtr = n;
+		ac->dtr = i;
 		ccb->mctl = LEUS(n);
 		break;
 	case 'f':
@@ -1126,6 +1129,7 @@ astarctl(Astarchan *ac, char *cmd)
 		else
 			 n &= ~Crtsctl;
 		ccb->mctl = LEUS(n);
+		ac->rts = i;
 		break;
 	case 'Q':
 	case 'q':
diff --git a/pc/mem.h b/pc/mem.h
index 6db6f9fbfe38502cd8d8bf88600bd8f6d4e733df..8ed461e45563f910eadfad0dea23494ff0f56eb0 100644
--- a/pc/mem.h
+++ b/pc/mem.h
@@ -20,7 +20,7 @@
 /*
  * Time
  */
-#define	HZ		(20)			/* clock frequency */
+#define	HZ		(50)			/* clock frequency */
 #define	MS2HZ		(1000/HZ)		/* millisec per clock tick */
 #define	TK2SEC(t)	((t)/HZ)		/* ticks to seconds */
 #define	TK2MS(t)	((((ulong)(t))*1000)/HZ)	/* ticks to milliseconds */
diff --git a/port/devns16552.c b/port/devns16552.c
index c4a18ce7b6b8508b41a742093dfa3ed2bc2abf8d..6301efdcf25319597be067c48d8529bff87ee0e6 100644
--- a/port/devns16552.c
+++ b/port/devns16552.c
@@ -796,7 +796,8 @@ uartstatus(Chan *c, Uart *p, void *buf, long n, long offset)
 	str[0] = 0;
 	tstat = p->sticky[Mctl];
 	mstat = uartrdreg(p, Mstat);
-	sprint(str, "ferr %d oerr %d baud %d", p->frame, p->overrun, p->baud);
+	sprint(str, "opens %d ferr %d oerr %d baud %d", p->opens,
+		p->frame, p->overrun, p->baud);
 	if(mstat & Cts)
 		strcat(str, " cts");
 	if(mstat & Dsr)