From fabb6acf3ffb53e4a20b4e163941c58d66dbdf39 Mon Sep 17 00:00:00 2001
From: jede <jede@oric.org>
Date: Sun, 24 Sep 2017 19:23:44 +0200
Subject: [PATCH] Initcwd is now working for telestrat

---
 libsrc/telestrat/initcwd.s | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100644 libsrc/telestrat/initcwd.s

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