diff --git a/pages/e09-01 b/pages/e09-01 index c58986c..a2a7bb4 100644 --- a/pages/e09-01 +++ b/pages/e09-01 @@ -23,7 +23,7 @@ trcv: blt 1f / error tst tty+6(r0) beq 1f - bit $40,r2 / parlty + bit $40,r2 / parity bne 3f / branch if set tstb tty+4(r0) blt 4f / 37 parity not allowed diff --git a/pages/e09-02 b/pages/e09-02 index 704a652..15c102b 100644 --- a/pages/e09-02 +++ b/pages/e09-02 @@ -21,7 +21,7 @@ movb tty+3(r0),0f inc 0f jsr r0,putc; 0:.. / put char just input on output clist - bx: .+2 + br: .+2 jsr r0,starxmt mov (sp)+,r1 3: @@ -29,7 +29,7 @@ bne 1f / branch if raw bit set cmp r1,$12 beq 1f - movb tty+38r0),r1 + movb tty+3(r0),r1 cmpb cc(r1),$15. blo 2f 1: diff --git a/pages/e09-03 b/pages/e09-03 index 63bdf9d..23382c1 100644 --- a/pages/e09-03 +++ b/pages/e09-03 @@ -27,7 +27,7 @@ starxmt: mov (sp),r1 / 0%8 / r1 contains tty number asr r1 asr r1 - asr r1 / 0%1 r1 contalns tty number + asr r1 / 0%1 r1 contains tty number tstb toutt+3(r1) / is tout entry for tty output = 0 bne 1f / no, return to calling routine mov (sp),r2 / yes, place (8xtty number) into r2 diff --git a/pages/e09-04 b/pages/e09-04 index 03597f9..4844b37 100644 --- a/pages/e09-04 +++ b/pages/e09-04 @@ -39,7 +39,7 @@ bne 2f / yes bitb $20,3(r2) / cr flag is bit 4 of 5th byte of "tty" / area = 1 - beq 2f / no (only if to be handled) + beq 2f / no (only lf to be handled) movb $15,1(r2) / place "cr" in 3rd byte of "tty" area / (character leftover after "lf" ) 2: diff --git a/pages/e09-07 b/pages/e09-07 index c11706f..03ccc3a 100644 --- a/pages/e09-07 +++ b/pages/e09-07 @@ -23,7 +23,7 @@ rcvch: 1: movb tty+3(r2),0f / make cc offset arg for "getc" mov $240,*$ps / set processor priority = 5 - jsr r0,qetc; 0:.. / get next character off clist + jsr r0,getc; 0:.. / get next character off clist br 2f / clist empty clr *$ps / set processor priority = 0 rts r0