diff --git a/libsrc/common/remove.s b/libsrc/common/remove.s new file mode 100644 index 000000000..1bda12474 --- /dev/null +++ b/libsrc/common/remove.s @@ -0,0 +1,45 @@ +; +; Ullrich von Bassewitz, 16.11.2002 +; +; int __fastcall__ remove (const char* name); +; + + .export _remove + + .import __sysremove + .import __osmaperrno + .import __errno + + +;-------------------------------------------------------------------------- +; remove + + +.proc _remove + +; Go ahead and call the machine dependent function + + jsr __sysremove + +; Check for errors + + cmp #$00 + bne ok + jsr __osmaperrno + sta __errno + stx __errno+1 + lda #$FF + tax + rts + +; Error free + +ok: lda #$00 + tax + rts + +.endproc + + + +