home *** CD-ROM | disk | FTP | other *** search
- ;
- ; #### # # # #
- ; # # # # # The FreeWare C library for
- ; # # ## ### # # # # ### RISC OS machines
- ; # # # # # # # # # # # ___________________________________
- ; # # #### ### ## # # # #
- ; # # # # # # # # # # Please refer to the accompanying
- ; #### ### #### # # ##### # ### documentation for conditions of use
- ; ________________________________________________________________________
- ;
- ; File: File.s.Delete
- ; Author: Copyright © 1993 Jason Williams
- ; Version: 1.00 (12 Jul 1993)
- ; Purpose: SWI veneer for file operations - delete a file
-
- GET h.regdefs
- GET h.swinos
- GET h.macros
- ;
- PREAMBLE
- STARTCODE File_Delete
- ;
- ; extern os_error *File_Delete(char *filename);
- ;
- STMFD sp!, {lr}
-
- MOV a2, a1
- MOV a1, #6
-
- SWI SWI_OS_File + XOS_Bit
-
- MOVVC a1, #0
-
- LDMFD sp!, {pc}^
- ;
- END
-