From f740575697b521663dcca0719da5685c470769e9 Mon Sep 17 00:00:00 2001 From: Joshua Bell Date: Thu, 6 Jan 2022 16:58:03 -0800 Subject: [PATCH] Code formatting, constants, and comments --- inc/apple2.inc | 3 ++ textcolors/README.md | 4 ++- textcolors/a2green.system.s | 55 +++++++++++++++++++----------------- textcolors/bw.system.s | 55 +++++++++++++++++++----------------- textcolors/deepblue.system.s | 55 +++++++++++++++++++----------------- textcolors/gray.system.s | 55 +++++++++++++++++++----------------- textcolors/gsblue.system.s | 55 +++++++++++++++++++----------------- textcolors/mint.system.s | 55 +++++++++++++++++++----------------- textcolors/pink.system.s | 55 +++++++++++++++++++----------------- textcolors/wb.system.s | 55 +++++++++++++++++++----------------- 10 files changed, 238 insertions(+), 209 deletions(-) diff --git a/inc/apple2.inc b/inc/apple2.inc index 04d04fa..07051d3 100644 --- a/inc/apple2.inc +++ b/inc/apple2.inc @@ -23,6 +23,9 @@ RDALTZP := $C016 RD80STORE := $C018 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 ROMIN2 := $C082 ; Read ROM; no write diff --git a/textcolors/README.md b/textcolors/README.md index 391d7af..a53aa3a 100644 --- a/textcolors/README.md +++ b/textcolors/README.md @@ -1,4 +1,7 @@ # 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. 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) * Black text on a black background - diff --git a/textcolors/a2green.system.s b/textcolors/a2green.system.s index 7679c9f..169ea24 100644 --- a/textcolors/a2green.system.s +++ b/textcolors/a2green.system.s @@ -1,26 +1,29 @@ - .setcpu "6502" - .include "apple2.inc" - - .include "../inc/apple2.inc" - .include "../inc/prodos.inc" - - .org SYS_ADDR - - cld - bit ROMIN2 - sta CLR80VID - sta CLRALTCHAR - sta CLR80COL - jsr SETVID - jsr SETKBD - jsr SETNORM - jsr INIT - jsr HOME - lda #$C0 - sta $c022 - lda #$00 - sta $c034 - MLI_CALL QUIT, quit_params - brk - - DEFINE_QUIT_PARAMS quit_params \ No newline at end of file + .setcpu "6502" + .include "apple2.inc" + + .include "../inc/apple2.inc" + .include "../inc/prodos.inc" + + .org SYS_ADDR + + cld + + bit ROMIN2 + sta CLR80VID + sta CLRALTCHAR + sta CLR80COL + jsr SETVID + jsr SETKBD + jsr SETNORM + jsr INIT + jsr HOME + + lda #$C0 ; text: bright greeen on black + sta TBCOLOR + lda #$00 ; border: black + sta CLOCKCTL + + MLI_CALL QUIT, quit_params + brk + + DEFINE_QUIT_PARAMS quit_params diff --git a/textcolors/bw.system.s b/textcolors/bw.system.s index 5eeb814..e653f36 100644 --- a/textcolors/bw.system.s +++ b/textcolors/bw.system.s @@ -1,26 +1,29 @@ - .setcpu "6502" - .include "apple2.inc" - - .include "../inc/apple2.inc" - .include "../inc/prodos.inc" - - .org SYS_ADDR - - cld - bit ROMIN2 - sta CLR80VID - sta CLRALTCHAR - sta CLR80COL - jsr SETVID - jsr SETKBD - jsr SETNORM - jsr INIT - jsr HOME - lda #$0f - sta $c022 - lda #$0f - sta $c034 - MLI_CALL QUIT, quit_params - brk - - DEFINE_QUIT_PARAMS quit_params \ No newline at end of file + .setcpu "6502" + .include "apple2.inc" + + .include "../inc/apple2.inc" + .include "../inc/prodos.inc" + + .org SYS_ADDR + + cld + + bit ROMIN2 + sta CLR80VID + sta CLRALTCHAR + sta CLR80COL + jsr SETVID + jsr SETKBD + jsr SETNORM + jsr INIT + jsr HOME + + lda #$0f ; text: black on white + sta TBCOLOR + lda #$0f ; border: white + sta CLOCKCTL + + MLI_CALL QUIT, quit_params + brk + + DEFINE_QUIT_PARAMS quit_params diff --git a/textcolors/deepblue.system.s b/textcolors/deepblue.system.s index c1a6b25..000841b 100644 --- a/textcolors/deepblue.system.s +++ b/textcolors/deepblue.system.s @@ -1,26 +1,29 @@ - .setcpu "6502" - .include "apple2.inc" - - .include "../inc/apple2.inc" - .include "../inc/prodos.inc" - - .org SYS_ADDR - - cld - bit ROMIN2 - sta CLR80VID - sta CLRALTCHAR - sta CLR80COL - jsr SETVID - jsr SETKBD - jsr SETNORM - jsr INIT - jsr HOME - lda #$f2 - sta $c022 - lda #$02 - sta $c034 - MLI_CALL QUIT, quit_params - brk - - DEFINE_QUIT_PARAMS quit_params \ No newline at end of file + .setcpu "6502" + .include "apple2.inc" + + .include "../inc/apple2.inc" + .include "../inc/prodos.inc" + + .org SYS_ADDR + + cld + + bit ROMIN2 + sta CLR80VID + sta CLRALTCHAR + sta CLR80COL + jsr SETVID + jsr SETKBD + jsr SETNORM + jsr INIT + jsr HOME + + lda #$f2 ; text: white on dark blue + sta TBCOLOR + lda #$02 ; text: dark blue + sta CLOCKCTL + + MLI_CALL QUIT, quit_params + brk + + DEFINE_QUIT_PARAMS quit_params diff --git a/textcolors/gray.system.s b/textcolors/gray.system.s index 5a1f6f3..ed1160c 100644 --- a/textcolors/gray.system.s +++ b/textcolors/gray.system.s @@ -1,26 +1,29 @@ - .setcpu "6502" - .include "apple2.inc" - - .include "../inc/apple2.inc" - .include "../inc/prodos.inc" - - .org SYS_ADDR - - cld - bit ROMIN2 - sta CLR80VID - sta CLRALTCHAR - sta CLR80COL - jsr SETVID - jsr SETKBD - jsr SETNORM - jsr INIT - jsr HOME - lda #$5a - sta $c022 - lda #$0a - sta $c034 - MLI_CALL QUIT, quit_params - brk - - DEFINE_QUIT_PARAMS quit_params + .setcpu "6502" + .include "apple2.inc" + + .include "../inc/apple2.inc" + .include "../inc/prodos.inc" + + .org SYS_ADDR + + cld + + bit ROMIN2 + sta CLR80VID + sta CLRALTCHAR + sta CLR80COL + jsr SETVID + jsr SETKBD + jsr SETNORM + jsr INIT + jsr HOME + + lda #$5a ; text: dark gray on light gray + sta TBCOLOR + lda #$0a ; border: gray + sta CLOCKCTL + + MLI_CALL QUIT, quit_params + brk + + DEFINE_QUIT_PARAMS quit_params diff --git a/textcolors/gsblue.system.s b/textcolors/gsblue.system.s index 802919c..a5d6dc4 100644 --- a/textcolors/gsblue.system.s +++ b/textcolors/gsblue.system.s @@ -1,26 +1,29 @@ - .setcpu "6502" - .include "apple2.inc" - - .include "../inc/apple2.inc" - .include "../inc/prodos.inc" - - .org SYS_ADDR - - cld - bit ROMIN2 - sta CLR80VID - sta CLRALTCHAR - sta CLR80COL - jsr SETVID - jsr SETKBD - jsr SETNORM - jsr INIT - jsr HOME - lda #$f6 - sta $c022 - lda #$06 - sta $c034 - MLI_CALL QUIT, quit_params - brk - - DEFINE_QUIT_PARAMS quit_params \ No newline at end of file + .setcpu "6502" + .include "apple2.inc" + + .include "../inc/apple2.inc" + .include "../inc/prodos.inc" + + .org SYS_ADDR + + cld + + bit ROMIN2 + sta CLR80VID + sta CLRALTCHAR + sta CLR80COL + jsr SETVID + jsr SETKBD + jsr SETNORM + jsr INIT + jsr HOME + + lda #$f6 ; border: white on medium blue + sta TBCOLOR + lda #$06 ; border: medium blue + sta CLOCKCTL + + MLI_CALL QUIT, quit_params + brk + + DEFINE_QUIT_PARAMS quit_params diff --git a/textcolors/mint.system.s b/textcolors/mint.system.s index ae3c096..1724c9a 100644 --- a/textcolors/mint.system.s +++ b/textcolors/mint.system.s @@ -1,26 +1,29 @@ - .setcpu "6502" - .include "apple2.inc" - - .include "../inc/apple2.inc" - .include "../inc/prodos.inc" - - .org SYS_ADDR - - cld - bit ROMIN2 - sta CLR80VID - sta CLRALTCHAR - sta CLR80COL - jsr SETVID - jsr SETKBD - jsr SETNORM - jsr INIT - jsr HOME - lda #$2e - sta $c022 - lda #$0e - sta $c034 - MLI_CALL QUIT, quit_params - brk - - DEFINE_QUIT_PARAMS quit_params \ No newline at end of file + .setcpu "6502" + .include "apple2.inc" + + .include "../inc/apple2.inc" + .include "../inc/prodos.inc" + + .org SYS_ADDR + + cld + + bit ROMIN2 + sta CLR80VID + sta CLRALTCHAR + sta CLR80COL + jsr SETVID + jsr SETKBD + jsr SETNORM + jsr INIT + jsr HOME + + lda #$2e ; text: dark blue on bright green + sta TBCOLOR + lda #$0e ; border: bright green + sta CLOCKCTL + + MLI_CALL QUIT, quit_params + brk + + DEFINE_QUIT_PARAMS quit_params diff --git a/textcolors/pink.system.s b/textcolors/pink.system.s index 483f48f..1771bf9 100644 --- a/textcolors/pink.system.s +++ b/textcolors/pink.system.s @@ -1,26 +1,29 @@ - .setcpu "6502" - .include "apple2.inc" - - .include "../inc/apple2.inc" - .include "../inc/prodos.inc" - - .org SYS_ADDR - - cld - bit ROMIN2 - sta CLR80VID - sta CLRALTCHAR - sta CLR80COL - jsr SETVID - jsr SETKBD - jsr SETNORM - jsr INIT - jsr HOME - lda #$5b - sta $c022 - lda #$07 - sta $c034 - MLI_CALL QUIT, quit_params - brk - - DEFINE_QUIT_PARAMS quit_params \ No newline at end of file + .setcpu "6502" + .include "apple2.inc" + + .include "../inc/apple2.inc" + .include "../inc/prodos.inc" + + .org SYS_ADDR + + cld + + bit ROMIN2 + sta CLR80VID + sta CLRALTCHAR + sta CLR80COL + jsr SETVID + jsr SETKBD + jsr SETNORM + jsr INIT + jsr HOME + + lda #$5b ; text: gray on pink + sta TBCOLOR + lda #$07 ; border: light blue + sta CLOCKCTL + + MLI_CALL QUIT, quit_params + brk + + DEFINE_QUIT_PARAMS quit_params diff --git a/textcolors/wb.system.s b/textcolors/wb.system.s index 9913779..3cc390e 100644 --- a/textcolors/wb.system.s +++ b/textcolors/wb.system.s @@ -1,26 +1,29 @@ - .setcpu "6502" - .include "apple2.inc" - - .include "../inc/apple2.inc" - .include "../inc/prodos.inc" - - .org SYS_ADDR - - cld - bit ROMIN2 - sta CLR80VID - sta CLRALTCHAR - sta CLR80COL - jsr SETVID - jsr SETKBD - jsr SETNORM - jsr INIT - jsr HOME - lda #$f0 - sta $c022 - lda #$00 - sta $c034 - MLI_CALL QUIT, quit_params - brk - - DEFINE_QUIT_PARAMS quit_params \ No newline at end of file + .setcpu "6502" + .include "apple2.inc" + + .include "../inc/apple2.inc" + .include "../inc/prodos.inc" + + .org SYS_ADDR + + cld + + bit ROMIN2 + sta CLR80VID + sta CLRALTCHAR + sta CLR80COL + jsr SETVID + jsr SETKBD + jsr SETNORM + jsr INIT + jsr HOME + + lda #$f0 ; text: white on black + sta TBCOLOR + lda #$00 ; border: black + sta CLOCKCTL + + MLI_CALL QUIT, quit_params + brk + + DEFINE_QUIT_PARAMS quit_params