New stuff contributed by Oliver Schmidt

git-svn-id: svn://svn.cc65.org/cc65/trunk@3608 b7a2c559-68d2-44c3-8de9-860c34a00d81
2005-08-31 20:11:45 +00:00
parent 476e3f9acc
commit c732d3e360
17 changed files with 719 additions and 6 deletions
--- a/libsrc/apple2/sysremove.s
+++ b/libsrc/apple2/sysremove.s
@@ -0,0 +1,32 @@
+;
+; Oliver Schmidt, 15.04.2005
+;
+; unsigned char __fastcall__ _sysremove (const char* name);
+;
+
+        .export         __sysremove
+        .import		pushname, popname
+
+	.include	"zeropage.inc"
+	.include	"mli.inc"
+
+__sysremove:
+        ; Push name
+        jsr	pushname
+        bne	oserr
+
+        ; Set pushed name
+        lda	sp
+        ldx	sp+1
+        sta	mliparam + MLI::DESTROY::PATHNAME
+        stx	mliparam + MLI::DESTROY::PATHNAME+1
+
+        ; Remove file
+        lda	#DESTROY_CALL
+        ldx	#DESTROY_COUNT
+        jsr	callmli
+
+        ; Cleanup name
+	jsr	popname		; Preserves A
+
+oserr:	rts