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
bb2e021a49
commit
e1072d492f
Binary file not shown.
@ -35,11 +35,15 @@ CMD.Quit ldy #CMD.hArgVBuf
|
|||||||
Cmd.Exec jsr CMD.StkGet IF,WHILE,FOR ?
|
Cmd.Exec jsr CMD.StkGet IF,WHILE,FOR ?
|
||||||
bcs .3 no particular context, exec...
|
bcs .3 no particular context, exec...
|
||||||
tax
|
tax
|
||||||
|
|
||||||
|
>LDA.G CMD.IntCmd
|
||||||
|
bmi .2 external ...
|
||||||
|
|
||||||
and #$3F
|
and #$3F
|
||||||
cmp #C.FOR
|
cmp #C.FOR
|
||||||
bcs .3 FOR...FI : always execute
|
bcs .3 FOR...FI : always execute
|
||||||
|
|
||||||
txa
|
.2 txa
|
||||||
bpl .8 context is FALSE, skip line
|
bpl .8 context is FALSE, skip line
|
||||||
asl
|
asl
|
||||||
bpl .8 parent context is FALSE, skip line
|
bpl .8 parent context is FALSE, skip line
|
||||||
@ -532,23 +536,23 @@ Cmd.INT.IF jsr CMD.StkGet
|
|||||||
bra .2
|
bra .2
|
||||||
|
|
||||||
.1 lda #$40
|
.1 lda #$40
|
||||||
|
|
||||||
.2 >STA.G CMD.Test
|
.2 >STA.G CMD.Test
|
||||||
>DEBUG
|
|
||||||
|
bit #$40
|
||||||
|
beq .3
|
||||||
jsr Cmd.Eval
|
jsr Cmd.Eval
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
tax
|
.3 >LDA.G CMD.IntCmd
|
||||||
|
|
||||||
>LDA.G CMD.IntCmd
|
|
||||||
cmp #C.WHILE
|
cmp #C.WHILE
|
||||||
bne .8
|
bne .8
|
||||||
|
|
||||||
jsr CMD.StkPushPtr
|
jsr CMD.StkPushPtr
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
.8 txa
|
.8 >LDA.G CMD.Test
|
||||||
|
>ORA.G CMD.IntCmd
|
||||||
>ORA.G CMD.Test
|
|
||||||
jmp CMD.StkPush
|
jmp CMD.StkPush
|
||||||
|
|
||||||
clc
|
clc
|
||||||
@ -557,7 +561,6 @@ Cmd.INT.IF jsr CMD.StkGet
|
|||||||
Cmd.INT.ELSE jsr CMD.StkGet
|
Cmd.INT.ELSE jsr CMD.StkGet
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
>DEBUG
|
|
||||||
bit #$40 parent is true ?
|
bit #$40 parent is true ?
|
||||||
beq .8 yes, skip
|
beq .8 yes, skip
|
||||||
|
|
||||||
@ -610,10 +613,7 @@ Cmd.INT.LOOP jsr CMD.StkPull
|
|||||||
sec
|
sec
|
||||||
.99 rts
|
.99 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
Cmd.Eval lda #$40 Parent = true
|
Cmd.Eval ldx #1
|
||||||
>STA.G CMD.Test
|
|
||||||
|
|
||||||
ldx #1
|
|
||||||
jsr Cmd.GetArgX
|
jsr Cmd.GetArgX
|
||||||
beq .9
|
beq .9
|
||||||
|
|
||||||
@ -629,9 +629,10 @@ Cmd.Eval lda #$40 Parent = true
|
|||||||
dex 1 or $ff
|
dex 1 or $ff
|
||||||
|
|
||||||
txa
|
txa
|
||||||
|
|
||||||
and #$80 true or false
|
and #$80 true or false
|
||||||
eor #$80
|
>ORA.G CMD.Test
|
||||||
>STA.G CMD.Test
|
sta (pData),y
|
||||||
|
|
||||||
ldx #2
|
ldx #2
|
||||||
jsr Cmd.GetArgX
|
jsr Cmd.GetArgX
|
||||||
|
@ -632,11 +632,11 @@ CMD.Eval.TOKEN3 .AZ "="
|
|||||||
CMD.Eval.TOKEN3.BITS
|
CMD.Eval.TOKEN3.BITS
|
||||||
.DA #%000
|
.DA #%000
|
||||||
.DA #%000
|
.DA #%000
|
||||||
.DA #%001
|
|
||||||
.DA #%110
|
|
||||||
.DA #%100
|
|
||||||
.DA #%101
|
|
||||||
.DA #%010
|
.DA #%010
|
||||||
|
.DA #%101
|
||||||
|
.DA #%100
|
||||||
|
.DA #%110
|
||||||
|
.DA #%001
|
||||||
.DA #%011
|
.DA #%011
|
||||||
CMD.Eval.TOKEN4 .AZ "+"
|
CMD.Eval.TOKEN4 .AZ "+"
|
||||||
.AZ "-"
|
.AZ "-"
|
||||||
|
@ -128,13 +128,13 @@ M32.Cmp ldx #4
|
|||||||
|
|
||||||
bne .4
|
bne .4
|
||||||
|
|
||||||
lda #%001 001 ACC = ARG
|
lda #%010 001 ACC = ARG
|
||||||
rts
|
rts
|
||||||
|
|
||||||
.4 lda #%010 010 ACC > ARG
|
.4 lda #%100 010 ACC > ARG
|
||||||
rts
|
rts
|
||||||
|
|
||||||
.5 lda #%100 100 ACC < ARG
|
.5 lda #%001 100 ACC < ARG
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
MAN
|
MAN
|
||||||
|
Loading…
Reference in New Issue
Block a user