cc65/libsrc/telestrat/initcwd.s

;
; 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
Initcwd is now working for telestrat 2017-09-24 17:23:44 +00:00			`;`
Fixing buffer overflow with cwd command (FILENAME_MAX must be at 50 +1 bytes) 2017-09-25 19:39:57 +00:00			`; Jede (jede@oric.org) 24.09.2017`
Initcwd is now working for telestrat 2017-09-24 17:23:44 +00:00			`;`

			`.export initcwd`
			`.import __cwd`

			`.include "zeropage.inc"`
			`.include "telestrat.inc"`


			`initcwd:`
Fixing buffer overflow with cwd command (FILENAME_MAX must be at 50 +1 bytes) 2017-09-25 19:39:57 +00:00
Initcwd is now working for telestrat 2017-09-24 17:23:44 +00:00			`ldx #PWD_PTR`
			`BRK_TELEMON XVARS`
Fixing buffer overflow with cwd command (FILENAME_MAX must be at 50 +1 bytes) 2017-09-25 19:39:57 +00:00
			`sta ptr1`
			`sty ptr1+1`

Initcwd is now working for telestrat 2017-09-24 17:23:44 +00:00			`ldy #$00`
Fixing buffer overflow with cwd command (FILENAME_MAX must be at 50 +1 bytes) 2017-09-25 19:39:57 +00:00
Initcwd is now working for telestrat 2017-09-24 17:23:44 +00:00			`loop:`
Fixing buffer overflow with cwd command (FILENAME_MAX must be at 50 +1 bytes) 2017-09-25 19:39:57 +00:00			`lda (ptr1),y`
Initcwd is now working for telestrat 2017-09-24 17:23:44 +00:00			`beq done`
			`sta __cwd,y`
			`iny`
			`bne loop`

			`done:`
correcting missing _ 2017-09-24 18:07:02 +00:00			`sta __cwd,y`
Initcwd is now working for telestrat 2017-09-24 17:23:44 +00:00			`rts`