git.sur5r.net Git - cc65/blob - libsrc/cbm/c_setnam.s

   1 ;
   2 ; Ullrich von Bassewitz, 03.06.1999
   3 ;
   4 ; void __fastcall__ cbm_k_setnam (const char* Name);
   5 ;
   6
   7         .include        "cbm.inc"
   8
   9         .export         _cbm_k_setnam
  10         .importzp       ptr1
  11
  12
  13 _cbm_k_setnam:
  14         sta     ptr1            ; Store pointer to file name
  15         stx     ptr1+1
  16         ldy     #$FF
  17 @Loop:  iny                     ; Get length of name
  18         lda     (ptr1),y
  19         bne     @Loop
  20
  21         tya                     ; Length
  22         ldx     ptr1
  23         ldy     ptr1+1
  24         jmp     SETNAM