Apple-2-SW/prodos-drivers
1
0
Fork 0
mirror of https://github.com/a2stuff/prodos-drivers.git synced 2024-06-15 10:29:35 +00:00
Code Issues Projects Releases Wiki Activity

Code formatting, constants, and comments

Browse Source
This commit is contained in:
Joshua Bell 2022-01-06 16:58:03 -08:00
parent 392ab0b7ef
commit f740575697
10 changed files with 238 additions and 209 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
inc/apple2.inc
View File

@ -23,6 +23,9 @@ RDALTZP := $C016
RD80STORE := $C018 RD80STORE := $C018
RDPAGE2 := $C01C RDPAGE2 := $C01C
TBCOLOR := $C022 ; IIgs: low nibble is text bg color, high is fg
CLOCKCTL := $C034 ; IIgs: low nibble is border color
BANKSEL := $C073 ; Select RamWorks bank BANKSEL := $C073 ; Select RamWorks bank
ROMIN2 := $C082 ; Read ROM; no write ROMIN2 := $C082 ; Read ROM; no write

4
textcolors/README.md
View File

@ -1,4 +1,7 @@
# Text Color Utilities # Text Color Utilities
Author: @chrisparana
These utilities will work with the Apple IIgs or on any Apple II equipped with a VidHD card. Each will set the color of the text, background, and border and then invoke the ProDOS quit handler immediately. These utilities will work with the Apple IIgs or on any Apple II equipped with a VidHD card. Each will set the color of the text, background, and border and then invoke the ProDOS quit handler immediately.
Useful if you'd like to automatically set a theme at boot or select one manually afterwards. Originally created because I wanted my GS to use a different set of colors when booting my ProDOS 8 partition then what I have set as default in the Control Panel. Useful if you'd like to automatically set a theme at boot or select one manually afterwards. Originally created because I wanted my GS to use a different set of colors when booting my ProDOS 8 partition then what I have set as default in the Control Panel.
@ -30,4 +33,3 @@ To have these themes applied at boot, place one of the theme SYSTEM at the end o
[WB.SYSTEM](wb.system.s) [WB.SYSTEM](wb.system.s)
* Black text on a black background * Black text on a black background

11
textcolors/a2green.system.s
View File

@ -7,6 +7,7 @@
.org SYS_ADDR .org SYS_ADDR
cld cld
bit ROMIN2 bit ROMIN2
sta CLR80VID sta CLR80VID
sta CLRALTCHAR sta CLRALTCHAR
@ -16,10 +17,12 @@
jsr SETNORM jsr SETNORM
jsr INIT jsr INIT
jsr HOME jsr HOME
lda #$C0
sta $c022 lda #$C0 ; text: bright greeen on black
lda #$00 sta TBCOLOR
sta $c034 lda #$00 ; border: black
sta CLOCKCTL
MLI_CALL QUIT, quit_params MLI_CALL QUIT, quit_params
brk brk

11
textcolors/bw.system.s
View File

@ -7,6 +7,7 @@
.org SYS_ADDR .org SYS_ADDR
cld cld
bit ROMIN2 bit ROMIN2
sta CLR80VID sta CLR80VID
sta CLRALTCHAR sta CLRALTCHAR
@ -16,10 +17,12 @@
jsr SETNORM jsr SETNORM
jsr INIT jsr INIT
jsr HOME jsr HOME
lda #$0f
sta $c022 lda #$0f ; text: black on white
lda #$0f sta TBCOLOR
sta $c034 lda #$0f ; border: white
sta CLOCKCTL
MLI_CALL QUIT, quit_params MLI_CALL QUIT, quit_params
brk brk

11
textcolors/deepblue.system.s
View File

@ -7,6 +7,7 @@
.org SYS_ADDR .org SYS_ADDR
cld cld
bit ROMIN2 bit ROMIN2
sta CLR80VID sta CLR80VID
sta CLRALTCHAR sta CLRALTCHAR
@ -16,10 +17,12 @@
jsr SETNORM jsr SETNORM
jsr INIT jsr INIT
jsr HOME jsr HOME
lda #$f2
sta $c022 lda #$f2 ; text: white on dark blue
lda #$02 sta TBCOLOR
sta $c034 lda #$02 ; text: dark blue
sta CLOCKCTL
MLI_CALL QUIT, quit_params MLI_CALL QUIT, quit_params
brk brk

11
textcolors/gray.system.s
View File

@ -7,6 +7,7 @@
.org SYS_ADDR .org SYS_ADDR
cld cld
bit ROMIN2 bit ROMIN2
sta CLR80VID sta CLR80VID
sta CLRALTCHAR sta CLRALTCHAR
@ -16,10 +17,12 @@
jsr SETNORM jsr SETNORM
jsr INIT jsr INIT
jsr HOME jsr HOME
lda #$5a
sta $c022 lda #$5a ; text: dark gray on light gray
lda #$0a sta TBCOLOR
sta $c034 lda #$0a ; border: gray
sta CLOCKCTL
MLI_CALL QUIT, quit_params MLI_CALL QUIT, quit_params
brk brk

11
textcolors/gsblue.system.s
View File

@ -7,6 +7,7 @@
.org SYS_ADDR .org SYS_ADDR
cld cld
bit ROMIN2 bit ROMIN2
sta CLR80VID sta CLR80VID
sta CLRALTCHAR sta CLRALTCHAR
@ -16,10 +17,12 @@
jsr SETNORM jsr SETNORM
jsr INIT jsr INIT
jsr HOME jsr HOME
lda #$f6
sta $c022 lda #$f6 ; border: white on medium blue
lda #$06 sta TBCOLOR
sta $c034 lda #$06 ; border: medium blue
sta CLOCKCTL
MLI_CALL QUIT, quit_params MLI_CALL QUIT, quit_params
brk brk

11
textcolors/mint.system.s
View File

@ -7,6 +7,7 @@
.org SYS_ADDR .org SYS_ADDR
cld cld
bit ROMIN2 bit ROMIN2
sta CLR80VID sta CLR80VID
sta CLRALTCHAR sta CLRALTCHAR
@ -16,10 +17,12 @@
jsr SETNORM jsr SETNORM
jsr INIT jsr INIT
jsr HOME jsr HOME
lda #$2e
sta $c022 lda #$2e ; text: dark blue on bright green
lda #$0e sta TBCOLOR
sta $c034 lda #$0e ; border: bright green
sta CLOCKCTL
MLI_CALL QUIT, quit_params MLI_CALL QUIT, quit_params
brk brk

11
textcolors/pink.system.s
View File

@ -7,6 +7,7 @@
.org SYS_ADDR .org SYS_ADDR
cld cld
bit ROMIN2 bit ROMIN2
sta CLR80VID sta CLR80VID
sta CLRALTCHAR sta CLRALTCHAR
@ -16,10 +17,12 @@
jsr SETNORM jsr SETNORM
jsr INIT jsr INIT
jsr HOME jsr HOME
lda #$5b
sta $c022 lda #$5b ; text: gray on pink
lda #$07 sta TBCOLOR
sta $c034 lda #$07 ; border: light blue
sta CLOCKCTL
MLI_CALL QUIT, quit_params MLI_CALL QUIT, quit_params
brk brk

11
textcolors/wb.system.s
View File

@ -7,6 +7,7 @@
.org SYS_ADDR .org SYS_ADDR
cld cld
bit ROMIN2 bit ROMIN2
sta CLR80VID sta CLR80VID
sta CLRALTCHAR sta CLRALTCHAR
@ -16,10 +17,12 @@
jsr SETNORM jsr SETNORM
jsr INIT jsr INIT
jsr HOME jsr HOME
lda #$f0
sta $c022 lda #$f0 ; text: white on black
lda #$00 sta TBCOLOR
sta $c034 lda #$00 ; border: black
sta CLOCKCTL
MLI_CALL QUIT, quit_params MLI_CALL QUIT, quit_params
brk brk