35 lines
482 B
ArmAsm
35 lines
482 B
ArmAsm
// #LAYOUT# STD * #TAKE
|
|
// #LAYOUT# * KERNAL_0 #TAKE
|
|
// #LAYOUT# * * #IGNORE
|
|
|
|
//
|
|
// IEC part of the CKOUT routine
|
|
//
|
|
|
|
|
|
#if CONFIG_IEC
|
|
|
|
|
|
ckout_iec:
|
|
|
|
// Fail if the file is open for reading (secondary address 0)
|
|
|
|
lda LAT, Y
|
|
beq_16 ckout_file_not_output
|
|
|
|
// Send LISTEN + SECOND first
|
|
lda FAT,Y
|
|
|
|
jsr LISTEN
|
|
bcs_16 chkinout_device_not_present
|
|
|
|
lda LAT, Y
|
|
ora #$60
|
|
jsr SECOND
|
|
bcs_16 chkinout_device_not_present
|
|
|
|
jmp ckout_set_device
|
|
|
|
|
|
#endif // CONFIG_IEC
|