mirror of
https://github.com/A2osX/A2osX.git
synced 2024-06-19 20:29:34 +00:00
Kernel 0.93+
This commit is contained in:
parent
e753621178
commit
7b84824df3
Binary file not shown.
|
@ -545,7 +545,7 @@ CMD.REN lda (ZPArgVBufPtr)
|
||||||
sta ZPTmpW
|
sta ZPTmpW
|
||||||
|
|
||||||
>PUSHW ZPPtr2
|
>PUSHW ZPPtr2
|
||||||
>LDYA ZPArgVBufPrev
|
>LDYA ZPPtr1
|
||||||
>SYSCALL Rename
|
>SYSCALL Rename
|
||||||
|
|
||||||
.90 php
|
.90 php
|
||||||
|
|
|
@ -12,54 +12,6 @@ moventry ldy h_entln Get FileInfo From Directory Block Buffer
|
||||||
tya
|
tya
|
||||||
bne .1
|
bne .1
|
||||||
|
|
||||||
.DO LOWERCASE=2
|
|
||||||
lda d_stor
|
|
||||||
and #$F0
|
|
||||||
cmp #$F0
|
|
||||||
beq .8
|
|
||||||
|
|
||||||
bit d_sosver
|
|
||||||
bpl .8 no lowercase bitmap
|
|
||||||
|
|
||||||
lda d_stor
|
|
||||||
and #$0F
|
|
||||||
tax
|
|
||||||
|
|
||||||
beq .8 deleted entry
|
|
||||||
|
|
||||||
ldy #0
|
|
||||||
|
|
||||||
.2 iny
|
|
||||||
lda whichbit,y
|
|
||||||
bit d_sosver
|
|
||||||
beq .3
|
|
||||||
|
|
||||||
lda d_stor,y
|
|
||||||
jsr XDOS.ToLower
|
|
||||||
sta d_stor,y
|
|
||||||
|
|
||||||
.3 dex
|
|
||||||
beq .8
|
|
||||||
|
|
||||||
cpy #7
|
|
||||||
bne .2
|
|
||||||
|
|
||||||
.4 iny
|
|
||||||
lda whichbit-8,y
|
|
||||||
bit d_comp
|
|
||||||
beq .5
|
|
||||||
|
|
||||||
lda d_stor,y
|
|
||||||
jsr XDOS.ToLower
|
|
||||||
sta d_stor,y
|
|
||||||
|
|
||||||
.5 iny
|
|
||||||
dex
|
|
||||||
bne .4
|
|
||||||
.8 lda #$00 no errors
|
|
||||||
clc
|
|
||||||
.FIN
|
|
||||||
|
|
||||||
nofind rts
|
nofind rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
lookfile jsr preproot go find volume
|
lookfile jsr preproot go find volume
|
||||||
|
@ -318,16 +270,16 @@ L38F8 dec cntent checked all entries in this block?
|
||||||
preproot jsr findvol search vcb's and dev's for spec'd volume
|
preproot jsr findvol search vcb's and dev's for spec'd volume
|
||||||
bcs novolume
|
bcs novolume
|
||||||
|
|
||||||
lda #$00 zero out directory temps
|
ldx #$42 zero out directory temps
|
||||||
ldy #$42
|
|
||||||
|
|
||||||
L3914 sta own_blk,y and owner info
|
L3914 stz own_blk,x and owner info
|
||||||
dey
|
dex
|
||||||
bpl L3914
|
bpl L3914
|
||||||
|
|
||||||
lda devnum setup device # for this directory
|
lda devnum setup device # for this directory
|
||||||
sta d_dev
|
sta d_dev
|
||||||
jsr movhed0 setup other header info from directory
|
jsr movhed0 setup other header info from directory
|
||||||
|
|
||||||
ldy #$01 in gbuf and clean up misc info.
|
ldy #$01 in gbuf and clean up misc info.
|
||||||
ldx vcbptr
|
ldx vcbptr
|
||||||
inx
|
inx
|
||||||
|
@ -434,11 +386,14 @@ L39D4 lda vnptr make path ptr same as volume ptr
|
||||||
jsr mvdevnums copy all device #'s to be examined.
|
jsr mvdevnums copy all device #'s to be examined.
|
||||||
lda devnum log current device 1st before searching
|
lda devnum log current device 1st before searching
|
||||||
bne L39F1 others.
|
bne L39F1 others.
|
||||||
L39E2 ldx DEVCNT scan look list for devices we need
|
|
||||||
|
L39E2 ldx DEVCNT scan look list for devices we need
|
||||||
|
|
||||||
L39E5 lda loklst,x to search for the requested volume.
|
L39E5 lda loklst,x to search for the requested volume.
|
||||||
bne L39F4 branch if we've a device to look at.
|
bne L39F4 branch if we've a device to look at.
|
||||||
dex
|
dex
|
||||||
bpl L39E5 look at next one.
|
bpl L39E5 look at next one.
|
||||||
|
|
||||||
L39ED lda #MLI.E.VNOTFND no mounted volume
|
L39ED lda #MLI.E.VNOTFND no mounted volume
|
||||||
sec error
|
sec error
|
||||||
L39F0 rts
|
L39F0 rts
|
||||||
|
|
|
@ -597,7 +597,7 @@ L4AAE jsr XDOS.GetRenPath since both names go into the directory,
|
||||||
bcs L4A74 syntax the new name to get the local
|
bcs L4A74 syntax the new name to get the local
|
||||||
|
|
||||||
ldy rnptr name address. y = index to local name
|
ldy rnptr name address. y = index to local name
|
||||||
ldx pathbuf,y length. adj y to last char of new name. tya
|
ldx pathbuf,y length. adj y to last char of new name.
|
||||||
tya
|
tya
|
||||||
adc pathbuf,y
|
adc pathbuf,y
|
||||||
tay
|
tay
|
||||||
|
@ -628,7 +628,11 @@ L4ABE lda pathbuf,y move local name to dir entry workspace.
|
||||||
jsr mvrotnam
|
jsr mvrotnam
|
||||||
bcs L4A74
|
bcs L4A74
|
||||||
|
|
||||||
L4AF0 jmp drevise1 end by updating all path directories.
|
L4AF0 .DO LOWERCASE=1
|
||||||
|
jsr XDOS.LC2UCBM
|
||||||
|
.FIN
|
||||||
|
|
||||||
|
jmp drevise1 end by updating all path directories.
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
mvrotnam ldx #$00
|
mvrotnam ldx #$00
|
||||||
|
|
||||||
|
|
|
@ -514,6 +514,42 @@ L4EB8 lda (usrbuf),y move all 4 pages of the buffer to
|
||||||
cmembit.CLCRTS
|
cmembit.CLCRTS
|
||||||
clc no errors
|
clc no errors
|
||||||
L4EC7 rts
|
L4EC7 rts
|
||||||
|
*--------------------------------------
|
||||||
|
.DO LOWERCASE=1
|
||||||
|
XDOS.LC2UCBM stz d_sosver
|
||||||
|
stz d_comp
|
||||||
|
|
||||||
|
lda d_stor
|
||||||
|
and #$0F
|
||||||
|
tay
|
||||||
|
|
||||||
|
.1 lda d_stor,y
|
||||||
|
cmp #'a'
|
||||||
|
bcc .4
|
||||||
|
cmp #'z'+1
|
||||||
|
bcs .4
|
||||||
|
|
||||||
|
eor #$20
|
||||||
|
sta d_stor,y
|
||||||
|
|
||||||
|
cpy #8
|
||||||
|
bcs .2
|
||||||
|
|
||||||
|
lda whichbit,y
|
||||||
|
tsb d_sosver
|
||||||
|
bra .3
|
||||||
|
|
||||||
|
.2 lda whichbit-8,y
|
||||||
|
tsb d_comp
|
||||||
|
|
||||||
|
.3 lda #$80
|
||||||
|
tsb d_sosver
|
||||||
|
|
||||||
|
.4 dey
|
||||||
|
bne .1
|
||||||
|
|
||||||
|
rts
|
||||||
|
.FIN
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
XDOS.IsValidChar
|
XDOS.IsValidChar
|
||||||
cmp #'0'
|
cmp #'0'
|
||||||
|
|
Loading…
Reference in New Issue
Block a user