cc65/libsrc/cbm/c_setnam.s

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

       	.include     	"cbm.inc"

       	.export	       	_cbm_k_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			`;`

			`.include "cbm.inc"`

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			`.export _cbm_k_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			`.importzp ptr1`

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:`
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			`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`