Kernel 0.9.1 : Code reorganization & move to CSTR : SHELL

This commit is contained in:
Rémy GIBERT 2017-09-13 08:17:46 +02:00
parent 46918f88f0
commit 83b1abc4df
5 changed files with 123 additions and 131 deletions

Binary file not shown.

Binary file not shown.

View File

@ -166,11 +166,8 @@ Cmd.Exec.EXT pla Discard CMD len
>PUSHW L.STAT >PUSHW L.STAT
>PUSHW ZPPtr1 >PUSHW ZPPtr1
>SYSCALL STAT >SYSCALL STAT
bcs .99 bcc .3
bra Cmd.Exec.Done
>LDYAI UsrBuf256
>STYA ZPPtr1
bra .3
.1 >LDYA L.ENV.PATH push ENVNAME=PATH for search .1 >LDYA L.ENV.PATH push ENVNAME=PATH for search
>SYSCALL GetEnv.YA get value for ENV=PATH >SYSCALL GetEnv.YA get value for ENV=PATH
@ -183,7 +180,6 @@ Cmd.Exec.EXT pla Discard CMD len
lda (pPs),y lda (pPs),y
>SYSCALL GetMemPtr.A >SYSCALL GetMemPtr.A
jsr Cmd.Exec.Search jsr Cmd.Exec.Search
bcs .99 bcs .99
.3 lda STAT+S.STAT.P.TYPE .3 lda STAT+S.STAT.P.TYPE

View File

@ -64,7 +64,6 @@ L.MSG.CSHERR .DA MSG.CSHERR
L.ENV.PATH .DA ENV.PATH L.ENV.PATH .DA ENV.PATH
L.ENV.PWD .DA ENV.PWD L.ENV.PWD .DA ENV.PWD
L.ENV.PS1 .DA ENV.PS1 L.ENV.PS1 .DA ENV.PS1
L.CMD .DA CMD
L.TIME .DA TIME L.TIME .DA TIME
L.STAT .DA STAT L.STAT .DA STAT
L.FMT.DATE .DA FMT.DATE L.FMT.DATE .DA FMT.DATE
@ -143,9 +142,7 @@ CS.RUN >LDA.G bReadMode READ Command ?
beq .10 beq .10
jmp CS.RUN.BATCH jmp CS.RUN.BATCH
* Interactive Mode * Interactive Mode
.10 >LDA.G hCmdBuf Get the buffer .10 >LDA.G hCmdBuf Get the buffer
>SYSCALL GetMemPtr.A >SYSCALL GetMemPtr.A
>STYA ZPCMDBuf >STYA ZPCMDBuf
@ -301,7 +298,7 @@ CS.DOEVENT lda (pEvent)
rts rts
*-------------------------------------- *--------------------------------------
CS.CHARIN tax Save Char CS.CHARIN tax Save Char
>LDA.G CSH.hBuf Batch mode ? >LDA.G CSH.hBuf Batch mode ?
beq .10 beq .10
* Batch Mode * Batch Mode
cpx #3 test Ctrl-c cpx #3 test Ctrl-c
@ -557,7 +554,6 @@ FMT.TIME >CSTR "%H:%M:%S (%I:%M:%S%p)"
*-------------------------------------- *--------------------------------------
EscChars >PSTR "DBAC" EscChars >PSTR "DBAC"
EscAscii .HS 04080A0B15 EscAscii .HS 04080A0B15
CMD .BS 256
TIME .BS S.TIME TIME .BS S.TIME
STAT .BS S.STAT STAT .BS S.STAT
bStartProc .BS 1 bStartProc .BS 1

View File

@ -70,16 +70,16 @@ A2osX.PrtDrv.GetDev
A2osX.PrtDrv.Cnt A2osX.PrtDrv.Cnt
.HS 03030301030101010404 .HS 03030301030101010404
*-------------------------------------- *--------------------------------------
DevMgr.NUL.Code .DA .1 STATUS DevMgr.NUL.Code .DA .1 STATUS
.DA A2osX.BADCALL READBLOCK .DA A2osX.BADCALL READBLOCK
.DA A2osX.BADCALL WRITEBLOCK .DA A2osX.BADCALL WRITEBLOCK
.DA A2osX.BADCALL FORMAT .DA A2osX.BADCALL FORMAT
.DA A2osX.BADCALL CONTROL .DA A2osX.BADCALL CONTROL
.DA A2osX.BADCALL INIT .DA A2osX.BADCALL INIT
.DA A2osX.BADCALL OPEN .DA A2osX.BADCALL OPEN
.DA A2osX.BADCALL CLOSE .DA A2osX.BADCALL CLOSE
.DA A2osX.BADCALL READ .DA A2osX.BADCALL READ
.DA .8 WRITE .DA .8 WRITE
.8 clc .8 clc
rts rts
*-------------------------------------- *--------------------------------------
@ -94,14 +94,14 @@ DevMgr.NUL.Code .DA .1 STATUS
.DA #0 .DA #0
.DA $0900 .DA $0900
*-------------------------------------- *--------------------------------------
DevMgr.SYS.Code .DA .1 STATUS DevMgr.SYS.Code .DA .1 STATUS
.DA A2osX.BADCALL READBLOCK .DA A2osX.BADCALL READBLOCK
.DA A2osX.BADCALL WRITEBLOCK .DA A2osX.BADCALL WRITEBLOCK
.DA A2osX.BADCALL FORMAT .DA A2osX.BADCALL FORMAT
.DA DevMgr.SYS.Control .DA DevMgr.SYS.Control
.DA A2osX.BADCALL INIT .DA A2osX.BADCALL INIT
.DA DevMgr.SYS.Open .DA DevMgr.SYS.Open
.DA A2osX.BADCALL CLOSE .DA A2osX.BADCALL CLOSE
.DA DevMgr.SYS.Read .DA DevMgr.SYS.Read
.DA DevMgr.SYS.Write .DA DevMgr.SYS.Write
*-------------------------------------- *--------------------------------------