Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2024-06-23 11:29:30 +00:00
Code Issues Projects Releases Wiki Activity

Fixed effect of VDU29 (change orig) on VDU24 (gfx win)

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2023-01-13 18:59:46 -05:00
parent d81346d312
commit 1a33bc9a13
2 changed files with 16 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

26
auxmem.vdu.s
View File

@ -1201,7 +1201,11 @@ VDU28EXIT RTS
VDU24 BIT VDUBANK ; Check if this is a GS VDU24 BIT VDUBANK ; Check if this is a GS
BMI :GS BMI :GS
RTS ; If not, hasta la vista RTS ; If not, hasta la vista
:GS LDX #$00 :GS LDX #$05
JSR ADJORIG ; Adjust x2,y2
LDX #$01
JSR ADJORIG ; Adjust x1,y1
LDX #$00
>>> WRTMAIN >>> WRTMAIN
:L1 LDA VDUQGFXWIND,X ; Copy to main mem for SHR :L1 LDA VDUQGFXWIND,X ; Copy to main mem for SHR
STA SHRVDUQ,X STA SHRVDUQ,X
@ -1273,7 +1277,8 @@ VDU25 LDA VDUQ+4
BNE :S0 BNE :S0
JSR RELCOORD ; Relative->Absolute coords JSR RELCOORD ; Relative->Absolute coords
BRA :S1 BRA :S1
:S0 JSR ADJORIG ; Adjust graphics origin :S0 LDX #$05 ; Coords at VDUQ+5
JSR ADJORIG ; Adjust graphics origin
:S1 LDX #7 :S1 LDX #7
VDU25BACKUP1 LDA PIXELPLOTX+0,X ; Copy pixel coords VDU25BACKUP1 LDA PIXELPLOTX+0,X ; Copy pixel coords
STA PIXELPLOTX+4,X ; POSN becomes LAST STA PIXELPLOTX+4,X ; POSN becomes LAST
@ -1320,20 +1325,21 @@ GFXPLOTTER2 LDX #0
RTS RTS
* Adjust graphics origin * Adjust graphics origin
* On entry: X - offset into VDUQ
ADJORIG CLC ADJORIG CLC
LDA GFXORIGX+0 LDA GFXORIGX+0
ADC VDUQ+5 ADC VDUQ+0,X
STA VDUQ+5 STA VDUQ+0,X
LDA GFXORIGX+1 LDA GFXORIGX+1
ADC VDUQ+6 ADC VDUQ+1,X
STA VDUQ+6 STA VDUQ+1,X
CLC CLC
LDA GFXORIGY+0 LDA GFXORIGY+0
ADC VDUQ+7 ADC VDUQ+2,X
STA VDUQ+7 STA VDUQ+2,X
LDA GFXORIGY+1 LDA GFXORIGY+1
ADC VDUQ+8 ADC VDUQ+3,X
STA VDUQ+8 STA VDUQ+3,X
RTS RTS
* Add coordinates to GFXPOSNX, GFXPOSNY * Add coordinates to GFXPOSNX, GFXPOSNY