mirror of
https://github.com/A2osX/A2osX.git
synced 2024-11-26 13:49:18 +00:00
Kernel version 0.9 : BugFix in LS preventing showing first entry in directories.
This commit is contained in:
parent
12f266493c
commit
7b0b304d27
BIN
A2OSX.BOOT.po
BIN
A2OSX.BOOT.po
Binary file not shown.
BIN
A2OSX.SRC.po
BIN
A2OSX.SRC.po
Binary file not shown.
22
BIN/LS.S.txt
22
BIN/LS.S.txt
@ -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
|
||||
|
@ -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.....
|
||||
|
Loading…
Reference in New Issue
Block a user