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

   1 ;
   2 ; Oliver Schmidt, 18.04.2005
   3 ;
   4
   5         .export         initcwd
   6         .import         __cwd
   7
   8         .include        "zeropage.inc"
   9         .include        "mli.inc"
  10
  11 initcwd:
  12         ; Use imported buffer
  13         lda     #<__cwd
  14         ldx     #>__cwd
  15         sta     mliparam + MLI::PREFIX::PATHNAME
  16         stx     mliparam + MLI::PREFIX::PATHNAME+1
  17
  18         ; Get current working directory
  19         lda     #GET_PREFIX_CALL
  20         ldx     #PREFIX_COUNT
  21         jsr     callmli
  22
  23         ; Check length byte
  24         ldx     __cwd
  25         beq     done
  26
  27         ; Replace trailing slash with zero
  28         sta     __cwd,x         ; A = 0
  29
  30         ; Remove length byte
  31         tax
  32 :       inx
  33         lda     __cwd,x
  34         sta     __cwd-1,x
  35         bne     :-
  36
  37 done:   rts