diff --git a/libsrc/c128/cputc.s b/libsrc/c128/cputc.s
index 667260843..5c0760e75 100644
--- a/libsrc/c128/cputc.s
+++ b/libsrc/c128/cputc.s
@@ -62,10 +62,9 @@ cputdirect:
 ; Handle character if high bit set
 
 L5:     and     #$7F
-        cmp     #$7E            ; PI?
+        cmp     #$7F            ; PI?
         bne     L6
         lda     #$5E            ; Load screen code for PI
-        bne     cputdirect
 L6:     ora     #$40
         bne     cputdirect      ; Branch always
 
diff --git a/libsrc/c64/cputc.s b/libsrc/c64/cputc.s
index d6b49607a..b893f2102 100644
--- a/libsrc/c64/cputc.s
+++ b/libsrc/c64/cputc.s
@@ -74,10 +74,9 @@ L5:     inc     CURS_Y
 ; Handle character if high bit set
 
 L10:    and     #$7F
-        cmp     #$7E            ; PI?
+        cmp     #$7F            ; PI?
         bne     L11
         lda     #$5E            ; Load screen code for PI
-        bne     cputdirect
 L11:    ora     #$40
         bne     cputdirect
 
diff --git a/libsrc/cbm510/cputc.s b/libsrc/cbm510/cputc.s
index 73d45b422..7dd4cddb2 100644
--- a/libsrc/cbm510/cputc.s
+++ b/libsrc/cbm510/cputc.s
@@ -65,10 +65,9 @@ L3:     sty     CURS_X
 ; Handle character if high bit set
 
 L10:    and     #$7F
-        cmp     #$7E            ; PI?
+        cmp     #$7F            ; PI?
         bne     L11
         lda     #$5E            ; Load screen code for PI
-        bne     cputdirect
 L11:    ora     #$40
         bne     cputdirect      ; Branch always
 
diff --git a/libsrc/cbm610/cputc.s b/libsrc/cbm610/cputc.s
index 5888580ac..78e2a5581 100644
--- a/libsrc/cbm610/cputc.s
+++ b/libsrc/cbm610/cputc.s
@@ -73,10 +73,9 @@ L4:     inc     CURS_Y
 ; Handle character if high bit set
 
 L10:    and     #$7F
-        cmp     #$7E            ; PI?
+        cmp     #$7F            ; PI?
         bne     L11
         lda     #$5E            ; Load screen code for PI
-        bne     cputdirect
 L11:    ora     #$40
         bne     cputdirect      ; Branch always
 
diff --git a/libsrc/plus4/cputc.s b/libsrc/plus4/cputc.s
index 49b3a84dd..a72b4012a 100644
--- a/libsrc/plus4/cputc.s
+++ b/libsrc/plus4/cputc.s
@@ -74,10 +74,9 @@ L5:     inc     CURS_Y
 ; Handle character if high bit set
 
 L10:    and     #$7F
-        cmp     #$7E            ; PI?
+        cmp     #$7F            ; PI?
         bne     L11
         lda     #$5E            ; Load screen code for PI
-        bne     cputdirect
 L11:    ora     #$40
         bne     cputdirect
 
diff --git a/libsrc/vic20/cputc.s b/libsrc/vic20/cputc.s
index 1db818546..9e818032e 100644
--- a/libsrc/vic20/cputc.s
+++ b/libsrc/vic20/cputc.s
@@ -95,10 +95,9 @@ L5:     inc     CURS_Y
 ; Handle character if high bit set
 
 L10:    and     #$7F
-        cmp     #$7E            ; PI?
+        cmp     #$7F            ; PI?
         bne     L11
         lda     #$5E            ; Load screen code for PI
-        bne     cputdirect
 L11:    ora     #$40
         bne     cputdirect