Kernel version 0.9 : BugFix in LS preventing showing first entry in directories.

This commit is contained in:
Rémy GIBERT 2017-03-07 15:05:23 +01:00
parent 12f266493c
commit 7b0b304d27
4 changed files with 17 additions and 8 deletions

Binary file not shown.

Binary file not shown.

View File

@ -132,7 +132,7 @@ CS.RUN >SYSCALL GetC
lda (pData),y
bne .8 Pause...
jsr GetNextEntry
jsr GetEntry
bcs .9
ldy #hFilter
@ -169,6 +169,7 @@ CS.RUN >SYSCALL GetC
bcs .92
jsr BasePath..
jsr GetNextEntry
.8 clc
rts
@ -208,9 +209,10 @@ CS.RUN.DEV ldy #bLong
jsr EnterSubDirYA
bcs .9
jsr CS.RUN.ENTER.MSG
bcs .9
rts
.8 clc
.8 jsr GetNextEntry
clc
.9 rts
*--------------------------------------
CS.RUN.DIR ldy #bAllmostAll
@ -279,9 +281,10 @@ CS.RUN.DIR ldy #bAllmostAll
jsr EnterSubDirYA
bcs .9
jsr CS.RUN.ENTER.MSG
bcs .9
rts
.8 clc
.8 jsr GetNextEntry
clc
.9 rts
*--------------------------------------
CS.RUN.FILE ldy #bLong
@ -293,7 +296,10 @@ CS.RUN.FILE ldy #bLong
>SYSCALL CPrintFYA
bcs .9
jmp CS.RUN.UpdateColCnt
jsr CS.RUN.UpdateColCnt
jsr GetNextEntry
clc
rts
.8 jsr CS.RUN.PUSHEXTRA
@ -327,6 +333,10 @@ CS.RUN.FILE ldy #bLong
>PUSHW ZPFileName
>LDYA L.MSG.FILEEXT
>SYSCALL CPrintFYA
bcs .9
jsr GetNextEntry
clc
.9 rts
*--------------------------------------
CS.RUN.PUSHEXTRA

View File

@ -1,6 +1,6 @@
PR#3
PREFIX /A2OSX.SRC
NEW
LOMEM $900
INC 1
AUTO 6
.LIST OFF
@ -113,7 +113,6 @@ K.ReadDirA.ROOT ldy #S.NODE.DIR.FC did we already returned something ?
>MLICALL MLIONLINE
bcc .10
sec
.99 rts
* pass #1 compute BufSize.....