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_load(const char* name);
|
|
|
|
|
|
2013-05-09 11:56:54 +00:00
|
|
|
.export _atmos_load
|
|
|
|
|
.import 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_load
|
2012-05-28 11:11:39 +00:00
|
|
|
|
2013-05-09 11:56:54 +00:00
|
|
|
sei
|
|
|
|
|
jsr store_filename
|
|
|
|
|
ldx #$00
|
2013-07-26 07:33:54 +00:00
|
|
|
stx AUTORUN ; don't try to run the file
|
|
|
|
|
stx LANGFLAG ; BASIC
|
|
|
|
|
stx JOINFLAG ; don't join it to another BASIC program
|
|
|
|
|
stx VERIFYFLAG ; load the file
|
2013-05-09 11:56:54 +00:00
|
|
|
jsr cload_bit
|
|
|
|
|
cli
|
|
|
|
|
rts
|
2012-05-28 11:11:39 +00:00
|
|
|
cload_bit:
|
2013-05-09 11:56:54 +00:00
|
|
|
pha
|
|
|
|
|
jmp $e874
|
2012-05-28 11:11:39 +00:00
|
|
|
|
|
|
|
|
.endproc
|
