base:colour_flashing_notewriter_style
no way to compare when less than two revisions
Differences
This shows you the differences between two versions of the page.
— | base:colour_flashing_notewriter_style [2015-04-17 04:30] (current) – created - external edit 127.0.0.1 | ||
---|---|---|---|
Line 1: | Line 1: | ||
+ | ==== Colour Flashing Notewriter Style ==== | ||
+ | Have you saw programs like Face Noter, Octanoter, etc. All those programs use a special extra colour mode, to activate char flashing. Some of you may find it to be really difficult to understand how it works, but it is actually *that* easy to remember. All you need to do is switch $D011 to $5b to get extra colour mode, and create a colour cycling routine. Here's a routine for it. | ||
+ | |||
+ | < | ||
+ | ; | ||
+ | ;Flashing colours in EBC mode | ||
+ | ; | ||
+ | |||
+ | flashpt = $02 | ||
+ | |||
+ | !to " | ||
+ | * = $0810 | ||
+ | sei | ||
+ | lda #$00 | ||
+ | sta flashpt | ||
+ | sta $d020 | ||
+ | sta $d021 | ||
+ | lda #<irq | ||
+ | ldx #>irq | ||
+ | sta $314 | ||
+ | stx $315 | ||
+ | lda #$7f | ||
+ | sta $dc0d | ||
+ | lda #$5b | ||
+ | sta $d011 ;Swich on EBC mode | ||
+ | lda #$01 | ||
+ | sta $d01a | ||
+ | cli | ||
+ | rts ;Just end here for now | ||
+ | irq inc $d019 | ||
+ | jsr flash | ||
+ | jmp $ea31 | ||
+ | |||
+ | flash inc flashpt | ||
+ | lda colour1,x | ||
+ | sta $d022 ;EBC Multicolour 1 | ||
+ | lda colour2,x | ||
+ | sta $d023 ;EBC Multicolour 2 | ||
+ | lda colour3,x | ||
+ | sta $d024 ;EBC Multicolour 3 | ||
+ | inx | ||
+ | cpx #$28 | ||
+ | beq resetf | ||
+ | inc flashpt | ||
+ | rts | ||
+ | resetf | ||
+ | stx flashpt | ||
+ | rts | ||
+ | |||
+ | colour1 | ||
+ | !byte $07, | ||
+ | !byte $08, | ||
+ | !byte $00, | ||
+ | !byte $00, | ||
+ | !byte $00 | ||
+ | |||
+ | colour2 | ||
+ | !byte $0d, | ||
+ | !byte $0e, | ||
+ | !byte $00, | ||
+ | !byte $00, | ||
+ | !byte $00 | ||
+ | |||
+ | colour3 | ||
+ | !byte $00, | ||
+ | !byte $05, | ||
+ | !byte $05, | ||
+ | !byte $00, | ||
+ | </ | ||
base/colour_flashing_notewriter_style.txt · Last modified: 2015-04-17 04:30 by 127.0.0.1