;; #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
	bcc @1
	jmp kernalerror_DEVICE_NOT_FOUND
@1:
	lda SA
	jsr iec_cmd_open
	bcc @2
	jmp kernalerror_DEVICE_NOT_FOUND
@2:

!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
}