From: jede <jede@oric.org>
Date: Sun, 24 Sep 2017 17:23:44 +0000 (+0200)
Subject: Initcwd is now working for telestrat
X-Git-Tag: V2.17~91^2~4
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=fabb6acf3ffb53e4a20b4e163941c58d66dbdf39;p=cc65

Initcwd is now working for telestrat
---

diff --git a/libsrc/telestrat/initcwd.s b/libsrc/telestrat/initcwd.s
new file mode 100644
index 000000000..84ab3fb35
--- /dev/null
+++ b/libsrc/telestrat/initcwd.s
@@ -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