2010-05-26 21:02:35 +00:00
|
|
|
;
|
|
|
|
; Oliver Schmidt, 2010-05-24
|
|
|
|
;
|
|
|
|
; unsigned char __fastcall__ rootdir (unsigned char drive, char* buf);
|
|
|
|
;
|
|
|
|
|
|
|
|
.export _rootdir
|
|
|
|
.import popax
|
|
|
|
|
|
|
|
.include "zeropage.inc"
|
|
|
|
.include "errno.inc"
|
|
|
|
.include "mli.inc"
|
|
|
|
|
|
|
|
_rootdir:
|
|
|
|
; Save buf
|
|
|
|
sta ptr1
|
|
|
|
stx ptr1+1
|
|
|
|
|
|
|
|
; Set buf
|
|
|
|
sta mliparam + MLI::ON_LINE::DATA_BUFFER
|
|
|
|
stx mliparam + MLI::ON_LINE::DATA_BUFFER+1
|
|
|
|
|
|
|
|
; Set drive
|
|
|
|
jsr popax
|
|
|
|
sta mliparam + MLI::ON_LINE::UNIT_NUM
|
|
|
|
|
|
|
|
; Get volume name
|
|
|
|
lda #ON_LINE_CALL
|
|
|
|
ldx #ON_LINE_COUNT
|
|
|
|
jsr callmli
|
2010-06-01 21:01:59 +00:00
|
|
|
bcs oserr
|
2010-05-26 21:02:35 +00:00
|
|
|
|
|
|
|
; Get volume name length
|
|
|
|
ldy #$00
|
|
|
|
lda (ptr1),y
|
|
|
|
and #15 ; Max volume name length
|
|
|
|
sta tmp1
|
|
|
|
|
|
|
|
; Add leading slash
|
|
|
|
lda #'/'
|
|
|
|
sta (ptr1),y
|
|
|
|
|
|
|
|
; Add terminating zero
|
|
|
|
ldy tmp1
|
|
|
|
iny
|
|
|
|
lda #$00
|
|
|
|
sta (ptr1),y
|
|
|
|
|
2010-06-01 21:01:59 +00:00
|
|
|
; Return success
|
|
|
|
tax
|
|
|
|
rts
|
|
|
|
|
|
|
|
; Return error
|
|
|
|
oserr: sta __oserror
|
2010-05-26 21:02:35 +00:00
|
|
|
ldx #$00
|
|
|
|
rts
|