39 lines
602 B
ArmAsm
39 lines
602 B
ArmAsm
;; #LAYOUT# STD * #TAKE
|
|
;; #LAYOUT# * KERNAL_0 #TAKE
|
|
;; #LAYOUT# * * #IGNORE
|
|
|
|
;
|
|
; IEC part of the OPEN routine
|
|
;
|
|
|
|
|
|
!ifdef 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
|
|
+bcs kernalerror_DEVICE_NOT_FOUND
|
|
|
|
lda SA
|
|
jsr iec_cmd_open
|
|
+bcs kernalerror_DEVICE_NOT_FOUND
|
|
|
|
!ifdef CONFIG_MEMORY_MODEL_60K {
|
|
; We need our helpers to get to filenames under ROMs or IO area
|
|
jsr install_ram_routines
|
|
}
|
|
|
|
; Send command ('file name')
|
|
jsr iec_send_file_name
|
|
|
|
open_iec_done:
|
|
|
|
jmp open_done_success
|
|
}
|