some work on BASIC/KERNAL side of the monitor

src/basic/,imports.s

@@ -19,6 +19,7 @@
 
 ;; #ALIAS# printf              = KERNAL_0.printf
 ;; #ALIAS# PRIMM               = KERNAL_0.PRIMM
+;; #ALIAS# MONITOR             = KERNAL_0.MONITOR
 
 ;; #ALIAS# plot_set            = KERNAL_0.plot_set
 ;; #ALIAS# print_hex_byte      = KERNAL_0.print_hex_byte

src/basic/basic_commands_01/cmd_old.s

@@ -7,9 +7,7 @@ cmd_old:
 
 	; First make sure we are in direct mode
 
-	ldx CURLIN+1
-	inx
-	+bne do_DIRECT_MODE_ONLY_error
+	jsr helper_ensure_direct_mode
 
 	; Now try to restore program linkage and VARTAB
 

src/basic/basic_commands_01/helper_ensure_direct_mode.s

@@ -0,0 +1,12 @@
+;; #LAYOUT# STD *       #TAKE
+;; #LAYOUT# *   BASIC_0 #TAKE
+;; #LAYOUT# *   *       #IGNORE
+
+
+helper_ensure_direct_mode:
+
+	ldx CURLIN+1
+	inx
+	+bne do_DIRECT_MODE_ONLY_error
+
+	rts

src/basic/basic_commands_04/cmd_monitor.s

@@ -4,6 +4,7 @@
 
 cmd_monitor:
 
-	; XXX implement this
+	jsr helper_ensure_native_mode
+	jsr helper_ensure_direct_mode
 
-	jmp do_NOT_IMPLEMENTED_error
+	jmp MONITOR

src/basic/board_m65/mega65_map_helpers.s

@@ -23,6 +23,6 @@ map_BASIC_1:
 	taz
 
 	lda #$20
-	ldx #$C2    ; $4000 <- map 16KB from $22000
+	ldx #$C2    ; $4000 <- map 16KB from $26000
 
 	jmp map_end