mirror of
https://github.com/A2osX/A2osX.git
synced 2024-08-14 13:29:02 +00:00
Kernel 0.92
This commit is contained in:
parent
f8c156af5a
commit
0de2ab8cdd
Binary file not shown.
@ -272,10 +272,9 @@ Cmd.INT.SET.1 >STZ.G CMD.Varname
|
|||||||
jsr Cmd.GetArgX
|
jsr Cmd.GetArgX
|
||||||
bcs Cmd.INT.SET.UNSET
|
bcs Cmd.INT.SET.UNSET
|
||||||
|
|
||||||
|
jsr Cmd.INT.GetEXP
|
||||||
|
|
||||||
|
bcs .99
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
>PUSHYA
|
>PUSHYA
|
||||||
>LDA.G CMD.Varname
|
>LDA.G CMD.Varname
|
||||||
@ -814,6 +813,62 @@ Cmd.INT.LOOP jsr CMD.StkPull
|
|||||||
sec
|
sec
|
||||||
.99 rts
|
.99 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
Cmd.GetEXP >LDA.G CMD.ArgIndex
|
||||||
|
inc
|
||||||
|
tax
|
||||||
|
jsr Cmd.GetArgX
|
||||||
|
bcc .1
|
||||||
|
|
||||||
|
>LDA.G CMD.ArgIndex no op, return text value
|
||||||
|
jsr Cmd.GetArgX
|
||||||
|
rts
|
||||||
|
|
||||||
|
.1 >PUSHYA
|
||||||
|
>LDYA L.CMD.IF.TOKEN4 + - .... ?
|
||||||
|
jsr Lookup
|
||||||
|
bcs .9
|
||||||
|
txa
|
||||||
|
>STA.G CMD.Operator
|
||||||
|
|
||||||
|
>LDA.G CMD.ArgIndex
|
||||||
|
tax
|
||||||
|
jsr Cmd.GetArgX
|
||||||
|
>SYSCALL AToL
|
||||||
|
bcs .9
|
||||||
|
|
||||||
|
>PULLL.G M32.ACC
|
||||||
|
|
||||||
|
>LDA.G CMD.ArgIndex
|
||||||
|
inc
|
||||||
|
inc
|
||||||
|
tax
|
||||||
|
jsr Cmd.GetArgX
|
||||||
|
bcs .9
|
||||||
|
>SYSCALL AToL
|
||||||
|
bcs .9
|
||||||
|
|
||||||
|
>PULLL.G M32.ARG
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
.9 lda #E.BADEXP
|
||||||
|
rts
|
||||||
|
|
||||||
|
.80 >LDA.G CMD.Operator
|
||||||
|
tax
|
||||||
|
jmp (J.CMD.IF.TOKEN4,x)
|
||||||
|
*--------------------------------------
|
||||||
|
Cmd.GetValue tax
|
||||||
|
jsr Cmd.GetArgX
|
||||||
|
>STYA ZPPtr1
|
||||||
|
|
||||||
|
lda (ZPPtr1)
|
||||||
|
cmp #'$'
|
||||||
|
bne .2
|
||||||
|
|
||||||
|
|
||||||
|
.2 >SYSCALL AToL
|
||||||
|
*--------------------------------------
|
||||||
Cmd.GetArgX >LDYA ZPArgVBuf
|
Cmd.GetArgX >LDYA ZPArgVBuf
|
||||||
|
|
||||||
dex
|
dex
|
||||||
|
@ -42,6 +42,7 @@ E.STKOVERFLOW .EQ $C1
|
|||||||
E.NOWHILE .EQ $C2
|
E.NOWHILE .EQ $C2
|
||||||
E.NOFOR .EQ $C3
|
E.NOFOR .EQ $C3
|
||||||
E.NOIF .EQ $C4
|
E.NOIF .EQ $C4
|
||||||
|
E.BADEXP .EQ $C5
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
.INB INC/MACROS.I
|
.INB INC/MACROS.I
|
||||||
.INB INC/A2OSX.I
|
.INB INC/A2OSX.I
|
||||||
@ -146,6 +147,12 @@ J.CMD.IF.TOKEN2 .DA CMD.IF.D
|
|||||||
.DA CMD.IF.E
|
.DA CMD.IF.E
|
||||||
.DA CMD.IF.F
|
.DA CMD.IF.F
|
||||||
L.CMD.IF.TOKEN3 .DA CMD.IF.TOKEN3
|
L.CMD.IF.TOKEN3 .DA CMD.IF.TOKEN3
|
||||||
|
L.CMD.IF.TOKEN4 .DA CMD.IF.TOKEN4
|
||||||
|
J.CMD.IF.TOKEN4 .DA M32.Add
|
||||||
|
.DA M32.Sub
|
||||||
|
.DA M32.Mul
|
||||||
|
.DA M32.Div
|
||||||
|
.DA M32.Mod
|
||||||
L.ERR.Codes .DA ERR.Codes
|
L.ERR.Codes .DA ERR.Codes
|
||||||
L.ERR.Messages .DA ERR.Messages
|
L.ERR.Messages .DA ERR.Messages
|
||||||
.DO CSH=1
|
.DO CSH=1
|
||||||
|
Loading…
Reference in New Issue
Block a user