2005-04-19 11:31:00 +00:00
|
|
|
;
|
|
|
|
|
; Oliver Schmidt, 18.04.2005
|
|
|
|
|
;
|
|
|
|
|
|
|
|
|
|
.export initcwd
|
2023-08-18 11:12:16 +02:00
|
|
|
.import __cwd, __dos_type
|
2005-04-19 11:31:00 +00:00
|
|
|
|
2013-05-09 13:56:54 +02:00
|
|
|
.include "zeropage.inc"
|
2023-08-18 11:12:16 +02:00
|
|
|
.include "apple2.inc"
|
2005-04-19 11:31:00 +00:00
|
|
|
.include "mli.inc"
|
|
|
|
|
|
2023-08-18 11:12:16 +02:00
|
|
|
mli_parameters:
|
|
|
|
|
.byte $01 ; number of parameters
|
|
|
|
|
.addr __cwd ; address of parameter
|
2005-04-19 11:31:00 +00:00
|
|
|
|
2023-08-18 11:12:16 +02:00
|
|
|
initcwd:
|
|
|
|
|
; Check for ProDOS 8
|
|
|
|
|
lda __dos_type
|
|
|
|
|
beq oserr
|
|
|
|
|
|
|
|
|
|
; Save random counter
|
|
|
|
|
lda RNDL
|
|
|
|
|
pha
|
|
|
|
|
lda RNDH
|
|
|
|
|
pha
|
|
|
|
|
|
|
|
|
|
; Call MLI
|
|
|
|
|
jsr $BF00 ; MLI call entry point
|
|
|
|
|
.byte GET_PREFIX_CALL ; MLI command
|
|
|
|
|
.addr mli_parameters ; MLI parameter
|
|
|
|
|
|
|
|
|
|
; Restore random counter
|
|
|
|
|
tax
|
|
|
|
|
pla
|
|
|
|
|
sta RNDH
|
|
|
|
|
pla
|
|
|
|
|
sta RNDL
|
|
|
|
|
txa
|
2005-04-19 11:31:00 +00:00
|
|
|
|
2005-04-19 14:28:15 +00:00
|
|
|
; Check for null prefix
|
2015-10-15 00:15:38 +02:00
|
|
|
ldx __cwd
|
2013-05-09 13:56:54 +02:00
|
|
|
beq done
|
2006-05-29 16:27:39 +00:00
|
|
|
|
2013-05-09 13:56:54 +02:00
|
|
|
; Remove length byte and trailing slash
|
2015-10-15 00:15:38 +02:00
|
|
|
dex
|
|
|
|
|
stx tmp1
|
|
|
|
|
ldx #$00
|
|
|
|
|
: lda __cwd + 1,x
|
|
|
|
|
sta __cwd,x
|
2013-05-09 13:56:54 +02:00
|
|
|
inx
|
|
|
|
|
cpx tmp1
|
|
|
|
|
bcc :-
|
2006-05-29 16:27:39 +00:00
|
|
|
|
2013-05-09 13:56:54 +02:00
|
|
|
; Add terminating zero
|
|
|
|
|
lda #$00
|
2015-10-15 00:15:38 +02:00
|
|
|
sta __cwd,x
|
2018-09-08 23:14:54 +02:00
|
|
|
|
2013-05-09 13:56:54 +02:00
|
|
|
done: rts
|
2023-08-18 11:12:16 +02:00
|
|
|
|
|
|
|
|
oserr: lda #$01 ; "Bad system call number"
|
|
|
|
|
sec
|
|
|
|
|
rts
|
