small directory structure cleanup

src/kernal/board_m65/mega65_modeget.s

@@ -0,0 +1,31 @@
+;; #LAYOUT# M65 KERNAL_0 #TAKE
+;; #LAYOUT# *   *        #IGNORE
+
+
+M65_MODEGET:
+
+	; Checks if mode is native M65 one; Carry clear = native mode, Carry set = legacy mode
+
+	pha
+
+	lda M65_MAGICSTR+0
+	cmp #$4D ; 'M'
+	bne @1
+	lda M65_MAGICSTR+1
+	cmp #$36 ; '6'
+	bne @1
+	lda M65_MAGICSTR+2
+	cmp #$35 ; '5'
+	bne @1
+
+	; M65 native mode
+
+	clc
+	pla
+	rts
+@1:
+	; C64 compatibility mode
+
+	sec
+	pla
+	rts

src/kernal/board_m65/mega65_modeset.s

@@ -0,0 +1,80 @@
+;; #LAYOUT# M65 KERNAL_1 #TAKE
+;; #LAYOUT# *   *        #IGNORE
+
+
+M65_MODESET:
+
+	; Carry clear = set native mode; Carry set = set legacy mode 
+
+	bcc m65_mode65
+
+	; FALLTROUGH
+
+m65_mode64:
+
+	; Disable interrupts, they might interfere
+
+	sei
+
+	; Set the magic string to mark legacy mode
+
+	jsr m65_clr_magictstr
+
+	; Restore VIC-II configuration
+
+	jsr viciv_shutdown
+	jsr vicii_init
+
+	; Switch CPU speed to normal
+
+	lda #$40
+	sta CPU_D6510
+
+	; Reenable interrupts and quit
+
+	cli
+	rts
+
+
+m65_mode65:
+
+	; Disable interrupts, they might interfere
+
+	sei
+
+	; Switch CPU speed to normal; VIC-IV register will be used to set the maximum one
+
+	lda #$40
+	sta CPU_D6510
+
+	; Set the magic string to mark native mode
+
+	lda #$4D ; 'M'
+	sta M65_MAGICSTR+0
+	lda #$36 ; '6'
+	sta M65_MAGICSTR+1
+	lda #$35 ; '5'
+	sta M65_MAGICSTR+2
+
+	; Initialize VIC-IV
+
+	jsr vicii_init
+	jsr viciv_init
+
+	; Initialize various memory structures
+
+	jsr m65_native_meminit
+
+	; Set C65 keybord handling - XXX check this before enabling
+
+	; lda #$02
+	; sta C65_EXTKEYS_DDR ; output for most keys, input for CAPS LOCK bit
+
+	; Set screen mode to 80x50
+
+	lda #$02
+	jsr m65_scrmodeset_internal
+
+	; Clear the screen
+
+	jmp M65_CLRSCR