2012-05-28 11:11:39 +00:00
|
|
|
; Stefan Haubenthal, 2012-05-06
|
|
|
|
|
; based on code by Twilighte
|
|
|
|
|
; void __fastcall__ atmos_load(const char* name);
|
|
|
|
|
|
2013-05-09 13:56:54 +02:00
|
|
|
.export _atmos_load
|
|
|
|
|
.import store_filename
|
2012-05-28 11:11:39 +00:00
|
|
|
|
|
|
|
|
|
2013-05-09 13:56:54 +02:00
|
|
|
.proc _atmos_load
|
2012-05-28 11:11:39 +00:00
|
|
|
|
2013-05-09 13:56:54 +02:00
|
|
|
sei
|
|
|
|
|
jsr store_filename
|
|
|
|
|
ldx #$00
|
|
|
|
|
stx $02ad
|
|
|
|
|
stx $02ae
|
|
|
|
|
stx $025a
|
|
|
|
|
stx $025b
|
|
|
|
|
jsr cload_bit
|
|
|
|
|
cli
|
|
|
|
|
rts
|
2012-05-28 11:11:39 +00:00
|
|
|
cload_bit:
|
2013-05-09 13:56:54 +02:00
|
|
|
pha
|
|
|
|
|
jmp $e874
|
2012-05-28 11:11:39 +00:00
|
|
|
|
|
|
|
|
.endproc
|
