cc65/libsrc/atmos/store_filename.s

; Helper function

        .export         store_filename
        .importzp       ptr1

        .include        "atmos.inc"

store_filename:
        sta     ptr1
        stx     ptr1+1
        ldy     #FNAME_LEN - 1  ; store filename
:       lda     (ptr1),y
        sta     CFILE_NAME,y
        dey
        bpl     :-
        rts
Replaced number literals in source code with meaningful symbol names. 2013-07-26 07:33:54 +00:00			`; Helper function`

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
Replaced number literals in source code with meaningful symbol names. 2013-07-26 07:33:54 +00:00			`.include "atmos.inc"`

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`
Replaced number literals in source code with meaningful symbol names. 2013-07-26 07:33:54 +00:00			`ldy #FNAME_LEN - 1 ; store filename`
Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`: lda (ptr1),y`
Replaced number literals in source code with meaningful symbol names. 2013-07-26 07:33:54 +00:00			`sta CFILE_NAME,y`
Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`dey`
			`bpl :-`
			`rts`