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

Less duplication in gfx reverse scrolling code.

This commit is contained in:
Bobbi Webber-Manners 2022-09-19 13:26:12 -04:00
parent 7830603320
commit 64d3cfbb18
4 changed files with 3 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

2
auxmem.gfx.s
View File

@ -54,8 +54,6 @@ HRSCR1LINE >>> WRTMAIN
STX MTXTWINRGT
>>> WRTAUX
>>> XF2MAIN,HGRRSCR1L
HRSCR1RET >>> ENTAUX
RTS
HSCRCLREOL LDA VDUTEXTY
ASL

2
auxmem.init.s
View File

@ -204,7 +204,7 @@ BYTE00 BEQ BYTE00A ; OSBYTE 0,0 - generate error
RTS ; %000x1xxx host type, 'A'pple
BYTE00A BRK
DB $F7
HELLO ASC 'Applecorn MOS 2022-09-18'
HELLO ASC 'Applecorn MOS 2022-09-19'
DB $00 ; Unify MOS messages

22
mainmem.gfx.s
View File

@ -158,7 +158,7 @@ HGRSCR1L >>> ENTMAIN
STA A1L
LDA MHGRTAB+1,X
STA A1H
LDX #$00
DOHGRSCR1L LDX #$00
:L1 LDY MTXTWINLFT
:L2 LDA (A1L),Y
STA (A4L),Y
@ -193,25 +193,7 @@ HGRRSCR1L >>> ENTMAIN
STA A4L
LDA MHGRTAB+1,X
STA A4H
LDX #$00
:L1 LDY MTXTWINLFT
:L2 LDA (A1L),Y
STA (A4L),Y
INY
CPY MTXTWINRGT
BNE :L2
INC A1H ; Advance source 1024 bytes
INC A1H
INC A1H
INC A1H
INC A4H ; Advance dest 1024 bytes
INC A4H
INC A4H
INC A4H
INX
CPX #8 ; 8 pixel rows in character
BNE :L1
>>> XF2AUX,HRSCR1RET
BRA DOHGRSCR1L
* Clear one text line on HGR screen,
* from current cursor col to text window right limit