127 lines
2.7 KiB
ArmAsm
127 lines
2.7 KiB
ArmAsm
|
|
//
|
|
// 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
|