no TGI_ERR_NO_MEM or TGI_ERR_NO_IOCB anymore: replaced by TGI_ERR_NO_RES

[cc65] / libsrc / cbm / scratch.s

diff --git a/libsrc/cbm/scratch.s b/libsrc/cbm/scratch.s
index 6fd617308efaa0986bab789531fa094766e04b71..e1665e5a67899f3f2ffe314b5c1678cfb73269e3 100644 (file)
--- a/libsrc/cbm/scratch.s
+++ b/libsrc/cbm/scratch.s
@@ -1,13 +1,12 @@
 ;
-; Ullrich von Bassewitz, 16.11.2002
+; Ullrich von Bassewitz, 2002-11-16, 2009-02-22
 ;
 ; Scratch a file on disk
 ;
 
         .export         scratch
-        .import         opencmdchannel, closecmdchannel, writediskcmd
-        .import         fnunit, fnlen, fncmd
-        .importzp       ptr1
+        .import         opencmdchannel, closecmdchannel, writefndiskcmd
+        .import         fnunit, fncmd
 
         .include        "cbm.inc"
 
@@ -25,17 +24,7 @@
 
         lda     #'s'            ; Scratch command
         sta     fncmd
-
-        lda     #<fncmd
-        sta     ptr1
-        lda     #>fncmd
-        sta     ptr1+1
-
-        ldx     fnlen
-        inx                     ; Account for "S"
-        txa                     ; Length of name into A
-        ldx     fnunit          ; Unit
-        jsr     writediskcmd
+        jsr     writefndiskcmd
 
         pha
         ldx     fnunit