Kernel 0.92+

This commit is contained in:
Rémy GIBERT 2019-03-11 16:46:00 +00:00
parent 5847f53366
commit 61caa255e1
4 changed files with 27 additions and 6 deletions

Binary file not shown.

View File

@ -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

View File

@ -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

View File

@ -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 |