;; #LAYOUT# STD *        #TAKE
;; #LAYOUT# *   KERNAL_0 #TAKE
;; #LAYOUT# *   *        #IGNORE

;
; Common part of CLOSE and LOAD/SAVE routines for IEC
;


!ifdef CONFIG_IEC {


iec_close_load:

	tax

	; Command drive to stop talking before closing the file
	jsr UNTLK

	txa
	jsr LISTEN

	lda #$E0 ; CLOSE command
	sta TBTCNT
	jsr iec_tx_command
	jsr iec_tx_command_finalize

	; Tell drive to unlisten
	jsr UNLSN

	rts


} ; CONFIG_IEC
