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

   1 ;
   2 ; Jede (jede@oric.org) 24.09.2017
   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
  16         sta     ptr1
  17         sty     ptr1+1
  18
  19         ldy     #$00
  20 loop:
  21         lda     (ptr1),y
  22         sta     __cwd,y
  23         beq     done
  24         iny
  25         bne     loop
  26
  27 done:
  28         rts