mirror of
https://github.com/A2osX/A2osX.git
synced 2024-06-17 22:29:44 +00:00
Kernel 0.93+
This commit is contained in:
parent
0e2d1348f3
commit
7cadb5b0bb
Binary file not shown.
|
@ -26,6 +26,7 @@ EXP.GET jsr CORE.ArgV.Next
|
||||||
jsr EXP.FPU.EXEC
|
jsr EXP.FPU.EXEC
|
||||||
jsr CORE.ArgV.Next another op ?
|
jsr CORE.ArgV.Next another op ?
|
||||||
bne .2
|
bne .2
|
||||||
|
|
||||||
.8 >PUSHBI 4 ACC on stack
|
.8 >PUSHBI 4 ACC on stack
|
||||||
>PUSHW L.FMT.Long
|
>PUSHW L.FMT.Long
|
||||||
>LEA.G M32.BUF
|
>LEA.G M32.BUF
|
||||||
|
@ -34,7 +35,7 @@ EXP.GET jsr CORE.ArgV.Next
|
||||||
>LEA.G M32.BUF
|
>LEA.G M32.BUF
|
||||||
rts
|
rts
|
||||||
|
|
||||||
.94 >POP 4
|
.94 jsr IncPStack4
|
||||||
.9 jmp EXP.E.ESYN
|
.9 jmp EXP.E.ESYN
|
||||||
|
|
||||||
EXP.FPU.EXEC ldy CORE.Operator
|
EXP.FPU.EXEC ldy CORE.Operator
|
||||||
|
@ -184,10 +185,7 @@ EXP.OP.UNARY.DEF.RTS
|
||||||
EXP.OP.UNARY.I jsr EXP.GetInt32Arg
|
EXP.OP.UNARY.I jsr EXP.GetInt32Arg
|
||||||
bcs EXP.OP.UNARY.DEF.9
|
bcs EXP.OP.UNARY.DEF.9
|
||||||
|
|
||||||
inc pStack Discard Long
|
jsr IncPStack4 Discard Long
|
||||||
inc pStack
|
|
||||||
inc pStack
|
|
||||||
inc pStack
|
|
||||||
|
|
||||||
bra EXP.OP.UNARY.DEF.8
|
bra EXP.OP.UNARY.DEF.8
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
@ -244,7 +242,7 @@ EXP.TEST.BINARY lda CORE.Operator
|
||||||
bra EXP.TEST.BINARY.END
|
bra EXP.TEST.BINARY.END
|
||||||
|
|
||||||
EXP.TEST.BINARY.ESYN4
|
EXP.TEST.BINARY.ESYN4
|
||||||
>POP 4
|
jsr IncPStack4
|
||||||
EXP.TEST.BINARY.ESYN
|
EXP.TEST.BINARY.ESYN
|
||||||
jmp EXP.E.ESYN
|
jmp EXP.E.ESYN
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
@ -291,9 +289,7 @@ EXP.GetInt8YA jsr EXP.GetInt32YA
|
||||||
|
|
||||||
>PULLA
|
>PULLA
|
||||||
|
|
||||||
inc pStack
|
jsr IncPStack3
|
||||||
inc pStack
|
|
||||||
inc pStack
|
|
||||||
* clc
|
* clc
|
||||||
|
|
||||||
.9 rts
|
.9 rts
|
||||||
|
|
|
@ -545,6 +545,12 @@ ToUpperCase cmp #'a'
|
||||||
eor #$20
|
eor #$20
|
||||||
.8 clc exit CC to allow Jmp to
|
.8 clc exit CC to allow Jmp to
|
||||||
rts
|
rts
|
||||||
|
*--------------------------------------
|
||||||
|
IncPStack4 inc pStack
|
||||||
|
IncPStack3 inc pStack
|
||||||
|
inc pStack
|
||||||
|
inc pStack
|
||||||
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
.INB USR/SRC/BIN/SH.S.CL
|
.INB USR/SRC/BIN/SH.S.CL
|
||||||
.INB USR/SRC/BIN/SH.S.HIS
|
.INB USR/SRC/BIN/SH.S.HIS
|
||||||
|
|
Loading…
Reference in New Issue
Block a user