1
0
mirror of https://github.com/cc65/cc65.git synced 2024-12-25 02:29:52 +00:00
cc65/libsrc/cbm/initcwd.s
cuz 8334d54622 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

36 lines
400 B
ArmAsm

;
; Stefan Haubenthal, 2005-06-08
;
; CBM _curunit to _cwd
;
.export initcwd
.import __curunit, __cwd
.import pusha0, tosudiva0
.importzp sreg, ptr1
.macpack generic
.segment "INIT"
.proc initcwd
lda __curunit
jsr pusha0
lda #10
jsr tosudiva0
ldx #0
lda sreg
beq :+ ; >=10
add #'0'
sta __cwd
inx
: lda ptr1 ; rem
add #'0'
sta __cwd,x
lda #0
sta __cwd+1,x
rts
.endproc