kiec.s

git-svn-id: svn://svn.cc65.org/cc65/trunk@2781 b7a2c559-68d2-44c3-8de9-860c34a00d81
2003-12-19 00:12:08 +00:00
parent c92b4ac06c
commit cbc53423c5
11 changed files with 203 additions and 131 deletions
--- a/libsrc/cbm610/ksetnam.s
+++ b/libsrc/cbm610/ksetnam.s
@@ -0,0 +1,25 @@
+;
+; Ullrich von Bassewitz, 2003-12-18
+;
+; SETNAM kernal call.
+;
+; NOTE: The routine does not work like that in the CBM610 kernal (which works
+; different than that on all other CBMs). Instead, it works like on all other
+; Commodore machines. No segment has to be passed, the current segment is
+; assumed.
+
+        .export         SETNAM
+
+	.include      	"cbm610.inc"
+
+.proc   SETNAM
+
+        sta     FileNameLen
+        stx     FileNameAdrLo
+        sty     FileNameAdrHi
+        rts
+
+.endproc
+
+
+