no TGI_ERR_NO_MEM or TGI_ERR_NO_IOCB anymore: replaced by TGI_ERR_NO_RES

[cc65] / libsrc / cbm / sysrename.s

diff --git a/libsrc/cbm/sysrename.s b/libsrc/cbm/sysrename.s
index 4b299d250e7fb588e5a28eacb4db5df942a0c4d0..86cb370112348e53991e7266b4dec7f9b836b0df 100644 (file)
--- a/libsrc/cbm/sysrename.s
+++ b/libsrc/cbm/sysrename.s
@@ -7,10 +7,12 @@
         .export         __sysrename
 
         .import         fnparse, fnadd, fnparsename
-        .import         opencmdchannel, closecmdchannel, writefndiskcmd
+        .import         opencmdchannel, closecmdchannel
+        .import         writefndiskcmd, readdiskerror
         .import         popax
 
         .import         fncmd, fnunit
+        .importzp       ptr1
 
 
 ;--------------------------------------------------------------------------
@@ -25,6 +27,9 @@
         jsr     fnadd
 
         jsr     popax
+        sta     ptr1
+        stx     ptr1+1
+        ldy     #0
         jsr     fnparsename     ; Parse second filename
         bne     done
 
@@ -36,6 +41,9 @@
         sta     fncmd
         jsr     writefndiskcmd
 
+;       ldx     fnunit
+;       jsr     readdiskerror
+
         pha
         ldx     fnunit
         jsr     closecmdchannel