6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-01-11 11:30:13 +00:00
Code Issues Projects Releases Wiki Activity

Added initcwd.s from Stefan Haubenthal which initializes _cwd on startup.

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@3540 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz 2005-07-24 13:20:49 +00:00
parent 42a4a2ecf2
commit 8334d54622
2 changed files with 36 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
libsrc/cbm/Makefile
View File

@ -70,6 +70,7 @@ S_OBJS = c_acptr.o \
gotox.o \
gotoxy.o \
gotoy.o \
initcwd.o \
open.o \
oserrlist.o \
oserror.o \

35
libsrc/cbm/initcwd.s Normal file
View File

@ -0,0 +1,35 @@
;
; 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