mirror of
https://github.com/A2osX/A2osX.git
synced 2025-02-16 18:30:26 +00:00
Kernel 0.94
This commit is contained in:
parent
e25c203ccf
commit
f8084043fe
Binary file not shown.
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
Loading…
x
Reference in New Issue
Block a user