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