diff --git a/applecorn.po b/applecorn.po
index 89a0b6a..ced1d3c 100644
Binary files a/applecorn.po and b/applecorn.po differ
diff --git a/auxmem.bytwrd.s b/auxmem.bytwrd.s
index ab11f5d..f996104 100644
--- a/auxmem.bytwrd.s
+++ b/auxmem.bytwrd.s
@@ -361,9 +361,9 @@ WORD06       JSR   GETADDR                ; Point to address, set Y=>data
              LDA   (OSCTRL),Y             ; Get byte
              PLP
              BNE   WORD06A
-             STA   $C004                  ; Switch to main memory
+             >>>   WRTMAIN
 WORD06A      STA   (OSINTWS)              ; Store it
-             STA   $C005                  ; Back to aux memory
+             >>>   WRTAUX
              RTS
 
 GETADDR      STA   OSINTWS+0              ; (OSINTWS)=>byte to read/write
diff --git a/auxmem.gfx.s b/auxmem.gfx.s
index 56a963c..49966d2 100644
--- a/auxmem.gfx.s
+++ b/auxmem.gfx.s
@@ -23,12 +23,12 @@ PRCHRSOFT    CMP   #$A0              ; Convert to screen code
              JSR   HCHARADDR         ; Addr in VDUADDR
              PHP                     ; Disable IRQs while
              SEI                     ;  toggling memory
-             STA   $C004             ; Write to main
+             >>>   WRTMAIN
              LDA   VDUADDR+0
              STA   HGRADDR+0
              LDA   VDUADDR+1
              STA   HGRADDR+1
-             STA   $C005             ; Write to aux
+             >>>   WRTAUX
              PLP                     ; Restore IRQs
              PLA                     ; Recover character
              >>>   XF2MAIN,DRAWCHAR  ; Plot char on HGR screen
diff --git a/auxmem.hostfs.s b/auxmem.hostfs.s
index d6b0819..d3b2cc7 100644
--- a/auxmem.hostfs.s
+++ b/auxmem.hostfs.s
@@ -850,17 +850,17 @@ PARSLPTR     CLC                             ; Means parsing a filename
              LDX   #$00                      ; Length
 :L1          JSR   GSREAD                    ; Handle next char
              BCS   :DONE
-             STA   $C004                     ; Write to main mem
+             >>>   WRTMAIN
              STA   MOSFILE+1,X
-             STA   $C005                     ; Write to aux mem
+             >>>   WRTAUX
              INX
              CPX   #$40
              BNE   :L1                       ; Name not too long
              TXA                             ; $40=Bad filename
              JMP   MKERROR
-:DONE        STA   $C004                     ; Write to main mem
+:DONE        >>>   WRTMAIN
              STX   MOSFILE                   ; Length byte (Pascal)
-             STA   $C005                     ; Back to aux
+             >>>   WRTAUX
              PLP                             ; IRQs back as they were
              TXA                             ; Return len in A
              RTS
@@ -876,17 +876,17 @@ PARSLPTR2    CLC                             ; Means parsing a filename
              LDX   #$00                      ; Length
 :L1          JSR   GSREAD                    ; Handle next char
              BCS   :DONE
-             STA   $C004                     ; Write to main mem
+             >>>   WRTMAIN
              STA   MOSFILE2+1,X
-             STA   $C005                     ; Write to aux mem
+             >>>   WRTAUX
              INX
              CPX   #$40
              BNE   :L1                       ; Name not too long
              TXA                             ; $40=Bad filename
              JMP   MKERROR
-:DONE        STA   $C004                     ; Write to main mem
+:DONE        >>>   WRTMAIN
              STX   MOSFILE2                  ; Length byte (Pascal)
-             STA   $C005                     ; Back to aux
+             >>>   WRTAUX
              PLP                             ; IRQs back as they were
              TXA                             ; Return len in A
 NOTERROR     RTS