6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-04-09 16:40:38 +00:00
Code Issues Projects Releases Wiki Activity

Code opt WIP

Browse Source
This commit is contained in:
Dave Schmenk 2024-09-08 20:44:47 -07:00
parent ecab8dac1b
commit d79695270e
1 changed files with 14 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
src/libsrc/apple/dcgrlib.pla
View File

@ -444,24 +444,25 @@ export asm dcgrHLinScr(x1, x2, y)#0
INX
INX
STX ESP
INC ESTKL-2,X ; ADJUST FOR BCS BELOW
LDY ESTKL-2,X ; ADJUST FOR BNE BELOW
INY
STY TMPH
LDY ESTKL-3,X ; Y COORD
CPY #192
BCS +
;CPY #192
;BCS +
end
asm _dcgrHLinScrA
LDA $1000,Y ; HGRSCANL
STA DSTL
LDA $2000,Y ; HGRSCANH
STA DSTH
- LDA ESTKL-1,X ; X1 COORD
CMP ESTKL-2,X ; X2 COORD
BCS +
TAY
LDY ESTKL-1,X ; X1 COORD
end
asm _dcgrHLinScrB
JSR $1000 ; PLOT PIX W/ XCOORD IN Y REG
- JSR $1000 ; PLOT PIX W/ XCOORD IN Y REG
INC ESTKL-1,X
LDY ESTKL-1,X ; X1 COORD
CPY TMPH ; X2 COORD
BNE -
+ RTS
end
@ -472,13 +473,11 @@ export asm dcgrVLinScr(y1, y2, x)#0
STX ESP
LDY ESTKL-2,X ; ADJUST BNE BELOW
INY
STY TMPL
- LDY ESTKL-1,X ; Y1 COORD
CPY TMPL ; Y2 COORD
BEQ +
STY TMPH
LDY ESTKL-1,X ; Y1 COORD
end
asm _dcgrVLinScrA
LDA $1000,Y ; HGRSCANL
- LDA $1000,Y ; HGRSCANL
STA DSTL
LDA $2000,Y ; HGRSCANH
STA DSTH
@ -487,6 +486,8 @@ end
asm _dcgrVLinScrB
JSR $1000 ; PLOT PIX W/ XCOORD IN Y REG
INC ESTKL-1,X
LDY ESTKL-1,X ; Y1 COORD
CPY TMPH ; Y2 COORD
BNE -
+ RTS
end