git.sur5r.net Git - cc65/blob - libsrc/atmos/atmos_load.s

   1 ; Based on code by Twilighte.
   2 ; 2012-05-06, Stefan Haubenthal
   3 ; 2013-07-22, Greg King
   4 ;
   5 ; void __fastcall__ atmos_load(const char* name);
   6
   7         .export         _atmos_load
   8         .import         store_filename
   9
  10         .include        "atmos.inc"
  11
  12
  13 .proc   _atmos_load
  14
  15         sei
  16         jsr     store_filename
  17         ldx     #$00
  18         stx     AUTORUN         ; don't try to run the file
  19         stx     LANGFLAG        ; BASIC
  20         stx     JOINFLAG        ; don't join it to another BASIC program
  21         stx     VERIFYFLAG      ; load the file
  22         jsr     cload_bit
  23         cli
  24         rts
  25 cload_bit:
  26         pha
  27         jmp     $e874
  28
  29 .endproc