mirror of
https://github.com/cc65/cc65.git
synced 2025-01-12 02:30:44 +00:00
Now we update __cwd
This commit is contained in:
parent
973a5337ac
commit
d417baf826
@ -10,8 +10,7 @@
|
|||||||
|
|
||||||
|
|
||||||
initcwd:
|
initcwd:
|
||||||
ldx #PWD_PTR
|
BRK_TELEMON(XGETCWD)
|
||||||
BRK_TELEMON XVARS
|
|
||||||
|
|
||||||
sta ptr1
|
sta ptr1
|
||||||
sty ptr1+1
|
sty ptr1+1
|
||||||
|
@ -7,6 +7,7 @@
|
|||||||
.export __syschdir
|
.export __syschdir
|
||||||
.import addysp, popax
|
.import addysp, popax
|
||||||
.importzp tmp1
|
.importzp tmp1
|
||||||
|
.import initcwd
|
||||||
|
|
||||||
.include "telestrat.inc"
|
.include "telestrat.inc"
|
||||||
.include "zeropage.inc"
|
.include "zeropage.inc"
|
||||||
@ -28,4 +29,6 @@ __syschdir:
|
|||||||
|
|
||||||
BRK_TELEMON(XPUTCWD)
|
BRK_TELEMON(XPUTCWD)
|
||||||
|
|
||||||
|
jsr initcwd ; Update cwd
|
||||||
|
|
||||||
rts
|
rts
|
||||||
|
Loading…
x
Reference in New Issue
Block a user