cc65/libsrc/cbm/filevars.s

;
; Ullrich von Bassewitz, 15.11.2002
;
; Variables used for CBM file I/O
;

        .export         curunit
        .constructor    initcurunit, 30
        .importzp       devnum


.bss

curunit:
        .res    1


.segment "INIT"

.proc   initcurunit

        lda     devnum
        bne     @L0
        lda     #8              ; Default is disk
        sta     devnum
@L0:    sta     curunit
        rts

.endproc
Finally: Commodore file I/O git-svn-id: svn://svn.cc65.org/cc65/trunk@1531 b7a2c559-68d2-44c3-8de9-860c34a00d81 2002-11-16 23:45:15 +00:00			`;`
			`; Ullrich von Bassewitz, 15.11.2002`
			`;`
			`; Variables used for CBM file I/O`
			`;`

Implemented __syschdir on CBM. As getcwd returns a cached directory any direct access to __curunit would cause inconsistencies. Therefore __curunit was renamed to curunit to prohibit user access. git-svn-id: svn://svn.cc65.org/cc65/trunk@5857 b7a2c559-68d2-44c3-8de9-860c34a00d81 2012-10-16 21:39:40 +00:00			`.export curunit`
Initialize _curunit from the zeropage value DEVNUM (aka First Address) in a constructor with a very high priority to be called before DEVNUM gets overwritten by other constructors. git-svn-id: svn://svn.cc65.org/cc65/trunk@4588 b7a2c559-68d2-44c3-8de9-860c34a00d81 2010-02-14 23:12:54 +00:00			`.constructor initcurunit, 30`
			`.importzp devnum`
Finally: Commodore file I/O git-svn-id: svn://svn.cc65.org/cc65/trunk@1531 b7a2c559-68d2-44c3-8de9-860c34a00d81 2002-11-16 23:45:15 +00:00

Initialize _curunit from the zeropage value DEVNUM (aka First Address) in a constructor with a very high priority to be called before DEVNUM gets overwritten by other constructors. git-svn-id: svn://svn.cc65.org/cc65/trunk@4588 b7a2c559-68d2-44c3-8de9-860c34a00d81 2010-02-14 23:12:54 +00:00			`.bss`

Implemented __syschdir on CBM. As getcwd returns a cached directory any direct access to __curunit would cause inconsistencies. Therefore __curunit was renamed to curunit to prohibit user access. git-svn-id: svn://svn.cc65.org/cc65/trunk@5857 b7a2c559-68d2-44c3-8de9-860c34a00d81 2012-10-16 21:39:40 +00:00			`curunit:`
Initialize _curunit from the zeropage value DEVNUM (aka First Address) in a constructor with a very high priority to be called before DEVNUM gets overwritten by other constructors. git-svn-id: svn://svn.cc65.org/cc65/trunk@4588 b7a2c559-68d2-44c3-8de9-860c34a00d81 2010-02-14 23:12:54 +00:00			`.res 1`


			`.segment "INIT"`

			`.proc initcurunit`

			`lda devnum`
			`bne @L0`
			`lda #8 ; Default is disk`
			`sta devnum`
Implemented __syschdir on CBM. As getcwd returns a cached directory any direct access to __curunit would cause inconsistencies. Therefore __curunit was renamed to curunit to prohibit user access. git-svn-id: svn://svn.cc65.org/cc65/trunk@5857 b7a2c559-68d2-44c3-8de9-860c34a00d81 2012-10-16 21:39:40 +00:00			`@L0: sta curunit`
Initialize _curunit from the zeropage value DEVNUM (aka First Address) in a constructor with a very high priority to be called before DEVNUM gets overwritten by other constructors. git-svn-id: svn://svn.cc65.org/cc65/trunk@4588 b7a2c559-68d2-44c3-8de9-860c34a00d81 2010-02-14 23:12:54 +00:00			`rts`

			`.endproc`