Now we update __cwd

2021-03-01 23:26:35 +01:00 · 2021-03-01 23:26:35 +01:00 · d417baf826
commit d417baf826
parent 973a5337ac
2 changed files with 4 additions and 2 deletions
--- a/libsrc/telestrat/initcwd.s
+++ b/libsrc/telestrat/initcwd.s
@ -10,8 +10,7 @@


 initcwd:
-        ldx     #PWD_PTR
-        BRK_TELEMON XVARS
+        BRK_TELEMON(XGETCWD)

        sta     ptr1
        sty     ptr1+1
--- a/libsrc/telestrat/syschdir.s
+++ b/libsrc/telestrat/syschdir.s
@ -7,6 +7,7 @@
        .export         __syschdir
        .import         addysp, popax
 		.importzp       tmp1
+        .import         initcwd

        .include        "telestrat.inc"
        .include        "zeropage.inc"
@ -27,5 +28,7 @@ __syschdir:
        ; Call telemon primitive
        
        BRK_TELEMON(XPUTCWD)
+
+        jsr     initcwd      ; Update cwd
        
        rts