cc65/libsrc/cbm/c_setnam.s

;
; Ullrich von Bassewitz, 03.06.1999
;
; void __fastcall__ cbm_k_setnam (const char* Name);
;

        .export         _cbm_k_setnam
        .import         SETNAM
        .importzp       ptr1
                              

_cbm_k_setnam:
        sta     ptr1            ; Store pointer to file name
        stx     ptr1+1
        ldy     #$FF
@Loop:  iny                     ; Get length of name
        lda     (ptr1),y
        bne     @Loop

        tya                     ; Length
        ldx     ptr1
        ldy     ptr1+1
        jmp     SETNAM
This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-05-28 13:40:48 +00:00			`;`
			`; Ullrich von Bassewitz, 03.06.1999`
			`;`
Loading and saving memory areas on cbm platforms git-svn-id: svn://svn.cc65.org/cc65/trunk@625 b7a2c559-68d2-44c3-8de9-860c34a00d81 2001-03-13 22:48:19 +00:00			`; void __fastcall__ cbm_k_setnam (const char* Name);`
This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-05-28 13:40:48 +00:00			`;`

Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`.export _cbm_k_setnam`
Use external symbols for the CBM kernal jump table functions. This allows to emulate these functions on platforms where one or more of these functions are not available (PET, CBM-II). git-svn-id: svn://svn.cc65.org/cc65/trunk@1544 b7a2c559-68d2-44c3-8de9-860c34a00d81 2002-11-19 23:02:47 +00:00			`.import SETNAM`
Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`.importzp ptr1`
Use external symbols for the CBM kernal jump table functions. This allows to emulate these functions on platforms where one or more of these functions are not available (PET, CBM-II). git-svn-id: svn://svn.cc65.org/cc65/trunk@1544 b7a2c559-68d2-44c3-8de9-860c34a00d81 2002-11-19 23:02:47 +00:00
This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-05-28 13:40:48 +00:00
Loading and saving memory areas on cbm platforms git-svn-id: svn://svn.cc65.org/cc65/trunk@625 b7a2c559-68d2-44c3-8de9-860c34a00d81 2001-03-13 22:48:19 +00:00			`_cbm_k_setnam:`
Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`sta ptr1 ; Store pointer to file name`
			`stx ptr1+1`
			`ldy #$FF`
			`@Loop: iny ; Get length of name`
			`lda (ptr1),y`
			`bne @Loop`
This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-05-28 13:40:48 +00:00
Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`tya ; Length`
			`ldx ptr1`
			`ldy ptr1+1`
			`jmp SETNAM`
This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-05-28 13:40:48 +00:00