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

Proper fix for #235.

Browse Source
This commit is contained in:
Bobbi Webber-Manners
2022-12-28 17:43:45 -05:00
parent 4a6c27e85c
commit 88846908ac
3 changed files with 4 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

7
auxmem.shr.s
View File

@@ -559,12 +559,7 @@ SHRRSCR1LINE
* Clear from current location to EOL * Clear from current location to EOL
* TODO: I added a check on entry to bail out if not a GS in order to SHRCLREOL JSR SHRCHARADDR
* fix #235. But I am not sure why this code is ever called in HGR mode.
SHRCLREOL BIT VDUBANK ; Check it is a GS ..
BMI :GS ; .. easier to check here
RTS
:GS JSR SHRCHARADDR
STZ VDUADDR+0 ; Addr of start of line STZ VDUADDR+0 ; Addr of start of line
LDA #$08 ; Eight rows of pixels LDA #$08 ; Eight rows of pixels
STA :CTR STA :CTR

3
auxmem.vdu.s
View File

@@ -628,6 +628,7 @@ VDU12 STZ FXLINES
BIT VDUSCREEN BIT VDUSCREEN
BPL :NOTHGR BPL :NOTHGR
JSR HGRCLREOL JSR HGRCLREOL
BRA :NOTSHR
:NOTHGR BVC :NOTSHR :NOTHGR BVC :NOTSHR
JSR SHRCLREOL JSR SHRCLREOL
:NOTSHR LDA VDUTEXTY ; ROW :NOTSHR LDA VDUTEXTY ; ROW
@@ -727,6 +728,7 @@ SCROLLER LDA TXTWINTOP
BIT VDUSCREEN BIT VDUSCREEN
BPL :NOTHGR BPL :NOTHGR
JSR HGRSCR1LINE ; Scroll HGR screen JSR HGRSCR1LINE ; Scroll HGR screen
BRA :NOTSHR
:NOTHGR BVC :NOTSHR :NOTHGR BVC :NOTSHR
JSR SHRSCR1LINE ; Scroll SHR screen JSR SHRSCR1LINE ; Scroll SHR screen
:NOTSHR PLA :NOTSHR PLA
@@ -750,6 +752,7 @@ RSCROLLER DEC TXTWINTOP
BIT VDUSCREEN BIT VDUSCREEN
BPL :NOTHGR BPL :NOTHGR
JSR HGRRSCR1LINE ; Reverse scroll HGR screen JSR HGRRSCR1LINE ; Reverse scroll HGR screen
BRA :NOTSHR
:NOTHGR BVC :NOTSHR :NOTHGR BVC :NOTSHR
JSR SHRRSCR1LINE ; Reverse scroll SHR screen JSR SHRRSCR1LINE ; Reverse scroll SHR screen
:NOTSHR PLA :NOTSHR PLA