mirror of
https://github.com/DoctorWkt/unix-jun72.git
synced 2026-02-01 22:43:27 +00:00
47 lines
852 B
Plaintext
47 lines
852 B
Plaintext
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
|
||
|