Shell Programming and Scripting

	mov	$parbuf,r1
	mov	$parp,r2
	clr	r3
	jsr	pc,blank
	cmp	r0,$'\n  /
	bne	1f
	sys	exit
1:
	mov	r1,(r2)+
2:
	movb	r0,(r1)+
	jsr	pc,getchar
	cmp	r0,$' / space
	beq	3f
	cmp	r0,$'\n  /
	beq	1f
	br	2b
3:
	clrb	(r1)+
	jsr	pc,blank
	cmp	r0,$'\n  /
	beq	1f
	br	1b
1:
	clr	(r2)+
	tst	r3
	bne	1f
	sys	exec; parbuf; parp /
	sys	exec; binpb; parp /
	br	2f
1:
	mov	$glob,parp
	sys	exec; glob; parp /
2:
	mov	$1,r0	
	sys	write; quest; 2. 
	sys	exit
quest:
	<? >
blank:
	jsr	pc,getchar
	cmp	r0,$' / space
	beq	blank
	rts	pc
getchar:
	clr	r0
	sys	read; chr; 1 / read char
	bcs	xit1
	tst	r0
	beq	xit1
	movb	chr,r0
	cmp	r0,$'? /
	beq	1f
	cmp	r0,$'* /
	beq	1f
	cmp	r0,$'[ /
	bne	2f
1:
	inc	r3
2:
	rts	pc
xit1:
	sys	exit

chr:	.=.+1
glob:
	</etc/glob\0> / globbing
binpb:
	</bin/>
parbuf:	.=.+1000.
parp:		.=.+200.     / real size unknown