mirror of
https://github.com/a2stuff/prodos-drivers.git
synced 2024-12-27 08:29:34 +00:00
Text color themes: Don't force 40 col/text or clear the text screen
This commit is contained in:
parent
3e0d41b809
commit
a6d4fa6308
@ -12,16 +12,6 @@
|
|||||||
;;; ************************************************************
|
;;; ************************************************************
|
||||||
|
|
||||||
.proc maybe_install_driver
|
.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
|
lda #$C0 ; text: bright greeen on black
|
||||||
sta TBCOLOR
|
sta TBCOLOR
|
||||||
lda #$00 ; border: black
|
lda #$00 ; border: black
|
||||||
|
@ -12,16 +12,6 @@
|
|||||||
;;; ************************************************************
|
;;; ************************************************************
|
||||||
|
|
||||||
.proc maybe_install_driver
|
.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
|
lda #$0f ; text: black on white
|
||||||
sta TBCOLOR
|
sta TBCOLOR
|
||||||
lda #$0f ; border: white
|
lda #$0f ; border: white
|
||||||
|
@ -12,16 +12,6 @@
|
|||||||
;;; ************************************************************
|
;;; ************************************************************
|
||||||
|
|
||||||
.proc maybe_install_driver
|
.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
|
lda #$f2 ; text: white on dark blue
|
||||||
sta TBCOLOR
|
sta TBCOLOR
|
||||||
lda #$02 ; text: dark blue
|
lda #$02 ; text: dark blue
|
||||||
|
@ -12,16 +12,6 @@
|
|||||||
;;; ************************************************************
|
;;; ************************************************************
|
||||||
|
|
||||||
.proc maybe_install_driver
|
.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
|
lda #$5a ; text: dark gray on light gray
|
||||||
sta TBCOLOR
|
sta TBCOLOR
|
||||||
lda #$0a ; border: gray
|
lda #$0a ; border: gray
|
||||||
|
@ -12,16 +12,6 @@
|
|||||||
;;; ************************************************************
|
;;; ************************************************************
|
||||||
|
|
||||||
.proc maybe_install_driver
|
.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
|
lda #$f6 ; border: white on medium blue
|
||||||
sta TBCOLOR
|
sta TBCOLOR
|
||||||
lda #$06 ; border: medium blue
|
lda #$06 ; border: medium blue
|
||||||
|
@ -12,16 +12,6 @@
|
|||||||
;;; ************************************************************
|
;;; ************************************************************
|
||||||
|
|
||||||
.proc maybe_install_driver
|
.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
|
lda #$2e ; text: dark blue on bright green
|
||||||
sta TBCOLOR
|
sta TBCOLOR
|
||||||
lda #$0e ; border: bright green
|
lda #$0e ; border: bright green
|
||||||
|
@ -12,16 +12,6 @@
|
|||||||
;;; ************************************************************
|
;;; ************************************************************
|
||||||
|
|
||||||
.proc maybe_install_driver
|
.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
|
lda #$5b ; text: gray on pink
|
||||||
sta TBCOLOR
|
sta TBCOLOR
|
||||||
lda #$07 ; border: light blue
|
lda #$07 ; border: light blue
|
||||||
|
@ -12,16 +12,6 @@
|
|||||||
;;; ************************************************************
|
;;; ************************************************************
|
||||||
|
|
||||||
.proc maybe_install_driver
|
.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
|
lda #$f0 ; text: white on black
|
||||||
sta TBCOLOR
|
sta TBCOLOR
|
||||||
lda #$00 ; border: black
|
lda #$00 ; border: black
|
||||||
|
Loading…
Reference in New Issue
Block a user