AUSAM/source/S/clri.s

/ clri -- clear inode

/	modified to accept multiple inodes
/	viz
/		 clri inode inode ... filesystem
/
/	by andrew hume & ian j & piers lauder 1977
/

	mov	(sp)+,r2	/r2 is argc
	tst	(sp)+		/rm ptr to clri
	sub	$2,r2
	ble	error
	mov	r2,r3		/find last arg
	asl	r3
	add	sp,r3
	mov	*r3,fs1
	mov	*r3,fs2
loop:
	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
	mov	(sp)+,r0
	sys	close
	dec	r2
	bgt	loop
done:
	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.