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