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

   1 ;
   2 ; Stefan Haubenthal, 2008-04-29
   3 ;
   4
   5         .export         initcwd
   6         .import         findfreeiocb
   7         .import         __cwd
   8         .include        "atari.inc"
   9
  10 .proc   initcwd
  11
  12         jsr     findfreeiocb
  13         bne     oserr
  14         lda     #GETCWD
  15         sta     ICCOM,x
  16         lda     #<__cwd
  17         sta     ICBLL,x
  18         lda     #>__cwd
  19         sta     ICBLH,x
  20         jsr     CIOV
  21         bmi     oserr
  22         ldx     #0              ; ATEOL -> \0
  23 :       lda     __cwd,x
  24         inx
  25         cmp     #ATEOL
  26         bne     :-
  27         lda     #0
  28         sta     __cwd-1,x
  29 oserr:  rts
  30
  31 .endproc