Initcwd is now working for telestrat

diff --git a/libsrc/telestrat/initcwd.s b/libsrc/telestrat/initcwd.s
new file mode 100644 (file)
index 0000000..84ab3fb
--- /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