diff --git a/c64/kernal/setlfs.s b/c64/kernal/setlfs.s
index 742ef38f..2da967b1 100644
--- a/c64/kernal/setlfs.s
+++ b/c64/kernal/setlfs.s
@@ -1,3 +1,12 @@
 ; Function defined on pp272-273 of C64 Programmers Reference Guide
+
 setlfs:
+
+	;; There are 6 sane ways to implement this routine,
+	;; I hope this one won't cause similarity to CBM code
+	
+	sta current_logical_filenum
+	sty current_secondary_address
+	stx current_device_number
+	
 	rts