mirror of
https://github.com/A2osX/A2osX.git
synced 2024-11-22 16:31:07 +00:00
Kernel 0.9.1 : ASM rewrite....
This commit is contained in:
parent
3f30f72f0f
commit
f67d827ad3
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user