Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2024-06-09 11:29:40 +00:00
Code Issues Projects Releases Wiki Activity

Fixed CLRLINE to for HGR mode.

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2021-09-24 19:54:25 -04:00
parent 943217713b
commit b63360bd43
4 changed files with 45 additions and 9 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.init.s
View File

@ -177,7 +177,7 @@ BYTE00XX BEQ BYTE00A ; OSBYTE 0,0 - generate error
RTS ; %000x1xxx host type, 'A'pple
BYTE00A BRK
DB $F7
HELLO ASC 'Applecorn MOS 2021-09-23'
HELLO ASC 'Applecorn MOS 2021-09-24'
DB $00 ; Unify MOS messages

30
auxmem.vdu.s
View File

@ -361,8 +361,7 @@ PRCHR6 STA (VDUADDR),Y ; Store it
:DONE PLA ; Discard character
RTS
PUTCHRET
>>> ENTAUX
PUTCHRET >>> ENTAUX
RTS
* Fetch character from screen at (TEXTX,TEXTY) and return MODE in Y
@ -460,7 +459,7 @@ VDU09 LDA VDUTEXTX ; COL
:S2 INC VDUTEXTX ; COL
BRA :DONE
SCROLL JSR SCROLLER
JSR CLREOL
JSR CLRLINE
RTS
* Move cursor down
@ -587,7 +586,7 @@ VDU12 LDY VDUBYTES
* Clear the screen
CLEAR STZ VDUTEXTY ; ROW
STZ VDUTEXTX ; COL
:L1 JSR CLREOL
:L1 JSR CLRLINE
:S2 LDA VDUTEXTY ; ROW
CMP #23
BEQ :S3
@ -599,8 +598,8 @@ CLEAR STZ VDUTEXTY ; ROW
VDU12SOFT JMP VDU16 ; *TEMP*
* Clear to EOL
CLREOL LDA VDUTEXTY ; ROW
* Clear screen line
CLRLINE LDA VDUTEXTY ; ROW
ASL
TAX
LDA SCNTAB,X ; LSB of row
@ -610,8 +609,7 @@ CLREOL LDA VDUTEXTY ; ROW
LDA VDUTEXTX ; COL
PHA
STZ VDUTEXTX ; COL
:L1
LDA VDUTEXTX ; COL
:L1 LDA VDUTEXTX ; COL
LSR
TAY
BCC :S1
@ -626,6 +624,22 @@ CLREOL LDA VDUTEXTY ; ROW
BRA :L1
:S2 PLA
STA VDUTEXTX ; COL
LDY VDUBYTES
DEY ; If VDUBYTE=1, text mode
BEQ :DONE
LDA VDUTEXTY
ASL
TAX
>>> WRTMAIN
LDA HGRTAB+0,X
STA HGRADDR+0
LDA HGRTAB+1,X
STA HGRADDR+1
>>> WRTAUX
>>> XF2MAIN,HCLRLINE
:DONE RTS
CLRLNRET >>> ENTAUX
RTS
* Scroll whole screen one line

22
mainmem.gfx.s
View File

@ -144,6 +144,28 @@ HGRSCR1L >>> ENTMAIN
BNE :L1
>>> XF2AUX,HSCR1RET
* Clear one text line on HGR screen
HCLRLINE >>> ENTMAIN
LDA HGRADDR+0 ; HGRADDR -> A4L,A4H
STA A4L
LDA HGRADDR+1
STA A4H
LDA #$00
LDX #$00
:L1 LDY #$00
:L2 STA (A4L),Y
INY
CPY #$39
BNE :L2
INC A4H
INC A4H
INC A4H
INC A4H
INX
CPX #$08
BNE :L1
>>> XF2AUX,CLRLNRET
FGCOLOR DB $00 ; Foreground colour
BGCOLOR DB $00 ; Background colour
LINETYPE DB $00 ; 0 normal, 1 XOR