mirror of
https://github.com/cc65/cc65.git
synced 2024-07-18 00:29:02 +00:00
Initcwd is now working for telestrat
This commit is contained in:
parent
60e41e3110
commit
fabb6acf3f
28
libsrc/telestrat/initcwd.s
Normal file
28
libsrc/telestrat/initcwd.s
Normal file
@ -0,0 +1,28 @@
|
|||||||
|
;
|
||||||
|
; 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
|
Loading…
Reference in New Issue
Block a user