mirror of https://github.com/A2osX/A2osX.git
Kernel 0.92+
This commit is contained in:
parent
5847f53366
commit
61caa255e1
Binary file not shown.
27
BIN/LS.S.txt
27
BIN/LS.S.txt
|
@ -238,8 +238,17 @@ CS.RUN.PRINT.DIR
|
|||
|
||||
>LDA.G bColumn
|
||||
bpl .22
|
||||
|
||||
>LDA.G bFullPath
|
||||
bpl .23
|
||||
|
||||
>PUSHBI 0
|
||||
ldy #hSrcBasePath
|
||||
lda (pData),y
|
||||
>SYSCALL GetMemPtr
|
||||
>SYSCALL printf
|
||||
|
||||
>LDYA ZPFileName
|
||||
.23 >LDYA ZPFileName
|
||||
>SYSCALL puts
|
||||
rts
|
||||
|
||||
|
@ -309,7 +318,16 @@ CS.RUN.PRINT.FILE
|
|||
>LDA.G bColumn
|
||||
bpl .22
|
||||
|
||||
>LDYA ZPFileName
|
||||
>LDA.G bFullPath
|
||||
bpl .23
|
||||
|
||||
>PUSHBI 0
|
||||
ldy #hSrcBasePath
|
||||
lda (pData),y
|
||||
>SYSCALL GetMemPtr
|
||||
>SYSCALL printf
|
||||
|
||||
.23 >LDYA ZPFileName
|
||||
>SYSCALL puts
|
||||
rts
|
||||
|
||||
|
@ -538,8 +556,8 @@ Mod2CSTR ldy #S.STAT.MODE+1
|
|||
*--------------------------------------
|
||||
CS.END
|
||||
*--------------------------------------
|
||||
OptionList >PSTR "ACLRalr"
|
||||
OptionVars .DA #bAllmostAll,#bColumn,#bLong,#bRecurse,#bAllmostAll,#bColumn,#bLong,#bRecurse
|
||||
OptionList >PSTR "ACFLRacflr"
|
||||
OptionVars .DA #bAllmostAll,#bColumn,#bFullPath,#bLong,#bRecurse,#bAllmostAll,#bColumn,#bFullPath,#bLong,#bRecurse
|
||||
*--------------------------------------
|
||||
MSG.DEVEXT .AZ "/%15s S%dD%d Blocks Used:%5D Total:%5D\r\n"
|
||||
MSG.DIR .AZ "\e[32m%s/\e[0m"
|
||||
|
@ -578,6 +596,7 @@ hFilter .BS 1
|
|||
bPause .BS 1
|
||||
bAllmostAll .BS 1
|
||||
bColumn .BS 1
|
||||
bFullPath .BS 1
|
||||
bLong .BS 1
|
||||
bRecurse .BS 1
|
||||
|
||||
|
|
|
@ -620,12 +620,13 @@ CMD.DEFAULT jsr CORE.StkGetCtx Get context in CORE.Test
|
|||
CMD.BREAK jsr CORE.StkGetCtx Get context in CORE.Test
|
||||
bcs .9
|
||||
|
||||
tax
|
||||
and #$3F
|
||||
cmp #C.CASE
|
||||
bne .9
|
||||
|
||||
>LDA.G CORE.Test
|
||||
beq .8
|
||||
txa
|
||||
bpl .8
|
||||
|
||||
jsr CORE.StkPull remove C.CASE
|
||||
jsr CORE.StkGet
|
||||
|
|
|
@ -385,6 +385,7 @@ note : '$VAR' does NOT expand Variable
|
|||
| | | -1 : SIGQUIT | |
|
||||
| LS | Working | -A : Print . & .. | 0.92 |
|
||||
| | | -C : Single column listing | |
|
||||
| | | -F : with -C, includes full path | |
|
||||
| | | -L : long listing with size/date... | |
|
||||
| | | -R : Recurse subdirectories | |
|
||||
| LSDEV | Working | Dump device Drivers | 0.92 |
|
||||
|
|
Loading…
Reference in New Issue