From 59b88eccba554ac90263118c56590214eefd3fd5 Mon Sep 17 00:00:00 2001
From: Ken Thompson <ken@research.uucp>
Date: Tue, 13 May 1975 19:49:30 -0500
Subject: [PATCH] Research V6 development Work on file usr/source/s1/clri.s
 Work on file usr/source/s1/chmod.c

Co-Authored-By: Dennis Ritchie <dmr@research.uucp>
Synthesized-from: v6
---
 usr/source/s1/chmod.c | 27 +++++++++++++++++++
 usr/source/s1/clri.s  | 63 +++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 90 insertions(+)
 create mode 100644 usr/source/s1/chmod.c
 create mode 100644 usr/source/s1/clri.s

diff --git a/usr/source/s1/chmod.c b/usr/source/s1/chmod.c
new file mode 100644
index 0000000000..b6047836d7
--- /dev/null
+++ b/usr/source/s1/chmod.c
@@ -0,0 +1,27 @@
+main(argc, argv)
+char **argv;
+{
+	register i, m;
+	register char *c;
+	int count;
+
+	if(argc < 3) {
+		printf("arg count\n");
+		exit(1);
+	}
+	c = argv[1];
+	m = 0;
+	for(m=0; *c; c++) {
+		if(*c < '0' || *c > '7') {
+			printf("bad mode\n");
+			exit(1);
+		}
+		m = (m<<3) | *c - '0';
+	}
+	for(i=2; i<argc; i++)
+		if(chmod(argv[i], m) < 0) {
+			count++;
+			perror(argv[i]);
+		}
+	exit(count);
+}
diff --git a/usr/source/s1/clri.s b/usr/source/s1/clri.s
new file mode 100644
index 0000000000..04686a57bd
--- /dev/null
+++ b/usr/source/s1/clri.s
@@ -0,0 +1,63 @@
+/ clri -- clear inode
+
+	cmp	(sp)+,$2
+	blt	error
+	beq	1f
+	mov	4(sp),fs1
+	mov	4(sp),fs2
+1:
+	tst	(sp)+
+	mov	(sp)+,r0
+	clr	r5
+1:
+	movb	(r0)+,r1
+	beq	1f
+	mpy	$10.,r5
+	sub	$'0,r1
+	cmp	r1,$10.
+	bhis	error
+	add	r1,r5
+	br	1b
+1:
+	add	$31.,r5
+	mov	r5,r0
+	als	$-4,r0
+	mov	r0,0f
+	sys	open; fs1: filsys; 0
+	bes	error
+	mov	r0,-(sp)
+	sys	seek; 0:..; 3
+	mov	(sp),r0
+	sys	read; buf; 512.
+	mov	(sp)+,r0
+	sys	close
+	mov	r5,r0
+	als	$5,r0
+	bic	$!777,r0
+	add	$buf,r0
+	mov	$16.,r5
+1:
+	clr	(r0)+
+	sob	r5,1b
+	sys	open; fs2: filsys; 1
+	bes	error
+	mov	r0,-(sp)
+	mov	0b,0f
+	sys	seek; 0:..; 3
+	mov	(sp)+,r0
+	sys	write; buf; 512.
+	bes	error
+	sys	exit
+
+error:
+	mov	$1,r0
+	sys	write; 1f; 2f-1f
+	sys	exit
+1:
+	<error\n>
+2:
+
+filsys:	</dev/junk\0>
+.even
+	.bss
+buf:	.=.+512.
-- 
2.20.1