e11-07

pages/e11-07

@@ -0,0 +1,46 @@
+1:
+	inc	0f / this routine filles inbuf with line from
+		   / console - if there is cnc
+	clr	r0 / set for tty inout
+	sys	read; O:O; I / read next char into inbuf
+	bcs	xit1 / error exit
+	tst	r0 / a zero input is and of file
+	beq	xit1 / exit
+	inc	einbuf / eventually einbuf points to \n
+		       / (+1) or this line
+	cmp	0b,$1nbuf+256. / have we exceeded innut buffer size
+	bhis	xit1 / if so, exit assume some sort of binary
+	cmpb	*0b,$’\n / end of line?
+	bne	1b / no, go to get next char
+	rts	pc / yes, return
+xit1:
+	sys	exit
+quest:
+	<?\n>
+at:
+	<@ >
+qchdir:
+	<chdir\0>
+glogin:
+	<login\0> -
+shell:
+	</bin/sh\0> .
+glob:
+	</etc/g10b\0>
+binpb:
+	</bin/>
+parbuf: .=.+1000.
+	.even
+param:	.=.+2
+glflaq:	.=.+2
+infile: .=.+2 
+outfile:.=.+2
+	.=.+2 / room for glob
+parp:	.=.+200.
+inbuf:	.=.+256.
+escap:	.=.+2
+inbufp: .=.+2
+einbuf:	.=.+2
+och:	.=.+2
+shellarg:.=.+2
+