Apple-2-SW
/
prodos-drivers
mirror of https://github.com/a2stuff/prodos-drivers.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
README.md
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)
* 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.

18
textcolors/a2green.system.s
View File

@ -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"
;;; ************************************************************

18
textcolors/bw.system.s
View File

@ -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"
;;; ************************************************************

18
textcolors/deepblue.system.s
View File

@ -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"
;;; ************************************************************

18
textcolors/gray.system.s
View File

@ -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"
;;; ************************************************************

18
textcolors/gsblue.system.s
View File

@ -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"
;;; ************************************************************

18
textcolors/mint.system.s
View File

@ -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"
;;; ************************************************************

18
textcolors/pink.system.s
View File

@ -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"
;;; ************************************************************

18
textcolors/wb.system.s
View File

@ -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"
;;; ************************************************************