Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-08-12 14:29:33 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.9.1 : ASM rewrite....

Browse Source
This commit is contained in:
Rémy GIBERT 2018-01-12 16:05:44 +00:00
parent 3f30f72f0f
commit f67d827ad3
1 changed files with 24 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
BIN/ASM.S.SRC.txt
View File

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