Initcwd is now working for telestrat

2017-09-24 19:23:44 +02:00 · 2017-09-24 19:23:44 +02:00 · fabb6acf3f
commit fabb6acf3f
parent 60e41e3110
1 changed files with 28 additions and 0 deletions
--- a/libsrc/telestrat/initcwd.s
+++ 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