;
; 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

