32 lines
390 B
ArmAsm
32 lines
390 B
ArmAsm
|
|
//
|
|
// 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_far ckout_file_not_output
|
|
|
|
// Send LISTEN + SECOND first
|
|
lda FAT,Y
|
|
|
|
jsr LISTEN
|
|
bcs_far chkinout_device_not_present
|
|
|
|
lda LAT, Y
|
|
ora #$60
|
|
jsr SECOND
|
|
bcs_far chkinout_device_not_present
|
|
|
|
jmp ckout_set_device
|
|
|
|
|
|
#endif // CONFIG_IEC
|