Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2025-04-10 03:37:42 +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
BMI :GS
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
:L1 LDA VDUQGFXWIND,X ; Copy to main mem for SHR
STA SHRVDUQ,X
@ -1273,7 +1277,8 @@ VDU25 LDA VDUQ+4
BNE :S0
JSR RELCOORD ; Relative->Absolute coords
BRA :S1
:S0 JSR ADJORIG ; Adjust graphics origin
:S0 LDX #$05 ; Coords at VDUQ+5
JSR ADJORIG ; Adjust graphics origin
:S1 LDX #7
VDU25BACKUP1 LDA PIXELPLOTX+0,X ; Copy pixel coords
STA PIXELPLOTX+4,X ; POSN becomes LAST
@ -1320,20 +1325,21 @@ GFXPLOTTER2 LDX #0
RTS
* Adjust graphics origin
* On entry: X - offset into VDUQ
ADJORIG CLC
LDA GFXORIGX+0
ADC VDUQ+5
STA VDUQ+5
ADC VDUQ+0,X
STA VDUQ+0,X
LDA GFXORIGX+1
ADC VDUQ+6
STA VDUQ+6
ADC VDUQ+1,X
STA VDUQ+1,X
CLC
LDA GFXORIGY+0
ADC VDUQ+7
STA VDUQ+7
ADC VDUQ+2,X
STA VDUQ+2,X
LDA GFXORIGY+1
ADC VDUQ+8
STA VDUQ+8
ADC VDUQ+3,X
STA VDUQ+3,X
RTS
* Add coordinates to GFXPOSNX, GFXPOSNY