Merge pull request #494 from jedeoric/master

[telestrat] Adding some vars, adding getcwd management, changing ZP address and ZP length
2017-09-27 09:52:19 +02:00
parent cdca644c83 95a88a787d
commit 3a6430b13d
5 changed files with 55 additions and 3 deletions
--- a/libsrc/telestrat/initcwd.s
+++ b/libsrc/telestrat/initcwd.s
@@ -0,0 +1,31 @@
+;
+; Jede (jede@oric.org) 24.09.2017
+;
+
+        .export         initcwd
+        .import         __cwd
+
+        .include        "zeropage.inc"
+        .include        "telestrat.inc"
+
+
+initcwd:
+       
+        ldx     #PWD_PTR
+        BRK_TELEMON XVARS
+        
+        sta     ptr1
+        sty     ptr1+1
+        
+        ldy     #$00
+        
+loop:        
+        lda     (ptr1),y
+        beq     done
+        sta     __cwd,y
+        iny
+        bne     loop
+       
+done:   
+        sta     __cwd,y
+        rts