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: Don't force 40 col/text or clear the text screen

This commit is contained in:
Joshua Bell 2022-01-06 17:16:42 -08:00
parent 3e0d41b809
commit a6d4fa6308
8 changed files with 0 additions and 80 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
textcolors/a2green.system.s
View File

@ -12,16 +12,6 @@
;;; ************************************************************
.proc maybe_install_driver
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

10
textcolors/bw.system.s
View File

@ -12,16 +12,6 @@
;;; ************************************************************
.proc maybe_install_driver
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

10
textcolors/deepblue.system.s
View File

@ -12,16 +12,6 @@
;;; ************************************************************
.proc maybe_install_driver
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

10
textcolors/gray.system.s
View File

@ -12,16 +12,6 @@
;;; ************************************************************
.proc maybe_install_driver
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

10
textcolors/gsblue.system.s
View File

@ -12,16 +12,6 @@
;;; ************************************************************
.proc maybe_install_driver
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

10
textcolors/mint.system.s
View File

@ -12,16 +12,6 @@
;;; ************************************************************
.proc maybe_install_driver
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

10
textcolors/pink.system.s
View File

@ -12,16 +12,6 @@
;;; ************************************************************
.proc maybe_install_driver
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

10
textcolors/wb.system.s
View File

@ -12,16 +12,6 @@
;;; ************************************************************
.proc maybe_install_driver
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