41 lines
549 B
ArmAsm
41 lines
549 B
ArmAsm
|
|
//
|
|
// IEC part of the OPEN routine
|
|
//
|
|
|
|
|
|
#if CONFIG_IEC
|
|
|
|
|
|
open_iec:
|
|
|
|
// Check for command to send
|
|
ldy FNLEN
|
|
beq open_iec_done
|
|
|
|
// We have a command to send to IEC device
|
|
jsr LISTEN
|
|
bcc !+
|
|
jmp kernalerror_DEVICE_NOT_FOUND
|
|
!:
|
|
lda SA
|
|
jsr iec_cmd_open
|
|
bcc !+
|
|
jmp kernalerror_DEVICE_NOT_FOUND
|
|
!:
|
|
|
|
#if CONFIG_MEMORY_MODEL_60K
|
|
// We need our helpers to get to filenames under ROMs or IO area
|
|
jsr install_ram_routines
|
|
#endif
|
|
|
|
// Send command ('file name')
|
|
jsr iec_send_file_name
|
|
|
|
open_iec_done:
|
|
|
|
jmp open_done_success
|
|
|
|
|
|
#endif // CONFIG_IEC
|