6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-01-05 02:30:56 +00:00
Code Issues Projects Releases Wiki Activity

Clipping optimizations

Browse Source
This commit is contained in:
David Schmenk 2024-09-14 10:50:58 -07:00
parent f9cd6cac29
commit 5b792798ac
1 changed files with 17 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -206,14 +206,16 @@ asm _clipX#0
BCS INVISX ; YEP, X OFF RIGHT EDGE
;CLC
ADC ESTKL-3,X ; X + WIDTH
CMP TMPL ; < DST_WIDTH?
BCC VISX ; YEP, FULLY VISIBLE
LDA TMPL ; CLIP WIDTH TO DST_WIDTH
CMP TMPL ; >= DST_WIDTH?
BCS +
LDA #$00 ; FULLY VISIBLE
RTS
+ LDA TMPL ; CLIP WIDTH TO DST_WIDTH
;SEC
SBC ESTKL-1,X
STA ESTKL-3,X ; WIDTH = DST_WIDTH - X
VISX LDA #$00 ; FULLY VISIBLE
CLC
LDA #$00 ; VISIBLE WITH WIDTH CLIP
RTS
; X NEGATIVE, CHECK WITH W ADDED
NEGX LDA ESTKL-1,X ; X COORD
@ -252,14 +254,16 @@ asm _clipY#0
BCS INVISY ; YEP, Y OFF BOTTOM EDGE
;CLC
ADC ESTKL-4,X ; Y + HEIGHT
CMP TMPL ; < DST_HEIGHT
BCC VISY ; YEP, FULLY VISIBLE
LDA TMPL ; CLIP HEIGHT TO DST_HEIGHT
CMP TMPL ; >= DST_HEIGHT
BCS +
LDA #$00 ; FULLY VISIBLE
RTS
+ LDA TMPL ; CLIP HEIGHT TO DST_HEIGHT
;SEC
SBC ESTKL-2,X
STA ESTKL-4,X ; HEIGHT = DST_HEIGHT - Y
VISY LDA #$00 ; FULLY VISIBLE
CLC
LDA #$00 ; VISIBLE WITH HEIGHT CLIP
RTS
; Y NEGATIVE, CHECK WITH H ADDED
NEGY LDA ESTKL-2,X ; Y COORD
@ -1547,15 +1551,15 @@ end
export asm dcgrVLB#0
PHP
SEI
STA $C079 ; Enable IOU access and reset VBL int on //c
STA $C05B ; Enable VBL int
STA $C079 ; Enable IOU access and reset VBL int on //c
STA $C05B ; Enable VBL int
- LDA $C019
STA $C079 ; Reset VBL int on //c
STA $C079 ; Reset VBL int on //c
BMI -
- LDA $C019
BPL -
STA $C05A ; Disable VBL int on //c
STA $C078 ; Disable IOU access on //c
STA $C05A ; Disable VBL int on //c
STA $C078 ; Disable IOU access on //c
PLP
RTS
end