@@ -10,7 +10,8 @@
|
|||||||
|
|
||||||
|
|
||||||
initcwd:
|
initcwd:
|
||||||
BRK_TELEMON(XGETCWD)
|
ldx #PWD_PTR
|
||||||
|
BRK_TELEMON XVARS
|
||||||
|
|
||||||
sta ptr1
|
sta ptr1
|
||||||
sty ptr1+1
|
sty ptr1+1
|
||||||
|
|||||||
@@ -7,7 +7,6 @@
|
|||||||
.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,7 +27,5 @@ __syschdir:
|
|||||||
; Call telemon primitive
|
; Call telemon primitive
|
||||||
|
|
||||||
BRK_TELEMON(XPUTCWD)
|
BRK_TELEMON(XPUTCWD)
|
||||||
|
|
||||||
jsr initcwd ; Update cwd
|
|
||||||
|
|
||||||
rts
|
rts
|
||||||
|
|||||||
Reference in New Issue
Block a user