//
// Tape (turbo) part of the LOAD routine
//

// Based on routine by enthusi/Onslaught, found here:
// - https://codebase64.pokefinder.org/doku.php?id=base:turbotape_loader_source


// XXX use calibration bits to improve reading
// XXX find out how to use B0 tape timing
// XXX put header type into (TAPE1)


#if CONFIG_TAPE_TURBO


load_tape_turbo:

	jsr tape_ditch_verify              // only LOAD is supported, no VERIFY

	lda #$00
	sta CIA2_TIMAHI // $DD05
	lda #$FE                           // timer threshold for TurboTape
	sta CIA2_TIMALO // $DD04

	// Prepare for sound effects
	jsr tape_clean_sid

	// Start playing
	jsr tape_ask_play

	// FALLTROUGH

load_tape_turbo_header:

	// Read file header; structure described here:
	// - https://www.luigidifraia.com/c64/docs/tapeloaders.html#turbotape64
	//
	// 1 byte           - file type (0 = data, odd value = relocatable, even value = non-relocatable)
	// 2 bytes          - start address
	// 2 bytes          - end address + 1
	// 1 byte           - if $B0 (tape timing) contained at the time of saving
	//                    (we skip this one to match normal system header)
	// 16 bytes         - filename, padded with 0x20

	jsr tape_turbo_sync_header
	ldy #$00
	sta (TAPE1), y                     // store header type
	iny

	// FALLTROUGH

load_tape_turbo_header_loop:

	jsr tape_turbo_get_byte
	sta (TAPE1), y
	iny
	cpy #$05
	bne !+
	jsr tape_turbo_get_byte            // tape timing - skip this one
!:
	cpy #$C0                           // header is 192 bytes long in total
	bne load_tape_turbo_header_loop

	// For non-relocatable files, override secondary address
	ldy #$00                           // XXX optimize out for 65C02
	lda (TAPE1), y
	beq !+
	and #$01
	bne !+
	lda #$01                           // XXX for 65C02 just set the bit with one instruction
	sta SA
!:
	// Handle the header

	jsr tape_clean_sid
	jsr tape_handle_header             // XXX handle non-relocatable programs - any non-0 even header type
	bcs load_tape_turbo_header         // if name does not match, look for other header

	// FALLTROUGH

load_tape_turbo_payload:

	// Initial checksum value

	lda #$00
	sta PRTY

	// Read file payload

	jsr tape_turbo_sync_payload

	// FALLTROUGH

load_tape_turbo_loop:

	jsr tape_turbo_get_byte
	sta (MEMUSS),y

	eor PRTY                           // handle checksum
	sta PRTY

	// Advance MEMUSS (see Mapping the C64, page 36)
#if !HAS_OPCODES_65CE02
	jsr lvs_advance_MEMUSS
#else
	inw MEMUSS+0
#endif
	jsr lvs_check_EAL
	bne load_tape_turbo_loop

	// Get the checksum
	jsr tape_turbo_get_byte
	tax

	// Silence audio
	jsr tape_clean_sid

	// Verify the checksum
	cpx PRTY
	beq_far tape_load_success
	jmp tape_load_error


#endif // CONFIG_TAPE_TURBO