1972_stuff/s1/frag19

Find at most related files.
including files from this version of Unix.

/ ls -- list file or directory

.globl	flush
.globl	fopen
.globl	getw
.globl 	getc
.globl	putc
.globl	ctime
.globl	end

	sys	break; end+512.
	mov	$1,obuf
	mov	sp,r5
	mov	(r5)+,count
	tst	(r5)+
	dec	count
	mov	count,ocount
	bgt	loop
	mov	$dotp,r5
loop:
	mov	(r5)+,r4
	cmpb	(r4)+,$'-
	bne	1f
	dec	ocount
3:
	movb	(r4)+,r0
	beq	eloop
	cmp	r0,$'l
	bne	4f
	inc	longf
	br	3b
4:
	cmpb	r0,$'t
	bne	4f
	mov	$14.,sortoff
	br	3b
4:
	cmpb	r0,$'a
	bne	4f
	inc	allflg
	br	3b
4:
	cmpb	r0,$'s
	bne	4f
	incb	longf+1
	br	3b
4:
	cmpb	r0,$'d
	bne	3b
	inc	dirflg
	br	3b
1:
	dec	r4
	jsr	pc,do
eloop:
	dec	count
	bgt	loop
	tst	dnp
	bne	1f
	mov	$dotp,r5
	br	loop
1:
	jsr	r5,flush; obuf
	sys	exit

do:
	clr	tblocks
	mov	$end,r1
	mov	$filnam,r3
	mov	r4,dnp
	clr	isadir
	tst	dirflg
	bne	nondir
	sys	stat; dnp: 0; statb
	bec	1f
	jsr	r5,questf; < nonexistent\n\0>; .even
	rts	pc
1:
	bit	$40000,statb+2	/test directory
	beq	nondir
	inc	isadir
	mov	r4,r0
	jsr	r5,fopen; dbuf
	bcc	1f
	jsr	r5,questf; < unreadable\n\0>; .even
	rts	pc
1:
	movb	(r4)+,(r3)+
	bne	1b
	dec	r3
	cmpb	-1(r3),$'/
	beq	1f
	movb	$'/,(r3)+
1:
	jsr	r5,getw; dbuf
	bcs	pass2
	mov	$4,-(sp)
	tst	r0
	bne	2f
3:
	jsr	r5,getw; dbuf
	dec	(sp)
	bne	3b
	tst	(sp)+
	br	1b
2:
	mov	r3,r2
2:
	jsr	r5,getw; dbuf
	mov	r0,(r1)+
	movb	r0,(r2)+
	swab	r0
	movb	r0,(r2)+
	dec	(sp)
	bne	2b
	tst	(sp)+
	clrb	(r2)+
	tst	allflg
	bne	2f
	cmpb	(r3),$'.
	bne	2f
	sub	$8.,r1
	br	1b
2:
	jsr	r5,gstat
	br	1b
nondir:
	mov	r3,r2
1:
	movb	(r4)+,(r2)+
	bne	1b
1:
	cmp	r2,r3
	blos	1f
	cmpb	-(r2),$'/
	bne	1b
	inc	r2
1:
	mov	$8.,-(sp)
1:
	movb	(r2)+,(r1)+
	bne	2f
	dec	r2
2:
	dec	(sp)
	bne	1b
	jsr	r5,gstat
	tst	(sp)+

pass2:
	mov	dbuf,r0
	sys	close
	mov	$end,r2
	cmp	r1,r2
	bne	1f
	rts	pc
1:
	mov	r5,-(sp)
	mov	r1,-(sp)
	add	sortoff,r2
1:
	mov	r2,(r1)+
	add	$20.,r2
	cmp	r2,(sp)
	blo	1b
	mov	(sp),r2
	tst	-(r1)
1:
	mov	r2,r3
2:
	tst	(r3)+
	cmp	r3,r1
	bhi	2f
	mov	(r2),r4
	mov	(r3),r5
	tst	sortoff
	beq	4f
	cmp	(r4)+,(r5)+
	blo	3f
	bhi	2b
	cmp	(r4)+,(r5)+
	blo	3f
	br	2b
4:
4:
	cmpb	(r4)+,(r5)+
	bhi	3f
	blo	2b
	dec	r0
	br	4b
3:
	mov	(r2),-(sp)
	mov	(r3),(r2)
	mov	(sp)+,(r3)
	br	2b
2:
	tst	(r2)+
	cmp	r2,r1
	blo	1b
1:
	mov	(sp)+,r2
	mov	(sp)+,r5

pass3:
	cmp	ocount,$1
	ble	1f
	tst	isadir
	beq	2f
	mov	dnp,0f
	jsr	r5,pstring; 0:..
	jsr	r5,pstring; colon
1:
	tst	longf
	beq	1f
	jsr	r5,pstring; totmes
	mov	tblocks,r0
	jsr	r5,decimal; 4
	jsr	r5,pstring; nl
2:
	tstb	longf
	beq	1f
	mov	$passwd,r0
	jsr	r5,fopen; iobuf
	bes	1f
	mov	$uidbuf,r3
3:
2:
	jsr	r5,getc; iobuf
	bes	3f
	movb	r0,(r3)+
	cmpb	r0,$':
	bne	2b
2:
	jsr	r5,getc; iobuf
	cmpb	r0,$':
	bne	2b
2:
	jsr	r5,getc; iobuf
	cmpb	r0,$':
	beq	2f
	movb	r0,(r3)+
	br	2b
2:
	movb	$'\n,(r3)+
	cmp	r3,$euidbuf
	bhis	3f
2:
	jsr	r5,getc; iobuf
	cmpb	r0,$'\n
	bne	2b
	br	3b
3:
	mov	r3,euids
	sys	close
1:
	cmp	r2,r1
	bhi	1f
	mov	(r2)+,r3
	sub	sortoff,r3
	jsr	r5,pentry
	mov	$8.,-(sp)
2:
	movb	(r3)+,r0
	beq	2f
	jsr	r5,putc; obuf
	dec	(sp)
	bne	2b
2:
	tst	(sp)+
	jsr	r5,pstring; nl
	br	1b
1:
	cmp	ocount,$1
	ble	1f
	tst	isadir
	beq	1f
	jsr	r5,pstring; nl
1:
	rts	pc

pentry:
	mov	r2,-(sp)
	tstb	longf
	bne	listl
	tstb	longf+1
	bne	2f
	mov	(sp)+,r2
	rts	r5
2:
	mov	12.(r3),r0
	jsr	r5,calcb
	jsr	r5,decimal; 3
	jsr	r5,pstring; space
	mov	(sp)+,r2
	rts	r5
pstring:
	mov	r5,-(sp)
	mov	(r5),r5
1:
	movb	(r5)+,r0
	beq	1f
	jsr	r5,putc; obuf
	br	1b
1:
	mov	(sp)+,r5
	tst	(r5)+
	rts	r5

questf:
	mov	r4,0f
	jsr	r5,pstring; 0:..
	mov	r5,0f
	jsr	r5,pstring; 0:..
1:
	tstb	(r5)+
	bne	1b
	inc	r5
	bic	$1,r5
	rts	r5
listl:
	mov	18.(r3),r0	/ inode
	jsr	r5,decimal; 4
	jsr	r5,pstring; space
	mov	r3,r4
	add	$8.,r4		/ get to flags
	bit	$10000,(r4)  /large
	beq	2f
	jsr	r5,mode; 'l
	br	3f
2:
	jsr	r5,mode; 's
3:
	bit	$40000,(r4) /directory
	beq	2f
	jsr	r5,mode; 'd
	br	3f
2:
	bit	$40,(r4)  /set uid
	beq	2f
	jsr	r5,mode; 'u
	br	3f
2:
	bit	$20,(r4)   /executable
	beq	2f
	jsr	r5,mode; 'x
	br	3f
2:
	jsr	r5,mode; '-
3:
	bit	$10,(r4)  /read owner
	beq	2f
	jsr	r5,mode; 'r
	br	3f
2:
	jsr	r5, mode; '-
3:
	bit	$4,(r4)  /write owner
	beq	2f
	jsr	r5,mode; 'w
	br	3f
2:
	jsr	r5,mode; '-
3:
	bit	$2,(r4)  /read non-owner
	beq	2f
	jsr	r5,mode; 'r
	br	3f
2:
	jsr	r5,mode; '-
3:
	bit	$1,(r4)+  /write non-owner
	beq	2f
	jsr	r5,mode; 'w
	br	3f
2:
	jsr	r5,mode; '-
3:
	jsr	r5,pstring; space
	movb	(r4)+,r0
	jsr	r5,decimal; 2
	movb	(r4)+,r2
	jsr	pc,puid
	mov	(r4)+,r0
	jsr	r5,decimal; 5
	jsr	r5,pstring; space
	mov	r1,-(sp)
	mov	(r4)+,r0
	mov	(r4)+,r1
	sub	$16.,sp
	mov	sp,r2
	jsr	pc,ctime
	mov	sp,r2
	mov	$15.,-(sp)
1:
	movb	(r2)+,r0
	jsr	r5,putc; obuf
	dec	(sp)
	bne	1b
	add	$18.,sp
	mov	(sp)+,r1
	jsr	r5,pstring; space
	mov	(sp)+,r2
	rts	r5

puid:
	mov	r1,-(sp)
	mov	$uidbuf,r1
1:
	cmp	r1,euids
	bhis	1f
	mov	r1,0f
2:
	tstb	(r1)+
	beq	3f
	cmpb	-1(r1),$':
	bne	2b
	clrb	-1(r1)
3:
	clr	-(sp)
3:
	movb	(r1)+,r0
	sub	$'0,r0
	cmp	r0,$9.
	bhi	3f
	mov	r1,-(sp)
	mov	2(sp),r1
	mpy	$10.,r1
	add	r0,r1
	mov	r1,2(sp)
	mov	(sp)+,r1
	br	3b
3:
	mov	(sp)+,r0
	cmp	r0,r2
	bne	1b
	jsr	r5,pstring; space
	jsr	r5,pstring; 0:..
	mov	0b,r1
	mov	$6,-(sp)
3:
	tstb	(r1)+
	beq	3f
	dec	(sp)
	br	3b
3:
	jsr	r5,pstring; space
	dec	(sp)
	bgt	3b
	tst	(sp)+
	mov	(sp)+,r1
	rts	pc
1:
	jsr	r5,pstring; space
	mov	r2,r0
	jsr	r5,decimal; 3
	jsr	r5,pstring; space3
	mov	(sp)+,r1
	rts	pc

mode:
	mov	(r5)+,r0
	jsr	r5,putc; obuf
	rts	r5


gstat:
	mov	r1,-(sp)
	add	$512.,r1
	cmp	r1,0f
	blo	1f
	mov	r1,0f
	sys	break; 0: end+512.
1:
	mov	(sp)+,r1
	tst	longf
	bne	2f
	tst	sortoff
	beq	1f
2:
	sys	stat; filnam; statb
	bec	2f
	mov	r4,-(sp)
	mov	$filnam,r4
	jsr	r5,questf; < unstatable\n\0>; .even
	mov	(sp)+,r4
	add	$12.,r1
	rts	r5
2:
	mov	$statb+2,r0
	mov	(r0)+,(r1)+	/flags
	mov	(r0)+,(r1)+	/nlinks, uid
	mov	r0,-(sp)
	mov	(r0),r0
	jsr	r5,calcb
	add	r0,tblocks
	mov	(sp)+,r0
	mov	(r0)+,(r1)+	/size
	add	$20.,r0		/dska, ctim
	mov	(r0)+,(r1)+	/mtim
	mov	(r0)+,(r1)+
	mov	statb,(r1)+	/inode
	rts	r5
1:
	add	$12.,r1
	rts	r5

decimal:
	mov	r1,-(sp)
	mov	r2,-(sp)
	mov	r3,-(sp)
	mov	$6,r2
	mov	$numbuf+6,r3
1:
	mov	r0,r1
	clr	r0
	dvd	$10.,r0
	add	$'0,r1
	movb	r1,-(r3)
	sob	r2,1b
1:
	cmp	r3,$numbuf+5
	beq	1f
	cmpb	(r3),$'0
	bne	1f
	movb	$' ,(r3)+
	br	1b
1:
	mov	$numbuf+6,r1
	sub	(r5),r1
	mov	(r5)+,-(sp)
1:
	movb	(r1)+,r0
	jsr	r5,putc; obuf
	dec	(sp)
	bne	1b
	tst	(sp)+
	mov	(sp)+,r3
	mov	(sp)+,r2
	mov	(sp)+,r1
	rts	r5

calcb:
	add	$511.,r0
	clrb	r0
	swab	r0
	asr	r0
	cmp	r0,$8
	blo	1f
	inc	r0
1:
1:
	rts	r5


dotp:	dot
euids:	uidbuf

dot:	<.\0>
nl:	<\n\0>
totmes:	<total \0>
space3:	<  >
space:	< \0>
passwd:	</etc/passwd\0>
colon:	<:\n\0>
	.even

.bss

count:	.=.+2
ocount:	.=.+2
longf:	.=.+2
sortoff: .=.+2
allflg:	.=.+2
dirflg:	.=.+2
isadir:	.=.+2
filnam:	.=.+32.
statb:	.=.+34.
dbuf:	.=.+518.
obuf:	.=.+518.
numbuf:	.=.+6
tblocks: .=.+2
uidbuf:	.=.+1024.
euidbuf:
iobuf:	.=.+518.

(sp)+,r3
	mov	(sp)+,r2
	mov	(sp)+,r1
	rts	r5

calcb:
	add	$511.,r0
	clrb	r0
	swab	r0
	asr	r0
	cmp	r0,$8
	blo	1f
	inc	r0
1:
1:
	rts	r5


dotp:	dot
euids:	uidbuf

dot:	<.\0>
nl:	<\n\0>
totmes:	<total \0>
space3:	<  >
space:	< \0>
passwd:	</etc/passwd\0>
colon:	<:\n\0>
	.even

.bss

count:	.=.+2
ocount:	.=.+2
longf:	.=.+2
sortoff: .=.+2
allflg:	.=.+2
dirflg:	.=.+2
isadir:	.=.+2
filnam:	.=.+32.
statb:	.=.+34.
dbuf:	.=.+518.
obuf:	.=.+518.
numbuf:	.=.+6
tblocks: .=.+2
uidbuf:	.=.+1024.
euidbuf:
iobuf:	.=.+518.