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

initcwd from Oliver Schmidt

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@3466 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz 2005-04-19 11:31:00 +00:00
parent ee81f9a686
commit ccd4955384
4 changed files with 100 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
libsrc/apple2/Makefile
View File

@ -65,6 +65,7 @@ OBJS= _scrsize.o \
getenv.o \
gotoxy.o \
gotoy.o \
initcwd.o \
joy_stddrv.o \
kbhit.o \
mainargs.o \

37
libsrc/apple2/initcwd.s Normal file
View File

@ -0,0 +1,37 @@
;
; Oliver Schmidt, 18.04.2005
;
.export initcwd
.import __cwd
.include "zeropage.inc"
.include "mli.inc"
initcwd:
; Use imported buffer
lda #<__cwd
ldx #>__cwd
sta mliparam + MLI::PREFIX::PATHNAME
stx mliparam + MLI::PREFIX::PATHNAME+1
; Get current working directory
lda #GET_PREFIX_CALL
ldx #PREFIX_COUNT
jsr callmli
; Check length byte
ldx __cwd
beq done
; Replace trailing slash with zero
sta __cwd,x ; A = 0
; Remove length byte
tax
: inx
lda __cwd,x
sta __cwd-1,x
bne :-
done: rts

99
libsrc/apple2/mli.inc
View File

@ -11,9 +11,19 @@ RW_BLOCK_COUNT = 3
CREATE_CALL = $C0
CREATE_COUNT = 7
DESTROY_CALL = $C1
DESTROY_COUNT = 1
RENAME_CALL = $C2
RENAME_COUNT = 2
ON_LINE_CALL = $C5
ON_LINE_COUNT = 2
SET_PREFIX_CALL = $C6
GET_PREFIX_CALL = $C7
PREFIX_COUNT = 1
OPEN_CALL = $C8
OPEN_COUNT = 3
@ -35,60 +45,73 @@ EOF_COUNT = 2
.struct MLI
.union
.struct RW_BLOCK
PARAM_COUNT .byte
UNIT_NUM .byte
DATA_BUFFER .addr
BLOCK_NUM .word
PARAM_COUNT .byte
UNIT_NUM .byte
DATA_BUFFER .addr
BLOCK_NUM .word
.endstruct
.struct CREATE
PARAM_COUNT .byte
PATHNAME .addr
ACCESS .byte
FILE_TYPE .byte
AUX_TYPE .word
STORAGE_TYPE .byte
CREATE_DATE .word
CREATE_TIME .word
.endstruct
.struct DESTROY
PARAM_COUNT .byte
PATHNAME .addr
.endstruct
.struct RENAME
PARAM_COUNT .byte
PATHNAME .addr
NEW_PATHNAME .addr
.endstruct
.struct ON_LINE
PARAM_COUNT .byte
UNIT_NUM .byte
DATA_BUFFER .addr
.endstruct
.struct PREFIX
PARAM_COUNT .byte
PATHNAME .addr
ACCESS .byte
FILE_TYPE .byte
AUX_TYPE .word
STORAGE_TYPE .byte
CREATE_DATE .word
CREATE_TIME .word
.endstruct
.struct ON_LINE
PARAM_COUNT .byte
UNIT_NUM .byte
DATA_BUFFER .addr
.endstruct
.struct OPEN
PARAM_COUNT .byte
PATHNAME .addr
IO_BUFFER .addr
REF_NUM .byte
PARAM_COUNT .byte
PATHNAME .addr
IO_BUFFER .addr
REF_NUM .byte
.endstruct
.struct RW
PARAM_COUNT .byte
REF_NUM .byte
DATA_BUFFER .addr
REQUEST_COUNT .word
TRANS_COUNT .word
PARAM_COUNT .byte
REF_NUM .byte
DATA_BUFFER .addr
REQUEST_COUNT .word
TRANS_COUNT .word
.endstruct
.struct CLOSE
PARAM_COUNT .byte
REF_NUM .byte
PARAM_COUNT .byte
REF_NUM .byte
.endstruct
.struct MARK
PARAM_COUNT .byte
REF_NUM .byte
POSITION .byte 3
PARAM_COUNT .byte
REF_NUM .byte
POSITION .byte 3
.endstruct
.struct EOF
PARAM_COUNT .byte
REF_NUM .byte
EOF .byte 3
PARAM_COUNT .byte
REF_NUM .byte
EOF .byte 3
.endstruct
.endunion
.endstruct
.global mliparam
.global callmli
.global mliparam
.global callmli
ENTRY := $BF00 ; MLI call entry point
DEVNUM := $BF30 ; Most recent accessed device
PFIXPTR := $BF9A ; If = 0, no prefix active
KVERSION:= $BFFF ; Kernel version number
ENTRY := $BF00 ; MLI call entry point
DEVNUM := $BF30 ; Most recent accessed device
PFIXPTR := $BF9A ; If = 0, no prefix active
KVERSION:= $BFFF ; Kernel version number

1
libsrc/apple2enh/Makefile
View File

@ -65,6 +65,7 @@ OBJS= _scrsize.o \
getenv.o \
gotoxy.o \
gotoy.o \
initcwd.o \
joy_stddrv.o \
kbhit.o \
mainargs.o \