Apple-2-Tools/4cade
1
0
Fork 0
mirror of https://github.com/a2-4am/4cade.git synced 2024-06-25 21:29:43 +00:00
Code Issues Projects Releases Wiki Activity

set IIgs border color

Browse Source
This commit is contained in:
4am 2019-06-27 23:42:01 -04:00
parent 66a8ed99f6
commit 46f73aaf54
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/constants.a
View File

@ -32,9 +32,11 @@ CLR80VID = $C00C ; 40 columns (also used to get out of DHGR mode)
SET80VID = $C00D ; 80 columns (also used to get into DHGR mode)
PRIMARYCHARSET= $C00E ; no mousetext for you
SLOT3STATUS = $C017 ; bit 7 only
NEWVIDEO = $C029 ; IIgs graphics modes
TBCOLOR = $C022 ; IIgs text foreground and background colors (also VidHD)
NEWVIDEO = $C029 ; IIgs graphics modes (also VidHD)
SPEAKER = $C030 ; chirp chirp
SHADOW = $C035 ; IIgs auxmem-to-bank-E1 shadowing
CLOCKCTL = $C034 ; bits 0-3 are IIgs border color (also VidHD)
SHADOW = $C035 ; IIgs auxmem-to-bank-E1 shadowing (also VidHD)
PAGE1 = $C054 ; page 1 (affects text, HGR, DHGR)
PAGE2 = $C055 ; page 2 (affects text, HGR, DHGR)
DHIRESON = $C05E ; double hi-res on switch

4
src/ui.common.a
View File

@ -65,6 +65,10 @@ Home
lda NEWVIDEO
and #$7F
sta NEWVIDEO ; get out of SHR mode
lda #$F0
sta TBCOLOR ; white text on black background
lda #$00
sta CLOCKCTL ; black border
@noSHR
ldx #(@end-@start-1)
- lda @start,x