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         ; Set static prefix 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 for null prefix
  24         ldx     __cwd
  25         beq     done
  26
  27         ; Remove length byte and trailing slash
  28         dex
  29         stx     tmp1
  30         ldx     #$00
  31 :       lda     __cwd + 1,x
  32         sta     __cwd,x
  33         inx
  34         cpx     tmp1
  35         bcc     :-
  36
  37         ; Add terminating zero
  38         lda     #$00
  39         sta     __cwd,x
  40
  41 done:   rts