Ultimate 64 tape improvements

src/kernal/tape/tape_common.s

@@ -113,13 +113,10 @@ tape_prepare_reading:
 
 } ; CONFIG_TAPE_HEAD_ALIGN
 
-!ifdef CONFIG_MB_M65 {
-
 	; Display confirmation
 
-	ldx #__MSG_KERNAL_OK_SEARCHING
+	ldx #__MSG_KERNAL_OK
 	jsr print_kernal_message
-}
 
 	; Prepare for reading
 

src/kernal/tape/tape_common_screen.s

@@ -19,15 +19,21 @@ tape_screen_on_motor_off:
 	lda COLSTORE
 	sta VIC_EXTCOL
 
-!ifndef CONFIG_MB_M65 {
-
-	jmp screen_on
-
-} else {
+!ifdef CONFIG_MB_M65 {
 
 	jsr M65_MODEGET
 	+bcs screen_on                   ; MEGA65 native mode does not have badlines, no need to enable/disable screen
 	rts
+
+} else ifdef CONFIG_MB_U64 {
+
+	lda NXTBIT
+	sta U64_TURBOCTL                 ; restore turbo control settings
+	jmp screen_on
+
+} else {
+
+	jmp screen_on
 }
 
 
@@ -44,11 +50,7 @@ tape_screen_off_motor_on:
 	lda VIC_EXTCOL
 	sta COLSTORE
 
-!ifndef CONFIG_MB_M65 {
-
-	jsr screen_off
-
-} else {
+!ifdef CONFIG_MB_M65 {
 
 	jsr M65_MODEGET
 	; XXX optimize this
@@ -56,6 +58,24 @@ tape_screen_off_motor_on:
 	jsr screen_off
 @1:
 
+} else ifdef CONFIG_MB_U64 {
+
+	lda U64_TURBOCTL
+	sta NXTBIT
+	cmp #$FF
+	beq @1                             ; branch if no turbo control available
+
+	lda #$8F                           ; max speed, no badlines
+	sta U64_TURBOCTL
+	bne @2                             ; branch always
+
+@1:
+	jsr screen_off
+@2:
+
+} else {
+
+	jsr screen_off
 }
 
 	jmp tape_motor_on