35 lines
483 B
ArmAsm
35 lines
483 B
ArmAsm
// #LAYOUT# STD * #TAKE
|
|
// #LAYOUT# * KERNAL_0 #TAKE
|
|
// #LAYOUT# * * #IGNORE
|
|
|
|
//
|
|
// IEC part of the CHKIN routine
|
|
//
|
|
|
|
|
|
#if CONFIG_IEC
|
|
|
|
|
|
chkin_iec:
|
|
|
|
// Fail if the file is open for writing (secondary address 1)
|
|
|
|
lda LAT, Y
|
|
cmp #$01
|
|
beq_16 chkin_file_not_input
|
|
|
|
// Send TALK + TKSA first
|
|
lda FAT,Y
|
|
|
|
jsr TALK
|
|
bcs_16 chkinout_device_not_present
|
|
|
|
lda LAT, Y
|
|
ora #$60
|
|
jsr TKSA
|
|
bcs_16 chkinout_device_not_present
|
|
|
|
jmp chkin_set_device
|
|
|
|
#endif // CONFIG_IEC
|