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         cmp     #0              ; Do we have an error?
  18         bne     err             ; Jump if yes
  19         jmp     scratch         ; Scratch the file, return an error code
  20 err:    rts
  21
  22 .endproc
  23
  24