added MEGA65-specific JOYCRSR command

src/,,config_mega65.s

@@ -71,8 +71,8 @@
 ;; #CONFIG# KEYCMD_F10                 "REM F10"
 ;; #CONFIG# KEYCMD_F11                 "REM F11"
 ;; #CONFIG# KEYCMD_F12                 "REM F12"
-;; #CONFIG# KEYCMD_F13                 "REM F13"
-;; #CONFIG# KEYCMD_F14                 "REM F14"
+;; #CONFIG# KEYCMD_F13                 "JOYCRSR 2"
+;; #CONFIG# KEYCMD_F14                 "JOYCRSR 0"
 
 
 ; --- Screen editor

src/basic/basic_commands_04/cmd_joycrsr.s

@@ -0,0 +1,24 @@
+;; #LAYOUT# M65 BASIC_0 #TAKE
+;; #LAYOUT# *   *       #IGNORE
+
+
+cmd_joycrsr:
+
+	; Make sure we are in MEGA65 native mode
+
+	jsr helper_ensure_native_mode
+
+	; Fetch joystick ID
+
+	jsr fetch_coma_uint8
+	+bcs do_SYNTAX_error
+
+	; Check if joystick ID is valid
+
+	cmp #$03
+	+bcs do_ILLEGAL_QUANTITY_error
+
+	; Set the joystick responsible for moving cursor keys
+
+	sta M65_JOYCRSR    ; XXX consider introducing Kernal call for this 
+	rts

src/basic/basic_commands_04/helper_ensure_native_mode_m65.s

@@ -0,0 +1,10 @@
+;; #LAYOUT# M65 BASIC_0 #TAKE
+;; #LAYOUT# *   *       #IGNORE
+
+
+helper_ensure_native_mode:
+
+	jsr M65_MODEGET
+	+bcs do_NATIVE_MODE_ONLY_error
+
+	rts