git.sur5r.net Git - cc65/blob - libsrc/cbm/sysremove.s

   1 ;
   2 ; Ullrich von Bassewitz, 16.11.2002
   3 ;
   4 ; unsigned char __fastcall__ _sysremove (const char* name);
   5 ;
   6
   7         .export         __sysremove
   8         .import         fnparse, scratch
   9
  10
  11 ;--------------------------------------------------------------------------
  12 ; __sysremove:
  13
  14 .proc   __sysremove
  15
  16         jsr     fnparse         ; Parse the given file name
  17         bne     err             ; Jump if yes
  18         jmp     scratch         ; Scratch the file, return an error code
  19 err:    rts
  20
  21 .endproc
  22
  23