Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-11-26 13:49:18 +00:00
Code Issues Projects Releases Wiki Activity

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

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
A2OSX.BOOT.po
View File

Binary file not shown.

BIN
A2OSX.SRC.po
View File

Binary file not shown.

22
BIN/LS.S.txt
View File

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

3
SYS/KERNEL.S.DIR.txt
View File

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