setfil.s

UNIX v6源代码 这几乎是最经典的unix版本 unix操作系统设计和莱昂氏unix源代码分析都是用的该版

/ Fortran library-- setfil

/ call setfil(unit, 5hname )

.globl	setfil.

.globl	getbuf
.globl	chkunit
.globl	retrn
.globl	utable
.globl	temp
.globl	rerr

setfil.:
	temp
	.+2
	mov	2(r3),r1
	mov	2(r1),r1
	jsr	r5,chkunit
	tstb	utable(r1)
	beq	1f
	jsr	r5,rerr; 112.
1:
	jsr	r5,getbuf
	movb	$-1,utable(r1)
	mov	4(r3),r0
	mov	r2,r1
1:
	movb	(r0)+,(r1)
	beq	1f
	cmpb	$' ,(r1)+
	bne	1b
	clrb	-(r1)
1:
	jmp	retrn