one more init rework, turbo tape starts working

c64/kernal/tape/load_tape_turbo.s

@@ -12,6 +12,8 @@
 
 load_tape_turbo:
 
+	// XXX prepare SID, store screen color somewhere, read header
+
 	jsr tape_ditch_verify              // only LOAD is supported, no VERIFY
 
 	ldy #$00
@@ -91,16 +93,24 @@ tape_turbo_get_bit:
 
 	lda #$10	
 !:
-	bit CIA2_ICR	
+	bit CIA1_ICR	
 	beq !-                             // busy loop to detect signal
 	lda CIA2_ICR
 	pha	
 	lda #$19	
 	sta CIA2_CRA	
 	pla
-	sta VIC_EXTCOL                     // use bitvalue as d020 effect (I love that one)
-	lsr
+	
+	pha                                // audio/video effects
+	asl
+	sta SID_SIGVOL
+	beq !+
+	lda #$06
+!:
+	sta VIC_EXTCOL
+	pla
 
+	lsr
 	rts
 
 

c64/kernal/tape/tape_common.s

@@ -45,6 +45,8 @@ tape_ask_play:
 	ldx #__MSG_KERNAL_PRESS_PLAY
 	jsr print_kernal_message
 
+	// FALLTROUGH
+
 tape_wait_button_loop:
 
 	jsr udtim_keyboard
@@ -71,7 +73,8 @@ tape_load_success:
 
 	jsr screen_show
 	jsr tape_motor_off
-
+	
+	cli
 	jmp lvs_success_end
 
 
@@ -80,6 +83,7 @@ tape_load_error:
 	jsr screen_show
 	jsr tape_motor_off
 
+	cli
 	jmp lvs_load_verify_error