Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-08-12 14:29:33 +00:00
Code Issues Projects Releases Wiki Activity

Kernel version 0.8 : LS / now looks like regular DIR/ listing, and -R now works at / level

Browse Source
This commit is contained in:
Rémy GIBERT 2016-10-30 08:58:08 +01:00
parent 2217e64f23
commit 4c86e67a92
4 changed files with 26 additions and 14 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.

24
BIN/LS.S.txt
View File

@ -35,7 +35,7 @@ CS.START cld
.DA CS.RUN .DA CS.RUN
.DA CS.DOEVENT .DA CS.DOEVENT
.DA CS.QUIT .DA CS.QUIT
L.MSG.DEV .DA MSG.DEV L.MSG.DEVEXT .DA MSG.DEVEXT
L.MSG.DIR .DA MSG.DIR L.MSG.DIR .DA MSG.DIR
L.MSG.ENTER .DA MSG.ENTER L.MSG.ENTER .DA MSG.ENTER
L.MSG.DIREXT .DA MSG.DIREXT L.MSG.DIREXT .DA MSG.DIREXT
@ -159,7 +159,11 @@ CS.RUN ldy #bCANCEL
sec sec
rts rts
*-------------------------------------- *--------------------------------------
CS.RUN.DEV ldy #S.STAT.PRODOS.DEVBLOCKS+1 CS.RUN.DEV ldy #bLong
lda (pData),y
bpl CS.RUN.DIR
ldy #S.STAT.PRODOS.DEVBLOCKS+1
>PUSHB (ZPPtr2),y >PUSHB (ZPPtr2),y
dey dey
>PUSHB (ZPPtr2),y >PUSHB (ZPPtr2),y
@ -174,9 +178,19 @@ CS.RUN.DEV ldy #S.STAT.PRODOS.DEVBLOCKS+1
>PUSHB (ZPPtr2),y >PUSHB (ZPPtr2),y
>PUSHW ZPPtr1 >PUSHW ZPPtr1
>LDYA L.MSG.DEV >LDYA L.MSG.DEVEXT
>SYSCALL PrintFYA >SYSCALL PrintFYA
rts bcs .9
ldy #bRecurse
lda (pData),y
bpl .8
>LDYA ZPPtr1
jmp EnterSubDirYA
.8 clc
.9 rts
*-------------------------------------- *--------------------------------------
CS.RUN.DIR ldy #bAllmostAll CS.RUN.DIR ldy #bAllmostAll
lda (pData),y lda (pData),y
@ -430,7 +444,7 @@ CS.END
OptionList >PSTR "ALR" OptionList >PSTR "ALR"
OptionVars .DA #bAllmostAll,#bLong,#bRecurse OptionVars .DA #bAllmostAll,#bLong,#bRecurse
*-------------------------------------- *--------------------------------------
MSG.DEV >CSTR "%15S S%d,D%d Blocks Used:%5D,Total:%5D\n" MSG.DEVEXT >CSTR "%15S S%d,D%d Blocks Used:%5D,Total:%5D\n"
MSG.DIR >CSTR "%S/" MSG.DIR >CSTR "%S/"
MSG.ENTER >CSTR "Directory:%S\n" MSG.ENTER >CSTR "Directory:%S\n"
MSG.DIREXT >CSTR "%16S <dir> %a %S %S\n" MSG.DIREXT >CSTR "%16S <dir> %a %S %S\n"

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

@ -159,19 +159,15 @@ K.ReadDirA.ROOT stz MLICALL.PARAMS+1 All Volumes
beq .88 beq .88
tax tax
jsr K.ReadDirA.AddToBuf
>LDYA ZPQuickPtr4 Store actual PTR for MLIGETFILEINFO
>STYA MLICALL.PARAMS+1
txa
inc inc
jsr K.ReadDirA.AddToBuf sta KrnOut256
lda #'/' lda #'/'
jsr K.ReadDirA.AddToBuf sta KrnOut256+1
ldy #1 ldy #1
.4 lda (ZPQuickPtr2),y .4 lda (ZPQuickPtr2),y
sta KrnOut256+1,y
jsr K.ReadDirA.AddToBuf jsr K.ReadDirA.AddToBuf
iny iny
dex dex
@ -195,6 +191,9 @@ K.ReadDirA.ROOT stz MLICALL.PARAMS+1 All Volumes
lsr lsr
sta KrnSTAT+S.STAT.PRODOS.SLOT sta KrnSTAT+S.STAT.PRODOS.SLOT
>LDYAI KrnOut256
>STYA MLICALL.PARAMS+1
>MLICALL MLIGETFILEINFO >MLICALL MLIGETFILEINFO
sta KrnSTAT+S.STAT.PRODOS.DEVSTATUS sta KrnSTAT+S.STAT.PRODOS.DEVSTATUS
@ -203,7 +202,6 @@ K.ReadDirA.ROOT stz MLICALL.PARAMS+1 All Volumes
>STYA KrnSTAT+S.STAT.PRODOS.DEVBLOCKS >STYA KrnSTAT+S.STAT.PRODOS.DEVBLOCKS
>LDYA MLICALL.PARAMS+8 >LDYA MLICALL.PARAMS+8
>STYA KrnSTAT+S.STAT.BLOCKS >STYA KrnSTAT+S.STAT.BLOCKS
.80 jsr K.ReadDirA.ADDSTAT .80 jsr K.ReadDirA.ADDSTAT