.globl cvtfile
.globl rerr
indir	=	0
.globl _chdir
.globl ferror
_chdir:
	cmp	$1,(r5)
	beq	1f
	jsr	r5,rerr; 33.	/wrong number of arguments
1:
	mov	2(r5),r0	/string arg
	jsr	pc,cvtfile	/convert file name
	mov	r0,0f		/save it
	sys	indir; 2f
.data
2:	sys	chdir; 0: 0
.text
	bcc	1f
	jmp	ferror
1:	rts	pc
