6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2026-04-20 01:16:36 +00:00
Code Issues Projects Releases Wiki Activity

smaller, faster code

Browse Source 
conio: faster grplot
rod: faster grplot
a1cmd: smaller faster isge, isle
cmd: smaller faster isge, isle
soscmd: smaller faster isge, isle
This commit is contained in:
Peter Ferrie
2015-09-22 14:01:22 -07:00
parent 46b74e2799
commit 3cdb146f64
5 changed files with 14 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/libsrc/conio.pla
+2 -2
View File
@@ -118,6 +118,7 @@ asm grplot
STY IPY
LDA ESTKL,X
AND #$FE
CMP ESTKL,X
TAY
LDA (GRSCRN),Y
STA DSTL
@@ -125,9 +126,8 @@ asm grplot
LDA (GRSCRN),Y
STA DSTH
LDA #$FF
LSR ESTKL,X
ADC #$00
EOR #$F0
EOR #$0F
TAY
AND GRCLR
STA TMPL
src/samplesrc/rod.pla
+2 -2
View File
@@ -104,6 +104,7 @@ asm grplot
STY IPY
LDA ESTKL,X
AND #$FE
CMP ESTKL,X
TAY
LDA (GRSCRN),Y
STA DSTL
@@ -111,9 +112,8 @@ asm grplot
LDA (GRSCRN),Y
STA DSTH
LDA #$FF
LSR ESTKL,X
ADC #$00
EOR #$F0
EOR #$0F
TAY
AND GRCLR
STA TMPL
src/vmsrc/a1cmd.pla
+2 -3
View File
@@ -304,7 +304,6 @@ asm uword_isge
RTS
end
asm uword_isle
LDY #$00
LDA ESTKL,X
CMP ESTKL+1,X
LDA ESTKH,X
@@ -312,8 +311,8 @@ asm uword_isle
LDA #$FF
ADC #$00
EOR #$FF
STY ESTKL+1,X
STY ESTKH+1,X
STA ESTKL+1,X
STA ESTKH+1,X
INX
RTS
end
src/vmsrc/cmd.pla
+4 -6
View File
@@ -445,7 +445,6 @@ asm rdstr
RTS
end
asm uword_isge
LDY #$00
LDA ESTKL+1,X
CMP ESTKL,X
LDA ESTKH+1,X
@@ -453,13 +452,12 @@ asm uword_isge
LDA #$FF
ADC #$00
EOR #$FF
STY ESTKL+1,X
STY ESTKH+1,X
STA ESTKL+1,X
STA ESTKH+1,X
INX
RTS
end
asm uword_isle
LDY #$00
LDA ESTKL,X
CMP ESTKL+1,X
LDA ESTKH,X
@@ -467,8 +465,8 @@ asm uword_isle
LDA #$FF
ADC #$00
EOR #$FF
STY ESTKL+1,X
STY ESTKH+1,X
STA ESTKL+1,X
STA ESTKH+1,X
INX
RTS
end
src/vmsrc/soscmd.pla
+4 -6
View File
@@ -357,7 +357,6 @@ end
// Unsigned word comparisons.
//
asm uword_isge
LDY #$00
LDA ESTKL+1,X
CMP ESTKL,X
LDA ESTKH+1,X
@@ -365,13 +364,12 @@ asm uword_isge
LDA #$FF
ADC #$00
EOR #$FF
STY ESTKL+1,X
STY ESTKH+1,X
STA ESTKL+1,X
STA ESTKH+1,X
INX
RTS
end
asm uword_isle
LDY #$00
LDA ESTKL,X
CMP ESTKL+1,X
LDA ESTKH,X
@@ -379,8 +377,8 @@ asm uword_isle
LDA #$FF
ADC #$00
EOR #$FF
STY ESTKL+1,X
STY ESTKH+1,X
STA ESTKL+1,X
STA ESTKH+1,X
INX
RTS
end