Kernel 0.93+

This commit is contained in:
Rémy GIBERT 2019-07-31 22:41:37 +02:00
parent 55e11e5b0e
commit 007a976317
3 changed files with 8 additions and 6 deletions

Binary file not shown.

View File

@ -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

View File

@ -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