diff --git a/applecorn.po b/applecorn.po
index 00da3fc..6a962d3 100644
Binary files a/applecorn.po and b/applecorn.po differ
diff --git a/applecorn.s b/applecorn.s
index 23367dc..6d1806f 100644
--- a/applecorn.s
+++ b/applecorn.s
@@ -149,7 +149,7 @@ IENTMAIN    MAC
 
 * Enable writing to main memory (for code running in aux)
 WRTMAIN     MAC
-*            PHP
+            PHP
             SEI               ; Keeps IRQ handler easy
             STA   $C004       ; Write to main memory
             EOM
@@ -157,8 +157,7 @@ WRTMAIN     MAC
 * Go back to writing to aux (for code running in aux)
 WRTAUX      MAC
             STA   $C005       ; Write to aux memory
-            CLI
-*            PLP               ; Normal service resumed
+            PLP               ; Normal service resumed
             EOM
 
 * Manually enable AltZP (for code running in main)
diff --git a/auxmem.vdu.s b/auxmem.vdu.s
index ea19c13..f61e8a7 100644
--- a/auxmem.vdu.s
+++ b/auxmem.vdu.s
@@ -364,12 +364,14 @@ PRCHR4        JSR   CHARADDR               ; Find character address
               >>>   WRTMAIN
               STA   [VDUADDR],Y
               >>>   WRTAUX
-              BRA   PRCHR8
+              BRA   PRCHR7
 PRCHR5        BCC   PRCHR6                 ; Aux memory
               >>>   WRTMAIN
-PRCHR6        STA   (VDUADDR),Y            ; Store it
-PRCHR7        >>>   WRTAUX
-PRCHR8        PLA
+              STA   (VDUADDR),Y            ; Store in main
+              >>>   WRTAUX
+              BRA   PRCHR7
+PRCHR6        STA   (VDUADDR),Y            ; Store in aux
+PRCHR7        PLA
               BIT   VDUSCREEN
               BPL   GETCHROK
               JMP   PRCHRSOFT              ; Write character to graphics