From ccd49553841928ecfcb4c1b84686f0a5e701145d Mon Sep 17 00:00:00 2001 From: cuz Date: Tue, 19 Apr 2005 11:31:00 +0000 Subject: [PATCH] initcwd from Oliver Schmidt git-svn-id: svn://svn.cc65.org/cc65/trunk@3466 b7a2c559-68d2-44c3-8de9-860c34a00d81 --- libsrc/apple2/Makefile | 1 + libsrc/apple2/initcwd.s | 37 +++++++++++++++ libsrc/apple2/mli.inc | 99 ++++++++++++++++++++++++--------------- libsrc/apple2enh/Makefile | 1 + 4 files changed, 100 insertions(+), 38 deletions(-) create mode 100644 libsrc/apple2/initcwd.s diff --git a/libsrc/apple2/Makefile b/libsrc/apple2/Makefile index d5fa0553e..f25b1e92a 100644 --- a/libsrc/apple2/Makefile +++ b/libsrc/apple2/Makefile @@ -65,6 +65,7 @@ OBJS= _scrsize.o \ getenv.o \ gotoxy.o \ gotoy.o \ + initcwd.o \ joy_stddrv.o \ kbhit.o \ mainargs.o \ diff --git a/libsrc/apple2/initcwd.s b/libsrc/apple2/initcwd.s new file mode 100644 index 000000000..d1ebcc1c9 --- /dev/null +++ b/libsrc/apple2/initcwd.s @@ -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 diff --git a/libsrc/apple2/mli.inc b/libsrc/apple2/mli.inc index ef77cd2e6..a1a599723 100644 --- a/libsrc/apple2/mli.inc +++ b/libsrc/apple2/mli.inc @@ -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 diff --git a/libsrc/apple2enh/Makefile b/libsrc/apple2enh/Makefile index 5467bf0c9..fa96c0b32 100644 --- a/libsrc/apple2enh/Makefile +++ b/libsrc/apple2enh/Makefile @@ -65,6 +65,7 @@ OBJS= _scrsize.o \ getenv.o \ gotoxy.o \ gotoy.o \ + initcwd.o \ joy_stddrv.o \ kbhit.o \ mainargs.o \