Kernel 0.9.1 : ASM rewrite....

This commit is contained in:
Rémy GIBERT 2018-01-12 16:05:44 +00:00
parent 3f30f72f0f
commit f67d827ad3

View File

@ -280,15 +280,35 @@ SRC.ParseLine.OpCode
sta ZPPtr3+1
.10 lda (ZPPtr2) End Of OpCode List
ldy #1
ora (ZPPtr2),y
beq .9
lda ZPPtr2
clc
adc #2
sta ZPPtr1
lda ZPPtr2+1
adc #0
sta ZPPtr1+1
lda (ZPPtr1)
tax
ldy #0
>DEBUG
.1 lda (ZPLinePtr),y
iny
cmp (ZPPtr2),y
cmp #'a'
bcc .11
cmp #'z'+1
bcs .11
eor #$20
.11 iny
cmp (ZPPtr1),y
bne .7
dex
@ -337,11 +357,11 @@ SRC.ParseLine.OpCode
.2 clc
rts
.7 lda ZPPtr1
.7 lda ZPPtr2
clc
adc (ZPPtr2)
tax
lda ZPPtr1+1
lda ZPPtr2+1
ldy #1
adc (ZPPtr2),y
stx ZPPtr2