Tape load and save functions for the Oric Atmos. By Stefan Haubenthal.

git-svn-id: svn://svn.cc65.org/cc65/trunk@5660 b7a2c559-68d2-44c3-8de9-860c34a00d81
2012-05-28 11:11:39 +00:00
parent 47c87eb335
commit 293c279416
7 changed files with 155 additions and 2 deletions
--- a/libsrc/atmos/atmos_save.s
+++ b/libsrc/atmos/atmos_save.s
@@ -0,0 +1,28 @@
+; Stefan Haubenthal, 2012-05-06
+; based on code by Twilighte
+; void __fastcall__ atmos_save(const char* name, const void* start, const void* end);
+
+	.export		_atmos_save
+	.import		popax, store_filename
+
+
+.proc	_atmos_save
+
+	sei
+	sta	$02ab	; file end lo
+	stx	$02ac	; file end hi
+	jsr	popax
+	sta	$02a9	; file start lo
+	stx	$02aa	; file start hi
+	jsr	popax
+	jsr	store_filename
+	lda	#00
+	sta	$02ad
+	jsr	csave_bit
+	cli
+	rts
+csave_bit:
+	php
+	jmp	$e92c
+
+.endproc