mirror of
https://github.com/A2osX/A2osX.git
synced 2024-09-27 11:58:54 +00:00
Kernel 0.93
This commit is contained in:
parent
2171bad1c9
commit
ad4e13432f
Binary file not shown.
@ -202,8 +202,8 @@ CS.QUIT ldy #hLineBuffer
|
|||||||
.8 lda (pData),y
|
.8 lda (pData),y
|
||||||
beq .9
|
beq .9
|
||||||
>SYSCALL FreeMem
|
>SYSCALL FreeMem
|
||||||
clc
|
.9 clc
|
||||||
.9 rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CharIn tax
|
CharIn tax
|
||||||
|
|
||||||
|
@ -854,7 +854,7 @@ CMD.DEFAULT jsr CORE.StkGetCtx Get context in CORE.Test
|
|||||||
|
|
||||||
.9 jmp CMD.Exec.CSYN
|
.9 jmp CMD.Exec.CSYN
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CMD.END jsr CORE.StkGetCtx Get context in CORE.Test
|
jsr CORE.StkGetCtx Get context in CORE.Test
|
||||||
bcs CMD.END.CSYN
|
bcs CMD.END.CSYN
|
||||||
|
|
||||||
and #$3F
|
and #$3F
|
||||||
@ -862,17 +862,17 @@ CMD.END jsr CORE.StkGetCtx Get context in CORE.Test
|
|||||||
beq CMD.END.FUNC
|
beq CMD.END.FUNC
|
||||||
|
|
||||||
cmp #C.SWITCH
|
cmp #C.SWITCH
|
||||||
beq .2
|
beq .3
|
||||||
|
|
||||||
cmp #C.CASE
|
cmp #C.CASE
|
||||||
beq .1
|
beq .2
|
||||||
|
|
||||||
cmp #C.DEFAULT
|
cmp #C.DEFAULT
|
||||||
bne CMD.END.CSYN
|
bne CMD.END.CSYN
|
||||||
|
|
||||||
.1 jsr CORE.StkPull remove C.CASE,C.DEFAULT
|
.2 jsr CORE.StkPull remove C.CASE,C.DEFAULT
|
||||||
|
|
||||||
.2 jsr CORE.StkPull remove C.SWITCH
|
.3 jsr CORE.StkPull remove C.SWITCH
|
||||||
jsr CORE.StkPull get hVALUE
|
jsr CORE.StkPull get hVALUE
|
||||||
>SYSCALL freemem
|
>SYSCALL freemem
|
||||||
rts
|
rts
|
||||||
@ -1295,7 +1295,7 @@ CMD.IF jsr CORE.StkGetCtx
|
|||||||
cmp #C.WHILE
|
cmp #C.WHILE
|
||||||
bne .8
|
bne .8
|
||||||
|
|
||||||
>LDYA ZPInputBufPtr
|
>LDYA ZPInputCmdPtr
|
||||||
jsr CORE.StkPushYA Push BEFORE WHILE/IF
|
jsr CORE.StkPushYA Push BEFORE WHILE/IF
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
|
@ -240,43 +240,9 @@ CORE.ExecExtCmd.Exit
|
|||||||
.8 clc
|
.8 clc
|
||||||
.9 rts
|
.9 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CORE.AddFunc ldy #$ff
|
CORE.AddFunc >LDYA L.CMD.END
|
||||||
|
jsr CORE.LookupInputBuf
|
||||||
.1 iny
|
bcs .8
|
||||||
lda (ZPInputBufPtr),y
|
|
||||||
beq .9
|
|
||||||
|
|
||||||
cmp #C.SPACE
|
|
||||||
beq .1
|
|
||||||
|
|
||||||
jsr ToUpperCase
|
|
||||||
cmp #'E'
|
|
||||||
bne .8
|
|
||||||
|
|
||||||
iny
|
|
||||||
lda (ZPInputBufPtr),y
|
|
||||||
beq .9
|
|
||||||
|
|
||||||
jsr ToUpperCase
|
|
||||||
cmp #'N'
|
|
||||||
bne .8
|
|
||||||
|
|
||||||
iny
|
|
||||||
lda (ZPInputBufPtr),y
|
|
||||||
beq .9
|
|
||||||
|
|
||||||
jsr ToUpperCase
|
|
||||||
cmp #'D'
|
|
||||||
bne .8
|
|
||||||
|
|
||||||
iny
|
|
||||||
lda (ZPInputBufPtr),y
|
|
||||||
beq .9
|
|
||||||
|
|
||||||
cmp #C.SPACE
|
|
||||||
beq .7
|
|
||||||
cmp #C.CR
|
|
||||||
bne .9
|
|
||||||
|
|
||||||
.7 lda #0
|
.7 lda #0
|
||||||
>STA.G bFuncMode
|
>STA.G bFuncMode
|
||||||
|
21
BIN/SH.S.txt
21
BIN/SH.S.txt
@ -36,18 +36,18 @@ C.BREAK .EQ 22
|
|||||||
C.SWITCH .EQ 23
|
C.SWITCH .EQ 23
|
||||||
C.CASE .EQ 24
|
C.CASE .EQ 24
|
||||||
C.DEFAULT .EQ 25
|
C.DEFAULT .EQ 25
|
||||||
C.END .EQ 26
|
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
C.FOR .EQ 27
|
C.FOR .EQ 26
|
||||||
C.FOR.LIST .EQ 0
|
C.FOR.LIST .EQ 0
|
||||||
C.FOR.FILE .EQ 2
|
C.FOR.FILE .EQ 2
|
||||||
C.FOR.EXEC .EQ 4
|
C.FOR.EXEC .EQ 4
|
||||||
C.WHILE .EQ 28
|
C.WHILE .EQ 27
|
||||||
C.IF .EQ 29
|
C.IF .EQ 28
|
||||||
C.NEXT .EQ 30
|
C.NEXT .EQ 29
|
||||||
C.LOOP .EQ 31
|
C.LOOP .EQ 30
|
||||||
C.ELSE .EQ 32
|
C.ELSE .EQ 31
|
||||||
C.FI .EQ 33
|
C.FI .EQ 32
|
||||||
|
C.END .EQ 33
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
E.CSYN .EQ $C0
|
E.CSYN .EQ $C0
|
||||||
E.ESYN .EQ $C1
|
E.ESYN .EQ $C1
|
||||||
@ -125,6 +125,7 @@ J.ESC .DA CL.BS left arrow
|
|||||||
.DA CL.NAK right arow
|
.DA CL.NAK right arow
|
||||||
L.IN .DA IN
|
L.IN .DA IN
|
||||||
L.CMD .DA CMD
|
L.CMD .DA CMD
|
||||||
|
L.CMD.END .DA CMD.END
|
||||||
J.CMD .DA CMD...
|
J.CMD .DA CMD...
|
||||||
.DA CMD..
|
.DA CMD..
|
||||||
.DA CMD.CD
|
.DA CMD.CD
|
||||||
@ -151,7 +152,6 @@ J.CMD .DA CMD...
|
|||||||
.DA CMD.SWITCH
|
.DA CMD.SWITCH
|
||||||
.DA CMD.CASE
|
.DA CMD.CASE
|
||||||
.DA CMD.DEFAULT
|
.DA CMD.DEFAULT
|
||||||
.DA CMD.END
|
|
||||||
.DA CMD.FOR
|
.DA CMD.FOR
|
||||||
.DA CMD.WHILE
|
.DA CMD.WHILE
|
||||||
.DA CMD.IF
|
.DA CMD.IF
|
||||||
@ -159,6 +159,7 @@ J.CMD .DA CMD...
|
|||||||
.DA CMD.LOOP
|
.DA CMD.LOOP
|
||||||
.DA CMD.ELSE
|
.DA CMD.ELSE
|
||||||
.DA CMD.FI
|
.DA CMD.FI
|
||||||
|
.DA CMD.END
|
||||||
J.NEXT .DA CMD.NEXT.LIST
|
J.NEXT .DA CMD.NEXT.LIST
|
||||||
.DA CMD.NEXT.FILE
|
.DA CMD.NEXT.FILE
|
||||||
.DA CMD.NEXT.EXEC
|
.DA CMD.NEXT.EXEC
|
||||||
@ -628,7 +629,6 @@ CMD .AZ ".."
|
|||||||
.AZ "SWITCH"
|
.AZ "SWITCH"
|
||||||
.AZ "CASE"
|
.AZ "CASE"
|
||||||
.AZ "DEFAULT"
|
.AZ "DEFAULT"
|
||||||
.AZ "END"
|
|
||||||
.AZ "FOR"
|
.AZ "FOR"
|
||||||
.AZ "WHILE"
|
.AZ "WHILE"
|
||||||
.AZ "IF"
|
.AZ "IF"
|
||||||
@ -636,6 +636,7 @@ CMD .AZ ".."
|
|||||||
.AZ "LOOP"
|
.AZ "LOOP"
|
||||||
.AZ "ELSE"
|
.AZ "ELSE"
|
||||||
.AZ "FI"
|
.AZ "FI"
|
||||||
|
CMD.END .AZ "END"
|
||||||
.HS 00
|
.HS 00
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
* https://www.tldp.org/LDP/abs/html/io-redirection.html
|
* https://www.tldp.org/LDP/abs/html/io-redirection.html
|
||||||
|
Loading…
Reference in New Issue
Block a user