Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2025-01-08 23:31:13 +00:00
Code Issues Projects Releases Wiki Activity

Re-enabled code to set GS text mode colours & border

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2022-12-28 02:56:43 -05:00
parent d88408b537
commit 299ca47246
3 changed files with 4 additions and 6 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
applecorn.s
View File

@ -93,7 +93,7 @@ KBDSTRB EQU $C010
RDVBL EQU $C019
RD80VID EQU $C01F
TBCOLOR EQU $C022 ; GS-specific, used but commented out
TBCOLOR EQU $C022 ; GS-specific, text colour reg
NEWVIDEO EQU $C029 ; GS-specific, new video register
SPKR EQU $C030

8
auxmem.vdu.s
View File

@ -892,16 +892,14 @@ VDU20
BIT VDUBANK ; Check if GS
BPL :S1 ; If not, skip SHR call
JSR SHRDEFPAL ; Default palette
* THE FOLLOWING TWO LINES ARE FOR GS ONLY & NOT SAFE ON //c
* LDA #$F0
* STA TBCOLOR ; Set text palette
LDA #$F0
STA TBCOLOR ; Set text palette B&W
STZ CLOCKCTL ; Set border
:S1 LDX #VDUCOLEND-TXTFGD
LDA #$00
VDU20LP STA TXTFGD,X ; Clear all colours
DEX ; and gcol actions
BPL VDU20LP
* THE FOLLOWING LINE IS FOR GS ONLY & NOT SAFE ON //c
* STA CLOCKCTL ; Set border
LDA #$80
JSR HGRSETTCOL ; Set txt background
JSR SHRSETTCOL ; Set txt background