cc65/libsrc/atmos/store_filename.s

        .export         store_filename
        .importzp       ptr1

store_filename:
        sta     ptr1
        stx     ptr1+1
        ldy     #$0f   ;store filename
:       lda     (ptr1),y
        sta     $027f,y
        dey
        bpl     :-
        rts
Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`.export store_filename`
			`.importzp ptr1`
Tape load and save functions for the Oric Atmos. By Stefan Haubenthal. git-svn-id: svn://svn.cc65.org/cc65/trunk@5660 b7a2c559-68d2-44c3-8de9-860c34a00d81 2012-05-28 11:11:39 +00:00
			`store_filename:`
Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`sta ptr1`
			`stx ptr1+1`
			`ldy #$0f ;store filename`
			`: lda (ptr1),y`
			`sta $027f,y`
			`dey`
			`bpl :-`
			`rts`