some fixes and refactoring for IEC SAVE
This commit is contained in:
1 parent
ce68834035
commit
dd09e2432e
6 files changed
+67
-36
No files matched your search
@@ -101,7 +101,7 @@ iec_load_loop:
|
||||
|
||||
// Advance pointer to data; it is OK if it advances past $FFFF,
|
||||
// one autostart technique does exactly this
|
||||
jsr lvs_advance_pointer
|
||||
jsr lvs_advance_EAL
|
||||
|
||||
// Handle STOP key; it is probably an overkill to do it
|
||||
// with every byte, once per 32 bytes should be enough
|
||||
|
||||
@@ -86,17 +86,12 @@ iec_save_loop:
|
||||
sta TBTCNT
|
||||
clc
|
||||
jsr iec_tx_byte
|
||||
jsr lvs_advance_pointer
|
||||
jsr lvs_advance_STAL
|
||||
jmp iec_save_loop
|
||||
|
||||
iec_save_loop_end:
|
||||
|
||||
// Send last byte
|
||||
sta TBTCNT
|
||||
clc // XXX really?
|
||||
jsr iec_tx_byte
|
||||
|
||||
// Close file on drive // XXX does not work properly
|
||||
// Close file on drive
|
||||
lda FA
|
||||
jsr UNLSN
|
||||
|
||||
@@ -112,7 +107,6 @@ iec_save_loop_end:
|
||||
lda FA
|
||||
jsr UNLSN
|
||||
|
||||
|
||||
// Return success
|
||||
clc
|
||||
rts
|
||||
|
||||
Reference in new issue
Block a user