Apple-2-SW
/
A2osX
mirror of https://github.com/A2osX/A2osX.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

bug fix

This commit is contained in:
Rémy GIBERT 2015-06-24 22:48:53 +02:00
parent 0c3f235d13
commit b4b7e89946
1 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
SYS/KERNEL.S.FS.txt
View File

@ -191,7 +191,13 @@ S.ListDirInitA sta R.AL
tya
sta (R.BX) remove pattern from path
.4 >PUSHWI S.LISTDIR.SIZE get LISTDIR Struct
.4 >LDYA R.BX
jsr S.NewPStrYA
bcs .99
ldy #S.LISTDIR.hPATH
sta (R.CX),y
>PUSHWI S.LISTDIR.SIZE get LISTDIR Struct
>PUSHBI S.MEM.F.INIT0 reset all bytes
jsr S.GetMem
bcs .99
@ -296,11 +302,14 @@ S.ListDirInitAD
ldy #$25 get File_count LO
lda (ZPQuickPtr1),y
clc
adc #1 Add 1 for VOL/DIR Header
ldy #S.LISTDIR.FC
sta (R.CX),y
ldy #$26 get File_count HI
lda (ZPQuickPtr1),y
adc #0
ldy #S.LISTDIR.FC+1
sta (R.CX),y
@ -535,7 +544,12 @@ S.ListDirCloseA pha
beq .5
jsr S.FreeMemA
.5 pla
.5 ldy #S.LISTDIR.hPATH
lda (ZPQuickPtr1),y
beq .6
jsr S.FreeMemA
.6 pla
jsr S.FreeMemA
clc
rts