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         .export         _cbm_k_setnam
   8         .import         SETNAM
   9         .importzp       ptr1
  10
  11
  12 _cbm_k_setnam:
  13         sta     ptr1            ; Store pointer to file name
  14         stx     ptr1+1
  15         ldy     #$FF
  16 @Loop:  iny                     ; Get length of name
  17         lda     (ptr1),y
  18         bne     @Loop
  19
  20         tya                     ; Length
  21         ldx     ptr1
  22         ldy     ptr1+1
  23         jmp     SETNAM
  24