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

Fixed clear to EOL for MODE 1 / HGR graphics.

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2022-09-17 01:43:59 -04:00
parent 1b744d5488
commit 2ba4c6fc37
4 changed files with 18 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

7
auxmem.gfx.s
View File

@ -47,9 +47,14 @@ HSCRCLREOL LDA VDUTEXTY
STA HGRADDR+0
LDA HGRTAB+1,X
STA HGRADDR+1
LDA VDUTEXTX
STA MVDUTEXTX
LDA TXTWINRGT
STA MTXTWINRGT
>>> WRTAUX
>>> XF2MAIN,HCLRLINE
>>> XF2MAIN,HCLREOL
* VDU16 (CLG) clears the whole HGR screen right now
HSCRCLEAR >>> XF2MAIN,CLRHGR
VDU16RET >>> ENTAUX
STZ XPIXEL+0

6
auxmem.vdu.s
View File

@ -619,6 +619,9 @@ VDU12 STZ FXLINES
* Clear the text screen buffer
:L1 JSR CLREOL
BIT VDUSCREEN
BPL :S2
JSR HSCRCLREOL
:S2 LDA VDUTEXTY ; ROW
CMP TXTWINBOT
BEQ :S3
@ -628,9 +631,8 @@ VDU12 STZ FXLINES
STA VDUTEXTY ; ROW
LDA TXTWINLFT
STA VDUTEXTX ; COL
BIT VDUSCREEN
BMI VDU12SOFT ; Graphics mode
RTS
* Clear the graphics screen buffer
VDU12SOFT JMP VDU16 ; *TEMP*

39
mainmem.gfx.s
View File

@ -177,19 +177,20 @@ HGRSCR1L >>> ENTMAIN
BNE :L1
>>> XF2AUX,HSCR1RET
* Clear one text line on HGR screen
HCLRLINE >>> ENTMAIN
* Clear one text line on HGR screen,
* from current cursor col to text window right limit
HCLREOL >>> ENTMAIN
INC MTXTWINRGT
LDA HGRADDR+0 ; HGRADDR -> A4L,A4H
STA A4L
LDA HGRADDR+1
STA A4H
LDA #$00
LDX #$00
:L1 LDY #$00
:L1 LDY MVDUTEXTX
:L2 STA (A4L),Y
INY
* CPY #$39
CPY #40
CPY MTXTWINRGT
BNE :L2
INC A4H
INC A4H
@ -205,35 +206,11 @@ BGCOLOR DB $00 ; Background colour
LINETYPE DB $00 ; 0 normal, 1 XOR
PLOTMODE DB $00 ; K value for PLOT K,X,Y
HGRADDR DW $0000 ; Address 1st line of HGR char
MVDUTEXTX DB $00 ; Main mem copy of VDUTEXTX
MTXTWINRGT DB $00 ; Main mem copy of TEXTWINRGT
* Addresses of start of pixel rows in PAGE1
MHGRTAB DW $2000,$2080,$2100,$2180,$2200,$2280,$2300,$2380
DW $2028,$20A8,$2128,$21A8,$2228,$22A8,$2328,$23A8
DW $2050,$20D0,$2150,$21D0,$2250,$22D0,$2350,$23D0