Add original unix v6

2018-01-27 22:35:41 +09:00
commit 2c7099ee50
664 changed files with 106254 additions and 0 deletions
@@ -0,0 +1,166 @@
+#
+/*
+ */
+
+/*
+ * PC-11 Paper tape reader/punch driver
+ */
+
+#include "../param.h"
+#include "../conf.h"
+#include "../user.h"
+
+#define	PCADDR	0177550
+
+#define	CLOSED	0
+#define	WAITING	1
+#define	READING	2
+#define	EOF	3
+
+#define	RDRENB	01
+#define	IENABLE	0100
+#define	DONE	0200
+#define	BUSY	04000
+#define	ERROR	0100000
+
+#define	PCIPRI	30
+#define	PCOPRI	40
+#define	PCOLWAT	50
+#define	PCOHWAT	100
+#define	PCIHWAT	250
+
+struct {
+	int pcrcsr;
+	int pcrbuf;
+	int pcpcsr;
+	int pcpbuf;
+};
+
+struct clist {
+	int	cc;
+	int	cf;
+	int	cl;
+};
+
+struct pc11 {
+	int	pcstate;
+	struct	clist pcin;
+	struct	clist pcout;
+} pc11;
+
+pcopen(dev, flag)
+{
+	extern lbolt;
+
+	if (flag==0) {
+		if (pc11.pcstate!=CLOSED) {
+			u.u_error = ENXIO;
+			return;
+		}
+		pc11.pcstate = WAITING;
+		while(pc11.pcstate==WAITING) {
+			PCADDR->pcrcsr = IENABLE|RDRENB;
+			sleep(&lbolt, PCIPRI);
+		}
+	} else {
+		PCADDR->pcpcsr =| IENABLE;
+		pcleader();
+	}
+}
+
+pcclose(dev, flag)
+{
+	if (flag==0) {
+		spl4();
+		while (getc(&pc11.pcin) >= 0);
+		PCADDR->pcrcsr = 0;
+		pc11.pcstate = CLOSED;
+		spl0();
+	} else
+		pcleader();
+}
+
+pcread()
+{
+	register int c;
+
+	spl4();
+	do {
+		while ((c = getc(&pc11.pcin)) < 0) {
+			if (pc11.pcstate==EOF)
+				goto out;
+			if ((PCADDR->pcrcsr&(ERROR|BUSY|DONE))==0)
+				PCADDR->pcrcsr =| IENABLE|RDRENB;
+			sleep(&pc11.pcin, PCIPRI);
+		}
+	} while (passc(c)>=0);
+out:
+	spl0();
+}
+
+pcwrite()
+{
+	register int c;
+
+	while ((c=cpass())>=0)
+		pcoutput(c);
+}
+
+pcstart()
+{
+	register int c;
+
+	if (PCADDR->pcpcsr&DONE && (c = getc(&pc11.pcout)) >= 0)
+		PCADDR->pcpbuf = c;
+}
+
+pcrint()
+{
+	if (pc11.pcstate==WAITING) {
+		if (PCADDR->pcrcsr&ERROR)
+			return;
+		pc11.pcstate = READING;
+	}
+	if (pc11.pcstate==READING) {
+		if (PCADDR->pcrcsr&ERROR)
+			pc11.pcstate = EOF;
+		else {
+			putc(PCADDR->pcrbuf, &pc11.pcin);
+			if (pc11.pcin.cc < PCIHWAT)
+				PCADDR->pcrcsr =| IENABLE|RDRENB;
+		}
+		wakeup(&pc11.pcin);
+	}
+}
+
+pcpint()
+{
+
+	pcstart();
+	if (pc11.pcout.cc <= PCOLWAT)
+		wakeup(&pc11.pcout);
+}
+
+pcoutput(c)
+{
+	if (PCADDR->pcpcsr&ERROR) {
+		u.u_error = EIO;
+		return;
+	}
+	if (pc11.pcout.cc >= PCOHWAT)
+		sleep(&pc11.pcout, PCOPRI);
+	putc(c, &pc11.pcout);
+	spl4();
+	pcstart();
+	spl0();
+}
+
+pcleader()
+{
+	register int i;
+
+	i = 100;
+	do
+		pcoutput(0);
+	while (--i);
+}