1
0
mirror of https://github.com/cc65/cc65.git synced 2024-12-24 11:31:31 +00:00
cc65/libsrc/atari/initcwd.s
2013-06-08 00:35:07 +02:00

32 lines
619 B
ArmAsm

;
; Stefan Haubenthal, 2008-04-29
;
.export initcwd
.import findfreeiocb
.import __cwd
.include "atari.inc"
.proc initcwd
jsr findfreeiocb
bne oserr
lda #GETCWD
sta ICCOM,x
lda #<__cwd
sta ICBLL,x
lda #>__cwd
sta ICBLH,x
jsr CIOV
bmi oserr
ldx #0 ; ATEOL -> \0
: lda __cwd,x
inx
cmp #ATEOL
bne :-
lda #0
sta __cwd-1,x
oserr: rts
.endproc