Text color themes: Make the SYSTEM files chain

This commit is contained in:
Joshua Bell 2022-01-06 17:12:30 -08:00
parent f740575697
commit 3e0d41b809
9 changed files with 98 additions and 48 deletions

View File

@ -37,6 +37,8 @@ This repo includes the following drivers/modifications:
* 80-column menu-driven Selector (from ProDOS 1.9 and 2.x) * 80-column menu-driven Selector (from ProDOS 1.9 and 2.x)
* Bird's Better Bye (a 40-column menu-driven selector) * Bird's Better Bye (a 40-column menu-driven selector)
* Buh-Bye (an enhanced version of the ProDOS 80-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. 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.

View File

@ -1,13 +1,17 @@
.setcpu "6502" .setcpu "6502"
.include "apple2.inc" .include "apple2.inc"
.include "apple2.mac"
.include "../inc/apple2.inc" .include "../inc/apple2.inc"
.include "../inc/macros.inc"
.include "../inc/prodos.inc" .include "../inc/prodos.inc"
.org SYS_ADDR ;;; ************************************************************
.include "../inc/driver_preamble.inc"
cld ;;; ************************************************************
.proc maybe_install_driver
bit ROMIN2 bit ROMIN2
sta CLR80VID sta CLR80VID
sta CLRALTCHAR sta CLRALTCHAR
@ -23,7 +27,9 @@
lda #$00 ; border: black lda #$00 ; border: black
sta CLOCKCTL sta CLOCKCTL
MLI_CALL QUIT, quit_params rts
brk .endproc
DEFINE_QUIT_PARAMS quit_params ;;; ************************************************************
.include "../inc/driver_postamble.inc"
;;; ************************************************************

View File

@ -1,13 +1,17 @@
.setcpu "6502" .setcpu "6502"
.include "apple2.inc" .include "apple2.inc"
.include "apple2.mac"
.include "../inc/apple2.inc" .include "../inc/apple2.inc"
.include "../inc/macros.inc"
.include "../inc/prodos.inc" .include "../inc/prodos.inc"
.org SYS_ADDR ;;; ************************************************************
.include "../inc/driver_preamble.inc"
cld ;;; ************************************************************
.proc maybe_install_driver
bit ROMIN2 bit ROMIN2
sta CLR80VID sta CLR80VID
sta CLRALTCHAR sta CLRALTCHAR
@ -23,7 +27,9 @@
lda #$0f ; border: white lda #$0f ; border: white
sta CLOCKCTL sta CLOCKCTL
MLI_CALL QUIT, quit_params rts
brk .endproc
DEFINE_QUIT_PARAMS quit_params ;;; ************************************************************
.include "../inc/driver_postamble.inc"
;;; ************************************************************

View File

@ -1,13 +1,17 @@
.setcpu "6502" .setcpu "6502"
.include "apple2.inc" .include "apple2.inc"
.include "apple2.mac"
.include "../inc/apple2.inc" .include "../inc/apple2.inc"
.include "../inc/macros.inc"
.include "../inc/prodos.inc" .include "../inc/prodos.inc"
.org SYS_ADDR ;;; ************************************************************
.include "../inc/driver_preamble.inc"
cld ;;; ************************************************************
.proc maybe_install_driver
bit ROMIN2 bit ROMIN2
sta CLR80VID sta CLR80VID
sta CLRALTCHAR sta CLRALTCHAR
@ -23,7 +27,9 @@
lda #$02 ; text: dark blue lda #$02 ; text: dark blue
sta CLOCKCTL sta CLOCKCTL
MLI_CALL QUIT, quit_params rts
brk .endproc
DEFINE_QUIT_PARAMS quit_params ;;; ************************************************************
.include "../inc/driver_postamble.inc"
;;; ************************************************************

View File

@ -1,13 +1,17 @@
.setcpu "6502" .setcpu "6502"
.include "apple2.inc" .include "apple2.inc"
.include "apple2.mac"
.include "../inc/apple2.inc" .include "../inc/apple2.inc"
.include "../inc/macros.inc"
.include "../inc/prodos.inc" .include "../inc/prodos.inc"
.org SYS_ADDR ;;; ************************************************************
.include "../inc/driver_preamble.inc"
cld ;;; ************************************************************
.proc maybe_install_driver
bit ROMIN2 bit ROMIN2
sta CLR80VID sta CLR80VID
sta CLRALTCHAR sta CLRALTCHAR
@ -23,7 +27,9 @@
lda #$0a ; border: gray lda #$0a ; border: gray
sta CLOCKCTL sta CLOCKCTL
MLI_CALL QUIT, quit_params rts
brk .endproc
DEFINE_QUIT_PARAMS quit_params ;;; ************************************************************
.include "../inc/driver_postamble.inc"
;;; ************************************************************

View File

@ -1,13 +1,17 @@
.setcpu "6502" .setcpu "6502"
.include "apple2.inc" .include "apple2.inc"
.include "apple2.mac"
.include "../inc/apple2.inc" .include "../inc/apple2.inc"
.include "../inc/macros.inc"
.include "../inc/prodos.inc" .include "../inc/prodos.inc"
.org SYS_ADDR ;;; ************************************************************
.include "../inc/driver_preamble.inc"
cld ;;; ************************************************************
.proc maybe_install_driver
bit ROMIN2 bit ROMIN2
sta CLR80VID sta CLR80VID
sta CLRALTCHAR sta CLRALTCHAR
@ -23,7 +27,9 @@
lda #$06 ; border: medium blue lda #$06 ; border: medium blue
sta CLOCKCTL sta CLOCKCTL
MLI_CALL QUIT, quit_params rts
brk .endproc
DEFINE_QUIT_PARAMS quit_params ;;; ************************************************************
.include "../inc/driver_postamble.inc"
;;; ************************************************************

View File

@ -1,13 +1,17 @@
.setcpu "6502" .setcpu "6502"
.include "apple2.inc" .include "apple2.inc"
.include "apple2.mac"
.include "../inc/apple2.inc" .include "../inc/apple2.inc"
.include "../inc/macros.inc"
.include "../inc/prodos.inc" .include "../inc/prodos.inc"
.org SYS_ADDR ;;; ************************************************************
.include "../inc/driver_preamble.inc"
cld ;;; ************************************************************
.proc maybe_install_driver
bit ROMIN2 bit ROMIN2
sta CLR80VID sta CLR80VID
sta CLRALTCHAR sta CLRALTCHAR
@ -23,7 +27,9 @@
lda #$0e ; border: bright green lda #$0e ; border: bright green
sta CLOCKCTL sta CLOCKCTL
MLI_CALL QUIT, quit_params rts
brk .endproc
DEFINE_QUIT_PARAMS quit_params ;;; ************************************************************
.include "../inc/driver_postamble.inc"
;;; ************************************************************

View File

@ -1,13 +1,17 @@
.setcpu "6502" .setcpu "6502"
.include "apple2.inc" .include "apple2.inc"
.include "apple2.mac"
.include "../inc/apple2.inc" .include "../inc/apple2.inc"
.include "../inc/macros.inc"
.include "../inc/prodos.inc" .include "../inc/prodos.inc"
.org SYS_ADDR ;;; ************************************************************
.include "../inc/driver_preamble.inc"
cld ;;; ************************************************************
.proc maybe_install_driver
bit ROMIN2 bit ROMIN2
sta CLR80VID sta CLR80VID
sta CLRALTCHAR sta CLRALTCHAR
@ -23,7 +27,9 @@
lda #$07 ; border: light blue lda #$07 ; border: light blue
sta CLOCKCTL sta CLOCKCTL
MLI_CALL QUIT, quit_params rts
brk .endproc
DEFINE_QUIT_PARAMS quit_params ;;; ************************************************************
.include "../inc/driver_postamble.inc"
;;; ************************************************************

View File

@ -1,13 +1,17 @@
.setcpu "6502" .setcpu "6502"
.include "apple2.inc" .include "apple2.inc"
.include "apple2.mac"
.include "../inc/apple2.inc" .include "../inc/apple2.inc"
.include "../inc/macros.inc"
.include "../inc/prodos.inc" .include "../inc/prodos.inc"
.org SYS_ADDR ;;; ************************************************************
.include "../inc/driver_preamble.inc"
cld ;;; ************************************************************
.proc maybe_install_driver
bit ROMIN2 bit ROMIN2
sta CLR80VID sta CLR80VID
sta CLRALTCHAR sta CLRALTCHAR
@ -23,7 +27,9 @@
lda #$00 ; border: black lda #$00 ; border: black
sta CLOCKCTL sta CLOCKCTL
MLI_CALL QUIT, quit_params rts
brk .endproc
DEFINE_QUIT_PARAMS quit_params ;;; ************************************************************
.include "../inc/driver_postamble.inc"
;;; ************************************************************