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,116 @@
+#
+/*
+ */
+
+/*
+ * RS03/04 disk driver
+ */
+
+#include "../param.h"
+#include "../buf.h"
+#include "../conf.h"
+#include "../user.h"
+
+
+struct {
+	int	hscs1;	/* Control and Status register 1 */
+	int	hswc;	/* Word count register */
+	int	hsba;	/* UNIBUS address register */
+	int	hsda;	/* Desired address register */
+	int	hscs2;	/* Control and Status register 2 */
+	int	hsds;	/* Drive Status */
+	int	hser;	/* Error register */
+	int	hsas;	/* not used */
+	int	hsla;	/* not used */
+	int	hsdb;	/* not used */
+	int	hsmr;	/* not used */
+	int	hsdt;	/* not used */
+	int	hsbae;	/* 11/70 bus extension */
+};
+
+struct	devtab	hstab;
+struct	buf	rhsbuf;
+
+#define	HSADDR	0172040
+
+#define ERR	040000	/* hscs1 - composite error */
+
+#define GO	01
+#define RCLR	010
+#define	DRY	0200	/* hsds - Drive Ready */
+
+hsstrategy(abp)
+struct buf *abp;
+{
+	register struct buf *bp;
+	register mblks;
+
+	bp = abp;
+	mblks = 1024; /* RJS03 */
+	if(bp->b_dev.d_minor >= 8)
+		mblks = 2048; /* RJS04 */
+	if(bp->b_blkno >= mblks) {
+		bp->b_flags =| B_ERROR;
+		iodone(bp);
+		return;
+	}
+	bp->av_forw = 0;
+	spl5();
+	if (hstab.d_actf==0)
+		hstab.d_actf = bp; else
+		hstab.d_actl->av_forw = bp;
+	hstab.d_actl = bp;
+	if (hstab.d_active==0)
+		hsstart();
+	spl0();
+}
+
+hsstart()
+{
+	register struct buf *bp;
+	register addr;
+
+	if ((bp = hstab.d_actf) == 0)
+		return;
+	hstab.d_active++;
+	addr = bp->b_blkno;
+	if(bp->b_dev.d_minor < 8)
+		addr =<< 1; /* RJS03 */
+	HSADDR->hscs2 = bp->b_dev.d_minor & 07;
+	rhstart(bp, &HSADDR->hsda, addr<<1, &HSADDR->hsbae);
+}
+
+hsintr()
+{
+	register struct buf *bp;
+
+	if (hstab.d_active == 0)
+		return;
+	bp = hstab.d_actf;
+	hstab.d_active = 0;
+	if(HSADDR->hscs1 & ERR){	/* error bit */
+		deverror(bp, HSADDR->hscs2, 0);
+		HSADDR->hscs1 = RCLR|GO;
+		if (++hstab.d_errcnt <= 10) {
+			hsstart();
+			return;
+		}
+		bp->b_flags =| B_ERROR;
+	}
+	hstab.d_errcnt = 0;
+	hstab.d_actf = bp->av_forw;
+	iodone(bp);
+	hsstart();
+}
+
+hsread(dev)
+{
+
+	physio(hsstrategy, &rhsbuf, dev, B_READ);
+}
+
+hswrite(dev)
+{
+
+	physio(hsstrategy, &rhsbuf, dev, B_WRITE);
+}