diff --git a/pages/e11-01 b/pages/e11-01 index f9b30fd..e47e7df 100644 --- a/pages/e11-01 +++ b/pages/e11-01 @@ -1,26 +1,26 @@ / sh -- command interpreter mov sp,r5 - mov r5.shel larg / save orig sp in shel larg - cdpb B(r5),$'- / was this sh calleZd by init or loginx~ + mov r5,shellarg / save orig sp in shellarg + cmpb 8(r5),$'- / was this sh calleZd by init or loginx~ bne 2f / no - sys intr; O / yes, turn off interrupts - sys quit; O + sys intr; 0 / yes, turn off interrupts + sys quit; 0 2: sys getuid / who is user tst r0 / is it superuser bne 2f / no movb $'#,at / yes, set new prompt symbol 2: - cmn (r5),$l / tty input? + cmp (r5),$1 / tty input? ble newline / yes, call with '-(or with no command / file name) - clr rO / no, set ttv + clr r0 / no, set ttv sys close / close it mov 4(r5),0f / get new file name - sys open; O:..; 0 / open it + sys open; 0:..; 0 / open it bec 1f / branch if no error jsr r5,error / error in file name - /: .even + : .even sys exit 1: clr at / clear prompt character, if reading non-tty @@ -28,10 +28,10 @@ newline: tst at / is there a prompt symbol beq newcom / no - mov $1,rO / yes + mov $1,r0 / yes sys write; at; 2. / print prompt newcom: - mov shellarq,sp / + mov shellarg,sp / mov $parbuf,r3 / initialize command list area mov $parp,r4 / initialize command list pointers clr infile / initialize alternate input @@ -41,10 +41,10 @@ newarg: jsr pc,blank / squeeze out leading blanks jsr r5,delim / is new character a ; \n or & br 2f / yes - mov r3,-(sp) I no, push arg pointer onto stack - cmp rO,$'< / new input file? + mov r3,-(sp) / no, push arg pointer onto stack + cmp r0,$'< / new input file? bne 1f / no - mov (sp).infile / yes, save arg pointer + mov (sp),infile / yes, save arg pointer clr (sp) / clear pointer br 3f 1: @@ -53,4 +53,3 @@ newarg: mov (sp),outfile / yes, save arg pointer clr (sp) / clear pointer br 3f - diff --git a/pages/e11-02 b/pages/e11-02 index 75da1dc..74ccd58 100644 --- a/pages/e11-02 +++ b/pages/e11-02 @@ -1,30 +1,30 @@ newchar: - cmp $' .r0 / is character a blank + cmp $' ,r0 / is character a blank beq 1f / branch if it is (blank as arg separator) - cmp $’\n+200,r0 / treat \n preceded by \ + cmp $'\n+200,r0 / treat \n preceded by \ beq 1f / as blank jsr pc,putc / put this character in parbuf list 3: jsr pc,getc / get next character - jsr r5,delim / is char a : \n or &, + jsr r5,delim / is char a ; \n or &, br 1f / yes br newchar / no, start new character tests 1: clrb (r3)+ / end name with \0 when read blank, or / delim - mov (sp)+,(r4)+ / move are ant! to par? location - bne 1f / if (sp)=O, in file or out file points to arg - tst -(r4) / so ignore dummy (O), in pointer list + mov (sp)+,(r4)+ / move arg ptr to parp location + bne 1f / if (sp)=0, in file or out file points to arg + tst -(r4) / so ignore dummy (0), in pointer list 1: - jsr r5,delim / is char a : \n or &. + jsr r5,delim / is char a ; \n or &. br 2f / yes br newarg / no, start newarg processing 2: clr (r4) / \n, &, or ; takes to here (end of arg list) - / after ’dellm’ call + / after 'delim' call mov r0,-(sp) / save delimter in stack jsr pc,docom / go to exec command in parbuf - cmpb (sp),$’& / get a new command without wait? + cmpb (sp),$'& / get a new command without wait? beq newcom / yes tst r1 / was chdir just executed or line ended with / ampersand? @@ -36,7 +36,7 @@ newchar: cmp r0,r1 / is this my child bne 1b 2: - cmp (sp),$’\n / was delimiter a new line + cmp (sp),$'\n / was delimiter a new line beq newline / yes br newcom / no, pick up next command docom: @@ -47,10 +47,9 @@ docom: 1: jsr r5,chcom; qchdir / is command chdir? br 2f / command not chdir - cmp r4,$4 / prepare to exec chdir, 4=aro count x 2 + cmp r4,$4 / prepare to exec chdir, 4=arg count x 2 beq 3f jsr r5,error / go to print error ; .even br 4f 3: - diff --git a/pages/e11-03 b/pages/e11-03 index d801cab..0edd429 100644 --- a/pages/e11-03 +++ b/pages/e11-03 @@ -7,10 +7,10 @@ clr r1 / set r1 to zero to dkip wait rts pc / and return 2: - jsr r5,chcom: qloqin / is command looin? - br 2f / not loqin, no to fork - sys exec; parbuf: parp / exec login - sys exec; binpb: parp / or /bin/login + jsr r5,chcom: qloqin / is command login? + br 2f / not loqin, go to fork + sys exec; parbuf; parp / exec login + sys exec; binpb; parp / or /bin/login 2: / no error return?? sys fork / generate sh child process for command br newproc / exec command with new process @@ -20,7 +20,7 @@ jmp newline / and return for next try 1: mov r0,r1 / save id of child sh - rts pc / return to “jsr pc, docom“ call in parent sh + rts pc / return to "jsr pc, docom" call in parent sh error: movb (r5)+,och / pick up diagnostic character @@ -30,27 +30,27 @@ error: br error / continue to get characters 1: inc r5 / inc r5 to point to return - bic $!,r5 / make it even + bic $1,r5 / make it even clr r0 / set for input - sys seek;,O; 2 / exit from runcom. skip to end of + sys seek; 0; 2 / exit from runcom. skip to end of / input file chcom: / has no effect if tty input mov (r5)+,r1 / glogin gchdir r1, bump r5 - mov $parbuf,r2 / command address r2 ’login’ + mov $parbuf,r2 / command address r2 'login' 1: - movb (r1)+,r0 / is this command ’chdir’ - cmpb (r2)+,r0 / compare command name byte with 'login’ - / or ’chdir’ - bne 1f / doesn’t compare + movb (r1)+,r0 / is this command 'chdir' + cmpb (r2)+,r0 / compare command name byte with 'login' + / or 'chdir' + bne 1f / doesn't compare tst r0 / is this - one 1b / end of names + bne 1b / end of names tst (r5)+ / yes, bump r5 again to execute login - / chdir + / chdir 1: rts r5 / no, return to exec command + putc: cmp r0,$'' / single quote? beq 1f / yes - cmp r0,$’" / double quote + cmp r0,$'" / double quote beq 1f / yes - diff --git a/pages/e11-04 b/pages/e11-04 index bd95278..c75ac40 100644 --- a/pages/e11-04 +++ b/pages/e11-04 @@ -1,14 +1,14 @@ bic $!177,r0 / no, remove 200, if present movb r0,(r3)+ / store character in parbuf - rts po + rts pc 1: mov r0,-(sp) / push quote mark onto stack 1: - jsr pc,getc / get a quoted charactef - cmp | r0.$’\n / is it end or line + jsr pc,getc / get a quoted character + cmp r0,$'\n / is it end or line bne 2f / no jsr r5,error / yes, indicate missing quote mark - <"’ imbalance\n\0)>; .even + <"' imbalance\n\0)>; .even jmp newline / ask for new line 2: cmp r0,(sp) / is this closing quote mark @@ -18,38 +18,39 @@ br 1b / continue 1: tst (sp)+ / pop quote mark off stack - ’ rts bc‘, return -/ thp‘e new process + rts pc / return + +/ thp`e new process + newproc: mov infile,0f / move pointer to new file name - beq lf / branch if no alternate read file given + beq 1f / branch if no alternate read file given tstb *0f beq 3f / branch if no file name miven - clr rO / set tty input file name + clr r0 / set tty input file name sys close / close it sys open; 0:..; 0 / open new input file for reading bcc 1f / branch if input file ok 3: jsr r5,error / file not ok, print error - : .even / this diagnostic - sys exit / terminate this process and make narent sh + ; .even / this diagnostic + sys exit / terminate this process and make parent sh 1: mov outfile,r2 / more pointer to new file name beq 1f / branch if no alternate write file - cmpb (r2),$’> / is > at beqinninrg of file name? - bne 4f / branch if it isn’t + cmpb (r2),$'> / is > at beqinninrg of file name? + bne 4f / branch if it isn't inc r2 / yes, increment pointer mov r2,0f - svs open; O:..; 1 / open file for writing + sys open; 0:..; 1 / open file for writing bec 3f / if no error 4: mov r2,0f sys creat; 0:..; 17 / create new file with this name - bec 3f / branch it no error + bec 3f / branch if no error 2: jsr r5,error - ; .even + ; .even sys exit 3: sys close / close the new write file - diff --git a/pages/e11-05 b/pages/e11-05 index 7f98428..5ad5832 100644 --- a/pages/e11-05 +++ b/pages/e11-05 @@ -1,7 +1,7 @@ mov r2,0f / move new name to open mov $1,r0 / set ttv file name sys close / close it - sys open; 0:..; 1 / ooen new output file, it now has + sys open; 0:..; 1 / open new output file, it now has / file descriptor 1 sys seek; 0; 2 / set pointer to current end of file 1: @@ -10,46 +10,46 @@ sys exec; parbuf; parp / no, execute this commend sys exec; binpb; parp / or /bin/this command 2: - sys stat; binpb; inbuf / if can’t execute does it + sys stat; binpb; inbuf / if can't execute does it / exist? - bes 2f / branch if it doesn’t + bes 2f / branch if it doesn't mov $shell,parp-2 / does exist, not executable mov $binpb,parp / so it must be svs exec; shell; parp-2 / a command file, get it with / sh /bin/x (if x name of file) 2: - jsr r5,error / a return for exec is the diaonostic - ; .even + jsr r5,error / a return for exec is the diagnostic + ; .even sys exit 1: mov $glob,parp-2 / prepare to process *,? - sys exec; glob: parp-2 / execute modified command + sys exec; glob; parp-2 / execute modified command br 2b delim: cmp r0,$'\n / is character a newline beq 1f - cmp r0,S’& / ls it & + cmp r0,S'& / is it & beq 1f / yes - cmu r0,$'; / is it ; + cmp r0,$'; / is it ; beq 1f / yes - cmp r0,$’? / is it ? + cmp r0,$'? / is it ? beq 3f - cmp r0,$’[ / is it beginning of character string + cmp r0,$'[ / is it beginning of character string / (for glob) bne 2f 3: inc glflag / ? or * or [ set flag 2: - tst (r5)+ / bump to process all except \n,:,& + tst (r5)+ / bump to process all except \n,;,& 1: rts r5 + blank: jsr pc,getc / get next character - cmp $' ,r0 / leadino blanks - beq blank / yes, ’squeeze out' - cmp r0,$200+'\n / new—line preceded by \ is translated + cmp $' ,r0 / leading blanks + beq blank / yes, 'squeeze out' + cmp r0,$200+'\n / new-line preceded by \ is translated beq blank / into blank rts pc getc: - diff --git a/pages/e11-06 b/pages/e11-06 index e90ea20..21f06ce 100644 --- a/pages/e11-06 +++ b/pages/e11-06 @@ -1,19 +1,19 @@ - tat param / are we substituting for $n + tst param / are we substituting for $n bne 2f/ yes mov inbufp,r1 / no, move normal input pointer to r1 cmp r1,einbuf / end of input line? bne 1f / no - jsr pc,netbuf / vas. put next console line in buffer - br gotc + jsr pc,getbuf / yes, put next console line in buffer + br getc 1: movb (r1)+,r0 / move byte from input buffer to r0 mov r1,inbufp / increment routine bis escap,r0 / if last character was \ this adds / 200 to current character clr escap / clear, so escap normally zero - cmp r0,$’\\ / note that \\ is equal \ in as + cmp r0,$'\\ / note that \\ is equal \ in as beq 1f - cmp r0,$’$ / is it $ + cmp r0,$'$ / is it $ beq 3f / yes rts pc / no 1: @@ -22,7 +22,7 @@ 2: movb *param,r0 / pick up substitution character put in / r0 - beq 1f / if end of substitution arc, branch + beq 1f / if end of substitution arg, branch inc param / if not end, set for next character rts pc / return as though character in ro is normal / input @@ -31,7 +31,7 @@ br getc / get next char in normal input 3: jsr pc,getc / get digit after $ - sub $’0,r0 / strip off zone bits + sub $'0,r0 / strip off zone bits cmp r0,$9, / compare with digit 9 clos 1f / less than or equal 9 mov $9.,r0 / if larger than 9, force 9 @@ -42,15 +42,14 @@ cmp r0,(r1) / is it less than # of args in this call bge getc / no, ignore it. so this $n is not replaced asl r0 / yes, multiply by 2 (to skip words) - add r01,r0 / form pointer to aro pointer (-2) - mov 2(r0),param / more arg pointer to param + add r01,r0 / form pointer to arg pointer (-2) + mov 2(r0),param / move arg pointer to param br getc / go to get substitution arg for $n getbuf: - mov $inbuf,r0 / move inout buffer address - mov r0,inbufp / to inout buffer pointer + mov $inbuf,r0 / move input buffer address + mov r0,inbufp / to input buffer pointer mov r0,einbuf / and initialize pointer to end of / character string dec r0 / decrement pointer so can utilize normal - / l00p starting at If - mov r0,0f / initialize address for readlng 1st char - + / 100p starting at 1f + mov r0,0f / initialize address for reading 1st char diff --git a/pages/e11-07 b/pages/e11-07 index 3b1a55c..4484fdd 100644 --- a/pages/e11-07 +++ b/pages/e11-07 @@ -1,32 +1,36 @@ 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 + clr r0 / set for tty input + sys read; 0:0; 1 / read next char into inbuf bcs xit1 / error exit - tst r0 / a zero input is and of file + tst r0 / a zero input is end 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 + / (+1) of this line + cmp 0b,$inbuf+256. / have we exceeded input buffer size bhis xit1 / if so, exit assume some sort of binary - cmpb *0b,$’\n / end of line? + 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.