cc65/libsrc/cbm/initcwd.s

;
; Stefan Haubenthal, 2005-06-08
;
; CBM _curunit to _cwd
;

	.export		initcwd
	.import		__curunit, __cwd, devicestr
	.importzp	ptr2

	.segment	"INIT"

.proc	initcwd

	lda	#<__cwd
	ldx	#>__cwd
	sta	ptr2
	stx	ptr2+1
	lda	__curunit
	jmp	devicestr

.endproc
Added initcwd.s from Stefan Haubenthal which initializes _cwd on startup. git-svn-id: svn://svn.cc65.org/cc65/trunk@3540 b7a2c559-68d2-44c3-8de9-860c34a00d81 2005-07-24 13:20:49 +00:00			`;`
			`; Stefan Haubenthal, 2005-06-08`
			`;`
			`; CBM _curunit to _cwd`
			`;`

			`.export initcwd`
Introduced getdevicedir() - with implementation for the CBMs. git-svn-id: svn://svn.cc65.org/cc65/trunk@5840 b7a2c559-68d2-44c3-8de9-860c34a00d81 2012-10-07 19:18:56 +00:00			`.import __curunit, __cwd, devicestr`
			`.importzp ptr2`
Added initcwd.s from Stefan Haubenthal which initializes _cwd on startup. git-svn-id: svn://svn.cc65.org/cc65/trunk@3540 b7a2c559-68d2-44c3-8de9-860c34a00d81 2005-07-24 13:20:49 +00:00
			`.segment "INIT"`

			`.proc initcwd`

Introduced getdevicedir() - with implementation for the CBMs. git-svn-id: svn://svn.cc65.org/cc65/trunk@5840 b7a2c559-68d2-44c3-8de9-860c34a00d81 2012-10-07 19:18:56 +00:00			`lda #<__cwd`
			`ldx #>__cwd`
			`sta ptr2`
			`stx ptr2+1`
Added initcwd.s from Stefan Haubenthal which initializes _cwd on startup. git-svn-id: svn://svn.cc65.org/cc65/trunk@3540 b7a2c559-68d2-44c3-8de9-860c34a00d81 2005-07-24 13:20:49 +00:00			`lda __curunit`
Introduced getdevicedir() - with implementation for the CBMs. git-svn-id: svn://svn.cc65.org/cc65/trunk@5840 b7a2c559-68d2-44c3-8de9-860c34a00d81 2012-10-07 19:18:56 +00:00			`jmp devicestr`
Added initcwd.s from Stefan Haubenthal which initializes _cwd on startup. git-svn-id: svn://svn.cc65.org/cc65/trunk@3540 b7a2c559-68d2-44c3-8de9-860c34a00d81 2005-07-24 13:20:49 +00:00
			`.endproc`