1; 2; Ullrich von Bassewitz, 2002-11-16, 2009-02-22 3; 4; Scratch a file on disk 5; 6 7 .export scratch 8 .import opencmdchannel, closecmdchannel, writefndiskcmd 9 .import fnunit, fncmd 10 11 .include "cbm.inc" 12 13;-------------------------------------------------------------------------- 14; scratch: Scratch a file on disk. Expects the name of the file to be already 15; parsed. Returns an error code in A, which may either be the code read from 16; the command channel, or another error when accessing the command channel 17; failed. 18 19.proc scratch 20 21 ldx fnunit 22 jsr opencmdchannel 23 bne done 24 25 lda #'s' ; Scratch command 26 sta fncmd 27 jsr writefndiskcmd 28 29 pha 30 ldx fnunit 31 jsr closecmdchannel 32 pla 33 34done: rts 35 36.endproc 37 38 39