mirror of
https://github.com/A2osX/A2osX.git
synced 2024-09-28 18:55:10 +00:00
Kernel 0.93+
This commit is contained in:
parent
2b4a2df2e9
commit
7342c76ecd
Binary file not shown.
@ -841,16 +841,13 @@ CMD.FOR jsr CORE.StkGetCtx
|
|||||||
|
|
||||||
lda #8 Make sure 8 bytes free on stack
|
lda #8 Make sure 8 bytes free on stack
|
||||||
jsr CORE.StkCheck
|
jsr CORE.StkCheck
|
||||||
bcs .9
|
bcs FOR.FILE.9
|
||||||
|
|
||||||
lda (ZPArgVBufPtr)
|
lda (ZPArgVBufPtr)
|
||||||
cmp #'('
|
cmp #'('
|
||||||
beq CMD.FOR.FILE
|
beq CMD.FOR.FILE
|
||||||
cmp #'`'
|
cmp #'`'
|
||||||
bne CMD.FOR.LIST
|
beq CMD.FOR.EXEC
|
||||||
|
|
||||||
bra CMD.FOR.EXEC
|
|
||||||
.9 rts
|
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CMD.FOR.LIST >LDYA ZPArgVBufPtr
|
CMD.FOR.LIST >LDYA ZPArgVBufPtr
|
||||||
>SYSCALL strdup
|
>SYSCALL strdup
|
||||||
|
@ -373,20 +373,23 @@ CORE.Lookup >STYA ZPPtr2
|
|||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
* ArgV
|
* ArgV
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CORE.ArgV.Add >LDYA ZPArgVBufPtr
|
CORE.ArgV.Add lda #C.SPACE
|
||||||
>STYA ZPArgVBufPrev Save String start of Expand
|
|
||||||
|
|
||||||
lda #C.SPACE
|
|
||||||
sta ZPTmpW
|
sta ZPTmpW
|
||||||
|
|
||||||
|
ldy #0
|
||||||
|
|
||||||
jsr CORE.GetCharNB
|
jsr CORE.GetCharNB
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
cmp #'"'
|
cmp #'"'
|
||||||
bne .10
|
bne .10
|
||||||
|
|
||||||
sta ZPTmpW
|
sta ZPTmpW
|
||||||
bra .1
|
bra .1
|
||||||
|
|
||||||
.10 cmp #'('
|
.10 cmp #'('
|
||||||
bne .11
|
bne .11
|
||||||
|
|
||||||
ldx #')'
|
ldx #')'
|
||||||
stx ZPTmpW
|
stx ZPTmpW
|
||||||
|
|
||||||
@ -395,58 +398,60 @@ CORE.ArgV.Add >LDYA ZPArgVBufPtr
|
|||||||
.11 cmp #'`'
|
.11 cmp #'`'
|
||||||
bne .12
|
bne .12
|
||||||
sta ZPTmpW
|
sta ZPTmpW
|
||||||
.12 jsr CORE.ArgV.PutChar
|
|
||||||
|
.12 sta (ZPArgVBufPtr),y
|
||||||
|
iny
|
||||||
|
|
||||||
.1 jsr CORE.GetNextChar
|
.1 jsr CORE.GetNextChar
|
||||||
bcs .5
|
bcs .5
|
||||||
|
|
||||||
.2 cmp ZPTmpW
|
.2 cmp ZPTmpW
|
||||||
bne .3
|
bne .3
|
||||||
jsr CORE.GetNextChar
|
jsr CORE.GetNextChar
|
||||||
bra .5
|
bra .5
|
||||||
|
|
||||||
.3 ldy ZPTmpW
|
.3 ldx ZPTmpW
|
||||||
cpy #C.SPACE
|
cpx #C.SPACE
|
||||||
bne .40
|
bne .40
|
||||||
|
|
||||||
jsr CORE.IsEndCmd
|
jsr CORE.IsEndCmd
|
||||||
bcc .5
|
bcc .5
|
||||||
.40 jsr CORE.ArgV.PutChar
|
|
||||||
|
.40 sta (ZPArgVBufPtr),y
|
||||||
|
iny
|
||||||
|
|
||||||
.4 jsr CORE.GetNextChar
|
.4 jsr CORE.GetNextChar
|
||||||
bcc .2
|
bcc .2
|
||||||
.5 lda #0
|
|
||||||
jsr CORE.ArgV.PutChar
|
|
||||||
|
|
||||||
>LDYA ZPArgVBufPrev
|
.5 lda #0
|
||||||
|
sta (ZPArgVBufPtr),y
|
||||||
|
|
||||||
|
>LDYA ZPArgVBufPtr
|
||||||
>SYSCALL ExpandStr
|
>SYSCALL ExpandStr
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
phx
|
phx
|
||||||
>STYA ZPPtr1
|
>STYA ZPPtr1
|
||||||
|
|
||||||
>LDYA ZPArgVBufPrev
|
|
||||||
>STYA ZPArgVBufPtr
|
|
||||||
|
|
||||||
ldy #$ff
|
ldy #$ff
|
||||||
|
|
||||||
.7 iny
|
.7 iny
|
||||||
lda (ZPPtr1),y
|
lda (ZPPtr1),y
|
||||||
beq .8
|
sta (ZPArgVBufPtr),y
|
||||||
jsr CORE.ArgV.PutChar
|
bne .7
|
||||||
bra .7
|
|
||||||
.8 tya
|
tya
|
||||||
beq .81
|
sec
|
||||||
lda #0
|
adc ZPArgVBufPtr
|
||||||
jsr CORE.ArgV.PutChar
|
sta ZPArgVBufPtr
|
||||||
.81 pla
|
bcc .8
|
||||||
|
|
||||||
|
inc ZPArgVBufPtr+1
|
||||||
|
|
||||||
|
.8 pla
|
||||||
>SYSCALL freemem
|
>SYSCALL freemem
|
||||||
.9 rts
|
.9 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CORE.ArgV.PutChar
|
|
||||||
sta (ZPArgVBufPtr)
|
|
||||||
CORE.ArgV.NextChar
|
|
||||||
inc ZPArgVBufPtr
|
|
||||||
bne .8
|
|
||||||
inc ZPArgVBufPtr+1
|
|
||||||
.8 rts
|
|
||||||
*--------------------------------------
|
|
||||||
CORE.ArgV.Next lda (ZPArgVBufPtr)
|
CORE.ArgV.Next lda (ZPArgVBufPtr)
|
||||||
beq .8
|
beq .8
|
||||||
|
|
||||||
@ -462,6 +467,12 @@ CORE.ArgV.Next lda (ZPArgVBufPtr)
|
|||||||
|
|
||||||
.8 rts
|
.8 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
CORE.ArgV.NextChar
|
||||||
|
inc ZPArgVBufPtr
|
||||||
|
bne .8
|
||||||
|
inc ZPArgVBufPtr+1
|
||||||
|
.8 rts
|
||||||
|
*--------------------------------------
|
||||||
* IO
|
* IO
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CORE.IO.JMP txa
|
CORE.IO.JMP txa
|
||||||
|
Loading…
Reference in New Issue
Block a user