mirror of
https://github.com/A2osX/A2osX.git
synced 2024-06-03 05:29:38 +00:00
Kernel 0.92+
This commit is contained in:
Rémy GIBERT
parent
dddaf0ff4b
commit
4ce1afaf6b
Binary file not shown.
233
BIN/SH.S.CMD.txt
233
BIN/SH.S.CMD.txt
|
|
@ -538,81 +538,105 @@ CMD.BREAK
|
||||||
.9 jmp CMD.Exec.CSYN
|
.9 jmp CMD.Exec.CSYN
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CMD.CONTINUE
|
CMD.CONTINUE
|
||||||
.9 jmp CMD.Exec.CSYN
|
CMD.CONTINUE.CSYN
|
||||||
|
jmp CMD.Exec.CSYN
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CMD.FOR lda (ZPArgVBufPtr)
|
CMD.FOR jsr CORE.StkGet
|
||||||
beq .9
|
bcs .1 no context...
|
||||||
|
|
||||||
|
and #$80 get current..
|
||||||
|
lsr becomes parent
|
||||||
|
bra .2
|
||||||
|
|
||||||
|
.1 lda #$40 ...set Parent = true
|
||||||
|
|
||||||
|
.2 >STA.G CORE.Test
|
||||||
|
|
||||||
|
lda (ZPArgVBufPtr)
|
||||||
|
beq CMD.CONTINUE.CSYN
|
||||||
|
|
||||||
>LDYA ZPArgVBufPtr
|
>LDYA ZPArgVBufPtr
|
||||||
>STYA ZPVarNamePtr
|
>STYA ZPVarNamePtr
|
||||||
|
|
||||||
jsr CORE.ArgV.Next
|
jsr CORE.ArgV.Next
|
||||||
beq .9
|
beq CMD.CONTINUE.CSYN
|
||||||
|
|
||||||
jsr ToUpperCase
|
jsr ToUpperCase
|
||||||
cmp #'I'
|
cmp #'I'
|
||||||
bne .9
|
bne CMD.CONTINUE.CSYN
|
||||||
|
|
||||||
ldy #1
|
ldy #1
|
||||||
lda (ZPArgVBufPtr),y
|
lda (ZPArgVBufPtr),y
|
||||||
beq .9
|
beq CMD.CONTINUE.CSYN
|
||||||
|
|
||||||
jsr ToUpperCase
|
jsr ToUpperCase
|
||||||
cmp #'N'
|
cmp #'N'
|
||||||
bne .9
|
bne CMD.CONTINUE.CSYN
|
||||||
|
|
||||||
iny
|
iny
|
||||||
lda (ZPArgVBufPtr),y
|
lda (ZPArgVBufPtr),y
|
||||||
bne .9
|
bne CMD.CONTINUE.CSYN
|
||||||
|
|
||||||
jsr CORE.ArgV.Next
|
jsr CORE.ArgV.Next
|
||||||
beq .9
|
beq CMD.CONTINUE.CSYN
|
||||||
|
|
||||||
|
cmp #'('
|
||||||
|
beq FOR.FILE
|
||||||
|
|
||||||
cmp #'`'
|
cmp #'`'
|
||||||
beq FOR.EXEC
|
beq FOR.EXEC
|
||||||
|
*--------------------------------------
|
||||||
sec
|
FOR.LIST sec
|
||||||
jsr CORE.StkPushPtr Push CmdPtr AFTER FOR
|
jsr CORE.StkPushPtr Push CmdPtr AFTER FOR
|
||||||
bcs .99
|
bcs .99
|
||||||
|
|
||||||
>LDYA ZPArgVBufPtr
|
>LDYA ZPArgVBufPtr
|
||||||
>SYSCALL strdup
|
>SYSCALL strdup
|
||||||
bcs .99
|
bcs .99
|
||||||
|
|
||||||
phy
|
phy
|
||||||
jsr CORE.StkPush
|
jsr CORE.StkPush Push hLIST
|
||||||
ply
|
bcs .99
|
||||||
bcs .99
|
pla
|
||||||
tya
|
jsr CORE.StkPush Push hLIST
|
||||||
jsr CORE.StkPush Push ListPtr
|
bcs .99
|
||||||
bcs .99
|
|
||||||
|
|
||||||
txa
|
txa
|
||||||
jsr CORE.StkPush Push hLIST
|
jsr CORE.StkPush Push hLIST
|
||||||
bcs .99
|
bcs .99
|
||||||
|
|
||||||
lda ZPVarNamePtr
|
|
||||||
jsr CORE.StkPush
|
|
||||||
bcs .99
|
|
||||||
|
|
||||||
lda ZPVarNamePtr+1 Push VARNAME
|
|
||||||
jsr CORE.StkPush
|
|
||||||
bcs .99
|
|
||||||
|
|
||||||
lda #C.FORLIST
|
|
||||||
jsr CORE.StkPush
|
|
||||||
bcs .99
|
|
||||||
|
|
||||||
>LDA.G CORE.Test
|
|
||||||
ora #C.FOR Push FOR
|
|
||||||
jsr CORE.StkPush
|
|
||||||
bcs .99
|
|
||||||
|
|
||||||
jmp CMD.NEXT
|
|
||||||
|
|
||||||
|
>LDYA ZPVarNamePtr
|
||||||
|
>SYSCALL strdup
|
||||||
|
bcs .99
|
||||||
|
|
||||||
|
txa
|
||||||
|
jsr CORE.StkPush Push hVARNAME
|
||||||
|
bcs .99
|
||||||
|
|
||||||
|
lda #C.FOR.LIST
|
||||||
|
jsr CORE.StkPush
|
||||||
|
bcs .99
|
||||||
|
|
||||||
|
lda #C.FOR
|
||||||
|
jsr CORE.StkPush
|
||||||
|
bcs .99
|
||||||
|
|
||||||
|
jsr CMD.NEXT.LIST.1
|
||||||
|
bcs .99
|
||||||
|
|
||||||
|
>ORA.G CORE.Test
|
||||||
|
ora #C.FOR Push FOR
|
||||||
|
pha
|
||||||
|
lda (pData)
|
||||||
|
tay
|
||||||
|
pla
|
||||||
|
sta (pData),y
|
||||||
|
|
||||||
|
* clc
|
||||||
|
|
||||||
clc
|
|
||||||
.99 rts
|
.99 rts
|
||||||
.9 jmp CMD.Exec.CSYN
|
*--------------------------------------
|
||||||
|
FOR.FILE
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
FOR.EXEC
|
FOR.EXEC
|
||||||
* lda #$ff
|
* lda #$ff
|
||||||
|
|
@ -620,33 +644,87 @@ FOR.EXEC
|
||||||
clc
|
clc
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
* stack+7 CmdPtr
|
|
||||||
* stack+5 ListPtr
|
|
||||||
* stack+4 hLIST
|
|
||||||
* stack+2 VARNAME
|
|
||||||
* stack+1 FOR SUB TOKEN
|
|
||||||
* stack FOR TOKEN
|
|
||||||
*--------------------------------------
|
|
||||||
CMD.NEXT jsr CORE.StkGet Y = StkPtr
|
CMD.NEXT jsr CORE.StkGet Y = StkPtr
|
||||||
|
|
||||||
bcs .9
|
bcs .9
|
||||||
tax
|
|
||||||
and #$3F
|
and #$3F
|
||||||
cmp #C.FOR
|
cmp #C.FOR
|
||||||
bne .9
|
bne .9
|
||||||
|
|
||||||
dey
|
dey
|
||||||
lda (pData),y
|
lda (pData),y
|
||||||
sta ZPVarNamePtr+1
|
tax
|
||||||
|
iny
|
||||||
|
jmp (J.NEXT,x)
|
||||||
|
|
||||||
|
.9 lda #E.NOFOR
|
||||||
|
sec
|
||||||
|
rts
|
||||||
|
*--------------------------------------
|
||||||
|
* stack-6 CmdPtr
|
||||||
|
* stack-4 ListPtr
|
||||||
|
* stack-3 hLIST
|
||||||
|
* stack-2 hVARNAME
|
||||||
|
* stack-1 FOR SUB TOKEN
|
||||||
|
* stack FOR TOKEN
|
||||||
|
*--------------------------------------
|
||||||
|
CMD.NEXT.LIST lda (pData),y Y = StkPtr
|
||||||
|
|
||||||
|
bpl .1
|
||||||
|
|
||||||
|
jsr CMD.NEXT.LIST.1
|
||||||
|
bcs .9
|
||||||
|
bpl .1
|
||||||
|
|
||||||
|
lda (pData)
|
||||||
|
sec
|
||||||
|
sbc #6
|
||||||
|
tay
|
||||||
|
|
||||||
|
lda (pData),y
|
||||||
|
sta ZPInputBufPtr+1
|
||||||
dey
|
dey
|
||||||
lda (pData),y
|
lda (pData),y
|
||||||
sta ZPVarNamePtr
|
sta ZPInputBufPtr
|
||||||
|
|
||||||
|
clc
|
||||||
|
rts
|
||||||
|
|
||||||
|
.1 lda (pData)
|
||||||
|
tay
|
||||||
|
sec
|
||||||
|
sbc #8
|
||||||
|
sta (pData)
|
||||||
|
|
||||||
|
dey
|
||||||
|
dey
|
||||||
|
lda (pData),y hVARNAME
|
||||||
|
pha
|
||||||
|
dey
|
||||||
|
lda (pData),y hLIST
|
||||||
|
>SYSCALL freemem
|
||||||
|
pla
|
||||||
|
>SYSCALL freemem
|
||||||
|
|
||||||
|
clc
|
||||||
|
.9 rts
|
||||||
|
*--------------------------------------
|
||||||
|
CMD.NEXT.LIST.1 lda (pData)
|
||||||
|
dec skip FOR
|
||||||
|
dec skip SUB TOKEN
|
||||||
|
|
||||||
|
tay
|
||||||
|
lda (pData),y
|
||||||
|
phy
|
||||||
|
>SYSCALL GetMemPtr hVARNAME
|
||||||
|
>STYA ZPVarNamePtr
|
||||||
|
ply
|
||||||
|
|
||||||
dey skip hLIST
|
dey skip hLIST
|
||||||
|
|
||||||
dey
|
dey
|
||||||
lda (pData),y
|
lda (pData),y
|
||||||
sta ZPPtr1 get ListPtr
|
sta ZPPtr1
|
||||||
|
|
||||||
dey
|
dey
|
||||||
lda (pData),y
|
lda (pData),y
|
||||||
|
|
@ -656,7 +734,7 @@ CMD.NEXT jsr CORE.StkGet Y = StkPtr
|
||||||
|
|
||||||
.1 iny
|
.1 iny
|
||||||
lda (ZPPtr1)
|
lda (ZPPtr1)
|
||||||
beq .8
|
beq .3
|
||||||
|
|
||||||
inc ZPPtr1
|
inc ZPPtr1
|
||||||
bne .2
|
bne .2
|
||||||
|
|
@ -674,35 +752,36 @@ CMD.NEXT jsr CORE.StkGet Y = StkPtr
|
||||||
tya
|
tya
|
||||||
beq .8
|
beq .8
|
||||||
|
|
||||||
|
>PUSHW ZPCLBuf
|
||||||
|
>LDYA ZPVarNamePtr
|
||||||
|
>SYSCALL SetEnv
|
||||||
|
bcs .9
|
||||||
|
|
||||||
lda (pData)
|
lda (pData)
|
||||||
sec
|
sec
|
||||||
sbc #5
|
sbc #4
|
||||||
tay
|
tay
|
||||||
lda ZPPtr1
|
lda ZPPtr1
|
||||||
sta (pData),y
|
sta (pData),y
|
||||||
iny
|
dey
|
||||||
lda ZPPtr1+1
|
lda ZPPtr1+1
|
||||||
sta (pData),y
|
sta (pData),y
|
||||||
iny
|
lda #$80
|
||||||
lda (pData),y
|
|
||||||
sta ZPInputBufPtr
|
|
||||||
iny
|
|
||||||
lda (pData),y
|
|
||||||
sta ZPInputBufPtr+1
|
|
||||||
clc
|
clc
|
||||||
rts
|
rts
|
||||||
|
|
||||||
.8 lda (pData)
|
.8 >LDYA ZPVarNamePtr
|
||||||
|
>SYSCALL UnSetEnv
|
||||||
|
bcs .9
|
||||||
|
|
||||||
sec
|
lda #0
|
||||||
sbc #9
|
* clc
|
||||||
sta (pData)
|
.9 rts
|
||||||
clc
|
*--------------------------------------
|
||||||
|
CMD.NEXT.FILE
|
||||||
|
*--------------------------------------
|
||||||
|
CMD.NEXT.EXEC clc
|
||||||
rts
|
rts
|
||||||
|
|
||||||
.9 lda #E.NOFOR
|
|
||||||
sec
|
|
||||||
.99 rts
|
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CMD.WHILE
|
CMD.WHILE
|
||||||
CMD.IF jsr CORE.StkGet
|
CMD.IF jsr CORE.StkGet
|
||||||
|
|
@ -745,17 +824,21 @@ CMD.LOOP jsr CORE.StkPull
|
||||||
bne .9
|
bne .9
|
||||||
|
|
||||||
txa
|
txa
|
||||||
bpl .1
|
bmi .8
|
||||||
|
|
||||||
jmp CORE.StkPullPtr
|
lda (pData)
|
||||||
|
sec
|
||||||
.1 jsr CORE.StkPull
|
sbc #2 Discard loop Ptr
|
||||||
bcs .99
|
sta (pData)
|
||||||
jmp CORE.StkPull
|
|
||||||
|
clc
|
||||||
|
rts
|
||||||
|
|
||||||
|
.8 jmp CORE.StkPullPtr
|
||||||
|
|
||||||
.9 lda #E.NOWHILE
|
.9 lda #E.NOWHILE
|
||||||
sec
|
sec
|
||||||
.99 rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CMD.ELSE jsr CORE.StkGet
|
CMD.ELSE jsr CORE.StkGet
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
|
||||||
11
BIN/SH.S.txt
11
BIN/SH.S.txt
|
|
@ -32,9 +32,9 @@ C.BREAK .EQ 36
|
||||||
C.CONTINUE .EQ 38
|
C.CONTINUE .EQ 38
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
C.FOR .EQ 40
|
C.FOR .EQ 40
|
||||||
C.FORLIST .EQ 0
|
C.FOR.LIST .EQ 0
|
||||||
C.FORFILE .EQ 2
|
C.FOR.FILE .EQ 2
|
||||||
C.FOREXEC .EQ 4
|
C.FOR.EXEC .EQ 4
|
||||||
C.WHILE .EQ 42
|
C.WHILE .EQ 42
|
||||||
C.IF .EQ 44
|
C.IF .EQ 44
|
||||||
C.NEXT .EQ 46
|
C.NEXT .EQ 46
|
||||||
|
|
@ -143,6 +143,9 @@ J.CMD .DA CMD.NOHUP
|
||||||
.DA CMD.LOOP
|
.DA CMD.LOOP
|
||||||
.DA CMD.ELSE
|
.DA CMD.ELSE
|
||||||
.DA CMD.FI
|
.DA CMD.FI
|
||||||
|
J.NEXT .DA CMD.NEXT.LIST
|
||||||
|
.DA CMD.NEXT.FILE
|
||||||
|
.DA CMD.NEXT.EXEC
|
||||||
L.CORE.IO .DA CORE.IO
|
L.CORE.IO .DA CORE.IO
|
||||||
J.CORE.IO .DA CORE.IO.AMP
|
J.CORE.IO .DA CORE.IO.AMP
|
||||||
.DA CORE.IO.IN
|
.DA CORE.IO.IN
|
||||||
|
|
@ -345,7 +348,7 @@ CS.RUN.READ jsr CL.RESET
|
||||||
>LDA.G CL.bReady
|
>LDA.G CL.bReady
|
||||||
bpl .1
|
bpl .1
|
||||||
|
|
||||||
.12 lda (ZPCLBuf)
|
lda (ZPCLBuf)
|
||||||
bne .2
|
bne .2
|
||||||
|
|
||||||
>LDYA ZPVarNamePtr
|
>LDYA ZPVarNamePtr
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue
Block a user