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

Kernel 0.93+

Browse Source
This commit is contained in:
Rémy GIBERT 2020-01-13 14:33:30 +01:00
parent 2b4a2df2e9
commit 7342c76ecd
3 changed files with 43 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.Floppies/A2OSX.BUILD.po
View File

Binary file not shown.

7
BIN/SH.S.CMD.txt
View File

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

71
BIN/SH.S.CORE.txt
View File

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