diff --git a/pages/e11-07 b/pages/e11-07 new file mode 100644 index 0000000..3b1a55c --- /dev/null +++ b/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: + +at: + <@ > +qchdir: + +glogin: + - +shell: + . +glob: + +binpb: + +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 +