diff --git a/scans/s3.s b/scans/s3.s
index c0ca18d..65527ce 100644
--- a/scans/s3.s
+++ b/scans/s3.s
@@ -70,7 +70,7 @@ lookfor: 0
    isz u.rq+8
    dzm u.intflg
    jmp sysexit
-t= t+1
+t = t+1
 
 badcal:
    clon
@@ -258,6 +258,10 @@ rkbdi:
    sad o134
    skp
    jmp 2f
+   lacq
+   xor o40
+   lmq
+   jmp 2f
 1:
    lacq
    xor o20
@@ -291,7 +295,6 @@ wdspo:
    jms swap
    jmp wdspo
 
-
 rppti:
    lac d4
    jms getchar
diff --git a/src/sys/s3.s b/src/sys/s3.s
index 71b6d05..3685022 100644
--- a/src/sys/s3.s
+++ b/src/sys/s3.s
@@ -84,7 +84,7 @@ lookfor: 0
    isz u.rg+8			" give skip return
    dzm u.intflg			" clear int flag
    jmp sysexit			" return in child process
-t= t+1
+t = t+1
 
 badcal:				" bad (unimplemented) system call
    clon				" clear any pending clock interrupt?
@@ -291,6 +291,10 @@ rkbdi:
    sad o134
    skp				" \| map to Ll ???
    jmp 2f
+   lacq
+   xor o40
+   lmq
+   jmp 2f
 1:
    lacq
    xor o20