Kernel 0.94

This commit is contained in:
Rémy GIBERT 2020-03-17 17:03:32 +01:00
parent e25c203ccf
commit f8084043fe
4 changed files with 12 additions and 5 deletions

Binary file not shown.

View File

@ -130,12 +130,16 @@ CS.RUN.LOOP ldy #S.PS.hStdIn
lda (pPS),y
>SYSCALL feof
bcs .99 I/O error
tay
bne .2 no char
>SYSCALL GetChar
cmp #$03 Ctrl-C
bne .1 Abort....
rts CS
.1 cmp #$13 Ctrl-S
bne .2
@ -143,15 +147,19 @@ CS.RUN.LOOP ldy #S.PS.hStdIn
eor #$ff
sta (pData),y
bne CS.RUN.LOOP
.2 >LDA.G bPause
bne CS.RUN.LOOP
jsr GetEntry
bcs .9
jsr FilterMatch
bcs .8 no match, skip....
>LDA.G bAllmostAll
bmi .4
lda (ZPFileName)
cmp #'.'
beq .8

View File

@ -417,9 +417,9 @@ GetEntry.ReadDir
>SYSCALL FreeMem discard previous hDIRENT
.1 jsr GethDIR
>SYSCALL ReadDir
bcs .9
>STYA ZPFileName
ldy #index
lda (pData),y
@ -606,5 +606,5 @@ GetoDIRENT ldy #index
*--------------------------------------
MAN
SAVE USR/SRC/BIN/X.FILEENUM.S
LOAD USR/SRC/BIN/PAK.S
LOAD USR/SRC/BIN/LS.S
ASM

View File

@ -72,9 +72,8 @@ K.ReadDir jsr PFT.CheckNodeA
lda (pFD),y
beq K.ReadDir.ROOT
jsr UNISTD.CheckDev
bcs .1
bpl .1
jmp K.ReadDir.DEV
.1 jmp K.ReadDir.DIR