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

   1 ; Helper function
   2
   3         .export         store_filename
   4         .importzp       ptr1
   5
   6         .include        "atmos.inc"
   7
   8 store_filename:
   9         sta     ptr1
  10         stx     ptr1+1
  11         ldy     #FNAME_LEN - 1  ; store filename
  12 :       lda     (ptr1),y
  13         sta     CFILE_NAME,y
  14         dey
  15         bpl     :-
  16         rts