mirror of
https://github.com/A2osX/A2osX.git
synced 2024-12-23 21:30:48 +00:00
Kernel 0.93+
This commit is contained in:
parent
55e11e5b0e
commit
007a976317
Binary file not shown.
@ -648,7 +648,8 @@ CORE.StkPush pha
|
||||
CORE.StkPush.1 lda (pData) StackPtr
|
||||
inc
|
||||
cmp #CORE.STACK.MAX
|
||||
beq .9
|
||||
bcs .9
|
||||
|
||||
sta (pData) StackPtr
|
||||
tay
|
||||
pla
|
||||
@ -664,6 +665,7 @@ CORE.StkPush.1 lda (pData) StackPtr
|
||||
CORE.StkGetCtx jsr CORE.StkGet
|
||||
tax
|
||||
bcs .1 no context...
|
||||
|
||||
cmp #$C0 in a call...
|
||||
beq .1 CS
|
||||
|
||||
|
@ -88,7 +88,7 @@ EXP.TEST lda (ZPArgVBufPtr)
|
||||
bcs .9
|
||||
|
||||
eor CORE.TestResult
|
||||
sta (pData),y
|
||||
sta CORE.TestResult
|
||||
lda (ZPArgVBufPtr)
|
||||
bra .8 go check ]
|
||||
|
||||
@ -109,7 +109,7 @@ EXP.TEST lda (ZPArgVBufPtr)
|
||||
bcs .9
|
||||
|
||||
eor CORE.TestResult
|
||||
sta (pData),y
|
||||
sta CORE.TestResult
|
||||
|
||||
jsr CORE.ArgV.Next
|
||||
beq .9
|
||||
@ -276,15 +276,15 @@ EXP.TEST.BINARY.NUM
|
||||
>FPU SUB32
|
||||
|
||||
>PULLL M32.ACC
|
||||
|
||||
|
||||
lda M32.ACC+3
|
||||
bmi .5 ACC < ARG
|
||||
bmi .4 ACC < ARG
|
||||
|
||||
ora M32.ACC+2
|
||||
ora M32.ACC+1
|
||||
ora M32.ACC
|
||||
|
||||
bne .4
|
||||
bne .5
|
||||
|
||||
lda #%010 010 ACC = ARG
|
||||
bra EXP.TEST.BINARY.END
|
||||
|
Loading…
Reference in New Issue
Block a user