From 3e0d41b8094f2a19feb422478ce77277586bf45f Mon Sep 17 00:00:00 2001 From: Joshua Bell Date: Thu, 6 Jan 2022 17:12:30 -0800 Subject: [PATCH] Text color themes: Make the SYSTEM files chain --- README.md | 2 ++ textcolors/a2green.system.s | 18 ++++++++++++------ textcolors/bw.system.s | 18 ++++++++++++------ textcolors/deepblue.system.s | 18 ++++++++++++------ textcolors/gray.system.s | 18 ++++++++++++------ textcolors/gsblue.system.s | 18 ++++++++++++------ textcolors/mint.system.s | 18 ++++++++++++------ textcolors/pink.system.s | 18 ++++++++++++------ textcolors/wb.system.s | 18 ++++++++++++------ 9 files changed, 98 insertions(+), 48 deletions(-) diff --git a/README.md b/README.md index e5a9f25..08ec448 100644 --- a/README.md +++ b/README.md @@ -37,6 +37,8 @@ This repo includes the following drivers/modifications: * 80-column menu-driven Selector (from ProDOS 1.9 and 2.x) * Bird's Better Bye (a 40-column menu-driven selector) * Buh-Bye (an enhanced version of the ProDOS 80-column, menu-driven selector) +* Text color themes + * These set the IIgs (or VidHD) text/background/border colors In addition, `QUIT.SYSTEM` is present which isn't a driver but which immediately invokes the QUIT handler (a.k.a. program selector). This will happen automatically if the last driver can't find another `.SYSTEM` file, but `QUIT.SYSTEM` can be used to stop the chain. diff --git a/textcolors/a2green.system.s b/textcolors/a2green.system.s index 169ea24..24545da 100644 --- a/textcolors/a2green.system.s +++ b/textcolors/a2green.system.s @@ -1,13 +1,17 @@ .setcpu "6502" + .include "apple2.inc" + .include "apple2.mac" .include "../inc/apple2.inc" + .include "../inc/macros.inc" .include "../inc/prodos.inc" - .org SYS_ADDR - - cld +;;; ************************************************************ + .include "../inc/driver_preamble.inc" +;;; ************************************************************ +.proc maybe_install_driver bit ROMIN2 sta CLR80VID sta CLRALTCHAR @@ -23,7 +27,9 @@ lda #$00 ; border: black sta CLOCKCTL - MLI_CALL QUIT, quit_params - brk + rts +.endproc - DEFINE_QUIT_PARAMS quit_params +;;; ************************************************************ + .include "../inc/driver_postamble.inc" +;;; ************************************************************ diff --git a/textcolors/bw.system.s b/textcolors/bw.system.s index e653f36..f4263e0 100644 --- a/textcolors/bw.system.s +++ b/textcolors/bw.system.s @@ -1,13 +1,17 @@ .setcpu "6502" + .include "apple2.inc" + .include "apple2.mac" .include "../inc/apple2.inc" + .include "../inc/macros.inc" .include "../inc/prodos.inc" - .org SYS_ADDR - - cld +;;; ************************************************************ + .include "../inc/driver_preamble.inc" +;;; ************************************************************ +.proc maybe_install_driver bit ROMIN2 sta CLR80VID sta CLRALTCHAR @@ -23,7 +27,9 @@ lda #$0f ; border: white sta CLOCKCTL - MLI_CALL QUIT, quit_params - brk + rts +.endproc - DEFINE_QUIT_PARAMS quit_params +;;; ************************************************************ + .include "../inc/driver_postamble.inc" +;;; ************************************************************ diff --git a/textcolors/deepblue.system.s b/textcolors/deepblue.system.s index 000841b..bb540fe 100644 --- a/textcolors/deepblue.system.s +++ b/textcolors/deepblue.system.s @@ -1,13 +1,17 @@ .setcpu "6502" + .include "apple2.inc" + .include "apple2.mac" .include "../inc/apple2.inc" + .include "../inc/macros.inc" .include "../inc/prodos.inc" - .org SYS_ADDR - - cld +;;; ************************************************************ + .include "../inc/driver_preamble.inc" +;;; ************************************************************ +.proc maybe_install_driver bit ROMIN2 sta CLR80VID sta CLRALTCHAR @@ -23,7 +27,9 @@ lda #$02 ; text: dark blue sta CLOCKCTL - MLI_CALL QUIT, quit_params - brk + rts +.endproc - DEFINE_QUIT_PARAMS quit_params +;;; ************************************************************ + .include "../inc/driver_postamble.inc" +;;; ************************************************************ diff --git a/textcolors/gray.system.s b/textcolors/gray.system.s index ed1160c..6da3aac 100644 --- a/textcolors/gray.system.s +++ b/textcolors/gray.system.s @@ -1,13 +1,17 @@ .setcpu "6502" + .include "apple2.inc" + .include "apple2.mac" .include "../inc/apple2.inc" + .include "../inc/macros.inc" .include "../inc/prodos.inc" - .org SYS_ADDR - - cld +;;; ************************************************************ + .include "../inc/driver_preamble.inc" +;;; ************************************************************ +.proc maybe_install_driver bit ROMIN2 sta CLR80VID sta CLRALTCHAR @@ -23,7 +27,9 @@ lda #$0a ; border: gray sta CLOCKCTL - MLI_CALL QUIT, quit_params - brk + rts +.endproc - DEFINE_QUIT_PARAMS quit_params +;;; ************************************************************ + .include "../inc/driver_postamble.inc" +;;; ************************************************************ diff --git a/textcolors/gsblue.system.s b/textcolors/gsblue.system.s index a5d6dc4..5aea2fd 100644 --- a/textcolors/gsblue.system.s +++ b/textcolors/gsblue.system.s @@ -1,13 +1,17 @@ .setcpu "6502" + .include "apple2.inc" + .include "apple2.mac" .include "../inc/apple2.inc" + .include "../inc/macros.inc" .include "../inc/prodos.inc" - .org SYS_ADDR - - cld +;;; ************************************************************ + .include "../inc/driver_preamble.inc" +;;; ************************************************************ +.proc maybe_install_driver bit ROMIN2 sta CLR80VID sta CLRALTCHAR @@ -23,7 +27,9 @@ lda #$06 ; border: medium blue sta CLOCKCTL - MLI_CALL QUIT, quit_params - brk + rts +.endproc - DEFINE_QUIT_PARAMS quit_params +;;; ************************************************************ + .include "../inc/driver_postamble.inc" +;;; ************************************************************ diff --git a/textcolors/mint.system.s b/textcolors/mint.system.s index 1724c9a..a6c0577 100644 --- a/textcolors/mint.system.s +++ b/textcolors/mint.system.s @@ -1,13 +1,17 @@ .setcpu "6502" + .include "apple2.inc" + .include "apple2.mac" .include "../inc/apple2.inc" + .include "../inc/macros.inc" .include "../inc/prodos.inc" - .org SYS_ADDR - - cld +;;; ************************************************************ + .include "../inc/driver_preamble.inc" +;;; ************************************************************ +.proc maybe_install_driver bit ROMIN2 sta CLR80VID sta CLRALTCHAR @@ -23,7 +27,9 @@ lda #$0e ; border: bright green sta CLOCKCTL - MLI_CALL QUIT, quit_params - brk + rts +.endproc - DEFINE_QUIT_PARAMS quit_params +;;; ************************************************************ + .include "../inc/driver_postamble.inc" +;;; ************************************************************ diff --git a/textcolors/pink.system.s b/textcolors/pink.system.s index 1771bf9..40a1f76 100644 --- a/textcolors/pink.system.s +++ b/textcolors/pink.system.s @@ -1,13 +1,17 @@ .setcpu "6502" + .include "apple2.inc" + .include "apple2.mac" .include "../inc/apple2.inc" + .include "../inc/macros.inc" .include "../inc/prodos.inc" - .org SYS_ADDR - - cld +;;; ************************************************************ + .include "../inc/driver_preamble.inc" +;;; ************************************************************ +.proc maybe_install_driver bit ROMIN2 sta CLR80VID sta CLRALTCHAR @@ -23,7 +27,9 @@ lda #$07 ; border: light blue sta CLOCKCTL - MLI_CALL QUIT, quit_params - brk + rts +.endproc - DEFINE_QUIT_PARAMS quit_params +;;; ************************************************************ + .include "../inc/driver_postamble.inc" +;;; ************************************************************ diff --git a/textcolors/wb.system.s b/textcolors/wb.system.s index 3cc390e..672b84f 100644 --- a/textcolors/wb.system.s +++ b/textcolors/wb.system.s @@ -1,13 +1,17 @@ .setcpu "6502" + .include "apple2.inc" + .include "apple2.mac" .include "../inc/apple2.inc" + .include "../inc/macros.inc" .include "../inc/prodos.inc" - .org SYS_ADDR - - cld +;;; ************************************************************ + .include "../inc/driver_preamble.inc" +;;; ************************************************************ +.proc maybe_install_driver bit ROMIN2 sta CLR80VID sta CLRALTCHAR @@ -23,7 +27,9 @@ lda #$00 ; border: black sta CLOCKCTL - MLI_CALL QUIT, quit_params - brk + rts +.endproc - DEFINE_QUIT_PARAMS quit_params +;;; ************************************************************ + .include "../inc/driver_postamble.inc" +;;; ************************************************************