chris/open-roms
1
0 Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

SECOND/TKSA compatibility fix

Browse Source
This commit is contained in:
FeralChild64 committed 2019-11-07 17:23:27 +01:00
1 parent 7453771219
commit 2e9a0b1610
5 files changed
+15 -15
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

c64/kernal/iec/chkin_iec.s
+1
View File
@@ -22,6 +22,7 @@ chkin_iec:
bcs_far chkinout_device_not_present bcs_far chkinout_device_not_present
lda LAT, Y lda LAT, Y
ora #$60
jsr TKSA jsr TKSA
bcs_far chkinout_device_not_present bcs_far chkinout_device_not_present
c64/kernal/iec/ckout_iec.s
+1
View File
@@ -21,6 +21,7 @@ ckout_iec:
bcs_far chkinout_device_not_present bcs_far chkinout_device_not_present
lda LAT, Y lda LAT, Y
ora #$60
jsr SECOND jsr SECOND
bcs_far chkinout_device_not_present bcs_far chkinout_device_not_present
c64/kernal/iec/save_iec.s
+1 -1
View File
@@ -47,7 +47,7 @@ save_iec:
jsr LISTEN jsr LISTEN
bcs save_iec_dev_not_found bcs save_iec_dev_not_found
lda #$60 // open channel / data (p3) , required according to p13 lda #$61 // open channel / data (p3) , required according to p13
sta TBTCNT sta TBTCNT
jsr iec_tx_command jsr iec_tx_command
bcs save_iec_error bcs save_iec_error
c64/kernal/iec/second.s
+6 -7
View File
@@ -14,13 +14,12 @@ SECOND:
#if CONFIG_IEC #if CONFIG_IEC
// Due to OPEN/CLOSE/TKSA/SECOND command encoding (see https://www.pagetable.com/?p=1031), // Due to OPEN/CLOSE/TKSA/SECOND command encoding, allowed channels are 0-15; it is the caller
// allowed channels are 0-15; report error if out of range // responsibility, hovewer, to provide value ORed with $60
cmp #$10 // - https://www.lemon64.com/forum/viewtopic.php?t=57694&sid=531ba3592bcffadef2ac8b9162f2e529
bcc !+ // - https://www.pagetable.com/?p=1031 (Kernal API description)
jmp kernalerror_DEVICE_NOT_FOUND // XXX find a better error message for wrong channel (create new one?)
!: // XXX consider checking whether value is in range (contrary to original ROM implementation)
ora #$60
jmp common_open_close_unlsn_second jmp common_open_close_unlsn_second
c64/kernal/iec/tksa.s
+6 -7
View File
@@ -14,13 +14,12 @@ TKSA:
#if CONFIG_IEC #if CONFIG_IEC
// Due to OPEN/CLOSE/TKSA/SECOND command encoding (see https://www.pagetable.com/?p=1031), // Due to OPEN/CLOSE/TKSA/SECOND command encoding, allowed channels are 0-15; it is the caller
// allowed channels are 0-15; report error if out of range // responsibility, hovewer, to provide value ORed with $60
cmp #$10 // - https://www.lemon64.com/forum/viewtopic.php?t=57694&sid=531ba3592bcffadef2ac8b9162f2e529
bcc !+ // - https://www.pagetable.com/?p=1031 (Kernal API description)
jmp kernalerror_DEVICE_NOT_FOUND // XXX find a better error message for wrong channel (create new one?)
!: ora #$90
ora #$F0
jmp common_untlk_tksa jmp common_untlk_tksa