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

   1         .export         store_filename
   2         .importzp       ptr1
   3
   4 store_filename:
   5         sta     ptr1
   6         stx     ptr1+1
   7         ldy     #$0f   ;store filename
   8 :       lda     (ptr1),y
   9         sta     $027f,y
  10         dey
  11         bpl     :-
  12         rts