gave e09 another once over

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

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:

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

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:

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