diff --git a/src/mon_m65/bsmon.s b/src/mon_m65/bsmon.s
index 9e9f5dbd..d40ad086 100644
--- a/src/mon_m65/bsmon.s
+++ b/src/mon_m65/bsmon.s
@@ -93,9 +93,9 @@ Mon_Register:
          DEY
          BNE  @loopc
 
-; **
-Main
-; **
+; ***
+Main:
+; ***
 
          JSR  Print_CR
          LDX  #0
@@ -218,7 +218,7 @@ Mon_Exit:
          JMP  (X_Vector)
 
 ; ********
-LAC_To_PC: ; XXX to be adapted, get rid of 'bcs'!
+LAC_To_PC: ; XXX to be adapted
 ; ********
 
 ; called from Mon_Set_Register, Mon_Go and Mon_JSR
diff --git a/src/mon_m65/mon_command_memory.s b/src/mon_m65/mon_command_memory.s
index 11b688ec..d59394dc 100644
--- a/src/mon_m65/mon_command_memory.s
+++ b/src/mon_m65/mon_command_memory.s
@@ -64,4 +64,4 @@ Mon_Memory:
 
 @exit:
 
-   jmp Main
+   jmp  Main
diff --git a/src/mon_m65/mon_helper_memory.s b/src/mon_m65/mon_helper_memory.s
index 90145589..5f78e16e 100644
--- a/src/mon_m65/mon_helper_memory.s
+++ b/src/mon_m65/mon_helper_memory.s
@@ -4,8 +4,6 @@
 
 Get_From_Memory:
 
-	; XXX consider using long mode for addresses below $8000 always
-
 	phx
 	phy
 	phz
@@ -44,7 +42,7 @@ Get_From_Memory:
 	dec
 	dec
 	cmp  #$8E
-	bcs  @read                         ; branch if no need to handle shadow memory (0, 1, or above $8F)
+	bcs  @read_64k                     ; branch if no need to handle shadow memory (0, 1, or above $8F)
 @2:
 	sta  Long_TMP+0
 	bra  @read_shadow
@@ -63,6 +61,11 @@ Get_From_Memory:
 	bcs  @read_flat
 	bra  @2
 
+@read_64k:
+
+	bbr7 Long_TMP+1, @read_flat        ; below $8000 we do not want to retrieve MAP/EOM banked memory
+	bra  @read
+
 @read_shadow:
 
 	lda  #MEMCONF_SHADOW_BZP_1
@@ -72,7 +75,7 @@ Get_From_Memory:
 	lda  #MEMCONF_SHADOW_BZP_3
 	sta  Long_TMP+3
 
-@read_flat:
+@read_flat: ; XXX read via helper in KERNAL_0 segment
 	+nop
 @read: 
 	lda  (Long_TMP),Z