git.sur5r.net Git - cc65/blob - libsrc/telestrat/initcwd.s

   1 ;
   2 ; Oliver Schmidt, 18.04.2005
   3 ;
   4
   5         .export         initcwd
   6         .import         __cwd
   7
   8         .include        "zeropage.inc"
   9         .include        "telestrat.inc"
  10
  11
  12 initcwd:
  13         ldx     #PWD_PTR
  14         BRK_TELEMON XVARS
  15         sta     tmp1
  16         sty     tmp1+1
  17
  18         ldy     #$00
  19 loop:
  20         lda     (tmp1),y
  21         beq     done
  22         sta     __cwd,y
  23         iny
  24         bne     loop
  25
  26 done:
  27         sta     __cwd,y
  28         rts