6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2024-07-21 04:29:14 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/libsrc/conio.pla
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

4
src/samplesrc/rod.pla
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

5
src/vmsrc/a1cmd.pla
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

10
src/vmsrc/cmd.pla
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

10
src/vmsrc/soscmd.pla
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