cc65/libsrc/telestrat/initcwd.s

;
; 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     __cwd,y
        rts
Initcwd is now working for telestrat 2017-09-24 17:23:44 +00:00			`;`
			`; 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:`
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`