drive led is now turned OFF after @$

c64/kernal/close.s

@@ -26,8 +26,13 @@ close:
 	;; IEC device
 
 	jsr iec_tx_flush ; make sure no byte is awaiting
-*
 	lda SAT, y ; get secondary address
+	cmp #$60
+	bne +
+	;; workaround for using CLOSE on reading executable - XXX is this a proper way?
+	jsr close_load 
+	jmp close_remove_from_table
+*
 	ora $E0 ; CLOSE command
 	sta IEC_TMP2
 	jsr iec_tx_command
@@ -57,3 +62,23 @@ close_error_not_found:
 
 	sec ; report success - not sure if original CLOSE does this, but it's nevertheless a good practice
 	rts
+
+close_load: ; entry also for LOAD routine
+
+	tax
+
+	;; Command drive to stop talking and to close the file
+	jsr untlk
+
+	txa
+	jsr listen
+
+	lda #$E0 ; CLOSE command
+	sta IEC_TMP2
+	jsr iec_tx_command
+	jsr iec_tx_command_finalize
+
+	;; Tell drive to unlisten
+	jsr unlsn
+
+	rts

c64/kernal/load.s

@@ -125,19 +125,8 @@ load_loop:
 
 	;; Close file on drive
 
-	;; Command drive to stop talking and to close the file
-	jsr untlk
-
 	lda current_device_number
-	jsr listen
+	jsr close_load
-
-	lda #$E0
-	sta IEC_TMP2
-	jsr iec_tx_command
-	jsr iec_tx_command_finalize
-
-	;; Tell drive to unlisten
-	jsr unlsn
 
 	;; Return last address
 	jmp lvs_return_last_address