Finally: Commodore file I/O

git-svn-id: svn://svn.cc65.org/cc65/trunk@1531 b7a2c559-68d2-44c3-8de9-860c34a00d81
2002-11-16 23:45:15 +00:00
parent 9e74c2b26f
commit 751aaee63d
23 changed files with 1023 additions and 273 deletions
--- a/libsrc/cbm/scratch.s
+++ b/libsrc/cbm/scratch.s
@@ -0,0 +1,49 @@
+;
+; Ullrich von Bassewitz, 16.11.2002
+;
+; Scratch a file on disk
+;
+
+        .export         scratch
+        .import         readdiskerror
+        .import         fnunit, fnlen, fncmd
+
+        .include        "cbm.inc"
+
+;--------------------------------------------------------------------------
+; scratch: Scratch a file on disk. Expects the name of the file to be already
+; parsed. Returns an error code in A, which may either be the code read from
+; the command channel, or another error when accessing the command channel
+; failed.
+
+.proc   scratch
+
+        lda     #15             ; Command channel
+        ldx     fnunit          ; Unit
+        tay                     ; Secondary address
+        jsr     SETLFS
+
+        lda     #'s'            ; Scratch command
+        sta     fncmd
+        ldx     fnlen
+        inx                     ; Account for "S"
+        txa                     ; Length of name into A
+        ldx     #<fncmd
+        ldy     #>fncmd
+        jsr     SETNAM
+
+        jsr     OPEN
+        bcs     done
+
+        jsr     readdiskerror   ; Read the command channel
+
+        pha
+        lda     #15
+        jsr     CLOSE
+        pla
+
+done:   rts
+
+.endproc
+
+