Apple-2-SW
/
Applecorn
mirror of https://github.com/bobbimanners/Applecorn.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

VDU26 now resets the graphics window to fullscreen

This commit is contained in:
Bobbi Webber-Manners 2023-01-05 21:04:55 -05:00
parent 62aa305c96
commit 9ee3788c44
3 changed files with 26 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

6
auxmem.vdu.s
View File

@ -1044,7 +1044,11 @@ VDU26LP STA VDUVARS,X ; Clear all windows
STA TXTWINRGT ; Text window width
LDY VDUPIXELS
BEQ VDU26QUIT ; No graphics
LDX #GFXWINRGT-VDUVARS
BIT VDUBANK ; Is this a GS?
BPL VDU26PT2 ; Nope
>>> XF2MAIN,SHRVDU26
VDU26RET >>> ENTAUX
VDU26PT2 LDX #GFXWINRGT-VDUVARS
JSR VDU26SCALE ; GFXWID=TXTWID*PIXELS-1
LDA TXTWINBOT
LDY #8 ; GFXHGT=TXTHGT*8-1

25
mainmem.shr.s
View File

@ -25,10 +25,10 @@ SHRGFXBGMASK DB $00 ; Background colour mask
SHRGFXACTION DB $00 ; GCOL action for point plotting
SHRXPIXEL DW $0000 ; Previous point in screen coords
SHRYPIXEL DW $0000 ; Previous point in screen coords
SHRWINLFT DW 0 ; Graphics window - left
SHRWINRGT DW 639 ; Graphics window - right
SHRWINTOP DW 0 ; Graphics window - top
SHRWINBTM DW 199 ; Graphics window - bottom
SHRWINLFT DW $0000 ; Graphics window - left (0-639)
SHRWINRGT DW $0000 ; Graphics window - right (0-639)
SHRWINTOP DW $0000 ; Graphics window - top (0-199)
SHRWINBTM DW $0000 ; Graphics window - bottom (0-199)
* Explode font to generate SHRFONTXPLD table
@ -830,6 +830,23 @@ SHRVDU24 >>> ENTMAIN
>>> XF2AUX,VDU24RETBAD
* Reset graphics window
SHRVDU26 >>> ENTMAIN
STZ SHRWINLFT+0
STZ SHRWINLFT+1
STZ SHRWINTOP+0
STZ SHRWINTOP+1
LDA #<639
STA SHRWINRGT+0
LDA #>639
STA SHRWINRGT+1
LDA #<199
STA SHRWINBTM+0
LDA #>199
STA SHRWINBTM+1
>>> XF2AUX,VDU26RET
* Table of addresses of SHR rows (in reverse order)
SHRROWSL DB <$9c60
DB <$9bc0