diff --git a/c64/kernal/iec_assert_atn.s b/c64/kernal/iec_assert_atn.s
index 57560c3a..e16de6ef 100644
--- a/c64/kernal/iec_assert_atn.s
+++ b/c64/kernal/iec_assert_atn.s
@@ -1,4 +1,6 @@
 iec_assert_atn:
+	jsr printf
+	.byte "ASSERT ATN",$0d,0
 	lda $dd00
 	ora #$08
 	sta $dd00
diff --git a/c64/kernal/iec_release_atn.s b/c64/kernal/iec_release_atn.s
index 56644746..b1305815 100644
--- a/c64/kernal/iec_release_atn.s
+++ b/c64/kernal/iec_release_atn.s
@@ -1,4 +1,6 @@
 iec_release_atn:
+	jsr printf
+	.byte "RELEASE ATN",$0d,0
 	lda $dd00
 	and #$f7
 	sta $dd00
diff --git a/c64/kernal/load.s b/c64/kernal/load.s
index d2714f3b..ef19e861 100644
--- a/c64/kernal/load.s
+++ b/c64/kernal/load.s
@@ -28,7 +28,7 @@ load:
 	jsr iec_release_atn
 
 	;; Send filename (p16)
-	lda #$24 		; $ = directory
+	lda #$21 		; $ = directory
 	jsr iec_tx_byte
 
 	;; Command device to unlisten to indicate end of file name. (p16)
@@ -61,6 +61,9 @@ load:
 	bcs load_error
 
 	inc $060b
+
+	jsr printf
+	.byte "READING DATA...",$0d,0
 	
 	;; We are now ready to receive bytes
 *	jsr iec_rx_byte