29 lines
475 B
ArmAsm
29 lines
475 B
ArmAsm
|
;
|
||
|
|
; Oliver Schmidt, 18.04.2005
|
||
|
|
;
|
||
|
|
|
||
|
|
.export initcwd
|
||
|
|
.import __cwd
|
||
|
|
|
||
|
|
.include "zeropage.inc"
|
||
|
|
.include "telestrat.inc"
|
||
|
|
|
||
|
|
|
||
|
|
initcwd:
|
||
|
|
ldx #PWD_PTR
|
||
|
|
BRK_TELEMON XVARS
|
||
|
|
sta tmp1
|
||
|
|
sty tmp1+1
|
||
|
|
|
||
|
|
ldy #$00
|
||
|
|
loop:
|
||
|
|
lda (tmp1),y
|
||
|
|
beq done
|
||
|
|
sta __cwd,y
|
||
|
|
iny
|
||
|
|
bne loop
|
||
|
|
|
||
|
|
done:
|
||
|
|
sta (tmp2),y
|
||
|
|
rts
|