2013-07-26 07:33:54 +00:00
|
|
|
; Based on code by Twilighte.
|
|
|
|
|
; 2012-05-06, Stefan Haubenthal
|
|
|
|
|
; 2013-07-22, Greg King
|
|
|
|
|
;
|
2012-05-28 11:11:39 +00:00
|
|
|
; void __fastcall__ atmos_save(const char* name, const void* start, const void* end);
|
|
|
|
|
|
2013-05-09 11:56:54 +00:00
|
|
|
.export _atmos_save
|
|
|
|
|
.import popax, store_filename
|
2012-05-28 11:11:39 +00:00
|
|
|
|
2013-07-26 07:33:54 +00:00
|
|
|
.include "atmos.inc"
|
|
|
|
|
|
2012-05-28 11:11:39 +00:00
|
|
|
|
2013-05-09 11:56:54 +00:00
|
|
|
.proc _atmos_save
|
2012-05-28 11:11:39 +00:00
|
|
|
|
2013-05-09 11:56:54 +00:00
|
|
|
sei
|
2013-07-26 07:33:54 +00:00
|
|
|
sta FILEEND
|
|
|
|
|
stx FILEEND+1
|
2013-05-09 11:56:54 +00:00
|
|
|
jsr popax
|
2013-07-26 07:33:54 +00:00
|
|
|
sta FILESTART
|
|
|
|
|
stx FILESTART+1
|
2013-05-09 11:56:54 +00:00
|
|
|
jsr popax
|
|
|
|
|
jsr store_filename
|
|
|
|
|
lda #00
|
2013-07-26 07:33:54 +00:00
|
|
|
sta AUTORUN
|
2013-05-09 11:56:54 +00:00
|
|
|
jsr csave_bit
|
|
|
|
|
cli
|
|
|
|
|
rts
|
2012-05-28 11:11:39 +00:00
|
|
|
csave_bit:
|
2013-05-09 11:56:54 +00:00
|
|
|
php
|
|
|
|
|
jmp $e92c
|
2012-05-28 11:11:39 +00:00
|
|
|
|
|
|
|
|
.endproc
|
