git.sur5r.net Git - cc65/blob - libsrc/common/remove.s

   1 ;
   2 ; Ullrich von Bassewitz, 16.11.2002
   3 ;
   4 ; int __fastcall__ remove (const char* name);
   5 ;
   6
   7         .export         _remove
   8
   9         .import         __sysremove
  10         .import         __osmaperrno
  11         .import         __errno
  12
  13
  14 ;--------------------------------------------------------------------------
  15 ; remove
  16
  17
  18 .proc   _remove
  19
  20 ; Go ahead and call the machine dependent function
  21
  22         jsr     __sysremove
  23
  24 ; Check for errors
  25
  26         cmp     #$00
  27         bne     ok
  28         jsr     __osmaperrno
  29         sta     __errno
  30         stx     __errno+1
  31         lda     #$FF
  32         tax
  33         rts
  34
  35 ; Error free
  36
  37 ok:     lda     #$00
  38         tax
  39         rts
  40
  41 .endproc
  42
  43
  44
  45